start tok64 d64-Y5pB34
0 RESTORE
1 READa$:IFa$<>"x"THEN1
2 FORi=49152TO49198:READa:POKEi,a:NEXT
3 POKE49184,.:POKE49185,16:POKE49194,3:POKE49195,16
4 SYS49152
10 POKE53280,0:POKE53281,0:PRINT"{clear}{white}":GOTO1005
22 RESTORE
25 v=53248:POKEv+21,0:POKEv+39,1:POKEv+40,7
30 POKE2040,13:POKE2041,14
35 FORn=832TO894:READa:POKEn,a:NEXT
40 FORn=896TO958:READq:POKEn,q:NEXT
43 POKEv+23,1:POKEv+29,1
50 DATA,,,,,,,,,,192,,,96,,128,120,,192,70,,224,30,,255,255,252,255,207,250,127,207,255,63,255,255,,62,,,120,,,240,,1,192,,,,,,,,,,,,,,,,
60 DATA,60,,,255,,1,255,128,1,255,128,3,255,192,3,255,192,3,255,192,1,17,,,146,,,84,,,56,,,56,,,56,,,16,,,56,,,124,,,186,,,40,,,68,,,130,,1,1,,x
110 PRINT"{home}";
111 FORi=1TO22:PRINT"{reverse on}{light blue}{space*33}":NEXT
112 FORi=1TO2:PRINT"{reverse on}{light green}{space*33}":NEXT
115 PRINTTAB(16)"{up*2}{white}{reverse on}{space*2}"
120 PRINT"{home}"TAB(33)"{down}sc:
121 PRINTTAB(33)"{down*2}vind:
131 t=INT(RND(1)*2)+1
132 IFt=1THENz=3:POKE1222,62:POKE55494,1
133 IFt=2THENz=-3:POKE1222,60:POKE55494,1
134 p=1:o=4
135 y=50:i=0
140 w=PEEK(56320)
145 i=i+8:x=i
146 IFp=2THEN GOTO 310
150 IFw=111 THEN p=2
165 IFi=>255 THEN i=0
200 POKEv,i:POKEv+1,50
220 POKEv+21,p
300 GOTO140
310 w=PEEK(56320)
320 y=y+o
322 f=f+1:IFf=6THENo=o+2:IFf=11THENo=o+2
330 IFw=119THENx=x+4+z
333 IFw=127THENx=x+z
335 IFw=123THENx=x-4+z
340 IFx<=0THENx=0
345 IFy=>209ANDx>142ANDx<154THENGOTO415
350 IFx>255THENx=255
355 IFy=>209THEN500
360 POKEv+2,x:POKEv+3,y
400 GOTO310
415 sc=sc+10:p=0:IFsc>990THENsc=0:x=0:y=0
420 PRINT"{home}{down}"TAB(36)sc
425 GOTO131
500 PRINT"{home}{down*12}","{right*2}game over":FORi=1TO2000:NEXT
1005 POKEv+21,0:sc=0
1010 PRINT"{clear}{down*3}"TAB(8)"{reverse on}{space*6}{cm asterisk}{down}{left} {down}{left} {down}{left} "
1023 PRINTTAB(8)"{reverse on}{space*6}{reverse off}{sh pound}aratrooper"
1024 PRINTTAB(8)"{reverse on} {down}{left} {down}{left} {down}{left} "
1030 PRINT"{down*2}{right*2}{red}du ska styra ner hopparen till"
1031 PRINT"{down}{right*2}plattformen med hj[lp av joysticken"
1032 PRINT"{down}{right*2}i port 2.
1033 PRINT"{down}(c) ]ke.a. & mr.p.
1034 PRINT,"{down*2}{right}{yellow}{reverse on}{space*2}tryck fire{space*2}"
1040 w=PEEK(56320):IFw=111THEN1050
1045 GOTO1040
1050 PRINT"{clear}":o=4 :y=50:i=0
1060 GOTO22
2000 DATA120,169,127,141,13,220,169,1,141,26,208,169,250,141,18,208,169,27,141,17,208,169,36,141,20,3,169,192,141,21,3,32,,24,88,96,169,1,141,25,208,32,6,24,76,49,234
stop tok64
(bastext 1.0)