Quick-Docs by Ron Fetzer› › › The DISK LABEL program prints› an alphabetical list of your disk› directory on 3.5 x 15/16 size› pressure sensitive labels. › › The program can print 27 file› names on one label. If there are› more than 27 names it will print it› on a second label. The program can› handle a total of 54 files. The› program will ignore the following› file names: DOS.SYS, DUP.SYS and› RAMDISK.COM. › › The program will search for the› disk title that was placed on the› disk with the CATALOGER program.› This title will be printed on the› first line with the disk density› information and the number of K-› bytes of free disk space. If there› is no disk title on the disk then› the program will ask you for a› title. › › To adjust the labels correctly› in your printer use the LABEL ADJUST› section. Move your label either up› or down until it is in the right› position. Once you have found the› correct position make a dot with› WHITEOUT on your tractor feed› housing. Now you will have a position› indicator of where the beginning of› the labels are to be placed. › › If your printer is not an EPSON› or COMPATIBLE or an ATARI then you› must put into the program YOUR› PRINTER control characters. Please› unlock the program and list it. In› lines 470, 480, 490 remove the REM.› In line 470 put in the printer› control characters for 6/72 line› spacing. In line 480 put in the› control characters for compressed or› condensed. In line 490 put in the› control characters for superscript.› See the example: 470 IF NN=3 THEN› LPRINT CHR$(27);"A";CHR$(6). 480 IF› NN=3 THEN LPRINT CHR$(27);CHR$(20). › 490 IF NN=3 THEN LPRINT› CHR$(27);"R";CHR$(0). Also look at› lines 390-450 to see how it is done.› In line 2360 remove the REM› statement and type in the reverse› line feed code for your printer.› Example: 2360 LPRINT› "*********";CHR$(27);CHR$(10). (Be › sure to remove the colon - keep the› semi colon). Also look at lines 1930› and 2150 for guidance. When you have› done this save your program with› SAVE "D:LABEL.TUR". › › If you want this program to be› free standing on another disk copy› the file named "LABEL.TUR" on a› TURBO BASIC disk and call it› "LABEL.ARB". › › To use this program hit the› RESET key and type in RUN "D:LABEL.› TUR". › › >>>>>>>>>>>>>>>>END<<<<<<<<<<<<<<<<<<› ›