00000000: 53 42 01 2F 08 64 00 8F 20 CC 41 42 45 4C 20 50 |SB./.d.. .ABEL P|
00000010: 52 4F 47 52 41 4D 2C 20 D0 52 45 43 49 53 49 4F |ROGRAM, .RECISIO|
00000020: 4E 20 D3 4F 46 54 57 41 52 45 2C 20 31 39 38 33 |N .OFTWARE, 1983|
00000030: 00 46 08 6E 00 21 15 3A 21 19 3A 21 35 3A 21 31 |.F.n.!.:!.:!5:!1|
00000040: 3A 21 38 3A 21 34 31 00 70 08 96 00 45 52 52 24 |:!8:!41.p...ERR$|
00000050: B2 C7 28 37 29 AA 22 C9 4E 43 4F 52 52 45 43 54 |..(7).".NCORRECT|
00000060: 20 D2 45 53 50 4F 4E 53 45 2C 20 D2 45 54 52 59 | .ESPONSE, .ETRY|
00000070: 22 00 B8 08 A0 00 43 4C 24 B2 22 44 49 53 50 4C |".....CL$."DISPL|
00000080: 41 59 20 43 48 52 24 28 31 34 37 29 40 31 2C 32 |AY CHR$(147)@1,2|
00000090: 22 AA C7 28 33 34 29 AA 22 20 20 20 20 20 20 20 |"..(34)." |
000000A0: 20 D3 55 50 45 52 42 41 53 45 20 CC 41 42 45 4C | .UPERBASE .ABEL|
000000B0: 20 D0 52 4F 47 52 41 4D 22 00 F0 08 AA 00 43 4C | .ROGRAM".....CL|
000000C0: 24 B2 43 4C 24 AA C7 28 31 33 29 AA 22 20 20 20 |$.CL$..(13)." |
000000D0: D0 52 45 43 49 53 49 4F 4E 20 D3 4F 46 54 57 41 |.RECISION .OFTWA|
000000E0: 52 45 20 CC 54 44 2E 20 28 43 29 20 31 39 38 33 |RE .TD. (C) 1983|
000000F0: 22 00 27 09 B4 00 21 16 3A 21 51 22 44 49 53 50 |".'...!.:!Q"DISP|
00000100: 4C 41 59 40 30 22 AA CA 28 43 4C 24 2C 31 38 29 |LAY@0"..(CL$,18)|
00000110: AA 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |." |
00000120: 20 20 20 20 20 20 20 22 00 58 09 BE 00 21 3A 26 | ".X...!:&|
00000130: 31 30 22 C6 49 4C 45 20 D4 4F 20 D0 52 49 4E 54 |10".ILE .O .RINT|
00000140: 20 C6 52 4F 4D 22 3B 46 24 3A 21 0A 46 24 3A 3A | .ROM";F$:!.F$::|
00000150: 21 02 46 3A 21 51 43 4C 24 00 96 09 C8 00 21 15 |!.F:!QCL$.....!.|
00000160: 40 31 2C 36 22 D5 53 45 20 41 20 D3 45 4C 45 43 |@1,6".SE A .ELEC|
00000170: 54 20 4C 49 53 54 2C 20 28 59 2F 4E 29 20 3A 20 |T LIST, (Y/N) : |
00000180: 4E 22 40 30 3A 21 3A 26 31 40 32 38 2C 36 3B 41 |N"@0:!:&1@28,6;A|
00000190: 24 3A 21 51 43 4C 24 00 AF 09 D2 00 21 39 41 24 |$:!QCL$.....!9A$|
000001A0: B2 22 59 22 B0 41 24 B2 22 D9 22 A7 53 4C B2 31 |."Y".A$.".".SL.1|
000001B0: 00 E9 09 DC 00 21 39 53 4C B2 31 A7 21 15 40 30 |.....!9SL.1.!.@0|
000001C0: 3A 21 3A 40 31 2C 36 22 C5 4E 54 45 52 20 D3 45 |:!:@1,6".NTER .E|
000001D0: 4C 45 43 54 20 CC 49 53 54 20 4E 41 4D 45 20 3A |LECT .IST NAME :|
000001E0: 22 3B 41 24 3A 21 51 43 4C 24 00 FC 09 E6 00 21 |";A$:!QCL$.....!|
000001F0: 39 53 4C B2 31 A7 21 02 21 1D 53 4C 24 00 42 0A |9SL.1.!.!.SL$.B.|
00000200: 2C 01 21 15 40 31 2C 36 22 C8 4F 57 20 CD 41 4E |,.!.@1,6".OW .AN|
00000210: 59 20 CC 41 42 45 4C 53 20 28 31 2D 34 29 20 C1 |Y .ABELS (1-4) .|
00000220: 43 52 4F 53 53 20 D0 41 47 45 20 3A 20 31 22 40 |CROSS .AGE : 1"@|
00000230: 30 3A 21 3A 26 31 40 33 37 2C 36 3B 4E 3A 21 51 |0:!:&1@37,6;N:!Q|
00000240: 43 4C 24 00 64 0A 36 01 21 39 4E B1 34 B0 4E B3 |CL$.d.6.!9N.4.N.|
00000250: 31 A7 21 15 40 31 2C 38 40 AA 45 52 52 24 40 30 |1.!.@1,8@.ERR$@0|
00000260: 3A 89 33 30 30 00 A9 0A 40 01 21 15 40 31 2C 36 |:.300...@.!.@1,6|
00000270: 22 C5 4E 54 45 52 20 CC 41 42 45 4C 20 D7 49 44 |".NTER .ABEL .ID|
00000280: 54 48 20 28 20 3E 31 39 20 43 48 41 52 53 2E 29 |TH ( >19 CHARS.)|
00000290: 20 3A 20 31 39 22 40 30 3A 21 3A 26 32 40 33 35 | : 19"@0:!:&2@35|
000002A0: 2C 36 3B 57 3A 21 51 43 4C 24 00 BF 0A 45 01 4C |,6;W:!QCL$...E.L|
000002B0: 53 B2 57 3A 21 39 57 B1 33 36 A7 4C 53 B2 33 36 |S.W:!9W.36.LS.36|
000002C0: 00 E6 0A 4A 01 21 39 57 B3 31 39 B0 57 AC 4E B1 |...J.!9W.19.W.N.|
000002D0: 32 35 34 A7 21 15 40 31 2C 38 40 AA 45 52 52 24 |254.!.@1,8@.ERR$|
000002E0: 40 30 3A 89 33 32 30 00 1C 0B 54 01 21 15 40 31 |@0:.320...T.!.@1|
000002F0: 2C 36 22 C5 4E 54 45 52 20 D3 54 41 52 54 20 C3 |,6".NTER .TART .|
00000300: 4F 4C 55 4D 4E 20 3A 20 31 22 40 3A 21 3A 26 32 |OLUMN : 1"@:!:&2|
00000310: 40 32 32 2C 36 3B 53 3A 21 51 43 4C 24 00 34 0B |@22,6;S:!QCL$.4.|
00000320: 5E 01 21 39 53 B3 31 A7 21 15 45 52 52 24 40 30 |^.!9S.1.!.ERR$@0|
00000330: 3A 89 33 34 30 00 78 0B 68 01 21 15 40 31 2C 36 |:.340.x.h.!.@1,6|
00000340: 22 C5 4E 54 45 52 20 CE 4F 20 4F 46 20 CC 49 4E |".NTER .O OF .IN|
00000350: 45 53 20 C2 45 54 57 45 45 4E 20 CC 41 42 45 4C |ES .ETWEEN .ABEL|
00000360: 53 20 3A 20 39 22 40 3A 21 3A 26 32 40 33 36 2C |S : 9"@:!:&2@36,|
00000370: 36 3B 4C 3A 21 51 43 4C 24 00 9B 0B 72 01 21 39 |6;L:!QCL$...r.!9|
00000380: 4C B3 32 B0 4C B1 31 32 A7 21 15 40 31 2C 38 40 |L.2.L.12.!.@1,8@|
00000390: AA 45 52 52 24 40 30 3A 89 33 36 30 00 AE 0B 7C |.ERR$@0:.360...||
000003A0: 01 86 4C 24 28 4E 2C 4C 29 2C 46 24 28 4C 29 00 |..L$(N,L),F$(L).|
000003B0: F1 0B 90 01 21 15 40 31 2C 38 22 A7 22 AA C8 28 |....!.@1,8"."..(|
000003C0: 22 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |"...............|
000003D0: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |................|
000003E0: A3 A3 A3 A3 A3 A3 A3 A3 A3 22 2C 4C 53 29 AA 22 |.........",LS)."|
000003F0: A5 22 00 16 0C A4 01 81 49 B2 31 A4 4C 3A 21 15 |."......I.1.L:!.|
00000400: 40 30 40 31 2C 38 AA 49 22 A7 20 20 2A 22 3B 40 |@0@1,8.I". *";@|
00000410: 4C 53 AA 32 22 A5 22 00 44 0C AE 01 21 15 40 30 |LS.2".".D...!.@0|
00000420: 40 31 2C 36 22 C5 4E 54 45 52 20 C6 49 45 4C 44 |@1,6".NTER .IELD|
00000430: 20 CE 41 4D 45 20 C6 4F 52 20 CC 49 4E 45 22 3B | .AME .OR .INE";|
00000440: 26 32 2C 30 49 00 5A 0C B8 01 21 3A 26 31 34 40 |&2,0I.Z...!:&14@|
00000450: 34 2C 38 AA 49 3B 46 24 28 49 29 00 80 0C C2 01 |4,8.I;F$(I).....|
00000460: 21 39 C8 28 46 24 28 49 29 2C 31 29 B3 B1 22 5B |!9.(F$(I),1).."[|
00000470: 22 A7 46 24 28 49 29 B2 22 5B 22 AA 46 24 28 49 |".F$(I)."[".F$(I|
00000480: 29 00 A6 0C CC 01 21 39 C9 28 46 24 28 49 29 2C |).....!9.(F$(I),|
00000490: 31 29 B3 B1 22 5D 22 A7 46 24 28 49 29 B2 46 24 |1).."]".F$(I).F$|
000004A0: 28 49 29 AA 22 5D 22 00 BC 0C D1 01 21 39 46 24 |(I)."]".....!9F$|
000004B0: 28 49 29 B2 22 5B 2A 5D 22 A7 34 37 30 00 F1 0C |(I)."[*]".470...|
000004C0: D2 01 21 54 46 24 28 49 29 3A 21 15 40 30 40 31 |..!TF$(I):!.@0@1|
000004D0: 2C 36 22 C9 4E 43 4F 52 52 45 43 54 20 4E 41 4D |,6".NCORRECT NAM|
000004E0: 45 2C 20 52 45 2D 45 4E 54 45 52 20 22 3A 89 34 |E, RE-ENTER ":.4|
000004F0: 34 30 00 0B 0D D6 01 21 15 40 30 40 31 2C 38 AA |40.....!.@0@1,8.|
00000500: 49 3B 22 A7 20 22 AA 46 24 28 49 29 00 45 0D E0 |I;". ".F$(I).E..|
00000510: 01 82 3A 55 24 B2 C8 28 22 A4 A4 A4 A4 A4 A4 A4 |..:U$..(".......|
00000520: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |................|
00000530: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |................|
00000540: A4 22 2C 4C 53 29 00 5E 0D EA 01 21 15 40 30 40 |.",LS).^...!.@0@|
00000550: 31 2C 39 AA 4C 22 A7 22 AA 55 24 AA 22 A5 22 00 |1,9.L".".U$.".".|
00000560: 93 0D F4 01 21 15 40 30 40 31 2C 36 22 CC 41 42 |....!.@0@1,6".AB|
00000570: 45 4C 20 D0 52 49 4E 54 49 4E 47 20 49 4E 20 D0 |EL .RINTING IN .|
00000580: 52 4F 47 52 45 53 53 20 D0 4C 45 41 53 45 20 D7 |ROGRESS .LEASE .|
00000590: 41 49 54 22 00 A5 0D FE 01 21 33 4C 3A 21 32 4C |AIT".....!3L:!2L|
000005A0: 3A 21 17 40 30 3B 00 BE 0D 08 02 52 B2 4E AC 28 |:!.@0;.....R.N.(|
000005B0: 57 AA 31 29 3A 21 39 52 B1 38 30 A7 21 31 52 00 |W.1):!9R.80.!1R.|
000005C0: D4 0D 12 02 21 35 53 3A 81 49 B2 31 A4 4E 3A 81 |....!5S:.I.1.N:.|
000005D0: 4A B2 31 A4 4C 00 F6 0D 1C 02 21 39 46 24 28 4A |J.1.L.....!9F$(J|
000005E0: 29 B2 22 5B 2A 5D 22 A7 4C 24 28 49 2C 4A 29 B2 |)."[*]".L$(I,J).|
000005F0: 22 22 3A 89 35 36 30 00 0D 0E 26 02 21 51 22 4C |"":.560...&.!Q"L|
00000600: 24 28 49 2C 4A 29 3D 22 AA 46 24 28 4A 29 00 31 |$(I,J)=".F$(J).1|
00000610: 0E 30 02 82 3A 21 39 53 4C B2 31 A7 21 02 21 1D |.0..:!9SL.1.!.!.|
00000620: 53 4C 24 3A 21 48 21 02 4C 3A 21 02 4E 3A 53 4C |SL$:!H!.L:!.N:SL|
00000630: B2 30 00 40 0E 3A 02 21 39 53 4C B2 30 A7 21 02 |.0.@.:.!9SL.0.!.|
00000640: 4E 00 4C 0E 44 02 51 B2 51 AA 31 3A 82 00 5E 0E |N.L.D.Q.Q.1:..^.|
00000650: 4E 02 81 49 B2 31 A4 4C 3A 81 4A B2 31 A4 4E 00 |N..I.1.L:.J.1.N.|
00000660: 86 0E 58 02 58 B2 28 4A AB 31 29 AC 28 57 AA 31 |..X.X.(J.1).(W.1|
00000670: 29 AA 31 3A 21 17 26 57 40 58 3B 4C 24 28 4A 2C |).1:!.&W@X;L$(J,|
00000680: 49 29 3B 3A 82 3A 82 00 A4 0E D0 07 21 47 21 17 |I);:.:......!G!.|
00000690: 22 20 22 3A 21 15 3A 21 19 3A 21 35 3A 21 31 3A |" ":!.:!.:!5:!1:|
000006A0: 21 38 3A 21 12 00 DA 0E DA 07 21 35 3A 21 15 40 |!8:!......!5:!.@|
000006B0: 30 40 31 2C 35 26 33 2C 30 51 22 CC 41 42 45 4C |0@1,5&3,0Q".ABEL|
000006C0: 53 20 48 41 56 45 20 42 45 45 4E 20 D0 52 4F 43 |S HAVE BEEN .ROC|
000006D0: 45 53 53 45 44 22 3A 89 35 33 30 00 00 00 |ESSED":.530... |
SB./.D.. LABEL PROGRAM, PRECISION SOFTWA
RE, 1983.F.N.!.:!.:!5:!1:!8:!41.P...ERR$
.G(7)."INCORRECT RESPONSE, RETRY"... .CL
$."DISPLAY CHR$(147)@1,2".G(34)."
SUPERBASE LABEL PROGRAM".....CL$.CL$.G(
13)." PRECISION SOFTWARE LTD. (C) 1983
".'...!.:!Q"DISPLAY@0".J(CL$,18)."
".X...!:&10"FILE TO PRINT
FROM";F$:!.F$::!.F:!QCL$...H.!.@1,6"USE
A SELECT LIST, (Y/N) : N"@0:!:&1@28,6;A
$:!QCL$...R.!9A$."Y".A$."Y".SL.1.....!9S
L.1.!.@0:!:@1,6"ENTER SELECT LIST NAME :
";A$:!QCL$.....!9SL.1.!.!.SL$.B.,.!.@1,6
"HOW MANY LABELS (1-4) ACROSS PAGE : 1"@
0:!:&1@37,6;N:!QCL$.D.6.!9N.4.N.1.!.@1,8
@.ERR$@0:.300...@.!.@1,6"ENTER LABEL WID
TH ( >19 CHARS.) : 19"@0:!:&2@35,6;W:!QC
L$...E.LS.W:!9W.36.LS.36...J.!9W.19.W.N.
254.!.@1,8@.ERR$@0:.320...T.!.@1,6"ENTER
START COLUMN : 1"@:!:&2@22,6;S:!QCL$.4.
^.!9S.1.!.ERR$@0:.340.X.H.!.@1,6"ENTER N
O OF LINES BETWEEN LABELS : 9"@:!:&2@36,
6;L:!QCL$...R.!9L.2.L.12.!.@1,8@.ERR$@0:
.360...|..L$(N,L),F$(L).....!.@1,8".".H(
".......................................
.",LS)."."......I.1.L:!.@0@1,8.I". *";@
LS.2".".D...!.@0@1,6"ENTER FIELD NAME FO
R LINE";&2,0I.Z...!:&14@4,8.I;F$(I)...B.
!9H(F$(I),1).."[".F$(I)."[".F$(I)...L.!9
I(F$(I),1).."]".F$(I).F$(I)."]"...Q.!9F$
(I)."[*]".470...R.!TF$(I):!.@0@1,6"INCOR
RECT NAME, RE-ENTER ":.440...V.!.@0@1,8.
I;". ".F$(I).E....:U$.H("...............
.........................",LS).^...!.@0@
1,9.L".".U$.".".....!.@0@1,6"LABEL PRINT
ING IN PROGRESS PLEASE WAIT".....!3L:!2L
:!.@0;.....R.N.(W.1):!9R.80.!1R.T...!5S:
.I.1.N:.J.1.L.....!9F$(J)."[*]".L$(I,J).
"":.560...&.!Q"L$(I,J)=".F$(J).1.0..:!9S
L.1.!.!.SL$:!H!.L:!.N:SL.0.@.:.!9SL.0.!.
N.L.D.Q.Q.1:..^.N..I.1.L:.J.1.N...X.X.(J
.1).(W.1).1:!.&W@X;L$(J,I);:.:....P.!G!.
" ":!.:!.:!5:!1:!8:!..Z.Z.!5:!.@0@1,5&3,
0Q"LABELS HAVE BEEN PROCESSED":.530...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL