Listing of file='CHADIR.BAS;01' on disk='vmedia/utility_2-sector.ccvf'
100 REM CHADIR DIRECTORY NAME CHANGER. 110 PLOT 15,12,6,2,3,20,10:PRINT "DIRECTORY NAME CHANGER" 120 PRINT TAB( 20)"eeeeeeeeeeeeeeeeeeeeee" 130 PRINT :PRINT :INPUT " INSERT DISC AND PRESS RETURN TO READ";RE 140 AD= PEEK (32941)* 256+ PEEK (32940):AD= AD- 130 150 POKE 32941,INT (AD/ 256):POKE 32940,AD- INT (AD/ 256)* 256 160 CLEAR 200 170 AD= PEEK (32941)* 256+ PEEK (32940):A= AD+ 1 180 V= INT (A/ 4096):A= A- V* 4096:GOSUB 230 190 V= INT (A/ 256):A= A- V* 256:GOSUB 230 200 V= INT (A/ 16):A= A- V* 16:GOSUB 230 210 V= INT (A):A= A- V:GOSUB 230 220 GOTO 310 230 IF V< 10THEN ADR$= ADR$+ RIGHT$ (STR$ (V),1) 240 IF V= 10THEN ADR$= ADR$+ "A" 250 IF V= 11THEN ADR$= ADR$+ "B" 260 IF V= 12THEN ADR$= ADR$+ "C" 270 IF V= 13THEN ADR$= ADR$+ "D" 280 IF V= 14THEN ADR$= ADR$+ "E" 290 IF V= 15THEN ADR$= ADR$+ "F" 300 RETURN 310 PLOT 27,4:PRINT "READ 0 "+ ADR$+ " 0080":PLOT 27,27 320 FOR I= AD+ 4TO AD+ 13:X= PEEK (I):N$= N$+ CHR$ (X):NEXT I 330 PRINT 340 PRINT TAB( 15)"THE CURRENT DISK NAME IS: ";N$:PRINT 350 INPUT " ENTER THE DESIRED NEW NAME: ";S$ 360 IF S$= "0"OR S$= ""THEN 420 370 IF LEN (S$)> 10THEN PRINT "NAME TOO LONG":GOTO 350 380 S$= S$+ " ":J= 0 390 FOR I= AD+ 4TO AD+ 13:J= J+ 1 400 X= ASC (MID$ (S$,J,1)):POKE I,X:NEXT I 410 PLOT 27,4:PRINT "WRITE 0 "+ ADR$+ " 0080":PLOT 27,27 420 AD= AD+ 130 430 POKE 32941,INT (AD/ 256):POKE 32940,AD- INT (AD/ 256)* 256 440 CLEAR 100 450 PLOT 12,15:PLOT 27,4:PRINT "DIR":PLOT 27,27 460 INPUT " PRESS RETURN TO REPEAT - ";RE 470 GOTO 100