home *** CD-ROM | disk | FTP | other *** search
/ Floppy Magazine 1986 #1 / Floppy_Magazine_86-1_1986_Megasystems_Oy_fi.d64 / mx (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  4KB  |  125 lines
  1. 100 ifsy=1thengosub940:sysv
  2. 110 ifsy=2thenpoke56,160:poke52,160:new
  3. 120 poke56576,196:poke53272,19:poke648,196:poke53280,4:poke53281,7
  4. 130 x=-1:print"[147]";
  5. 140 reada$,a$,a:ifa=>.thenx=x+1:goto140
  6. 160 poke56576,196:poke53272,19
  7. 170 restore:dim n$(x),f$(x),e(x)
  8. 180 fort=.tox:readn$(t),f$(t),e(t):next
  9. 190 cd$=""
  10. 200 poke53280,4:poke53281,7
  11. 201 print"[147][156] [176][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][192][192][192][192][192][192][192][192][174] ";
  12. 202 print" [221]       [198][204][207][208][208][217] [205][193][199][193][218][201][206][197] 1/1986  [156]     [221] ";
  13. 210 print" [173][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][192][192][192][192][192][192][192][192][189] ";
  14. 220 print"[156]                                        "
  15. 230 printcd$;"[156]                                        [146]";
  16. 240 print"[156] [176][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][192][192][192][192][192][192][192][192][174] ";
  17. 250 print" [221][167][167][170][170][182][182][161][161][146]  ([195])  [208]rotocol [207]y [146] [161][161][181][181][180][180][165][165][156][221] ";
  18. 260 print"[156] [173][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][192][192][192][192][192][192][192][192][189]"left$(cd$,12)
  19. 270 t=.:n0=.
  20. 280 printtab(4)n$(t):ift=xort=8thengosub920:goto300
  21. 290 t=t+1:goto280
  22. 300 geti$:ifi$=""then300
  23. 310 i=asc(i$):ifi=17then360
  24. 320 ifi=145then390
  25. 330 ifi=13then430
  26. 340 ifi=32thenpm=1:goto430
  27. 350 goto300
  28. 360 ifn0=xthen300
  29. 370 n0=n0+1:gosub930:sys16240:gosub920:ifn0+8>xthen300
  30. 380 printleft$(cd$,21)tab(4)n$(n0+8):goto300
  31. 390 ifn0=.then300
  32. 400 n0=n0-1:gosub930:sys16304:gosub920:ifn0<8then300
  33. 410 print"    "n$(n0-8):goto300
  34. 430 rem
  35. 450 v=e(n0):f$=f$(n0)
  36. 455 ifright$(f$,2)=".n"thenpoke816,165:poke817,244:f$=left$(f$,len(f$)-2)
  37. 460 rem 0=nothing/1=help/2=music/3=load by ,8/4='' ,8,1/5=text file/>5=load+sys
  38. 470 onv+1goto300,630,620,570,610,490
  39. 480 gosub860:sy=1:loadf$,8,1
  40. 490 gosub860:f$=f$+",s":gosub500:goto200
  41. 500 ifpmthenpm=.:goto520
  42. 510 open1,8,0,f$:sys16384:return
  43. 520 print"[147][212]ulostetaanko teksti (k/e) ?  [146][157]";
  44. 530 geta$:ifa$="e"thenreturn
  45. 540 ifa$<>"k"then530
  46. 550 printa$;:open2,4,7:open1,8,0,f$
  47. 560 sys16128:close1:close2:return
  48. 570 gosub860:poke648,4:print"[147]"
  49. 580 poke631,13:poke632,13:poke633,13:poke198,3
  50. 590 print"p[207]56,160:p[207]52,160:clr:load"chr$(34)f$chr$(34)",8"
  51. 600 print"p[207]56576,151:p[207]53272,21:r[213]":end
  52. 610 gosub940:sy=2:loadf$,8,1
  53. 620 gosub890:goto300
  54. 630 print"[147][182][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][181]";
  55. 640 print"[182]                [193][208][213][193]                  [181]";
  56. 650 print"[182]  [175][175][175][175][175][175]                              [181]";
  57. 660 print"[182]   [195][210][211][210] [146] - [206][pp[in liikuttaa valikkoa [181]";
  58. 670 print"[182]  [183][183][183][183][183][183]   yl\s alas.                 [181]";
  59. 680 print"[182][175][175][175][175][175][175][175][175]                              [181]";
  60. 690 print"[182] [210][197][212][213][210][206] [146] - [206][pp[imell[ voit lukea     [181]";
  61. 700 print"[182][183][183][183][183][183][183][183][183]   t[hden osoittaman          [181]";
  62. 710 print"[182]           artikkelin tai k[ynnist[[  [181]";
  63. 720 print"[182]           ohjelman.                  [181]";
  64. 730 print"[182] [175][175][175][175][175][175][175]                              [181]";
  65. 740 print"[182]  [211][208][193][195][197] [146] - [206][pp[in toimii samoin kuin [181]";
  66. 750 print"[182] [183][183][183][183][183][183][183]    [210][197][212][213][210][206] [146] mutta tulostaa    [181]";
  67. 760 print"[182]           artikkelin printterille.   [181]";
  68. 770 print"[182]                                      [181]";
  69. 780 print"[182]           [193]rtikkelia lukiessasi saat [181]";
  70. 790 print"[182]           lis[ohjeita  [198] 8 [146] n[pp[i-  [181]";
  71. 800 print"[182]           mell[.[212]akaisin valikkoon   [181]";
  72. 810 print"[182]           p[[set  [198] 6 [146] n[pp[imell[.  [181]";
  73. 820 print"[182][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][181]"
  74. 830 print"paina  [210][197][212][213][210][206] [146]
  75. 840 [161]a$:[139]a$[178]""[167]840
  76. 850 [137]200
  77. 860 rk[178][181]([187]([255])[172]1)[170]1:[141]900
  78. 870 v$[178]"mainos"[170][201]([196](rk),1)
  79. 880 [159]1,8,2,v$[170]",s":[158]17408:[142]
  80. 890 [139][194](788)[178]49[167][158]32787:[142]
  81. 900 [158]16225:[151]54296,0:[142]
  82. 920 [153][200](cd$,13)"  *":[142]
  83. 930 [153][200](cd$,13)"    ":[142]
  84. 940 [151]56576,151:[151]53272,21:[151]648,4:[153]"load":[142]
  85. 950 [131] "contatn(NULL)(NULL)atn","",1
  86. 960 [131] "","",0
  87. 970 [131] "(NULL)(NULL)(NULL)(NULL)right$(NULL)mid$(NULL)right$(NULL)(NULL)(NULL)",paakirjoit*,5
  88. 980 [131] "","",0
  89. 990 [131] "cont(NULL)atn(NULL)(NULL)(NULL)atn(NULL)(NULL)(NULL)right$right$(NULL)(NULL)right$","",2
  90. 1000 [131] "","",0
  91. 1010 [131] "atn(NULL)(NULL)right$(NULL)(NULL)val(NULL)right$(NULL)","",0
  92. 1015 [131] "","",0
  93. 1020 [131] " (NULL)eikkailupelien tekeminen",adv.teke*,5
  94. 1030 [131] " (NULL)evyaseman kova kohtalo",1541-*,5
  95. 1032 [131] " left$enkil\kohtaiset robotit",robot,5
  96. 1090 [131] "","",0
  97. 1100 [131] "stop(NULL)atn(NULL)(NULL)(NULL)atn(NULL)","",0
  98. 1101 [131] "","",0
  99. 1110 [131] " (NULL)iksipalsta",niksit*,5
  100. 1125 [131] "","",0
  101. 1130 [131] "(NULL)left$mid$val(NULL)(NULL)atn(NULL)","",0
  102. 1135 [131] "","",0
  103. 1140 [131] " (NULL)appipeli",nappipeli,3
  104. 1200 [131] " (NULL)uvaruutu print-lauseiksi",ruutu pr,3
  105. 1210 [131] " atnutobootin tekij[",autobo*,3
  106. 1211 [131] " (NULL)eikkausten tekij[",veikk*,3
  107. 1212 [131] " (NULL)evyk[skyt basiciin",levy*,3
  108. 1213 [131] " (NULL)rphic",orphicloader,3
  109. 1214 [131] " (NULL)ound editor",zound editor,3
  110. 1215 [131] " (NULL)atzy",yatzy,3
  111. 1216 [131] " (NULL)ikkupeli",tikkupeli,3
  112. 1220 [131] "","",0
  113. 1230 [131] "(NULL)left$mid$valval(NULL)","",0
  114. 1235 [131] "","",0
  115. 1240 [131] " (NULL)ound editor",zound editor.txt,5
  116. 1241 [131] " (NULL)atzy",jatsi,5
  117. 1242 [131] " (NULL)uvaruutu print-lauseiksi",ruutu pr.txt,5
  118. 1243 [131] " atnutoboot",autobootohje,5
  119. 1244 [131] " (NULL)eikkaus",veikkausohje,5
  120. 1245 [131] " (NULL)appipeli",nappipeliohje,5
  121. 1246 [131] " (NULL)aksintaistelu",kaksintaistohje,5
  122. 1247 [131] " asc(NULL) 5/85 teksturin ohje osa 1",txtkasohje1,5
  123. 1248 [131] " asc(NULL) 5/85 teksturin ohje osa 2",txtkasohje2,5
  124. 1280 [131] "","",-1
  125.