Compucolor.org – Virtual Media

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

100 DATA  245,197,213,229,14,4,33,255,127,17,255,119,235
110 DATA  70,235,113,43,112,43,27,62,112,186,194,229,255,62
120 DATA  01,187,194,229,255,235,113,225,209,193,241,201
130 E1= 32940:TM= 256* PEEK (E1+ 1)+ PEEK (E1)- 41
140 FOR I= 0TO 38
150 READ A
160 POKE I+ TM,A
170 NEXT
180 A1= INT (TM/ 256):A2= TM- (A1* 256)
190 POKE 33282,195:POKE 33283,A2:POKE 33284,A1
210 D= TM+ 12
220 A1= INT (D/ 256):A2= D- (A1* 256)
230 POKE TM+ 24,A2:POKE TM+ 25,A1
240 POKE TM+ 30,A2:POKE TM+ 31,A1
1010 PLOT 6,6,15,12
1020 PRINT TAB( 14);"WRITE DISK SECTOR TO SCREEN"
1030 PLOT 6,2,27,4
1040 PRINT "DIR"
1050 PLOT 27,27,6,3
1060 INPUT "ENTER SECTOR # TO COPY ";SN$
1070 PLOT 27,4
1080 PRINT "READ CD0: ";SN$;" 6000-67FF"
1090 PLOT 27,27
1100 Y= CALL (A)
1110 PLOT 3,64,0
1120 INPUT "";X$
1130 TM= TM+ 41
1140 A1= INT (TM/ 256):A2= TM- (A1* 256)
1150 POKE E1,A2:POKE E1+ 1,A1