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
Hosted by www.Geocities.ws

1