start tok64 d64-fRljhe
0 SYS 12307
1 GOTO100
10 r%=RND(0)*3+.3
20 PRINTp$;TAB(22)s$;p$;TAB(22)"{black}";a$(r%)
30 POKE1022,y(r%):POKE1023,x(r%):POKEv+2,sx(r%):POKEv+3,sy(r%):POKEv+21,3
40 RETURN
100 PRINTCHR$(142);CHR$(8)
106 POKE53248+32,7:POKE53248+33,4
107 GOSUB1900:GOSUB4000:GOTO530
108 POKE784,0:POKE785,0
109 GOSUB1000:GOSUB1900:SYS1005:ti$="{0*6}":sc=PEEK(784)+PEEK(785)*256
110 v=53248:y=v:x=v+1:jr=56321:r%=RND(-ti)
120 POKE2041,11:POKE2040,13:POKE1023,0:POKE1022,0
130 POKEv+21,1:POKEv+28,1:POKEv+23,1
140 POKEy,170:POKEx,50
150 POKEv+37,6:POKEv+40,2:POKEv+38,11:r%=PEEK(v+30):r%=PEEK(v+31)
165 pb=1839:POKEpb,31:POKE56111,1
170 GOSUB3000
190 p$="{home}{down*19}":s$="{reverse off}{left}{space*5}{down}{left*5}{space*4}"
195 a$(1)="{cm asterisk}{reverse on}{cm asterisk}{down}{left}..":a$(0)="{down}{left}{reverse on}{cm i*2}..":a$(2)="{right}{reverse on}{cm k}{reverse off}{cm k}{down}{left*2}{reverse on}..":a$(3)="{right*2}{reverse on}{sh pound}{reverse off}{sh pound}{down}{left*3}{reverse on}.."
200 IFNOTPEEK(v+21)AND2THENGOSUB10
205 POKEpb,63-PEEK(pb)
210 bx=PEEK(x):by=PEEK(y):jy=31-(PEEK(jr)AND31)
220 IFbx>50 AND(jyAND1)THENPOKEx,bx-2
230 IFbx<200AND(jyAND2)THENPOKEx,bx+2
240 IFby>25AND(jyAND4) THENPOKEy,by-2
250 IFby<250AND(jyAND8)THENPOKEy,by+2
255 IF(jyAND1)=0THENPOKEx,PEEK(x)+1
260 IFPEEK(v+30)THEN600
270 IFPEEK(v+31)AND1THEN500
275 PRINT"{home}{left}time "RIGHT$(ti$,2),,"score:"sc
280 GOTO200
500 IFINT(bx/4)=43ANDINT(by/4)=29THEN520
510 GOTO540
520 PRINT"{home}{down*10}"TAB(15)"{red}you made it!!":b%=30-VAL(ti$)+sc/10
521 IFb%<0THENb%=0
522 sc=sc+b%:GOTO700
530 PRINT"{home}{down}{right*3}{cyan}for start game, press {red}{reverse on}fire{right}{reverse off}{cyan}or {reverse on}{black}space":GOSUB4000
535 IFPEEK(197)=60THENCLR:GOTO108
537 GOTO535
540 IFbx>=200THENPRINT"{home}{down*12}"TAB(15)"{black}help i'm drowning!!":GOTO530
550 GOTO200
600 FORi=836TO860STEP2:POKEi,RND(1)*256:NEXT
610 FORi=bxTO200:POKEx,i:FORt=5TO20-(i/10):NEXT:NEXT:bx=200:GOTO540
700 PRINTTAB(15)"point"b%:IFsc<0THENsc=0
710 POKE784,scAND255:POKE785,sc/256:CLR:GOTO109
1000 FORi=960TO1017:READa:POKEi,a:NEXT
1010 DATA169,2,45,21,208,240,35,56,173,2,208,237,255,3,240,18,141,2,208,56,173
1020 DATA3,208,237,254,3,240,6,141,3,208,76,49,234
1025 DATA173,21,208,41,253,141,21,208,76,49,234
1030 DATA120,169,199,141,20,3,169,3,141,21,3,88,96
1040 FORi=832TO894:READa:POKEi,a:NEXT
1050 DATA0,85,0,1,85,64
1051 DATA5,85,80,5,85,80
1052 DATA21,85,84,21,85,84
1053 DATA85,85,85,85,85,85
1054 DATA85,85,85,85,85,85
1055 DATA21,85,84,21,85,84
1056 DATA37,85,88,33,85,72
1057 DATA32,20,8,8,0,32
1058 DATA2,0,128,0,255,0
1059 DATA0,255,0,0,255,0,0,255,0
1060 FORi=704TO742:POKEi,0:NEXT
1070 FORi=743TO766:READa:POKEi,a:NEXT
1080 DATA0,60,0,0,126,0,0,255,0,0,255,0,0,255,0,0,255,0,0,126,0,0,60,0
1090 RETURN
1900 PRINT"{clear}{down*14}";TAB(18);"{reverse on}{black}{space*2}{reverse off}{yellow}{cm k} "
1910 FORi=1TO5:PRINTTAB(20)"{yellow}{cm k}":NEXT
2000 PRINT"{space*11}{orange}{cm i*2}{yellow}{space*7}{cm k}{black}{space*7}{reverse on}{sh pound}{reverse off}{sh pound}
2010 PRINT"{space*10}{cm asterisk}{reverse on}{space*17}{reverse off}{sh pound}
2020 PRINT"{space*11}{cm asterisk}{reverse on}{:*15}{reverse off}{sh pound}
2030 PRINT"{space*12}{cm asterisk}{reverse on}{space*13}{reverse off}{sh pound}
2040 PRINT"{light blue}{reverse on}{space*39}";
2050 POKE2023,160:POKE56295,14
2060 RETURN
3000 FORi=0TO3:READx(i),y(i):NEXT:DATA2,0,2,2,0,2,255,2
3010 FORi=0TO3:READsx(i),sy(i):NEXT
3020 DATA 184,196,188,184,204,184,216,184
3030 RETURN
4000 PRINT"{home}{reverse off}{down*3}{green}{space*7}{reverse on}***{right}***{right}**{cm asterisk}{right}***{right}***{right}***{right}*{right}*
4010 PRINT"{space*7}{reverse on}**{right*2}*{right}*{right}*{right}*{right*2}*{right*2}*{right}*{right}*{right*3}*{right}*
4020 PRINT"{space*7}{reverse on}**{right*2}***{right}*{right}*{right*2}*{right*2}***{right}***{right}{reverse off}{cm asterisk}{reverse on}*{reverse off}{sh pound}
4030 PRINT"{space*7}{reverse on}*{right*3}*{right}*{right}*{right}*{right*2}*{right*2}*{right}*{right*3}*{right*2}*
4040 PRINT"{space*7}{reverse on}*{right*3}*{right}*{right}*{right}*{right*2}*{right*2}*{right}*{right}***{right*2}*
4050 RETURN
stop tok64
(bastext 1.0)