home *** CD-ROM | disk | FTP | other *** search
/ Floppy Magazine 1988 #3 / Floppy_Magazine_88-3_1988_Megasystems_Oy_fi_Side_B.d64 / mx (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  3KB  |  101 lines
  1. 100 rem: copyright by protocol prod. oy 101 rem: valikon teki toni luode ad.-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][197][206] 3/88!"
  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"andbp=0then449
  44. 441 sys49920:ifbp=1then448
  45. 442 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]":bp=1
  46. 444 print"[202][193] [208][193][201][206][193] [202][207][212][193][201][206].":poke198,0:wait198,1:poke198,0
  47. 446 goto449
  48. 448 printleft$(cd$,13);"[211][217][220][212][219] [193]-[208][213][207][204][201] [204][197][214][217][193][211][197][205][193][193][206]":bp=0
  49. 449 sys49840
  50. 450 v=val(e$(n0)):f$=f$(n0):n$=n$(n0):sys49467:off=.:ifpeek(49875)=1thenoff=1
  51. 452 ifright$(f$,2)<>".n"thentu=1:goto460
  52. 455 poke816,165:poke817,244:f$=left$(f$,len(f$)-2):poke49875,0:tu=0
  53. 456 rem 0=nothing:1=help:2=music:3=load"",8:4=load"",8,1:5=easy script file
  54. 458 rem 6=newsroom photo:7=koalapainter picture:8=doodle picture:>8=load+sys
  55. 460 sys51648:sys49920
  56. 462 if(n1<>n0)orpmthen468
  57. 464 sys50048:ifv>=6andv<=8then2006
  58. 466 onvgoto650,896,570,600,512
  59. 468 n1=n0
  60. 469 sys50048:ifv<>2thengosub900
  61. 470 poke53269,.:ifv>=6andv<=8then2000
  62. 472 ifv>8then610
  63. 480 onvgoto640,890,570,600,490
  64. 490 f$=f$+",s":gosub500:sys50416:goto200
  65. 500 ifv<>5thenreturn
  66. 505 ifpmthenpm=.:goto520
  67. 510 gosub860:open1,8,0,f$:sys16384:return
  68. 512 poke53269,0:sys17080:sys50416:goto200
  69. 520 sys49840:printleft$(cd$,13);"[212]ulostetaanko teksti (k/e) ?  [146]":sys49920
  70. 530 geta$:print"":ifa$=""ora$<>"e"anda$<>"k"then530
  71. 540 sys50048:ifa$="e"thensys49920:return
  72. 550 gosub860:open2,4,7:cmd2:open1,8,0,f$:sys50592:close1:close2:sys49920:return
  73. 570 gosub3000:ifza>0thengosub620:goto200
  74. 580 gosub860:gosub630:print"";:gosub624
  75. 586 print":clr:p[207]198,1:p[207]631,131"
  76. 590 print"load"chr$(34)f$chr$(34)",8":poke198,1:poke631,13:end
  77. 600 gosub3000:ifza>0thengosub620:goto200:rem:load"",8,1
  78. 602 gosub860:gosub630:print"";:gosub624
  79. 606 print":clr:p[207]198,1:p[207]631,131"
  80. 608 print""chr$(34)f$chr$(34)",8,1":poke198,1:poke631,13:end
  81. 610 gosub3000:ifza>0thengosub620:goto200:rem:load"",8,1+sys...?
  82. 612 gosub860:gosub630:print"";:gosub624
  83. 615 print":clr:p[207]198,2:p[207]631,13:p[207]632,13"
  84. 616 print"load"chr$(34)f$chr$(34)",8,1":poke198,1:poke631,13
  85. 618 print"sys";v;"":end
  86. 620 if off then poke49875,off
  87. 622 return
  88. 624 iftu=.orpeek(49875)=.thenprint"sys53226";
  89. 626 iftu=1andpeek(49875)=1thenprint"sys53184";
  90. 628 return
  91. 630 sys64789:sys65409:sys64931:sys49467:poke646,14:poke53272,20:return
  92. 640 f$="apua":gosub660:gosub2030:sys50032:goto200
  93. 650 gosub660:sys50037:goto200
  94. 660 poke53269,.:mu=.:zz=1:sys50886:return
  95. 860 poke53269,.
  96. 865 rk=rk+1:gosub900:if rk>5then rk=1
  97. 870 v$="mainos"+right$(str$(rk),1)
  98. 880 open1,8,2,v$+",s":sys16999:return
  99. 890 sys50416:ifmu=1thenmu=.:gosub900:goto200
  100. 892 mu=1:sys49920:gosub2030:sys4
  101.