Slap Shot by Jim Gerrie

REM 0 P$="ï":S$="":DIMX,Y,A,B,B(1),Q,R,K:A$="ÏÏÏÏÏÏÏÏÏϯÏÏÏ":B$="ÏÏÏ¿ÏÏÏÏÏÏÏÏÏÏ":C$="ÏϯÏÏÏÏÏÏÏÏÏÏÏ":D$="ÏÏÏÏÏÏÏÏÏÏÏ¿ÏÏ":E$="ÏÏÏÏÏÏÏÏÏÏÏÏÏÏ":A$(1)=A$:B$(1)=C$:C$(1)=A$:D$(1)=E$:E$(1)=E$:F$(1)=B$:G$(1)=D$:H$(1)=B$:I$(1)=E$:J$(1)=E$
1 A$(2)=E$:B$(2)=A$:C$(2)=C$:D$(2)=A$:E$(2)=E$:F$(2)=E$:G$(2)=B$:H$(2)=D$:I$(2)=B$:J$(2)=E$:A$(3)=E$:B$(3)=E$:C$(3)=A$:D$(3)=C$:E$(3)=A$:F$(3)=E$:G$(3)=E$:H$(3)=B$:I$(3)=D$:J$(3)=B$:POKE16925,0:POKE16926,1
2 CLS7:FORZ=16384TO16864STEP32:POKEZ,143:POKEZ+31,143:NEXT:FORZ=0TO3:?:NEXT:Q=2:R=2:B(0)=1:B(1)=-1:X=28+RND(5):Y=14+RND(9):A=B(RND(2)-1):B=B(RND(2)-1):?@48,"LES ROUGES";RS;:?@32,"BLUE";QS;:?@64,"WINS"QW,"VICTOIRES"RW;:K$="Šƒ‚€"+CHR$(13)
3 PRINT@161,P$A$(Q)F$(R)P$S$S$P$A$(Q)F$(R)P$S$S$P$B$(Q)G$(R)P$S$S$S$B$(Q)G$(R)S$S$S$S$C$(Q)H$(R)S$S$S$S$C$(Q)H$(R)S$S$S$S$D$(Q)I$(R)S$S$S$P$D$(Q)I$(R)P$S$S$P$E$(Q)J$(R)P$S$S$P$E$(Q)J$(R)P$;
4 K=PEEK(2)ANDPEEK(383):A=A*B((POINT(X+A,Y)=5)+1):B=B*B((POINT(X,Y+B)=5)+1):IFPOINT(X+A,Y+B)<>5THENA=-A:B=-B
5 SET(X,Y,.):X=X+A:Y=Y+B:RESET(X,Y):IFKTHENQ=Q+(K=87ANDQ>1)-(K=83ANDQ<3):R=R+(K=73ANDR>1)-(K=75ANDR<3):GOTO3
6 IFPOINT(X+A,Y+B)>1THEN4
7 N$=CHR$(13):SET(X,Y,.):X=X+A:Y=Y+B:RESET(X,Y):IFX>59THENPRINT@5,"HE SHOOTS! HE SCORES!":SOUND150,20:QS=QS+1:?@32,"BLUE"QS;:?@0,"":ON-(QS<3ANDRS<3)GOTO2:QW=QW+1:RS=0:QS=0:?@0,"GAME OVER.";:?@64,"WINS"QW,"VICTOIRES"RW;
8 L$=+"†€‡"+N$+"Žƒƒ„"+N$+"ƒƒ‚…"+N$+"ƒƒ‚…":ON-(X>59)GOTO9:PRINT@6,"IL LANCE ET COMPTE!":SOUND100,20:RS=RS+1:?@48,"LES ROUGES"RS;:?@0,"":ON-(QS<3ANDRS<3)GOTO2:RW=RW+1:RS=0:QS=0:?@0,"GAME OVER.";:?@64,"WINS"QW,"VICTOIRES"RW;
9 FORZ=0TO1STEP0:?@16,"PLAY AGAIN?";:M$=INKEY$:Z=-(M$="Y"ORM$="N"):NEXT:ON-(M$="Y"ORRW=QW)GOTO2:CLS:?MID$("THE BLUES WIN THE STANLEY CUP!          LES ROUGES GAGNE LA COUPE       STANLEY!",40*-(RW>QW)+1,40):?K$L$N$"ƒƒ‚…"N$"Ž€€€€„":END
10 REM                                                                                             1         1         1         1         1         1         1         1         1         1         2         2         2         2         2         2
11 REM   1         2         3         4         5         6         7         8         9         0         1         2         3         4         5         6         7         8         9         0         1         2         3         4         5
12 REM789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345
13 REM slapshot! JIM GERRIE
14 REM 2021 10-LINER CONTEST
15 REM USE:    w          i
16 REM    BLUE  s     RED  k
17 REM PROTECT YOUR NET
18 REM FIRST TEAM TO REACH
19 REM THREE POINTS WINS THE
20 REM MATCH. THE TEAM WITH
21 REM THE HIGHEST # OF WINS
23 REM WINS THE STANLEY CUP