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