2up 2x10 Label Printer
1" x 3 1/2" labels
for the family using
GW-BASIC
Page 1 of the Last Book of GW-BASIC
Back to the GW-BASIC Table of Contents
All the way back to Frankenbook
Here is the 20 blank labels for your filling out.
Ummm... you might want to send a PCL code to throw
the printer into a more accommodating font for labels
if 35 characters long won't quite do it for you.
see TW.BAS for some pcl stuff. GW-BASIC is getting
some printing static from the later Windows operating
systems after win98se. So mainly to save yourself
some headaches, just use this in DOS mode.
But, in any event, try it first, it may work anyhow.
Plus, to make matters worse, you may have to jitter-
bug around with the T1-T2 column spacing variables
as well as throw in a couple of "print:print:print"
lines in front to adjust vertical spacing.
Don't use label stock for checking out the spacing,
just use normal 24# paper and hold it up to the light
against a page of empty labels to check spacing.
10 ' 2up label printing program
20 DATA "T1 "
30 DATA "1 2LLLLLLLLLLLLLLLLllllllllllLLLLLL"
40 DATA "1 3456789 123456789 123456789 12345"
50 DATA "1 4LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL"
60 DATA "B1 "
70 DATA "T2 "
80 DATA "2 2LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL"
90 DATA "2 3456789 123456789 123456789 12345"
100 DATA "2 4LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL"
110 DATA "B2 "
120 DATA "T3 "
130 DATA "3 2LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL"
140 DATA "3 3456789 123456789 123456789 12345"
150 DATA "3 4LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL"
160 DATA "B3 "
170 DATA "T4 "
180 DATA "4 2LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL"
190 DATA "4 3356789 123456789 123456789 12345"
200 DATA "4 4LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL"
210 DATA "B4 "
220 DATA "T5 "
230 DATA "5 2LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL"
240 DATA "5 3456789 123456789 123456789 12345"
250 DATA "5 4LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL"
260 DATA "B5 "
270 DATA "T6 "
280 DATA "6 2LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL"
290 DATA "6 3456789 123456789 123456789 12345"
300 DATA "6 4LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL"
310 DATA "B6 "
320 DATA "T7 "
330 DATA "7 2LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL"
340 DATA "7 3456789 123456789 123456789 12345"
350 DATA "7 4LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL"
360 DATA "B7 "
370 DATA "T8 "
380 DATA "8 2LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL"
390 DATA "8 3456789 123456789 123456789 12345"
400 DATA "8 4LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL"
410 DATA "B8 "
420 DATA "T9 "
430 DATA "9 2LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL"
440 DATA "9 3456789 123456789 123456789 12345"
450 DATA "9 4LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL"
460 DATA "B9 "
470 DATA "T10 "
480 DATA "10 2LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL"
490 DATA "10 356789 123456789 123456789 12345"
500 DATA "10 4LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL"
510 DATA "B10 "
520 DATA "T11 "
530 DATA "11 2LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL"
540 DATA "11 356789 123456789 123456789 12345"
550 DATA "11 4LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL"
560 DATA "B11 "
570 DATA "T12 "
580 DATA "12 2LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL"
590 DATA "12 356789 123456789 123456789 12345"
600 DATA "12 4LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL"
610 DATA "B12 "
620 DATA "T13 "
630 DATA "13 2LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL"
640 DATA "13 356789 123456789 123456789 12345"
650 DATA "13 4LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL"
660 DATA "B13 "
670 DATA "T14 "
680 DATA "14 2LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL"
690 DATA "14 356789 123456789 123456789 12345"
700 DATA "14 4LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL"
710 DATA "B14 "
720 DATA "T15 "
730 DATA "15 2LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL"
740 DATA "15 356789 123456789 123456789 12345"
750 DATA "15 4LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL"
760 DATA "B15 "
770 DATA "T16 "
780 DATA "16 2LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL"
790 DATA "16 356789 123456789 123456789 12345"
800 DATA "16 4LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL"
810 DATA "B16 "
820 DATA "T17 "
830 DATA "17 2LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL"
840 DATA "17 356789 123456789 123456789 12345"
850 DATA "17 4LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL"
860 DATA "B17 "
870 DATA "T18 "
880 DATA "18 2LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL"
890 DATA "18 356789 123456789 123456789 12345"
900 DATA "18 4LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL"
910 DATA "B18 "
920 DATA "T19 "
930 DATA "19 2LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL"
940 DATA "19 356789 123456789 123456789 12345"
950 DATA "19 4LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL"
960 DATA "B19 "
970 DATA "T20 "
980 DATA "20 2LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL"
990 DATA "20 356789 123456789 123456789 12345"
1000 DATA "20 4LLLLLLLLLLLLLLLLLLLLLLLLLLLLLL"
1010 DATA "B20 "
1020 '
1030 'End of data statements
1040 '
1050 '======2 column label program starts here================
1060 '
1070 'LabelProgramStartsHere:
1080 GOSUB 1130 'VariableAssignments
1090 GOSUB 1200 'load 100 data elements into array A$(99)
1100 GOSUB 1280 'Print2AcrossLabels
1110 END
1120 '
1130 'VariableAssignments:
1140 DIM A$(99) 'create string array that holds labels (data)
1150 T1=3 'set first column tab
1160 T2=43 'set second column tab
1170 LC=1 'set the line counter to 1
1180 RETURN' to program
1190 '
1200 'LoadLabelData:
1210 I=1 'set counter I to 1
1220 WHILE I<100 'set incrementing parameter
1230 READ A$(I) 'load the label lines (data)into the array
1240 I=I+1 'increment the counter
1250 WEND '^^^^^^^^^^^^^^^loop to load labels into array
1260 RETURN 'to program
1270 '
1280 'Print2AcrossLabels:
1290 I=1 'reset counter to 1 again for 2nd while-wend loop
1300 WHILE I<50 'set incrementing parameter
1310 PRINT TAB(T1) A$(I); 'To print data on labels, change the
1320 PRINT TAB(T2) A$(I+50) 'two PRINT statements to LPRINT.
1330 LC=LC+1 'increment line counter by one
1340 IF LC>5 THEN GOSUB 1380 'go to insert a line
1350 I=I+1
1360 WEND '^^^^^^^^^^^^^^^^loop thru data to print 2-up label page
1370 '
1380 'Insert-A-Line:
1390 PRINT 'print an empty line to separate labels
1400 LC=1 'reset LC (line counter) to 1
1410 RETURN 'to 2AcrossLabels routine
1420 '
1430 'Data Editing Roadmap:
1440 ' cls: list 20-210 'edit labels 1-4
1450 ' cls: list 220-410 'edit labels 5-8
1460 ' cls: list 420-610 'edit labels 9-12
1470 ' cls: list 620-810 'edit labels 13-16
1480 ' cls: list 820-1010 'edit labels 17-20
1490 '
1500 'Subroutine Editing Roadmap:
1510 ' cls: list 1040-1120 'Program 2upLabels
1520 ' cls: list 1120-1190 'VariableAssignments
1530 ' cls: list 1190-1270 'LoadLabelData
1540 ' cls: list 1270-1370 'Print2upLabels
1550 ' cls: list 1370-1420 'Insert-a-Line
1560 ' cls: list 1420-1490 'EditLabelData
1570 ' cls: list 1490-1590 'SubroutineEditingRoadmap
1580 ' cls: list 1590-1620 'EmbeddedCommands
1590 '
1600 'EmbeddedCommands:
1610 ' save "2uplabel.bas",a 'save the program in ASCII mode
1620 '
TOP
Index
TOC