home *** CD-ROM | disk | FTP | other *** search
/ Commodore 64 Scene Diskmags Assortment / Gurla_1_19xx_-.d64 / g (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  5KB  |  100 lines
  1. 10 a=a+1:ifa=1thenload"liike.sprite",8,8
  2. 11 dima$(24):fori=0to12:reada$(i):next:data"[199]",u,r,l,a,u,s,p,o,m,m,i,"[145]"
  3. 15 n$="        [206]appaimella seuraava sivu      "
  4. 20 poke53281,14:poke53280,6:v=53248:fori=2040to2047:pokei,230:next
  5. 25 pokev+28,15:pokev+37,11:pokev+38,0:fori=39to46:pokev+i,12:next:a=0
  6. 26 t=2:pokev+21,15:pokev+27,15:xx=-1:yy=1:x3=30:y3=51
  7. 50 a=a+1:onagosub100,200,410,600
  8. 60 geta$:ifa$=""thengosub150:goto60
  9. 65 ifa$="-"thena=a-2:ifa<0thena=0
  10. 67 ifa<4then50
  11. 70 fori=24to1step-1:poke781,i:sys59903:forj=0to50:next:next
  12. 75 fori=y1to0step-1:pokev+1,i:next:fori=y2to0step-1:pokev+3,i:next
  13. 76 fori=y3to0step-1:pokev+5,i:next:fori=y4to0step-1:pokev+7,i:next
  14. 78 pokev+21,1:pokev+29,1:pokev+23,1:pokev,150:pokev+16,0:pokev+27,0:print"[147][158]";
  15. 79 fori=0to50:pokev+1,i:next
  16. 80 fori=0to24:printspc(18)a$(i):forj=0to7:pokev+1,i*8+j+50:next:next:pokev+21,0
  17. 99 poke203,51:end
  18. 100 print"[147][156][176][178][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][178][192][178][192][178][192][178][174]";
  19. 101 print"[171][189][176][189][176][189][176][189][153]Kiertoa  mikroliikkeissa[156][173][174][173][174][173][174][173][179]";
  20. 102 print"[173][192][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][177][192][177][192][177][192][189]"
  21. 104 print"  Kun teimme [158]Gurlauspommia joiduimme et-";
  22. 105 print"simaan halpoja diskeja, jotta pitaa hin-";
  23. 106 print"nan nain edullisena. Tassa on nyt pienia";
  24. 107 print"kokemuksia ja mielipiteita kiertamistani";
  25. 108 print"liikkeista.  Paiva oli  tiistai 13.5. ja";
  26. 109 print"aika 12.00 eteenpain.":print"[149][199]raniittitalon [195]hipper"
  27. 113 print"  [204]iike on varkaan  unelma. [208]aikasta oli";
  28. 114 print"voinut kavella ulos vaikka [195][194][205]128 kaina-lossaan."
  29. 116 print"  Liikkeessa ei ollut ketaan kun saavuin";
  30. 117 print"sinne. Noin 5 minuutin odotuksen jalkeen";
  31. 118 print"takahuoneesta tuli  myyja, joka  selitti";
  32. 119 print"ettei  ole myyja. Oikea myyja oli kuulma";
  33. 120 print"takahuoneessa  esittelemassa laitteistoaasiakkaalle."
  34. 122 print"  [203]ysyessani halvimpia  diskeja, tarjosi":printn$:return
  35. 150 x1=80*cos(5*t)+150:y1=50*sin(4*t)+150:pokev,x1:pokev+1,y1:t=t+.01
  36. 155 x2=x2+1.3:ifx2>255thenx2=0:pokev+16,peek(v+16)or2
  37. 156 if(peek(v+16)and2)=2andx2>100thenx2=10:pokev+16,peek(v+16)-2
  38. 158 y2=y2+0.8:ify2>255theny2=10
  39. 159 pokev+2,x2:pokev+3,y2
  40. 160 x3=x3+xx:ifx3>254thenxx=-1
  41. 161 z=int(255*rnd(1))+1:ifx3=zthenxx=-xx
  42. 163 ifx3<25thenxx=1
  43. 164 y3=y3+yy:ify3<50ory3>229thenyy=-yy
  44. 165 pokev+4,x3:pokev+5,y3
  45. 169 x4=x4+int(10*rnd(1))-5:ifx4>255and(peek(v+16)and8)=0thenx4=0:pokev+16,peek(v+16)or8
  46. 170 ifx4>90and(peek(v+16)and8)=8thenx4=0:pokev+16,peek(v+16)-8
  47. 171 ifx4<0and(peek(v+16)and8)=8thenpokev+16,peek(v+16)-8:x4=255:goto173
  48. 172 ifx4<0and(peek(v+16)and8)=0thenpokev+16,peek(v+16)or8:x4=90
  49. 173 y4=y4+int(10*rnd(1))-5:ify4>229theny4=229
  50. 174 ify4<50theny4=50
  51. 175 pokev+6,x4:pokev+7,y4
  52. 199 return
  53. 200 print"[147]myyja  (se vaara) heti  [195]hipper-diskeja.";
  54. 210 print"Yksi maksoi  19,- ja sata  olisi  saanut";
  55. 220 print"hintaan 14,- / kpl. Jos  olisi  halunnut";
  56. 230 print"diskeja alta  kympin olisi pitanyt ostaayli tuhat."
  57. 250 print"  Myyja oli ystavallinen ja avulias jopa";
  58. 260 print"soitti  jonnekin  kysyen voisiko  hintaalaskea.":print"[149][204]aser [211]hop"
  59. 290 print"  Loydettyani tien  Sokoksen tehokkaasti";
  60. 300 print"piilotettuun pohjakerrokseen paadyin pi-meaan [204]aser [211]hoppiin."
  61. 320 print"  Harhailtuani  pimeydessa   aikakausia,";
  62. 330 print"nain valon!!  Valo tuli taka/varastohuo-";
  63. 340 print"neesta jossa jotkut tutkivat innokkaasti";
  64. 350 print"tietokoneita. En kuitenkaan mennyt sinne";
  65. 360 print"vaan jatkoin harhailuani  miellyttavassa";
  66. 370 print"mustuudessa, kunnes tormasin myyjaan."
  67. 380 print"  Diskeja olisi saanut a 13,- mutta pal-";
  68. 390 print"jousalennuksista  ei  ollut  tietoakaan,":printn$:return
  69. 410 print"[147]koska hinta oli jo erikoistarjous. [208]ois-";
  70. 420 print"tuin  silmia hivelevasta pimeydesta raa-kaan auringonpaisteeseen."
  71. 440 print"[149][199]ame [211]tation"
  72. 450 print"  [204]iikkeessa oli jopa ihmisia (jos niita";
  73. 460 print"videopelihulluja  pentuja  voi ihmisiksikutsua)."
  74. 480 print"  Myyja ilmestyi hetken kuluttua paikal-";
  75. 490 print"leen  ja esitin kysymyksen  disketeista.";
  76. 500 print"Vastausta  en jaksanut  kuunnella, koska";
  77. 510 print"myyja oli todella  toykea ja epaystaval-";
  78. 520 print"linen. Tama  saattoi  johtua siita, etta";
  79. 530 print"hanella  taisi  olla ruokatunti, ainakin";
  80. 540 print"han mutusti omenaa henkensa edesta."
  81. 550 print"[149][193]sematunnelin [195]hipper"
  82. 560 print"  Ensimmaisella yrityksella ei liikkees-";
  83. 570 print"sa ollut myyjaa ja ovi oli lukossa, eika";
  84. 580 print"mitaan syyta ollut nakyvissa.":printn$:return
  85. 600 print"[147]  [208]uolta tuntia myohemmin sisaan jo paa-";
  86. 610 print"sikin  ja ystavalliselta  tuntuva  myyja";
  87. 620 print"tarjosi  Basfheja 14,- kpl. Paljousalen-";
  88. 630 print"nuksia ei  loytynyt  mutta avuliaisuuttakyllakin."
  89. 650 print"[149][205]ikronia ([193]kateeminen kirjakauppa)"
  90. 660 print"  [205]ikroniassa oli muutama asiakas ja pa-";
  91. 670 print"ri myyjaa. Ruotsalaisittain aantava myy-";
  92. 680 print"ja selitti diskien maksavan 19 mk/kpl ja";
  93. 690 print"paljousalennusten  sijasta  sai kymmenen";
  94. 700 print"ostaja kaupanpaalle puhdistusdisketin."
  95. 710 print"  Tassa vaihessa olin jo niin rasittunut";
  96. 720 print"(suuta kuivasi, jalkoja sarki) etten  e-";
  97. 730 print"naa jaksanut tutustua useampaan liikkee-seen."
  98. 750 print"  [203]ierroksen vahvin  anti oli: diskit o-vat helvetin kalliita."
  99. 770 print"     [206]appaimella sisalmysluetteloon    ":return
  100.