home *** CD-ROM | disk | FTP | other *** search
/ Floppy Magazine 1986 #2 / Floppy_Magazine_86-2_1986_Megasystems_Oy_fi.d64 / .ageadv4 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  16KB  |  388 lines
  1. 1 rem"           [201]lpon seikkailut
  2. 2 [143]"              mid$ukka (NULL)akki
  3. 10 ifjs=0then100
  4. 12 print"[147][144][201]lpon seikkailut jatkuvat taas"
  5. 13 print"seuraavassa numerossa."
  6. 20 ifjs=1thenjs=2:load"view.lda",8,1
  7. 25 ifjs=2thenjs=3:load"print.lda",8,1
  8. 29 poke646,peek(53281)
  9. 30 print"l[207]"chr$(34)"mx"chr$(34)",8
  10. 32 [153]"r(NULL)onononononononon"
  11. 34 [151]631,13:[151]632,13:[151]198,2:[128]
  12. 100 [137]10000
  13. 105 [156]:[134]b$(15):p[178]54272:[129]v[178]p[164]p[170]24:[151]v,0:[130]:[153][199](14);[199](8)
  14. 110 [153]"mid$a t[ss[ j[lleen right$lpon left$(NULL)right$(NULL)atn(NULL) seikkailut"
  15. 115 [153]"(NULL)ankarimme, joka vaaroja kaihtamatta"
  16. 120 [153]"ja usein my\s henkens[ vaarantaen"
  17. 125 [153]"taistelee peek(NULL)chr$:n agentteja vastaan,"
  18. 130 [153]"(kaiken lis[ksi my\s naurettan pienell[  tuntipalkalla.)"
  19. 135 [153]"on nyt (NULL)ank (NULL)\lteniss[."
  20. 140 [153]"(NULL)iime jaksossa j[imme siihen kun right$lpo"
  21. 145 [153]"yritti tavoittaa salaista asiamiest[."
  22. 150 [141]9000:[151]53281,14:[151]53280,15:[153]"loadstop"
  23. 160 [153]"(NULL)let nyt keskell[ toria"
  24. 165 [153]"(NULL)inne l[hdet:"
  25. 170 [153]"1...pohjoiseen":[153]"2...koilliseen"
  26. 172 [153]"3...it[[n":[153]"4...kaakkoon"
  27. 174 [153]"5...etel[[n":[153]"6...l[nteen":[153]"7...luoteeseen"
  28. 176 a[178]0:[133]a:[139]a[179]1[176]a[177]7[167]170
  29. 180 [153]"load(NULL)[hdit vika suuntaan, miliisipartio"
  30. 185 [153]"tulee sinua kohti."
  31. 190 [153]"(NULL)n my\h[ist[ k[[nty[":[153]"(NULL)it[ teet:"
  32. 195 [153]"1...k[velet pokkana eteenp[in"
  33. 200 [153]"2...olet tutkivinasi n[yteikkunaa"
  34. 205 [153]"3...heilautat k[tt[si ja sanot              -(NULL)trastuits-"
  35. 210 a[178]0:[133]a:[145]a[137]220,230,710
  36. 215 [137]210
  37. 220 [153]"load(NULL)ulet uudestaan torille.":[137]170
  38. 230 [153]"load(NULL)utkit n[yteikkunassa olevia kenki[."
  39. 235 [153]"(NULL)auppias huomaa sinut ja viittoilee"
  40. 240 [153]"tulemaan sis[lle puotiin."
  41. 245 [153]"(NULL)it[ teet :"
  42. 250 [153]"1...menet sis[lle":[153]"2...katselet kenki["
  43. 255 [153]"3...l[hdet jatkamaan matkaa"
  44. 260 a[178]0:[133]a:[145]a[137]280,270,160
  45. 265 [137]245
  46. 270 [153]"kauppias kutsuu sinua yh[.":[137]245
  47. 280 [153]"loadleft$[n vet[[ pimennysverhot alas.":[151]53281,11:[151]53280,11:[141]9000
  48. 285 [153]"loadprint#(NULL)auppias ohjaa sinut heti takahuoneeseen":[151]53281,0:[151]53280,0
  49. 290 [141]9000:[153]"loadsysmid$a sytytt[[ \ljylampun.":[141]9000
  50. 300 [153]"load- (NULL)uka sin[ olet ?"
  51. 310 a$[178]"":[133]a$:[139]a$[178]""[167]310
  52. 320 [139][200](a$,3)[178]"ilp"[176][200](a$,3)[178]"right$lp"[167]330
  53. 322 [153]"load- (NULL)let vakooja."
  54. 324 [141]9000:[153]"loadsys(NULL)auppias ottaa smitt&waitwessonin kuudes-"
  55. 326 [153]"tilaukeavan ja eliminoi sinut vakoojana.":[141]9000:[153]"stop"
  56. 328 [137]1200
  57. 330 [153]"load(NULL)ervetuloa (NULL)ank (NULL)\lteniin."
  58. 332 [153]"(NULL)in[ olen chr$regoly left$aywam."
  59. 334 [153]"(NULL)in[ olet siis se suomalainen agentti,"
  60. 336 [153]"joka on etsim[ss[ sit[ ohjusta..."
  61. 338 [153]"-olen jo l\yt[nyt sen ja pistin sen      [sken postiennakkona (NULL)uomeen-"
  62. 339 [153]" sanot."
  63. 340 [153]"left$aywam jatkaa :"
  64. 342 [153]"-(NULL)o seh[n on hyv[ juttu."
  65. 344 [153]"(NULL)ittenh[n s[ voit vied[ t[n salaisen"
  66. 346 [153]"viestin valnsiolle.":[141]9000
  67. 348 [153]"load(NULL)aat left$aywammilta ruskean kirjekuoren."
  68. 350 [141]9000:[151]53281,14:[151]53280,15
  69. 352 [153]"loadstopmid$a hetkess[ olet taas kadulla.":[137]700
  70. 360 [153]"loadstop(NULL)iliisit pys[ytt[v[t sinut ja koska"
  71. 362 [153]"paperisi ovat jossain peekurman viidakossa"
  72. 364 [153]"sinut heitet[[n putkaan."
  73. 366 [153]"atni atni paha juttu...":[141]9000
  74. 368 [141]10110:[151]53281,11:[151]53280,11:[153]"stop":[129]v[178]0[164]8
  75. 370 [153]"on(NULL)usr(NULL)usrusr(NULL)usrusr(NULL)usrusr(NULL)usrusr(NULL)usrusr(NULL)usrusr(NULL)usrusr(NULL)usrusr(NULL)usrusr(NULL)usrusr(NULL)usrusr(NULL)usrusr(NULL)usr"
  76. 375 [153]"onusr(NULL)usrusr(NULL)usrusr(NULL)usrusr(NULL)usrusr(NULL)usrusr(NULL)usrusr(NULL)usrusr(NULL)usrusr(NULL)usrusr(NULL)usrusr(NULL)usrusr(NULL)usrusr(NULL)usrusr":[130]
  77. 378 [129]v[178]0[164]3:[153]"print#on                                        ":[130]
  78. 379 [153][163]5)"ononononstepstop-tan<print#(NULL)cmdcmdcmdcmdcmdcmdstep stop-tan< print#(NULL)"
  79. 380 [153]"":[129]v[178]0[164]8:[153][163]25)"cmdcmdcmdcmdcmdcmdcmdcmdcmdcont stop cont stop cont stop cont stop cont ";:[130]
  80. 385 [153][166]255)[166]160)"waitolet putkassa":[141]9000
  81. 390 [141]10100:[151]53281,14:[151]53280,15:[153]"stop(NULL)let putkassa"
  82. 395 [153]"(NULL)it[ teet :"
  83. 400 [153]"1...katsot ulos kaltereiden v[list["
  84. 402 [153]"2...menet luukusta alas"
  85. 404 [153]"3...vartoot joskoha tapahtunna jotaan"
  86. 410 a[178]0:[133]a:[145]a[137]420,450,368
  87. 415 [137]400
  88. 420 [153]"load(NULL)[et miten vankilan pihalla on 5 vankia"
  89. 422 [153]"huput p[[ss[ ja"
  90. 424 [153]"3000 kiv[[rein aseistautunutta miest[."
  91. 426 [153]"(NULL)is[ksi pihalle astelee ihrapallo, h[n"
  92. 428 [153]"on peek(NULL)chr$:n paikallinen kiho."
  93. 430 [153]"tapahtumassa on toden n[k\isesti joukko-teloitus"
  94. 432 [153]"(NULL)[[t[t pelastaa vangit."
  95. 434 [153]"(NULL)utta miten ? (NULL)en on jokatapauksessa"
  96. 436 [153]"tapahduttava nopeasti.":[141]9000:[137]390
  97. 450 [151]53280,0:[151]53281,0:[153]"load"
  98. 455 [153]"(NULL)let vanhassa viem[riverkostossa"
  99. 457 [153]"kiipe[ yl\s."
  100. 460 [153]"mid$oystick portiin kaksi - paina fire ..."
  101. 465 n[178][194](56320)[175]16:[139]n[178]16[167]465
  102. 470 [153]"load":[129]v[178]0[164]9:[153]"usrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusr":[130]
  103. 475 [153]"":[129]v[178]0[164]9:a[178][187](0)[172]18:[153][163]a[170]1)"#cmd#on";[166]37[171]2[172]a)"#cmd#"
  104. 477 [130]
  105. 499 f[178]50176:x[178]20:y[178]21:g1[178]36:g2[178]37:g3[178]38:g4[178]39:z[178]40:[158]49219
  106. 500 gg[178]g1
  107. 510 [151]f[170]x[170]z[172]y,gg
  108. 520 n[178]15[171]([194](56320)[175]15):[139]n[179][177]1[175]n[179][177]2[175]n[179][177]4[175]n[179][177]8[167]s[178]0:[137]520
  109. 522 [139]y[178]2[167]650
  110. 524 [139](n[178]4[176]n[178]8)[175][194](f[170]y[172]z[170]x[170]1)[178]119[167]520
  111. 525 [139]n[178]4[175]x[177]1[167]x[178]x[171]1:s[178][171]1:[137]555
  112. 530 [139]n[178]8[175]x[179]38[167]x[178]x[170]1:s[178]1:[137]555
  113. 532 [139]n[178]1[167]590
  114. 533 [139]n[178]2[167]610
  115. 535 [137]520
  116. 555 [139]s[178][171]1[167][151]f[170]y[172]z[170]x[170]1,32:[137]570
  117. 560 [139]s[178]1[167][151]f[170]y[172]z[170]x[171]1,32
  118. 562 [139]gg[178]g1[167]gg[178]g2:[137]566
  119. 564 gg[178]g1
  120. 566 [139][194](f[170](y[171]1)[172]z[170]x[171]1)[178]35[167][151]f[170]y[172]z[170]x[171]1,35
  121. 568 [137]580
  122. 570 [139]gg[178]g3[167]gg[178]g4:[137]574
  123. 572 gg[178]g3
  124. 574 [139][194](f[170](y[171]1)[172]z[170]x[170]1)[178]35[167][151]f[170]y[172]z[170]x[170]1,35
  125. 580 [151]f[170]x[170]y[172]z,gg:[137]520
  126. 590 [139][194](f[170](y[171]1)[172]z[170]x)[178]35[167]y[178]y[171]1:[137]600
  127. 595 [139][194](f[170]y[172]z[170]x[170]1)[178]119[167]y[178]y[171]1:[137]600
  128. 597 [137]520
  129. 600 [151]f[170](y[170]1)[172]z[170]x,35:[137]580
  130. 610 [139][194](f[170]y[172]z[170]x[170]1)[178]119[167][151]f[170]y[172]z[170]x,35:y[178]y[170]1:[137]510
  131. 615 [139][194](f[170](y[170]1)[172]z[170]x)[178]35[167][151]f[170]y[172]z[170]x,32:y[178]y[170]1:[137]510
  132. 620 [137]520
  133. 650 [158]49390
  134. 655 [153]"load":[151]53281,14:[151]53280,15:[153]"loadstop":[151]198,0
  135. 660 [153]"(NULL)[[sit pakoon vankilasta.":[153]"(NULL)it[ teet nyt :"
  136. 662 [153]"1...menet paikalliseen (NULL)ax free-            myym[l[[n"
  137. 664 [153]"2...go to the restaurant":[153]"3...kysyt ohjeita valnsiolta"
  138. 668 [133]a:[145]a[137]670,762,863
  139. 669 [137]668
  140. 670 [153]"load(NULL)it[ ostat:"
  141. 671 [153]"1...valau de cologne    21..maisemakortti"
  142. 672 [153]"2...lasiastia         22..lippis"
  143. 673 [153]"3...tupakkaa          23..tinasotilas"
  144. 674 [153]"4...pullo right$(NULL)          24..tulitikkuja"
  145. 675 [153]"5...kukkopilli        25..mustekyn["
  146. 676 [153]"6...amuletti          26..sukat"
  147. 677 [153]"7...1 litra (NULL)inolia   27..puukko"
  148. 678 [153]"8...poron talja       28..torvi"
  149. 679 [153]"9...kukkaro           29..varmuusesine"
  150. 680 [153]"10..kynttil[njalka    30..tuhkakuppi"
  151. 681 [153]"11..kynttil[          31..pistooli"
  152. 682 [153]"12..(NULL)-paita           32..r[synukke"
  153. 683 [153]"13..(NULL)ossua            33..virsikirja"
  154. 684 [153]"14..koraani           34..linkkuveitsi"
  155. 685 [153]"15..taskulamppu       35..lenkkitossut"
  156. 686 [153]"16..(NULL)ravda            36..purukumia"
  157. 687 [153]"17..puukauha          37..avaimenper["
  158. 688 [153]"18..shekkivihko       38..punainen ruusu"
  159. 689 [153]"on19..len-kasetti         39..laturin hihna"
  160. 690 [153]"20..viiri             40..j[[tel\["
  161. 695 [137]750
  162. 700 [153]"(NULL)utta sill[ aikaa on astunut voimaan"
  163. 704 [153]"ulkonaliikkumiskielto.":[141]9000:[137]360
  164. 710 [151]p[170]5,88:[151]p[170]6,89:[151]p[170]4,129:[151]p,20:[151]p[170]1,25:[151]p[170]24,15
  165. 712 [129]r[178]0[164]50
  166. 715 [151]53270,([194](53270)[175]248)[170][187](0)[172]8:[151]p[170]24,15
  167. 720 [151]53265,([194](53265)[175]248)[170][187](0)[172]8:[151]p[170]24,0:[130]
  168. 725 [151]53270,([194](53270)[175]248)[170]0
  169. 726 [151]53265,([194](53265)[175]248)[170]3
  170. 730 [153]"load(NULL)iliisit luulivat sinua toisin-"
  171. 732 [153]"ajattelijaksi ja bolitboroon ohjeen"
  172. 734 [153]"mukaan toimivat ensin ja kysyv[t"
  173. 736 [153]"jos kysyv[t.":[141]9000:[137]1200
  174. 750 [133]a:[139]a[179]1[176]a[177]40[167][153]"onon":[137]750
  175. 752 [139]a[178]18[167]sv[178]1
  176. 754 [153]"load(NULL)ilautat (NULL)val(NULL)(NULL)right$(NULL)in luottokorttia ja"
  177. 756 [153]"myyj[ moikkaa sinulle, kyll[ turisti-"
  178. 758 [153]"myym[l[ss[ on nyky[[n helppoa asioida."
  179. 760 [141]9000:[153]"loadstop(NULL)yt voit hyv[ll[ mielin menn[           ravintolaan.":[141]9000
  180. 762 [153]"loadstopatnstut sis[lle ja napsautat sormiasi"
  181. 764 [153]"(NULL)arjoilijatar saapuu paikalle."
  182. 766 [153]"(NULL)ita teet :"
  183. 768 [153]"1...tilaat paukun":[153]"2...l[hdet pois"
  184. 770 [153]"3...nipist[t tarjoilijaa pepusta"
  185. 775 [133]a:[145]a[137]780,820,790
  186. 776 [137]775
  187. 780 [139]sv[167]810
  188. 782 [153]"loadmid$uuri oikea v[kevyys...mutta kun tulee"
  189. 783 [153]"maksun aika sinulla ei ole valuuttaa."
  190. 785 [153]"(NULL)arjoilijatar kutsuu paikalle portsarin"
  191. 786 [153]"joka saattaa sinut miliisin huostaan.":[141]9000:[137]368
  192. 790 [153]"loadleft$[n ymm[rt[[ aikeesi heti ja l[hdette"
  193. 792 [153]"h[nen asunnolleen."
  194. 794 [153]"(NULL)utta mieleesi muistuvat kauhukuvat"
  195. 796 [153]"hirveist[ taudeista, atnright$str$(NULL)ista ja muista"
  196. 798 [153]"sellaisista, niinp[ j[t[t lyylin        siihen paikkaan."
  197. 800 [153]"(NULL)ainen suutuu ja kutsuu paikalle        miliisit."
  198. 804 [153]"mid$a v[ist[m[t\n tapahtuu...":[141]9000:[137]368
  199. 810 [153]"load(NULL)ep[iset shekkivihkosta yhden paperin   ja se on sill[ selv[."
  200. 812 [137]764
  201. 820 [153]"load(NULL)iisas p[[t\s t[k[l[isiss[ paikoissa"
  202. 824 [153]"saa turpiinsa hyvin [kki[.":[141]9000
  203. 830 [153]"loadstop(NULL)yt on taas monta hommaa r[stiss[."
  204. 831 [153]"(NULL)it[is pelastaa ne teloitettavat vangit."
  205. 832 [153]"on(NULL)aada kirjekuori valnsiolle."
  206. 833 [153]"mid$a p[[st[ takaisin armaaseen kotomaahan."
  207. 840 [153]"right$lmeisestikin on parasta kysy[ neuvoa"
  208. 845 [153]"valnsiolta.":[141]9000
  209. 850 [153]"loadstop(NULL)utta koska puhelinlinjoja salakuunnel-"
  210. 852 [153]"laan jatkuvasti t[ytyy yhteys ottaa"
  211. 854 [153]"lenomputerillastopwait."
  212. 856 [153]"(NULL)utta sit[ ennen on l\ydett[v[ puhelin."
  213. 858 [153]"(NULL)ik[ onkin sin[ns[ melkoinen temppu,"
  214. 859 [153]"koska puhelintiheys t[ss[ valtiossa on"
  215. 862 [153]"luokkaa  1 puhelin/9000 henkil\[":[137]870
  216. 863 [153]"load(NULL)in[ et voi puhua puhelimeen, koska"
  217. 864 [153]"puhelinlinjoja kuunnellaan."
  218. 865 [153]"(NULL)iis k[yt[t tietokonetta yhteyden       otossa.":[137]856
  219. 870 [141]9000:[153]"loadstop(NULL)ist[ etsit puhelimen:"
  220. 872 [153]"1...synakoogasta.":[153]"2...maitokaupasta"
  221. 873 [153]"3...hotellista"
  222. 875 a[178]0:[133]a:[145]a[137]890,960,1180
  223. 877 [137]875
  224. 890 [153]"load(NULL)eit rikoksen joka  on sovitettava"
  225. 891 [153]"kuolemalla, astuit synakoogaan keng[t   jalassa."
  226. 892 [141]9000:[141]10110:[151]53281,11:[151]53280,11
  227. 894 [153]"load"[163]20)"stopnew  waitrnd   clrpospospos":[153][163]19)"stopget  def logwaitnewclr        stop  log"
  228. 896 [153][163]19)"get defor   clr        stop   log":[153][163]20)"def(NULL) waitstepgetclr  +     stop    "
  229. 898 [153][163]21)"defcosclrget +newnewnewnewnewstoprnd  *":[129]v[178]0[164]2
  230. 900 [153][163]25)"clrget +stopget  ":[130]:[153][163]20)"deftanwaitonrndcmdlogclr     +";
  231. 902 [153]"stopget     oncmdcmdcmdwaittoandpos":[153][163]20)"deftannewclr     *stoprnd   pos"
  232. 904 [153]""[163]10)"stop*newrndcmdcmdcmd  waitgetcmdcmdcmdcmdget (NULL)(NULL)cmdcmdcmdcmdget   cmdcmdcmdcmdget   "
  233. 905 [153][163]9)"*cos log":[129]v[178]0[164]3:[153][163]9)"get   waitget":[130]
  234. 906 [153][163]10)"cmdonlogcmdgettab(tab(tab(waitgetcmdcmdcmdcmdcmdget   waitgetcmdcmdcmdcmdrnd  ":[129]v[178]0[164]5
  235. 908 [153][163]10)"get +":[130]:[153][163]10)"print#get  waitnewcmdcmdcmdcmdgetwaitgetrnd  "
  236. 910 [153]""[163]9)"stopcoscmdcmdstep cmdcmd  ":[153][163]13)"ononlogwaitnewcmdcmd  defrnd*oncmdcmdcos "
  237. 912 [153][163]15)"for  cmdcmdcoswaitcoscmdcmd cmdcmdget cmdcmdint+cmdcmdget cmdcmdwaitlog waitrndcmdcmd";
  238. 914 [153]"rnd waitrndcmdcmdnewnew":p1$[178]"  cmdcmd  cmdcmdcmd   cmdcmdcmdcmd   cmdcmd  cmdcmd  cmdcmd   cmdcmd   cmdcmdcmd   "
  239. 915 p2$[178]"for cmd onwaitrndcmdrnd  usr  cmdcmdcmdcmdnewposnewwaitcosononcmd**oncmd waitgetoncmdcmd*get"
  240. 916 p3$[178]"for* waitcosoncmdnewcmdcmdonwait*  waitcosoncmdcmdcmd*  waitcosoncmdcmdcmdcos waitgetoncmdcmdcmd* +oncmdcmdcoswaitgetoncmdcmdgetwaitrndoncmdcmd*"
  241. 917 p4$[178]"newnewcmdcmdlog logcmdcmdwaitlog waitrndcmdcmd waitgetcmdcmdsgnabscmdcmd waitgetcmdcmd cmdcmdwait**cmdcmdfor  "
  242. 920 [129]v[178]0[164]500:[130]:[153]""[163]15)p1$
  243. 925 [153]""[163]17)p2$:[129]v[178]0[164]500:[130]:[153]"":[129]v[178]0[164]3
  244. 926 [153][163]17)"          ":[130]
  245. 930 [153]""[163]16)p3$:[129]v[178]0[164]500:[130]
  246. 932 [153]"":[129]v[178]0[164]8:[153][163]17)"     ":[130]:[153]""[163]15)p4$
  247. 934 [129]v[178]0[164]800:[130]:[153]""[163]16)p3$:[153]""[163]17)p2$
  248. 940 [151]53280,1:[151]53281,1:[151]p[170]5,0:[151]p[170]6,8:[151]p[170]4,129:[151]p[170]24,15
  249. 942 [151]p,200:[151]p[170]1,250:[151]p[170]4,128:[129]v[178]0[164]50:[130]:[151]53281,14:[151]53280,15
  250. 950 [141]10100:[137]1200
  251. 960 [153]"load(NULL)[k[l[inen maitokauppa on sama asia"
  252. 962 [153]"kuin (NULL)-kioski (NULL)uomessa."
  253. 964 [153]"(NULL)uitenkaan puhelinta ei hyllyst[ l\ydy."
  254. 968 [153]"(NULL)o h[t[h[n ei olen t[m[n n[k\inen."
  255. 970 [153]"right$lpohan on syntynyt kolvi kourassa."
  256. 972 [153]"(NULL)ohveliraudasta, hiustenkuivaajasta,"
  257. 973 [153]"matkaradiosta, taskulampusta,"
  258. 974 [153]"l[mp\tyynyst[ ja taskullisesta muita"
  259. 975 [153]"osia saa aikaan toivottavasti jotain."
  260. 980 [139]sv[167]990
  261. 982 [153]"(NULL)utta sinulla ei ole shekkivihkoa       mukanasi."
  262. 984 [153]"(NULL)iliisi pid[tt[[  sinut myym[l[varkau-"
  263. 985 [153]"desta. mid$a joudut putkaan.":[141]9000:[137]368
  264. 990 [141]9000:[153]"loadstopmid$onkin ajan kuluttua on puhelin valmis."
  265. 992 [153]"(NULL)yt ei muuta kuin etsim[[n puhelintolp- paa."
  266. 994 [153]"(NULL)o sellainen l\ytyy v[h[n matkan p[[st[.":[141]9000
  267. 996 [153]"loadstop(NULL)yt pit[[ luurista tulevat piuhat"
  268. 997 [153]"kytke[ johonkin kaapelissa kulkeviin    punavalkoraidallisiin"
  269. 999 [153]"piuhoihin ja maa johto siniseen tai     jos sit[closeei l\ydy niin sitte"
  270. 1000 [153]"mustaan johtoon (tai toisin p[in)."
  271. 1005 [153]"right$lpohan on itseoppinut s[hk\asentaja."
  272. 1010 [153]"left$[n on kehitt[nyt oivallisen menetelm[n"
  273. 1012 [153]"irtonaisten johtimien kiinnitt[miseen:"
  274. 1013 [153]"(NULL)e liitin, jossa ko. johto l[mpenee"
  275. 1015 [153]"v[hiten tai ly\ pienimm[n valokaaren on"
  276. 1017 [153]"todenn[k\isemmin oikea liitin."
  277. 1020 [141]9000:[153]"loadstopright$lpo kiipe[[ tolppaan (usein pikkupoi-
  278. 1022 print"kana [201]lpo harrasti omenapuihin kiipei-  ly[)."
  279. 1024 print"[203]oska tolpan nen[ss[ on hankala istua"
  280. 1026 print"on helpoita tuoda puhelinkaapeli alas."
  281. 1028 print"[211]e on ensin katkaistava, ett[ se yl\ttyy"
  282. 1030 print"[145]maahan asti.":gosub9000
  283. 1035 print"[147][144][201]lpollahan on aina muka [211][213][207][208][207] special   p[[te."
  284. 1037 print"kytket kaikki kamat yhteen, ja odotat."
  285. 1040 forv=0to500:next
  286. 1045 poke53280,0:poke53281,0:print"[147]"
  287. 1048 print"_*1!\+-[171] error error error"
  288. 1049 print"bad connection error file doesnot open":forv=0to3000:next
  289. 1050 print"l:l:hl:jhd:l:ljk:k:jkj:hjkjkjhkjhjhf:djh:kh:kjh:kh:kh:kjh:fh"
  290. 1051 print"l:l:hl:jhd:l:ljk:k:jkj:hjkjkjhkjhjhf:djh:kh:kjh:kh:kh:kjh:fh"
  291. 1052 print"l:l:hl:jhd:l:ljk:k:jkj:hjkjkjhkjhjhf:djh:kh:kjh:kh:kh:kjh:fh"
  292. 1053 print"l:l:hl:jhd:l:ljk:k:jkj:hjkjkjhkjhjhf:djh:kh:kjh:kh:kh:kjh:fh"
  293. 1054 print"l:l:hl:jhd:l:ljk:k:jkj:hjkjkjhkjhjhf:djh:kh:kjh:kh:kh:kjh:fh"
  294. 1055 print"l:l:hl:jhd:l:ljk:k:jkj:hjkjkjhkjhjhf:djkslslsuo@pkakh:kjh:fh"
  295. 1056 print"l:l:hl:jhd:l:ljk:k:jkj:hjkjkjhkjhjhf:djkdfdf..............fh"
  296. 1057 print"l:l:hl:jhd:l:ljk:k:jkj:hjkjkjhkjhjhf:ddsdfdgf...g..h..h...fh"
  297. 1058 forv=0to200:next:print"[147]@*[171][179][180][170][173]v";
  298. 1060 print"**** [211][213][207][208][207] [212][197][210][205][201][206][193][204] ****"
  299. 1072 print"telecommunication programm.":print"version v.1/04 11.06.73"
  300. 1074 poke198,0:print"please enter :"
  301. 1075 input"parity";a$:input"databytes";a$:input"stopbits";a$
  302. 1076 input"1- full 2- half";a$
  303. 1078 forv=0to500:printchr$(rnd(0)*90+32);:next
  304. 1079 forv=0to500:next:print"[147]"
  305. 1080 input"[213][211][197][210][206][193][205][197]";a$:ifleft$(a$,3)<>"age"thenprint"incorrect":goto1080
  306. 1085 input"[208][193][211][211][215][207][210][196]";a$
  307. 1090 ifleft$(a$,3)<>"ilp"andleft$(a$,3)<>"[201]lp"thenprint"incorrect":goto1080
  308. 1095 print"[170][164][223]!-  accept":print"wait a moment please....."
  309. 1098 forv=0to500:next
  310. 1100 b$(1)="taallaensiomillaihmeellasinaoikeinotatyh"
  311. 1101 b$(2)="teyttakaikkipaatteettaallamenijumiinsullaontietysikaikkiasetuksetmi"
  312. 1102 b$(3)="tensattuugregoglyhaymansoittijasanoisinullaolevanhuipputarkean"
  313. 1103 b$(4)="asiakirjanjokataytyysaadasuomeenniinpiaaankuinvainmahdollista"
  314. 1105 b$(5)="sekirotunohjustulijuuripostissasepitilunastaaarvaapapaljonkoposti"
  315. 1106 b$(6)="kulutolivatsinaolitlaittanutsenpikanavakuutettunajavaikkamiten"
  316. 1108 b$(7)="siinamenivatsinunpikkujoulurahasisorryjosnytp[[settakaisinmikaoli"
  317. 1109 b$(8)="sijosuotavaaminullaonsinullehommiamuutenalavainsotkeudumihinkaan"
  318. 1110 b$(9)="paikallisiintapoihintaiteloituksiinsiinasaattaakaydaniinhassusti"
  319. 1111 b$(10)="ettatulettakaisinlyijylaatikossa"
  320. 1112 b$(11)="sieltalahteejunajolataindraskwarthinasemaltatannesuomeen"
  321. 1113 b$(12)="jospaatietsinavoitsoillavaikaseeiolliohjusmuttasentuuloineajkldsj"
  322. 1114 b$(13)="kunvaupuhvupvfdhshjhjkjhjkjhkshfowjuwmsldiwjanclfoeiwjwjwjdkldj"
  323. 1115 b$(14)="vc.cv.v..d.d...........f...........g...........rr............."
  324. 1116 pokep+5,88:pokep+6,89:pokep+4,17:pokep+24,15:pokep,10:pokep+1,20
  325. 1117 forv=0to1500:next:pokep+24,0
  326. 1118 print"";
  327. 1119 fora=1to15:forx=1tolen(b$(a)):printmid$(b$(a),x,1);:forv=0to75:next:next
  328. 1120 next:sys49408:printchr$(9)
  329. 1122 printchr$(14);chr$(8)
  330. 1130 poke53281,14:poke53280,15:print"[147][144]"
  331. 1135 print"[214]ai pikku[202]oulurahat ohjukselunastamiseenpah ja pah"
  332. 1140 gosub9000:print"[147][144][206]yt tuli kiire jos aikoo ehti[ [202]ouluksi kotiin.":gosub9000
  333. 1145 print"[147][144][206]opeasti sinne rautatieasemalle.":gosub9000:gosub10110
  334. 1150 poke53281,3:poke53280,3:a$(1)="[144][209][157] [146][205][157][157][181][181]"
  335. 1152 a$(2)="[144][209][157] [146][205][157][157][181][205]":a$(3)="[157] [144][209][157][157][206] [146][157][157][206][170]"
  336. 1153 a$(4)=" [157][157]   [157][157][157]   "
  337. 1160 forx=2to37:print""tab(x-1)a$(4):print""tab(x)a$(1):forv=0to40:next
  338. 1162 print""tab(x)a$(2):forv=0to40:next:print""tab(x+1)a$(3)
  339. 1163 forv=0to40:next:next:gosub10100:poke53281,14:poke53280,15:print"[147][144]"
  340. 1170 print"[147][144][202]oulun j[lkeen tied[t miten ilpolle k[y.":gosub9000:js=1:goto10
  341. 1180 print"[147][212][[ll[ ei ole hotelleja vaan ainoastaan"
  342. 1182 print"majataloja."
  343. 1184 print"[202]a niiss[ on is[ntin[ niin vanhoillisia"
  344. 1186 print"tyyppej[, ett[ puhelinta ei sielt["
  345. 1188 print"l\ydy.":goto870
  346. 1200 print"[147][144][214]iel[k\ jaksat yritt[[ (k/e)":poke53281,14:poke53280,15
  347. 1205 poke198,0
  348. 1210 geta$:ifa$=""then1210
  349. 1212 ifa$="k"thenrun
  350. 1215 ifa$="e"thenjs=1:goto10
  351. 1220 goto1200
  352. 9000 print"[158]            paina jotain              "
  353. 9010 forv=0to50:next:poke198,0
  354. 9020 geta$:ifa$=""then9020
  355. 9030 return
  356. 10000 poke53281,0:poke53280,0:print"[147]":gosub10110
  357. 10020 print"[147]"tab(9)"[213][201] [213][201]   [213][192][192][192][201] [213][192][192][192][201]"
  358. 10022 printtab(9)"[221][221] [221][221]   [221][213][192][201][221] [221][213][192][201][221]"
  359. 10024 printtab(9)"[221][221] [221][221]   [221][202][192][203][221] [221][221] [221][221] [213][192][192][201]"
  360. 10026 printtab(9)"[221][221] [221][221]   [221][213][192][192][203] [221][221] [221][221] [202][192][192][203]"
  361. 10028 printtab(9)"[221][221] [221][202][192][201] [221][221]    [221][202][192][203][221]"
  362. 10030 printtab(9)"[202][203] [202][192][192][203] [202][203]    [202][192][192][192][203]"
  363. 10032 printtab(5)"[213][192][192][192][201] [213][192][192][192][201] [213][192][192][192][201]  [209] [209]  [213][192][201] [213][201]"
  364. 10034 printtab(5)"[221][213][192][192][203] [221][213][192][192][203] [221][213][192][201][221] [213][192][192][192][201] [221] [221] [221][221]"
  365. 10036 printtab(5)"[221][202][192][192][201] [221][202][192][201]  [221][221] [221][221] [221][213][192][201][221] [221] [202][201][221][221]"
  366. 10038 printtab(5)"[202][192][192][201][221] [221][213][192][203]  [221][221] [221][221] [221][202][192][203][221] [221][213][201][202][203][221]"
  367. 10040 printtab(5)"[213][192][192][203][221] [221][202][192][192][201] [221][202][192][203][221] [221][213][192][201][221] [221][221][202][201] [221]"
  368. 10042 printtab(5)"[202][192][192][192][203] [202][192][192][192][203] [202][192][192][192][203] [202][203] [202][203] [202][203] [202][192][203]"
  369. 10044 print"[213][192][192][201][213][192][192][201][213][201][213][201] [213][201][213][201] [213][201][213][192][192][201][213][201][213][201]  [213][201][213][201][213][192][192][192][192][201]"
  370. 10046 print"[145][221][213][192][203][221][213][192][203][221][221][221][221][213][203][221][221][221][213][203][221][221][213][201][221][221][221][221][221]  [221][221][221][221][202][192][201][213][192][203]"
  371. 10048 print"[145][221][202][192][201][221][202][201] [221][221][221][202][203][213][203][221][202][203][213][203][221][202][203][221][221][221][221][221]  [221][221][221][221]  [221][221]"
  372. 10050 print"[202][192][201][221][221][213][203] [221][221][221][213][201][202][201][221][213][201][202][201][221][213][201][221][221][221][221][221]  [221][221][221][221]  [221][221]"
  373. 10052 print"[213][192][203][221][221][202][192][201][221][221][221][221][202][201][221][221][221][202][201][221][221][221][221][221][221][221][221][202][192][201][221][202][203][221]  [221][221]"
  374. 10054 print"[202][192][192][203][202][192][192][203][202][203][202][203] [202][203][202][203] [202][203][202][203][202][203][202][203][202][192][192][203][202][192][192][203]  [202][203]"
  375. 10056 printtab(6)"[213][192][192][201][213][192][192][201][213][192][192][201] [213][201][213][201]  [213][201][213][201][213][201][213][192][192][201]"
  376. 10058 printtab(6)"[221][213][201][221][221][213][192][203][221][213][201][221] [221][221][221][221] [213][203][221][221][221][221][221][221][213][192][203]"
  377. 10060 printtab(6)"[221][221][221][221][221][202][192][201][221][202][203][221] [221][202][203][221] [221][213][203][221][202][203][221][221][202][192][201]"
  378. 10062 printtab(6)"[221][221][221][221][202][192][201][221][221][213][201][221] [202][192][201][221][213][203][221] [202][192][201][221][221][213][201][221]"
  379. 10064 printtab(6)"[221][202][203][221][213][192][203][221][221][221][221][221]   [221][221][221][213][203]   [221][221][221][202][203][221]"
  380. 10066 printtab(6)"[202][192][192][203][202][192][192][203][202][203][202][203]   [202][203][202][203]    [202][203][202][192][192][203]"
  381. 10067 forv=51480to51519:reada:pokev,a:next
  382. 10068 forv=0to4000:next:gosub10100:goto105
  383. 10100 print"[147]":poke56576,196:poke53272,19:poke648,196:print"[147]":return
  384. 10110 print"[147]":poke56576,199:poke53272,21:poke648,4:print"[147]":return
  385. 10120 data195,255,195,195,195,255,195,195,12,12,24,28,24,222,114,3
  386. 10125 data12,12,24,24,24,28,56,24,48,48,24,56,24,123,78,192
  387. 10130 data48,48,24,24,24,48,28,24
  388.