home *** CD-ROM | disk | FTP | other *** search
/ Floppy Magazine 1988 Guru / Floppy_Magazine_88-guru_1988_Megasystems_Oy_fi_Side_A.d64 / mx (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1988-01-01  |  5.9 KB  |  187 lines
  1. 100 rem: copyright by protocol prod. oy 101 rem: valikon tekija on t.luode-87
  2. 110 sys51676
  3. 120 poke53269,.:sys49422:yz=1:gosub190:gosub920:x=-1:remdimsc(127),sc$(25,40)
  4. 140 reada$,a$,a$:ifval(a$)>=.thenx=x+1:goto140
  5. 150 restore:x=x+15:dim n$(x),f$(x),e$(x)
  6. 160 fort=0to7:n$(t)="":f$(t)="":e$(t)="":next
  7. 170 fort=8tox-7:readn$(t),f$(t),e$(t):next
  8. 180 fort=x-6tox:n$(t)="":f$(t)="":e$(t)="":next
  9. 190 cd$=""
  10. 200 sys50432:sys49840:sys49984
  11. 201 print"[156]";
  12. 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][206] [199][213][210][213][213][206]"
  13. 240 printcd$;"[156]([195]) [208]rotocol [208]roductions [207]y"
  14. 260 ifsc=.ormu=1thengosub920
  15. 262 ifyz=1thenyz=0:sys50416:return
  16. 265 sys51662:printleft$(cd$,4)
  17. 270 ifn0=.thenn0=8:t=.:goto290
  18. 272 t=n0-8
  19. 280 printtab(4)n$(t):ift=xort=n0+8then300
  20. 282 t=t+1:goto280
  21. 290 printtab(4)n$(t):ift=16then300
  22. 292 t=t+1:goto290
  23. 300 poke198,0:sys49467:sys50432:sc=.:ifmu=.andzz=.thensys50880:sc=1:zz=1:goto302
  24. 301 ifmu=.thensys50665:sc=1
  25. 302 sys49920
  26. 304 geti$:print"":ifi$=""then304
  27. 310 i=asc(i$)
  28. 312 ifi=17thensys49920:goto360
  29. 320 ifi=145thensys49920:goto390
  30. 330 ifi=13thenpm=.:goto440
  31. 340 ifi=32thenpm=1:goto440
  32. 350 goto304
  33. 360 ifn0=x-7thensys49920:goto304
  34. 370 n0=n0+1:sys50288:ifn0+8>xthen302
  35. 380 printleft$(cd$,21)spc(4)n$(n0+8)
  36. 382 ifval(e$(n0))=.then360
  37. 384 goto302
  38. 390 ifn0=8thensys49920:goto304
  39. 400 n0=n0-1:sys50352:ifn0<8then302
  40. 410 print"    "n$(n0-8)
  41. 420 ifval(e$(n0))=.then390
  42. 422 goto302
  43. 440 sys49840:ifright$(e$(n0),1)<>"b"then450
  44. 442 sys49920:printleft$(cd$,13);"[211][217][220][212][219] [194]-[208][213][207][204][201] [204][197][214][217][193][211][197][205][193][193][206]"
  45. 444 print"[202][193] [208][193][201][206][193] [202][207][212][193][201][206].":poke198,0:wait198,1:poke198,0
  46. 450 v=val(e$(n0)):f$=f$(n0):n$=n$(n0):sys49467:off=.:ifpeek(49875)=1thenoff=1
  47. 452 ifright$(f$,2)<>".n"thentu=1:goto460
  48. 455 poke816,165:poke817,244:f$=left$(f$,len(f$)-2):poke49875,0:tu=0
  49. 456 rem 0=nothing:1=help:2=music:3=load"",8:4=load"",8,1:5=easy script file
  50. 458 rem 6=newsroom photo:7=koalapainter picture:8=doodle picture:>8=load+sys
  51. 460 sys51648:sys49920
  52. 462 if(n1<>n0)orpmthen468
  53. 464 sys50048:ifv>=6andv<=8then2006
  54. 466 onvgoto650,896,570,600,512
  55. 468 n1=n0
  56. 469 sys50048:ifv<>2thengosub900
  57. 470 poke53269,.:ifv>=6andv<=8then2000
  58. 472 ifv>8then610
  59. 480 onvgoto640,890,570,600,490
  60. 490 f$=f$+",s":gosub500:sys50416:goto200
  61. 500 ifv<>5thenreturn
  62. 505 ifpmthenpm=.:goto520
  63. 510 gosub860:open1,8,0,f$:sys16384:return
  64. 512 poke53269,0:sys17080:sys50416:goto200
  65. 520 sys49840:printleft$(cd$,13);"[212]ulostetaanko teksti (k/e) ?  [146]":sys49920
  66. 530 geta$:print"":ifa$=""ora$<>"e"anda$<>"k"then530
  67. 540 sys50048:ifa$="e"thensys49920:return
  68. 550 gosub860:open2,4,7:cmd2:open1,8,0,f$:sys50592:close1:close2:sys49920:return
  69. 570 gosub3000:ifza>0thengosub620:goto200
  70. 580 gosub860:gosub630:print"";:gosub624
  71. 586 print":clr:p[207]198,1:p[207]631,131"
  72. 590 print"load"chr$(34)f$chr$(34)",8":poke198,1:poke631,13:end
  73. 600 gosub3000:ifza>0thengosub620:goto200:rem:load"",8,1
  74. 602 gosub860:gosub630:print"";:gosub624
  75. 606 print":clr:p[207]198,1:p[207]631,131"
  76. 608 print""chr$(34)f$chr$(34)",8,1":poke198,1:poke631,13:end
  77. 610 gosub3000:ifza>0thengosub620:goto200:rem:load"",8,1+sys...?
  78. 612 gosub860:gosub630:print"";:gosub624
  79. 615 print":clr:p[207]198,2:p[207]631,13:p[207]632,13"
  80. 616 print"load"chr$(34)f$chr$(34)",8,1":poke198,1:poke631,13
  81. 618 print"sys";v;"":end
  82. 620 if off then poke49875,off
  83. 622 return
  84. 624 iftu=.orpeek(49875)=.thenprint"sys53226";
  85. 626 iftu=1andpeek(49875)=1thenprint"sys53184";
  86. 628 return
  87. 630 sys64789:sys65409:sys64931:sys49467:poke646,14:poke53272,20:return
  88. 640 f$="apua":gosub660:gosub2030:sys50032:goto200
  89. 650 gosub660:sys50037:goto200
  90. 660 poke53269,.:mu=.:zz=1:sys50886:return
  91. 860 poke53269,.
  92. 865 rk=rk+1:gosub900:if rk>5then rk=1
  93. 870 v$="mainos"+right$(str$(rk),1)
  94. 880 open1,8,2,v$+",s":sys16999:return
  95. 890 sys50416:ifmu=1thenmu=.:gosub900:goto300
  96. 892 mu=1:sys49920:gosub2030:sys49493:gosub920:sys49920:goto300
  97. 896 sys50416:ifmu=.thenmu=1:sys49920:sys49498:gosub920:sys49920:goto300
  98. 898 goto890
  99. 900 mu=.:sys49502:return
  100. 920 sys50416:sys50912
  101. 922 printcd$;"[156][198][204][207][208][208][217] [205][193][199][193][218][201][206][197][206] [211][208][197][211][201][193][193][204][201]: [199][213][210][213]";:return
  102. 925 rem********************************
  103. 930 rem 0=nothing:1=help:2=music:3=load"",8:4=load"",8,1:5=easy script file
  104. 940 rem 6=newsroom photo:7=koalapainter picture:8=doodle picture:>8=load+sys
  105. 945 rem********************************
  106. 950 data "[154][193][208][213][193]",apua,1
  107. 951 data ,,0
  108. 960 data "[154][212][193][213][211][212][193][205][213][211][201][201][203][203][201]","music",2
  109. 961 data ,,0
  110. 970 data "[193][204][213][203][211][201]...",aluksi,5
  111. 971 data ,,0
  112. 972 data "[212]oimitus",toimitus,5
  113. 999 data ,,0
  114. 1530 data "[207][200][202][197][204][205][193][212]",,0
  115. 1535 data ,,0
  116. 1540 data " [203]alenteri",kalenteri.n,4
  117. 1541 data " [204]etter [205]aker",letter*,4
  118. 1542 data " [218]ambo-[194]asic",zambo*.n,4b
  119. 1543 data " [211]oftwriter v64.1",soft*,4b
  120. 1544 data " [211]oftwriter -demo-",demo,4b
  121. 1545 data " [211]oftcruncher v2",softcr*,4b
  122. 1549 remdata ,,0
  123. 1600 remdata "[208][197][204][201][207][200][202][197][204][205][193][212]",,0
  124. 1605 remdata ,,0
  125. 1610 remdata " [210]aw-[205]aster",raw-master,4b
  126. 1612 remdata " [201]lpo [195]lassic",ilpo,3b
  127. 1613 remdata " [208]roffa",proffa,3b
  128. 1990 data ,,-1
  129. 1999 rem*******************************
  130. 2000 gosub2030:ifv=6then c1=10:c2=0:poke49872,c1:poke49873,c2
  131. 2002 ifpmthenpm=.:ifv<>7thenpoke49874,v-6:sys50927:n1=0:goto3100
  132. 2004 poke49874,v:sys49819:goto200
  133. 2006 ifv=6then c1=10:c2=0:poke49872,c1:poke49873,c2
  134. 2008 poke49874,v:sys49964:goto200
  135. 2010 rem: color 1&2  ( c1 & c2 )                  newsroomissa, arvot 0-15
  136. 2030 iflen(f$)>16thenf$=left$(f$,16)
  137. 2032 n$=right$(n$,len(n$)-2):sys49952:iflen(n$)>32thenn$=left$(n$,32)
  138. 2040 poke49882,len(f$):poke49883,len(n$)
  139. 2050 fory=1tolen(f$):poke49903+y,asc(mid$(f$,y,1)):next
  140. 2052 ifv<6orv>8then2072
  141. 2060 fory=1tolen(n$):n=asc(mid$(n$,y,1))
  142. 2070 poke51471+y,n:next
  143. 2072 ifmu=.thengosub860
  144. 2080 return
  145. 3000 open15,8,15:open2,8,2,"0:"+f$+",p,r":input#15,za,zb$,zc,zd:close2:close15
  146. 3005 ifza=.thenreturn
  147. 3010 sys49840:sys49984:print"[207][200][202][197][204][205][193][193] [197][201] [204][220][217][212][217][206][217][212]. [212]arkista"
  148. 3015 print"onko oikea levynpuoli sis[ll[."
  149. 3020 print"[205]ik[li vika ei kuitenkaan ole"
  150. 3025 print"siin[, tarkista muut kytkenn[t."
  151. 3030 print"'_'-n[pp[imest[ takaisin valikkoon.":poke198,0
  152. 3035 print"[205]uista n[pp[imist[ lataus jatkuu.":sys50416:sys50672:sys50432
  153. 3040 getwc$:print"":ifwc$=""then3040
  154. 3042 ifwc$="_"thenreturn
  155. 3044 sys50048:poke53269,0:goto3000
  156. 3100 rem kuvan printtausrutskut
  157. 3102 sys50416:sys49984:sys50432
  158. 3104 sys49840:sys50665
  159. 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]"
  160. 3112 print" 1 [146]801/1525 -[196]umppi"
  161. 3114 print" 2 [146][201][206][212][197][210][198][193][195][197]-[198]astdump"
  162. 3116 print" 3 [146]802 -[196]umppi"
  163. 3118 print" 4 [146][208][207][201][211]."
  164. 3120 print"[198][193][211][212][196][213][205][208] on tarkoitettu [201][206][212][197][210][198][193][195][197]-"
  165. 3122 print"printtereille. [203]uvien printtaus on"
  166. 3124 print"tehty [196][207][207][196][204][197]- ja [206][197][215][211][210][207][207][205]-kuville.":poke198,0
  167. 3130 getwc$:print"":ifwc$=""orwc$<"1"orwc$>"4"then3130
  168. 3132 on(val(wc$))goto3140,3150,3160,200
  169. 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]";
  170. 3135 ifv=6thenprint"[206][197][215][211][210][207][207][205]";
  171. 3136 print:return
  172. 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
  173. 3138 poke198,0:return
  174. 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
  175. 3140 sys49840
  176. 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]"
  177. 3144 remgosub3134:gosub3137:gosub3139:gosub4000:goto3104
  178. 3146 print" 1525-[196][213][205][208][208][201] [212][213][204][197][197] [197][206][211][201] [206][213][205][197][210][207][207][206]. ":ford=1to2000:next
  179. 3147 goto3104
  180. 3150 sys49840:print"";
  181. 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]"
  182. 3154 gosub3134:gosub3137:gosub3139:sys51712:goto3104
  183. 3160 sys49840:print"";
  184. 3162 printtab(14);"802 [196][213][205][208][208][201]":printtab(14);"[163][163][163][163][163][163][163][163][163][163]"
  185. 3164 print"[193]nna oikean reunan marginaali";:inputma:poke255,ma
  186. 3166 gosub3134:gosub3137:gosub3139:sys52210:goto3104
  187.