Listing of file='DIR.BAS;01' on disk='vmedia/ncc_10-sector.ccvf'
1000 REM PROGRAM NAME: DIR 1100 REM AUTHOR: RICKI A. VICK 20APR80 1200 REM FUNCTION: PRINT DISK DIRECTORIES ON LINE PRINTER WITH DATE/TIME 1300 REM CATEGORY: BASIC 1400 REM MEMORY REQUIRED: 8K 1500 REM VERSION: V6.78 OR V8.79 1600 REM SPECIAL HARDWARE: LINE PRINTER VIA RS232 PORT 1700 REM SPECIAL SOFTWARE: NONE 1800 PLOT 30,16,29:OUT 8,255 1900 PRINT "DISK DIRECTORY TO LINE PRINTER WITH DATE/TIME" 2000 GOSUB 65080 2100 PRINT "USE 'A' FOR THE LABELED OR SMOOTH SIDE" 2200 PRINT "USE 'B' FOR THE UNLABELED OR FOLDED SIDE" 2300 INPUT "PUT MINIFLOPPY IN DISK DRIVE...WHICH SIDE (A/B)? ";C$ 2400 IF C$= "A"THEN 2900 2500 IF C$= "B"THEN 2900 2600 IF C$= "C"THEN 2900 2700 IF C$= "D"THEN POKE 33265,0:POKE 33289,64:END 2800 GOTO 2300 2900 PLOT 14,27,18,3:POKE 33289,64:PLOT 27,13:OUT 8,4:PLOT 27,117,1 3000 IF C$= "A"THEN PLOT 12 3100 IF C$= "C"THEN PLOT 12 3200 IF C$= "B"THEN PRINT 3300 IF C$= "C"THEN C$= "B" 3400 PRINT "DIRECTORY OF SIDE ";C$;" AS OF: ";:GOSUB 65080:POKE 33265,0:PLOT 27,7:PRINT "DIR":PLOT 27,27:OUT 8,255:GOTO 2300 65000 PLOT 30,16,29:PRINT "LISTING TO PRINTER":GOSUB 65080:PRINT "ENTER THE ";:PLOT 34 65010 PRINT "VOLUME:FILE NAME";:PLOT 34:INPUT " IN QUOTES: ";N$ 65020 IF VAL (N$)= 0THEN N$= "R VICK 009:DIR.BAS;01" 65030 SS= PEEK (33209):MI= PEEK (33210):HR= PEEK (33211)- 1 65040 PLOT 15,27,18,6:POKE 33289,95:OUT 8,255:OUT 8,4:PLOT 27,13,27,117,20 65050 PRINT N$;" ";YR* 100+ MO;".";RIGHT$ (STR$ (DY+ 100),2);" "; 65060 PRINT RIGHT$ (STR$ (HR* 100+ MI+ 10000),4);":";RIGHT$ (STR$ (SS+ 100),2):PRINT 65070 POKE 33265,14:LIST :PLOT 12,12:OUT 8,255:POKE 33265,0:POKE 33289,64:END 65080 ADR= 65532:YR= PEEK (ADR+ 1):MO= PEEK (ADR+ 2):DY= PEEK (ADR+ 3):IF YR> = 80THEN 65170 65090 INPUT "DATE/TIME (YRMO.DY [HHMM])? ";D$ 65100 GOSUB 65190:YR= D:GOSUB 65190:MO= D:D$= RIGHT$ (D$,LEN (D$)- 1):GOSUB 65190:DY= D 65110 POKE ADR+ 1,YR:POKE ADR+ 2,MO:POKE ADR+ 3,DY 65120 ADR= 256* PEEK (32941)+ PEEK (32940):IF ADR< = 65532THEN 65140 65130 ADR= 65532:ZZ= INT (ADR/ 256):POKE 32940,ADR- 256* ZZ:POKE 32941,ZZ 65140 IF LEN (D$)= 0THEN 65170 65150 D$= RIGHT$ (D$,LEN (D$)- 1):GOSUB 65190:HR= D:GOSUB 65190:MI= D 65160 POKE 33209,0:POKE 33210,MI:POKE 33211,HR+ 1 65170 SS= PEEK (33209):MI= PEEK (33210):HR= PEEK (33211)- 1 65180 PRINT YR* 100+ MO;".";RIGHT$ (STR$ (DY+ 100),2);" ";RIGHT$ (STR$ (HR* 100+ MI+ 10000),4);":";RIGHT$ (STR$ (SS+ 100),2):RETURN 65190 D= VAL (LEFT$ (D$,2)):IF LEN (D$)= 2THEN D$= "":RETURN 65200 D$= RIGHT$ (D$,LEN (D$)- 2):RETURN