home *** CD-ROM | disk | FTP | other *** search
/ Commodore 64 Scene Diskmags Assortment / Gurla_1_19xx_-.d64 / e (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  5KB  |  134 lines
  1. 12 poke53281,0:poke53280,11:fori=1to8:readb$(i):next:dataa,c,c,a,b,b,c,c
  2. 13 fori=1to8:readc$(i):next:datab,b,b,b,a,c,b,b
  3. 50 gosub500:a=0
  4. 52 geta$:ifa$=""then52
  5. 55 print"[147]";
  6. 60 a=a+1:print:onagosub514,518,522,526,531,535,539,543
  7. 70 geta$:ifa$<"a"ora$>"c"then70
  8. 75 a$(a)=a$:ifa<8then60
  9. 80 l=1:fori=1to8:ifa$(i)=b$(i)thena(l)=i:l=l+1
  10. 81 next:l=l-1:k=1:fori=1to8:ifa$(i)=c$(i)thenk=k+1
  11. 82 next:k=k-1:ifl<>0then200
  12. 85 ifk<>0then150
  13. 90 print"  [159][214]astauksesi menivat taysin oikein!"
  14. 100 print"[208]aaset tutustumaan [158][208]iraatin nurkka[159]an!
  15. 110 [161]a$:[139]a$[178]""[167]110
  16. 111 [137]250
  17. 150 [139]k[179]3[167][153]"  open(NULL)astauksissa oli pienta epatarkkuutta.":[137]100
  18. 155 [153]"  open(NULL)astauksesi menivat hieman pieleen."
  19. 157 [153]"(NULL)ikkuvirheita oli liikaa, joten et paase"
  20. 159 [153]"nakemaan sys(NULL)iraatin nurkkaopena. (NULL)oeta  kehit-"
  21. 160 [153]"taa itseasi hieman, ehka sitten paaset.":[137]240
  22. 200 a$[178]"kysymyksessa":[139]l[179][177]1[167]a$[178]"kysymyksissa"
  23. 210 [153]"  open(NULL)astauksesi todella olivat masentavia!"
  24. 211 [153]"vali sinulle voi sys(NULL)iraatin nurkkaaopen nayttaa."
  25. 215 [153]"left$aluatko tietaa missa "a$" moka-sit (k/e) ?"
  26. 220 [161]b$:[139]b$[179][177]"k"[175]b$[179][177]"e"[167]220
  27. 222 [139]b$[178]"e"[167]232
  28. 230 [153]"(NULL)okasit "a$":";:[129]i[178]1[164]l:[153]a(i);:[130]
  29. 232 [139]a$(8)[178]"c"[167][160]15:[159]15,8,15,"n:sikakopio":[137]300
  30. 233 [139]b$[178]"e"[167]50
  31. 240 [161]a$:[139]a$[178]""[167]240
  32. 242 [137]50
  33. 250 [141]600:[161]a$,a$,a$
  34. 255 [161]a$:[139]a$[178]""[167]255
  35. 256 [139]a$[178]"_"[167]50
  36. 257 [139]a$[178]"-"[167]250
  37. 260 [141]621:[161]a$,a$,a$
  38. 265 [161]a$:[139]a$[178]""[167]265
  39. 266 [139]a$[178]"_"[167]50
  40. 267 [139]a$[178]"-"[167]250
  41. 270 [151]203,51:[128]             
  42. 300 [153]:[129]i[178]0[164]999:[130]:[153]"(NULL)oska on syyta olettaa etta levyasemassa"
  43. 301 [153]"on laiton (?) kopio, ollaan  sita forma-"
  44. 302 [153]"toimassa. mid$os levy kuitenkin oli alkupe-"
  45. 303 [153]"rainen  niin  palauta  se  syschr$urlauspommiopenn"
  46. 304 [153]"toimitukseen nimella, osoitteella ja se-"
  47. 305 [153]"lityksella varustettuna. (NULL)oit  saada uu-"
  48. 306 [153]"den tilalle.":[158]64739
  49. 500 [153]"loadverifyor=tan=tan=tan=tan=tan=tantantantantantantantantantantantantantantantan=tan=tan=tan=tan=tan=^";
  50. 501 [153]"-exporexporexporexporexporexpsysPiraatin  nurkkaverify/^/^/^/^/^/<";
  51. 502 [153]"/tan>tan>tan>tan>tan>tantantantantantantantantantantantantantantantantantan>tan>tan>tan>tan>tan>"
  52. 503 [153]"  for(NULL)oska sys(NULL)iraatin  nurkkaopen forsisaltaa hieman"
  53. 504 [153]"arkaluonteista tekstia  pyydamme lukijaa"
  54. 505 [153]"vastaamaan seuraaviin kysymyksiin, jotta"
  55. 506 [153]"saamme tietaa  onko teksti sopivaa hanen"
  56. 507 [153]"luettavakseen. (NULL)yydamme  lukijaa olemaan"
  57. 508 [153]"rehellinen vastauksia antaessaan, vaikka"
  58. 509 [153]"valehdellessaan han ei huijaa muita kuin"
  59. 510 [153]"itseaan. (NULL)astaustensa perusteella lukija"
  60. 511 [153]"saa  pisteita, joista  riippuu saako han"
  61. 512 [153]"lukea jutun.":x$[178]"   sys"
  62. 513 [153]" poke       (NULL)appaimella kysymyksiin        ":[142]
  63. 514 [153]"sys1. print(NULL)stan ohjelmia"
  64. 515 [153]x$"a) saannollisesti"
  65. 516 [153]x$"b) joskus"
  66. 517 [153]x$"c) voiko niita ostaakin?":[142]
  67. 518 [153]"sys2. print(NULL)mistan kopioita"
  68. 519 [153]x$"a) yli 150"
  69. 520 [153]x$"b) alle 150"
  70. 521 [153]x$"c) tietaakseni kopiointi on laitonta":[142]
  71. 522 [153]"sys3.print (NULL)istan saamani ohjelmat kiertoon"
  72. 523 [153]x$"a) valittomasti"
  73. 524 [153]x$"b) kaverin tuotua minulle uusia"
  74. 525 [153]x$"c) en lainkaa, olen (NULL)oope":[142]
  75. 526 [153]"sys4. print(NULL)apaan  kaverini kahminassa salaa oh-";
  76. 527 [153]"   jelmiani. (NULL)ita teen?"
  77. 528 [153]x$"a) anna pain nakoa"
  78. 529 [153]x$"b) osoitan missa on 5 hirtta poikki"
  79. 530 [153]x$"c) naytan parempia ohjelmiani":[142]
  80. 531 [153]"sys5. print(NULL)aytan":[153]x$"a) 1541 backuppia"
  81. 533 [153]x$"b) str$isk to (NULL)ape copya"
  82. 534 [153]x$"c) jotain muuta":[142]
  83. 535 [153]"sys6. print(NULL)averillani on ohjelmia"
  84. 536 [153]x$"a) yhta paljon"
  85. 537 [153]x$"b) (NULL)atn(NULL)mid$(NULL)(NULL) vahemman"
  86. 538 [153]x$"c) enemman":[142]
  87. 539 [153]"sys7. print(NULL)tan vastaan ohjelmista"
  88. 540 [153]x$"a) kaikki mita saan kasiini"
  89. 541 [153]x$"b) vain parhaat"
  90. 542 [153]x$"c) (NULL)str$:t ((NULL)ublic str$omain)":[142]
  91. 543 [153]"sys8. print(NULL)ama syschr$(NULL)(NULL)(NULL)atn(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)right$ printon"
  92. 544 [153]x$"a) itse ostamani"
  93. 545 [153]x$"b) kaverilta lainassa"
  94. 546 [153]x$"c) kopioitu kaverilta":[142]
  95. 600 [153]"loadverifyor=tan=tan=tan=tan=tan=tantantantantantantantantantantantantantantantan=tan=tan=tan=tan=tan=^";
  96. 601 [153]"-exporexporexporexporexporexpsysPiraatin  nurkkaverify/^/^/^/^/^/<";
  97. 602 [153]"/tan>tan>tan>tan>tan>tantantantantantantantantantantantantantantantantantan>tan>tan>tan>tan>tan>"
  98. 603 [153]"  forlenommodore 64:n  pelivalikoima on erit-";
  99. 604 [153]"tain laaja ja jopa  Suomessa hyvin edus-";
  100. 605 [153]"tettu. Ainoa  hammastyttava piirre peli-";
  101. 606 [153]"viidakossa on kasettien ja kalvojen hui-";
  102. 607 [153]"kea hinta. Siksi kunnon syspiraatti forei kos-";
  103. 608 [153]"kaan vaivaudukaan ostamaan ohjelmistoaan";
  104. 609 [153]"vaan kopioi. On suoranainen synti raaha-";
  105. 610 [153]"ta rahansa pelien ja hyotyohjelmien myy-";
  106. 611 [153]"jille, kun samat ohjelmat  saa kuitenkin";
  107. 612 [153]"kavereilta muutaman viikon sisaan."
  108. 613 [153]"(NULL)iksi pelien hinnat ovat niin huimaavia?"
  109. 614 [153]"  (NULL)ietysti ohjelman tekemiseen on mennyt";
  110. 615 [153]"aikaa ja  rahaa, mutta  antaako  se syyn";
  111. 616 [153]"nostaa ohjelmien hinnat aivan alyttomik-";
  112. 617 [153]"si? Tukimpa. Meni taman sysGurlauspommifornkin";
  113. 618 [153]"tekemiseen seka  aikaa etta rahaa, mutta";
  114. 619 [153]"silti hinta on kohtuullinen."
  115. 620 [153]" poke      (NULL)appaimella seuraava sivu       ":[142]
  116. 621 [153]"load  for(NULL)uurin syy  ohjelmien ylihinnoitteluun";
  117. 622 [153]"lienee maahantuojien ja myyjien pohjatonahneus."
  118. 623 [153]"  (NULL)aahantuojat ja valmistajat kehittele-";
  119. 624 [153]"vat yha  monipuolisempia ja mahdottomam-";
  120. 625 [153]"pia suojausmenetelmia piratismin estami-";
  121. 626 [153]"seksi. Kaikkien  osapuolien kustannuksia";
  122. 627 [153]"voitaisiin  parhaiten saastaa jattamalla";
  123. 628 [153]"suojaukset sikseen, silla sellaista suo-";
  124. 629 [153]"jaa ei voi ohjelmaan  rakentaa, mita ah-";
  125. 630 [153]"kera piraatti ei kykene murtamaan."
  126. 632 [129]i[178]0[164]39:[153]"to";:[130]
  127. 633 [129]i[178]0[164]39:[153]"verifyusr";:[130]
  128. 634 [153]"  verify(NULL)mid$ pitaa seuraavia peleja kivoina:"
  129. 635 [153]"  vallite, peekoulderbash (kaikki), chr$uardian,";
  130. 636 [153]"The Hitch hiker's guide to the galaxy ja";
  131. 637 [153]"str$avid's midnight magic."
  132. 638 [153]" poke    (NULL)appaimella sisallysluetteloon    ":[142]
  133. 700 leikitko [191]a jotain piraatia, vai mita [191]a naita luet
  134.