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