home *** CD-ROM | disk | FTP | other *** search
/ Floppy Magazine 1987 #2 / Floppy_Magazine_87-2_1987_Megasystems_Oy_fi_Side_A.d64 / mx (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  8KB  |  242 lines
  1. 100 rem kaikki materiaali (c) floppy magazine ja protocol productions oy
  2. 120 poke53269,.:sys49422:yz=1:gosub190:gosub920:x=-1:remdimsc(127),sc$(25,40)
  3. 140 reada$,a$,a:ifa>=.thenx=x+1:goto140
  4. 150 restore:x=x+15:dim n$(x),f$(x),e(x)
  5. 160 fort=0to7:n$(t)="":f$(t)="":e(t)=.:next
  6. 170 fort=8tox-7:readn$(t),f$(t),e(t):next
  7. 180 fort=x-6tox:n$(t)="":f$(t)="":e(t)=.:next
  8. 190 cd$=""
  9. 200 sys50432:sys49840:sys49984
  10. 201 print"[156]";
  11. 205 ifyz=1andsc=.thenprintleft$(cd$,13);"[212][197][210][214][197][212][213][204][207][193] [198][204][207][208][208][201][203][211][197][197][206] 2/87!"
  12. 240 printcd$;"[156]([195]) [208]rotocol [208]roductions [207]y"
  13. 260 ifsc=.ormu=1thengosub920
  14. 262 ifyz=1thenyz=0:sys50416:return
  15. 265 printleft$(cd$,4)
  16. 270 ifn0=.thenn0=8:t=.:goto290
  17. 272 t=n0-8
  18. 280 printtab(4)n$(t):ift=xort=n0+8then300
  19. 282 t=t+1:goto280
  20. 290 printtab(4)n$(t):ift=16then300
  21. 292 t=t+1:goto290
  22. 300 poke198,0:sys49467:sys50432:sc=.:ifmu=.thensys50665:sc=1
  23. 302 sys49920
  24. 304 geti$:print"":ifi$=""then304
  25. 310 i=asc(i$)
  26. 312 ifi=17thensys49920:goto360
  27. 320 ifi=145thensys49920:goto390
  28. 330 ifi=13thenpm=.:goto450
  29. 340 ifi=32thenpm=1:goto450
  30. 350 goto304
  31. 360 ifn0=x-7thensys49920:goto304
  32. 370 n0=n0+1:sys50288:ifn0+8>xthen302
  33. 380 printleft$(cd$,21)spc(4)n$(n0+8)
  34. 382 ife(n0)=.then360
  35. 384 goto302
  36. 390 ifn0=8thensys49920:goto304
  37. 400 n0=n0-1:sys50352:ifn0<8then302
  38. 410 print"    "n$(n0-8)
  39. 420 ife(n0)=.then390
  40. 422 goto302
  41. 450 v=e(n0):f$=f$(n0):n$=n$(n0):sys49467
  42. 452 ifright$(f$,2)<>".n"thentu=1:goto460
  43. 455 poke816,165:poke817,244:f$=left$(f$,len(f$)-2):poke49875,0:tu=0
  44. 456 rem 0=nothing:1=help:2=music:3=load"",8:4=load"",8,1:5=easy script file
  45. 458 rem 6=newsroom photo:7=koalapainter picture:8=doodle picture:>8=load+sys
  46. 460 sys49920:ifv=1then640
  47. 462 if(n1<>n0)orpmthen468
  48. 464 sys50048:ifv>=6andv<=8then2006
  49. 466 on(v-1)goto896,570,600,512
  50. 468 n1=n0
  51. 469 sys50048:ifv<>2thengosub900
  52. 470 poke53269,.:ifv>=6andv<=8then2000
  53. 472 ifv>8then610
  54. 480 on(v-1)goto890,570,600,490
  55. 490 f$=f$+",s":gosub500:sys50416:goto200
  56. 500 ifv<>5thenreturn
  57. 505 ifpmthenpm=.:goto520
  58. 510 gosub860:open1,8,0,f$:sys16384:return
  59. 512 poke53269,0:sys17080:sys50416:goto200
  60. 520 sys49840:printleft$(cd$,13);"[212]ulostetaanko teksti (k/e) ?  [146]":sys49920
  61. 522 sys50665
  62. 530 geta$:print"":ifa$=""ora$<>"e"anda$<>"k"then530
  63. 540 sys50048:ifa$="e"thensys49920:return
  64. 550 gosub860:open2,4,7:cmd2:open1,8,0,f$:sys50592:close1:close2:sys49920:return
  65. 570 gosub3000:ifza>0then200
  66. 580 gosub860:gosub630:print"";
  67. 582 iftu=.orpeek(49875)=.thenprint"sys53226";
  68. 584 iftu=1andpeek(49875)=1thenprint"sys53184";
  69. 585 remprint"sys53184";
  70. 586 print":clr:p[207]198,1:p[207]631,131"
  71. 590 print"load"chr$(34)f$chr$(34)",8":poke198,1:poke631,13:end
  72. 600 gosub3000:ifza>0then200:remload,8,1
  73. 602 gosub860:gosub630:print"";
  74. 603 iftu=.orpeek(49875)=.thenprint":sys53226";
  75. 604 iftu=1andpeek(49875)=1thenprint":sys53184";
  76. 606 print":clr:p[207]198,1:p[207]631,131"
  77. 608 print""chr$(34)f$chr$(34)",8,1":poke198,1:poke631,13:end
  78. 610 gosub3000:ifza>0then200:remload+sys
  79. 612 gosub860:gosub630:print"";
  80. 613 iftu=.orpeek(49875)=.thenprint":sys53226";
  81. 614 iftu=1andpeek(49875)=1thenprint":sys53184";
  82. 615 print":clr:p[207]198,2:p[207]631,13:p[207]632,13"
  83. 616 print"load"chr$(34)f$chr$(34)",8,1":poke198,1:poke631,13
  84. 618 print"sys";v;"":end
  85. 630 sys64789:sys65409:sys64931:sys49467:poke646,14:poke53272,20:return
  86. 640 sys49840:print"[156]                 [193][208][213][193]"
  87. 660 print"   [195][210][211][210] [146] - [206][pp[in liikuttaa valikkoa"
  88. 670 print"  [183][183][183][183][183][183]   yl\s tai alas."
  89. 680 print"[175][175][175][175][175][175][175][175]"
  90. 690 print" [210][197][212][213][210][206] [146] - [206][pp[imell[ voit lukea"
  91. 700 print"[183][183][183][183][183][183][183][183]   nuolen osoittaman artikkelin"
  92. 710 print"           tai k[ynnist[[ ohjelman."
  93. 730 print" [175][175][175][175][175][175][175]"
  94. 740 print"  [211][208][193][195][197] [146] - [206][pp[in toimii samoin kuin"
  95. 750 print" [183][183][183][183][183][183][183]    [210][197][212][213][210][206] [146] mutta tulostaa"
  96. 760 print"           artikkelin tai kuvan print-"
  97. 770 print"           terille."
  98. 780 print"           [193]rtikkelia lukiessasi saat"
  99. 790 print"           lis[ohjeita  [198] 8 [146] n[pp[i-"
  100. 800 print"           mell[. [212]akaisin valikkoon"
  101. 810 print"           p[[set  [198] 6 [146] n[pp[imell[."
  102. 830 print"paina [210][197][212][213][210][206].[146]"
  103. 840 poke198,0:wait198,1:poke198,0:goto200
  104. 860 ifv<>1thenpoke53269,.
  105. 865 rk=rk+1:if rk>5then rk=1:gosub900
  106. 870 v$="mainos"+right$(str$(rk),1)
  107. 880 open1,8,2,v$+",s":sys16999:return
  108. 890 sys50416:ifmu=1thenmu=.:gosub900:goto300
  109. 892 mu=1:sys49920:gosub2030:sys49493:gosub920:sys49920:goto300
  110. 896 sys50416:ifmu=.thenmu=1:sys49920:sys49498:gosub920:sys49920:goto300
  111. 898 goto890
  112. 900 mu=.:sys49502:return
  113. 920 sys50416:sys50912
  114. 922 printcd$;"[156][198][204][207][208][208][217] [205][193][199][193][218][201][206][197], [200]uhtikuu,  2/87";:return
  115. 930 rem 0=nothing:1=help:2=music:3=load"",8:4=load"",8,1:5=easy script file
  116. 940 rem 6=newsroom photo:7=koalapainter picture:8=doodle picture:>8=load+sys
  117. 950 data "[154][193][208][213][193]",,1
  118. 960 data ,,0
  119. 970 data "[208][219][219][203][201][210][202][207][201][212][213][211]",paakirj2/87,5
  120. 971 data ,,0
  121. 972 data "[212]ekij[tiedot",otsake,5
  122. 980 data ,,0
  123. 990 data "[154][212][193][213][211][212][193][205][213][211][201][201][203][203][201]","music",2
  124. 1000 data ,,0
  125. 1010 data "[193][210][212][201][203][203][197][204][201][212]",,0
  126. 1015 data ,,0
  127. 1044 data " [195]ommodoristin muotokuva",commodoristi,5
  128. 1045 data " [208]etspeed-k[[nt[j[",petspeed,5
  129. 1046 data " [195]heat-modes l. juustomoodit",cheat modes.art,5
  130. 1047 data " [211][198]-sarjis",sarjakuva,5
  131. 1048 data " [210]ahaa?",rahaa,5
  132. 1049 data " [211]arjisohjelma",sarjis artikkeli,5
  133. 1090 data ,,0
  134. 1100 data "[208][193][204][211][212][193][212]",,0
  135. 1101 data ,,0
  136. 1110 data " [206]iksipalstan osa1",niksit1.2/87,5
  137. 1112 data " [206]iksipalstan osa2",niksit2.2/87,5
  138. 1114 data " [208]eliaseita",peliaseita.art,5
  139. 1115 data " [214]ideot ja tietokonepelit",video palsta,5
  140. 1116 data " [210]oolipelit osa 1",roolip2/87a.pal,5
  141. 1117 data " [210]oolipelit osa 2",roolip2/87b.pal,5
  142. 1118 data " [210]ehellisen [193]hmedin puoti",ahmed2/87.pal,5
  143. 1125 data ,,0
  144. 1230 data "[207][200][202][197][197][212]",,0
  145. 1235 data ,,0
  146. 1242 data " [195]hardef osa 1",charoh1,5
  147. 1243 data " [195]hardef osa 2",charoh2,5
  148. 1244 data " [195]hardef osa 3",charoh3,5
  149. 1245 data " [200]exer",hexeroh,5
  150. 1246 data " [212]he [196]estroyers",thedeoh,5
  151. 1300 data ,,0
  152. 1330 data "[205][193][201][206][207][203][211][201][193]",,0
  153. 1335 data ,,0
  154. 1342 data " [212]ulenko kotiisi?",zapmai2,6
  155. 1343 data " [211]uurmiesten sanomat",klikmai2,6
  156. 1344 data " [214]iesti kansalaisille",vuosikerta,6
  157. 1345 data " [197]i kesyille pelaajille",racemai,6
  158. 1500 data ,,0
  159. 1550 data "[207][200][202][197][204][205][193][212]: [194]-puolella!",,0
  160. 1555 data ,,0
  161. 1560 data " [195]hardef",chardef 64,3
  162. 1561 data " [200]exer",hexer,3
  163. 1562 data " [212]he [196]estroyers",the destroyers.n,3
  164. 1563 data " [211]arjis",sarjis,3
  165. 1564 data " [196]onald [196]uck",donald duck,3
  166. 1565 data " [204]ucky [204]uke",lucky luke,3
  167. 1566 data " [197]ye of the [212]iger",eye of the tiger,3
  168. 1567 data " [203]night [210]ider",knight rider,3
  169. 1568 data " [201][204][208][207] 9/46",ilpo*,3
  170. 1569 data " [205]usical 64 [208]art [201][201]",musical*,3
  171. 1570 data " [211]anaope",sanaope,3
  172. 1571 data " [210]ambo in the viitakko",rambo,3
  173. 1990 data ,,-1
  174. 2000 gosub2030:ifv=6then c1=7:c2=0:poke49872,c1:poke49873,c2
  175. 2002 ifpmthenpm=.:ifv<>7thenpoke49874,v-6:sys50927:n1=0:goto3100
  176. 2004 poke49874,v:sys49819:goto200
  177. 2006 ifv=6then c1=7:c2=0:poke49872,c1:poke49873,c2
  178. 2008 poke49874,v:sys49964:goto200
  179. 2010 rem: color 1&2  ( c1 & c2 )                  newsroomissa, arvot 0-15
  180. 2030 iflen(f$)>16thenf$=left$(f$,16)
  181. 2032 n$=right$(n$,len(n$)-2):sys49952:iflen(n$)>32thenn$=left$(n$,32)
  182. 2040 poke49882,len(f$):poke49883,len(n$)
  183. 2050 fory=1tolen(f$):poke49903+y,asc(mid$(f$,y,1)):next
  184. 2052 ifv<6orv>8then2072
  185. 2060 fory=1tolen(n$):n=asc(mid$(n$,y,1)):remifn>192thenn=n-128:goto2070
  186. 2062 remifn>64andn<128thenn=n-64
  187. 2070 poke51471+y,n:next
  188. 2072 ifmu=.thengosub860
  189. 2080 return
  190. 3000 open15,8,15:open2,8,2,"0:"+f$+",p,r":input#15,za,zb$,zc,zd:close2:close15
  191. 3005 ifza=.thenreturn
  192. 3010 sys49840:sys49984:print"[207][200][202][197][204][205][193][193] [197][201] [204][220][217][212][217][206][217][212]. [212]arkista"
  193. 3015 print"onko oikea levynpuoli sis[ll[."
  194. 3020 print"[205]ik[li vika ei kuitenkaan ole"
  195. 3025 print"siin[, tarkista muut kytkenn[t."
  196. 3030 print"'_'-n[pp[imest[ takaisin valikkoon.":poke198,0
  197. 3035 print"[205]uista n[pp[imist[ lataus jatkuu.":sys50416:sys50672:sys50432
  198. 3040 getwc$:print"":ifwc$=""then3040
  199. 3042 ifwc$="_"thenreturn
  200. 3044 sys50048:poke53269,0:goto3000
  201. 3100 rem kuvan printtausrutskut
  202. 3102 sys50416:sys49984:sys50432
  203. 3104 sys49840:sys50665
  204. 3110 print"";tab(11);"[203][213][214][193][206] [208][210][201][206][212][212][193][213][211]":printtab(11);"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  205. 3112 print" 1 [146]801/1525 -[196]umppi"
  206. 3114 print" 2 [146][201][206][212][197][210][198][193][195][197]-[198]astdump"
  207. 3116 print" 3 [146]802 -[196]umppi"
  208. 3118 print" 4 [146][208][207][201][211]."
  209. 3120 print"[198][193][211][212][196][213][205][208] on tarkoitettu [201][206][212][197][210][198][193][195][197]-"
  210. 3122 print"printtereille. [203]uvien printtaus on"
  211. 3124 print"tehty [196][207][207][196][204][197]- ja [206][197][215][211][210][207][207][205]-kuville.":poke198,0
  212. 3130 getwc$:print"":ifwc$=""orwc$<"1"orwc$>"4"then3130
  213. 3132 on(val(wc$))goto3140,3150,3160,200
  214. 3134 print"[156]    [208][210][201][206][212][193][212][212][193][214][193] [203][213][214][193]: ";n$:print"   [212][217][217][208][208][201]: [196][207][207][196][204][197][157][157][157][157][157][157][157]";
  215. 3135 ifv=6thenprint"[206][197][215][211][210][207][207][205]";
  216. 3136 print:return
  217. 3137 print"<< [208][193][201][206][193] [202][207][212][193][201][206] [208][210][201][206][212][193][212][193][203][211][197][211][201] [203][213][214][193][206] >>":poke198,0:wait198,1
  218. 3138 poke198,0:return
  219. 3139 print" >>> [208][210][201][206][212][212][193][213][211] [203][219][217][206][206][201][211][211][219]. [200][197][212][203][201] <<<":return
  220. 3140 sys49840
  221. 3142 print"";tab(11);"801/1525 [196][213][205][208][208][201]":printtab(11);"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  222. 3144 remgosub3134:gosub3137:gosub3139:gosub4000:goto3104
  223. 3146 print" [214][193][204][201][212][197][212][212][193][214][193][211][212][201] 1525-[196][213][205][208][208][201] [207][206] [203][197][211][203][197][206]. ":ford=1to2000:next
  224. 3147 goto3104
  225. 3150 sys49840:print"";
  226. 3152 printtab(9);"[201][206][212][197][210][198][193][195][197] [198][193][211][212][196][213][205][208]":printtab(9);"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  227. 3154 gosub3134:gosub3137:gosub3139:sys51712:goto3104
  228. 3160 sys49840:print"";
  229. 3162 printtab(14);"802 [196][213][205][208][208][201]":printtab(14);"[163][163][163][163][163][163][163][163][163][163]"
  230. 3164 print"[193]nna oikean reunan marginaali";:inputma:poke255,ma
  231. 3166 gosub3134:gosub3137:gosub3139:sys52210:goto3104
  232. 4000 xx=x:rem mps-801/803,1525 ei toimi
  233. 4002 fori=1to25:forr=1to40:sc$(i,r)="":next:next:sl=24576
  234. 4008 fori=0to127:sc(i)=peek(53056+i):t=t+sc(i):next:ift<>24512thenstop
  235. 4030 open4,4:fori=7680+slto7992+slstep8:m=(i-7680-sl)/8+1
  236. 4032 forj=i-7680toistep320:n=(i-j)/320+1:fork=j+7tojstep-1:x=peek(k)
  237. 4034 ifx>127thenx=x-64:goto4034
  238. 4036 ifk=j+7thensc$(n,m)=sc$(n,m)+chr$(sc(xandpeek(k-1)+128)):goto4040
  239. 4038 sc$(n,m)=sc$(n,m)+chr$(sc(x))
  240. 4040 next:next:forl=1to25:print#4,chr$(8)sc$(l,m);:next:print#4,chr$(8):next
  241. 4042 print#4:close4:x=xx:return
  242.