home *** CD-ROM | disk | FTP | other *** search
/ Run Magazine ReRun 1984 Half 2 / rerun-1984-07-12.d64 / 64filter (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  4KB  |  125 lines
  1. 10 print"[147]lister-filter":print"loading data":print
  2. 20 b=peek(55)+256*peek(56):ifpeek(b+2)=154then40
  3. 30 b=b-630:b2=int(b/256):b1=b-256*b2:poke55,b1:poke56,b2:pokeb+2,154:clr
  4. 40 b=peek(55)+256*peek(56):a=b
  5. 50 forl=5000to5370step10:s=0:print"[145]line"l
  6. 60 fori=1to10:readv:ifv>255then90
  7. 70 s=s+v+1:pokea,v:a=a+1:nexti:readv:ifv<>sthen90
  8. 80 nextl:readv:goto100
  9. 90 print"data error":print"near line"l:end
  10. 100 forl=5390to5640step10:print"[145]line"l
  11. 110 readx:ready:readv:ifv<>x+ythen90
  12. 120 x=x+b+1:y=y+b:b2=int(y/256):b1=y-256*b2:pokex,b1:pokex+1,b2:nextl
  13. 130 gosub1000:ifpeek(55)=peek(806)andpeek(56)=peek(807)then160
  14. 140 pokeb+324,peek(806):pokeb+325,peek(807):pokeb+369,0
  15. 150 poke806,peek(55):poke807,peek(56)
  16. 160 print"filter installed":end
  17. 1000 a=b+373
  18. 1010 c=32:c$="spc":gosub4000
  19. 1020 c=5:c$="wht":gosub4000
  20. 1030 c=17:c$="down":gosub4000
  21. 1040 c=18:c$="rvs on":gosub4000
  22. 1050 c=19:c$="home":gosub4000
  23. 1060 c=28:c$="red":gosub4000
  24. 1070 c=29:c$="right":gosub4000
  25. 1080 c=30:c$="grn":gosub4000
  26. 1090 c=31:c$="blu":gosub4000
  27. 1095 c=92:c$="lb.":gosub4000
  28. 1100 c=96:c$="shft *":gosub4000
  29. 1110 c=123:c$="shft +":gosub4000
  30. 1120 c=124:c$="comd -":gosub4000
  31. 1130 c=125:c$="shft -":gosub4000
  32. 1140 c=126:c$="pi":gosub4000
  33. 1150 c=127:c$="comd *":gosub4000
  34. 1160 c=133:c$="f1":gosub4000
  35. 1170 c=134:c$="f3":gosub4000
  36. 1180 c=135:c$="f5":gosub4000
  37. 1190 c=136:c$="f7":gosub4000
  38. 1200 c=137:c$="f2":gosub4000
  39. 1210 c=138:c$="f4":gosub4000
  40. 1220 c=139:c$="f6":gosub4000
  41. 1230 c=140:c$="f8":gosub4000
  42. 1240 c=144:c$="blk":gosub4000
  43. 1250 c=145:c$="up":gosub4000
  44. 1260 c=146:c$="rvs off":gosub4000
  45. 1270 c=147:c$="clr":gosub4000
  46. 1280 c=148:c$="inst":gosub4000
  47. 1290 c=156:c$="pur":gosub4000
  48. 1295 c=157:c$="left":gosub4000
  49. 1300 c=158:c$="yel":gosub4000
  50. 1310 c=159:c$="cyn":gosub4000
  51. 1320 c=160:c$="shft spc":gosub4000
  52. 1325 c=168:c$="comd lb.":gosub4000
  53. 1330 c=169:c$="shft lb.":gosub4000
  54. 1340 c=186:c$="shft @":gosub4000
  55. 1350 c=20:c$="del":gosub4000
  56. 1998 ifa>b+627thenprint"strings too long":end
  57. 1999 return
  58. 4000 pokea,c:a=a+1:forz=1tolen(c$):pokea,asc(mid$(c$,z,1)):a=a+1:nextz
  59. 4010 pokea,0:a=a+1:pokea,0:return
  60. 5000 data72,165,154,201,2,48,4,201,5,48,910
  61. 5010 data4,104,76,67,125,104,141,12,3,72,718
  62. 5020 data152,72,138,72,162,3,189,3,0,168,969
  63. 5030 data189,113,125,157,3,0,152,157,113,125,1144
  64. 5040 data202,16,239,173,12,3,201,255,208,4,1323
  65. 5050 data169,126,208,14,201,224,144,4,233,64,1397
  66. 5060 data208,6,201,192,144,2,233,96,197,5,1294
  67. 5070 data208,17,238,3,0,120,248,165,4,24,1037
  68. 5080 data105,1,133,4,216,88,24,144,85,172,982
  69. 5090 data5,0,133,5,165,3,240,53,140,6,760
  70. 5100 data0,162,0,189,117,125,240,94,197,6,1140
  71. 5110 data240,9,232,189,117,125,208,250,232,208,1820
  72. 5120 data238,201,32,208,6,165,3,201,2,144,1210
  73. 5130 data112,32,28,125,232,189,117,125,240,6,1216
  74. 5140 data32,67,125,24,144,244,169,93,32,67,1007
  75. 5150 data125,169,1,133,3,133,4,165,5,201,949
  76. 5160 data13,208,11,32,67,125,169,0,133,3,771
  77. 5170 data133,4,133,5,162,3,189,113,125,168,1045
  78. 5180 data189,3,0,157,113,125,152,157,3,0,909
  79. 5190 data202,16,239,104,170,104,168,104,24,96,1237
  80. 5200 data240,205,165,6,56,233,161,144,30,133,1383
  81. 5210 data6,32,28,125,162,0,189,101,125,240,1018
  82. 5220 data6,32,67,125,232,208,245,174,6,0,1105
  83. 5230 data189,70,125,32,67,125,24,144,163,165,1114
  84. 5240 data6,201,97,144,27,32,28,125,162,0,832
  85. 5250 data189,107,125,240,6,32,67,125,232,208,1341
  86. 5260 data245,165,6,56,233,32,32,67,125,24,995
  87. 5270 data144,221,165,6,32,67,125,206,3,0,979
  88. 5280 data208,246,240,172,169,91,32,67,125,165,1525
  89. 5290 data4,201,2,48,27,74,74,74,74,240,828
  90. 5300 data6,24,105,48,32,67,125,165,4,41,627
  91. 5310 data15,24,105,48,32,67,125,169,32,32,659
  92. 5320 data67,125,96,76,42,163,75,73,84,64,875
  93. 5330 data71,43,77,92,92,78,81,68,90,83,785
  94. 5340 data80,65,69,82,87,72,74,76,89,85,789
  95. 5350 data79,64,70,67,88,86,66,67,79,77,753
  96. 5360 data68,32,0,83,72,70,84,32,0,1,452
  97. 5370 data1,10,46,32,83,80,67,0,5,87,421
  98. 5380 data256
  99. 5390 data12,323,335
  100. 5400 data30,369,399
  101. 5410 data37,369,406
  102. 5420 data103,373,476
  103. 5430 data113,373,486
  104. 5440 data131,284,415
  105. 5450 data135,373,508
  106. 5460 data140,323,463
  107. 5470 data148,323,471
  108. 5480 data163,323,486
  109. 5490 data176,369,545
  110. 5500 data183,369,552
  111. 5510 data211,284,495
  112. 5520 data216,357,573
  113. 5530 data221,323,544
  114. 5540 data230,326,556
  115. 5550 data233,323,556
  116. 5560 data245,284,529
  117. 5570 data250,363,613
  118. 5580 data255,323,578
  119. 5590 data266,323,589
  120. 5600 data274,323,597
  121. 5610 data286,323,609
  122. 5620 data304,323,627
  123. 5630 data314,323,637
  124. 5640 data319,323,642
  125.