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