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 33 22 00 | .TD. (C) 1983".|
00000030: 3E 1C 0A 00 21 23 3A 8D 32 30 3A 89 31 30 30 00 |>...!#:.20:.100.|
00000040: 5C 1C 0C 00 81 54 B2 33 A4 37 3A 21 15 40 30 40 |\....T.3.7:!.@0@|
00000050: 31 2C 54 3B 53 50 24 40 30 3A 82 3A 8E 00 77 1C |1,T;SP$@0:.:..w.|
00000060: 14 00 21 15 3A 21 19 3A 21 35 3A 21 31 3A 21 38 |..!.:!.:!5:!1:!8|
00000070: 3A 21 32 3A 21 33 3A 8E 00 AF 1C 15 00 21 15 C7 |:!2:!3:......!..|
00000080: 28 37 29 40 30 40 31 2C 34 53 50 24 3B 40 30 40 |(7)@0@1,4SP$;@0@|
00000090: 31 2C 34 40 AA 22 C9 4E 43 4F 52 52 45 43 54 20 |1,4@.".NCORRECT |
000000A0: D2 45 53 50 4F 4E 53 45 2C 20 D2 45 54 52 59 22 |.ESPONSE, .ETRY"|
000000B0: 00 CC 1C 16 00 81 46 B2 31 A4 32 30 30 3A 82 3A |......F.1.200:.:|
000000C0: 21 15 40 30 40 31 2C 34 53 50 24 3A 8E 00 ED 1C |!.@0@1,4SP$:....|
000000D0: 19 00 21 15 40 30 40 31 2C 38 AA 49 3B C8 28 51 |..!.@0@1,8.I;.(Q|
000000E0: 24 28 31 29 AA 53 50 24 2C 33 38 29 3A 8E 00 F5 |$(1).SP$,38):...|
000000F0: 1C 1D 00 8D 31 32 00 24 1D 1E 00 54 B2 C5 28 C8 |....12.$...T..(.|
00000100: 28 41 24 2C 31 29 29 3A 58 B2 C5 28 CA 28 41 24 |(A$,1)):X..(.(A$|
00000110: 2C 32 2C 31 29 29 3A 59 B2 C5 28 CA 28 41 24 2C |,2,1)):Y..(.(A$,|
00000120: 33 2C 31 29 29 00 55 1D 20 00 56 B2 C5 28 CA 28 |3,1)).U. .V..(.(|
00000130: 41 24 2C 34 2C 32 29 29 3A 44 B2 C5 28 CA 28 41 |A$,4,2)):D..(.(A|
00000140: 24 2C 36 2C 32 29 29 3A 52 B2 C5 28 CA 28 41 24 |$,6,2)):R..(.(A$|
00000150: 2C 38 2C 33 29 29 00 81 1D 28 00 21 15 40 30 40 |,8,3))...(.!.@0@|
00000160: 58 2C 59 3B 53 50 24 3B 40 30 40 58 2C 59 3B CA |X,Y;SP$;@0@X,Y;.|
00000170: 28 41 24 2C 31 31 29 3B 40 30 3A 21 39 54 B2 35 |(A$,11);@0:!9T.5|
00000180: A7 8E 00 AA 1D 29 00 21 39 54 B2 31 AF 56 B1 30 |.....).!9T.1.V.0|
00000190: A7 21 3A 26 56 40 58 AA 28 C3 28 41 24 29 AB 31 |.!:&V@X.(.(A$).1|
000001A0: 32 29 2C 59 3B 41 24 3A 89 34 39 00 DA 1D 2A 00 |2),Y;A$:.49...*.|
000001B0: 21 3A 26 56 40 58 AA 28 C3 28 41 24 29 AB 31 32 |!:&V@X.(.(A$).12|
000001C0: 29 2C 59 3B 41 3A 21 39 28 41 B3 44 29 B0 28 41 |),Y;A:!9(A.D).(A|
000001D0: B1 52 29 A7 8D 32 31 3A 89 33 30 00 EC 1D 31 00 |.R)..21:.30...1.|
000001E0: 21 15 40 30 40 31 2C 34 53 50 24 3A 8E 00 2C 1E |!.@0@1,4SP$:..,.|
000001F0: 32 00 81 4D B2 31 A4 32 3A 21 15 40 30 40 31 2C |2..M.1.2:!.@0@1,|
00000200: 59 22 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |Y"..............|
00000210: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |................|
00000220: A3 A3 A3 A3 A3 A3 A3 A3 A3 22 3B 40 30 00 3A 1E |.........";@0.:.|
00000230: 33 00 59 B2 4C AA 39 3A 82 3A 8E 00 6B 1E 64 00 |3.Y.L.9:.:..k.d.|
00000240: 53 50 24 B2 22 20 20 20 20 20 20 20 20 20 20 20 |SP$." |
00000250: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000260: 20 20 20 20 20 20 20 20 20 20 20 22 00 B3 1E A0 | "....|
00000270: 00 43 4C 24 B2 22 44 49 53 50 4C 41 59 20 43 48 |.CL$."DISPLAY CH|
00000280: 52 24 28 31 34 37 29 40 31 2C 32 22 AA C7 28 33 |R$(147)@1,2"..(3|
00000290: 34 29 AA 22 20 20 20 20 20 20 20 20 D3 55 50 45 |4)." .UPE|
000002A0: 52 42 41 53 45 20 CC 41 42 45 4C 20 D0 52 4F 47 |RBASE .ABEL .ROG|
000002B0: 52 41 4D 22 00 E1 1E AA 00 43 4C 24 B2 43 4C 24 |RAM".....CL$.CL$|
000002C0: AA C7 28 31 33 29 AA 51 24 3A 41 41 24 B2 22 C6 |..(13).Q$:AA$.".|
000002D0: 49 4C 45 20 54 4F 20 D0 52 49 4E 54 20 46 52 4F |ILE TO .RINT FRO|
000002E0: 4D 22 00 16 1F B4 00 21 16 3A 21 15 40 30 40 31 |M".....!.:!.@0@1|
000002F0: 2C 34 53 50 24 3A 21 51 22 44 49 53 50 4C 41 59 |,4SP$:!Q"DISPLAY|
00000300: 40 30 22 AA CA 28 43 4C 24 2C 31 38 29 AA C8 28 |@0"..(CL$,18)..(|
00000310: 53 50 24 2C 32 31 29 00 4B 1F B9 00 41 24 B2 22 |SP$,21).K...A$."|
00000320: 31 31 35 31 34 20 20 20 20 20 22 AA 41 41 24 AA |11514 ".AA$.|
00000330: 22 20 3A 20 20 22 3A 8D 33 30 3A 21 0A 41 24 3A |" : ":.30:!.A$:|
00000340: 46 4C 24 B2 41 24 3A 21 51 43 4C 24 00 89 1F BD |FL$.A$:!QCL$....|
00000350: 00 41 24 B2 22 32 31 35 31 20 31 20 34 20 20 C8 |.A$."2151 1 4 .|
00000360: 4F 57 20 CD 41 4E 59 20 CC 41 42 45 4C 53 20 28 |OW .ANY .ABELS (|
00000370: 31 2D 34 29 20 C1 43 52 4F 53 53 20 D0 41 47 45 |1-4) .CROSS .AGE|
00000380: 20 3A 20 31 20 22 3A 8D 32 39 00 C9 1F 36 01 4E | : 1 ":.29...6.N|
00000390: B2 41 3A 41 24 B2 22 32 31 36 33 20 31 39 32 35 |.A:A$."2163 1925|
000003A0: 34 C5 4E 54 45 52 20 CC 41 42 45 4C 20 D7 49 44 |4.NTER .ABEL .ID|
000003B0: 54 48 20 28 20 3E 31 39 20 43 48 41 52 53 2E 29 |TH ( >19 CHARS.)|
000003C0: 20 3A 20 31 39 22 3A 8D 33 30 00 E4 1F 3B 01 57 | : 19":.30...;.W|
000003D0: B2 41 3A 21 39 57 AC 4E B1 32 35 34 A7 8D 32 31 |.A:!9W.N.254..21|
000003E0: 3A 89 33 31 30 00 17 20 40 01 41 24 B2 22 32 31 |:.310.. @.A$."21|
000003F0: 37 32 20 31 20 32 35 35 C5 4E 54 45 52 20 D3 54 |72 1 255.NTER .T|
00000400: 41 52 54 20 C3 4F 4C 55 4D 4E 20 3A 20 31 20 22 |ART .OLUMN : 1 "|
00000410: 3A 8D 33 30 3A 53 B2 41 00 59 20 44 01 41 24 B2 |:.30:S.A.Y D.A$.|
00000420: 22 32 31 38 32 20 32 20 31 32 20 CE 4F 20 4F 46 |"2182 2 12 .O OF|
00000430: 20 CC 49 4E 45 53 20 C2 45 54 57 45 45 4E 20 CC | .INES .ETWEEN .|
00000440: 41 42 45 4C 53 20 28 32 2D 31 32 29 20 3A 20 39 |ABELS (2-12) : 9|
00000450: 20 22 3A 8D 33 30 3A 4C B2 41 00 73 20 45 01 21 | ":.30:L.A.s E.!|
00000460: 15 40 30 40 31 2C 34 3B 41 41 24 AA 22 20 3D 22 |.@0@1,4;AA$." ="|
00000470: AA 46 4C 24 00 B0 20 4A 01 41 24 B2 22 31 31 39 |.FL$.. J.A$."119|
00000480: 31 20 20 20 20 20 20 C9 53 20 49 4E 46 4F 52 4D |1 .S INFORM|
00000490: 41 54 49 4F 4E 20 43 4F 52 52 45 43 54 20 3F 20 |ATION CORRECT ? |
000004A0: 28 59 2F 4E 29 20 20 20 3A 20 59 20 22 3A 8D 33 |(Y/N) : Y ":.3|
000004B0: 30 00 C7 20 4B 01 21 39 41 24 B2 22 CE 22 B0 41 |0.. K.!9A$.".".A|
000004C0: 24 B2 22 4E 22 A7 21 28 00 DF 20 4C 01 21 39 41 |$."N".!(.. L.!9A|
000004D0: 24 B2 22 D9 22 B0 41 24 B2 22 59 22 A7 33 39 30 |$.".".A$."Y".390|
000004E0: 00 E8 20 4D 01 89 33 33 30 00 4D 21 86 01 42 24 |.. M..330.M!..B$|
000004F0: 28 31 29 B2 22 5B 54 45 58 54 2D 46 49 45 4C 44 |(1)."[TEXT-FIELD|
00000500: 5D 22 3A 42 24 28 34 29 B2 22 5B 4E 55 4D 45 52 |]":B$(4)."[NUMER|
00000510: 49 43 2D 46 49 45 4C 44 5D 22 3A 42 24 28 33 29 |IC-FIELD]":B$(3)|
00000520: B2 22 5B 44 41 54 45 2D 46 49 45 4C 44 5D 22 3A |."[DATE-FIELD]":|
00000530: 42 24 28 32 29 B2 22 20 4B 45 59 42 4F 41 52 44 |B$(2)." KEYBOARD|
00000540: 20 45 4E 54 52 59 20 22 3A 21 51 43 4C 24 00 72 | ENTRY ":!QCL$.r|
00000550: 21 92 01 59 B2 38 3A 8D 35 30 3A 8D 31 32 3A 43 |!..Y.8:.50:.12:C|
00000560: 24 B2 22 31 22 3A 43 4C 24 B2 22 22 3A 81 49 B2 |$."1":CL$."":.I.|
00000570: 31 A4 4C 00 90 21 93 01 54 B2 30 3A 51 B2 30 3A |1.L..!..T.0:Q.0:|
00000580: 4B B2 31 3A 21 15 40 30 40 31 2C 38 AA 49 22 2A |K.1:!.@0@1,8.I"*|
00000590: 22 00 D1 21 94 01 41 24 B2 22 32 31 34 31 20 30 |"..!..A$."2141 0|
000005A0: 20 34 20 20 CE 4F 20 4F 46 20 49 54 45 4D 53 20 | 4 .O OF ITEMS |
000005B0: 4F 4E 20 4C 49 4E 45 20 22 AA C4 28 49 29 AA 22 |ON LINE "..(I)."|
000005C0: 20 20 28 30 2D 34 29 20 20 3A 22 AA 43 24 AA 22 | (0-4) :".C$."|
000005D0: 20 22 00 E5 21 97 01 8D 33 30 3A 43 B2 41 3A 43 | "..!...30:C.A:C|
000005E0: 24 B2 C4 28 43 29 00 18 22 98 01 21 39 43 B2 30 |$..(C).."..!9C.0|
000005F0: A7 51 24 28 31 29 B2 22 20 2A 22 3A 41 24 B2 22 |.Q$(1)." *":A$."|
00000600: 22 3A 54 24 B2 22 22 3A 21 15 40 30 40 31 2C 36 |":T$."":!.@0@1,6|
00000610: 3B 53 50 24 3A 89 35 30 30 00 27 22 9B 01 21 39 |;SP$:.500.'"..!9|
00000620: 4B B2 31 A7 89 34 32 32 00 3E 22 9F 01 4B B2 4B |K.1..422.>"..K.K|
00000630: AA 31 3A 21 39 4B B1 28 43 29 A7 89 35 33 35 00 |.1:!9K.(C)..535.|
00000640: 79 22 A6 01 42 B2 31 3A 41 24 B2 22 35 31 34 20 |y"..B.1:A$."514 |
00000650: 20 20 20 20 20 20 C3 48 4F 4F 53 45 20 44 41 54 | .HOOSE DAT|
00000660: 41 20 54 59 50 45 20 C6 4F 52 20 C6 49 45 4C 44 |A TYPE .OR .IELD|
00000670: 22 AA C4 28 4B 29 3A 8D 32 39 00 B5 22 A7 01 41 |"..(K):.29.."..A|
00000680: 24 B2 22 35 31 35 20 20 20 20 20 20 20 54 3D 5B |$."515 T=[|
00000690: 54 45 58 54 5D 2C 20 4E 3D 5B 4E 55 4D 45 52 49 |TEXT], N=[NUMERI|
000006A0: 43 5D 2C 20 44 3D 5B 44 41 54 45 5D 22 3A 56 B2 |C], D=[DATE]":V.|
000006B0: 31 34 3A 8D 33 30 00 EC 22 A8 01 41 24 B2 22 31 |14:.30.."..A$."1|
000006C0: 31 36 31 20 20 20 20 20 20 4B 3D 20 4B 45 59 42 |161 K= KEYB|
000006D0: 4F 41 52 44 20 45 4E 54 52 59 20 20 20 20 20 20 |OARD ENTRY |
000006E0: 20 3A 54 20 22 3A 8D 33 30 3A 51 B2 31 00 1A 23 | :T ":.30:Q.1..#|
000006F0: A9 01 21 15 40 31 2C 35 53 50 24 40 31 2C 36 53 |..!.@1,5SP$@1,6S|
00000700: 50 24 3B 40 30 3A 21 39 41 24 B2 CA 28 42 24 28 |P$;@0:!9A$..(B$(|
00000710: 42 29 2C 32 2C 31 29 A7 34 33 36 00 33 23 AE 01 |B),2,1).436.3#..|
00000720: 42 B2 42 AA 31 3A 21 39 42 B1 34 A7 8D 32 31 3A |B.B.1:!9B.4..21:|
00000730: 89 34 32 32 00 3C 23 B3 01 89 34 32 35 00 6D 23 |.422.<#...425.m#|
00000740: B4 01 41 24 B2 22 35 31 34 20 20 20 20 20 20 20 |..A$."514 |
00000750: C9 54 45 4D 20 54 59 50 45 20 43 48 4F 53 45 4E |.TEM TYPE CHOSEN|
00000760: 20 3D 20 22 AA 42 24 28 42 29 3A 8D 32 39 00 A2 | = ".B$(B):.29..|
00000770: 23 B5 01 21 39 42 B2 32 A7 56 B2 57 3A 41 24 B2 |#..!9B.2.V.W:A$.|
00000780: 22 35 31 35 20 20 20 20 20 20 20 C5 4E 54 45 52 |"515 .NTER|
00000790: 20 54 48 45 20 44 41 54 41 22 3A 8D 33 30 3A 89 | THE DATA":.30:.|
000007A0: 34 33 39 00 E0 23 B6 01 21 15 40 30 40 31 2C 35 |439..#..!.@0@1,5|
000007B0: 22 C5 4E 54 45 52 20 C6 49 45 4C 44 20 CE 41 4D |".NTER .IELD .AM|
000007C0: 45 20 C6 4F 52 20 CC 49 4E 45 22 AA C4 28 49 29 |E .OR .INE"..(I)|
000007D0: AA 22 20 C6 49 45 4C 44 22 AA C4 28 4B 29 3B 40 |." .IELD"..(K);@|
000007E0: 30 00 08 24 B7 01 56 B2 28 33 38 AB 51 29 3A 21 |0..$..V.(38.Q):!|
000007F0: 15 40 30 40 31 2C 36 3B 53 50 24 3B 40 30 3A 21 |.@0@1,6;SP$;@0:!|
00000800: 39 56 B2 30 A7 56 B2 31 34 00 29 24 B8 01 21 3A |9V.0.V.14.)$..!:|
00000810: 26 56 40 31 2C 36 3B 41 24 3A 21 39 42 B2 32 A7 |&V@1,6;A$:!9B.2.|
00000820: 54 B2 54 AA 31 3A 89 34 37 37 00 46 24 C2 01 21 |T.T.1:.477.F$..!|
00000830: 39 C8 28 41 24 2C 31 29 B3 B1 22 5B 22 A7 41 24 |9.(A$,1).."[".A$|
00000840: B2 22 5B 22 AA 41 24 00 63 24 CC 01 21 39 C9 28 |."[".A$.c$..!9.(|
00000850: 41 24 2C 31 29 B3 B1 22 5D 22 A7 41 24 B2 41 24 |A$,1).."]".A$.A$|
00000860: AA 22 5D 22 00 75 24 D2 01 21 54 41 24 3A 8D 32 |."]".u$..!TA$:.2|
00000870: 31 3A 89 34 32 32 00 AB 24 DD 01 46 24 28 4B 29 |1:.422..$..F$(K)|
00000880: B2 41 24 3A 21 39 41 24 B2 22 23 2B 22 B0 41 24 |.A$:!9A$."#+".A$|
00000890: B2 22 2B 23 22 A7 53 4E B2 31 3A 46 24 28 4B 29 |."+#".SN.1:F$(K)|
000008A0: B2 22 23 22 3A 41 24 B2 22 2B 23 22 00 D3 24 E0 |."#":A$."+#"..$.|
000008B0: 01 21 39 4B B2 28 43 29 AF 4B B1 31 A7 51 24 28 |.!9K.(C).K.1.Q$(|
000008C0: 31 29 B2 51 24 28 31 29 AA 22 20 22 AA 41 24 3A |1).Q$(1)." ".A$:|
000008D0: 89 34 39 30 00 F9 24 E8 01 51 24 28 31 29 B2 51 |.490..$..Q$(1).Q|
000008E0: 24 28 31 29 AA 22 20 22 AA 41 24 3A 21 39 4B B2 |$(1)." ".A$:!9K.|
000008F0: 31 A7 51 24 28 31 29 B2 41 24 00 1E 25 EA 01 41 |1.Q$(1).A$..%..A|
00000900: B2 C3 28 41 24 29 3A 51 B2 C3 28 51 24 28 31 29 |..(A$):Q..(Q$(1)|
00000910: 29 3A 8D 32 35 3A 21 39 43 B2 31 A7 35 30 30 00 |):.25:!9C.1.500.|
00000920: 59 25 EB 01 41 24 B2 22 31 31 36 31 20 20 20 20 |Y%..A$."1161 |
00000930: 20 20 C9 53 20 22 AA 42 24 28 42 29 AA 22 20 43 | .S ".B$(B)." C|
00000940: 4F 52 52 45 43 54 20 28 59 2F 4E 29 3F 20 3A 59 |ORRECT (Y/N)? :Y|
00000950: 20 22 3A 8D 33 30 3A 51 B2 31 00 7F 25 EC 01 21 | ":.30:Q.1..%..!|
00000960: 15 40 31 2C 36 3B 53 50 24 3B 40 30 3A 21 39 41 |.@1,6;SP$;@0:!9A|
00000970: 24 B2 22 59 22 B0 41 24 B2 22 D9 22 A7 35 30 30 |$."Y".A$.".".500|
00000980: 00 B1 25 EE 01 21 39 41 24 B2 22 4E 22 B0 41 24 |..%..!9A$."N".A$|
00000990: B2 22 CE 22 A7 51 24 28 31 29 B2 C8 28 51 24 28 |.".".Q$(1)..(Q$(|
000009A0: 31 29 2C C3 28 51 24 28 31 29 29 AB 41 29 3A 8D |1),.(Q$(1)).A):.|
000009B0: 32 35 00 CA 25 EF 01 21 39 41 24 B2 22 4E 22 B0 |25..%..!9A$."N".|
000009C0: 41 24 B2 22 CE 22 A7 89 34 32 32 00 D7 25 F0 01 |A$."."..422..%..|
000009D0: 8D 32 31 3A 89 34 39 31 00 E5 25 F4 01 21 39 43 |.21:.491..%..!9C|
000009E0: B2 30 A7 35 39 39 00 0C 26 12 02 21 51 C7 28 49 |.0.599..&..!Q.(I|
000009F0: AA 36 34 29 AA C7 28 4B AA 36 34 29 AA 22 24 3D |.64)..(K.64)."$=|
00000A00: 22 AA C7 28 33 34 29 AA 46 24 28 4B 29 00 2C 26 |"..(34).F$(K).,&|
00000A10: 16 02 54 54 24 B2 54 54 24 AA CA 28 C4 28 42 29 |..TT$.TT$..(.(B)|
00000A20: 2C 32 29 3A 21 39 43 B1 31 A7 34 31 35 00 69 26 |,2):!9C.1.415.i&|
00000A30: 17 02 41 24 B2 22 31 31 34 31 20 20 20 20 20 20 |..A$."1141 |
00000A40: C9 53 20 4C 49 4E 45 20 44 45 54 41 49 4C 20 43 |.S LINE DETAIL C|
00000A50: 4F 52 52 45 43 54 20 3F 20 28 59 2F 4E 29 20 20 |ORRECT ? (Y/N) |
00000A60: 20 3A 20 59 20 22 3A 8D 32 39 00 8F 26 1C 02 4B | : Y ":.29..&..K|
00000A70: B2 31 3A 51 24 B2 22 22 3A 8D 31 32 3A 21 39 41 |.1:Q$."":.12:!9A|
00000A80: 24 B2 22 59 22 B0 41 24 B2 22 D9 22 A7 35 39 39 |$."Y".A$.".".599|
00000A90: 00 A9 26 1D 02 49 54 24 B2 C8 28 54 54 24 2C 28 |..&..IT$..(TT$,(|
00000AA0: C3 28 54 54 24 29 AB 43 29 29 00 C3 26 21 02 54 |.(TT$).C))..&!.T|
00000AB0: 54 24 B2 C8 28 54 54 24 2C 28 C3 28 54 54 24 29 |T$..(TT$,(.(TT$)|
00000AC0: AB 43 29 29 00 D9 26 26 02 51 24 28 31 29 B2 22 |.C))..&&.Q$(1)."|
00000AD0: 22 3A 8D 32 35 3A 89 34 30 34 00 07 27 57 02 55 |":.25:.404..'W.U|
00000AE0: 55 24 B2 55 55 24 AA CA 28 C4 28 43 29 2C 32 29 |U$.UU$..(.(C),2)|
00000AF0: 3A 4B B2 31 3A 51 24 B2 22 22 3A 82 3A 51 24 B2 |:K.1:Q$."":.:Q$.|
00000B00: 22 4C 53 54 4F 52 45 22 00 46 27 AC 03 41 24 B2 |"LSTORE".F'..A$.|
00000B10: 22 31 31 34 31 20 20 20 20 20 20 C9 53 20 4C 41 |"1141 .S LA|
00000B20: 59 4F 55 54 20 44 45 54 41 49 4C 20 43 4F 52 52 |YOUT DETAIL CORR|
00000B30: 45 43 54 20 3F 20 28 59 2F 4E 29 20 20 20 3A 20 |ECT ? (Y/N) : |
00000B40: 59 20 22 3A 8D 33 30 00 5D 27 B3 03 21 39 41 24 |Y ":.30.]'..!9A$|
00000B50: B2 22 CE 22 B0 41 24 B2 22 4E 22 A7 21 28 00 9E |.".".A$."N".!(..|
00000B60: 27 B4 03 41 24 B2 22 31 31 35 31 20 20 20 20 20 |'..A$."1151 |
00000B70: 20 4C 53 54 4F 52 45 20 4F 52 20 4E 45 57 20 4E | LSTORE OR NEW N|
00000B80: 41 4D 45 20 28 4C 2F 4E 29 20 3A 4C 20 22 3A 8D |AME (L/N) :L ":.|
00000B90: 33 30 3A 21 39 41 24 B2 22 4C 22 A7 39 38 30 00 |30:!9A$."L".980.|
00000BA0: D4 27 B5 03 41 24 B2 22 31 31 35 31 30 20 20 20 |.'..A$."11510 |
00000BB0: 20 20 46 49 4C 45 4E 41 4D 45 20 46 4F 52 20 4C | FILENAME FOR L|
00000BC0: 41 59 4F 55 54 20 20 3A 20 20 22 3A 8D 33 30 3A |AYOUT : ":.30:|
00000BD0: 51 24 B2 41 24 00 04 28 D4 03 21 15 C7 28 31 34 |Q$.A$..(..!..(14|
00000BE0: 37 29 40 35 2C 31 30 22 D0 4C 45 41 53 45 20 57 |7)@5,10".LEASE W|
00000BF0: 41 49 54 2E 2E 2E 2E 2E 22 3A 53 50 24 B2 22 22 |AIT.....":SP$.""|
00000C00: 3A 21 4F 51 24 00 13 28 DE 03 21 07 22 4C 41 42 |:!OQ$..(..!."LAB|
00000C10: 45 4C 53 22 00 00 00 |ELS"... |
SB1....Q$." PRECISION SOFTWARE LTD. (C
) 1983".>...!#:.20:.100.\....T.3.7:!.@0@
1,T;SP$@0:.:..W...!.:!.:!5:!1:!8:!2:!3:.
.....!.G(7)@0@1,4SP$;@0@1,4@."INCORRECT
RESPONSE, RETRY".L....F.1.200:.:!.@0@1,4
SP$:......!.@0@1,8.I;H(Q$(1).SP$,38):...
....12.$...T.E(H(A$,1)):X.E(J(A$,2,1)):Y
.E(J(A$,3,1)).U. .V.E(J(A$,4,2)):D.E(J(A
$,6,2)):R.E(J(A$,8,3))...(.!.@0@X,Y;SP$;
@0@X,Y;J(A$,11);@0:!9T.5.....).!9T.1.V.0
.!:&V@X.(C(A$).12),Y;A$:.49.Z.*.!:&V@X.(
C(A$).12),Y;A:!9(A.D).(A.R)..21:.30...1.
!.@0@1,4SP$:..,.2..M.1.2:!.@0@1,Y"......
.................................";@0.:.
3.Y.L.9:.:..K.D.SP$."
"... .CL$."DISPLAY CH
R$(147)@1,2".G(34)." SUPERBASE LA
BEL PROGRAM".....CL$.CL$.G(13).Q$:AA$."F
ILE TO PRINT FROM".....!.:!.@0@1,4SP$:!Q
"DISPLAY@0".J(CL$,18).H(SP$,21).K...A$."
11514 ".AA$." : ":.30:!.A$:FL$.A$:!
QCL$.....A$."2151 1 4 HOW MANY LABELS (
1-4) ACROSS PAGE : 1 ":.29.I.6.N.A:A$."2
163 19254ENTER LABEL WIDTH ( >19 CHARS.)
: 19":.30...;.W.A:!9W.N.254..21:.310..
@.A$."2172 1 255ENTER START COLUMN : 1 "
:.30:S.A.Y D.A$."2182 2 12 NO OF LINES B
ETWEEN LABELS (2-12) : 9 ":.30:L.A.S E.!
.@0@1,4;AA$." =".FL$.. J.A$."1191 I
S INFORMATION CORRECT ? (Y/N) : Y ":.3
0.G K.!9A$."N".A$."N".!(.. L.!9A$."Y".A$
."Y".390.. M..330.M!..B$(1)."[TEXT-FIELD
]":B$(4)."[NUMERIC-FIELD]":B$(3)."[DATE-
FIELD]":B$(2)." KEYBOARD ENTRY ":!QCL$.R
!..Y.8:.50:.12:C$."1":CL$."":.I.1.L..!..
T.0:Q.0:K.1:!.@0@1,8.I"*".Q!..A$."2141 0
4 NO OF ITEMS ON LINE ".D(I)." (0-4)
:".C$." "..!...30:C.A:C$.D(C).."..!9C.0
.Q$(1)." *":A$."":T$."":!.@0@1,6;SP$:.50
0.'"..!9K.1..422.>"..K.K.1:!9K.(C)..535.
Y"..B.1:A$."514 CHOOSE DATA TYPE F
OR FIELD".D(K):.29.."..A$."515 T=[
TEXT], N=[NUMERIC], D=[DATE]":V.14:.30..
"..A$."1161 K= KEYBOARD ENTRY
:T ":.30:Q.1..#..!.@1,5SP$@1,6SP$;@0:!9
A$.J(B$(B),2,1).436.3#..B.B.1:!9B.4..21:
.422.<#...425.M#..A$."514 ITEM TYP
E CHOSEN = ".B$(B):.29..#..!9B.2.V.W:A$.
"515 ENTER THE DATA":.30:.439..#..
!.@0@1,5"ENTER FIELD NAME FOR LINE".D(I)
." FIELD".D(K);@0..$..V.(38.Q):!.@0@1,6;
SP$;@0:!9V.0.V.14.)$..!:&V@1,6;A$:!9B.2.
T.T.1:.477.F$B.!9H(A$,1).."[".A$."[".A$.
C$L.!9I(A$,1).."]".A$.A$."]".U$R.!TA$:.2
1:.422..$..F$(K).A$:!9A$."#+".A$."+#".SN
.1:F$(K)."#":A$."+#".S$..!9K.(C).K.1.Q$(
1).Q$(1)." ".A$:.490..$..Q$(1).Q$(1)." "
.A$:!9K.1.Q$(1).A$..%..A.C(A$):Q.C(Q$(1)
):.25:!9C.1.500.Y%..A$."1161 IS ".B
$(B)." CORRECT (Y/N)? :Y ":.30:Q.1.%..!
.@1,6;SP$;@0:!9A$."Y".A$."Y".500..%..!9A
$."N".A$."N".Q$(1).H(Q$(1),C(Q$(1)).A):.
25.J%..!9A$."N".A$."N"..422.W%...21:.491
..%..!9C.0.599..&..!QG(I.64).G(K.64)."$=
".G(34).F$(K).,&..TT$.TT$.J(D(B),2):!9C.
1.415.I&..A$."1141 IS LINE DETAIL C
ORRECT ? (Y/N) : Y ":.29..&..K.1:Q$.""
:.12:!9A$."Y".A$."Y".599..&..IT$.H(TT$,(
C(TT$).C)).C&!.TT$.H(TT$,(C(TT$).C)).Y&&
.Q$(1)."":.25:.404..'W.UU$.UU$.J(D(C),2)
:K.1:Q$."":.:Q$."LSTORE".F'..A$."1141
IS LAYOUT DETAIL CORRECT ? (Y/N) :
Y ":.30.]'..!9A$."N".A$."N".!(..'..A$."1
151 LSTORE OR NEW NAME (L/N) :L ":.
30:!9A$."L".980.T'..A$."11510 FILENA
ME FOR LAYOUT : ":.30:Q$.A$..(T.!.G(14
7)@5,10"PLEASE WAIT.....":SP$."":!OQ$..(
..!."LABELS"...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL