LABELS.P

00000000: 53 42 31 2E 1C 01 00 51  24 B2 22 20 20 20 D0 52  |SB1....Q$."   .R|
00000010: 45 43 49 53 49 4F 4E 20  D3 4F 46 54 57 41 52 45  |ECISION .OFTWARE|
00000020: 20 CC 54 44 2E 20 28 43  29 20 31 39 38 34 22 00  | .TD. (C) 1984".|
00000030: 3B 1C 0A 00 8D 32 30 3A  89 31 30 30 00 56 1C 14  |;....20:.100.V..|
00000040: 00 21 15 3A 21 19 3A 21  35 3A 21 31 3A 21 38 3A  |.!.:!.:!5:!1:!8:|
00000050: 21 32 3A 21 33 3A 8E 00  8A 1C 15 00 21 15 C7 28  |!2:!3:......!..(|
00000060: 37 29 3B 40 30 40 31 2C  34 40 AA 22 C9 4E 43 4F  |7);@0@1,4@.".NCO|
00000070: 52 52 45 43 54 20 52 45  53 50 4F 4E 53 45 2C 20  |RRECT RESPONSE, |
00000080: D2 45 2D 54 52 59 22 40  30 3A 8E 00 BC 1C 1E 00  |.E-TRY"@0:......|
00000090: 53 50 24 B2 22 20 20 20  20 20 20 20 20 20 20 20  |SP$."           |
000000A0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000000B0: 20 20 20 20 20 20 20 20  20 20 20 20 22 00 E8 1C  |            "...|
000000C0: 1F 00 21 15 40 30 40 31  2C 36 53 50 24 40 30 40  |..!.@0@1,6SP$@0@|
000000D0: 31 2C 36 3B 41 24 3B 40  30 3A 41 B2 C3 28 41 24  |1,6;A$;@0:A..(A$|
000000E0: 29 3A 21 39 58 B2 30 A7  8E 00 FE 1C 20 00 21 39  |):!9X.0..... .!9|
000000F0: 58 B2 31 A7 21 3A 26 56  40 41 2C 36 3B 41 24 00  |X.1.!:&V@A,6;A$.|
00000100: 13 1D 21 00 21 39 58 B2  32 A7 21 3A 26 56 40 41  |..!.!9X.2.!:&V@A|
00000110: 2C 36 3B 41 00 19 1D 22  00 8E 00 44 1D 28 00 43  |,6;A..."...D.(.C|
00000120: B2 C5 28 CA 28 55 55 24  2C 4A 2C 31 29 29 3A 21  |..(.(UU$,J,1)):!|
00000130: 39 43 B2 30 B0 44 B2 31  A7 4C 24 28 49 2C 4A 29  |9C.0.D.1.L$(I,J)|
00000140: B2 22 22 3A 8E 00 68 1D  2A 00 81 4B B2 31 A4 43  |."":..h.*..K.1.C|
00000150: 3A 51 24 B2 CA 28 54 54  24 2C 50 2C 31 29 3A 41  |:Q$..(TT$,P,1):A|
00000160: 24 B2 46 24 28 4A 2C 4B  29 00 7B 1D 2C 00 21 39  |$.F$(J,K).{.,.!9|
00000170: 51 24 B2 22 32 22 A7 51  24 B2 41 24 00 93 1D 2E  |Q$."2".Q$.A$....|
00000180: 00 21 39 51 24 B2 22 31  22 A7 21 51 22 51 24 3D  |.!9Q$."1".!Q"Q$=|
00000190: 22 AA 41 24 00 AA 1D 30  00 21 39 51 24 B3 22 23  |".A$...0.!9Q$."#|
000001A0: 22 B0 51 24 B1 22 23 22  A7 35 32 00 E5 1D 32 00  |".Q$."#".52...2.|
000001B0: 41 24 B2 C9 28 22 30 30  30 30 22 AA CA 28 C4 28  |A$..("0000"..(.(|
000001C0: 54 31 29 2C 32 29 2C 34  29 3A 54 31 B2 54 31 AA  |T1),2),4):T1.T1.|
000001D0: 31 3A 21 39 4B B2 31 A7  4C 24 28 49 2C 4A 29 B2  |1:!9K.1.L$(I,J).|
000001E0: 41 24 3A 89 36 30 00 0E  1E 33 00 21 39 51 24 B2  |A$:.60...3.!9Q$.|
000001F0: 22 23 22 A7 4C 24 28 49  2C 4A 29 B2 C8 28 4C 24  |"#".L$(I,J)..(L$|
00000200: 28 49 2C 4A 29 AA 41 24  2C 57 29 3A 89 36 30 00  |(I,J).A$,W):.60.|
00000210: 30 1E 34 00 21 39 51 24  B2 22 33 22 A7 21 51 22  |0.4.!9Q$."3".!Q"|
00000220: 43 4F 4E 56 45 52 54 22  AA 41 24 AA 22 2C 51 24  |CONVERT".A$.",Q$|
00000230: 22 00 45 1E 36 00 21 39  C8 28 51 24 2C 31 29 B2  |".E.6.!9.(Q$,1).|
00000240: 22 20 22 A7 35 37 00 56  1E 37 00 21 39 C3 28 51  |" ".57.V.7.!9.(Q|
00000250: 24 29 B2 31 A7 35 37 00  85 1E 38 00 51 B2 C3 28  |$).1.57...8.Q..(|
00000260: 51 24 29 3A 21 39 C9 28  51 24 2C 31 29 B2 22 20  |Q$):!9.(Q$,1)." |
00000270: 22 A7 51 B2 51 AB 31 3A  51 24 B2 C8 28 51 24 2C  |".Q.Q.1:Q$..(Q$,|
00000280: 51 29 3A 89 35 36 00 AE  1E 39 00 21 39 51 24 B2  |Q):.56...9.!9Q$.|
00000290: 22 34 22 A7 21 51 22 51  24 3D 4D 49 44 24 28 53  |"4".!Q"Q$=MID$(S|
000002A0: 54 52 24 28 22 AA 41 24  AA 22 29 2C 32 29 22 00  |TR$(".A$."),2)".|
000002B0: DF 1E 3B 00 4C 24 28 49  2C 4A 29 B2 C8 28 4C 24  |..;.L$(I,J)..(L$|
000002C0: 28 49 2C 4A 29 AA 22 20  22 AA 51 24 2C 57 29 3A  |(I,J)." ".Q$,W):|
000002D0: 21 39 4B B2 31 A7 4C 24  28 49 2C 4A 29 B2 51 24  |!9K.1.L$(I,J).Q$|
000002E0: 00 F1 1E 3C 00 50 B2 50  AA 31 3A 82 3A 54 B2 50  |...<.P.P.1:.:T.P|
000002F0: 3A 8E 00 19 1F 40 00 58  B2 28 49 AB 31 29 AC 28  |:....@.X.(I.1).(|
00000300: 57 AA 31 29 AA 31 3A 21  17 26 57 AB 31 40 58 3B  |W.1).1:!.&W.1@X;|
00000310: 4C 24 28 49 2C 4A 29 3B  3A 8E 00 2E 1F 41 00 52  |L$(I,J);:....A.R|
00000320: 44 B2 52 44 AA 31 3A 21  39 52 43 B2 30 A7 8E 00  |D.RD.1:!9RC.0...|
00000330: 3C 1F 42 00 21 39 52 44  B3 52 43 A7 8E 00 6E 1F  |<.B.!9RD.RC...n.|
00000340: 48 00 52 44 B2 30 3A 21  39 53 4C B2 31 A7 21 02  |H.RD.0:!9SL.1.!.|
00000350: 21 1D 53 4C 24 3A 21 48  21 02 4C 3A 21 02 4E 3A  |!.SL$:!H!.L:!.N:|
00000360: 53 4C B2 30 3A 51 46 B2  31 3A 42 B2 42 AB 31 00  |SL.0:QF.1:B.B.1.|
00000370: 7D 1F 4B 00 21 39 53 4C  B2 30 A7 21 02 4E 00 83  |}.K.!9SL.0.!.N..|
00000380: 1F 4E 00 8E 00 AD 1F 50  00 56 B2 33 30 3A 41 24  |.N.....P.V.30:A$|
00000390: B2 22 C5 4E 54 45 52 20  4B 45 59 20 3A 20 22 3A  |.".NTER KEY : ":|
000003A0: 8D 33 30 3A 21 02 28 41  24 29 3A 21 46 8E 00 D9  |.30:!.(A$):!F...|
000003B0: 1F 51 00 21 45 58 B2 30  3A 41 24 B2 22 CB 45 59  |.Q.!EX.0:A$.".EY|
000003C0: 20 4E 4F 54 20 46 4F 55  4E 44 22 3A 8D 33 30 3A  | NOT FOUND":.30:|
000003D0: 21 2A 3A 58 B2 31 3A 89  38 30 00 DF 1F 52 00 8E  |!*:X.1:.80...R..|
000003E0: 00 27 20 64 00 43 4C 24  B2 22 44 49 53 50 4C 41  |.' d.CL$."DISPLA|
000003F0: 59 20 43 48 52 24 28 31  34 37 29 40 31 2C 32 22  |Y CHR$(147)@1,2"|
00000400: AA C7 28 33 34 29 AA 22  20 20 20 20 20 20 20 20  |..(34)."        |
00000410: D3 55 50 45 52 42 41 53  45 20 CC 41 42 45 4C 20  |.UPERBASE .ABEL |
00000420: D0 52 4F 47 52 41 4D 22  00 42 20 78 00 43 4C 24  |.ROGRAM".B x.CL$|
00000430: B2 43 4C 24 AA C7 28 31  33 29 AA 51 24 3A 21 51  |.CL$..(13).Q$:!Q|
00000440: 43 4C 24 00 82 20 7D 00  56 B2 31 3A 58 B2 31 3A  |CL$.. }.V.1:X.1:|
00000450: 41 24 B2 22 D5 53 45 20  C1 4E 20 C5 58 49 53 54  |A$.".SE .N .XIST|
00000460: 49 4E 47 20 CC 41 59 4F  55 54 20 20 C6 49 4C 45  |ING .AYOUT  .ILE|
00000470: 20 28 59 2F 4E 29 3F 20  3A 59 22 3A 8D 33 30 3A  | (Y/N)? :Y":.30:|
00000480: 58 B2 30 00 BC 20 7E 00  21 39 41 24 B2 22 CE 22  |X.0.. ~.!9A$."."|
00000490: B0 41 24 B2 22 4E 22 A7  41 24 B2 22 50 4C 45 41  |.A$."N".A$."PLEA|
000004A0: 53 45 20 57 41 49 54 2E  2E 2E 22 3A 8D 33 30 3A  |SE WAIT...":.30:|
000004B0: 21 07 22 4D 41 4B 45 4C  41 42 45 4C 53 00 F6 20  |!."MAKELABELS.. |
000004C0: 96 00 58 B2 31 3A 56 B2  31 30 3A 41 24 B2 22 C5  |..X.1:V.10:A$.".|
000004D0: 4E 54 45 52 20 4C 41 59  4F 55 54 20 46 49 4C 45  |NTER LAYOUT FILE|
000004E0: 4E 41 4D 45 20 20 3A 20  22 3A 8D 33 30 3A 56 B2  |NAME  : ":.30:V.|
000004F0: 31 3A 51 24 B2 41 24 00  2A 21 A0 00 58 B2 30 3A  |1:Q$.A$.*!..X.0:|
00000500: 41 24 B2 22 50 4C 45 41  53 45 20 20 57 41 49 54  |A$."PLEASE  WAIT|
00000510: 20 2E 2E 2E 2E 2E 2E 2E  2E 2E 2E 2E 2E 22 3A 8D  | ............":.|
00000520: 33 30 3A 58 B2 31 3A 21  50 51 24 00 60 21 C3 00  |30:X.1:!PQ$.`!..|
00000530: 21 0A 46 4C 24 3A 21 02  46 3A 41 24 B2 22 D5 53  |!.FL$:!.F:A$.".S|
00000540: 45 20 D3 45 4C 45 43 54  20 4C 49 53 54 20 20 28  |E .ELECT LIST  (|
00000550: 59 2F 4E 29 20 3A 4E 22  3A 8D 33 30 3B 56 B2 31  |Y/N) :N":.30;V.1|
00000560: 36 00 A2 21 D2 00 21 39  41 24 B2 22 59 22 B0 41  |6..!..!9A$."Y".A|
00000570: 24 B2 22 D9 22 A7 53 4C  B2 31 3A 21 3A 26 31 30  |$.".".SL.1:!:&10|
00000580: 40 31 2C 36 22 C5 4E 54  45 52 20 53 45 4C 45 43  |@1,6".NTER SELEC|
00000590: 54 20 4C 49 53 54 20 4E  41 4D 45 20 20 3A 20 22  |T LIST NAME  : "|
000005A0: 53 4C 24 00 BD 21 D7 00  56 B2 34 3A 54 B2 32 3A  |SL$..!..V.4:T.2:|
000005B0: 58 B2 32 3A 21 39 53 4E  B2 30 A7 32 33 30 00 FF  |X.2:!9SN.0.230..|
000005C0: 21 DC 00 41 24 B2 22 C5  4E 54 45 52 20 D3 45 52  |!..A$.".NTER .ER|
000005D0: 49 41 4C 20 CE 55 4D 42  45 52 20 54 4F 20 D3 54  |IAL .UMBER TO .T|
000005E0: 41 52 54 20 3A 31 22 3A  8D 33 30 3A 41 24 B2 22  |ART :1":.30:A$."|
000005F0: 22 3A 54 31 B2 41 3A 21  39 41 B2 30 A7 32 32 30  |":T1.A:!9A.0.220|
00000600: 00 3C 22 E6 00 21 39 53  4C B2 31 A7 41 24 B2 22  |.<"..!9SL.1.A$."|
00000610: C5 4E 54 45 52 20 CE 55  4D 42 45 52 20 4F 46 20  |.NTER .UMBER OF |
00000620: C3 4F 50 59 53 20 50 45  52 20 D2 45 43 4F 52 44  |.OPYS PER .ECORD|
00000630: 20 3A 31 22 3A 8D 33 30  3A 52 43 B2 41 00 77 22  | :1":.30:RC.A.w"|
00000640: F0 00 21 39 53 4C B2 30  A7 52 43 B2 31 3A 41 24  |..!9SL.0.RC.1:A$|
00000650: B2 22 D3 54 41 52 54 20  41 54 20 46 49 52 53 54  |.".TART AT FIRST|
00000660: 20 52 45 43 4F 52 44 20  20 3A 59 22 3A 56 B2 31  | RECORD  :Y":V.1|
00000670: 3A 58 B2 31 3A 8D 33 30  00 9F 22 F4 00 21 02 46  |:X.1:.30.."..!.F|
00000680: 3A 21 39 53 4C B2 30 AF  41 24 B1 22 59 22 B0 41  |:!9SL.0.A$."Y".A|
00000690: 24 B3 22 59 22 A7 8D 38  30 3A 53 52 24 B2 41 24  |$."Y"..80:SR$.A$|
000006A0: 00 CD 22 F4 01 49 B2 31  3A 86 46 24 28 4C 2C 34  |.."..I.1:.F$(L,4|
000006B0: 29 2C 4C 24 28 4E 2C 4C  29 3A 21 39 53 4C B2 31  |),L$(N,L):!9SL.1|
000006C0: A7 21 02 21 1D 53 4C 24  3A 21 51 43 4C 24 00 EA  |.!.!.SL$:!QCL$..|
000006D0: 22 17 02 44 B2 31 3A 81  4A B2 31 A4 4C 3A 8D 34  |"..D.1:.J.1.L:.4|
000006E0: 30 3A 21 39 43 B2 30 A7  35 38 30 00 11 23 2B 02  |0:!9C.0.580..#+.|
000006F0: 81 4B B2 31 A4 43 3A 21  51 22 54 24 3D 22 AA C7  |.K.1.C:!Q"T$="..|
00000700: 28 4A AA 36 34 29 AA C7  28 4B AA 36 34 29 AA 22  |(J.64)..(K.64)."|
00000710: 24 22 00 38 23 2C 02 21  51 C7 28 4A AA 36 34 29  |$".8#,.!Q.(J.64)|
00000720: AA C7 28 4B AA 36 34 29  AA 22 24 3D 22 AA C7 28  |..(K.64)."$="..(|
00000730: 33 34 29 AA C7 28 33 34  29 00 49 23 31 02 46 24  |34)..(34).I#1.F$|
00000740: 28 4A 2C 4B 29 B2 54 24  3A 82 00 5E 23 44 02 82  |(J,K).T$:..^#D..|
00000750: 3A 4C 24 28 31 2C 31 29  B2 22 22 3A 44 B2 30 00  |:L$(1,1)."":D.0.|
00000760: 9E 23 45 02 21 15 40 31  2C 36 22 CC 41 42 45 4C  |.#E.!.@1,6".ABEL|
00000770: 20 D0 52 49 4E 54 49 4E  47 20 49 4E 20 D0 52 4F  | .RINTING IN .RO|
00000780: 47 52 45 53 53 20 D0 4C  45 41 53 45 20 D7 41 49  |GRESS .LEASE .AI|
00000790: 54 22 3A 43 4C 24 B2 22  22 3A 55 24 B2 22 22 00  |T":CL$."":U$."".|
000007A0: CB 23 46 02 21 33 4C 3A  21 32 4C 3A 21 17 40 30  |.#F.!3L:!2L:!.@0|
000007B0: 3A 52 B2 4E AC 28 57 AA  31 29 3A 53 50 24 B2 22  |:R.N.(W.1):SP$."|
000007C0: 22 3A 21 39 52 B1 38 30  A7 21 31 52 00 F1 23 49  |":!9R.80.!1R..#I|
000007D0: 02 21 35 53 3A 21 39 4E  B2 31 A7 50 B2 31 3A 81  |.!5S:!9N.1.P.1:.|
000007E0: 4A B2 31 A4 4C 3A 54 B2  31 3A 49 B2 31 3A 89 35  |J.1.L:T.1:I.1:.5|
000007F0: 39 33 00 1B 24 4E 02 81  49 B2 31 A4 4E AB 31 3A  |93..$N..I.1.N.1:|
00000800: 50 B2 31 3A 81 4A B2 31  A4 4C 3A 8D 34 30 3A 82  |P.1:.J.1.L:.40:.|
00000810: 3A 8D 36 35 3A 42 B2 42  AA 31 3A 82 00 39 24 50  |:.65:B.B.1:..9$P|
00000820: 02 50 B2 31 3A 81 4A B2  31 A4 4C 3A 81 49 B2 31  |.P.1:.J.1.L:.I.1|
00000830: A4 4E AB 31 3A 8D 36 34  3A 82 00 48 24 51 02 21  |.N.1:.64:..H$Q.!|
00000840: 39 51 46 B2 31 A7 35 39  35 00 64 24 52 02 8D 34  |9QF.1.595.d$R..4|
00000850: 30 3A 8D 36 34 3A 82 3A  42 B2 42 AA 31 3A 8D 36  |0:.64:.:B.B.1:.6|
00000860: 35 3A 50 B2 31 00 7E 24  53 02 21 47 81 49 B2 31  |5:P.1.~$S.!G.I.1|
00000870: A4 4C 3A 21 15 22 20 22  3A 8D 32 30 3A 21 12 00  |.L:!." ":.20:!..|
00000880: B4 24 58 02 21 35 3A 21  15 40 30 40 31 2C 35 3B  |.$X.!5:!.@0@1,5;|
00000890: C4 28 42 29 AA 22 20 CC  41 42 45 4C 53 20 48 41  |.(B)." .ABELS HA|
000008A0: 56 45 20 42 45 45 4E 20  D0 52 4F 43 45 53 53 45  |VE BEEN .ROCESSE|
000008B0: 44 22 3B 40 30 00 BD 24  BC 02 89 35 38 35 00 C3  |D";@0..$...585..|
000008C0: 24 88 13 8E 00 00 00                              |$......         |

SB1....Q$."   PRECISION SOFTWARE LTD. (C
) 1984".;....20:.100.V...!.:!.:!5:!1:!8:
!2:!3:......!.G(7);@0@1,4@."INCORRECT RE
SPONSE, RE-TRY"@0:......SP$."           
                            ".....!.@0@1
,6SP$@0@1,6;A$;@0:A.C(A$):!9X.0..... .!9
X.1.!:&V@A,6;A$...!.!9X.2.!:&V@A,6;A..."
...D.(.C.E(J(UU$,J,1)):!9C.0.D.1.L$(I,J)
."":..H.*..K.1.C:Q$.J(TT$,P,1):A$.F$(J,K
).{.,.!9Q$."2".Q$.A$.....!9Q$."1".!Q"Q$=
".A$...0.!9Q$."#".Q$."#".52...2.A$.I("00
00".J(D(T1),2),4):T1.T1.1:!9K.1.L$(I,J).
A$:.60...3.!9Q$."#".L$(I,J).H(L$(I,J).A$
,W):.60.0.4.!9Q$."3".!Q"CONVERT".A$.",Q$
".E.6.!9H(Q$,1)." ".57.V.7.!9C(Q$).1.57.
..8.Q.C(Q$):!9I(Q$,1)." ".Q.Q.1:Q$.H(Q$,
Q):.56...9.!9Q$."4".!Q"Q$=MID$(STR$(".A$
."),2)"...;.L$(I,J).H(L$(I,J)." ".Q$,W):
!9K.1.L$(I,J).Q$...<.P.P.1:.:T.P:....@.X
.(I.1).(W.1).1:!.&W.1@X;L$(I,J);:....A.R
D.RD.1:!9RC.0...<.B.!9RD.RC...N.H.RD.0:!
9SL.1.!.!.SL$:!H!.L:!.N:SL.0:QF.1:B.B.1.
}.K.!9SL.0.!.N...N.....P.V.30:A$."ENTER 
KEY : ":.30:!.(A$):!F..Y.Q.!EX.0:A$."KEY
 NOT FOUND":.30:!*:X.1:.80...R...' D.CL$
."DISPLAY CHR$(147)@1,2".G(34)."        
SUPERBASE LABEL PROGRAM".B X.CL$.CL$.G(1
3).Q$:!QCL$.. }.V.1:X.1:A$."USE AN EXIST
ING LAYOUT  FILE (Y/N)? :Y":.30:X.0.. ~.
!9A$."N".A$."N".A$."PLEASE WAIT...":.30:
!."MAKELABELS.. ..X.1:V.10:A$."ENTER LAY
OUT FILENAME  : ":.30:V.1:Q$.A$.*! .X.0:
A$."PLEASE  WAIT ............":.30:X.1:!
PQ$.`!C.!.FL$:!.F:A$."USE SELECT LIST  (
Y/N) :N":.30;V.16..!R.!9A$."Y".A$."Y".SL
.1:!:&10@1,6"ENTER SELECT LIST NAME  : "
SL$..!W.V.4:T.2:X.2:!9SN.0.230..!..A$."E
NTER SERIAL NUMBER TO START :1":.30:A$."
":T1.A:!9A.0.220.<"..!9SL.1.A$."ENTER NU
MBER OF COPYS PER RECORD :1":.30:RC.A.W"
..!9SL.0.RC.1:A$."START AT FIRST RECORD 
 :Y":V.1:X.1:.30.."..!.F:!9SL.0.A$."Y".A
$."Y"..80:SR$.A$.M"..I.1:.F$(L,4),L$(N,L
):!9SL.1.!.!.SL$:!QCL$.."..D.1:.J.1.L:.4
0:!9C.0.580..#+..K.1.C:!Q"T$=".G(J.64).G
(K.64)."$".8#,.!QG(J.64).G(K.64)."$=".G(
34).G(34).I#1.F$(J,K).T$:..^#D..:L$(1,1)
."":D.0..#E.!.@1,6"LABEL PRINTING IN PRO
GRESS PLEASE WAIT":CL$."":U$."".K#F.!3L:
!2L:!.@0:R.N.(W.1):SP$."":!9R.80.!1R..#I
.!5S:!9N.1.P.1:.J.1.L:T.1:I.1:.593..$N..
I.1.N.1:P.1:.J.1.L:.40:.:.65:B.B.1:..9$P
.P.1:.J.1.L:.I.1.N.1:.64:..H$Q.!9QF.1.59
5.D$R..40:.64:.:B.B.1:.65:P.1.~$S.!G.I.1
.L:!." ":.20:!...$X.!5:!.@0@1,5;D(B)." L
ABELS HAVE BEEN PROCESSED";@0..$...585.C
$......

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL