TRANSACT
FILE INFORMATION
FILENAME(S): TRANSACT
FILE TYPE(S): PRG
FILE SIZE: 17.3K
FIRST SEEN: 2025-11-30 21:23:11
APPEARS ON: 1 disk(s)
FILE HASH
efbd4b77866c356841c1730b10de46f79e23b6ee15f2a4ddcc6fa821821f867f
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| C64 SPEL 109 1 | TRANSACT | PRG | DuncanTwain | 17 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 04 42 04 01 00 9C 3A 8F 20 2A 2A 20 54 52 41 |..B....:. ** TRA|
00000010: 4E 53 41 43 54 20 36 34 20 2A 2A 20 28 43 29 20 |NSACT 64 ** (C) |
00000020: 44 49 41 4C 4F 47 20 53 4F 46 54 57 41 52 45 20 |DIALOG SOFTWARE |
00000030: 20 4A 55 4C 59 20 31 39 38 33 20 2A 2A 20 30 34 | JULY 1983 ** 04|
00000040: 30 34 00 7B 04 02 00 97 35 33 32 38 30 2C 32 3A |04.{....53280,2:|
00000050: 97 35 33 32 38 31 2C 32 3A 99 22 9E 22 3A 8D 34 |.53281,2:.".":.4|
00000060: 38 31 3A 4D 24 B2 22 54 20 52 20 41 20 4E 20 53 |81:M$."T R A N S|
00000070: 20 41 20 43 20 54 22 3A 89 31 31 00 B9 04 03 00 | A C T":.11.....|
00000080: 8D 34 34 39 3A 47 24 B2 22 45 4E 44 20 50 52 4F |.449:G$."END PRO|
00000090: 47 52 41 4D 22 3A 8B 47 B2 35 A7 47 24 B2 22 52 |GRAM":.G.5.G$."R|
000000A0: 45 53 54 41 52 54 20 57 49 4C 4C 20 43 4C 45 41 |ESTART WILL CLEA|
000000B0: 52 20 4D 45 4D 4F 52 59 22 00 DC 04 04 00 99 22 |R MEMORY"......"|
000000C0: 12 20 22 47 24 22 20 92 22 3A 8B 28 46 B2 31 B0 |. "G$" .":.(F.1.|
000000D0: 54 52 24 28 11 29 B2 22 22 29 A7 37 00 0D 05 05 |TR$(.)."").7....|
000000E0: 00 99 88 FF F9 8F F5 F0 77 FF 9F F9 8F 8F 8F F7 |........w.......|
000000F0: F9 FF 75 F9 7F 78 77 FF 70 75 F9 9F FB 7F 4C 4C |..u..xw.pu....LL|
00000100: 20 4E 4F 57 20 42 45 20 4C 4F 53 54 22 00 3B 05 | NOW BE LOST".;.|
00000110: 06 00 99 22 41 4E 44 20 41 43 43 4F 55 4E 54 53 |..."AND ACCOUNTS|
00000120: 20 46 49 4C 45 20 48 41 53 20 4E 4F 54 20 42 45 | FILE HAS NOT BE|
00000130: 45 4E 20 55 50 44 41 54 45 44 22 00 6F 05 07 00 |EN UPDATED".o...|
00000140: 99 22 11 11 43 4F 4E 46 49 52 4D 20 41 43 54 49 |."..CONFIRM ACTI|
00000150: 4F 4E 20 3F 20 5B 12 59 92 2F 12 4E 92 5D 22 3A |ON ? [.Y./.N.]":|
00000160: 8D 34 34 33 3A 8B 47 24 B2 22 4E 22 A7 35 31 00 |.443:.G$."N".51.|
00000170: 7F 05 08 00 8B 47 B2 36 A7 8D 34 38 31 3A 80 00 |.....G.6..481:..|
00000180: 9F 05 0A 00 4D 24 B2 22 54 20 52 20 41 20 4E 20 |....M$."T R A N |
00000190: 53 20 41 20 43 20 54 22 3A 8D 34 34 39 3A 9C 00 |S A C T":.449:..|
000001A0: D0 05 0B 00 4D 41 B2 31 30 30 3A 4D 54 B2 31 35 |....MA.100:MT.15|
000001B0: 30 3A 86 41 43 24 28 4D 41 29 2C 41 43 28 4D 41 |0:.AC$(MA),AC(MA|
000001C0: 29 2C 54 52 24 28 4D 54 29 2C 54 52 28 4D 41 29 |),TR$(MT),TR(MA)|
000001D0: 00 ED 05 0C 00 96 A5 5A 28 52 29 B2 28 B5 28 28 |.......Z(R).(.((|
000001E0: 4D 41 AC 52 29 AA 2E 35 29 29 AD 4D 41 00 3C 06 |MA.R)..5)).MA.<.|
000001F0: 0D 00 43 42 24 B2 22 9D 9D 9D 9D 9D 9D 9D 9D 9D |..CB$.".........|
00000200: 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 22 3A 4C |.............":L|
00000210: 4E 24 B2 22 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |N$."............|
00000220: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000230: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 22 00 8B 06 0E |..........."....|
00000240: 00 43 44 24 B2 22 13 11 11 11 11 11 11 11 11 11 |.CD$."..........|
00000250: 11 11 11 11 11 11 11 11 11 11 11 11 22 3A 42 4C |............":BL|
00000260: 24 B2 22 20 20 20 20 20 20 20 20 20 20 20 20 20 |$." |
00000270: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000280: 20 20 20 20 20 20 20 20 20 20 22 00 BC 06 0F 00 | ".....|
00000290: 43 52 24 B2 C7 28 31 33 29 3A 54 44 24 B2 22 22 |CR$..(13):TD$.""|
000002A0: 3A 54 4E 24 B2 22 22 3A 54 46 24 B2 22 22 3A 55 |:TN$."":TF$."":U|
000002B0: 44 24 B2 22 22 3A 50 44 24 B2 22 22 00 F7 06 11 |D$."":PD$.""....|
000002C0: 00 99 43 44 24 22 52 45 50 4F 52 54 20 44 41 54 |..CD$"REPORT DAT|
000002D0: 45 20 5B 12 44 44 2F 4D 4D 2F 59 59 92 5D 20 3A |E [.DD/MM/YY.] :|
000002E0: 20 22 3B 3A 4C 49 B2 38 3A 41 4E B2 31 3A 8D 34 | ";:LI.8:AN.1:.4|
000002F0: 31 39 3A 41 4E B2 30 00 20 07 12 00 44 41 24 B2 |19:AN.0. ...DA$.|
00000300: 49 4E 24 3A 8B 44 41 24 B2 22 22 B0 C3 28 44 41 |IN$:.DA$.""..(DA|
00000310: 24 29 B3 B1 4C 49 A7 99 22 91 91 22 3A 89 31 37 |$)..LI.."..":.17|
00000320: 00 50 07 14 00 99 C7 28 39 29 C7 28 31 34 29 3A |.P.....(9).(14):|
00000330: 8D 34 34 39 3A 99 22 12 20 41 43 43 4F 55 4E 54 |.449:.". ACCOUNT|
00000340: 53 20 53 54 52 55 43 54 55 52 45 20 92 11 11 22 |S STRUCTURE ..."|
00000350: 00 85 07 15 00 99 22 12 43 92 52 45 41 54 45 20 |......".C.REATE |
00000360: 4E 45 57 20 46 49 4C 45 3A 20 4C 4F 41 44 20 12 |NEW FILE: LOAD .|
00000370: 44 92 49 53 4B 20 4F 52 20 12 54 92 41 50 45 20 |D.ISK OR .T.APE |
00000380: 46 49 4C 45 22 00 99 07 16 00 8D 34 34 35 3A 8B |FILE"......445:.|
00000390: 47 24 B2 43 52 24 A7 31 30 00 BC 07 17 00 81 47 |G$.CR$.10......G|
000003A0: B2 31 A4 33 3A 8B 47 24 B3 B1 CA 28 22 43 44 54 |.1.3:.G$...("CDT|
000003B0: 22 2C 47 2C 31 29 A7 82 3A 89 32 32 00 F4 07 18 |",G,1)..:.22....|
000003C0: 00 99 22 13 11 11 11 11 11 22 42 4C 24 3A 99 22 |.."......"BL$:."|
000003D0: 91 45 4E 54 45 52 20 46 49 4C 45 20 12 20 4E 41 |.ENTER FILE . NA|
000003E0: 4D 45 20 92 20 3A 20 22 3B 3A 4C 49 B2 31 34 3A |ME . : ";:LI.14:|
000003F0: 8D 34 31 39 00 09 08 19 00 4D 24 B2 49 4E 24 3A |.419.....M$.IN$:|
00000400: 8B 4D 24 B2 22 22 A7 32 30 00 17 08 1A 00 8B 47 |.M$."".20......G|
00000410: B3 B1 31 A7 33 39 32 00 37 08 1C 00 8D 34 34 39 |..1.392.7....449|
00000420: 3A 99 22 12 20 41 43 43 4F 55 4E 54 53 20 53 45 |:.". ACCOUNTS SE|
00000430: 54 2D 55 50 20 92 22 00 6B 08 1D 00 99 22 11 11 |T-UP .".k...."..|
00000440: 48 45 41 44 49 4E 47 53 20 46 4F 52 20 53 45 43 |HEADINGS FOR SEC|
00000450: 54 49 4F 4E 3A 20 12 20 31 20 92 11 11 22 3A 81 |TION: . 1 ...":.|
00000460: 49 B2 31 A4 35 3A 87 51 24 3A 82 00 A2 08 1E 00 |I.1.5:.Q$:......|
00000470: 81 49 B2 31 A4 31 30 3A 87 41 43 24 28 49 29 3A |.I.1.10:.AC$(I):|
00000480: 41 43 24 B2 41 43 24 28 49 29 3A 49 24 B2 C4 28 |AC$.AC$(I):I$..(|
00000490: 49 29 3A 8B 49 B3 31 30 A7 49 24 B2 22 20 22 AA |I):.I.10.I$." ".|
000004A0: 49 24 00 D3 08 1F 00 99 22 41 2F 43 3A 20 20 12 |I$......"A/C: .|
000004B0: 22 49 24 22 20 92 20 20 5B 22 41 43 24 3B C8 28 |"I$" . ["AC$;.(|
000004C0: 42 4C 24 2C 32 30 AB C3 28 41 43 24 29 29 22 5D |BL$,20..(AC$))"]|
000004D0: 22 3A 82 00 04 09 20 00 99 22 11 11 50 52 45 53 |":.... .."..PRES|
000004E0: 53 20 5B 12 52 45 54 55 52 4E 92 5D 20 54 4F 20 |S [.RETURN.] TO |
000004F0: 53 45 54 2D 55 50 20 4E 45 57 20 41 43 43 4F 55 |SET-UP NEW ACCOU|
00000500: 4E 54 53 22 00 19 09 21 00 8D 34 34 31 3A 8B 47 |NTS"...!..441:.G|
00000510: 24 B3 B1 43 52 24 A7 33 33 00 26 09 23 00 58 B2 |$..CR$.33.&.#.X.|
00000520: 31 31 3A 53 B2 31 00 53 09 24 00 8D 34 34 39 3A |11:S.1.S.$..449:|
00000530: 99 22 12 20 53 45 54 2D 55 50 20 41 43 43 4F 55 |.". SET-UP ACCOU|
00000540: 4E 54 53 20 92 22 3A 58 58 B2 58 AA 39 3A 53 B2 |NTS .":XX.X.9:S.|
00000550: 53 AA 31 00 8E 09 25 00 99 22 13 11 11 11 11 11 |S.1...%.."......|
00000560: 45 4E 54 45 52 20 48 45 41 44 49 4E 47 53 20 46 |ENTER HEADINGS F|
00000570: 4F 52 20 53 45 43 54 49 4F 4E 3A 20 12 20 22 CA |OR SECTION: . ".|
00000580: 28 C4 28 53 29 2C 32 29 22 20 92 11 11 22 00 B3 |(.(S),2)" ..."..|
00000590: 09 26 00 81 49 B2 58 A4 58 58 3A 49 24 B2 C4 28 |.&..I.X.XX:I$..(|
000005A0: 49 29 3A 8B 49 B2 31 30 30 A7 49 24 B2 22 9D 22 |I):.I.100.I$."."|
000005B0: AA 49 24 00 E2 09 27 00 99 22 41 2F 43 3A 20 20 |.I$...'.."A/C: |
000005C0: 12 22 49 24 22 20 92 20 20 22 3B 3A 4C 49 B2 32 |."I$" . ";:LI.2|
000005D0: 30 3A 8D 34 31 39 3A 8B 49 4E 24 B3 B1 22 22 A7 |0:.419:.IN$.."".|
000005E0: 34 32 00 00 0A 28 00 8B 49 B1 58 A7 99 22 91 22 |42...(..I.X.."."|
000005F0: 42 4C 24 22 91 91 22 3A 49 B2 49 AB 32 3A 82 49 |BL$"..":I.I.2:.I|
00000600: 00 0E 0A 29 00 99 22 91 22 3B 3A 89 33 38 00 2B |...)..".";:.38.+|
00000610: 0A 2A 00 8B 49 4E 24 B3 B1 22 5E 22 A7 41 43 24 |.*..IN$.."^".AC$|
00000620: 28 49 29 B2 49 4E 24 3A 89 34 36 00 38 0A 2B 00 |(I).IN$:.46.8.+.|
00000630: 8B 49 B2 31 31 A7 34 31 00 53 0A 2C 00 8B 49 B2 |.I.11.41.S.,..I.|
00000640: 58 A7 53 B2 53 AB 31 3A 49 B2 58 58 3A 82 49 3A |X.S.S.1:I.XX:.I:|
00000650: 89 35 31 00 72 0A 2D 00 81 4A B2 49 A4 58 58 3A |.51.r.-..J.I.XX:|
00000660: 41 43 24 28 4A 29 B2 22 5F 22 3A 82 4A 3A 49 B2 |AC$(J)."_":.J:I.|
00000670: 58 58 00 9C 0A 2E 00 82 49 3A 99 43 44 24 3B 22 |XX......I:.CD$;"|
00000680: 41 43 43 45 50 54 20 48 45 41 44 49 4E 47 53 20 |ACCEPT HEADINGS |
00000690: 3F 20 5B 12 59 92 2F 12 4E 92 5D 22 00 C6 0A 2F |? [.Y./.N.]".../|
000006A0: 00 8D 34 34 33 3A 8B 47 24 B2 22 4E 22 A7 81 4B |..443:.G$."N"..K|
000006B0: B2 31 A4 31 33 3A 99 22 91 22 42 4C 24 22 91 22 |.1.13:."."BL$"."|
000006C0: 3A 82 3A 89 33 37 00 DA 0A 30 00 4E 41 B2 58 58 |:.:.37...0.NA.XX|
000006D0: 3A 8B 4E 41 B2 4D 41 A7 35 31 00 18 0B 31 00 99 |:.NA.MA.51...1..|
000006E0: 22 91 41 4E 59 20 4D 4F 52 45 20 48 45 41 44 49 |".ANY MORE HEADI|
000006F0: 4E 47 53 20 3F 20 5B 12 59 92 2F 12 4E 92 5D 22 |NGS ? [.Y./.N.]"|
00000700: 3A 8D 34 34 33 3A 8B 47 24 B2 22 59 22 A7 58 B2 |:.443:.G$."Y".X.|
00000710: 58 58 AA 31 3A 89 33 36 00 38 0B 33 00 8D 34 34 |XX.1:.36.8.3..44|
00000720: 39 3A 99 22 12 20 54 20 52 20 41 20 4E 20 53 20 |9:.". T R A N S |
00000730: 41 20 43 20 54 20 92 22 00 71 0B 34 00 99 22 11 |A C T .".q.4..".|
00000740: 11 12 50 92 52 4F 43 45 53 53 20 54 52 41 4E 53 |..P.ROCESS TRANS|
00000750: 41 43 54 49 4F 4E 53 22 3A 8B 54 52 24 28 31 29 |ACTIONS":.TR$(1)|
00000760: B2 22 22 A7 4B 24 B2 22 22 3A 46 B2 31 3A 89 35 |."".K$."":F.1:.5|
00000770: 34 00 AB 0B 35 00 99 22 11 11 12 54 92 52 41 4E |4...5.."...T.RAN|
00000780: 53 41 43 54 49 4F 4E 20 46 49 4C 45 20 48 41 4E |SACTION FILE HAN|
00000790: 44 4C 45 52 22 3A 4B 24 B2 22 41 4E 4F 54 48 45 |DLER":K$."ANOTHE|
000007A0: 52 20 22 3A 8B 46 B2 30 A7 35 35 00 E0 0B 36 00 |R ":.F.0.55...6.|
000007B0: 8B 55 44 24 B3 B1 22 22 A7 99 22 11 11 12 4C 92 |.UD$.."".."...L.|
000007C0: 4F 41 44 20 22 4B 24 22 54 52 41 4E 53 41 43 54 |OAD "K$"TRANSACT|
000007D0: 49 4F 4E 20 52 45 50 4F 52 54 20 46 49 4C 45 22 |ION REPORT FILE"|
000007E0: 00 20 0C 37 00 99 22 11 11 12 41 92 43 43 4F 55 |. .7.."...A.CCOU|
000007F0: 4E 54 53 20 46 49 4C 45 20 48 41 4E 44 4C 45 52 |NTS FILE HANDLER|
00000800: 22 3A 99 22 11 11 12 44 92 49 53 4B 20 44 49 52 |":."...D.ISK DIR|
00000810: 45 43 54 4F 52 59 20 4F 46 20 46 49 4C 45 53 22 |ECTORY OF FILES"|
00000820: 00 44 0C 38 00 99 22 11 11 12 52 92 45 53 54 41 |.D.8.."...R.ESTA|
00000830: 52 54 20 4F 52 20 12 45 92 4E 44 20 50 52 4F 47 |RT OR .E.ND PROG|
00000840: 52 41 4D 22 00 70 0C 39 00 8D 34 34 35 3A 81 47 |RAM".p.9..445:.G|
00000850: B2 31 A4 37 3A 8B 47 24 B3 B1 CA 28 22 50 54 4C |.1.7:.G$...("PTL|
00000860: 41 52 45 44 22 2C 47 2C 31 29 A7 82 3A 89 35 37 |ARED",G,1)..:.57|
00000870: 00 9B 0C 3A 00 8B 28 47 B2 32 AF 54 52 24 28 31 |...:..(G.2.TR$(1|
00000880: 29 B2 22 22 29 B0 28 47 B2 33 AF 28 46 B2 30 B0 |)."").(G.3.(F.0.|
00000890: 55 44 24 B2 22 22 29 29 A7 35 37 00 B9 0C 3B 00 |UD$."")).57...;.|
000008A0: 91 47 89 36 36 2C 31 37 35 2C 32 36 37 2C 33 30 |.G.66,175,267,30|
000008B0: 34 2C 33 2C 33 2C 35 30 37 00 DD 0C 3D 00 8D 34 |4,3,3,507...=..4|
000008C0: 34 39 3A 99 22 12 20 56 41 54 20 92 20 41 55 54 |49:.". VAT . AUT|
000008D0: 4F 43 41 4C 43 55 4C 41 54 4F 52 11 22 00 FB 0C |OCALCULATOR."...|
000008E0: 3E 00 99 22 43 55 52 52 45 4E 54 20 52 41 54 45 |>.."CURRENT RATE|
000008F0: 20 3D 05 22 56 22 25 9E 11 11 22 00 3B 0D 3F 00 | =."V"%...".;.?.|
00000900: 99 22 91 5B 12 52 45 54 55 52 4E 92 5D 20 4F 52 |.".[.RETURN.] OR|
00000910: 20 45 4E 54 45 52 20 4E 45 57 20 25 20 52 41 54 | ENTER NEW % RAT|
00000920: 45 20 3A 20 22 3B 3A 4C 49 B2 35 3A 8D 34 31 39 |E : ";:LI.5:.419|
00000930: 3A 8B 49 4E 24 B2 22 22 A7 36 36 00 55 0D 40 00 |:.IN$."".66.U.@.|
00000940: 56 B2 C5 28 49 4E 24 29 3A 8B 56 B3 30 B0 56 B1 |V..(IN$):.V.0.V.|
00000950: 35 30 A7 36 33 00 63 0D 42 00 8B 46 B2 31 A7 8D |50.63.c.B..F.1..|
00000960: 32 33 32 00 91 0D 43 00 46 B2 30 3A 50 44 B2 30 |232...C.F.0:PD.0|
00000970: 3A 51 24 B2 22 22 3A 8D 34 34 39 3A 99 22 12 20 |:Q$."":.449:.". |
00000980: 50 52 4F 43 45 53 53 20 92 11 11 22 3A 8D 34 39 |PROCESS ...":.49|
00000990: 37 00 D2 0D 44 00 99 22 12 42 92 41 4E 4B 20 52 |7...D..".B.ANK R|
000009A0: 45 43 45 49 50 54 53 20 26 20 50 41 59 4D 45 4E |ECEIPTS & PAYMEN|
000009B0: 54 53 22 3A 99 22 11 12 43 92 41 53 48 20 52 45 |TS":."..C.ASH RE|
000009C0: 43 45 49 50 54 53 20 26 20 50 41 59 4D 45 4E 54 |CEIPTS & PAYMENT|
000009D0: 53 22 00 FA 0D 45 00 99 22 11 12 53 92 41 4C 45 |S"...E.."..S.ALE|
000009E0: 53 20 49 4E 56 4F 49 43 45 53 20 26 20 43 52 45 |S INVOICES & CRE|
000009F0: 44 49 54 20 4E 4F 54 45 53 22 00 25 0E 46 00 99 |DIT NOTES".%.F..|
00000A00: 22 11 12 50 92 55 52 43 48 41 53 45 20 49 4E 56 |"..P.URCHASE INV|
00000A10: 4F 49 43 45 53 20 26 20 43 52 45 44 49 54 20 4E |OICES & CREDIT N|
00000A20: 4F 54 45 53 22 00 59 0E 47 00 99 22 11 12 4A 92 |OTES".Y.G.."..J.|
00000A30: 4F 55 52 4E 41 4C 53 22 3A 99 22 11 11 12 56 92 |OURNALS":."...V.|
00000A40: 41 54 3A 20 41 55 54 4F 43 41 4C 43 20 53 45 54 |AT: AUTOCALC SET|
00000A50: 2D 55 50 22 3A 8D 35 30 35 00 6D 0E 48 00 8D 34 |-UP":.505.m.H..4|
00000A60: 34 35 3A 8B 47 24 B2 43 52 24 A7 35 31 00 93 0E |45:.G$.CR$.51...|
00000A70: 49 00 81 47 B2 31 A4 36 3A 8B 47 24 B3 B1 CA 28 |I..G.1.6:.G$...(|
00000A80: 22 42 43 53 50 4A 56 22 2C 47 2C 31 29 A7 82 3A |"BCSPJV",G,1)..:|
00000A90: 89 37 32 00 9F 0E 4A 00 8B 47 B2 36 A7 36 31 00 |.72...J..G.6.61.|
00000AA0: E0 0E 4B 00 51 31 24 B2 22 50 41 59 4D 45 4E 54 |..K.Q1$."PAYMENT|
00000AB0: 22 3A 51 32 24 B2 22 52 45 43 45 49 50 54 22 3A |":Q2$."RECEIPT":|
00000AC0: 8B 47 B1 32 A7 51 31 24 B2 22 49 4E 56 4F 49 43 |.G.2.Q1$."INVOIC|
00000AD0: 45 22 3A 51 32 24 B2 22 43 52 2F 4E 4F 54 45 22 |E":Q2$."CR/NOTE"|
00000AE0: 00 14 0F 4C 00 51 33 24 B2 C8 28 51 31 24 2C 31 |...L.Q3$..(Q1$,1|
00000AF0: 29 3A 51 34 24 B2 C8 28 51 32 24 2C 31 29 3A 8C |):Q4$..(Q2$,1):.|
00000B00: 3A 81 49 B2 31 A4 47 3A 87 48 24 3A 82 3A 54 54 |:.I.1.G:.H$:.:TT|
00000B10: 24 B2 47 24 00 37 0F 4D 00 41 B2 30 3A 42 B2 30 |$.G$.7.M.A.0:B.0|
00000B20: 3A 43 B2 30 3A 54 B2 54 AA 31 3A 54 24 B2 CA 28 |:C.0:T.T.1:T$..(|
00000B30: C4 28 54 29 2C 32 29 00 73 0F 4E 00 8D 34 34 39 |.(T),2).s.N..449|
00000B40: 3A 99 22 12 20 22 48 24 22 20 92 22 A6 32 32 AB |:.". "H$" .".22.|
00000B50: C3 28 48 24 AA 54 24 29 29 22 54 52 41 4E 53 41 |.(H$.T$))"TRANSA|
00000B60: 43 54 49 4F 4E 3A 20 12 20 22 54 24 22 20 92 11 |CTION: . "T$" ..|
00000B70: 11 11 22 00 95 0F 4F 00 54 24 B2 54 24 AA C8 28 |.."...O.T$.T$..(|
00000B80: 42 4C 24 2C 34 AB C3 28 54 24 29 29 3A 8B 47 B2 |BL$,4..(T$)):.G.|
00000B90: 35 A7 31 35 33 00 A4 0F 50 00 8B 51 24 B3 B1 22 |5.153...P..Q$.."|
00000BA0: 22 A7 38 35 00 DF 0F 51 00 99 22 91 50 52 4F 43 |".85...Q..".PROC|
00000BB0: 45 53 53 20 12 22 51 33 24 22 92 22 CA 28 51 31 |ESS ."Q3$".".(Q1|
00000BC0: 24 2C 32 29 22 20 4F 52 20 12 22 51 34 24 22 92 |$,2)" OR ."Q4$".|
00000BD0: 22 CA 28 51 32 24 2C 32 29 22 20 3F 20 22 3B 00 |".(Q2$,2)" ? ";.|
00000BE0: 07 10 52 00 4C 49 B2 31 3A 8D 34 31 39 3A 54 4D |..R.LI.1:.419:TM|
00000BF0: 24 B2 49 4E 24 3A 8B 54 4D 24 B2 22 22 A7 54 B2 |$.IN$:.TM$."".T.|
00000C00: 54 AB 31 3A 89 36 36 00 21 10 53 00 8B 54 4D 24 |T.1:.66.!.S..TM$|
00000C10: B3 B1 51 33 24 AF 54 4D 24 B3 B1 51 34 24 A7 38 |..Q3$.TM$..Q4$.8|
00000C20: 31 00 3C 10 54 00 51 24 B2 51 31 24 3A 8B 54 4D |1.<.T.Q$.Q1$:.TM|
00000C30: 24 B2 51 34 24 A7 51 24 B2 51 32 24 00 6A 10 55 |$.Q4$.Q$.Q2$.j.U|
00000C40: 00 99 22 13 11 11 11 11 11 22 42 4C 24 3A 99 22 |.."......"BL$:."|
00000C50: 91 22 51 24 22 20 44 41 54 45 20 20 20 20 22 3B |."Q$" DATE ";|
00000C60: 3A 4C 49 B2 38 3A 8D 34 31 39 00 93 10 56 00 8B |:LI.8:.419...V..|
00000C70: 49 4E 24 B2 22 5E 22 B0 28 49 4E 24 B2 22 22 AF |IN$."^".(IN$."".|
00000C80: 54 44 24 B2 22 22 29 A7 99 22 91 22 42 4C 24 3A |TD$."").."."BL$:|
00000C90: 89 38 31 00 B8 10 57 00 8B 49 4E 24 B3 B1 22 22 |.81...W..IN$..""|
00000CA0: A7 54 44 24 B2 49 4E 24 AA C8 28 42 4C 24 2C 39 |.TD$.IN$..(BL$,9|
00000CB0: AB C3 28 49 4E 24 29 29 00 D5 10 58 00 99 22 91 |..(IN$))...X..".|
00000CC0: 22 51 24 22 20 44 41 54 45 20 20 3A 20 20 22 54 |"Q$" DATE : "T|
00000CD0: 44 24 22 20 22 00 FE 10 59 00 52 24 B2 22 20 54 |D$" "...Y.R$." T|
00000CE0: 4F 20 20 22 3A 8B 28 54 4D 24 B2 22 52 22 B0 47 |O ":.(TM$."R".G|
00000CF0: B2 34 29 A7 52 24 B2 22 20 46 52 4F 4D 22 00 23 |.4).R$." FROM".#|
00000D00: 11 5A 00 99 22 13 11 11 11 11 11 11 22 51 24 52 |.Z.."......."Q$R|
00000D10: 24 22 20 20 20 20 22 3B 3A 4C 49 B2 32 30 3A 8D |$" ";:LI.20:.|
00000D20: 34 31 39 00 4C 11 5B 00 8B 49 4E 24 B2 22 5E 22 |419.L.[..IN$."^"|
00000D30: B0 28 49 4E 24 B2 22 22 AF 54 4E 24 B2 22 22 29 |.(IN$."".TN$."")|
00000D40: A7 99 22 91 22 42 4C 24 3A 89 38 35 00 72 11 5C |.."."BL$:.85.r.\|
00000D50: 00 8B 49 4E 24 B3 B1 22 22 A7 54 4E 24 B2 49 4E |..IN$.."".TN$.IN|
00000D60: 24 AA C8 28 42 4C 24 2C 32 31 AB C3 28 49 4E 24 |$..(BL$,21..(IN$|
00000D70: 29 29 00 8C 11 5D 00 99 22 91 22 51 24 52 24 22 |))...].."."Q$R$"|
00000D80: 20 20 3A 20 20 22 54 4E 24 22 20 22 00 B4 11 5E | : "TN$" "...^|
00000D90: 00 99 22 13 11 11 11 11 11 11 11 22 51 24 22 20 |.."........"Q$" |
00000DA0: 46 4F 4C 49 4F 20 20 20 22 3B 3A 4C 49 B2 38 3A |FOLIO ";:LI.8:|
00000DB0: 8D 34 31 39 00 DD 11 5F 00 8B 49 4E 24 B2 22 5E |.419..._..IN$."^|
00000DC0: 22 B0 28 49 4E 24 B2 22 22 AF 54 46 24 B2 22 22 |".(IN$."".TF$.""|
00000DD0: 29 A7 99 22 91 22 42 4C 24 3A 89 38 39 00 02 12 |).."."BL$:.89...|
00000DE0: 60 00 8B 49 4E 24 B3 B1 22 22 A7 54 46 24 B2 49 |`..IN$.."".TF$.I|
00000DF0: 4E 24 AA C8 28 42 4C 24 2C 39 AB C3 28 49 4E 24 |N$..(BL$,9..(IN$|
00000E00: 29 29 00 1F 12 61 00 99 22 91 22 51 24 22 20 46 |))...a.."."Q$" F|
00000E10: 4F 4C 49 4F 20 3A 20 20 22 54 46 24 22 20 22 00 |OLIO : "TF$" ".|
00000E20: 38 12 62 00 54 52 24 B2 54 44 24 AA 54 4E 24 AA |8.b.TR$.TD$.TN$.|
00000E30: 54 46 24 3A 99 42 4C 24 00 71 12 63 00 99 42 4C |TF$:.BL$.q.c..BL|
00000E40: 24 22 91 22 3A 99 C8 28 42 4C 24 2C 32 32 AB C3 |$".":..(BL$,22..|
00000E50: 28 41 43 24 28 47 29 29 29 3B 41 43 24 28 47 29 |(AC$(G)));AC$(G)|
00000E60: 3B 3A 85 22 20 3A 20 20 20 5E 9D 9D 9D 22 3B 41 |;:." : ^...";A|
00000E70: 24 00 8E 12 64 00 8B C8 28 41 24 2C 31 29 B2 22 |$...d...(A$,1)."|
00000E80: 5E 22 A7 99 22 91 22 42 4C 24 3A 89 39 34 00 BE |^".."."BL$:.94..|
00000E90: 12 65 00 52 B2 C5 28 41 24 29 3A 41 B2 A5 5A 28 |.e.R..(A$):A..Z(|
00000EA0: 52 29 3A 8B 28 41 B3 2E 30 31 29 B0 28 41 B1 31 |R):.(A..01).(A.1|
00000EB0: 30 AE 36 29 A7 99 22 91 91 22 3A 89 39 39 00 F4 |0.6).."..":.99..|
00000EC0: 12 66 00 5A 24 B2 CA 28 C4 28 41 29 2C 32 29 3A |.f.Z$..(.(A),2):|
00000ED0: 8D 34 35 37 3A 99 22 91 22 A3 32 35 29 C8 28 42 |.457:.".".25).(B|
00000EE0: 4C 24 2C 31 32 AB C3 28 5A 24 29 29 22 05 22 5A |L$,12..(Z$))"."Z|
00000EF0: 24 22 9E 22 00 25 13 67 00 41 B2 AB 31 AC 41 3A |$".".%.g.A..1.A:|
00000F00: 54 4D B2 41 3A 8D 31 34 38 3A 41 B2 54 4D 3A 4A |TM.A:.148:A.TM:J|
00000F10: B2 36 3A 8B 28 41 B1 30 AF 47 B3 33 29 B0 47 B2 |.6:.(A.0.G.3).G.|
00000F20: 33 A7 4A B2 35 00 5E 13 68 00 99 42 4C 24 22 91 |3.J.5.^.h..BL$".|
00000F30: 22 3A 99 C8 28 42 4C 24 2C 32 32 AB C3 28 41 43 |":..(BL$,22..(AC|
00000F40: 24 28 4A 29 29 29 3B 41 43 24 28 4A 29 3B 3A 85 |$(J)));AC$(J);:.|
00000F50: 22 20 3A 20 20 20 5E 9D 9D 9D 22 3B 42 24 00 8B |" : ^...";B$..|
00000F60: 13 69 00 8B 28 C8 28 42 24 2C 31 29 B2 22 5E 22 |.i..(.(B$,1)."^"|
00000F70: 29 B0 28 C5 28 42 24 29 B3 30 29 A7 99 22 91 22 |).(.(B$).0).."."|
00000F80: 42 4C 24 22 91 91 22 3A 89 39 39 00 B5 13 6A 00 |BL$"..":.99...j.|
00000F90: 8B 42 24 B2 22 40 22 A7 52 B2 41 AD 28 31 30 30 |.B$."@".R.A.(100|
00000FA0: AA 56 29 AC 56 3A 42 B2 AB 31 AC A5 5A 28 52 29 |.V).V:B..1..Z(R)|
00000FB0: 3A 89 31 31 31 00 C6 13 6B 00 8B 42 24 B3 B1 22 |:.111...k..B$.."|
00000FC0: 50 22 A7 31 30 39 00 04 14 6C 00 8B 47 B2 31 A7 |P".109...l..G.1.|
00000FD0: 43 54 B2 30 3A 42 B2 30 3A 41 42 B2 41 3A 49 B2 |CT.0:B.0:AB.A:I.|
00000FE0: 37 3A 43 24 B2 41 24 3A 99 22 91 22 A3 37 29 22 |7:C$.A$:.".".7)"|
00000FF0: 12 20 22 41 43 24 28 37 29 22 20 92 20 3A 22 3A |. "AC$(7)" . :":|
00001000: 89 31 32 34 00 23 14 6D 00 52 B2 C5 28 42 24 29 |.124.#.m.R..(B$)|
00001010: 3A 54 4D B2 A5 5A 28 52 29 3A 8D 31 34 38 3A 42 |:TM..Z(R):.148:B|
00001020: B2 54 4D 00 4D 14 6E 00 8B 28 42 B1 30 AF 42 B1 |.TM.M.n..(B.0.B.|
00001030: AB 31 AC 41 29 B0 28 42 B3 30 AF 42 B3 AB 31 AC |.1.A).(B.0.B..1.|
00001040: 41 29 A7 99 22 91 91 22 3A 89 31 30 34 00 83 14 |A).."..":.104...|
00001050: 6F 00 5A 24 B2 CA 28 C4 28 42 29 2C 32 29 3A 8D |o.Z$..(.(B),2):.|
00001060: 34 35 37 3A 99 22 91 22 A3 32 35 29 C8 28 42 4C |457:.".".25).(BL|
00001070: 24 2C 31 32 AB C3 28 5A 24 29 29 22 05 22 5A 24 |$,12..(Z$))"."Z$|
00001080: 22 9E 22 00 A8 14 70 00 99 3A 49 B2 32 3A 43 54 |"."...p..:I.2:CT|
00001090: B2 30 3A 41 42 B2 41 AA 42 3A 8B 41 42 B2 30 A7 |.0:AB.A.B:.AB.0.|
000010A0: 49 B2 30 3A 89 31 32 37 00 BE 14 71 00 8B 28 49 |I.0:.127...q..(I|
000010B0: B1 4E 41 29 B0 28 49 B3 32 29 A7 49 B2 32 00 D7 |.NA).(I.2).I.2..|
000010C0: 14 72 00 8B 28 47 B1 32 B0 49 B1 34 29 AF 49 B3 |.r..(G.2.I.4).I.|
000010D0: 31 31 A7 49 B2 31 31 00 E6 14 73 00 8B 49 B2 47 |11.I.11...s..I.G|
000010E0: A7 49 B2 47 AA 31 00 0E 15 74 00 41 43 B2 C3 28 |.I.G.1...t.AC..(|
000010F0: 41 43 24 28 49 29 29 3A 8B 41 43 24 28 49 29 B2 |AC$(I)):.AC$(I).|
00001100: 22 5F 22 A7 49 B2 49 AA 31 3A 89 31 31 33 00 4B |"_".I.I.1:.113.K|
00001110: 15 75 00 99 22 91 22 42 4C 24 22 91 22 3A 99 C8 |.u.."."BL$".":..|
00001120: 28 42 4C 24 2C 32 30 AB 41 43 29 3B 22 12 20 22 |(BL$,20.AC);". "|
00001130: 41 43 24 28 49 29 22 20 92 20 3A 20 20 20 3E 22 |AC$(I)" . : >"|
00001140: 3B 3A 85 22 9D 9D 9D 22 3B 43 24 00 62 15 76 00 |;:."...";C$.b.v.|
00001150: 8B 43 24 B2 22 3E 22 A7 49 B2 49 AA 31 3A 89 31 |.C$.">".I.I.1:.1|
00001160: 31 33 00 8D 15 77 00 8B C8 28 43 24 2C 31 29 B2 |13...w...(C$,1).|
00001170: 22 3E 22 A7 49 B2 B5 28 C5 28 CA 28 43 24 2C 32 |">".I..(.(.(C$,2|
00001180: 29 29 29 AC 31 30 AB 39 3A 89 31 31 33 00 B3 15 |))).10.9:.113...|
00001190: 78 00 8B C8 28 43 24 2C 31 29 B2 22 3D 22 A7 49 |x...(C$,1)."=".I|
000011A0: B2 B5 28 C5 28 CA 28 43 24 2C 32 29 29 29 3A 89 |..(.(.(C$,2))):.|
000011B0: 31 31 33 00 D9 15 79 00 8B 43 24 B2 22 40 22 A7 |113...y..C$."@".|
000011C0: 52 B2 AB 31 AC 28 41 42 AA 43 54 29 3A 43 B2 A5 |R..1.(AB.CT):C..|
000011D0: 5A 28 52 29 3A 89 31 32 35 00 FB 15 7A 00 8B 43 |Z(R):.125...z..C|
000011E0: 24 B2 22 5E 22 AF 43 54 B2 30 A7 99 22 91 22 42 |$."^".CT.0.."."B|
000011F0: 4C 24 22 91 91 22 3A 89 31 30 34 00 1E 16 7B 00 |L$"..":.104...{.|
00001200: 8B 28 C5 28 43 24 29 B2 30 29 B0 28 B6 28 C5 28 |.(.(C$).0).(.(.(|
00001210: 43 24 29 29 B1 31 30 AE 36 29 A7 31 31 37 00 3D |C$)).10.6).117.=|
00001220: 16 7C 00 52 B2 C5 28 43 24 29 3A 54 4D B2 A5 5A |.|.R..(C$):TM..Z|
00001230: 28 52 29 3A 8D 31 34 38 3A 43 B2 54 4D 00 74 16 |(R):.148:C.TM.t.|
00001240: 7D 00 5A 24 B2 CA 28 C4 28 43 29 2C 32 29 3A 8D |}.Z$..(.(C),2):.|
00001250: 34 35 37 3A 99 22 91 22 A3 32 35 29 C8 28 42 4C |457:.".".25).(BL|
00001260: 24 2C 31 32 AB C3 28 5A 24 29 29 22 05 22 5A 24 |$,12..(Z$))"."Z$|
00001270: 22 9E 22 3B 00 9E 16 7E 00 8B 28 43 24 B2 22 40 |".";...~..(C$."@|
00001280: 22 AF 28 B4 28 43 29 B2 B4 28 41 42 29 29 29 B0 |".(.(C)..(AB))).|
00001290: 28 C5 28 43 24 29 B3 30 29 A7 8D 31 35 31 00 C9 |(.(C$).0)..151..|
000012A0: 16 7F 00 99 3A 99 22 11 41 43 43 45 50 54 20 41 |....:.".ACCEPT A|
000012B0: 4E 41 4C 59 53 49 53 20 3F 20 5B 12 59 92 2F 12 |NALYSIS ? [.Y./.|
000012C0: 4E 92 5D 22 3A 8D 34 34 33 00 E4 16 80 00 99 22 |N.]":.443......"|
000012D0: 91 22 42 4C 24 22 91 22 3A 8B 47 24 B2 22 59 22 |."BL$".":.G$."Y"|
000012E0: A7 31 33 32 00 00 17 81 00 8B 42 24 B2 22 50 22 |.132......B$."P"|
000012F0: AF 47 B2 31 A7 99 22 91 91 22 3B 3A 89 31 30 34 |.G.1.."..";:.104|
00001300: 00 18 17 82 00 8B 41 42 B2 30 A7 99 22 91 91 91 |......AB.0.."...|
00001310: 91 91 22 3A 89 31 30 34 00 27 17 83 00 99 22 91 |..":.104.'....".|
00001320: 22 3B 3A 89 31 31 37 00 57 17 84 00 49 24 B2 CA |";:.117.W...I$..|
00001330: 28 C4 28 49 29 2C 32 29 3A 54 41 24 B2 22 20 20 |(.(I),2):TA$." |
00001340: 22 AA 54 54 24 AA 49 24 AA C8 28 42 4C 24 2C 33 |".TT$.I$..(BL$,3|
00001350: AB C3 28 49 24 29 29 00 7D 17 85 00 52 B2 41 3A |..(I$)).}...R.A:|
00001360: 41 B2 A5 5A 28 52 29 3A 52 B2 54 52 28 47 29 AA |A..Z(R):R.TR(G).|
00001370: 41 3A 54 52 28 47 29 B2 A5 5A 28 52 29 00 A3 17 |A:TR(G)..Z(R)...|
00001380: 86 00 52 B2 42 3A 42 B2 A5 5A 28 52 29 3A 52 B2 |..R.B:B..Z(R):R.|
00001390: 54 52 28 4A 29 AA 42 3A 54 52 28 4A 29 B2 A5 5A |TR(J).B:TR(J)..Z|
000013A0: 28 52 29 00 C9 17 87 00 52 B2 43 3A 43 B2 A5 5A |(R).....R.C:C..Z|
000013B0: 28 52 29 3A 52 B2 54 52 28 49 29 AA 43 3A 54 52 |(R):R.TR(I).C:TR|
000013C0: 28 49 29 B2 A5 5A 28 52 29 00 DD 17 88 00 52 B2 |(I)..Z(R).....R.|
000013D0: 43 54 AA 43 3A 43 54 B2 A5 5A 28 52 29 00 0A 18 |CT.C:CT..Z(R)...|
000013E0: 89 00 41 24 B2 C4 28 41 29 3A 5A 24 B2 41 24 3A |..A$..(A):Z$.A$:|
000013F0: 8D 34 35 37 3A 41 24 B2 C8 28 42 4C 24 2C 31 30 |.457:A$..(BL$,10|
00001400: AB C3 28 5A 24 29 29 AA 5A 24 00 37 18 8A 00 42 |..(Z$)).Z$.7...B|
00001410: 24 B2 C4 28 42 29 3A 5A 24 B2 42 24 3A 8D 34 35 |$..(B):Z$.B$:.45|
00001420: 37 3A 42 24 B2 C8 28 42 4C 24 2C 31 30 AB C3 28 |7:B$..(BL$,10..(|
00001430: 5A 24 29 29 AA 5A 24 00 64 18 8B 00 43 24 B2 C4 |Z$)).Z$.d...C$..|
00001440: 28 43 29 3A 5A 24 B2 43 24 3A 8D 34 35 37 3A 43 |(C):Z$.C$:.457:C|
00001450: 24 B2 C8 28 42 4C 24 2C 31 30 AB C3 28 5A 24 29 |$..(BL$,10..(Z$)|
00001460: 29 AA 5A 24 00 96 18 8C 00 99 22 44 45 54 41 49 |).Z$......"DETAI|
00001470: 4C 53 3A 20 22 3B 3A 4C 49 B2 32 30 3A 8D 34 31 |LS: ";:LI.20:.41|
00001480: 39 3A 44 24 B2 49 4E 24 3A 8B 44 24 B2 22 22 A7 |9:D$.IN$:.D$."".|
00001490: 44 24 B2 22 3C 22 00 C9 18 8D 00 99 22 91 22 42 |D$."<"......"."B|
000014A0: 4C 24 22 91 22 3A 4E B2 4E AA 31 3A 54 52 24 28 |L$".":N.N.1:TR$(|
000014B0: 4E 29 B2 54 24 AA 54 52 24 AA 41 24 AA 42 24 AA |N).T$.TR$.A$.B$.|
000014C0: 43 24 AA 54 41 24 AA 44 24 00 F9 18 8E 00 52 B2 |C$.TA$.D$.....R.|
000014D0: 41 42 AA 43 54 3A 8B A5 5A 28 52 29 B3 B1 30 A7 |AB.CT:..Z(R)..0.|
000014E0: 41 B2 30 3A 42 B2 30 3A 54 52 24 B2 42 4C 24 3A |A.0:B.0:TR$.BL$:|
000014F0: 99 22 91 22 3A 89 31 31 37 00 2E 19 8F 00 99 22 |.".":.117......"|
00001500: 12 20 4F 4B 20 92 20 2E 2E 2E 20 22 3B 3A 8D 34 |. OK . ... ";:.4|
00001510: 39 37 3A 99 22 41 4E 4F 54 48 45 52 20 22 51 24 |97:."ANOTHER "Q$|
00001520: 22 20 3F 20 5B 12 59 92 2F 12 4E 92 5D 22 00 47 |" ? [.Y./.N.]".G|
00001530: 19 90 00 4B 24 B2 22 22 3A A1 4B 24 3A 8B 4B 24 |...K$."":.K$:.K$|
00001540: B2 22 22 A7 31 34 34 00 56 19 91 00 8B 4B 24 B2 |."".144.V....K$.|
00001550: 22 59 22 A7 37 37 00 5E 19 92 00 89 36 36 00 96 |"Y".77.^....66..|
00001560: 19 94 00 8B 28 47 B3 33 AF 54 4D 24 B2 22 52 22 |....(G.3.TM$."R"|
00001570: 29 B0 28 47 B2 33 AF 54 4D 24 B2 22 49 22 29 B0 |).(G.3.TM$."I").|
00001580: 28 47 B2 34 AF 54 4D 24 B2 22 43 22 29 A7 54 4D |(G.4.TM$."C").TM|
00001590: B2 AB 31 AC 54 4D 00 9C 19 95 00 8E 00 C3 19 97 |..1.TM..........|
000015A0: 00 99 22 29 22 3B 3A 81 4B B2 31 A4 C3 28 5A 24 |..")";:.K.1..(Z$|
000015B0: 29 AA 32 3A 99 22 9D 22 3B 3A 82 3A 99 22 28 22 |).2:.".";:.:."("|
000015C0: 3B 3A 8E 00 D6 19 99 00 99 3A 49 B2 31 3A 4A B2 |;:.......:I.1:J.|
000015D0: 31 3A 43 54 B2 30 00 EA 19 9A 00 8B 28 49 B1 4E |1:CT.0......(I.N|
000015E0: 41 B0 49 B3 31 29 A7 49 B2 31 00 05 1A 9B 00 8B |A.I.1).I.1......|
000015F0: 41 43 24 28 49 29 B2 22 5F 22 A7 49 B2 49 AA 31 |AC$(I)."_".I.I.1|
00001600: 3A 89 31 35 34 00 3C 1A 9C 00 99 22 91 22 42 4C |:.154.<...."."BL|
00001610: 24 22 91 22 3A 4A 24 B2 CA 28 C4 28 4A 29 2C 32 |$".":J$..(.(J),2|
00001620: 29 3A 99 4A 24 3B 3A 41 43 B2 32 33 AB C3 28 41 |):.J$;:AC.23..(A|
00001630: 43 24 28 49 29 29 AB C3 28 4A 24 29 00 78 1A 9D |C$(I))..(J$).x..|
00001640: 00 99 C8 28 42 4C 24 2C 41 43 29 3B 22 12 20 22 |...(BL$,AC);". "|
00001650: 41 43 24 28 49 29 22 20 92 22 3B 3A 85 22 20 3A |AC$(I)" .";:." :|
00001660: 20 20 20 3E 9D 9D 9D 22 3B 43 24 3A 8B 43 24 B3 | >...";C$:.C$.|
00001670: B1 22 5E 22 A7 31 36 30 00 87 1A 9E 00 8B 4A B2 |."^".160......J.|
00001680: 31 A7 54 B2 54 AB 31 00 94 1A 9F 00 8B 43 54 B2 |1.T.T.1......CT.|
00001690: 30 A7 36 36 00 AB 1A A0 00 8B 43 24 B2 22 3E 22 |0.66......C$.">"|
000016A0: A7 49 B2 49 AA 31 3A 89 31 35 34 00 D6 1A A1 00 |.I.I.1:.154.....|
000016B0: 8B C8 28 43 24 2C 31 29 B2 22 3E 22 A7 49 B2 B5 |..(C$,1).">".I..|
000016C0: 28 C5 28 CA 28 43 24 2C 32 29 29 29 AC 31 30 AB |(.(.(C$,2))).10.|
000016D0: 39 3A 89 31 35 34 00 FC 1A A2 00 8B C8 28 43 24 |9:.154.......(C$|
000016E0: 2C 31 29 B2 22 3D 22 A7 49 B2 B5 28 C5 28 CA 28 |,1)."=".I..(.(.(|
000016F0: 43 24 2C 32 29 29 29 3A 89 31 35 34 00 2E 1B A3 |C$,2))):.154....|
00001700: 00 52 B2 C5 28 43 24 29 3A 43 B2 A5 5A 28 52 29 |.R..(C$):C..Z(R)|
00001710: 3A 8B 28 43 B2 30 29 B0 28 43 B3 AB 31 30 AE 35 |:.(C.0).(C..10.5|
00001720: 29 B0 28 43 B1 31 30 AE 35 29 A7 31 35 36 00 67 |).(C.10.5).156.g|
00001730: 1B A4 00 5A 24 B2 C4 28 43 29 3A 8D 34 35 37 3A |...Z$..(C):.457:|
00001740: 43 24 B2 C8 28 42 4C 24 2C 31 30 AB C3 28 5A 24 |C$..(BL$,10..(Z$|
00001750: 29 29 AA 5A 24 3A 99 22 91 22 A3 32 38 29 22 05 |)).Z$:.".".28)".|
00001760: 22 43 24 22 9E 22 3B 00 80 1B A5 00 8B 43 B3 30 |"C$".";......C.0|
00001770: A7 5A 24 B2 CA 28 5A 24 2C 32 29 3A 8D 31 35 31 |.Z$..(Z$,2):.151|
00001780: 00 AD 1B A6 00 49 24 B2 CA 28 C4 28 49 29 2C 32 |.....I$..(.(I),2|
00001790: 29 3A 54 41 24 B2 22 20 20 4A 22 AA 49 24 AA C8 |):TA$." J".I$..|
000017A0: 28 42 4C 24 2C 33 AB C3 28 49 24 29 29 00 D7 1B |(BL$,3..(I$))...|
000017B0: A7 00 52 B2 43 54 AA 43 3A 43 54 B2 A5 5A 28 52 |..R.CT.C:CT..Z(R|
000017C0: 29 3A 52 B2 54 52 28 49 29 AA 43 3A 54 52 28 49 |):R.TR(I).C:TR(I|
000017D0: 29 B2 A5 5A 28 52 29 00 0C 1C A8 00 99 3A 99 22 |)..Z(R)......:."|
000017E0: 11 44 45 54 41 49 4C 53 3A 20 22 3B 3A 4C 49 B2 |.DETAILS: ";:LI.|
000017F0: 32 30 3A 8D 34 31 39 3A 44 24 B2 49 4E 24 3A 8B |20:.419:D$.IN$:.|
00001800: 44 24 B2 22 22 A7 44 24 B2 22 3C 22 00 4C 1C A9 |D$."".D$."<".L..|
00001810: 00 99 22 91 22 42 4C 24 22 91 22 3A 4E B2 4E AA |.."."BL$".":N.N.|
00001820: 31 3A 54 52 24 28 4E 29 B2 54 24 AA 44 41 24 AA |1:TR$(N).T$.DA$.|
00001830: 22 20 4A 4F 55 52 4E 41 4C 20 20 20 20 22 AA 42 |" JOURNAL ".B|
00001840: 4C 24 AA 43 24 AA 54 41 24 AA 44 24 00 87 1C AA |L$.C$.TA$.D$....|
00001850: 00 8B 43 54 B3 B1 30 A7 5A 24 B2 C4 28 AB 31 AC |..CT..0.Z$..(.1.|
00001860: 43 54 29 3A 8D 34 35 37 3A 99 22 11 42 41 4C 41 |CT):.457:.".BALA|
00001870: 4E 43 45 3A 20 22 5A 24 22 91 91 22 3A 4A B2 4A |NCE: "Z$"..":J.J|
00001880: AA 31 3A 89 31 35 36 00 BE 1C AB 00 99 22 45 4E |.1:.156......"EN|
00001890: 54 52 49 45 53 20 4E 4F 57 20 42 41 4C 41 4E 43 |TRIES NOW BALANC|
000018A0: 45 20 2D 20 43 4F 4E 54 49 4E 55 45 20 3F 20 5B |E - CONTINUE ? [|
000018B0: 12 59 92 2F 12 4E 92 5D 22 3A 8D 34 34 33 00 E0 |.Y./.N.]":.443..|
000018C0: 1C AC 00 8B 47 24 B2 22 59 22 A7 4A B2 4A AA 31 |....G$."Y".J.J.1|
000018D0: 3A 99 22 91 22 42 4C 24 22 91 22 3A 89 31 35 36 |:."."BL$".":.156|
000018E0: 00 E8 1C AD 00 89 36 36 00 12 1D AF 00 47 46 B2 |......66.....GF.|
000018F0: 31 3A 8D 34 34 39 3A 99 22 12 20 54 52 41 4E 53 |1:.449:.". TRANS|
00001900: 41 43 54 49 4F 4E 20 46 49 4C 45 20 92 20 20 22 |ACTION FILE . "|
00001910: 46 24 00 38 1D B0 00 99 22 11 11 41 4E 41 4C 59 |F$.8...."..ANALY|
00001920: 53 49 53 20 20 3A 20 20 12 56 92 49 45 57 20 45 |SIS : .V.IEW E|
00001930: 4E 54 52 49 45 53 11 22 00 60 1D B1 00 99 A3 31 |NTRIES.".`.....1|
00001940: 30 29 22 3A 20 20 12 53 92 55 4D 4D 41 52 49 53 |0)": .S.UMMARIS|
00001950: 45 20 4F 52 20 12 49 92 54 45 4D 49 53 45 11 22 |E OR .I.TEMISE."|
00001960: 00 8F 1D B2 00 99 22 50 52 49 4E 54 4F 55 54 20 |......"PRINTOUT |
00001970: 20 3A 20 20 12 46 92 55 4C 4C 20 54 52 41 4E 53 | : .F.ULL TRANS|
00001980: 41 43 54 49 4F 4E 20 52 45 50 4F 52 54 11 22 00 |ACTION REPORT.".|
00001990: B8 1D B3 00 99 A3 31 30 29 22 3A 20 20 12 43 92 |......10)": .C.|
000019A0: 4F 4E 54 52 4F 4C 20 41 43 43 4F 55 4E 54 53 20 |ONTROL ACCOUNTS |
000019B0: 52 45 50 4F 52 54 11 22 00 E2 1D B4 00 99 A3 31 |REPORT.".......1|
000019C0: 30 29 22 3A 20 20 12 50 92 4F 53 54 49 4E 47 20 |0)": .P.OSTING |
000019D0: 44 45 54 41 49 4C 53 11 22 3A 8B 46 B2 31 A7 31 |DETAILS.":.F.1.1|
000019E0: 38 32 00 0A 1E B5 00 99 22 55 50 44 41 54 45 20 |82......"UPDATE |
000019F0: 20 20 20 3A 20 20 12 41 92 43 43 4F 55 4E 54 20 | : .A.CCOUNT |
00001A00: 42 41 4C 41 4E 43 45 53 11 22 00 2F 1E B6 00 99 |BALANCES."./....|
00001A10: 22 53 41 56 45 20 54 4F 20 20 20 3A 20 20 12 44 |"SAVE TO : .D|
00001A20: 92 49 53 4B 20 4F 52 20 12 54 92 41 50 45 22 00 |.ISK OR .T.APE".|
00001A30: 48 1E B7 00 8D 35 30 35 3A 8D 34 34 35 3A 8B 47 |H....505:.445:.G|
00001A40: 24 B2 43 52 24 A7 35 31 00 73 1E B8 00 81 47 B2 |$.CR$.51.s....G.|
00001A50: 47 46 A4 39 3A 8B 47 24 B3 B1 CA 28 22 46 43 50 |GF.9:.G$...("FCP|
00001A60: 53 49 41 56 44 54 22 2C 47 2C 31 29 A7 82 3A 89 |SIAVDT",G,1)..:.|
00001A70: 31 38 33 00 8D 1E B9 00 8B 47 B3 37 AF 46 24 B2 |183......G.7.F$.|
00001A80: 22 22 A7 4B 24 B2 22 22 3A 8D 32 35 35 00 9E 1E |"".K$."":.255...|
00001A90: BA 00 8B 47 B2 36 AF 46 B2 31 A7 31 38 33 00 B1 |...G.6.F.1.183..|
00001AA0: 1E BB 00 8B 47 B3 34 A7 44 56 B2 34 3A 8D 34 36 |....G.4.DV.4:.46|
00001AB0: 38 00 DC 1E BC 00 91 47 89 31 39 30 2C 32 30 33 |8......G.190,203|
00001AC0: 2C 31 39 36 2C 32 31 32 2C 32 37 39 2C 32 32 33 |,196,212,279,223|
00001AD0: 2C 32 33 35 2C 32 36 30 2C 32 36 30 00 04 1F BE |,235,260,260....|
00001AE0: 00 8D 34 34 39 3A 99 22 12 20 50 52 4F 43 45 53 |..449:.". PROCES|
00001AF0: 53 20 52 45 50 4F 52 54 20 92 20 20 22 46 24 3A |S REPORT . "F$:|
00001B00: 8D 34 37 34 00 29 1F BF 00 8D 33 36 32 3A 8D 34 |.474.)....362:.4|
00001B10: 35 33 3A 99 22 54 52 41 4E 53 41 43 54 49 4F 4E |53:."TRANSACTION|
00001B20: 20 52 45 50 4F 52 54 22 3B 00 5B 1F C0 00 99 A6 | REPORT";.[.....|
00001B30: 31 36 29 3B 22 46 4F 4C 49 4F 22 3B A6 39 29 3B |16);"FOLIO";.9);|
00001B40: 22 54 4F 54 41 4C 22 3B A6 37 29 3B 22 56 41 54 |"TOTAL";.7);"VAT|
00001B50: 22 3B A6 37 29 3B 22 4E 45 54 22 00 7D 1F C1 00 |";.7);"NET".}...|
00001B60: 8D 34 35 34 3A 99 3A 81 49 B2 31 A4 4E 3A 99 C8 |.454:.:.I.1.N:..|
00001B70: 28 54 52 24 28 49 29 2C 37 39 29 3A 82 00 93 1F |(TR$(I),79):....|
00001B80: C2 00 99 3A 8D 34 35 34 3A 98 34 3A A0 34 3A 89 |...:.454:.4:.4:.|
00001B90: 31 37 35 00 BC 1F C4 00 8D 34 34 39 3A 99 22 12 |175......449:.".|
00001BA0: 20 50 4F 53 54 49 4E 47 20 44 45 54 41 49 4C 53 | POSTING DETAILS|
00001BB0: 20 92 20 20 22 46 24 3A 8D 34 37 34 00 EA 1F C5 | . "F$:.474....|
00001BC0: 00 8D 33 36 32 3A 8D 34 35 33 3A 99 22 54 52 4E |..362:.453:."TRN|
00001BD0: 20 20 20 20 20 20 20 41 4D 4F 55 4E 54 20 20 20 | AMOUNT |
00001BE0: 20 44 45 54 41 49 4C 53 22 3B 00 0D 20 C6 00 99 | DETAILS";.. ...|
00001BF0: A6 31 38 29 3B 22 50 4F 53 54 49 4E 47 53 22 3A |.18);"POSTINGS":|
00001C00: 8D 34 35 34 3A 99 3A 81 49 B2 31 A4 4E 00 48 20 |.454:.:.I.1.N.H |
00001C10: C7 00 99 C8 28 54 52 24 28 49 29 2C 34 29 3B 22 |....(TR$(I),4);"|
00001C20: 20 20 22 3B CA 28 54 52 24 28 49 29 2C 36 34 2C | ";.(TR$(I),64,|
00001C30: 31 30 29 3B 22 20 20 20 20 22 3B CA 28 54 52 24 |10);" ";.(TR$|
00001C40: 28 49 29 2C 38 30 29 3B 00 74 20 C8 00 4B B2 C3 |(I),80);.t ..K..|
00001C50: 28 CA 28 54 52 24 28 49 29 2C 38 30 29 29 3A 99 |(.(TR$(I),80)):.|
00001C60: C8 28 42 4C 24 2C 32 30 AB 4B 29 3B 22 20 20 3A |.(BL$,20.K);" :|
00001C70: 20 20 22 3B 00 A3 20 C9 00 4A B2 C5 28 CA 28 54 | ";.. ..J..(.(T|
00001C80: 52 24 28 49 29 2C 37 37 2C 33 29 29 3A 99 41 43 |R$(I),77,3)):.AC|
00001C90: 24 28 4A 29 3B 22 20 41 2F 43 22 3A 82 49 3A 89 |$(J);" A/C":.I:.|
00001CA0: 31 39 34 00 CB 20 CB 00 8D 34 34 39 3A 99 22 12 |194.. ...449:.".|
00001CB0: 20 43 4F 4E 54 52 4F 4C 20 52 45 50 4F 52 54 20 | CONTROL REPORT |
00001CC0: 92 20 20 22 46 24 3A 8D 34 37 34 00 F1 20 CC 00 |. "F$:.474.. ..|
00001CD0: 8D 33 36 32 3A 8D 34 35 33 3A 99 22 43 4F 4E 54 |.362:.453:."CONT|
00001CE0: 52 4F 4C 20 41 2F 43 53 20 52 45 50 4F 52 54 22 |ROL A/CS REPORT"|
00001CF0: 3B 00 1A 21 CD 00 99 A6 31 35 29 3B 22 46 4F 4C |;..!....15);"FOL|
00001D00: 49 4F 22 3B A6 39 29 3B 22 54 4F 54 41 4C 22 3B |IO";.9);"TOTAL";|
00001D10: A6 39 29 3B 22 54 59 50 45 22 00 46 21 CE 00 8D |.9);"TYPE".F!...|
00001D20: 34 35 34 3A 99 3A 81 49 B2 31 A4 4E 3A 8B C5 28 |454:.:.I.1.N:..(|
00001D30: CA 28 54 52 24 28 49 29 2C 34 34 2C 31 30 29 29 |.(TR$(I),44,10))|
00001D40: B2 30 A7 32 31 30 00 65 21 CF 00 99 C8 28 54 52 |.0.210.e!....(TR|
00001D50: 24 28 49 29 2C 35 33 29 3B 22 20 20 20 20 3A 20 |$(I),53);" : |
00001D60: 20 20 20 22 3B 00 93 21 D0 00 8C 3A 81 4A B2 31 | ";..!...:.J.1|
00001D70: A4 35 3A 87 41 43 24 3A 8B CA 28 54 52 24 28 49 |.5:.AC$:..(TR$(I|
00001D80: 29 2C 37 36 2C 31 29 B3 B1 C8 28 41 43 24 2C 31 |),76,1)...(AC$,1|
00001D90: 29 A7 82 00 A0 21 D1 00 99 41 43 24 3A 4A B2 35 |)....!...AC$:J.5|
00001DA0: 00 AC 21 D2 00 82 49 3A 89 31 39 34 00 DC 21 D4 |..!...I:.194..!.|
00001DB0: 00 8D 34 34 39 3A 4B 24 B2 22 12 20 41 4E 41 4C |..449:K$.". ANAL|
00001DC0: 59 53 49 53 20 53 55 4D 4D 41 52 59 20 92 20 20 |YSIS SUMMARY . |
00001DD0: 22 AA 46 24 3A 99 4B 24 22 11 11 22 00 F0 21 D5 |".F$:.K$".."..!.|
00001DE0: 00 8D 34 36 33 3A 8B 44 56 B2 34 A7 8D 34 35 35 |..463:.DV.4..455|
00001DF0: 00 08 22 D6 00 8D 34 34 39 3A 99 4B 24 3A 8B 44 |.."...449:.K$:.D|
00001E00: 56 B2 34 A7 8D 34 37 34 00 35 22 D7 00 8D 33 36 |V.4..474.5"...36|
00001E10: 32 3A 8B 44 56 B2 34 A7 8D 34 35 32 3A 99 22 41 |2:.DV.4..452:."A|
00001E20: 4E 41 4C 59 53 49 53 20 53 55 4D 4D 41 52 59 22 |NALYSIS SUMMARY"|
00001E30: 3A 8D 34 35 35 00 50 22 D8 00 99 3A 81 49 B2 31 |:.455.P"...:.I.1|
00001E40: A4 4E 41 3A 8B 54 52 28 49 29 B2 30 A7 32 31 39 |.NA:.TR(I).0.219|
00001E50: 00 71 22 D9 00 99 41 43 24 28 49 29 3B C8 28 42 |.q"...AC$(I);.(B|
00001E60: 4C 24 2C 32 36 AB C3 28 41 43 24 28 49 29 29 29 |L$,26..(AC$(I)))|
00001E70: 3B 00 A0 22 DA 00 5A 24 B2 C4 28 54 52 28 49 29 |;.."..Z$..(TR(I)|
00001E80: 29 3A 8D 34 35 37 3A 99 C8 28 42 4C 24 2C 31 31 |):.457:..(BL$,11|
00001E90: AB C3 28 5A 24 29 29 3B 22 05 22 5A 24 22 9E 22 |..(Z$));"."Z$"."|
00001EA0: 00 B4 22 DB 00 82 49 3A 99 3A 8B 44 56 B2 34 A7 |.."...I:.:.DV.4.|
00001EB0: 8D 34 35 35 00 C8 22 DC 00 98 34 3A A0 34 3A 8B |.455.."...4:.4:.|
00001EC0: 44 56 B2 34 A7 31 37 35 00 D1 22 DD 00 89 35 30 |DV.4.175.."...50|
00001ED0: 30 00 F9 22 DF 00 8D 34 34 39 3A 99 22 12 20 22 |0.."...449:.". "|
00001EE0: 46 24 22 20 92 20 20 41 43 43 4F 55 4E 54 53 20 |F$" . ACCOUNTS |
00001EF0: 55 50 44 41 54 45 11 11 22 00 28 23 E0 00 99 22 |UPDATE..".(#..."|
00001F00: 54 52 41 4E 53 41 43 54 49 4F 4E 20 46 49 4C 45 |TRANSACTION FILE|
00001F10: 20 44 45 54 41 49 4C 53 20 57 49 4C 4C 20 42 45 | DETAILS WILL BE|
00001F20: 20 57 49 50 45 44 11 22 00 59 23 E1 00 99 22 41 | WIPED.".Y#..."A|
00001F30: 46 54 45 52 20 12 20 55 50 44 41 54 49 4E 47 20 |FTER . UPDATING |
00001F40: 92 20 54 48 45 20 41 43 43 4F 55 4E 54 20 42 41 |. THE ACCOUNT BA|
00001F50: 4C 41 4E 43 45 53 2E 11 22 00 7D 23 E2 00 8B 46 |LANCES..".}#...F|
00001F60: B2 30 AF 50 44 B2 30 A7 47 46 B2 38 3A 99 22 11 |.0.PD.0.GF.8:.".|
00001F70: 46 49 52 53 54 20 22 3B 3A 89 31 38 32 00 B9 23 |FIRST ";:.182..#|
00001F80: E3 00 99 22 11 22 4C 4E 24 3A 99 22 45 4E 53 55 |..."."LN$:."ENSU|
00001F90: 52 45 20 54 48 45 20 52 45 4C 45 56 41 4E 54 20 |RE THE RELEVANT |
00001FA0: 52 45 50 4F 52 54 53 20 41 52 45 20 50 52 49 4E |REPORTS ARE PRIN|
00001FB0: 54 45 44 22 3A 99 4C 4E 24 00 F4 23 E4 00 99 22 |TED":.LN$..#..."|
00001FC0: 11 11 55 50 44 41 54 45 20 46 49 4C 45 20 3F 20 |..UPDATE FILE ? |
00001FD0: 5B 12 59 92 2F 12 4E 92 5D 22 3A 8D 34 34 33 3A |[.Y./.N.]":.443:|
00001FE0: 99 22 91 22 42 4C 24 3A 8B 47 24 B3 B1 22 59 22 |."."BL$:.G$.."Y"|
00001FF0: A7 31 37 35 00 27 24 E5 00 99 22 91 12 20 4F 4B |.175.'$...".. OK|
00002000: 20 92 22 3A 81 49 B2 31 A4 4E 41 3A 52 B2 41 43 | .":.I.1.NA:R.AC|
00002010: 28 49 29 AA 54 52 28 49 29 3A 41 43 28 49 29 B2 |(I).TR(I):AC(I).|
00002020: A5 5A 28 52 29 3A 82 00 46 24 E6 00 8D 32 33 32 |.Z(R):..F$...232|
00002030: 3A 46 B2 31 3A 55 44 B2 31 3A 55 44 24 B2 44 41 |:F.1:UD.1:UD$.DA|
00002040: 24 3A 89 33 30 34 00 7F 24 E8 00 46 24 B2 22 22 |$:.304..$..F$.""|
00002050: 3A 81 49 B2 31 A4 4E 3A 54 52 24 28 49 29 B2 22 |:.I.1.N:TR$(I)."|
00002060: 22 3A 82 3A 81 49 B2 31 A4 4E 41 3A 54 52 28 49 |":.:.I.1.NA:TR(I|
00002070: 29 B2 30 3A 82 3A 4E B2 30 3A 54 B2 30 3A 8E 00 |).0:.:N.0:T.0:..|
00002080: B4 24 EA 00 99 22 11 54 52 41 4E 53 41 43 54 49 |.$...".TRANSACTI|
00002090: 4F 4E 53 20 4F 4E 20 46 49 4C 45 20 3D 20 22 C8 |ONS ON FILE = ".|
000020A0: 28 54 52 24 28 4E 29 2C 34 29 22 91 91 91 22 3A |(TR$(N),4)"...":|
000020B0: 89 32 33 36 00 E6 24 EB 00 8D 34 34 39 3A 4B 24 |.236..$...449:K$|
000020C0: B2 22 12 20 56 49 45 57 20 54 52 41 4E 53 41 43 |.". VIEW TRANSAC|
000020D0: 54 49 4F 4E 53 20 92 20 20 22 AA 46 24 AA 22 11 |TIONS . ".F$.".|
000020E0: 11 22 3A 99 4B 24 00 22 25 EC 00 99 22 53 54 41 |.":.K$."%..."STA|
000020F0: 52 54 20 56 49 45 57 20 46 52 4F 4D 20 12 20 4E |RT VIEW FROM . N|
00002100: 55 4D 42 45 52 20 92 20 3A 20 22 3B 3A 4C 49 B2 |UMBER . : ";:LI.|
00002110: 33 3A 8D 34 31 39 3A 8B 49 4E 24 B2 22 22 A7 31 |3:.419:.IN$."".1|
00002120: 37 35 00 55 25 ED 00 4B B2 B5 28 C5 28 49 4E 24 |75.U%..K..(.(IN$|
00002130: 29 29 3A 81 49 B2 31 A4 4E 3A 8B 28 C5 28 C8 28 |)):.I.1.N:.(.(.(|
00002140: 54 52 24 28 49 29 2C 34 29 29 B3 B1 4B 29 A7 82 |TR$(I),4))..K)..|
00002150: 3A 89 32 33 34 00 62 25 EE 00 8D 34 34 39 3A 99 |:.234.b%...449:.|
00002160: 4B 24 00 8E 25 EF 00 8C 3A 81 4A B2 31 A4 35 3A |K$..%...:.J.1.5:|
00002170: 87 51 24 3A 8B C8 28 51 24 2C 31 29 B3 B1 CA 28 |.Q$:..(Q$,1)...(|
00002180: 54 52 24 28 49 29 2C 37 36 2C 31 29 A7 82 00 B3 |TR$(I),76,1)....|
00002190: 25 F0 00 99 22 20 20 12 20 4E 55 4D 42 45 52 20 |%..." . NUMBER |
000021A0: 92 20 20 05 22 C8 28 54 52 24 28 49 29 2C 34 29 |. .".(TR$(I),4)|
000021B0: 22 9E 22 00 DA 25 F1 00 99 22 20 20 12 20 44 41 |"."..%..." . DA|
000021C0: 54 45 20 20 20 92 20 20 05 22 CA 28 54 52 24 28 |TE . .".(TR$(|
000021D0: 49 29 2C 35 2C 38 29 22 9E 22 00 03 26 F2 00 99 |I),5,8)"."..&...|
000021E0: 22 20 20 12 20 4E 41 4D 45 20 20 20 92 20 20 05 |" . NAME . .|
000021F0: 22 CA 28 54 52 24 28 49 29 2C 31 34 2C 32 30 29 |".(TR$(I),14,20)|
00002200: 22 9E 22 00 28 26 F3 00 8B CA 28 54 52 24 28 49 |".".(&....(TR$(I|
00002210: 29 2C 31 34 2C 37 29 B2 22 4A 4F 55 52 4E 41 4C |),14,7)."JOURNAL|
00002220: 22 A7 99 3A 89 32 34 37 00 52 26 F4 00 99 22 20 |"..:.247.R&..." |
00002230: 20 12 20 46 4F 4C 49 4F 20 20 92 20 20 05 22 CA | . FOLIO . .".|
00002240: 28 54 52 24 28 49 29 2C 33 35 2C 38 29 22 9E 22 |(TR$(I),35,8)"."|
00002250: 3A 99 00 77 26 F5 00 99 22 05 22 CA 28 54 52 24 |:..w&...".".(TR$|
00002260: 28 49 29 2C 34 34 2C 31 30 29 22 9E 20 20 12 20 |(I),44,10)". . |
00002270: 22 51 24 22 20 92 22 00 9B 26 F6 00 99 22 05 22 |"Q$" ."..&..."."|
00002280: CA 28 54 52 24 28 49 29 2C 35 34 2C 31 30 29 22 |.(TR$(I),54,10)"|
00002290: 9E 20 20 12 20 56 41 54 20 92 22 00 D4 26 F7 00 |. . VAT ."..&..|
000022A0: 99 22 05 22 CA 28 54 52 24 28 49 29 2C 36 34 2C |.".".(TR$(I),64,|
000022B0: 31 30 29 22 9E 20 20 12 20 22 41 43 24 28 C5 28 |10)". . "AC$(.(|
000022C0: CA 28 54 52 24 28 49 29 2C 37 37 2C 33 29 29 29 |.(TR$(I),77,3)))|
000022D0: 22 20 92 22 00 FC 26 F8 00 8B 49 B3 4E A7 8B C5 |" ."..&...I.N...|
000022E0: 28 C8 28 54 52 24 28 49 AA 31 29 2C 34 29 29 B2 |(.(TR$(I.1),4)).|
000022F0: 4B A7 49 B2 49 AA 31 3A 89 32 34 37 00 09 27 F9 |K.I.I.1:.247..'.|
00002300: 00 8B 49 B2 4E A7 35 30 30 00 44 27 FA 00 99 22 |..I.N.500.D'..."|
00002310: 11 11 22 43 44 24 C8 28 4C 4E 24 2C 32 34 29 3A |.."CD$.(LN$,24):|
00002320: 99 22 56 49 45 57 20 4E 45 58 54 20 52 45 43 4F |."VIEW NEXT RECO|
00002330: 52 44 20 3F 20 5B 12 59 92 2F 12 4E 92 5D 22 3A |RD ? [.Y./.N.]":|
00002340: 8D 34 34 33 00 65 27 FB 00 8B 47 24 B2 22 59 22 |.443.e'...G$."Y"|
00002350: AF 49 B3 4E A7 49 B2 49 AA 31 3A 4B B2 4B AA 31 |.I.N.I.I.1:K.K.1|
00002360: 3A 89 32 33 38 00 6E 27 FC 00 89 31 37 35 00 8D |:.238.n'...175..|
00002370: 27 FE 00 4B 24 B2 22 20 4C 4F 41 44 22 3A 8B 47 |'..K$." LOAD":.G|
00002380: B1 37 A7 4B 24 B2 22 20 53 41 56 45 22 00 BE 27 |.7.K$." SAVE"..'|
00002390: FF 00 8D 34 34 39 3A 99 22 12 22 4B 24 22 20 54 |...449:."."K$" T|
000023A0: 52 41 4E 53 41 43 54 49 4F 4E 20 46 49 4C 45 20 |RANSACTION FILE |
000023B0: 92 11 11 22 3A 8B 46 24 B3 B1 22 22 A7 8E 00 F3 |...":.F$..""....|
000023C0: 27 00 01 99 22 45 4E 54 45 52 20 46 49 4C 45 20 |'..."ENTER FILE |
000023D0: 12 20 4E 41 4D 45 20 92 20 3A 20 22 3B 3A 4C 49 |. NAME . : ";:LI|
000023E0: B2 31 34 3A 8D 34 31 39 3A 8B 49 4E 24 B2 22 22 |.14:.419:.IN$.""|
000023F0: A7 35 31 00 0E 28 01 01 46 24 B2 49 4E 24 3A 8B |.51..(..F$.IN$:.|
00002400: 50 44 24 B2 22 22 A7 50 44 24 B2 44 41 24 00 14 |PD$."".PD$.DA$..|
00002410: 28 02 01 8E 00 36 28 04 01 8D 32 35 34 3A 8B 47 |(....6(...254:.G|
00002420: B2 39 A7 9F 31 2C 31 2C 31 2C 46 24 AA 22 2E 54 |.9..1,1,1,F$.".T|
00002430: 22 3A 89 32 36 32 00 6D 28 05 01 8D 35 32 31 3A |":.262.m(...521:|
00002440: 9F 31 2C 38 2C 31 2C 22 30 3A 22 AA 46 24 AA 22 |.1,8,1,"0:".F$."|
00002450: 2E 54 2C 53 2C 57 22 3A 8D 35 31 37 3A 8B 45 B1 |.T,S,W":.517:.E.|
00002460: 31 38 A7 46 24 B2 22 22 3A 89 32 36 30 00 A2 28 |18.F$."":.260..(|
00002470: 06 01 99 22 13 11 11 11 11 11 22 42 4C 24 3A 99 |..."......"BL$:.|
00002480: 22 91 53 41 56 49 4E 47 20 46 49 4C 45 20 12 20 |".SAVING FILE . |
00002490: 22 46 24 22 20 92 22 3A 8B 50 44 B2 30 A7 50 44 |"F$" .":.PD.0.PD|
000024A0: B2 31 00 D8 28 07 01 98 31 2C 50 44 24 3B 43 52 |.1..(...1,PD$;CR|
000024B0: 24 3B 3A 98 31 2C 4E 3B 43 52 24 3B 3A 81 4B B2 |$;:.1,N;CR$;:.K.|
000024C0: 31 A4 4E 3A 98 31 2C C8 28 54 52 24 28 4B 29 2C |1.N:.1,.(TR$(K),|
000024D0: 37 39 29 3B 43 52 24 3B 00 07 29 08 01 98 31 2C |79);CR$;..)...1,|
000024E0: CA 28 54 52 24 28 4B 29 2C 38 30 29 3B 43 52 24 |.(TR$(K),80);CR$|
000024F0: 3B 3A 82 4B 3A 98 31 2C 4E 41 3B 43 52 24 3B 3A |;:.K:.1,NA;CR$;:|
00002500: 81 4B B2 31 A4 4E 41 00 28 29 09 01 98 31 2C 54 |.K.1.NA.()...1,T|
00002510: 52 28 4B 29 3B 43 52 24 3B 3A 82 4B 3A A0 31 3A |R(K);CR$;:.K:.1:|
00002520: A0 31 35 3A 89 31 37 35 00 50 29 0B 01 8D 32 33 |.15:.175.P)...23|
00002530: 32 3A 8D 34 34 39 3A 99 22 12 20 54 52 41 4E 53 |2:.449:.". TRANS|
00002540: 41 43 54 49 4F 4E 20 46 49 4C 45 20 92 11 11 22 |ACTION FILE ..."|
00002550: 00 75 29 0C 01 99 22 4C 4F 41 44 20 46 52 4F 4D |.u)..."LOAD FROM|
00002560: 20 3A 20 20 12 44 92 49 53 4B 20 4F 52 20 12 54 | : .D.ISK OR .T|
00002570: 92 41 50 45 22 00 89 29 0D 01 8D 34 34 35 3A 8B |.APE"..)...445:.|
00002580: 47 24 B2 43 52 24 A7 35 31 00 AC 29 0E 01 81 47 |G$.CR$.51..)...G|
00002590: B2 31 A4 32 3A 8B 47 24 B3 B1 CA 28 22 44 54 22 |.1.2:.G$...("DT"|
000025A0: 2C 47 2C 31 29 A7 82 3A 89 32 36 39 00 D3 29 0F |,G,1)..:.269..).|
000025B0: 01 8D 32 35 34 3A 8B 47 B2 32 A7 8D 34 34 39 3A |..254:.G.2..449:|
000025C0: 9F 31 2C 31 2C 30 2C 46 24 AA 22 2E 54 22 3A 89 |.1,1,0,F$.".T":.|
000025D0: 32 37 33 00 FD 29 10 01 9F 31 2C 38 2C 30 2C 22 |273..)...1,8,0,"|
000025E0: 30 3A 22 AA 46 24 AA 22 2E 54 2C 53 2C 52 22 3A |0:".F$.".T,S,R":|
000025F0: 8D 35 31 37 3A 8B 45 B1 31 38 A7 35 31 00 29 2A |.517:.E.18.51.)*|
00002600: 11 01 99 22 13 11 11 11 11 11 22 42 4C 24 3A 99 |..."......"BL$:.|
00002610: 22 91 12 20 22 46 24 22 20 92 20 46 49 4C 45 20 |".. "F$" . FILE |
00002620: 4C 4F 41 44 49 4E 47 22 3B 00 5C 2A 12 01 84 31 |LOADING";.\*...1|
00002630: 2C 50 44 24 3A 84 31 2C 4E 3A 81 4B B2 31 A4 4E |,PD$:.1,N:.K.1.N|
00002640: 3A 84 31 2C 58 24 3A 84 31 2C 59 24 3A 54 52 24 |:.1,X$:.1,Y$:TR$|
00002650: 28 4B 29 B2 58 24 AA 59 24 3A 82 4B 00 81 2A 13 |(K).X$.Y$:.K..*.|
00002660: 01 84 31 2C 4E 41 3A 81 4B B2 31 A4 4E 41 3A 84 |..1,NA:.K.1.NA:.|
00002670: 31 2C 54 52 28 4B 29 3A 82 4B 3A A0 31 3A A0 31 |1,TR(K):.K:.1:.1|
00002680: 35 00 AF 2A 14 01 99 22 9D 9D 9D 45 44 20 22 3A |5..*..."...ED ":|
00002690: 99 22 11 11 50 52 4F 43 45 53 53 20 52 45 50 4F |."..PROCESS REPO|
000026A0: 52 54 20 44 41 54 45 20 3A 20 22 3B 50 44 24 00 |RT DATE : ";PD$.|
000026B0: E8 2A 15 01 99 22 11 4E 4F 3A 20 4F 46 20 54 52 |.*...".NO: OF TR|
000026C0: 41 4E 53 41 43 54 49 4F 4E 53 20 3A 20 22 3B C8 |ANSACTIONS : ";.|
000026D0: 28 54 52 24 28 4E 29 2C 34 29 3B 22 11 11 22 3A |(TR$(N),4);"..":|
000026E0: 46 B2 31 3A 89 35 30 30 00 FA 2A 17 01 4A 4A B2 |F.1:.500..*..JJ.|
000026F0: 30 3A 49 B2 30 3A 43 54 B2 30 00 18 2B 18 01 4A |0:I.0:CT.0..+..J|
00002700: B2 4A 4A AA 31 3A 4A 4A B2 4A AA 31 34 3A 8B 49 |.JJ.1:JJ.J.14:.I|
00002710: B1 B2 4E 41 A7 31 37 35 00 40 2B 19 01 8D 34 34 |..NA.175.@+...44|
00002720: 39 3A 99 22 12 20 41 4E 41 4C 59 53 49 53 20 42 |9:.". ANALYSIS B|
00002730: 59 20 41 43 43 4F 55 4E 54 20 92 20 20 22 46 24 |Y ACCOUNT . "F$|
00002740: 00 63 2B 1A 01 99 22 13 11 11 11 11 22 3A 81 4B |.c+...".....":.K|
00002750: B2 4A A4 4A 4A 3A 4B 24 B2 C4 28 4B 29 3A 49 B2 |.J.JJ:K$..(K):I.|
00002760: 49 AA 31 00 92 2B 1B 01 8B 54 52 28 49 29 B3 B1 |I.1..+...TR(I)..|
00002770: 30 A7 99 4B 24 C8 28 42 4C 24 2C 35 AB C3 28 4B |0..K$.(BL$,5..(K|
00002780: 24 29 29 3B 41 43 24 28 49 29 3A 82 4B 3A 89 32 |$));AC$(I):.K:.2|
00002790: 38 35 00 A7 2B 1C 01 8B 49 B3 4E 41 A7 49 B2 49 |85..+...I.NA.I.I|
000027A0: AA 31 3A 89 32 38 33 00 DE 2B 1D 01 99 43 44 24 |.1:.283..+...CD$|
000027B0: 4C 4E 24 3A 99 22 53 45 4C 45 43 54 20 12 4E 4F |LN$:."SELECT .NO|
000027C0: 3A 92 20 4F 52 20 12 43 92 4F 4E 54 49 4E 55 45 |:. OR .C.ONTINUE|
000027D0: 3A 20 22 3B 3A 4C 49 B2 32 3A 8D 34 31 39 00 EE |: ";:LI.2:.419..|
000027E0: 2B 1E 01 8B 49 4E 24 B2 22 22 A7 31 37 35 00 FF |+...IN$."".175..|
000027F0: 2B 1F 01 8B 49 4E 24 B2 22 43 22 A7 32 38 30 00 |+...IN$."C".280.|
00002800: 21 2C 20 01 49 4E 25 B2 C5 28 49 4E 24 29 3A 8B |!, .IN%..(IN$):.|
00002810: 49 4E 25 B3 4A B0 49 4E 25 B1 4B AB 31 A7 32 38 |IN%.J.IN%.K.1.28|
00002820: 35 00 3A 2C 21 01 49 B2 30 3A 4A B2 30 3A 4B B2 |5.:,!.I.0:J.0:K.|
00002830: 30 3A 81 4B B2 31 A4 49 4E 25 00 51 2C 22 01 49 |0:.K.1.IN%.Q,".I|
00002840: B2 49 AA 31 3A 8B 54 52 28 49 29 B2 30 A7 32 39 |.I.1:.TR(I).0.29|
00002850: 30 00 62 2C 23 01 82 4B 3A 99 43 44 24 3A 8D 34 |0.b,#..K:.CD$:.4|
00002860: 36 33 00 90 2C 24 01 8D 34 34 39 3A 99 22 12 20 |63..,$..449:.". |
00002870: 22 41 43 24 28 49 29 22 20 92 20 20 41 4E 41 4C |"AC$(I)" . ANAL|
00002880: 59 53 49 53 22 3A 8B 44 56 B2 34 A7 8D 34 37 34 |YSIS":.DV.4..474|
00002890: 00 C1 2C 25 01 8D 33 36 32 3A 8B 44 56 B2 34 A7 |..,%..362:.DV.4.|
000028A0: 8D 34 35 32 3A 99 41 43 24 28 49 29 3B 22 20 41 |.452:.AC$(I);" A|
000028B0: 2F 43 20 41 4E 41 4C 59 53 49 53 22 3A 8D 34 35 |/C ANALYSIS":.45|
000028C0: 35 00 E4 2C 26 01 99 22 54 52 4E 20 20 20 20 20 |5..,&.."TRN |
000028D0: 20 20 41 4D 4F 55 4E 54 20 20 44 45 54 41 49 4C | AMOUNT DETAIL|
000028E0: 53 22 3A 99 00 09 2D 27 01 81 4A B2 31 A4 4E 3A |S":...-'..J.1.N:|
000028F0: 8B C5 28 CA 28 54 52 24 28 4A 29 2C 37 37 2C 33 |..(.(TR$(J),77,3|
00002900: 29 29 B3 B1 49 A7 32 39 38 00 3F 2D 28 01 99 C8 |))..I.298.?-(...|
00002910: 28 54 52 24 28 4A 29 2C 34 29 22 20 20 05 22 CA |(TR$(J),4)" .".|
00002920: 28 54 52 24 28 4A 29 2C 36 34 2C 31 30 29 22 9E |(TR$(J),64,10)".|
00002930: 20 20 22 CA 28 54 52 24 28 4A 29 2C 38 30 29 00 | ".(TR$(J),80).|
00002940: 64 2D 29 01 52 B2 C5 28 CA 28 54 52 24 28 4A 29 |d-).R..(.(TR$(J)|
00002950: 2C 36 34 2C 31 30 29 29 AA 43 54 3A 43 54 B2 A5 |,64,10)).CT:CT..|
00002960: 5A 28 52 29 00 87 2D 2A 01 82 4A 3A 52 B2 54 52 |Z(R)..-*..J:R.TR|
00002970: 28 49 29 AB 43 54 3A 5A 24 B2 C4 28 A5 5A 28 52 |(I).CT:Z$..(.Z(R|
00002980: 29 29 3A 8D 34 35 37 00 BD 2D 2B 01 8B C5 28 5A |)):.457..-+...(Z|
00002990: 24 29 B3 B1 30 A7 99 C8 28 42 4C 24 2C 31 36 AB |$)..0...(BL$,16.|
000029A0: C3 28 5A 24 29 29 5A 24 22 20 20 12 20 43 4F 4E |.(Z$))Z$" . CON|
000029B0: 54 52 4F 4C 20 54 4F 54 41 4C 20 92 22 00 F7 2D |TROL TOTAL ."..-|
000029C0: 2C 01 5A 24 B2 C4 28 54 52 28 49 29 29 3A 8D 34 |,.Z$..(TR(I)):.4|
000029D0: 35 37 3A 4B 24 B2 C8 28 22 2D 2D 2D 2D 2D 2D 2D |57:K$..("-------|
000029E0: 2D 2D 2D 2D 22 2C C3 28 5A 24 29 29 3A 4B B2 31 |----",.(Z$)):K.1|
000029F0: 36 AB C3 28 5A 24 29 00 20 2E 2D 01 99 A3 4B 29 |6..(Z$). .-...K)|
00002A00: 4B 24 3A 99 A3 4B 29 5A 24 3A 99 A3 4B 29 4B 24 |K$:..K)Z$:..K)K$|
00002A10: 3A 98 34 3A A0 34 3A 8B 44 56 B2 34 A7 31 37 35 |:.4:.4:.DV.4.175|
00002A20: 00 29 2E 2E 01 89 35 30 30 00 56 2E 30 01 47 46 |.)....500.V.0.GF|
00002A30: B2 31 3A 8D 34 34 39 3A 99 22 12 20 41 43 43 4F |.1:.449:.". ACCO|
00002A40: 55 4E 54 53 20 46 49 4C 45 20 92 22 3A 8B 55 44 |UNTS FILE .":.UD|
00002A50: B2 30 A7 33 30 37 00 80 2E 31 01 55 44 B2 30 3A |.0.307...1.UD.0:|
00002A60: 99 22 11 11 12 20 55 50 44 41 54 45 20 92 20 49 |."... UPDATE . I|
00002A70: 53 20 4E 4F 57 20 43 4F 4D 50 4C 45 54 45 44 22 |S NOW COMPLETED"|
00002A80: 00 C0 2E 32 01 99 22 11 54 4F 20 50 52 4F 54 45 |...2..".TO PROTE|
00002A90: 43 54 20 54 48 45 20 4E 45 57 20 41 43 43 4F 55 |CT THE NEW ACCOU|
00002AA0: 4E 54 53 20 42 41 4C 41 4E 43 45 53 22 3A 99 22 |NTS BALANCES":."|
00002AB0: 11 52 45 2D 22 3B 3A 47 46 B2 38 3A 89 33 31 33 |.RE-";:GF.8:.313|
00002AC0: 00 F5 2E 33 01 99 22 11 11 48 45 41 44 49 4E 47 |...3.."..HEADING|
00002AD0: 53 20 20 20 20 3A 20 20 22 3B 3A 8B 53 B2 31 30 |S : ";:.S.10|
00002AE0: A7 99 22 12 41 92 4D 45 4E 44 20 4F 4E 4C 59 22 |..".A.MEND ONLY"|
00002AF0: 3A 89 33 30 39 00 0F 2F 34 01 99 22 12 45 92 4E |:.309../4..".E.N|
00002B00: 54 45 52 20 4F 52 20 12 41 92 4D 45 4E 44 22 00 |TER OR .A.MEND".|
00002B10: 39 2F 35 01 99 22 11 41 43 43 4F 55 4E 54 53 20 |9/5..".ACCOUNTS |
00002B20: 20 20 20 3A 20 20 12 56 92 49 45 57 20 4F 52 20 | : .V.IEW OR |
00002B30: 12 50 92 52 49 4E 54 11 22 00 7C 2F 36 01 99 22 |.P.RINT.".|/6.."|
00002B40: 50 45 52 49 4F 44 2D 45 4E 44 20 20 3A 20 20 12 |PERIOD-END : .|
00002B50: 55 92 50 44 41 54 45 20 50 52 4F 46 49 54 20 26 |U.PDATE PROFIT &|
00002B60: 20 4C 4F 53 53 11 22 3A 8B 41 43 28 35 29 B2 30 | LOSS.":.AC(5).0|
00002B70: AF 41 43 28 36 29 B2 30 A7 33 31 32 00 AC 2F 37 |.AC(6).0.312../7|
00002B80: 01 99 22 20 20 20 20 20 20 20 20 20 20 20 20 3A |.." :|
00002B90: 20 20 12 43 92 4C 45 41 52 20 4F 55 54 50 55 54 | .C.LEAR OUTPUT|
00002BA0: 2F 49 4E 50 55 54 20 56 41 54 11 22 00 DC 2F 38 |/INPUT VAT."../8|
00002BB0: 01 99 22 20 20 20 20 20 20 20 20 20 20 20 20 3A |.." :|
00002BC0: 20 20 12 52 92 45 53 45 54 20 42 41 4C 41 4E 43 | .R.ESET BALANC|
00002BD0: 45 53 20 54 4F 20 5A 45 52 4F 11 22 00 03 30 39 |ES TO ZERO."..09|
00002BE0: 01 99 22 53 41 56 45 20 54 4F 20 20 20 20 20 3A |.."SAVE TO :|
00002BF0: 20 20 12 44 92 49 53 4B 20 4F 52 20 12 54 92 41 | .D.ISK OR .T.A|
00002C00: 50 45 22 00 1C 30 3A 01 8D 35 30 35 3A 8D 34 34 |PE"..0:..505:.44|
00002C10: 35 3A 8B 47 24 B2 43 52 24 A7 35 31 00 47 30 3B |5:.G$.CR$.51.G0;|
00002C20: 01 81 47 B2 47 46 A4 39 3A 8B 47 24 B3 B1 CA 28 |..G.GF.9:.G$...(|
00002C30: 22 45 41 56 50 55 43 52 44 54 22 2C 47 2C 31 29 |"EAVPUCRDT",G,1)|
00002C40: A7 82 3A 89 33 31 34 00 72 30 3C 01 91 47 89 33 |..:.314.r0<..G.3|
00002C50: 36 35 2C 33 36 38 2C 33 31 38 2C 33 31 38 2C 34 |65,368,318,318,4|
00002C60: 30 35 2C 33 39 39 2C 34 31 35 2C 33 38 31 2C 33 |05,399,415,381,3|
00002C70: 38 31 00 BA 30 3E 01 4B 24 B2 22 56 49 45 57 20 |81..0>.K$."VIEW |
00002C80: 4E 45 58 54 20 53 45 43 54 49 4F 4E 20 3F 20 20 |NEXT SECTION ? |
00002C90: 5B 12 59 92 2F 12 4E 92 5D 22 3A 41 54 24 B2 22 |[.Y./.N.]":AT$."|
00002CA0: 20 56 49 45 57 20 22 3A 8B 47 B2 34 A7 41 54 24 | VIEW ":.G.4.AT$|
00002CB0: B2 22 20 50 52 49 4E 54 20 22 00 D9 30 3F 01 8D |." PRINT "..0?..|
00002CC0: 34 34 39 3A 99 22 12 22 41 54 24 22 41 43 43 4F |449:."."AT$"ACCO|
00002CD0: 55 4E 54 53 20 92 11 11 22 00 0C 31 40 01 99 22 |UNTS ..."..1@.."|
00002CE0: 53 45 43 54 49 4F 4E 20 20 3A 20 20 12 48 92 45 |SECTION : .H.E|
00002CF0: 41 44 49 4E 47 53 11 22 3A 99 A3 39 29 22 3A 20 |ADINGS.":..9)": |
00002D00: 20 12 42 92 41 4C 41 4E 43 45 53 22 00 35 31 41 | .B.ALANCES".51A|
00002D10: 01 8B 47 B2 34 A7 99 22 11 20 20 20 20 20 4F 52 |..G.4..". OR|
00002D20: 20 20 3A 20 20 12 54 92 52 49 41 4C 20 42 41 4C | : .T.RIAL BAL|
00002D30: 41 4E 43 45 22 00 4A 31 42 01 8D 34 34 35 3A 8B |ANCE".J1B..445:.|
00002D40: 47 24 B2 43 52 24 A7 33 30 34 00 5E 31 43 01 8B |G$.CR$.304.^1C..|
00002D50: 47 B2 34 AF 47 24 B2 22 54 22 A7 33 35 30 00 77 |G.4.G$."T".350.w|
00002D60: 31 44 01 8B 47 24 B3 B1 22 48 22 AF 47 24 B3 B1 |1D..G$.."H".G$..|
00002D70: 22 42 22 A7 33 32 32 00 AF 31 45 01 41 54 B2 30 |"B".322..1E.AT.0|
00002D80: 3A 41 54 24 B2 22 20 48 45 41 44 49 4E 47 53 20 |:AT$." HEADINGS |
00002D90: 22 3A 8B 47 24 B2 22 42 22 A7 41 54 B2 31 3A 41 |":.G$."B".AT.1:A|
00002DA0: 54 24 B2 22 20 42 41 4C 41 4E 43 45 53 20 22 00 |T$." BALANCES ".|
00002DB0: D1 31 46 01 44 56 B2 33 3A 8B 47 B2 34 A7 44 56 |.1F.DV.3:.G.4.DV|
00002DC0: B2 34 3A 8D 34 36 38 3A 53 53 B2 31 3A 89 33 33 |.4:.468:SS.1:.33|
00002DD0: 31 00 E7 31 47 01 8D 34 34 39 3A 99 22 12 22 41 |1..1G..449:."."A|
00002DE0: 54 24 22 92 11 11 22 00 12 32 48 01 99 22 45 4E |T$"..."..2H.."EN|
00002DF0: 54 45 52 20 53 45 43 54 49 4F 4E 20 54 4F 20 44 |TER SECTION TO D|
00002E00: 49 53 50 4C 41 59 20 12 31 20 2D 22 53 22 92 20 |ISPLAY .1 -"S". |
00002E10: 22 3B 00 2C 32 49 01 4C 49 B2 32 3A 8D 34 31 39 |";.,2I.LI.2:.419|
00002E20: 3A 8B 49 4E 24 B2 22 22 A7 33 31 38 00 52 32 4A |:.IN$."".318.R2J|
00002E30: 01 53 53 B2 C5 28 49 4E 24 29 3A 8B 28 53 53 B3 |.SS..(IN$):.(SS.|
00002E40: 31 B0 53 53 B1 53 29 A7 99 22 91 91 22 3A 89 33 |1.SS.S).."..":.3|
00002E50: 32 38 00 78 32 4B 01 8D 34 34 39 3A 99 22 12 20 |28.x2K..449:.". |
00002E60: 41 43 43 4F 55 4E 54 22 41 54 24 22 92 22 3A 8B |ACCOUNT"AT$".":.|
00002E70: 44 56 B2 33 A7 33 33 33 00 A0 32 4C 01 8D 34 37 |DV.3.333..2L..47|
00002E80: 34 3A 99 22 11 12 53 92 54 4F 50 20 2F 20 12 52 |4:."..S.TOP / .R|
00002E90: 92 45 53 54 41 52 54 20 2F 20 12 45 92 4E 44 22 |.ESTART / .E.ND"|
00002EA0: 00 C6 32 4D 01 58 58 B2 31 30 AC 28 53 53 AB 31 |..2M.XX.10.(SS.1|
00002EB0: 29 3A 8D 33 36 32 3A 81 49 B2 53 53 A4 53 3A 41 |):.362:.I.SS.S:A|
00002EC0: 43 28 30 29 B2 30 00 EA 32 4E 01 8B 44 56 B2 34 |C(0).0..2N..DV.4|
00002ED0: A7 8D 34 35 31 3A 99 22 20 41 43 43 4F 55 4E 54 |..451:." ACCOUNT|
00002EE0: 22 3B 41 54 24 3A 8D 34 35 35 00 1D 33 4F 01 99 |";AT$:.455..3O..|
00002EF0: 3A 99 22 20 53 45 43 54 49 4F 4E 22 49 3A 99 3A |:." SECTION"I:.:|
00002F00: 58 B2 58 58 AA 31 3A 58 58 B2 58 AA 39 3A 81 4A |X.XX.1:XX.X.9:.J|
00002F10: B2 58 A4 58 58 3A 4A 24 B2 C4 28 4A 29 00 2B 33 |.X.XX:J$..(J).+3|
00002F20: 50 01 8B 41 54 B2 30 A7 33 34 30 00 5E 33 51 01 |P..AT.0.340.^3Q.|
00002F30: 99 4A 24 3B C8 28 42 4C 24 2C 35 AB C3 28 4A 24 |.J$;.(BL$,5..(J$|
00002F40: 29 29 3B C8 28 42 4C 24 2C 32 30 AB C3 28 41 43 |));.(BL$,20..(AC|
00002F50: 24 28 4A 29 29 29 3B 41 43 24 28 4A 29 3B 00 8C |$(J)));AC$(J);..|
00002F60: 33 52 01 5A 24 B2 C4 28 41 43 28 4A 29 29 3A 8D |3R.Z$..(AC(J)):.|
00002F70: 34 35 37 3A 99 C8 28 42 4C 24 2C 31 32 AB C3 28 |457:..(BL$,12..(|
00002F80: 5A 24 29 29 22 05 22 5A 24 22 9E 22 00 AF 33 53 |Z$))"."Z$"."..3S|
00002F90: 01 52 B2 41 43 28 30 29 AA 41 43 28 4A 29 3A 41 |.R.AC(0).AC(J):A|
00002FA0: 43 28 30 29 B2 A5 5A 28 52 29 3A 89 33 34 31 00 |C(0)..Z(R):.341.|
00002FB0: E1 33 54 01 99 4A 24 3B C8 28 42 4C 24 2C 38 AB |.3T..J$;.(BL$,8.|
00002FC0: C3 28 4A 24 29 29 3B 41 43 24 28 4A 29 3B C8 28 |.(J$));AC$(J);.(|
00002FD0: 42 4C 24 2C 32 30 AB C3 28 41 43 24 28 4A 29 29 |BL$,20..(AC$(J))|
00002FE0: 29 00 F2 33 55 01 82 4A 3A 8B 41 54 B2 30 A7 33 |)..3U..J:.AT.0.3|
00002FF0: 34 34 00 22 34 56 01 5A 24 B2 C4 28 41 43 28 30 |44."4V.Z$..(AC(0|
00003000: 29 29 3A 8D 34 35 37 3A 4C 24 B2 C8 28 22 2D 2D |)):.457:L$..("--|
00003010: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 2C C3 28 5A 24 |----------",.(Z$|
00003020: 29 29 00 4E 34 57 01 42 24 B2 C8 28 42 4C 24 2C |)).N4W.B$..(BL$,|
00003030: 33 37 AB C3 28 5A 24 29 29 3A 99 42 24 3B 4C 24 |37..(Z$)):.B$;L$|
00003040: 3A 99 42 24 3B 5A 24 3A 99 42 24 3B 4C 24 00 62 |:.B$;Z$:.B$;L$.b|
00003050: 34 58 01 8B 44 56 B2 34 A7 8D 33 35 38 3A 89 33 |4X..DV.4..358:.3|
00003060: 34 38 00 8D 34 59 01 8B 49 B2 53 A7 4B 24 B2 22 |48..4Y..I.S.K$."|
00003070: 50 52 45 53 53 20 5B 12 52 45 54 55 52 4E 92 5D |PRESS [.RETURN.]|
00003080: 20 54 4F 20 43 4F 4E 54 49 4E 55 45 22 00 B5 34 | TO CONTINUE"..4|
00003090: 5A 01 99 43 44 24 C8 28 4C 4E 24 2C 32 36 29 3A |Z..CD$.(LN$,26):|
000030A0: 99 4B 24 3A 8D 34 34 31 3A 8B 47 24 B3 B1 22 59 |.K$:.441:.G$.."Y|
000030B0: 22 A7 49 B2 53 00 D5 34 5B 01 8B 44 56 B2 33 A7 |".I.S..4[..DV.3.|
000030C0: 99 22 91 91 22 42 4C 24 3A 99 42 4C 24 3A 99 22 |.".."BL$:.BL$:."|
000030D0: 13 11 11 11 22 00 E7 34 5C 01 82 49 3A 98 34 3A |...."..4\..I:.4:|
000030E0: A0 34 3A 89 33 30 34 00 FE 34 5E 01 4B 24 B2 22 |.4:.304..4^.K$."|
000030F0: 54 52 49 41 4C 20 42 41 4C 41 4E 43 45 22 00 1D |TRIAL BALANCE"..|
00003100: 35 5F 01 8D 34 36 38 3A 8D 34 34 39 3A 99 22 12 |5_..468:.449:.".|
00003110: 20 22 4B 24 22 20 92 22 3A 8D 34 37 34 00 3E 35 | "K$" .":.474.>5|
00003120: 60 01 44 56 B2 34 3A 8D 33 36 32 3A 99 4D 24 3B |`.DV.4:.362:.M$;|
00003130: A6 36 36 AB C3 28 4D 24 29 29 3B 55 44 24 00 60 |.66..(M$));UD$.`|
00003140: 35 61 01 8D 34 35 34 3A 99 4B 24 A6 32 35 29 22 |5a..454:.K$.25)"|
00003150: 44 52 22 A6 31 38 29 22 43 52 22 3A 8D 34 35 34 |DR".18)"CR":.454|
00003160: 00 7B 35 62 01 99 3A 81 49 B2 31 A4 4E 41 3A 8B |.{5b..:.I.1.NA:.|
00003170: 41 43 28 49 29 B2 30 A7 33 34 38 00 B6 35 63 01 |AC(I).0.348..5c.|
00003180: 5A 24 B2 CA 28 C4 28 41 43 28 49 29 29 2C 32 29 |Z$..(.(AC(I)),2)|
00003190: 3A 8D 34 35 37 3A 54 42 B2 33 30 AB C3 28 5A 24 |:.457:TB.30..(Z$|
000031A0: 29 3A 8B B4 28 41 43 28 49 29 29 B2 31 A7 54 42 |):..(AC(I)).1.TB|
000031B0: B2 54 42 AB 32 30 00 E3 35 64 01 99 41 43 24 28 |.TB.20..5d..AC$(|
000031C0: 49 29 3B C8 28 42 4C 24 2C 33 30 AB C3 28 41 43 |I);.(BL$,30..(AC|
000031D0: 24 28 49 29 29 29 3B A6 54 42 29 3B 5A 24 3A 89 |$(I)));.TB);Z$:.|
000031E0: 33 34 38 00 F3 35 66 01 50 24 B2 22 22 3A 98 34 |348..5f.P$."":.4|
000031F0: 3A A0 34 00 0D 36 67 01 A1 47 24 3A 8B 47 24 B2 |:.4..6g..G$:.G$.|
00003200: 22 22 AF 50 24 B2 22 53 22 A7 33 35 39 00 23 36 |"".P$."S".359.#6|
00003210: 68 01 50 24 B2 47 24 3A 8B 50 24 B2 22 53 22 A7 |h.P$.G$:.P$."S".|
00003220: 33 35 39 00 33 36 69 01 8B 50 24 B2 22 45 22 A7 |359.36i..P$."E".|
00003230: 49 B2 53 00 4B 36 6A 01 9F 34 2C 44 56 3A 9D 34 |I.S.K6j..4,DV:.4|
00003240: 3A 8B 44 56 B2 34 A7 99 22 11 22 00 51 36 6B 01 |:.DV.4..".".Q6k.|
00003250: 8E 00 5F 36 6D 01 8B 53 B2 31 30 A7 33 31 34 00 |.._6m..S.10.314.|
00003260: 79 36 6E 01 58 B2 B5 28 31 30 AC 28 53 29 AA 31 |y6n.X..(10.(S).1|
00003270: 29 3A 49 B2 30 3A 89 33 36 00 86 36 70 01 58 B2 |):I.0:.36..6p.X.|
00003280: 31 31 3A 59 B2 31 00 A5 36 71 01 8D 34 34 39 3A |11:Y.1..6q..449:|
00003290: 99 22 12 20 41 4D 45 4E 44 20 41 43 43 4F 55 4E |.". AMEND ACCOUN|
000032A0: 54 53 20 92 22 00 BF 36 72 01 58 58 B2 58 AA 39 |TS ."..6r.XX.X.9|
000032B0: 3A 59 B2 59 AA 31 3A 8B 59 B1 53 A7 33 30 34 00 |:Y.Y.1:.Y.S.304.|
000032C0: E7 36 73 01 99 22 13 11 11 11 11 11 53 45 43 54 |.6s.."......SECT|
000032D0: 49 4F 4E 3A 20 12 20 22 CA 28 C4 28 59 29 2C 32 |ION: . ".(.(Y),2|
000032E0: 29 22 20 92 11 11 22 00 17 37 74 01 81 49 B2 58 |)" ..."..7t..I.X|
000032F0: A4 58 58 3A 41 43 24 B2 41 43 24 28 49 29 3A 49 |.XX:AC$.AC$(I):I|
00003300: 24 B2 C4 28 49 29 3A 8B 49 B2 31 30 30 A7 49 24 |$..(I):.I.100.I$|
00003310: B2 22 9D 22 AA 49 24 00 4A 37 75 01 99 22 41 2F |.".".I$.J7u.."A/|
00003320: 43 3A 20 20 12 22 49 24 22 20 92 20 20 5B 05 22 |C: ."I$" . [."|
00003330: 41 43 24 3B C8 28 42 4C 24 2C 32 30 AB C3 28 41 |AC$;.(BL$,20..(A|
00003340: 43 24 29 29 22 9E 5D 22 3A 82 00 83 37 76 01 99 |C$))".]":...7v..|
00003350: 22 11 11 11 41 2F 43 3A 20 12 4E 4F 3A 92 20 54 |"...A/C: .NO:. T|
00003360: 4F 20 41 4D 45 4E 44 20 4F 52 20 12 43 92 4F 4E |O AMEND OR .C.ON|
00003370: 54 49 4E 55 45 3A 20 22 3B 3A 4C 49 B2 33 3A 8D |TINUE: ";:LI.3:.|
00003380: 34 31 39 00 93 37 77 01 8B 49 4E 24 B2 22 22 A7 |419..7w..IN$."".|
00003390: 33 30 34 00 AC 37 78 01 8B 49 4E 24 B2 22 43 22 |304..7x..IN$."C"|
000033A0: A7 58 B2 58 58 AA 31 3A 89 33 37 30 00 D1 37 79 |.X.XX.1:.370..7y|
000033B0: 01 47 B2 C5 28 49 4E 24 29 3A 8B 47 B3 58 B0 47 |.G..(IN$):.G.X.G|
000033C0: B1 58 58 A7 99 22 91 91 91 91 91 22 3A 89 33 37 |.XX..".....":.37|
000033D0: 34 00 0D 38 7A 01 99 22 91 22 42 4C 24 22 91 22 |4..8z.."."BL$"."|
000033E0: 3A 99 22 41 2F 43 3A 20 20 12 20 22 49 4E 24 22 |:."A/C: . "IN$"|
000033F0: 20 92 20 20 22 3B 3A 4C 49 B2 32 30 3A 8D 34 31 | . ";:LI.20:.41|
00003400: 39 3A 8B 49 4E 24 B2 22 22 A7 33 37 31 00 21 38 |9:.IN$."".371.!8|
00003410: 7B 01 41 43 24 28 47 29 B2 49 4E 24 3A 89 33 37 |{.AC$(G).IN$:.37|
00003420: 31 00 46 38 7D 01 8D 34 34 39 3A 99 22 12 20 53 |1.F8}..449:.". S|
00003430: 41 56 45 20 41 43 43 4F 55 4E 54 53 20 46 49 4C |AVE ACCOUNTS FIL|
00003440: 45 20 92 11 11 22 00 70 38 7E 01 99 22 52 45 4E |E ...".p8~.."REN|
00003450: 41 4D 45 20 46 49 4C 45 20 46 4F 52 20 55 50 44 |AME FILE FOR UPD|
00003460: 41 54 45 20 3F 20 5B 12 59 92 2F 12 4E 92 5D 22 |ATE ? [.Y./.N.]"|
00003470: 00 8D 38 7F 01 8D 34 34 33 3A 8B 47 24 B2 22 4E |..8...443:.G$."N|
00003480: 22 A7 49 4E 24 B2 4D 24 3A 89 33 38 35 00 C2 38 |".IN$.M$:.385..8|
00003490: 80 01 99 22 91 45 4E 54 45 52 20 12 20 4E 45 57 |...".ENTER . NEW|
000034A0: 20 92 20 4E 41 4D 45 3A 20 22 3B 3A 4C 49 B2 31 | . NAME: ";:LI.1|
000034B0: 34 3A 8D 34 31 39 3A 8B 49 4E 24 B2 22 22 A7 33 |4:.419:.IN$."".3|
000034C0: 38 31 00 DB 38 81 01 8B 47 B2 39 A7 9F 31 2C 31 |81..8...G.9..1,1|
000034D0: 2C 31 2C 49 4E 24 3A 89 33 38 37 00 FC 38 82 01 |,1,IN$:.387..8..|
000034E0: 8D 35 32 31 3A 9F 31 2C 38 2C 31 2C 22 40 30 3A |.521:.1,8,1,"@0:|
000034F0: 22 AA 49 4E 24 AA 22 2C 53 2C 57 22 00 33 39 83 |".IN$.",S,W".39.|
00003500: 01 99 22 13 11 11 11 11 11 22 42 4C 24 3A 99 22 |.."......"BL$:."|
00003510: 91 53 41 56 49 4E 47 20 46 49 4C 45 20 12 20 22 |.SAVING FILE . "|
00003520: 49 4E 24 22 20 92 22 3A 98 31 2C 44 41 24 3B 43 |IN$" .":.1,DA$;C|
00003530: 52 24 3B 00 56 39 84 01 98 31 2C 4E 41 3B 43 52 |R$;.V9...1,NA;CR|
00003540: 24 3B 3A 98 31 2C 53 3B 43 52 24 3B 3A 98 31 2C |$;:.1,S;CR$;:.1,|
00003550: 56 3B 43 52 24 3B 00 74 39 85 01 81 4B B2 31 A4 |V;CR$;.t9...K.1.|
00003560: 4E 41 3A 98 31 2C 41 43 24 28 4B 29 3B 43 52 24 |NA:.1,AC$(K);CR$|
00003570: 3B 3A 82 4B 00 A0 39 86 01 81 4B B2 31 A4 4E 41 |;:.K..9...K.1.NA|
00003580: 3A 98 31 2C 41 43 28 4B 29 3B 43 52 24 3B 3A 82 |:.1,AC(K);CR$;:.|
00003590: 4B 3A A0 31 3A 4D 24 B2 49 4E 24 3A 89 33 30 34 |K:.1:M$.IN$:.304|
000035A0: 00 BD 39 88 01 8B 47 B2 33 A7 8D 34 34 39 3A 9F |..9...G.3..449:.|
000035B0: 31 2C 31 2C 30 2C 4D 24 3A 89 33 39 34 00 EE 39 |1,1,0,M$:.394..9|
000035C0: 89 01 9F 31 2C 38 2C 30 2C 22 30 3A 22 AA 4D 24 |...1,8,0,"0:".M$|
000035D0: AA 22 2C 53 2C 52 22 3A 8D 35 31 37 3A 8B 45 B1 |.",S,R":.517:.E.|
000035E0: 31 38 A7 4D 24 B2 22 20 20 22 3A 89 32 30 00 23 |18.M$." ":.20.#|
000035F0: 3A 8A 01 99 22 13 11 11 11 11 11 22 42 4C 24 3A |:..."......"BL$:|
00003600: 99 22 91 12 20 22 3B 4D 24 3B 22 20 92 20 46 49 |.".. ";M$;" . FI|
00003610: 4C 45 20 4C 4F 41 44 49 4E 47 22 3B 3A 84 31 2C |LE LOADING";:.1,|
00003620: 55 44 24 00 4C 3A 8B 01 84 31 2C 4E 41 3A 84 31 |UD$.L:...1,NA:.1|
00003630: 2C 53 3A 84 31 2C 56 3A 81 4B B2 31 A4 4E 41 3A |,S:.1,V:.K.1.NA:|
00003640: 84 31 2C 41 43 24 28 4B 29 3A 82 4B 00 77 3A 8C |.1,AC$(K):.K.w:.|
00003650: 01 81 4B B2 31 A4 4E 41 3A 84 31 2C 41 43 28 4B |..K.1.NA:.1,AC(K|
00003660: 29 3A 82 4B 3A A0 31 3A A0 31 35 3A 99 22 9D 9D |):.K:.1:.15:."..|
00003670: 9D 45 44 20 11 11 22 00 9D 3A 8D 01 99 22 46 49 |.ED .."..:..."FI|
00003680: 4C 45 20 4C 41 53 54 20 55 50 44 41 54 45 44 20 |LE LAST UPDATED |
00003690: 4F 4E 20 22 3B 55 44 24 3A 89 35 30 30 00 D5 3A |ON ";UD$:.500..:|
000036A0: 8F 01 8D 34 34 39 3A 99 22 12 20 56 41 54 20 43 |...449:.". VAT C|
000036B0: 4C 45 41 52 41 4E 43 45 20 92 11 11 22 3A 81 4B |LEARANCE ...":.K|
000036C0: B2 35 A4 36 3A 5A 24 B2 C4 28 41 43 28 4B 29 29 |.5.6:Z$..(AC(K))|
000036D0: 3A 8D 34 35 37 00 01 3B 90 01 99 41 43 24 28 4B |:.457..;...AC$(K|
000036E0: 29 A6 4B 29 22 3D 22 C8 28 42 4C 24 2C 31 35 AB |).K)"=".(BL$,15.|
000036F0: C3 28 5A 24 29 29 5A 24 3A 82 4B 3A 99 22 11 11 |.(Z$))Z$:.K:."..|
00003700: 22 00 3A 3B 91 01 99 4C 4E 24 3A 99 22 45 4E 53 |".:;...LN$:."ENS|
00003710: 55 52 45 20 54 48 41 54 20 54 48 45 20 56 41 54 |URE THAT THE VAT|
00003720: 20 52 45 54 55 52 4E 20 49 53 20 43 4F 4D 50 4C | RETURN IS COMPL|
00003730: 45 54 45 44 22 3A 99 4C 4E 24 00 6F 3B 92 01 99 |ETED":.LN$.o;...|
00003740: 22 11 11 55 50 44 41 54 45 20 41 43 43 4F 55 4E |"..UPDATE ACCOUN|
00003750: 54 20 3F 20 5B 12 59 92 2F 12 4E 92 5D 22 3A 8D |T ? [.Y./.N.]":.|
00003760: 34 34 33 3A 8B 47 24 B2 22 4E 22 A7 33 30 34 00 |443:.G$."N".304.|
00003770: A0 3B 93 01 41 43 28 37 29 B2 41 43 28 35 29 AA |.;..AC(7).AC(5).|
00003780: 41 43 28 36 29 AA 41 43 28 37 29 3A 41 43 28 35 |AC(6).AC(7):AC(5|
00003790: 29 B2 30 3A 41 43 28 36 29 B2 30 3A 89 33 30 34 |).0:AC(6).0:.304|
000037A0: 00 D5 3B 95 01 41 43 28 30 29 B2 30 3A 8D 34 34 |..;..AC(0).0:.44|
000037B0: 39 3A 99 22 55 50 44 41 54 45 20 12 20 50 52 4F |9:."UPDATE . PRO|
000037C0: 46 49 54 20 26 20 4C 4F 53 53 20 92 20 41 43 43 |FIT & LOSS . ACC|
000037D0: 4F 55 4E 54 22 00 EF 3B 96 01 81 4B B2 31 31 A4 |OUNT"..;...K.11.|
000037E0: 4E 41 3A 8B 41 43 28 4B 29 B2 30 A7 34 31 30 00 |NA:.AC(K).0.410.|
000037F0: 20 3C 97 01 99 22 13 11 11 11 11 11 5B 05 22 41 | <..."......[."A|
00003800: 43 24 28 4B 29 3B C8 28 42 4C 24 2C 32 30 AB C3 |C$(K);.(BL$,20..|
00003810: 28 41 43 24 28 4B 29 29 29 22 9E 5D 11 11 11 22 |(AC$(K)))".]..."|
00003820: 00 54 3C 98 01 99 22 54 52 41 4E 53 46 45 52 20 |.T<..."TRANSFER |
00003830: 42 41 4C 41 4E 43 45 20 4F 4E 20 41 43 43 4F 55 |BALANCE ON ACCOU|
00003840: 4E 54 20 3F 20 5B 12 59 92 2F 12 4E 92 5D 22 3A |NT ? [.Y./.N.]":|
00003850: 8D 34 34 33 00 8D 3C 99 01 99 22 91 22 42 4C 24 |.443..<..."."BL$|
00003860: 22 91 22 3A 8B 47 24 B2 22 59 22 A7 52 B2 41 43 |".":.G$."Y".R.AC|
00003870: 28 30 29 AA 41 43 28 4B 29 3A 41 43 28 30 29 B2 |(0).AC(K):AC(0).|
00003880: A5 5A 28 52 29 3A 41 43 28 4B 29 B2 30 00 BD 3C |.Z(R):AC(K).0..<|
00003890: 9A 01 82 4B 3A 52 B2 41 43 28 31 30 29 AA 41 43 |...K:R.AC(10).AC|
000038A0: 28 30 29 3A 41 43 28 31 30 29 B2 A5 5A 28 52 29 |(0):AC(10)..Z(R)|
000038B0: 3A 4C 24 B2 C8 28 4C 4E 24 2C 32 33 29 00 ED 3C |:L$..(LN$,23)..<|
000038C0: 9B 01 99 22 13 11 11 11 11 22 4C 24 3A 99 22 12 |..."....."L$:.".|
000038D0: 20 20 55 50 44 41 54 45 20 49 53 20 43 4F 4D 50 | UPDATE IS COMP|
000038E0: 4C 45 54 45 44 20 20 92 22 3A 99 4C 24 00 2A 3D |LETED .":.L$.*=|
000038F0: 9C 01 99 22 11 50 52 49 4E 54 20 54 48 45 20 42 |...".PRINT THE B|
00003900: 41 4C 41 4E 43 45 20 53 48 45 45 54 20 3F 20 5B |ALANCE SHEET ? [|
00003910: 12 59 92 2F 12 4E 92 5D 22 3A 8D 34 34 33 3A 8B |.Y./.N.]":.443:.|
00003920: 47 24 B2 22 4E 22 A7 33 30 34 00 46 3D 9D 01 4B |G$."N".304.F=..K|
00003930: 24 B2 22 42 41 4C 41 4E 43 45 20 53 48 45 45 54 |$."BALANCE SHEET|
00003940: 22 3A 89 33 35 31 00 6F 3D 9F 01 8D 34 34 39 3A |":.351.o=...449:|
00003950: 99 22 12 20 52 45 53 45 54 20 42 41 4C 41 4E 43 |.". RESET BALANC|
00003960: 45 53 20 54 4F 20 5A 45 52 4F 20 92 11 11 22 00 |ES TO ZERO ...".|
00003970: A0 3D A0 01 99 22 41 52 45 20 59 4F 55 20 53 55 |.=..."ARE YOU SU|
00003980: 52 45 20 3F 20 5B 12 59 92 2F 12 4E 92 5D 22 3A |RE ? [.Y./.N.]":|
00003990: 8D 34 34 33 3A 8B 47 24 B2 22 4E 22 A7 33 30 34 |.443:.G$."N".304|
000039A0: 00 BB 3D A1 01 81 49 B2 31 A4 4E 41 3A 41 43 28 |..=...I.1.NA:AC(|
000039B0: 49 29 B2 30 3A 82 3A 89 33 30 34 00 E0 3D A3 01 |I).0:.:.304..=..|
000039C0: 99 22 05 5B 22 3B C8 28 42 4C 24 2C 4C 49 29 3B |.".[";.(BL$,LI);|
000039D0: 22 5D 22 3B C8 28 43 42 24 2C 4C 49 AA 31 29 3B |"]";.(CB$,LI.1);|
000039E0: 00 F7 3D A4 01 49 4E 24 B2 22 20 22 3A 49 54 B2 |..=..IN$." ":IT.|
000039F0: 54 49 3A 49 43 B2 32 00 0D 3E A5 01 A1 49 50 24 |TI:IC.2..>...IP$|
00003A00: 3A 8B 49 50 24 B3 B1 22 22 A7 34 32 34 00 3D 3E |:.IP$.."".424.=>|
00003A10: A6 01 8B 49 54 B3 B2 54 49 A7 99 CA 28 22 20 A2 |...IT..TI...(" .|
00003A20: 22 2C 49 43 2C 31 29 3B 22 9D 22 3B 3A 49 43 B2 |",IC,1);".";:IC.|
00003A30: 33 AB 49 43 3A 49 54 B2 54 49 AA 31 35 00 46 3E |3.IC:IT.TI.15.F>|
00003A40: A7 01 89 34 32 31 00 6D 3E A8 01 41 B2 C6 28 49 |...421.m>..A..(I|
00003A50: 50 24 29 3A 49 4C B2 C3 28 49 4E 24 29 3A 8B 28 |P$):IL..(IN$):.(|
00003A60: 41 AF 31 32 37 29 B3 33 32 A7 34 33 30 00 9A 3E |A.127).32.430..>|
00003A70: A9 01 8B 28 41 B2 33 34 B0 41 B2 34 34 B0 41 B2 |...(A.34.A.44.A.|
00003A80: 35 38 29 B0 28 41 4E B2 31 AF 28 41 B3 34 36 B0 |58).(AN.1.(A.46.|
00003A90: 41 B1 35 37 29 29 A7 34 32 31 00 AB 3E AA 01 8B |A.57)).421..>...|
00003AA0: 49 4C B3 4C 49 AA 31 A7 34 32 39 00 C0 3E AB 01 |IL.LI.1.429..>..|
00003AB0: A1 49 50 24 3A 8B 49 50 24 B2 22 22 A7 34 32 36 |.IP$:.IP$."".426|
00003AC0: 00 C9 3E AC 01 89 34 32 34 00 FE 3E AD 01 49 4E |..>...424..>..IN|
00003AD0: 24 B2 49 4E 24 AA 49 50 24 3A 99 49 50 24 3B 3A |$.IN$.IP$:.IP$;:|
00003AE0: 49 4C B2 C3 28 49 4E 24 29 3A 8B 49 4C B2 4C 49 |IL..(IN$):.IL.LI|
00003AF0: AA 31 A7 99 22 5D 9D 22 3B 3A 89 34 32 37 00 24 |.1.."].";:.427.$|
00003B00: 3F AE 01 8B 41 B2 31 33 A7 8D 34 33 36 3A 49 4E |?...A.13..436:IN|
00003B10: 24 B2 CA 28 49 4E 24 2C 32 29 3A 99 22 9E 22 3A |$..(IN$,2):.".":|
00003B20: 89 34 33 38 00 48 3F AF 01 8B 41 B2 32 30 AF 49 |.438.H?...A.20.I|
00003B30: 4C B1 31 A7 49 4E 24 B2 C8 28 49 4E 24 2C 49 4C |L.1.IN$..(IN$,IL|
00003B40: AB 31 29 3A 89 34 33 34 00 74 3F B0 01 8B 41 B2 |.1):.434.t?...A.|
00003B50: 31 34 31 AF 49 4C B1 31 A7 8D 34 33 36 3A 81 4B |141.IL.1..436:.K|
00003B60: B2 32 A4 49 4C 3A 99 22 9D 20 9D 22 3B 3A 82 3A |.2.IL:.". .";:.:|
00003B70: 89 34 32 30 00 7D 3F B1 01 89 34 32 31 00 A0 3F |.420.}?...421..?|
00003B80: B2 01 42 55 24 B2 22 20 9D 9D 22 3A 8B C3 28 49 |..BU$." ..":..(I|
00003B90: 4E 24 29 B2 4C 49 A7 42 55 24 B2 22 5D 9D 9D 22 |N$).LI.BU$."].."|
00003BA0: 00 AF 3F B3 01 99 42 55 24 3B 3A 89 34 32 31 00 |..?...BU$;:.421.|
00003BB0: C3 3F B4 01 8B 49 4C B3 4C 49 AA 31 A7 99 22 20 |.?...IL.LI.1.." |
00003BC0: 9D 22 3B 00 C9 3F B5 01 8E 00 E2 3F B6 01 8B C8 |.";..?.....?....|
00003BD0: 28 49 4E 24 2C 31 29 B2 22 20 22 A7 49 4E 24 B2 |(IN$,1)." ".IN$.|
00003BE0: 22 22 00 E8 3F B7 01 8E 00 01 40 B9 01 47 24 B2 |""..?.....@..G$.|
00003BF0: 22 22 3A A1 47 24 3A 8B 47 24 B2 22 22 A7 34 34 |"":.G$:.G$."".44|
00003C00: 31 00 07 40 BA 01 8E 00 2A 40 BB 01 47 24 B2 22 |1..@....*@..G$."|
00003C10: 22 3A A1 47 24 3A 8B 47 24 B3 B1 22 59 22 AF 47 |":.G$:.G$.."Y".G|
00003C20: 24 B3 B1 22 4E 22 A7 34 34 33 00 30 40 BC 01 8E |$.."N".443.0@...|
00003C30: 00 52 40 BD 01 99 43 44 24 4C 4E 24 3A 99 22 12 |.R@...CD$LN$:.".|
00003C40: 20 53 45 4C 45 43 54 20 92 20 4C 45 54 54 45 52 | SELECT . LETTER|
00003C50: 20 22 00 78 40 BE 01 47 24 B2 22 22 3A A1 47 24 | ".x@..G$."":.G$|
00003C60: 3A 8B 47 24 B3 B1 22 22 A7 99 22 91 91 22 42 4C |:.G$..""..".."BL|
00003C70: 24 3A 99 42 4C 24 3A 8E 00 B0 40 BF 01 81 4B B2 |$:.BL$:...@...K.|
00003C80: 31 A4 33 30 30 3A 82 4B 3A 99 22 91 20 53 45 4C |1.300:.K:.". SEL|
00003C90: 45 43 54 20 12 20 4C 45 54 54 45 52 20 92 22 3A |ECT . LETTER .":|
00003CA0: 81 4B B2 31 A4 33 30 30 3A 82 4B 3A 89 34 34 35 |.K.1.300:.K:.445|
00003CB0: 00 D6 40 C1 01 99 22 93 05 22 3B 4D 24 3B A6 33 |..@..."..";M$;.3|
00003CC0: 31 AB C3 28 4D 24 29 29 3B 44 41 24 22 9E 22 3A |1..(M$));DA$".":|
00003CD0: 99 4C 4E 24 3A 8E 00 F2 40 C3 01 99 4D 24 3B A6 |.LN$:...@...M$;.|
00003CE0: 32 39 AB C3 28 4D 24 29 29 3B 55 44 24 3A 89 34 |29..(M$));UD$:.4|
00003CF0: 35 35 00 0E 41 C4 01 99 46 24 3B A6 32 39 AB C3 |55..A...F$;.29..|
00003D00: 28 46 24 29 29 3B 50 44 24 3A 89 34 35 35 00 25 |(F$));PD$:.455.%|
00003D10: 41 C5 01 99 46 24 3B A6 36 36 AB C3 28 46 24 29 |A...F$;.66..(F$)|
00003D20: 29 3B 50 44 24 00 53 41 C6 01 99 22 2D 2D 2D 2D |);PD$.SA..."----|
00003D30: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00003D40: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00003D50: 2D 22 3B 00 82 41 C7 01 99 22 2D 2D 2D 2D 2D 2D |-";..A..."------|
00003D60: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00003D70: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 |---------------"|
00003D80: 3A 8E 00 A4 41 C9 01 81 5A B2 31 A4 C3 28 5A 24 |:...A...Z.1..(Z$|
00003D90: 29 3A 8B CA 28 5A 24 2C 5A 2C 31 29 B2 22 2E 22 |):..(Z$,Z,1)."."|
00003DA0: A7 34 36 30 00 AB 41 CA 01 82 5A 00 C0 41 CB 01 |.460..A...Z..A..|
00003DB0: 5A 24 B2 5A 24 AA 22 2E 30 30 22 3A 89 34 36 31 |Z$.Z$.".00":.461|
00003DC0: 00 DD 41 CC 01 5A B2 C3 28 5A 24 29 AB 5A 3A 8B |..A..Z..(Z$).Z:.|
00003DD0: 5A B2 31 A7 5A 24 B2 5A 24 AA 22 30 22 00 E3 41 |Z.1.Z$.Z$."0"..A|
00003DE0: CD 01 8E 00 10 42 CF 01 99 22 4F 55 54 50 55 54 |.....B..."OUTPUT|
00003DF0: 20 49 4E 44 45 58 20 54 4F 20 12 53 92 43 52 45 | INDEX TO .S.CRE|
00003E00: 45 4E 20 4F 52 20 12 50 92 52 49 4E 54 45 52 22 |EN OR .P.RINTER"|
00003E10: 00 25 42 D0 01 8D 34 34 31 3A 8B 47 24 B2 43 52 |.%B...441:.G$.CR|
00003E20: 24 A7 31 37 35 00 3E 42 D1 01 8B 47 24 B3 B1 22 |$.175.>B...G$.."|
00003E30: 53 22 AF 47 24 B3 B1 22 50 22 A7 34 36 34 00 56 |S".G$.."P".464.V|
00003E40: 42 D2 01 44 56 B2 34 3A 8B 47 24 B2 22 53 22 A7 |B..DV.4:.G$."S".|
00003E50: 44 56 B2 33 3A 8E 00 5F 42 D4 01 8D 34 34 39 00 |DV.3:.._B...449.|
00003E60: 92 42 D5 01 50 57 24 B2 22 20 45 4E 53 55 52 45 |.B..PW$." ENSURE|
00003E70: 20 50 52 49 4E 54 45 52 20 4F 4E 20 26 20 41 4C | PRINTER ON & AL|
00003E80: 49 47 4E 45 44 20 22 3A 99 22 12 22 50 57 24 22 |IGNED ":."."PW$"|
00003E90: 92 22 00 C7 42 D6 01 81 4B B2 31 A4 33 30 30 3A |."..B...K.1.300:|
00003EA0: 82 4B 3A 99 22 11 20 50 52 45 53 53 20 5B 12 52 |.K:.". PRESS [.R|
00003EB0: 45 54 55 52 4E 92 5D 20 57 48 45 4E 20 52 45 41 |ETURN.] WHEN REA|
00003EC0: 44 59 20 2E 2E 2E 22 00 F9 42 D7 01 A1 47 24 3A |DY ..."..B...G$:|
00003ED0: 8B 47 24 B3 B1 43 52 24 A7 99 22 91 91 91 22 50 |.G$..CR$.."..."P|
00003EE0: 57 24 3A 81 4B B2 31 A4 35 30 30 3A 82 4B 3A 99 |W$:.K.1.500:.K:.|
00003EF0: 22 91 91 22 3A 89 34 36 39 00 FF 42 D8 01 8E 00 |"..":.469..B....|
00003F00: 20 43 DA 01 99 22 11 11 12 20 50 52 49 4E 54 20 | C..."... PRINT |
00003F10: 92 20 49 4E 20 50 52 4F 47 52 45 53 53 22 3A 8E |. IN PROGRESS":.|
00003F20: 00 51 43 DC 01 83 22 42 41 4E 4B 22 2C 22 43 41 |.QC..."BANK","CA|
00003F30: 53 48 22 2C 22 53 41 4C 45 53 22 2C 22 50 55 52 |SH","SALES","PUR|
00003F40: 43 48 41 53 45 53 22 2C 22 4A 4F 55 52 4E 41 4C |CHASES","JOURNAL|
00003F50: 22 00 98 43 DD 01 83 22 42 41 4E 4B 20 43 4F 4E |"..C..."BANK CON|
00003F60: 54 52 4F 4C 22 2C 22 43 41 53 48 20 43 4F 4E 54 |TROL","CASH CONT|
00003F70: 52 4F 4C 22 2C 22 44 45 42 54 4F 52 20 43 4F 4E |ROL","DEBTOR CON|
00003F80: 54 52 4F 4C 22 2C 22 43 52 45 44 49 54 4F 52 20 |TROL","CREDITOR |
00003F90: 43 4F 4E 54 52 4F 4C 22 00 C6 43 DE 01 83 22 4F |CONTROL"..C..."O|
00003FA0: 55 54 50 55 54 20 56 41 54 22 2C 22 49 4E 50 55 |UTPUT VAT","INPU|
00003FB0: 54 20 56 41 54 22 2C 22 56 41 54 20 43 4C 45 41 |T VAT","VAT CLEA|
00003FC0: 52 41 4E 43 45 22 00 01 44 DF 01 83 22 52 45 53 |RANCE"..D..."RES|
00003FD0: 45 52 56 45 20 44 45 42 54 4F 52 53 22 2C 22 52 |ERVE DEBTORS","R|
00003FE0: 45 53 45 52 56 45 20 43 52 45 44 49 54 4F 52 53 |ESERVE CREDITORS|
00003FF0: 22 2C 22 50 52 4F 46 49 54 20 26 20 4C 4F 53 53 |","PROFIT & LOSS|
00004000: 22 00 43 44 E1 01 54 24 28 31 29 B2 22 20 20 20 |".CD..T$(1)." |
00004010: 20 12 20 20 20 92 20 12 20 20 20 92 20 12 20 20 | . . . . . |
00004020: 20 92 20 12 20 20 20 92 20 12 20 20 20 92 20 12 | . . . . . .|
00004030: 20 20 20 92 20 12 20 20 20 92 20 12 20 20 20 92 | . . . . .|
00004040: 20 20 22 00 8E 44 E2 01 54 24 28 32 29 B2 22 20 | "..D..T$(2)." |
00004050: 20 20 20 20 12 20 92 20 20 12 20 92 20 12 20 92 | . . . . . .|
00004060: 20 12 20 92 20 12 20 92 20 12 20 92 20 12 20 92 | . . . . . . . .|
00004070: 20 12 20 92 20 20 20 12 20 92 20 12 20 92 20 12 | . . . . . . .|
00004080: 20 92 20 12 20 92 20 20 12 20 92 20 20 22 00 D2 | . . . . . "..|
00004090: 44 E3 01 54 24 28 33 29 B2 22 20 20 20 20 20 12 |D..T$(3)." .|
000040A0: 20 92 20 20 12 20 92 20 20 20 12 20 20 20 92 20 | . . . . . |
000040B0: 12 20 92 20 12 20 92 20 12 20 20 20 92 20 12 20 |. . . . . . . |
000040C0: 20 20 92 20 12 20 92 20 20 20 20 12 20 92 20 20 | . . . . . |
000040D0: 20 22 00 1B 45 E4 01 54 24 28 34 29 B2 22 20 20 | "..E..T$(4)." |
000040E0: 20 20 20 12 20 92 20 20 12 20 92 20 20 20 12 20 | . . . . . |
000040F0: 92 20 12 20 92 20 12 20 92 20 12 20 92 20 20 20 |. . . . . . . |
00004100: 12 20 92 20 12 20 92 20 12 20 92 20 12 20 92 20 |. . . . . . . . |
00004110: 12 20 92 20 20 12 20 92 20 20 22 00 62 45 E5 01 |. . . . ".bE..|
00004120: 54 24 28 35 29 B2 22 20 20 20 20 20 12 20 92 20 |T$(5)." . . |
00004130: 20 12 20 92 20 20 20 12 20 92 20 12 20 92 20 12 | . . . . . . .|
00004140: 20 92 20 12 20 92 20 12 20 20 20 92 20 12 20 92 | . . . . . . .|
00004150: 20 12 20 92 20 12 20 20 20 92 20 20 12 20 92 20 | . . . . . . |
00004160: 20 22 00 9E 45 E6 01 54 24 B2 22 20 20 20 20 20 | "..E..T$." |
00004170: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00004180: 20 20 20 20 20 20 20 20 20 20 20 20 22 3A 99 C7 | ":..|
00004190: 28 31 34 32 29 C7 28 38 29 22 93 11 11 22 00 CB |(142).(8)"..."..|
000041A0: 45 E7 01 81 49 B2 31 A4 31 36 3A 99 A3 33 29 22 |E...I.1.16:..3)"|
000041B0: 12 22 54 24 22 92 22 3A 82 3A 99 22 13 11 11 22 |."T$".":.:."..."|
000041C0: 3A 81 49 B2 31 A4 32 35 30 3A 82 00 FC 45 E8 01 |:.I.1.250:...E..|
000041D0: 81 49 B2 31 A4 35 3A 99 54 24 28 49 29 3A 81 4A |.I.1.5:.T$(I):.J|
000041E0: B2 31 A4 35 30 3A 82 4A 2C 49 3A 99 22 20 20 20 |.1.50:.J,I:." |
000041F0: 22 54 24 3A 99 22 20 20 20 22 54 24 00 1D 46 E9 |"T$:." "T$..F.|
00004200: 01 99 A3 39 29 22 91 20 42 4F 4F 4B 2D 4B 45 45 |...9)". BOOK-KEE|
00004210: 50 49 4E 47 20 53 59 53 54 45 4D 20 22 00 3E 46 |PING SYSTEM ".>F|
00004220: EA 01 99 A6 33 29 3B 3A 81 49 B2 31 A4 31 36 3A |....3);:.I.1.16:|
00004230: 99 22 12 20 92 20 22 3B 3A 82 3A 99 3A 99 00 5A |.". . ";:.:.:..Z|
00004240: 46 EB 01 99 A3 31 32 29 22 05 20 46 20 1D 20 52 |F....12)". F . R|
00004250: 20 1D 20 4F 20 1D 20 4D 20 22 00 80 46 EC 01 99 | . O . M "..F...|
00004260: 3A 99 A3 38 29 22 9A 12 20 44 20 1D 20 49 20 1D |:..8)".. D . I .|
00004270: 20 41 20 1D 20 4C 20 1D 20 4F 20 1D 20 47 20 22 | A . L . O . G "|
00004280: 00 AE 46 ED 01 99 3A 99 A3 34 29 22 12 20 53 20 |..F...:..4)". S |
00004290: 1D 20 4F 20 1D 20 46 20 1D 20 54 20 1D 20 57 20 |. O . F . T . W |
000042A0: 1D 20 41 20 1D 20 52 20 1D 20 45 20 9E 22 00 CD |. A . R . E ."..|
000042B0: 46 EE 01 99 3A 99 A6 33 29 3B 3A 81 49 B2 31 A4 |F...:..3);:.I.1.|
000042C0: 31 36 3A 99 22 12 20 92 20 22 3B 3A 82 00 E5 46 |16:.". . ";:...F|
000042D0: EF 01 81 49 B2 31 A4 35 30 30 3A 82 3A 99 22 11 |...I.1.500:.:.".|
000042E0: 11 11 22 3A 8E 00 F4 46 F1 01 8B 4E B3 4D 54 AB |..":...F...N.MT.|
000042F0: 31 30 A7 8E 00 1B 47 F2 01 99 22 46 49 4C 45 20 |10....G..."FILE |
00004300: 49 53 20 46 55 4C 4C 20 2E 2E 2E 20 52 55 4E 20 |IS FULL ... RUN |
00004310: 27 55 50 44 41 54 45 27 11 11 22 00 52 47 F4 01 |'UPDATE'..".RG..|
00004320: 99 22 11 11 22 3B 43 44 24 C8 28 4C 4E 24 2C 32 |."..";CD$.(LN$,2|
00004330: 36 29 3A 99 22 50 52 45 53 53 20 5B 12 52 45 54 |6):."PRESS [.RET|
00004340: 55 52 4E 92 5D 20 46 4F 52 20 4F 50 54 49 4F 4E |URN.] FOR OPTION|
00004350: 53 22 00 67 47 F5 01 A1 47 24 3A 8B 47 24 B3 B1 |S".gG...G$:.G$..|
00004360: 43 52 24 A7 35 30 31 00 82 47 F6 01 8B 54 52 24 |CR$.501..G...TR$|
00004370: 28 31 29 B2 22 22 B0 44 B2 32 A7 44 B2 31 3A 89 |(1)."".D.2.D.1:.|
00004380: 35 31 00 8B 47 F7 01 89 31 37 35 00 C0 47 F9 01 |51..G...175..G..|
00004390: 99 43 44 24 22 91 50 52 45 53 53 20 5B 12 52 45 |.CD$".PRESS [.RE|
000043A0: 54 55 52 4E 92 5D 20 46 4F 52 20 27 54 52 41 4E |TURN.] FOR 'TRAN|
000043B0: 53 41 43 54 27 20 4F 50 54 49 4F 4E 53 22 3A 8E |SACT' OPTIONS":.|
000043C0: 00 E9 47 FB 01 8D 34 34 39 3A 99 22 12 20 44 49 |..G...449:.". DI|
000043D0: 53 4B 20 44 49 52 45 43 54 4F 52 59 20 92 11 22 |SK DIRECTORY .."|
000043E0: 3A 8D 35 32 31 3A 44 B2 31 00 0F 48 FC 01 9F 31 |:.521:D.1..H...1|
000043F0: 2C 38 2C 30 2C 22 24 30 3A 2A 3D 53 22 3A 81 4B |,8,0,"$0:*=S":.K|
00004400: B2 31 A4 32 35 3A A1 23 31 2C 58 24 3A 82 4B 00 |.1.25:.#1,X$:.K.|
00004410: 1E 48 FD 01 8B 44 B2 32 A7 44 B2 30 3A 99 00 3B |.H...D.2.D.0:..;|
00004420: 48 FE 01 99 A3 32 30 AC 44 29 3B 3A 81 4B B2 31 |H....20.D);:.K.1|
00004430: A4 34 3A A1 23 31 2C 58 24 3A 82 00 56 48 FF 01 |.4:.#1,X$:..VH..|
00004440: 8B 20 53 54 20 B0 20 44 53 20 A7 A0 31 3A 44 B2 |. ST . DS ..1:D.|
00004450: 32 3A 89 35 30 30 00 73 48 00 02 A1 23 31 2C 58 |2:.500.sH...#1,X|
00004460: 24 3A 8B 58 24 B2 22 22 A7 44 B2 44 AA 31 3A 89 |$:.X$."".D.D.1:.|
00004470: 35 30 39 00 8B 48 01 02 8B 58 24 B2 C7 28 33 34 |509..H...X$..(34|
00004480: 29 A7 4F B2 A8 4F 3A 89 35 31 32 00 97 48 02 02 |).O..O:.512..H..|
00004490: 8B 4F A7 99 58 24 3B 00 A0 48 03 02 89 35 31 32 |.O..X$;..H...512|
000044A0: 00 BE 48 05 02 9F 31 35 2C 38 2C 31 35 3A 84 31 |..H...15,8,15:.1|
000044B0: 35 2C 45 2C 45 24 3A 8B 45 B3 31 39 A7 8E 00 F3 |5,E,E$:.E.19....|
000044C0: 48 06 02 A0 31 3A 99 22 13 11 11 11 11 11 22 42 |H...1:."......"B|
000044D0: 4C 24 3A 99 22 91 22 3B 45 24 3B 22 3A 20 50 52 |L$:.".";E$;": PR|
000044E0: 45 53 53 20 5B 12 52 45 54 55 52 4E 92 5D 22 3A |ESS [.RETURN.]":|
000044F0: A0 31 35 00 FE 48 07 02 8D 34 34 31 3A 8E 00 16 |.15..H...441:...|
00004500: 49 09 02 9F 31 35 2C 38 2C 31 35 2C 22 49 30 22 |I...15,8,15,"I0"|
00004510: 3A A0 31 35 3A 8E 00 00 00 52 11 2D |:.15:....R.- |
..B....:. ** TRANSACT 64 ** (C) DIALOG S
OFTWARE JULY 1983 ** 0404.{....53280,2:
.53281,2:.".":.481:M$."T R A N S A C T":
.11......449:G$."END PROGRAM":.G.5.G$."R
ESTART WILL CLEAR MEMORY"......". "G$" .
":.(F.1.TR$(.)."").7............W.......
..U.XW.PU...LL NOW BE LOST".;...."AND
ACCOUNTS FILE HAS NOT BEEN UPDATED".O...
."..CONFIRM ACTION ? [.Y./.N.]":.443:.G$
."N".51.....G.6..481:......M$."T R A N
S A C T":.449:..P...MA.100:MT.150:.AC$(M
A),AC(MA),TR$(MT),TR(MA).......Z(R).(.((
MA.R)..5)).MA.<...CB$.".................
.....":LN$."............................
...........".....CD$."..................
....":BL$."
".....CR$.G(13):TD$."":TN$."":
TF$."":UD$."":PD$.""......CD$"REPORT DAT
E [.DD/MM/YY.] : ";:LI.8:AN.1:.419:AN.0.
...DA$.IN$:.DA$."".C(DA$)..LI.."..":.17
.P....G(9)G(14):.449:.". ACCOUNTS STRUCT
URE ..."......".C.REATE NEW FILE: LOAD .
D.ISK OR .T.APE FILE"......445:.G$.CR$.1
0......G.1.3:.G$..J("CDT",G,1)..:.22....
.."......"BL$:.".ENTER FILE . NAME . : "
;:LI.14:.419.....M$.IN$:.M$."".20......G
..1.392.7....449:.". ACCOUNTS SET-UP .".
K...."..HEADINGS FOR SECTION: . 1 ...":.
I.1.5:.Q$:.......I.1.10:.AC$(I):AC$.AC$(
I):I$.D(I):.I.10.I$." ".I$.S...."A/C: .
"I$" . ["AC$;H(BL$,20.C(AC$))"]":.... .
."..PRESS [.RETURN.] TO SET-UP NEW ACCOU
NTS"...!..441:.G$..CR$.33.&.#.X.11:S.1.S
.$..449:.". SET-UP ACCOUNTS .":XX.X.9:S.
S.1...%.."......ENTER HEADINGS FOR SECTI
ON: . "J(D(S),2)" ..."...&..I.X.XX:I$.D(
I):.I.100.I$.".".I$...'.."A/C: ."I$" .
";:LI.20:.419:.IN$.."".42...(..I.X.."."
BL$"..":I.I.2:.I...)..".";:.38.+.*..IN$.
."^".AC$(I).IN$:.46.8.+..I.11.41.S.,..I.
X.S.S.1:I.XX:.I:.51.R.-..J.I.XX:AC$(J)."
_":.J:I.XX......I:.CD$;"ACCEPT HEADINGS
? [.Y./.N.]".F./..443:.G$."N"..K.1.13:."
."BL$".":.:.37.Z.0.NA.XX:.NA.MA.51...1..
".ANY MORE HEADINGS ? [.Y./.N.]":.443:.G
$."Y".X.XX.1:.36.8.3..449:.". T R A N S
A C T .".Q.4.."...P.ROCESS TRANSACTIONS"
:.TR$(1)."".K$."":F.1:.54...5.."...T.RAN
SACTION FILE HANDLER":K$."ANOTHER ":.F.0
.55...6..UD$.."".."...L.OAD "K$"TRANSACT
ION REPORT FILE". .7.."...A.CCOUNTS FILE
HANDLER":."...D.ISK DIRECTORY OF FILES"
.D.8.."...R.ESTART OR .E.ND PROGRAM".P.9
..445:.G.1.7:.G$..J("PTLARED",G,1)..:.57
...:..(G.2.TR$(1)."").(G.3.(F.0.UD$.""))
.57...;..G.66,175,267,304,3,3,507...=..4
49:.". VAT . AUTOCALCULATOR."...>.."CURR
ENT RATE =."V"%...".;.?..".[.RETURN.] OR
ENTER NEW % RATE : ";:LI.5:.419:.IN$.""
.66.U.@.V.E(IN$):.V.0.V.50.63.C.B..F.1..
232...C.F.0:PD.0:Q$."":.449:.". PROCESS
...":.497.R.D..".B.ANK RECEIPTS & PAYMEN
TS":."..C.ASH RECEIPTS & PAYMENTS"...E..
"..S.ALES INVOICES & CREDIT NOTES".%.F..
"..P.URCHASE INVOICES & CREDIT NOTES".Y.
G.."..J.OURNALS":."...V.AT: AUTOCALC SET
-UP":.505.M.H..445:.G$.CR$.51...I..G.1.6
:.G$..J("BCSPJV",G,1)..:.72...J..G.6.61.
..K.Q1$."PAYMENT":Q2$."RECEIPT":.G.2.Q1$
."INVOICE":Q2$."CR/NOTE"...L.Q3$.H(Q1$,1
):Q4$.H(Q2$,1):.:.I.1.G:.H$:.:TT$.G$.7.M
.A.0:B.0:C.0:T.T.1:T$.J(D(T),2).S.N..449
:.". "H$" .".22.C(H$.T$))"TRANSACTION: .
"T$" ...."...O.T$.T$.H(BL$,4.C(T$)):.G.
5.153...P..Q$.."".85...Q..".PROCESS ."Q3
$"."J(Q1$,2)" OR ."Q4$"."J(Q2$,2)" ? ";.
..R.LI.1:.419:TM$.IN$:.TM$."".T.T.1:.66.
!.S..TM$..Q3$.TM$..Q4$.81.<.T.Q$.Q1$:.TM
$.Q4$.Q$.Q2$.J.U.."......"BL$:."."Q$" DA
TE ";:LI.8:.419...V..IN$."^".(IN$."".
TD$."").."."BL$:.81...W..IN$.."".TD$.IN$
.H(BL$,9.C(IN$)).U.X.."."Q$" DATE : "T
D$" "...Y.R$." TO ":.(TM$."R".G.4).R$."
FROM".#.Z.."......."Q$R$" ";:LI.20:.
419.L.[..IN$."^".(IN$."".TN$."").."."BL$
:.85.R.\..IN$.."".TN$.IN$.H(BL$,21.C(IN$
))...].."."Q$R$" : "TN$" "...^..".....
..."Q$" FOLIO ";:LI.8:.419..._..IN$."^
".(IN$."".TF$."").."."BL$:.89...`..IN$..
"".TF$.IN$.H(BL$,9.C(IN$))...A.."."Q$" F
OLIO : "TF$" ".8.B.TR$.TD$.TN$.TF$:.BL$
.Q.C..BL$".":.H(BL$,22.C(AC$(G)));AC$(G)
;:." : ^...";A$...D..H(A$,1)."^".."."B
L$:.94...E.R.E(A$):A..Z(R):.(A..01).(A.1
0.6).."..":.99...F.Z$.J(D(A),2):.457:.".
".25)H(BL$,12.C(Z$))"."Z$".".%.G.A..1.A:
TM.A:.148:A.TM:J.6:.(A.0.G.3).G.3.J.5.^.
H..BL$".":.H(BL$,22.C(AC$(J)));AC$(J);:.
" : ^...";B$...I..(H(B$,1)."^").(E(B$)
.0).."."BL$"..":.99...J..B$."@".R.A.(100
.V).V:B..1..Z(R):.111.F.K..B$.."P".109..
.L..G.1.CT.0:B.0:AB.A:I.7:C$.A$:.".".7)"
. "AC$(7)" . :":.124.#.M.R.E(B$):TM..Z(R
):.148:B.TM.M.N..(B.0.B..1.A).(B.0.B..1.
A).."..":.104...O.Z$.J(D(B),2):.457:."."
.25)H(BL$,12.C(Z$))"."Z$"."...P..:I.2:CT
.0:AB.A.B:.AB.0.I.0:.127...Q..(I.NA).(I.
2).I.2.W.R..(G.2.I.4).I.11.I.11...S..I.G
.I.G.1...T.AC.C(AC$(I)):.AC$(I)."_".I.I.
1:.113.K.U.."."BL$".":.H(BL$,20.AC);". "
AC$(I)" . : >";:."...";C$.B.V..C$.">".
I.I.1:.113...W..H(C$,1).">".I..(E(J(C$,2
))).10.9:.113...X..H(C$,1)."=".I..(E(J(C
$,2))):.113.Y.Y..C$."@".R..1.(AB.CT):C..
Z(R):.125...Z..C$."^".CT.0.."."BL$"..":.
104...{..(E(C$).0).(.(E(C$)).10.6).117.=
.|.R.E(C$):TM..Z(R):.148:C.TM.T.}.Z$.J(D
(C),2):.457:.".".25)H(BL$,12.C(Z$))"."Z$
".";...~..(C$."@".(.(C)..(AB))).(E(C$).0
)..151.I...:.".ACCEPT ANALYSIS ? [.Y./.
N.]":.443......"."BL$".":.G$."Y".132....
..B$."P".G.1.."..";:.104......AB.0.."...
..":.104.'....".";:.117.W...I$.J(D(I),2)
:TA$." ".TT$.I$.H(BL$,3.C(I$)).}...R.A:
A..Z(R):R.TR(G).A:TR(G)..Z(R).....R.B:B.
.Z(R):R.TR(J).B:TR(J)..Z(R).I...R.C:C..Z
(R):R.TR(I).C:TR(I)..Z(R).....R.CT.C:CT.
.Z(R).....A$.D(A):Z$.A$:.457:A$.H(BL$,10
.C(Z$)).Z$.7...B$.D(B):Z$.B$:.457:B$.H(B
L$,10.C(Z$)).Z$.D...C$.D(C):Z$.C$:.457:C
$.H(BL$,10.C(Z$)).Z$......"DETAILS: ";:L
I.20:.419:D$.IN$:.D$."".D$."<".I...."."B
L$".":N.N.1:TR$(N).T$.TR$.A$.B$.C$.TA$.D
$.....R.AB.CT:..Z(R)..0.A.0:B.0:TR$.BL$:
.".":.117......". OK . ... ";:.497:."ANO
THER "Q$" ? [.Y./.N.]".G...K$."":.K$:.K$
."".144.V....K$."Y".77.^....66......(G.3
.TM$."R").(G.3.TM$."I").(G.4.TM$."C").TM
..1.TM.......C....")";:.K.1.C(Z$).2:."."
;:.:."(";:..V....:I.1:J.1:CT.0......(I.N
A.I.1).I.1......AC$(I)."_".I.I.1:.154.<.
..."."BL$".":J$.J(D(J),2):.J$;:AC.23.C(A
C$(I)).C(J$).X....H(BL$,AC);". "AC$(I)"
.";:." : >...";C$:.C$.."^".160......J.
1.T.T.1......CT.0.66... ..C$.">".I.I.1:.
154.V....H(C$,1).">".I..(E(J(C$,2))).10.
9:.154......H(C$,1)."=".I..(E(J(C$,2))):
.154.....R.E(C$):C..Z(R):.(C.0).(C..10.5
).(C.10.5).156.G...Z$.D(C):.457:C$.H(BL$
,10.C(Z$)).Z$:.".".28)"."C$".";......C.0
.Z$.J(Z$,2):.151.....I$.J(D(I),2):TA$."
J".I$.H(BL$,3.C(I$)).W...R.CT.C:CT..Z(R
):R.TR(I).C:TR(I)..Z(R)......:.".DETAILS
: ";:LI.20:.419:D$.IN$:.D$."".D$."<".L..
.."."BL$".":N.N.1:TR$(N).T$.DA$." JOURNA
L ".BL$.C$.TA$.D$......CT..0.Z$.D(.1.
CT):.457:.".BALANCE: "Z$"..":J.J.1:.156.
....."ENTRIES NOW BALANCE - CONTINUE ? [
.Y./.N.]":.443......G$."Y".J.J.1:."."BL$
".":.156......66.....GF.1:.449:.". TRANS
ACTION FILE . "F$.8...."..ANALYSIS :
.V.IEW ENTRIES.".`.....10)": .S.UMMARIS
E OR .I.TEMISE."......"PRINTOUT : .F.U
LL TRANSACTION REPORT.".......10)": .C.
ONTROL ACCOUNTS REPORT.".......10)": .P
.OSTING DETAILS.":.F.1.182......"UPDATE
: .A.CCOUNT BALANCES."./...."SAVE TO
: .D.ISK OR .T.APE".H....505:.445:.G
$.CR$.51.S....G.GF.9:.G$..J("FCPSIAVDT",
G,1)..:.183......G.7.F$."".K$."":.255...
...G.6.F.1.183......G.4.DV.4:.468......G
.190,203,196,212,279,223,235,260,260....
..449:.". PROCESS REPORT . "F$:.474.)..
..362:.453:."TRANSACTION REPORT";.[.....
16);"FOLIO";.9);"TOTAL";.7);"VAT";.7);"N
ET".}.A..454:.:.I.1.N:.H(TR$(I),79):....
B..:.454:.4: 4:.175...D..449:.". POSTING
DETAILS . "F$:.474...E..362:.453:."TRN
AMOUNT DETAILS";.. F...18);"PO
STINGS":.454:.:.I.1.N.H G..H(TR$(I),4);"
";J(TR$(I),64,10);" ";J(TR$(I),80);
.T H.K.C(J(TR$(I),80)):.H(BL$,20.K);" :
";.. I.J.E(J(TR$(I),77,3)):.AC$(J);" A
/C":.I:.194.K K..449:.". CONTROL REPORT
. "F$:.474.. L..362:.453:."CONTROL A/CS
REPORT";..!M...15);"FOLIO";.9);"TOTAL";
.9);"TYPE".F!N..454:.:.I.1.N:.E(J(TR$(I)
,44,10)).0.210.E!O..H(TR$(I),53);" :
";..!P..:.J.1.5:.AC$:.J(TR$(I),76,1).
.H(AC$,1)... !Q..AC$:J.5..!R..I:.194..!T
..449:K$.". ANALYSIS SUMMARY . ".F$:.K$
".."..!U..463:.DV.4..455.."V..449:.K$:.D
V.4..474.5"W..362:.DV.4..452:."ANALYSIS
SUMMARY":.455.P"X..:.I.1.NA:.TR(I).0.219
.Q"Y..AC$(I);H(BL$,26.C(AC$(I)));. "Z.Z$
.D(TR(I)):.457:.H(BL$,11.C(Z$));"."Z$"."
.."...I:.:.DV.4..455.H"...4: 4:.DV.4.175
.Q"...500.."...449:.". "F$" . ACCOUNTS
UPDATE..".(#..."TRANSACTION FILE DETAILS
WILL BE WIPED.".Y#..."AFTER . UPDATING
. THE ACCOUNT BALANCES..".}#...F.0.PD.0.
GF.8:.".FIRST ";:.182..#..."."LN$:."ENSU
RE THE RELEVANT REPORTS ARE PRINTED":.LN
$..#..."..UPDATE FILE ? [.Y./.N.]":.443:
."."BL$:.G$.."Y".175.'$...".. OK .":.I.1
.NA:R.AC(I).TR(I):AC(I)..Z(R):..F$...232
:F.1:UD.1:UD$.DA$:.304.$..F$."":.I.1.N:
TR$(I)."":.:.I.1.NA:TR(I).0:.:N.0:T.0:..
.$...".TRANSACTIONS ON FILE = "H(TR$(N),
4)"...":.236..$...449:K$.". VIEW TRANSAC
TIONS . ".F$."..":.K$."%..."START VIEW
FROM . NUMBER . : ";:LI.3:.419:.IN$."".1
75.U%..K..(E(IN$)):.I.1.N:.(E(H(TR$(I),4
))..K)..:.234.B%...449:.K$..%...:.J.1.5:
.Q$:.H(Q$,1)..J(TR$(I),76,1)....%..." .
NUMBER . ."H(TR$(I),4)".".Z%..." . DA
TE . ."J(TR$(I),5,8)"."..&..." . NAM
E . ."J(TR$(I),14,20)".".(&...J(TR$(I
),14,7)."JOURNAL"..:.247.R&..." . FOLIO
. ."J(TR$(I),35,8)".":..W&..."."J(TR$
(I),44,10)". . "Q$" ."..&..."."J(TR$(I)
,54,10)". . VAT .".T&..."."J(TR$(I),64,
10)". . "AC$(E(J(TR$(I),77,3)))" ."..&.
..I.N..E(H(TR$(I.1),4)).K.I.I.1:.247..'.
..I.N.500.D'...".."CD$H(LN$,24):."VIEW N
EXT RECORD ? [.Y./.N.]":.443.E'...G$."Y"
.I.N.I.I.1:K.K.1:.238.N'...175..'..K$."
LOAD":.G.7.K$." SAVE"..'...449:."."K$" T
RANSACTION FILE ...":.F$..""....'..."ENT
ER FILE . NAME . : ";:LI.14:.419:.IN$.""
.51..(..F$.IN$:.PD$."".PD$.DA$..(....6(.
..254:.G.9..1,1,1,F$.".T":.262.M(...521:
.1,8,1,"0:".F$.".T,S,W":.517:.E.18.F$.""
:.260..(..."......"BL$:.".SAVING FILE .
"F$" .":.PD.0.PD.1.X(...1,PD$;CR$;:.1,N;
CR$;:.K.1.N:.1,H(TR$(K),79);CR$;..)...1,
J(TR$(K),80);CR$;:.K:.1,NA;CR$;:.K.1.NA.
()...1,TR(K);CR$;:.K: 1: 15:.175.P)...23
2:.449:.". TRANSACTION FILE ...".U)..."L
OAD FROM : .D.ISK OR .T.APE"..)...445:.
G$.CR$.51..)...G.1.2:.G$..J("DT",G,1)..:
.269.S)...254:.G.2..449:.1,1,0,F$.".T":.
273..)...1,8,0,"0:".F$.".T,S,R":.517:.E.
18.51.)*..."......"BL$:.".. "F$" . FILE
LOADING";.\*...1,PD$:.1,N:.K.1.N:.1,X$:.
1,Y$:TR$(K).X$.Y$:.K..*...1,NA:.K.1.NA:.
1,TR(K):.K: 1: 15..*..."...ED ":."..PROC
ESS REPORT DATE : ";PD$..*...".NO: OF TR
ANSACTIONS : ";H(TR$(N),4);"..":F.1:.500
..*..JJ.0:I.0:CT.0..+..J.JJ.1:JJ.J.14:.I
..NA.175.@+...449:.". ANALYSIS BY ACCOUN
T . "F$.C+...".....":.K.J.JJ:K$.D(K):I.
I.1..+...TR(I)..0..K$H(BL$,5.C(K$));AC$(
I):.K:.285..+...I.NA.I.I.1:.283..+...CD$
LN$:."SELECT .NO:. OR .C.ONTINUE: ";:LI.
2:.419..+...IN$."".175..+...IN$."C".280.
!, .IN%.E(IN$):.IN%.J.IN%.K.1.285.:,!.I.
0:J.0:K.0:.K.1.IN%.Q,".I.I.1:.TR(I).0.29
0.B,#..K:.CD$:.463..,$..449:.". "AC$(I)"
. ANALYSIS":.DV.4..474.A,%..362:.DV.4.
.452:.AC$(I);" A/C ANALYSIS":.455..,&.."
TRN AMOUNT DETAILS":...-'..J.1.N:
.E(J(TR$(J),77,3))..I.298.?-(..H(TR$(J),
4)" ."J(TR$(J),64,10)". "J(TR$(J),80).
D-).R.E(J(TR$(J),64,10)).CT:CT..Z(R)..-*
..J:R.TR(I).CT:Z$.D(.Z(R)):.457..-+..E(Z
$)..0..H(BL$,16.C(Z$))Z$" . CONTROL TOT
AL ."..-,.Z$.D(TR(I)):.457:K$.H("-------
----",C(Z$)):K.16.C(Z$). .-...K)K$:..K)Z
$:..K)K$:.4: 4:.DV.4.175.)....500.V.0.GF
.1:.449:.". ACCOUNTS FILE .":.UD.0.307..
.1.UD.0:."... UPDATE . IS NOW COMPLETED"
...2..".TO PROTECT THE NEW ACCOUNTS BALA
NCES":.".RE-";:GF.8:.313...3.."..HEADING
S : ";:.S.10..".A.MEND ONLY":.309../
4..".E.NTER OR .A.MEND".9/5..".ACCOUNTS
: .V.IEW OR .P.RINT.".|/6.."PERIOD-E
ND : .U.PDATE PROFIT & LOSS.":.AC(5).0
.AC(6).0.312../7.." : .C.LEA
R OUTPUT/INPUT VAT."../8.." :
.R.ESET BALANCES TO ZERO."..09.."SAVE
TO : .D.ISK OR .T.APE"..0:..505:.44
5:.G$.CR$.51.G0;..G.GF.9:.G$..J("EAVPUCR
DT",G,1)..:.314.R0<..G.365,368,318,318,4
05,399,415,381,381..0>.K$."VIEW NEXT SEC
TION ? [.Y./.N.]":AT$." VIEW ":.G.4.AT$
." PRINT ".Y0?..449:."."AT$"ACCOUNTS ...
"..1@.."SECTION : .H.EADINGS.":..9)":
.B.ALANCES".51A..G.4..". OR : .T.
RIAL BALANCE".J1B..445:.G$.CR$.304.^1C..
G.4.G$."T".350.W1D..G$.."H".G$.."B".322.
.1E.AT.0:AT$." HEADINGS ":.G$."B".AT.1:A
T$." BALANCES ".Q1F.DV.3:.G.4.DV.4:.468:
SS.1:.331..1G..449:."."AT$"..."..2H.."EN
TER SECTION TO DISPLAY .1 -"S". ";.,2I.L
I.2:.419:.IN$."".318.R2J.SS.E(IN$):.(SS.
1.SS.S).."..":.328.X2K..449:.". ACCOUNT"
AT$".":.DV.3.333. 2L..474:."..S.TOP / .R
.ESTART / .E.ND".F2M.XX.10.(SS.1):.362:.
I.SS.S:AC(0).0..2N..DV.4..451:." ACCOUNT
";AT$:.455..3O..:." SECTION"I:.:X.XX.1:X
X.X.9:.J.X.XX:J$.D(J).+3P..AT.0.340.^3Q.
.J$;H(BL$,5.C(J$));H(BL$,20.C(AC$(J)));A
C$(J);..3R.Z$.D(AC(J)):.457:.H(BL$,12.C(
Z$))"."Z$"."..3S.R.AC(0).AC(J):AC(0)..Z(
R):.341..3T..J$;H(BL$,8.C(J$));AC$(J);H(
BL$,20.C(AC$(J)))..3U..J:.AT.0.344."4V.Z
$.D(AC(0)):.457:L$.H("------------",C(Z$
)).N4W.B$.H(BL$,37.C(Z$)):.B$;L$:.B$;Z$:
.B$;L$.B4X..DV.4..358:.348..4Y..I.S.K$."
PRESS [.RETURN.] TO CONTINUE"..4Z..CD$H(
LN$,26):.K$:.441:.G$.."Y".I.S.U4[..DV.3.
.".."BL$:.BL$:."...."..4\..I:.4: 4:.304.
.4^.K$."TRIAL BALANCE"..5_..468:.449:.".
"K$" .":.474.>5`.DV.4:.362:.M$;.66.C(M$
));UD$.`5A..454:.K$.25)"DR".18)"CR":.454
.{5B..:.I.1.NA:.AC(I).0.348..5C.Z$.J(D(A
C(I)),2):.457:TB.30.C(Z$):..(AC(I)).1.TB
.TB.20..5D..AC$(I);H(BL$,30.C(AC$(I)));.
TB);Z$:.348..5F.P$."":.4: 4..6G..G$:.G$.
"".P$."S".359.#6H.P$.G$:.P$."S".359.36I.
.P$."E".I.S.K6J..4,DV:.4:.DV.4..".".Q6K.
.._6M..S.10.314.Y6N.X..(10.(S).1):I.0:.3
6..6P.X.11:Y.1..6Q..449:.". AMEND ACCOUN
TS ."..6R.XX.X.9:Y.Y.1:.Y.S.304..6S.."..
....SECTION: . "J(D(Y),2)" ..."..7T..I.X
.XX:AC$.AC$(I):I$.D(I):.I.100.I$.".".I$.
J7U.."A/C: ."I$" . [."AC$;H(BL$,20.C(A
C$))".]":...7V.."...A/C: .NO:. TO AMEND
OR .C.ONTINUE: ";:LI.3:.419..7W..IN$."".
304..7X..IN$."C".X.XX.1:.370.Q7Y.G.E(IN$
):.G.X.G.XX..".....":.374..8Z.."."BL$"."
:."A/C: . "IN$" . ";:LI.20:.419:.IN$."
".371.!8{.AC$(G).IN$:.371.F8}..449:.". S
AVE ACCOUNTS FILE ...".P8~.."RENAME FILE
FOR UPDATE ? [.Y./.N.]"..8..443:.G$."N
".IN$.M$:.385.B8...".ENTER . NEW . NAME:
";:LI.14:.419:.IN$."".381..8...G.9..1,1
,1,IN$:.387..8...521:.1,8,1,"@0:".IN$.",
S,W".39..."......"BL$:.".SAVING FILE . "
IN$" .":.1,DA$;CR$;.V9...1,NA;CR$;:.1,S;
CR$;:.1,V;CR$;.T9...K.1.NA:.1,AC$(K);CR$
;:.K. 9...K.1.NA:.1,AC(K);CR$;:.K: 1:M$.
IN$:.304..9...G.3..449:.1,1,0,M$:.394..9
...1,8,0,"0:".M$.",S,R":.517:.E.18.M$."
":.20.#:..."......"BL$:.".. ";M$;" . FI
LE LOADING";:.1,UD$.L:...1,NA:.1,S:.1,V:
.K.1.NA:.1,AC$(K):.K.W:...K.1.NA:.1,AC(K
):.K: 1: 15:."...ED .."..:..."FILE LAST
UPDATED ON ";UD$:.500.U:...449:.". VAT C
LEARANCE ...":.K.5.6:Z$.D(AC(K)):.457..;
...AC$(K).K)"="H(BL$,15.C(Z$))Z$:.K:."..
".:;...LN$:."ENSURE THAT THE VAT RETURN
IS COMPLETED":.LN$.O;..."..UPDATE ACCOUN
T ? [.Y./.N.]":.443:.G$."N".304. ;..AC(7
).AC(5).AC(6).AC(7):AC(5).0:AC(6).0:.304
.U;..AC(0).0:.449:."UPDATE . PROFIT & LO
SS . ACCOUNT"..;...K.11.NA:.AC(K).0.410.
<..."......[."AC$(K);H(BL$,20.C(AC$(K))
)".]...".T<..."TRANSFER BALANCE ON ACCOU
NT ? [.Y./.N.]":.443..<..."."BL$".":.G$.
"Y".R.AC(0).AC(K):AC(0)..Z(R):AC(K).0..<
...K:R.AC(10).AC(0):AC(10)..Z(R):L$.H(LN
$,23)..<..."....."L$:.". UPDATE IS COMP
LETED .":.L$.*=...".PRINT THE BALANCE S
HEET ? [.Y./.N.]":.443:.G$."N".304.F=..K
$."BALANCE SHEET":.351.O=...449:.". RESE
T BALANCES TO ZERO ...". = .."ARE YOU SU
RE ? [.Y./.N.]":.443:.G$."N".304..=...I.
1.NA:AC(I).0:.:.304..=...".[";H(BL$,LI);
"]";H(CB$,LI.1);..=..IN$." ":IT.TI:IC.2.
.>...IP$:.IP$.."".424.=>...IT..TI..J(" .
",IC,1);".";:IC.3.IC:IT.TI.15.F>...421.M
>..A.F(IP$):IL.C(IN$):.(A.127).32.430..>
...(A.34.A.44.A.58).(AN.1.(A.46.A.57)).4
21..>...IL.LI.1.429..>...IP$:.IP$."".426
.I>...424..>..IN$.IN$.IP$:.IP$;:IL.C(IN$
):.IL.LI.1.."].";:.427.$?...A.13..436:IN
$.J(IN$,2):.".":.438.H?...A.20.IL.1.IN$.
H(IN$,IL.1):.434.T?...A.141.IL.1..436:.K
.2.IL:.". .";:.:.420.}?...421. ?..BU$."
..":.C(IN$).LI.BU$."].."..?...BU$;:.421.
C?...IL.LI.1.." .";.I?.....?...H(IN$,1).
" ".IN$.""..?.....@..G$."":.G$:.G$."".44
1..@....*@..G$."":.G$:.G$.."Y".G$.."N".4
43.0@....R@...CD$LN$:.". SELECT . LETTER
".X@..G$."":.G$:.G$..""..".."BL$:.BL$:.
..@...K.1.300:.K:.". SELECT . LETTER .":
.K.1.300:.K:.445.V@A.."..";M$;.31.C(M$))
;DA$".":.LN$:...@C..M$;.29.C(M$));UD$:.4
55..AD..F$;.29.C(F$));PD$:.455.%AE..F$;.
66.C(F$));PD$.SAF.."--------------------
-----------------";..AG.."--------------
-----------------------":...AI..Z.1.C(Z$
):.J(Z$,Z,1).".".460..AJ..Z..AK.Z$.Z$.".
00":.461..AL.Z.C(Z$).Z:.Z.1.Z$.Z$."0"..A
M....BO.."OUTPUT INDEX TO .S.CREEN OR .P
.RINTER".%BP..441:.G$.CR$.175.>BQ..G$.."
S".G$.."P".464.VBR.DV.4:.G$."S".DV.3:.._
BT..449..BU.PW$." ENSURE PRINTER ON & AL
IGNED ":."."PW$".".GBV..K.1.300:.K:.". P
RESS [.RETURN.] WHEN READY ..."..BW..G$:
.G$..CR$.."..."PW$:.K.1.500:.K:."..":.46
9..BX... CZ.."... PRINT . IN PROGRESS":.
.QC..."BANK","CASH","SALES","PURCHASES",
"JOURNAL"..C..."BANK CONTROL","CASH CONT
ROL","DEBTOR CONTROL","CREDITOR CONTROL"
.FC..."OUTPUT VAT","INPUT VAT","VAT CLEA
RANCE"..D..."RESERVE DEBTORS","RESERVE C
REDITORS","PROFIT & LOSS".CD..T$(1)."
. . . . . . . . . . . . .
. . . "..D..T$(2)." . . . . . .
. . . . . . . . . . . . . . . . . .
. . ".RD..T$(3)." . . . . . .
. . . . . . . . . . . . "..E..T
$(4)." . . . . . . . . . . . .
. . . . . . . . . . . . ".BE..T$(5)."
. . . . . . . . . . . . . . . .
. . . . . . "..E..T$."
":.G(142)G(8)"...".K
E...I.1.16:..3)"."T$".":.:."...":.I.1.25
0:...E...I.1.5:.T$(I):.J.1.50:.J,I:."
"T$:." "T$..F....9)". BOOK-KEEPING SYS
TEM ".>F....3);:.I.1.16:.". . ";:.:.:..Z
F....12)". F . R . O . M "..F...:..8)"..
D . I . A . L . O . G "..F...:..4)". S
. O . F . T . W . A . R . E .".MF...:..3
);:.I.1.16:.". . ";:...F...I.1.500:.:.".
..":...F...N.MT.10....G..."FILE IS FULL
... RUN 'UPDATE'..".RG..."..";CD$H(LN$,2
6):."PRESS [.RETURN.] FOR OPTIONS".GG...
G$:.G$..CR$.501..G...TR$(1)."".D.2.D.1:.
51..G...175..G...CD$".PRESS [.RETURN.] F
OR 'TRANSACT' OPTIONS":...G...449:.". DI
SK DIRECTORY ..":.521:D.1..H...1,8,0,"$0
:*=S":.K.1.25:.#1,X$:.K..H...D.2.D.0:..;
H....20.D);:.K.1.4:.#1,X$:..VH... ST . D
S . 1:D.2:.500.SH...#1,X$:.X$."".D.D.1:.
509..H...X$.G(34).O..O:.512..H...O..X$;.
H...512..H...15,8,15:.15,E,E$:.E.19....
H.. 1:."......"BL$:.".";E$;": PRESS [.RE
TURN.]": 15..H...441:...I...15,8,15,"I0"
: 15:....R.-
> CLICK IMAGE PREVIEW FOR FULL MODAL