INVOSTAT BASE
FILE INFORMATION
FILENAME(S): INVOSTAT BASE
FILE TYPE(S): PRG
FILE SIZE: 16.4K
FIRST SEEN: 2025-12-01 02:20:10
APPEARS ON: 1 disk(s)
FILE HASH
e52c28049543055aadf0d73303703ec4dbcc2db5d68c77a36cc3799b37d0ce32
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| NYTTO | INVOSTAT BASE | PRG | hedning, scooby | 19 | 10 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 25 08 0A 00 97 35 33 32 38 30 2C 32 3A 97 |..%....53280,2:.|
00000010: 35 33 32 38 31 2C 32 3A 99 22 9E 22 3A 8D 32 30 |53281,2:.".":.20|
00000020: 3A 89 35 34 30 00 55 08 14 00 86 41 24 28 36 36 |:.540.U....A$(66|
00000030: 29 2C 42 24 28 36 36 29 2C 51 4E 24 28 34 30 2C |),B$(66),QN$(40,|
00000040: 31 30 29 2C 49 54 24 28 34 30 2C 31 30 29 2C 54 |10),IT$(40,10),T|
00000050: 54 28 34 30 29 00 89 08 1E 00 86 50 4C 24 28 34 |T(40)......PL$(4|
00000060: 30 2C 31 30 29 2C 56 24 28 34 30 2C 35 29 2C 54 |0,10),V$(40,5),T|
00000070: 28 31 30 2C 34 30 29 2C 53 49 24 28 34 30 2C 31 |(10,40),SI$(40,1|
00000080: 30 29 3A 99 22 93 22 3A 8E 00 A3 08 28 00 8B 59 |0):.".":....(..Y|
00000090: B2 B1 31 A7 52 B2 59 AA 31 3A 59 B2 59 AA 31 3A |..1.R.Y.1:Y.Y.1:|
000000A0: 89 35 35 00 AF 08 32 00 52 B2 31 3A 59 B2 31 00 |.55...2.R.1:Y.1.|
000000B0: F5 08 37 00 99 22 93 54 59 50 45 20 12 45 4E 44 |..7..".TYPE .END|
000000C0: 92 20 54 4F 20 45 58 49 54 22 3A 99 3A 99 22 45 |. TO EXIT":.:."E|
000000D0: 4E 54 45 52 20 50 52 4F 44 55 43 54 20 4E 4F 2E |NTER PRODUCT NO.|
000000E0: 22 3B 3A 99 22 5B 20 20 20 5D 9D 9D 9D 9D 22 3B |";:."[ ]....";|
000000F0: 3A 8D 32 36 30 00 00 09 38 00 81 4A B2 31 A4 59 |:.260...8..J.1.Y|
00000100: 00 38 09 39 00 8B C8 28 49 50 24 2C 33 29 B2 C8 |.8.9...(IP$,3)..|
00000110: 28 41 24 28 4A 29 2C 33 29 A7 99 22 12 CE 4F 2E |(A$(J),3).."..O.|
00000120: 20 41 4C 52 45 41 44 59 20 55 53 45 44 22 3A 8D | ALREADY USED":.|
00000130: 34 35 30 30 3A 89 35 35 00 5A 09 3A 00 82 3A 8B |4500:.55.Z.:..:.|
00000140: 49 50 24 B2 22 45 4E 44 22 A7 52 B2 52 AB 31 3A |IP$."END".R.R.1:|
00000150: 59 B2 59 AB 31 3A 89 33 34 30 00 8B 09 3B 00 50 |Y.Y.1:.340...;.P|
00000160: 4E 24 B2 C8 28 49 50 24 2C 33 29 3A 50 B2 C3 28 |N$..(IP$,3):P..(|
00000170: 50 4E 24 29 3A 8B 50 B3 33 A7 50 4E 24 B2 50 4E |PN$):.P.3.PN$.PN|
00000180: 24 AA C8 28 53 24 2C 33 AB 50 29 00 C5 09 3C 00 |$..(S$,3.P)...<.|
00000190: 99 22 93 45 4E 54 45 52 20 4E 41 4D 45 20 4F 46 |.".ENTER NAME OF|
000001A0: 20 50 52 4F 44 55 43 54 20 23 22 3B 50 4E 24 3A | PRODUCT #";PN$:|
000001B0: 99 22 5B 22 3B 3A 8D 36 33 30 3A 99 C8 28 53 24 |."[";:.630:..(S$|
000001C0: 2C 32 34 29 3B 00 DF 09 46 00 99 22 5D 22 3B 3A |,24);...F.."]";:|
000001D0: 99 C8 28 54 24 2C 32 35 29 3B 3A 8D 32 36 30 00 |..(T$,25);:.260.|
000001E0: FB 09 5A 00 41 24 28 52 29 B2 50 4E 24 AA 22 20 |..Z.A$(R).PN$." |
000001F0: 22 AA C8 28 49 50 24 2C 32 34 29 00 43 0A 64 00 |"..(IP$,24).C.d.|
00000200: 99 22 93 45 4E 54 45 52 20 55 4E 49 54 20 50 52 |.".ENTER UNIT PR|
00000210: 49 43 45 20 4F 46 20 3A 22 3A 99 22 12 22 CA 28 |ICE OF :":.".".(|
00000220: 41 24 28 52 29 2C 35 2C 32 34 29 3A 99 22 5B 20 |A$(R),5,24):."[ |
00000230: 20 20 20 20 20 20 20 5D 9D 9D 9D 9D 9D 9D 9D 9D | ]........|
00000240: 9D 22 3B 00 58 0A 66 00 8D 32 36 30 3A 58 24 B2 |.";.X.f..260:X$.|
00000250: 49 50 24 3A 8D 37 37 30 00 85 0A 69 00 42 24 28 |IP$:.770...i.B$(|
00000260: 52 29 B2 41 41 24 3A 8B C3 28 42 24 28 52 29 29 |R).AA$:..(B$(R))|
00000270: B1 38 A7 42 24 28 52 29 B2 CA 28 42 24 28 52 29 |.8.B$(R)..(B$(R)|
00000280: 2C 32 2C 38 29 00 99 0A 6E 00 52 B2 52 AA 31 3A |,2,8)...n.R.R.1:|
00000290: 59 B2 59 AA 31 3A 89 35 35 00 D9 0A 78 00 8D 33 |Y.Y.1:.55...x..3|
000002A0: 36 37 30 3A 43 4F B2 31 3A 4C 4E B2 32 31 3A 8D |670:CO.1:LN.21:.|
000002B0: 33 36 38 30 3A 99 22 D7 48 49 43 48 20 4C 49 4E |3680:.".HICH LIN|
000002C0: 45 20 44 4F 20 59 4F 55 20 57 49 53 48 20 54 4F |E DO YOU WISH TO|
000002D0: 20 41 4D 45 4E 44 3A 2D 22 00 F7 0A 82 00 99 22 | AMEND:-"......"|
000002E0: D0 52 45 53 53 20 31 20 54 4F 22 59 22 20 3A 22 |.RESS 1 TO"Y" :"|
000002F0: 3B 3A 8D 32 36 30 3B 00 0D 0B 8C 00 52 B2 C5 28 |;:.260;.....R..(|
00000300: 49 50 24 29 3A 8B 52 B1 59 A7 31 32 30 00 32 0B |IP$):.R.Y.120.2.|
00000310: BE 00 8D 33 36 37 30 3A 8D 33 36 38 30 3A 99 22 |...3670:.3680:."|
00000320: CF 4C 44 20 D6 41 4C 55 45 20 20 12 22 42 24 28 |.LD .ALUE ."B$(|
00000330: 52 29 00 78 0B C8 00 99 22 CE 45 57 20 D6 41 4C |R).x....".EW .AL|
00000340: 55 45 20 5B 20 20 20 20 20 20 20 20 5D 9D 9D 9D |UE [ ]...|
00000350: 9D 9D 9D 9D 9D 9D 22 3B 3A 8D 32 36 30 3A 58 24 |......";:.260:X$|
00000360: B2 49 50 24 3A 8D 37 37 30 3A 42 24 28 52 29 B2 |.IP$:.770:B$(R).|
00000370: 41 41 24 3A 89 33 34 30 00 A6 0B D2 00 8D 33 36 |AA$:.340......36|
00000380: 37 30 3A 8D 33 36 38 30 3A 99 22 12 C4 45 4C 45 |70:.3680:."..ELE|
00000390: 54 45 92 20 57 48 49 43 48 20 4C 49 4E 45 20 4E |TE. WHICH LINE N|
000003A0: 55 4D 42 45 52 22 00 D5 0B DC 00 99 22 CB 45 59 |UMBER"......".EY|
000003B0: 20 31 20 54 4F 22 59 22 20 3A 22 3B 3A 8D 32 36 | 1 TO"Y" :";:.26|
000003C0: 30 3A 44 50 B2 C5 28 49 50 24 29 3A 8B 44 50 B1 |0:DP..(IP$):.DP.|
000003D0: 59 A7 32 31 30 00 0C 0C E6 00 81 52 B2 44 50 A4 |Y.210......R.DP.|
000003E0: 59 AA 31 3A 41 24 28 52 29 B2 41 24 28 52 AA 31 |Y.1:A$(R).A$(R.1|
000003F0: 29 3A 42 24 28 52 29 B2 42 24 28 52 AA 31 29 3A |):B$(R).B$(R.1):|
00000400: 82 3A 59 B2 59 AB 31 3A 89 33 34 30 00 20 0C F0 |.:Y.Y.1:.340. ..|
00000410: 00 8B 49 50 24 B2 22 22 A7 49 50 24 B2 22 2D 22 |..IP$."".IP$."-"|
00000420: 00 26 0C FA 00 8E 00 36 0C 04 01 42 24 B2 22 20 |.&.....6...B$." |
00000430: 22 3A 99 22 22 3B 00 4B 0C 0E 01 A1 49 50 24 3A |":."";.K....IP$:|
00000440: 8B 49 50 24 B2 22 22 A7 32 37 30 00 65 0C 18 01 |.IP$."".270.e...|
00000450: 8B 42 24 B2 22 20 22 AF C6 28 49 50 24 29 B2 32 |.B$." "..(IP$).2|
00000460: 30 A7 32 37 30 00 92 0C 22 01 8B C6 28 49 50 24 |0.270..."...(IP$|
00000470: 29 B2 32 30 A7 42 24 B2 C8 28 42 24 2C C3 28 42 |).20.B$..(B$,.(B|
00000480: 24 29 AB 31 29 3A 99 22 9D 20 9D 22 3B 3A 89 32 |$).1):.". .";:.2|
00000490: 37 30 00 B4 0C 2C 01 8B 49 50 24 B2 C7 28 31 33 |70...,..IP$..(13|
000004A0: 29 A7 49 50 24 B2 CA 28 42 24 2C 32 29 3A 99 3A |).IP$..(B$,2):.:|
000004B0: 89 32 34 30 00 CB 0C 36 01 41 B2 C6 28 49 50 24 |.240...6.A..(IP$|
000004C0: 29 3A 8B 41 B3 33 31 A7 32 37 30 00 EC 0C 40 01 |):.A.31.270...@.|
000004D0: 42 24 B2 42 24 AA 49 50 24 3A 99 22 12 22 3B 49 |B$.B$.IP$:.".";I|
000004E0: 50 24 3B 22 92 22 3B 3A 89 32 37 30 00 03 0D 4A |P$;".";:.270...J|
000004F0: 01 41 B2 41 AA 31 36 3A 42 B2 42 AA 31 36 3A 89 |.A.A.16:B.B.16:.|
00000500: 33 35 30 00 1A 0D 4F 01 41 B2 41 AB 31 36 3A 42 |350...O.A.A.16:B|
00000510: B2 42 AB 31 36 3A 89 33 35 30 00 27 0D 54 01 41 |.B.16:.350.'.T.A|
00000520: B2 31 3A 42 B2 31 36 00 54 0D 5E 01 99 22 93 22 |.1:B.16.T.^.."."|
00000530: 3A 99 A3 31 35 29 22 D0 52 4F 44 55 43 54 20 CC |:..15)".RODUCT .|
00000540: 49 53 54 22 3A 8B 42 B1 36 34 A7 42 B2 36 34 3A |IST":.B.64.B.64:|
00000550: 41 B2 34 39 00 61 0D 5F 01 8B 41 B3 31 A7 33 34 |A.49.a._..A.1.34|
00000560: 30 00 A3 0D 63 01 99 22 12 4C 4E 92 22 A6 31 29 |0...c..".LN.".1)|
00000570: 22 12 50 4E 20 92 22 A6 31 29 22 12 44 45 53 43 |".PN .".1)".DESC|
00000580: 52 49 50 54 49 4F 4E 20 20 20 20 20 20 20 20 20 |RIPTION |
00000590: 20 20 20 20 92 22 A6 32 29 22 12 56 41 4C 55 45 | .".2)".VALUE|
000005A0: 20 92 22 00 AE 0D 64 01 81 52 B2 41 A4 42 00 DB | ."...d..R.A.B..|
000005B0: 0D 68 01 99 CA 28 C4 28 52 29 2C 32 29 A3 33 29 |.h...(.(R),2).3)|
000005C0: 41 24 28 52 29 A3 33 36 AB C3 28 42 24 28 52 29 |A$(R).36..(B$(R)|
000005D0: 29 AA 33 29 42 24 28 52 29 3A 82 00 F5 0D 72 01 |).3)B$(R):....r.|
000005E0: 43 4F B2 31 3A 4C 4E B2 32 30 3A 8D 33 36 38 30 |CO.1:LN.20:.3680|
000005F0: 3A 99 4C 33 24 00 33 0E 7C 01 99 22 12 49 92 4E |:.L3$.3.|..".I.N|
00000600: 50 55 54 20 12 41 92 4D 45 4E 44 20 12 53 92 4F |PUT .A.MEND .S.O|
00000610: 52 54 20 12 4D 92 45 4E 55 20 12 44 92 45 4C 45 |RT .M.ENU .D.ELE|
00000620: 54 45 20 12 50 92 52 49 4E 54 20 12 3C 92 20 12 |TE .P.RINT .<. .|
00000630: 3E 92 22 00 46 0E 86 01 A1 4B 24 3A 8B 4B 24 B2 |>.".F....K$:.K$.|
00000640: 22 22 A7 33 39 30 00 55 0E 90 01 8B 4B 24 B2 22 |"".390.U....K$."|
00000650: 49 22 A7 34 30 00 65 0E 9A 01 8B 4B 24 B2 22 41 |I".40.e....K$."A|
00000660: 22 A7 31 32 30 00 75 0E A4 01 8B 4B 24 B2 22 53 |".120.u....K$."S|
00000670: 22 A7 36 37 30 00 85 0E AE 01 8B 4B 24 B2 22 4D |".670......K$."M|
00000680: 22 A7 35 34 30 00 95 0E B8 01 8B 4B 24 B2 22 3E |".540......K$.">|
00000690: 22 A7 33 33 30 00 A5 0E C2 01 8B 4B 24 B2 22 44 |".330......K$."D|
000006A0: 22 A7 32 31 30 00 B5 0E CC 01 8B 4B 24 B2 22 3C |".210......K$."<|
000006B0: 22 A7 33 33 35 00 C5 0E D6 01 8B 4B 24 B2 22 50 |".335......K$."P|
000006C0: 22 A7 34 39 30 00 CE 0E E0 01 89 33 39 30 00 F7 |".490......390..|
000006D0: 0E EA 01 8D 31 33 34 30 3A 9F 34 2C 34 3A 9D 34 |....1340:.4,4:.4|
000006E0: 3A 99 A3 32 30 29 22 11 D0 52 4F 44 55 43 54 20 |:..20)"..RODUCT |
000006F0: CC 49 53 54 22 3A 99 00 3D 0F EC 01 99 22 20 CC |.IST":..=...." .|
00000700: 49 4E 45 20 CE 4F 2E 20 20 D0 52 4F 44 55 43 54 |INE .O. .RODUCT|
00000710: 20 CE 4F 2E 20 20 C4 45 53 43 52 49 50 54 49 4F | .O. .ESCRIPTIO|
00000720: 4E 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |N |
00000730: 20 20 20 20 20 20 20 D6 41 4C 55 45 22 00 83 0F | .ALUE"...|
00000740: EE 01 99 22 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |..." -----------|
00000750: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000760: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000770: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000780: 2D 2D 22 00 8E 0F F0 01 81 52 B2 31 A4 59 00 BD |--"......R.1.Y..|
00000790: 0F F4 01 99 52 A3 31 30 AB C3 28 C4 28 52 29 29 |....R.10..(.(R))|
000007A0: 29 C8 28 41 24 28 52 29 2C 33 29 A3 31 30 29 CA |).(A$(R),3).10).|
000007B0: 28 41 24 28 52 29 2C 35 2C 32 34 29 3B 00 EE 0F |(A$(R),5,24);...|
000007C0: F5 01 50 58 B2 C3 28 CA 28 41 24 28 52 29 2C 35 |..PX..(.(A$(R),5|
000007D0: 2C 32 34 29 29 AA C3 28 42 24 28 52 29 29 3A 99 |,24))..(B$(R)):.|
000007E0: A3 33 38 AB 50 58 29 42 24 28 52 29 3A 82 00 FD |.38.PX)B$(R):...|
000007F0: 0F FE 01 98 34 3A A0 34 3A 89 33 34 30 00 38 10 |....4:.4:.340.8.|
00000800: 08 02 99 22 93 22 3A 99 3A 99 22 45 4E 54 45 52 |...".":.:."ENTER|
00000810: 20 44 41 54 45 20 45 47 28 32 39 2E 31 32 2E 38 | DATE EG(29.12.8|
00000820: 32 29 20 5B 20 20 20 20 20 20 20 20 5D 9D 9D 9D |2) [ ]...|
00000830: 9D 9D 9D 9D 9D 9D 22 3B 00 50 10 12 02 8D 32 36 |......";.P....26|
00000840: 30 3A 44 54 24 B2 C8 28 49 50 24 2C 38 29 3A 8E |0:DT$..(IP$,8):.|
00000850: 00 6E 10 1C 02 8D 36 33 30 3A 8D 31 38 36 30 3A |.n....630:.1860:|
00000860: 99 C7 28 31 34 32 29 3A 20 8D 31 31 39 30 00 98 |..(142): .1190..|
00000870: 10 26 02 99 22 20 20 31 2E 20 50 52 4F 44 55 43 |.&.." 1. PRODUC|
00000880: 54 20 46 49 4C 45 20 20 32 2E 20 43 4F 4D 50 41 |T FILE 2. COMPA|
00000890: 4E 59 20 49 4E 46 4F 22 00 BD 10 30 02 99 22 20 |NY INFO"...0.." |
000008A0: 20 33 2E 20 43 4C 49 45 4E 54 20 46 49 4C 45 20 | 3. CLIENT FILE |
000008B0: 20 20 34 2E 20 52 45 43 4F 52 44 53 22 00 E7 10 | 4. RECORDS"...|
000008C0: 3A 02 99 22 20 20 35 2E 20 4C 4F 41 44 2F 53 41 |:.." 5. LOAD/SA|
000008D0: 56 45 20 20 20 20 20 36 2E 20 52 45 50 4F 52 54 |VE 6. REPORT|
000008E0: 20 57 52 49 54 45 52 00 09 11 3F 02 99 22 20 20 | WRITER...?.." |
000008F0: 37 2E 20 55 54 49 4C 49 54 49 45 53 20 20 20 20 |7. UTILITIES |
00000900: 20 38 2E 20 45 58 49 54 22 00 14 11 44 02 99 3A | 8. EXIT"...D..:|
00000910: 99 4C 33 24 00 31 11 4E 02 A1 4B 24 3A 8B C5 28 |.L3$.1.N..K$:..(|
00000920: 4B 24 29 B3 31 B0 C5 28 4B 24 29 B1 38 A7 35 39 |K$).1..(K$).8.59|
00000930: 30 00 65 11 58 02 8B 56 56 B2 30 AF C5 28 4B 24 |0.e.X..VV.0..(K$|
00000940: 29 B2 34 A7 99 22 12 53 45 54 20 55 50 20 43 4C |).4..".SET UP CL|
00000950: 49 45 4E 54 20 46 49 4C 45 22 3A 8D 34 35 30 30 |IENT FILE":.4500|
00000960: 3A 89 35 34 30 00 97 11 5D 02 8B 56 56 B2 30 AF |:.540...]..VV.0.|
00000970: C5 28 4B 24 29 B2 36 A7 99 22 12 4E 4F 20 46 49 |.(K$).6..".NO FI|
00000980: 4C 45 20 52 45 53 49 44 45 4E 54 22 3A 8D 34 35 |LE RESIDENT":.45|
00000990: 30 30 3A 89 35 34 30 00 D5 11 5F 02 8B 43 4E 24 |00:.540..._..CN$|
000009A0: 28 31 29 B2 22 22 AF C5 28 4B 24 29 B2 33 A7 99 |(1).""..(K$).3..|
000009B0: 22 12 49 4E 50 55 54 20 59 4F 55 52 20 43 4F 4D |".INPUT YOUR COM|
000009C0: 50 41 4E 59 20 4E 41 4D 45 22 3A 8D 34 35 30 30 |PANY NAME":.4500|
000009D0: 3A 89 35 34 30 00 E5 11 62 02 99 22 93 22 3A 99 |:.540...b..".":.|
000009E0: C7 28 31 34 29 00 16 12 6C 02 91 C5 28 4B 24 29 |.(14)...l...(K$)|
000009F0: 89 33 34 30 2C 39 31 30 2C 31 31 31 30 2C 31 38 |.340,910,1110,18|
00000A00: 39 30 2C 33 30 35 30 2C 35 35 30 30 2C 35 36 30 |90,3050,5500,560|
00000A10: 30 2C 33 39 39 30 00 47 12 76 02 53 24 B2 22 20 |0,3990.G.v.S$." |
00000A20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000A30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000A40: 20 20 20 20 20 20 22 00 78 12 80 02 54 24 B2 22 | ".x...T$."|
00000A50: 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D |................|
00000A60: 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D |................|
00000A70: 9D 9D 9D 9D 9D 9D 9D 22 00 9E 12 8A 02 4C 31 24 |.......".....L1$|
00000A80: B2 22 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 3A 4C 32 |."----------":L2|
00000A90: 24 B2 22 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 22 00 D0 |$."=========="..|
00000AA0: 12 8F 02 4C 33 24 B2 22 2D 2D 2D 2D 2D 2D 2D 2D |...L3$."--------|
00000AB0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000AC0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 |---------------"|
00000AD0: 00 E0 12 94 02 43 48 24 B2 C7 28 31 33 29 3A 8E |.....CH$..(13):.|
00000AE0: 00 ED 12 9E 02 81 52 B2 31 A4 59 AB 31 00 FC 12 |......R.1.Y.1...|
00000AF0: A8 02 81 49 B2 28 52 AA 31 29 A4 59 00 22 13 B2 |...I.(R.1).Y."..|
00000B00: 02 8B CA 28 41 24 28 49 29 2C 35 2C 32 34 29 B1 |...(A$(I),5,24).|
00000B10: B2 CA 28 41 24 28 52 29 2C 35 2C 32 34 29 A7 37 |..(A$(R),5,24).7|
00000B20: 33 30 00 38 13 BC 02 43 24 B2 41 24 28 52 29 3A |30.8...C$.A$(R):|
00000B30: 44 24 B2 42 24 28 52 29 00 54 13 C6 02 41 24 28 |D$.B$(R).T...A$(|
00000B40: 52 29 B2 41 24 28 49 29 3A 42 24 28 52 29 B2 42 |R).A$(I):B$(R).B|
00000B50: 24 28 49 29 00 6A 13 D0 02 41 24 28 49 29 B2 43 |$(I).j...A$(I).C|
00000B60: 24 3A 42 24 28 49 29 B2 44 24 00 72 13 DA 02 82 |$:B$(I).D$.r....|
00000B70: 3A 82 00 95 13 E4 02 99 22 12 53 4F 52 54 92 20 |:.......".SORT. |
00000B80: 43 4F 4D 50 4C 45 54 45 44 22 3A 8D 34 35 30 30 |COMPLETED":.4500|
00000B90: 3A 89 33 34 30 00 B2 13 EE 02 A1 4B 24 3A 8B 4B |:.340......K$:.K|
00000BA0: 24 B3 B1 22 59 22 AF 4B 24 B3 B1 22 4E 22 A7 37 |$.."Y".K$.."N".7|
00000BB0: 35 30 00 B8 13 F8 02 8E 00 C1 13 02 03 45 56 B2 |50...........EV.|
00000BC0: 30 00 DC 13 0C 03 41 41 24 B2 22 22 3A 41 41 31 |0.....AA$."":AA1|
00000BD0: 24 B2 22 22 3A 41 41 32 24 B2 22 22 00 0A 14 16 |$."":AA2$.""....|
00000BE0: 03 41 4E B2 C5 28 58 24 29 3A 45 56 B2 B4 28 41 |.AN..(X$):EV..(A|
00000BF0: 4E 29 3A 41 4E B2 B6 28 41 4E 29 3A 41 42 24 B2 |N):AN..(AN):AB$.|
00000C00: C8 28 C4 28 45 56 29 2C 31 29 00 1D 14 20 03 41 |.(.(EV),1)... .A|
00000C10: 31 B2 AB 28 B5 28 41 4E 29 AB 41 4E 29 00 3E 14 |1..(.(AN).AN).>.|
00000C20: 2A 03 41 31 B2 B4 28 41 31 29 AC B5 28 B6 28 41 |*.A1..(A1)..(.(A|
00000C30: 31 AC 31 30 30 29 AA 2E 35 29 AD 31 30 30 00 4C |1.100)..5).100.L|
00000C40: 14 34 03 41 41 24 B2 C4 28 41 31 29 00 63 14 3E |.4.AA$..(A1).c.>|
00000C50: 03 8B 41 31 B3 2E 30 31 A7 41 41 24 B2 22 30 2E |..A1..01.AA$."0.|
00000C60: 30 30 22 00 75 14 48 03 8B C3 28 41 41 24 29 B2 |00".u.H...(AA$).|
00000C70: 34 A7 38 37 30 00 91 14 52 03 8B 20 C3 28 41 41 |4.870...R.. .(AA|
00000C80: 24 29 B1 34 A7 41 41 24 B2 C8 28 41 41 24 2C 34 |$).4.AA$..(AA$,4|
00000C90: 29 00 AB 14 5C 03 8B C3 28 41 41 24 29 B3 34 A7 |)...\...(AA$).4.|
00000CA0: 41 41 24 B2 41 41 24 AA 22 30 22 00 BC 14 66 03 |AA$.AA$."0"...f.|
00000CB0: 41 41 24 B2 C9 28 41 41 24 2C 33 29 00 CD 14 6B |AA$..(AA$,3)...k|
00000CC0: 03 42 41 24 B2 C4 28 B5 28 41 4E 29 29 00 E1 14 |.BA$..(.(AN))...|
00000CD0: 70 03 41 41 24 B2 41 42 24 AA 42 41 24 AA 41 41 |p.AA$.AB$.BA$.AA|
00000CE0: 24 00 E7 14 84 03 8E 00 FA 14 8E 03 8B 43 4E 24 |$............CN$|
00000CF0: 28 31 29 B2 22 22 A7 39 35 30 00 25 15 98 03 99 |(1)."".950.%....|
00000D00: 22 93 C3 4F 4D 50 41 4E 59 20 C9 4E 46 4F 52 4D |"..OMPANY .NFORM|
00000D10: 41 54 49 4F 4E 20 C1 4C 52 45 41 44 59 20 D3 45 |ATION .LREADY .E|
00000D20: 54 2D D5 50 22 00 60 15 A2 03 99 22 C4 4F 20 59 |T-.P".`....".O Y|
00000D30: 4F 55 20 57 49 53 48 20 54 4F 20 43 48 41 4E 47 |OU WISH TO CHANG|
00000D40: 45 20 C9 4E 46 4F 52 4D 41 54 49 4F 4E 22 3A 99 |E .NFORMATION":.|
00000D50: 22 CB 45 59 20 12 59 92 20 4F 52 20 12 4E 92 22 |".EY .Y. OR .N."|
00000D60: 00 75 15 AC 03 8D 37 35 30 3A 8B 4B 24 B2 22 4E |.u....750:.K$."N|
00000D70: 22 A7 39 38 30 00 9D 15 B6 03 99 22 93 22 A3 31 |".980......".".1|
00000D80: 32 29 22 C3 4F 4D 50 41 4E 59 20 C9 4E 46 4F 52 |2)".OMPANY .NFOR|
00000D90: 4D 41 54 49 4F 4E 22 3A 8D 31 38 36 30 00 A8 15 |MATION":.1860...|
00000DA0: C0 03 81 49 B2 31 A4 35 00 DC 15 CA 03 99 22 C5 |...I.1.5......".|
00000DB0: 4E 54 45 52 20 59 4F 55 52 20 43 4F 4D 50 41 4E |NTER YOUR COMPAN|
00000DC0: 59 20 22 49 4E 24 28 49 29 3A 20 8D 32 36 30 3A |Y "IN$(I): .260:|
00000DD0: 43 4E 24 28 49 29 B2 49 50 24 3A 82 00 FC 15 D4 |CN$(I).IP$:.....|
00000DE0: 03 99 22 93 22 3A 20 81 49 B2 31 A4 35 3A 99 43 |..".": .I.1.5:.C|
00000DF0: 4E 24 28 49 29 3A 82 3A 99 56 52 24 00 35 16 DE |N$(I):.:.VR$.5..|
00000E00: 03 99 22 12 C9 53 20 54 48 49 53 20 49 4E 46 4F |.."..S THIS INFO|
00000E10: 52 4D 41 54 49 4F 4E 20 43 4F 52 52 45 43 54 22 |RMATION CORRECT"|
00000E20: 3A 99 22 CB 45 59 20 12 59 92 45 53 20 4F 52 20 |:.".EY .Y.ES OR |
00000E30: 12 4E 92 4F 22 00 3F 16 E8 03 8D 34 39 30 30 00 |.N.O".?....4900.|
00000E40: 4F 16 F2 03 8B 4B 24 B2 22 4E 22 A7 39 35 30 00 |O....K$."N".950.|
00000E50: 93 16 FC 03 8B 4B 24 B2 22 59 22 A7 99 22 45 4E |.....K$."Y".."EN|
00000E60: 54 45 52 20 56 41 54 20 52 41 54 45 20 45 47 2E |TER VAT RATE EG.|
00000E70: 31 35 20 5B 20 20 20 20 20 20 5D 9D 9D 9D 9D 9D |15 [ ].....|
00000E80: 9D 9D 22 3B 3A 8D 32 36 30 3A 56 54 B2 C5 28 49 |..";:.260:VT..(I|
00000E90: 50 24 29 00 CC 16 06 04 8B 56 52 24 B2 22 22 A7 |P$)......VR$."".|
00000EA0: 99 22 C1 52 45 20 59 4F 55 20 52 45 47 49 53 54 |.".RE YOU REGIST|
00000EB0: 45 52 45 44 20 46 4F 52 20 D6 C1 D4 2E 20 12 59 |ERED FOR .... .Y|
00000EC0: 92 2F 12 4E 92 22 3A 89 31 30 35 30 00 FC 16 08 |./.N.":.1050....|
00000ED0: 04 99 22 93 22 3A 99 22 C4 4F 20 59 4F 55 20 57 |..".":.".O YOU W|
00000EE0: 49 53 48 20 54 4F 20 49 4E 43 4C 55 44 45 20 4D |ISH TO INCLUDE M|
00000EF0: 45 53 53 41 47 45 20 4F 4E 20 3A 22 00 0D 17 09 |ESSAGE ON :"....|
00000F00: 04 99 22 12 C9 92 4E 56 4F 49 43 45 22 00 22 17 |.."...NVOICE".".|
00000F10: 0A 04 99 22 12 C3 92 52 45 44 49 54 20 CE 4F 54 |..."...REDIT .OT|
00000F20: 45 22 00 35 17 0B 04 99 22 12 D3 92 54 41 54 45 |E".5...."...TATE|
00000F30: 4D 45 4E 54 22 00 43 17 0D 04 99 22 12 CD 92 45 |MENT".C...."...E|
00000F40: 4E 55 22 00 57 17 0E 04 A1 4B 24 3A 8B 4B 24 B2 |NU".W....K$:.K$.|
00000F50: 22 22 A7 31 30 33 38 00 7D 17 0F 04 8B 4B 24 B2 |"".1038.}....K$.|
00000F60: 22 49 22 B0 4B 24 B2 22 43 22 B0 4B 24 B2 22 53 |"I".K$."C".K$."S|
00000F70: 22 A7 8D 35 30 30 30 3A 89 31 30 33 32 00 8D 17 |"..5000:.1032...|
00000F80: 10 04 8B 4B 24 B2 22 4D 22 A7 35 34 30 00 97 17 |...K$."M".540...|
00000F90: 13 04 89 31 30 33 38 00 A0 17 15 04 89 35 34 30 |...1038......540|
00000FA0: 00 AA 17 1A 04 8D 34 39 30 30 00 BB 17 24 04 8B |......4900...$..|
00000FB0: 4B 24 B2 22 4E 22 A7 31 30 33 32 00 FA 17 2E 04 |K$."N".1032.....|
00000FC0: 99 22 C5 4E 54 45 52 20 D6 C1 D4 A0 D2 45 47 2E |.".NTER .....EG.|
00000FD0: 20 CE 4F 2E 20 22 3B 3A 8D 32 36 30 3A 56 52 24 | .O. ";:.260:VR$|
00000FE0: B2 22 D6 C1 D4 A0 D2 45 47 2E 20 CE 4F 2E 20 22 |.".....EG. .O. "|
00000FF0: AA 49 50 24 3A 89 31 30 33 32 00 03 18 38 04 89 |.IP$:.1032...8..|
00001000: 35 34 30 00 0C 18 42 04 89 39 31 30 00 1B 18 56 |540...B..910...V|
00001010: 04 8B 56 B2 B1 31 A7 31 31 33 30 00 47 18 60 04 |..V..1.1130.G.`.|
00001020: 56 B2 31 3A 56 56 B2 31 3A 54 54 28 56 29 B2 31 |V.1:VV.1:TT(V).1|
00001030: 3A 8D 31 38 36 30 3A 8B 56 24 28 31 2C 31 29 B2 |:.1860:.V$(1,1).|
00001040: 22 22 A7 56 56 B2 30 00 58 18 6A 04 56 56 B2 56 |"".VV.0.X.j.VV.V|
00001050: 56 AA 31 3A 56 B2 56 56 00 9B 18 6F 04 8B 56 56 |V.1:V.VV...o..VV|
00001060: B1 34 30 A7 99 22 4D 41 58 20 4E 4F 20 4F 46 20 |.40.."MAX NO OF |
00001070: 34 30 20 43 4C 49 45 4E 54 53 20 4E 4F 57 20 52 |40 CLIENTS NOW R|
00001080: 45 41 43 48 45 44 22 3A 8D 34 35 30 30 3A 56 B2 |EACHED":.4500:V.|
00001090: 56 AB 31 3A 56 56 B2 56 56 AB 31 00 A6 18 74 04 |V.1:VV.VV.1...t.|
000010A0: 81 43 B2 31 A4 35 00 D1 18 79 04 8B 43 B2 31 A7 |.C.1.5...y..C.1.|
000010B0: 99 22 93 54 59 50 45 20 12 45 4E 44 92 20 46 4F |.".TYPE .END. FO|
000010C0: 52 20 4D 45 4E 55 22 3A 99 3A 99 3A 89 31 31 35 |R MENU":.:.:.115|
000010D0: 30 00 DA 18 7B 04 99 22 93 22 00 16 19 7E 04 99 |0...{.."."...~..|
000010E0: 22 45 4E 54 45 52 20 12 22 49 4E 24 28 43 29 22 |"ENTER ."IN$(C)"|
000010F0: 92 20 4F 46 20 43 4C 49 45 4E 54 20 23 22 3B 56 |. OF CLIENT #";V|
00001100: 3A 99 22 5B 22 3B 3A 8D 36 33 30 3A 99 C8 28 53 |:."[";:.630:..(S|
00001110: 24 2C 32 35 29 3B 00 4E 19 88 04 99 22 5D 22 3B |$,25);.N...."]";|
00001120: 3A 99 C8 28 54 24 2C 32 36 29 3B 3A 8D 32 36 30 |:..(T$,26);:.260|
00001130: 3A 8B 49 50 24 B2 22 45 4E 44 22 A7 56 B2 56 AB |:.IP$."END".V.V.|
00001140: 31 3A 56 56 B2 56 56 AB 31 3A 89 35 34 30 00 64 |1:VV.VV.1:.540.d|
00001150: 19 92 04 56 24 28 56 2C 43 29 B2 C8 28 49 50 24 |...V$(V,C)..(IP$|
00001160: 2C 32 35 29 00 7F 19 9C 04 82 20 3A 56 B2 56 AA |,25)...... :V.V.|
00001170: 31 3A 56 56 B2 56 56 AA 31 3A 89 31 31 33 35 00 |1:VV.VV.1:.1135.|
00001180: 88 19 A6 04 99 22 93 22 00 B1 19 B0 04 99 22 20 |....."."......" |
00001190: 20 12 20 20 20 92 20 12 DF 92 20 20 12 20 92 20 | . . ... . . |
000011A0: 12 20 92 20 20 12 20 92 20 12 A9 20 20 DF 92 22 |. . . . .. .."|
000011B0: 3B 00 D1 19 BA 04 99 22 20 12 A9 20 20 92 20 12 |;......" .. . .|
000011C0: 20 20 20 92 20 12 A9 20 DF 92 20 12 20 20 20 92 | . .. .. . .|
000011D0: 22 00 FC 19 C4 04 99 22 20 20 20 12 20 92 20 20 |"......" . . |
000011E0: 12 20 DF 92 20 12 20 92 20 12 20 92 20 20 12 20 |. .. . . . . . |
000011F0: 92 20 12 20 92 A9 DF 12 20 92 22 3B 00 1E 1A CE |. . .... .";....|
00001200: 04 99 22 20 12 20 92 20 20 20 20 12 20 92 20 20 |.." . . . . |
00001210: 12 20 92 20 12 20 92 20 20 12 20 92 20 22 00 4B |. . . . . . ".K|
00001220: 1A D8 04 99 22 20 20 20 12 20 92 20 20 12 20 92 |...." . . . .|
00001230: DF 12 DF 92 12 20 92 20 12 20 92 20 20 12 20 92 |..... . . . . .|
00001240: 20 12 20 92 20 20 12 20 92 22 3B 00 6A 1A E2 04 | . . . .";.j...|
00001250: 99 22 20 DF 12 20 DF 92 20 20 12 20 92 20 20 12 |." .. .. . . .|
00001260: 20 20 20 92 20 20 12 20 92 22 00 93 1A EC 04 99 | . . ."......|
00001270: 22 20 20 20 12 20 92 20 20 12 20 92 20 DF 12 20 |" . . . . .. |
00001280: 92 20 DF 12 DF 92 12 A9 92 A9 20 12 20 DF A9 20 |. ........ . .. |
00001290: 92 22 3B 00 B4 1A F6 04 99 22 20 20 20 12 20 92 |.";......" . .|
000012A0: 20 20 12 20 92 20 20 12 20 92 20 12 20 92 20 20 | . . . . . . |
000012B0: 12 20 92 22 00 D7 1A 00 05 99 22 20 20 12 20 20 |. ."......" . |
000012C0: 20 92 20 12 20 92 20 20 DF 20 20 DF A9 20 20 DF | . . . . .. .|
000012D0: 12 20 20 92 A9 22 3B 00 F8 1A 0A 05 99 22 20 12 |. ..";......" .|
000012E0: 20 20 92 A9 20 20 12 20 92 20 20 12 20 92 20 12 | .. . . . . .|
000012F0: 20 92 20 20 12 20 92 22 00 09 1B 14 05 99 3A 20 | . . ."......: |
00001300: 99 A3 31 37 29 22 42 59 22 00 3F 1B 1E 05 99 3A |..17)"BY".?....:|
00001310: 99 22 20 20 20 20 20 20 20 12 20 44 20 92 20 12 |." . D . .|
00001320: 20 49 20 92 20 12 20 41 20 92 20 12 20 4C 20 92 | I . . A . . L .|
00001330: 20 12 20 4F 20 92 20 12 20 47 20 92 22 3A 99 00 | . O . . G .":..|
00001340: 7A 1B 28 05 99 22 20 20 20 12 20 53 20 92 20 12 |z.(.." . S . .|
00001350: 20 4F 20 92 20 12 20 46 20 92 20 12 20 54 20 92 | O . . F . . T .|
00001360: 20 12 20 57 20 92 20 12 20 41 20 92 20 12 20 52 | . W . . A . . R|
00001370: 20 92 20 12 20 45 20 92 20 22 00 89 1B 32 05 99 | . . E . "...2..|
00001380: 3A 99 4C 33 24 3A 99 3A 8E 00 C7 1B 3C 05 43 4F |:.L3$:.:....<.CO|
00001390: B2 31 3A 4C 4E B2 32 31 3A 8D 33 36 38 30 3A 99 |.1:LN.21:.3680:.|
000013A0: 22 20 3C 3C 20 45 4E 53 55 52 45 20 54 48 41 54 |" << ENSURE THAT|
000013B0: 20 50 52 49 4E 54 45 52 20 49 53 20 41 4C 49 47 | PRINTER IS ALIG|
000013C0: 4E 45 44 20 3E 3E 22 00 02 1C 46 05 99 22 20 20 |NED >>"...F.." |
000013D0: 20 20 50 52 45 53 53 20 12 53 50 41 43 45 20 42 | PRESS .SPACE B|
000013E0: 41 52 92 20 54 4F 20 43 4F 4E 54 49 4E 55 45 22 |AR. TO CONTINUE"|
000013F0: 3A A1 4B 24 3A 8B 4B 24 B3 B1 22 20 22 A7 31 33 |:.K$:.K$.." ".13|
00001400: 34 30 00 08 1C 50 05 8E 00 33 1C 5A 05 99 22 93 |40...P...3.Z..".|
00001410: 22 3A 8B C5 28 46 54 24 29 B3 30 A7 49 45 24 B2 |":..(FT$).0.IE$.|
00001420: 22 C3 52 45 44 49 54 20 CE 4F 54 45 22 3A 89 31 |".REDIT .OTE":.1|
00001430: 33 38 30 00 4B 1C 5F 05 49 45 24 B2 22 D3 41 4C |380.K._.IE$.".AL|
00001440: 45 53 20 C9 4E 56 4F 49 43 45 22 00 75 1C 64 05 |ES .NVOICE".u.d.|
00001450: 8D 31 33 34 30 3A 9F 34 2C 34 3A 9D 34 3A 99 3A |.1340:.4,4:.4:.:|
00001460: 99 3A 99 22 11 22 49 45 24 3B A3 34 32 29 22 CE |.:."."IE$;.42)".|
00001470: 4F 2E 20 22 3B 00 95 1C 6E 05 99 C8 28 53 49 24 |O. ";...n...(SI$|
00001480: 28 56 2C 54 28 54 4E 2C 56 29 29 2C 31 30 29 3A |(V,T(TN,V)),10):|
00001490: 99 3A 99 3A 99 00 C2 1C 78 05 81 49 B2 31 A4 35 |.:.:....x..I.1.5|
000014A0: 3A 57 4E B2 C3 28 43 4E 24 28 49 29 29 3A 99 A3 |:WN..(CN$(I)):..|
000014B0: 28 37 30 AB 57 4E 29 AD 32 29 43 4E 24 28 49 29 |(70.WN).2)CN$(I)|
000014C0: 3A 82 00 E9 1C 82 05 8B 56 52 24 B3 B1 22 22 A7 |:.......VR$.."".|
000014D0: 57 4E B2 C3 28 56 52 24 29 3A 99 A3 28 37 30 AB |WN..(VR$):..(70.|
000014E0: 57 4E 29 AD 32 29 56 52 24 00 01 1D 8C 05 81 49 |WN).2)VR$......I|
000014F0: B2 31 A4 37 30 3A 99 22 2D 22 3B 3A 82 3A 99 3A |.1.70:."-";:.:.:|
00001500: 99 00 2D 1D 96 05 99 22 D4 4F 2E 20 20 20 22 56 |..-....".O. "V|
00001510: 24 28 56 2C 31 29 3A 81 43 B2 32 A4 34 3A 99 A3 |$(V,1):.C.2.4:..|
00001520: 36 29 56 24 28 56 2C 43 29 3A 82 3A 99 00 5C 1D |6)V$(V,C):.:..\.|
00001530: A0 05 99 22 D9 4F 55 52 20 CF 52 44 45 52 20 CE |...".OUR .RDER .|
00001540: 4F 2E 20 22 CA 28 53 49 24 28 56 2C 54 28 54 4E |O. ".(SI$(V,T(TN|
00001550: 2C 56 29 29 2C 31 31 2C 31 30 29 3B 00 84 1D AA |,V)),11,10);....|
00001560: 05 99 A3 32 36 29 22 C4 41 54 45 20 22 CA 28 53 |...26)".ATE ".(S|
00001570: 49 24 28 56 2C 54 28 54 4E 2C 56 29 29 2C 32 31 |I$(V,T(TN,V)),21|
00001580: 2C 31 30 29 00 98 1D B4 05 81 49 B2 31 A4 37 30 |,10)......I.1.70|
00001590: 3A 99 22 3D 22 3B 3A 82 00 9E 1D BE 05 99 00 E6 |:."=";:.........|
000015A0: 1D C8 05 99 22 D1 54 59 2E 20 20 20 20 20 C4 45 |....".TY. .E|
000015B0: 53 43 52 49 50 54 49 4F 4E 20 20 20 20 20 20 20 |SCRIPTION |
000015C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 D0 52 | .R|
000015D0: 49 43 45 20 20 20 20 20 20 20 20 20 20 20 20 20 |ICE |
000015E0: D4 4F 54 41 4C 22 00 FE 1D D2 05 81 49 B2 31 A4 |.OTAL"......I.1.|
000015F0: 37 30 3A 99 22 3D 22 3B 3A 82 3A 99 3A 99 00 1C |70:."=";:.:.:...|
00001600: 1E DC 05 4C 51 B2 C3 28 51 4E 24 28 56 2C 54 28 |...LQ..(QN$(V,T(|
00001610: 54 4E 2C 56 29 29 29 3A 50 4E B2 31 00 41 1E E6 |TN,V))):PN.1.A..|
00001620: 05 4D 51 B2 C5 28 CA 28 51 4E 24 28 56 2C 54 28 |.MQ..(.(QN$(V,T(|
00001630: 54 4E 2C 56 29 29 2C 50 4E AC 35 AA 31 2C 35 29 |TN,V)),PN.5.1,5)|
00001640: 29 00 69 1E F0 05 99 4D 51 3B 3A 50 31 24 B2 CA |).i....MQ;:P1$..|
00001650: 28 50 4C 24 28 56 2C 54 28 54 4E 2C 56 29 29 2C |(PL$(V,T(TN,V)),|
00001660: 50 4E AC 35 AA 31 2C 33 29 00 A7 1E F5 05 81 52 |PN.5.1,3)......R|
00001670: B2 31 A4 59 3A 8B C8 28 41 24 28 52 29 2C 33 29 |.1.Y:..(A$(R),3)|
00001680: B2 50 31 24 A7 99 A3 31 30 AB C3 28 C4 28 4D 51 |.P1$...10..(.(MQ|
00001690: 29 29 29 CA 28 41 24 28 52 29 2C 35 2C 32 34 29 |))).(A$(R),5,24)|
000016A0: 3B 3A 89 31 35 33 30 00 AD 1E F7 05 82 00 E3 1E |;:.1530.........|
000016B0: FA 05 50 57 B2 C3 28 41 24 28 52 29 29 AB 36 3A |..PW..(A$(R)).6:|
000016C0: 50 58 B2 C3 28 42 24 28 52 29 29 3A 50 59 B2 50 |PX..(B$(R)):PY.P|
000016D0: 57 AA 50 58 3A 99 A3 33 33 AB 50 59 29 42 24 28 |W.PX:..33.PY)B$(|
000016E0: 52 29 3B 00 0C 1F 04 06 4D 52 B2 4D 51 AC C5 28 |R);.....MR.MQ..(|
000016F0: 42 24 28 52 29 29 3A 58 24 B2 C4 28 4D 52 29 3A |B$(R)):X$..(MR):|
00001700: 8D 37 37 30 3A 54 50 24 B2 41 41 24 00 1A 1F 0E |.770:TP$.AA$....|
00001710: 06 58 42 B2 C3 28 54 50 24 29 00 2A 1F 18 06 99 |.XB..(TP$).*....|
00001720: A3 31 38 AB 58 42 29 54 50 24 00 44 1F 1D 06 50 |.18.XB)TP$.D...P|
00001730: 4E B2 50 4E AA 31 3A 8B 50 4E B3 4C 51 AD 35 A7 |N.PN.1:.PN.LQ.5.|
00001740: 31 35 31 30 00 59 1F 22 06 81 49 B2 31 A4 31 38 |1510.Y."..I.1.18|
00001750: AB 4C 51 AD 35 3A 99 3A 82 00 66 1F 2C 06 99 A3 |.LQ.5:.:..f.,...|
00001760: 35 34 29 4C 31 24 00 AB 1F 36 06 99 22 20 20 20 |54)L1$...6.." |
00001770: 20 20 20 D3 55 42 20 D4 4F 54 41 4C 20 20 20 20 | .UB .OTAL |
00001780: 22 A3 34 35 AB C3 28 49 54 24 28 56 2C 54 28 54 |".45..(IT$(V,T(T|
00001790: 4E 2C 56 29 29 29 29 49 54 24 28 56 2C 54 28 54 |N,V))))IT$(V,T(T|
000017A0: 4E 2C 56 29 29 3A 8D 36 30 30 30 00 DB 1F 3B 06 |N,V)):.6000...;.|
000017B0: 8B C5 28 55 50 24 29 B3 B1 C5 28 49 54 24 28 56 |..(UP$)...(IT$(V|
000017C0: 2C 54 28 54 4E 2C 56 29 29 29 A7 54 41 B2 34 35 |,T(TN,V))).TA.45|
000017D0: 3A 4C 5A B2 33 3A 8D 37 33 30 30 00 04 20 40 06 |:LZ.3:.7300.. @.|
000017E0: 99 22 20 20 20 20 20 20 D6 2E C1 2E D4 2E 20 40 |." ...... @|
000017F0: 20 31 35 25 20 22 A3 34 35 AB C3 28 56 54 24 29 | 15% ".45..(VT$)|
00001800: 29 56 54 24 00 11 20 4A 06 99 A3 35 34 29 4C 31 |)VT$.. J...54)L1|
00001810: 24 00 3A 20 54 06 99 22 20 20 20 20 20 20 C9 4E |$.: T.." .N|
00001820: 56 4F 49 43 45 20 D4 4F 54 41 4C 22 A3 34 35 AB |VOICE .OTAL".45.|
00001830: C3 28 46 54 24 29 29 46 54 24 00 53 20 5E 06 99 |.(FT$))FT$.S ^..|
00001840: A3 35 34 29 4C 32 24 20 3A 81 49 B2 31 A4 36 3A |.54)L2$ :.I.1.6:|
00001850: 99 3A 82 00 68 20 63 06 8B C6 28 49 45 24 29 B2 |.:..h c...(IE$).|
00001860: 32 31 31 A7 99 44 31 24 00 7D 20 64 06 8B C6 28 |211..D1$.} d...(|
00001870: 49 45 24 29 B2 31 39 35 A7 99 44 32 24 00 9C 20 |IE$).195..D2$.. |
00001880: 65 06 8B C6 28 49 45 24 29 B3 B1 32 31 31 AF C6 |e...(IE$)..211..|
00001890: 28 49 45 24 29 B3 B1 31 39 35 A7 99 00 BA 20 68 |(IE$)..195.... h|
000018A0: 06 81 49 B2 31 A4 31 30 AB 4C 5A 3A 99 3A 82 3A |..I.1.10.LZ:.:.:|
000018B0: 98 34 3A A0 34 3A 4C 5A B2 30 00 C0 20 72 06 8E |.4:.4:LZ.0.. r..|
000018C0: 00 E7 20 7C 06 99 22 93 22 3A 8D 31 33 34 30 3A |.. |..".":.1340:|
000018D0: 9F 34 2C 34 3A 9D 34 3A 99 3A 99 22 11 D3 54 41 |.4,4:.4:.:."..TA|
000018E0: 54 45 4D 45 4E 54 22 00 1A 21 86 06 99 3A 99 3A |TEMENT"..!...:.:|
000018F0: 99 3A 81 49 B2 31 A4 35 3A 57 4E B2 C3 28 43 4E |.:.I.1.5:WN..(CN|
00001900: 24 28 49 29 29 3A 99 A3 28 37 30 AB 57 4E 29 AD |$(I)):..(70.WN).|
00001910: 32 29 43 4E 24 28 49 29 3A 82 00 41 21 90 06 8B |2)CN$(I):..A!...|
00001920: 56 52 24 B3 B1 22 22 A7 57 4E B2 C3 28 56 52 24 |VR$.."".WN..(VR$|
00001930: 29 3A 99 A3 28 37 30 AB 57 4E 29 AD 32 29 56 52 |):..(70.WN).2)VR|
00001940: 24 00 59 21 9A 06 81 49 B2 31 A4 37 30 3A 99 22 |$.Y!...I.1.70:."|
00001950: 2D 22 3B 3A 82 3A 99 3A 99 00 85 21 A4 06 99 22 |-";:.:.:...!..."|
00001960: D4 4F 2E 20 20 20 22 56 24 28 56 2C 31 29 3A 81 |.O. "V$(V,1):.|
00001970: 43 B2 32 A4 34 3A 99 A3 36 29 56 24 28 56 2C 43 |C.2.4:..6)V$(V,C|
00001980: 29 3A 82 3A 99 00 99 21 AE 06 99 A3 35 30 29 22 |):.:...!....50)"|
00001990: C4 41 54 45 20 22 44 54 24 00 AF 21 B8 06 81 49 |.ATE "DT$..!...I|
000019A0: B2 31 A4 37 30 3A 99 22 3D 22 3B 3A 82 3A 99 00 |.1.70:."=";:.:..|
000019B0: F9 21 C2 06 99 22 C9 4E 56 2F C3 52 20 20 20 20 |.!...".NV/.R |
000019C0: CF 52 44 45 52 20 20 20 20 20 C9 4E 56 2F C3 52 |.RDER .NV/.R|
000019D0: 20 C4 41 54 45 20 20 20 D3 55 42 20 D4 4F 54 41 | .ATE .UB .OTA|
000019E0: 4C 20 20 20 20 20 20 20 20 D6 C1 D4 20 20 20 20 |L ... |
000019F0: 20 20 20 D4 4F 54 41 4C 22 00 19 22 CC 06 81 49 | .OTAL".."...I|
00001A00: B2 31 A4 37 30 3A 99 22 3D 22 3B 3A 82 3A 99 3A |.1.70:."=";:.:.:|
00001A10: 99 3A 8B 4F 49 B2 31 A7 8E 00 5C 22 D6 06 52 31 |.:.OI.1...\"..R1|
00001A20: B2 30 3A 81 54 4E B2 31 A4 54 54 28 56 29 AB 31 |.0:.TN.1.TT(V).1|
00001A30: 3A 8B 53 49 24 28 56 2C 54 28 54 4E 2C 56 29 29 |:.SI$(V,T(TN,V))|
00001A40: B3 B1 22 2D 22 A7 99 C8 28 53 49 24 28 56 2C 54 |.."-"...(SI$(V,T|
00001A50: 28 54 4E 2C 56 29 29 2C 33 30 29 3B 00 7D 22 D8 |(TN,V)),30);.}".|
00001A60: 06 44 52 B2 C5 28 CA 28 53 49 24 28 56 2C 54 28 |.DR..(.(SI$(V,T(|
00001A70: 54 4E 2C 56 29 29 2C 33 31 2C 35 29 29 00 97 22 |TN,V)),31,5)).."|
00001A80: DB 06 8D 36 30 30 30 3A 8B C5 28 55 50 24 29 B2 |...6000:..(UP$).|
00001A90: 30 20 A7 31 37 38 35 00 AC 22 E0 06 99 A3 31 33 |0 .1785.."....13|
00001AA0: AB C3 28 55 50 24 29 29 55 50 24 3B 00 CA 22 E5 |..(UP$))UP$;..".|
00001AB0: 06 8B 52 47 B2 32 35 A7 52 30 B2 C5 28 55 50 24 |..RG.25.R0..(UP$|
00001AC0: 29 3A 52 31 B2 52 31 AA 52 30 00 DF 22 EA 06 99 |):R1.R1.R0.."...|
00001AD0: A3 31 31 AB C3 28 56 54 24 29 29 56 54 24 3B 00 |.11..(VT$))VT$;.|
00001AE0: F3 22 F4 06 99 A3 31 32 AB C3 28 46 54 24 29 29 |."....12..(FT$))|
00001AF0: 46 54 24 00 02 23 F9 06 82 3A 8B 52 47 B2 32 35 |FT$..#...:.RG.25|
00001B00: A7 8E 00 1E 23 FE 06 49 49 B2 54 54 28 56 29 3A |....#..II.TT(V):|
00001B10: 81 49 B2 31 A4 32 30 AB 49 49 3A 99 3A 82 00 4A |.I.1.20.II:.:..J|
00001B20: 23 08 07 99 A3 33 35 29 22 2D 2D 2D 2D 2D 2D 2D |#....35)"-------|
00001B30: 2D 2D 20 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 20 20 2D |-- --------- -|
00001B40: 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 7A 23 12 07 99 |---------".z#...|
00001B50: A3 34 33 AB C3 28 46 31 24 29 29 46 31 24 A3 31 |.43..(F1$))F1$.1|
00001B60: 31 AB C3 28 46 32 24 29 29 46 32 24 A3 31 32 AB |1..(F2$))F2$.12.|
00001B70: C3 28 46 33 24 29 29 46 33 24 00 A6 23 1C 07 99 |.(F3$))F3$..#...|
00001B80: A3 33 35 29 22 3D 3D 3D 3D 3D 3D 3D 3D 3D 20 20 |.35)"========= |
00001B90: 3D 3D 3D 3D 3D 3D 3D 3D 3D 20 20 3D 3D 3D 3D 3D |========= =====|
00001BA0: 3D 3D 3D 3D 3D 22 00 B5 23 26 07 81 49 B2 31 A4 |====="..#&..I.1.|
00001BB0: 39 3A 99 3A 82 00 BE 23 30 07 99 44 33 24 00 D9 |9:.:...#0..D3$..|
00001BC0: 23 3A 07 81 49 B2 31 A4 39 3A 99 3A 82 3A 98 34 |#:..I.1.9:.:.:.4|
00001BD0: 3A A0 34 3A 89 31 39 31 30 00 1A 24 44 07 49 4E |:.4:.1910..$D.IN|
00001BE0: 24 28 31 29 B2 22 CE 41 4D 45 22 3A 49 4E 24 28 |$(1).".AME":IN$(|
00001BF0: 32 29 B2 22 C1 44 44 52 45 53 53 22 3A 49 4E 24 |2).".DDRESS":IN$|
00001C00: 28 33 29 B2 22 D4 4F 57 4E 22 3A 49 4E 24 28 34 |(3).".OWN":IN$(4|
00001C10: 29 B2 22 C3 4F 55 4E 54 59 22 00 31 24 4E 07 49 |).".OUNTY".1$N.I|
00001C20: 4E 24 28 35 29 B2 22 D4 45 4C 45 50 48 4F 4E 45 |N$(5).".ELEPHONE|
00001C30: 22 00 37 24 58 07 8E 00 7D 24 62 07 8B 44 54 24 |".7$X...}$b..DT$|
00001C40: B2 22 22 A7 99 22 93 22 3A 99 22 45 4E 54 45 52 |.""..".":."ENTER|
00001C50: 20 44 41 54 45 20 45 47 28 32 39 2E 31 32 2E 38 | DATE EG(29.12.8|
00001C60: 32 29 20 5B 20 20 20 20 20 20 20 20 5D 9D 9D 9D |2) [ ]...|
00001C70: 9D 9D 9D 9D 9D 9D 22 3B 3A 8D 32 36 30 00 96 24 |......";:.260..$|
00001C80: 63 07 8B 44 54 24 B2 22 22 A7 44 54 24 B2 C8 28 |c..DT$."".DT$..(|
00001C90: 49 50 24 2C 38 29 00 9E 24 67 07 56 B2 31 00 C6 |IP$,8)..$g.V.1..|
00001CA0: 24 6C 07 8B 49 54 24 28 31 2C 31 29 B3 B1 22 22 |$l..IT$(1,1)..""|
00001CB0: A7 31 39 31 30 3A 56 B2 31 3A 56 56 B2 31 3A 54 |.1910:V.1:VV.1:T|
00001CC0: 54 28 56 29 B2 31 00 D3 24 76 07 8B 56 B3 31 A7 |T(V).1..$v..V.1.|
00001CD0: 56 B2 31 00 E3 24 80 07 8B 56 B1 56 56 A7 56 B2 |V.1..$...V.VV.V.|
00001CE0: 56 AB 31 00 04 25 8A 07 99 22 93 22 3A 99 A3 31 |V.1..%...".":..1|
00001CF0: 35 29 22 C3 4C 49 45 4E 54 20 CE 4F 22 3B 56 3A |5)".LIENT .O";V:|
00001D00: 99 4C 33 24 00 24 25 94 07 81 43 B2 31 A4 35 3A |.L3$.$%...C.1.5:|
00001D10: 99 49 4E 24 28 43 29 A3 31 30 29 56 24 28 56 2C |.IN$(C).10)V$(V,|
00001D20: 43 29 3A 82 00 2D 25 9E 07 99 4C 33 24 00 4A 25 |C):..-%...L3$.J%|
00001D30: A8 07 81 54 4E B2 31 A4 54 54 28 56 29 AB 31 3A |...TN.1.TT(V).1:|
00001D40: 54 28 54 4E 2C 56 29 B2 54 4E 00 82 25 B2 07 99 |T(TN,V).TN..%...|
00001D50: 22 54 52 41 4E 53 22 54 28 54 4E 2C 56 29 3B 3A |"TRANS"T(TN,V);:|
00001D60: 44 52 B2 C5 28 CA 28 53 49 24 28 56 2C 54 28 54 |DR..(.(SI$(V,T(T|
00001D70: 4E 2C 56 29 29 2C 33 31 2C 35 29 29 3A 8D 36 30 |N,V)),31,5)):.60|
00001D80: 30 30 00 97 25 B7 07 99 A3 31 38 AB C3 28 55 50 |00..%....18..(UP|
00001D90: 24 29 29 55 50 24 3B 00 AC 25 BC 07 99 A3 32 38 |$))UP$;..%....28|
00001DA0: AB C3 28 56 54 24 29 29 56 54 24 3B 00 C0 25 C6 |..(VT$))VT$;..%.|
00001DB0: 07 99 A3 33 39 AB C3 28 46 54 24 29 29 46 54 24 |...39..(FT$))FT$|
00001DC0: 00 C6 25 D0 07 82 00 D4 25 DA 07 54 31 B2 30 3A |..%.....%..T1.0:|
00001DD0: 46 31 B2 30 00 12 26 E4 07 81 54 4E B2 31 A4 54 |F1.0..&...TN.1.T|
00001DE0: 54 28 56 29 3A 54 28 54 4E 2C 56 29 B2 54 4E 3A |T(V):T(TN,V).TN:|
00001DF0: 44 52 B2 C5 28 CA 28 53 49 24 28 56 2C 54 28 54 |DR..(.(SI$(V,T(T|
00001E00: 4E 2C 56 29 29 2C 33 31 2C 35 29 29 3A 8D 36 30 |N,V)),31,5)):.60|
00001E10: 30 30 00 20 26 EE 07 54 31 B2 C5 28 55 50 24 29 |00. &..T1..(UP$)|
00001E20: 00 2D 26 F8 07 46 31 B2 46 31 AA 54 31 00 33 26 |.-&..F1.F1.T1.3&|
00001E30: 02 08 82 00 53 26 0C 08 58 24 B2 C4 28 46 31 29 |....S&..X$..(F1)|
00001E40: 3A 8D 37 37 30 3A 46 31 24 B2 41 41 24 3A 8D 36 |:.770:F1$.AA$:.6|
00001E50: 31 30 30 00 86 26 20 08 99 22 12 22 A3 31 38 AB |100..& ..".".18.|
00001E60: C3 28 46 31 24 29 29 46 31 24 A3 32 38 AB C3 28 |.(F1$))F1$.28..(|
00001E70: 46 32 24 29 29 46 32 24 A3 33 39 AB C3 28 46 33 |F2$))F2$.39..(F3|
00001E80: 24 29 29 46 33 24 00 A0 26 2A 08 43 4F B2 31 3A |$))F3$..&*.CO.1:|
00001E90: 4C 4E B2 32 31 3A 8D 33 36 38 30 3A 99 4C 33 24 |LN.21:.3680:.L3$|
00001EA0: 00 DC 26 34 08 99 22 20 12 4E 92 45 58 54 20 12 |..&4.." .N.EXT .|
00001EB0: 4C 92 41 53 54 20 12 46 92 49 4E 44 20 12 47 92 |L.AST .F.IND .G.|
00001EC0: 4F 54 4F 20 12 41 92 4D 45 4E 44 20 12 53 92 43 |OTO .A.MEND .S.C|
00001ED0: 52 4F 4C 4C 20 12 4D 92 45 4E 55 22 00 10 27 3E |ROLL .M.ENU"..'>|
00001EE0: 08 99 22 20 12 43 92 52 45 41 54 45 20 49 4E 56 |.." .C.REATE INV|
00001EF0: 2F 43 52 20 12 56 92 49 45 57 20 49 4E 56 20 12 |/CR .V.IEW INV .|
00001F00: 50 92 52 4F 44 55 43 45 20 53 27 4D 45 4E 54 22 |P.RODUCE S'MENT"|
00001F10: 00 19 27 48 08 99 4C 33 24 00 2D 27 52 08 A1 4B |..'H..L3$.-'R..K|
00001F20: 24 3A 8B 4B 24 B2 22 22 A7 32 31 33 30 00 45 27 |$:.K$."".2130.E'|
00001F30: 5C 08 8B 4B 24 B2 22 4E 22 A7 56 B2 56 AA 31 3A |\..K$."N".V.V.1:|
00001F40: 89 31 39 31 30 00 5D 27 66 08 8B 4B 24 B2 22 4C |.1910.]'f..K$."L|
00001F50: 22 A7 56 B2 56 AB 31 3A 89 31 39 31 30 00 7E 27 |".V.V.1:.1910.~'|
00001F60: 70 08 8B 4B 24 B2 22 43 22 A7 49 54 B2 30 3A 49 |p..K$."C".IT.0:I|
00001F70: 56 B2 30 3A 46 54 B2 30 3A 89 32 32 38 30 00 95 |V.0:FT.0:.2280..|
00001F80: 27 7A 08 8B 4B 24 B2 22 56 22 A7 46 50 B2 31 3A |'z..K$."V".FP.1:|
00001F90: 89 32 32 35 30 00 A5 27 84 08 8B 4B 24 B2 22 4D |.2250..'...K$."M|
00001FA0: 22 A7 35 34 30 00 B6 27 8E 08 8B 4B 24 B2 22 46 |".540..'...K$."F|
00001FB0: 22 A7 32 37 32 30 00 C7 27 98 08 8B 4B 24 B2 22 |".2720..'...K$."|
00001FC0: 53 22 A7 32 37 39 30 00 D8 27 A2 08 8B 4B 24 B2 |S".2790..'...K$.|
00001FD0: 22 47 22 A7 32 39 30 30 00 E9 27 AC 08 8B 4B 24 |"G".2900..'...K$|
00001FE0: B2 22 50 22 A7 31 36 36 30 00 FA 27 B6 08 8B 4B |."P".1660..'...K|
00001FF0: 24 B2 22 41 22 A7 33 30 30 30 00 04 28 C0 08 89 |$."A".3000..(...|
00002000: 32 31 33 30 00 19 28 CA 08 8D 33 36 37 30 3A 8D |2130..(...3670:.|
00002010: 33 36 38 30 3A 46 50 B2 30 00 52 28 CC 08 8B 54 |3680:FP.0.R(...T|
00002020: 54 28 56 29 AB 31 B2 30 A7 99 22 12 4E 4F 20 49 |T(V).1.0..".NO I|
00002030: 4E 56 4F 49 43 45 53 20 49 4E 20 46 49 4C 45 22 |NVOICES IN FILE"|
00002040: 3A 81 49 B2 31 A4 31 30 30 30 3A 82 3A 89 31 39 |:.I.1.1000:.:.19|
00002050: 30 30 00 71 28 CE 08 99 22 C5 4E 54 45 52 20 49 |00.q(...".NTER I|
00002060: 4E 56 4F 49 43 45 20 23 20 54 4F 20 56 49 45 57 |NVOICE # TO VIEW|
00002070: 22 00 B3 28 D4 08 99 22 4B 45 59 20 31 20 54 4F |"..(..."KEY 1 TO|
00002080: 22 54 54 28 56 29 AB 31 22 20 3A 22 3B 3A 8D 32 |"TT(V).1" :";:.2|
00002090: 36 30 3A 54 4E B2 C5 28 49 50 24 29 3A 8B 54 4E |60:TN..(IP$):.TN|
000020A0: B3 B2 30 B0 54 4E B1 54 54 28 56 29 AB 31 A7 32 |..0.TN.TT(V).1.2|
000020B0: 32 35 30 00 BD 28 DE 08 89 33 37 37 30 00 E7 28 |250..(...3770..(|
000020C0: E8 08 99 22 93 C3 52 45 41 54 45 20 12 49 92 4E |..."..REATE .I.N|
000020D0: 56 4F 49 43 45 20 4F 52 20 12 43 92 52 45 44 49 |VOICE OR .C.REDI|
000020E0: 54 20 4E 4F 54 45 22 00 05 29 E9 08 A1 4B 24 3A |T NOTE"..)...K$:|
000020F0: 8B 4B 24 B3 B1 22 49 22 AF 4B 24 B3 B1 22 43 22 |.K$.."I".K$.."C"|
00002100: A7 32 32 38 31 00 2D 29 EA 08 8B 4B 24 B2 22 43 |.2281.-)...K$."C|
00002110: 22 A7 49 45 B2 AB 31 3A 49 43 24 B2 22 C3 D2 A0 |".IE..1:IC$."...|
00002120: CE 4F 54 45 92 22 3A 20 89 32 32 38 38 00 45 29 |.OTE.": .2288.E)|
00002130: EC 08 49 45 B2 31 3A 49 43 24 B2 22 C9 4E 56 4F |..IE.1:IC$.".NVO|
00002140: 49 43 45 92 22 00 83 29 ED 08 8B 54 28 54 4E 2C |ICE."..)...T(TN,|
00002150: 56 29 B1 31 30 A7 99 22 12 CD 41 58 2E 20 4E 4F |V).10.."..AX. NO|
00002160: 2E 20 55 4E 50 41 49 44 20 49 4E 56 4F 49 43 45 |. UNPAID INVOICE|
00002170: 53 20 3D 20 31 30 22 3A 8D 34 35 30 30 3A 89 31 |S = 10":.4500:.1|
00002180: 38 39 30 00 9F 29 F0 08 8B 49 54 24 28 56 2C 54 |890..)...IT$(V,T|
00002190: 28 54 4E 2C 56 29 29 B2 22 22 A7 54 4E B2 31 00 |(TN,V))."".TN.1.|
000021A0: B4 29 F2 08 8B 54 54 28 56 29 B2 30 A7 54 54 28 |.)...TT(V).0.TT(|
000021B0: 56 29 B2 31 00 E8 29 FC 08 99 22 93 20 20 20 20 |V).1..)...". |
000021C0: 20 20 12 C3 52 45 41 54 45 20 22 3B 49 43 24 3A | ..REATE ";IC$:|
000021D0: 54 28 54 4E 2C 56 29 B2 54 54 28 56 29 3A 8B 54 |T(TN,V).TT(V):.T|
000021E0: 4E B2 30 A7 54 4E B2 31 00 09 2A 06 09 99 56 24 |N.0.TN.1..*...V$|
000021F0: 28 56 2C 31 29 A3 33 30 29 22 54 52 41 4E 53 20 |(V,1).30)"TRANS |
00002200: 23 22 54 28 54 4E 2C 56 29 00 12 2A 10 09 99 4C |#"T(TN,V)..*...L|
00002210: 33 24 00 53 2A 1A 09 50 4E B2 31 3A 49 54 B2 30 |3$.S*..PN.1:IT.0|
00002220: 3A 54 50 B2 30 3A 51 4E 24 28 56 2C 54 28 54 4E |:TP.0:QN$(V,T(TN|
00002230: 2C 56 29 29 B2 22 23 23 23 23 23 22 3A 50 4C 24 |,V))."#####":PL$|
00002240: 28 56 2C 54 28 54 4E 2C 56 29 29 B2 22 23 23 23 |(V,T(TN,V))."###|
00002250: 23 23 22 00 7B 2A 24 09 43 4F B2 31 3A 4C 4E B2 |##".{*$.CO.1:LN.|
00002260: 50 4E AA 34 3A 8D 33 36 38 30 3A 81 49 B2 31 A4 |PN.4:.3680:.I.1.|
00002270: 32 30 AB 4C 4E 3A 99 53 24 3A 82 00 92 2A 2E 09 |20.LN:.S$:...*..|
00002280: 43 4F B2 31 3A 4C 4E B2 50 4E AA 35 3A 8D 33 36 |CO.1:LN.PN.5:.36|
00002290: 38 30 00 B0 2A 38 09 99 22 C5 4E 54 45 52 20 D0 |80..*8..".NTER .|
000022A0: 52 4F 44 55 43 54 20 23 20 22 3B 3A 8D 32 36 30 |RODUCT # ";:.260|
000022B0: 00 E1 2A 39 09 8B C8 28 49 50 24 2C 31 29 B2 22 |..*9...(IP$,1)."|
000022C0: 23 22 A7 49 54 B2 30 3A 99 22 91 91 22 3A 99 53 |#".IT.0:."..":.S|
000022D0: 24 3A 99 53 24 3A 99 22 91 91 22 3A 89 32 35 30 |$:.S$:."..":.250|
000022E0: 30 00 18 2B 42 09 46 B2 C3 28 49 50 24 29 3A 50 |0..+B.F..(IP$):P|
000022F0: 24 B2 49 50 24 3A 81 52 B2 31 A4 59 3A 8B 50 24 |$.IP$:.R.1.Y:.P$|
00002300: B2 C8 28 41 24 28 52 29 2C 46 29 A7 99 22 91 22 |..(A$(R),F).."."|
00002310: 53 24 3A 89 32 33 38 30 00 1E 2B 47 09 82 00 4D |S$:.2380..+G...M|
00002320: 2B 49 09 99 3A 99 22 12 CE CF A0 D3 D5 C3 C8 A0 |+I..:.".........|
00002330: D0 D2 CF C4 D5 C3 D4 92 22 3A 8D 34 35 30 30 3A |........":.4500:|
00002340: 99 22 91 22 3B 53 24 3A 89 32 33 34 30 00 6F 2B |.".";S$:.2340.o+|
00002350: 4C 09 99 22 91 22 41 24 28 52 29 A3 33 34 AB C3 |L.."."A$(R).34..|
00002360: 28 42 24 28 52 29 29 AA 33 29 42 24 28 52 29 00 |(B$(R)).3)B$(R).|
00002370: A3 2B 56 09 99 22 D0 52 4F 44 55 43 54 20 C3 4F |.+V..".RODUCT .O|
00002380: 52 52 45 43 54 20 12 59 92 20 4F 52 20 12 4E 92 |RRECT .Y. OR .N.|
00002390: 22 3A 8D 37 35 30 3A 8B 4B 24 B2 22 4E 22 A7 32 |":.750:.K$."N".2|
000023A0: 33 34 30 00 E5 2B 60 09 8B C3 28 50 24 29 B3 35 |340..+`...(P$).5|
000023B0: A7 50 24 B2 50 24 AA C8 28 53 24 2C 35 AB C3 28 |.P$.P$..(S$,5..(|
000023C0: 50 24 29 29 3A 50 4C 24 28 56 2C 54 28 54 4E 2C |P$)):PL$(V,T(TN,|
000023D0: 56 29 29 B2 50 4C 24 28 56 2C 54 28 54 4E 2C 56 |V)).PL$(V,T(TN,V|
000023E0: 29 29 AA 50 24 00 06 2C 6A 09 99 22 91 91 91 91 |)).P$..,j.."....|
000023F0: 22 3A 81 49 B2 31 A4 34 3A 99 53 24 3A 82 3A 99 |":.I.1.4:.S$:.:.|
00002400: 22 91 91 91 91 22 00 3B 2C 74 09 99 22 D1 55 41 |"....".;,t..".UA|
00002410: 4E 54 49 54 59 20 4F 46 20 12 22 3B CA 28 41 24 |NTITY OF .";.(A$|
00002420: 28 52 29 2C 35 2C 32 34 29 22 92 3F 20 22 3B 3A |(R),5,24)".? ";:|
00002430: 8D 32 36 30 3A 51 24 B2 49 50 24 00 70 2C 79 09 |.260:Q$.IP$.p,y.|
00002440: 8B C5 28 51 24 29 B1 39 39 39 39 A7 99 22 12 CD |..(Q$).9999.."..|
00002450: 41 58 20 D1 54 59 20 3D 20 39 39 39 39 22 3A 99 |AX .TY = 9999":.|
00002460: 22 91 91 22 3B 53 24 22 91 22 3A 89 32 34 32 30 |"..";S$".":.2420|
00002470: 00 B2 2C 7E 09 8B C3 28 51 24 29 B3 35 A7 51 24 |..,~...(Q$).5.Q$|
00002480: B2 51 24 AA C8 28 53 24 2C 35 AB C3 28 51 24 29 |.Q$..(S$,5..(Q$)|
00002490: 29 3A 51 4E 24 28 56 2C 54 28 54 4E 2C 56 29 29 |):QN$(V,T(TN,V))|
000024A0: B2 51 4E 24 28 56 2C 54 28 54 4E 2C 56 29 29 AA |.QN$(V,T(TN,V)).|
000024B0: 51 24 00 D5 2C 88 09 51 B2 C5 28 51 24 29 3A 49 |Q$..,..Q..(Q$):I|
000024C0: 54 B2 51 AC C5 28 42 24 28 52 29 29 3A 58 24 B2 |T.Q..(B$(R)):X$.|
000024D0: C4 28 49 54 29 00 E6 2C 92 09 8D 37 37 30 3A 54 |.(IT)..,...770:T|
000024E0: 50 24 B2 41 41 24 00 FA 2C 9C 09 8D 33 36 38 30 |P$.AA$..,...3680|
000024F0: 3A 99 53 24 3A 8D 33 36 38 30 00 16 2D A6 09 99 |:.S$:.3680..-...|
00002500: 22 91 22 51 24 A3 37 29 CA 28 41 24 28 52 29 2C |"."Q$.7).(A$(R),|
00002510: 35 2C 32 34 29 3B 00 2C 2D B0 09 99 A3 33 34 AB |5,24);.,-....34.|
00002520: C3 28 54 50 24 29 AA 33 29 54 50 24 00 4B 2D BA |.(TP$).3)TP$.K-.|
00002530: 09 50 4E B2 50 4E AA 31 3A 54 50 B2 54 50 AA C5 |.PN.PN.1:TP.TP..|
00002540: 28 54 50 24 29 3A 89 32 33 34 30 00 7E 2D C4 09 |(TP$):.2340.~-..|
00002550: 99 22 C4 49 53 43 4F 55 4E 54 20 52 45 51 55 49 |.".ISCOUNT REQUI|
00002560: 52 45 44 20 3F 20 CB 45 59 20 12 59 92 45 53 20 |RED ? .EY .Y.ES |
00002570: 4F 52 20 12 4E 92 4F 22 3A 8D 34 39 30 30 00 A1 |OR .N.O":.4900..|
00002580: 2D C9 09 8B 4B 24 B2 22 4E 22 A7 44 52 B2 30 3A |-...K$."N".DR.0:|
00002590: 99 22 91 91 22 53 24 3A 99 53 24 3A 89 32 35 31 |.".."S$:.S$:.251|
000025A0: 36 00 E0 2D CB 09 99 22 C5 4E 54 45 52 20 44 49 |6..-...".NTER DI|
000025B0: 53 43 4F 55 4E 54 20 52 41 54 45 2E 45 47 20 32 |SCOUNT RATE.EG 2|
000025C0: 30 20 5B 20 20 20 20 20 5D 9D 9D 9D 9D 9D 9D 22 |0 [ ]......"|
000025D0: 3B 3A 8D 32 36 30 3A 44 52 B2 C5 28 49 50 24 29 |;:.260:DR..(IP$)|
000025E0: 00 FD 2D CC 09 8B 44 52 B1 31 30 30 B0 44 52 B3 |..-...DR.100.DR.|
000025F0: 30 A7 99 22 91 91 22 3A 89 32 35 30 37 00 18 2E |0.."..":.2507...|
00002600: CD 09 99 22 91 91 91 22 3A 99 53 24 3A 99 53 24 |..."...":.S$:.S$|
00002610: 3A 99 22 91 91 91 91 22 00 21 2E D4 09 49 54 B2 |:."....".!...IT.|
00002620: 30 00 37 2E D6 09 54 50 B2 54 50 AC 49 45 3A 58 |0.7...TP.TP.IE:X|
00002630: 24 B2 C4 28 54 50 29 00 53 2E D8 09 8D 37 37 30 |$..(TP).S....770|
00002640: 3A 49 54 24 28 56 2C 54 28 54 4E 2C 56 29 29 B2 |:IT$(V,T(TN,V)).|
00002650: 41 41 24 00 87 2E E2 09 99 A3 32 37 29 4C 31 24 |AA$.......27)L1$|
00002660: 3A 99 A3 33 37 AB C3 28 49 54 24 28 56 2C 54 28 |:..37..(IT$(V,T(|
00002670: 54 4E 2C 56 29 29 29 29 3B 49 54 24 28 56 2C 54 |TN,V))));IT$(V,T|
00002680: 28 54 4E 2C 56 29 29 00 91 2E E7 09 8D 36 30 30 |(TN,V))......600|
00002690: 30 00 BC 2E EC 09 8B C5 28 55 50 24 29 B3 B1 C5 |0.......(UP$)...|
000026A0: 28 49 54 24 28 56 2C 54 28 54 4E 2C 56 29 29 29 |(IT$(V,T(TN,V)))|
000026B0: A7 54 41 B2 33 37 3A 8D 37 32 30 30 00 EA 2E F6 |.TA.37:.7200....|
000026C0: 09 99 22 D6 2E C1 2E D4 2E 20 40 22 56 54 22 20 |.."...... @"VT" |
000026D0: 25 22 A3 33 37 AB C3 28 56 54 24 29 29 3B 56 54 |%".37..(VT$));VT|
000026E0: 24 3A 99 A3 32 37 29 4C 31 24 00 21 2F 14 0A 99 |$:..27)L1$.!/...|
000026F0: 49 45 24 3B 22 20 D4 4F 54 41 4C 22 A3 33 37 AB |IE$;" .OTAL".37.|
00002700: C3 28 46 54 24 29 29 3B 46 54 24 3A 99 A3 32 37 |.(FT$));FT$:..27|
00002710: 29 4C 32 24 3A 8B 56 49 B2 31 A7 56 49 B2 30 3A |)L2$:.VI.1.VI.0:|
00002720: 8E 00 4C 2F 1E 0A 43 4F B2 31 3A 4C 4E B2 32 34 |..L/..CO.1:LN.24|
00002730: 3A 8D 33 36 38 30 3A 99 49 43 24 3B 22 20 C3 4F |:.3680:.IC$;" .O|
00002740: 52 52 45 43 54 3F 22 3A 8D 37 35 30 00 5D 2F 28 |RRECT?":.750.]/(|
00002750: 0A 8B 4B 24 B2 22 4E 22 A7 32 32 38 30 00 8F 2F |..K$."N".2280../|
00002760: 32 0A 99 22 91 C5 4E 54 45 52 20 22 49 43 24 3B |2.."..NTER "IC$;|
00002770: 22 20 CE 55 4D 42 45 52 20 3A 22 3B 3A 8D 32 36 |" .UMBER :";:.26|
00002780: 30 3A 53 49 24 B2 49 50 24 3A 8D 32 37 30 30 00 |0:SI$.IP$:.2700.|
00002790: C6 2F 3C 0A 99 22 C5 4E 54 45 52 20 C3 4C 49 45 |./<..".NTER .LIE|
000027A0: 4E 54 20 CF 52 44 45 52 20 CE 55 4D 42 45 52 20 |NT .RDER .UMBER |
000027B0: 3A 22 3B 3A 8D 32 36 30 3A 53 49 24 B2 49 50 24 |:";:.260:SI$.IP$|
000027C0: 3A 8D 32 37 30 30 00 D8 2F 46 0A 53 49 24 B2 44 |:.2700../F.SI$.D|
000027D0: 54 24 3A 8D 32 37 30 30 00 18 30 4B 0A 8B C3 28 |T$:.2700..0K...(|
000027E0: 53 49 24 28 56 2C 54 28 54 4E 2C 56 29 29 29 B1 |SI$(V,T(TN,V))).|
000027F0: 33 30 A7 53 49 24 28 56 2C 54 28 54 4E 2C 56 29 |30.SI$(V,T(TN,V)|
00002800: 29 B2 CA 28 53 49 24 28 56 2C 54 28 54 4E 2C 56 |)..(SI$(V,T(TN,V|
00002810: 29 29 2C 32 2C 33 30 29 00 40 30 4D 0A 53 49 24 |)),2,30).@0M.SI$|
00002820: 28 56 2C 54 28 54 4E 2C 56 29 29 B2 53 49 24 28 |(V,T(TN,V)).SI$(|
00002830: 56 2C 54 28 54 4E 2C 56 29 29 AA C4 28 44 52 29 |V,T(TN,V))..(DR)|
00002840: 00 77 30 50 0A 8D 33 36 38 30 3A 99 22 12 50 92 |.w0P..3680:.".P.|
00002850: 52 49 4E 54 20 12 53 92 54 4F 52 45 20 20 20 20 |RINT .S.TORE |
00002860: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002870: 20 20 20 20 20 20 22 00 8B 30 5A 0A A1 4B 24 3A | "..0Z..K$:|
00002880: 8B 4B 24 B2 22 22 A7 32 36 35 30 00 B3 30 64 0A |.K$."".2650..0d.|
00002890: 8B 4B 24 B2 22 53 22 A7 54 4E B2 54 4E AA 31 3A |.K$."S".TN.TN.1:|
000028A0: 54 54 28 56 29 B2 54 54 28 56 29 AA 31 3A 89 31 |TT(V).TT(V).1:.1|
000028B0: 39 31 30 00 E1 30 6E 0A 8B 4B 24 B2 22 50 22 A7 |910..0n..K$."P".|
000028C0: 8D 31 33 37 30 3A 54 4E B2 54 4E AA 31 3A 54 54 |.1370:TN.TN.1:TT|
000028D0: 28 56 29 B2 54 54 28 56 29 AA 31 3A 89 31 39 31 |(V).TT(V).1:.191|
000028E0: 30 00 FA 30 78 0A 8B 4B 24 B2 22 52 50 22 A7 8D |0..0x..K$."RP"..|
000028F0: 31 33 37 30 3A 89 31 39 31 30 00 04 31 82 0A 89 |1370:.1910..1...|
00002900: 32 36 35 30 00 2B 31 8C 0A 8B C3 28 53 49 24 29 |2650.+1....(SI$)|
00002910: B3 31 30 A7 53 49 24 B2 53 49 24 AA C8 28 53 24 |.10.SI$.SI$..(S$|
00002920: 2C 31 30 AB C3 28 53 49 24 29 29 00 5D 31 96 0A |,10..(SI$)).]1..|
00002930: 53 49 24 28 56 2C 54 28 54 4E 2C 56 29 29 B2 53 |SI$(V,T(TN,V)).S|
00002940: 49 24 28 56 2C 54 28 54 4E 2C 56 29 29 AA 53 49 |I$(V,T(TN,V)).SI|
00002950: 24 3A 99 22 91 22 53 24 22 91 22 3A 8E 00 8B 31 |$:."."S$".":...1|
00002960: A0 0A 46 50 B2 31 3A 20 8D 33 36 37 30 3A 8D 33 |..FP.1: .3670:.3|
00002970: 36 38 30 3A 99 22 C6 49 4E 44 20 C3 4C 49 45 4E |680:.".IND .LIEN|
00002980: 54 20 42 59 20 12 CE 41 4D 45 22 00 CA 31 AA 0A |T BY ..AME"..1..|
00002990: 99 22 C5 4E 54 45 52 20 CE 41 4D 45 20 5B 20 20 |.".NTER .AME [ |
000029A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000029B0: 20 20 20 20 20 20 20 5D 22 3B 3A 99 C8 28 54 24 | ]";:..(T$|
000029C0: 2C 32 36 29 3B 3A 8D 32 36 30 00 DD 31 B4 0A 4C |,26);:.260..1..L|
000029D0: 24 B2 49 50 24 3A 46 B2 C3 28 4C 24 29 00 E9 31 |$.IP$:F..(L$)..1|
000029E0: BE 0A 81 56 B2 31 A4 56 56 00 03 32 C8 0A 8B C8 |...V.1.VV..2....|
000029F0: 28 56 24 28 56 2C 31 29 2C 46 29 B2 4C 24 A7 31 |(V$(V,1),F).L$.1|
00002A00: 39 31 30 00 09 32 D2 0A 82 00 41 32 DC 0A 8D 33 |910..2....A2...3|
00002A10: 36 37 30 3A 8D 33 36 38 30 3A 99 22 12 4E 4F 20 |670:.3680:.".NO |
00002A20: 53 55 43 48 20 43 4C 49 45 4E 54 22 3A 8D 34 35 |SUCH CLIENT":.45|
00002A30: 30 30 3A 56 B2 31 3A 46 50 B2 30 3A 89 31 39 31 |00:V.1:FP.0:.191|
00002A40: 30 00 70 32 E6 0A 99 22 13 22 3A 81 5A B2 31 A4 |0.p2...".":.Z.1.|
00002A50: 31 39 3A 99 53 24 3A 82 3A 56 53 B2 56 3A 81 56 |19:.S$:.:VS.V:.V|
00002A60: B2 56 53 A4 56 56 AB 31 3A 99 C7 28 31 39 29 3B |.VS.VV.1:..(19);|
00002A70: 00 A1 32 F0 0A 43 4F B2 33 3A 4C 4E B2 31 35 3A |..2..CO.3:LN.15:|
00002A80: 8D 33 36 38 30 3A 99 22 12 43 92 4F 4E 54 49 4E |.3680:.".C.ONTIN|
00002A90: 55 45 20 12 53 92 54 4F 50 20 12 45 92 58 49 54 |UE .S.TOP .E.XIT|
00002AA0: 22 00 CA 32 FA 0A 43 4F B2 31 35 3A 4C 4E B2 32 |"..2..CO.15:LN.2|
00002AB0: 3A 8D 33 36 38 30 3A 99 22 C3 4C 49 45 4E 54 20 |:.3680:.".LIENT |
00002AC0: CE 4F 22 3B 56 3A 99 4C 33 24 00 02 33 04 0B 81 |.O";V:.L3$..3...|
00002AD0: 43 B2 31 A4 35 3A 99 49 4E 24 28 43 29 A3 31 30 |C.1.5:.IN$(C).10|
00002AE0: 29 C8 28 56 24 28 56 2C 43 29 2C 32 35 29 AA C8 |).(V$(V,C),25)..|
00002AF0: 28 53 24 2C 32 35 AB C3 28 56 24 28 56 2C 43 29 |(S$,25..(V$(V,C)|
00002B00: 29 29 00 09 33 0E 0B 82 43 00 12 33 18 0B 99 4C |))..3...C..3...L|
00002B10: 33 24 00 2D 33 22 0B 4B 24 B2 22 22 3A A1 4B 24 |3$.-3".K$."":.K$|
00002B20: 3A 8B 4B 24 B2 22 53 22 A7 32 38 38 30 00 49 33 |:.K$."S".2880.I3|
00002B30: 2C 0B 8B 4B 24 B3 B1 22 45 22 A7 81 5A B2 31 A4 |,..K$.."E"..Z.1.|
00002B40: 31 36 30 30 3A 82 3A 82 56 00 53 33 36 0B 89 31 |1600:.:.V.S36..1|
00002B50: 39 31 30 00 77 33 40 0B 4B 24 B2 22 22 3A A1 4B |910.w3@.K$."":.K|
00002B60: 24 3A 8B 4B 24 B3 B1 22 43 22 AF 4B 24 B3 B1 22 |$:.K$.."C".K$.."|
00002B70: 45 22 A7 32 38 38 30 00 81 33 4A 0B 89 32 38 36 |E".2880..3J..286|
00002B80: 30 00 BD 33 54 0B 46 50 B2 31 3A 20 8D 33 36 37 |0..3T.FP.1: .367|
00002B90: 30 3A 8D 33 36 38 30 3A 99 22 D4 48 45 52 45 20 |0:.3680:.".HERE |
00002BA0: 41 52 45 22 56 56 22 20 43 4C 49 45 4E 54 53 20 |ARE"VV" CLIENTS |
00002BB0: 49 4E 20 54 48 49 53 20 46 49 4C 45 22 00 FB 33 |IN THIS FILE"..3|
00002BC0: 5E 0B 99 22 C5 4E 54 45 52 20 52 45 51 55 49 52 |^..".NTER REQUIR|
00002BD0: 45 44 20 4E 55 4D 42 45 52 20 3A 22 3B 3A 8D 32 |ED NUMBER :";:.2|
00002BE0: 36 30 3A 56 B2 C5 28 49 50 24 29 3A 8B 56 B3 B2 |60:V..(IP$):.V..|
00002BF0: 30 B0 56 B1 56 56 A7 32 39 30 30 00 05 34 68 0B |0.V.VV.2900..4h.|
00002C00: 89 31 39 31 30 00 33 34 72 0B 8D 33 36 37 30 3A |.1910.34r..3670:|
00002C10: 8D 33 36 38 30 3A 99 22 12 44 45 4C 45 54 45 92 |.3680:.".DELETE.|
00002C20: 20 41 52 45 20 59 4F 55 20 53 55 52 45 22 3A 8D | ARE YOU SURE":.|
00002C30: 37 35 30 00 44 34 7C 0B 8B 4B 24 B2 22 4E 22 A7 |750.D4|..K$."N".|
00002C40: 33 37 37 30 00 5D 34 86 0B 44 54 B2 54 4E 3A 81 |3770.]4..DT.TN:.|
00002C50: 54 4E B2 44 54 A4 54 54 28 56 29 AB 31 00 A1 34 |TN.DT.TT(V).1..4|
00002C60: 90 0B 51 4E 24 28 56 2C 54 28 54 4E 2C 56 29 29 |..QN$(V,T(TN,V))|
00002C70: B2 51 4E 24 28 56 2C 54 28 54 4E AA 31 2C 56 29 |.QN$(V,T(TN.1,V)|
00002C80: 29 3A 50 4C 24 28 56 2C 54 28 54 4E 2C 56 29 29 |):PL$(V,T(TN,V))|
00002C90: B2 50 4C 24 28 56 2C 54 28 54 4E AA 31 2C 56 29 |.PL$(V,T(TN.1,V)|
00002CA0: 29 00 C5 34 9A 0B 49 54 24 28 56 2C 54 28 54 4E |)..4..IT$(V,T(TN|
00002CB0: 2C 56 29 29 B2 49 54 24 28 56 2C 54 28 54 4E AA |,V)).IT$(V,T(TN.|
00002CC0: 31 2C 56 29 29 00 E9 34 A4 0B 53 49 24 28 56 2C |1,V))..4..SI$(V,|
00002CD0: 54 28 54 4E 2C 56 29 29 B2 53 49 24 28 56 2C 54 |T(TN,V)).SI$(V,T|
00002CE0: 28 54 4E AA 31 2C 56 29 29 00 03 35 AE 0B 82 3A |(TN.1,V))..5...:|
00002CF0: 54 54 28 56 29 B2 54 54 28 56 29 AB 31 3A 89 31 |TT(V).TT(V).1:.1|
00002D00: 39 31 30 00 0C 35 B8 0B 46 50 B2 31 00 4B 35 C2 |910..5..FP.1.K5.|
00002D10: 0B 8D 33 36 37 30 3A 8D 33 36 38 30 3A 99 22 C5 |..3670:.3680:.".|
00002D20: 4E 54 45 52 20 4C 49 4E 45 20 54 4F 20 41 4D 45 |NTER LINE TO AME|
00002D30: 4E 44 3A 20 4B 45 59 20 31 20 54 4F 20 35 20 5B |ND: KEY 1 TO 5 [|
00002D40: 20 5D 9D 9D 22 3B 3A 8D 32 36 30 00 5B 35 CC 0B | ]..";:.260.[5..|
00002D50: 8D 33 36 37 30 3A 8D 33 36 38 30 00 82 35 D6 0B |.3670:.3680..5..|
00002D60: 43 B2 C5 28 49 50 24 29 3A 99 22 12 C3 55 52 52 |C..(IP$):."..URR|
00002D70: 45 4E 54 20 4C 49 4E 45 92 20 22 56 24 28 56 2C |ENT LINE. "V$(V,|
00002D80: 43 29 00 B3 35 E0 0B 99 22 12 CE 45 57 20 4C 49 |C)..5..."..EW LI|
00002D90: 4E 45 92 20 3A 22 3B 3A 8D 32 36 30 3A 56 24 28 |NE. :";:.260:V$(|
00002DA0: 56 2C 43 29 B2 49 50 24 3A 46 50 B2 30 3A 89 31 |V,C).IP$:FP.0:.1|
00002DB0: 39 31 30 00 DE 35 EA 0B 99 3A 99 22 44 4F 20 59 |910..5...:."DO Y|
00002DC0: 4F 55 20 57 49 53 48 20 54 4F 20 12 4C 92 4F 41 |OU WISH TO .L.OA|
00002DD0: 44 20 4F 52 20 12 53 92 41 56 45 22 3A 99 00 F2 |D OR .S.AVE":...|
00002DE0: 35 F4 0B A1 4B 24 3A 8B 4B 24 B2 22 22 A7 33 30 |5...K$:.K$."".30|
00002DF0: 36 30 00 03 36 F9 0B 8B 4B 24 B2 22 53 22 A7 33 |60..6...K$."S".3|
00002E00: 33 31 30 00 40 36 FE 0B 8B 4B 24 B2 22 4C 22 A7 |310.@6...K$."L".|
00002E10: 9C 3A 8D 32 30 3A 99 22 11 11 41 52 45 20 59 4F |.:.20:."..ARE YO|
00002E20: 55 20 4C 4F 41 44 49 4E 47 20 46 52 4F 4D 20 12 |U LOADING FROM .|
00002E30: 44 92 49 53 4B 20 4F 52 20 12 54 92 41 50 45 22 |D.ISK OR .T.APE"|
00002E40: 00 54 36 00 0C A1 56 24 3A 8B 56 24 B2 22 22 A7 |.T6...V$:.V$."".|
00002E50: 33 30 37 32 00 70 36 02 0C 8B 56 24 B2 22 44 22 |3072.p6...V$."D"|
00002E60: A7 4E 44 B2 38 3A 4E 4C B2 34 3A 89 33 30 39 30 |.ND.8:NL.4:.3090|
00002E70: 00 8C 36 04 0C 8B 56 24 B2 22 54 22 A7 4E 44 B2 |..6...V$."T".ND.|
00002E80: 31 3A 4E 4C B2 30 3A 89 33 30 39 30 00 96 36 06 |1:NL.0:.3090..6.|
00002E90: 0C 89 33 30 37 32 00 CB 36 12 0C 99 3A 99 22 45 |..3072..6...:."E|
00002EA0: 4E 54 45 52 20 46 49 4C 45 20 4E 41 4D 45 20 5B |NTER FILE NAME [|
00002EB0: 20 20 20 20 20 20 20 20 20 5D 9D 9D 9D 9D 9D 9D | ]......|
00002EC0: 9D 9D 9D 9D 22 3B 3A 8D 32 36 30 00 E4 36 1C 0C |....";:.260..6..|
00002ED0: 4E 24 B2 C8 28 49 50 24 2C 39 29 3A 4E 4E 24 B2 |N$..(IP$,9):NN$.|
00002EE0: 4E 24 3A 99 00 1C 37 1E 0C 99 22 C4 4F 20 59 4F |N$:...7...".O YO|
00002EF0: 55 20 57 49 53 48 20 54 4F 20 4C 4F 41 44 20 54 |U WISH TO LOAD T|
00002F00: 48 45 3A 2D 22 3A 99 3A 99 22 12 57 48 92 4F 4C |HE:-":.:.".WH.OL|
00002F10: 45 20 46 49 4C 45 20 4F 52 22 3A 99 00 54 37 20 |E FILE OR":..T7 |
00002F20: 0C 99 22 12 50 52 92 4F 44 55 43 54 20 4C 49 53 |..".PR.ODUCT LIS|
00002F30: 54 20 41 4E 44 20 C3 4F 20 C9 4E 46 4F 20 5B 20 |T AND .O .NFO [ |
00002F40: 20 5D 9D 9D 9D 22 3B 3A 8D 32 36 30 3A 57 48 24 | ]...";:.260:WH$|
00002F50: B2 49 50 24 00 98 37 22 0C 8B 57 48 24 B3 B1 22 |.IP$..7"..WH$.."|
00002F60: 50 52 22 AF 57 48 24 B3 B1 22 57 48 22 A7 99 3A |PR".WH$.."WH"..:|
00002F70: 99 22 C5 4E 54 45 52 20 12 57 48 92 20 4F 52 20 |.".NTER .WH. OR |
00002F80: 12 50 52 92 22 3A 99 20 22 91 91 91 91 91 91 91 |.PR.":. ".......|
00002F90: 91 22 3A 89 33 31 30 32 00 A9 37 26 0C 9F 31 2C |.":.3102..7&..1,|
00002FA0: 4E 44 2C 4E 4C 2C 4E 4E 24 00 B4 37 28 0C 84 31 |ND,NL,NN$..7(..1|
00002FB0: 2C 44 31 24 00 C6 37 2A 0C 84 31 2C 44 32 24 3A |,D1$..7*..1,D2$:|
00002FC0: 84 31 2C 44 33 24 00 CF 37 30 0C 84 31 2C 59 00 |.1,D3$..70..1,Y.|
00002FD0: DA 37 3A 0C 81 52 B2 31 A4 59 00 F2 37 44 0C 84 |.7:..R.1.Y..7D..|
00002FE0: 31 2C 41 24 28 52 29 3A 84 31 2C 42 24 28 52 29 |1,A$(R):.1,B$(R)|
00002FF0: 3A 82 00 09 38 4E 0C 81 49 B2 31 A4 35 3A 84 31 |:...8N..I.1.5:.1|
00003000: 2C 43 4E 24 28 49 29 3A 82 00 44 38 53 0C 8B 59 |,CN$(I):..D8S..Y|
00003010: B2 30 B0 43 4E 24 28 31 29 B2 22 22 20 A7 99 22 |.0.CN$(1)."" .."|
00003020: 93 11 11 20 20 20 12 46 49 4C 45 20 4E 4F 54 20 |... .FILE NOT |
00003030: 46 4F 55 4E 44 22 3A A0 31 3A 8D 34 35 30 30 3A |FOUND":.1:.4500:|
00003040: 89 35 34 30 00 4E 38 58 0C 84 31 2C 56 54 00 59 |.540.N8X..1,VT.Y|
00003050: 38 62 0C 84 31 2C 56 52 24 00 6C 38 67 0C 8B 57 |8b..1,VR$.l8g..W|
00003060: 48 24 B2 22 50 52 22 A7 33 33 30 30 00 76 38 6C |H$."PR".3300.v8l|
00003070: 0C 84 31 2C 56 56 00 89 38 76 0C 81 56 B2 31 A4 |..1,VV..8v..V.1.|
00003080: 56 56 3A 81 43 B2 31 A4 35 00 9C 38 80 0C 84 31 |VV:.C.1.5..8...1|
00003090: 2C 56 24 28 56 2C 43 29 3A 82 3A 82 00 B3 38 8A |,V$(V,C):.:...8.|
000030A0: 0C 81 56 B2 31 A4 56 56 3A 84 31 2C 54 54 28 56 |..V.1.VV:.1,TT(V|
000030B0: 29 3A 82 00 D6 38 94 0C 81 56 B2 31 A4 56 56 3A |):...8...V.1.VV:|
000030C0: 81 54 4E B2 31 A4 54 54 28 56 29 3A 54 28 54 4E |.TN.1.TT(V):T(TN|
000030D0: 2C 56 29 B2 54 4E 00 EC 38 9E 0C 84 31 2C 51 4E |,V).TN..8...1,QN|
000030E0: 24 28 56 2C 54 28 54 4E 2C 56 29 29 00 02 39 A8 |$(V,T(TN,V))..9.|
000030F0: 0C 84 31 2C 50 4C 24 28 56 2C 54 28 54 4E 2C 56 |..1,PL$(V,T(TN,V|
00003100: 29 29 00 18 39 B2 0C 84 31 2C 53 49 24 28 56 2C |))..9...1,SI$(V,|
00003110: 54 28 54 4E 2C 56 29 29 00 2E 39 BC 0C 84 31 2C |T(TN,V))..9...1,|
00003120: 49 54 24 28 56 2C 54 28 54 4E 2C 56 29 29 00 36 |IT$(V,T(TN,V)).6|
00003130: 39 DA 0C 82 3A 82 00 47 39 E4 0C A0 31 3A 8D 35 |9...:..G9...1:.5|
00003140: 32 30 3A 89 35 34 30 00 86 39 EE 0C 99 22 45 4E |20:.540..9..."EN|
00003150: 54 45 52 20 46 49 4C 45 20 4E 41 4D 45 20 5B 20 |TER FILE NAME [ |
00003160: 20 20 20 20 20 20 20 20 5D 9D 9D 9D 9D 9D 9D 9D | ].......|
00003170: 9D 9D 9D 22 3B 3A 8D 32 36 30 3A 4E 24 B2 C8 28 |...";:.260:N$..(|
00003180: 49 50 24 2C 39 29 00 B2 39 F0 0C 99 3A 99 22 41 |IP$,9)..9...:."A|
00003190: 52 45 20 59 4F 55 20 53 41 56 49 4E 47 20 4F 4E |RE YOU SAVING ON|
000031A0: 20 12 44 92 49 53 4B 20 4F 52 20 12 54 92 41 50 | .D.ISK OR .T.AP|
000031B0: 45 22 00 D0 39 F2 0C A1 4B 24 3A 8B 4B 24 B3 B1 |E"..9...K$:.K$..|
000031C0: 22 44 22 AF 4B 24 B3 B1 22 54 22 A7 33 33 31 34 |"D".K$.."T".3314|
000031D0: 00 E1 39 F4 0C 8B 4B 24 B2 22 54 22 A7 33 33 38 |..9...K$."T".338|
000031E0: 32 00 0D 3A F8 0C 99 3A 99 22 41 52 45 20 59 4F |2..:...:."ARE YO|
000031F0: 55 20 53 41 56 49 4E 47 20 4F 4E 20 44 52 49 56 |U SAVING ON DRIV|
00003200: 45 20 12 30 92 20 4F 52 20 12 31 92 22 00 21 3A |E .0. OR .1.".!:|
00003210: 02 0D A1 4B 24 3A 8B 4B 24 B2 22 22 A7 33 33 33 |...K$:.K$."".333|
00003220: 30 00 3C 3A 0C 0D 8B 4B 24 B2 22 30 22 A7 44 52 |0.<:...K$."0".DR|
00003230: 24 B2 22 30 3A 22 3A 89 33 33 37 30 00 57 3A 16 |$."0:":.3370.W:.|
00003240: 0D 8B 4B 24 B2 22 31 22 A7 44 52 24 B2 22 31 3A |..K$."1".DR$."1:|
00003250: 22 3A 89 33 33 37 30 00 61 3A 20 0D 89 33 33 33 |":.3370.a: ..333|
00003260: 30 00 8D 3A 2A 0D 4E 31 24 B2 44 52 24 3A 4E 32 |0..:*.N1$.DR$:N2|
00003270: 24 B2 22 2C 53 45 51 2C 57 52 49 54 45 22 3A 4E |$.",SEQ,WRITE":N|
00003280: 4E 24 B2 4E 31 24 AA 4E 24 AA 4E 32 24 00 A5 3A |N$.N1$.N$.N2$..:|
00003290: 34 0D 9F 31 2C 38 2C 34 2C 22 40 22 AA 4E 4E 24 |4..1,8,4,"@".NN$|
000032A0: 3A 99 43 48 24 00 C0 3A 36 0D 8B 4B 24 B2 22 54 |:.CH$..:6..K$."T|
000032B0: 22 A7 9F 31 2C 31 2C 31 2C 4E 24 3A 99 43 48 24 |"..1,1,1,N$:.CH$|
000032C0: 00 D4 3A 37 0D 8B 44 31 24 B2 22 22 A7 44 31 24 |..:7..D1$."".D1$|
000032D0: B2 22 2D 22 00 DF 3A 38 0D 98 31 2C 44 31 24 00 |."-"..:8..1,D1$.|
000032E0: F3 3A 39 0D 8B 44 32 24 B2 22 22 A7 44 32 24 B2 |.:9..D2$."".D2$.|
000032F0: 22 2D 22 00 FE 3A 3A 0D 98 31 2C 44 32 24 00 12 |"-"..::..1,D2$..|
00003300: 3B 3B 0D 8B 44 33 24 B2 22 22 A7 44 33 24 B2 22 |;;..D3$."".D3$."|
00003310: 2D 22 00 1D 3B 3C 0D 98 31 2C 44 33 24 00 26 3B |-"..;<..1,D3$.&;|
00003320: 3E 0D 98 31 2C 59 00 31 3B 48 0D 81 52 B2 31 A4 |>..1,Y.1;H..R.1.|
00003330: 59 00 47 3B 52 0D 98 31 2C 41 24 28 52 29 3A 98 |Y.G;R..1,A$(R):.|
00003340: 31 2C 42 24 28 52 29 00 4D 3B 5C 0D 82 00 64 3B |1,B$(R).M;\...d;|
00003350: 66 0D 81 49 B2 31 A4 35 3A 98 31 2C 43 4E 24 28 |f..I.1.5:.1,CN$(|
00003360: 49 29 3A 82 00 73 3B 70 0D 98 31 2C 56 54 3A 99 |I):..s;p..1,VT:.|
00003370: 43 48 24 00 87 3B 75 0D 8B 56 52 24 B2 22 22 A7 |CH$..;u..VR$."".|
00003380: 56 52 24 B2 22 2D 22 00 97 3B 7A 0D 98 31 2C 56 |VR$."-"..;z..1,V|
00003390: 52 24 3A 99 43 48 24 00 A6 3B 84 0D 98 31 2C 56 |R$:.CH$..;...1,V|
000033A0: 56 3A 99 43 48 24 00 B9 3B 8E 0D 81 56 B2 31 A4 |V:.CH$..;...V.1.|
000033B0: 56 56 3A 81 43 B2 31 A4 35 00 D1 3B 98 0D 98 31 |VV:.C.1.5..;...1|
000033C0: 2C 56 24 28 56 2C 43 29 3A 99 43 48 24 3A 82 3A |,V$(V,C):.CH$:.:|
000033D0: 82 00 EF 3B A2 0D 81 56 B2 31 A4 56 56 3A 8B 54 |...;...V.1.VV:.T|
000033E0: 54 28 56 29 B2 20 30 A7 54 54 28 56 29 B2 31 00 |T(V). 0.TT(V).1.|
000033F0: 03 3C AC 0D 98 31 2C 54 54 28 56 29 3A 99 43 48 |.<...1,TT(V):.CH|
00003400: 24 3A 82 00 26 3C B6 0D 81 56 B2 31 A4 56 56 3A |$:..&<...V.1.VV:|
00003410: 81 54 4E B2 31 A4 54 54 28 56 29 3A 54 28 54 4E |.TN.1.TT(V):T(TN|
00003420: 2C 56 29 B2 54 4E 00 50 3C C0 0D 8B 51 4E 24 28 |,V).TN.P<...QN$(|
00003430: 56 2C 54 28 54 4E 2C 56 29 29 B2 22 22 A7 51 4E |V,T(TN,V))."".QN|
00003440: 24 28 56 2C 54 28 54 4E 2C 56 29 29 B2 22 2D 22 |$(V,T(TN,V))."-"|
00003450: 00 6B 3C CA 0D 98 31 2C 51 4E 24 28 56 2C 54 28 |.k<...1,QN$(V,T(|
00003460: 54 4E 2C 56 29 29 3A 99 43 48 24 00 95 3C D4 0D |TN,V)):.CH$..<..|
00003470: 8B 50 4C 24 28 56 2C 54 28 54 4E 2C 56 29 29 B2 |.PL$(V,T(TN,V)).|
00003480: 22 22 A7 50 4C 24 28 56 2C 54 28 54 4E 2C 56 29 |"".PL$(V,T(TN,V)|
00003490: 29 B2 22 2D 22 00 B0 3C DE 0D 98 31 2C 50 4C 24 |)."-"..<...1,PL$|
000034A0: 28 56 2C 54 28 54 4E 2C 56 29 29 3A 99 43 48 24 |(V,T(TN,V)):.CH$|
000034B0: 00 DA 3C E8 0D 8B 53 49 24 28 56 2C 54 28 54 4E |..<...SI$(V,T(TN|
000034C0: 2C 56 29 29 B2 22 22 A7 53 49 24 28 56 2C 54 28 |,V))."".SI$(V,T(|
000034D0: 54 4E 2C 56 29 29 B2 22 2D 22 00 F5 3C F2 0D 98 |TN,V))."-"..<...|
000034E0: 31 2C 53 49 24 28 56 2C 54 28 54 4E 2C 56 29 29 |1,SI$(V,T(TN,V))|
000034F0: 3A 99 43 48 24 00 1F 3D FC 0D 8B 49 54 24 28 56 |:.CH$..=...IT$(V|
00003500: 2C 54 28 54 4E 2C 56 29 29 B2 22 22 A7 49 54 24 |,T(TN,V))."".IT$|
00003510: 28 56 2C 54 28 54 4E 2C 56 29 29 B2 22 2D 22 00 |(V,T(TN,V))."-".|
00003520: 3A 3D 06 0E 98 31 2C 49 54 24 28 56 2C 54 28 54 |:=...1,IT$(V,T(T|
00003530: 4E 2C 56 29 29 3A 99 43 48 24 00 42 3D 38 0E 82 |N,V)):.CH$.B=8..|
00003540: 3A 82 00 4E 3D 42 0E A0 31 3A 89 35 34 30 00 75 |:..N=B..1:.540.u|
00003550: 3D 56 0E 43 4F B2 31 3A 4C 4E B2 32 31 AA 46 50 |=V.CO.1:LN.21.FP|
00003560: 3A 8D 33 36 38 30 3A 81 49 B2 31 A4 33 3A 99 53 |:.3680:.I.1.3:.S|
00003570: 24 3A 82 3A 8E 00 A8 3D 60 0E 41 43 43 24 B2 22 |$:.:...=`.ACC$."|
00003580: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00003590: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
000035A0: 1D 1D 1D 1D 1D 1D 1D 22 00 CE 3D 6A 0E 44 4F 57 |......."..=j.DOW|
000035B0: 24 B2 22 11 11 11 11 11 11 11 11 11 11 11 11 11 |$.".............|
000035C0: 11 11 11 11 11 11 11 11 11 11 11 11 11 22 00 D9 |............."..|
000035D0: 3D 74 0E 81 5A B2 31 A4 32 00 E3 3D 7E 0E 99 22 |=t..Z.1.2..=~.."|
000035E0: 13 22 3B 00 FC 3D 88 0E 8B 43 4F B1 31 A7 99 C8 |.";..=...CO.1...|
000035F0: 28 41 43 43 24 2C 43 4F AB 31 29 3B 00 15 3E 92 |(ACC$,CO.1);..>.|
00003600: 0E 8B 4C 4E B1 31 A7 99 C8 28 44 4F 57 24 2C 4C |..LN.1...(DOW$,L|
00003610: 4E AB 31 29 3B 00 4A 3E 9C 0E 8B 5A B2 31 A7 99 |N.1);.J>...Z.1..|
00003620: 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |" |
00003630: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00003640: 20 20 20 20 20 20 20 20 22 3B 00 51 3E A6 0E 82 | ";.Q>...|
00003650: 5A 00 57 3E B0 0E 8E 00 81 3E BA 0E 99 22 93 22 |Z.W>.....>..."."|
00003660: 3B 56 24 28 56 2C 31 29 A3 32 38 29 22 54 52 41 |;V$(V,1).28)"TRA|
00003670: 4E 53 20 23 22 54 28 54 4E 2C 56 29 3A 99 4C 33 |NS #"T(TN,V):.L3|
00003680: 24 00 9F 3E CE 0E 4C 51 B2 C3 28 51 4E 24 28 56 |$..>..LQ..(QN$(V|
00003690: 2C 54 28 54 4E 2C 56 29 29 29 3A 50 4E B2 31 00 |,T(TN,V))):PN.1.|
000036A0: C4 3E D3 0E 4D 51 B2 C5 28 CA 28 51 4E 24 28 56 |.>..MQ..(.(QN$(V|
000036B0: 2C 54 28 54 4E 2C 56 29 29 2C 50 4E AC 35 AA 31 |,T(TN,V)),PN.5.1|
000036C0: 2C 35 29 29 00 EC 3E D8 0E 99 4D 51 3B 3A 50 31 |,5))..>...MQ;:P1|
000036D0: 24 B2 CA 28 50 4C 24 28 56 2C 54 28 54 4E 2C 56 |$..(PL$(V,T(TN,V|
000036E0: 29 29 2C 50 4E AC 35 AA 31 2C 33 29 00 20 3F D9 |)),PN.5.1,3). ?.|
000036F0: 0E 81 52 B2 31 A4 59 3A 8B C8 28 41 24 28 52 29 |..R.1.Y:..(A$(R)|
00003700: 2C 33 29 B2 50 31 24 A7 99 A3 37 29 CA 28 41 24 |,3).P1$...7).(A$|
00003710: 28 52 29 2C 35 2C 32 34 29 3B 3A 89 33 38 31 30 |(R),5,24);:.3810|
00003720: 00 26 3F DA 0E 82 00 4F 3F E2 0E 4D 52 B2 4D 51 |.&?....O?..MR.MQ|
00003730: AC C5 28 42 24 28 52 29 29 3A 58 24 B2 C4 28 4D |..(B$(R)):X$..(M|
00003740: 52 29 3A 8D 37 37 30 3A 54 50 24 B2 41 41 24 00 |R):.770:TP$.AA$.|
00003750: 63 3F EC 0E 99 A3 33 37 AB C3 28 54 50 24 29 29 |c?....37..(TP$))|
00003760: 54 50 24 00 7D 3F F1 0E 50 4E B2 50 4E AA 31 3A |TP$.}?..PN.PN.1:|
00003770: 8B 50 4E B3 4C 51 AD 35 A7 33 37 39 35 00 A9 3F |.PN.LQ.5.3795..?|
00003780: F6 0E 56 49 B2 31 3A 44 52 B2 C5 28 CA 28 53 49 |..VI.1:DR..(.(SI|
00003790: 24 28 56 2C 54 28 54 4E 2C 56 29 29 2C 33 31 2C |$(V,T(TN,V)),31,|
000037A0: 35 29 29 3A 8D 32 35 33 30 00 B5 3F 1E 0F 8B 54 |5)):.2530..?...T|
000037B0: 50 B2 31 A7 8E 00 CB 3F 28 0F 43 4F B2 31 3A 4C |P.1....?(.CO.1:L|
000037C0: 4E B2 32 31 3A 8D 33 36 38 30 3B 00 01 40 32 0F |N.21:.3680;..@2.|
000037D0: 99 22 12 C9 4E 56 20 CE 4F 2E 92 20 22 3B C8 28 |."..NV .O.. ";.(|
000037E0: 53 49 24 28 56 2C 54 28 54 4E 2C 56 29 29 2C 31 |SI$(V,T(TN,V)),1|
000037F0: 30 29 A3 31 39 29 22 12 C4 41 54 45 44 92 20 22 |0).19)"..ATED. "|
00003800: 3B 00 1E 40 3C 0F 99 CA 28 53 49 24 28 56 2C 54 |;..@<...(SI$(V,T|
00003810: 28 54 4E 2C 56 29 29 2C 32 31 2C 31 30 29 00 48 |(TN,V)),21,10).H|
00003820: 40 46 0F 99 22 12 CF 52 44 20 CE 4F 2E 92 20 22 |@F.."..RD .O.. "|
00003830: 3B CA 28 53 49 24 28 56 2C 54 28 54 4E 2C 56 29 |;.(SI$(V,T(TN,V)|
00003840: 29 2C 31 31 2C 31 30 29 00 62 40 50 0F 43 4F B2 |),11,10).b@P.CO.|
00003850: 31 3A 4C 4E B2 32 33 3A 8D 33 36 38 30 3A 99 4C |1:LN.23:.3680:.L|
00003860: 33 24 00 93 40 5A 0F 99 22 12 50 92 52 49 4E 54 |3$..@Z..".P.RINT|
00003870: 20 49 4E 56 4F 49 43 45 20 12 44 92 45 4C 45 54 | INVOICE .D.ELET|
00003880: 45 20 49 4E 56 4F 49 43 45 20 12 52 92 45 54 55 |E INVOICE .R.ETU|
00003890: 52 4E 22 00 A7 40 64 0F A1 4B 24 3A 8B 4B 24 B2 |RN"..@d..K$:.K$.|
000038A0: 22 22 A7 33 39 34 30 00 C1 40 6E 0F 8B 4B 24 B2 |"".3940..@n..K$.|
000038B0: 22 50 22 A7 4B 24 B2 22 52 50 22 3A 89 32 36 37 |"P".K$."RP":.267|
000038C0: 30 00 D2 40 78 0F 8B 4B 24 B2 22 52 22 A7 31 39 |0..@x..K$."R".19|
000038D0: 31 30 00 E3 40 82 0F 8B 4B 24 B2 22 44 22 A7 32 |10..@...K$."D".2|
000038E0: 39 33 30 00 ED 40 8C 0F 89 33 39 34 30 00 17 41 |930..@...3940..A|
000038F0: 96 0F 99 22 12 45 58 49 54 20 49 4E 56 4F 53 54 |...".EXIT INVOST|
00003900: 41 54 92 20 41 52 45 20 59 4F 55 20 53 55 52 45 |AT. ARE YOU SURE|
00003910: 3F 22 3A 8D 37 35 30 00 27 41 A0 0F 8B 4B 24 B2 |?":.750.'A...K$.|
00003920: 22 4E 22 A7 35 34 30 00 3B 41 AA 0F 99 22 45 4E |"N".540.;A..."EN|
00003930: 44 20 4F 46 20 52 55 4E 22 3A 80 00 4D 41 94 11 |D OF RUN":..MA..|
00003940: 81 49 B2 31 A4 31 30 30 30 3A 82 3A 8E 00 6B 41 |.I.1.1000:.:..kA|
00003950: 24 13 A1 4B 24 3A 8B 4B 24 B3 B1 22 59 22 AF 4B |$..K$:.K$.."Y".K|
00003960: 24 B3 B1 22 4E 22 A7 34 39 30 30 00 71 41 29 13 |$.."N".4900.qA).|
00003970: 8E 00 9C 41 88 13 99 22 93 22 3A 8B 4B 24 B2 22 |...A...".":.K$."|
00003980: 49 22 A7 99 22 12 C9 4E 56 4F 49 43 45 92 22 3A |I".."..NVOICE.":|
00003990: 8B 44 31 24 B2 22 22 A7 35 30 31 35 00 C6 41 8A |.D1$."".5015..A.|
000039A0: 13 8B 4B 24 B2 22 43 22 A7 99 22 12 C3 52 45 44 |..K$."C".."..RED|
000039B0: 49 54 20 CE 4F 54 45 92 22 3A 8B 44 32 24 B2 22 |IT .OTE.":.D2$."|
000039C0: 22 A7 35 30 31 35 00 EE 41 8C 13 8B 4B 24 B2 22 |".5015..A...K$."|
000039D0: 53 22 A7 99 22 12 D3 54 41 54 45 4D 45 4E 54 92 |S".."..TATEMENT.|
000039E0: 22 3A 8B 44 33 24 B2 22 22 A7 35 30 31 35 00 21 |":.D3$."".5015.!|
000039F0: 42 8D 13 8B 4B 24 B2 22 49 22 A7 99 22 C5 58 49 |B...K$."I"..".XI|
00003A00: 53 54 49 4E 47 20 4D 45 53 53 41 47 45 20 46 4F |STING MESSAGE FO|
00003A10: 52 20 C9 4E 56 4F 49 43 45 20 3D 22 3A 99 44 31 |R .NVOICE =":.D1|
00003A20: 24 00 56 42 8E 13 8B 4B 24 B2 22 53 22 A7 99 22 |$.VB...K$."S".."|
00003A30: C5 58 49 53 54 49 4E 47 20 4D 45 53 53 41 47 45 |.XISTING MESSAGE|
00003A40: 20 46 4F 52 20 D3 54 41 54 45 4D 45 4E 54 20 3D | FOR .TATEMENT =|
00003A50: 22 3A 99 44 33 24 00 8D 42 8F 13 8B 4B 24 B2 22 |":.D3$..B...K$."|
00003A60: 43 22 A7 99 22 C5 58 49 53 54 49 4E 47 20 4D 45 |C"..".XISTING ME|
00003A70: 53 53 41 47 45 20 46 4F 52 20 C3 52 45 44 49 54 |SSAGE FOR .REDIT|
00003A80: 20 CE 4F 54 45 20 3D 22 3A 99 44 32 24 00 BF 42 | .OTE =":.D2$..B|
00003A90: 90 13 99 22 C4 4F 20 59 4F 55 20 57 49 53 48 20 |...".O YOU WISH |
00003AA0: 54 4F 20 41 4D 45 4E 44 20 4D 45 53 53 41 47 45 |TO AMEND MESSAGE|
00003AB0: 20 12 59 92 45 53 20 4F 52 20 12 4E 92 4F 22 00 | .Y.ES OR .N.O".|
00003AC0: DD 42 91 13 A1 56 24 3A 8B 56 24 B3 B1 22 59 22 |.B...V$:.V$.."Y"|
00003AD0: AF 56 24 B3 B1 22 4E 22 A7 35 30 30 39 00 EE 42 |.V$.."N".5009..B|
00003AE0: 92 13 8B 56 24 B2 22 59 22 A7 35 30 31 32 00 F4 |...V$."Y".5012..|
00003AF0: 42 93 13 8E 00 0D 43 94 13 8B 4B 24 B2 22 49 22 |B.....C...K$."I"|
00003B00: A7 44 31 24 B2 22 22 3A 89 35 30 30 30 00 26 43 |.D1$."":.5000.&C|
00003B10: 95 13 8B 4B 24 B2 22 43 22 A7 44 32 24 B2 22 22 |...K$."C".D2$.""|
00003B20: 3A 89 35 30 30 30 00 3F 43 96 13 8B 4B 24 B2 22 |:.5000.?C...K$."|
00003B30: 53 22 A7 44 33 24 B2 22 22 3A 89 35 30 30 30 00 |S".D3$."":.5000.|
00003B40: 6D 43 97 13 99 22 45 4E 54 45 52 20 4D 45 53 53 |mC..."ENTER MESS|
00003B50: 41 47 45 22 3A 99 22 5B 22 A6 37 30 29 22 5D 22 |AGE":."[".70)"]"|
00003B60: 3A 99 22 91 91 1D 22 3B 3A 8D 32 36 30 00 87 43 |:."...";:.260..C|
00003B70: 98 13 8B 4B 24 B2 22 49 22 A7 44 31 24 B2 C8 28 |...K$."I".D1$..(|
00003B80: 49 50 24 2C 37 30 29 00 A1 43 99 13 8B 4B 24 B2 |IP$,70)..C...K$.|
00003B90: 22 43 22 A7 44 32 24 B2 C8 28 49 50 24 2C 37 30 |"C".D2$..(IP$,70|
00003BA0: 29 00 BB 43 9A 13 8B 4B 24 B2 22 53 22 A7 44 33 |)..C...K$."S".D3|
00003BB0: 24 B2 C8 28 49 50 24 2C 37 30 29 00 C1 43 9C 13 |$..(IP$,70)..C..|
00003BC0: 8E 00 03 44 7C 15 52 31 B2 30 3A 52 32 B2 30 3A |...D|.R1.0:R2.0:|
00003BD0: 99 22 93 22 3A 99 3A 99 22 12 CF 55 54 53 54 41 |.".":.:."..UTSTA|
00003BE0: 4E 44 49 4E 47 20 C9 4E 56 4F 49 43 45 20 D2 45 |NDING .NVOICE .E|
00003BF0: 50 4F 52 54 22 3A 8D 31 33 34 30 3A 9F 34 2C 34 |PORT":.1340:.4,4|
00003C00: 3A 9D 34 00 44 44 7F 15 52 30 B2 30 3A 99 A3 31 |:.4.DD..R0.0:..1|
00003C10: 30 29 22 11 CF 55 54 53 54 41 4E 44 49 4E 47 20 |0)"..UTSTANDING |
00003C20: C9 4E 56 4F 49 43 45 20 D2 45 50 4F 52 54 20 C4 |.NVOICE .EPORT .|
00003C30: 41 54 45 44 20 22 44 54 24 3A 52 47 B2 32 35 3A |ATED "DT$:RG.25:|
00003C40: 4F 49 B2 31 00 53 44 81 15 8D 31 37 32 30 3A 4F |OI.1.SD...1720:O|
00003C50: 49 B2 30 00 65 44 90 15 81 56 B2 31 A4 56 56 3A |I.0.eD...V.1.VV:|
00003C60: 8D 31 37 35 30 00 77 44 92 15 8B C5 28 55 50 24 |.1750.wD....(UP$|
00003C70: 29 B3 B1 30 A7 20 99 00 8B 44 95 15 52 32 B2 52 |)..0. ...D..R2.R|
00003C80: 32 AA 52 31 3A 82 3A 52 47 B2 30 00 B7 44 9A 15 |2.R1:.:RG.0..D..|
00003C90: 99 A3 33 35 29 22 2D 2D 2D 2D 2D 2D 2D 2D 2D 20 |..35)"--------- |
00003CA0: 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 20 20 2D 2D 2D 2D | --------- ----|
00003CB0: 2D 2D 2D 2D 2D 2D 22 00 D7 44 9F 15 58 24 B2 C4 |------"..D..X$..|
00003CC0: 28 52 32 29 3A 8D 37 37 30 3A 52 31 24 B2 41 41 |(R2):.770:R1$.AA|
00003CD0: 24 3A 8D 36 32 30 30 00 07 45 A4 15 99 A3 34 33 |$:.6200..E....43|
00003CE0: AB C3 28 52 31 24 29 29 52 31 24 A3 31 31 AB C3 |..(R1$))R1$.11..|
00003CF0: 28 52 32 24 29 29 52 32 24 A3 31 32 AB C3 28 52 |(R2$))R2$.12..(R|
00003D00: 33 24 29 29 52 33 24 00 33 45 A9 15 99 A3 33 35 |3$))R3$.3E....35|
00003D10: 29 22 3D 3D 3D 3D 3D 3D 3D 3D 3D 20 20 3D 3D 3D |)"========= ===|
00003D20: 3D 3D 3D 3D 3D 3D 20 20 3D 3D 3D 3D 3D 3D 3D 3D |====== ========|
00003D30: 3D 3D 22 00 42 45 AE 15 98 34 3A A0 34 3A 89 35 |==".BE...4:.4:.5|
00003D40: 34 30 00 4E 45 E0 15 99 C7 28 31 34 37 29 00 75 |40.NE....(147).u|
00003D50: 45 EA 15 99 22 13 22 3A 99 A3 31 34 29 22 12 2A |E...".":..14)".*|
00003D60: 2A 55 54 49 4C 49 54 49 45 53 2A 2A 92 22 3A 99 |*UTILITIES**.":.|
00003D70: 4C 33 24 3A 99 00 93 45 F4 15 99 22 20 20 12 4D |L3$:...E..." .M|
00003D80: 92 45 4D 4F 52 59 20 41 56 41 49 4C 41 42 4C 45 |.EMORY AVAILABLE|
00003D90: 22 3A 99 00 AF 45 F6 15 99 22 20 20 12 44 92 49 |":...E..." .D.I|
00003DA0: 53 4B 20 44 49 52 45 43 54 4F 52 59 22 3A 99 00 |SK DIRECTORY":..|
00003DB0: C9 45 FE 15 99 22 20 20 4D 45 4E 55 20 12 53 50 |.E..." MENU .SP|
00003DC0: 41 43 45 20 42 41 52 92 22 00 EF 45 08 16 A1 56 |ACE BAR."..E...V|
00003DD0: 24 3A 8B 56 24 B3 B1 22 4D 22 AF 56 24 B3 B1 22 |$:.V$.."M".V$.."|
00003DE0: 44 22 AF 56 24 B3 B1 22 20 22 A7 35 36 34 30 00 |D".V$.." ".5640.|
00003DF0: 2B 46 12 16 8B 56 24 B2 22 4D 22 A7 99 22 13 22 |+F...V$."M".."."|
00003E00: 3A 81 49 B2 31 A4 33 3A 99 3A 82 3A 99 A3 32 30 |:.I.1.3:.:.:..20|
00003E10: 29 22 3D 20 22 B8 28 30 29 22 42 59 54 45 53 20 |)"= ".(0)"BYTES |
00003E20: 46 52 45 45 22 3A 89 35 36 31 30 00 3D 46 14 16 |FREE":.5610.=F..|
00003E30: 8B 56 24 B2 22 44 22 A7 31 32 31 30 30 00 4D 46 |.V$."D".12100.MF|
00003E40: 1C 16 8B 56 24 B2 22 20 22 A7 35 34 30 00 63 46 |...V$." ".540.cF|
00003E50: 70 17 8B 44 52 B1 30 A7 8D 37 30 30 30 3A 89 36 |p..DR.0..7000:.6|
00003E60: 30 30 33 00 7A 46 71 17 55 50 24 B2 49 54 24 28 |003.zFq.UP$.IT$(|
00003E70: 56 2C 54 28 54 4E 2C 56 29 29 00 A5 46 73 17 49 |V,T(TN,V))..Fs.I|
00003E80: 56 B2 C5 28 55 50 24 29 AC 56 54 AD 31 30 30 3A |V..(UP$).VT.100:|
00003E90: 58 24 B2 C4 28 49 56 29 3A 8D 37 37 30 3A 56 54 |X$..(IV):.770:VT|
00003EA0: 24 B2 41 41 24 00 C3 46 75 17 46 54 B2 C5 28 55 |$.AA$..Fu.FT..(U|
00003EB0: 50 24 29 AA C5 28 56 54 24 29 3A 58 24 B2 C4 28 |P$)..(VT$):X$..(|
00003EC0: 46 54 29 00 D6 46 7A 17 8D 37 37 30 3A 46 54 24 |FT)..Fz..770:FT$|
00003ED0: B2 41 41 24 3A 8E 00 01 47 D4 17 49 56 B2 C5 28 |.AA$:...G..IV..(|
00003EE0: 46 31 24 29 AC 56 54 AD 31 30 30 3A 58 24 B2 C4 |F1$).VT.100:X$..|
00003EF0: 28 49 56 29 3A 8D 37 37 30 3A 46 32 24 B2 41 41 |(IV):.770:F2$.AA|
00003F00: 24 00 1F 47 D9 17 46 54 B2 C5 28 46 31 24 29 AA |$..G..FT..(F1$).|
00003F10: C5 28 46 32 24 29 3A 58 24 B2 C4 28 46 54 29 00 |.(F2$):X$..(FT).|
00003F20: 32 47 DE 17 8D 37 37 30 3A 46 33 24 B2 41 41 24 |2G...770:F3$.AA$|
00003F30: 3A 8E 00 5D 47 38 18 49 56 B2 C5 28 52 31 24 29 |:..]G8.IV..(R1$)|
00003F40: AC 56 54 AD 31 30 30 3A 58 24 B2 C4 28 49 56 29 |.VT.100:X$..(IV)|
00003F50: 3A 8D 37 37 30 3A 52 32 24 B2 41 41 24 00 7B 47 |:.770:R2$.AA$.{G|
00003F60: 3D 18 46 54 B2 C5 28 52 31 24 29 AA C5 28 52 32 |=.FT..(R1$)..(R2|
00003F70: 24 29 3A 58 24 B2 C4 28 46 54 29 00 8E 47 42 18 |$):X$..(FT)..GB.|
00003F80: 8D 37 37 30 3A 52 33 24 B2 41 41 24 3A 8E 00 C6 |.770:R3$.AA$:...|
00003F90: 47 58 1B 49 56 B2 C5 28 49 54 24 28 56 2C 54 28 |GX.IV..(IT$(V,T(|
00003FA0: 54 4E 2C 56 29 29 29 3A 55 50 B2 49 56 AC 44 52 |TN,V))):UP.IV.DR|
00003FB0: AD 31 30 30 3A 50 55 B2 49 56 AB 55 50 3A 58 24 |.100:PU.IV.UP:X$|
00003FC0: B2 C4 28 50 55 29 00 D7 47 5A 1B 8D 37 37 30 3A |..(PU)..GZ..770:|
00003FD0: 55 50 24 B2 41 41 24 00 DD 47 5D 1B 8E 00 0A 48 |UP$.AA$..G]....H|
00003FE0: 20 1C 99 22 CC 45 53 53 20 44 49 53 43 4F 55 4E | ..".ESS DISCOUN|
00003FF0: 54 20 41 54 22 44 52 22 25 22 3B 3A 58 24 B2 C4 |T AT"DR"%";:X$..|
00004000: 28 55 50 29 3A 8D 37 37 30 3A 00 30 48 25 1C 99 |(UP):.770:.0H%..|
00004010: A3 54 41 AB C3 28 41 41 24 29 29 3B 41 41 24 3A |.TA..(AA$));AA$:|
00004020: 99 A3 54 41 AB C3 28 55 50 24 29 29 3B 55 50 24 |..TA..(UP$));UP$|
00004030: 00 36 48 2A 1C 8E 00 68 48 84 1C 99 22 20 20 20 |.6H*...hH..." |
00004040: 20 20 20 CC 45 53 53 20 44 49 53 43 4F 55 4E 54 | .ESS DISCOUNT|
00004050: 20 41 54 22 44 52 22 25 22 3B 3A 58 24 B2 C4 28 | AT"DR"%";:X$..(|
00004060: 55 50 29 3A 8D 37 37 30 00 8E 48 89 1C 4C 44 B2 |UP):.770..H..LD.|
00004070: C3 28 C4 28 44 52 29 29 AA 31 3A 99 A3 34 31 AB |.(.(DR)).1:..41.|
00004080: C3 28 41 41 24 29 AB 4C 44 29 3B 41 41 24 00 AC |.(AA$).LD);AA$..|
00004090: 48 8C 1C 99 A3 35 34 29 4C 31 24 3A 99 A3 36 34 |H....54)L1$:..64|
000040A0: AB C3 28 55 50 24 29 29 3B 55 50 24 00 B2 48 8E |..(UP$));UP$..H.|
000040B0: 1C 8E 00 D3 48 44 2F 99 22 93 22 3A 20 99 22 12 |....HD/.".": .".|
000040C0: 20 44 49 53 4B 20 44 49 52 45 43 54 4F 52 59 20 | DISK DIRECTORY |
000040D0: 92 11 22 00 09 49 4E 2F 9F 31 2C 38 2C 31 35 2C |.."..IN/.1,8,15,|
000040E0: 22 49 30 22 3A A0 31 3A 9F 31 2C 38 2C 30 2C 22 |"I0":.1:.1,8,0,"|
000040F0: 24 30 22 3A 81 4B B2 31 A4 32 35 3A A1 23 31 2C |$0":.K.1.25:.#1,|
00004100: 58 24 3A 82 4B 3A 44 B2 31 00 18 49 58 2F 8B 44 |X$:.K:D.1..IX/.D|
00004110: B2 32 A7 44 B2 30 3A 99 00 36 49 62 2F 99 A3 32 |.2.D.0:..6Ib/..2|
00004120: 30 AC 44 29 3B 3A 81 4B B2 31 A4 34 3A A1 23 31 |0.D);:.K.1.4:.#1|
00004130: 2C 58 24 3A 82 4B 00 50 49 6C 2F 8B 20 53 54 20 |,X$:.K.PIl/. ST |
00004140: B0 20 44 53 20 A7 A0 31 3A 99 3A 89 35 36 33 30 |. DS ..1:.:.5630|
00004150: 00 6F 49 76 2F A1 23 31 2C 58 24 3A 8B 58 24 B2 |.oIv/.#1,X$:.X$.|
00004160: 22 22 A7 44 B2 44 AA 31 3A 89 31 32 31 32 30 00 |"".D.D.1:.12120.|
00004170: 89 49 80 2F 8B 58 24 B2 C7 28 33 34 29 A7 4F B2 |.I./.X$..(34).O.|
00004180: A8 4F 3A 89 31 32 31 35 30 00 95 49 8A 2F 8B 4F |.O:.12150..I./.O|
00004190: A7 99 58 24 3B 00 A0 49 94 2F 89 31 32 31 35 30 |..X$;..I./.12150|
000041A0: 00 00 00 AA 4F 47 00 00 FF |....OG... |
..%....53280,2:.53281,2:.".":.20:.540.U.
...A$(66),B$(66),QN$(40,10),IT$(40,10),T
T(40)......PL$(40,10),V$(40,5),T(10,40),
SI$(40,10):.".":....(..Y..1.R.Y.1:Y.Y.1:
.55...2.R.1:Y.1...7..".TYPE .END. TO EXI
T":.:."ENTER PRODUCT NO.";:."[ ]....";
:.260...8..J.1.Y.8.9..H(IP$,3).H(A$(J),3
)..".NO. ALREADY USED":.4500:.55.Z.:..:.
IP$."END".R.R.1:Y.Y.1:.340...;.PN$.H(IP$
,3):P.C(PN$):.P.3.PN$.PN$.H(S$,3.P).E.<.
.".ENTER NAME OF PRODUCT #";PN$:."[";:.6
30:.H(S$,24);...F.."]";:.H(T$,25);:.260.
..Z.A$(R).PN$." ".H(IP$,24).C.D..".ENTER
UNIT PRICE OF :":."."J(A$(R),5,24):."[
].........";.X.F..260:X$.IP$:.770
...I.B$(R).AA$:.C(B$(R)).8.B$(R).J(B$(R)
,2,8)...N.R.R.1:Y.Y.1:.55.Y.X..3670:CO.1
:LN.21:.3680:."WHICH LINE DO YOU WISH TO
AMEND:-"......"PRESS 1 TO"Y" :";:.260;.
....R.E(IP$):.R.Y.120.2....3670:.3680:."
OLD VALUE ."B$(R).X.H.."NEW VALUE [
].........";:.260:X$.IP$:.770:B$(R).
AA$:.340...R..3670:.3680:.".DELETE. WHIC
H LINE NUMBER".U...."KEY 1 TO"Y" :";:.26
0:DP.E(IP$):.DP.Y.210......R.DP.Y.1:A$(R
).A$(R.1):B$(R).B$(R.1):.:Y.Y.1:.340. ..
..IP$."".IP$."-".&.....6...B$." ":."";.K
....IP$:.IP$."".270.E....B$." ".F(IP$).2
0.270..."..F(IP$).20.B$.H(B$,C(B$).1):."
. .";:.270...,..IP$.G(13).IP$.J(B$,2):.:
.240.K.6.A.F(IP$):.A.31.270...@.B$.B$.IP
$:.".";IP$;".";:.270...J.A.A.16:B.B.16:.
350...O.A.A.16:B.B.16:.350.'.T.A.1:B.16.
T.^..".":..15)"PRODUCT LIST":.B.64.B.64:
A.49.A._..A.1.340...C..".LN.".1)".PN .".
1)".DESCRIPTION .".2)".VALUE
."...D..R.A.B...H..J(D(R),2).3)A$(R).36
.C(B$(R)).3)B$(R):....R.CO.1:LN.20:.3680
:.L3$.3.|..".I.NPUT .A.MEND .S.ORT .M.EN
U .D.ELETE .P.RINT .<. .>.".F....K$:.K$.
"".390.U....K$."I".40.E....K$."A".120.U.
...K$."S".670......K$."M".540......K$.">
".330...B..K$."D".210...L..K$."<".335.E.
V..K$."P".490.N....390......1340:.4,4:.4
:..20)".PRODUCT LIST":..=...." LINE NO.
PRODUCT NO. DESCRIPTION
VALUE"......" -------------------
----------------------------------------
--"......R.1.Y......R.10.C(D(R)))H(A$(R)
,3).10)J(A$(R),5,24);.....PX.C(J(A$(R),5
,24)).C(B$(R)):..38.PX)B$(R):.......4: 4
:.340.8....".":.:."ENTER DATE EG(29.12.8
2) [ ].........";.P....260:DT$.H(
IP$,8):..N....630:.1860:.G(142): .1190..
.&.." 1. PRODUCT FILE 2. COMPANY INFO"
...0.." 3. CLIENT FILE 4. RECORDS"...
:.." 5. LOAD/SAVE 6. REPORT WRITER.
..?.." 7. UTILITIES 8. EXIT"...D..:
.L3$.1.N..K$:.E(K$).1.E(K$).8.590.E.X..V
V.0.E(K$).4..".SET UP CLIENT FILE":.4500
:.540...]..VV.0.E(K$).6..".NO FILE RESID
ENT":.4500:.540.U._..CN$(1)."".E(K$).3..
".INPUT YOUR COMPANY NAME":.4500:.540...
B..".":.G(14)...L..E(K$).340,910,1110,18
90,3050,5500,5600,3990.G.V.S$."
".X...T$."
......................................."
.....L1$."----------":L2$."==========".P
...L3$."--------------------------------
-------".....CH$.G(13):.......R.1.Y.1...
...I.(R.1).Y."....J(A$(I),5,24)..J(A$(R)
,5,24).730.8...C$.A$(R):D$.B$(R).T.F.A$(
R).A$(I):B$(R).B$(I).J.P.A$(I).C$:B$(I).
D$.R.Z..:.......".SORT. COMPLETED":.4500
:.340......K$:.K$.."Y".K$.."N".750......
.A...EV.0.....AA$."":AA1$."":AA2$.""....
.AN.E(X$):EV..(AN):AN..(AN):AB$.H(D(EV),
1)... .A1..(.(AN).AN).>.*.A1..(A1)..(.(A
1.100)..5).100.L.4.AA$.D(A1).C.>..A1..01
.AA$."0.00".U.H..C(AA$).4.870...R.. C(AA
$).4.AA$.H(AA$,4)...\..C(AA$).4.AA$.AA$.
"0"...F.AA$.I(AA$,3).M.K.BA$.D(.(AN))...
P.AA$.AB$.BA$.AA$............CN$(1)."".9
50.%....".COMPANY INFORMATION ALREADY SE
T-UP".`...."DO YOU WISH TO CHANGE INFORM
ATION":."KEY .Y. OR .N.".U....750:.K$."N
".980......".".12)"COMPANY INFORMATION":
.1860......I.1.5...J.."ENTER YOUR COMPAN
Y "IN$(I): .260:CN$(I).IP$:....T..".": .
I.1.5:.CN$(I):.:.VR$.5....".IS THIS INFO
RMATION CORRECT":."KEY .Y.ES OR .N.O".?.
...4900.O....K$."N".950......K$."Y".."EN
TER VAT RATE EG.15 [ ].......";:.26
0:VT.E(IP$).L....VR$."".."ARE YOU REGIST
ERED FOR VAT. .Y./.N.":.1050......".":."
DO YOU WISH TO INCLUDE MESSAGE ON :"....
..".I.NVOICE"."....".C.REDIT NOTE".5....
".S.TATEMENT".C....".M.ENU".W....K$:.K$.
"".1038.}....K$."I".K$."C".K$."S"..5000:
.1032......K$."M".540......1038. ....540
......4900...$..K$."N".1032......"ENTER
VAT REG. NO. ";:.260:VR$."VAT REG. NO. "
.IP$:.1032...8..540...B..910...V..V..1.1
130.G.`.V.1:VV.1:TT(V).1:.1860:.V$(1,1).
"".VV.0.X.J.VV.VV.1:V.VV...O..VV.40.."MA
X NO OF 40 CLIENTS NOW REACHED":.4500:V.
V.1:VV.VV.1...T..C.1.5.Q.Y..C.1..".TYPE
.END. FOR MENU":.:.:.1150.Z.{.."."...~..
"ENTER ."IN$(C)". OF CLIENT #";V:."[";:.
630:.H(S$,25);.N...."]";:.H(T$,26);:.260
:.IP$."END".V.V.1:VV.VV.1:.540.D...V$(V,
C).H(IP$,25)..... :V.V.1:VV.VV.1:.1135.
....."."......" . . ... . . . . . .
.. ..";.Q...." .. . . . .. .. . .
"...D.." . . . .. . . . . . . . ....
.";...N.." . . . . . . . . . . ".K
.X.." . . . ...... . . . . . . . .
.";.J...." .. .. . . . . . ."......
" . . . . .. . ........ . .. .";.....
." . . . . . . . . . .".W...." .
. . . . .. .. ..";......" . .. .
. . . . . . ."......: ..17)"BY".?....:
." . D . . I . . A . . L . . O . .
G .":..Z.(.." . S . . O . . F . . T .
. W . . A . . R . . E . "...2..:.L3$:.:
..G.<.CO.1:LN.21:.3680:." << ENSURE THAT
PRINTER IS ALIGNED >>"...F.." PRESS
.SPACE BAR. TO CONTINUE":.K$:.K$.." ".13
40...P...3.Z..".":.E(FT$).0.IE$."CREDIT
NOTE":.1380.K._.IE$."SALES INVOICE".U.D.
.1340:.4,4:.4:.:.:."."IE$;.42)"NO. ";...
N..H(SI$(V,T(TN,V)),10):.:.:..B.X..I.1.5
:WN.C(CN$(I)):..(70.WN).2)CN$(I):.......
VR$.."".WN.C(VR$):..(70.WN).2)VR$......I
.1.70:."-";:.:.:..-...."TO. "V$(V,1):.
C.2.4:..6)V$(V,C):.:..\. .."YOUR ORDER N
O. "J(SI$(V,T(TN,V)),11,10);.......26)"D
ATE "J(SI$(V,T(TN,V)),21,10)......I.1.70
:."=";:..........H.."QTY. DESCRIPTIO
N PRICE
TOTAL"...R..I.1.70:."=";:.:.:......LQ.C(
QN$(V,T(TN,V))):PN.1.A...MQ.E(J(QN$(V,T(
TN,V)),PN.5.1,5)).I....MQ;:P1$.J(PL$(V,T
(TN,V)),PN.5.1,3)......R.1.Y:.H(A$(R),3)
.P1$...10.C(D(MQ)))J(A$(R),5,24);:.1530.
..........PW.C(A$(R)).6:PX.C(B$(R)):PY.P
W.PX:..33.PY)B$(R);.....MR.MQ.E(B$(R)):X
$.D(MR):.770:TP$.AA$.....XB.C(TP$).*....
.18.XB)TP$.D...PN.PN.1:.PN.LQ.5.1510.Y."
..I.1.18.LQ.5:.:..F.,...54)L1$...6.."
SUB TOTAL ".45.C(IT$(V,T(TN,V))))I
T$(V,T(TN,V)):.6000...;..E(UP$)..E(IT$(V
,T(TN,V))).TA.45:LZ.3:.7300.. @.."
V.A.T. @ 15% ".45.C(VT$))VT$.. J...54)L1
$.: T.." INVOICE TOTAL".45.C(FT$))F
T$.S ^...54)L2$ :.I.1.6:.:..H C..F(IE$).
211..D1$.} D..F(IE$).195..D2$.. E..F(IE$
)..211.F(IE$)..195.... H..I.1.10.LZ:.:.:
.4: 4:LZ.0.. R.... |..".":.1340:.4,4:.4:
.:.".STATEMENT"..!...:.:.:.I.1.5:WN.C(CN
$(I)):..(70.WN).2)CN$(I):..A!...VR$.."".
WN.C(VR$):..(70.WN).2)VR$.Y!...I.1.70:."
-";:.:.:...!..."TO. "V$(V,1):.C.2.4:..
6)V$(V,C):.:...!....50)"DATE "DT$..!...I
.1.70:."=";:.:...!B.."INV/CR ORDER
INV/CR DATE SUB TOTAL VAT
TOTAL".."L..I.1.70:."=";:.:.:.:.OI.1.
..\"V.R1.0:.TN.1.TT(V).1:.SI$(V,T(TN,V))
.."-"..H(SI$(V,T(TN,V)),30);.}"X.DR.E(J(
SI$(V,T(TN,V)),31,5)).."...6000:.E(UP$).
0 .1785.."....13.C(UP$))UP$;.J"...RG.25.
R0.E(UP$):R1.R1.R0.."....11.C(VT$))VT$;.
."....12.C(FT$))FT$..#...:.RG.25....#..I
I.TT(V):.I.1.20.II:.:..J#....35)"-------
-- --------- ----------".Z#....43.C(F1
$))F1$.11.C(F2$))F2$.12.C(F3$))F3$..#...
.35)"========= ========= =========="..
#&..I.1.9:.:...#0..D3$.Y#:..I.1.9:.:.:.4
: 4:.1910..$D.IN$(1)."NAME":IN$(2)."ADDR
ESS":IN$(3)."TOWN":IN$(4)."COUNTY".1$N.I
N$(5)."TELEPHONE".7$X...}$B..DT$."".."."
:."ENTER DATE EG(29.12.82) [ ]...
......";:.260..$C..DT$."".DT$.H(IP$,8)..
$G.V.1.F$L..IT$(1,1).."".1910:V.1:VV.1:T
T(V).1.S$V..V.1.V.1..$...V.VV.V.V.1..%..
.".":..15)"CLIENT NO";V:.L3$.$%...C.1.5:
.IN$(C).10)V$(V,C):..-%...L3$.J%...TN.1.
TT(V).1:T(TN,V).TN..%..."TRANS"T(TN,V);:
DR.E(J(SI$(V,T(TN,V)),31,5)):.6000..%...
.18.C(UP$))UP$;..%....28.C(VT$))VT$;..%F
...39.C(FT$))FT$.F%P...T%Z.T1.0:F1.0..&.
..TN.1.TT(V):T(TN,V).TN:DR.E(J(SI$(V,T(T
N,V)),31,5)):.6000. &..T1.E(UP$).-&..F1.
F1.T1.3&....S&..X$.D(F1):.770:F1$.AA$:.6
100..& ..".".18.C(F1$))F1$.28.C(F2$))F2$
.39.C(F3$))F3$. &*.CO.1:LN.21:.3680:.L3$
..&4.." .N.EXT .L.AST .F.IND .G.OTO .A.M
END .S.CROLL .M.ENU"..'>.." .C.REATE INV
/CR .V.IEW INV .P.RODUCE S'MENT"..'H..L3
$.-'R..K$:.K$."".2130.E'\..K$."N".V.V.1:
.1910.]'F..K$."L".V.V.1:.1910.~'P..K$."C
".IT.0:IV.0:FT.0:.2280..'Z..K$."V".FP.1:
.2250..'...K$."M".540..'...K$."F".2720.G
'...K$."S".2790.X'...K$."G".2900..'...K$
."P".1660..'...K$."A".3000..(...2130..(J
..3670:.3680:FP.0.R(L..TT(V).1.0..".NO I
NVOICES IN FILE":.I.1.1000:.:.1900.Q(N..
"ENTER INVOICE # TO VIEW"..(T.."KEY 1 TO
"TT(V).1" :";:.260:TN.E(IP$):.TN..0.TN.T
T(V).1.2250..(...3770..(...".CREATE .I.N
VOICE OR .C.REDIT NOTE"..)...K$:.K$.."I"
.K$.."C".2281.-)...K$."C".IE..1:IC$."CR
NOTE.": .2288.E)..IE.1:IC$."INVOICE."..)
...T(TN,V).10..".MAX. NO. UNPAID INVOICE
S = 10":.4500:.1890..)...IT$(V,T(TN,V)).
"".TN.1..)...TT(V).0.TT(V).1..)...".
.CREATE ";IC$:T(TN,V).TT(V):.TN.0.TN.1
..*...V$(V,1).30)"TRANS #"T(TN,V)..*...L
3$.S*..PN.1:IT.0:TP.0:QN$(V,T(TN,V))."##
###":PL$(V,T(TN,V))."#####".{*$.CO.1:LN.
PN.4:.3680:.I.1.20.LN:.S$:...*..CO.1:LN.
PN.5:.3680..*8.."ENTER PRODUCT # ";:.260
..*9..H(IP$,1)."#".IT.0:."..":.S$:.S$:."
..":.2500..+B.F.C(IP$):P$.IP$:.R.1.Y:.P$
.H(A$(R),F).."."S$:.2380..+G...M+I..:.".
NO SUCH PRODUCT.":.4500:.".";S$:.2340.O+
L.."."A$(R).34.C(B$(R)).3)B$(R)..+V.."PR
ODUCT CORRECT .Y. OR .N.":.750:.K$."N".2
340..+`..C(P$).5.P$.P$.H(S$,5.C(P$)):PL$
(V,T(TN,V)).PL$(V,T(TN,V)).P$..,J.."....
":.I.1.4:.S$:.:."....".;,T.."QUANTITY OF
.";J(A$(R),5,24)".? ";:.260:Q$.IP$.P,Y.
.E(Q$).9999..".MAX QTY = 9999":."..";S$"
.":.2420..,~..C(Q$).5.Q$.Q$.H(S$,5.C(Q$)
):QN$(V,T(TN,V)).QN$(V,T(TN,V)).Q$.U,..Q
.E(Q$):IT.Q.E(B$(R)):X$.D(IT)..,...770:T
P$.AA$..,...3680:.S$:.3680..-..."."Q$.7)
J(A$(R),5,24);.,-....34.C(TP$).3)TP$.K-.
.PN.PN.1:TP.TP.E(TP$):.2340.~-D.."DISCOU
NT REQUIRED ? KEY .Y.ES OR .N.O":.4900..
-I..K$."N".DR.0:.".."S$:.S$:.2516..-K.."
ENTER DISCOUNT RATE.EG 20 [ ]......"
;:.260:DR.E(IP$)..-L..DR.100.DR.0.."..":
.2507...M.."...":.S$:.S$:."....".!.T.IT.
0.7.V.TP.TP.IE:X$.D(TP).S.X..770:IT$(V,T
(TN,V)).AA$.......27)L1$:..37.C(IT$(V,T(
TN,V))));IT$(V,T(TN,V))......6000......E
(UP$)..E(IT$(V,T(TN,V))).TA.37:.7200....
.."V.A.T. @"VT" %".37.C(VT$));VT$:..27)L
1$.!/...IE$;" TOTAL".37.C(FT$));FT$:..27
)L2$:.VI.1.VI.0:..L/..CO.1:LN.24:.3680:.
IC$;" CORRECT?":.750.]/(..K$."N".2280../
2..".ENTER "IC$;" NUMBER :";:.260:SI$.IP
$:.2700.F/<.."ENTER CLIENT ORDER NUMBER
:";:.260:SI$.IP$:.2700.X/F.SI$.DT$:.2700
..0K..C(SI$(V,T(TN,V))).30.SI$(V,T(TN,V)
).J(SI$(V,T(TN,V)),2,30).@0M.SI$(V,T(TN,
V)).SI$(V,T(TN,V)).D(DR).W0P..3680:.".P.
RINT .S.TORE ".
.0Z..K$:.K$."".2650..0D..K$."S".TN.TN.1:
TT(V).TT(V).1:.1910..0N..K$."P"..1370:TN
.TN.1:TT(V).TT(V).1:.1910..0X..K$."RP"..
1370:.1910..1...2650.+1...C(SI$).10.SI$.
SI$.H(S$,10.C(SI$)).]1..SI$(V,T(TN,V)).S
I$(V,T(TN,V)).SI$:."."S$".":...1 .FP.1:
.3670:.3680:."FIND CLIENT BY .NAME".J1..
."ENTER NAME [ ]
";:.H(T$,26);:.260..1..L$.IP$:F.C(L$)..1
...V.1.VV..2H..H(V$(V,1),F).L$.1910..2R.
..A2...3670:.3680:.".NO SUCH CLIENT":.45
00:V.1:FP.0:.1910.P2...".":.Z.1.19:.S$:.
:VS.V:.V.VS.VV.1:.G(19);..2..CO.3:LN.15:
.3680:.".C.ONTINUE .S.TOP .E.XIT".J2..CO
.15:LN.2:.3680:."CLIENT NO";V:.L3$..3...
C.1.5:.IN$(C).10)H(V$(V,C),25).H(S$,25.C
(V$(V,C)))..3...C..3...L3$.-3".K$."":.K$
:.K$."S".2880.I3,..K$.."E"..Z.1.1600:.:.
V.S36..1910.W3@.K$."":.K$:.K$.."C".K$.."
E".2880..3J..2860..3T.FP.1: .3670:.3680:
."THERE ARE"VV" CLIENTS IN THIS FILE"..3
^.."ENTER REQUIRED NUMBER :";:.260:V.E(I
P$):.V..0.V.VV.2900..4H..1910.34R..3670:
.3680:.".DELETE. ARE YOU SURE":.750.D4|.
.K$."N".3770.]4..DT.TN:.TN.DT.TT(V).1..4
..QN$(V,T(TN,V)).QN$(V,T(TN.1,V)):PL$(V,
T(TN,V)).PL$(V,T(TN.1,V)).E4..IT$(V,T(TN
,V)).IT$(V,T(TN.1,V))..4..SI$(V,T(TN,V))
.SI$(V,T(TN.1,V))..5...:TT(V).TT(V).1:.1
910..5..FP.1.K5B..3670:.3680:."ENTER LIN
E TO AMEND: KEY 1 TO 5 [ ]..";:.260.[5L.
.3670:.3680..5V.C.E(IP$):.".CURRENT LINE
. "V$(V,C)..5...".NEW LINE. :";:.260:V$(
V,C).IP$:FP.0:.1910..5...:."DO YOU WISH
TO .L.OAD OR .S.AVE":...5...K$:.K$."".30
60..6...K$."S".3310.@6...K$."L"..:.20:."
..ARE YOU LOADING FROM .D.ISK OR .T.APE"
.T6...V$:.V$."".3072.P6...V$."D".ND.8:NL
.4:.3090..6...V$."T".ND.1:NL.0:.3090..6.
..3072.K6...:."ENTER FILE NAME [
]..........";:.260..6..N$.H(IP$,9):NN$.
N$:...7..."DO YOU WISH TO LOAD THE:-":.:
.".WH.OLE FILE OR":..T7 ..".PR.ODUCT LIS
T AND CO INFO [ ]...";:.260:WH$.IP$..7"
..WH$.."PR".WH$.."WH"..:."ENTER .WH. OR
.PR.":. "........":.3102..7&..1,ND,NL,NN
$..7(..1,D1$.F7*..1,D2$:.1,D3$.O70..1,Y.
Z7:..R.1.Y..7D..1,A$(R):.1,B$(R):...8N..
I.1.5:.1,CN$(I):..D8S..Y.0.CN$(1)."" .."
... .FILE NOT FOUND": 1:.4500:.540.N8X
..1,VT.Y8B..1,VR$.L8G..WH$."PR".3300.V8L
..1,VV..8V..V.1.VV:.C.1.5..8...1,V$(V,C)
:.:...8...V.1.VV:.1,TT(V):..V8...V.1.VV:
.TN.1.TT(V):T(TN,V).TN..8...1,QN$(V,T(TN
,V))..9...1,PL$(V,T(TN,V))..9...1,SI$(V,
T(TN,V))..9...1,IT$(V,T(TN,V)).69Z..:..G
9.. 1:.520:.540..9..."ENTER FILE NAME [
]..........";:.260:N$.H(IP$,9)..
9...:."ARE YOU SAVING ON .D.ISK OR .T.AP
E".P9...K$:.K$.."D".K$.."T".3314..9...K$
."T".3382..:...:."ARE YOU SAVING ON DRIV
E .0. OR .1.".!:...K$:.K$."".3330.<:...K
$."0".DR$."0:":.3370.W:...K$."1".DR$."1:
":.3370.A: ..3330..:*.N1$.DR$:N2$.",SEQ,
WRITE":NN$.N1$.N$.N2$..:4..1,8,4,"@".NN$
:.CH$..:6..K$."T"..1,1,1,N$:.CH$.T:7..D1
$."".D1$."-"..:8..1,D1$..:9..D2$."".D2$.
"-"..::..1,D2$..;;..D3$."".D3$."-"..;<..
1,D3$.&;>..1,Y.1;H..R.1.Y.G;R..1,A$(R):.
1,B$(R).M;\...D;F..I.1.5:.1,CN$(I):..S;P
..1,VT:.CH$..;U..VR$."".VR$."-"..;Z..1,V
R$:.CH$..;...1,VV:.CH$..;...V.1.VV:.C.1.
5.Q;...1,V$(V,C):.CH$:.:...;...V.1.VV:.T
T(V). 0.TT(V).1..<...1,TT(V):.CH$:..&<..
.V.1.VV:.TN.1.TT(V):T(TN,V).TN.P<...QN$(
V,T(TN,V))."".QN$(V,T(TN,V))."-".K<J..1,
QN$(V,T(TN,V)):.CH$..<T..PL$(V,T(TN,V)).
"".PL$(V,T(TN,V))."-"..<...1,PL$(V,T(TN,
V)):.CH$.Z<...SI$(V,T(TN,V))."".SI$(V,T(
TN,V))."-"..<...1,SI$(V,T(TN,V)):.CH$..=
...IT$(V,T(TN,V))."".IT$(V,T(TN,V))."-".
:=...1,IT$(V,T(TN,V)):.CH$.B=8..:..N=B.
1:.540.U=V.CO.1:LN.21.FP:.3680:.I.1.3:.S
$:.:...=`.ACC$."........................
...............".N=J.DOW$.".............
.............".Y=T..Z.1.2..=~..".";..=..
.CO.1..H(ACC$,CO.1);..>...LN.1..H(DOW$,L
N.1);.J>...Z.1.."
";.Q>...Z.W>.....>..."."
;V$(V,1).28)"TRANS #"T(TN,V):.L3$..>N.LQ
.C(QN$(V,T(TN,V))):PN.1.D>S.MQ.E(J(QN$(V
,T(TN,V)),PN.5.1,5))..>X..MQ;:P1$.J(PL$(
V,T(TN,V)),PN.5.1,3). ?Y..R.1.Y:.H(A$(R)
,3).P1$...7)J(A$(R),5,24);:.3810.&?Z...O
?..MR.MQ.E(B$(R)):X$.D(MR):.770:TP$.AA$.
C?....37.C(TP$))TP$.}?..PN.PN.1:.PN.LQ.5
.3795..?..VI.1:DR.E(J(SI$(V,T(TN,V)),31,
5)):.2530..?...TP.1...K?(.CO.1:LN.21:.36
80;..@2..".INV NO.. ";H(SI$(V,T(TN,V)),1
0).19)".DATED. ";..@<..J(SI$(V,T(TN,V)),
21,10).H@F..".ORD NO.. ";J(SI$(V,T(TN,V)
),11,10).B@P.CO.1:LN.23:.3680:.L3$..@Z..
".P.RINT INVOICE .D.ELETE INVOICE .R.ETU
RN"..@D..K$:.K$."".3940.A@N..K$."P".K$."
RP":.2670.R@X..K$."R".1910..@...K$."D".2
930..@...3940..A...".EXIT INVOSTAT. ARE
YOU SURE?":.750.'A ..K$."N".540.;A..."EN
D OF RUN":..MA...I.1.1000:.:..KA$..K$:.K
$.."Y".K$.."N".4900.QA)....A...".":.K$."
I"..".INVOICE.":.D1$."".5015.FA...K$."C"
..".CREDIT NOTE.":.D2$."".5015..A...K$."
S"..".STATEMENT.":.D3$."".5015.!B...K$."
I".."EXISTING MESSAGE FOR INVOICE =":.D1
$.VB...K$."S".."EXISTING MESSAGE FOR STA
TEMENT =":.D3$..B...K$."C".."EXISTING ME
SSAGE FOR CREDIT NOTE =":.D2$..B..."DO Y
OU WISH TO AMEND MESSAGE .Y.ES OR .N.O".
.B...V$:.V$.."Y".V$.."N".5009..B...V$."Y
".5012..B.....C...K$."I".D1$."":.5000.&C
...K$."C".D2$."":.5000.?C...K$."S".D3$."
":.5000.MC..."ENTER MESSAGE":."[".70)"]"
:."...";:.260..C...K$."I".D1$.H(IP$,70).
.C...K$."C".D2$.H(IP$,70)..C...K$."S".D3
$.H(IP$,70).AC.....D|.R1.0:R2.0:.".":.:.
".OUTSTANDING INVOICE REPORT":.1340:.4,4
:.4.DD.R0.0:..10)".OUTSTANDING INVOICE
REPORT DATED "DT$:RG.25:OI.1.SD...1720:O
I.0.ED...V.1.VV:.1750.WD...E(UP$)..0. ..
.D..R2.R2.R1:.:RG.0..D....35)"---------
--------- ----------".WD..X$.D(R2):.77
0:R1$.AA$:.6200..E....43.C(R1$))R1$.11.C
(R2$))R2$.12.C(R3$))R3$.3E....35)"======
=== ========= ==========".BE...4: 4:.5
40.NE...G(147).UE...".":..14)".**UTILITI
ES**.":.L3$:...E..." .M.EMORY AVAILABLE
":...E..." .D.ISK DIRECTORY":..IE..."
MENU .SPACE BAR."..E...V$:.V$.."M".V$.."
D".V$.." ".5640.+F...V$."M"..".":.I.1.3:
.:.:..20)"= ".(0)"BYTES FREE":.5610.=F..
.V$."D".12100.MF...V$." ".540.CFP..DR.0.
.7000:.6003.ZFQ.UP$.IT$(V,T(TN,V))..FS.I
V.E(UP$).VT.100:X$.D(IV):.770:VT$.AA$.CF
U.FT.E(UP$).E(VT$):X$.D(FT).VFZ..770:FT$
.AA$:...GT.IV.E(F1$).VT.100:X$.D(IV):.77
0:F2$.AA$..GY.FT.E(F1$).E(F2$):X$.D(FT).
2G...770:F3$.AA$:..]G8.IV.E(R1$).VT.100:
X$.D(IV):.770:R2$.AA$.{G=.FT.E(R1$).E(R2
$):X$.D(FT)..GB..770:R3$.AA$:..FGX.IV.E(
IT$(V,T(TN,V))):UP.IV.DR.100:PU.IV.UP:X$
.D(PU).WGZ..770:UP$.AA$..G]....H .."LESS
DISCOUNT AT"DR"%";:X$.D(UP):.770:.0H%..
.TA.C(AA$));AA$:..TA.C(UP$));UP$.6H*...H
H..." LESS DISCOUNT AT"DR"%";:X$.D(
UP):.770..H..LD.C(D(DR)).1:..41.C(AA$).L
D);AA$..H....54)L1$:..64.C(UP$));UP$..H.
...SHD/.".": .". DISK DIRECTORY .."..IN/
.1,8,15,"I0": 1:.1,8,0,"$0":.K.1.25:.#1,
X$:.K:D.1..IX/.D.2.D.0:..6IB/..20.D);:.K
.1.4:.#1,X$:.K.PIL/. ST . DS . 1:.:.5630
.OIV/.#1,X$:.X$."".D.D.1:.12120..I./.X$.
G(34).O..O:.12150..I./.O..X$;. I./.12150
....OG...
> CLICK IMAGE PREVIEW FOR FULL MODAL