home *** CD-ROM | disk | FTP | other *** search
/ Floppy Magazine 1986 #6 / Floppy_Magazine_86-6_1986_Megasystems_Oy_fi_Side_A.d64 / mx (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  5KB  |  155 lines
  1. 100 ifpithen2020
  2. 102 ifmu=1thensys32787:goto200
  3. 105 ifsy=1thengosub940:sysv
  4. 110 ifsy=2thenpoke56,160:poke52,160:new
  5. 120 poke53269,0:sys49434:poke53280,4:poke53281,7
  6. 130 x=-1:print"[147]";
  7. 140 reada$,a$,a:ifa=>.thenx=x+1:goto140
  8. 170 restore:dim n$(x),f$(x),e(x)
  9. 180 fort=.tox:readn$(t),f$(t),e(t):next
  10. 190 cd$=""
  11. 200 poke53280,4:poke53281,7:sys12288
  12. 201 print"[147][156][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  13. 230 printcd$;"[156][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  14. 250 print"       ([195]) [208]rotocol [208]roductions [207]y       "left$(cd$,12)
  15. 270 t=.:n0=.
  16. 280 printtab(4)n$(t):ift=xort=8then300
  17. 290 t=t+1:goto280
  18. 300 geti$:ifi$=""then300
  19. 310 i=asc(i$):ifi=17then360
  20. 320 ifi=145then390
  21. 330 ifi=13then430
  22. 340 ifi=32thenpm=1:goto430
  23. 350 goto300
  24. 360 ifn0=xthen300
  25. 370 n0=n0+1:gosub920:sys20336:gosub930:ifn0+8>xthen300
  26. 380 printleft$(cd$,21)tab(4)n$(n0+8):goto300
  27. 390 ifn0=.then300
  28. 400 n0=n0-1:gosub920:sys20400:gosub930:ifn0<8then300
  29. 410 print"    "n$(n0-8):goto300
  30. 430 rem
  31. 450 v=e(n0):f$=f$(n0)
  32. 455 ifright$(f$,2)=".n"thenpoke816,165:poke817,244:f$=left$(f$,len(f$)-2)
  33. 460 rem 0=nothing:1=help:2=music:3=load"",8:4=load"",8,1:5=easy script file
  34. 465 rem 6=koalapainter picture:7=newsroom photo:>7=load+sys
  35. 467 ifv=0then300
  36. 468 ifv=1orv=2then470
  37. 469 gosub900
  38. 470 poke53269,0:onvgoto630,890,570,610,490,2000,2010
  39. 480 gosub860:sy=1:loadf$,8,1
  40. 490 gosub860:f$=f$+",s":gosub500:goto200
  41. 500 ifv<>5thenreturn
  42. 505 ifpmthenpm=.:goto520
  43. 510 open1,8,0,f$:sys16384:return
  44. 520 print"[147][212]ulostetaanko teksti (k/e) ?  [146][157]";
  45. 530 geta$:ifa$="e"thenreturn
  46. 540 ifa$<>"k"then530
  47. 550 printa$;:open2,4,7:cmd2:open1,8,0,f$
  48. 551 rem
  49. 552 forx=1to20:print" ";:next
  50. 553 forx=1to40:get#1,a$:if st and 64 then560
  51. 554 ifa$=chr$(13)thenx=40:goto556
  52. 555 printa$;:next
  53. 556 print:goto552
  54. 560 close1:close2:return
  55. 570 gosub860:poke53272,21:print"[147]"
  56. 580 poke631,13:poke632,13:poke633,13:poke198,3
  57. 590 print"p[207]56,160:p[207]52,160:clr:load"chr$(34)f$chr$(34)",8"
  58. 600 print"r[213]":end
  59. 610 gosub940:sy=2:loadf$,8,1
  60. 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]";
  61. 640 print"[182]                [193][208][213][193]                  [181]";
  62. 650 print"[182]  [175][175][175][175][175][175]                              [181]";
  63. 660 print"[182]   [195][210][211][210] [146] - [206][pp[in liikuttaa valikkoa [181]";
  64. 670 print"[182]  [183][183][183][183][183][183]   yl\s alas.                 [181]";
  65. 680 print"[182][175][175][175][175][175][175][175][175]                              [181]";
  66. 690 print"[182] [210][197][212][213][210][206] [146] - [206][pp[imell[ voit lukea     [181]";
  67. 700 print"[182][183][183][183][183][183][183][183][183]   t[hden osoittaman          [181]";
  68. 710 print"[182]           artikkelin tai k[ynnist[[  [181]";
  69. 720 print"[182]           ohjelman.                  [181]";
  70. 730 print"[182] [175][175][175][175][175][175][175]                              [181]";
  71. 740 print"[182]  [211][208][193][195][197] [146] - [206][pp[in toimii samoin kuin [181]";
  72. 750 print"[182] [183][183][183][183][183][183][183]    [210][197][212][213][210][206] [146] mutta tulostaa    [181]";
  73. 760 print"[182]           artikkelin printterille.   [181]";
  74. 770 print"[182]                                      [181]";
  75. 780 print"[182]           [193]rtikkelia lukiessasi saat [181]";
  76. 790 print"[182]           lis[ohjeita  [198] 8 [146] n[pp[i-  [181]";
  77. 800 print"[182]           mell[.[212]akaisin valikkoon   [181]";
  78. 810 print"[182]           p[[set  [198] 6 [146] n[pp[imell[.  [181]";
  79. 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]"
  80. 830 print"paina  [210][197][212][213][210][206] [146]
  81. 840 [161]a$:[139]a$[178]""[167]840
  82. 850 [137]200
  83. 860 [151]53269,0
  84. 865 rk[178]rk[170]1:[139] rk[177]4[167] rk[178]1:[141]900
  85. 870 v$[178]"mainos"[170][201]([196](rk),1)
  86. 880 [159]1,8,2,v$[170]",s":[158]17408:[142]
  87. 890 [139]mu[178]0[167]mu[178]1:[147]"music",8,1
  88. 895 [139]mu[178]1[167][141]900:[137]200
  89. 900 mu[178]0:[158]20321:[151]54296,0:[142]
  90. 920 [153][200](cd$,13)"    ":[142]
  91. 930 [153][200](cd$,13)"    ":[142]
  92. 940 [153]"load":[151]53272,21:[142]
  93. 950 [131] "contatn(NULL)(NULL)atn","",1
  94. 960 [131] "","",0
  95. 970 [131] "(NULL)(NULL)(NULL)(NULL)right$(NULL)mid$(NULL)right$(NULL)(NULL)(NULL)",paakirj6/86,5
  96. 971 [131] "","",0
  97. 972 [131] "(NULL)ekij[tiedot",otsake,5
  98. 980 [131] "","",0
  99. 990 [131] "cont(NULL)atn(NULL)(NULL)(NULL)atn(NULL)(NULL)(NULL)right$right$(NULL)(NULL)right$","",2
  100. 1000 [131] "","",0
  101. 1010 [131] "atn(NULL)(NULL)right$(NULL)(NULL)val(NULL)right$(NULL)","",0
  102. 1015 [131] "","",0
  103. 1020 [131] " (NULL)odeemiasiaa",modeemi.art,5
  104. 1030 [131] " left$arvinaisia k[skyj[",harvi.art,5
  105. 1040 [131] " (NULL)nko tietokoneesta hy\ty[?",hyoty.art,5
  106. 1041 [131] " (NULL)adonneen levyaseman j[ljill[",putiikki.art,5
  107. 1042 [131] " (NULL)uuri tilaajien mets[stys",40.art,5
  108. 1043 [131] " (NULL)egapalkintokilpailu!",kilpa.art,5
  109. 1044 [131] " ascloppy (NULL)agazinen taustaa",hist.art,5
  110. 1045 [131] " atnmigal\pin[[",amiga.art,5
  111. 1090 [131] "","",0
  112. 1100 [131] "(NULL)atn(NULL)(NULL)(NULL)atn(NULL)","",0
  113. 1101 [131] "","",0
  114. 1110 [131] " (NULL)iksipalsta",niksit6/86.pal,5
  115. 1111 [131] " (NULL)is[[ niksej[",lisnik6/86.pal,5
  116. 1112 [131] " (NULL)irpeit[ kirjeit[",kirpkir6/86,5
  117. 1113 [131] " (NULL)is[[ kirjeit[",liskir6/86,5
  118. 1120 [131] " (NULL)oolipelit",roolip6/86.pal,5
  119. 1121 [131] " (NULL)is[[ roolipelej[",lisroo6/86.pal,5
  120. 1122 [131] " (NULL)eikkailijoiden taverna",adv6/86.pal,5
  121. 1123 [131] " (NULL)alaisia aseita pelaajille",salas6/86.pal,5
  122. 1124 [131] " (NULL)elej[ + ohjelmia",peleja6/86.pal,5
  123. 1125 [131] "","",0
  124. 1230 [131] "(NULL)left$mid$valval(NULL)","",0
  125. 1235 [131] "","",0
  126. 1240 [131] " right$muri",imuri.ohj,5
  127. 1241 [131] " str$irvald",dired.ohj,5
  128. 1242 [131] " (NULL)amantha ascox -kalenteri",kale.ohj,5
  129. 1243 [131] " (NULL)ace... demo",race.ohj,5
  130. 1244 [131] " right$lpo",ilpo.ohj,5
  131. 1300 [131] "","",0
  132. 1330 [131] "(NULL)atnright$(NULL)(NULL)(NULL)(NULL)right$atn","",0
  133. 1335 [131] "","",0
  134. 1340 [131] " ascloppy (NULL)agazine 1987",ph.fmmai,7
  135. 1341 [131] " (NULL)ilaajien mets[stys",ph.timemai,7
  136. 1342 [131] " (NULL)atn(NULL)!",ph.zapmai,7
  137. 1343 [131] " (NULL)(NULL)right$(NULL)!",ph.klikmai,7
  138. 1344 [131] " chr$(NULL)",mainos.gp,3
  139. 1500 [131] "","",0
  140. 1530 [131] "(NULL)left$mid$val(NULL)(NULL)atn(NULL): peek-puolella!","",0
  141. 1535 [131] "","",0
  142. 1536 [131] " (NULL)ace with the str$evil right$right$",race demo,4
  143. 1540 [131] " right$muri",imuri.bas,3
  144. 1541 [131] " str$ir valditor",dir editor.n,3
  145. 1542 [131] " right$lpo ja levykemysteeri",ilpo8/46,5
  146. 1543 [131] " (NULL)amantha ascox -kalenteri",kalenteri,3
  147. 1544 [131] " mid$oululaulu-potkuri",joululaulumenu,3
  148. 1990 [131] "","",-1
  149. 2000 pi[178]1:[137]2015
  150. 2010 pi[178]2
  151. 2015 [141]860:[147]f$,8,1
  152. 2020 [139]pi[178]1[167]pi[178]0:[141]940:[158]49440
  153. 2030 [139]pi[178]2[167]pi[178]0:[141]940:[158]49434
  154. 2040 [137]200
  155.