10 CLEAR500:DIM FT(32)
20 Z=19712:A=16917:POKEA,126:POKEA+1,77:POKEA+2,00
30 DATA 95,134,253,151,2,182,191,255,132,1,38,2,198,1,134,247,151,2,182,191,255,132,4,38,2,202,2,247,77,31,57,0
40 READB:IFB=0THEN100
50 POKEZ+R,B:R=R+1:GOTO40
100 A1$="πππππ":A2$=A1$:A$="“":B$="€†€‰€":C$="€Œ€Œ€":D$="€‚぀":E$="€„€ˆ€":G1$="πύπώπ":G2$="πχόϋπ":CLS0
200 L=384:GOSUB4200:FORX=1TO32:FT(X)=1:NEXTX:P=53:O=85:A=33:B=65:I=1:GOTO2000
1110 PRINT@A-32,A1$;:PRINT@A,W$;:PRINT@B,Q$;:PRINT@B+32,A1$;:RETURN
1200 PRINT@P-32,A1$;:PRINT@P,W$;:PRINT@O,Q$;:PRINT@O+32,A1$;:RETURN
1900 HT=0:GOSUB8000:IFHT=1THEN1970
1905 X=RND(4)
1910 IFX=1THENI=-1
1915 IFX=2THENI=1
1920 IFX=3THENA=A-32:B=B-32
1925 IFX=4THENA=A+32:B=B+32
1970 A=A+I:B=B+I
1980 IFA>352THENA=A-32:B=B-32
1990 IFA<34THENA=A+32:B=B+32
1995 IFA<34THENA=34
2000 T=T+1:IFT=1THENW$=A$:Q$=B$:GOSUB1110
2010 IFT=2THENW$=A$:Q$=C$:GOSUB1110
2020 IFT=3THENW$=D$:Q$=E$:GOSUB1110
2050 IFAT=3THENGOSUB5000
2060 IFTA=3THENGOSUB6000
2070 IFTA<>3ANDFT(A/32)+1=1THENTA=3:TR=B+2
2080 IFTA<>3THENTA=RND(3):IFTA=3THENTR=B+2
2090 K9=USR(0):K8=PEEK(19743):IFK8=1THENGOSUB4000
2092 IFK8=2THENGOSUB4100
2094 IFPEEK(49151)=247ANDAT=0THENAT=3:TG=L+2
2096 GOSUB4200
2100 IFT=4THENT=0:WE=0:GOTO1900
2200 GOTO2000
4000 L=L-1:IFL<384THENL=384
4010 RETURN
4100 L=L+1:IFL>411THENL=411
4110 RETURN
4200 PRINT@L,G1$;:PRINT@L+32,G2$;
4300 RETURN
5000 PRINT@TG,"π";:TG=TG-32
5005 IFTG<32THENAT=0:RETURN
5010 IFTG>=AANDTG<=A+5THEN5100
5020 PRINT@TG,"Ι";
5030 RETURN
5100 AT=0:IFTG<A+1ORTG>A+3THENRETURN
5110 SOUND200,2:PRINT@A,"";:PRINT@B,"";
5120 A=RND(24):A=A+32:B=A+32
5130 PT=PT+50:GOSUB7000
5200 RETURN
5302 IF MID$(F$,V,1)="ΰ"THENRETURN
6000 REM
6005 PRINT@TR,"π";:TR=TR+32
6008 IFTR<352THENTR=TR+32
6010 IFTR>447THEN6300
6015 IFTR>384THEN6100
6020 PRINT@TR,"“";
6030 RETURN
6100 IFTR=L+1THEN6400
6102 IFTR=L+3THEN6500
6104 IFTR<=LORTR>L+3THEN6020
6110 SOUND200,1:PT=PT+25
6120 GOSUB7000
6130 TA=0
6200 RETURN
6300 RG=TR-448:IFFT(RG)=1THENFT(RG)=0:CO=CO+1:PT=PT-10:GOSUB7000
6305 IFFT(RG)=0THENPT=PT-5:GOSUB7000
6306 SOUND100,1
6310 PRINT@TR,"Ÿ";:TA=0:IFCO=31THENPRINT@495,"GAME OVER";:END
6320 RETURN
6400 PRINT@TR,"";
6410 TR=TR-34:GOTO6020
6500 PRINT@TR,"";
6510 TR=TR-30:GOTO6020
7000 PRINT@481,"SCORE=";PT;:RETURN
8000 C=A/32:IFC<2ORC>30THENRETURN
8010 L9=RND(10)-5:IFC+L9<2ORC+L9>30ORC-L9<2ORCL9>30THENRETURN
8015 HT=1
8020 IF(FT(C-L9)=0ANDL9<0)OR(FT(C+L9)=0ANDL9<0)THENI=-1
8030 IF(FT(C-L9)=0ANDL9>0)OR(FT(C+L9)=0ANDL9>0)THENI=1
8040 IFL9=0ANDFT(C)=0THENI=0
8050 RETURN