1-UP Label Addressor
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
10 ' a one (1) up label page blank by fhb4family
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 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 4LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL"
1010 DATA "B20 "
1020 DATA "T21 "
1030 DATA "21 2LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL"
1040 DATA "21 356789 123456789 123456789 12345"
1050 DATA "21 4LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL"
1060 DATA "B21 "
1070 DATA "T22 "
1080 DATA "22 2LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL"
1090 DATA "22 356789 123456789 123456789 12345"
1100 DATA "22 4LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL"
1110 DATA "B22 "
1120 DATA "T23 "
1130 DATA "23 2LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL"
1140 DATA "23 356789 123456789 123456789 12345"
1150 DATA "23 4LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL"
1160 DATA "B23 "
1170 DATA "T24 "
1180 DATA "24 2LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL"
1190 DATA "24 356789 123456789 123456789 12345"
1200 DATA "24 4LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL"
1210 DATA "B24 "
1220 DATA "T25 "
1230 DATA "25 2LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL"
1240 DATA "25 356789 123456789 123456789 12345"
1250 DATA "25 4LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL"
1260 DATA "B25 "
1270 DATA "T26 "
1280 DATA "26 2LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL"
1290 DATA "26 356789 123456789 123456789 12345"
1300 DATA "26 4LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL"
1310 DATA "B26 "
1320 DATA "T27 "
1330 DATA "27 2LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL"
1340 DATA "27 356789 123456789 123456789 12345"
1350 DATA "27 4LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL"
1360 DATA "B27 "
1370 DATA "T28 "
1380 DATA "28 2LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL"
1390 DATA "28 356789 123456789 123456789 12345"
1400 DATA "28 4LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL"
1410 DATA "B28 "
1420 DATA "T29 "
1430 DATA "29 2LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL"
1440 DATA "29 356789 123456789 123456789 12345"
1450 DATA "29 4LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL"
1460 DATA "B29 "
1470 DATA "T30 "
1480 DATA "30 2LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL"
1490 DATA "30 346789 123456789 123456789 12345"
1500 DATA "30 4LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL"
1510 DATA "B30 "
1520 'End of data statements
1530 '
1540 '======1-up label program starts here================
1550 '
1560 'LabelProgramStartsHere:
1570 GOSUB 1620 'VariableAssignments
1580 GOSUB 1690 'load 150 data elements into array A$(150)
1590 GOSUB 1760 'Print1AcrossLabels
1600 END
1610 '
1620 'VariableAssignments:
1630 DIM A$(150) 'create string array that holds labels (data)
1640 T1=3 'set first column tab
1650 LC=1 'set the line counter to 1
1660 I=0 'set counter I to 0
1670 RETURN' to program
1680 '
1690 'LoadLabelData:
1700 WHILE I<150 'set the number of loops
1710 READ A$(I) 'load the label lines (data)into the array
1720 I=I+1 'increment the counter
1730 WEND '^^^^^^^^^^^^^^^loop to load labels into array
1740 RETURN 'to program
1750 '
1760 'Print1AcrossLabels:
1770 I=0 'reset counter to 0 again for 2nd while-wend loop
1780 WHILE I<150 'set loop value
1790 PRINT TAB(T1) A$(I)
1800 LC=LC+1 'increment line counter by one
1810 IF LC>5 THEN GOSUB 1850 'go to insert a line
1820 I=I+1
1830 WEND '^^^^^^^^^^^^^^^^loop thru data to print 1-up label page
1840 '
1850 'Insert-A-Line:
1860 PRINT 'print an empty line to separate labels
1870 LC=1 'reset LC (line counter) to 1
1880 RETURN 'to 1acrossLabels routine
1890 '
1900 'Data Editing Roadmap:
1910 ' cls: list 20-210 'edit labels 1-4
1920 ' cls: list 220-410 'edit labels 5-8
1930 ' cls: list 420-610 'edit labels 9-12
1940 ' cls: list 620-810 'edit labels 13-16
1950 ' cls: list 820-1010 'edit labels 17-20
1960 ' cls: list 1020-1210 'edit labels 21-24
1970 ' cls: list 1220-1410 'edit labels 25-28
1980 ' cls: list 1420-1510 'edit labels 29-30
1990 '
2000 'Subroutine Editing Roadmap:
2010 ' cls: list 1550-1610 'Program
2020 ' cls: list 1610-1680 'VariableAssignments
2030 ' cls: list 1680-1750 'LoadLabelData
2040 ' cls: list 1750-1840 'Print1acrossLabels
2050 ' cls: list 1840-1890 'Insert-A-Line
2060 ' cls: list 1890-1990 'DataEditingRoadmap
2070 ' cls: list 1990-2090 'SubroutineEditingRoadmap
2080 ' cls: list 2090-2120 'EmbeddedCommands
2090 '
2100 'EmbeddedCommands:
2110 '
2120 ' save "1uplabel.bas",a 'save the program in ASCII mode
2130 '
TOP
Index
TOC