Slap Shot by Jim Gerrie

REM 0 P$="ï":S$="":DIMX,Y,A,B,B(1),Q,R,K:A$="ÏÏÏÏÏÏÏÏÏϯÏÏÏ":B$="ÏÏÏ¿ ÏÏÏÏÏÏÏÏÏÏ":C$="ÏϯÏÏÏÏÏÏÏÏÏÏÏÏ":D$="ÏÏÏÏÏÏÏÏÏÏÏ¿ÏÏ":E$="ÏÏÏÏÏÏÏÏÏÏÏÏÏÏÏ":1$($1)=A$:A$(1:)=A$: )=A$:D$(1)=E$:E$(1)=E$:F$(1)=B$:G$(1)=D$:H$(1)=B$: Я$(1)=Е$:J$(1)=Е$ 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 ЕСЛИТОЧКА(X+A,Y+B)>1THEN4 7 N$=CHR$(13):SET(X,Y,.):X=X+A:Y=Y+B:RESET(X,Y):IFX>59THENPRINT@5,"ОН ВЫСТРЕЛЯЕТ! ОН ЗАБИВАЕТ !":SOUND150,20:QS=QS+1:?@32,"СИНИЙ"QS;:?@0,"":ON-(QS<3ANDRS<3)GOTO2:QW=QW+1:RS=0 :QS=0:?@0,"ИГРА ЗАВЕРШЕНА.";:?@64,"ПОБЕДА"QW,"ПОБЕДА"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,"ИГРА ЗАВЕРШЕНА".;:? @64,"WINS"QW,"VICTOIRES"RW; 9 FORZ=0TO1STEP0:?@16,"ИГРАТЬ СНОВА?";:M$=INKEY$:Z=-(M$="Y"ORM$="N"):NEXT:ON-(M$="Y "ORRW=QW)GOTO2:CLS:?MID$("БЛЮЗ ВЫИГРЫВАЕТ КУБОК СТЭНЛИ! LES ROUGES GAGNE LA COUPE STANLEY!",40*-(RW>QW)+1,40):?K$L$N $"ƒƒ‚…"N$"Ž€€€€„":END 10 РЭМ 1 1 1 1 1 1 1 1 1 1 2 2 2 2 2 2 11 РЭМ 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 шлепок! ДЖИМ ДЖЕРРИ 14 REM 2021 КОНКУРС 10 ЛАЙНЕРОВ 15 БЫСТРОЕ ИСПОЛЬЗОВАНИЕ: w i 16 REM СИНИЙ s КРАСНЫЙ k 17 REM ЗАЩИТИТЕ ВАШУ СЕТЬ 18 REM ПЕРВАЯ КОМАНДА 19 REM ТРИ ОЧКА ВЫИГРЫВАЕТ 20 БДМ МАТЧ. КОМАНДА С 21 REM САМОЕ БОЛЬШОЕ КОЛИЧЕСТВО ПОБЕД 23. РЕМ ВЫИГРЫВАЕТ КУБОК СТЭНЛИ