Listing of file='DISTYP.BAS;01' on disk='vmedia/ncc_4_11-sector.ccvf'
0 PLOT 12,8,6,6 1 PRINT "FILE 'CODES' REQUIRED FOR DISASSEMBLY PROGRAM." 2 PLOT 6,4 3 INPUT ZX 5 CLEAR 20000 7 KB= 33278:LF$= CHR$ (13)+ CHR$ (10) 8 TB$= CHR$ (9):FB= 30652 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 93 PP= 7 94 TMP= PEEK (33265):PLOT 15,27,18,PP 95 PLOT 6,3 100 INPUT "INPUT START, FINAL LOCATIONS ";T1,T2 102 INPUT "INPUT NORMAL STARTING LOCATION ";FS 103 PLOT 6,2:PRINT "TABS MUST BE SET BY TENS. INPUT AN 'A' AT THE END OF ANY PAGE" 104 INPUT "TO RUN CONTINUOUSLY. HIT CR WHEN PAPER ALIGNED ";AZ$ 105 FS= T1- FS 110 L= T1 112 L3= L 115 PLOT 27,13:POKE FB,96 116 WW$= LF$:GOSUB 62010 118 CN= 1 120 N= PEEK (L) 140 G= B(N+ 1) 145 Z= 0 147 Z$= "" 150 IF G= 3GOTO 200 160 IF G= 2GOTO 220 162 L9= L- FS 163 WW$= STR$ (L9)+ TB$+ STR$ (N)+ TB$:GOSUB 62010 164 IF G> 1THEN WW$= STR$ (N1)+ TB$:GOSUB 62010:GOTO 170 165 WW$= TB$+ TB$:GOSUB 62010:GOTO 172 170 IF G= 3THEN WW$= STR$ (N2)+ TB$:GOSUB 62010:GOTO 172 171 WW$= TB$:GOSUB 62010 172 WW$= A$(N+ 1)+ Z$:GOSUB 62010 174 WW$= LF$:GOSUB 62010 175 L= L+ G 176 IF L> L3+ 3GOTO 280 177 L3= L 180 IF L> T2THEN WW$= LF$:GOSUB 62010:POKE 33265,TMP:GOTO 100 185 CN= CN+ 1 187 IF CN> 63GOTO 250 190 GOTO 120 200 N2= PEEK (L+ 2):Z= 256* N2 220 N1= PEEK (L+ 1):Z= Z+ N1 230 ZZ$= STR$ (Z) 235 R= LEN (ZZ$)- 1 240 Z$= RIGHT$ (ZZ$,R) 244 GOTO 162 250 CN= 1 260 WW$= LF$+ LF$+ LF$:GOSUB 62010 261 IF AZ$= "A"GOTO 120 262 POKE 33265,TMP 264 INPUT AZ$ 266 PLOT 27,13 270 GOTO 120 280 END 62000 REM FAST OUTPUT SUBROUTINE 62010 POKE KB,0:POKE FB+ 1,3 62050 FOR EE= 1TO LEN (WW$):PRINT MID$ (WW$,EE,1); 62060 FC= PEEK (KB):IF FC= 147THEN POKE FB+ 1,1:GOTO 62060 62070 IF FC= 17THEN POKE FB+ 1,0:GOTO 62080 62075 IF FC< > 0THEN POKE 33265,TMP:PRINT FC,:INPUT "STOP? (Y/N) ";AA$:GOTO 62100 62080 NEXT EE 62090 RETURN 62100 IF LEFT$ (AA$,1)= "Y"THEN END 62110 PLOT 27,13:GOTO 62080