BANKING 128
FILE INFORMATION
FILENAME(S): BANKING 128
FILE TYPE(S): PRG
FILE SIZE: 27.1K
FIRST SEEN: 2025-11-30 17:31:22
APPEARS ON: 1 disk(s)
FILE HASH
ee3a49944671d2db68b7b73502d4726cb24a03453dd35945e3addb87afd4c7d7
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| CDU SEPTEMBER | BANKING 128 | PRG | UK CD | 17 | 7 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 1C 0F 1C 0A 00 8F 20 2A 2A 20 46 49 20 41 00 |....... ** FI A.|
00000010: 1B 1C 14 00 8F 20 2A 2A 20 4E 47 00 3D 1C 1E 00 |..... ** NG.=...|
00000020: 8F 20 2A 2A 2A 2A 2A 2A 20 53 45 54 20 55 50 20 |. ****** SET UP |
00000030: 53 43 52 45 45 4E 20 2A 2A 2A 2A 2A 2A 00 4B 1C |SCREEN ******.K.|
00000040: 28 00 86 20 58 4D 24 28 31 32 29 00 87 1C 32 00 |(.. XM$(12)...2.|
00000050: 58 4D 24 28 31 29 B2 22 CA 41 4E 20 22 3A 58 4D |XM$(1).".AN ":XM|
00000060: 24 28 32 29 B2 22 C6 45 42 20 22 3A 58 4D 24 28 |$(2).".EB ":XM$(|
00000070: 33 29 B2 22 CD 41 52 20 22 3A 58 4D 24 28 34 29 |3).".AR ":XM$(4)|
00000080: B2 22 C1 50 52 20 22 00 C3 1C 3C 00 58 4D 24 28 |.".PR "...<.XM$(|
00000090: 35 29 B2 22 CD 41 59 20 22 3A 58 4D 24 28 36 29 |5).".AY ":XM$(6)|
000000A0: B2 22 CA 55 4E 20 22 3A 58 4D 24 28 37 29 B2 22 |.".UN ":XM$(7)."|
000000B0: CA 55 4C 20 22 3A 58 4D 24 28 38 29 B2 22 C1 55 |.UL ":XM$(8).".U|
000000C0: 47 20 22 00 F3 1C 46 00 58 4D 24 28 39 29 B2 22 |G "...F.XM$(9)."|
000000D0: D3 45 50 20 22 3A 58 4D 24 28 31 30 29 B2 22 CF |.EP ":XM$(10).".|
000000E0: 43 54 20 22 3A 58 4D 24 28 31 31 29 B2 22 CE 4F |CT ":XM$(11).".O|
000000F0: 56 20 22 00 06 1D 50 00 58 4D 24 28 31 32 29 B2 |V "...P.XM$(12).|
00000100: 22 C4 45 43 20 22 00 14 1D 5A 00 86 20 4E 4F 24 |".EC "...Z.. NO$|
00000110: 28 31 32 29 00 60 1D 64 00 4E 4F 24 28 31 29 B2 |(12).`.d.NO$(1).|
00000120: 22 30 31 22 3A 4E 4F 24 28 32 29 B2 22 30 32 22 |"01":NO$(2)."02"|
00000130: 3A 4E 4F 24 28 33 29 B2 22 30 33 22 3A 4E 4F 24 |:NO$(3)."03":NO$|
00000140: 28 34 29 B2 22 30 34 22 3A 4E 4F 24 28 35 29 B2 |(4)."04":NO$(5).|
00000150: 22 30 35 22 3A 4E 4F 24 28 36 29 B2 22 30 36 22 |"05":NO$(6)."06"|
00000160: 00 AF 1D 6E 00 4E 4F 24 28 37 29 B2 22 30 37 22 |...n.NO$(7)."07"|
00000170: 3A 4E 4F 24 28 38 29 B2 22 30 38 22 3A 4E 4F 24 |:NO$(8)."08":NO$|
00000180: 28 39 29 B2 22 30 39 22 3A 4E 4F 24 28 31 30 29 |(9)."09":NO$(10)|
00000190: B2 22 31 30 22 3A 4E 4F 24 28 31 31 29 B2 22 31 |."10":NO$(11)."1|
000001A0: 31 22 3A 4E 4F 24 28 31 32 29 B2 22 31 32 22 00 |1":NO$(12)."12".|
000001B0: C6 1D 78 00 86 20 44 59 24 28 37 29 3A 86 20 44 |..x.. DY$(7):. D|
000001C0: 46 24 28 31 30 29 00 11 1E 82 00 44 59 24 28 36 |F$(10).....DY$(6|
000001D0: 29 B2 22 D3 41 54 55 52 44 41 59 20 22 3A 44 59 |).".ATURDAY ":DY|
000001E0: 24 28 30 29 B2 22 D3 55 4E 44 41 59 20 22 3A 44 |$(0).".UNDAY ":D|
000001F0: 59 24 28 31 29 B2 22 CD 4F 4E 44 41 59 20 22 3A |Y$(1).".ONDAY ":|
00000200: 44 59 24 28 32 29 B2 22 D4 55 45 53 44 41 59 20 |DY$(2).".UESDAY |
00000210: 22 00 4D 1E 8C 00 44 59 24 28 33 29 B2 22 D7 45 |".M...DY$(3).".E|
00000220: 44 4E 45 53 44 41 59 20 22 3A 44 59 24 28 34 29 |DNESDAY ":DY$(4)|
00000230: B2 22 D4 48 55 52 53 44 41 59 20 22 3A 44 59 24 |.".HURSDAY ":DY$|
00000240: 28 35 29 B2 22 C6 52 49 44 41 59 20 22 00 60 1E |(5).".RIDAY ".`.|
00000250: 96 00 DE 35 2C 31 3A E7 36 2C 32 3A E7 35 2C 31 |...5,1:.6,2:.5,1|
00000260: 00 76 1E A0 00 FE 1A 20 30 2C 30 2C 37 39 2C 32 |.v..... 0,0,79,2|
00000270: 34 2C 31 3A FE 25 00 9C 1E AA 00 43 52 24 B2 C7 |4,1:.%.....CR$..|
00000280: 28 31 33 29 3A 99 20 C7 28 31 34 29 3A 42 B2 31 |(13):. .(14):B.1|
00000290: 3A 99 C7 28 31 31 29 3A 53 56 B2 31 00 EC 1E B4 |:..(11):SV.1....|
000002A0: 00 E8 3A 99 22 C2 41 4E 4B 46 49 4C 45 20 C2 59 |..:.".ANKFILE .Y|
000002B0: 20 D2 49 43 48 41 52 44 20 D4 41 4E 4E 45 52 20 | .ICHARD .ANNER |
000002C0: 20 20 20 20 20 20 20 20 20 20 20 20 C3 4F 4D 50 | .OMP|
000002D0: 49 4C 45 44 20 57 49 54 48 20 C2 4C 49 54 5A 20 |ILED WITH .LITZ |
000002E0: 31 32 38 22 3A 99 22 11 11 11 11 22 00 F2 1E BE |128":."...."....|
000002F0: 00 3A 00 2E 1F C8 00 8F 20 2A 2A 2A 2A 2A 2A 20 |.:...... ****** |
00000300: 4C 4F 41 44 20 49 4E 20 41 4C 4C 20 44 41 54 41 |LOAD IN ALL DATA|
00000310: 20 46 52 4F 4D 20 50 52 45 56 49 4F 55 53 20 53 | FROM PREVIOUS S|
00000320: 45 53 53 49 4F 4E 53 20 2A 2A 2A 2A 2A 2A 00 4C |ESSIONS ******.L|
00000330: 1F D2 00 FE 0D 23 31 2C 22 42 41 4E 4B 46 49 4C |.....#1,"BANKFIL|
00000340: 45 22 3A 84 31 2C 43 54 2C 4F 44 24 00 88 1F DC |E":.1,CT,OD$....|
00000350: 00 8B 20 44 53 B2 36 32 20 A7 20 99 22 D3 45 51 |.. DS.62 . .".EQ|
00000360: 55 45 4E 54 49 41 4C 20 C2 41 4E 4B 20 C4 41 54 |UENTIAL .ANK .AT|
00000370: 41 20 C6 49 4C 45 20 CE 4F 54 20 C6 4F 55 4E 44 |A .ILE .OT .OUND|
00000380: 22 3A 89 20 37 35 39 30 00 C8 1F E6 00 8B 20 44 |":. 7590...... D|
00000390: 53 B1 30 20 A7 20 99 22 11 11 11 C5 52 52 4F 52 |S.0 . ."....RROR|
000003A0: 20 49 4E 20 4C 4F 41 44 49 4E 47 20 42 41 4E 4B | IN LOADING BANK|
000003B0: 20 44 41 54 41 20 20 22 3B 44 53 24 3A FE 0B 20 | DATA ";DS$:.. |
000003C0: 31 3A 89 20 37 35 39 30 00 EB 1F F0 00 99 22 C6 |1:. 7590......".|
000003D0: 49 4C 45 20 4C 41 53 54 20 55 50 44 41 54 45 44 |ILE LAST UPDATED|
000003E0: 20 4F 4E 20 22 3B 4F 44 24 3A 99 00 25 20 FA 00 | ON ";OD$:..% ..|
000003F0: 86 44 24 28 43 54 AA 31 30 30 29 2C 4D 49 28 43 |.D$(CT.100),MI(C|
00000400: 54 AA 31 30 30 29 2C 4D 4F 28 43 54 AA 31 30 30 |T.100),MO(CT.100|
00000410: 29 2C 45 58 24 28 43 54 AA 31 30 30 29 3A 84 31 |),EX$(CT.100):.1|
00000420: 2C 41 4D 3A 99 00 34 20 04 01 86 20 59 4E 24 28 |,AM:..4 ... YN$(|
00000430: 31 30 30 29 00 79 20 0E 01 59 4E 24 28 38 35 29 |100).y ..YN$(85)|
00000440: B2 22 38 35 22 3A 59 4E 24 28 38 36 29 B2 22 38 |."85":YN$(86)."8|
00000450: 36 22 3A 59 4E 24 28 38 37 29 B2 22 38 37 22 3A |6":YN$(87)."87":|
00000460: 59 4E 24 28 38 38 29 B2 22 38 38 22 3A 59 4E 24 |YN$(88)."88":YN$|
00000470: 28 38 39 29 B2 22 38 39 22 00 BE 20 18 01 59 4E |(89)."89".. ..YN|
00000480: 24 28 39 30 29 B2 22 39 30 22 3A 59 4E 24 28 39 |$(90)."90":YN$(9|
00000490: 31 29 B2 22 39 31 22 3A 59 4E 24 28 39 32 29 B2 |1)."91":YN$(92).|
000004A0: 22 39 32 22 3A 59 4E 24 28 39 33 29 B2 22 39 33 |"92":YN$(93)."93|
000004B0: 22 3A 59 4E 24 28 39 34 29 B2 22 39 34 22 00 03 |":YN$(94)."94"..|
000004C0: 21 22 01 59 4E 24 28 39 35 29 B2 22 39 35 22 3A |!".YN$(95)."95":|
000004D0: 59 4E 24 28 39 36 29 B2 22 39 36 22 3A 59 4E 24 |YN$(96)."96":YN$|
000004E0: 28 39 37 29 B2 22 39 37 22 3A 59 4E 24 28 39 38 |(97)."97":YN$(98|
000004F0: 29 B2 22 39 38 22 3A 59 4E 24 28 39 39 29 B2 22 |)."98":YN$(99)."|
00000500: 39 39 22 00 0F 21 2C 01 81 41 B2 31 A4 43 54 00 |99"..!,..A.1.CT.|
00000510: 54 21 36 01 8B 20 44 53 B1 30 20 A7 20 99 22 11 |T!6.. DS.0 . .".|
00000520: 11 11 C5 52 52 4F 52 20 49 4E 20 4C 4F 41 44 49 |...RROR IN LOADI|
00000530: 4E 47 20 42 41 4E 4B 20 44 41 54 41 20 20 22 3B |NG BANK DATA ";|
00000540: 44 53 24 3A 41 B2 43 54 3A FE 0B 20 31 3A 89 20 |DS$:A.CT:.. 1:. |
00000550: 37 35 39 30 00 74 21 40 01 84 31 2C 44 24 28 41 |7590.t!@..1,D$(A|
00000560: 29 2C 4D 49 28 41 29 2C 4D 4F 28 41 29 2C 45 58 |),MI(A),MO(A),EX|
00000570: 24 28 41 29 00 96 21 4A 01 99 22 91 CC 4F 41 44 |$(A)..!J.."..OAD|
00000580: 45 44 20 22 3B 41 3B 22 20 46 49 4C 45 53 20 53 |ED ";A;" FILES S|
00000590: 4F 20 46 41 52 22 00 A2 21 54 01 82 41 3A FE 0F |O FAR"..!T..A:..|
000005A0: 23 31 00 C1 21 5E 01 FE 0D 23 31 2C 22 44 45 42 |#1..!^...#1,"DEB|
000005B0: 49 54 46 49 4C 45 22 3A 84 31 2C 54 44 2C 5A 44 |ITFILE":.1,TD,ZD|
000005C0: 24 00 D6 21 68 01 8B 20 44 53 B2 36 32 20 A7 20 |$..!h.. DS.62 . |
000005D0: 89 20 37 38 35 30 00 18 22 72 01 8B 20 44 53 B1 |. 7850.."r.. DS.|
000005E0: 30 20 A7 20 99 22 11 11 11 C5 52 52 4F 52 20 49 |0 . ."....RROR I|
000005F0: 4E 20 CC 4F 41 44 49 4E 47 20 C4 45 42 49 54 20 |N .OADING .EBIT |
00000600: C6 49 4C 45 53 20 20 22 3B 44 53 24 3A FE 0B 20 |.ILES ";DS$:.. |
00000610: 31 3A 89 20 37 38 35 30 00 41 22 7C 01 86 20 44 |1:. 7850.A"|.. D|
00000620: 4D 24 28 31 30 30 AA 54 44 29 2C 44 4D 28 31 30 |M$(100.TD),DM(10|
00000630: 30 AA 54 44 29 2C 58 44 24 28 31 30 30 AA 54 44 |0.TD),XD$(100.TD|
00000640: 29 00 50 22 86 01 81 20 41 B2 31 20 A4 20 54 44 |).P"... A.1 . TD|
00000650: 00 97 22 90 01 8B 20 44 53 B1 30 20 A7 20 99 22 |.."... DS.0 . ."|
00000660: 11 11 11 C5 52 52 4F 52 20 49 4E 20 CC 4F 41 44 |....RROR IN .OAD|
00000670: 49 4E 47 20 C4 45 42 49 54 20 C6 49 4C 45 53 20 |ING .EBIT .ILES |
00000680: 20 22 3B 44 53 24 3A 41 B2 54 44 3A FE 0B 20 31 | ";DS$:A.TD:.. 1|
00000690: 3A 89 20 37 38 35 30 00 BB 22 9A 01 84 31 2C 44 |:. 7850.."...1,D|
000006A0: 4D 24 28 41 29 2C 44 4D 28 41 29 2C 58 44 24 28 |M$(A),DM(A),XD$(|
000006B0: 41 29 3A 82 20 41 3A FE 0F 23 31 00 C1 22 A4 01 |A):. A:..#1.."..|
000006C0: 3A 00 D4 22 AE 01 8F 20 2A 2A 2A 20 4D 45 4E 55 |:.."... *** MENU|
000006D0: 20 2A 2A 2A 00 EA 22 B8 01 DE 20 35 2C 31 3A E7 | ***.."... 5,1:.|
000006E0: 20 36 2C 31 3A E7 20 35 2C 32 00 FD 22 C2 01 FE | 6,1:. 5,2.."...|
000006F0: 1A 20 30 2C 30 2C 37 39 2C 32 34 2C 31 00 08 23 |. 0,0,79,24,1..#|
00000700: CC 01 D7 20 32 35 39 30 00 2C 23 D6 01 8C 20 36 |... 2590.,#... 6|
00000710: 33 30 3A E7 20 35 2C 32 3A 99 3A 8B 20 54 44 24 |30:. 5,2:.:. TD$|
00000720: B3 B1 22 22 20 A7 20 89 20 35 35 30 00 5E 23 E0 |.."" . . 550.^#.|
00000730: 01 99 22 D4 48 45 20 44 41 54 41 20 46 49 4C 45 |..".HE DATA FILE|
00000740: 20 57 41 53 20 4C 41 53 54 20 55 50 44 41 54 45 | WAS LAST UPDATE|
00000750: 44 20 4F 4E 20 3A 20 22 3B 4F 44 24 3A 99 00 8D |D ON : ";OD$:...|
00000760: 23 EA 01 99 3A 85 22 D0 4C 45 41 53 45 20 C5 4E |#...:.".LEASE .N|
00000770: 54 45 52 20 D4 4F 44 41 59 53 20 C4 41 54 45 20 |TER .ODAYS .ATE |
00000780: C4 C4 2F CD CD 2F D9 D9 20 22 3B 41 24 00 06 24 |../../.. ";A$..$|
00000790: F4 01 8B 20 C3 28 41 24 29 B3 38 20 B0 20 C3 28 |... .(A$).8 . .(|
000007A0: 41 24 29 B1 38 20 A7 20 99 22 91 20 20 20 20 20 |A$).8 . .". |
000007B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000007C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000007D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000007E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000007F0: 20 20 20 20 20 20 20 20 22 3A 99 22 91 91 91 22 | ":."..."|
00000800: 3A 89 20 34 39 30 00 11 24 FE 01 8D 20 33 32 38 |:. 490..$... 328|
00000810: 30 00 28 24 08 02 8B 20 C3 28 41 24 29 B3 B1 38 |0.($... .(A$)..8|
00000820: 20 A7 20 89 20 35 30 30 00 60 24 12 02 44 54 24 | . . 500.`$..DT$|
00000830: B2 C8 28 44 59 24 28 4E 5A 29 2C 33 29 AA C4 28 |..(DY$(NZ),3)..(|
00000840: 44 5A 29 AA 22 20 22 AA 58 4D 24 28 4D 5A 29 AA |DZ)." ".XM$(MZ).|
00000850: 22 9D 22 AA C4 28 59 5A 29 3A 54 44 24 B2 41 24 |"."..(YZ):TD$.A$|
00000860: 00 6B 24 1C 02 8D 20 37 32 30 30 00 7C 24 26 02 |.k$... 7200.|$&.|
00000870: E8 3A 42 B2 31 3A E7 20 35 2C 31 35 00 CB 24 30 |.:B.1:. 5,15..$0|
00000880: 02 99 22 C2 41 4E 4B 46 49 4C 45 20 C2 59 20 D2 |..".ANKFILE .Y .|
00000890: 49 43 48 41 52 44 20 D4 41 4E 4E 45 52 20 20 20 |ICHARD .ANNER |
000008A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000008B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000008C0: 20 20 20 20 20 20 22 3B 44 54 24 00 E8 24 3A 02 | ";DT$..$:.|
000008D0: 99 3A 99 3A FE 1A 20 30 2C 32 2C 37 39 2C 32 34 |.:.:.. 0,2,79,24|
000008E0: 2C 31 3A E7 20 35 2C 32 00 3E 25 44 02 99 22 20 |,1:. 5,2.>%D.." |
000008F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000900: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000910: 20 20 20 22 3B 3A 99 C7 28 32 29 3B 22 20 CD 20 | ";:..(2);" . |
00000920: C5 20 CE 20 D5 20 22 3B C7 28 31 33 30 29 3A 99 |. . . ";.(130):.|
00000930: 22 C6 49 4C 45 53 20 3A 22 3B 43 54 3A 99 00 4D |".ILES :";CT:..M|
00000940: 25 4E 02 81 41 B2 31 A4 39 3A 87 41 24 00 62 25 |%N..A.1.9:.A$.b%|
00000950: 58 02 41 24 B2 C4 28 41 29 AA 22 20 2E 20 22 AA |X.A$..(A)." . ".|
00000960: 41 24 00 88 25 62 02 99 22 20 20 20 20 20 20 20 |A$..%b.." |
00000970: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000980: 20 20 22 3B 41 24 3A 99 00 90 25 6C 02 82 20 41 | ";A$:...%l.. A|
00000990: 00 14 26 76 02 83 22 D3 41 56 45 20 C2 41 4E 4B |..&v..".AVE .ANK|
000009A0: 20 C6 49 4C 45 20 C4 41 54 41 22 2C 22 C3 52 45 | .ILE .ATA",".RE|
000009B0: 44 49 54 20 C1 43 43 4F 55 4E 54 22 2C 22 C4 45 |DIT .CCOUNT",".E|
000009C0: 42 49 54 20 C1 43 43 4F 55 4E 54 22 2C 22 C2 41 |BIT .CCOUNT",".A|
000009D0: 4C 41 4E 43 45 22 2C 22 C1 4C 54 45 52 20 2F 20 |LANCE",".LTER / |
000009E0: C4 45 4C 45 54 45 20 D2 45 43 4F 52 44 22 2C 22 |.ELETE .ECORD","|
000009F0: D0 52 49 4E 54 20 D3 54 41 54 45 4D 45 4E 54 20 |.RINT .TATEMENT |
00000A00: D4 4F 20 D3 43 52 45 45 4E 20 2F 20 D0 52 49 4E |.O .CREEN / .RIN|
00000A10: 54 45 52 22 00 4E 26 80 02 83 22 D3 4F 52 54 20 |TER".N&...".ORT |
00000A20: D2 45 43 4F 52 44 53 20 42 59 20 C4 41 54 45 22 |.ECORDS BY .ATE"|
00000A30: 2C 22 D0 52 49 4E 54 20 D3 45 4C 45 43 54 49 56 |,".RINT .ELECTIV|
00000A40: 45 20 C5 58 50 45 4E 44 49 54 55 52 45 22 00 69 |E .XPENDITURE".i|
00000A50: 26 8A 02 83 22 C5 44 49 54 20 C4 49 52 45 43 54 |&...".DIT .IRECT|
00000A60: 20 C4 45 42 49 54 53 22 2C 00 6F 26 94 02 3A 00 | .EBITS",.o&..:.|
00000A70: B1 26 9E 02 8F 20 2A 2A 2A 2A 2A 2A 20 47 45 54 |.&... ****** GET|
00000A80: 20 4F 50 54 49 4F 4E 20 53 45 4C 45 43 54 49 4F | OPTION SELECTIO|
00000A90: 4E 20 41 4E 44 20 4A 55 4D 50 20 54 4F 20 43 4F |N AND JUMP TO CO|
00000AA0: 52 52 45 43 54 20 50 41 52 54 20 2A 2A 2A 2A 2A |RRECT PART *****|
00000AB0: 2A 00 F9 26 A8 02 99 C7 28 31 35 29 3B 22 20 20 |*..&....(15);" |
00000AC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000AD0: 20 20 20 20 20 20 20 20 20 20 D0 4C 45 41 53 45 | .LEASE|
00000AE0: 20 D3 45 4C 45 43 54 20 41 4E 20 CF 50 54 49 4F | .ELECT AN .PTIO|
00000AF0: 4E 22 3B C7 28 31 34 33 29 00 26 27 B2 02 A1 F9 |N";.(143).&'....|
00000B00: 41 24 3A 8B 41 24 B3 22 31 22 B0 41 24 B1 22 39 |A$:.A$."1".A$."9|
00000B10: 22 A7 99 C7 28 37 29 3B 22 9D 22 3A 89 36 39 30 |"...(7);".":.690|
00000B20: 3A D5 89 37 31 30 00 54 27 BC 02 99 22 C6 41 55 |:..710.T'...".AU|
00000B30: 4C 54 20 C9 4E 20 D0 52 4F 47 52 41 4D 20 D0 4C |LT .N .ROGRAM .L|
00000B40: 45 41 53 45 20 C3 48 45 43 4B 20 C9 54 20 CF 55 |EASE .HECK .T .U|
00000B50: 54 22 3A 80 00 69 27 C6 02 DE 20 35 2C 31 3A E7 |T":..i'... 5,1:.|
00000B60: 20 36 2C 31 3A E7 35 2C 32 00 A2 27 D0 02 91 20 | 6,1:.5,2..'... |
00000B70: C5 28 41 24 29 20 8D 20 37 35 30 2C 38 37 30 2C |.(A$) . 750,870,|
00000B80: 31 31 38 30 2C 31 35 30 30 2C 35 37 30 30 2C 35 |1180,1500,5700,5|
00000B90: 36 31 30 2C 32 32 38 30 2C 32 38 31 30 2C 33 34 |610,2280,2810,34|
00000BA0: 35 30 00 AB 27 DA 02 89 34 33 30 00 B1 27 E4 02 |50..'...430..'..|
00000BB0: 3A 00 E2 27 EE 02 8F 20 2A 2A 2A 2A 2A 2A 20 52 |:..'... ****** R|
00000BC0: 4F 55 54 49 4E 45 20 54 4F 20 53 41 56 45 20 44 |OUTINE TO SAVE D|
00000BD0: 41 54 41 20 54 4F 20 44 49 53 4B 20 2A 2A 2A 2A |ATA TO DISK ****|
00000BE0: 2A 2A 00 EB 27 F8 02 53 56 B2 30 00 F6 27 02 03 |**..'..SV.0..'..|
00000BF0: 8D 20 32 32 38 30 00 33 28 0C 03 53 56 B2 31 3A |. 2280.3(..SV.1:|
00000C00: 99 22 91 91 20 20 20 20 20 20 20 20 20 20 20 20 |.".. |
00000C10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000C20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000C30: 20 20 22 00 71 28 16 03 99 C7 28 31 38 29 3B 22 | ".q(....(18);"|
00000C40: 91 91 D3 41 56 49 4E 47 20 C4 41 54 41 20 D4 4F |...AVING .ATA .O|
00000C50: 20 C4 49 53 4B 22 3B C7 28 31 34 36 29 3B 22 20 | .ISK";.(146);" |
00000C60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3A | ":|
00000C70: 99 00 D5 28 20 03 99 22 20 20 20 20 20 20 20 20 |...( .." |
00000C80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000C90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000CA0: 20 20 22 3A 99 22 20 20 20 20 20 20 20 20 20 20 | ":." |
00000CB0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000CC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000CD0: 20 20 20 20 22 00 E0 28 2A 03 8D 20 32 36 37 30 | "..(*.. 2670|
00000CE0: 00 4A 29 34 03 FE 0D 23 31 2C 22 40 42 41 4E 4B |.J)4...#1,"@BANK|
00000CF0: 46 49 4C 45 31 22 2C 44 30 2C 55 38 2C 57 3A 98 |FILE1",D0,U8,W:.|
00000D00: 31 2C 43 54 3B 43 52 24 3B 44 54 24 3A 98 31 2C |1,CT;CR$;DT$:.1,|
00000D10: 41 4D 3A 81 41 B2 31 A4 43 54 3A 98 31 2C 44 24 |AM:.A.1.CT:.1,D$|
00000D20: 28 41 29 3B 43 52 24 3B 4D 49 28 41 29 3B 43 52 |(A);CR$;MI(A);CR|
00000D30: 24 3B 4D 4F 28 41 29 3B 43 52 24 3B 45 58 24 28 |$;MO(A);CR$;EX$(|
00000D40: 41 29 3A 82 41 3A FE 0F 23 31 00 80 29 3E 03 8B |A):.A:..#1..)>..|
00000D50: 44 53 B2 30 A7 F2 22 42 41 4E 4B 46 49 4C 45 22 |DS.0.."BANKFILE"|
00000D60: 3A F5 22 42 41 4E 4B 46 49 4C 45 31 22 A4 22 42 |:."BANKFILE1"."B|
00000D70: 41 4E 4B 46 49 4C 45 22 3A D5 99 44 53 24 3A 99 |ANKFILE":..DS$:.|
00000D80: 00 D7 29 48 03 99 22 11 11 11 11 22 3A 99 C7 28 |..)H.."....":..(|
00000D90: 31 38 29 3B 22 D3 41 56 49 4E 47 20 C3 4F 4D 50 |18);".AVING .OMP|
00000DA0: 4C 45 54 45 44 2C 20 D0 52 45 53 53 20 C1 4E 59 |LETED, .RESS .NY|
00000DB0: 20 CB 45 59 20 D4 4F 20 D2 45 54 55 52 4E 20 D4 | .EY .O .ETURN .|
00000DC0: 4F 20 D4 48 45 20 CD 45 4E 55 22 3B C7 28 31 34 |O .HE .ENU";.(14|
00000DD0: 36 29 3A A1 F9 41 24 00 DD 29 52 03 8E 00 E3 29 |6):..A$..)R....)|
00000DE0: 5C 03 3A 00 15 2A 66 03 8F 20 2A 2A 2A 2A 2A 2A |\.:..*f.. ******|
00000DF0: 20 50 55 54 54 49 4E 47 20 4D 4F 4E 49 45 53 20 | PUTTING MONIES |
00000E00: 49 4E 20 54 48 45 20 41 43 43 4F 55 4E 54 20 2A |IN THE ACCOUNT *|
00000E10: 2A 2A 2A 2A 2A 00 3A 2A 70 03 99 C7 28 31 38 29 |*****.:*p...(18)|
00000E20: 3B 22 C3 52 45 44 49 54 20 C1 43 43 4F 55 4E 54 |;".REDIT .CCOUNT|
00000E30: 22 3B C7 28 31 34 36 29 3A 99 00 45 2A 7A 03 8D |";.(146):..E*z..|
00000E40: 20 32 36 37 30 00 4F 2A 84 03 E7 20 35 2C 32 00 | 2670.O*... 5,2.|
00000E50: 6A 2A 8E 03 41 24 B2 22 22 3A 4D B2 30 3A 4D 4D |j*..A$."":M.0:MM|
00000E60: 24 B2 22 22 3A 46 24 B2 22 22 00 8E 2A 98 03 99 |$."":F$.""..*...|
00000E70: 3A 85 22 C3 52 45 44 49 54 20 C4 41 54 45 20 28 |:.".REDIT .ATE (|
00000E80: 44 44 2E 4D 4D 2E 59 59 29 20 22 3B 41 24 00 07 |DD.MM.YY) ";A$..|
00000E90: 2B A2 03 8B 20 C3 28 41 24 29 B3 38 20 B0 20 C3 |+... .(A$).8 . .|
00000EA0: 28 41 24 29 B1 38 20 A7 20 99 22 91 20 20 20 20 |(A$).8 . .". |
00000EB0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000EC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000ED0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000EE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000EF0: 20 20 20 20 20 20 20 20 20 22 3A 99 22 91 91 91 | ":."...|
00000F00: 22 3A 89 20 39 32 30 00 12 2B AC 03 8D 20 33 32 |":. 920..+... 32|
00000F10: 38 30 00 29 2B B6 03 8B 20 C3 28 41 24 29 B3 B1 |80.)+... .(A$)..|
00000F20: 38 20 A7 20 89 20 39 33 30 00 34 2B C0 03 E7 20 |8 . . 930.4+... |
00000F30: 35 2C 31 36 00 64 2B CA 03 44 43 24 B2 44 59 24 |5,16.d+..DC$.DY$|
00000F40: 28 4E 5A 29 AA 22 9D 22 AA C4 28 44 5A 29 AA 22 |(NZ)."."..(DZ)."|
00000F50: 20 22 AA 58 4D 24 28 4D 5A 29 AA 22 9D 22 AA C4 | ".XM$(MZ)."."..|
00000F60: 28 59 5A 29 00 6F 2B D4 03 99 3A 99 44 43 24 00 |(YZ).o+...:.DC$.|
00000F70: 79 2B DE 03 E7 20 35 2C 32 00 97 2B E8 03 99 3A |y+... 5,2..+...:|
00000F80: 85 22 C3 52 45 44 49 54 20 C1 4D 4F 55 4E 54 20 |.".REDIT .MOUNT |
00000F90: 5C 20 22 3B 4D 4D 24 00 17 2C F2 03 4D B2 C5 28 |\ ";MM$..,..M..(|
00000FA0: 4D 4D 24 29 3A 8B 20 4D B3 30 2E 30 31 20 B0 20 |MM$):. M.0.01 . |
00000FB0: 4D B2 30 20 A7 20 99 22 91 20 20 20 20 20 20 20 |M.0 . .". |
00000FC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000FD0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000FE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000FF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001000: 20 20 20 20 20 20 20 20 22 3A 99 22 91 91 22 3B | ":."..";|
00001010: 3A 89 20 31 30 30 30 00 37 2C FC 03 99 3A 85 22 |:. 1000.7,...:."|
00001020: C3 52 45 44 49 54 20 C5 58 50 4C 41 4E 41 54 49 |.REDIT .XPLANATI|
00001030: 4F 4E 20 22 3B 46 24 00 A7 2C 06 04 8B 20 C6 28 |ON ";F$..,... .(|
00001040: 46 24 29 B2 30 20 A7 20 99 22 91 20 20 20 20 20 |F$).0 . .". |
00001050: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001060: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001070: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001080: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001090: 20 20 20 20 20 20 20 20 22 3A 99 22 91 91 91 22 | ":."..."|
000010A0: 3A 89 20 31 30 32 30 00 B3 2C 10 04 E8 3A E7 20 |:. 1020..,...:. |
000010B0: 35 2C 32 00 D8 2C 1A 04 99 C7 28 31 38 29 3B 22 |5,2..,....(18);"|
000010C0: C3 52 45 44 49 54 20 C1 43 43 4F 55 4E 54 22 3B |.REDIT .CCOUNT";|
000010D0: C7 28 31 34 36 29 3A 99 00 E2 2C 24 04 99 22 11 |.(146):...,$..".|
000010E0: 11 22 00 00 2D 2E 04 99 22 C4 C1 D4 C5 20 20 20 |."..-...".... |
000010F0: 20 20 20 20 20 20 20 3A 20 22 3B 44 43 24 3A 99 | : ";DC$:.|
00001100: 00 65 2D 38 04 99 3A 99 22 C5 D8 D0 CC C1 CE C1 |.e-8..:.".......|
00001110: D4 C9 CF CE 20 20 20 3A 20 22 3B 3A 99 FB 22 23 |.... : ";:.."#|
00001120: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 |################|
00001130: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 |################|
00001140: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 |################|
00001150: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 22 |###############"|
00001160: 3B 46 24 3A 99 00 82 2D 42 04 99 3A 99 22 C3 D2 |;F$:...-B..:."..|
00001170: C5 C4 C9 D4 A0 C1 CD CF D5 CE D4 20 5C 22 3B 4D |........... \";M|
00001180: 3A 99 00 B8 2D 4C 04 99 3A 99 22 C9 53 20 54 48 |:...-L..:.".S TH|
00001190: 45 20 41 42 4F 56 45 20 49 4E 46 4F 52 4D 41 54 |E ABOVE INFORMAT|
000011A0: 49 4F 4E 20 43 4F 52 52 45 43 54 20 28 20 59 2F |ION CORRECT ( Y/|
000011B0: 4E 20 29 22 3A 99 3A 99 00 C2 2D 56 04 A1 F9 20 |N )":.:...-V... |
000011C0: 42 24 00 E9 2D 60 04 8B 20 42 24 B3 B1 22 59 22 |B$..-`.. B$.."Y"|
000011D0: 20 AF 20 42 24 B3 B1 22 4E 22 20 A7 20 99 C7 28 | . B$.."N" . ..(|
000011E0: 37 29 3A 89 20 31 31 31 30 00 00 2E 6A 04 8B 20 |7):. 1110...j.. |
000011F0: 42 24 B2 22 4E 22 20 A7 20 E8 3A 89 20 38 38 30 |B$."N" . .:. 880|
00001200: 00 4C 2E 74 04 99 3A 99 C7 28 31 38 29 3B 22 C6 |.L.t..:..(18);".|
00001210: 49 4C 45 20 55 50 44 41 54 45 44 22 3B C7 28 31 |ILE UPDATED";.(1|
00001220: 34 36 29 3B 22 20 3A 20 D0 52 45 53 53 20 41 4E |46);" : .RESS AN|
00001230: 59 20 4B 45 59 20 54 4F 20 52 45 54 55 52 4E 20 |Y KEY TO RETURN |
00001240: 54 4F 20 54 48 45 20 4D 45 4E 55 22 00 56 2E 7E |TO THE MENU".V.~|
00001250: 04 A1 F9 20 42 24 00 9D 2E 88 04 88 43 54 B2 43 |... B$......CT.C|
00001260: 54 AA 31 3A 41 4D B2 41 4D AA 4D 3A 44 24 28 43 |T.1:AM.AM.M:D$(C|
00001270: 54 29 B2 41 24 3A 4D 49 28 43 54 29 B2 4D 3A 45 |T).A$:MI(CT).M:E|
00001280: 58 24 28 43 54 29 B2 46 24 3A 42 B2 31 3A FE 1A |X$(CT).F$:B.1:..|
00001290: 30 2C 32 2C 37 39 2C 32 32 2C 31 3A 8E 00 A3 2E |0,2,79,22,1:....|
000012A0: 92 04 3A 00 D8 2E 9C 04 8F 20 2A 2A 2A 2A 2A 2A |..:...... ******|
000012B0: 20 54 41 4B 49 4E 47 20 4D 4F 4E 49 45 53 20 4F | TAKING MONIES O|
000012C0: 55 54 20 4F 46 20 54 48 45 20 41 43 43 4F 55 4E |UT OF THE ACCOUN|
000012D0: 54 20 2A 2A 2A 2A 2A 2A 00 FF 2E A6 04 99 C7 28 |T ******.......(|
000012E0: 31 38 29 3B 22 C4 45 42 49 54 49 4E 47 20 C1 43 |18);".EBITING .C|
000012F0: 43 4F 55 4E 54 22 3B C7 28 31 34 36 29 3A 99 00 |COUNT";.(146):..|
00001300: 0A 2F B0 04 8D 20 32 36 37 30 00 14 2F BA 04 E7 |./... 2670../...|
00001310: 20 35 2C 32 00 2F 2F C4 04 41 24 B2 22 22 3A 4D | 5,2.//..A$."":M|
00001320: 4D 24 B2 22 22 3A 4D B2 30 3A 46 24 B2 22 22 00 |M$."":M.0:F$."".|
00001330: 53 2F CE 04 99 3A 85 22 C4 45 42 49 54 20 C4 41 |S/...:.".EBIT .A|
00001340: 54 45 20 28 20 44 44 2E 4D 4D 2E 59 59 20 29 22 |TE ( DD.MM.YY )"|
00001350: 3B 41 24 00 CD 2F D8 04 8B 20 C3 28 41 24 29 B3 |;A$../... .(A$).|
00001360: 38 20 B0 20 C3 28 41 24 29 B1 38 20 A7 20 99 22 |8 . .(A$).8 . ."|
00001370: 91 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. |
00001380: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001390: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000013A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000013B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3A | ":|
000013C0: 99 22 91 91 91 22 3A 89 20 31 32 33 30 00 D8 2F |."...":. 1230../|
000013D0: E2 04 8D 20 33 32 38 30 00 F0 2F EC 04 8B 20 C3 |... 3280../... .|
000013E0: 28 41 24 29 B3 B1 38 20 A7 20 89 20 31 32 34 30 |(A$)..8 . . 1240|
000013F0: 00 FB 2F F6 04 E7 20 35 2C 31 36 00 2B 30 00 05 |../... 5,16.+0..|
00001400: 44 43 24 B2 44 59 24 28 4E 5A 29 AA 22 9D 22 AA |DC$.DY$(NZ).".".|
00001410: C4 28 44 5A 29 AA 22 20 22 AA 58 4D 24 28 4D 5A |.(DZ)." ".XM$(MZ|
00001420: 29 AA 22 9D 22 AA C4 28 59 5A 29 00 36 30 0A 05 |)."."..(YZ).60..|
00001430: 99 3A 99 44 43 24 00 40 30 14 05 E7 20 35 2C 32 |.:.DC$.@0... 5,2|
00001440: 00 5D 30 1E 05 99 3A 85 22 C4 45 42 49 54 20 C1 |.]0...:.".EBIT .|
00001450: 4D 4F 55 4E 54 20 5C 20 22 3B 4D 4D 24 00 DD 30 |MOUNT \ ";MM$..0|
00001460: 28 05 4D B2 C5 28 4D 4D 24 29 3A 8B 20 4D B3 30 |(.M..(MM$):. M.0|
00001470: 2E 30 31 20 B0 20 4D B2 30 20 A7 20 99 22 91 20 |.01 . M.0 . .". |
00001480: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001490: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000014A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000014B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000014C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3A | ":|
000014D0: 99 22 91 91 22 3B 3A 89 20 31 33 31 30 00 FC 30 |."..";:. 1310..0|
000014E0: 32 05 99 3A 85 22 C4 45 42 49 54 20 C5 58 50 4C |2..:.".EBIT .XPL|
000014F0: 41 4E 41 54 49 4F 4E 20 22 3B 46 24 00 6C 31 3C |ANATION ";F$.l1<|
00001500: 05 8B 20 C6 28 46 24 29 B2 30 20 A7 20 99 22 91 |.. .(F$).0 . .".|
00001510: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001520: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001530: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001540: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001550: 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3A 99 | ":.|
00001560: 22 91 91 91 22 3A 89 20 31 33 33 30 00 78 31 46 |"...":. 1330.x1F|
00001570: 05 E8 3A E7 20 35 2C 32 00 9F 31 50 05 99 C7 28 |..:. 5,2..1P...(|
00001580: 31 38 29 3B 22 C4 45 42 49 54 49 4E 47 20 C1 43 |18);".EBITING .C|
00001590: 43 4F 55 4E 54 22 3B C7 28 31 34 36 29 3A 99 00 |COUNT";.(146):..|
000015A0: A9 31 5A 05 99 22 11 11 22 00 C7 31 64 05 99 22 |.1Z..".."..1d.."|
000015B0: C4 C1 D4 C5 20 20 20 20 20 20 20 20 20 20 3A 20 |.... : |
000015C0: 22 3B 44 43 24 3A 99 00 2C 32 6E 05 99 3A 99 22 |";DC$:..,2n..:."|
000015D0: C5 D8 D0 CC C1 CE C1 D4 C9 CF CE 20 20 20 3A 20 |........... : |
000015E0: 22 3B 3A 99 FB 22 23 23 23 23 23 23 23 23 23 23 |";:.."##########|
000015F0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 |################|
00001600: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 |################|
00001610: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 |################|
00001620: 23 23 23 23 23 23 22 3B 46 24 3A 99 00 49 32 78 |######";F$:..I2x|
00001630: 05 99 3A 99 22 C4 C5 C2 C9 D4 20 C1 CD CF D5 CE |..:."..... .....|
00001640: D4 20 20 5C 22 3B 4D 3A 99 00 7F 32 82 05 99 3A |. \";M:...2...:|
00001650: 99 22 C9 53 20 54 48 45 20 41 42 4F 56 45 20 49 |.".S THE ABOVE I|
00001660: 4E 46 4F 52 4D 41 54 49 4F 4E 20 43 4F 52 52 45 |NFORMATION CORRE|
00001670: 43 54 20 28 20 59 2F 4E 20 29 22 3A 99 3A 99 00 |CT ( Y/N )":.:..|
00001680: 89 32 8C 05 A1 F9 20 42 24 00 B0 32 96 05 8B 20 |.2.... B$..2... |
00001690: 42 24 B3 B1 22 59 22 20 AF 20 42 24 B3 B1 22 4E |B$.."Y" . B$.."N|
000016A0: 22 20 A7 20 99 C7 28 37 29 3A 89 20 31 34 32 30 |" . ..(7):. 1420|
000016B0: 00 C8 32 A0 05 8B 20 42 24 B2 22 4E 22 20 A7 20 |..2... B$."N" . |
000016C0: E8 3A 89 20 31 31 39 30 00 14 33 AA 05 99 3A 99 |.:. 1190..3...:.|
000016D0: C7 28 31 38 29 3B 22 C6 49 4C 45 20 55 50 44 41 |.(18);".ILE UPDA|
000016E0: 54 45 44 22 3B C7 28 31 34 36 29 3B 22 20 3A 20 |TED";.(146);" : |
000016F0: D0 52 45 53 53 20 41 4E 59 20 4B 45 59 20 54 4F |.RESS ANY KEY TO|
00001700: 20 52 45 54 55 52 4E 20 54 4F 20 54 48 45 20 4D | RETURN TO THE M|
00001710: 45 4E 55 22 00 1E 33 B4 05 A1 F9 20 42 24 00 65 |ENU"..3.... B$.e|
00001720: 33 BE 05 88 43 54 B2 43 54 AA 31 3A 41 4D B2 41 |3...CT.CT.1:AM.A|
00001730: 4D AB 4D 3A 44 24 28 43 54 29 B2 41 24 3A 4D 4F |M.M:D$(CT).A$:MO|
00001740: 28 43 54 29 B2 4D 3A 45 58 24 28 43 54 29 B2 46 |(CT).M:EX$(CT).F|
00001750: 24 3A 42 B2 31 3A FE 1A 30 2C 32 2C 37 39 2C 32 |$:B.1:..0,2,79,2|
00001760: 32 2C 31 3A 8E 00 6B 33 C8 05 3A 00 8F 33 D2 05 |2,1:..k3..:..3..|
00001770: 8F 20 2A 2A 2A 2A 2A 2A 20 42 41 4C 41 4E 43 45 |. ****** BALANCE|
00001780: 20 45 4E 51 55 49 52 59 20 2A 2A 2A 2A 2A 2A 00 | ENQUIRY ******.|
00001790: BE 33 DC 05 99 C7 28 31 38 29 3B 22 C2 41 4C 41 |.3....(18);".ALA|
000017A0: 4E 43 45 20 C5 4E 51 55 49 52 59 22 3B C7 28 31 |NCE .NQUIRY";.(1|
000017B0: 34 36 29 3A 99 22 11 11 22 3A 4D 59 B2 30 00 CD |46):."..":MY.0..|
000017C0: 33 E6 05 81 20 41 B2 31 20 A4 20 43 54 00 E6 33 |3... A.1 . CT..3|
000017D0: F0 05 8B 4D 49 28 41 29 B1 30 A7 4D 59 B2 4D 49 |...MI(A).0.MY.MI|
000017E0: 28 41 29 AA 4D 59 00 FF 33 FA 05 8B 4D 4F 28 41 |(A).MY..3...MO(A|
000017F0: 29 B1 30 A7 4D 59 B2 4D 59 AB 4D 4F 28 41 29 00 |).0.MY.MY.MO(A).|
00001800: 07 34 04 06 82 20 41 00 23 34 0E 06 99 22 C1 43 |.4... A.#4...".C|
00001810: 43 4F 55 4E 54 20 C2 41 4C 41 4E 43 45 20 20 5C |COUNT .ALANCE \|
00001820: 20 22 3B 00 36 34 18 06 8B 20 4D 59 B3 30 20 A7 | ";.64... MY.0 .|
00001830: 20 E7 20 35 2C 33 00 4D 34 22 06 99 FB 22 23 23 | . 5,3.M4"..."##|
00001840: 23 23 23 23 23 2E 23 23 22 3B 4D 59 3B 00 57 34 |#####.##";MY;.W4|
00001850: 2C 06 E7 20 35 2C 37 00 62 34 36 06 99 22 11 11 |,.. 5,7.b46.."..|
00001860: 11 22 00 89 34 40 06 99 22 D0 52 45 53 53 20 41 |."..4@..".RESS A|
00001870: 4E 59 20 4B 45 59 20 54 4F 20 52 45 54 55 52 4E |NY KEY TO RETURN|
00001880: 20 54 4F 20 4D 45 4E 55 22 00 93 34 4A 06 E7 20 | TO MENU"..4J.. |
00001890: 35 2C 32 00 A9 34 54 06 A1 F9 41 24 3A 41 4D B2 |5,2..4T...A$:AM.|
000018A0: 4D 59 3A 4D 59 B2 30 3A 8E 00 AF 34 5E 06 3A 00 |MY:MY.0:...4^.:.|
000018B0: F1 34 68 06 8F 20 2A 2A 2A 2A 2A 2A 20 4C 49 53 |.4h.. ****** LIS|
000018C0: 54 20 54 52 41 4E 53 41 43 54 49 4F 4E 53 20 41 |T TRANSACTIONS A|
000018D0: 4C 4C 20 4F 52 20 46 52 4F 4D 20 41 20 43 45 52 |LL OR FROM A CER|
000018E0: 54 41 49 4E 20 50 4F 49 4E 54 20 2A 2A 2A 2A 2A |TAIN POINT *****|
000018F0: 2A 00 04 35 72 06 FE 1A 20 30 2C 30 2C 37 39 2C |*..5r... 0,0,79,|
00001900: 32 34 2C 31 00 0F 35 7C 06 8D 20 32 37 36 30 00 |24,1..5|.. 2760.|
00001910: 4F 35 86 06 99 C7 28 31 38 29 3B 22 CC 49 53 54 |O5....(18);".IST|
00001920: 20 D4 52 41 4E 53 41 43 54 49 4F 4E 53 20 D4 4F | .RANSACTIONS .O|
00001930: 20 D3 43 52 45 45 4E 20 28 20 D3 54 41 54 45 4D | .CREEN ( .TATEM|
00001940: 45 4E 54 20 29 22 3B C7 28 31 34 36 29 3A 99 00 |ENT )";.(146):..|
00001950: 5A 35 90 06 8D 20 32 36 37 30 00 65 35 9A 06 58 |Z5... 2670.e5..X|
00001960: 5A 24 B2 22 22 00 9E 35 A4 06 99 20 22 4C 49 53 |Z$.""..5... "LIS|
00001970: 54 20 46 52 4F 4D 20 28 4D 4D 2E 59 59 29 20 4F |T FROM (MM.YY) O|
00001980: 52 20 50 52 45 53 53 20 D2 C5 D4 D5 D2 CE 20 46 |R PRESS ...... F|
00001990: 4F 52 20 41 4C 4C 22 3B 3A 85 20 58 5A 24 00 BE |OR ALL";:. XZ$..|
000019A0: 35 AE 06 8B 20 58 5A 24 B2 22 22 20 A7 20 46 47 |5... XZ$."" . FG|
000019B0: B2 31 3A 4D 59 B2 30 3A 89 20 31 38 30 30 00 22 |.1:MY.0:. 1800."|
000019C0: 36 B8 06 4D 59 B2 30 3A 8B 20 C3 28 58 5A 24 29 |6..MY.0:. .(XZ$)|
000019D0: B3 B1 35 20 A7 20 99 22 91 20 20 20 20 20 20 20 |..5 . .". |
000019E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000019F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001A00: 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3A 99 | ":.|
00001A10: 22 91 91 22 3A 58 5A 24 B2 22 22 3A 89 20 31 37 |"..":XZ$."":. 17|
00001A20: 30 30 00 31 36 C2 06 81 20 41 B2 31 20 A4 20 43 |00.16... A.1 . C|
00001A30: 54 00 76 36 CC 06 8B 20 C9 28 58 5A 24 2C 32 29 |T.v6... .(XZ$,2)|
00001A40: B2 C9 28 44 24 28 41 29 2C 32 29 20 AF 20 C8 28 |..(D$(A),2) . .(|
00001A50: 58 5A 24 2C 32 29 B2 CA 28 44 24 28 41 29 2C 34 |XZ$,2)..(D$(A),4|
00001A60: 2C 32 29 20 A7 20 46 47 B2 41 3A 41 B2 43 54 3A |,2) . FG.A:A.CT:|
00001A70: 89 20 31 38 30 30 00 8F 36 D6 06 8B 4D 49 28 41 |. 1800..6...MI(A|
00001A80: 29 B1 30 A7 4D 59 B2 4D 49 28 41 29 AA 4D 59 00 |).0.MY.MI(A).MY.|
00001A90: A8 36 E0 06 8B 4D 4F 28 41 29 B1 30 A7 4D 59 B2 |.6...MO(A).0.MY.|
00001AA0: 4D 59 AB 4D 4F 28 41 29 00 B0 36 EA 06 82 20 41 |MY.MO(A)..6... A|
00001AB0: 00 14 37 F4 06 99 22 53 4F 52 52 59 20 54 48 41 |..7..."SORRY THA|
00001AC0: 54 20 44 41 54 45 20 44 4F 45 53 20 4E 4F 54 20 |T DATE DOES NOT |
00001AD0: 45 58 49 53 54 22 3A FE 0B 20 32 3A 99 22 91 20 |EXIST":.. 2:.". |
00001AE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001AF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001B00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001B10: 20 20 20 22 00 79 37 FE 06 99 22 91 91 20 20 20 | ".y7...".. |
00001B20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001B30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001B40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001B50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001B60: 20 20 20 20 20 20 20 20 20 20 20 22 3A 99 22 91 | ":.".|
00001B70: 22 3B 3A 89 20 31 36 39 30 00 7F 37 08 07 E8 00 |";:. 1690..7....|
00001B80: A7 37 12 07 43 B2 30 3A 81 41 B2 46 47 20 A4 20 |.7..C.0:.A.FG . |
00001B90: 43 54 3A 8B 4D 49 28 41 29 B1 30 A7 4D 59 B2 4D |CT:.MI(A).0.MY.M|
00001BA0: 49 28 41 29 AA 4D 59 00 C0 37 1C 07 8B 4D 4F 28 |I(A).MY..7...MO(|
00001BB0: 41 29 B1 30 A7 4D 59 B2 4D 59 AB 4D 4F 28 41 29 |A).0.MY.MY.MO(A)|
00001BC0: 00 FC 37 26 07 99 3B 22 A5 20 22 3B 44 24 28 41 |..7&..;". ";D$(A|
00001BD0: 29 3B 22 20 DD 20 22 3B 3A E7 20 35 2C 34 3A 8B |);" . ";:. 5,4:.|
00001BE0: 4D 49 28 41 29 B2 30 A7 99 22 20 20 20 20 20 20 |MI(A).0.." |
00001BF0: 20 20 20 22 3B 3A D5 89 31 38 35 30 00 06 38 30 | ";:..1850..80|
00001C00: 07 89 31 38 36 30 00 1F 38 3A 07 99 FB 22 23 23 |..1860..8:..."##|
00001C10: 23 23 23 23 2E 23 23 22 3B 4D 49 28 41 29 3B 00 |####.##";MI(A);.|
00001C20: 55 38 44 07 E7 20 35 2C 32 3A 99 22 20 DD 20 22 |U8D.. 5,2:." . "|
00001C30: 3B 3A E7 20 35 2C 33 3A 8B 4D 4F 28 41 29 B2 30 |;:. 5,3:.MO(A).0|
00001C40: A7 99 22 20 20 20 20 20 20 20 20 20 22 3B 3A D5 |.." ";:.|
00001C50: 89 31 38 38 30 00 5F 38 4E 07 89 31 38 39 30 00 |.1880._8N..1890.|
00001C60: 78 38 58 07 99 FB 22 23 23 23 23 23 23 2E 23 23 |x8X..."######.##|
00001C70: 22 3B 4D 4F 28 41 29 3B 00 AA 38 62 07 E7 20 35 |";MO(A);..8b.. 5|
00001C80: 2C 32 3A 99 22 20 DD 20 22 3B 3A 99 FB 22 23 23 |,2:." . ";:.."##|
00001C90: 23 23 23 23 2E 23 23 22 3B 4D 59 3B 3A 99 22 20 |####.##";MY;:." |
00001CA0: DD 20 22 3B 3A E7 20 35 2C 38 00 2E 39 6C 07 99 |. ";:. 5,8..9l..|
00001CB0: FB 22 23 23 23 23 23 23 23 23 23 23 23 23 23 23 |."##############|
00001CC0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 |################|
00001CD0: 22 3B 45 58 24 28 41 29 3B 3A E7 20 35 2C 32 3A |";EX$(A);:. 5,2:|
00001CE0: 99 22 A7 22 3A 43 B2 43 AA 31 3A 8B 43 B1 32 30 |.".":C.C.1:.C.20|
00001CF0: A7 99 C7 28 31 38 29 3B 22 D0 52 45 53 53 20 C1 |...(18);".RESS .|
00001D00: 4E 59 20 CB 45 59 20 D4 4F 20 C3 4F 4E 54 49 4E |NY .EY .O .ONTIN|
00001D10: 55 45 22 3B C7 28 31 34 36 29 3A A1 F9 41 24 3A |UE";.(146):..A$:|
00001D20: 43 B2 30 3A 99 22 93 22 3A 99 22 91 22 3B 00 70 |C.0:.".":.".";.p|
00001D30: 39 76 07 82 41 3A 99 C7 28 31 38 29 3B 22 D0 52 |9v..A:..(18);".R|
00001D40: 45 53 53 20 41 4E 59 20 4B 45 59 20 54 4F 20 52 |ESS ANY KEY TO R|
00001D50: 45 54 55 52 4E 20 54 4F 20 54 48 45 20 4D 45 4E |ETURN TO THE MEN|
00001D60: 55 22 3B C7 28 31 34 36 29 3A A1 F9 41 24 3A 8E |U";.(146):..A$:.|
00001D70: 00 76 39 80 07 3A 00 AC 39 8A 07 8F 20 2A 2A 2A |.v9..:..9... ***|
00001D80: 2A 2A 2A 20 50 52 49 4E 54 20 41 4C 4C 20 54 52 |*** PRINT ALL TR|
00001D90: 41 4E 53 41 43 54 49 4F 4E 53 20 54 4F 20 50 52 |ANSACTIONS TO PR|
00001DA0: 49 4E 54 45 52 20 2A 2A 2A 2A 2A 2A 00 EE 39 94 |INTER ******..9.|
00001DB0: 07 99 C7 28 31 38 29 3B 22 D0 52 49 4E 54 20 D4 |...(18);".RINT .|
00001DC0: 52 41 4E 53 41 43 54 49 4F 4E 53 20 D4 4F 20 D0 |RANSACTIONS .O .|
00001DD0: 52 49 4E 54 45 52 20 28 20 D3 54 41 54 45 4D 45 |RINTER ( .TATEME|
00001DE0: 4E 54 20 29 22 3B C7 28 31 34 36 29 3A 99 00 F9 |NT )";.(146):...|
00001DF0: 39 9E 07 8D 20 32 36 37 30 00 08 3A A8 07 99 3A |9... 2670..:...:|
00001E00: 99 3A 58 5A 24 B2 22 22 00 42 3A B2 07 99 22 CC |.:XZ$."".B:...".|
00001E10: 49 53 54 20 46 52 4F 4D 20 28 20 4D 4D 2E 59 59 |IST FROM ( MM.YY|
00001E20: 20 29 20 4F 52 20 50 52 45 53 53 20 D2 C5 D4 D5 | ) OR PRESS ....|
00001E30: D2 CE 20 46 4F 52 20 41 4C 4C 22 3B 3A 85 20 58 |.. FOR ALL";:. X|
00001E40: 5A 24 00 62 3A BC 07 8B 20 58 5A 24 B2 22 22 20 |Z$.b:... XZ$."" |
00001E50: A7 20 46 47 B2 31 3A 4D 59 B2 30 3A 89 20 32 30 |. FG.1:MY.0:. 20|
00001E60: 37 30 00 C8 3A C6 07 4D 59 B2 30 3A 8B 20 C3 28 |70..:..MY.0:. .(|
00001E70: 58 5A 24 29 B3 B1 35 20 A7 20 99 22 91 20 20 20 |XZ$)..5 . .". |
00001E80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001E90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001EA0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001EB0: 20 20 20 22 3A 99 22 91 91 22 3A 58 5A 24 B2 22 | ":."..":XZ$."|
00001EC0: 22 3A 89 20 31 39 37 30 00 D7 3A D0 07 81 20 41 |":. 1970..:... A|
00001ED0: B2 31 20 A4 20 43 54 00 1C 3B DA 07 8B 20 C9 28 |.1 . CT..;... .(|
00001EE0: 58 5A 24 2C 32 29 B2 C9 28 44 24 28 41 29 2C 32 |XZ$,2)..(D$(A),2|
00001EF0: 29 20 AF 20 C8 28 58 5A 24 2C 32 29 B2 CA 28 44 |) . .(XZ$,2)..(D|
00001F00: 24 28 41 29 2C 34 2C 32 29 20 A7 20 46 47 B2 41 |$(A),4,2) . FG.A|
00001F10: 3A 41 B2 43 54 3A 89 20 32 30 37 30 00 39 3B E4 |:A.CT:. 2070.9;.|
00001F20: 07 8B 20 4D 49 20 28 41 29 B1 30 20 A7 20 4D 59 |.. MI (A).0 . MY|
00001F30: B2 4D 49 28 41 29 AA 4D 59 00 56 3B EE 07 8B 20 |.MI(A).MY.V;... |
00001F40: 4D 4F 20 28 41 29 B1 30 20 A7 20 4D 59 B2 4D 59 |MO (A).0 . MY.MY|
00001F50: AB 4D 4F 28 41 29 00 5E 3B F8 07 82 20 41 00 C2 |.MO(A).^;... A..|
00001F60: 3B 02 08 99 22 53 4F 52 52 59 20 54 48 41 54 20 |;..."SORRY THAT |
00001F70: 44 41 54 45 20 44 4F 45 53 20 4E 4F 54 20 45 58 |DATE DOES NOT EX|
00001F80: 49 53 54 22 3A FE 0B 20 32 3A 99 22 91 20 20 20 |IST":.. 2:.". |
00001F90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001FA0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001FB0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001FC0: 20 22 00 2E 3C 0C 08 99 22 91 91 20 20 20 20 20 | "..<...".. |
00001FD0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001FE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001FF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002000: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002010: 20 20 20 20 20 20 20 20 20 22 3A 99 22 91 22 3B | ":.".";|
00002020: 3A 58 5A 24 B2 22 22 3A 89 20 31 39 37 30 00 39 |:XZ$."":. 1970.9|
00002030: 3C 16 08 D7 20 32 35 39 30 00 BB 3C 20 08 9F 34 |<... 2590..< ..4|
00002040: 2C 34 2C 37 3A 98 34 2C 22 20 20 C4 41 54 45 20 |,4,7:.4," .ATE |
00002050: 20 20 20 20 20 D2 45 43 45 49 50 54 53 20 20 20 | .ECEIPTS |
00002060: D7 49 54 48 44 52 41 57 41 4C 53 20 20 20 20 C2 |.ITHDRAWALS .|
00002070: 41 4C 41 4E 43 45 20 20 20 20 20 20 20 D0 55 52 |ALANCE .UR|
00002080: 50 4F 53 45 20 4F 46 20 54 52 41 4E 53 41 43 54 |POSE OF TRANSACT|
00002090: 49 4F 4E 22 3A 43 B2 32 3A 81 41 B2 46 47 20 A4 |ION":C.2:.A.FG .|
000020A0: 20 43 54 3A 8B 20 4D 49 28 41 29 B1 30 20 A7 20 | CT:. MI(A).0 . |
000020B0: 4D 59 B2 4D 49 28 41 29 AA 4D 59 00 D4 3C 2A 08 |MY.MI(A).MY..<*.|
000020C0: 8B 4D 4F 28 41 29 B1 30 A7 4D 59 B2 4D 59 AB 4D |.MO(A).0.MY.MY.M|
000020D0: 4F 28 41 29 00 0C 3D 34 08 98 34 2C 22 A5 20 22 |O(A)..=4..4,". "|
000020E0: 3B 44 24 28 41 29 3B 22 DD 20 22 3B 3A 8B 4D 49 |;D$(A);". ";:.MI|
000020F0: 28 41 29 B2 30 A7 98 34 2C 22 20 20 20 20 20 20 |(A).0..4," |
00002100: 20 20 20 22 3B 3A D5 89 32 31 32 30 00 16 3D 3E | ";:..2120..=>|
00002110: 08 89 32 31 33 30 00 31 3D 48 08 98 34 2C FB 22 |..2130.1=H..4,."|
00002120: 23 23 23 23 23 23 2E 23 23 22 3B 4D 49 28 41 29 |######.##";MI(A)|
00002130: 3B 00 5F 3D 52 08 98 34 2C 22 20 DD 20 22 3B 3A |;._=R..4," . ";:|
00002140: 8B 4D 4F 28 41 29 B2 30 A7 98 34 2C 22 20 20 20 |.MO(A).0..4," |
00002150: 20 20 20 20 20 20 22 3B 3A D5 89 32 31 35 30 00 | ";:..2150.|
00002160: 69 3D 5C 08 89 32 31 36 30 00 84 3D 66 08 98 34 |i=\..2160..=f..4|
00002170: 2C FB 22 23 23 23 23 23 23 2E 23 23 22 3B 4D 4F |,."######.##";MO|
00002180: 28 41 29 3B 00 92 3D 70 08 98 34 2C 22 20 DD 20 |(A);..=p..4," . |
00002190: 22 3B 00 AA 3D 7A 08 98 34 2C FB 22 23 23 23 23 |";..=z..4,."####|
000021A0: 23 23 2E 23 23 22 3B 4D 59 3B 00 BA 3D 84 08 98 |##.##";MY;..=...|
000021B0: 34 2C 22 20 20 DD 20 20 22 3B 00 E9 3D 8E 08 98 |4," . ";..=...|
000021C0: 34 2C FB 22 23 23 23 23 23 23 23 23 23 23 23 23 |4,."############|
000021D0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 |################|
000021E0: 23 22 3B 45 58 24 28 41 29 00 F3 3D 98 08 43 B2 |#";EX$(A)..=..C.|
000021F0: 43 AA 31 00 16 3E A2 08 8B 20 43 B1 36 33 20 A7 |C.1..>... C.63 .|
00002200: 20 98 34 2C 22 22 3A 98 34 2C 22 22 3A 98 34 2C | .4,"":.4,"":.4,|
00002210: 22 22 3A 43 B2 31 00 1D 3E AC 08 82 41 00 24 3E |"":C.1..>...A.$>|
00002220: B6 08 A0 34 00 5E 3E C0 08 99 3A 99 22 D0 52 49 |...4.^>...:.".RI|
00002230: 4E 54 49 4E 47 20 43 4F 4D 50 4C 45 54 45 3A 20 |NTING COMPLETE: |
00002240: D0 52 45 53 53 20 41 20 4B 45 59 20 54 4F 20 52 |.RESS A KEY TO R|
00002250: 45 54 55 52 4E 20 54 4F 20 4D 45 4E 55 22 00 67 |ETURN TO MENU".g|
00002260: 3E CA 08 A1 F9 41 24 00 6D 3E D4 08 8E 00 73 3E |>....A$.m>....s>|
00002270: DE 08 3A 00 B2 3E E8 08 8F 20 2A 2A 2A 2A 2A 2A |..:..>... ******|
00002280: 20 50 55 54 54 49 4E 47 20 41 4C 4C 20 45 4E 54 | PUTTING ALL ENT|
00002290: 52 59 53 20 49 4E 54 4F 20 43 4F 52 52 45 43 54 |RYS INTO CORRECT|
000022A0: 20 44 41 54 45 20 4F 52 44 45 52 20 2A 2A 2A 2A | DATE ORDER ****|
000022B0: 2A 2A 00 E7 3E F2 08 99 C7 28 31 38 29 3B 22 D0 |**..>....(18);".|
000022C0: 55 54 54 49 4E 47 20 D2 45 43 4F 52 44 27 53 20 |UTTING .ECORD'S |
000022D0: 49 4E 20 C4 41 54 45 20 CF 52 44 45 52 22 3B C7 |IN .ATE .RDER";.|
000022E0: 28 31 34 36 29 3A 99 00 FA 3E FC 08 8B 20 42 B2 |(146):...>... B.|
000022F0: 30 20 A7 20 89 20 32 35 35 30 00 17 3F 06 09 8B |0 . . 2550..?...|
00002300: 20 43 54 B3 32 20 AF 20 53 56 B2 30 20 A7 20 E8 | CT.2 . SV.0 . .|
00002310: 3A 89 20 32 35 35 30 00 58 3F 10 09 8B 20 43 54 |:. 2550.X?... CT|
00002320: B3 32 20 A7 20 99 3A 99 22 D3 4F 52 52 59 20 54 |.2 . .:.".ORRY T|
00002330: 48 45 52 45 20 41 52 45 20 54 4F 4F 20 46 45 57 |HERE ARE TOO FEW|
00002340: 20 52 45 43 4F 52 44 53 20 54 4F 20 53 4F 52 54 | RECORDS TO SORT|
00002350: 22 3A 89 20 32 35 35 30 00 6C 3F 1A 09 81 20 41 |":. 2550.l?... A|
00002360: B2 43 54 20 A4 20 32 20 A9 20 AB 31 00 93 3F 24 |.CT . 2 . .1..?$|
00002370: 09 44 B2 C5 28 C8 28 44 24 28 41 29 2C 32 29 29 |.D..(.(D$(A),2))|
00002380: 3A 44 31 B2 C5 28 C8 28 44 24 28 41 AB 31 29 2C |:D1..(.(D$(A.1),|
00002390: 32 29 29 00 BE 3F 2E 09 4D B2 C5 28 CA 28 44 24 |2))..?..M..(.(D$|
000023A0: 28 41 29 2C 34 2C 32 29 29 3A 4D 31 B2 C5 28 CA |(A),4,2)):M1..(.|
000023B0: 28 44 24 28 41 AB 31 29 2C 34 2C 32 29 29 00 E5 |(D$(A.1),4,2))..|
000023C0: 3F 38 09 59 B2 C5 28 C9 28 44 24 28 41 29 2C 32 |?8.Y..(.(D$(A),2|
000023D0: 29 29 3A 59 31 B2 C5 28 C9 28 44 24 28 41 AB 31 |)):Y1..(.(D$(A.1|
000023E0: 29 2C 32 29 29 00 07 40 42 09 8B 20 44 B3 44 31 |),2))..@B.. D.D1|
000023F0: 20 AF 20 4D B2 4D 31 20 AF 20 59 B2 59 31 20 A7 | . M.M1 . Y.Y1 .|
00002400: 20 89 20 32 34 35 30 00 29 40 4C 09 8B 20 44 B1 | . 2450.)@L.. D.|
00002410: 44 31 20 AF 20 4D B3 4D 31 20 AF 20 59 B2 59 31 |D1 . M.M1 . Y.Y1|
00002420: 20 A7 20 89 20 32 34 35 30 00 44 40 56 09 8B 20 | . . 2450.D@V.. |
00002430: 4D B1 4D 31 20 AF 20 59 B3 59 31 20 A7 20 89 20 |M.M1 . Y.Y1 . . |
00002440: 32 34 35 30 00 58 40 60 09 8B 20 59 B3 59 31 20 |2450.X@`.. Y.Y1 |
00002450: A7 20 89 20 32 34 35 30 00 73 40 6A 09 8B 20 4D |. . 2450.s@j.. M|
00002460: B3 4D 31 20 AF 20 59 B2 59 31 20 A7 20 89 20 32 |.M1 . Y.Y1 . . 2|
00002470: 34 35 30 00 7B 40 74 09 82 20 41 00 8E 40 7E 09 |450.{@t.. A..@~.|
00002480: 8B 20 42 B2 30 20 A7 20 89 20 32 35 35 30 00 9D |. B.0 . . 2550..|
00002490: 40 88 09 42 B2 30 3A 89 20 32 33 33 30 00 C8 40 |@..B.0:. 2330..@|
000024A0: 92 09 41 42 24 B2 44 24 28 41 29 3A 41 43 B2 4D |..AB$.D$(A):AC.M|
000024B0: 49 28 41 29 3A 41 44 B2 4D 4F 28 41 29 3A 41 45 |I(A):AD.MO(A):AE|
000024C0: 24 B2 45 58 24 28 41 29 00 06 41 9C 09 44 24 28 |$.EX$(A)..A..D$(|
000024D0: 41 29 B2 44 24 28 41 AB 31 29 3A 4D 49 28 41 29 |A).D$(A.1):MI(A)|
000024E0: B2 4D 49 28 41 AB 31 29 3A 4D 4F 28 41 29 B2 4D |.MI(A.1):MO(A).M|
000024F0: 4F 28 41 AB 31 29 3A 45 58 24 28 41 29 B2 45 58 |O(A.1):EX$(A).EX|
00002500: 24 28 41 AB 31 29 00 39 41 A6 09 44 24 28 41 AB |$(A.1).9A..D$(A.|
00002510: 31 29 B2 41 42 24 3A 4D 49 28 41 AB 31 29 B2 41 |1).AB$:MI(A.1).A|
00002520: 43 3A 4D 4F 28 41 AB 31 29 B2 41 44 3A 45 58 24 |C:MO(A.1).AD:EX$|
00002530: 28 41 AB 31 29 B2 41 45 24 00 48 41 B0 09 41 24 |(A.1).AE$.HA..A$|
00002540: B2 44 24 28 41 AB 31 29 00 55 41 BA 09 42 24 B2 |.D$(A.1).UA..B$.|
00002550: 44 24 28 41 29 00 69 41 C4 09 99 20 22 53 57 41 |D$(A).iA... "SWA|
00002560: 50 50 45 44 20 22 3B 41 24 00 7D 41 CE 09 99 20 |PPED ";A$.}A... |
00002570: 22 57 49 54 48 20 20 20 20 22 3B 42 24 00 88 41 |"WITH ";B$..A|
00002580: D8 09 99 22 91 91 91 22 00 92 41 E2 09 42 B2 42 |..."..."..A..B.B|
00002590: AA 31 00 9D 41 EC 09 89 20 32 34 32 30 00 B1 41 |.1..A... 2420..A|
000025A0: F6 09 8B 20 53 56 B2 30 20 A7 20 89 20 32 35 37 |... SV.0 . . 257|
000025B0: 30 00 08 42 00 0A 99 22 11 11 11 11 22 3A 99 C7 |0..B..."....":..|
000025C0: 28 31 38 29 3B 22 D3 4F 52 54 49 4E 47 20 C3 4F |(18);".ORTING .O|
000025D0: 4D 50 4C 45 54 45 2C 20 D0 52 45 53 53 20 C1 4E |MPLETE, .RESS .N|
000025E0: 59 20 CB 45 59 20 D4 4F 20 D2 45 54 55 52 4E 20 |Y .EY .O .ETURN |
000025F0: D4 4F 20 D4 48 45 20 CD 45 4E 55 22 3B C7 28 31 |.O .HE .ENU";.(1|
00002600: 34 36 29 3A A1 F9 41 24 00 0E 42 0A 0A 8E 00 14 |46):..A$..B.....|
00002610: 42 14 0A 3A 00 34 42 1E 0A 8F 20 2A 2A 2A 2A 20 |B..:.4B... **** |
00002620: 54 52 41 50 50 45 44 20 45 52 52 4F 52 53 20 2A |TRAPPED ERRORS *|
00002630: 2A 2A 2A 2A 00 40 42 28 0A 99 20 D3 28 45 52 29 |****.@B(.. .(ER)|
00002640: 00 61 42 32 0A 99 22 50 52 45 53 53 20 41 4E 59 |.aB2.."PRESS ANY|
00002650: 20 4B 45 59 20 54 4F 20 43 4F 4E 54 49 4E 55 45 | KEY TO CONTINUE|
00002660: 22 00 6A 42 3C 0A A1 F9 41 24 00 C3 42 46 0A 99 |".jB<...A$..BF..|
00002670: 22 91 91 22 3B 3A 99 22 20 20 20 20 20 20 20 20 |"..";:." |
00002680: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002690: 20 20 20 20 20 20 20 20 22 3A 99 22 20 20 20 20 | ":." |
000026A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000026B0: 20 20 20 20 20 20 20 20 20 20 20 20 22 3A 99 22 | ":."|
000026C0: 91 91 22 00 D0 42 50 0A A0 20 34 3A FE 0F 23 31 |.."..BP.. 4:..#1|
000026D0: 00 DA 42 5A 0A 89 20 34 33 30 00 E0 42 64 0A 3A |..BZ.. 430..Bd.:|
000026E0: 00 04 43 6E 0A 8F 20 2A 2A 2A 20 43 48 45 43 4B |..Cn.. *** CHECK|
000026F0: 20 49 46 20 52 49 47 48 54 20 53 43 52 45 45 4E | IF RIGHT SCREEN|
00002700: 20 2A 2A 2A 00 0E 43 78 0A E7 20 35 2C 37 00 49 | ***..Cx.. 5,7.I|
00002710: 43 82 0A 99 22 C1 52 45 20 59 4F 55 20 53 55 52 |C...".RE YOU SUR|
00002720: 45 20 54 48 49 53 20 49 53 20 54 48 45 20 4F 50 |E THIS IS THE OP|
00002730: 54 49 4F 4E 20 59 4F 55 20 52 45 51 55 49 52 45 |TION YOU REQUIRE|
00002740: 20 28 20 59 2F 4E 20 29 22 00 6E 43 8C 0A A1 F9 | ( Y/N )".nC....|
00002750: 5A 24 3A 8B 20 5A 24 B3 B1 22 59 22 20 AF 20 5A |Z$:. Z$.."Y" . Z|
00002760: 24 B3 B1 22 D9 22 20 A7 20 89 20 34 33 30 00 CB |$.."." . . 430..|
00002770: 43 96 0A 99 22 91 22 3B 22 20 20 20 20 20 20 20 |C...".";" |
00002780: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002790: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000027A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000027B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000027C0: 20 20 20 20 20 20 20 20 20 20 22 00 D5 43 A0 0A | "..C..|
000027D0: E7 20 35 2C 32 00 DB 43 AA 0A 8E 00 E1 43 B4 0A |. 5,2..C.....C..|
000027E0: 3A 00 14 44 BE 0A 8F 20 2A 2A 2A 20 50 52 49 4E |:..D... *** PRIN|
000027F0: 54 20 48 45 41 44 45 52 53 20 46 4F 52 20 4C 49 |T HEADERS FOR LI|
00002800: 53 54 49 4E 47 20 4F 4E 20 53 43 52 45 45 4E 20 |STING ON SCREEN |
00002810: 2A 2A 2A 2A 00 2A 44 C8 0A DE 35 2C 31 3A E7 36 |****.*D...5,1:.6|
00002820: 2C 31 3A E7 35 2C 37 3A FE 25 00 8F 44 D2 0A 43 |,1:.5,7:.%..D..C|
00002830: 52 24 B2 C7 28 31 33 29 3A 99 C7 28 31 34 29 3A |R$..(13):..(14):|
00002840: E8 3A 99 22 20 20 20 20 C4 41 54 45 20 20 20 20 |.:." .ATE |
00002850: 20 D2 45 43 45 49 50 54 53 20 20 20 D7 49 54 48 | .ECEIPTS .ITH|
00002860: 44 52 41 57 41 4C 53 20 20 20 C2 41 4C 41 4E 43 |DRAWALS .ALANC|
00002870: 45 20 20 20 20 20 20 20 D0 55 52 50 4F 53 45 20 |E .URPOSE |
00002880: 4F 46 20 54 52 41 4E 53 41 43 54 49 4F 4E 22 00 |OF TRANSACTION".|
00002890: E8 44 DC 0A 99 22 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |.D..."..........|
000028A0: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |................|
000028B0: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |................|
000028C0: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |................|
000028D0: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |................|
000028E0: A4 A4 A4 A4 A4 A4 A4 22 00 03 45 E6 0A E7 20 35 |......."..E... 5|
000028F0: 2C 32 3A FE 1A 20 30 2C 32 2C 37 39 2C 32 34 2C |,2:.. 0,2,79,24,|
00002900: 31 3A 8E 00 09 45 F0 0A 3A 00 33 45 FA 0A 8F 20 |1:...E..:.3E... |
00002910: 2A 2A 2A 20 50 52 49 4E 54 20 53 45 4C 45 43 54 |*** PRINT SELECT|
00002920: 49 56 45 20 45 58 50 45 4E 44 49 54 55 52 45 20 |IVE EXPENDITURE |
00002930: 2A 2A 2A 00 46 45 04 0B FE 1A 20 30 2C 30 2C 37 |***.FE.... 0,0,7|
00002940: 39 2C 32 34 2C 31 00 51 45 0E 0B 8D 20 33 32 31 |9,24,1.QE... 321|
00002950: 30 00 8B 45 18 0B 99 C7 28 31 38 29 3B 22 91 91 |0..E....(18);"..|
00002960: D0 52 49 4E 54 20 D3 45 4C 45 43 54 45 44 20 C5 |.RINT .ELECTED .|
00002970: 58 50 45 4E 53 45 53 20 D4 4F 20 D3 43 52 45 45 |XPENSES .O .CREE|
00002980: 4E 22 3B C7 28 31 34 36 29 3A 99 00 96 45 22 0B |N";.(146):...E".|
00002990: 8D 20 32 36 37 30 00 A2 45 2C 0B 99 3A 41 24 B2 |. 2670..E,..:A$.|
000029A0: 22 22 00 EC 45 36 0B 99 22 D0 4C 45 41 53 45 20 |""..E6..".LEASE |
000029B0: 45 4E 54 45 52 20 54 48 45 20 54 45 58 54 20 54 |ENTER THE TEXT T|
000029C0: 4F 20 53 45 41 52 43 48 20 4F 4E 2C 20 4F 52 20 |O SEARCH ON, OR |
000029D0: 50 52 45 53 53 20 D2 C5 D4 D5 D2 CE 20 54 4F 20 |PRESS ...... TO |
000029E0: 4C 49 53 54 20 41 4C 4C 20 22 3A 99 00 F5 45 40 |LIST ALL ":...E@|
000029F0: 0B 85 20 41 24 00 0F 46 4A 0B 8B 20 41 24 B2 22 |.. A$..FJ.. A$."|
00002A00: 22 20 A7 20 56 42 B2 31 3A D5 20 56 42 B2 30 00 |" . VB.1:. VB.0.|
00002A10: 15 46 54 0B E8 00 21 46 5E 0B 42 B2 30 3A 43 B2 |.FT...!F^.B.0:C.|
00002A20: 30 00 30 46 68 0B 81 20 41 B2 31 20 A4 20 43 54 |0.0Fh.. A.1 . CT|
00002A30: 00 4E 46 72 0B 8B 20 56 42 B2 31 20 AF 20 4D 4F |.NFr.. VB.1 . MO|
00002A40: 28 41 29 B1 30 20 A7 20 8D 20 33 30 34 30 00 62 |(A).0 . . 3040.b|
00002A50: 46 7C 0B 8B 20 56 42 B2 31 20 A7 20 89 20 32 39 |F|.. VB.1 . . 29|
00002A60: 36 30 00 8B 46 86 0B 8B 20 D4 28 45 58 24 28 41 |60..F... .(EX$(A|
00002A70: 29 2C 41 24 29 B1 B2 31 20 AF 20 4D 4F 28 41 29 |),A$)..1 . MO(A)|
00002A80: B1 30 20 A7 20 8D 20 33 30 34 30 00 E0 46 90 0B |.0 . . 3040..F..|
00002A90: 8B 20 42 B1 32 30 20 A7 20 99 20 C7 28 31 38 29 |. B.20 . . .(18)|
00002AA0: 3B 22 D0 52 45 53 53 20 C1 4E 59 20 CB 45 59 20 |;".RESS .NY .EY |
00002AB0: D4 4F 20 C3 4F 4E 54 49 4E 55 45 20 CC 49 53 54 |.O .ONTINUE .IST|
00002AC0: 49 4E 47 20 C5 58 50 45 4E 53 45 53 22 3B C7 28 |ING .XPENSES";.(|
00002AD0: 31 34 36 29 3A A1 F9 20 5A 24 3A E8 3A 42 B2 30 |146):.. Z$:.:B.0|
00002AE0: 00 05 47 9A 0B 8B 20 42 B1 31 37 20 AF 20 41 B1 |..G... B.17 . A.|
00002AF0: 28 43 54 AB 32 30 29 20 A7 20 42 B2 32 31 3A 89 |(CT.20) . B.21:.|
00002B00: 20 32 39 36 30 00 0D 47 A4 0B 82 20 41 00 38 47 | 2960..G... A.8G|
00002B10: AE 0B 99 3B 22 20 20 20 20 20 20 20 20 20 20 20 |...;" |
00002B20: 20 20 20 20 20 20 20 20 20 20 20 20 20 2D 2D 2D | ---|
00002B30: 2D 2D 2D 2D 2D 2D 2D 22 00 5B 47 B8 0B 99 3B 22 |-------".[G...;"|
00002B40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 D4 | .|
00002B50: 4F 54 41 4C 20 20 20 5C 20 22 3B 00 6F 47 C2 0B |OTAL \ ";.oG..|
00002B60: 99 FB 22 23 23 23 23 23 23 2E 23 23 22 3B 43 00 |.."######.##";C.|
00002B70: 9A 47 CC 0B 99 3B 22 20 20 20 20 20 20 20 20 20 |.G...;" |
00002B80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2D | -|
00002B90: 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 D9 47 D6 0B 99 |---------"..G...|
00002BA0: C7 28 31 38 29 3B 22 D0 52 45 53 53 20 C1 4E 59 |.(18);".RESS .NY|
00002BB0: 20 CB 45 59 20 D4 4F 20 D2 45 54 55 52 4E 20 D4 | .EY .O .ETURN .|
00002BC0: 4F 20 D4 48 45 20 CD 45 4E 55 22 3B C7 28 31 34 |O .HE .ENU";.(14|
00002BD0: 36 29 3A A1 F9 41 24 3A 8E 00 EE 47 E0 0B 44 5A |6):..A$:...G..DZ|
00002BE0: 24 B2 28 C8 28 44 24 28 41 29 2C 32 29 29 00 05 |$.(.(D$(A),2))..|
00002BF0: 48 EA 0B 4D 5A 24 B2 28 CA 28 44 24 28 41 29 2C |H..MZ$.(.(D$(A),|
00002C00: 34 2C 32 29 29 00 1A 48 F4 0B 59 5A 24 B2 28 C9 |4,2))..H..YZ$.(.|
00002C10: 28 44 24 28 41 29 2C 32 29 29 00 3C 48 FE 0B 44 |(D$(A),2)).<H..D|
00002C20: 5A B2 C5 28 44 5A 24 29 3A 4D 5A B2 C5 28 4D 5A |Z..(DZ$):MZ..(MZ|
00002C30: 24 29 3A 59 5A B2 C5 28 59 5A 24 29 00 50 48 08 |$):YZ..(YZ$).PH.|
00002C40: 0C 8B 20 4D 5A B1 32 20 A7 20 89 20 33 31 30 30 |.. MZ.2 . . 3100|
00002C50: 00 65 48 12 0C 4D 5A B2 4D 5A AA 31 32 3A 59 5A |.eH..MZ.MZ.12:YZ|
00002C60: B2 59 5A AB 31 00 A2 48 1C 0C 4E 5A B2 44 5A AA |.YZ.1..H..NZ.DZ.|
00002C70: 32 AC 4D 5A AA B5 28 2E 36 AC 28 4D 5A AA 31 29 |2.MZ..(.6.(MZ.1)|
00002C80: 29 AA 59 5A AA B5 28 59 5A AD 34 29 AB B5 28 59 |).YZ..(YZ.4)..(Y|
00002C90: 5A AD 31 30 30 29 AA B5 28 59 5A AD 34 30 30 29 |Z.100)..(YZ.400)|
00002CA0: AA 32 00 C0 48 26 0C 4E 5A B2 B5 28 28 4E 5A AD |.2..H&.NZ..((NZ.|
00002CB0: 37 AB B5 28 4E 5A AD 37 29 29 AC 37 AA 2E 35 29 |7..(NZ.7)).7..5)|
00002CC0: 00 CD 48 30 0C 4E 5A B2 B5 28 4E 5A 29 00 EF 48 |..H0.NZ..(NZ)..H|
00002CD0: 3A 0C 44 5A B2 C5 28 44 5A 24 29 3A 4D 5A B2 C5 |:.DZ..(DZ$):MZ..|
00002CE0: 28 4D 5A 24 29 3A 59 5A B2 C5 28 59 5A 24 29 00 |(MZ$):YZ..(YZ$).|
00002CF0: 1E 49 44 0C 99 FB 22 23 23 23 23 23 23 23 23 23 |.ID..."#########|
00002D00: 23 23 23 22 3B 44 59 24 28 4E 5A 29 3B 3A 99 3B |###";DY$(NZ);:.;|
00002D10: 44 24 28 41 29 3B 22 20 20 20 5C 20 22 3B 00 37 |D$(A);" \ ";.7|
00002D20: 49 4E 0C 99 FB 22 23 23 23 23 23 23 2E 23 23 22 |IN..."######.##"|
00002D30: 3B 4D 4F 28 41 29 3B 00 42 49 58 0C 99 22 20 20 |;MO(A);.BIX.." |
00002D40: 22 3B 00 7E 49 62 0C 99 FB 22 23 23 23 23 23 23 |";.~Ib..."######|
00002D50: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 |################|
00002D60: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 |################|
00002D70: 23 23 23 23 23 23 22 3B 45 58 24 28 41 29 00 92 |######";EX$(A)..|
00002D80: 49 6C 0C 42 B2 42 AA 31 3A 43 B2 43 AA 4D 4F 28 |Il.B.B.1:C.C.MO(|
00002D90: 41 29 00 98 49 76 0C 8E 00 9E 49 80 0C 3A 00 D1 |A)..Iv....I..:..|
00002DA0: 49 8A 0C 8F 20 2A 2A 2A 20 50 52 49 4E 54 20 48 |I... *** PRINT H|
00002DB0: 45 41 44 45 52 53 20 46 4F 52 20 4C 49 53 54 49 |EADERS FOR LISTI|
00002DC0: 4E 47 20 4F 4E 20 53 43 52 45 45 4E 20 2A 2A 2A |NG ON SCREEN ***|
00002DD0: 2A 00 E7 49 94 0C DE 35 2C 31 3A E7 36 2C 31 3A |*..I...5,1:.6,1:|
00002DE0: E7 35 2C 37 3A FE 25 00 39 4A 9E 0C 43 52 24 B2 |.5,7:.%.9J..CR$.|
00002DF0: C7 28 31 33 29 3A 99 C7 28 31 34 29 3A E8 3A 99 |.(13):..(14):.:.|
00002E00: 22 20 20 C4 41 59 20 20 20 20 20 20 20 20 20 C4 |" .AY .|
00002E10: 41 54 45 20 20 20 20 20 20 20 20 C1 4D 4F 55 4E |ATE .MOUN|
00002E20: 54 20 20 20 20 C5 58 50 45 4E 44 49 54 55 52 45 |T .XPENDITURE|
00002E30: 20 C4 45 54 41 49 4C 53 22 00 92 4A A8 0C 99 22 | .ETAILS"..J..."|
00002E40: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |................|
00002E50: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |................|
00002E60: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |................|
00002E70: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |................|
00002E80: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |................|
00002E90: A4 22 00 AD 4A B2 0C E7 20 35 2C 32 3A FE 1A 20 |."..J... 5,2:.. |
00002EA0: 30 2C 32 2C 37 39 2C 32 34 2C 31 3A 8E 00 B3 4A |0,2,79,24,1:...J|
00002EB0: BC 0C 3A 00 F9 4A C6 0C 8F 20 2A 2A 2A 20 44 41 |..:..J... *** DA|
00002EC0: 54 45 20 43 48 45 43 4B 49 4E 47 20 41 4E 44 20 |TE CHECKING AND |
00002ED0: 52 45 54 52 45 49 56 49 4E 47 20 44 41 59 20 4D |RETREIVING DAY M|
00002EE0: 4F 4E 54 48 20 59 45 41 52 20 46 52 4F 4D 20 53 |ONTH YEAR FROM S|
00002EF0: 54 52 49 4E 47 20 2A 2A 2A 00 0B 4B D0 0C 44 5A |TRING ***..K..DZ|
00002F00: 24 B2 28 C8 28 41 24 2C 32 29 29 00 1F 4B DA 0C |$.(.(A$,2))..K..|
00002F10: 4D 5A 24 B2 28 CA 28 41 24 2C 34 2C 32 29 29 00 |MZ$.(.(A$,4,2)).|
00002F20: 31 4B E4 0C 59 5A 24 B2 28 C9 28 41 24 2C 32 29 |1K..YZ$.(.(A$,2)|
00002F30: 29 00 4C 4B EE 0C 41 24 B2 44 5A 24 AA 22 2E 22 |).LK..A$.DZ$."."|
00002F40: AA 4D 5A 24 AA 22 2E 22 AA 59 5A 24 00 6E 4B F8 |.MZ$.".".YZ$.nK.|
00002F50: 0C 44 5A B2 C5 28 44 5A 24 29 3A 4D 5A B2 C5 28 |.DZ..(DZ$):MZ..(|
00002F60: 4D 5A 24 29 3A 59 5A B2 C5 28 59 5A 24 29 00 8E |MZ$):YZ..(YZ$)..|
00002F70: 4B 02 0D 8B 20 44 5A B1 33 31 20 B0 20 44 5A B3 |K... DZ.31 . DZ.|
00002F80: 31 20 A7 20 41 24 B2 41 24 AA 41 24 3A 8E 00 AE |1 . A$.A$.A$:...|
00002F90: 4B 0C 0D 8B 20 4D 5A B1 31 32 20 B0 20 4D 5A B3 |K... MZ.12 . MZ.|
00002FA0: 31 20 A7 20 41 24 B2 41 24 AA 41 24 3A 8E 00 C7 |1 . A$.A$.A$:...|
00002FB0: 4B 16 0D 8B 20 59 5A B3 38 30 20 A7 20 41 24 B2 |K... YZ.80 . A$.|
00002FC0: 41 24 AA 41 24 3A 8E 00 DB 4B 20 0D 8B 20 4D 5A |A$.A$:...K .. MZ|
00002FD0: B1 32 20 A7 20 89 20 33 33 38 30 00 F0 4B 2A 0D |.2 . . 3380..K*.|
00002FE0: 4D 5A B2 4D 5A AA 31 32 3A 59 5A B2 59 5A AB 31 |MZ.MZ.12:YZ.YZ.1|
00002FF0: 00 2D 4C 34 0D 4E 5A B2 44 5A AA 32 AC 4D 5A AA |.-L4.NZ.DZ.2.MZ.|
00003000: B5 28 2E 36 AC 28 4D 5A AA 31 29 29 AA 59 5A AA |.(.6.(MZ.1)).YZ.|
00003010: B5 28 59 5A AD 34 29 AB B5 28 59 5A AD 31 30 30 |.(YZ.4)..(YZ.100|
00003020: 29 AA B5 28 59 5A AD 34 30 30 29 AA 32 00 4B 4C |)..(YZ.400).2.KL|
00003030: 3E 0D 4E 5A B2 B5 28 28 4E 5A AD 37 AB B5 28 4E |>.NZ..((NZ.7..(N|
00003040: 5A AD 37 29 29 AC 37 AA 2E 35 29 00 58 4C 48 0D |Z.7)).7..5).XLH.|
00003050: 4E 5A B2 B5 28 4E 5A 29 00 7A 4C 52 0D 44 5A B2 |NZ..(NZ).zLR.DZ.|
00003060: C5 28 44 5A 24 29 3A 4D 5A B2 C5 28 4D 5A 24 29 |.(DZ$):MZ..(MZ$)|
00003070: 3A 59 5A B2 C5 28 59 5A 24 29 00 80 4C 5C 0D 8E |:YZ..(YZ$)..L\..|
00003080: 00 86 4C 66 0D 3A 00 BA 4C 70 0D 8F 20 2A 2A 2A |..Lf.:..Lp.. ***|
00003090: 20 44 49 52 45 43 54 20 44 45 42 49 54 20 49 4E | DIRECT DEBIT IN|
000030A0: 46 4F 52 4D 41 54 49 4F 4E 20 45 44 49 54 49 4E |FORMATION EDITIN|
000030B0: 47 20 4D 45 4E 55 20 2A 2A 2A 00 C0 4C 7A 0D E8 |G MENU ***..Lz..|
000030C0: 00 CB 4C 84 0D 8C 20 33 34 39 30 00 0B 4D 8E 0D |..L... 3490..M..|
000030D0: 99 C7 28 31 38 29 3B 22 20 20 C4 49 52 45 43 54 |..(18);" .IRECT|
000030E0: 20 C4 45 42 49 54 20 C9 4E 46 4F 52 4D 41 54 49 | .EBIT .NFORMATI|
000030F0: 4F 4E 20 C5 44 49 54 49 4E 47 20 CD 45 4E 55 20 |ON .DITING .ENU |
00003100: 20 22 3B C7 28 31 34 36 29 3A 99 00 28 4D 98 0D | ";.(146):..(M..|
00003110: 99 3A 99 22 CC 41 53 54 20 55 50 44 41 54 45 44 |.:.".AST UPDATED|
00003120: 20 3A 20 22 3B 5A 44 24 00 68 4D A2 0D 83 22 C1 | : ";ZD$.hM...".|
00003130: 44 44 20 41 20 4E 45 57 20 44 49 52 45 43 54 20 |DD A NEW DIRECT |
00003140: 44 45 42 49 54 22 2C 22 C4 45 4C 45 54 45 20 41 |DEBIT",".ELETE A|
00003150: 4E 20 45 58 49 53 54 49 4E 47 20 44 49 52 45 43 |N EXISTING DIREC|
00003160: 54 20 44 45 42 49 54 22 00 AC 4D AC 0D 83 22 C1 |T DEBIT"..M...".|
00003170: 4C 54 45 52 20 41 4E 20 45 58 49 53 54 49 4E 47 |LTER AN EXISTING|
00003180: 20 44 49 52 45 43 54 20 44 45 42 49 54 22 2C 22 | DIRECT DEBIT","|
00003190: D3 41 56 45 20 44 49 52 45 43 54 20 44 45 42 49 |.AVE DIRECT DEBI|
000031A0: 54 27 53 20 54 4F 20 44 49 53 4B 22 00 E4 4D B6 |T'S TO DISK"..M.|
000031B0: 0D 83 22 CC 49 53 54 20 41 4C 4C 20 C4 49 52 45 |..".IST ALL .IRE|
000031C0: 43 54 20 C4 45 42 49 54 53 22 2C 22 D2 45 54 55 |CT .EBITS",".ETU|
000031D0: 52 4E 20 54 4F 20 54 48 45 20 4D 41 49 4E 20 4D |RN TO THE MAIN M|
000031E0: 45 4E 55 22 00 EA 4D C0 0D 99 00 40 4E CA 0D 99 |ENU"..M....@N...|
000031F0: 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |" |
00003200: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00003210: 20 20 20 20 20 22 3B 3A 99 C7 28 32 29 3B 22 20 | ";:..(2);" |
00003220: CD 20 C5 20 CE 20 D5 20 22 3B C7 28 31 33 30 29 |. . . . ";.(130)|
00003230: 3A 99 22 C6 49 4C 45 53 20 3A 22 3B 54 44 3A 99 |:.".ILES :";TD:.|
00003240: 00 4E 4E D4 0D 81 20 41 B2 31 20 A4 20 36 00 57 |.NN... A.1 . 6.W|
00003250: 4E DE 0D 87 20 41 24 00 83 4E E8 0D 99 22 20 20 |N... A$..N..." |
00003260: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00003270: 20 20 20 20 20 20 22 3B 41 3B 22 2E 20 22 3B 41 | ";A;". ";A|
00003280: 24 3A 99 00 8B 4E F2 0D 82 20 41 00 D4 4E FC 0D |$:...N... A..N..|
00003290: 99 C7 28 31 35 29 3B 22 20 20 20 20 20 20 20 20 |..(15);" |
000032A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000032B0: 20 20 20 20 20 D0 4C 45 41 53 45 20 D3 45 4C 45 | .LEASE .ELE|
000032C0: 43 54 20 41 4E 20 CF 50 54 49 4F 4E 22 3B C7 28 |CT AN .PTION";.(|
000032D0: 31 34 33 29 00 DE 4E 06 0E A1 F9 20 41 24 00 07 |143)..N.... A$..|
000032E0: 4F 10 0E 8B 20 41 24 B3 22 31 22 20 B0 20 41 24 |O... A$."1" . A$|
000032F0: B1 22 36 22 20 A7 20 99 C7 28 37 29 3B 22 9D 22 |."6" . ..(7);"."|
00003300: 3A 89 20 33 35 39 30 00 0D 4F 1A 0E E8 00 39 4F |:. 3590..O....9O|
00003310: 24 0E 91 20 C5 28 41 24 29 20 89 20 33 36 35 30 |$.. .(A$) . 3650|
00003320: 2C 34 35 34 30 2C 34 38 36 30 2C 33 39 35 30 2C |,4540,4860,3950,|
00003330: 34 31 32 30 2C 34 30 31 30 00 44 4F 2E 0E 89 20 |4120,4010.DO... |
00003340: 33 34 35 30 00 4A 4F 38 0E 3A 00 6F 4F 42 0E 8F |3450.JO8.:.oOB..|
00003350: 20 2A 2A 2A 20 41 44 44 20 41 20 4E 45 57 20 44 | *** ADD A NEW D|
00003360: 49 52 45 43 54 20 44 45 42 49 54 20 2A 2A 2A 00 |IRECT DEBIT ***.|
00003370: 9E 4F 4C 0E E8 3A 99 C7 28 31 38 29 3B 22 C1 44 |.OL..:..(18);".D|
00003380: 44 20 41 20 4E 45 57 20 C4 49 52 45 43 54 20 C4 |D A NEW .IRECT .|
00003390: 45 42 49 54 22 3B C7 28 31 34 36 29 3A 99 00 B9 |EBIT";.(146):...|
000033A0: 4F 56 0E 8D 20 34 30 34 30 3A 8B 20 5A 4E B2 30 |OV.. 4040:. ZN.0|
000033B0: 20 A7 20 89 20 33 34 35 30 00 C1 4F 60 0E 99 3A | . . 3450..O`..:|
000033C0: 99 00 03 50 6A 0E 99 22 C4 49 52 45 43 54 20 C4 |...Pj..".IRECT .|
000033D0: 45 42 49 54 20 CE 41 4D 45 20 28 20 54 48 49 53 |EBIT .AME ( THIS|
000033E0: 20 4E 41 4D 45 20 49 53 20 4F 55 54 50 55 54 20 | NAME IS OUTPUT |
000033F0: 4F 4E 20 54 48 45 20 42 41 4E 4B 20 46 49 4C 45 |ON THE BANK FILE|
00003400: 20 29 22 00 09 50 74 0E 99 00 48 50 7E 0E 99 22 | )"..Pt...HP~.."|
00003410: 20 20 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 | ..............|
00003420: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00003430: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00003440: C0 C0 C0 C0 C0 C0 C0 22 00 57 50 88 0E 42 24 B2 |.......".WP..B$.|
00003450: 22 22 3A 85 20 42 24 00 A8 50 92 0E 8B 20 C6 28 |"":. B$..P... .(|
00003460: 42 24 29 B2 30 20 A7 20 99 22 91 20 20 20 20 20 |B$).0 . .". |
00003470: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00003480: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00003490: 20 20 20 20 20 20 20 20 20 20 22 3A 99 22 91 22 | ":."."|
000034A0: 3B 3A 89 20 33 37 32 30 00 E8 50 9C 0E 99 3A 99 |;:. 3720..P...:.|
000034B0: 22 CF 4E 20 57 48 41 54 20 44 41 54 45 20 44 4F |".N WHAT DATE DO|
000034C0: 45 53 20 54 48 45 20 C4 49 52 45 43 54 20 C4 45 |ES THE .IRECT .E|
000034D0: 42 49 54 20 42 45 47 49 4E 20 20 28 20 C4 C4 2E |BIT BEGIN ( ...|
000034E0: CD CD 2E D9 D9 20 29 22 00 EE 50 A6 0E 99 00 FD |..... )"..P.....|
000034F0: 50 B0 0E 41 24 B2 22 22 3A 85 20 41 24 00 3F 51 |P..A$."":. A$.?Q|
00003500: BA 0E 8B 20 C6 28 41 24 29 B2 30 20 B0 20 41 24 |... .(A$).0 . A$|
00003510: B2 22 22 20 B0 20 C3 28 41 24 29 B3 B1 38 20 A7 |."" . .(A$)..8 .|
00003520: 20 99 22 91 20 20 20 20 20 20 20 20 20 20 20 20 | .". |
00003530: 20 22 3A 99 22 91 22 3B 3A 89 20 33 37 36 30 00 | ":.".";:. 3760.|
00003540: 4A 51 C4 0E 8D 20 33 32 38 30 00 62 51 CE 0E 8B |JQ... 3280.bQ...|
00003550: 20 C3 28 41 24 29 B3 B1 38 20 A7 20 89 20 33 37 | .(A$)..8 . . 37|
00003560: 37 30 00 8A 51 D8 0E 99 3A 99 22 C8 4F 57 20 4D |70..Q...:.".OW M|
00003570: 55 43 48 20 49 53 20 54 48 45 20 C4 49 52 45 43 |UCH IS THE .IREC|
00003580: 54 20 C4 45 42 49 54 22 3A 99 00 96 51 E2 0E 42 |T .EBIT":...Q..B|
00003590: B2 30 3A 85 20 42 00 D3 51 EC 0E 8B 20 42 B2 30 |.0:. B..Q... B.0|
000035A0: 20 B0 20 42 B3 2E 30 31 20 B0 20 42 B1 39 39 39 | . B..01 . B.999|
000035B0: 39 39 39 20 A7 20 99 22 91 20 20 20 20 20 20 20 |999 . .". |
000035C0: 20 20 20 20 20 22 3A 99 22 91 22 3B 3A 89 20 33 | ":.".";:. 3|
000035D0: 38 31 30 00 02 52 F6 0E E8 3A 99 C7 28 31 38 29 |810..R...:..(18)|
000035E0: 3B 22 C1 44 44 20 41 20 4E 45 57 20 C4 49 52 45 |;".DD A NEW .IRE|
000035F0: 43 54 20 C4 45 42 49 54 22 3B C7 28 31 34 36 29 |CT .EBIT";.(146)|
00003600: 3A 99 00 22 52 00 0F 99 3A 99 22 C4 49 52 45 43 |:.."R...:.".IREC|
00003610: 54 20 C4 45 42 49 54 20 D4 49 54 4C 45 20 3A 20 |T .EBIT .ITLE : |
00003620: 22 3B 00 63 52 0A 0F 99 FB 22 23 23 23 23 23 23 |";.cR...."######|
00003630: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 |################|
00003640: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 |################|
00003650: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 22 |###############"|
00003660: 3B 42 24 00 85 52 14 0F 99 3A 99 22 D3 54 41 52 |;B$..R...:.".TAR|
00003670: 54 20 44 41 54 45 20 20 20 20 20 20 20 20 20 3A |T DATE :|
00003680: 20 22 3B 41 24 00 A5 52 1E 0F 99 3A 99 22 C1 4D | ";A$..R...:.".M|
00003690: 4F 55 4E 54 20 20 20 20 20 20 20 20 20 20 20 20 |OUNT |
000036A0: 20 5C 22 3B 42 00 D4 52 28 0F 99 3A 99 22 C9 53 | \";B..R(..:.".S|
000036B0: 20 54 48 49 53 20 49 4E 46 4F 52 4D 41 54 49 4F | THIS INFORMATIO|
000036C0: 4E 20 43 4F 52 52 45 43 54 20 28 20 59 20 2F 20 |N CORRECT ( Y / |
000036D0: 4E 20 29 22 00 DE 52 32 0F A1 F9 20 5A 24 00 FD |N )"..R2... Z$..|
000036E0: 52 3C 0F 8B 20 5A 24 B2 22 59 22 20 A7 20 89 20 |R<.. Z$."Y" . . |
000036F0: 33 39 31 30 3A D5 20 89 20 33 36 35 30 00 28 53 |3910:. . 3650.(S|
00003700: 46 0F 54 44 B2 54 44 AA 31 3A 44 4D 24 28 54 44 |F.TD.TD.1:DM$(TD|
00003710: 29 B2 42 24 3A 44 4D 28 54 44 29 B2 42 3A 58 44 |).B$:DM(TD).B:XD|
00003720: 24 28 54 44 29 B2 41 24 00 6E 53 50 0F 99 3A 99 |$(TD).A$.nSP..:.|
00003730: 22 C9 4E 46 4F 52 4D 41 54 49 4F 4E 20 41 44 44 |".NFORMATION ADD|
00003740: 45 44 2C 20 50 52 45 53 53 20 41 4E 59 20 4B 45 |ED, PRESS ANY KE|
00003750: 59 20 54 4F 20 52 45 54 55 52 4E 20 54 4F 20 54 |Y TO RETURN TO T|
00003760: 48 45 20 4D 45 4E 55 22 3A A1 F9 20 41 24 00 79 |HE MENU":.. A$.y|
00003770: 53 5A 0F 89 20 33 34 35 30 00 7F 53 64 0F 3A 00 |SZ.. 3450..Sd.:.|
00003780: A4 53 6E 0F 8F 20 2A 2A 2A 20 53 41 56 45 20 44 |.Sn.. *** SAVE D|
00003790: 49 52 45 43 54 20 44 45 42 49 54 53 20 20 20 20 |IRECT DEBITS |
000037A0: 20 2A 2A 2A 00 D0 53 78 0F 99 C7 28 31 38 29 3B | ***..Sx...(18);|
000037B0: 22 91 91 D3 41 56 49 4E 47 20 C4 41 54 41 20 D4 |"...AVING .ATA .|
000037C0: 4F 20 C4 49 53 4B 22 3B C7 28 31 34 36 29 3A 99 |O .ISK";.(146):.|
000037D0: 00 30 54 82 0F FE 0D 23 31 2C 22 40 44 45 42 49 |.0T....#1,"@DEBI|
000037E0: 54 46 49 4C 45 31 22 2C 44 30 2C 55 38 2C 57 3A |TFILE1",D0,U8,W:|
000037F0: 98 31 2C 54 44 3B 43 52 24 3B 44 54 24 3A 81 41 |.1,TD;CR$;DT$:.A|
00003800: B2 31 A4 54 44 3A 98 31 2C 44 4D 24 28 41 29 3B |.1.TD:.1,DM$(A);|
00003810: 43 52 24 3B 44 4D 28 41 29 3B 43 52 24 3B 58 44 |CR$;DM(A);CR$;XD|
00003820: 24 28 41 29 3B 43 52 24 3A 82 41 3A FE 0F 23 31 |$(A);CR$:.A:..#1|
00003830: 00 6E 54 8C 0F 8B 44 53 B2 30 A7 F2 22 44 45 42 |.nT...DS.0.."DEB|
00003840: 49 54 46 49 4C 45 22 3A F5 22 44 45 42 49 54 46 |ITFILE":."DEBITF|
00003850: 49 4C 45 31 22 A4 22 44 45 42 49 54 46 49 4C 45 |ILE1"."DEBITFILE|
00003860: 22 3A 53 41 B2 31 3A D5 99 44 53 24 3A 99 00 C7 |":SA.1:..DS$:...|
00003870: 54 96 0F 99 22 11 11 11 11 22 3A 99 C7 28 31 38 |T..."....":..(18|
00003880: 29 3B 22 D3 41 56 49 4E 47 20 C3 4F 4D 50 4C 45 |);".AVING .OMPLE|
00003890: 54 45 44 2C 20 D0 52 45 53 53 20 C1 4E 59 20 CB |TED, .RESS .NY .|
000038A0: 45 59 20 D4 4F 20 D2 45 54 55 52 4E 20 D4 4F 20 |EY .O .ETURN .O |
000038B0: D4 48 45 20 CD 45 4E 55 22 3B C7 28 31 34 36 29 |.HE .ENU";.(146)|
000038C0: 3A A1 F9 41 24 3A 8E 00 CD 54 A0 0F 3A 00 F2 54 |:..A$:...T..:..T|
000038D0: AA 0F 8F 20 2A 2A 2A 20 52 45 54 55 52 4E 20 54 |... *** RETURN T|
000038E0: 4F 20 4D 41 49 4E 20 4D 45 4E 55 20 20 20 20 2A |O MAIN MENU *|
000038F0: 2A 2A 00 FA 54 B4 0F E8 3A 8E 00 00 55 BE 0F 3A |**..T...:...U..:|
00003900: 00 24 55 C8 0F 8F 20 2A 2A 2A 20 43 48 45 43 4B |.$U... *** CHECK|
00003910: 20 49 46 20 52 49 47 48 54 20 53 43 52 45 45 4E | IF RIGHT SCREEN|
00003920: 20 2A 2A 2A 00 2E 55 D2 0F E7 20 35 2C 37 00 69 | ***..U... 5,7.i|
00003930: 55 DC 0F 99 22 C1 52 45 20 59 4F 55 20 53 55 52 |U...".RE YOU SUR|
00003940: 45 20 54 48 49 53 20 49 53 20 54 48 45 20 4F 50 |E THIS IS THE OP|
00003950: 54 49 4F 4E 20 59 4F 55 20 52 45 51 55 49 52 45 |TION YOU REQUIRE|
00003960: 20 28 20 59 2F 4E 20 29 22 00 94 55 E6 0F A1 F9 | ( Y/N )"..U....|
00003970: 5A 24 3A 8B 20 5A 24 B3 B1 22 59 22 20 AF 20 5A |Z$:. Z$.."Y" . Z|
00003980: 24 B3 B1 22 D9 22 20 A7 20 5A 4E B2 30 3A D5 20 |$.."." . ZN.0:. |
00003990: 5A 4E B2 31 00 F1 55 F0 0F 99 22 91 22 3B 22 20 |ZN.1..U...".";" |
000039A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000039B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000039C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000039D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000039E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000039F0: 22 00 FB 55 FA 0F E7 20 35 2C 32 00 01 56 04 10 |"..U... 5,2..V..|
00003A00: 8E 00 07 56 0E 10 3A 00 30 56 18 10 8F 20 2A 2A |...V..:.0V... **|
00003A10: 2A 20 4C 49 53 54 20 41 4C 4C 20 54 48 45 20 44 |* LIST ALL THE D|
00003A20: 49 52 45 43 54 20 44 45 42 49 54 53 20 2A 2A 2A |IRECT DEBITS ***|
00003A30: 00 44 56 22 10 8B 20 54 44 B3 31 20 A7 20 89 20 |.DV".. TD.1 . . |
00003A40: 33 34 35 30 00 57 56 2C 10 FE 1A 20 30 2C 32 2C |3450.WV,... 0,2,|
00003A50: 37 39 2C 32 34 2C 31 00 6D 56 36 10 DE 35 2C 31 |79,24,1.mV6..5,1|
00003A60: 3A E7 36 2C 31 3A E7 35 2C 37 3A FE 25 00 CE 56 |:.6,1:.5,7:.%..V|
00003A70: 40 10 99 C7 28 31 34 29 3A E8 3A 99 22 A5 D3 54 |@...(14):.:."..T|
00003A80: 41 52 54 20 C4 41 54 45 20 A5 20 C1 4D 4F 55 4E |ART .ATE . .MOUN|
00003A90: 54 20 20 20 A5 20 20 20 20 20 20 20 20 20 20 20 |T . |
00003AA0: 20 20 D0 55 52 50 4F 53 45 20 4F 46 20 C4 49 52 | .URPOSE OF .IR|
00003AB0: 45 43 54 20 C4 45 42 49 54 20 20 20 20 20 20 20 |ECT .EBIT |
00003AC0: 20 20 20 20 20 20 20 20 20 20 20 20 A7 22 00 26 | .".&|
00003AD0: 57 4A 10 99 22 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |WJ.."...........|
00003AE0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00003AF0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00003B00: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00003B10: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00003B20: C0 C0 C0 C0 C0 22 00 3F 57 54 10 E7 20 35 2C 32 |.....".?WT.. 5,2|
00003B30: 3A FE 1A 20 30 2C 34 2C 37 39 2C 32 34 2C 31 00 |:.. 0,4,79,24,1.|
00003B40: 48 57 5E 10 50 43 B2 31 00 57 57 68 10 81 20 41 |HW^.PC.1.WWh.. A|
00003B50: B2 31 20 A4 20 54 44 00 7F 57 72 10 99 22 A5 20 |.1 . TD..Wr..". |
00003B60: 20 22 3B 3A 99 FB 22 23 23 23 23 23 23 23 23 22 | ";:.."########"|
00003B70: 3B 58 44 24 28 41 29 3B 3A 99 22 20 A5 22 3B 00 |;XD$(A);:." .";.|
00003B80: A0 57 7C 10 99 FB 22 23 23 23 23 23 23 2E 23 23 |.W|..."######.##|
00003B90: 22 3B 44 4D 28 41 29 3B 3A 99 22 20 A5 20 22 3B |";DM(A);:." . ";|
00003BA0: 00 EC 57 86 10 99 FB 22 23 23 23 23 23 23 23 23 |..W...."########|
00003BB0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 |################|
00003BC0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 |################|
00003BD0: 23 23 23 23 23 23 23 23 23 23 23 23 23 22 3B 44 |#############";D|
00003BE0: 4D 24 28 41 29 3B 3A 99 22 20 AA 22 00 F8 57 90 |M$(A);:." ."..W.|
00003BF0: 10 50 43 B2 50 43 AA 31 00 3C 58 9A 10 8B 20 50 |.PC.PC.1.<X... P|
00003C00: 43 B1 31 38 20 A7 20 99 C7 28 31 38 29 3B 22 D0 |C.18 . ..(18);".|
00003C10: 52 45 53 53 20 41 4E 59 20 4B 45 59 20 54 4F 20 |RESS ANY KEY TO |
00003C20: 43 4F 4E 54 49 4E 55 45 22 3B C7 28 31 34 36 29 |CONTINUE";.(146)|
00003C30: 3A A1 F9 41 24 3A 50 43 B2 31 3A E8 00 44 58 A4 |:..A$:PC.1:..DX.|
00003C40: 10 82 20 41 00 AB 58 AE 10 99 C7 28 31 38 29 3B |.. A..X....(18);|
00003C50: 22 C5 4E 44 20 4F 46 20 4C 49 53 54 2C 20 50 4C |".ND OF LIST, PL|
00003C60: 45 41 53 45 20 50 52 45 53 53 20 41 4E 59 20 4B |EASE PRESS ANY K|
00003C70: 45 59 20 54 4F 20 52 45 54 55 52 4E 20 54 4F 20 |EY TO RETURN TO |
00003C80: 54 48 45 20 4D 45 4E 55 22 3B C7 28 31 34 36 29 |THE MENU";.(146)|
00003C90: 3A A1 F9 41 24 3A FE 1A 20 30 2C 32 2C 37 39 2C |:..A$:.. 0,2,79,|
00003CA0: 32 34 2C 31 3A 89 20 33 34 35 30 00 B1 58 B8 10 |24,1:. 3450..X..|
00003CB0: 3A 00 EC 58 C2 10 8F 20 2A 2A 2A 20 46 49 4E 44 |:..X... *** FIND|
00003CC0: 20 41 20 44 49 52 45 43 54 20 44 45 42 49 54 20 | A DIRECT DEBIT |
00003CD0: 46 4F 52 20 41 4C 54 45 52 49 4E 47 20 4F 52 20 |FOR ALTERING OR |
00003CE0: 44 45 4C 45 54 49 4E 47 20 2A 2A 2A 00 FF 58 CC |DELETING ***..X.|
00003CF0: 10 FE 1A 20 30 2C 32 2C 37 39 2C 32 34 2C 31 00 |... 0,2,79,24,1.|
00003D00: 15 59 D6 10 DE 35 2C 31 3A E7 36 2C 31 3A E7 35 |.Y...5,1:.6,1:.5|
00003D10: 2C 37 3A FE 25 00 6E 59 E0 10 99 C7 28 31 34 29 |,7:.%.nY....(14)|
00003D20: 3A E8 3A 99 22 20 20 20 20 20 20 20 A5 20 CE 4F |:.:." . .O|
00003D30: 2E 20 20 20 A5 20 20 20 20 20 20 20 20 20 20 20 |. . |
00003D40: 20 20 20 20 D0 55 52 50 4F 53 45 20 4F 46 20 C4 | .URPOSE OF .|
00003D50: 49 52 45 43 54 20 C4 45 42 49 54 20 20 20 20 20 |IRECT .EBIT |
00003D60: 20 20 20 20 20 20 20 20 20 20 20 20 AA 22 00 BE | ."..|
00003D70: 59 EA 10 99 22 20 20 20 20 20 20 20 C0 C0 C0 C0 |Y..." ....|
00003D80: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00003D90: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00003DA0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00003DB0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 22 00 D7 |............."..|
00003DC0: 59 F4 10 E7 20 35 2C 32 3A FE 1A 20 30 2C 34 2C |Y... 5,2:.. 0,4,|
00003DD0: 37 39 2C 32 34 2C 31 00 E0 59 FE 10 50 43 B2 31 |79,24,1..Y..PC.1|
00003DE0: 00 EF 59 08 11 81 20 41 B2 31 20 A4 20 54 44 00 |..Y... A.1 . TD.|
00003DF0: 16 5A 12 11 99 22 20 20 20 20 20 20 20 A5 20 22 |.Z..." . "|
00003E00: 3B 3A 99 FB 22 23 23 23 23 22 3B 41 3B 3A 99 22 |;:.."####";A;:."|
00003E10: 20 20 A5 20 22 3B 00 62 5A 1C 11 99 FB 22 23 23 | . ";.bZ...."##|
00003E20: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 |################|
00003E30: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 |################|
00003E40: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 |################|
00003E50: 23 23 23 22 3B 44 4D 24 28 41 29 3B 3A 99 22 20 |###";DM$(A);:." |
00003E60: AA 22 00 6E 5A 26 11 50 43 B2 50 43 AA 31 00 83 |.".nZ&.PC.PC.1..|
00003E70: 5A 30 11 8B 20 50 43 B2 31 38 20 A7 20 89 20 34 |Z0.. PC.18 . . 4|
00003E80: 34 32 30 00 8B 5A 3A 11 82 20 41 00 DB 5A 44 11 |420..Z:.. A..ZD.|
00003E90: 99 C7 28 31 38 29 3B 22 C9 53 20 54 48 45 20 C4 |..(18);".S THE .|
00003EA0: 49 52 45 43 54 20 C4 45 42 49 54 20 59 4F 55 20 |IRECT .EBIT YOU |
00003EB0: 52 45 51 55 49 52 45 20 4F 4E 20 54 48 49 53 20 |REQUIRE ON THIS |
00003EC0: 53 43 52 45 45 4E 20 3F 20 28 20 59 20 2F 20 4E |SCREEN ? ( Y / N|
00003ED0: 20 29 20 22 3B C7 28 31 34 36 29 00 E5 5A 4E 11 | ) ";.(146)..ZN.|
00003EE0: A1 F9 20 41 24 00 FB 5A 58 11 8B 20 41 24 B2 22 |.. A$..ZX.. A$."|
00003EF0: 59 22 20 A7 20 89 20 34 34 38 30 00 4F 5B 62 11 |Y" . . 4480.O[b.|
00003F00: 8B 20 41 24 B2 22 4E 22 20 AF 20 41 B1 B2 54 44 |. A$."N" . A..TD|
00003F10: 20 A7 20 99 C7 28 31 38 29 3B 22 D3 4F 52 52 59 | . ..(18);".ORRY|
00003F20: 20 54 48 41 54 20 49 53 20 54 48 45 20 45 4E 44 | THAT IS THE END|
00003F30: 20 4F 46 20 54 48 45 20 4C 49 53 54 22 3B C7 28 | OF THE LIST";.(|
00003F40: 31 34 36 29 3A 42 B2 30 3A A1 F9 41 24 3A 8E 00 |146):B.0:..A$:..|
00003F50: 73 5B 6C 11 8B 20 41 24 B2 22 4E 22 20 AF 20 41 |s[l.. A$."N" . A|
00003F60: B3 54 44 20 A7 20 50 43 B2 31 3A E8 3A 89 20 34 |.TD . PC.1:.:. 4|
00003F70: 34 31 30 00 88 5B 76 11 99 C7 28 37 29 3B 22 9D |410..[v...(7);".|
00003F80: 22 3A 89 20 34 34 33 30 00 CA 5B 80 11 99 C7 28 |":. 4430..[....(|
00003F90: 31 38 29 3B 22 D7 48 49 43 48 20 4E 55 4D 42 45 |18);".HICH NUMBE|
00003FA0: 52 20 49 53 20 54 48 45 20 C4 49 52 45 43 54 20 |R IS THE .IRECT |
00003FB0: C4 45 42 49 54 20 59 4F 55 20 52 45 51 55 49 52 |.EBIT YOU REQUIR|
00003FC0: 45 20 22 3B C7 28 31 34 36 29 00 D2 5B 8A 11 85 |E ";.(146)..[...|
00003FD0: 20 42 00 E4 5B 94 11 8B 20 54 44 B3 41 20 A7 20 | B..[... TD.A . |
00003FE0: 41 B2 54 44 00 17 5C 9E 11 8B 20 42 B3 41 AB 28 |A.TD..\... B.A.(|
00003FF0: 50 43 AB 32 29 20 B0 20 42 B1 41 20 A7 20 99 22 |PC.2) . B.A . ."|
00004000: 91 20 20 20 20 20 20 20 20 22 3A 99 22 91 22 3B |. ":.".";|
00004010: 3A 89 20 34 34 39 30 00 2C 5C A8 11 FE 1A 20 30 |:. 4490.,\.... 0|
00004020: 2C 32 2C 37 39 2C 32 34 2C 31 3A 8E 00 32 5C B2 |,2,79,24,1:..2\.|
00004030: 11 3A 00 57 5C BC 11 8F 20 2A 2A 2A 20 44 45 4C |.:.W\... *** DEL|
00004040: 45 54 45 20 41 20 44 49 52 45 43 54 20 44 45 42 |ETE A DIRECT DEB|
00004050: 49 54 20 20 2A 2A 2A 00 6B 5C C6 11 8B 20 54 44 |IT ***.k\... TD|
00004060: B3 31 20 A7 20 89 20 33 34 35 30 00 97 5C D0 11 |.1 . . 3450..\..|
00004070: 99 C7 28 31 38 29 3B 22 C4 45 4C 45 54 45 20 41 |..(18);".ELETE A|
00004080: 20 C4 49 52 45 43 54 20 C4 45 42 49 54 22 3B C7 | .IRECT .EBIT";.|
00004090: 28 31 34 36 29 3A 99 00 A2 5C DA 11 8D 20 34 30 |(146):...\... 40|
000040A0: 34 30 00 B6 5C E4 11 8B 20 5A 4E B2 30 20 A7 20 |40..\... ZN.0 . |
000040B0: 89 20 33 34 35 30 00 C1 5C EE 11 8D 20 34 32 39 |. 3450..\... 429|
000040C0: 30 00 D4 5C F8 11 FE 1A 20 30 2C 32 2C 37 39 2C |0..\.... 0,2,79,|
000040D0: 32 34 2C 31 00 E7 5C 02 12 8B 20 42 B1 30 20 A7 |24,1..\... B.0 .|
000040E0: 20 89 20 34 36 36 30 00 11 5D 0C 12 99 C7 28 31 | . 4660..]....(1|
000040F0: 38 29 3B 22 C4 45 4C 45 54 45 20 41 20 C4 49 52 |8);".ELETE A .IR|
00004100: 45 43 54 20 C4 45 42 49 54 22 3B C7 28 31 34 36 |ECT .EBIT";.(146|
00004110: 29 00 44 5D 16 12 99 3A 99 22 CE 4F 20 C4 49 52 |).D]...:.".O .IR|
00004120: 45 43 54 20 C4 45 42 49 54 20 46 49 4C 45 20 53 |ECT .EBIT FILE S|
00004130: 45 4C 45 43 54 45 44 20 54 4F 20 44 45 4C 45 54 |ELECTED TO DELET|
00004140: 45 22 3A 99 00 74 5D 20 12 99 22 D0 52 45 53 53 |E":..t] ..".RESS|
00004150: 20 41 4E 59 20 4B 45 59 20 54 4F 20 52 45 54 55 | ANY KEY TO RETU|
00004160: 52 4E 20 54 4F 20 54 48 45 20 4D 45 4E 55 22 3A |RN TO THE MENU":|
00004170: A1 F9 41 24 00 7F 5D 2A 12 89 20 33 34 35 30 00 |..A$..]*.. 3450.|
00004180: AD 5D 34 12 99 C7 28 31 38 29 3B 22 C4 45 4C 45 |.]4...(18);".ELE|
00004190: 54 45 20 41 20 C4 49 52 45 43 54 20 C4 45 42 49 |TE A .IRECT .EBI|
000041A0: 54 22 3B C7 28 31 34 36 29 3A 99 3A 99 00 CA 5D |T";.(146):.:...]|
000041B0: 3E 12 99 22 C4 49 52 45 43 54 20 C4 45 42 49 54 |>..".IRECT .EBIT|
000041C0: 20 CE 41 4D 45 20 3A 20 22 3B 00 0F 5E 48 12 99 | .AME : ";..^H..|
000041D0: FB 22 23 23 23 23 23 23 23 23 23 23 23 23 23 23 |."##############|
000041E0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 |################|
000041F0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 |################|
00004200: 23 23 23 23 23 23 23 22 3B 44 4D 24 28 42 29 00 |#######";DM$(B).|
00004210: 34 5E 52 12 99 3A 99 22 C4 41 54 45 20 4F 46 20 |4^R..:.".ATE OF |
00004220: C4 45 42 49 54 20 20 20 20 20 3A 20 22 3B 58 44 |.EBIT : ";XD|
00004230: 24 28 42 29 00 57 5E 5C 12 99 3A 99 22 C1 4D 4F |$(B).W^\..:.".MO|
00004240: 55 4E 54 20 20 20 20 20 20 20 20 20 20 20 20 5C |UNT \|
00004250: 22 3B 44 4D 28 42 29 00 5D 5E 66 12 99 00 94 5E |";DM(B).]^f....^|
00004260: 70 12 99 22 C1 52 45 20 59 4F 55 20 53 55 52 45 |p..".RE YOU SURE|
00004270: 20 59 4F 55 20 57 41 4E 54 20 54 4F 20 44 45 4C | YOU WANT TO DEL|
00004280: 45 54 45 20 54 48 49 53 20 20 28 20 59 20 2F 20 |ETE THIS ( Y / |
00004290: 4E 20 29 22 00 A1 5E 7A 12 A1 F9 41 24 3A 99 41 |N )"..^z...A$:.A|
000042A0: 24 00 BA 5E 84 12 8B 20 41 24 B3 B1 22 59 22 20 |$..^... A$.."Y" |
000042B0: A7 20 E8 3A 89 20 34 35 34 30 00 D4 5E 8E 12 99 |. .:. 4540..^...|
000042C0: 3A 99 22 C4 45 4C 45 54 49 4E 47 20 2E 2E 2E 2E |:.".ELETING ....|
000042D0: 2E 22 3A 99 00 E5 5E 98 12 81 20 41 B2 42 20 A4 |.":...^... A.B .|
000042E0: 20 54 44 AB 31 00 F9 5E A2 12 44 4D 24 28 41 29 | TD.1..^..DM$(A)|
000042F0: B2 44 4D 24 28 41 AA 31 29 00 0B 5F AC 12 44 4D |.DM$(A.1).._..DM|
00004300: 28 41 29 B2 44 4D 28 41 AA 31 29 00 1F 5F B6 12 |(A).DM(A.1).._..|
00004310: 58 44 24 28 41 29 B2 58 44 24 28 41 AA 31 29 00 |XD$(A).XD$(A.1).|
00004320: 27 5F C0 12 82 20 41 00 33 5F CA 12 54 44 B2 54 |'_... A.3_..TD.T|
00004330: 44 AB 31 00 74 5F D4 12 99 22 C4 49 52 45 43 54 |D.1.t_...".IRECT|
00004340: 20 C4 45 42 49 54 20 C4 45 4C 45 54 45 44 2C 20 | .EBIT .ELETED, |
00004350: 50 52 45 53 53 20 41 4E 59 20 4B 45 59 20 54 4F |PRESS ANY KEY TO|
00004360: 20 52 45 54 55 52 4E 20 54 4F 20 54 48 45 20 4D | RETURN TO THE M|
00004370: 45 4E 55 22 00 7E 5F DE 12 A1 F9 20 41 24 00 8B |ENU".~_.... A$..|
00004380: 5F E8 12 E8 3A 89 20 33 34 35 30 00 91 5F F2 12 |_...:. 3450.._..|
00004390: 3A 00 B6 5F FC 12 8F 20 2A 2A 2A 20 41 4C 54 45 |:.._... *** ALTE|
000043A0: 52 20 41 20 44 49 52 45 43 54 20 44 45 42 49 54 |R A DIRECT DEBIT|
000043B0: 20 20 20 2A 2A 2A 00 CA 5F 06 13 8B 20 54 44 B3 | ***.._... TD.|
000043C0: 31 20 A7 20 89 20 33 34 35 30 00 F5 5F 10 13 99 |1 . . 3450.._...|
000043D0: C7 28 31 38 29 3B 22 C1 4C 54 45 52 20 41 20 C4 |.(18);".LTER A .|
000043E0: 49 52 45 43 54 20 C4 45 42 49 54 22 3B C7 28 31 |IRECT .EBIT";.(1|
000043F0: 34 36 29 3A 99 00 00 60 1A 13 8D 20 34 30 34 30 |46):...`... 4040|
00004400: 00 14 60 24 13 8B 20 5A 4E B2 30 20 A7 20 89 20 |..`$.. ZN.0 . . |
00004410: 33 34 35 30 00 1F 60 2E 13 8D 20 34 32 39 30 00 |3450..`... 4290.|
00004420: 3F 60 38 13 42 24 B2 44 4D 24 28 42 29 3A 41 24 |?`8.B$.DM$(B):A$|
00004430: B2 58 44 24 28 42 29 3A 43 B2 44 4D 28 42 29 00 |.XD$(B):C.DM(B).|
00004440: 52 60 42 13 FE 1A 20 30 2C 32 2C 37 39 2C 32 34 |R`B... 0,2,79,24|
00004450: 2C 31 00 7D 60 4C 13 99 C7 28 31 38 29 3B 22 C1 |,1.}`L...(18);".|
00004460: 4C 54 45 52 20 41 20 C4 49 52 45 43 54 20 C4 45 |LTER A .IRECT .E|
00004470: 42 49 54 22 3B C7 28 31 34 36 29 3A 99 00 90 60 |BIT";.(146):...`|
00004480: 56 13 8B 20 42 B1 30 20 A7 20 89 20 35 30 30 30 |V.. B.0 . . 5000|
00004490: 00 BB 60 60 13 99 3A 99 22 CE 4F 20 C4 49 52 45 |..``..:.".O .IRE|
000044A0: 43 54 20 C4 45 42 49 54 20 46 49 4C 45 20 57 41 |CT .EBIT FILE WA|
000044B0: 53 20 53 45 4C 45 43 54 45 44 22 00 EF 60 6A 13 |S SELECTED"..`j.|
000044C0: 99 3A 99 22 D0 4C 45 41 53 45 20 50 52 45 53 53 |.:.".LEASE PRESS|
000044D0: 20 41 4E 59 20 4B 45 59 20 54 4F 20 52 45 54 55 | ANY KEY TO RETU|
000044E0: 52 4E 20 54 4F 20 54 48 45 20 4D 45 4E 55 22 00 |RN TO THE MENU".|
000044F0: F9 60 74 13 A1 F9 20 41 24 00 04 61 7E 13 89 20 |.`t... A$..a~.. |
00004500: 33 34 35 30 00 28 61 88 13 99 3A 99 22 CF 4C 44 |3450.(a...:.".LD|
00004510: 20 C4 49 52 45 43 54 20 C4 45 42 49 54 20 CE 41 | .IRECT .EBIT .A|
00004520: 4D 45 20 20 3A 20 22 3B 00 6D 61 92 13 99 FB 22 |ME : ";.ma...."|
00004530: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 |################|
00004540: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 |################|
00004550: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 |################|
00004560: 23 23 23 23 23 22 3B 44 4D 24 28 42 29 00 8F 61 |#####";DM$(B)..a|
00004570: 9C 13 99 22 CE 45 57 20 C4 49 52 45 43 54 20 C4 |...".EW .IRECT .|
00004580: 45 42 49 54 20 CE 41 4D 45 20 20 3A 20 22 3B 00 |EBIT .AME : ";.|
00004590: D0 61 A6 13 99 FB 22 23 23 23 23 23 23 23 23 23 |.a...."#########|
000045A0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 |################|
000045B0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 |################|
000045C0: 23 23 23 23 23 23 23 23 23 23 23 23 22 3B 42 24 |############";B$|
000045D0: 00 00 62 B0 13 99 3A 99 22 D0 52 45 53 53 20 28 |..b...:.".RESS (|
000045E0: 20 31 20 29 20 54 4F 20 41 4C 54 45 52 20 C4 49 | 1 ) TO ALTER .I|
000045F0: 52 45 43 54 20 C4 45 42 49 54 20 4E 41 4D 45 22 |RECT .EBIT NAME"|
00004600: 00 2A 62 BA 13 99 3A 99 22 CF 4C 44 20 C4 41 54 |.*b...:.".LD .AT|
00004610: 45 20 4F 46 20 C4 45 42 49 54 20 20 20 20 20 20 |E OF .EBIT |
00004620: 3A 20 22 3B 58 44 24 28 42 29 00 4E 62 C4 13 99 |: ";XD$(B).Nb...|
00004630: 22 CE 45 57 20 C4 41 54 45 20 4F 46 20 C4 45 42 |".EW .ATE OF .EB|
00004640: 49 54 20 20 20 20 20 20 3A 20 22 3B 41 24 00 84 |IT : ";A$..|
00004650: 62 CE 13 99 3A 99 22 D0 52 45 53 53 20 28 20 32 |b...:.".RESS ( 2|
00004660: 20 29 20 54 4F 20 41 4C 54 45 52 20 C4 49 52 45 | ) TO ALTER .IRE|
00004670: 43 54 20 C4 45 42 49 54 20 53 54 41 52 54 20 44 |CT .EBIT START D|
00004680: 41 54 45 22 00 AC 62 D8 13 99 3A 99 22 CF 4C 44 |ATE"..b...:.".LD|
00004690: 20 C4 49 52 45 43 54 20 C4 45 42 49 54 20 50 52 | .IRECT .EBIT PR|
000046A0: 49 43 45 20 5C 22 3B 44 4D 28 42 29 00 CE 62 E2 |ICE \";DM(B)..b.|
000046B0: 13 99 22 CE 45 57 20 C4 49 52 45 43 54 20 C4 45 |..".EW .IRECT .E|
000046C0: 42 49 54 20 50 52 49 43 45 20 5C 22 3B 43 00 FF |BIT PRICE \";C..|
000046D0: 62 EC 13 99 3A 99 22 D0 52 45 53 53 20 28 20 33 |b...:.".RESS ( 3|
000046E0: 20 29 20 54 4F 20 41 4C 54 45 52 20 C4 49 52 45 | ) TO ALTER .IRE|
000046F0: 43 54 20 C4 45 42 49 54 20 50 52 49 43 45 22 00 |CT .EBIT PRICE".|
00004700: 09 63 F6 13 99 3A 99 3A 99 00 3A 63 00 14 99 22 |.c...:.:..:c..."|
00004710: D0 52 45 53 53 20 28 20 34 20 29 20 54 4F 20 45 |.RESS ( 4 ) TO E|
00004720: 58 49 54 20 41 4C 54 45 52 49 4E 47 20 C4 49 52 |XIT ALTERING .IR|
00004730: 45 43 54 20 C4 45 42 49 54 22 00 43 63 0A 14 A1 |ECT .EBIT".Cc...|
00004740: F9 5A 24 00 6D 63 14 14 8B 20 5A 24 B3 22 31 22 |.Z$.mc... Z$."1"|
00004750: 20 B0 20 5A 24 B1 22 34 22 20 A7 20 99 C7 28 37 | . Z$."4" . ..(7|
00004760: 29 3B 22 9D 22 3B 3A 89 20 35 31 33 30 00 8F 63 |);".";:. 5130..c|
00004770: 1E 14 91 20 C5 28 5A 24 29 20 89 20 35 31 38 30 |... .(Z$) . 5180|
00004780: 2C 35 32 39 30 2C 35 34 30 30 2C 35 34 38 30 00 |,5290,5400,5480.|
00004790: 9A 63 28 14 89 20 35 31 33 30 00 A0 63 32 14 3A |.c(.. 5130..c2.:|
000047A0: 00 C6 63 3C 14 8F 20 2A 2A 2A 20 41 4C 54 45 52 |..c<.. *** ALTER|
000047B0: 20 44 49 52 45 43 54 20 44 45 42 49 54 20 4E 41 | DIRECT DEBIT NA|
000047C0: 4D 45 20 2A 2A 2A 00 F6 63 46 14 E8 3A 99 C7 28 |ME ***..cF..:..(|
000047D0: 31 38 29 3B 22 C1 4C 54 45 52 20 C4 49 52 45 43 |18);".LTER .IREC|
000047E0: 54 20 C4 45 42 49 54 20 4E 41 4D 45 22 3B C7 28 |T .EBIT NAME";.(|
000047F0: 31 34 36 29 3A 99 00 FC 63 50 14 99 00 1D 64 5A |146):...cP....dZ|
00004800: 14 99 22 CF 4C 44 20 C4 49 52 45 43 54 20 C4 45 |..".LD .IRECT .E|
00004810: 42 49 54 20 4E 41 4D 45 20 3A 20 22 3B 00 64 64 |BIT NAME : ";.dd|
00004820: 64 14 99 FB 22 23 23 23 23 23 23 23 23 23 23 23 |d..."###########|
00004830: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 |################|
00004840: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 |################|
00004850: 23 23 23 23 23 23 23 23 23 23 22 3B 44 4D 24 28 |##########";DM$(|
00004860: 42 29 3A 99 00 8F 64 6E 14 99 22 D7 48 41 54 20 |B):...dn..".HAT |
00004870: 49 53 20 54 48 45 20 4E 45 57 20 C4 49 52 45 43 |IS THE NEW .IREC|
00004880: 54 20 C4 45 42 49 54 20 4E 41 4D 45 22 3A 99 00 |T .EBIT NAME":..|
00004890: CE 64 78 14 99 22 20 20 C0 C0 C0 C0 C0 C0 C0 C0 |.dx.." ........|
000048A0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
000048B0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
000048C0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 22 00 DD |............."..|
000048D0: 64 82 14 42 24 B2 22 22 3A 85 20 42 24 00 2E 65 |d..B$."":. B$..e|
000048E0: 8C 14 8B 20 C6 28 42 24 29 B2 30 20 A7 20 99 22 |... .(B$).0 . ."|
000048F0: 91 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. |
00004900: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00004910: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00004920: 22 3A 99 22 91 22 3B 3A 89 20 35 32 35 30 00 3B |":.".";:. 5250.;|
00004930: 65 96 14 E8 3A 89 20 34 39 33 30 00 41 65 A0 14 |e...:. 4930.Ae..|
00004940: 3A 00 6D 65 AA 14 8F 20 2A 2A 2A 20 41 4C 54 45 |:.me... *** ALTE|
00004950: 52 20 44 49 52 45 43 54 20 44 45 42 49 54 20 53 |R DIRECT DEBIT S|
00004960: 54 41 52 54 20 44 41 54 45 20 2A 2A 2A 00 A3 65 |TART DATE ***..e|
00004970: B4 14 E8 3A 99 C7 28 31 38 29 3B 22 C1 4C 54 45 |...:..(18);".LTE|
00004980: 52 20 C4 49 52 45 43 54 20 C4 45 42 49 54 20 53 |R .IRECT .EBIT S|
00004990: 54 41 52 54 20 44 41 54 45 22 3B C7 28 31 34 36 |TART DATE";.(146|
000049A0: 29 3A 99 00 A9 65 BE 14 99 00 D6 65 C8 14 99 22 |):...e.....e..."|
000049B0: CF 4C 44 20 C4 49 52 45 43 54 20 C4 45 42 49 54 |.LD .IRECT .EBIT|
000049C0: 20 53 54 41 52 54 20 44 41 54 45 20 3A 20 22 3B | START DATE : ";|
000049D0: 58 44 24 28 42 29 00 09 66 D2 14 99 3A 99 22 D7 |XD$(B)..f...:.".|
000049E0: 48 41 54 20 49 53 20 54 48 45 20 4E 45 57 20 53 |HAT IS THE NEW S|
000049F0: 54 41 52 54 20 44 41 54 45 20 28 20 C4 C4 2E CD |TART DATE ( ....|
00004A00: CD 2E D9 D9 20 29 22 3A 99 00 18 66 DC 14 41 24 |.... )":...f..A$|
00004A10: B2 22 22 3A 85 20 41 24 00 52 66 E6 14 8B 20 C6 |."":. A$.Rf... .|
00004A20: 28 41 24 29 B2 30 20 B0 20 C3 28 41 24 29 B3 B1 |(A$).0 . .(A$)..|
00004A30: 38 20 A7 20 99 22 91 20 20 20 20 20 20 20 20 20 |8 . .". |
00004A40: 20 20 20 20 22 3A 99 22 91 22 3B 3A 89 20 35 33 | ":.".";:. 53|
00004A50: 34 30 00 5D 66 F0 14 8D 20 33 32 38 30 00 75 66 |40.]f... 3280.uf|
00004A60: FA 14 8B 20 C3 28 41 24 29 B3 B1 38 20 A7 20 89 |... .(A$)..8 . .|
00004A70: 20 35 33 35 30 00 82 66 04 15 E8 3A 89 20 34 39 | 5350..f...:. 49|
00004A80: 33 30 00 88 66 0E 15 3A 00 AF 66 18 15 8F 20 2A |30..f..:..f... *|
00004A90: 2A 2A 20 41 4C 54 45 52 20 44 49 52 45 43 54 20 |** ALTER DIRECT |
00004AA0: 44 45 42 49 54 20 50 52 49 43 45 20 2A 2A 2A 00 |DEBIT PRICE ***.|
00004AB0: E9 66 22 15 E8 3A 99 C7 28 31 38 29 3B 22 C1 4C |.f"..:..(18);".L|
00004AC0: 54 45 52 20 54 48 45 20 50 52 49 43 45 20 4F 46 |TER THE PRICE OF|
00004AD0: 20 41 20 C4 49 52 45 43 54 20 C4 45 42 49 54 22 | A .IRECT .EBIT"|
00004AE0: 3B C7 28 31 34 36 29 3A 99 00 05 67 2C 15 99 3A |;.(146):...g,..:|
00004AF0: 99 22 CF 4C 44 20 50 52 49 43 45 20 5C 20 22 3B |.".LD PRICE \ ";|
00004B00: 44 4D 28 42 29 00 26 67 36 15 99 3A 99 22 D7 48 |DM(B).&g6..:.".H|
00004B10: 41 54 20 49 53 20 54 48 45 20 4E 45 57 20 50 52 |AT IS THE NEW PR|
00004B20: 49 43 45 22 3A 99 00 32 67 40 15 43 B2 30 3A 85 |ICE":..2g@.C.0:.|
00004B30: 20 43 00 6F 67 4A 15 8B 20 43 B2 30 20 B0 20 43 | C.ogJ.. C.0 . C|
00004B40: B3 2E 30 31 20 B0 20 43 B1 39 39 39 39 39 39 20 |..01 . C.999999 |
00004B50: A7 20 99 22 91 20 20 20 20 20 20 20 20 20 20 20 |. .". |
00004B60: 20 22 3A 99 22 91 22 3B 3A 89 20 35 34 34 30 00 | ":.".";:. 5440.|
00004B70: 7C 67 54 15 E8 3A 89 20 34 39 33 30 00 82 67 5E ||gT..:. 4930..g^|
00004B80: 15 3A 00 BB 67 68 15 8F 20 2A 2A 2A 20 52 45 54 |.:..gh.. *** RET|
00004B90: 55 52 4E 20 54 4F 20 4D 45 4E 55 20 41 46 54 45 |URN TO MENU AFTE|
00004BA0: 52 20 41 4C 54 45 52 49 4E 47 20 44 49 52 45 43 |R ALTERING DIREC|
00004BB0: 54 20 44 45 42 49 54 20 2A 2A 2A 00 E8 67 72 15 |T DEBIT ***..gr.|
00004BC0: E8 3A 99 C7 28 31 38 29 3B 22 C1 4C 54 45 52 20 |.:..(18);".LTER |
00004BD0: 41 20 C4 49 52 45 43 54 20 C4 45 42 49 54 22 3B |A .IRECT .EBIT";|
00004BE0: C7 28 31 34 36 29 3A 99 00 0B 68 7C 15 99 3A 99 |.(146):...h|..:.|
00004BF0: 22 CE 45 57 20 C4 49 52 45 43 54 20 C4 45 42 49 |".EW .IRECT .EBI|
00004C00: 54 20 CE 41 4D 45 20 3A 20 22 3B 00 4E 68 86 15 |T .AME : ";.Nh..|
00004C10: 99 FB 22 23 23 23 23 23 23 23 23 23 23 23 23 23 |.."#############|
00004C20: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 |################|
00004C30: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 |################|
00004C40: 23 23 23 23 23 23 23 23 22 3B 42 24 3A 99 00 73 |########";B$:..s|
00004C50: 68 90 15 99 22 CE 45 57 20 D3 54 41 52 54 20 C4 |h...".EW .TART .|
00004C60: 41 54 45 20 20 20 20 20 20 20 20 3A 20 22 3B 41 |ATE : ";A|
00004C70: 24 3A 99 00 96 68 9A 15 99 22 CE 45 57 20 C1 4D |$:...h...".EW .M|
00004C80: 4F 55 4E 54 20 20 20 20 20 20 20 20 20 20 20 20 |OUNT |
00004C90: 5C 22 3B 43 3A 99 00 D5 68 A4 15 99 22 C4 49 52 |\";C:...h...".IR|
00004CA0: 45 43 54 20 C4 45 42 49 54 20 44 45 54 41 49 4C |ECT .EBIT DETAIL|
00004CB0: 53 20 43 48 41 4E 47 45 44 2C 20 D0 52 45 53 53 |S CHANGED, .RESS|
00004CC0: 20 41 4E 59 20 4B 45 59 20 54 4F 20 43 4F 4E 54 | ANY KEY TO CONT|
00004CD0: 49 4E 55 45 22 00 E3 68 AE 15 44 4D 24 28 42 29 |INUE"..h..DM$(B)|
00004CE0: B2 42 24 00 EF 68 B8 15 44 4D 28 42 29 B2 43 00 |.B$..h..DM(B).C.|
00004CF0: FD 68 C2 15 58 44 24 28 42 29 B2 41 24 00 07 69 |.h..XD$(B).A$..i|
00004D00: CC 15 A1 F9 20 43 24 00 12 69 D6 15 89 20 33 34 |.... C$..i... 34|
00004D10: 35 30 00 18 69 E0 15 3A 00 4F 69 EA 15 8F 20 2A |50..i..:.Oi... *|
00004D20: 2A 2A 20 53 45 4C 45 43 54 20 57 45 54 48 45 52 |** SELECT WETHER|
00004D30: 20 50 52 49 4E 54 20 54 4F 20 53 43 52 45 45 4E | PRINT TO SCREEN|
00004D40: 20 4F 52 20 50 52 49 4E 54 45 52 20 2A 2A 2A 00 | OR PRINTER ***.|
00004D50: 88 69 F4 15 99 C7 28 31 38 29 3B 22 D0 52 49 4E |.i....(18);".RIN|
00004D60: 54 20 53 54 41 54 45 4D 45 4E 54 20 54 4F 20 53 |T STATEMENT TO S|
00004D70: 43 52 45 45 4E 20 4F 52 20 50 52 49 4E 54 45 52 |CREEN OR PRINTER|
00004D80: 22 3B C7 28 31 34 36 29 00 D9 69 FE 15 99 3A 99 |";.(146)..i...:.|
00004D90: 22 C4 4F 20 59 4F 55 20 57 41 4E 54 20 54 48 45 |".O YOU WANT THE|
00004DA0: 20 53 54 41 54 45 4D 45 4E 54 20 50 52 49 4E 54 | STATEMENT PRINT|
00004DB0: 45 44 20 4F 4E 20 53 43 52 45 45 4E 20 4F 52 20 |ED ON SCREEN OR |
00004DC0: 54 4F 20 54 48 45 20 50 52 49 4E 54 45 52 20 28 |TO THE PRINTER (|
00004DD0: 20 D3 20 2F 20 D0 20 29 22 00 E2 69 08 16 A1 F9 | . / . )"..i....|
00004DE0: 41 24 00 08 6A 12 16 8B 20 41 24 B3 B1 22 53 22 |A$..j... A$.."S"|
00004DF0: 20 AF 20 41 24 B3 B1 22 50 22 20 A7 20 99 20 C7 | . A$.."P" . . .|
00004E00: 28 37 29 3B 22 9D 22 3B 00 1E 6A 1C 16 8B 20 41 |(7);".";..j... A|
00004E10: 24 B2 22 53 22 20 A7 20 89 20 31 36 34 30 00 36 |$."S" . . 1640.6|
00004E20: 6A 26 16 8B 20 41 24 B2 22 50 22 20 A7 20 E8 3A |j&.. A$."P" . .:|
00004E30: 89 20 31 39 33 30 00 41 6A 30 16 89 20 35 36 34 |. 1930.Aj0.. 564|
00004E40: 30 00 47 6A 3A 16 3A 00 6F 6A 44 16 8F 20 2A 2A |0.Gj:.:.ojD.. **|
00004E50: 2A 20 41 4C 54 45 52 20 44 45 4C 45 54 45 20 42 |* ALTER DELETE B|
00004E60: 41 4E 4B 20 52 45 43 4F 52 44 53 20 2A 2A 2A 00 |ANK RECORDS ***.|
00004E70: 80 6A 4E 16 8B 20 43 54 B3 31 20 A7 20 E8 3A 8E |.jN.. CT.1 . .:.|
00004E80: 00 86 6A 58 16 E8 00 B9 6A 62 16 99 C7 28 31 38 |..jX....jb...(18|
00004E90: 29 3B 22 C1 4C 54 45 52 20 4F 52 20 C4 45 4C 45 |);".LTER OR .ELE|
00004EA0: 54 45 20 C2 41 4E 4B 20 D2 45 43 4F 52 44 53 22 |TE .ANK .ECORDS"|
00004EB0: 3B C7 28 31 34 36 29 3A 99 00 C4 6A 6C 16 8D 20 |;.(146):...jl.. |
00004EC0: 32 36 37 30 00 0A 6B 76 16 99 3A 99 22 D7 48 41 |2670..kv..:.".HA|
00004ED0: 54 20 49 53 20 54 48 45 20 44 41 54 45 20 4F 46 |T IS THE DATE OF|
00004EE0: 20 54 48 45 20 46 49 4C 45 20 59 4F 55 20 57 49 | THE FILE YOU WI|
00004EF0: 53 48 20 54 4F 20 45 44 49 54 20 28 20 C4 C4 2E |SH TO EDIT ( ...|
00004F00: CD CD 2E D9 D9 20 29 22 3A 99 00 13 6B 80 16 85 |..... )":...k...|
00004F10: 20 41 24 00 52 6B 8A 16 8B 20 C3 28 41 24 29 B3 | A$.Rk... .(A$).|
00004F20: B1 38 20 A7 20 99 22 91 20 20 20 20 20 20 20 20 |.8 . .". |
00004F30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00004F40: 20 20 20 20 22 3A 99 22 91 22 3B 3A 89 20 35 37 | ":.".";:. 57|
00004F50: 36 30 00 5D 6B 94 16 8D 20 33 32 38 30 00 75 6B |60.]k... 3280.uk|
00004F60: 9E 16 8B 20 C3 28 41 24 29 B3 B1 38 20 A7 20 89 |... .(A$)..8 . .|
00004F70: 20 35 37 37 30 00 A5 6B A8 16 42 24 B2 C8 28 44 | 5770..k..B$..(D|
00004F80: 59 24 28 4E 5A 29 2C 33 29 AA C4 28 44 5A 29 AA |Y$(NZ),3)..(DZ).|
00004F90: 22 20 22 AA 58 4D 24 28 4D 5A 29 AA 22 9D 22 AA |" ".XM$(MZ).".".|
00004FA0: C4 28 59 5A 29 00 B8 6B B2 16 FE 1A 20 30 2C 32 |.(YZ)..k.... 0,2|
00004FB0: 2C 37 39 2C 32 34 2C 31 00 05 6C BC 16 99 22 A5 |,79,24,1..l...".|
00004FC0: 20 20 C3 52 45 44 49 54 20 20 20 A5 20 20 20 C4 | .REDIT . .|
00004FD0: 45 42 49 54 20 20 20 A5 20 C5 58 50 4C 41 4E 41 |EBIT . .XPLANA|
00004FE0: 54 49 4F 4E 20 20 20 20 20 20 20 20 20 20 20 20 |TION |
00004FF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 A5 | .|
00005000: 22 3B 42 24 3B 00 19 6C C6 16 8B 20 44 5A B3 31 |";B$;..l... DZ.1|
00005010: 30 20 A7 20 99 22 20 22 3B 00 23 6C D0 16 99 22 |0 . ." ";.#l..."|
00005020: 20 AA 22 00 7B 6C DA 16 99 22 C0 C0 C0 C0 C0 C0 | .".{l..."......|
00005030: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00005040: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00005050: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00005060: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00005070: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 22 00 8E 6C E4 16 |.........."..l..|
00005080: FE 1A 20 30 2C 34 2C 37 39 2C 32 34 2C 31 00 94 |.. 0,4,79,24,1..|
00005090: 6C EE 16 99 00 A3 6C F8 16 81 20 41 B2 31 20 A4 |l.....l... A.1 .|
000050A0: 20 43 54 00 BB 6C 02 17 8B 20 41 24 B2 44 24 28 | CT..l... A$.D$(|
000050B0: 41 29 20 A7 20 89 20 35 39 36 30 00 C3 6C 0C 17 |A) . . 5960..l..|
000050C0: 82 20 41 00 CD 6C 16 17 99 3A 99 3A 99 00 20 6D |. A..l...:.:.. m|
000050D0: 20 17 99 3A 99 C7 28 31 38 29 3B 22 C5 4E 44 20 | ..:..(18);".ND |
000050E0: 4F 46 20 4D 41 54 43 48 49 4E 47 20 52 45 43 4F |OF MATCHING RECO|
000050F0: 52 44 53 2C 20 D0 52 45 53 53 20 41 4E 59 20 4B |RDS, .RESS ANY K|
00005100: 45 59 20 54 4F 20 52 45 54 55 52 4E 20 54 4F 20 |EY TO RETURN TO |
00005110: 54 48 45 20 4D 41 49 4E 20 53 43 52 45 45 4E 22 |THE MAIN SCREEN"|
00005120: 00 2C 6D 2A 17 99 C7 28 31 34 36 29 00 4D 6D 34 |.,m*...(146).Mm4|
00005130: 17 A1 F9 41 24 3A FE 1A 20 30 2C 32 2C 37 39 2C |...A$:.. 0,2,79,|
00005140: 32 34 2C 31 3A E8 3A 89 20 35 37 30 30 00 53 6D |24,1:.:. 5700.Sm|
00005150: 3E 17 3A 00 89 6D 48 17 8F 20 2A 2A 2A 20 50 52 |>.:..mH.. *** PR|
00005160: 49 4E 54 20 4C 49 4E 45 20 54 4F 20 53 43 52 45 |INT LINE TO SCRE|
00005170: 45 4E 20 46 4F 52 20 41 4C 54 45 52 20 2F 20 44 |EN FOR ALTER / D|
00005180: 45 4C 45 54 45 20 2A 2A 2A 00 B7 6D 52 17 8B 20 |ELETE ***..mR.. |
00005190: 4D 49 28 41 29 B2 30 20 A7 20 99 20 22 A5 22 3B |MI(A).0 . . ".";|
000051A0: 3A 99 20 22 20 20 20 20 20 20 20 20 20 20 22 3B |:. " ";|
000051B0: 3A 89 20 35 39 39 30 00 D8 6D 5C 17 99 22 A5 22 |:. 5990..m\.."."|
000051C0: 3B 3A 99 20 FB 22 23 23 23 23 23 23 23 2E 23 23 |;:. ."#######.##|
000051D0: 22 3B 4D 49 28 41 29 3B 00 10 6E 66 17 8B 20 4D |";MI(A);..nf.. M|
000051E0: 4F 28 41 29 B2 30 20 A7 20 99 20 22 20 A5 22 3B |O(A).0 . . " .";|
000051F0: 3A 99 20 22 20 20 20 20 20 20 20 20 20 20 22 3B |:. " ";|
00005200: 3A 99 20 22 20 A5 20 22 3B 3A 89 20 36 30 31 30 |:. " . ";:. 6010|
00005210: 00 39 6E 70 17 99 22 20 A5 22 3B 3A 99 FB 22 23 |.9np.." .";:.."#|
00005220: 23 23 23 23 23 23 2E 23 23 22 3B 4D 4F 28 41 29 |######.##";MO(A)|
00005230: 3B 3A 99 22 20 A5 20 22 3B 00 79 6E 7A 17 99 FB |;:." . ";.ynz...|
00005240: 22 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 |"###############|
00005250: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 |################|
00005260: 23 23 23 23 23 23 22 3B 45 58 24 28 41 29 3B 3A |######";EX$(A);:|
00005270: 99 22 20 A5 20 20 20 22 3B 00 99 6E 84 17 99 FB |." . ";..n....|
00005280: 22 23 23 23 23 23 23 23 23 22 3B 44 24 28 41 29 |"########";D$(A)|
00005290: 3B 3A 99 22 20 20 20 AA 22 00 DA 6E 8E 17 99 3A |;:." ."..n...:|
000052A0: 99 22 C9 53 20 54 48 49 53 20 54 48 45 20 52 45 |.".S THIS THE RE|
000052B0: 43 4F 52 44 20 59 4F 55 20 57 49 53 48 20 54 4F |CORD YOU WISH TO|
000052C0: 20 C1 4C 54 45 52 20 2F 20 C4 45 4C 45 54 45 20 | .LTER / .ELETE |
000052D0: 28 20 D9 20 2F 20 CE 20 29 22 00 E4 6E 98 17 A1 |( . / . )"..n...|
000052E0: F9 20 5A 24 00 03 6F A2 17 8B 20 5A 24 B2 22 59 |. Z$..o... Z$."Y|
000052F0: 22 20 A7 20 43 B2 41 3A 41 B2 43 54 3A 89 20 36 |" . C.A:A.CT:. 6|
00005300: 30 39 30 00 5D 6F AC 17 8B 20 5A 24 B2 22 4E 22 |090.]o... Z$."N"|
00005310: 20 A7 20 99 22 91 20 20 20 20 20 20 20 20 20 20 | . .". |
00005320: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00005330: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00005340: 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3A 99 | ":.|
00005350: 22 91 91 91 22 3B 3A 89 20 35 39 30 30 00 73 6F |"...";:. 5900.so|
00005360: B6 17 99 C7 28 37 29 3B 22 9D 22 3B 3A 89 20 36 |....(7);".";:. 6|
00005370: 30 34 30 00 79 6F C0 17 3A 00 A6 6F CA 17 8F 20 |040.yo..:..o... |
00005380: 2A 2A 2A 20 41 4C 54 45 52 20 44 45 4C 45 54 45 |*** ALTER DELETE|
00005390: 20 41 20 53 45 4C 45 43 54 45 44 20 52 45 43 4F | A SELECTED RECO|
000053A0: 52 44 20 2A 2A 2A 00 E9 6F D4 17 99 22 91 20 20 |RD ***..o...". |
000053B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000053C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000053D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000053E0: 20 20 20 20 20 20 20 22 3A 00 28 70 DE 17 99 3A | ":.(p...:|
000053F0: 99 22 C4 4F 20 59 4F 55 20 57 49 53 48 20 54 4F |.".O YOU WISH TO|
00005400: 20 C1 4C 54 45 52 20 4F 52 20 C4 45 4C 45 54 45 | .LTER OR .ELETE|
00005410: 20 54 48 49 53 20 52 45 43 4F 52 44 20 28 20 C1 | THIS RECORD ( .|
00005420: 20 2F 20 C4 20 29 20 22 00 31 70 E8 17 A1 F9 41 | / . ) ".1p....A|
00005430: 24 00 47 70 F2 17 8B 20 41 24 B2 22 41 22 20 A7 |$.Gp... A$."A" .|
00005440: 20 89 20 36 31 37 30 00 5D 70 FC 17 8B 20 41 24 | . 6170.]p... A$|
00005450: B2 22 44 22 20 A7 20 89 20 36 39 34 30 00 73 70 |."D" . . 6940.sp|
00005460: 06 18 99 C7 28 37 29 3B 22 9D 22 3B 3A 89 20 36 |....(7);".";:. 6|
00005470: 31 32 30 00 79 70 10 18 3A 00 9F 70 1A 18 8F 20 |120.yp..:..p... |
00005480: 2A 2A 2A 20 41 4C 54 45 52 20 41 20 53 45 4C 45 |*** ALTER A SELE|
00005490: 43 54 45 44 20 52 45 43 4F 52 44 20 2A 2A 2A 00 |CTED RECORD ***.|
000054A0: D9 70 24 18 FE 1A 20 30 2C 32 2C 37 39 2C 32 34 |.p$... 0,2,79,24|
000054B0: 2C 31 3A 49 4D B2 4D 49 28 43 29 3A 4F 4D B2 4D |,1:IM.MI(C):OM.M|
000054C0: 4F 28 43 29 3A 45 50 24 B2 45 58 24 28 43 29 3A |O(C):EP$.EX$(C):|
000054D0: 44 58 24 B2 44 24 28 43 29 00 FE 70 2E 18 99 C7 |DX$.D$(C)..p....|
000054E0: 28 31 38 29 3B 22 C1 4C 54 45 52 20 41 20 52 45 |(18);".LTER A RE|
000054F0: 43 4F 52 44 22 3B C7 28 31 34 36 29 3A 99 00 24 |CORD";.(146):..$|
00005500: 71 38 18 99 22 CF 52 49 47 49 4E 41 4C 20 C3 52 |q8..".RIGINAL .R|
00005510: 45 44 49 54 20 C1 4D 4F 55 4E 54 20 5C 22 3B 4D |EDIT .MOUNT \";M|
00005520: 49 28 43 29 00 47 71 42 18 99 22 CE 45 57 20 20 |I(C).GqB..".EW |
00005530: 20 20 20 20 C3 52 45 44 49 54 20 C1 4D 4F 55 4E | .REDIT .MOUN|
00005540: 54 20 5C 22 3B 49 4D 00 78 71 4C 18 99 22 D3 45 |T \";IM.xqL..".E|
00005550: 4C 45 43 54 20 28 20 31 20 29 20 54 4F 20 41 4C |LECT ( 1 ) TO AL|
00005560: 54 45 52 20 54 48 45 20 C3 52 45 44 49 54 20 C1 |TER THE .REDIT .|
00005570: 4D 4F 55 4E 54 22 3A 99 00 9E 71 56 18 99 22 CF |MOUNT":...qV..".|
00005580: 52 49 47 49 4E 41 4C 20 20 C4 45 42 49 54 20 C1 |RIGINAL .EBIT .|
00005590: 4D 4F 55 4E 54 20 5C 22 3B 4D 4F 28 43 29 00 C1 |MOUNT \";MO(C)..|
000055A0: 71 60 18 99 22 CE 45 57 20 20 20 20 20 20 20 C4 |q`..".EW .|
000055B0: 45 42 49 54 20 C1 4D 4F 55 4E 54 20 5C 22 3B 4F |EBIT .MOUNT \";O|
000055C0: 4D 00 F2 71 6A 18 99 22 D3 45 4C 45 43 54 20 28 |M..qj..".ELECT (|
000055D0: 20 32 20 29 20 54 4F 20 41 4C 54 45 52 20 54 48 | 2 ) TO ALTER TH|
000055E0: 45 20 C4 45 42 49 54 20 20 C1 4D 4F 55 4E 54 22 |E .EBIT .MOUNT"|
000055F0: 3A 99 00 14 72 74 18 99 22 CF 52 49 47 49 4E 41 |:...rt..".RIGINA|
00005600: 4C 20 C5 58 50 4C 41 4E 41 54 49 4F 4E 20 20 20 |L .XPLANATION |
00005610: 3A 20 22 3B 00 5B 72 7E 18 99 FB 22 23 23 23 23 |: ";.[r~..."####|
00005620: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 |################|
00005630: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 |################|
00005640: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 |################|
00005650: 23 23 23 22 3B 45 58 24 28 43 29 00 7D 72 88 18 |###";EX$(C).}r..|
00005660: 99 22 CE 45 57 20 C5 58 50 4C 41 4E 41 54 49 4F |.".EW .XPLANATIO|
00005670: 4E 20 20 20 20 20 20 20 20 3A 20 22 3B 00 C1 72 |N : ";..r|
00005680: 92 18 99 FB 22 23 23 23 23 23 23 23 23 23 23 23 |...."###########|
00005690: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 |################|
000056A0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 |################|
000056B0: 23 23 23 23 23 23 23 23 23 23 23 23 22 3B 45 50 |############";EP|
000056C0: 24 00 F6 72 9C 18 99 22 D3 45 4C 45 43 54 20 28 |$..r...".ELECT (|
000056D0: 20 33 20 29 20 54 4F 20 41 4C 54 45 52 20 54 48 | 3 ) TO ALTER TH|
000056E0: 45 20 C5 58 50 4C 41 4E 41 54 49 4F 4E 20 46 49 |E .XPLANATION FI|
000056F0: 45 4C 44 22 3A 99 00 1D 73 A6 18 99 22 CF 52 49 |ELD":...s...".RI|
00005700: 47 49 4E 41 4C 20 C4 41 54 45 20 20 20 20 20 20 |GINAL .ATE |
00005710: 20 20 20 20 3A 20 22 3B 44 24 28 43 29 00 42 73 | : ";D$(C).Bs|
00005720: B0 18 99 22 CE 45 57 20 C4 41 54 45 20 20 20 20 |...".EW .ATE |
00005730: 20 20 20 20 20 20 20 20 20 20 20 3A 20 22 3B 44 | : ";D|
00005740: 58 24 00 6A 73 BA 18 99 22 D3 45 4C 45 43 54 20 |X$.js...".ELECT |
00005750: 28 20 34 20 29 20 54 4F 20 41 4C 54 45 52 20 54 |( 4 ) TO ALTER T|
00005760: 48 45 20 C4 41 54 45 22 3A 99 00 93 73 C4 18 99 |HE .ATE":...s...|
00005770: 3A 99 22 D3 45 4C 45 43 54 20 28 20 35 20 29 20 |:.".ELECT ( 5 ) |
00005780: 54 4F 20 C5 58 49 54 20 C1 4C 54 45 52 49 4E 47 |TO .XIT .LTERING|
00005790: 22 3A 99 00 C2 73 CE 18 99 C7 28 31 38 29 3B 22 |":...s....(18);"|
000057A0: D0 4C 45 41 53 45 20 4D 41 4B 45 20 59 4F 55 52 |.LEASE MAKE YOUR|
000057B0: 20 53 45 4C 45 43 54 49 4F 4E 22 3B C7 28 31 34 | SELECTION";.(14|
000057C0: 36 29 00 CC 73 D8 18 A1 F9 20 41 24 00 F7 73 E2 |6)..s.... A$..s.|
000057D0: 18 8B 20 41 24 B3 22 31 22 20 B0 20 41 24 B1 22 |.. A$."1" . A$."|
000057E0: 35 22 20 A7 20 99 20 C7 28 37 29 3B 22 9D 22 3B |5" . . .(7);".";|
000057F0: 3A 89 20 36 33 36 30 00 03 74 EC 18 41 B2 C5 28 |:. 6360..t..A..(|
00005800: 41 24 29 00 26 74 F6 18 91 20 41 20 89 20 36 35 |A$).&t... A . 65|
00005810: 32 30 2C 36 36 33 30 2C 36 37 34 30 2C 36 38 33 |20,6630,6740,683|
00005820: 30 2C 36 34 31 30 00 31 74 00 19 89 20 36 33 36 |0,6410.1t... 636|
00005830: 30 00 5C 74 0A 19 4D 49 28 43 29 B2 49 4D 3A 4D |0.\t..MI(C).IM:M|
00005840: 4F 28 43 29 B2 4F 4D 3A 45 58 24 28 43 29 B2 45 |O(C).OM:EX$(C).E|
00005850: 50 24 3A 44 24 28 43 29 B2 44 58 24 00 85 74 14 |P$:D$(C).DX$..t.|
00005860: 19 E8 3A 99 C7 28 31 38 29 3B 22 D2 45 43 4F 52 |..:..(18);".ECOR|
00005870: 44 20 C3 48 41 4E 47 45 44 22 3B C7 28 31 34 36 |D .HANGED";.(146|
00005880: 29 3A 99 3A 99 00 A8 74 1E 19 99 22 CE 45 57 20 |):.:...t...".EW |
00005890: C3 52 45 44 49 54 20 C1 4D 4F 55 4E 54 20 5C 22 |.REDIT .MOUNT \"|
000058A0: 3B 4D 49 28 43 29 3A 99 00 CB 74 28 19 99 22 CE |;MI(C):...t(..".|
000058B0: 45 57 20 C4 45 42 49 54 20 C1 4D 4F 55 4E 54 20 |EW .EBIT .MOUNT |
000058C0: 20 5C 22 3B 4D 4F 28 43 29 3A 99 00 E8 74 32 19 | \";MO(C):...t2.|
000058D0: 99 22 CE 45 57 20 C5 58 50 4C 41 4E 41 54 49 4F |.".EW .XPLANATIO|
000058E0: 4E 20 20 20 3A 20 22 3B 00 36 75 3C 19 99 FB 22 |N : ";.6u<..."|
000058F0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 |################|
00005900: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 |################|
00005910: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 |################|
00005920: 23 23 23 23 23 23 23 23 23 23 23 23 22 3B 45 58 |############";EX|
00005930: 24 28 43 29 3A 99 00 5E 75 46 19 99 22 CE 45 57 |$(C):..^uF..".EW|
00005940: 20 C4 41 54 45 20 20 20 20 20 20 20 20 20 20 3A | .ATE :|
00005950: 20 22 3B 44 24 28 43 29 3A 99 3A 42 B2 31 00 A5 | ";D$(C):.:B.1..|
00005960: 75 50 19 99 3A 99 22 C1 4C 4C 20 44 45 54 41 49 |uP..:.".LL DETAI|
00005970: 4C 53 20 43 48 41 4E 47 45 44 2C 20 D0 52 45 53 |LS CHANGED, .RES|
00005980: 53 20 41 4E 59 20 4B 45 59 20 54 4F 20 52 45 54 |S ANY KEY TO RET|
00005990: 55 52 4E 20 54 4F 20 54 48 45 20 4D 41 49 4E 20 |URN TO THE MAIN |
000059A0: 4D 45 4E 55 22 00 AF 75 5A 19 A1 F9 20 41 24 00 |MENU"..uZ... A$.|
000059B0: B7 75 64 19 E8 3A 8E 00 BD 75 6E 19 3A 00 E3 75 |.ud..:...un.:..u|
000059C0: 78 19 8F 20 2A 2A 2A 20 41 4C 54 45 52 20 54 48 |x.. *** ALTER TH|
000059D0: 45 20 43 52 45 44 49 54 20 41 4D 4F 55 4E 54 20 |E CREDIT AMOUNT |
000059E0: 2A 2A 2A 00 E9 75 82 19 E8 00 3C 76 8C 19 99 C7 |***..u....<v....|
000059F0: 28 31 38 29 3B 22 C1 4C 54 45 52 20 C3 52 45 44 |(18);".LTER .RED|
00005A00: 49 54 20 C1 4D 4F 55 4E 54 22 3B C7 28 31 34 36 |IT .MOUNT";.(146|
00005A10: 29 3B 22 20 20 20 20 20 20 20 20 20 20 20 20 20 |);" |
00005A20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00005A30: 20 20 20 20 20 20 20 20 20 22 3A 99 00 62 76 96 | ":..bv.|
00005A40: 19 99 22 CF 52 49 47 49 4E 41 4C 20 C3 52 45 44 |..".RIGINAL .RED|
00005A50: 49 54 20 C1 4D 4F 55 4E 54 20 5C 22 3B 4D 49 28 |IT .MOUNT \";MI(|
00005A60: 43 29 00 8B 76 A0 19 99 3A 99 22 D7 48 41 54 20 |C)..v...:.".HAT |
00005A70: 49 53 20 54 48 45 20 4E 45 57 20 C3 52 45 44 49 |IS THE NEW .REDI|
00005A80: 54 20 C1 4D 4F 55 4E 54 22 3A 99 00 99 76 AA 19 |T .MOUNT":...v..|
00005A90: 49 4D B2 30 3A 85 20 49 4D 00 EB 76 B4 19 8B 20 |IM.0:. IM..v... |
00005AA0: 49 4D B3 30 20 B0 20 49 4D B1 39 39 39 39 39 39 |IM.0 . IM.999999|
00005AB0: 39 20 A7 20 99 22 91 20 20 20 20 20 20 20 20 20 |9 . .". |
00005AC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00005AD0: 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3A 99 | ":.|
00005AE0: 22 91 22 3B 3A 89 20 36 35 37 30 00 14 77 BE 19 |".";:. 6570..w..|
00005AF0: 8B 20 49 4D B3 B2 30 20 AF 20 4F 4D B2 30 20 A7 |. IM..0 . OM.0 .|
00005B00: 20 49 4D B2 AB 31 3A 89 20 37 39 30 30 3A 89 20 | IM..1:. 7900:. |
00005B10: 36 35 38 30 00 26 77 C8 19 8B 20 49 4D B1 30 20 |6580.&w... IM.0 |
00005B20: A7 20 4F 4D B2 30 00 33 77 D2 19 E8 3A 89 20 36 |. OM.0.3w...:. 6|
00005B30: 31 39 30 00 39 77 DC 19 3A 00 5E 77 E6 19 8F 20 |190.9w..:.^w... |
00005B40: 2A 2A 2A 20 41 4C 54 45 52 20 54 48 45 20 44 45 |*** ALTER THE DE|
00005B50: 42 49 54 20 41 4D 4F 55 4E 54 20 2A 2A 2A 00 64 |BIT AMOUNT ***.d|
00005B60: 77 F0 19 E8 00 C7 77 FA 19 99 C7 28 31 38 29 3B |w.....w....(18);|
00005B70: 22 C1 4C 54 45 52 20 C4 45 42 49 54 20 C1 4D 4F |".LTER .EBIT .MO|
00005B80: 55 4E 54 22 3B C7 28 31 34 36 29 3B 22 20 20 20 |UNT";.(146);" |
00005B90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00005BA0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00005BB0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00005BC0: 20 20 20 20 22 3A 99 00 ED 77 04 1A 99 22 CF 52 | ":...w...".R|
00005BD0: 49 47 49 4E 41 4C 20 20 C4 45 42 49 54 20 C1 4D |IGINAL .EBIT .M|
00005BE0: 4F 55 4E 54 20 5C 22 3B 4D 4F 28 43 29 00 15 78 |OUNT \";MO(C)..x|
00005BF0: 0E 1A 99 3A 99 22 D7 48 41 54 20 49 53 20 54 48 |...:.".HAT IS TH|
00005C00: 45 20 4E 45 57 20 C4 45 42 49 54 20 C1 4D 4F 55 |E NEW .EBIT .MOU|
00005C10: 4E 54 22 3A 99 00 23 78 18 1A 4F 4D B2 30 3A 85 |NT":..#x..OM.0:.|
00005C20: 20 4F 4D 00 5D 78 22 1A 8B 20 4F 4D B3 30 20 B0 | OM.]x".. OM.0 .|
00005C30: 20 4F 4D B1 39 39 39 39 39 39 39 20 A7 20 99 22 | OM.9999999 . ."|
00005C40: 91 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 |. "|
00005C50: 3A 99 22 91 22 3B 3A 89 20 36 36 38 30 00 7F 78 |:.".";:. 6680..x|
00005C60: 2C 1A 8B 20 4F 4D B3 B2 30 20 AF 20 49 4D B2 30 |,.. OM..0 . IM.0|
00005C70: 20 A7 20 4F 4D B2 AB 31 3A 89 20 37 39 35 30 00 | . OM..1:. 7950.|
00005C80: 91 78 36 1A 8B 20 4F 4D B1 30 20 A7 20 49 4D B2 |.x6.. OM.0 . IM.|
00005C90: 30 00 9E 78 40 1A E8 3A 89 20 36 31 39 30 00 A4 |0..x@..:. 6190..|
00005CA0: 78 4A 1A 3A 00 C8 78 54 1A 8F 20 2A 2A 2A 20 41 |xJ.:..xT.. *** A|
00005CB0: 4C 54 45 52 20 54 48 45 20 45 58 50 4C 41 4E 41 |LTER THE EXPLANA|
00005CC0: 54 49 4F 4E 20 2A 2A 2A 00 F2 78 5E 1A E8 3A 99 |TION ***..x^..:.|
00005CD0: C7 28 31 38 29 3B 22 C1 4C 54 45 52 20 C5 58 50 |.(18);".LTER .XP|
00005CE0: 4C 41 4E 41 54 49 4F 4E 22 3B C7 28 31 34 36 29 |LANATION";.(146)|
00005CF0: 3A 99 00 12 79 68 1A 99 22 CF 52 49 47 49 4E 41 |:...yh..".RIGINA|
00005D00: 4C 20 C5 58 50 4C 41 4E 41 54 49 4F 4E 20 3A 20 |L .XPLANATION : |
00005D10: 22 3B 00 5B 79 72 1A 99 FB 22 23 23 23 23 23 23 |";.[yr..."######|
00005D20: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 |################|
00005D30: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 |################|
00005D40: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 |################|
00005D50: 23 23 23 22 3B 45 58 24 28 43 29 00 83 79 7C 1A |###";EX$(C)..y|.|
00005D60: 99 3A 99 22 D7 48 41 54 20 49 53 20 54 48 45 20 |.:.".HAT IS THE |
00005D70: 4E 45 57 20 C5 58 50 4C 41 4E 41 54 49 4F 4E 20 |NEW .XPLANATION |
00005D80: 22 3A 99 00 94 79 86 1A 45 50 24 B2 22 22 3A 85 |":...y..EP$."":.|
00005D90: 20 45 50 24 00 0F 7A 90 1A 8B 20 C6 28 45 50 24 | EP$..z... .(EP$|
00005DA0: 29 B2 30 20 B0 20 45 50 24 B2 22 22 20 A7 20 99 |).0 . EP$."" . .|
00005DB0: 22 91 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |". |
00005DC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00005DD0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00005DE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00005DF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00005E00: 20 22 3A 99 22 91 22 3B 3A 89 20 36 37 39 30 00 | ":.".";:. 6790.|
00005E10: 1C 7A 9A 1A E8 3A 89 20 36 31 39 30 00 22 7A A4 |.z...:. 6190."z.|
00005E20: 1A 3A 00 46 7A AE 1A 8F 20 2A 2A 2A 20 43 48 41 |.:.Fz... *** CHA|
00005E30: 4E 47 45 20 44 41 54 45 20 4F 4E 20 52 45 43 4F |NGE DATE ON RECO|
00005E40: 52 44 20 2A 2A 2A 00 74 7A B8 1A E8 3A 99 C7 28 |RD ***.tz...:..(|
00005E50: 31 38 29 3B 22 C3 48 41 4E 47 45 20 C4 41 54 45 |18);".HANGE .ATE|
00005E60: 20 4F 4E 20 D2 45 43 4F 52 44 22 3B C7 28 31 34 | ON .ECORD";.(14|
00005E70: 36 29 3A 99 00 92 7A C2 1A 99 22 CF 52 49 47 49 |6):...z...".RIGI|
00005E80: 4E 41 4C 20 C4 41 54 45 20 3A 20 22 3B 44 24 28 |NAL .ATE : ";D$(|
00005E90: 43 29 00 BF 7A CC 1A 99 3A 99 22 D7 48 41 54 20 |C)..z...:.".HAT |
00005EA0: 49 53 20 54 48 45 20 4E 45 57 20 44 41 54 45 20 |IS THE NEW DATE |
00005EB0: 28 20 C4 C4 2E CD CD 2E D9 D9 20 29 22 3A 99 00 |( ........ )":..|
00005EC0: CE 7A D6 1A 41 24 B2 22 22 3A 85 20 41 24 00 05 |.z..A$."":. A$..|
00005ED0: 7B E0 1A 8B 20 C3 28 41 24 29 B3 B1 38 20 A7 20 |{... .(A$)..8 . |
00005EE0: 99 22 91 20 20 20 20 20 20 20 20 20 20 20 20 20 |.". |
00005EF0: 20 20 20 20 20 20 20 22 3A 99 22 91 22 3B 3A 89 | ":.".";:.|
00005F00: 20 36 38 37 30 00 10 7B EA 1A 8D 20 33 32 38 30 | 6870..{... 3280|
00005F10: 00 28 7B F4 1A 8B 20 C3 28 41 24 29 B3 B1 38 20 |.({... .(A$)..8 |
00005F20: A7 20 89 20 36 38 38 30 00 33 7B FE 1A 44 58 24 |. . 6880.3{..DX$|
00005F30: B2 41 24 00 40 7B 08 1B E8 3A 89 20 36 31 39 30 |.A$.@{...:. 6190|
00005F40: 00 46 7B 12 1B 3A 00 64 7B 1C 1B 8F 20 2A 2A 2A |.F{..:.d{... ***|
00005F50: 20 44 45 4C 45 54 45 20 41 20 52 45 43 4F 52 44 | DELETE A RECORD|
00005F60: 20 2A 2A 2A 00 77 7B 26 1B FE 1A 20 30 2C 32 2C | ***.w{&... 0,2,|
00005F70: 37 39 2C 32 34 2C 31 00 9D 7B 30 1B 99 C7 28 31 |79,24,1..{0...(1|
00005F80: 38 29 3B 22 C4 45 4C 45 54 45 20 41 20 52 45 43 |8);".ELETE A REC|
00005F90: 4F 52 44 22 3B C7 28 31 34 36 29 3A 99 00 BD 7B |ORD";.(146):...{|
00005FA0: 3A 1B 99 3A 99 22 C4 41 54 45 20 20 20 20 20 20 |:..:.".ATE |
00005FB0: 20 20 20 20 3A 20 22 3B 44 24 28 43 29 00 DC 7B | : ";D$(C)..{|
00005FC0: 44 1B 99 3A 99 22 C3 52 45 44 49 54 20 C1 4D 4F |D..:.".REDIT .MO|
00005FD0: 55 4E 54 20 5C 22 3B 4D 49 28 43 29 00 FB 7B 4E |UNT \";MI(C)..{N|
00005FE0: 1B 99 3A 99 22 C4 45 42 49 54 20 20 C1 4D 4F 55 |..:.".EBIT .MOU|
00005FF0: 4E 54 20 5C 22 3B 4D 4F 28 43 29 00 16 7C 58 1B |NT \";MO(C)..|X.|
00006000: 99 3A 99 22 C5 58 50 4C 41 4E 41 54 49 4F 4E 20 |.:.".XPLANATION |
00006010: 20 20 3A 20 22 3B 00 66 7C 62 1B 99 FB 22 23 23 | : ";.f|b..."##|
00006020: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 |################|
00006030: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 |################|
00006040: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 |################|
00006050: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 22 3B |##############";|
00006060: 45 58 24 28 43 29 00 A5 7C 6C 1B 99 3A 99 22 C1 |EX$(C)..|l..:.".|
00006070: 52 45 20 59 4F 55 20 53 55 52 45 20 59 4F 55 20 |RE YOU SURE YOU |
00006080: 57 41 4E 54 20 54 4F 20 44 45 4C 45 54 45 20 54 |WANT TO DELETE T|
00006090: 48 49 53 20 52 45 43 4F 52 44 20 28 20 D9 20 2F |HIS RECORD ( . /|
000060A0: 20 CE 20 29 22 00 AE 7C 76 1B A1 F9 41 24 00 C8 | . )"..|v...A$..|
000060B0: 7C 80 1B 8B 20 41 24 B2 22 59 22 20 A7 20 99 41 ||... A$."Y" . .A|
000060C0: 24 3A 89 20 37 30 37 30 00 E0 7C 8A 1B 8B 20 41 |$:. 7070..|... A|
000060D0: 24 B2 22 4E 22 20 A7 20 E8 3A 89 20 35 37 30 30 |$."N" . .:. 5700|
000060E0: 00 F7 7C 94 1B 99 20 C7 28 37 29 3B 22 9D 22 3B |..|... .(7);".";|
000060F0: 3A 89 20 37 30 33 30 00 0F 7D 9E 1B 99 3A 99 22 |:. 7030..}...:."|
00006100: C4 45 4C 45 54 49 4E 47 20 2E 2E 2E 2E 2E 22 00 |.ELETING .....".|
00006110: 1E 7D A8 1B 81 20 41 B2 43 20 A4 20 43 54 00 30 |.}... A.C . CT.0|
00006120: 7D B2 1B 44 24 28 41 29 B2 44 24 28 41 AA 31 29 |}..D$(A).D$(A.1)|
00006130: 00 42 7D BC 1B 4D 49 28 41 29 B2 4D 49 28 41 AA |.B}..MI(A).MI(A.|
00006140: 31 29 00 54 7D C6 1B 4D 4F 28 41 29 B2 4D 4F 28 |1).T}..MO(A).MO(|
00006150: 41 AA 31 29 00 68 7D D0 1B 45 58 24 28 41 29 B2 |A.1).h}..EX$(A).|
00006160: 45 58 24 28 41 AA 31 29 00 70 7D DA 1B 82 20 41 |EX$(A.1).p}... A|
00006170: 00 89 7D E4 1B 99 22 91 D2 45 43 4F 52 44 20 C4 |..}..."..ECORD .|
00006180: 45 4C 45 54 45 44 22 3A 99 00 95 7D EE 1B 43 54 |ELETED":...}..CT|
00006190: B2 43 54 AB 31 00 D4 7D F8 1B 99 C7 28 31 38 29 |.CT.1..}....(18)|
000061A0: 3B 22 D0 4C 45 41 53 45 20 50 52 45 53 53 20 41 |;".LEASE PRESS A|
000061B0: 4E 59 20 4B 45 59 20 54 4F 20 52 45 54 55 52 4E |NY KEY TO RETURN|
000061C0: 20 54 4F 20 54 48 45 20 4D 45 4E 55 22 3B C7 28 | TO THE MENU";.(|
000061D0: 31 34 36 29 00 DD 7D 02 1C A1 F9 41 24 00 E5 7D |146)..}....A$..}|
000061E0: 0C 1C E8 3A 8E 00 EB 7D 16 1C 3A 00 0B 7E 20 1C |...:...}..:..~ .|
000061F0: 8F 20 2A 2A 2A 20 41 55 54 4F 20 44 49 52 45 43 |. *** AUTO DIREC|
00006200: 54 20 44 45 42 49 54 20 2A 2A 2A 00 11 7E 2A 1C |T DEBIT ***..~*.|
00006210: E8 00 49 7E 34 1C 99 C7 28 31 38 29 3B 22 C1 55 |..I~4...(18);".U|
00006220: 54 4F 4D 41 54 49 43 20 C4 49 52 45 43 54 20 C4 |TOMATIC .IRECT .|
00006230: 45 42 49 54 20 D7 49 54 48 44 52 41 57 41 4C 22 |EBIT .ITHDRAWAL"|
00006240: 3B C7 28 31 34 36 29 3A 99 00 63 7E 3E 1C 99 22 |;.(146):..c~>.."|
00006250: D0 4C 45 41 53 45 20 57 41 49 54 20 2E 2E 2E 2E |.LEASE WAIT ....|
00006260: 22 3A 99 00 81 7E 48 1C 46 B2 30 3A 47 B2 30 3A |":...~H.F.0:G.0:|
00006270: 8B 20 54 44 B2 30 20 B0 20 43 54 B2 30 20 A7 20 |. TD.0 . CT.0 . |
00006280: 8E 00 90 7E 52 1C 81 20 44 B2 31 20 A4 20 54 44 |...~R.. D.1 . TD|
00006290: 00 99 7E 5C 1C 50 54 B2 31 00 BD 7E 66 1C 44 44 |..~\.PT.1..~f.DD|
000062A0: B2 C5 28 C8 28 58 44 24 28 44 29 2C 32 29 29 3A |..(.(XD$(D),2)):|
000062B0: 42 44 B2 C5 28 C8 28 41 24 2C 32 29 29 00 E5 7E |BD..(.(A$,2))..~|
000062C0: 70 1C 44 4D B2 C5 28 CA 28 58 44 24 28 44 29 2C |p.DM..(.(XD$(D),|
000062D0: 34 2C 32 29 29 3A 42 4D B2 C5 28 CA 28 41 24 2C |4,2)):BM..(.(A$,|
000062E0: 34 2C 32 29 29 00 09 7F 7A 1C 44 59 B2 C5 28 C9 |4,2))...z.DY..(.|
000062F0: 28 58 44 24 28 44 29 2C 32 29 29 3A 42 59 B2 C5 |(XD$(D),2)):BY..|
00006300: 28 C9 28 41 24 2C 32 29 29 00 2A 7F 84 1C 8B 20 |(.(A$,2)).*.... |
00006310: 28 44 59 AB 42 59 29 B2 31 20 AF 20 44 4D B3 31 |(DY.BY).1 . DM.1|
00006320: 32 20 A7 20 89 20 37 35 34 30 00 43 7F 8E 1C 8B |2 . . 7540.C....|
00006330: 20 28 44 59 AB 42 59 29 B1 31 20 A7 20 89 20 37 | (DY.BY).1 . . 7|
00006340: 35 34 30 00 62 7F 98 1C 8B 20 44 59 B2 42 59 20 |540.b.... DY.BY |
00006350: AF 20 44 4D AB 42 4D B1 30 20 A7 20 89 20 37 35 |. DM.BM.0 . . 75|
00006360: 34 30 00 8A 7F A2 1C 8B 20 28 44 59 AB 42 59 29 |40...... (DY.BY)|
00006370: B2 31 20 AF 20 44 4D B2 31 32 20 AF 20 42 4D B1 |.1 . DM.12 . BM.|
00006380: 31 20 A7 20 89 20 37 35 34 30 00 A5 7F AC 1C 8B |1 . . 7540......|
00006390: 20 44 59 B2 42 59 20 AF 20 44 4D B2 42 4D 20 A7 | DY.BY . DM.BM .|
000063A0: 20 50 54 B2 32 00 D4 7F B6 1C 44 46 24 28 32 29 | PT.2.....DF$(2)|
000063B0: B2 C8 28 58 44 24 28 44 29 2C 32 29 AA 22 2E 22 |..(XD$(D),2)."."|
000063C0: AA 4E 4F 24 28 42 4D 29 AA 22 2E 22 AA 59 4E 24 |.NO$(BM).".".YN$|
000063D0: 28 42 59 29 00 F6 7F C0 1C 8B 20 42 4D B2 31 20 |(BY)...... BM.1 |
000063E0: A7 20 4D 4D B2 31 32 3A 59 59 B2 42 59 AB 31 3A |. MM.12:YY.BY.1:|
000063F0: 89 20 37 33 38 30 00 08 80 CA 1C 4D 4D B2 42 4D |. 7380.....MM.BM|
00006400: AB 31 3A 59 59 B2 42 59 00 37 80 D4 1C 44 46 24 |.1:YY.BY.7...DF$|
00006410: 28 31 29 B2 C8 28 58 44 24 28 44 29 2C 32 29 AA |(1)..(XD$(D),2).|
00006420: 22 2E 22 AA 4E 4F 24 28 4D 4D 29 AA 22 2E 22 AA |".".NO$(MM).".".|
00006430: 59 4E 24 28 59 59 29 00 59 80 DE 1C 8B 20 42 4D |YN$(YY).Y.... BM|
00006440: B2 31 32 20 A7 20 4D 4D B2 31 3A 59 59 B2 42 59 |.12 . MM.1:YY.BY|
00006450: AA 31 3A 89 20 37 34 31 30 00 6B 80 E8 1C 4D 4D |.1:. 7410.k...MM|
00006460: B2 42 4D AA 31 3A 59 59 B2 42 59 00 9A 80 F2 1C |.BM.1:YY.BY.....|
00006470: 44 46 24 28 33 29 B2 C8 28 58 44 24 28 44 29 2C |DF$(3)..(XD$(D),|
00006480: 32 29 AA 22 2E 22 AA 4E 4F 24 28 4D 4D 29 AA 22 |2).".".NO$(MM)."|
00006490: 2E 22 AA 59 4E 24 28 59 59 29 00 A9 80 FC 1C 81 |.".YN$(YY)......|
000064A0: 20 45 B2 50 54 20 A4 20 33 00 B2 80 06 1D 41 B2 | E.PT . 3.....A.|
000064B0: 43 54 00 E8 80 10 1D 8B 20 44 46 24 28 45 29 B2 |CT...... DF$(E).|
000064C0: 44 24 28 41 29 20 AF 20 C8 28 45 58 24 28 41 29 |D$(A) . .(EX$(A)|
000064D0: 2C 37 29 B2 C8 28 44 4D 24 28 44 29 2C 37 29 20 |,7)..(DM$(D),7) |
000064E0: A7 20 89 20 37 35 30 30 00 F2 80 1A 1D 41 B2 41 |. . 7500.....A.A|
000064F0: AB 31 00 22 81 24 1D 8B 20 C5 28 C9 28 44 46 24 |.1.".$.. .(.(DF$|
00006500: 28 45 29 2C 32 29 29 B1 C5 28 C9 28 44 24 28 41 |(E),2))..(.(D$(A|
00006510: 29 2C 32 29 29 20 A7 20 41 B2 31 3A 89 20 37 34 |),2)) . A.1:. 74|
00006520: 38 30 00 6F 81 2E 1D 8B 20 C5 28 C9 28 44 46 24 |80.o.... .(.(DF$|
00006530: 28 45 29 2C 32 29 29 B2 C5 28 C9 28 44 24 28 41 |(E),2))..(.(D$(A|
00006540: 29 2C 32 29 29 20 AF 20 CA 28 44 46 24 28 45 29 |),2)) . .(DF$(E)|
00006550: 2C 34 2C 32 29 B1 CA 28 44 24 28 41 29 2C 34 2C |,4,2)..(D$(A),4,|
00006560: 32 29 20 A7 20 41 B2 31 3A 89 20 37 34 38 30 00 |2) . A.1:. 7480.|
00006570: C3 81 38 1D 8B 20 41 B2 31 20 A7 20 46 B2 46 AA |..8.. A.1 . F.F.|
00006580: 31 3A 44 24 28 43 54 AA 46 29 B2 44 46 24 28 45 |1:D$(CT.F).DF$(E|
00006590: 29 3A 4D 49 28 43 54 AA 46 29 B2 30 3A 4D 4F 28 |):MI(CT.F).0:MO(|
000065A0: 43 54 AA 46 29 B2 44 4D 28 44 29 3A 45 58 24 28 |CT.F).DM(D):EX$(|
000065B0: 43 54 AA 46 29 B2 44 4D 24 28 44 29 3A 89 20 37 |CT.F).DM$(D):. 7|
000065C0: 35 32 30 00 CE 81 42 1D 89 20 37 34 34 30 00 D6 |520...B.. 7440..|
000065D0: 81 4C 1D 82 20 45 00 E1 81 56 1D 89 20 37 35 34 |.L.. E...V.. 754|
000065E0: 30 00 50 82 60 1D 99 FB 22 23 23 23 23 23 23 23 |0.P.`..."#######|
000065F0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 |################|
00006600: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 |################|
00006610: 23 23 23 23 23 23 23 22 3B 44 4D 24 28 44 29 3B |#######";DM$(D);|
00006620: 3A 99 22 20 46 4F 52 20 22 3B 44 46 24 28 45 29 |:." FOR ";DF$(E)|
00006630: 3B 22 20 4E 4F 54 20 46 4F 55 4E 44 2C 20 4E 4F |;" NOT FOUND, NO|
00006640: 57 20 41 44 44 45 44 22 3A 99 3A 47 B2 47 AA 31 |W ADDED":.:G.G.1|
00006650: 00 63 82 6A 1D 8B 20 45 B3 34 20 A7 20 89 20 37 |.c.j.. E.4 . . 7|
00006660: 35 30 30 00 6B 82 74 1D 82 20 44 00 77 82 7E 1D |500.k.t.. D.w.~.|
00006670: 43 54 B2 43 54 AA 46 00 98 82 88 1D 8B 20 47 B1 |CT.CT.F...... G.|
00006680: 30 20 A7 20 99 22 D3 4F 52 54 49 4E 47 20 2E 2E |0 . .".ORTING ..|
00006690: 22 3A 8D 20 32 33 33 30 00 C6 82 92 1D 8B 20 47 |":. 2330...... G|
000066A0: B2 30 20 A7 20 99 3A 99 22 CE 4F 20 C4 49 52 45 |.0 . .:.".O .IRE|
000066B0: 43 54 20 44 45 42 49 54 53 20 54 4F 20 41 44 44 |CT DEBITS TO ADD|
000066C0: 22 3A FE 0B 20 31 00 CC 82 9C 1D 8E 00 05 83 A6 |":.. 1..........|
000066D0: 1D 8F 20 2A 2A 2A 20 43 52 45 41 54 45 20 42 4C |.. *** CREATE BL|
000066E0: 41 4E 4B 20 53 45 51 55 45 4E 54 49 41 4C 20 46 |ANK SEQUENTIAL F|
000066F0: 49 4C 45 20 46 4F 52 20 42 41 4E 4B 20 44 41 54 |ILE FOR BANK DAT|
00006700: 41 20 2A 2A 2A 00 14 83 B0 1D 99 C7 28 37 29 3A |A ***.......(7):|
00006710: FE 0B 20 32 00 1A 83 BA 1D E8 00 23 83 C4 1D FE |.. 2.......#....|
00006720: 0F 23 31 00 55 83 CE 1D 99 22 D4 48 45 20 C2 41 |.#1.U....".HE .A|
00006730: 4E 4B 20 C4 41 54 41 20 46 49 4C 45 20 49 53 20 |NK .ATA FILE IS |
00006740: 4E 4F 54 20 4F 4E 20 54 48 49 53 20 44 49 53 4B |NOT ON THIS DISK|
00006750: 22 3A 99 3A 99 00 84 83 D8 1D 99 22 20 20 20 20 |":.:......." |
00006760: 20 20 20 20 20 20 20 20 20 20 20 22 3B 3A 99 C7 | ";:..|
00006770: 28 32 29 3B 22 CF D0 D4 C9 CF CE D3 22 3B C7 28 |(2);".......";.(|
00006780: 31 33 30 29 00 AF 83 E2 1D 99 3A 99 22 31 2E 20 |130)......:."1. |
00006790: C3 52 45 41 54 45 20 41 20 4E 45 57 20 42 4C 41 |.REATE A NEW BLA|
000067A0: 4E 4B 20 44 41 54 41 20 46 49 4C 45 22 3A 99 00 |NK DATA FILE":..|
000067B0: E0 83 EC 1D 99 3A 99 22 32 2E 20 D4 52 59 20 4C |.....:."2. .RY L|
000067C0: 4F 41 44 49 4E 47 20 46 49 4C 45 20 46 52 4F 4D |OADING FILE FROM|
000067D0: 20 41 4E 4F 54 48 45 52 20 44 49 53 4B 22 3A 99 | ANOTHER DISK":.|
000067E0: 00 FC 83 F6 1D 99 3A 99 22 33 2E 20 D1 55 49 54 |......:."3. .UIT|
000067F0: 20 54 4F 20 C2 41 53 49 43 22 3A 99 00 15 84 00 | TO .ASIC":.....|
00006800: 1E 99 3A 99 3A 99 22 D0 4C 45 41 53 45 20 53 45 |..:.:.".LEASE SE|
00006810: 4C 45 43 54 22 00 1E 84 0A 1E A1 F9 42 24 00 48 |LECT".......B$.H|
00006820: 84 14 1E 8B 20 42 24 B1 22 33 22 20 B0 20 42 24 |.... B$."3" . B$|
00006830: B3 22 31 22 20 A7 20 99 C7 28 37 29 3B 22 9D 22 |."1" . ..(7);"."|
00006840: 3B 3A 89 20 37 36 39 30 00 63 84 1E 1E 8B 20 42 |;:. 7690.c.... B|
00006850: 24 B2 22 31 22 20 A7 20 43 54 B2 30 3A 89 20 37 |$."1" . CT.0:. 7|
00006860: 37 35 30 00 C5 84 28 1E 8B 20 42 24 B2 22 32 22 |750...(.. B$."2"|
00006870: 20 A7 20 E8 3A 99 22 11 11 11 11 11 11 11 11 11 | . .:.".........|
00006880: 11 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. |
00006890: 20 20 20 20 20 20 20 C9 4E 53 45 52 54 20 C2 41 | .NSERT .A|
000068A0: 4E 4B 46 49 4C 45 20 C4 49 53 4B 20 41 4E 44 20 |NKFILE .ISK AND |
000068B0: 50 52 45 53 53 20 41 4E 59 20 4B 45 59 22 3A 89 |PRESS ANY KEY":.|
000068C0: 20 37 38 34 30 00 D6 84 32 1E 8B 20 42 24 B2 22 | 7840...2.. B$."|
000068D0: 33 22 20 A7 20 80 00 E1 84 3C 1E 89 20 37 36 39 |3" . ....<.. 769|
000068E0: 30 00 10 85 46 1E 99 3A 85 22 D0 4C 45 41 53 45 |0...F..:.".LEASE|
000068F0: 20 C5 4E 54 45 52 20 D4 4F 44 41 59 53 20 C4 41 | .NTER .ODAYS .A|
00006900: 54 45 20 C4 C4 2F CD CD 2F D9 D9 20 22 3B 41 24 |TE ../../.. ";A$|
00006910: 00 81 85 50 1E 8B 20 C3 28 41 24 29 B3 B1 38 20 |...P.. .(A$)..8 |
00006920: A7 20 99 22 91 20 20 20 20 20 20 20 20 20 20 20 |. .". |
00006930: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00006940: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00006950: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00006960: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00006970: 20 20 22 3A 99 22 91 91 91 22 3A 89 20 37 37 35 | ":."...":. 775|
00006980: 30 00 8C 85 5A 1E 8D 20 33 32 38 30 00 AD 85 64 |0...Z.. 3280...d|
00006990: 1E 8B 20 C3 28 41 24 29 B1 38 20 B0 20 C3 28 41 |.. .(A$).8 . .(A|
000069A0: 24 29 B3 38 20 A7 20 89 20 37 37 36 30 00 DE 85 |$).8 . . 7760...|
000069B0: 6E 1E 44 54 24 B2 C8 28 44 59 24 28 4E 5A 29 2C |n.DT$..(DY$(NZ),|
000069C0: 33 29 AA C4 28 44 5A 29 AA 22 20 22 AA 58 4D 24 |3)..(DZ)." ".XM$|
000069D0: 28 4D 5A 29 AA 22 9D 22 AA C4 28 59 5A 29 00 E9 |(MZ)."."..(YZ)..|
000069E0: 85 78 1E 54 44 24 B2 41 24 00 07 86 82 1E 86 44 |.x.TD$.A$......D|
000069F0: 24 28 31 29 2C 4D 49 28 31 29 2C 4D 4F 28 31 29 |$(1),MI(1),MO(1)|
00006A00: 2C 45 58 24 28 31 29 00 11 86 8C 1E 8D 20 38 32 |,EX$(1)...... 82|
00006A10: 30 00 17 86 96 1E 8A 00 2A 86 A0 1E 41 24 B2 22 |0.......*...A$."|
00006A20: 22 3A A1 F9 41 24 3A E8 3A 8A 00 4D 86 AA 1E 8F |":..A$:.:..M....|
00006A30: 20 2A 2A 2A 20 4E 4F 20 44 49 52 45 43 54 20 44 | *** NO DIRECT D|
00006A40: 45 42 49 54 20 46 49 4C 45 20 2A 2A 2A 00 84 86 |EBIT FILE ***...|
00006A50: B4 1E 99 22 11 11 11 D4 48 45 52 45 20 49 53 20 |..."....HERE IS |
00006A60: 4E 4F 20 C4 49 52 45 43 54 20 C4 45 42 49 54 20 |NO .IRECT .EBIT |
00006A70: 46 49 4C 45 20 4F 4E 20 54 48 49 53 20 44 49 53 |FILE ON THIS DIS|
00006A80: 4B 22 3A 99 00 8D 86 BE 1E FE 0B 20 32 00 B2 86 |K":........ 2...|
00006A90: C8 1E 86 20 44 4D 24 28 31 30 30 29 2C 44 4D 28 |... DM$(100),DM(|
00006AA0: 31 30 30 29 2C 58 44 24 28 31 30 30 29 3A 54 44 |100),XD$(100):TD|
00006AB0: B2 30 00 C1 86 D2 1E FE 0F 23 31 3A 89 20 34 33 |.0.......#1:. 43|
00006AC0: 30 00 F2 86 DC 1E 8F 20 2A 2A 2A 20 44 45 42 49 |0...... *** DEBI|
00006AD0: 54 20 41 4E 44 20 43 52 45 44 49 54 20 42 4F 54 |T AND CREDIT BOT|
00006AE0: 48 20 45 51 55 41 4C 20 4E 4F 55 47 48 54 20 2A |H EQUAL NOUGHT *|
00006AF0: 2A 2A 00 14 87 E6 1E 99 22 91 91 91 91 91 91 91 |**......".......|
00006B00: 91 91 91 91 91 91 91 91 91 91 91 91 91 91 91 91 |................|
00006B10: 91 91 22 3B 00 5E 87 F0 1E 99 C7 28 31 38 29 3B |..";.^.....(18);|
00006B20: 22 C3 52 45 44 49 54 20 41 4E 44 20 C4 45 42 49 |".REDIT AND .EBI|
00006B30: 54 20 41 4D 4F 55 4E 54 53 20 42 4F 54 48 20 45 |T AMOUNTS BOTH E|
00006B40: 51 55 41 4C 20 4E 4F 55 47 48 54 2C 20 54 52 59 |QUAL NOUGHT, TRY|
00006B50: 20 41 47 41 49 4E 22 3B C7 28 31 34 36 29 00 77 | AGAIN";.(146).w|
00006B60: 87 FA 1E FE 0B 20 34 3A 99 22 91 91 91 91 22 3B |..... 4:."....";|
00006B70: 3A 89 20 36 35 34 30 00 7D 87 04 1F 3A 00 AE 87 |:. 6540.}...:...|
00006B80: 0E 1F 8F 20 2A 2A 2A 20 44 45 42 49 54 20 41 4E |... *** DEBIT AN|
00006B90: 44 20 43 52 45 44 49 54 20 42 4F 54 48 20 45 51 |D CREDIT BOTH EQ|
00006BA0: 55 41 4C 20 4E 4F 55 47 48 54 20 2A 2A 2A 00 D0 |UAL NOUGHT ***..|
00006BB0: 87 18 1F 99 22 91 91 91 91 91 91 91 91 91 91 91 |...."...........|
00006BC0: 91 91 91 91 91 91 91 91 91 91 91 91 91 91 22 3B |..............";|
00006BD0: 00 1A 88 22 1F 99 C7 28 31 38 29 3B 22 C3 52 45 |..."...(18);".RE|
00006BE0: 44 49 54 20 41 4E 44 20 C4 45 42 49 54 20 41 4D |DIT AND .EBIT AM|
00006BF0: 4F 55 4E 54 53 20 42 4F 54 48 20 45 51 55 41 4C |OUNTS BOTH EQUAL|
00006C00: 20 4E 4F 55 47 48 54 2C 20 54 52 59 20 41 47 41 | NOUGHT, TRY AGA|
00006C10: 49 4E 22 3B C7 28 31 34 36 29 00 33 88 2C 1F FE |IN";.(146).3.,..|
00006C20: 0B 20 34 3A 99 22 91 91 91 91 22 3B 3A 89 20 36 |. 4:."....";:. 6|
00006C30: 36 35 30 00 00 00 |650... |
....... ** FI A...... ** NG.=.... ******
SET UP SCREEN ******.K.(.. XM$(12)...2.
XM$(1)."JAN ":XM$(2)."FEB ":XM$(3)."MAR
":XM$(4)."APR ".C.<.XM$(5)."MAY ":XM$(6)
."JUN ":XM$(7)."JUL ":XM$(8)."AUG "...F.
XM$(9)."SEP ":XM$(10)."OCT ":XM$(11)."NO
V "...P.XM$(12)."DEC "...Z.. NO$(12).`.D
.NO$(1)."01":NO$(2)."02":NO$(3)."03":NO$
(4)."04":NO$(5)."05":NO$(6)."06"...N.NO$
(7)."07":NO$(8)."08":NO$(9)."09":NO$(10)
."10":NO$(11)."11":NO$(12)."12".F.X.. DY
$(7):. DF$(10).....DY$(6)."SATURDAY ":DY
$(0)."SUNDAY ":DY$(1)."MONDAY ":DY$(2)."
TUESDAY ".M...DY$(3)."WEDNESDAY ":DY$(4)
."THURSDAY ":DY$(5)."FRIDAY ".`....5,1:.
6,2:.5,1.V. ... 0,0,79,24,1:.%.....CR$.G
(13):. G(14):B.1:.G(11):SV.1......:."BAN
KFILE BY RICHARD TANNER COMP
ILED WITH BLITZ 128":."....".....:...H..
****** LOAD IN ALL DATA FROM PREVIOUS S
ESSIONS ******.L.R...#1,"BANKFILE":.1,CT
,OD$...... DS.62 . ."SEQUENTIAL BANK DAT
A FILE NOT FOUND":. 7590.H.... DS.0 . ."
...ERROR IN LOADING BANK DATA ";DS$:..
1:. 7590......"FILE LAST UPDATED ON ";OD
$:..% ...D$(CT.100),MI(CT.100),MO(CT.100
),EX$(CT.100):.1,AM:..4 ... YN$(100).Y .
.YN$(85)."85":YN$(86)."86":YN$(87)."87":
YN$(88)."88":YN$(89)."89".. ..YN$(90)."9
0":YN$(91)."91":YN$(92)."92":YN$(93)."93
":YN$(94)."94"..!".YN$(95)."95":YN$(96).
"96":YN$(97)."97":YN$(98)."98":YN$(99)."
99"..!,..A.1.CT.T!6.. DS.0 . ."...ERROR
IN LOADING BANK DATA ";DS$:A.CT:.. 1:.
7590.T!@..1,D$(A),MI(A),MO(A),EX$(A)..!J
..".LOADED ";A;" FILES SO FAR"..!T..A:..
#1.A!^...#1,"DEBITFILE":.1,TD,ZD$.V!H..
DS.62 . . 7850.."R.. DS.0 . ."...ERROR I
N LOADING DEBIT FILES ";DS$:.. 1:. 7850
.A"|.. DM$(100.TD),DM(100.TD),XD$(100.TD
).P"... A.1 . TD.."... DS.0 . ."...ERROR
IN LOADING DEBIT FILES ";DS$:A.TD:.. 1
:. 7850.."...1,DM$(A),DM(A),XD$(A):. A:.
.#1.A"..:.T"... *** MENU ***.."... 5,1:.
6,1:. 5,2.."B... 0,0,79,24,1..#L.W 2590
.,#V.. 630:. 5,2:.:. TD$.."" . . 550.^#.
.."THE DATA FILE WAS LAST UPDATED ON : "
;OD$:...#...:."PLEASE ENTER TODAYS DATE
DD/MM/YY ";A$..$... C(A$).8 . C(A$).8 .
.".
":."...":. 490..$... 3280.($... C(A$)..8
. . 500.`$..DT$.H(DY$(NZ),3).D(DZ)." ".
XM$(MZ).".".D(YZ):TD$.A$.K$... 7200.|$&.
.:B.1:. 5,15.K$0.."BANKFILE BY RICHARD T
ANNER
";DT$..$:..:.:.. 0,2,79,24,1:. 5,2
.>%D.."
";:.G(2);" M E N U ";G(130):."FILES :
";CT:..M%N..A.1.9:.A$.B%X.A$.D(A)." . ".
A$..%B.." ";A$:.
..%L.. A..&V.."SAVE BANK FILE DATA","CRE
DIT ACCOUNT","DEBIT ACCOUNT","BALANCE","
ALTER / DELETE RECORD","PRINT STATEMENT
TO SCREEN / PRINTER".N&..."SORT RECORDS
BY DATE","PRINT SELECTIVE EXPENDITURE".I
&..."EDIT DIRECT DEBITS",.O&..:..&... **
**** GET OPTION SELECTION AND JUMP TO CO
RRECT PART ******..&...G(15);"
PLEASE SELECT AN OPTIO
N";G(143).&'....A$:.A$."1".A$."9"..G(7);
".":.690:U.710.T'..."FAULT IN PROGRAM PL
EASE CHECK IT OUT":..I'F.. 5,1:. 6,1:.5,
2..'P.. E(A$) . 750,870,1180,1500,5700,5
610,2280,2810,3450..'Z..430..'..:..'...
****** ROUTINE TO SAVE DATA TO DISK ****
**..'..SV.0..'... 2280.3(..SV.1:."..
".Q(...G(18);"..SAVING DATA TO DISK";G
(146);" ":..U( .."
":."
"..(*.. 2670.J)4...#1,"@BANKFILE1",D
0,U8,W:.1,CT;CR$;DT$:.1,AM:.A.1.CT:.1,D$
(A);CR$;MI(A);CR$;MO(A);CR$;EX$(A):.A:..
#1..)>..DS.0.."BANKFILE":."BANKFILE1"."B
ANKFILE":U.DS$:..W)H.."....":.G(18);"SAV
ING COMPLETED, PRESS ANY KEY TO RETURN T
O THE MENU";G(146):..A$..)R....)\.:..*F.
. ****** PUTTING MONIES IN THE ACCOUNT *
*****.:*P..G(18);"CREDIT ACCOUNT";G(146)
:..E*Z.. 2670.O*... 5,2.J*..A$."":M.0:MM
$."":F$.""..*...:."CREDIT DATE (DD.MM.YY
) ";A$..+... C(A$).8 . C(A$).8 . .".
":."...
":. 920..+... 3280.)+... C(A$)..8 . . 93
0.4+... 5,16.D+J.DC$.DY$(NZ).".".D(DZ)."
".XM$(MZ).".".D(YZ).O+T..:.DC$.Y+... 5,
2..+...:."CREDIT AMOUNT \ ";MM$..,..M.E(
MM$):. M.0.01 . M.0 . .".
":."..";:. 1000.
7,...:."CREDIT EXPLANATION ";F$..,... F(
F$).0 . .".
":."...":. 1020..,...:. 5,2.X,..
.G(18);"CREDIT ACCOUNT";G(146):...,$..".
."..-..."DATE : ";DC$:..E-8..:.
"EXPLANATION : ";:.."#################
########################################
#######";F$:...-B..:."CREDIT AMOUNT \";M
:...-L..:."IS THE ABOVE INFORMATION CORR
ECT ( Y/N )":.:..B-V... B$..-`.. B$.."Y"
. B$.."N" . .G(7):. 1110...J.. B$."N" .
.:. 880.L.T..:.G(18);"FILE UPDATED";G(1
46);" : PRESS ANY KEY TO RETURN TO THE M
ENU".V.~... B$......CT.CT.1:AM.AM.M:D$(C
T).A$:MI(CT).M:EX$(CT).F$:B.1:..0,2,79,2
2,1:......:.X.... ****** TAKING MONIES O
UT OF THE ACCOUNT ******......G(18);"DEB
ITING ACCOUNT";G(146):.../... 2670../...
5,2.//D.A$."":MM$."":M.0:F$."".S/N..:."
DEBIT DATE ( DD.MM.YY )";A$.M/X.. C(A$).
8 . C(A$).8 . .".
":."...":. 1230.X/... 3280
../... C(A$)..8 . . 1240../... 5,16.+0..
DC$.DY$(NZ).".".D(DZ)." ".XM$(MZ).".".D(
YZ).60...:.DC$.@0... 5,2.]0...:."DEBIT A
MOUNT \ ";MM$..0(.M.E(MM$):. M.0.01 . M.
0 . .".
":."..";:. 1310..02..:."DEBIT EXPL
ANATION ";F$.L1<.. F(F$).0 . .".
":."...":.
1330.X1F..:. 5,2..1P..G(18);"DEBITING AC
COUNT";G(146):...1Z.."..".G1D.."DATE
: ";DC$:..,2N..:."EXPLANATION :
";:.."##################################
##############################";F$:..I2X
..:."DEBIT AMOUNT \";M:..2...:."IS THE
ABOVE INFORMATION CORRECT ( Y/N )":.:..
.2.... B$..2... B$.."Y" . B$.."N" . .G(7
):. 1420.H2 .. B$."N" . .:. 1190..3...:.
G(18);"FILE UPDATED";G(146);" : PRESS AN
Y KEY TO RETURN TO THE MENU"..3.... B$.E
3...CT.CT.1:AM.AM.M:D$(CT).A$:MO(CT).M:E
X$(CT).F$:B.1:..0,2,79,22,1:..K3H.:..3R.
. ****** BALANCE ENQUIRY ******..3...G(1
8);"BALANCE ENQUIRY";G(146):."..":MY.0.M
3... A.1 . CT..3...MI(A).0.MY.MI(A).MY..
3...MO(A).0.MY.MY.MO(A)..4... A.#4..."AC
COUNT BALANCE \ ";.64... MY.0 . . 5,3.M
4"..."#######.##";MY;.W4,.. 5,7.B46.."..
."..4@.."PRESS ANY KEY TO RETURN TO MENU
"..4J.. 5,2..4T...A$:AM.MY:MY.0:...4^.:.
.4H.. ****** LIST TRANSACTIONS ALL OR FR
OM A CERTAIN POINT ******..5R... 0,0,79,
24,1..5|.. 2760.O5...G(18);"LIST TRANSAC
TIONS TO SCREEN ( STATEMENT )";G(146):..
Z5... 2670.E5..XZ$.""..5... "LIST FROM (
MM.YY) OR PRESS RETURN FOR ALL";:. XZ$..
5... XZ$."" . FG.1:MY.0:. 1800."6..MY.0:
. C(XZ$)..5 . .".
":."..":XZ$
."":. 1700.16B.. A.1 . CT.V6L.. I(XZ$,2)
.I(D$(A),2) . H(XZ$,2).J(D$(A),4,2) . FG
.A:A.CT:. 1800..6V..MI(A).0.MY.MI(A).MY.
.6...MO(A).0.MY.MY.MO(A)..6... A..7..."S
ORRY THAT DATE DOES NOT EXIST":.. 2:.".
".Y7..."..
":.".";:. 1690.7....
.7..C.0:.A.FG . CT:.MI(A).0.MY.MI(A).MY.
.7...MO(A).0.MY.MY.MO(A)..7&..;". ";D$(A
);" . ";:. 5,4:.MI(A).0.." ";:U.
1850..80..1860..8:..."######.##";MI(A);.
U8D.. 5,2:." . ";:. 5,3:.MO(A).0.."
";:U.1880._8N..1890.X8X..."######.##
";MO(A);..8B.. 5,2:." . ";:.."######.##"
;MY;:." . ";:. 5,8..9L..."##############
################";EX$(A);:. 5,2:.".":C.C
.1:.C.20..G(18);"PRESS ANY KEY TO CONTIN
UE";G(146):..A$:C.0:.".":.".";.P9V..A:.G
(18);"PRESS ANY KEY TO RETURN TO THE MEN
U";G(146):..A$:..V9..:..9... ****** PRIN
T ALL TRANSACTIONS TO PRINTER ******..9.
..G(18);"PRINT TRANSACTIONS TO PRINTER (
STATEMENT )";G(146):...9... 2670..:...:
.:XZ$."".B:..."LIST FROM ( MM.YY ) OR PR
ESS RETURN FOR ALL";:. XZ$.B:... XZ$.""
. FG.1:MY.0:. 2070.H:F.MY.0:. C(XZ$)..5
. .".
":."..":XZ$."":. 1970
.W:P.. A.1 . CT..;Z.. I(XZ$,2).I(D$(A),2
) . H(XZ$,2).J(D$(A),4,2) . FG.A:A.CT:.
2070.9;... MI (A).0 . MY.MI(A).MY.V;...
MO (A).0 . MY.MY.MO(A).^;... A.B;..."SOR
RY THAT DATE DOES NOT EXIST":.. 2:.".
"..<..."..
":.".";:XZ$."":. 1970.9
<..W 2590..< ..4,4,7:.4," DATE REC
EIPTS WITHDRAWALS BALANCE PUR
POSE OF TRANSACTION":C.2:.A.FG . CT:. MI
(A).0 . MY.MI(A).MY.T<*..MO(A).0.MY.MY.M
O(A)..=4..4,". ";D$(A);". ";:.MI(A).0..4
," ";:U.2120..=>..2130.1=H..4,."
######.##";MI(A);._=R..4," . ";:.MO(A).0
..4," ";:U.2150.I=\..2160..=F..4
,."######.##";MO(A);..=P..4," . ";..=Z..
4,."######.##";MY;..=...4," . ";..=...
4,."#############################";EX$(A
)..=..C.C.1..>... C.63 . .4,"":.4,"":.4,
"":C.1..>...A.$>.. 4.^>...:."PRINTING CO
MPLETE: PRESS A KEY TO RETURN TO MENU".G
>J...A$.M>T...S>..:..>... ****** PUTTING
ALL ENTRYS INTO CORRECT DATE ORDER ****
**..>...G(18);"PUTTING RECORD'S IN DATE
ORDER";G(146):...>... B.0 . . 2550..?...
CT.2 . SV.0 . .:. 2550.X?... CT.2 . .:.
"SORRY THERE ARE TOO FEW RECORDS TO SORT
":. 2550.L?... A.CT . 2 . .1..?$.D.E(H(D
$(A),2)):D1.E(H(D$(A.1),2))..?..M.E(J(D$
(A),4,2)):M1.E(J(D$(A.1),4,2))..?8.Y.E(I
(D$(A),2)):Y1.E(I(D$(A.1),2))..@B.. D.D1
. M.M1 . Y.Y1 . . 2450.)@L.. D.D1 . M.M
1 . Y.Y1 . . 2450.D@V.. M.M1 . Y.Y1 . .
2450.X@`.. Y.Y1 . . 2450.S@J.. M.M1 . Y.
Y1 . . 2450.{@T.. A..@~.. B.0 . . 2550..
@..B.0:. 2330.H@..AB$.D$(A):AC.MI(A):AD.
MO(A):AE$.EX$(A)..A..D$(A).D$(A.1):MI(A)
.MI(A.1):MO(A).MO(A.1):EX$(A).EX$(A.1).9
A..D$(A.1).AB$:MI(A.1).AC:MO(A.1).AD:EX$
(A.1).AE$.HA..A$.D$(A.1).UA..B$.D$(A).IA
D.. "SWAPPED ";A$.}AN.. "WITH ";B$..A
X.."..."..A..B.B.1..A... 2420..A... SV.0
. . 2570..B..."....":.G(18);"SORTING CO
MPLETE, PRESS ANY KEY TO RETURN TO THE M
ENU";G(146):..A$..B.....B..:.4B... ****
TRAPPED ERRORS *****.@B(.. S(ER).AB2.."P
RESS ANY KEY TO CONTINUE".JB<...A$.CBF..
"..";:."
":." ":."
..".PBP. 4:..#1.ZBZ.. 430..BD.:..CN.. *
** CHECK IF RIGHT SCREEN ***..CX.. 5,7.I
C..."ARE YOU SURE THIS IS THE OPTION YOU
REQUIRE ( Y/N )".NC....Z$:. Z$.."Y" . Z
$.."Y" . . 430.KC...".";"
".UC .. 5,2..C
.....C..:..D... *** PRINT HEADERS FOR LI
STING ON SCREEN ****.*DH..5,1:.6,1:.5,7:
.%..DR.CR$.G(13):.G(14):.:." DATE
RECEIPTS WITHDRAWALS BALANCE
PURPOSE OF TRANSACTION"..D..."..........
........................................
..............................."..E... 5
,2:.. 0,2,79,24,1:...E..:.3E... *** PRIN
T SELECTIVE EXPENDITURE ***.FE.... 0,0,7
9,24,1.QE... 3210..E...G(18);"..PRINT SE
LECTED EXPENSES TO SCREEN";G(146):...E".
. 2670..E,..:A$.""..E6.."PLEASE ENTER TH
E TEXT TO SEARCH ON, OR PRESS RETURN TO
LIST ALL ":...E@.. A$..FJ.. A$."" . VB.1
:U VB.0..FT...!F^.B.0:C.0.0FH.. A.1 . CT
.NFR.. VB.1 . MO(A).0 . . 3040.BF|.. VB.
1 . . 2960..F... T(EX$(A),A$)..1 . MO(A)
.0 . . 3040..F... B.20 . . G(18);"PRESS
ANY KEY TO CONTINUE LISTING EXPENSES";G(
146):.. Z$:.:B.0..G... B.17 . A.(CT.20)
. B.21:. 2960..G... A.8G...;"
----------".[G...;"
TOTAL \ ";.OGB..."######.##";C.
.GL..;" ---------
-".YGV..G(18);"PRESS ANY KEY TO RETURN T
O THE MENU";G(146):..A$:...G..DZ$.(H(D$(
A),2))..H..MZ$.(J(D$(A),4,2))..H..YZ$.(I
(D$(A),2)).<H..DZ.E(DZ$):MZ.E(MZ$):YZ.E(
YZ$).PH... MZ.2 . . 3100.EH..MZ.MZ.12:YZ
.YZ.1..H..NZ.DZ.2.MZ..(.6.(MZ.1)).YZ..(Y
Z.4)..(YZ.100)..(YZ.400).2..H&.NZ..((NZ.
7..(NZ.7)).7..5).MH0.NZ..(NZ)..H:.DZ.E(D
Z$):MZ.E(MZ$):YZ.E(YZ$)..ID..."#########
###";DY$(NZ);:.;D$(A);" \ ";.7IN..."##
####.##";MO(A);.BIX.." ";.~IB..."######
######################################";
EX$(A)..IL.B.B.1:C.C.MO(A)..IV....I..:.Q
I... *** PRINT HEADERS FOR LISTING ON SC
REEN ****..I...5,1:.6,1:.5,7:.%.9J..CR$.
G(13):.G(14):.:." DAY DATE
AMOUNT EXPENDITURE DETAILS"..J..."
........................................
........................................
."..J... 5,2:.. 0,2,79,24,1:...J..:..JF.
. *** DATE CHECKING AND RETREIVING DAY M
ONTH YEAR FROM STRING ***..KP.DZ$.(H(A$,
2))..KZ.MZ$.(J(A$,4,2)).1K..YZ$.(I(A$,2)
).LK..A$.DZ$.".".MZ$.".".YZ$.NK..DZ.E(DZ
$):MZ.E(MZ$):YZ.E(YZ$)..K... DZ.31 . DZ.
1 . A$.A$.A$:...K... MZ.12 . MZ.1 . A$.A
$.A$:..GK... YZ.80 . A$.A$.A$:...K .. MZ
.2 . . 3380..K*.MZ.MZ.12:YZ.YZ.1.-L4.NZ.
DZ.2.MZ..(.6.(MZ.1)).YZ..(YZ.4)..(YZ.100
)..(YZ.400).2.KL>.NZ..((NZ.7..(NZ.7)).7.
.5).XLH.NZ..(NZ).ZLR.DZ.E(DZ$):MZ.E(MZ$)
:YZ.E(YZ$)..L\....LF.:..LP.. *** DIRECT
DEBIT INFORMATION EDITING MENU ***..LZ..
.KL... 3490..M...G(18);" DIRECT DEBIT I
NFORMATION EDITING MENU ";G(146):..(M..
.:."LAST UPDATED : ";ZD$.HM..."ADD A NEW
DIRECT DEBIT","DELETE AN EXISTING DIREC
T DEBIT"..M..."ALTER AN EXISTING DIRECT
DEBIT","SAVE DIRECT DEBIT'S TO DISK"..M.
.."LIST ALL DIRECT DEBITS","RETURN TO TH
E MAIN MENU"..M....@NJ.."
";:.G(2);" M E N U
";G(130):."FILES :";TD:..NNT.. A.1 . 6.W
N... A$..N..." ";
A;". ";A$:...N... A.TN...G(15);"
PLEASE SELECT AN OP
TION";G(143)..N.... A$..O... A$."1" . A$
."6" . .G(7);".":. 3590..O....9O$.. E(A$
) . 3650,4540,4860,3950,4120,4010.DO...
3450.JO8.:.OOB.. *** ADD A NEW DIRECT DE
BIT ***..OL..:.G(18);"ADD A NEW DIRECT D
EBIT";G(146):...OV.. 4040:. ZN.0 . . 345
0.AO`..:...PJ.."DIRECT DEBIT NAME ( THIS
NAME IS OUTPUT ON THE BANK FILE )"..PT.
..HP~.." ..............................
.......................".WP..B$."":. B$.
.P... F(B$).0 . .".
":.".";:. 3720
..P...:."ON WHAT DATE DOES THE DIRECT DE
BIT BEGIN ( DD.MM.YY )"..P.....P..A$.""
:. A$.?Q... F(A$).0 . A$."" . C(A$)..8 .
.". ":.".";:. 3760.JQD.. 32
80.BQN.. C(A$)..8 . . 3770..QX..:."HOW M
UCH IS THE DIRECT DEBIT":...Q..B.0:. B.S
Q... B.0 . B..01 . B.999999 . .".
":.".";:. 3810..R...:.G(18);"ADD A
NEW DIRECT DEBIT";G(146):.."R...:."DIREC
T DEBIT TITLE : ";.CR...."##############
#######################################"
;B$..R...:."START DATE : ";A$..R
...:."AMOUNT \";B.TR(..:."IS
THIS INFORMATION CORRECT ( Y / N )"..R2
... Z$..R<.. Z$."Y" . . 3910:U . 3650.(S
F.TD.TD.1:DM$(TD).B$:DM(TD).B:XD$(TD).A$
.NSP..:."INFORMATION ADDED, PRESS ANY KE
Y TO RETURN TO THE MENU":.. A$.YSZ.. 345
0.SD.:..SN.. *** SAVE DIRECT DEBITS
***.PSX..G(18);"..SAVING DATA TO DISK";
G(146):..0T....#1,"@DEBITFILE1",D0,U8,W:
.1,TD;CR$;DT$:.A.1.TD:.1,DM$(A);CR$;DM(A
);CR$;XD$(A);CR$:.A:..#1.NT...DS.0.."DEB
ITFILE":."DEBITFILE1"."DEBITFILE":SA.1:U
.DS$:..GT..."....":.G(18);"SAVING COMPLE
TED, PRESS ANY KEY TO RETURN TO THE MENU
";G(146):..A$:..MT .:..T... *** RETURN T
O MAIN MENU ***..T...:...U..:.$UH.. *
** CHECK IF RIGHT SCREEN ***..UR.. 5,7.I
U..."ARE YOU SURE THIS IS THE OPTION YOU
REQUIRE ( Y/N )"..U....Z$:. Z$.."Y" . Z
$.."Y" . ZN.0:U ZN.1..U...".";"
"..U...
5,2..V.....V..:.0V... *** LIST ALL THE D
IRECT DEBITS ***.DV".. TD.1 . . 3450.WV,
... 0,2,79,24,1.MV6..5,1:.6,1:.5,7:.%.NV
@..G(14):.:.".START DATE . AMOUNT .
PURPOSE OF DIRECT DEBIT
.".&WJ.."...................
........................................
.....................".?WT.. 5,2:.. 0,4,
79,24,1.HW^.PC.1.WWH.. A.1 . TD.WR..".
";:.."########";XD$(A);:." .";. W|..."#
#####.##";DM(A);:." . ";..W...."########
########################################
#####";DM$(A);:." ."..W..PC.PC.1.<X... P
C.18 . .G(18);"PRESS ANY KEY TO CONTINUE
";G(146):..A$:PC.1:..DX... A..X...G(18);
"END OF LIST, PLEASE PRESS ANY KEY TO RE
TURN TO THE MENU";G(146):..A$:.. 0,2,79,
24,1:. 3450..X..:..XB.. *** FIND A DIREC
T DEBIT FOR ALTERING OR DELETING ***..XL
... 0,2,79,24,1..YV..5,1:.6,1:.5,7:.%.NY
...G(14):.:." . NO. .
PURPOSE OF DIRECT DEBIT
."..Y..." ....................
........................................
.....".WY... 5,2:.. 0,4,79,24,1..Y..PC.1
..Y... A.1 . TD..Z..." . ";:.."###
#";A;:." . ";.BZ...."##################
###################################";DM$
(A);:." .".NZ&.PC.PC.1..Z0.. PC.18 . . 4
420..Z:.. A..ZD..G(18);"IS THE DIRECT DE
BIT YOU REQUIRE ON THIS SCREEN ? ( Y / N
) ";G(146)..ZN... A$..ZX.. A$."Y" . . 4
480.O[B.. A$."N" . A..TD . .G(18);"SORRY
THAT IS THE END OF THE LIST";G(146):B.0
:..A$:..S[L.. A$."N" . A.TD . PC.1:.:. 4
410..[V..G(7);".":. 4430.J[...G(18);"WHI
CH NUMBER IS THE DIRECT DEBIT YOU REQUIR
E ";G(146).R[... B..[... TD.A . A.TD..\.
.. B.A.(PC.2) . B.A . .". ":.".";
:. 4490.,\.... 0,2,79,24,1:..2\..:.W\...
*** DELETE A DIRECT DEBIT ***.K\F.. TD
.1 . . 3450..\P..G(18);"DELETE A DIRECT
DEBIT";G(146):...\Z.. 4040..\... ZN.0 .
. 3450.A\... 4290.T\.... 0,2,79,24,1..\.
.. B.0 . . 4660..]...G(18);"DELETE A DIR
ECT DEBIT";G(146).D]...:."NO DIRECT DEBI
T FILE SELECTED TO DELETE":..T] .."PRESS
ANY KEY TO RETURN TO THE MENU":..A$.]*
.. 3450..]4..G(18);"DELETE A DIRECT DEBI
T";G(146):.:..J]>.."DIRECT DEBIT NAME :
";..^H..."##############################
#######################";DM$(B).4^R..:."
DATE OF DEBIT : ";XD$(B).W^\..:."AMO
UNT \";DM(B).]^F....^P.."ARE
YOU SURE YOU WANT TO DELETE THIS ( Y /
N )"..^Z...A$:.A$..^... A$.."Y" . .:. 45
40.T^...:."DELETING .....":...^... A.B .
TD.1..^..DM$(A).DM$(A.1).._..DM(A).DM(A
.1).._..XD$(A).XD$(A.1).'_... A.3_J.TD.T
D.1.T_T.."DIRECT DEBIT DELETED, PRESS AN
Y KEY TO RETURN TO THE MENU".~_.... A$..
_...:. 3450.._..:.._... *** ALTER A DIRE
CT DEBIT ***.J_... TD.1 . . 3450.._...
G(18);"ALTER A DIRECT DEBIT";G(146):...`
... 4040..`$.. ZN.0 . . 3450..`... 4290.
?`8.B$.DM$(B):A$.XD$(B):C.DM(B).R`B... 0
,2,79,24,1.}`L..G(18);"ALTER A DIRECT DE
BIT";G(146):...`V.. B.0 . . 5000..``..:.
"NO DIRECT DEBIT FILE WAS SELECTED"..`J.
.:."PLEASE PRESS ANY KEY TO RETURN TO TH
E MENU"..`T... A$..A~.. 3450.(A...:."OLD
DIRECT DEBIT NAME : ";.MA...."########
########################################
#####";DM$(B)..A..."NEW DIRECT DEBIT NAM
E : ";.PA...."#########################
############################";B$..B...:.
"PRESS ( 1 ) TO ALTER DIRECT DEBIT NAME"
.*B...:."OLD DATE OF DEBIT : ";XD$(
B).NBD.."NEW DATE OF DEBIT : ";A$..
BN..:."PRESS ( 2 ) TO ALTER DIRECT DEBIT
START DATE"..BX..:."OLD DIRECT DEBIT PR
ICE \";DM(B).NB..."NEW DIRECT DEBIT PRIC
E \";C..B...:."PRESS ( 3 ) TO ALTER DIRE
CT DEBIT PRICE"..C...:.:..:C..."PRESS (
4 ) TO EXIT ALTERING DIRECT DEBIT".CC...
.Z$.MC... Z$."1" . Z$."4" . .G(7);".";:.
5130..C... E(Z$) . 5180,5290,5400,5480.
.C(.. 5130. C2.:.FC<.. *** ALTER DIRECT
DEBIT NAME ***..CF..:.G(18);"ALTER DIREC
T DEBIT NAME";G(146):...CP....DZ.."OLD D
IRECT DEBIT NAME : ";.DDD..."###########
########################################
##";DM$(B):...DN.."WHAT IS THE NEW DIREC
T DEBIT NAME":..NDX.." ................
....................................."..
D..B$."":. B$..E... F(B$).0 . .".
":.".";:. 5250.;E...:. 4930.AE .:.ME...
*** ALTER DIRECT DEBIT START DATE ***..E
...:.G(18);"ALTER DIRECT DEBIT START DAT
E";G(146):...E....VEH.."OLD DIRECT DEBIT
START DATE : ";XD$(B)..FR..:."WHAT IS T
HE NEW START DATE ( DD.MM.YY )":...F..A$
."":. A$.RF... F(A$).0 . C(A$)..8 . .".
":.".";:. 5340.]F... 3280.UF
... C(A$)..8 . . 5350..F...:. 4930..F..:
..F... *** ALTER DIRECT DEBIT PRICE ***.
.F"..:.G(18);"ALTER THE PRICE OF A DIREC
T DEBIT";G(146):...G,..:."OLD PRICE \ ";
DM(B).&G6..:."WHAT IS THE NEW PRICE":..2
G@.C.0:. C.OGJ.. C.0 . C..01 . C.999999
. .". ":.".";:. 5440.|GT..:.
4930..G^.:..GH.. *** RETURN TO MENU AFTE
R ALTERING DIRECT DEBIT ***..GR..:.G(18)
;"ALTER A DIRECT DEBIT";G(146):...H|..:.
"NEW DIRECT DEBIT NAME : ";.NH...."#####
########################################
########";B$:..SH..."NEW START DATE
: ";A$:...H..."NEW AMOUNT
\";C:..UH..."DIRECT DEBIT DETAILS CHANGE
D, PRESS ANY KEY TO CONTINUE"..H..DM$(B)
.B$..H..DM(B).C..HB.XD$(B).A$..IL... C$.
.IV.. 3450..I..:.OI... *** SELECT WETHER
PRINT TO SCREEN OR PRINTER ***..I...G(1
8);"PRINT STATEMENT TO SCREEN OR PRINTER
";G(146).YI...:."DO YOU WANT THE STATEME
NT PRINTED ON SCREEN OR TO THE PRINTER (
S / P )"..I....A$..J... A$.."S" . A$.."
P" . . G(7);".";..J... A$."S" . . 1640.6
J&.. A$."P" . .:. 1930.AJ0.. 5640.GJ:.:.
OJD.. *** ALTER DELETE BANK RECORDS ***.
.JN.. CT.1 . .:...JX....JB..G(18);"ALTER
OR DELETE BANK RECORDS";G(146):..DJL..
2670..KV..:."WHAT IS THE DATE OF THE FIL
E YOU WISH TO EDIT ( DD.MM.YY )":...K...
A$.RK... C(A$)..8 . .".
":.".";:. 5760.]K... 3280.UK
... C(A$)..8 . . 5770..K..B$.H(DY$(NZ),3
).D(DZ)." ".XM$(MZ).".".D(YZ)..K.... 0,2
,79,24,1..L...". CREDIT . DEBIT .
EXPLANATION .
";B$;..LF.. DZ.10 . ." ";.#LP.." .".{LZ.
."......................................
........................................
.."..L.... 0,4,79,24,1..L.....L... A.1 .
CT..L... A$.D$(A) . . 5960.CL... A.ML..
.:.:.. M ..:.G(18);"END OF MATCHING RECO
RDS, PRESS ANY KEY TO RETURN TO THE MAIN
SCREEN".,M*..G(146).MM4...A$:.. 0,2,79,
24,1:.:. 5700.SM>.:..MH.. *** PRINT LINE
TO SCREEN FOR ALTER / DELETE ***..MR..
MI(A).0 . . ".";:. " ";:. 5990.
XM\..".";:. ."#######.##";MI(A);..NF.. M
O(A).0 . . " .";:. " ";:. " . "
;:. 6010.9NP.." .";:.."#######.##";MO(A)
;:." . ";.YNZ..."#######################
##############";EX$(A);:." . ";..N....
"########";D$(A);:." .".ZN...:."IS THI
S THE RECORD YOU WISH TO ALTER / DELETE
( Y / N )"..N.... Z$..O... Z$."Y" . C.A:
A.CT:. 6090.]O... Z$."N" . .".
":."...";:. 5900.SO...G(7);".";:. 6
040.YO..:..OJ.. *** ALTER DELETE A SELEC
TED RECORD ***..OT..".
"
:.(P...:."DO YOU WISH TO ALTER OR DELETE
THIS RECORD ( A / D ) ".1P....A$.GP...
A$."A" . . 6170.]P... A$."D" . . 6940.SP
...G(7);".";:. 6120.YP..:..P... *** ALTE
R A SELECTED RECORD ***.YP$... 0,2,79,24
,1:IM.MI(C):OM.MO(C):EP$.EX$(C):DX$.D$(C
)..P...G(18);"ALTER A RECORD";G(146):..$
Q8.."ORIGINAL CREDIT AMOUNT \";MI(C).GQB
.."NEW CREDIT AMOUNT \";IM.XQL.."SE
LECT ( 1 ) TO ALTER THE CREDIT AMOUNT":.
..QV.."ORIGINAL DEBIT AMOUNT \";MO(C).A
Q`.."NEW DEBIT AMOUNT \";OM..QJ.."
SELECT ( 2 ) TO ALTER THE DEBIT AMOUNT"
:...RT.."ORIGINAL EXPLANATION : ";.[R~
..."####################################
###################";EX$(C).}R..."NEW EX
PLANATION : ";.AR...."###########
########################################
####";EP$..R..."SELECT ( 3 ) TO ALTER TH
E EXPLANATION FIELD":...S..."ORIGINAL DA
TE : ";D$(C).BS..."NEW DATE
: ";DX$.JS..."SELECT ( 4 ) TO
ALTER THE DATE":...SD..:."SELECT ( 5 )
TO EXIT ALTERING":..BSN..G(18);"PLEASE M
AKE YOUR SELECTION";G(146).LSX... A$..S.
.. A$."1" . A$."5" . . G(7);".";:. 6360.
.T..A.E(A$).&T... A . 6520,6630,6740,683
0,6410.1T... 6360.\T..MI(C).IM:MO(C).OM:
EX$(C).EP$:D$(C).DX$..T...:.G(18);"RECOR
D CHANGED";G(146):.:...T..."NEW CREDIT A
MOUNT \";MI(C):..KT(.."NEW DEBIT AMOUNT
\";MO(C):...T2.."NEW EXPLANATION : ";
.6U<..."################################
############################";EX$(C):..^
UF.."NEW DATE : ";D$(C):.:B.1..
UP..:."ALL DETAILS CHANGED, PRESS ANY KE
Y TO RETURN TO THE MAIN MENU"..UZ... A$.
.UD..:...UN.:..UX.. *** ALTER THE CREDIT
AMOUNT ***..U....<V...G(18);"ALTER CRED
IT AMOUNT";G(146);"
":..BV..."ORIGINAL CRED
IT AMOUNT \";MI(C)..V ..:."WHAT IS THE N
EW CREDIT AMOUNT":...V..IM.0:. IM..V...
IM.0 . IM.9999999 . .".
":.".";:. 6570..W..
. IM..0 . OM.0 . IM..1:. 7900:. 6580.&WH
.. IM.0 . OM.0.3WR..:. 6190.9W..:.^W...
*** ALTER THE DEBIT AMOUNT ***.DW....GW.
..G(18);"ALTER DEBIT AMOUNT";G(146);"
":...W..."ORIGINAL DEBIT AM
OUNT \";MO(C)..X...:."WHAT IS THE NEW DE
BIT AMOUNT":..#X..OM.0:. OM.]X".. OM.0 .
OM.9999999 . .". ":.".";:.
6680.X,.. OM..0 . IM.0 . OM..1:. 7950.
.X6.. OM.0 . IM.0..X@..:. 6190..XJ.:.HXT
.. *** ALTER THE EXPLANATION ***..X^..:.
G(18);"ALTER EXPLANATION";G(146):...YH..
"ORIGINAL EXPLANATION : ";.[YR..."######
########################################
###########";EX$(C)..Y|..:."WHAT IS THE
NEW EXPLANATION ":...Y..EP$."":. EP$..Z.
.. F(EP$).0 . EP$."" . .".
":.".";:. 6790.
.Z...:. 6190."Z..:.FZ... *** CHANGE DATE
ON RECORD ***.TZ...:.G(18);"CHANGE DATE
ON RECORD";G(146):...ZB.."ORIGINAL DATE
: ";D$(C)..ZL..:."WHAT IS THE NEW DATE
( DD.MM.YY )":..NZV.A$."":. A$..{... C(A
$)..8 . .". ":.".";:.
6870..{... 3280.({... C(A$)..8 . . 6880
.3{..DX$.A$.@{...:. 6190.F{..:.D{... ***
DELETE A RECORD ***.W{&... 0,2,79,24,1.
.{0..G(18);"DELETE A RECORD";G(146):...{
:..:."DATE : ";D$(C)..{D..:."CR
EDIT AMOUNT \";MI(C)..{N..:."DEBIT AMOU
NT \";MO(C)..|X..:."EXPLANATION : ";.F
|B..."##################################
##############################";EX$(C)..
|L..:."ARE YOU SURE YOU WANT TO DELETE T
HIS RECORD ( Y / N )"..|V...A$.H|... A$.
"Y" . .A$:. 7070..|... A$."N" . .:. 5700
..|... G(7);".";:. 7030..}...:."DELETING
....."..}... A.C . CT.0}..D$(A).D$(A.1)
.B}..MI(A).MI(A.1).T}F.MO(A).MO(A.1).H}P
.EX$(A).EX$(A.1).P}Z.. A..}...".RECORD D
ELETED":...}..CT.CT.1.T}...G(18);"PLEASE
PRESS ANY KEY TO RETURN TO THE MENU";G(
146)..}....A$..}...:...}..:..~ .. *** AU
TO DIRECT DEBIT ***..~*...I~4..G(18);"AU
TOMATIC DIRECT DEBIT WITHDRAWAL";G(146):
..C~>.."PLEASE WAIT ....":...~H.F.0:G.0:
. TD.0 . CT.0 . ...~R.. D.1 . TD..~\.PT.
1..~F.DD.E(H(XD$(D),2)):BD.E(H(A$,2))..~
P.DM.E(J(XD$(D),4,2)):BM.E(J(A$,4,2))..
Z.DY.E(I(XD$(D),2)):BY.E(I(A$,2)).*...
(DY.BY).1 . DM.12 . . 7540.C... (DY.BY)
.1 . . 7540.B... DY.BY . DM.BM.0 . . 75
40..... (DY.BY).1 . DM.12 . BM.1 . . 75
40..... DY.BY . DM.BM . PT.2.T..DF$(2)
.H(XD$(D),2).".".NO$(BM).".".YN$(BY)...
.. BM.1 . MM.12:YY.BY.1:. 7380...J.MM.BM
.1:YY.BY.7.T.DF$(1).H(XD$(D),2).".".NO$(
MM).".".YN$(YY).Y.... BM.12 . MM.1:YY.BY
.1:. 7410.K...MM.BM.1:YY.BY.....DF$(3).H
(XD$(D),2).".".NO$(MM).".".YN$(YY)......
E.PT . 3.....A.CT...... DF$(E).D$(A) .
H(EX$(A),7).H(DM$(D),7) . . 7500.....A.A
.1.".$.. E(I(DF$(E),2)).E(I(D$(A),2)) .
A.1:. 7480.O.... E(I(DF$(E),2)).E(I(D$(A
),2)) . J(DF$(E),4,2).J(D$(A),4,2) . A.1
:. 7480.C.8.. A.1 . F.F.1:D$(CT.F).DF$(E
):MI(CT.F).0:MO(CT.F).DM(D):EX$(CT.F).DM
$(D):. 7520.N.B.. 7440.V.L.. E...V.. 754
0.P.`..."###############################
###############";DM$(D);:." FOR ";DF$(E)
;" NOT FOUND, NOW ADDED":.:G.G.1.C.J.. E
.4 . . 7500.K.T.. D.W.~.CT.CT.F...... G.
0 . ."SORTING ..":. 2330.F.... G.0 . .:.
"NO DIRECT DEBITS TO ADD":.. 1.L........
.. *** CREATE BLANK SEQUENTIAL FILE FOR
BANK DATA ***......G(7):.. 2.......#.D..
.#1.U.N.."THE BANK DATA FILE IS NOT ON T
HIS DISK":.:....X.." ";:.G
(2);"OPTIONS";G(130)......:."1. CREATE A
NEW BLANK DATA FILE":.......:."2. TRY L
OADING FILE FROM ANOTHER DISK":.......:.
"3. QUIT TO BASIC":.......:.:."PLEASE SE
LECT".......B$.H.... B$."3" . B$."1" . .
G(7);".";:. 7690.C.... B$."1" . CT.0:. 7
750.E.(.. B$."2" . .:."..........
INSERT BANKFILE DISK AND
PRESS ANY KEY":. 7840.V.2.. B$."3" . ...
.<.. 7690...F..:."PLEASE ENTER TODAYS DA
TE DD/MM/YY ";A$...P.. C(A$)..8 . .".
":."..
.":. 7750...Z.. 3280...D.. C(A$).8 . C(A
$).8 . . 7760...N.DT$.H(DY$(NZ),3).D(DZ)
." ".XM$(MZ).".".D(YZ)...X.TD$.A$......D
$(1),MI(1),MO(1),EX$(1)...... 820.......
*. .A$."":..A$:.:..M.... *** NO DIRECT D
EBIT FILE ***......"...THERE IS NO DIREC
T DEBIT FILE ON THIS DISK":........ 2...
H.. DM$(100),DM(100),XD$(100):TD.0.A.R..
.#1:. 430...... *** DEBIT AND CREDIT BOT
H EQUAL NOUGHT ***......"...............
..........";.^....G(18);"CREDIT AND DEBI
T AMOUNTS BOTH EQUAL NOUGHT, TRY AGAIN";
G(146).W..... 4:."....";:. 6540.}...:...
... *** DEBIT AND CREDIT BOTH EQUAL NOUG
HT ***.P....".........................";
..."..G(18);"CREDIT AND DEBIT AMOUNTS BO
TH EQUAL NOUGHT, TRY AGAIN";G(146).3.,..
. 4:."....";:. 6650...
> CLICK IMAGE PREVIEW FOR FULL MODAL