Listing of file='DUPKTE.BAS;01' on disk='vmedia/utility-sector.ccvf'
2 PLOT 12 5 CLEAR 100 10 T= PEEK (32940)+ 256* PEEK (32941) 30 P= PEEK (32984)+ 256* PEEK (32985) 50 A= INT ((P+ 200)/ 256):B= (P+ 200)- A* 256 70 C= INT (T/ 256):D= T- 256* C 100 A= A+ 1:B= 0 102 C= C- 2:D= 255 105 P= A* 256+ 23:REM P NOW POINTS TO FIRST ATTRIBUTE BYTE 110 X= A:GOSUB 900:A$= H$ 120 X= B:GOSUB 900:A$= A$+ H$ 125 A$= A$+ "-" 130 X= C:GOSUB 900:A$= A$+ H$ 140 X= D:GOSUB 900:A$= A$+ H$ 160 I= 0 165 PLOT 6,2:INPUT "SOURCE DISK";Z:PLOT 27,4 166 X= I:GOSUB 900 170 PRINT "READ ";H$;" ";A$ 172 PLOT 27,27:IF I= 0THEN GOSUB 800 173 PLOT 6,6:INPUT "DESTINATION DISK";Z:PLOT 27,4 174 PRINT "WRITE ";H$;" ";A$ 190 I= I+ INT ((T- P)/ 128) 194 IF I= > QTHEN 1000 195 IF I+ INT ((T- P)/ 128)> 400THEN I= 400- INT ((T- P)/ 128) 197 PLOT 27,27 200 GOTO 165 500 GOTO 1000 800 REM 810 INPUT "ARE THERE ANY ITEMS TO BE COPIED NOT SHOWN IN THE DIRECTORY? ";Q$ 820 IF LEFT$ (Q$,1)= "Y"THEN Q= 400:RETURN 830 Q= PEEK (P+ 11)+ 256* PEEK (P+ 12) 850 IF PEEK (P)= 1THEN P= A* 256:RETURN 860 P= P+ 21 870 IF INT (P/ 128)= P/ 128THEN P= P+ 2 880 GOTO 830 890 RETURN 900 REM X=VALUE TO BE HEXXED 905 H$= "" 910 X1= INT (X/ 16):X2= X- 16* X1 920 IF X2< 10THEN X2= X2+ 48:GOTO 940 930 X2= X2+ 55 940 IF X1< 10THEN X1= X1+ 48:GOTO 960 950 X1= X1+ 55 960 H$= H$+ CHR$ (X1)+ CHR$ (X2) 965 IF X1< 71THEN RETURN 970 X1= X1- 71 980 H$= "1" 990 GOTO 940 1000 REM 1010 END