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