start tok64 d64-AYeTtd
1 POKE54296,0:hs=1000:hs$="arcade attack{.*3}":we=33:op=30000:fg=2040:wq=33:va=5
2 PRINT"{clear}":v=53248:POKEv+21,0:POKEv+33,0:POKEv+32,0:p=200:rs=20:t=75:sc=0
4 x=150:y=50:POKE650,255:cr=0
8 h=54273:vo=h+23:wa=h+3:at=h+4:lo=h-1:su=h+5:v1=15:hi=0:sp=0
9 FORa=200TO214:FORc=0TO62:READb:POKEa*64+c,b:NEXT:NEXT
11 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,31,0,0,28,0,1,28,0,8,95,160,130,63,254,8
12 DATA159,224,0,28,0,0,28,0,0,31,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
21 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,31,0,4,28,0,72,159,224,34,95,190,4
22 DATA31,224,1,28,0,0,31,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
31 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,133,31,0,16,63,224,72,159,254,2
32 DATA95,160,0,31,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
41 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4,0,0,145,31,224,72,95,254,21,3
42 DATA224,64,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
51 DATA0,0,0,0,56,0,0,124,0,0,254,0,0,238,0,7,239,192,15,239,224,31,255,240,61
52 DATA255,188,63,255,252,63,189,252,127,126,254,254,126,127,240,110,15,0,118,0
53 DATA0,110,0,1,247,128,3,255,192,1,255,128,0,255,0,0,126,0
61 DATA0,0,64,1,0,0,0,16,0,32,0,0,0,0,130,8,64,0,0,0,0,0,4,32,0,0,0,0,0,0,33,0
62 DATA0,0,0,5,0,8,0,0,0,0,16,0,0,1,0,0,0,0,130,0,0,0,0,16,0,0,0,0,0,0,0
71 DATA0,16,0,0,16,0,0,56,0,0,56,0,0,56,0,0,56,0,16,56,16,16,124,16,56,68,56,56
72 DATA124,56,56,56,56,56,254,56,57,255,56,59,255,184,63,255,248,59,255,184,56
73 DATA254,56,16,56,16,0,0,0,0,0,0,0,0,0
91 DATA0,0,0,0,72,0,0,72,0,4,72,128,2,253,0,1,222,0,3,255,0,31,123,224,3,255
92 DATA0,31,239,224,3,127,0,1,246,0,2,253,0,4,72,128,0,72,0,0,72,0,0,0,0,0,0
93 DATA0,0,0,0,0,0,0,0,0,0
101 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,15,255,3,193,254,6,96,252
102 DATA31,255,240,254,127,224,31,255,240,6,96,252,3,193,254,0,15,255,0,0,0,0,0
103 DATA0,0,0,0,0,0,0,0,0,0
131 DATA3,255,0,3,255,0,3,255,128,3,255,64,3,255,32,3,255,16,0,252,8,0,252,4,7
132 DATA255,132,7,1,143,7,63,159,7,63,176,7,63,160,7,3,128,7,63,128,7,63,128,7
133 DATA63,128,7,63,128,7,255,128,15,255,192,15,255,192
134 DATA0,126,0,0,0,0,0,255,0,0,0,0,1,255,128,0,0,0,3,129,192,0,0,0,7,0,224,0,0
135 DATA0,15,255,240,0,0,0,31,255,248,0,0,0,56,0,28,0,0,0,112,0,14,0,0,0,224,0
136 DATA7,0,0,0,0,0,0
137 DATA0,24,0,0,24,0,0,24,0,0,24,0,0,24,0,0,24,0,0,24,0
138 DATA0,24,0,0,24,0,0,24,0,0,24,0,0,24,0,0,24,0,0,24,0
139 DATA0,24,0,0,24,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
140 DATA252,0,0,255,192,0,255,252,0,255,255,192,255,255,240,48,195,0,255,255
141 DATA240,255,255,192,255,252,0,255,216,0,252,28,0,252,12,0,96,6,0,96,6,0,112
142 DATA3,248,0,3,248,0,0,12,0,0,12,0,0,6,0,0,31,0,0,127
143 DATA0,0,63,0,3,255,0,63,255,3,255,255,15,255,255,0,195,12,15,255,255,3,255
144 DATA255,0,63,255,0,27,255,0,56,63,0,48,63,0,96,6,0,96,6,31,192,14,31,192,0
145 DATA48,0,0,48,0,0,96,0,0,248,0,0,254,0,0
146 DATA0,0,0,0,60,0,0,126,0,0,255,0,0,60,0,0,36,0,0,60,0,0,60,0,0,60,0,0,60,0,0
147 DATA60,0,0,126,0,0,126,0,0,118,0,0,110,0,0,118,0,1,239,128,3,255,192,1,255
148 DATA128,0,255,0,0,126,0,0,0
149 REM*** introduktion ***
150 x=150:x1=150:y=0:y1=255:POKEv,x:POKEv+1,y:POKEv+2,x1:POKEv+3,y1:POKEv+21,3
151 PRINT"{clear}":t=75
160 POKEfg,210:POKE2041,210:POKEv+39,9:POKEv+40,9:POKEv+23,3:POKEv+29,3
170 y=y+0.5:y1=y1-1.2
180 POKEv,x:POKEv+1,y:POKEv+2,x1:POKEv+3,y1
190 IFy>65THEN210
200 GOTO170
210 PRINT"{home}{down*6}{right*22}rcade"
220 PRINT"{down*3}av.r.j.gibbs{right*10}ttack.64{.*3}"
230 PRINT:PRINT:PRINT
235 PRINT"{white}anv[nd din skicklighet och ditt omd{pound}me":PRINT
237 PRINT"{pink} f{pound}r att ta dig genom en [ndl{pound}s rymd{.*3}{down}":PRINT:GOSUB10000:POKEvo,0
240 PRINT"{156}{space*10}raket fart {.*3}";rs
250 GETa$:IFa$="{f1}"THENrs=rs+1
255 IFa$=" "THEN295
260 PRINT"{up*2}"
265 IFrs>50THENrs=20
270 GOTO240
290 REM*** raket ***
295 POKEv+33,0:POKEv+32,0:POKE2041,208
300 POKEv+21,0:x=0:x1=255:y=150:y1=150:PRINT"{clear}":POKEv+23,0:POKEv+29,3
310 POKEv,x:POKEv+1,y:POKEv+2,x1:POKEv+3,y1:POKE2040,200
311 PRINT"{home}{light blue}{space*2}varning{space*3}varning{space*4},raket kommer{!*3}"
312 POKE53265,PEEK(53265)AND239
314 FORa=0TO80:b=INT(RND(1)*959):POKE1064+b,46:POKE55336+b,1:NEXT
315 FORa=0TO8:b=INT(RND(1)*959):POKE1064+b,81:POKE55336+b,2:NEXT
316 POKE53265,PEEK(53265)OR16
317 GOSUB7100
318 FORa=0TO1000:NEXT
320 POKEv+21,3:POKEv+39,1
321 PRINT"{home}{space*39}"
322 PRINT"{home}{yellow}raket rakt fram{space*2}, se upp "
329 POKEvo,15:POKEat,80:POKEwa,129
330 POKEv+30,0:jv=PEEK(56321):jv=15-(jvAND15)
331 POKEfg,p:p=p+1:IFp>203THENp=200
340 IFjv=1THENy1=y1-6
350 IFjv=2THENy1=y1+6
360 x=x+rs:x1=x1-1:POKEwa,33
370 IFy>y1THENy=y-3
380 IFy<y1THENy=y+3
385 POKEwa,129
390 IFy1>230THENy1=230
400 IFy1<53THENy1=50
410 IFx1<140THEN550
420 IFx>250THENx=0:y=y1:sc=sc+100
425 POKEh,56:POKElo,67
430 IF(PEEK(v+30)AND2)=2THEN500
440 POKEv,x:POKEv+1,y:POKEv+2,x1:POKEv+3,y1:POKEwa,0
450 GOTO330
500 POKEwa,0:IFx<50THENx=x1
501 POKE2040,205:POKEv+29,0:POKEv+40,5:POKEv+21,1
510 FORa=14TO0STEP-0.2:POKEv+23,1:POKEv+29,1:POKEv+23,0:POKEv+29,0
511 POKEvo,a:POKEwa,129:POKEat,15:POKEsu,155:POKEh,20:POKElo,56
512 POKEwa,0:POKEat,0:POKEsu,0:NEXT
520 POKEv+21,0:PRINT"{clear}":FORa=0TO100:NEXT:GOTO5000
550 FORa=0TO200:NEXT:POKEv+21,2:POKE2040,209:POKEv+23,1
560 POKEv+21,2:x=0:y=100:POKEv,x:POKEv+1,y:FORa=0TO500:NEXT:POKEv+21,3
569 REM*** tankning ***
570 POKEwa,0:PRINT"{home}{pink}{space*3}br[nsleskepp p] v[g{space*6}{.*3}{space*2}"
571 POKEvo,15:POKEat,89:POKEwa,129:POKEsu,155
572 x=x+0.15:x1=x1+0.6
580 IFx1>254THENPOKEvo,0:GOTO600
585 POKEv,x:POKEv+1,y:POKEv+2,x1:POKEv+3,y1:POKEh,7:POKElo,89:POKEwa,129
599 GOTO572
600 POKEvo,15:POKEat,89:POKEwa,33:POKEsu,155:POKEh,2
601 POKEv+30,0:jv=PEEK(56321):jv=15-(jvAND15)
602 PRINT"{home}{space*27}br[nsle"t"{left}{space*2}":IFt<0THEN4999
604 wq=33
605 IFjv=1THENy1=y1-2:t=t-0.5:wq=129:va=15
610 IFjv=2THENy1=y1+2:t=t-0.5:wq=129:va=15
620 IFjv=4THENx1=x1-2:t=t-0.5:wq=129:va=10
630 IFjv=8THENx1=x1+2:t=t-0.5:wq=129:va=10
640 IFx1>250THENx1=250
645 IFx1<69THENx1=69
650 IFy1>230THENy1=230
660 IFy1<53THENy1=53
665 POKEv+2,x1:POKEv+3,y1
670 IF(PEEK(v+30)AND2)=2THEN690
675 POKEh,va:POKElo,INT(so/256):POKEwa,wq
680 GOTO601
690 POKEvo,0:PRINT"{home}{space*19}bonus f{pound}r fart ..";t*100:FORa=0TO300:NEXT
699 sc=sc+t*100
700 PRINT"{home}{156}{space*5}dockning o.k. tankning p]g]r {!*4}{space*3}"
710 FORa=0TO150:POKEv+39,a:POKEv+40,a+1:FORb=0TO50:NEXT:PRINT"{right*6}br[nsle:"t
711 POKEvo,15:POKEwa,33:POKEat,15:POKEsu,155:POKEh,a:POKElo,c
712 c=INT(RND(1)*255):POKEwa,0:POKEat,0:POKEsu,0
714 t=t+3:PRINT"{up*2}":NEXT
720 POKEv+40,2
730 PRINT"{home}{green}{space*14}{.*3}tankning avslutad{.*3}{space*9}"
740 x1=x1+1:y1=y1-2:x=x-0.5
750 IFy1<30THENPOKEv+21,0:GOTO800
760 POKEv,x:POKEv+1,y:POKEv+2,x1:POKEv+3,y1
770 GOTO740
800 v=53248:FORa=0TO40:PRINT"{down}":NEXT
809 POKE53265,PEEK(53265)AND239
810 FORa=0TO80:b=INT(RND(1)*959):POKE1064+b,46:POKE55336+b,1:NEXT
811 FORa=0TO8:b=INT(RND(1)*959):POKE1064+b,81:POKE55336+b,2:NEXT
820 PRINT"{red}{cm d}{cm p}{cm i}{cm p}{cm d}{cm i}{cm p}{cm i}{cm p}{cm d}{cm i}{cm p}{cm i}{cm p}{cm i}{reverse on}{space*6}{reverse off}{cm i}{cm p}{cm i}{cm p}{cm i}{cm p}{cm i}{cm d}{cm i}{cm p}{cm @}{cm d}{cm i}{cm p}{cm @}"    
830 PRINT"{red}{reverse on}{space*38}{reverse off}"
831 PRINT"{home}{green}{space*16}m]n landning{space*8}"
840 POKEv+29,255:POKEv+23,253
850 POKEv+3,30:POKEv+21,255:y3=80
860 POKE2041,206:di=1:POKEv+40,5
861 POKEv,200:POKEv+1,150:POKEv+4,100:POKEv+5,150:POKE2040,207:POKE2042,207
862 POKEv+6,150:POKEv+7,80:POKE2043,207
863 POKE53265,PEEK(53265)OR16
865 POKEvo,15:POKEat,9:POKEsu,240
870 POKEv+30,0
871 jv=PEEK(56321):jv=15-(jvAND15)
880 IFjv=4THENx1=x1-1:di=1:POKEv+40,5:t=t-0.5
885 IFjv=8THENx1=x1+1:di=2:POKEv+40,5:t=t-0.5
890 IFPEEK(197)=60THENy1=y1-1.5:POKEv+40,2:t=t-2:we=129
900 IFdi=1THENx1=x1-2:POKEv+40,5:t=t-0.5
910 IFdi=2THENx1=x1+2:POKEv+40,5:t=t-0.5
920 y1=y1+1:POKEwa,we
921 POKEh,6:POKElo,INT(op/256):we=17
930 POKEv+2,x1:POKEv+3,y1
950 IFx1>250THENx1=15
960 IFx1<15THENx1=250
965 IFy<29THEN5100
970 IFy1>205ANDx1>142ANDx1<151THEN999
975 IFy1>206THEN5100
976 IF(PEEK(v+30)AND2)=2THEN5100
980 POKEv+30,0
981 IFrs=>40THENy3=y3+0.5:POKEv+7,y3:IFy3>200THENy3=200
982 IFrs<=40THENy3=y3+0.2:POKEv+7,y3:IFy3>200THENy3=200
983 PRINT"{156}{home}{down}{right*15}br[nsle:";t:IFt<0THEN4999
984 PRINT"{up*2}"
985 GOTO870
999 PRINT"{down*22}"
1000 PRINT"{up*2}{light green}{reverse on}{space*40}{reverse off}":y=y1:x=x1:POKEv,x
1001 POKEv+21,2:FORa=0TO500:NEXT:PRINT"{home}{space*38}"
1010 POKEv+1,y:POKEv+2,70:POKEv+3,0:POKEv+29,3:POKEv+23,2:POKE650,255:POKEvo,0
1020 POKEv+21,3:POKE2040,206:y=204:x1=70:y1=0:x3=x+10:y3=y-10:POKE650,255
1030 POKEv+30,0:jv=PEEK(56321):jv=15-(jvAND15):POKE2041,204
1040 IFjv=4THENx=x-5:x3=x-5:mo=1:t=t-1
1050 IFjv=8THENx=x+5:x3=x+5:mo=2:t=t-1
1060 IFmo=2THENx1=x1-3
1070 IFmo=1THENx1=x1+3
1080 IFx1>245THENx1=25
1090 IFx1<25THENx1=245
2000 IFx>242THENx=242:x3=252
2001 IFx<25THENx=25:x3=35
2010 y1=y1+10:IF(PEEK(v+30)AND1)=1THEN3100
2015 PRINT"{156}{home}{down}{right*2}po[ng:";sc:PRINT"{up}{right*13}br[nsle";t
2016 PRINT"{up*2}":POKEvo,15:POKEwa,33:POKEsu,255:POKEat,15:POKEh,20:POKElo,120
2017 POKEwa+7,33:POKEsu+7,15:POKEat+7,255:POKEh+7,120:POKElo+7,20
2020 POKEv,x:POKEv+1,y:POKEwa,0:POKEat,0:POKEsu,0
2021 POKEwa+7,0:POKEat+7,0:POKEsu+7,0
2030 bu=5:IFt<0THEN4999
2040 IFy1>204THENy1=0
2050 POKEv+2,x1:POKEv+3,y1:POKE2041,214
2060 IFbu=0THEN1030
2070 POKEv+21,7:POKE2042,211:POKEv+4,x3:POKEv+5,y3-10:POKEv+29,7:POKEv+23,4
2080 y3=y3-32
2090 IFPEEK(v+30)AND2THENbu=0:y3=y-10:POKEv+21,3:hi=hi+1:sc=sc+50:POKEv+40,hi
2095 IFhi>7THENGOSUB7000
2096 IFsp>rs/7THENsc=sc+5000:POKEv+21,1:GOTO3200
3000 POKEv+5,y3:IFy3<50THEN3030
3010 bu=5
3020 GOTO1030
3030 y3=y-10:bu=0:POKEv+21,3
3040 GOTO1030
3100 POKEv+21,1:FORa=14TO0STEP-0.2:POKE2040,205:POKEv+23,1:POKEv+29,1:POKEv+23,0
3110 POKEvo,a:POKEwa,129:POKEat,15:POKEsu,155:POKEh,20:POKElo,56:POKEv+40,1
3111 POKEwa,0:POKEat,0:POKEsu,0
3113 POKEv+29,0:POKEv+17,17:POKEv+17,16:NEXT:POKEv+21,0:PRINT"{clear}":GOTO5000
3200 POKEv+21,1:POKE2043,206:POKE2041,213:POKE2042,212:POKEv+23,6:POKEv+29,14
3210 x1=152:x2=200:y1=0:y2=0:POKEv+40,2:POKEv+41,2:POKEv+42,14:POKEv+21,14
3211 POKEv+6,x:POKEv+7,y:POKEv+2,x1:POKEv+3,y1:POKEv+4,x2:POKEv+5,y2
3220 POKEvo,15:POKEat,56:POKEat+7,33:POKEsu,255:POKEsu+7,255:POKEwa,33
3221 POKEwa+7,33:POKEh,2:POKEh+7,2:POKElo,1:POKElo+7,6
3223 FORa=0TO60STEP0.1:POKEv+3,a:POKEv+5,a:NEXT:POKEvo,0
3225 PRINT"{home}{down}{space*40}"
3230 ab$="{right*20}{reverse on}{156} {blue} {red} {yellow} {reverse off}"
3232 ac$="{right*20}{space*5}"
3235 PRINT"{home}{down*2}"
3240 POKEvo,15:FORa=5TO23:POKEh,a:POKEh+7,a:PRINTab$:NEXT
3245 GOTO4000
3600 FORa=150TO0STEP-2:POKEv+7,a:POKEv+5,a:POKEv+3,a:NEXT
3610 PRINT"{clear}":POKEv+21,0
3611 GOTO5000
3620 GOTO4999
4000 PRINT"{home}{down}{space*4}inta laserstr]len{space*13}"
4001 GETa$:y3=205
4004 IFa$="{right}"THENx3=x3-1
4005 IFa$="2"THENx3=x3+1
4010 IFx3>254THENx3=253
4015 IFx3<25THENx3=25
4020 IFx3=178THENFORa=y3TO60STEP-0.2:POKEv+7,a:NEXTa:GOTO4060
4050 POKEv+6,x3:POKEv+7,y3
4055 GOTO4001
4060 PRINT"{home}{down*2}"
4061 FORa=0TO18:PRINTac$:NEXT
4070 POKEvo,15:POKEat,56:FORa=60TO0STEP-0.3:POKEv+3,a:POKEv+5,a:POKEv+7,a
4080 POKEh,2:POKEh+7,2:POKEwa,33:POKEwa+7,33:NEXT
4096 GOTO5000
4999 PRINT"{home}{space*7}ditt br[nsle tog slut !!{space*8}":FORa=0TO5000:NEXT
5000 POKEwa+7,0:PRINT"{clear}":POKEv+21,0:IFsc>hsTHENhs=sc:GOSUB5200
5010 PRINT"{156}{down*5}{space*3}du lyckades f] "sc" po[ng p] ditt{space*6}uppdrag":PRINT
5020 PRINT" h{pound}gsta po[ng [r "hs:PRINT
5040 PRINT" h{pound}gst po[ng har ";hs$:PRINT:PRINT
5050 PRINT:PRINT"{156}{space*5}tryck p] {reverse on}space{reverse off} f{pound}r att forts[tta":POKE198,0
5060 GETa$
5065 IFa$<>" "THEN5060
5070 POKE650,0:sc=0:hi=0:sp=0:POKEvo,0:POKEwa,0:POKEat,0:POKEwa+7,0
5080 RESTORE:PRINT"{clear}{yellow}{down*10}{space*8}tryck p] en knapp ":GOTO250
5100 POKEv+21,2:FORa=14TO0STEP-0.2:POKE2041,205:POKEv+23,2:POKEv+29,2
5101 POKEv+23,0:POKEv+29,0:POKEv+40,1
5102 POKEvo,a:POKEwa,129:POKEat,15:POKEsu,155:POKEh,20:POKElo,56
5103 POKEwa,0:POKEat,0:POKEsu,0:NEXT
5104 GOTO5000
5200 PRINT"{clear}":POKEvo,15:POKEat,32:POKEsu,255
5201 POKEat+7,32:POKEat+14,32:POKEsu+7,255:POKEsu+14,255:POKEwa+7,33
5209 POKEwa+14,33:POKEwa,33:FORa=2000TO26000STEP240
5210 POKEh,a-INT(a/256)*256:POKEh+7,8:POKEh+14,6
5220 PRINT"{light green}***** h{pound}gsta po[ng * h{pound}gsta po[ng *****"
5230 NEXTa:POKEvo,0:PRINT"{clear}"
5290 POKE198,0:INPUT"{white}skriv ditt namn f{pound}r h{pound}gsta po[ng";hs$
5300 IFLEN(hs$)>15THENhs$=LEFT$(hs$,15)
5310 RETURN
7000 FORa=14TO0STEP-0.2:POKE2041,205:POKEv+23,2:POKEv+29,3:POKEv+23,0:POKEv+29,1
7010 POKEvo,a:POKEwa,129:POKEat,15:POKEh,20:POKElo,56:POKEv+40,1
7020 POKEwa,0:POKEat,0:POKEsu,0:NEXT
7030 POKEv+23,2:POKEv+29,3:y1=0:POKEv+3,y1:POKE2041,206:POKEvo,15
7040 hi=0:sp=sp+1:sc=sc+50:RETURN
7100 POKEvo,15:POKEat,56:POKEat+7,33:POKEsu,255:POKEsu+7,255:POKEwa,33
7110 POKEwa+7,33:POKEwa+14,33:POKEat+14,32:POKEsu+14,255
7120 FORa=1TO8:POKE53281,a:FORb=0TO60:POKEh,b:POKEh+7,b:POKEh+14,b:NEXTb:NEXTa
7140 POKEwa+7,0:POKEwa+14,0:POKEvo,0:POKE53281,0:RETURN
10000 POKEat,33:POKEat+7,33:POKEat+14,33:POKEsu,255:POKEsu+7,255:POKEsu+14,255
10001 POKEvo,15
10010 POKEwa,33:POKEwa+7,33:POKEwa+14,33
10020 FORa=0TO80:b=RND(1)*(7-3)+3:POKEh,b:POKEh+7,b:POKEh+14,b:POKElo,6
10030 FORc=0TO100:NEXTc:NEXTa:RETURN
stop tok64
(bastext 1.0)