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 EA 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 53 4C 24 3A 21 51 43 4C 24 00 FD 09 E6 00 |";SL$:!QCL$.....|
000001F0: 21 39 53 4C B2 31 A7 21 02 21 1D 53 4C 24 00 43 |!9SL.1.!.!.SL$.C|
00000200: 0A 2C 01 21 15 40 31 2C 36 22 C8 4F 57 20 CD 41 |.,.!.@1,6".OW .A|
00000210: 4E 59 20 CC 41 42 45 4C 53 20 28 31 2D 34 29 20 |NY .ABELS (1-4) |
00000220: C1 43 52 4F 53 53 20 D0 41 47 45 20 3A 20 31 22 |.CROSS .AGE : 1"|
00000230: 40 30 3A 21 3A 26 31 40 33 37 2C 36 3B 4E 3A 21 |@0:!:&1@37,6;N:!|
00000240: 51 43 4C 24 00 65 0A 36 01 21 39 4E B1 34 B0 4E |QCL$.e.6.!9N.4.N|
00000250: B3 31 A7 21 15 40 31 2C 38 40 AA 45 52 52 24 40 |.1.!.@1,8@.ERR$@|
00000260: 30 3A 89 33 30 30 00 AA 0A 40 01 21 15 40 31 2C |0:.300...@.!.@1,|
00000270: 36 22 C5 4E 54 45 52 20 CC 41 42 45 4C 20 D7 49 |6".NTER .ABEL .I|
00000280: 44 54 48 20 28 20 3E 31 39 20 43 48 41 52 53 2E |DTH ( >19 CHARS.|
00000290: 29 20 3A 20 31 39 22 40 30 3A 21 3A 26 32 40 33 |) : 19"@0:!:&2@3|
000002A0: 35 2C 36 3B 57 3A 21 51 43 4C 24 00 C0 0A 45 01 |5,6;W:!QCL$...E.|
000002B0: 4C 53 B2 57 3A 21 39 57 B1 33 36 A7 4C 53 B2 33 |LS.W:!9W.36.LS.3|
000002C0: 36 00 E7 0A 4A 01 21 39 57 B3 31 39 B0 57 AC 4E |6...J.!9W.19.W.N|
000002D0: B1 32 35 34 A7 21 15 40 31 2C 38 40 AA 45 52 52 |.254.!.@1,8@.ERR|
000002E0: 24 40 30 3A 89 33 32 30 00 1D 0B 54 01 21 15 40 |$@0:.320...T.!.@|
000002F0: 31 2C 36 22 C5 4E 54 45 52 20 D3 54 41 52 54 20 |1,6".NTER .TART |
00000300: C3 4F 4C 55 4D 4E 20 3A 20 31 22 40 3A 21 3A 26 |.OLUMN : 1"@:!:&|
00000310: 32 40 32 32 2C 36 3B 53 3A 21 51 43 4C 24 00 35 |2@22,6;S:!QCL$.5|
00000320: 0B 5E 01 21 39 53 B3 31 A7 21 15 45 52 52 24 40 |.^.!9S.1.!.ERR$@|
00000330: 30 3A 89 33 34 30 00 79 0B 68 01 21 15 40 31 2C |0:.340.y.h.!.@1,|
00000340: 36 22 C5 4E 54 45 52 20 CE 4F 20 4F 46 20 CC 49 |6".NTER .O OF .I|
00000350: 4E 45 53 20 C2 45 54 57 45 45 4E 20 CC 41 42 45 |NES .ETWEEN .ABE|
00000360: 4C 53 20 3A 20 39 22 40 3A 21 3A 26 32 40 33 36 |LS : 9"@:!:&2@36|
00000370: 2C 36 3B 4C 3A 21 51 43 4C 24 00 9C 0B 72 01 21 |,6;L:!QCL$...r.!|
00000380: 39 4C B3 32 B0 4C B1 31 32 A7 21 15 40 31 2C 38 |9L.2.L.12.!.@1,8|
00000390: 40 AA 45 52 52 24 40 30 3A 89 33 36 30 00 AF 0B |@.ERR$@0:.360...|
000003A0: 7C 01 86 4C 24 28 4E 2C 4C 29 2C 46 24 28 4C 29 ||..L$(N,L),F$(L)|
000003B0: 00 F2 0B 90 01 21 15 40 31 2C 38 22 A7 22 AA C8 |.....!.@1,8"."..|
000003C0: 28 22 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 A3 22 2C 4C 53 29 AA |..........",LS).|
000003F0: 22 A5 22 00 17 0C A4 01 81 49 B2 31 A4 4C 3A 21 |"."......I.1.L:!|
00000400: 15 40 30 40 31 2C 38 AA 49 22 A7 20 20 2A 22 3B |.@0@1,8.I". *";|
00000410: 40 4C 53 AA 32 22 A5 22 00 45 0C AE 01 21 15 40 |@LS.2".".E...!.@|
00000420: 30 40 31 2C 36 22 C5 4E 54 45 52 20 C6 49 45 4C |0@1,6".NTER .IEL|
00000430: 44 20 CE 41 4D 45 20 C6 4F 52 20 CC 49 4E 45 22 |D .AME .OR .INE"|
00000440: 3B 26 32 2C 30 49 00 5B 0C B8 01 21 3A 26 31 34 |;&2,0I.[...!:&14|
00000450: 40 34 2C 38 AA 49 3B 46 24 28 49 29 00 81 0C C2 |@4,8.I;F$(I)....|
00000460: 01 21 39 C8 28 46 24 28 49 29 2C 31 29 B3 B1 22 |.!9.(F$(I),1).."|
00000470: 5B 22 A7 46 24 28 49 29 B2 22 5B 22 AA 46 24 28 |[".F$(I)."[".F$(|
00000480: 49 29 00 A7 0C CC 01 21 39 C9 28 46 24 28 49 29 |I).....!9.(F$(I)|
00000490: 2C 31 29 B3 B1 22 5D 22 A7 46 24 28 49 29 B2 46 |,1).."]".F$(I).F|
000004A0: 24 28 49 29 AA 22 5D 22 00 BD 0C D1 01 21 39 46 |$(I)."]".....!9F|
000004B0: 24 28 49 29 B2 22 5B 2A 5D 22 A7 34 37 30 00 F2 |$(I)."[*]".470..|
000004C0: 0C D2 01 21 54 46 24 28 49 29 3A 21 15 40 30 40 |...!TF$(I):!.@0@|
000004D0: 31 2C 36 22 C9 4E 43 4F 52 52 45 43 54 20 4E 41 |1,6".NCORRECT NA|
000004E0: 4D 45 2C 20 52 45 2D 45 4E 54 45 52 20 22 3A 89 |ME, RE-ENTER ":.|
000004F0: 34 34 30 00 0C 0D D6 01 21 15 40 30 40 31 2C 38 |440.....!.@0@1,8|
00000500: AA 49 3B 22 A7 20 22 AA 46 24 28 49 29 00 46 0D |.I;". ".F$(I).F.|
00000510: E0 01 82 3A 55 24 B2 C8 28 22 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 A4 22 2C 4C 53 29 00 5F 0D EA 01 21 15 40 30 |..",LS)._...!.@0|
00000550: 40 31 2C 39 AA 4C 22 A7 22 AA 55 24 AA 22 A5 22 |@1,9.L".".U$."."|
00000560: 00 94 0D F4 01 21 15 40 30 40 31 2C 36 22 CC 41 |.....!.@0@1,6".A|
00000570: 42 45 4C 20 D0 52 49 4E 54 49 4E 47 20 49 4E 20 |BEL .RINTING IN |
00000580: D0 52 4F 47 52 45 53 53 20 D0 4C 45 41 53 45 20 |.ROGRESS .LEASE |
00000590: D7 41 49 54 22 00 A6 0D FE 01 21 33 4C 3A 21 32 |.AIT".....!3L:!2|
000005A0: 4C 3A 21 17 40 30 3B 00 BF 0D 08 02 52 B2 4E AC |L:!.@0;.....R.N.|
000005B0: 28 57 AA 31 29 3A 21 39 52 B1 38 30 A7 21 31 52 |(W.1):!9R.80.!1R|
000005C0: 00 D5 0D 12 02 21 35 53 3A 81 49 B2 31 A4 4E 3A |.....!5S:.I.1.N:|
000005D0: 81 4A B2 31 A4 4C 00 F7 0D 1C 02 21 39 46 24 28 |.J.1.L.....!9F$(|
000005E0: 4A 29 B2 22 5B 2A 5D 22 A7 4C 24 28 49 2C 4A 29 |J)."[*]".L$(I,J)|
000005F0: B2 22 22 3A 89 35 36 30 00 0E 0E 26 02 21 51 22 |."":.560...&.!Q"|
00000600: 4C 24 28 49 2C 4A 29 3D 22 AA 46 24 28 4A 29 00 |L$(I,J)=".F$(J).|
00000610: 32 0E 30 02 82 3A 21 39 53 4C B2 31 A7 21 02 21 |2.0..:!9SL.1.!.!|
00000620: 1D 53 4C 24 3A 21 48 21 02 4C 3A 21 02 4E 3A 53 |.SL$:!H!.L:!.N:S|
00000630: 4C B2 30 00 41 0E 3A 02 21 39 53 4C B2 30 A7 21 |L.0.A.:.!9SL.0.!|
00000640: 02 4E 00 4D 0E 44 02 51 B2 51 AA 31 3A 82 00 5F |.N.M.D.Q.Q.1:.._|
00000650: 0E 4E 02 81 49 B2 31 A4 4C 3A 81 4A B2 31 A4 4E |.N..I.1.L:.J.1.N|
00000660: 00 87 0E 58 02 58 B2 28 4A AB 31 29 AC 28 57 AA |...X.X.(J.1).(W.|
00000670: 31 29 AA 31 3A 21 17 26 57 40 58 3B 4C 24 28 4A |1).1:!.&W@X;L$(J|
00000680: 2C 49 29 3B 3A 82 3A 82 00 A5 0E D0 07 21 47 21 |,I);:.:......!G!|
00000690: 17 22 20 22 3A 21 15 3A 21 19 3A 21 35 3A 21 31 |." ":!.:!.:!5:!1|
000006A0: 3A 21 38 3A 21 12 00 DB 0E DA 07 21 35 3A 21 15 |:!8:!......!5:!.|
000006B0: 40 30 40 31 2C 35 26 33 2C 30 51 22 CC 41 42 45 |@0@1,5&3,0Q".ABE|
000006C0: 4C 53 20 48 41 56 45 20 42 45 45 4E 20 D0 52 4F |LS HAVE BEEN .RO|
000006D0: 43 45 53 53 45 44 22 3A 89 35 33 30 00 00 00 |CESSED":.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 :
";SL$:!QCL$.....!9SL.1.!.!.SL$.C.,.!.@1,
6"HOW MANY LABELS (1-4) ACROSS PAGE : 1"
@0:!:&1@37,6;N:!QCL$.E.6.!9N.4.N.1.!.@1,
8@.ERR$@0:.300...@.!.@1,6"ENTER LABEL WI
DTH ( >19 CHARS.) : 19"@0:!:&2@35,6;W:!Q
CL$...E.LS.W:!9W.36.LS.36...J.!9W.19.W.N
.254.!.@1,8@.ERR$@0:.320...T.!.@1,6"ENTE
R START COLUMN : 1"@:!:&2@22,6;S:!QCL$.5
.^.!9S.1.!.ERR$@0:.340.Y.H.!.@1,6"ENTER
NO 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".".E...!.@0@1,6"ENTER FIELD NAME F
OR LINE";&2,0I.[...!:&14@4,8.I;F$(I)...B
.!9H(F$(I),1).."[".F$(I)."[".F$(I)...L.!
9I(F$(I),1).."]".F$(I).F$(I)."]"...Q.!9F
$(I)."[*]".470...R.!TF$(I):!.@0@1,6"INCO
RRECT NAME, RE-ENTER ":.440...V.!.@0@1,8
.I;". ".F$(I).F....:U$.H("..............
..........................",LS)._...!.@0
@1,9.L".".U$.".".....!.@0@1,6"LABEL PRIN
TING IN PROGRESS PLEASE WAIT".....!3L:!2
L:!.@0;.....R.N.(W.1):!9R.80.!1R.U...!5S
:.I.1.N:.J.1.L.....!9F$(J)."[*]".L$(I,J)
."":.560...&.!Q"L$(I,J)=".F$(J).2.0..:!9
SL.1.!.!.SL$:!H!.L:!.N:SL.0.A.:.!9SL.0.!
.N.M.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.!5:!.@0@1,5&3
,0Q"LABELS HAVE BEEN PROCESSED":.530...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL