home *** CD-ROM | disk | FTP | other *** search
/ Floppy Magazine 1986 #2 / Floppy_Magazine_86-2_1986_Megasystems_Oy_fi.d64 / mx (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  4KB  |  136 lines
  1. 1 x=-1
  2. 2 reada,a$,a$,b:ifa<>6thenx=x+1:goto2
  3. 4 fori=51944to51951:pokei,24:next
  4. 5 fori=51952to51959:pokei,255:next
  5. 90 poke 56576,196:poke 53272,19:poke 648,196
  6. 100 print"[147]";:poke 53280,14:poke 53281,15
  7. 110 restore:dim v(x),n$(x),f$(x),e%(x)
  8. 130 fort=0tox:readv(t),n$(t),f$(t),e%(t):next:goto900
  9. 900 cd$=""
  10. 1000 print"[147][144]            [198][204][207][208][208][217] [205][193][199][193][218][201][206][197]"
  11. 1001 print"        [206]umero 2,   [212]oukokuu/1986"
  12. 1002 print"[154][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][192][192][192][192]"
  13. 1003 printcd$;"[154][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][192][192][192][192]";
  14. 1004 print"  [204]iiku kursoreilla,valitse returnilla"
  15. 1005 print"        [204]is[[ infoa kohdasta apua"
  16. 1006 print"[152]             ([195]) [205]egasystems [146]"left$(cd$,12)
  17. 1007 poke 53248+32,14:poke 53248+33,15
  18. 1010 t=0:n0=0
  19. 1011 printtab(4)n$(t):ift=xort=8thengosub9000:goto1100
  20. 1012 t=t+1:goto1011
  21. 1100 get i$:if i$="" then 1100
  22. 1120 i=asc(i$):if i=17 then 2000:rem yl
  23. 1130 if i=145 then 2100:rem alas
  24. 1140 if i=13 then 2200
  25. 1150 if i=32 then pm=1:goto 2200
  26. 1200 goto 1100
  27. 2000 if n0=x then 1100
  28. 2020 n0=n0+1:gosub9010:sys16240:gosub9000:ifn0+8>xthen 1100
  29. 2030 printleft$(cd$,21)tab(4)n$(n0+8):goto1100
  30. 2100 if n0=0 then 1100
  31. 2120 n0=n0-1:gosub9010:sys16304:gosub9000:if n0<8 then 1100
  32. 2130 print"    "n$(n0-8):goto1100
  33. 2200 v=v(n0)
  34. 2205 ifv=5thengosub6000:goto1000
  35. 2210 ifv=.then3000
  36. 2300 if e%(n0)=9then1100
  37. 2302 on e%(n0)goto1,2500,2600,2700,2800,3500,3600,3800,1000
  38. 2305 f$=f$(n0)+",s":gosub2310:goto1000
  39. 2310 if pm=1 then pm=.:goto2340
  40. 2330 open 1,8,0,f$:sys16384:return
  41. 2340 print"[147][212]ulostetaanko teksti (k/e) ?  [146][157]";
  42. 2350 geta$:ifa$="e"thenreturn
  43. 2360 ifa$<>"k"then2350
  44. 2370 printa$;:open2,4,7:open1,8,0,f$
  45. 2390 sys 16128:close1:close2:return
  46. 2500 poke648,4
  47. 2510 print"[147]                                       ";:print"
  48. 2520 [151]631,13:[151]632,13:[151]198,2
  49. 2530 [153]"poke56,160:p(NULL)52,160:clr:load"[199](34)f$(n0)[199](34)",8"
  50. 2540 [153]:[153]:[153]:[153]:[153]"poke 648,196:run"
  51. 2550 [153]"":[128]
  52. 2600 [153]"loadleft$aluatko ohjeita ((NULL)/val) ?"
  53. 2610 [161]a$:[139]a$[179][177]"e"[175]a$[179][177]"k"[167]2610
  54. 2615 f$[178]f$(n0):e$[178]f$:[139]f$[178]"printteritul."[176]f$[178]"linkitys"[167]f$[178]"apuohj
  55. 2620 ifa$="k"thenf$=f$+".txt":gosub2310
  56. 2630 f$=e$
  57. 2800 poke648,4:print"[147]                                        "
  58. 2810 print:print:print
  59. 2820 poke631,13:poke632,13:poke633,13:poke634,13:poke198,4
  60. 2830 print"load"chr$(34)f$(n0)chr$(34)",8"
  61. 2840 print"p[207]648,4:p[207]53272,21:p[207]56576,151:p[207]52,160:p[207]56,160:clr:r[213]"
  62. 2850 print"";:end
  63. 3000 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]";
  64. 3010 print"[182]                [193][208][213][193]                  [181]";
  65. 3020 print"[182]  [175][175][175][175][175][175]                              [181]";
  66. 3030 print"[182]   [195][210][211][210] [146] - [206][pp[in liikuttaa valikkoa [181]";
  67. 3040 print"[182]  [183][183][183][183][183][183]   yl\s alas.                 [181]";
  68. 3050 print"[182][175][175][175][175][175][175][175][175]                              [181]";
  69. 3060 print"[182] [210][197][212][213][210][206] [146] - [206][pp[imell[ voit lukea     [181]";
  70. 3070 print"[182][183][183][183][183][183][183][183][183]   t[hden osoittaman          [181]";
  71. 3080 print"[182]           artikkelin tai k[ynnist[[  [181]";
  72. 3090 print"[182]           ohjelman.                  [181]";
  73. 3100 print"[182]                                      [181]";
  74. 3110 print"[182]           [193]rtikkelia lukiessasi saat [181]";
  75. 3120 print"[182]           lis[ohjeita  [198] 8 [146] n[pp[i-  [181]";
  76. 3130 print"[182]           mell[.[212]akaisin valikkoon   [181]";
  77. 3140 print"[182]           p[[set  [198] 6 [146] n[pp[imell[.  [181]";
  78. 3150 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]"
  79. 3270 print:print"paina  [210][197][212][213][210][206] [146]
  80. 3280 [161]a$:[139]a$[178]""[167]3280
  81. 3290 [137]1000
  82. 3400 f$[178]"info":[141] 2310:[137] 1000
  83. 3500 [153]"load":[153]
  84. 3605 [153]""[163]10)"(NULL)aina jotakin."
  85. 3610 [161]rk$:[139]rk$[178]""[167]3610
  86. 3620 [137]1000
  87. 3800 [151]648,4:[153]"load
  88. 3802 poke53272,21:poke56576,151:poke52,160:poke56,160
  89. 3830 xy=1:loadf$(n0),8,1
  90. 4000 if e%(n0)<>0thenreturn
  91. 4001 rk=int(rnd((NULL))*1)+1:gosub6010
  92. 4005 v$="mainos"+right$(str$(rk),1)
  93. 4010 open1,8,2,v$+",s":sys17408
  94. 4150 return
  95. 6000 ifpeek(788)=49thensys32787:return
  96. 6010 poke31900,120:poke31901,169:poke31902,49:poke31903,141:poke31904,20
  97. 6020 poke31905,3:poke31906,169:poke31907,234:poke31908,141:poke31909,21
  98. 6030 poke31910,3:poke31911,88:poke31912,96
  99. 6040 sys31900:poke54296,0:return
  100. 9000 printleft$(cd$,13)"  *":return
  101. 9010 printleft$(cd$,13)"    ":return
  102. 10150 data0,"[193][208][213][193]",,
  103. 10155 data2,,,9
  104. 10160 data1,"[144][208][219][219][203][201][210][202][207][201][212][213][211]",paakirjoitus2/86,0
  105. 10165 data2,,,9
  106. 10170 data5,"[212][193][213][211][212][193][205][213][211][201][201][203][203][201]",,
  107. 10175 data2,,,9
  108. 10180 data2,"[144][193][210][212][201][203][203][197][204][201][212]",,9
  109. 10210 data2," [205]yy meille ohjelmasi!",ostanohj.art,0
  110. 10220 data2," [205]iten ohjelmoida funktion[pp[imi[",fkey.art,0
  111. 10223 data2," [205]it[ hy\ty[ muutetuista merkeist[?",merkki.art,0
  112. 10230 data2," [205]uutoksen tuulia floppiksessa...",muutoksia.art,0
  113. 10240 data2," [211]e toimii sittenkin!",toimivuus.art,0
  114. 10250 data2," [212]uplaj[ttipotti arvottu!",kilpatulos.art,0
  115. 10260 data2," [213]usi lukijakilpailu.",kilpailu.2/86,0
  116. 10295 data2,,,9
  117. 10300 data3,"[144][208][193][204][211][212][193][212]",,9
  118. 10320 data2," [206]iksipalsta",niksit2/86.pal,0
  119. 10325 data2,,,9
  120. 10400 data2,"[144][207][200][202][197][204][205][193][212]",,9
  121. 10420 data2," [198]key enabler",fmfkey,5
  122. 10430 data2," [198]unktiot basic-datarivein[",keyfile.data,5
  123. 10440 data2," [205]erkki-maker 2.3",merkki-maker*,5
  124. 10460 data2," [194]iorytmit",biorytmi,5
  125. 10470 data2," [213]fo ann",ufo boot,5
  126. 10510 data2," [201]lpo seikkailee j[lleen!",seikkailu,5
  127. 10520 data2," [211]kiing",skiing,5
  128. 10530 data2," [200]ardcopy",copy v3,5
  129. 10538 data2,,,9
  130. 10540 data2,"[144][207][200][202][197][197][212]",,9
  131. 10560 data2," [198]key enabler",fkey.ohj,0
  132. 10570 data2," [205]erkki-maker 2.3",merkki.ohj,0
  133. 10580 data2," [194]iorytmit",biorytmi.ohj,0
  134. 10585 data2," [200]ardcopy",hardcopy.ohj,0
  135. 10590 data6,,,
  136.