home *** CD-ROM | disk | FTP | other *** search
/ Commodore 64 Scene Diskmags Assortment / Gurla_1_19xx_-.d64 / j (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  9KB  |  192 lines
  1. 1 dim p(4),p1(4):poke53281,0:poke53280,11:v$="       "
  2. 3 gosub 131
  3. 5 geta$:ifa$=""then5
  4. 7 p(0)=1065:p(1)=1393:p(2)=1713:p(3)=1845:p(4)=1240:gosub67:fori=1to4:p1(i)=p(i)
  5. 9 pokep(i),81:pokep(i)+54272,6:next:pokep(0),42:pokep(0)+54272,7:p1(0)=p(0):nn=0
  6. 11 fori=1to4:a=int(4*rnd(1)):ifa=0thenp1(i)=p1(i)-40
  7. 13 ifa=1thenp1(i)=p1(i)+40
  8. 15 ifa=2thenp1(i)=p1(i)-1
  9. 17 ifa=3thenp1(i)=p1(i)+1
  10. 19 ifpeek(p1(i))<>32thenp1(i)=p(i):goto23
  11. 21 pokep(i),32:pokep1(i),81:pokep1(i)+54272,6:p(i)=p1(i)
  12. 23 next:nn=nn+1:ifnn>100then45
  13. 25 a=15-(peek(56320)and15):ifa=1thenp1(0)=p1(0)-40
  14. 27 ifa=2thenp1(0)=p1(0)+40
  15. 29 ifa=4thenp1(0)=p1(0)-1
  16. 31 ifa=8thenp1(0)=p1(0)+1
  17. 33 ifpeek(p1(0))<>32thenp1(0)=p(0):goto37
  18. 35 pokep(0),32:pokep1(0),42:pokep1(0)+54272,7:p(0)=p1(0)
  19. 37 b=-40:c=b:gosub47:b=-1:c=b:gosub47:b=40:c=b:gosub47:b=1:c=b:gosub47:goto11
  20. 39 print"[159]hyva selvisit!!  voit lukea kuullustelun"
  21. 41 geta$:ifa$=""then41
  22. 43 goto117
  23. 45 print"[159]etana!!!   nyt meni aivan liikaa aikaa!!":fori=0to2000:next:goto63
  24. 47 ifpeek(p(0)+b)<>32then51
  25. 49 b=b+c:goto47
  26. 51 ifpeek(p(0)+b)=81then57
  27. 53 ifpeek(p(0)+b)=43then39
  28. 55 return
  29. 57 fori=p(0)+b-ctop(0)step-c:pokei,46:pokei+54272,15:poke53280,1:poke53280,11
  30. 59 next
  31. 61 print"[159]mokasit!!  poliisi paasi ampumaan sinut!":fori=0to2000:next
  32. 63 geta$:ifa$=""then63
  33. 65 goto3
  34. 67 print"[147][149][176][192][192][192][192][174][176][192][192][192][192][178][192][192][192][192][192][192][192][178][192][192][192][192][192][178][192][192][192][192][178][192][192][192][192][192][192][192][192][174]"chr$(142);
  35. 69 print"[221]    [221][221]    [221]"v$"[221]     [221]    [221]"v$" [221]";
  36. 71 print"[173][178][192][174] [221][173][192][192][174] [221] [221] [176][192][174]    [176][174] [221] [192][192][192][189] [176][178][192][178][192][174] [221]";
  37. 73 print"[176][189] [221] [173][192][192][174][221]   [221] [221] [221] [176][174] [221][221]"v$" [173][189] [173][192][189] [221]";
  38. 75 print"[221]  [221]    [221][221] [192][192][179] [173][192][189] [173][189] [221][221] [173][178][178][192][192][192]"v$" [221]";
  39. 77 print"[171][192]   [176][174] [173][189]   [221]"v$" [221][221]  [173][189]    [176][192][192][192][192][192][192][179]";
  40. 79 print"[221]  [176][192][189][221]    [221]   [192][178][192][192][192] [192][179][171][192]    [176][192] [221]      [221]";
  41. 81 print"[221] [192][177][192][192][189] [176][192][192][189] [221]  [221]     [173][189]  [176][174] [221]  [171][192][192][192][192][174] [221]";
  42. 83 print"[221]"v$"[221]    [171][192]   [176][192][174]    [192][177][189]   [176][177][178][192][192][192][189] [221]";
  43. 85 print"[221] [176][174] [176][174]   [221] [176][179]  [221] [221] [221] [176][174]     [192][192][189] [221]     [221]";
  44. 87 print"[173][192][189][221] [221][173][192][174] [221] [221][173][192] [221] [221]   [221][221] [176][192][174]     [221] [176][178][192] [221]";
  45. 89 print"[176][192][192][189] [173][192][192][189] [221] [221]     [173][192][192][192][177][189] [173][174][173][174] [176][192][178][189] [221][221]  [221]";
  46. 91 print"[221]"v$"  [173][192][179] [221] [221]"v$"  [173][192][189] [173][192][189]  [221][221] [176][189]";
  47. 93 print"[221] [176][174] [176][192][192][174]   [221]   [171][192][192][192][192][192][192][192][174]"v$"  [176][189][221] [221] ";
  48. 95 print"[221] [173][179] [173][192][192][177][192][192] [171][192][174] [171][192][192][192][192][192][192][192][219][192][192][192][192][192][174] [221] [173][192][179] [221] ";
  49. 97 print"[221]  [221]"v$" [173][174][221] [221]"v$"[221]     [221] [221]   [221] [173][174]";
  50. 99 print"[221] [176][177][192][192][174] [176][192][174]  [221][221] [173][192] [192][178][192][192] [221] [176][192][174] [221]   [221]    [221]";
  51. 101 print"[221] [221]   [221] [221] [171][192] [173][189]     [221]   [221] [221][154]+[149][221] [171][192][192][192][189] [176][174] [221]";
  52. 103 print"[221] [221] [221] [173][192][189] [221]     [176][192][174] [171][192][192] [221] [221]   [221]     [173][189] [221]";
  53. 105 print"[221]   [221]"v$"[192][192][192] [173][178][189] [221]     [173][192][192][192][189] [192][178][192]    [221]";
  54. 107 print"[171][192][192] [221] [176][174] [176][174]      [221]  [221] [176][192][174]"v$" [221]  [176][174] [221]";
  55. 109 print"[221]   [221] [221][221] [173][189] [176][192][192][174] [221] [176][179] [173][192][189] [176][174] [176][174] [176][179] [176][219][189] [221]";
  56. 111 print"[221] [192][192][189] [221][221]    [173][192][192][189]   [173][189]     [221][221] [221][221] [173][189] [173][189]  [221]";
  57. 113 print"[221]     [221][173][192][192][174]      [221]    [176][192][192][192][189][221] [221][221]"v$"[176][189]";
  58. 115 print"[173][192][192][192][192][192][189]   [173][192][192][192][192][192][192][177][192][192][192][192][189]    [173][192][189][173][192][192][192][192][192][192][192][189]":return
  59. 117 ns$=" [151]      [206]appaimella seuraava sivu       ":a=1
  60. 119 on a gosub163,189,211,233,261,291,323
  61. 121 geta$:ifa$=""then121
  62. 123 if a$="-"thena=a-1:ifa=>1goto119
  63. 125 ifa<1then117
  64. 127 a=a+1:ifa<8then119
  65. 129 goto361
  66. 131 print"[147][154][176][192][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][178][192][178][192][178][192][178][192][174]"chr$(14);
  67. 133 print"{$7d}[176][189][176][189][176][189][176][189] CRAKERIN[160]KUULLUSTELU[154] [173][174][173][174][173][174][173][174]{$7d}";
  68. 135 print"[173][177][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][177][192][177][192][177][192][177][189]";
  69. 137 print"  [159]Ennen kuin voit iskea rasvaiset sorme-";
  70. 139 print"si kuullustelupoytakirjaan sinun on sel-";
  71. 141 print"vittava  arkistohuoneeseen,  sokkeloisen";
  72. 143 print"toimistorakennuksen lapi."
  73. 145 print"  [212]oimistossa  liikkuu  myos 4[154]  poliisia";
  74. 147 print"[159]sattumanvaraisesti  ja  typerasti, kuten";
  75. 149 print"oikeat[154] poliisitkin[159]. [202]os joudut nakoetai-";
  76. 151 print"syydelle[154] poliisista[159], se ampuu sinut, ku-ten ..."
  77. 153 print"  [193]rkisto on sinisella plussalla ([154]+[159]) va-rustettu huone."
  78. 155 print"  [201]tse olet  keltainen  tahti ([158]*[159]) ja oh-";
  79. 157 print"jaat itseasi joystickilla."
  80. 159 print"  [211]ticki kannattaa tunkea porttiin 2."
  81. 161 print" [151]        [208]aina jotain nappainta        ":return
  82. 163 print"[147] [155] [207]let nyt arkistolla ja hyllysta loytyy"chr$(14);
  83. 165 print"crakerin kuullustelu. Valitettavasti jo-";
  84. 167 print"ku on kayttanyt ensimmaiset sivut vessa-";
  85. 169 print"paperina ja et tieda kuka on kuullustel-";
  86. 171 print"tava crakkeri ja etta kuullustelu on ta-";
  87. 173 print"pahtunut tammikuun puolivalissa."
  88. 175 print"  [155][193]lat siis lukea kuullustelua.[151]":fori=0to39:print"-";:next
  89. 177 print"[154][208]oliisi: [211]ita on tullut crakkailtua,vai?";
  90. 179 print"[129][195]rakkeri: [206]o kyl ma nyt jotain."
  91. 181 print"[154][208]: [205]illoin tama  rikollinen toiminta al-koi? [205]ika oli ensimmainen?"
  92. 183 print"[129][195]: [197]n muista enaa kunnolla. [211]iita on pa-";
  93. 185 print"ri kolme vuotta. Se oli  VICilla  jotain";
  94. 187 print"ensimmaisia.":printns$:return
  95. 189 print"[147][154][208]: [205]ika se  [214][201][195]  on? [208]uhu kuusnelosesta,";
  96. 191 print"alaka yrita johtaa meita harhaan!"
  97. 193 print"[129][195]: [206]o vaikea muistaa. [202]otain helppoja neoli kumminkin."
  98. 195 print"[154][208]: [205]ista ohjelmat hankitaan? [193]siantunti-";
  99. 197 print"ja lausunnossa  sanotaan, etta tarvitaanalkuperaiskappalekin."
  100. 199 print"[129][195]: [203]ylla  sita  aina  joltain  kaveriltaloytyy."
  101. 201 print"[154][208]: [212]aidat  valehdella, ettei vain varas-tettaisi liikkeista?"
  102. 203 print"[129][195]: [197]i nyt  sellasta. [202]oskus  ostetaan ja";
  103. 205 print"sitten, ei toi hyva, ja palautetaan."
  104. 207 print"[154][208]: [211]ina taidat kuulua johonkin rikollis-";
  105. 209 print"koplaan?":printns$:return
  106. 211 print"[147][129][195]: [202]oo, tavallaan.":print"[154][208]: [205]ika on tunnus?"
  107. 213 print"[129][195]: [197]n ma tieda viittiiks sita sanoa."
  108. 215 print"[154][208]: [197]t vai sano!! [203]ylla meilla on keinot!"
  109. 217 print"[155](kuullusteltavaa pamputetaan)"
  110. 219 print"[154][208]: [208]aallikko  kaski jatkaa kuullustelua,";
  111. 221 print"juuri kun oli kivaa! [200]mmmr. [205]ita kaikkeaolet crakkaillut? [208]aljonkin?"
  112. 223 print"[129][195]: [203]yl nyt lahella sataa,  kasetteja  e-";
  113. 225 print"nemman ja disketteja jonkin verran."
  114. 227 print"[154][208]: [202]a mika oli tyon alla juuri ennen pi-";
  115. 229 print"datysta? tai mika on viimeisin?"
  116. 231 print"[129][195]: [214]iimeisin on [194]lade [210]unner.":printns$:return
  117. 233 print"[147][154][208]: [205]ikaan ei muka ollut tyon alla?"
  118. 235 print"[129][195]: [197]i ne yleensa kesta kauaa. [211]e on mel-";
  119. 237 print"keen tunti, kun ei ne viitti paljoo suo-";
  120. 239 print"jaa  niita. [214]iime  viikolla  ma duunasinton yhden diskin."
  121. 241 print"[154][208]: [203]aytatko jotain  apuohjelmia  toimin-nassasi?"
  122. 243 print"[129][195]: [202]oo, kylla ma kaytan.  [212]ota.... ekaks";
  123. 245 print"pitaa ottaa semmosella kaset to disk oh-";
  124. 247 print"jelmalla se  bootti  ja  sit sen jalkeen";
  125. 249 print"lahtee tsiikaa  mita  se  tekee.  Sit ma";
  126. 251 print"kaytan omaa konekielimonitoria."
  127. 253 print"[154][208]: [202]atka tunnustamista, kun kerran vauh-tiin paasit."
  128. 255 print"[129][195]: [197]ka siirretaan.... [206]iiku... [206]o jos se";
  129. 257 print"on  disketti  game  niin sitten lahetaan";
  130. 259 print"tsiigaa mita se tekee, kun tiedetaan ...":printns$:return
  131. 261 print"[147][129][195]: ... mika pitaa ladata niin sit pysty-";
  132. 263 print"taan lahtee seuraa  mita se tekee ja sit";
  133. 265 print"poistaa  sielta se  suojaus  tai kiertaa";
  134. 267 print"jotenkin tai  tehda ohjelma, joka  kopio";
  135. 269 print"sen disketin. Mut jos se on joku kasetti";
  136. 271 print"niin siita pitaa tehda levyversio."
  137. 273 print"[154][208]: [197]tko tee mitaan kasetille, kaikki le-vylle, vai?"
  138. 275 print"[129][195]: [197]i kasetilta kasetille oikeestaan ko-";
  139. 277 print"pioimista, kun voi  ottaa  audio-kopion.";
  140. 279 print"Se on nopein ja  helpoin tapa, mut ei ne";
  141. 281 print"oo aina  helppoa  kopsata kasetilta dis-kille."
  142. 283 print"[154][208]: [203]un joku  ohjelma  on  crakattu, niinmiten sita levitetaan?"
  143. 285 print"[129][195]: [205]a annan sen jollekin kaverille, joka";
  144. 287 print"antaa eteenpain ja se antaa eteenpain ja";
  145. 289 print"eteenpain.":printns$:return
  146. 291 print"[147][154][208]: [214]ai niin, ettei  vain  olisi olemassa'levitys mafiaa'?"
  147. 293 print"[129][195]: [197]i, se ois vahan rikollista, varmaan."
  148. 295 print"[154]P: Sina olet varmasti epaonnistunut jos-";
  149. 297 print"sain? tai ainakin ollut vaikeuksia."
  150. 299 print"[129][195]: [217]leensa  [196]atasoftit  on erittain vai-";
  151. 301 print"keita. Silloin kun tuli  Bruce Lee  niin";
  152. 303 print"sita ma en osannut tehda mutta puolvuot-";
  153. 305 print"ta myohemmin tuli  Datasoftilta yks toi-";
  154. 307 print"nen kasetti jossa oli sama suojaus, niin";
  155. 309 print"sit ma sain sen tehtya  ja muistin, etta";
  156. 311 print"samalla tavalla se [194]rucekin olis mennyt."
  157. 313 print"[154]P: Sinahan teet  omia ohjelmia. Eiko ole";
  158. 315 print"ikavaa jos joku crakkailee niita?"
  159. 317 print"[129][195]: [203]ysymys on siita, etta ma en oo lait-";
  160. 319 print"tanut niita sillatavalla  myyntiin, enka";
  161. 321 print"ma oo tehnyt niihin suojauksia niin ...":printns$:return
  162. 323 print"[147][129][195]: .... se  on vahan silleen talleen. [211]e";
  163. 325 print"on ihan sama mulle et crakkaaks tai kop-";
  164. 327 print"saaks joku niita  koska tavallaan ne tuo";
  165. 329 print"mainetta  enemmankin,  kun  rupee  tekee";
  166. 331 print"myohemmin hyvii ohjelmii niin jengi tie-";
  167. 333 print"taa etta se saattaa olla hyvaa softaa ja";
  168. 335 print"ostaa. [211]it niihin  voi  tehda  sellaiset";
  169. 337 print"suojaukset et sit niita ei pura itsekaan"
  170. 339 print"[154][208]: [207]nko sellainenkin mahdollista?"
  171. 341 print"[129][195]: [206]o kyl nyt omat  suojaukset aina pur-";
  172. 343 print"kaa mut kyl sa pysyt tekee niin vaikeeks";
  173. 345 print"et se on erittain hankalaa."
  174. 347 print"[154][208]: [200]aluaisit varmaan antaa aloittelevil-";
  175. 349 print"le crakkareille neuvoja ja vihjeita?"
  176. 351 print"[129][195]: [203]annattaa  mielellaan  aloittaa  hel-";
  177. 353 print"poista, jos  sellaista sattuu loytaa  ja";
  178. 355 print"konekielta on  pakko osata[151] [129] ja kannattaa";
  179. 357 print"tutkia  muitten ohjelmia, niin oppii ko-";
  180. 359 print"nekielta jos ei ennen sita osaa.":printns$:return
  181. 361 print"[147]  [152][206]yt on  kaynyt niin, etta  rotat  ovat";
  182. 363 print"syoneet  loput  kuullustelusta, joten sesiita."
  183. 365 print"  [206]yt voit tehda esim. seuraavaa:"
  184. 367 print"   1 [146] [153]lukea kuullustelun uudestaan"
  185. 369 print"   2 [146] [153]palata sisallyluetteloon"
  186. 371 print"   3 [146] [153]sammuttaa tietokoneen"
  187. 373 print"  [152][212]ee valintasi!"
  188. 375 geta$:ifa$<"1"ora$>"3"then375
  189. 377 ifa$="1"thena=int(3*rnd(1))+1:onagoto117,3,117
  190. 379 ifa$="3"thenprint"[147]  [206]o, sammuta koneesi [206][217][212]!":sys64738
  191. 381 poke203,51
  192.