Listing of file='DUMP.BAS;01' on disk='vmedia/ncc_2-sector.ccvf'
17440 ISK WITHOUT 60 REM DISTURBING (HOPEFULLY) THE REST OF THE 70 REM DIRECTORY. ANY TEN CHARACTERS ARE LEGAL 80 REM INCLUDING SPACES AND SPECIAL CHARACTERS. 90 REM 100 REM THIS PROGRAM WRITES ON THE DIRECTORY 110 REM BACKUPS ARE RECOMMENDED. 120 REM 1000 REM 1010 REM DISPLAY DIRECTORY BEFORE VOLUME NAME CHANGE 1020 REM 1030 PLOT 15,6,2,27,4 1040 PRINT "DIR" 1050 PLOT 27,27 1100 REM 1110 REM GET NEW VOLUME NAME 1120 REM 1130 INPUT " ENTER NEW VOLUME NAME : ";VN$:REM 1140 IF VN$= "0"THEN END 1150 T= PEEK (32941)- 1 1160 H$= "" 1170 X1= INT (T/ 16) 1180 X2= T- X1* 16 1190 IF X2> 9THEN X2= X2+ 7 1200 X2= X2+ 48 1210 IF X1> 9THEN X1= X1+ 7 1220 X1= X1+ 48 1230 H$= H$+ CHR$ (X1)+ CHR$ (X2) 1232 REM 1234 REM READ 1ST DIRECTORY BLOCK 1236 REM 1240 PLOT 27,4 1250 PRINT "READ 00 ";H$;"00-";H$;"7F" 1260 PLOT 27,27 1270 IF LEN (VN$)< 10THEN VN$= VN$+ " ":GOTO 1270 1280 B= T* 256+ 2 1290 FOR I= 1TO 10 1300 C= ASC (MID$ (VN$,I,1)) 1310 POKE B+ I,C 1320 NEXT I 1500 REM 1510 REM WRITE MODIFIED DIRECTORY TO THE DISK 1520 REM 1530 PLOT 6,2,27,4 1540 PRINT "WRITE 00 ";H$;"00-";H$;"7F" 1550 REM 1560 REM DISPLAY DIRECTORY AFTER VOLUME NAME CHANGE 1570 REM 1580 PRINT "DIR" 1590 PLOT 27,27 54170 REM 65000 REM 65010 REM 65020 REM 65030 REM 65040 REM 65050 REM 65060 REM WARNING 65070 REM ======= 65080 REM 65090 REM THIS PROGRAM WRITES ON THE DIRECTORY. 65100 REM FAILURE COULD CAUSE DATA ON THE DISK 65110 REM TO BE LOST. BACKING UP IS RECOMMENDED. 65120 REM 65130 REM 65140 REM DELETE LINE 1 AND ENTER RUN 65150 REM 65160 REM