start tok64 d64-Ssear3
0 REM "{delete*7}golden gate
1 REM by staffan {pound}hman
2 SYS 12307
5 z=150:e=1:c=248
7 p=54296:w=54276:a=54277:h=54273:l=54272
8 x=150:v=53248
9 POKEv+33,8:POKEv+32,2:POKE646,0
10 PRINT"{clear}{down*10}"
15 PRINT"{right*14}please wait"
20 PRINT
25 PRINT"{right*9}put joystic in port 2#"
50 FOR i=0TO62:READq:POKE12288+i,q:NEXT
55 FOR i=0TO62:READq:POKE12352+i,q:NEXT
60 FOR i=0TO62:READq:POKE12416+i,q:NEXT
65 FOR i=0TO62:READq:POKE12480+i,q:NEXT
70 FOR i=0TO62:READq:POKE12544+i,q:NEXT
130 GOTO7000
162 b=INT(RND(1)*500):t=0
163 IF b>0ANDb<100THENPOKEv+42,1:b=10
164 IF b>200ANDb<300THENPOKEv+42,14:b=20
165 IF b>300ANDb<400THENPOKEv+42,3:b=30
166 IF b>400ANDb<500THENPOKEv+42,0:b=40
999 PRINT "{clear}"
1000 POKEv+33,6:POKEv+32,6:POKE646,1
1001 u=0:q=100
1002 POKE2041,11:POKE2044,11
1005 POKEv+21,255
1006 PRINT "{home}{black}score:";sc;"{space*7}fuel:";z
1007 y=200:r=y:s=54272
1008 POKEv+23,0:POKEv+29,0
1010 POKE2040,192:POKE2042,193:POKE2043,192:POKE2044,192
1011 POKEv+28,1:POKEv+37,5:POKEv+38,13:POKEv+39,9
1012 POKEv+40,0
1013 POKEv+41,0
1015 POKEv+43,0
1020 POKEv+5,y
1500 IF u>200 THEN c=1
1501 IF u<100 THEN c=0
1502 IF c=1 THEN u=u-5
1503 IF c=0 THEN u=u+5
1504 z=z-1:IFz<0THEN2300
1505 IFu>250 THEN u=25
1530 POKEv,x:POKEv+6,u:POKEv+7,70
1606 PRINT "{home}{black}score:";sc;"{space*7}fuel:{space*4}{left*4}";z
2000 a=PEEK(56320):t=t+1:IF t>60 THEN2500
2001 PRINT"{home}{black}score:";sc;"{space*7}fuel:";z
2010 IF a=119 THEN x=x+9
2020 IF a=123 THEN x=x-9
2025 IF a=111 THEN 2054
2048 IF x>250 THEN x=250
2049 IF x<25 THEN x=25
2050 POKEv+4,x:POKEv+1,r
2052 POKEv,x
2053 GOTO 1500
2054 GOSUB 2060
2055 GOTO 1007
2060 POKEv+4,x-6:POKEv+1,r:POKE54296,15
2061 FORi=54272TO54296:POKEl,0:NEXTi:POKEs+24,15:POKEs+13,240:POKEs+11,129
2062 IF e=1 THEN FOR i=1TO19:POKEv+5,r:r=r-7
2063 IF e=0 THEN FOR i=1TOf:POKEv+5,r:r=r-1
2073 POKEs+8,i:NEXT:POKEs+11,128
2074 IFx>u AND x<u+10THEN2100
2075 IFx<u AND x>u-10THEN2100
2076 r=200
2080 RETURN
2098 END
2100 POKE2042,11:sc=sc+b+t:u=0:POKE54296,15:z=z+10:m=m+1
2110 FORi=15TO0STEP-1:POKEp,i:POKEw,129:POKEa,15:POKEh,40:POKEl,200:NEXT
2120 POKEw,0:POKEa,0
2130 POKE54296,15:FOR i=1TO113:POKE53280,i:NEXTi
2150 IF q=194 THEN 5000
2200 GOTO 162
2300 POKE2040,0:POKEv+37,7:POKEv+38,8:POKEv+39,2:POKE2042,11
2301 FOR i=1TO250:POKE53281,i:POKE53280,i:NEXTi
2310 PRINT "{home}{down*3}you haven't got any more fuel":END
2400 PRINT "{clear}{down*6}":POKE54296,5:POKE2042,11
2410 PRINT "you have destroyed golden gate!"
2420 FOR i=0TOz:PRINT "score:";sc:sc=sc+1:PRINT"{up}";
2430 POKE54277,15:POKE54278,180:POKE54276,17:POKE54273,45:POKE54272,190
2431 POKE54296,15
2435 FOR a=0 TO 30:NEXTa:POKE54276,0
2436 NEXTi
2500 POKE2043,192
2501 t=t-1:POKEv+7,t:IFt<15 THEN 2510
2505 GOTO 2500
2510 z=z-50:GOTO1000
4065 IF a=123 THEN x=x-9
5000 REM
5001 e=0
5005 POKEv+42,7:POKEv+43,7:POKEv+44,7
5010 POKE2043,195:POKEv+6,100:POKEv+7,q
5020 POKE2044,195:POKEv+8,125:POKEv+9,q
5030 POKE2045,195:POKEv+10,150:POKEv+11,q
5050 a=PEEK(56320)
5051 q=200-q
5055 PRINT"{home}score:";sc;"{space*7}fuel:";z
5060 IF a=119THENx=x+2
5065 IF a=123THENx=x-2
5070 IF a=111 THEN nr=200:POKE2042,193:GOSUB2060:IFx> 93 ANDx<162 THEN2400
5071 POKE2042,11
5075 IFx>250 THEN x=250
5080 IFx<25 THEN x=25
5090 POKEv+4,x:POKEv+1,r
5095 POKEv,x
5096 q=q+2:POKEv+7,q:POKEv+9,q:POKEv+11,q:IFq=254 THEN6100
6000 GOTO 5050
6100 POKE53280,10:POKE53281,10
6110 PRINT "you didn't destroy golden gate":END
7000 PRINT"{clear}"
7002 POKEv+21,255
7010 POKE53281,0:POKE53280,0:POKE646,1
7020 POKE2040,194
7025 POKE2041,194
7026 POKE2042,196
7030 POKEv+39,14:POKEv+40,14:POKEv+41,7
7040 POKEv+5,50:POKEv+4,250
7045 POKEv+0,105:POKEv+2,105
7047 FOR i=1 TO 135
7050 POKEv+3,i:POKEv+1,c:c=c-1
7055 NEXT
7060 PRINT"{home}{down*9}{right*13}{light blue}olden"
7065 PRINT"{home}{down*11}{right*13}{light blue}ate"
7070 IF PEEK(56320)=111 THEN 162
7080 GOTO7070
10001 DATA0,24,0,0,24,0,0,24,0,0,60,0,0,36,0,0,60,0
10002 DATA0,60,0,0,189,0,0,189,0,0,189,0,1,189,128,1
10003 DATA189,128,1,189,128,3,189,192,7,189,224,7
10004 DATA189,224,15,189,240,31,189,248,63,189,252,7,189,224,0,60,0
10006 DATA 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
10007 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
10008 DATA 0,16,0,0,16,0,0,56,0,0,56,0,0,16,0,0,0
10010 DATA0,126,0,1,255,128,7,1,224,14,0,112,28,0,56,28,0,0,56,0,0,56,0,0,56,0
10011 DATA0,56,0,0,56,0,0,56,15,248,56,15,248,56,0,56,28,0,56,28,0,112,14,0,112
10012 DATA7,1,224,1,255,128,0,126,0,0,0,0
10014 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,24,0,0,24,0,0,24,0,0,24,0,0,24,0,0,60,0,0
10015 DATA90,0,0,153,0,1,24,128,2,24,64,4,24,32,8,24,16,16,24,8,32,24,4,192,24
10016 DATA3,192,24,3,255,255,255
10018 DATA252,0,0,63,240,0,15,252,0,7,255,128,3,255,240,1,255,248,0,255,252,0
10019 DATA127,254,0,63,254,0,63,255,0,63,255,0,63,255,0,63,255,0,127,254,0,127
10020 DATA254,0,255,252,1,255,248,3,255,224,7,255,128,31,248,0,254,0,0
stop tok64
(bastext 1.0)