FORMAT
FILE INFORMATION
FILENAME(S): FORMAT
FILE TYPE(S): PRG
FILE SIZE: 10.1K
FIRST SEEN: 2025-10-19 22:49:24
APPEARS ON: 1 disk(s)
FILE HASH
9c706d6802c3e2e93e4282815539cf68472454da83ef4cde4c54b462f9261e1e
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| GOLD DISK JAN86 | FORMAT | PRG | Radd Maxx | 22 | 9 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 25 08 01 00 8F 20 2A 2A 20 52 45 56 20 46 |..%.... ** REV F|
00000010: 4F 52 4D 2E 38 35 2F 31 31 2F 31 36 2E 31 20 52 |ORM.85/11/16.1 R|
00000020: 57 4D 20 2A 2A 00 4B 08 02 00 8F 2D 2D 2D 2D 2D |WM **.K....-----|
00000030: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000040: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 67 08 03 00 |-----------.g...|
00000050: 8F 20 20 20 20 20 20 20 20 31 39 38 33 20 31 30 |. 1983 10|
00000060: 20 32 35 20 45 4D 57 00 7A 08 04 00 99 22 93 22 | 25 EMW.z...."."|
00000070: C7 28 31 34 29 C7 28 38 29 3B 00 97 08 05 00 97 |.(14).(8);......|
00000080: 35 33 32 38 30 2C 35 3A 97 35 33 32 38 31 2C 37 |53280,5:.53281,7|
00000090: 3A 97 36 34 36 2C 39 00 A4 08 06 00 9F 31 35 2C |:.646,9......15,|
000000A0: 38 2C 31 35 00 AC 08 07 00 89 36 36 00 BE 08 08 |8,15......66....|
000000B0: 00 99 22 93 22 3A 20 9E 20 34 39 31 35 32 00 E6 |..".": . 49152..|
000000C0: 08 09 00 8D 35 36 3A 4D 58 B2 38 3A 41 46 B2 30 |....56:MX.8:AF.0|
000000D0: 3A 4E 46 B2 AB 31 3A 56 24 B2 22 2F 22 3A 8D 34 |:NF..1:V$."/":.4|
000000E0: 35 3A 8B 51 A7 8E 00 FA 08 0A 00 8D 33 36 31 3A |5:.Q........361:|
000000F0: 8B A8 56 A7 8D 35 39 3A 89 39 00 00 09 0B 00 8E |..V..59:.9......|
00000100: 00 28 09 0C 00 8D 35 36 3A 4D 58 B2 38 3A 41 46 |.(....56:MX.8:AF|
00000110: B2 30 3A 4E 46 B2 AB 31 3A 56 24 B2 22 2E 22 3A |.0:NF..1:V$.".":|
00000120: 8D 34 35 3A 8B 51 A7 8E 00 3D 09 0D 00 8D 33 35 |.45:.Q...=....35|
00000130: 30 3A 8B A8 56 A7 8D 35 39 3A 89 31 32 00 43 09 |0:..V..59:.12.C.|
00000140: 0E 00 8E 00 6A 09 0F 00 8D 35 36 3A 4D 58 B2 33 |....j....56:MX.3|
00000150: 3A 41 46 B2 30 3A 4E 46 B2 AB 31 3A 56 24 B2 22 |:AF.0:NF..1:V$."|
00000160: 22 3A 8D 34 35 3A 8B 51 A7 8E 00 7F 09 10 00 8D |":.45:.Q........|
00000170: 33 34 30 3A 8B A8 56 A7 8D 35 39 3A 89 31 35 00 |340:..V..59:.15.|
00000180: 85 09 11 00 8E 00 A0 09 12 00 56 24 B2 22 22 3A |..........V$."":|
00000190: 41 46 B2 AB 31 3A 4E 46 B2 30 3A 8D 34 35 3A 8E |AF..1:NF.0:.45:.|
000001A0: 00 BB 09 13 00 56 24 B2 22 22 3A 41 46 B2 30 3A |.....V$."":AF.0:|
000001B0: 4E 46 B2 AB 31 3A 8D 34 35 3A 8E 00 E2 09 14 00 |NF..1:.45:......|
000001C0: 8D 35 36 3A 4D 58 B2 33 3A 41 46 B2 30 3A 4E 46 |.56:MX.3:AF.0:NF|
000001D0: B2 AB 31 3A 56 24 B2 22 22 3A 8D 34 35 3A 8B 51 |..1:V$."":.45:.Q|
000001E0: A7 8E 00 07 0A 15 00 8D 33 34 30 3A 8B A8 56 A7 |........340:..V.|
000001F0: 8B C5 28 41 24 29 B3 B1 30 B0 41 24 B2 22 22 A7 |..(A$)..0.A$."".|
00000200: 8D 35 39 3A 89 32 30 00 0D 0A 16 00 8E 00 23 0A |.59:.20.......#.|
00000210: 17 00 8D 35 36 3A 4D 58 B2 32 3A 8D 31 39 3A 8B |...56:MX.2:.19:.|
00000220: 51 A7 8E 00 41 0A 18 00 8B C5 28 41 24 29 B2 30 |Q...A.....(A$).0|
00000230: B0 C5 28 41 24 29 B1 54 54 A7 8D 35 39 3A 89 32 |..(A$).TT..59:.2|
00000240: 33 00 47 0A 19 00 8E 00 55 0A 1A 00 41 46 B2 30 |3.G.....U...AF.0|
00000250: 3A 4E 46 B2 30 00 67 0A 1B 00 5A 56 B2 30 3A 8D |:NF.0.g...ZV.0:.|
00000260: 33 32 3A 8B 51 A7 8E 00 84 0A 1C 00 8B 41 46 A7 |32:.Q........AF.|
00000270: 8B C7 28 C6 28 41 24 29 AF 31 32 37 29 B2 B1 22 |..(.(A$).127).."|
00000280: 20 22 A7 8E 00 9E 0A 1D 00 8B 4E 46 A7 8B 41 24 | "........NF..A$|
00000290: B1 22 2F 22 A7 8B 41 24 B3 22 3A 22 A7 8E 00 CF |."/"..A$.":"....|
000002A0: 0A 1E 00 8B 56 24 B3 B1 22 22 A7 81 5A B2 31 A4 |....V$..""..Z.1.|
000002B0: C3 28 56 24 29 3A 5A 56 B2 5A 3A 8B 41 24 B3 B1 |.(V$):ZV.Z:.A$..|
000002C0: CA 28 56 24 2C 5A 2C 31 29 A7 82 3A 89 32 37 00 |.(V$,Z,1)..:.27.|
000002D0: D5 0A 1F 00 8E 00 E7 0A 20 00 A1 41 24 3A 8B 41 |........ ..A$:.A|
000002E0: 24 B2 22 22 A7 33 32 00 F4 0A 21 00 8B 51 46 B2 |$."".32...!..QF.|
000002F0: 30 A7 33 36 00 0C 0B 22 00 8B 41 24 B2 22 85 22 |0.36..."..A$."."|
00000300: A7 51 B2 31 3A 41 24 B2 22 22 3A 8E 00 24 0B 23 |.Q.1:A$."":..$.#|
00000310: 00 8B 41 24 B2 22 86 22 A7 51 B2 32 3A 41 24 B2 |..A$.".".Q.2:A$.|
00000320: 22 22 3A 8E 00 2E 0B 24 00 51 B2 30 3A 8E 00 5F |"":....$.Q.0:.._|
00000330: 0B 25 00 41 46 B2 30 3A 4E 46 B2 AB 31 3A 56 24 |.%.AF.0:NF..1:V$|
00000340: B2 22 22 3A 8D 32 37 3A 8B 51 B0 C5 28 41 24 29 |."":.27:.Q..(A$)|
00000350: B3 B2 54 54 A7 54 54 B2 C5 28 41 24 29 3A 8E 00 |..TT.TT..(A$):..|
00000360: 67 0B 26 00 89 33 37 00 8A 0B 27 00 A1 41 24 3A |g.&..37...'..A$:|
00000370: 8B 41 24 B3 22 30 22 B0 41 24 B1 22 39 22 B0 C5 |.A$."0".A$."9"..|
00000380: 28 41 24 29 B1 54 54 A7 33 39 00 99 0B 28 00 54 |(A$).TT.39...(.T|
00000390: 54 B2 C5 28 41 24 29 3A 8E 00 A6 0B 29 00 97 32 |T..(A$):....)..2|
000003A0: 30 34 2C 30 3A 8E 00 C3 0B 2A 00 97 32 30 34 2C |04,0:....*..204,|
000003B0: 32 35 35 3A 97 32 30 37 2C 30 3A 99 22 20 9D 22 |255:.207,0:." ."|
000003C0: 3B 3A 8E 00 FA 0B 2B 00 8D 35 36 3A 56 24 B2 22 |;:....+..56:V$."|
000003D0: 59 4E 22 3A 4D 58 B2 31 3A 41 46 B2 30 3A 4E 46 |YN":MX.1:AF.0:NF|
000003E0: B2 30 3A 8D 34 35 3A 8B 41 24 B2 22 22 A7 8B 51 |.0:.45:.A$.""..Q|
000003F0: B2 30 A7 8D 35 39 3A 89 34 33 00 00 0C 2C 00 8E |.0..59:.43...,..|
00000400: 00 37 0C 2D 00 99 C8 28 22 20 20 20 20 20 20 20 |.7.-...(" |
00000410: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000420: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000430: 20 22 2C 4D 58 29 3B 00 6E 0C 2E 00 99 C8 28 22 | ",MX);.n.....("|
00000440: 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D |................|
00000450: 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D |................|
00000460: 9D 9D 9D 9D 9D 9D 9D 9D 22 2C 4D 58 29 3B 00 8B |........",MX);..|
00000470: 0C 2F 00 41 41 24 B2 22 22 3A 56 24 B2 C7 28 31 |./.AA$."":V$..(1|
00000480: 33 29 AA C7 28 32 30 29 AA 56 24 00 A9 0C 30 00 |3)..(20).V$...0.|
00000490: 8D 34 31 3A 8D 32 37 3A 8D 34 32 3A 8B 51 A7 41 |.41:.27:.42:.Q.A|
000004A0: 41 24 B2 22 22 3A 89 35 35 00 B6 0C 31 00 8B 5A |A$."":.55...1..Z|
000004B0: 56 B2 31 A7 35 35 00 C3 0C 32 00 8B 5A 56 B2 32 |V.1.55...2..ZV.2|
000004C0: A7 35 33 00 D6 0C 33 00 8B C3 28 41 41 24 29 B2 |.53...3...(AA$).|
000004D0: B1 4D 58 A7 34 38 00 EE 0C 34 00 41 41 24 B2 41 |.MX.48...4.AA$.A|
000004E0: 41 24 AA 41 24 3A 99 41 24 3B 3A 89 34 38 00 17 |A$.A$:.A$;:.48..|
000004F0: 0D 35 00 8B 41 41 24 B3 B1 22 22 A7 41 41 24 B2 |.5..AA$.."".AA$.|
00000500: C8 28 41 41 24 2C C3 28 41 41 24 29 AB 31 29 3A |.(AA$,.(AA$).1):|
00000510: 99 C7 28 32 30 29 3B 00 1F 0D 36 00 89 34 38 00 |..(20);...6..48.|
00000520: 40 0D 37 00 56 24 B2 CA 28 56 24 2C 33 29 3A 41 |@.7.V$..(V$,3):A|
00000530: 24 B2 41 41 24 3A 41 41 24 B2 22 22 3A 99 3A 8E |$.AA$:AA$."":.:.|
00000540: 00 5C 0D 38 00 43 4C B2 B9 28 30 29 3A 8B 43 4C |.\.8.CL..(0):.CL|
00000550: B1 33 39 A7 43 4C B2 43 4C AB 34 30 00 6C 0D 39 |.39.CL.CL.40.l.9|
00000560: 00 56 4C B2 C2 28 32 31 34 29 3A 8E 00 76 0D 3A |.VL..(214):..v.:|
00000570: 00 99 22 93 22 3B 00 A0 0D 3B 00 99 22 13 22 C8 |..".";...;..".".|
00000580: 28 22 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |("..............|
00000590: 11 11 11 11 11 11 11 11 11 11 22 2C 56 4C 29 3B |..........",VL);|
000005A0: 00 D6 0D 3C 00 99 C8 28 22 1D 1D 1D 1D 1D 1D 1D |...<...(".......|
000005B0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
000005C0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
000005D0: 22 2C 43 4C 29 3B 00 DC 0D 3D 00 8E 00 F2 0D 3E |",CL);...=.....>|
000005E0: 00 8B 51 46 A7 8D 35 36 3A 99 54 48 24 3B 3A 8D |..QF..56:.TH$;:.|
000005F0: 35 39 00 F8 0D 3F 00 8E 00 0E 0E 40 00 8B 51 46 |59...?.....@..QF|
00000600: A7 8D 35 36 3A 99 54 46 24 3B 3A 8D 35 39 00 14 |..56:.TF$;:.59..|
00000610: 0E 41 00 8E 00 45 0E 42 00 4E 41 24 B2 22 13 11 |.A...E.B.NA$."..|
00000620: 1D 1D 1D 2A 2A 2A 20 C2 D5 C4 C7 C5 D4 C5 D2 20 |...*** ........ |
00000630: 36 34 20 2D 20 C6 C9 CC C5 20 C6 CF D2 CD C1 D4 |64 - .... ......|
00000640: 20 2A 2A 2A 22 00 78 0E 43 00 53 54 24 B2 22 11 | ***".x.C.ST$.".|
00000650: 1D 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.***************|
00000660: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000670: 2A 2A 2A 2A 2A 2A 2A 22 00 84 0E 44 00 99 22 93 |*******"...D..".|
00000680: 22 4E 41 24 00 8D 0E 45 00 99 53 54 24 00 B7 0E |"NA$...E..ST$...|
00000690: 46 00 99 22 11 11 1D 1D 2D C4 41 54 45 20 28 59 |F.."....-.ATE (Y|
000006A0: 59 2F 4D 4D 2F 44 44 29 20 20 3F 20 22 3B 3A 8D |Y/MM/DD) ? ";:.|
000006B0: 39 3A 8B 51 A7 37 30 00 C9 0E 47 00 5A 55 24 B2 |9:.Q.70...G.ZU$.|
000006C0: 41 24 3A 5A 53 24 B2 41 24 00 E2 0E 48 00 8D 31 |A$:ZS$.A$...H..1|
000006D0: 38 38 3A 5A 4E 24 B2 5A 31 24 3A 5A 58 24 B2 5A |88:ZN$.Z1$:ZX$.Z|
000006E0: 32 24 00 FD 0E 49 00 8D 32 30 39 3A 42 4E B2 42 |2$...I..209:BN.B|
000006F0: 5A 3A 43 4E B2 43 5A 3A 48 4E B2 48 5A 00 42 0F |Z:CN.CZ:HN.HZ.B.|
00000700: 4A 00 86 42 41 24 28 35 29 2C 42 42 28 35 29 2C |J..BA$(5),BB(5),|
00000710: 42 53 28 35 29 2C 42 44 25 28 35 29 2C 42 50 25 |BS(5),BD%(5),BP%|
00000720: 28 35 29 2C 42 4F 25 28 35 29 2C 42 31 28 32 30 |(5),BO%(5),B1(20|
00000730: 30 29 2C 42 31 24 28 32 30 30 29 3A 42 4D B2 32 |0),B1$(200):BM.2|
00000740: 30 30 00 87 0F 4B 00 86 43 41 24 28 37 29 2C 43 |00...K..CA$(7),C|
00000750: 42 28 37 29 2C 43 53 28 37 29 2C 43 44 25 28 37 |B(7),CS(7),CD%(7|
00000760: 29 2C 43 50 25 28 37 29 2C 43 4F 25 28 37 29 2C |),CP%(7),CO%(7),|
00000770: 43 31 28 32 30 30 29 2C 43 31 24 28 32 30 30 29 |C1(200),C1$(200)|
00000780: 3A 43 4D B2 31 30 30 00 D1 0F 4C 00 86 48 41 24 |:CM.100...L..HA$|
00000790: 28 32 30 29 2C 48 42 28 32 30 29 2C 48 44 25 28 |(20),HB(20),HD%(|
000007A0: 32 30 29 2C 48 50 25 28 32 30 29 2C 54 48 28 32 |20),HP%(20),TH(2|
000007B0: 30 29 2C 41 44 28 32 31 29 2C 48 31 28 33 30 30 |0),AD(21),H1(300|
000007C0: 29 2C 48 31 24 28 33 30 30 29 3A 48 4D B2 34 30 |),H1$(300):HM.40|
000007D0: 30 00 04 10 4D 00 86 48 4E 28 32 30 29 2C 48 54 |0...M..HN(20),HT|
000007E0: 28 32 30 29 2C 48 44 24 28 32 30 29 2C 50 42 24 |(20),HD$(20),PB$|
000007F0: 28 32 30 29 2C 41 4D 24 28 32 30 29 2C 4E 42 24 |(20),AM$(20),NB$|
00000800: 28 32 30 29 00 0F 10 4E 00 86 54 28 32 30 29 00 |(20)...N..T(20).|
00000810: 42 10 4F 00 54 43 24 B2 22 11 1D C0 C0 C0 C0 C0 |B.O.TC$.".......|
00000820: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000830: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000840: C0 22 00 6B 10 50 00 54 47 24 B2 22 1D 1D 1D 1D |.".k.P.TG$."....|
00000850: 1D 1D 1D 1D 1D B1 1D 1D 1D 1D 1D 1D 1D 1D 1D B1 |................|
00000860: 1D 1D 1D 1D 1D 1D 1D 1D 1D B1 22 00 96 10 51 00 |.........."...Q.|
00000870: 54 4D 24 B2 22 13 11 11 1D 1D 1D 1D 1D 1D 1D 1D |TM$."...........|
00000880: 1D 1D 1D B0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000890: C0 C0 C0 C0 AE 22 00 BE 10 52 00 54 4E 24 B2 22 |....."...R.TN$."|
000008A0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D DD 1D 1D 1D 1D |................|
000008B0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D DD 22 00 02 |............."..|
000008C0: 11 53 00 54 48 24 B2 22 13 11 11 11 11 11 11 11 |.S.TH$."........|
000008D0: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
000008E0: 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 46 31 92 |.............F1.|
000008F0: 2D D2 45 44 4F 2C 20 12 46 33 92 2D D1 55 49 54 |-.EDO, .F3.-.UIT|
00000900: 13 22 00 42 11 54 00 54 46 24 B2 22 13 11 11 11 |.".B.T.TF$."....|
00000910: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00000920: 11 11 11 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00000930: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000940: 13 22 00 5D 11 55 00 54 54 24 28 31 29 B2 22 C2 |.".].U.TT$(1).".|
00000950: 41 4E 4B 20 C1 43 43 4F 55 4E 54 53 22 00 7A 11 |ANK .CCOUNTS".z.|
00000960: 56 00 54 54 24 28 32 29 B2 22 C3 48 41 52 47 45 |V.TT$(2).".HARGE|
00000970: 20 C1 43 43 4F 55 4E 54 53 22 00 97 11 57 00 54 | .CCOUNTS"...W.T|
00000980: 54 24 28 33 29 B2 22 C2 55 44 47 45 54 20 C1 43 |T$(3).".UDGET .C|
00000990: 43 4F 55 4E 54 53 22 00 A1 11 58 00 51 46 B2 AB |COUNTS"...X.QF..|
000009A0: 31 00 C6 11 59 00 99 22 93 11 1D 1D 1D 1D 1D 1D |1...Y.."........|
000009B0: 1D 1D 1D 1D 1D 1D 2A 2A 20 CD C1 C9 CE 20 CD C5 |......** .... ..|
000009C0: CE D5 20 2A 2A 22 00 CF 11 5A 00 99 53 54 24 00 |.. **"...Z..ST$.|
000009D0: F9 11 5B 00 99 22 11 1D 1D 1D 1D 1D 2D D7 48 41 |..[.."......-.HA|
000009E0: 54 20 57 4F 55 4C 44 20 59 4F 55 20 4C 49 4B 45 |T WOULD YOU LIKE|
000009F0: 20 54 4F 20 44 4F 20 3F 22 00 21 12 5C 00 99 22 | TO DO ?".!.\.."|
00000A00: 11 11 1D 1D 1D 1D 1D 1D 30 2D D3 45 54 55 50 20 |........0-.ETUP |
00000A10: 20 2D 20 C1 43 43 4F 55 4E 54 20 46 49 4C 45 53 | - .CCOUNT FILES|
00000A20: 22 00 48 12 5D 00 99 22 11 1D 1D 1D 1D 1D 1D 31 |".H.]..".......1|
00000A30: 2D D2 45 56 49 53 45 20 2D 20 C2 41 4E 4B 20 C1 |-.EVISE - .ANK .|
00000A40: 43 43 4F 55 4E 54 53 22 00 70 12 5E 00 99 22 1D |CCOUNTS".p.^..".|
00000A50: 1D 1D 1D 1D 1D 32 2D D2 45 56 49 53 45 20 2D 20 |.....2-.EVISE - |
00000A60: C3 48 41 52 47 45 20 C1 43 43 4F 55 4E 54 53 22 |.HARGE .CCOUNTS"|
00000A70: 00 98 12 5F 00 99 22 1D 1D 1D 1D 1D 1D 33 2D D2 |..._.."......3-.|
00000A80: 45 56 49 53 45 20 2D 20 C2 55 44 47 45 54 20 C1 |EVISE - .UDGET .|
00000A90: 43 43 4F 55 4E 54 53 22 00 C0 12 60 00 99 22 1D |CCOUNTS"...`..".|
00000AA0: 1D 1D 1D 1D 1D 34 2D D2 45 56 49 53 45 20 2D 20 |.....4-.EVISE - |
00000AB0: C2 55 44 47 45 54 20 42 41 4C 41 4E 43 45 53 22 |.UDGET BALANCES"|
00000AC0: 00 ED 12 61 00 99 22 11 1D 1D 1D 1D 1D 1D 35 2D |...a..".......5-|
00000AD0: D2 45 56 49 53 45 20 2D 20 C4 49 53 4B 20 4E 41 |.EVISE - .ISK NA|
00000AE0: 4D 45 2C 20 D0 41 53 53 57 4F 52 44 22 00 18 13 |ME, .ASSWORD"...|
00000AF0: 62 00 99 22 1D 1D 1D 1D 1D 1D 36 2D D2 45 56 49 |b.."......6-.EVI|
00000B00: 53 45 20 2D 20 CE 55 4D 42 45 52 20 4F 46 20 41 |SE - .UMBER OF A|
00000B10: 43 43 4F 55 4E 54 53 22 00 2D 13 63 00 99 22 11 |CCOUNTS".-.c..".|
00000B20: 1D 1D 1D 1D 1D 1D 37 2D D3 41 56 45 22 00 42 13 |......7-.AVE".B.|
00000B30: 64 00 99 22 11 1D 1D 1D 1D 1D 1D 38 2D C5 58 49 |d..".......8-.XI|
00000B40: 54 22 00 6A 13 65 00 99 22 11 1D 1D 1D 1D 1D 1D |T".j.e..".......|
00000B50: 1D 1D 1D 2D D3 45 4C 45 43 54 20 30 20 54 4F 20 |...-.ELECT 0 TO |
00000B60: 38 20 3E 20 20 20 9D 9D 22 3B 00 81 13 66 00 54 |8 > ..";...f.T|
00000B70: 54 B2 38 3A 8D 33 39 3A 8B 54 54 B2 30 A7 31 30 |T.8:.39:.TT.0.10|
00000B80: 34 00 B8 13 67 00 41 54 B2 54 54 3A 46 41 B2 30 |4...g.AT.TT:FA.0|
00000B90: 3A 91 54 54 8D 31 31 31 2C 31 31 31 2C 31 31 31 |:.TT.111,111,111|
00000BA0: 2C 32 32 32 2C 31 37 38 2C 31 39 38 2C 31 30 39 |,222,178,198,109|
00000BB0: 2C 31 30 38 3A 89 38 38 00 C5 13 68 00 8D 31 30 |,108:.88...h..10|
00000BC0: 35 3A 89 38 38 00 E4 13 69 00 81 41 54 B2 31 A4 |5:.88...i..AT.1.|
00000BD0: 33 3A 46 41 B2 AB 31 3A 8D 31 31 31 3A 8B 51 B3 |3:FA..1:.111:.Q.|
00000BE0: B1 32 A7 82 00 F3 13 6A 00 8B 51 B3 B1 32 A7 8D |.2.....j..Q..2..|
00000BF0: 32 32 32 00 F9 13 6B 00 8E 00 0D 14 6C 00 89 38 |222...k.....l..8|
00000C00: 3A 8F 20 45 4E 44 3A 52 45 54 55 52 4E 00 23 14 |:. END:RETURN.#.|
00000C10: 6D 00 8D 34 31 34 3A 8B 51 A7 8D 32 32 32 3A 8B |m..414:.Q..222:.|
00000C20: 51 A7 8E 00 2E 14 6E 00 8D 32 35 35 3A 8E 00 51 |Q.....n..255:..Q|
00000C30: 14 6F 00 8F 20 50 52 4F 43 20 41 43 43 54 20 49 |.o.. PROC ACCT I|
00000C40: 4E 20 41 54 2C 46 41 3D 41 4C 4C 20 41 43 43 54 |N AT,FA=ALL ACCT|
00000C50: 53 00 68 14 70 00 8D 31 37 32 3A 8B 46 41 A7 41 |S.h.p..172:.FA.A|
00000C60: 4E B2 30 3A 89 31 31 39 00 7E 14 71 00 8D 31 37 |N.0:.119.~.q..17|
00000C70: 36 3A 8B 46 41 A7 51 B2 31 3A 89 31 32 37 00 A5 |6:.FA.Q.1:.127..|
00000C80: 14 72 00 99 22 93 11 11 1D 22 54 54 24 28 41 54 |.r.."...."TT$(AT|
00000C90: 29 22 13 22 3B 3A 91 41 54 8D 32 38 38 2C 32 39 |)".";:.AT.288,29|
00000CA0: 33 2C 32 39 38 00 CD 14 73 00 56 4C B2 31 38 3A |3,298...s.VL.18:|
00000CB0: 43 4C B2 31 3A 8D 35 39 3A 99 22 30 20 2D 20 41 |CL.1:.59:."0 - A|
00000CC0: 4C 4C 20 41 43 43 4F 55 4E 54 53 22 3B 00 F6 14 |LL ACCOUNTS";...|
00000CD0: 74 00 56 4C B2 32 30 3A 43 4C B2 31 3A 8D 35 39 |t.VL.20:CL.1:.59|
00000CE0: 3A 99 22 53 45 4C 45 43 54 20 41 43 43 4F 55 4E |:."SELECT ACCOUN|
00000CF0: 54 20 3F 20 22 3B 00 0D 15 75 00 8D 36 32 3A 8D |T ? ";...u..62:.|
00000D00: 32 30 3A 8D 36 34 3A 8B 51 A7 31 32 37 00 1A 15 |20:.64:.Q.127...|
00000D10: 76 00 41 4E B2 C5 28 41 24 29 00 2E 15 77 00 91 |v.AN..(A$)...w..|
00000D20: 41 54 89 31 32 30 2C 31 32 31 2C 31 32 32 00 3D |AT.120,121,122.=|
00000D30: 15 78 00 4E 41 B2 42 4E 3A 89 31 32 33 00 4C 15 |.x.NA.BN:.123.L.|
00000D40: 79 00 4E 41 B2 43 4E 3A 89 31 32 33 00 5B 15 7A |y.NA.CN:.123.[.z|
00000D50: 00 4E 41 B2 48 4E 3A 89 31 32 33 00 67 15 7B 00 |.NA.HN:.123.g.{.|
00000D60: 8B 41 4E A7 31 32 36 00 88 15 7C 00 46 41 B2 AB |.AN.126...|.FA..|
00000D70: 31 3A 81 41 4E B2 31 A4 4E 41 3A 8D 31 32 38 3A |1:.AN.1.NA:.128:|
00000D80: 8B 51 B2 32 A7 31 32 37 00 93 15 7D 00 82 3A 89 |.Q.2.127...}..:.|
00000D90: 31 31 33 00 AB 15 7E 00 46 41 B2 30 3A 8D 31 32 |113...~.FA.0:.12|
00000DA0: 38 3A 8B 51 B3 B1 32 A7 31 31 33 00 B6 15 7F 00 |8:.Q..2.113.....|
00000DB0: 8D 31 37 34 3A 8E 00 CD 15 80 00 8D 31 37 32 3A |.174:.......172:|
00000DC0: 8B 46 41 A7 54 54 B2 30 3A 89 31 33 37 00 E3 15 |.FA.TT.0:.137...|
00000DD0: 81 00 8D 31 37 36 3A 8B 46 41 A7 51 B2 31 3A 89 |...176:.FA.Q.1:.|
00000DE0: 31 34 32 00 EC 15 82 00 8D 31 36 30 00 02 16 83 |142......160....|
00000DF0: 00 99 22 11 1D 30 2D 41 53 53 49 47 4E 20 41 4C |.."..0-ASSIGN AL|
00000E00: 4C 22 00 18 16 84 00 99 22 1D 31 2D 41 53 53 49 |L"......".1-ASSI|
00000E10: 47 4E 20 4E 41 4D 45 22 00 40 16 85 00 99 22 1D |GN NAME".@....".|
00000E20: 32 2D 41 53 53 49 47 4E 20 4E 55 4D 42 45 52 20 |2-ASSIGN NUMBER |
00000E30: 4F 46 20 45 4E 54 52 49 45 53 22 3A 54 4D B2 32 |OF ENTRIES":TM.2|
00000E40: 00 6D 16 86 00 8B 41 54 B3 B1 33 A7 99 22 1D 33 |.m....AT..3..".3|
00000E50: 2D 41 53 53 49 47 4E 20 4F 50 45 4E 49 4E 47 20 |-ASSIGN OPENING |
00000E60: 42 41 4C 41 4E 43 45 22 3A 54 4D B2 33 00 87 16 |BALANCE":TM.3...|
00000E70: 87 00 99 22 11 11 1D 1D 53 45 4C 45 43 54 20 30 |..."....SELECT 0|
00000E80: 20 2D 3E 22 54 4D 3B 00 A4 16 88 00 54 54 B2 54 | ->"TM;.....TT.T|
00000E90: 4D 3A 8D 36 32 3A 8D 33 37 3A 8D 36 34 3A 8B 51 |M:.62:.37:.64:.Q|
00000EA0: A7 31 34 32 00 B0 16 89 00 8B 54 54 A7 31 34 31 |.142......TT.141|
00000EB0: 00 C4 16 8A 00 8D 31 34 33 3A 91 51 89 31 32 39 |......143:.Q.129|
00000EC0: 2C 31 34 32 00 D8 16 8B 00 8D 31 34 36 3A 91 51 |,142......146:.Q|
00000ED0: 89 31 32 39 2C 31 34 32 00 F8 16 8C 00 8B 41 54 |.129,142......AT|
00000EE0: B3 B1 33 A7 8D 31 35 37 3A 91 51 89 31 32 39 2C |..3..157:.Q.129,|
00000EF0: 31 34 32 3A 89 31 32 39 00 1C 17 8D 00 91 54 54 |142:.129......TT|
00000F00: 8D 31 34 33 2C 31 34 36 2C 31 35 37 3A 91 51 89 |.143,146,157:.Q.|
00000F10: 31 32 39 2C 31 34 32 3A 89 31 32 39 00 27 17 8E |129,142:.129.'..|
00000F20: 00 8D 31 37 34 3A 8E 00 50 17 8F 00 8D 31 36 30 |..174:..P....160|
00000F30: 3A 56 4C B2 32 30 3A 43 4C B2 31 3A 8D 35 39 3A |:VL.20:CL.1:.59:|
00000F40: 99 22 45 4E 54 45 52 20 4E 41 4D 45 3A 20 22 3B |."ENTER NAME: ";|
00000F50: 00 6A 17 90 00 4D 58 B2 38 3A 8D 36 32 3A 8D 31 |.j...MX.8:.62:.1|
00000F60: 38 3A 8D 36 34 3A 8B 51 A7 8E 00 7A 17 91 00 41 |8:.64:.Q...z...A|
00000F70: 4E 24 B2 41 24 3A 89 31 36 38 00 98 17 92 00 8D |N$.A$:.168......|
00000F80: 31 36 30 3A 49 B2 4E 41 3A 91 41 54 89 31 34 37 |160:I.NA:.AT.147|
00000F90: 2C 31 34 38 2C 31 34 39 00 B2 17 93 00 8D 33 38 |,148,149......38|
00000FA0: 30 3A 58 4D B2 42 4D AB 42 31 AA 4E 45 3A 89 31 |0:XM.BM.B1.NE:.1|
00000FB0: 35 30 00 CC 17 94 00 8D 33 38 36 3A 58 4D B2 43 |50......386:XM.C|
00000FC0: 4D AB 43 31 AA 4E 45 3A 89 31 35 30 00 E6 17 95 |M.C1.NE:.150....|
00000FD0: 00 8D 33 39 32 3A 58 4D B2 48 4D AB 48 31 AA 4E |..392:XM.HM.H1.N|
00000FE0: 45 3A 89 31 35 30 00 11 18 96 00 56 4C B2 31 38 |E:.150.....VL.18|
00000FF0: 3A 43 4C B2 31 3A 8D 35 39 3A 99 58 4D 22 45 4E |:CL.1:.59:.XM"EN|
00001000: 54 52 49 45 53 20 41 56 41 49 4C 41 42 4C 45 22 |TRIES AVAILABLE"|
00001010: 3B 00 3D 18 97 00 56 4C B2 32 30 3A 43 4C B2 31 |;.=...VL.20:CL.1|
00001020: 3A 8D 35 39 3A 99 22 45 4E 54 45 52 20 4D 41 58 |:.59:."ENTER MAX|
00001030: 2E 20 45 4E 54 52 49 45 53 3A 20 22 3B 00 45 18 |. ENTRIES: ";.E.|
00001040: 98 00 8D 36 32 00 5D 18 99 00 4D 58 B2 33 3A 8D |...62.]...MX.3:.|
00001050: 35 36 3A 8D 31 39 3A 8B 51 A7 31 35 35 00 74 18 |56:.19:.Q.155.t.|
00001060: 9A 00 8B C5 28 41 24 29 B1 58 4D A7 8D 35 39 3A |....(A$).XM..59:|
00001070: 89 31 35 33 00 81 18 9B 00 8D 36 34 3A 8B 51 A7 |.153......64:.Q.|
00001080: 8E 00 93 18 9C 00 4E 45 B2 C5 28 41 24 29 3A 89 |......NE..(A$):.|
00001090: 31 36 38 00 C8 18 9D 00 8D 31 36 30 3A 56 4C B2 |168......160:VL.|
000010A0: 32 30 3A 43 4C B2 31 3A 8D 35 39 3A 99 22 45 4E |20:CL.1:.59:."EN|
000010B0: 54 45 52 20 4F 50 45 4E 49 4E 47 20 42 41 4C 41 |TER OPENING BALA|
000010C0: 4E 43 45 20 24 20 22 3B 00 DD 18 9E 00 8D 36 32 |NCE $ ";......62|
000010D0: 3A 8D 31 32 3A 8D 36 34 3A 8B 51 A7 8E 00 EF 18 |:.12:.64:.Q.....|
000010E0: 9F 00 4F 42 B2 C5 28 41 24 29 3A 89 31 36 38 00 |..OB..(A$):.168.|
000010F0: 03 19 A0 00 91 41 54 89 31 36 31 2C 31 36 32 2C |.....AT.161,162,|
00001100: 31 36 33 00 2D 19 A1 00 41 4E 24 B2 42 41 24 28 |163.-...AN$.BA$(|
00001110: 41 4E 29 3A 4E 45 B2 42 44 25 28 41 4E 29 3A 4F |AN):NE.BD%(AN):O|
00001120: 42 B2 42 42 28 41 4E 29 3A 89 31 36 34 00 57 19 |B.BB(AN):.164.W.|
00001130: A2 00 41 4E 24 B2 43 41 24 28 41 4E 29 3A 4E 45 |..AN$.CA$(AN):NE|
00001140: B2 43 44 25 28 41 4E 29 3A 4F 42 B2 43 42 28 41 |.CD%(AN):OB.CB(A|
00001150: 4E 29 3A 89 31 36 34 00 7C 19 A3 00 41 4E 24 B2 |N):.164.|...AN$.|
00001160: 48 41 24 28 41 4E 29 3A 4E 45 B2 48 44 25 28 41 |HA$(AN):NE.HD%(A|
00001170: 4E 29 3A 41 44 B2 41 44 28 41 4E 29 00 93 19 A4 |N):AD.AD(AN)....|
00001180: 00 99 22 93 22 54 54 24 28 41 54 29 22 13 11 11 |.."."TT$(AT)"...|
00001190: 1D 22 3B 00 BC 19 A5 00 99 22 11 22 41 4E 22 2D |.";......"."AN"-|
000011A0: 22 41 4E 24 3A 99 22 4E 55 4D 42 45 52 20 4F 46 |"AN$:."NUMBER OF|
000011B0: 20 45 4E 54 52 49 45 53 3D 22 4E 45 00 DF 19 A6 | ENTRIES="NE....|
000011C0: 00 8B 41 54 B3 B1 33 A7 99 22 4F 50 45 4E 49 4E |..AT..3.."OPENIN|
000011D0: 47 20 42 41 4C 41 4E 43 45 3D 20 24 22 4F 42 00 |G BALANCE= $"OB.|
000011E0: E5 19 A7 00 8E 00 F9 19 A8 00 91 41 54 89 31 36 |...........AT.16|
000011F0: 39 2C 31 37 30 2C 31 37 31 00 2A 1A A9 00 42 41 |9,170,171.*...BA|
00001200: 24 28 41 4E 29 B2 41 4E 24 3A 42 44 25 28 41 4E |$(AN).AN$:BD%(AN|
00001210: 29 B2 4E 45 3A 42 42 28 41 4E 29 B2 4F 42 3A 42 |).NE:BB(AN).OB:B|
00001220: 53 28 41 4E 29 B2 4F 42 3A 8E 00 5B 1A AA 00 43 |S(AN).OB:..[...C|
00001230: 41 24 28 41 4E 29 B2 41 4E 24 3A 43 44 25 28 41 |A$(AN).AN$:CD%(A|
00001240: 4E 29 B2 4E 45 3A 43 42 28 41 4E 29 B2 4F 42 3A |N).NE:CB(AN).OB:|
00001250: 43 53 28 41 4E 29 B2 4F 42 3A 8E 00 82 1A AB 00 |CS(AN).OB:......|
00001260: 48 41 24 28 41 4E 29 B2 41 4E 24 3A 48 44 25 28 |HA$(AN).AN$:HD%(|
00001270: 41 4E 29 B2 4E 45 3A 41 44 28 41 4E 29 B2 41 44 |AN).NE:AD(AN).AD|
00001280: 3A 8E 00 8D 1A AC 00 8F 20 50 55 53 48 00 A5 1A |:....... PUSH...|
00001290: AD 00 46 41 28 53 50 29 B2 46 41 3A 53 50 B2 53 |..FA(SP).FA:SP.S|
000012A0: 50 AA 31 3A 8E 00 B0 1A AE 00 8F 20 50 55 4C 4C |P.1:....... PULL|
000012B0: 00 C8 1A AF 00 53 50 B2 53 50 AB 31 3A 46 41 B2 |.....SP.SP.1:FA.|
000012C0: 46 41 28 53 50 29 3A 8E 00 D2 1A B0 00 8F 20 53 |FA(SP):....... S|
000012D0: 45 45 00 E4 1A B1 00 46 41 B2 46 41 28 53 50 AB |EE.....FA.FA(SP.|
000012E0: 31 29 3A 8E 00 EA 1A B2 00 8F 00 18 1B B3 00 99 |1):.............|
000012F0: 22 93 11 20 20 20 2A 2A 20 D2 C5 C4 CF 20 C4 C9 |".. ** .... ..|
00001300: D3 CB 20 CE C1 CD C5 20 C1 CE C4 20 D0 C1 D3 D3 |.. .... ... ....|
00001310: D7 CF D2 C4 20 2A 2A 22 00 36 1B B4 00 99 22 11 |.... **".6....".|
00001320: 11 D0 52 45 53 45 4E 54 20 4E 41 4D 45 20 20 20 |..RESENT NAME |
00001330: 3A 20 22 5A 4E 24 00 56 1B B5 00 99 22 11 11 D0 |: "ZN$.V...."...|
00001340: 52 45 53 45 4E 54 20 50 41 53 53 4F 52 44 3A 20 |RESENT PASSORD: |
00001350: 22 5A 58 24 3A 99 00 6A 1B B6 00 8D 31 38 38 3A |"ZX$:..j....188:|
00001360: 91 51 89 31 37 38 2C 31 38 37 00 7E 1B B7 00 99 |.Q.178,187.~....|
00001370: 22 11 CF 4B 3F 20 28 59 2F 4E 29 20 22 3B 00 99 |"..K? (Y/N) ";..|
00001380: 1B B8 00 8D 36 32 3A 8D 34 33 3A 8D 36 34 3A 91 |....62:.43:.64:.|
00001390: 51 89 31 37 38 2C 31 38 37 00 A9 1B B9 00 8B 41 |Q.178,187......A|
000013A0: 24 B2 22 4E 22 A7 31 37 38 00 BD 1B BA 00 5A 4E |$."N".178.....ZN|
000013B0: 24 B2 5A 31 24 3A 5A 58 24 B2 5A 32 24 00 C3 1B |$.Z1$:ZX$.Z2$...|
000013C0: BB 00 8E 00 E3 1B BC 00 99 22 11 1D 1D 2D C2 55 |........."...-.U|
000013D0: 44 47 45 54 20 46 49 4C 45 53 20 46 4F 52 20 3F |DGET FILES FOR ?|
000013E0: 20 22 3B 00 EB 1B BD 00 8D 36 32 00 04 1C BE 00 | ";......62.....|
000013F0: 4D 58 B2 31 36 3A 8D 35 36 3A 8D 31 38 3A 8B 51 |MX.16:.56:.18:.Q|
00001400: A7 31 39 32 00 18 1C BF 00 8B 41 24 B2 22 22 A7 |.192......A$."".|
00001410: 8D 35 39 3A 89 31 39 30 00 25 1C C0 00 8D 36 34 |.59:.190.%....64|
00001420: 3A 8B 51 A7 8E 00 30 1C C1 00 5A 31 24 B2 41 24 |:.Q...0...Z1$.A$|
00001430: 00 50 1C C2 00 99 22 11 1D 1D 2D D0 41 53 53 57 |.P...."...-.ASSW|
00001440: 4F 52 44 20 20 20 20 20 20 20 20 20 3F 20 22 3B |ORD ? ";|
00001450: 00 6A 1C C3 00 4D 58 B2 38 3A 8D 36 32 3A 8D 31 |.j...MX.8:.62:.1|
00001460: 38 3A 8D 36 34 3A 8B 51 A7 8E 00 75 1C C4 00 5A |8:.64:.Q...u...Z|
00001470: 32 24 B2 41 24 00 7B 1C C5 00 8E 00 81 1C C6 00 |2$.A$.{.........|
00001480: 8F 00 AC 1C C7 00 99 22 93 11 20 20 20 20 20 2A |.......".. *|
00001490: 2A 20 D3 C5 D4 20 CE D5 CD C2 C5 D2 20 CF C6 20 |* ... ...... .. |
000014A0: C1 C3 C3 CF D5 CE D4 D3 20 2A 2A 22 00 D6 1C C8 |........ **"....|
000014B0: 00 99 22 D0 52 45 53 45 4E 54 20 4E 55 4D 42 45 |..".RESENT NUMBE|
000014C0: 52 20 4F 46 20 42 41 4E 4B 20 41 43 43 4F 55 4E |R OF BANK ACCOUN|
000014D0: 54 53 3A 22 42 4E 00 02 1D C9 00 99 22 D0 52 45 |TS:"BN......".RE|
000014E0: 53 45 4E 54 20 4E 55 4D 42 45 52 20 4F 46 20 43 |SENT NUMBER OF C|
000014F0: 48 41 52 47 45 20 41 43 43 4F 55 4E 54 53 3A 22 |HARGE ACCOUNTS:"|
00001500: 43 4E 00 2E 1D CA 00 99 22 D0 52 45 53 45 4E 54 |CN......".RESENT|
00001510: 20 4E 55 4D 42 45 52 20 4F 46 20 42 55 44 47 45 | NUMBER OF BUDGE|
00001520: 54 20 41 43 43 4F 55 4E 54 53 3A 22 48 4E 00 42 |T ACCOUNTS:"HN.B|
00001530: 1D CB 00 8D 32 30 39 3A 91 51 89 31 39 38 2C 32 |....209:.Q.198,2|
00001540: 30 38 00 56 1D CC 00 99 22 11 CF 4B 3F 20 28 59 |08.V...."..K? (Y|
00001550: 2F 4E 29 20 22 3B 00 71 1D CD 00 8D 36 32 3A 8D |/N) ";.q....62:.|
00001560: 34 33 3A 8D 36 34 3A 91 51 89 31 39 38 2C 32 30 |43:.64:.Q.198,20|
00001570: 38 00 81 1D CE 00 8B 41 24 B2 22 4E 22 A7 31 39 |8......A$."N".19|
00001580: 38 00 97 1D CF 00 42 4E B2 42 5A 3A 43 4E B2 43 |8.....BN.BZ:CN.C|
00001590: 5A 3A 48 4E B2 48 5A 00 9D 1D D0 00 8E 00 C1 1D |Z:HN.HZ.........|
000015A0: D1 00 99 22 11 11 1D 1D 2D CE 55 4D 42 45 52 20 |..."....-.UMBER |
000015B0: 4F 46 20 42 41 4E 4B 20 41 43 43 4F 55 4E 54 53 |OF BANK ACCOUNTS|
000015C0: 22 00 E6 1D D2 00 99 22 20 20 20 20 20 20 20 20 |"......" |
000015D0: 20 20 20 20 20 20 20 20 20 28 31 20 54 4F 20 35 | (1 TO 5|
000015E0: 29 20 3F 20 22 3B 00 00 1E D3 00 54 54 B2 35 3A |) ? ";.....TT.5:|
000015F0: 8D 36 32 3A 8D 32 33 3A 8D 36 34 3A 8B 51 A7 8E |.62:.23:.64:.Q..|
00001600: 00 0D 1E D4 00 42 5A B2 C5 28 41 24 29 00 32 1E |.....BZ..(A$).2.|
00001610: D5 00 99 22 11 1D 1D 2D CE 55 4D 42 45 52 20 4F |..."...-.UMBER O|
00001620: 46 20 43 48 41 52 47 45 20 41 43 43 4F 55 4E 54 |F CHARGE ACCOUNT|
00001630: 53 22 00 57 1E D6 00 99 22 20 20 20 20 20 20 20 |S".W...." |
00001640: 20 20 20 20 20 20 20 20 20 20 28 31 20 54 4F 20 | (1 TO |
00001650: 37 29 20 3F 20 22 3B 00 71 1E D7 00 54 54 B2 37 |7) ? ";.q...TT.7|
00001660: 3A 8D 36 32 3A 8D 32 33 3A 8D 36 34 3A 8B 51 A7 |:.62:.23:.64:.Q.|
00001670: 8E 00 7E 1E D8 00 43 5A B2 C5 28 41 24 29 00 A3 |..~...CZ..(A$)..|
00001680: 1E D9 00 99 22 11 1D 1D 2D CE 55 4D 42 45 52 20 |...."...-.UMBER |
00001690: 4F 46 20 42 55 44 47 45 54 20 41 43 43 4F 55 4E |OF BUDGET ACCOUN|
000016A0: 54 53 22 00 C8 1E DA 00 99 22 20 20 20 20 20 20 |TS"......" |
000016B0: 20 20 20 20 20 20 20 20 20 20 28 31 20 54 4F 20 | (1 TO |
000016C0: 32 30 29 20 3F 20 22 3B 00 E3 1E DB 00 54 54 B2 |20) ? ";.....TT.|
000016D0: 32 30 3A 8D 36 32 3A 8D 32 33 3A 8D 36 34 3A 8B |20:.62:.23:.64:.|
000016E0: 51 A7 8E 00 F0 1E DC 00 48 5A B2 C5 28 41 24 29 |Q.......HZ..(A$)|
000016F0: 00 F6 1E DD 00 8E 00 16 1F DE 00 8F 20 46 49 58 |............ FIX|
00001700: 20 48 4F 4D 45 20 41 43 43 4F 55 4E 54 20 42 41 | HOME ACCOUNT BA|
00001710: 4C 41 4E 43 45 53 00 43 1F DF 00 5A 31 24 B2 22 |LANCES.C...Z1$."|
00001720: 93 20 20 20 20 2A 2A 20 C2 D5 C4 C7 C5 D4 20 C1 |. ** ...... .|
00001730: C3 C3 CF D5 CE D4 20 C2 C1 CC C1 CE C3 C5 D3 20 |...... ........ |
00001740: 2A 2A 22 00 4F 1F E0 00 99 5A 31 24 22 11 22 00 |**".O....Z1$".".|
00001750: 58 1F E1 00 8D 32 39 38 00 83 1F E2 00 99 22 11 |X....298......".|
00001760: C5 58 43 45 53 53 20 54 4F 20 57 48 49 43 48 20 |.XCESS TO WHICH |
00001770: 42 55 44 47 45 54 20 41 43 43 4F 55 4E 54 20 3F |BUDGET ACCOUNT ?|
00001780: 20 22 3B 00 A3 1F E3 00 41 54 B2 33 3A 8D 36 32 | ";.....AT.3:.62|
00001790: 3A 8D 31 35 3A 8D 36 34 3A 91 51 89 32 35 34 2C |:.15:.64:.Q.254,|
000017A0: 32 35 34 00 B8 1F E4 00 41 4E B2 C5 28 41 24 29 |254.....AN..(A$)|
000017B0: 3A 99 5A 31 24 22 11 22 00 D6 1F E5 00 81 49 B2 |:.Z1$"."......I.|
000017C0: 31 A4 48 4E 3A 99 49 3B A3 34 29 22 2D 22 48 41 |1.HN:.I;.4)"-"HA|
000017D0: 24 28 49 29 3A 82 00 F5 1F E6 00 52 4D B2 30 3A |$(I):......RM.0:|
000017E0: 81 49 B2 31 A4 42 4E 3A 52 4D B2 52 4D AA 42 42 |.I.1.BN:RM.RM.BB|
000017F0: 28 49 29 3A 82 00 0F 20 E7 00 81 49 B2 31 A4 43 |(I):... ...I.1.C|
00001800: 4E 3A 52 4D B2 52 4D AB 43 42 28 49 29 3A 82 00 |N:RM.RM.CB(I):..|
00001810: 33 20 E8 00 56 4C B2 31 AA 41 4E 3A 43 4C B2 31 |3 ..VL.1.AN:CL.1|
00001820: 35 3A 8D 35 39 3A 99 22 28 42 41 4C 41 4E 43 45 |5:.59:."(BALANCE|
00001830: 29 22 3B 00 56 20 E9 00 56 4C B2 32 32 3A 43 4C |)";.V ..VL.22:CL|
00001840: B2 31 35 3A 8D 35 39 3A 99 22 2D 2D 2D 2D 2D 2D |.15:.59:."------|
00001850: 2D 2D 2D 2D 22 3B 00 7A 20 EA 00 56 4C B2 32 33 |----";.z ..VL.23|
00001860: 3A 43 4C B2 31 35 3A 8D 35 39 3A 99 22 20 20 20 |:CL.15:.59:." |
00001870: 20 20 30 2E 30 30 20 20 22 3B 00 8D 20 EB 00 4E | 0.00 ";.. ..N|
00001880: B2 52 4D 3A 8D 33 37 31 3A 99 4E 24 3B 00 A8 20 |.RM:.371:.N$;.. |
00001890: EC 00 54 4C B2 30 3A 81 49 B2 31 A4 48 4E 3A 8B |..TL.0:.I.1.HN:.|
000018A0: 49 B2 41 4E A7 32 34 36 00 BD 20 ED 00 56 4C B2 |I.AN.246.. ..VL.|
000018B0: 49 AA 31 3A 43 4C B2 31 35 3A 8D 35 39 00 C5 20 |I.1:CL.15:.59.. |
000018C0: EE 00 8D 36 32 00 D8 20 EF 00 8D 35 36 3A 8D 31 |...62.. ...56:.1|
000018D0: 32 3A 8B 51 A7 32 34 32 00 ED 20 F0 00 4E B2 C5 |2:.Q.242.. ..N..|
000018E0: 28 41 24 29 3A 8B 4E B2 30 A7 32 34 32 00 00 21 |(A$):.N.0.242..!|
000018F0: F1 00 8B 4E B1 52 4D A7 8D 35 39 3A 89 32 33 39 |...N.RM..59:.239|
00001900: 00 13 21 F2 00 8D 36 34 3A 91 51 89 32 32 32 2C |..!...64:.Q.222,|
00001910: 32 35 34 00 49 21 F3 00 54 4C B2 54 4C AA 4E 3A |254.I!..TL.TL.N:|
00001920: 52 4D B2 52 4D AB 4E 3A 54 28 49 29 B2 4E 3A 56 |RM.RM.N:T(I).N:V|
00001930: 4C B2 49 AA 31 3A 43 4C B2 31 35 3A 8D 35 39 3A |L.I.1:CL.15:.59:|
00001940: 8D 33 37 31 3A 99 4E 24 3B 00 6F 21 F4 00 56 4C |.371:.N$;.o!..VL|
00001950: B2 32 33 3A 43 4C B2 31 35 3A 8D 35 39 3A 4E B2 |.23:CL.15:.59:N.|
00001960: 54 4C 3A 8D 33 37 31 3A 99 4E 24 22 20 22 3B 00 |TL:.371:.N$" ";.|
00001970: 82 21 F5 00 4E B2 52 4D 3A 8D 33 37 31 3A 99 4E |.!..N.RM:.371:.N|
00001980: 24 3B 00 88 21 F6 00 82 00 AC 21 F7 00 4E B2 52 |$;..!.....!..N.R|
00001990: 4D 3A 56 4C B2 41 4E AA 31 3A 43 4C B2 31 35 3A |M:VL.AN.1:CL.15:|
000019A0: 8D 35 39 3A 8D 33 37 31 3A 99 4E 24 00 C8 21 F8 |.59:.371:.N$..!.|
000019B0: 00 54 4C B2 54 4C AA 4E 3A 52 4D B2 52 4D AB 4E |.TL.TL.N:RM.RM.N|
000019C0: 3A 54 28 41 4E 29 B2 4E 00 EE 21 F9 00 56 4C B2 |:T(AN).N..!..VL.|
000019D0: 32 33 3A 43 4C B2 31 35 3A 8D 35 39 3A 4E B2 54 |23:CL.15:.59:N.T|
000019E0: 4C 3A 8D 33 37 31 3A 99 4E 24 22 20 22 3B 00 01 |L:.371:.N$" ";..|
000019F0: 22 FA 00 4E B2 52 4D 3A 8D 33 37 31 3A 99 4E 24 |"..N.RM:.371:.N$|
00001A00: 3B 00 25 22 FB 00 56 4C B2 32 34 3A 43 4C B2 30 |;.%"..VL.24:CL.0|
00001A10: 3A 8D 35 39 3A 99 22 CF 4B 3F 20 12 D9 92 45 53 |:.59:.".K? ...ES|
00001A20: 20 4F 52 22 3B 00 47 22 FC 00 56 24 B2 22 59 22 | OR";.G"..V$."Y"|
00001A30: 3A 8D 36 32 3A 8D 32 36 3A 8D 36 34 3A 91 51 89 |:.62:.26:.64:.Q.|
00001A40: 32 32 32 2C 32 35 34 00 60 22 FD 00 81 49 B2 31 |222,254.`"...I.1|
00001A50: A4 48 4E 3A 48 42 28 49 29 B2 54 28 49 29 3A 82 |.HN:HB(I).T(I):.|
00001A60: 00 66 22 FE 00 8E 00 74 22 FF 00 8D 34 31 34 3A |.f"....t"...414:|
00001A70: 8B 51 A7 8E 00 82 22 00 01 8D 33 31 30 3A 8B 51 |.Q...."...310:.Q|
00001A80: A7 8E 00 8F 22 01 01 98 31 35 2C 22 49 30 22 00 |...."...15,"I0".|
00001A90: BD 22 02 01 99 22 93 11 1D D3 41 56 49 4E 47 20 |."..."....AVING |
00001AA0: 54 4F 20 44 49 53 4B 22 3A 99 22 11 1D 1D D0 4C |TO DISK":."....L|
00001AB0: 45 41 53 45 20 57 41 49 54 2E 2E 2E 22 00 D3 22 |EASE WAIT...".."|
00001AC0: 03 01 53 24 B2 C7 28 31 33 29 3A 51 24 B2 C7 28 |..S$..(13):Q$..(|
00001AD0: 33 34 29 00 ED 22 04 01 98 31 35 2C 22 53 30 3A |34).."...15,"S0:|
00001AE0: 43 55 52 52 45 4E 54 20 44 41 54 41 22 00 19 23 |CURRENT DATA"..#|
00001AF0: 05 01 9F 31 2C 38 2C 32 2C 22 30 3A 43 55 52 52 |...1,8,2,"0:CURR|
00001B00: 45 4E 54 20 44 41 54 41 2C 53 2C 57 22 3A 8F 57 |ENT DATA,S,W":.W|
00001B10: 52 49 54 45 57 2F 45 4F 46 00 55 23 06 01 98 31 |RITEW/EOF.U#...1|
00001B20: 2C 51 24 5A 58 24 51 24 3B 53 24 3B 51 24 5A 4E |,Q$ZX$Q$;S$;Q$ZN|
00001B30: 24 51 24 3B 53 24 3B 5A 53 3B 53 24 3B 5A 49 3B |$Q$;S$;ZS;S$;ZI;|
00001B40: 53 24 3B 51 24 5A 53 24 51 24 3B 53 24 3B 51 24 |S$;Q$ZS$Q$;S$;Q$|
00001B50: 5A 55 24 51 24 00 6B 23 07 01 98 31 2C 42 4E 3B |ZU$Q$.k#...1,BN;|
00001B60: 53 24 3B 43 4E 3B 53 24 3B 48 4E 00 79 23 08 01 |S$;CN;S$;HN.y#..|
00001B70: 8B 42 4E B2 30 89 32 37 32 00 85 23 09 01 81 49 |.BN.0.272..#...I|
00001B80: B2 31 A4 42 4E 00 B8 23 0A 01 98 31 2C 51 24 42 |.1.BN..#...1,Q$B|
00001B90: 41 24 28 49 29 51 24 3B 53 24 3B 42 42 28 49 29 |A$(I)Q$;S$;BB(I)|
00001BA0: 3B 53 24 3B 42 53 28 49 29 3B 53 24 3B 42 44 25 |;S$;BS(I);S$;BD%|
00001BB0: 28 49 29 3B 53 24 3B 31 00 BE 23 0B 01 8F 00 C4 |(I);S$;1..#.....|
00001BC0: 23 0C 01 8F 00 F4 23 0D 01 98 31 2C 42 42 28 49 |#.....#...1,BB(I|
00001BD0: 29 3B 53 24 3B 51 24 22 D8 22 AA C9 28 5A 55 24 |);S$;Q$"."..(ZU$|
00001BE0: 2C 35 29 AA 22 CF 50 45 4E 49 4E 47 20 42 41 4C |,5).".PENING BAL|
00001BF0: 2E 22 51 24 00 FA 23 0E 01 8F 00 00 24 0F 01 82 |."Q$..#.....$...|
00001C00: 00 0E 24 10 01 8B 43 4E B2 30 89 32 38 30 00 1A |..$...CN.0.280..|
00001C10: 24 11 01 81 49 B2 31 A4 43 4E 00 4D 24 12 01 98 |$...I.1.CN.M$...|
00001C20: 31 2C 51 24 43 41 24 28 49 29 51 24 3B 53 24 3B |1,Q$CA$(I)Q$;S$;|
00001C30: 43 42 28 49 29 3B 53 24 3B 43 53 28 49 29 3B 53 |CB(I);S$;CS(I);S|
00001C40: 24 3B 43 44 25 28 49 29 3B 53 24 3B 31 00 53 24 |$;CD%(I);S$;1.S$|
00001C50: 13 01 8F 00 59 24 14 01 8F 00 89 24 15 01 98 31 |....Y$.....$...1|
00001C60: 2C 43 42 28 49 29 3B 53 24 3B 51 24 22 D8 22 AA |,CB(I);S$;Q$".".|
00001C70: C9 28 5A 55 24 2C 35 29 AA 22 CF 50 45 4E 49 4E |.(ZU$,5).".PENIN|
00001C80: 47 20 42 41 4C 2E 22 51 24 00 8F 24 16 01 8F 00 |G BAL."Q$..$....|
00001C90: 95 24 17 01 82 00 D0 24 18 01 81 49 B2 31 A4 48 |.$.....$...I.1.H|
00001CA0: 4E 3A 98 31 2C 51 24 48 41 24 28 49 29 51 24 3B |N:.1,Q$HA$(I)Q$;|
00001CB0: 53 24 3B 48 42 28 49 29 3B 53 24 3B 41 44 28 49 |S$;HB(I);S$;AD(I|
00001CC0: 29 3B 53 24 3B 48 44 25 28 49 29 3B 53 24 3B 31 |);S$;HD%(I);S$;1|
00001CD0: 00 D6 24 19 01 8F 00 DC 24 1A 01 8F 00 0C 25 1B |..$.....$.....%.|
00001CE0: 01 98 31 2C 48 42 28 49 29 3B 53 24 3B 51 24 22 |..1,HB(I);S$;Q$"|
00001CF0: D8 22 AA C9 28 5A 55 24 2C 35 29 AA 22 CF 50 45 |."..(ZU$,5).".PE|
00001D00: 4E 49 4E 47 20 42 41 4C 2E 22 51 24 00 12 25 1C |NING BAL."Q$..%.|
00001D10: 01 8F 00 18 25 1D 01 82 00 3A 25 1E 01 98 31 2C |....%....:%...1,|
00001D20: 41 44 28 48 4E AA 31 29 3B 53 24 3B 37 3B 53 24 |AD(HN.1);S$;7;S$|
00001D30: 3B 35 3B 53 24 3B 39 3A A0 31 00 40 25 1F 01 8E |;5;S$;9:.1.@%...|
00001D40: 00 46 25 20 01 8F 00 55 25 21 01 99 22 13 11 11 |.F% ...U%!.."...|
00001D50: 11 11 11 11 22 00 61 25 22 01 81 49 B2 31 A4 42 |....".a%"..I.1.B|
00001D60: 4E 00 81 25 23 01 99 22 1D 1D 1D 1D 1D 1D 1D 1D |N..%#.."........|
00001D70: 1D 1D 1D 22 49 22 2D 22 42 41 24 28 49 29 3A 82 |..."I"-"BA$(I):.|
00001D80: 49 00 87 25 24 01 8E 00 8D 25 25 01 8F 00 9C 25 |I..%$....%%....%|
00001D90: 26 01 99 22 13 11 11 11 11 11 11 22 00 A8 25 27 |&.."......."..%'|
00001DA0: 01 81 49 B2 31 A4 43 4E 00 C8 25 28 01 99 22 1D |..I.1.CN..%(..".|
00001DB0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 22 49 22 2D 22 43 |.........."I"-"C|
00001DC0: 41 24 28 49 29 3A 82 49 00 CE 25 29 01 8E 00 D4 |A$(I):.I..%)....|
00001DD0: 25 2A 01 8F 00 FC 25 2B 01 99 22 13 11 11 11 11 |%*....%+..".....|
00001DE0: 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 42 55 44 47 |............BUDG|
00001DF0: 45 54 20 41 43 43 4F 55 4E 54 53 22 00 1E 26 2C |ET ACCOUNTS"..&,|
00001E00: 01 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D A3 A3 |..".............|
00001E10: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 22 00 2F |............."./|
00001E20: 26 2D 01 41 B2 B5 28 48 4E AD 32 AA 2E 35 29 00 |&-.A..(HN.2..5).|
00001E30: 3E 26 2E 01 99 22 13 11 11 11 11 11 11 22 00 49 |>&...".......".I|
00001E40: 26 2F 01 81 49 B2 31 A4 41 00 60 26 30 01 99 22 |&/..I.1.A.`&0.."|
00001E50: 1D 1D 22 49 22 2D 22 48 41 24 28 49 29 3A 82 49 |.."I"-"HA$(I):.I|
00001E60: 00 6F 26 31 01 99 22 13 11 11 11 11 11 11 22 00 |.o&1..".......".|
00001E70: 7B 26 32 01 8B 41 B2 48 4E A7 8E 00 89 26 33 01 |{&2..A.HN....&3.|
00001E80: 81 49 B2 41 AA 31 A4 48 4E 00 A1 26 34 01 99 A3 |.I.A.1.HN..&4...|
00001E90: 32 30 29 3B 49 22 2D 22 48 41 24 28 49 29 3A 82 |20);I"-"HA$(I):.|
00001EA0: 49 00 A7 26 35 01 8E 00 CE 26 36 01 99 22 93 11 |I..&5....&6.."..|
00001EB0: 1D 1D 1D 1D 1D 1D 1D 1D 2A 2A 2A 20 D3 C1 D6 C5 |........*** ....|
00001EC0: 20 CE C5 D7 20 C6 C9 CC C5 20 2A 2A 2A 22 00 EE | ... .... ***"..|
00001ED0: 26 37 01 99 22 13 11 11 11 11 1D CE 45 57 20 44 |&7..".......EW D|
00001EE0: 49 53 4B 20 28 59 2F 4E 29 20 3F 20 22 3B 00 03 |ISK (Y/N) ? ";..|
00001EF0: 27 38 01 8D 36 32 3A 8D 34 33 3A 8D 36 34 3A 8B |'8..62:.43:.64:.|
00001F00: 51 A7 8E 00 13 27 39 01 8B 41 24 B2 22 4E 22 A7 |Q....'9..A$."N".|
00001F10: 33 33 32 00 4C 27 3A 01 99 22 11 1D C4 49 53 4B |332.L':.."...ISK|
00001F20: 20 4E 41 4D 45 20 3F 20 11 5E 1D 1D 1D 1D 1D 1D | NAME ? .^......|
00001F30: 1D 1D 1D 1D 1D 1D 1D 1D 5E 91 9D 9D 9D 9D 9D 9D |........^.......|
00001F40: 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 22 3B 00 54 27 3B |..........";.T';|
00001F50: 01 8D 36 32 00 6D 27 3C 01 8D 35 36 3A 4D 58 B2 |..62.m'<..56:MX.|
00001F60: 31 36 3A 8D 31 38 3A 8B 51 A7 33 31 38 00 81 27 |16:.18:.Q.318..'|
00001F70: 3D 01 8B 41 24 B2 22 22 A7 8D 35 39 3A 89 33 31 |=..A$.""..59:.31|
00001F80: 36 00 94 27 3E 01 8D 36 34 3A 91 51 89 33 31 30 |6..'>..64:.Q.310|
00001F90: 2C 33 33 39 00 A5 27 3F 01 44 43 24 B2 22 4E 30 |,339..'?.DC$."N0|
00001FA0: 3A 22 AA 41 24 00 BA 27 40 01 99 22 11 1D C4 49 |:".A$..'@.."...I|
00001FB0: 53 4B 20 49 44 20 3F 20 22 3B 00 C2 27 41 01 8D |SK ID ? ";..'A..|
00001FC0: 36 32 00 E2 27 42 01 8D 35 36 3A 4D 58 B2 32 3A |62..'B..56:MX.2:|
00001FD0: 8D 31 38 3A 8D 36 34 3A 91 51 89 33 31 30 2C 33 |.18:.64:.Q.310,3|
00001FE0: 33 39 00 FD 27 43 01 8B 41 24 B3 B1 22 22 A7 44 |39..'C..A$.."".D|
00001FF0: 43 24 B2 44 43 24 AA 22 2C 22 AA 41 24 00 2B 28 |C$.DC$.",".A$.+(|
00002000: 44 01 99 22 11 1D 1D 1D 1D 12 20 2A 20 C5 CE D3 |D.."...... * ...|
00002010: D5 D2 C5 A0 D4 C8 C1 D4 A0 C4 C9 D3 CB A0 C9 D3 |................|
00002020: A0 C2 CC C1 CE CB A0 2A 20 92 22 00 68 28 45 01 |.......* .".h(E.|
00002030: 99 22 11 1D C9 4E 53 45 52 54 20 44 49 53 4B 20 |."...NSERT DISK |
00002040: 49 4E 20 44 52 49 56 45 22 3A 99 22 1D 50 52 45 |IN DRIVE":.".PRE|
00002050: 53 53 20 52 45 54 55 52 4E 20 54 4F 20 43 4F 4E |SS RETURN TO CON|
00002060: 54 49 4E 55 45 20 22 3B 00 88 28 46 01 8D 36 32 |TINUE ";..(F..62|
00002070: 3A 4D 58 B2 30 3A 8D 31 38 3A 8D 36 34 3A 91 51 |:MX.0:.18:.64:.Q|
00002080: 89 33 31 30 2C 33 33 39 00 A4 28 47 01 98 31 35 |.310,339..(G..15|
00002090: 2C 44 43 24 3A 84 31 35 2C 45 52 2C 4D 24 2C 54 |,DC$:.15,ER,M$,T|
000020A0: 54 2C 53 53 00 B3 28 48 01 8B 45 52 B3 32 30 A7 |T,SS..(H..ER.20.|
000020B0: 33 33 34 00 CA 28 49 01 99 45 52 22 2C 22 4D 24 |334..(I..ER","M$|
000020C0: 22 2C 22 54 54 22 2C 22 53 53 00 EC 28 4A 01 99 |","TT","SS..(J..|
000020D0: 22 1D 50 52 45 53 53 20 41 4E 59 20 4B 45 59 20 |".PRESS ANY KEY |
000020E0: 54 4F 20 43 4F 4E 54 49 4E 55 45 22 00 F9 28 4B |TO CONTINUE"..(K|
000020F0: 01 8D 33 32 3A 89 33 31 30 00 36 29 4C 01 99 22 |..32:.310.6)L.."|
00002100: 11 1D C9 4E 53 45 52 54 20 44 49 53 4B 20 49 4E |...NSERT DISK IN|
00002110: 20 44 52 49 56 45 22 3A 99 22 1D 50 52 45 53 53 | DRIVE":.".PRESS|
00002120: 20 52 45 54 55 52 4E 20 54 4F 20 43 4F 4E 54 49 | RETURN TO CONTI|
00002130: 4E 55 45 20 22 3B 00 56 29 4D 01 8D 36 32 3A 4D |NUE ";.V)M..62:M|
00002140: 58 B2 30 3A 8D 31 38 3A 8D 36 34 3A 91 51 89 33 |X.0:.18:.64:.Q.3|
00002150: 31 30 2C 33 33 39 00 73 29 4E 01 98 31 35 2C 22 |10,339.s)N..15,"|
00002160: 49 30 22 3A 84 31 35 2C 45 52 2C 4D 24 2C 54 54 |I0":.15,ER,M$,TT|
00002170: 2C 53 53 00 82 29 4F 01 8B 45 52 B3 32 30 A7 33 |,SS..)O..ER.20.3|
00002180: 33 39 00 99 29 50 01 99 45 52 22 2C 22 4D 24 22 |39..)P..ER","M$"|
00002190: 2C 22 54 54 22 2C 22 53 53 00 BB 29 51 01 99 22 |,"TT","SS..)Q.."|
000021A0: 1D 50 52 45 53 53 20 41 4E 59 20 4B 45 59 20 54 |.PRESS ANY KEY T|
000021B0: 4F 20 43 4F 4E 54 49 4E 55 45 22 00 C8 29 52 01 |O CONTINUE"..)R.|
000021C0: 8D 33 32 3A 89 33 31 30 00 CE 29 53 01 8E 00 D4 |.32:.310..)S....|
000021D0: 29 54 01 8F 00 F9 29 55 01 8B 22 20 22 AA 41 24 |)T....)U.." ".A$|
000021E0: B3 B1 C4 28 B5 28 C5 28 41 24 29 29 29 B0 C5 28 |...(.(.(A$)))..(|
000021F0: 41 24 29 B3 31 89 33 34 39 00 05 2A 56 01 41 B2 |A$).1.349..*V.A.|
00002200: C5 28 41 24 29 00 19 2A 57 01 91 41 54 89 33 34 |.(A$)..*W..AT.34|
00002210: 34 2C 33 34 35 2C 33 34 36 00 28 2A 58 01 4E 41 |4,345,346.(*X.NA|
00002220: B2 42 4E 3A 89 33 34 37 00 37 2A 59 01 4E 41 B2 |.BN:.347.7*Y.NA.|
00002230: 43 4E 3A 89 33 34 37 00 41 2A 5A 01 4E 41 B2 48 |CN:.347.A*Z.NA.H|
00002240: 4E 00 4F 2A 5B 01 8B 41 B1 4E 41 89 33 34 39 00 |N.O*[..A.NA.349.|
00002250: 5A 2A 5C 01 56 B2 AB 31 3A 8E 00 64 2A 5D 01 56 |Z*\.V..1:..d*].V|
00002260: B2 30 3A 8E 00 6A 2A 5E 01 8F 00 79 2A 5F 01 8B |.0:..j*^...y*_..|
00002270: 41 24 B2 22 22 89 33 35 39 00 81 2A 60 01 50 B2 |A$."".359..*`.P.|
00002280: 30 00 9D 2A 61 01 81 4A B2 31 A4 C3 28 41 24 29 |0..*a..J.1..(A$)|
00002290: 3A 43 24 B2 CA 28 41 24 2C 4A 2C 31 29 00 B5 2A |:C$..(A$,J,1)..*|
000022A0: 62 01 8B C5 28 43 24 29 B1 30 B0 43 24 B2 22 30 |b...(C$).0.C$."0|
000022B0: 22 89 33 35 37 00 D0 2A 63 01 8B 43 24 B2 22 2E |".357..*c..C$.".|
000022C0: 22 A7 50 B2 C3 28 41 24 29 AB 4A 3A 89 33 35 37 |".P..(A$).J:.357|
000022D0: 00 D9 2A 64 01 89 33 36 30 00 DF 2A 65 01 82 00 |..*d..360..*e...|
000022E0: FA 2A 66 01 8B 50 B1 32 B0 C5 28 41 24 29 B2 B1 |.*f..P.2..(A$)..|
000022F0: 31 30 30 30 30 30 89 33 36 30 00 05 2B 67 01 56 |100000.360..+g.V|
00002300: B2 AB 31 3A 8E 00 0F 2B 68 01 56 B2 30 3A 8E 00 |..1:...+h.V.0:..|
00002310: 15 2B 69 01 8F 00 45 2B 6A 01 8B C3 28 41 24 29 |.+i...E+j...(A$)|
00002320: B3 B1 38 B0 CA 28 41 24 2C 33 2C 31 29 B3 B1 22 |..8..(A$,3,1).."|
00002330: 2F 22 B0 CA 28 41 24 2C 36 2C 31 29 B3 B1 22 2F |/"..(A$,6,1).."/|
00002340: 22 89 33 37 30 00 6A 2B 6B 01 41 41 24 B2 C8 28 |".370.j+k.AA$..(|
00002350: 41 24 2C 31 29 3A 8B 41 41 24 B3 22 30 22 B0 41 |A$,1):.AA$."0".A|
00002360: 41 24 B1 22 39 22 A7 33 37 30 00 91 2B 6C 01 41 |A$."9".370..+l.A|
00002370: 41 24 B2 CA 28 41 24 2C 32 2C 31 29 3A 8B 41 41 |A$..(A$,2,1):.AA|
00002380: 24 B3 22 30 22 B0 41 41 24 B1 22 39 22 A7 33 37 |$."0".AA$."9".37|
00002390: 30 00 B5 2B 6D 01 5A 5A B2 C5 28 CA 28 41 24 2C |0..+m.ZZ..(.(A$,|
000023A0: 34 2C 32 29 29 3A 8B 5A 5A B1 31 32 B0 5A 5A B3 |4,2)):.ZZ.12.ZZ.|
000023B0: 31 89 33 37 30 00 D7 2B 6E 01 5A 5A B2 C5 28 C9 |1.370..+n.ZZ..(.|
000023C0: 28 41 24 2C 32 29 29 3A 8B 5A 5A B1 33 31 B0 5A |(A$,2)):.ZZ.31.Z|
000023D0: 5A B3 31 89 33 37 30 00 FE 2B 6F 01 8B C5 28 CA |Z.1.370..+o...(.|
000023E0: 28 41 24 2C 32 2C 31 29 29 B2 30 AF CA 28 41 24 |(A$,2,1)).0..(A$|
000023F0: 2C 32 2C 31 29 B3 B1 22 30 22 89 33 37 30 00 25 |,2,1).."0".370.%|
00002400: 2C 70 01 8B C5 28 CA 28 41 24 2C 35 2C 31 29 29 |,p...(.(A$,5,1))|
00002410: B2 30 AF CA 28 41 24 2C 35 2C 31 29 B3 B1 22 30 |.0..(A$,5,1).."0|
00002420: 22 89 33 37 30 00 30 2C 71 01 56 B2 AB 31 3A 8E |".370.0,q.V..1:.|
00002430: 00 3A 2C 72 01 56 B2 30 3A 8E 00 59 2C 73 01 8F |.:,r.V.0:..Y,s..|
00002440: 20 46 4F 52 4D 41 54 20 24 20 4F 55 54 50 55 54 | FORMAT $ OUTPUT|
00002450: 20 31 30 20 43 48 41 52 2E 00 70 2C 74 01 53 24 | 10 CHAR..p,t.S$|
00002460: B2 22 20 22 3A 8B 4E B3 30 A7 53 24 B2 22 2D 22 |." ":.N.0.S$."-"|
00002470: 00 89 2C 75 01 4E 24 B2 C4 28 B5 28 B6 28 4E 29 |..,u.N$..(.(.(N)|
00002480: AC 31 30 30 AA 2E 35 29 29 00 9A 2C 76 01 8B C3 |.100..5))..,v...|
00002490: 28 4E 24 29 B1 33 A7 33 37 37 00 CB 2C 77 01 8B |(N$).3.377..,w..|
000024A0: C3 28 4E 24 29 B2 32 A7 4E 24 B2 22 20 20 20 20 |.(N$).2.N$." |
000024B0: 22 AA C8 28 4E 24 2C 31 29 AA 22 30 30 22 AA C9 |"..(N$,1)."00"..|
000024C0: 28 4E 24 2C 31 29 3A 89 33 37 38 00 FB 2C 78 01 |(N$,1):.378..,x.|
000024D0: 8B C3 28 4E 24 29 B2 33 A7 4E 24 B2 22 20 20 20 |..(N$).3.N$." |
000024E0: 20 22 AA C8 28 4E 24 2C 31 29 AA 22 30 22 AA C9 | "..(N$,1)."0"..|
000024F0: 28 4E 24 2C 32 29 3A 89 33 37 38 00 17 2D 79 01 |(N$,2):.378..-y.|
00002500: 4E 24 B2 C8 28 22 20 20 20 20 22 2C 38 AB C3 28 |N$..(" ",8..(|
00002510: 4E 24 29 29 AA 4E 24 00 35 2D 7A 01 4E 24 B2 C8 |N$)).N$.5-z.N$..|
00002520: 28 4E 24 2C 36 29 AA 22 2E 22 AA C9 28 4E 24 2C |(N$,6)."."..(N$,|
00002530: 32 29 AA 53 24 00 3B 2D 7B 01 8E 00 5B 2D 7C 01 |2).S$.;-{...[-|.|
00002540: 42 31 B2 30 3A 91 49 89 33 38 35 2C 33 38 34 2C |B1.0:.I.385,384,|
00002550: 33 38 33 2C 33 38 32 2C 33 38 31 00 6C 2D 7D 01 |383,382,381.l-}.|
00002560: 42 31 B2 42 31 AA 42 44 25 28 35 29 00 7D 2D 7E |B1.B1.BD%(5).}-~|
00002570: 01 42 31 B2 42 31 AA 42 44 25 28 34 29 00 8E 2D |.B1.B1.BD%(4)..-|
00002580: 7F 01 42 31 B2 42 31 AA 42 44 25 28 33 29 00 9F |..B1.B1.BD%(3)..|
00002590: 2D 80 01 42 31 B2 42 31 AA 42 44 25 28 32 29 00 |-..B1.B1.BD%(2).|
000025A0: B2 2D 81 01 42 31 B2 42 31 AA 42 44 25 28 31 29 |.-..B1.B1.BD%(1)|
000025B0: 3A 8E 00 D2 2D 82 01 43 31 B2 30 3A 91 49 89 33 |:...-..C1.0:.I.3|
000025C0: 39 31 2C 33 39 30 2C 33 38 39 2C 33 38 38 2C 33 |91,390,389,388,3|
000025D0: 38 37 00 E3 2D 83 01 43 31 B2 43 31 AA 43 44 25 |87..-..C1.C1.CD%|
000025E0: 28 35 29 00 F4 2D 84 01 43 31 B2 43 31 AA 43 44 |(5)..-..C1.C1.CD|
000025F0: 25 28 34 29 00 05 2E 85 01 43 31 B2 43 31 AA 43 |%(4).....C1.C1.C|
00002600: 44 25 28 33 29 00 16 2E 86 01 43 31 B2 43 31 AA |D%(3).....C1.C1.|
00002610: 43 44 25 28 32 29 00 29 2E 87 01 43 31 B2 43 31 |CD%(2).)...C1.C1|
00002620: AA 43 44 25 28 31 29 3A 8E 00 5D 2E 88 01 48 31 |.CD%(1):..]...H1|
00002630: B2 30 3A 91 49 89 34 31 33 2C 34 31 32 2C 34 31 |.0:.I.413,412,41|
00002640: 31 2C 34 31 30 2C 34 30 39 2C 34 30 38 2C 34 30 |1,410,409,408,40|
00002650: 37 2C 34 30 36 2C 34 30 35 2C 34 30 34 00 8F 2E |7,406,405,404...|
00002660: 89 01 91 49 AB 31 30 89 34 30 33 2C 34 30 32 2C |...I.10.403,402,|
00002670: 34 30 31 2C 34 30 30 2C 33 39 39 2C 33 39 38 2C |401,400,399,398,|
00002680: 33 39 37 2C 33 39 36 2C 33 39 35 2C 33 39 34 00 |397,396,395,394.|
00002690: A1 2E 8A 01 48 31 B2 48 31 AA 48 44 25 28 32 30 |....H1.H1.HD%(20|
000026A0: 29 00 B3 2E 8B 01 48 31 B2 48 31 AA 48 44 25 28 |).....H1.H1.HD%(|
000026B0: 31 39 29 00 C5 2E 8C 01 48 31 B2 48 31 AA 48 44 |19).....H1.H1.HD|
000026C0: 25 28 31 38 29 00 D7 2E 8D 01 48 31 B2 48 31 AA |%(18).....H1.H1.|
000026D0: 48 44 25 28 31 37 29 00 E9 2E 8E 01 48 31 B2 48 |HD%(17).....H1.H|
000026E0: 31 AA 48 44 25 28 31 36 29 00 FB 2E 8F 01 48 31 |1.HD%(16).....H1|
000026F0: B2 48 31 AA 48 44 25 28 31 35 29 00 0D 2F 90 01 |.H1.HD%(15)../..|
00002700: 48 31 B2 48 31 AA 48 44 25 28 31 34 29 00 1F 2F |H1.H1.HD%(14)../|
00002710: 91 01 48 31 B2 48 31 AA 48 44 25 28 31 33 29 00 |..H1.H1.HD%(13).|
00002720: 31 2F 92 01 48 31 B2 48 31 AA 48 44 25 28 31 32 |1/..H1.H1.HD%(12|
00002730: 29 00 43 2F 93 01 48 31 B2 48 31 AA 48 44 25 28 |).C/..H1.H1.HD%(|
00002740: 31 31 29 00 55 2F 94 01 48 31 B2 48 31 AA 48 44 |11).U/..H1.H1.HD|
00002750: 25 28 31 30 29 00 66 2F 95 01 48 31 B2 48 31 AA |%(10).f/..H1.H1.|
00002760: 48 44 25 28 39 29 00 77 2F 96 01 48 31 B2 48 31 |HD%(9).w/..H1.H1|
00002770: AA 48 44 25 28 38 29 00 88 2F 97 01 48 31 B2 48 |.HD%(8)../..H1.H|
00002780: 31 AA 48 44 25 28 37 29 00 99 2F 98 01 48 31 B2 |1.HD%(7)../..H1.|
00002790: 48 31 AA 48 44 25 28 36 29 00 AA 2F 99 01 48 31 |H1.HD%(6)../..H1|
000027A0: B2 48 31 AA 48 44 25 28 35 29 00 BB 2F 9A 01 48 |.H1.HD%(5)../..H|
000027B0: 31 B2 48 31 AA 48 44 25 28 34 29 00 CC 2F 9B 01 |1.H1.HD%(4)../..|
000027C0: 48 31 B2 48 31 AA 48 44 25 28 33 29 00 DD 2F 9C |H1.H1.HD%(3)../.|
000027D0: 01 48 31 B2 48 31 AA 48 44 25 28 32 29 00 F0 2F |.H1.H1.HD%(2)../|
000027E0: 9D 01 48 31 B2 48 31 AA 48 44 25 28 31 29 3A 8E |..H1.H1.HD%(1):.|
000027F0: 00 FD 2F 9E 01 54 54 B2 30 3A 51 B2 30 00 17 30 |../..TT.0:Q.0..0|
00002800: 9F 01 81 49 B2 31 A4 42 4E 3A 54 54 B2 54 54 AA |...I.1.BN:TT.TT.|
00002810: 42 42 28 49 29 3A 82 00 31 30 A0 01 81 49 B2 31 |BB(I):..10...I.1|
00002820: A4 43 4E 3A 54 54 B2 54 54 AB 43 42 28 49 29 3A |.CN:TT.TT.CB(I):|
00002830: 82 00 4B 30 A1 01 81 49 B2 31 A4 48 4E 3A 54 54 |..K0...I.1.HN:TT|
00002840: B2 54 54 AB 48 42 28 49 29 3A 82 00 5F 30 A2 01 |.TT.HB(I):.._0..|
00002850: 8B B6 28 54 54 29 B2 B1 2E 30 31 A7 51 B2 31 00 |..(TT)...01.Q.1.|
00002860: 65 30 A3 01 8E 00 00 00 |e0...... |
..%.... ** REV FORM.85/11/16.1 RWM **.K.
...--------------------------------.G...
. 1983 10 25 EMW.Z...."."G(14)G(8
);......53280,5:.53281,7:.646,9......15,
8,15......66......".": . 49152......56:M
X.8:AF.0:NF..1:V$."/":.45:.Q........361:
..V..59:.9.......(....56:MX.8:AF.0:NF..1
:V$.".":.45:.Q...=....350:..V..59:.12.C.
....J....56:MX.3:AF.0:NF..1:V$."":.45:.Q
.......340:..V..59:.15....... ...V$."":
AF..1:NF.0:.45:......V$."":AF.0:NF..1:.4
5:.......56:MX.3:AF.0:NF..1:V$."":.45:.Q
........340:..V..E(A$)..0.A$.""..59:.20.
......#....56:MX.2:.19:.Q...A....E(A$).0
.E(A$).TT..59:.23.G.....U...AF.0:NF.0.G.
..ZV.0:.32:.Q........AF..G(F(A$).127).."
"........NF..A$."/"..A$.":"...O....V$..
""..Z.1.C(V$):ZV.Z:.A$..J(V$,Z,1)..:.27.
U....... ..A$:.A$."".32...!..QF.0.36..."
..A$.".".Q.1:A$."":..$.#..A$.".".Q.2:A$.
"":....$.Q.0:.._.%.AF.0:NF..1:V$."":.27:
.Q.E(A$)..TT.TT.E(A$):..G.&..37...'..A$:
.A$."0".A$."9".E(A$).TT.39...(.TT.E(A$):
....)..204,0:..C.*..204,255:.207,0:." ."
;:....+..56:V$."YN":MX.1:AF.0:NF.0:.45:.
A$.""..Q.0..59:.43...,...7.-..H("
",MX);.
N....H("................................
........",MX);.../.AA$."":V$.G(13).G(20)
.V$...0..41:.27:.42:.Q.AA$."":.55...1..Z
V.1.55.C.2..ZV.2.53.V.3..C(AA$)..MX.48..
.4.AA$.AA$.A$:.A$;:.48...5..AA$.."".AA$.
H(AA$,C(AA$).1):.G(20);...6..48.@.7.V$.J
(V$,3):A$.AA$:AA$."":.:..\.8.CL..(0):.CL
.39.CL.CL.40.L.9.VL.B(214):..V.:..".";.
.;.."."H("........................",VL);
.V.<..H("...............................
........",CL);...=.....>..QF..56:.TH$;:.
59...?.....@..QF..56:.TF$;:.59...A...E.B
.NA$.".....*** BUDGETER 64 - FILE FORMAT
***".X.C.ST$."..***********************
***************"...D.."."NA$...E..ST$...
F.."....-DATE (YY/MM/DD) ? ";:.9:.Q.70.
I.G.ZU$.A$:ZS$.A$...H..188:ZN$.Z1$:ZX$.Z
2$...I..209:BN.BZ:CN.CZ:HN.HZ.B.J..BA$(5
),BB(5),BS(5),BD%(5),BP%(5),BO%(5),B1(20
0),B1$(200):BM.200...K..CA$(7),CB(7),CS(
7),CD%(7),CP%(7),CO%(7),C1(200),C1$(200)
:CM.100.Q.L..HA$(20),HB(20),HD%(20),HP%(
20),TH(20),AD(21),H1(300),H1$(300):HM.40
0...M..HN(20),HT(20),HD$(20),PB$(20),AM$
(20),NB$(20)...N..T(20).B.O.TC$.".......
.................................".K.P.T
G$.".............................."...Q.
TM$."................................"..
.R.TN$."............................."..
.S.TH$."................................
.....F1.-REDO, .F3.-QUIT.".B.T.TF$."....
................................
.".].U.TT$(1)."BANK ACCOUNTS".Z.
V.TT$(2)."CHARGE ACCOUNTS"...W.TT$(3)."B
UDGET ACCOUNTS"...X.QF..1.F.Y.."........
......** MAIN MENU **".O.Z..ST$...[.."..
....-WHAT WOULD YOU LIKE TO DO ?".!.\.."
........0-SETUP - ACCOUNT FILES".H.].."
.......1-REVISE - BANK ACCOUNTS".P.^..".
.....2-REVISE - CHARGE ACCOUNTS"..._..".
.....3-REVISE - BUDGET ACCOUNTS"...`..".
.....4-REVISE - BUDGET BALANCES"...A..".
......5-REVISE - DISK NAME, PASSWORD"...
B.."......6-REVISE - NUMBER OF ACCOUNTS"
.-.C..".......7-SAVE".B.D..".......8-EXI
T".J.E.."..........-SELECT 0 TO 8 > ..
";...F.TT.8:.39:.TT.0.104...G.AT.TT:FA.0
:.TT.111,111,111,222,178,198,109,108:.88
.E.H..105:.88...I..AT.1.3:FA..1:.111:.Q.
.2.....J..Q..2..222...K.....L..8:. END:R
ETURN.#.M..414:.Q..222:.Q.....N..255:..Q
.O.. PROC ACCT IN AT,FA=ALL ACCTS.H.P..1
72:.FA.AN.0:.119.~.Q..176:.FA.Q.1:.127..
.R.."...."TT$(AT)".";:.AT.288,293,298.M.
S.VL.18:CL.1:.59:."0 - ALL ACCOUNTS";...
T.VL.20:CL.1:.59:."SELECT ACCOUNT ? ";..
.U..62:.20:.64:.Q.127...V.AN.E(A$)...W..
AT.120,121,122.=.X.NA.BN:.123.L.Y.NA.CN:
.123.[.Z.NA.HN:.123.G.{..AN.126...|.FA..
1:.AN.1.NA:.128:.Q.2.127...}..:.113...~.
FA.0:.128:.Q..2.113.....174:..M....172:
.FA.TT.0:.137......176:.FA.Q.1:.142.....
.160......"..0-ASSIGN ALL"......".1-ASSI
GN NAME".@....".2-ASSIGN NUMBER OF ENTRI
ES":TM.2.M....AT..3..".3-ASSIGN OPENING
BALANCE":TM.3......"....SELECT 0 ->"TM;.
....TT.TM:.62:.37:.64:.Q.142......TT.141
.D....143:.Q.129,142.X....146:.Q.129,142
......AT..3..157:.Q.129,142:.129......TT
.143,146,157:.Q.129,142:.129.'....174:..
P....160:VL.20:CL.1:.59:."ENTER NAME: ";
.J...MX.8:.62:.18:.64:.Q...Z...AN$.A$:.1
68......160:I.NA:.AT.147,148,149......38
0:XM.BM.B1.NE:.150.L....386:XM.CM.C1.NE:
.150......392:XM.HM.H1.NE:.150.....VL.18
:CL.1:.59:.XM"ENTRIES AVAILABLE";.=...VL
.20:CL.1:.59:."ENTER MAX. ENTRIES: ";.E.
...62.]...MX.3:.56:.19:.Q.155.T....E(A$)
.XM..59:.153......64:.Q.......NE.E(A$):.
168.H....160:VL.20:CL.1:.59:."ENTER OPEN
ING BALANCE $ ";......62:.12:.64:.Q.....
..OB.E(A$):.168... ..AT.161,162,163.-...
AN$.BA$(AN):NE.BD%(AN):OB.BB(AN):.164.W.
..AN$.CA$(AN):NE.CD%(AN):OB.CB(AN):.164.
|...AN$.HA$(AN):NE.HD%(AN):AD.AD(AN)....
.."."TT$(AT)"....";......"."AN"-"AN$:."N
UMBER OF ENTRIES="NE......AT..3.."OPENIN
G BALANCE= $"OB............AT.169,170,17
1.*...BA$(AN).AN$:BD%(AN).NE:BB(AN).OB:B
S(AN).OB:..[...CA$(AN).AN$:CD%(AN).NE:CB
(AN).OB:CS(AN).OB:......HA$(AN).AN$:HD%(
AN).NE:AD(AN).AD:....... PUSH.....FA(SP)
.FA:SP.SP.1:....... PULL.H...SP.SP.1:FA.
FA(SP):..R.... SEE.....FA.FA(SP.1):.....
........".. ** REDO DISK NAME AND PASS
WORD **".6...."..PRESENT NAME : "ZN$.V
...."..PRESENT PASSORD: "ZX$:..J....188:
.Q.178,187.~....".OK? (Y/N) ";......62:.
43:.64:.Q.178,187......A$."N".178.....ZN
$.Z1$:ZX$.Z2$.C.........."...-BUDGET FIL
ES FOR ? ";......62.....MX.16:.56:.18:.Q
.192......A$.""..59:.190.%....64:.Q...0.
A.Z1$.A$.P.B.."...-PASSWORD ? ";
.J.C.MX.8:.62:.18:.64:.Q...U.D.Z2$.A$.{.
E.....F.....G..".. ** SET NUMBER OF
ACCOUNTS **".V.H.."PRESENT NUMBER OF BAN
K ACCOUNTS:"BN...I.."PRESENT NUMBER OF C
HARGE ACCOUNTS:"CN...J.."PRESENT NUMBER
OF BUDGET ACCOUNTS:"HN.B.K..209:.Q.198,2
08.V.L..".OK? (Y/N) ";.Q.M..62:.43:.64:.
Q.198,208...N..A$."N".198...O.BN.BZ:CN.C
Z:HN.HZ...P...A.Q.."....-NUMBER OF BANK
ACCOUNTS"...R.." (1 TO 5
) ? ";...S.TT.5:.62:.23:.64:.Q.....T.BZ.
E(A$).2.U.."...-NUMBER OF CHARGE ACCOUNT
S".W.V.." (1 TO 7) ? ";.
Q.W.TT.7:.62:.23:.64:.Q...~.X.CZ.E(A$)..
.Y.."...-NUMBER OF BUDGET ACCOUNTS".H.Z.
." (1 TO 20) ? ";.....TT.
20:.62:.23:.64:.Q.......HZ.E(A$)........
.... FIX HOME ACCOUNT BALANCES.C...Z1$."
. ** BUDGET ACCOUNT BALANCES **".O...
.Z1$".".X....298......".EXCESS TO WHICH
BUDGET ACCOUNT ? ";.....AT.3:.62:.15:.64
:.Q.254,254.....AN.E(A$):.Z1$".".V....I.
1.HN:.I;.4)"-"HA$(I):......RM.0:.I.1.BN:
RM.RM.BB(I):... ...I.1.CN:RM.RM.CB(I):..
3 ..VL.1.AN:CL.15:.59:."(BALANCE)";.V ..
VL.22:CL.15:.59:."----------";.Z ..VL.23
:CL.15:.59:." 0.00 ";.. ..N.RM:.371
:.N$;.. ..TL.0:.I.1.HN:.I.AN.246.. ..VL.
I.1:CL.15:.59.E ...62.X ...56:.12:.Q.242
.. ..N.E(A$):.N.0.242..!...N.RM..59:.239
..!...64:.Q.222,254.I!..TL.TL.N:RM.RM.N:
T(I).N:VL.I.1:CL.15:.59:.371:.N$;.O!..VL
.23:CL.15:.59:N.TL:.371:.N$" ";..!..N.RM
:.371:.N$;..!.....!..N.RM:VL.AN.1:CL.15:
.59:.371:.N$.H!..TL.TL.N:RM.RM.N:T(AN).N
..!..VL.23:CL.15:.59:N.TL:.371:.N$" ";..
"..N.RM:.371:.N$;.%"..VL.24:CL.0:.59:."O
K? .Y.ES OR";.G"..V$."Y":.62:.26:.64:.Q.
222,254.`"...I.1.HN:HB(I).T(I):..F"....T
"...414:.Q...."...310:.Q...."...15,"I0".
."..."...SAVING TO DISK":."...PLEASE WAI
T...".S"..S$.G(13):Q$.G(34).."...15,"S0:
CURRENT DATA"..#...1,8,2,"0:CURRENT DATA
,S,W":.WRITEW/EOF.U#...1,Q$ZX$Q$;S$;Q$ZN
$Q$;S$;ZS;S$;ZI;S$;Q$ZS$Q$;S$;Q$ZU$Q$.K#
...1,BN;S$;CN;S$;HN.Y#...BN.0.272..#...I
.1.BN..#...1,Q$BA$(I)Q$;S$;BB(I);S$;BS(I
);S$;BD%(I);S$;1..#....D#.....#...1,BB(I
);S$;Q$"X".I(ZU$,5)."OPENING BAL."Q$..#.
....$.....$...CN.0.280..$...I.1.CN.M$...
1,Q$CA$(I)Q$;S$;CB(I);S$;CS(I);S$;CD%(I)
;S$;1.S$....Y$.....$...1,CB(I);S$;Q$"X".
I(ZU$,5)."OPENING BAL."Q$..$.....$....P$
...I.1.HN:.1,Q$HA$(I)Q$;S$;HB(I);S$;AD(I
);S$;HD%(I);S$;1.V$.....$.....%...1,HB(I
);S$;Q$"X".I(ZU$,5)."OPENING BAL."Q$..%.
....%....:%...1,AD(HN.1);S$;7;S$;5;S$;9:
1.@%....F% ...U%!..".......".A%"..I.1.B
N..%#.."..........."I"-"BA$(I):.I..%$...
.%%....%&.."......."..%'..I.1.CN.H%(..".
.........."I"-"CA$(I):.I.N%)...T%*....%+
..".................BUDGET ACCOUNTS"..&,
..".........................."./&-.A..(H
N.2..5).>&...".......".I&/..I.1.A.`&0.."
.."I"-"HA$(I):.I.O&1..".......".{&2..A.H
N....&3..I.A.1.HN..&4...20);I"-"HA$(I):.
I..&5...N&6.."..........*** SAVE NEW FIL
E ***"..&7.."......NEW DISK (Y/N) ? ";..
'8..62:.43:.64:.Q....'9..A$."N".332.L':.
."..DISK NAME ? .^..............^.......
..........";.T';..62.M'<..56:MX.16:.18:.
Q.318..'=..A$.""..59:.316..'>..64:.Q.310
,339..'?.DC$."N0:".A$..'@.."..DISK ID ?
";.B'A..62..'B..56:MX.2:.18:.64:.Q.310,3
39..'C..A$.."".DC$.DC$.",".A$.+(D.."....
.. * ENSURE THAT DISK IS BLANK * .".H(E.
."..INSERT DISK IN DRIVE":.".PRESS RETUR
N TO CONTINUE ";..(F..62:MX.0:.18:.64:.Q
.310,339..(G..15,DC$:.15,ER,M$,TT,SS..(H
..ER.20.334.J(I..ER","M$","TT","SS..(J..
".PRESS ANY KEY TO CONTINUE"..(K..32:.31
0.6)L.."..INSERT DISK IN DRIVE":.".PRESS
RETURN TO CONTINUE ";.V)M..62:MX.0:.18:
.64:.Q.310,339.S)N..15,"I0":.15,ER,M$,TT
,SS..)O..ER.20.339..)P..ER","M$","TT","S
S..)Q..".PRESS ANY KEY TO CONTINUE".H)R.
.32:.310.N)S...T)T....)U.." ".A$..D(.(E(
A$))).E(A$).1.349..*V.A.E(A$)..*W..AT.34
4,345,346.(*X.NA.BN:.347.7*Y.NA.CN:.347.
A*Z.NA.HN.O*[..A.NA.349.Z*\.V..1:..D*].V
.0:..J*^...Y*_..A$."".359..*`.P.0..*A..J
.1.C(A$):C$.J(A$,J,1)..*B..E(C$).0.C$."0
".357.P*C..C$.".".P.C(A$).J:.357.Y*D..36
0..*E....*F..P.2.E(A$)..100000.360..+G.V
..1:...+H.V.0:...+I...E+J..C(A$)..8.J(A$
,3,1).."/".J(A$,6,1).."/".370.J+K.AA$.H(
A$,1):.AA$."0".AA$."9".370..+L.AA$.J(A$,
2,1):.AA$."0".AA$."9".370..+M.ZZ.E(J(A$,
4,2)):.ZZ.12.ZZ.1.370.W+N.ZZ.E(I(A$,2)):
.ZZ.31.ZZ.1.370..+O..E(J(A$,2,1)).0.J(A$
,2,1).."0".370.%,P..E(J(A$,5,1)).0.J(A$,
5,1).."0".370.0,Q.V..1:..:,R.V.0:..Y,S..
FORMAT $ OUTPUT 10 CHAR..P,T.S$." ":.N.
0.S$."-"..,U.N$.D(.(.(N).100..5))..,V..C
(N$).3.377.K,W..C(N$).2.N$." ".H(N$,1
)."00".I(N$,1):.378..,X..C(N$).3.N$."
".H(N$,1)."0".I(N$,2):.378..-Y.N$.H("
",8.C(N$)).N$.5-Z.N$.H(N$,6).".".I(N$,
2).S$.;-{...[-|.B1.0:.I.385,384,383,382,
381.L-}.B1.B1.BD%(5).}-~.B1.B1.BD%(4)..-
.B1.B1.BD%(3)..-..B1.B1.BD%(2)..-..B1.B
1.BD%(1):..R-..C1.0:.I.391,390,389,388,3
87..-..C1.C1.CD%(5)..-..C1.C1.CD%(4)....
.C1.C1.CD%(3).....C1.C1.CD%(2).)...C1.C1
.CD%(1):..]...H1.0:.I.413,412,411,410,40
9,408,407,406,405,404......I.10.403,402,
401,400,399,398,397,396,395,394.....H1.H
1.HD%(20).....H1.H1.HD%(19).E...H1.H1.HD
%(18).W...H1.H1.HD%(17).....H1.H1.HD%(16
).....H1.H1.HD%(15)../..H1.H1.HD%(14)../
..H1.H1.HD%(13).1/..H1.H1.HD%(12).C/..H1
.H1.HD%(11).U/..H1.H1.HD%(10).F/..H1.H1.
HD%(9).W/..H1.H1.HD%(8)../..H1.H1.HD%(7)
../..H1.H1.HD%(6)../..H1.H1.HD%(5)../..H
1.H1.HD%(4).L/..H1.H1.HD%(3)../..H1.H1.H
D%(2)../..H1.H1.HD%(1):.../..TT.0:Q.0..0
...I.1.BN:TT.TT.BB(I):..10 ..I.1.CN:TT.T
T.CB(I):..K0...I.1.HN:TT.TT.HB(I):.._0..
..(TT)...01.Q.1.E0......
> CLICK IMAGE PREVIEW FOR FULL MODAL