ROM Computer Magazine Archive ROM MAGAZINE ISSUE 10 — FEBRUARY/MARCH 1985 / PAGE 28

DISK LABEL MAKER

by Bob Cockroft

    If you are one who often wastes time searching through your disk collection for a program, Disk Label is an utility that may be helpful. This program will print a compact list of what files your disk contains. Because this list of contents is printed in hardcopy form, it can be attached to a disk so that its files can be easily identified. Before RUNing this utility, make certain the printer and interface are on-line. Soon after the Disk Labeler begins, the computer will ask for the number of the drive you want to use. Type in this number, and place in this drive the disk for which you want a list of contents. The computer will then ask for a name to indentify the disk. After typing a name and pressing the RETURN key, the drive will turn on, and the printer will begin to write the list of the disk's contents.

100 REM **********************
110 REM *                    *
120 REM *  DISK LABEL MAKER  *
140 REM *                    *
150 REM **********************
160 GRAPHICS 0
170 TRAP 440
180 CLOSE #l:CLOSE #2
190 DIM ST$(10),BSE$(40),NAM$(C40),C$(40)
200 C$(40)=" "
210 ? :? "Which disk drive";
220 INPUT DD
230 ? " NAME DISK "
240 INPUT NAM$
250 ST$="D"
260 ST$(LEN(ST$)+1)=STR$(DD)
270 ST$(LEN(ST$)+1)=":*.*"
280 OPEN #1,6,0,ST$
290 OPEN #2,8,0,"P:":? "          PRINTING ":?
300 PRINT #2; "             DISK:  ";NAM$
310 PRINT #2:? #2;"    FILE     SEC    FILE    SEC":? #2
320 INPUT #1,BSE$:IF BSE$(5,8)="FREE" THEN 380
330 ? #2;"  ";BSE$;
340 INPUT #1,BSE$
350 IF BSE$(5,8)="FREE" THEN 380
360 ? #2;"  ";BSE$
370 GOTO 320
380 ? #2:? #2;"      ";BSE$(1,3):"FRE SECTORS AVAILABLE"
390 PRINT #2:PRINT #2
400 CLOSE #2
410 ? :? "      PRESS START TO RERUN"
420 IF PEEK(53279)=6 THEN RUN
430 GOTO 420
440 ? "MAKE CERTAIN THE PRINTER IS ON-LINE"

Check Data
0 REM * CHECK DATA: DISK LABEL MAKER *
100 DATA 7221,600,381,84,34,384,605,11,834,379,260,778,237,903,183,25,738,785
270 DATA 8233,540,200,584,191,234,812,80,152,943,24,835,313,429,826,326,911,833
440 DATA 893,893