Compucolor.org – Virtual Media

Listing of file='DISCRT.BAS;01' on disk='vmedia/ncc_4_11-sector.ccvf'

1 PRINT "FILE 'CODES' REQUIRED FOR DISASSEMBLY PROGRAM."
5 CLEAR 2000
10 DIM A$(256)
20 DIM B(256)
30 FILE "R",1,"CODES",16
40 FOR R= 1TO 256
50 GET 1;A,C,D$[8]
60 B(R)= A+ 1
70 A$(R)= LEFT$ (D$,C)
80 NEXT R
90 FILE "C",1
92 INPUT "IS LINE NUMBERING DESIRED (1 = YES)? ";LN
99 LM= 1
100 IF LM> .5THEN PRINT "INPUT START LOCATION AND # BYTES",
101 LM= LN
102 INPUT T1,R
105 T2= T1+ R
110 L= T1
120 N= PEEK (L)
140 G= B(N+ 1)
145 Z= 0
147 Z$= ""
150 IF G= 3GOTO 200
160 IF G= 2GOTO 220
170 IF LN> .5THEN PRINT L,
172 PRINT TAB( 10)
173 PRINT A$(N+ 1)+ Z$
175 L= L+ G
180 IF L> T2GOTO 100
190 GOTO 120
200 Z= 256* PEEK (L+ 2)
220 Z= Z+ PEEK (L+ 1)
230 ZZ$= STR$ (Z)
235 R= LEN (ZZ$)- 1
240 Z$= RIGHT$ (ZZ$,R)
244 GOTO 170