ABBUC #60¢¢¢LABEL.TUR¢¢von der Clubdisk 1/2000 von unserem befreundeten Club OL HACKERS aus den USA¢¢¢ 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".¢
