Compucolor.org – Virtual Media

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