home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Commodore 64 Scene Diskmags Assortment
/
Gurla_1_19xx_-.d64
/
f
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
4KB
|
87 lines
1 a=a+1:ifa=1thenload"l.sprite",8,8
2 a=0:print"[147]"
10 poke53281,11:poke53280,12:v=53248
12 poke2040,231:poke2041,232:poke2042,230:poke2043,231:poke2044,232:poke2045,230
13 pokev+29,36:pokev+28,36:pokev+39,0:pokev+40,0:pokev+42,0:pokev+43,0
14 pokev+37,7:pokev+38,14:pokev+16,0:pokev+1,237:pokev+3,225:pokev+5,223
16 pokev+7,237:pokev+9,225:pokev+11,223
30 x1=0:x2=37:x3=0:z1=0:z2=37:z3=0:r=0:k=0
49 pokev+21,63
50 a=a+1:onagosub100,200,220:geta$,a$,a$
55 geta$:ifa$<>""then90
60 x1=x1-1:ifx1=-1thene=1:gosub80:x1=f
62 x2=x2-1:ifx2=-1thene=2:gosub80:x2=f
64 x3=x3-1:ifx3=-1thene=4:gosub80:x3=f:iff=91thenx2=128:r=r+2
66 z1=z1-1.5:ifz1<0thene=8:gosub80:z1=f
68 z2=z2-1.5:ifz2<0thene=16:gosub80:z2=f
70 z3=z3-1.5:ifz3<0thene=32:gosub80:z3=f:iff=91thenz2=128:r=r+16
71 pokev+16,r:k=notk:poke2041,233+k:poke2044,233+k
75 pokev,x1:pokev+2,x2:pokev+4,x3:pokev+6,z1:pokev+8,z2:pokev+10,z3
76 goto55
80 f=eandr:iff=0thenr=r+e:f=91:return
82 r=r-e:f=255:return
89 goto55
90 ifa$="-"anda>1thena=a-2:goto50
91 ifa$="-"then55
94 ifa<3then50
95 pokev+21,0:pokev+23,0:pokev+29,0:pokev+28,0:print"[147]"
99 poke203,51:end
100 print"[147][144][176][192][178][192][178][192][178][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][178][192][178][192][178][192][174]";
101 print"{$7d}[176][189][176][189][176][189][155]Linja-autossa on tunnelmaa[144][173][174][173][174][173][174]{$7d}";
102 print"[173][177][192][177][192][177][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][177][192][177][192][177][189]"
104 print"[159] [214]irkamiesten lakko sekoitti rautatie-";
105 print"liikenteen pamixin tyyliin ja linja-au-";
106 print"toliikenteen harjoittajat kerasivat kas-";
107 print"soihinsa huomattavat rahasummat."
109 print" [153][197]sim. [210]eittille [203]uopio-[200]elsinki lahti";
110 print"21.4. Kuopiosta normaalin yhden tai kah-";
111 print"den auton sijaan viisi ihmisia pursuvaa";
112 print"linja-autoa. Varkaudessa letkaan liittyi";
113 print"kaksi autoa lisaa ja ylimaaraiset mat-";
114 print"kustajat jouduttiin varmaankin Mantsalan";
115 print"tienoilla sijoittamaan katolle. Silloin";
116 print"satoin niin ...tisti."
118 print" [159][204]inja-autolla paaset helpommin, sanoo";
119 print"mainos. Olen aivan samaa mielta. Paaset";
120 print"helpommin aikaiseen hautaan![152]"
124 print" [206]appaimella seuraava sivu ":return
200 print"[147] [159][207]letetaanpa, etta lahdet [200]elsingista";
201 print"vaikka juuri Kuopioon ja tyhmyyksissasi";
202 print"jatat oman auton ruostumaan sivutielle";
203 print"lahelle kotiasi ja ankeat bussiin. Lot-";
204 print"tovoittajan tuurilla saat viela paikan-";
205 print"kin ja vyoryt siihen. Siita alkaa karsi-";
206 print"mysnaytelma, silla kerran paikallesi is-";
207 print"tuttuasi et liikuttele jalkojasi enempaa";
208 print"kuin tekisit, jos ne olisi valettu se-";
209 print"menttiin ja olisit juuri tutustumassa";
210 print"[214]antaa-joen pohjamudan elamaan."
211 print" [211]uurinpiirtein [205]ikkelin tienoilla tu-";
212 print"leen ensimmainen tauko, joka saatta pe-";
213 print"lastaa sinut [152] [159]verenkiertohairioilta ja";
214 print"sydammentykytykselta. Jos jo tuolloin o-";
215 print"let liian heikossa kunnossa ettet pysty";
216 print"kyynerpaataktikoimaan itseasi rahvasta";
217 print"kuhisevasta[152] [159]bussista ulos, olisi parasta";
218 print"ryhtya vasaamaan testamenttia, silla"
219 print" [152] [206]appaimella seuraava sivu ":return
220 print"[147][159]jatkossa toiveet raittiista ilmasta ja";
221 print"jalkatilasta ovat vielakin heikommat,";
222 print"kuin matkan alussa."
223 print" [204]ahdit matkaan klo 9.50 ja olet peril-";
224 print"la noin 16.40 jos kuski kayttelee kaasu-";
225 print"jalkaansa saastobudjetista ja tutkista";
226 print"valittamatta. Olet siis seitseman tuntia";
227 print"yhta liikkumaton kuin isoisavainaa lau-";
228 print"tayksiossaan."
229 print" [202]os kohtalon oikusta olet viela hen-";
230 print"gissa paluumatkankin jalkeen, ovat van-";
231 print"daalit ryostaneen parin tonnin stereosi";
232 print"autostasi. [212]ai sitten koko auton."
233 print" [197]i taitaisi [197]kikaan lahtea bussilla";
234 print"ruuhkasta huolimatta, vaikka penskat";
235 print"kuinka kiljuisivat joo-jootaan. Siina";
236 print"saattaisi anoppi jaada lehdella soitte-";
237 print"lemaan."
238 print" [152] [206]appaimella sisallysluetteloon ":return