start tok64 d64-OFvsPe 10 FORa=54272TO54295:POKEa,0:NEXT:POKE54296,47:POKE54273,16:POKE54280,19 20 POKE54277,24:POKE54284,24:POKE54295,20:POKE54291,25:POKE54287,5:GOSUB640 30 GOTO280 40 jy=15-(PEEK(56320+pl*f2)AND15):fr=PEEK(56320+pl*f2)AND16:IFfr=0THENjy=0 50 RETURN 60 WAIT56320+pl*f2,16,0:RETURN 70 POKE53288,c1:POKE53289,c2:RETURN 80 tx=x*6-1:ty=y*4-3:GOSUB270:POKE646,c:PRINT"{reverse on}"a$:RETURN 90 POKE54276,16:POKE54283,16:POKE54276,17:POKE54283,17 100 FORa=1TO300:NEXT:POKE54276,0:POKE54283,0:RETURN 110 POKE54280,19:FORb=50TO150STEP50:POKE54273,b:GOSUB90:NEXT:RETURN 120 POKE54290,128:POKE54290,129:FORa=100TO200:POKE54294,a:NEXT:RETURN 130 qt=0:x=0:q=1:FORa=1TO5:FORb=1TO5:x=x+ar(a,b):NEXT:IFx=35ORx=40THENGOSUB190 140 x=0:NEXT:q=2:FORa=1TO5:FORb=1TO5:x=x+ar(b,a):NEXT:IFx=35ORx=40THENGOSUB190 150 x=0:NEXT:q=3:FORa=1TO5:b=a:x=x+ar(a,b):NEXT:IFx=35ORx=40THENGOSUB190 160 x=0:q=4:FORa=1TO5:b=6-a:x=x+ar(a,b):NEXT:IFx=35ORx=40THENGOSUB190 170 IFqtTHEN230 180 RETURN 190 qt=1:a$="{reverse off}{down}{right*2}{space*2}{down}{left*2}{space*2}":IFq=1THENFORzb=1TO5:x=a:y=zb:GOSUB80:NEXT:RETURN 200 IFq=2THENFORzb=1TO5:y=a:x=zb:GOSUB80:NEXT:RETURN 210 IFq=3THENFORza=1TO5:x=za:y=za:GOSUB80:NEXT:RETURN 220 FORza=1TO5:x=za:y=6-za:GOSUB80:NEXT:RETURN 230 POKE53269,0:GOSUB110:ty=23:tx=4:GOSUB270 240 PRINT"{reverse on}{blue} press fire button to play again" 250 IFPEEK(56320)<>111ANDPEEK(56321)<>239THEN250 260 CLR:GOTO280 270 POKE783,0:POKE781,ty:POKE782,tx:SYS65520:RETURN 280 PRINT"{home}";:DIM cl(25),ar(5,5):pc(0)=7:pc(1)=8:pl=1:f2=PEEK(828) 290 mx(1)=0:mx(2)=0:mx(4)=-48:mx(8)=48:my(1)=-32:my(2)=32:my(4)=0:my(8)=0 300 FORa=1TO5:FORb=1TO5:ar(a,b)=14:NEXTb,a:oj=0 310 a$="O{cm y*4}P{down}{left*6}{cm h}{space*4}{cm n}{down}{left*6}{cm h}{space*4}{cm n}{down}{left*6}L{cm p*4}{sh @}":b$="{up*3}" 320 FORi=0TO23:PRINT"{reverse on}{blue}{space*39}":m=1063+(40*i) 330 POKEm,160:POKEm+54272,6:NEXT:POKE2023,160:POKE56295,6 340 PRINT"{reverse on}{space*39}{home}{light blue}":POKE53281,1 350 FORx=1TO5:PRINT"{reverse on}"SPC(5)a$b$a$b$a$b$a$b$a$:NEXTx:FORi=1TO25:cl(i)=1:NEXT 360 POKE53250,126:POKE53251,228:POKE53252,223:POKE53253,228 370 GOSUB130:POKE53248,173:POKE53249,129:POKE53269,7 380 pl=-(pl=0):POKE54273,16*2^pl:POKE54280,19*2^pl 390 c1=pc(pl):c2=3:GOSUB70:fl=1:POKE53248,173:POKE53249,129 400 POKE53264,0:GOSUB40:IFjy=4THENc1=pc(pl):c2=3:fl=1:GOSUB70 410 IFjy=8THENc1=3:c2=pc(pl):fl=2:GOSUB70 420 IFfr=16THEN400 430 GOSUB90:GOSUB60:xp=173:yp=129 440 POKE53249,0:POKE53264,(xpAND256)/256:POKE53248,xpAND255:POKE53249,yp 450 GOSUB40:t=xp+mx(jy):xp=xp-mx(jy)*(t>76ANDt<270):t=yp+my(jy) 460 yp=yp-my(jy)*(t>64ANDt<194):IFfr=16THEN440 470 GOSUB90:c=pc(pl):GOSUB60:x=INT((xp-26)/48):y=INT((yp-32)/32) 480 IFfl=2THEN510 490 IFar(x,y)<>14THENGOSUB120:GOTO390 500 oj=0:ar(x,y)=c:GOSUB80:GOTO370 510 GOSUB60 520 GOSUB40:IFfr=0THENGOSUB60:GOTO390 530 IF(jy+oj=3ANDx=ox)OR(jy+oj=12ANDy=oy)THENGOSUB120:GOTO390 540 ONjyGOTO550,560,520,570,520,520,520,580:GOTO520 550 t=ar(x,1):FORa=1TO4:ar(x,a)=ar(x,a+1):NEXT:ar(x,5)=t:GOTO590 560 t=ar(x,5):FORa=5TO2STEP-1:ar(x,a)=ar(x,a-1):NEXT:ar(x,1)=t:GOTO590 570 t=ar(1,y):FORa=1TO4:ar(a,y)=ar(a+1,y):NEXT:ar(5,y)=t:GOTO600 580 t=ar(5,y):FORa=5TO2STEP-1:ar(a,y)=ar(a-1,y):NEXT:ar(1,y)=t:GOTO600 590 FORa=1TO5:y=a:c=ar(x,a):GOSUB80:NEXT:GOSUB610:GOTO370 600 FORa=1TO5:x=a:c=ar(x,y):GOSUB80:NEXT:GOSUB610:GOTO370 610 oj=jy:ox=x:oy=y:RETURN 620 FORa=14336TO14527:READb:POKEa,b:NEXT:POKE53276,3:POKE53285,0 630 POKE53287,15:FORa=224TO226:POKE1816+a,a:NEXT:RETURN 640 POKE53281,1:POKE53280,6:PRINT"{clear}";:a$="O{cm y}P{down}{left*3}{cm h} {cm n}{down}{left*3}L{cm p}{sh @}":b$="{up*2}" 650 FORi=0TO23:PRINT"{reverse on}{blue}{space*39}":m=1063+(40*i) 660 POKEm,160:POKEm+54272,6:NEXT:POKE2023,160:POKE56295,6 670 PRINT"{reverse on}{space*39}{home}" 680 PRINT"{home}{down*4}{light blue}":FORi=1TO5:PRINTSPC(12);:FORz=1TO5:PRINT"{reverse on}"a$b$;:NEXT 690 PRINT"{down*2}":NEXT:PRINT"{home}{down*11}"SPC(18)"{reverse on}{yellow}"a$"{down}{orange}";:GOSUB90 700 PRINTa$;:GOSUB90:PRINT"{up*11}{yellow}"a$:GOSUB90:PRINTSPC(15)"{orange}{reverse on}"a$; 710 GOSUB90:PRINT"{down*7}{left*6}{yellow}"a$;:GOSUB90:PRINT"{home}{down*8}{reverse on}{orange}"SPC(24)a$ 720 GOSUB90:PRINT"{down*3}"SPC(15)"{yellow}{reverse on}"a$;:GOSUB90:PRINT"{up*11}{left*6}{orange}"a$; 730 GOSUB90:PRINTSPC(6)"{down}{yellow}"a$:GOSUB90:tx=25:ty=6:GOSUB270:FORi=1TO5 740 PRINT" {down*3}{left*4}";:NEXT:GOSUB110:PRINT"{home}{down*2}"SPC(10)"{reverse on}{blue}s w i t c h e r o o" 750 GOSUB620:ty=21:tx=16:GOSUB270:PRINT"{blue}1{reverse on} or {reverse off}2{down*2}{left*7}{reverse on}joysticks{home}" 760 GETmt$:IFmt$<>"1"ANDmt$<>"2"THEN760 770 POKE828,VAL(mt$)-1:RETURN 780 DATA 0,0,0,0,0,0,0,0,0,0,168,0,2,170,64,10,170 790 DATA 144,10,170,144,42,170,164,42,170,164,42 800 DATA 170,164,42,170,164,42,170,164,10,170,144 810 DATA 10,170,144,2,170,64,0,168,0,0,0,0,0,0,0 820 DATA 0,0,0,0,0,0,0,0,0,0,170,170,160,170,170 830 DATA 164,170,170,164,170,170,164,170,170,164 840 DATA 170,170,164,170,170,164,170,170,164,170 850 DATA 170,164,170,170,164,170,170,164,170,170 860 DATA 164,170,170,164,170,170,164,170,170,164 870 DATA 170,170,164,170,170,164,170,170,164,170 880 DATA 170,164,21,85,84,0,0,0,0,0,32,0,0,112,0 890 DATA 0,248,0,1,252,0,0,112,0,0,112,0,0,112,0 900 DATA 16,0,64,48,0,96,126,3,240,254,3,248,126 910 DATA 3,240,48,0,96,16,0,64,0,112,0,0,112,0,0 920 DATA 112,0,1,252,0,0,248,0,0,112,0,0,32,0,0 63999 REM "Invalid BASIC input d64-OFvsPe stop tok64 (bastext 1.0)