Labelmaker

I have been one of those “Sinclair Junkies” since almost the beginning. Yes… I took the abuse…”You have one of those toys?!?”…”I thought that was a high-tech doorstop!”…and so on. But, you know as well as I do that you wouldn’t trade in your T/S for anything. Our motley crew of tinkerers constantly come up with new and exciting ways to enjoy or “toys”. And with great publications such as this, we never run out of places to share our newfound knowledge, or gain insight on how to even beter use “the power within our reach”.

With this in mind, I would like to give a gift to you, “the believers”. LabelMaker is a short program that I wrote to fulfill a need I had for a way to make nice looking cassette labels for my software collection. LabelMaker will work with any full-size printer interface you may have (AERCO, Tasman, A&J, Oliger) because you will use the print driver software provided with your interface, to drive this program.

First, load the driver software for your interface, and save it to a blank tape. DO NOT REWIND THE TAPE! Next, type in the simple program below. SAVE this on the tape immediately following the driver. Make sure to use the LINE command on the SAVE so that it will auto-run.

That’s all there is to it! Just one note…If you plan on using double quotes (“), such as LOAD “”, you will need to input TWICE the amount you will want printed. LOAD “” will need to be inputted as LOAD “”””.

I have found a great place to buy form feed cassette labels to use with your full-size printer. CUSTOM TAPE LOADERS (8135 Cox’s Dr., Suite 209 Portage, MI 49081) has them available in four colors (white-blue-red-yellow) for $1.60 per 1000. Check out their prices on blank computer tapes, too.

I hope you get as much out of this program as I did. Let me know if you make any modifications to this program. Bill Ferrebee, MOUNTAINEER SOFTWARE, 749 Hill Street #6, Parkersburg, WV 26104.

This program runs on the T/S 2068

 10 CLS : INPUT "Program Title:";a$
 12 IF LEN a$>32 THEN  GO TO 10
 14 PRINT TAB 16-(LEN a$/2);a$
 20 INPUT "Line #2 Info:";b$
 22 IF LEN b$>32 THEN  GO TO 20
 24 PRINT TAB 16-(LEN b$/2);b$
 30 INPUT "Line #3 Info:";c$
 32 IF LEN c$>32 THEN  GO TO 30
 34 PRINT TAB 16-(LEN c$/2);c$
 38 PRINT : PRINT : PRINT : PRINT : PRINT
 40 INPUT "Bottom Line:";d$
 42 IF LEN d$>32 THEN  GO TO 40
 44 PRINT TAB 16-(LEN d$/2);d$
 50 PRINT AT 21,8; FLASH 1;"Correct? (y/n)"
 52 IF INKEY$="" THEN  GO TO 52
 54 IF INKEY$="n" THEN  GO TO 10
100 PRINT AT 21,8;"              ": INPUT "Number of copies :";x
110 FOR i=1 TO x
120 LPRINT TAB 16-(LEN a$/2);a$
122 LPRINT TAB 16-(LEN b$/2);b$
124 LPRINT TAB 16-(LEN c$/2);c$
126 LPRINT : LPRINT : LPRINT : LPRINT : LPRINT
128 LPRINT TAB 16-(LEN d$/2);d$
130 LPRINT : LPRINT
132 NEXT i
140 INPUT "More? (y/n):";x$
142 IF x$="y" THEN  GO TO 100
150 INPUT "Another title? (y/n):";x$
152 IF x$="y" THEN  GO TO 10
160 CLS : PRINT AT 10,8;"[Work  Complete]": STOP