BANK ACCOUNTS
FILE INFORMATION
FILENAME(S): BANK ACCOUNTS
FILE TYPE(S): PRG
FILE SIZE: 20.6K
FIRST SEEN: 2025-12-01 01:48:30
APPEARS ON: 1 disk(s)
FILE HASH
e50033630ee04bd2d5f519a0dc7b1d8e4a421c4c084115d7088611d65827ad45
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| PD187 DCB 6 88 | BANK ACCOUNTS | PRG | hedning, Mattias H00r | 14 | 5 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 18 08 3C 00 9F 31 35 2C 38 2C 31 35 2C 22 |....<..15,8,15,"|
00000010: 49 30 22 3A 8D 36 30 30 00 27 08 64 00 9C 3A 9F |I0":.600.'.d..:.|
00000020: 31 35 2C 38 2C 31 35 00 48 08 65 00 86 57 24 28 |15,8,15.H.e..W$(|
00000030: 35 29 2C 4E 31 24 28 31 39 29 2C 4E 32 24 28 39 |5),N1$(19),N2$(9|
00000040: 29 2C 4D 24 28 31 32 29 00 8D 08 66 00 86 41 31 |),M$(12)...f..A1|
00000050: 24 28 39 39 29 2C 41 32 24 28 39 39 29 2C 41 33 |$(99),A2$(99),A3|
00000060: 24 28 39 39 29 2C 41 34 24 28 39 39 29 2C 41 35 |$(99),A4$(99),A5|
00000070: 24 28 39 39 29 2C 41 36 24 28 39 39 29 2C 41 37 |$(99),A6$(99),A7|
00000080: 24 28 39 39 29 2C 41 38 24 28 39 39 29 00 D2 08 |$(99),A8$(99)...|
00000090: 67 00 86 42 31 24 28 39 39 29 2C 42 32 24 28 39 |g..B1$(99),B2$(9|
000000A0: 39 29 2C 42 33 24 28 39 39 29 2C 42 34 24 28 39 |9),B3$(99),B4$(9|
000000B0: 39 29 2C 42 35 24 28 39 39 29 2C 42 36 24 28 39 |9),B5$(99),B6$(9|
000000C0: 39 29 2C 42 37 24 28 39 39 29 2C 42 38 24 28 39 |9),B7$(99),B8$(9|
000000D0: 39 29 00 17 09 68 00 86 44 41 24 28 39 39 29 2C |9)...h..DA$(99),|
000000E0: 54 4E 24 28 39 39 29 2C 44 45 24 28 39 39 29 2C |TN$(99),DE$(99),|
000000F0: 43 4D 24 28 39 39 29 2C 52 4D 24 28 39 39 29 2C |CM$(99),RM$(99),|
00000100: 41 4D 24 28 39 39 29 2C 42 41 24 28 39 39 29 2C |AM$(99),BA$(99),|
00000110: 4D 4B 24 28 39 39 29 00 3F 09 69 00 86 4D 44 45 |MK$(99).?.i..MDE|
00000120: 24 28 35 30 29 2C 4D 43 4D 24 28 35 30 29 2C 4D |$(50),MCM$(50),M|
00000130: 52 4D 24 28 35 30 29 2C 50 46 24 28 35 30 29 00 |RM$(50),PF$(50).|
00000140: 5F 09 6A 00 97 35 33 32 38 30 2C 30 3A 97 35 33 |_.j..53280,0:.53|
00000150: 32 38 31 2C 30 3A 43 52 24 B2 C7 28 31 33 29 00 |281,0:CR$..(13).|
00000160: 93 09 6B 00 99 22 93 11 11 12 9A 20 20 20 20 20 |..k.."..... |
00000170: 20 20 42 20 41 20 4E 20 4B 20 20 20 41 20 43 20 | B A N K A C |
00000180: 43 20 4F 20 55 20 4E 20 54 20 53 20 20 20 20 20 |C O U N T S |
00000190: 20 20 22 00 B0 09 6E 00 99 22 11 11 9E 1D 1D 1D | "...n.."......|
000001A0: 59 4F 55 20 4D 41 59 20 43 48 4F 4F 53 45 3A 22 |YOU MAY CHOOSE:"|
000001B0: 00 D9 09 78 00 99 22 11 11 1E 1D 1D 1D 1D 1D 28 |...x.."........(|
000001C0: 1C 31 1E 29 20 43 48 45 43 4B 49 4E 47 20 41 43 |.1.) CHECKING AC|
000001D0: 43 4F 55 4E 54 20 23 31 22 00 01 0A 82 00 99 22 |COUNT #1"......"|
000001E0: 11 1E 1D 1D 1D 1D 1D 28 1C 32 1E 29 20 43 48 45 |.......(.2.) CHE|
000001F0: 43 4B 49 4E 47 20 41 43 43 4F 55 4E 54 20 23 32 |CKING ACCOUNT #2|
00000200: 22 00 25 0A 8C 00 99 22 11 1E 1D 1D 1D 1D 1D 28 |".%....".......(|
00000210: 1C 33 1E 29 20 53 41 56 49 4E 47 53 20 41 43 43 |.3.) SAVINGS ACC|
00000220: 4F 55 4E 54 22 00 4D 0A 96 00 99 22 11 1E 1D 1D |OUNT".M...."....|
00000230: 1D 1D 1D 28 1C 34 1E 29 20 53 54 41 52 54 20 41 |...(.4.) START A|
00000240: 20 4E 45 57 20 41 43 43 4F 55 4E 54 22 00 71 0A | NEW ACCOUNT".q.|
00000250: 9B 00 99 22 11 1E 1D 1D 1D 1D 1D 28 1C 35 1E 29 |...".......(.5.)|
00000260: 20 43 48 41 4E 47 45 20 50 41 53 53 57 4F 52 44 | CHANGE PASSWORD|
00000270: 22 00 96 0A A0 00 99 22 11 1E 1D 1D 1D 1D 1D 28 |"......".......(|
00000280: 1C 36 1E 29 20 52 45 54 55 52 4E 20 54 4F 20 48 |.6.) RETURN TO H|
00000290: 2E 41 2E 4C 2E 22 00 BD 0A AA 00 99 22 11 11 1D |.A.L."......"...|
000002A0: 1D 1D 9E 50 4C 45 41 53 45 20 45 4E 54 45 52 20 |...PLEASE ENTER |
000002B0: 59 4F 55 52 20 43 48 4F 49 43 45 2E 22 00 C7 0A |YOUR CHOICE."...|
000002C0: B4 00 8D 39 39 38 30 00 DD 0A BE 00 41 B2 C5 28 |...9980.....A..(|
000002D0: 41 4E 24 29 3A 8B 41 B2 30 A7 31 38 30 00 EB 0A |AN$):.A.0.180...|
000002E0: C8 00 8B 41 B2 31 A7 31 39 39 39 00 F9 0A D2 00 |...A.1.1999.....|
000002F0: 8B 41 B2 32 A7 31 39 39 39 00 07 0B DC 00 8B 41 |.A.2.1999......A|
00000300: B2 33 A7 31 39 39 39 00 15 0B E6 00 8B 41 B2 34 |.3.1999......A.4|
00000310: A7 31 30 30 30 00 22 0B EB 00 8B 41 B2 35 A7 38 |.1000."....A.5.8|
00000320: 30 30 00 42 0B F0 00 8B 41 B2 36 A7 A0 31 35 3A |00.B....A.6..15:|
00000330: 48 24 B2 22 48 2E 41 2E 4C 2E 22 3A 89 31 30 30 |H$."H.A.L.":.100|
00000340: 30 30 00 4B 0B FA 00 89 31 38 30 00 6C 0B 2C 01 |00.K....180.l.,.|
00000350: 8B 4C 4C B2 30 A7 4C 4C B2 33 36 3A 8F 20 4D 41 |.LL.0.LL.36:. MA|
00000360: 58 2E 4C 45 4E 47 54 48 20 41 4E 24 00 8A 0B 36 |X.LENGTH AN$...6|
00000370: 01 9F 39 2C 30 3A 41 4E 24 B2 22 22 3A 42 4E 24 |..9,0:AN$."":BN$|
00000380: B2 22 22 3A 97 32 30 34 2C 30 00 A2 0B 40 01 A1 |."":.204,0...@..|
00000390: 23 39 2C 42 4E 24 3A 8B 42 4E 24 B2 22 22 A7 33 |#9,BN$:.BN$."".3|
000003A0: 32 30 00 C9 0B 4A 01 8B 42 4E 24 B2 C7 28 31 33 |20...J..BN$..(13|
000003B0: 29 A7 42 4E 24 B2 22 22 3A A0 39 3A 99 22 20 22 |).BN$."":.9:." "|
000003C0: 3A 97 32 30 34 2C 31 3A 8E 00 F3 0B 54 01 8B 42 |:.204,1:....T..B|
000003D0: 4E 24 B2 22 1D 22 B0 42 4E 24 B2 22 9D 22 B0 42 |N$.".".BN$.".".B|
000003E0: 4E 24 B2 22 91 22 B0 42 4E 24 B2 22 11 22 A7 89 |N$.".".BN$."."..|
000003F0: 33 32 30 00 0C 0C 5E 01 8B 42 4E 24 B2 22 13 22 |320...^..BN$."."|
00000400: B0 42 4E 24 B2 22 93 22 A7 33 32 30 00 49 0C 68 |.BN$.".".320.I.h|
00000410: 01 8B C3 28 41 4E 24 29 B2 4C 4C A7 99 22 20 22 |...(AN$).LL.." "|
00000420: 3A 99 22 11 1C 4C 45 4E 47 54 48 20 4C 49 4D 49 |:."..LENGTH LIMI|
00000430: 54 20 45 58 43 45 44 45 44 22 3A 42 4E 24 B2 C7 |T EXCEDED":BN$..|
00000440: 28 31 33 29 3A 89 33 33 30 00 63 0C 72 01 8B 41 |(13):.330.c.r..A|
00000450: 4E 24 B2 22 22 AF 42 4E 24 B2 C7 28 32 30 29 A7 |N$."".BN$..(20).|
00000460: 33 32 30 00 95 0C 7C 01 8B 42 4E 24 B2 C7 28 32 |320...|..BN$..(2|
00000470: 30 29 A7 99 22 20 9D 9D 20 9D 22 3B 3A 41 4E 24 |0).." .. .";:AN$|
00000480: B2 C8 28 41 4E 24 2C C3 28 41 4E 24 29 AB 31 29 |..(AN$,.(AN$).1)|
00000490: 3A 89 33 32 30 00 B0 0C 86 01 41 4E 24 B2 41 4E |:.320.....AN$.AN|
000004A0: 24 AA 42 4E 24 3A 99 42 4E 24 3B 3A 89 33 32 30 |$.BN$:.BN$;:.320|
000004B0: 00 CD 0C F4 01 8F 20 2A 2A 2A 20 50 52 49 4E 54 |...... *** PRINT|
000004C0: 45 52 20 50 52 4F 4D 50 54 20 2A 2A 2A 00 DA 0C |ER PROMPT ***...|
000004D0: FE 01 50 B2 30 3A 9F 34 2C 34 00 F6 0C 08 02 98 |..P.0:.4,4......|
000004E0: 34 3A 8B A8 C2 28 31 34 34 29 AF 31 32 38 A7 A0 |4:...(144).128..|
000004F0: 34 3A 89 35 34 30 00 30 0D 12 02 99 22 13 11 11 |4:.540.0...."...|
00000500: 11 11 1C 20 20 2A 2A 2A 9E 20 50 4C 45 41 53 45 |... ***. PLEASE|
00000510: 20 54 55 52 4E 20 54 48 45 20 50 52 49 4E 54 45 | TURN THE PRINTE|
00000520: 52 20 4F 4E 20 1C 2A 2A 2A 22 3A 50 B2 50 AA 31 |R ON .***":P.P.1|
00000530: 00 43 0D 17 02 8B 50 B1 39 39 39 A7 A0 34 3A 89 |.C....P.999..4:.|
00000540: 35 36 30 00 4C 0D 18 02 89 35 32 30 00 6C 0D 1C |560.L....520.l..|
00000550: 02 8B 50 B1 30 A7 99 22 11 1D 1D 1D 1C 54 48 41 |..P.0..".....THA|
00000560: 4E 4B 20 59 4F 55 2E 22 3A 50 B2 30 00 9F 0D 26 |NK YOU.":P.0...&|
00000570: 02 99 22 11 9E 50 52 45 53 53 20 27 1C 50 9E 27 |.."..PRESS '.P.'|
00000580: 20 57 48 45 4E 20 59 4F 55 27 52 45 20 52 45 41 | WHEN YOU'RE REA|
00000590: 44 59 20 54 4F 20 50 52 49 4E 54 2C 4F 52 22 00 |DY TO PRINT,OR".|
000005A0: CD 0D 30 02 99 22 11 9E 50 52 45 53 53 20 27 1C |..0.."..PRESS '.|
000005B0: 41 9E 27 20 54 4F 20 41 42 4F 52 54 20 50 52 49 |A.' TO ABORT PRI|
000005C0: 4E 54 49 4E 47 2E 22 3A 50 B2 30 3A 8E 00 E9 0D |NTING.":P.0:....|
000005D0: 58 02 9F 35 2C 38 2C 35 2C 22 4D 4F 2E 42 49 4C |X..5,8,5,"MO.BIL|
000005E0: 4C 53 20 33 2C 53 2C 52 22 00 F3 0D 5D 02 8D 38 |LS 3,S,R"...]..8|
000005F0: 30 30 30 00 FE 0D 62 02 84 35 2C 50 57 24 00 08 |000...b..5,PW$..|
00000600: 0E 67 02 52 53 B2 53 54 00 12 0E 6C 02 8D 38 30 |.g.RS.ST...l..80|
00000610: 30 30 00 23 0E 71 02 8B 20 52 53 B2 36 34 20 A7 |00.#.q.. RS.64 .|
00000620: 36 33 35 00 34 0E 76 02 8B 20 52 53 B3 B1 30 20 |635.4.v.. RS..0 |
00000630: A7 36 34 30 00 4D 0E 7B 02 A0 35 3A 45 B2 31 3A |.640.M.{..5:E.1:|
00000640: 97 38 30 38 2C 32 33 34 3A 89 36 34 36 00 6A 0E |.808,234:.646.j.|
00000650: 80 02 99 22 42 41 44 1D 44 49 53 4B 1D 53 54 41 |..."BAD.DISK.STA|
00000660: 54 55 53 1D 49 53 1D 22 52 53 00 77 0E 85 02 A0 |TUS.IS."RS.w....|
00000670: 38 3A A0 31 35 3A 80 00 83 0E 86 02 8B 47 47 B2 |8:.15:.......GG.|
00000680: 31 A7 8E 00 BC 0E 8A 02 85 22 93 11 11 11 11 11 |1........"......|
00000690: 11 11 11 11 11 11 9A 20 20 20 20 20 50 4C 45 41 |....... PLEA|
000006A0: 53 45 20 45 4E 54 45 52 20 59 4F 55 52 20 50 41 |SE ENTER YOUR PA|
000006B0: 53 53 57 4F 52 44 2E 90 22 3B 50 24 00 D3 0E 8F |SSWORD..";P$....|
000006C0: 02 8B 50 24 B2 50 57 24 A7 97 38 30 38 2C 32 33 |..P$.PW$..808,23|
000006D0: 37 3A 8E 00 E6 0E 94 02 8B 20 45 B2 33 A7 45 B2 |7:....... E.3.E.|
000006E0: 31 3A 89 36 39 30 00 28 0F 9E 02 99 A3 31 31 29 |1:.690.(.....11)|
000006F0: 22 11 11 11 1C 12 49 4E 56 41 4C 49 44 20 50 41 |".....INVALID PA|
00000700: 53 53 57 4F 52 44 2E 22 3A 99 A3 31 31 29 22 12 |SSWORD.":..11)".|
00000710: 50 4C 45 41 53 45 20 52 45 2D 45 4E 54 45 52 2E |PLEASE RE-ENTER.|
00000720: 20 22 3A 45 B2 45 AA 31 00 3D 0F A8 02 81 54 B2 | ":E.E.1.=....T.|
00000730: 31 A4 36 35 30 3A 82 54 3A 89 36 35 30 00 8C 0F |1.650:.T:.650...|
00000740: B2 02 4D 45 24 B2 22 55 4E 41 55 54 48 4F 52 49 |..ME$."UNAUTHORI|
00000750: 5A 45 44 20 45 4E 54 52 59 20 41 54 54 45 4D 50 |ZED ENTRY ATTEMP|
00000760: 54 2E 2E 2E 2E 2E 41 43 43 45 53 53 20 44 45 4E |T.....ACCESS DEN|
00000770: 49 45 44 2E 2E 2E 2E 2E 52 45 54 55 52 4E 49 4E |IED.....RETURNIN|
00000780: 47 20 54 4F 20 48 2E 41 2E 4C 2E 22 00 AB 0F BC |G TO H.A.L."....|
00000790: 02 53 50 24 B2 22 20 20 20 20 20 20 20 20 20 20 |.SP$." |
000007A0: 20 20 20 20 20 20 20 20 20 20 22 00 C8 0F C6 02 | ".....|
000007B0: 4D 45 24 B2 53 50 24 AA 53 50 24 AA 4D 45 24 AA |ME$.SP$.SP$.ME$.|
000007C0: 22 20 22 3A 58 39 B2 31 00 E0 0F D0 02 43 50 24 |" ":X9.1.....CP$|
000007D0: B2 22 13 11 11 11 11 11 11 11 11 11 11 11 1D 22 |."............."|
000007E0: 00 EF 0F DA 02 81 58 58 B2 31 A4 35 30 3A 82 00 |......XX.1.50:..|
000007F0: 0F 10 E4 02 99 22 1C 22 3B 43 50 24 3B CA 28 4D |.....".";CP$;.(M|
00000800: 45 24 2C 58 39 2C 33 38 29 3B C7 28 31 39 29 00 |E$,X9,38);.(19).|
00000810: 2B 10 EE 02 58 39 B2 58 39 AA 31 3A 8B 58 39 B1 |+...X9.X9.1:.X9.|
00000820: C3 28 4D 45 24 29 A7 58 39 B2 31 00 56 10 F8 02 |.(ME$).X9.1.V...|
00000830: 8B 58 39 B2 31 AF 52 45 B2 30 A7 48 24 B2 22 48 |.X9.1.RE.0.H$."H|
00000840: 2E 41 2E 4C 2E 22 3A 97 38 30 38 2C 32 33 37 3A |.A.L.":.808,237:|
00000850: 89 31 30 30 30 30 00 69 10 02 03 8B C2 28 32 30 |.10000.i.....(20|
00000860: 33 29 B2 36 34 A7 37 33 30 00 86 10 0C 03 99 43 |3).64.730......C|
00000870: 50 24 3B C8 28 53 50 24 AA 53 50 24 2C 33 38 29 |P$;.(SP$.SP$,38)|
00000880: 3B C7 28 31 39 29 00 8F 10 16 03 89 36 35 30 00 |;.(19)......650.|
00000890: B1 10 20 03 99 22 93 9A 12 11 11 20 20 20 43 48 |.. .."..... CH|
000008A0: 41 4E 47 45 20 50 41 53 53 57 4F 52 44 20 20 20 |ANGE PASSWORD |
000008B0: 22 00 BF 10 25 03 47 47 B2 31 3A 8D 36 30 30 00 |"...%.GG.1:.600.|
000008C0: E4 10 2A 03 99 22 11 11 9E 20 43 55 52 52 45 4E |..*.."... CURREN|
000008D0: 54 20 50 41 53 53 57 4F 52 44 20 49 53 3A 1C 22 |T PASSWORD IS:."|
000008E0: 3B 50 57 24 00 0E 11 34 03 85 22 11 11 9E 20 45 |;PW$...4.."... E|
000008F0: 4E 54 45 52 20 44 45 53 49 52 45 44 20 50 41 53 |NTER DESIRED PAS|
00000900: 53 57 4F 52 44 3A 20 20 1C 22 3B 50 57 24 00 2D |SWORD: .";PW$.-|
00000910: 11 3E 03 9F 35 2C 38 2C 35 2C 22 40 30 3A 4D 4F |.>..5,8,5,"@0:MO|
00000920: 2E 42 49 4C 4C 53 20 33 2C 53 2C 57 22 00 37 11 |.BILLS 3,S,W".7.|
00000930: 48 03 8D 38 30 30 30 00 42 11 52 03 98 35 2C 50 |H..8000.B.R..5,P|
00000940: 57 24 00 4C 11 5C 03 8D 38 30 30 30 00 53 11 66 |W$.L.\..8000.S.f|
00000950: 03 A0 35 00 83 11 70 03 99 22 11 11 1C 20 59 4F |..5...p.."... YO|
00000960: 55 52 20 4E 45 57 20 50 41 53 53 57 4F 52 44 20 |UR NEW PASSWORD |
00000970: 48 41 53 20 42 45 45 4E 20 52 45 43 4F 52 44 45 |HAS BEEN RECORDE|
00000980: 44 2E 22 00 9A 11 7A 03 81 20 54 B2 31 A4 32 30 |D."...z.. T.1.20|
00000990: 30 30 3A 82 54 3A 89 31 30 30 00 B9 11 E8 03 8F |00:.T:.100......|
000009A0: 20 2A 2A 2A 20 53 54 41 52 54 20 55 50 20 52 4F | *** START UP RO|
000009B0: 55 54 49 4E 45 20 2A 2A 2A 00 D5 11 ED 03 9F 38 |UTINE ***......8|
000009C0: 2C 38 2C 38 2C 22 41 43 43 54 2E 49 4E 46 4F 2E |,8,8,"ACCT.INFO.|
000009D0: 2C 53 2C 52 22 00 DF 11 EE 03 8D 38 30 30 30 00 |,S,R"......8000.|
000009E0: FB 11 F2 03 84 38 2C 4E 41 24 28 31 29 2C 42 4E |.....8,NA$(1),BN|
000009F0: 24 28 31 29 2C 41 43 24 28 31 29 00 17 12 FC 03 |$(1),AC$(1).....|
00000A00: 84 38 2C 4E 41 24 28 32 29 2C 42 4E 24 28 32 29 |.8,NA$(2),BN$(2)|
00000A10: 2C 41 43 24 28 32 29 00 33 12 06 04 84 38 2C 4E |,AC$(2).3....8,N|
00000A20: 41 24 28 33 29 2C 42 4E 24 28 33 29 2C 41 43 24 |A$(3),BN$(3),AC$|
00000A30: 28 33 29 00 3D 12 07 04 52 53 B2 53 54 00 47 12 |(3).=...RS.ST.G.|
00000A40: 08 04 8D 38 30 30 30 00 59 12 09 04 8B 20 52 53 |...8000.Y.... RS|
00000A50: B2 36 34 20 A7 31 30 34 30 00 6B 12 0A 04 8B 20 |.64 .1040.k.... |
00000A60: 52 53 B3 B1 30 20 A7 31 30 34 35 00 78 12 10 04 |RS..0 .1045.x...|
00000A70: A0 38 3A 89 31 30 35 30 00 95 12 15 04 99 22 42 |.8:.1050......"B|
00000A80: 41 44 1D 44 49 53 4B 1D 53 54 41 54 55 53 1D 49 |AD.DISK.STATUS.I|
00000A90: 53 1D 22 52 53 00 A2 12 16 04 A0 38 3A A0 31 35 |S."RS......8:.15|
00000AA0: 3A 80 00 C6 12 1A 04 99 22 93 9A 12 20 20 20 53 |:......."... S|
00000AB0: 54 41 52 54 20 41 20 4E 45 57 20 41 43 43 4F 55 |TART A NEW ACCOU|
00000AC0: 4E 54 20 20 20 22 00 F0 12 1F 04 99 22 11 9E 53 |NT "......"..S|
00000AD0: 54 41 54 55 53 20 4F 46 20 43 55 52 52 45 4E 54 |TATUS OF CURRENT|
00000AE0: 20 42 41 4E 4B 20 41 43 43 4F 55 4E 54 53 3A 22 | BANK ACCOUNTS:"|
00000AF0: 00 17 13 24 04 99 22 11 1D 1D 1D 1E 28 1C 31 1E |...$..".....(.1.|
00000B00: 29 20 43 48 45 43 4B 49 4E 47 20 41 43 43 4F 55 |) CHECKING ACCOU|
00000B10: 4E 54 20 23 31 3A 22 00 2A 13 2E 04 99 A3 37 29 |NT #1:".*.....7)|
00000B20: 22 11 1C 22 4E 41 24 28 31 29 00 47 13 38 04 8B |".."NA$(1).G.8..|
00000B30: 20 4E 41 24 28 31 29 B2 22 49 4E 41 43 54 49 56 | NA$(1)."INACTIV|
00000B40: 45 22 A7 31 31 31 30 00 56 13 42 04 99 A3 37 29 |E".1110.V.B...7)|
00000B50: 42 4E 24 28 31 29 00 6E 13 4C 04 99 A3 37 29 22 |BN$(1).n.L...7)"|
00000B60: 41 43 43 54 20 23 20 22 41 43 24 28 31 29 00 95 |ACCT # "AC$(1)..|
00000B70: 13 56 04 99 22 11 1D 1D 1D 1E 28 1C 32 1E 29 20 |.V..".....(.2.) |
00000B80: 43 48 45 43 4B 49 4E 47 20 41 43 43 4F 55 4E 54 |CHECKING ACCOUNT|
00000B90: 20 23 32 3A 22 00 A8 13 60 04 99 A3 37 29 22 11 | #2:"...`...7)".|
00000BA0: 1C 22 4E 41 24 28 32 29 00 C5 13 6A 04 8B 20 4E |."NA$(2)...j.. N|
00000BB0: 41 24 28 32 29 B2 22 49 4E 41 43 54 49 56 45 22 |A$(2)."INACTIVE"|
00000BC0: A7 31 31 36 30 00 D4 13 74 04 99 A3 37 29 42 4E |.1160...t...7)BN|
00000BD0: 24 28 32 29 00 EC 13 7E 04 99 A3 37 29 22 41 43 |$(2)...~...7)"AC|
00000BE0: 43 54 20 23 20 22 41 43 24 28 32 29 00 0E 14 88 |CT # "AC$(2)....|
00000BF0: 04 99 22 11 1D 1D 1D 1E 28 1C 33 1E 29 20 53 41 |..".....(.3.) SA|
00000C00: 56 49 4E 47 53 20 41 43 43 4F 55 4E 54 22 00 21 |VINGS ACCOUNT".!|
00000C10: 14 92 04 99 A3 37 29 22 11 1C 22 4E 41 24 28 33 |.....7)".."NA$(3|
00000C20: 29 00 3E 14 9C 04 8B 20 4E 41 24 28 33 29 B2 22 |).>.... NA$(3)."|
00000C30: 49 4E 41 43 54 49 56 45 22 A7 31 32 31 30 00 4D |INACTIVE".1210.M|
00000C40: 14 A6 04 99 A3 37 29 42 4E 24 28 33 29 00 65 14 |.....7)BN$(3).e.|
00000C50: B0 04 99 A3 37 29 22 41 43 43 54 20 23 20 22 41 |....7)"ACCT # "A|
00000C60: 43 24 28 33 29 00 97 14 BA 04 99 22 11 9E 45 4E |C$(3)......"..EN|
00000C70: 54 45 52 20 1C 23 9E 20 4F 46 20 41 43 43 4F 55 |TER .#. OF ACCOU|
00000C80: 4E 54 20 59 4F 55 20 57 49 53 48 20 54 4F 20 53 |NT YOU WISH TO S|
00000C90: 45 54 20 55 50 2C 22 00 C5 14 BF 04 99 22 4F 52 |ET UP,"......"OR|
00000CA0: 20 50 52 45 53 53 20 27 1C 52 45 54 55 52 4E 9E | PRESS '.RETURN.|
00000CB0: 27 20 54 4F 20 52 45 54 55 52 4E 20 54 4F 20 4D |' TO RETURN TO M|
00000CC0: 45 4E 55 2E 22 00 CF 14 C4 04 8D 39 39 38 30 00 |ENU."......9980.|
00000CD0: E2 14 C9 04 8B 41 4E 24 B2 C7 28 31 33 29 A7 31 |.....AN$..(13).1|
00000CE0: 30 30 00 F5 14 CE 04 8B C5 28 41 4E 24 29 B1 33 |00.......(AN$).3|
00000CF0: A7 31 32 32 30 00 1A 15 D8 04 41 B2 C5 28 41 4E |.1220.....A..(AN|
00000D00: 24 29 3A 8B 41 43 24 28 41 29 B2 22 49 4E 41 43 |$):.AC$(A)."INAC|
00000D10: 54 49 56 45 22 A7 31 32 39 33 00 4D 15 E2 04 99 |TIVE".1293.M....|
00000D20: 22 1C 11 12 57 41 52 4E 49 4E 47 3A 92 9E 20 52 |"...WARNING:.. R|
00000D30: 45 2D 53 54 41 52 54 49 4E 47 20 54 48 49 53 20 |E-STARTING THIS |
00000D40: 41 43 43 4F 55 4E 54 20 57 49 4C 4C 22 00 7D 15 |ACCOUNT WILL".}.|
00000D50: EC 04 99 22 45 52 41 53 45 20 41 4C 4C 20 43 55 |..."ERASE ALL CU|
00000D60: 52 52 45 4E 54 20 44 41 54 41 20 46 4F 52 20 54 |RRENT DATA FOR T|
00000D70: 48 49 53 20 41 43 43 4F 55 4E 54 2E 22 00 AB 15 |HIS ACCOUNT."...|
00000D80: F1 04 99 22 28 4D 4F 4E 54 48 4C 59 20 42 49 4C |..."(MONTHLY BIL|
00000D90: 4C 53 20 26 20 41 52 43 48 49 56 45 53 20 57 49 |LS & ARCHIVES WI|
00000DA0: 4C 4C 20 52 45 4D 41 49 4E 29 22 00 D9 15 F6 04 |LL REMAIN)".....|
00000DB0: 99 22 44 4F 20 59 4F 55 20 53 54 49 4C 4C 20 57 |."DO YOU STILL W|
00000DC0: 49 53 48 20 54 4F 20 50 52 4F 43 45 45 44 28 1C |ISH TO PROCEED(.|
00000DD0: 59 9E 2F 1C 4E 9E 29 3F 22 00 E3 15 00 05 8D 39 |Y./.N.)?"......9|
00000DE0: 39 38 30 00 F5 15 0A 05 8B 41 4E 24 B2 22 4E 22 |980......AN$."N"|
00000DF0: A7 31 30 35 30 00 08 16 0C 05 8B 41 4E 24 B3 B1 |.1050......AN$..|
00000E00: 22 59 22 A7 31 32 38 30 00 16 16 0D 05 8B 41 B2 |"Y".1280......A.|
00000E10: 33 A7 31 32 39 37 00 42 16 0F 05 99 22 93 11 9E |3.1297.B...."...|
00000E20: 53 45 54 54 49 4E 47 20 55 50 20 43 48 45 43 4B |SETTING UP CHECK|
00000E30: 49 4E 47 20 41 43 43 4F 55 4E 54 20 23 22 41 22 |ING ACCOUNT #"A"|
00000E40: 11 22 00 4C 16 10 05 89 31 33 30 30 00 72 16 11 |.".L....1300.r..|
00000E50: 05 99 22 93 11 9E 53 45 54 54 49 4E 47 20 55 50 |.."...SETTING UP|
00000E60: 20 53 41 56 49 4E 47 53 20 41 43 43 4F 55 4E 54 | SAVINGS ACCOUNT|
00000E70: 11 22 00 A3 16 12 05 42 4C 24 B2 22 20 20 20 20 |.".....BL$." |
00000E80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000E90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000EA0: 20 20 22 00 D2 16 14 05 99 22 9E 49 4E 20 57 48 | "......".IN WH|
00000EB0: 41 54 20 4E 41 4D 45 20 57 49 4C 4C 20 54 48 49 |AT NAME WILL THI|
00000EC0: 53 20 41 43 43 4F 55 4E 54 20 42 45 20 49 4E 3F |S ACCOUNT BE IN?|
00000ED0: 11 22 00 E5 16 1E 05 85 22 1D 1D 1D 1E 22 3B 4E |."......"....";N|
00000EE0: 41 24 28 41 29 00 17 17 28 05 99 22 11 9E 57 48 |A$(A)...(.."..WH|
00000EF0: 41 54 27 53 20 54 48 45 20 46 49 4E 41 4E 43 49 |AT'S THE FINANCI|
00000F00: 41 4C 20 49 4E 53 54 49 54 55 54 49 4F 4E 27 53 |AL INSTITUTION'S|
00000F10: 20 4E 41 4D 45 3F 22 00 2A 17 32 05 85 22 1D 1D | NAME?".*.2.."..|
00000F20: 1D 1E 22 3B 42 4E 24 28 41 29 00 5C 17 3C 05 99 |..";BN$(A).\.<..|
00000F30: 22 11 9E 45 4E 54 45 52 20 54 48 45 20 41 43 43 |"..ENTER THE ACC|
00000F40: 4F 55 4E 54 20 23 20 4F 46 20 54 48 45 20 4E 45 |OUNT # OF THE NE|
00000F50: 57 20 41 43 43 4F 55 4E 54 2E 20 22 00 71 17 46 |W ACCOUNT. ".q.F|
00000F60: 05 85 22 1D 1D 1D 1E 23 20 22 3B 41 43 24 28 41 |.."....# ";AC$(A|
00000F70: 29 00 A5 17 47 05 99 22 11 9E 49 53 20 54 48 45 |)...G.."..IS THE|
00000F80: 20 41 42 4F 56 45 20 49 4E 46 4F 52 4D 41 54 49 | ABOVE INFORMATI|
00000F90: 4F 4E 20 43 4F 52 52 45 43 54 3F 28 1C 59 9E 2F |ON CORRECT?(.Y./|
00000FA0: 1C 4E 9E 29 22 00 CF 17 48 05 99 22 11 1D 1D 1D |.N.)"...H.."....|
00000FB0: 1D 1D 1D 28 45 4E 54 45 52 20 1C 41 9E 20 54 4F |...(ENTER .A. TO|
00000FC0: 20 41 42 4F 52 54 20 53 45 54 20 55 50 29 22 00 | ABORT SET UP)".|
00000FD0: D9 17 49 05 8D 39 39 38 30 00 03 18 4A 05 8B 20 |..I..9980...J.. |
00000FE0: 41 4E 24 B2 22 4E 22 A7 99 22 91 91 22 42 4C 24 |AN$."N"..".."BL$|
00000FF0: 3B 42 4C 24 3A 99 22 13 11 11 11 11 22 3A 89 31 |;BL$:.".....":.1|
00001000: 33 31 30 00 14 18 4B 05 8B 41 4E 24 B2 22 41 22 |310...K..AN$."A"|
00001010: A7 31 30 30 00 26 18 4C 05 8B 41 4E 24 B3 B1 22 |.100.&.L..AN$.."|
00001020: 59 22 A7 31 30 30 00 45 18 50 05 9F 38 2C 38 2C |Y".100.E.P..8,8,|
00001030: 38 2C 22 40 30 3A 41 43 43 54 2E 49 4E 46 4F 2E |8,"@0:ACCT.INFO.|
00001040: 2C 53 2C 57 22 00 4F 18 55 05 8D 38 30 30 30 00 |,S,W".O.U..8000.|
00001050: 73 18 5A 05 98 38 2C 4E 41 24 28 31 29 3B 43 52 |s.Z..8,NA$(1);CR|
00001060: 24 3B 42 4E 24 28 31 29 3B 43 52 24 3B 41 43 24 |$;BN$(1);CR$;AC$|
00001070: 28 31 29 00 7D 18 5F 05 8D 38 30 30 30 00 A1 18 |(1).}._..8000...|
00001080: 64 05 98 38 2C 4E 41 24 28 32 29 3B 43 52 24 3B |d..8,NA$(2);CR$;|
00001090: 42 4E 24 28 32 29 3B 43 52 24 3B 41 43 24 28 32 |BN$(2);CR$;AC$(2|
000010A0: 29 00 AB 18 69 05 8D 38 30 30 30 00 CF 18 6E 05 |)...i..8000...n.|
000010B0: 98 38 2C 4E 41 24 28 33 29 3B 43 52 24 3B 42 4E |.8,NA$(3);CR$;BN|
000010C0: 24 28 33 29 3B 43 52 24 3B 41 43 24 28 33 29 00 |$(3);CR$;AC$(3).|
000010D0: D9 18 73 05 8D 38 30 30 30 00 E0 18 78 05 A0 38 |..s..8000...x..8|
000010E0: 00 05 19 7A 05 51 54 4E 24 B2 22 30 22 3A 4C 44 |...z.QTN$."0":LD|
000010F0: 24 B2 22 30 22 3A 4C 57 24 B2 22 30 22 3A 4C 43 |$."0":LW$."0":LC|
00001100: 24 B2 22 30 22 00 14 19 7D 05 8B 41 B3 B1 31 A7 |$."0"...}..A..1.|
00001110: 31 34 32 30 00 33 19 82 05 9F 38 2C 38 2C 38 2C |1420.3....8,8,8,|
00001120: 22 40 30 3A 52 45 47 49 53 54 45 52 20 31 2C 53 |"@0:REGISTER 1,S|
00001130: 2C 57 22 00 3D 19 83 05 8D 38 30 30 30 00 47 19 |,W".=....8000.G.|
00001140: 87 05 89 31 34 35 30 00 56 19 8C 05 8B 41 B3 B1 |...1450.V....A..|
00001150: 32 A7 31 34 34 30 00 75 19 96 05 9F 38 2C 38 2C |2.1440.u....8,8,|
00001160: 38 2C 22 40 30 3A 52 45 47 49 53 54 45 52 20 32 |8,"@0:REGISTER 2|
00001170: 2C 53 2C 57 22 00 7F 19 97 05 8D 38 30 30 30 00 |,S,W"......8000.|
00001180: 89 19 9B 05 89 31 34 35 30 00 A8 19 A0 05 9F 38 |.....1450......8|
00001190: 2C 38 2C 38 2C 22 40 30 3A 52 45 47 49 53 54 45 |,8,8,"@0:REGISTE|
000011A0: 52 20 33 2C 53 2C 57 22 00 B2 19 A1 05 8D 38 30 |R 3,S,W"......80|
000011B0: 30 30 00 D6 19 AA 05 98 38 2C 51 54 4E 24 3B 43 |00......8,QTN$;C|
000011C0: 52 24 3B 4C 44 24 3B 43 52 24 3B 4C 57 24 3B 43 |R$;LD$;CR$;LW$;C|
000011D0: 52 24 3B 4C 43 24 00 E0 19 B4 05 8D 38 30 30 30 |R$;LC$......8000|
000011E0: 00 E7 19 BE 05 A0 38 00 15 1A C8 05 99 22 1C 11 |......8......"..|
000011F0: 11 20 20 59 4F 55 52 20 4E 45 57 20 41 43 43 4F |. YOUR NEW ACCO|
00001200: 55 4E 54 20 48 41 53 20 42 45 45 4E 20 4F 50 45 |UNT HAS BEEN OPE|
00001210: 4E 45 44 2E 22 00 2B 1A D2 05 81 54 B2 31 A4 32 |NED.".+....T.1.2|
00001220: 30 30 30 3A 82 54 3A 89 31 30 30 00 65 1A CF 07 |000:.T:.100.e...|
00001230: 99 22 93 11 11 11 11 11 11 11 11 11 11 11 1D 1D |."..............|
00001240: 1D 1D 1D 1D 1C 2A 2A 2A 20 9E 4C 4F 41 44 49 4E |.....*** .LOADIN|
00001250: 47 20 41 43 43 4F 55 4E 54 20 23 22 3B 41 3B 22 |G ACCOUNT #";A;"|
00001260: 1C 2A 2A 2A 22 00 80 1A D0 07 8F 20 2A 2A 2A 20 |.***"...... *** |
00001270: 41 43 43 4F 55 4E 54 20 4D 45 4E 55 20 2A 2A 2A |ACCOUNT MENU ***|
00001280: 00 9C 1A D1 07 9F 37 2C 38 2C 37 2C 22 41 43 43 |......7,8,7,"ACC|
00001290: 54 2E 49 4E 46 4F 2E 2C 53 2C 52 22 00 A6 1A D2 |T.INFO.,S,R"....|
000012A0: 07 8D 38 30 30 30 00 B1 1A D3 07 81 58 B2 31 A4 |..8000......X.1.|
000012B0: 33 00 CD 1A D4 07 84 37 2C 4E 41 24 28 58 29 2C |3......7,NA$(X),|
000012C0: 42 4E 24 28 58 29 2C 41 43 24 28 58 29 00 D7 1A |BN$(X),AC$(X)...|
000012D0: D5 07 8D 38 30 30 30 00 E1 1A D6 07 52 53 B2 53 |...8000.....RS.S|
000012E0: 54 00 F1 1A D7 07 8B 52 53 B2 36 34 A7 32 30 30 |T......RS.64.200|
000012F0: 39 00 01 1B D8 07 8B 52 53 B3 B1 30 A7 31 30 34 |9......RS..0.104|
00001300: 35 00 26 1B D9 07 82 58 3A A0 37 3A 52 45 47 24 |5.&....X:.7:REG$|
00001310: B2 22 52 45 47 49 53 54 45 52 22 AA C4 28 41 29 |."REGISTER"..(A)|
00001320: 3A 8D 38 31 30 30 00 52 1B DA 07 8B 41 B2 31 A7 |:.8100.R....A.1.|
00001330: 99 22 93 9A 20 20 20 12 20 20 20 43 48 45 43 4B |.".. . CHECK|
00001340: 49 4E 47 20 41 43 43 4F 55 4E 54 20 23 31 20 20 |ING ACCOUNT #1 |
00001350: 20 22 00 7E 1B E4 07 8B 41 B2 32 A7 99 22 93 9A | ".~....A.2.."..|
00001360: 20 20 20 12 20 20 20 43 48 45 43 4B 49 4E 47 20 | . CHECKING |
00001370: 41 43 43 4F 55 4E 54 20 23 32 20 20 20 22 00 A6 |ACCOUNT #2 "..|
00001380: 1B EE 07 8B 41 B2 33 A7 99 22 93 9A 20 20 20 12 |....A.3..".. .|
00001390: 20 20 20 53 41 56 49 4E 47 53 20 41 43 43 4F 55 | SAVINGS ACCOU|
000013A0: 4E 54 20 20 20 22 00 BA 1B F8 07 99 22 1D 1D 1D |NT "......"...|
000013B0: 1D 1D 1C 22 4E 41 24 28 41 29 00 C9 1B 02 08 99 |..."NA$(A)......|
000013C0: A3 35 29 42 4E 24 28 41 29 00 E4 1B 0C 08 99 A3 |.5)BN$(A).......|
000013D0: 35 29 22 41 43 43 4F 55 4E 54 20 23 20 22 41 43 |5)"ACCOUNT # "AC|
000013E0: 24 28 41 29 00 F8 1B 16 08 99 22 1D 1D 1D 9E 4F |$(A)......"....O|
000013F0: 50 54 49 4F 4E 53 3A 22 00 12 1C 20 08 99 A3 35 |PTIONS:"... ...5|
00001400: 29 22 11 1E 28 1C 31 1E 29 20 44 45 50 4F 53 49 |)"..(.1.) DEPOSI|
00001410: 54 22 00 2E 1C 2A 08 99 A3 35 29 22 11 28 1C 32 |T"...*...5)".(.2|
00001420: 1E 29 20 57 49 54 48 44 52 41 57 41 4C 22 00 3C |.) WITHDRAWAL".<|
00001430: 1C 2F 08 8B 41 B2 33 A7 32 31 32 30 00 5B 1C 34 |./..A.3.2120.[.4|
00001440: 08 99 A3 35 29 22 11 28 1C 33 1E 29 20 4D 4F 4E |...5)".(.3.) MON|
00001450: 54 48 4C 59 20 42 49 4C 4C 53 22 00 81 1C 3E 08 |THLY BILLS"...>.|
00001460: 99 A3 35 29 22 11 28 1C 34 1E 29 20 4D 49 53 43 |..5)".(.4.) MISC|
00001470: 45 4C 4C 41 4E 45 4F 55 53 20 43 48 45 43 4B 53 |ELLANEOUS CHECKS|
00001480: 22 00 A0 1C 48 08 99 A3 35 29 22 11 28 1C 35 1E |"...H...5)".(.5.|
00001490: 29 20 56 49 45 57 20 52 45 47 49 53 54 45 52 22 |) VIEW REGISTER"|
000014A0: 00 C0 1C 52 08 99 A3 35 29 22 11 28 1C 36 1E 29 |...R...5)".(.6.)|
000014B0: 20 50 52 49 4E 54 20 52 45 47 49 53 54 45 52 22 | PRINT REGISTER"|
000014C0: 00 E1 1C 5C 08 99 A3 35 29 22 11 28 1C 37 1E 29 |...\...5)".(.7.)|
000014D0: 20 42 41 4C 41 4E 43 45 20 41 43 43 4F 55 4E 54 | BALANCE ACCOUNT|
000014E0: 22 00 FB 1C 66 08 99 A3 35 29 22 11 28 1C 38 1E |"...f...5)".(.8.|
000014F0: 29 20 41 52 43 48 49 56 45 53 22 00 1F 1D 6B 08 |) ARCHIVES"...k.|
00001500: 99 A3 35 29 22 11 28 1C 39 1E 29 20 4C 45 41 56 |..5)".(.9.) LEAV|
00001510: 45 20 54 48 49 53 20 41 43 43 4F 55 4E 54 22 00 |E THIS ACCOUNT".|
00001520: 47 1D 70 08 99 22 1D 1D 9E 11 50 4C 45 41 53 45 |G.p.."....PLEASE|
00001530: 20 45 4E 54 45 52 20 59 4F 55 52 20 43 48 4F 49 | ENTER YOUR CHOI|
00001540: 43 45 2E 91 91 91 22 00 5A 1D 7A 08 8D 39 39 38 |CE....".Z.z..998|
00001550: 30 3A 43 B2 C5 28 41 4E 24 29 00 68 1D 84 08 8B |0:C..(AN$).h....|
00001560: 43 B2 30 A7 32 31 37 30 00 7F 1D 8E 08 8B 43 B3 |C.0.2170......C.|
00001570: 35 A7 4C 41 24 B2 22 53 22 3A 89 33 30 30 30 00 |5.LA$."S":.3000.|
00001580: 8D 1D 98 08 8B 43 B2 35 A7 35 30 30 30 00 9B 1D |.....C.5.5000...|
00001590: A2 08 8B 43 B2 36 A7 36 30 30 30 00 B2 1D AC 08 |...C.6.6000.....|
000015A0: 8B 43 B2 37 A7 4C 41 24 B2 22 53 22 3A 89 37 30 |.C.7.LA$."S":.70|
000015B0: 30 30 00 C0 1D B1 08 8B 43 B2 38 A7 34 30 30 30 |00......C.8.4000|
000015C0: 00 CF 1D B2 08 8B 43 B3 B1 39 A7 32 31 37 30 00 |......C..9.2170.|
000015D0: E1 1D B6 08 8B 4C 41 24 B2 22 53 22 A7 32 32 33 |.....LA$."S".223|
000015E0: 35 00 EA 1D B9 08 89 31 30 30 00 0E 1E BB 08 52 |5......100.....R|
000015F0: 45 47 24 B2 22 52 45 47 49 53 54 45 52 22 AA C4 |EG$."REGISTER"..|
00001600: 28 41 29 3A 8D 38 32 30 30 3A 89 31 30 30 00 2B |(A):.8200:.100.+|
00001610: 1E B8 0B 8F 20 2A 2A 2A 20 45 4E 54 52 59 20 52 |.... *** ENTRY R|
00001620: 4F 55 54 49 4E 45 53 20 2A 2A 2A 00 58 1E C2 0B |OUTINES ***.X...|
00001630: 8B 41 B2 31 A7 99 22 93 11 9A 20 20 20 12 20 20 |.A.1.."... . |
00001640: 20 43 48 45 43 4B 49 4E 47 20 41 43 43 4F 55 4E | CHECKING ACCOUN|
00001650: 54 20 23 31 20 20 20 22 00 85 1E CC 0B 8B 41 B2 |T #1 "......A.|
00001660: 32 A7 99 22 93 11 9A 20 20 20 12 20 20 20 43 48 |2.."... . CH|
00001670: 45 43 4B 49 4E 47 20 41 43 43 4F 55 4E 54 20 23 |ECKING ACCOUNT #|
00001680: 32 20 20 20 22 00 AE 1E D6 0B 8B 41 B2 33 A7 99 |2 "......A.3..|
00001690: 22 93 11 9A 20 20 20 12 20 20 20 53 41 56 49 4E |"... . SAVIN|
000016A0: 47 53 20 41 43 43 4F 55 4E 54 20 20 20 22 00 C2 |GS ACCOUNT "..|
000016B0: 1E E0 0B 99 22 1D 1D 1D 1D 1D 1C 22 4E 41 24 28 |...."......"NA$(|
000016C0: 41 29 00 D1 1E EA 0B 99 A3 35 29 42 4E 24 28 41 |A).......5)BN$(A|
000016D0: 29 00 EC 1E F4 0B 99 A3 35 29 22 41 43 43 4F 55 |).......5)"ACCOU|
000016E0: 4E 54 20 23 20 22 41 43 24 28 41 29 00 FB 1E 09 |NT # "AC$(A)....|
000016F0: 0C 8B 20 43 B2 31 A7 33 31 30 30 00 0A 1F 0A 0C |.. C.1.3100.....|
00001700: 8B 20 43 B2 32 A7 33 32 30 30 00 19 1F 0B 0C 8B |. C.2.3200......|
00001710: 20 43 B2 33 A7 33 33 30 30 00 28 1F 0C 0C 8B 20 | C.3.3300.(.... |
00001720: 43 B2 34 A7 33 36 30 30 00 32 1F 12 0C 89 32 30 |C.4.3600.2....20|
00001730: 31 30 00 57 1F 1C 0C 99 22 11 9A 20 20 20 20 20 |10.W....".. |
00001740: 20 20 20 20 20 20 20 20 12 20 20 20 44 45 50 4F | . DEPO|
00001750: 53 49 54 20 20 20 22 00 67 1F 21 0C 8D 35 36 30 |SIT ".g.!..560|
00001760: 30 3A 51 B2 51 AA 31 00 97 1F 26 0C 99 22 11 9E |0:Q.Q.1...&.."..|
00001770: 45 4E 54 45 52 20 44 41 54 45 20 44 45 50 4F 53 |ENTER DATE DEPOS|
00001780: 49 54 20 57 41 53 20 4D 41 44 45 28 4D 4F 2F 44 |IT WAS MADE(MO/D|
00001790: 41 2F 59 52 29 3A 22 00 A8 1F 27 0C 8B 54 44 24 |A/YR):"...'..TD$|
000017A0: B2 22 22 A7 33 31 31 35 00 D1 1F 28 0C 99 22 1E |."".3115...(..".|
000017B0: 11 1D 1D 1D 1D 1D 22 3B 54 44 24 3A 85 22 1E 91 |......";TD$:."..|
000017C0: 1D 1D 1D 22 3B 44 41 24 28 51 29 3A 89 33 31 32 |...";DA$(Q):.312|
000017D0: 30 00 F8 1F 2B 0C 85 22 11 1D 1D 1D 1E 22 3B 44 |0...+..".....";D|
000017E0: 41 24 28 51 29 3A 8B 54 44 24 B2 22 22 A7 54 44 |A$(Q):.TD$."".TD|
000017F0: 24 B2 44 41 24 28 51 29 00 1A 20 30 0C 99 22 11 |$.DA$(Q).. 0..".|
00001800: 9E 45 4E 54 45 52 20 41 4D 4F 55 4E 54 20 4F 46 |.ENTER AMOUNT OF|
00001810: 20 44 45 50 4F 53 49 54 3A 22 00 4C 20 35 0C 85 | DEPOSIT:".L 5..|
00001820: 22 1E 11 1D 1D 1D 1D 24 9D 9D 22 3B 41 4D 24 28 |"......$..";AM$(|
00001830: 51 29 3A 5A 24 B2 41 4D 24 28 51 29 3A 8D 35 35 |Q):Z$.AM$(Q):.55|
00001840: 30 30 3A 41 4D 24 28 51 29 B2 5A 24 00 79 20 3A |00:AM$(Q).Z$.y :|
00001850: 0C 99 22 11 9E 45 4E 54 45 52 20 4D 45 4D 4F 20 |.."..ENTER MEMO |
00001860: 46 4F 52 20 52 45 47 49 53 54 45 52 20 49 46 20 |FOR REGISTER IF |
00001870: 44 45 53 49 52 45 44 3A 22 00 A0 20 3F 0C 99 22 |DESIRED:".. ?.."|
00001880: 11 1D 1D 1D 1D 1D 1E 50 41 59 43 48 45 43 4B 22 |.......PAYCHECK"|
00001890: 3A 85 22 91 1D 1D 1D 1E 22 3B 52 4D 24 28 51 29 |:.".....";RM$(Q)|
000018A0: 00 E2 20 44 0C 44 45 24 28 51 29 B2 22 44 45 50 |.. D.DE$(Q)."DEP|
000018B0: 4F 53 49 54 22 3A 43 4D 24 28 51 29 B2 22 20 22 |OSIT":CM$(Q)." "|
000018C0: 3A 4D 4B 24 28 51 29 B2 22 20 22 3A 54 4E 24 28 |:MK$(Q)." ":TN$(|
000018D0: 51 29 B2 22 44 22 AA C4 28 C5 28 4C 44 24 29 AA |Q)."D"..(.(LD$).|
000018E0: 31 29 00 18 21 49 0C 42 41 B2 C5 28 42 41 24 28 |1)..!I.BA..(BA$(|
000018F0: 51 AB 31 29 29 3A 41 4D B2 C5 28 41 4D 24 28 51 |Q.1)):AM..(AM$(Q|
00001900: 29 29 3A 42 53 B2 42 41 AA 41 4D 3A 42 41 24 28 |)):BS.BA.AM:BA$(|
00001910: 51 29 B2 C4 28 42 53 29 00 58 21 4A 0C 44 B2 C3 |Q)..(BS).X!J.D..|
00001920: 28 54 4E 24 28 51 29 29 3A 44 B2 44 AB 31 3A 4C |(TN$(Q)):D.D.1:L|
00001930: 44 24 B2 C9 28 54 4E 24 28 51 29 2C 44 29 3A 5A |D$..(TN$(Q),D):Z|
00001940: 24 B2 42 41 24 28 51 29 3A 8D 35 35 30 30 3A 42 |$.BA$(Q):.5500:B|
00001950: 41 24 28 51 29 B2 5A 24 00 86 21 4E 0C 99 22 11 |A$(Q).Z$..!N..".|
00001960: 1C 59 4F 55 52 20 44 45 50 4F 53 49 54 20 48 41 |.YOUR DEPOSIT HA|
00001970: 53 20 42 45 45 4E 20 52 45 43 4F 52 44 45 44 20 |S BEEN RECORDED |
00001980: 55 4E 44 45 52 22 00 A2 21 53 0C 99 22 54 52 41 |UNDER"..!S.."TRA|
00001990: 4E 53 41 43 54 49 4F 4E 20 23 20 22 54 4E 24 28 |NSACTION # "TN$(|
000019A0: 51 29 00 D1 21 58 0C 99 22 11 9E 59 4F 55 52 20 |Q)..!X.."..YOUR |
000019B0: 41 43 43 4F 55 4E 54 20 42 41 4C 41 4E 43 45 20 |ACCOUNT BALANCE |
000019C0: 49 53 20 4E 4F 57 20 1C 24 22 3B 42 41 24 28 51 |IS NOW .$";BA$(Q|
000019D0: 29 00 E8 21 5D 0C 81 54 B2 31 A4 33 30 30 30 3A |)..!]..T.1.3000:|
000019E0: 82 54 3A 89 32 30 31 30 00 0E 22 80 0C 99 22 11 |.T:.2010.."...".|
000019F0: 9A 20 20 20 20 20 20 20 20 20 20 20 12 20 20 20 |. . |
00001A00: 57 49 54 48 44 52 41 57 41 4C 20 20 20 22 00 1E |WITHDRAWAL "..|
00001A10: 22 85 0C 8D 35 36 30 30 3A 51 B2 51 AA 31 00 4B |"...5600:Q.Q.1.K|
00001A20: 22 8A 0C 99 22 11 9E 45 4E 54 45 52 20 44 41 54 |"..."..ENTER DAT|
00001A30: 45 20 4F 46 20 57 49 54 48 44 52 41 57 41 4C 28 |E OF WITHDRAWAL(|
00001A40: 4D 4F 2F 44 41 2F 59 52 29 3A 22 00 5C 22 8B 0C |MO/DA/YR):".\"..|
00001A50: 8B 54 44 24 B2 22 22 A7 33 32 31 35 00 85 22 8C |.TD$."".3215..".|
00001A60: 0C 99 22 1E 11 1D 1D 1D 1D 1D 22 3B 54 44 24 3A |..".......";TD$:|
00001A70: 85 22 1E 91 1D 1D 1D 22 3B 44 41 24 28 51 29 3A |.".....";DA$(Q):|
00001A80: 89 33 32 32 30 00 AC 22 8F 0C 85 22 11 1D 1D 1D |.3220.."..."....|
00001A90: 1E 22 3B 44 41 24 28 51 29 3A 8B 54 44 24 B2 22 |.";DA$(Q):.TD$."|
00001AA0: 22 A7 54 44 24 B2 44 41 24 28 51 29 00 D1 22 94 |".TD$.DA$(Q)..".|
00001AB0: 0C 99 22 11 9E 45 4E 54 45 52 20 41 4D 4F 55 4E |.."..ENTER AMOUN|
00001AC0: 54 20 4F 46 20 57 49 54 48 44 52 41 57 41 4C 3A |T OF WITHDRAWAL:|
00001AD0: 22 00 03 23 99 0C 85 22 1E 11 1D 1D 1D 1D 24 9D |"..#..."......$.|
00001AE0: 9D 22 3B 41 4D 24 28 51 29 3A 5A 24 B2 41 4D 24 |.";AM$(Q):Z$.AM$|
00001AF0: 28 51 29 3A 8D 35 35 30 30 3A 41 4D 24 28 51 29 |(Q):.5500:AM$(Q)|
00001B00: B2 5A 24 00 25 23 9E 0C 99 22 11 9E 45 4E 54 45 |.Z$.%#..."..ENTE|
00001B10: 52 20 4D 45 4D 4F 20 46 4F 52 20 52 45 47 49 53 |R MEMO FOR REGIS|
00001B20: 54 45 52 3A 22 00 48 23 A3 0C 99 22 11 1D 1D 1D |TER:".H#..."....|
00001B30: 1D 1D 1E 43 41 53 48 22 3A 85 22 91 1D 1D 1D 1E |...CASH":.".....|
00001B40: 22 3B 52 4D 24 28 51 29 00 8D 23 A8 0C 44 45 24 |";RM$(Q)..#..DE$|
00001B50: 28 51 29 B2 22 57 49 54 48 44 52 41 57 41 4C 22 |(Q)."WITHDRAWAL"|
00001B60: 3A 43 4D 24 28 51 29 B2 22 20 22 3A 4D 4B 24 28 |:CM$(Q)." ":MK$(|
00001B70: 51 29 B2 22 20 22 3A 54 4E 24 28 51 29 B2 22 57 |Q)." ":TN$(Q)."W|
00001B80: 22 AA C4 28 C5 28 4C 57 24 29 AA 31 29 00 C3 23 |"..(.(LW$).1)..#|
00001B90: AD 0C 42 41 B2 C5 28 42 41 24 28 51 AB 31 29 29 |..BA..(BA$(Q.1))|
00001BA0: 3A 41 4D B2 C5 28 41 4D 24 28 51 29 29 3A 42 53 |:AM..(AM$(Q)):BS|
00001BB0: B2 42 41 AB 41 4D 3A 42 41 24 28 51 29 B2 C4 28 |.BA.AM:BA$(Q)..(|
00001BC0: 42 53 29 00 03 24 AE 0C 57 B2 C3 28 54 4E 24 28 |BS)..$..W..(TN$(|
00001BD0: 51 29 29 3A 57 B2 57 AB 31 3A 4C 57 24 B2 C9 28 |Q)):W.W.1:LW$..(|
00001BE0: 54 4E 24 28 51 29 2C 57 29 3A 5A 24 B2 42 41 24 |TN$(Q),W):Z$.BA$|
00001BF0: 28 51 29 3A 8D 35 35 30 30 3A 42 41 24 28 51 29 |(Q):.5500:BA$(Q)|
00001C00: B2 5A 24 00 34 24 B2 0C 99 22 11 1C 59 4F 55 52 |.Z$.4$..."..YOUR|
00001C10: 20 57 49 54 48 44 52 41 57 41 4C 20 48 41 53 20 | WITHDRAWAL HAS |
00001C20: 42 45 45 4E 20 52 45 43 4F 52 44 45 44 20 55 4E |BEEN RECORDED UN|
00001C30: 44 45 52 22 00 51 24 B7 0C 99 22 54 52 41 4E 53 |DER".Q$..."TRANS|
00001C40: 41 43 54 49 4F 4E 20 23 20 22 3B 54 4E 24 28 51 |ACTION # ";TN$(Q|
00001C50: 29 00 80 24 BC 0C 99 22 11 9E 59 4F 55 52 20 41 |)..$..."..YOUR A|
00001C60: 43 43 4F 55 4E 54 20 42 41 4C 41 4E 43 45 20 49 |CCOUNT BALANCE I|
00001C70: 53 20 4E 4F 57 20 1C 24 22 3B 42 41 24 28 51 29 |S NOW .$";BA$(Q)|
00001C80: 00 97 24 C1 0C 81 54 B2 31 A4 33 30 30 30 3A 82 |..$...T.1.3000:.|
00001C90: 54 3A 89 32 30 31 30 00 C0 24 E4 0C 99 22 93 11 |T:.2010..$..."..|
00001CA0: 9A 20 20 20 20 20 20 20 20 20 20 12 20 20 20 4D |. . M|
00001CB0: 4F 4E 54 48 4C 59 20 42 49 4C 4C 53 20 20 20 22 |ONTHLY BILLS "|
00001CC0: 00 E0 24 E9 0C 42 49 4C 4C 24 B2 22 4D 4F 2E 42 |..$..BILL$."MO.B|
00001CD0: 49 4C 4C 53 22 AA C4 28 41 29 3A 8D 38 34 30 30 |ILLS"..(A):.8400|
00001CE0: 00 10 25 EE 0C 99 22 11 9E 4E 41 4D 45 20 4F 46 |..%..."..NAME OF|
00001CF0: 20 42 49 4C 4C 3A 20 20 20 20 20 20 20 20 20 20 | BILL: |
00001D00: 20 20 20 20 20 4C 41 53 54 20 50 41 49 44 3A 22 | LAST PAID:"|
00001D10: 00 1B 25 F3 0C 81 58 B2 31 A4 4D 00 3A 25 F8 0C |..%...X.1.M.:%..|
00001D20: 99 22 1D 1D 1E 28 1C 22 3B C4 28 58 29 3B 22 1E |."...(.";.(X);".|
00001D30: 29 20 22 4D 44 45 24 28 58 29 00 61 25 FD 0C 99 |) "MDE$(X).a%...|
00001D40: A3 33 30 29 22 91 22 50 46 24 28 58 29 3A 82 58 |.30)"."PF$(X):.X|
00001D50: 3A 8B 41 42 B2 31 A7 41 42 B2 30 3A 89 33 33 34 |:.AB.1.AB.0:.334|
00001D60: 32 00 7C 25 FE 0C 99 22 11 1D 1D 1D 9E 50 4C 45 |2.|%...".....PLE|
00001D70: 41 53 45 20 43 48 4F 4F 53 45 3A 22 00 A2 25 00 |ASE CHOOSE:"..%.|
00001D80: 0D 99 22 1D 1D 1D 1D 1D 1E 28 1C 31 1E 29 20 50 |.."......(.1.) P|
00001D90: 41 59 20 41 20 4D 4F 4E 54 48 4C 59 20 42 49 4C |AY A MONTHLY BIL|
00001DA0: 4C 22 00 CE 25 02 0D 99 22 1D 1D 1D 1D 1D 28 1C |L"..%...".....(.|
00001DB0: 32 1E 29 20 4D 4F 44 49 46 59 20 4D 4F 4E 54 48 |2.) MODIFY MONTH|
00001DC0: 4C 59 20 42 49 4C 4C 53 20 46 49 4C 45 22 00 F7 |LY BILLS FILE"..|
00001DD0: 25 04 0D 99 22 1D 1D 1D 1D 1D 28 1C 33 1E 29 20 |%...".....(.3.) |
00001DE0: 52 45 54 55 52 4E 20 54 4F 20 41 43 43 4F 55 4E |RETURN TO ACCOUN|
00001DF0: 54 20 4D 45 4E 55 22 00 10 26 06 0D 8D 39 39 38 |T MENU"..&...998|
00001E00: 30 3A 8B C5 28 41 4E 24 29 B1 33 A7 33 33 33 34 |0:..(AN$).3.3334|
00001E10: 00 22 26 08 0D 8B 41 4E 24 B2 22 30 22 A7 33 33 |."&...AN$."0".33|
00001E20: 33 34 00 34 26 0A 0D 8B 41 4E 24 B2 22 32 22 A7 |34.4&...AN$."2".|
00001E30: 33 35 30 30 00 46 26 0C 0D 8B 41 4E 24 B2 22 33 |3500.F&...AN$."3|
00001E40: 22 A7 32 30 31 30 00 77 26 0E 0D 85 22 11 11 9E |".2010.w&..."...|
00001E50: 57 48 49 43 48 20 42 49 4C 4C 28 1C 23 9E 29 20 |WHICH BILL(.#.) |
00001E60: 44 4F 20 59 4F 55 20 57 41 4E 54 20 54 4F 20 50 |DO YOU WANT TO P|
00001E70: 41 59 22 3B 41 4E 24 00 8A 26 10 0D 8B C5 28 41 |AY";AN$..&....(A|
00001E80: 4E 24 29 B1 4D A7 33 33 34 32 00 9C 26 12 0D 8B |N$).M.3342..&...|
00001E90: 41 4E 24 B2 22 30 22 A7 33 33 34 32 00 D8 26 16 |AN$."0".3342..&.|
00001EA0: 0D 42 B2 C5 28 41 4E 24 29 3A 51 B2 51 AA 31 3A |.B..(AN$):Q.Q.1:|
00001EB0: 44 45 24 28 51 29 B2 4D 44 45 24 28 42 29 3A 43 |DE$(Q).MDE$(B):C|
00001EC0: 4D 24 28 51 29 B2 4D 43 4D 24 28 42 29 3A 4D 4B |M$(Q).MCM$(B):MK|
00001ED0: 24 28 51 29 B2 22 20 22 00 F9 26 20 0D 99 22 93 |$(Q)." "..& ..".|
00001EE0: 11 9E 43 52 45 41 54 49 4E 47 20 43 48 45 43 4B |..CREATING CHECK|
00001EF0: 20 54 4F 20 50 41 59 3A 22 00 1A 27 25 0D 99 22 | TO PAY:"..'%.."|
00001F00: 11 1D 1D 1D 1E 22 44 45 24 28 51 29 3A 99 22 1D |....."DE$(Q):.".|
00001F10: 1D 1D 1D 22 43 4D 24 28 51 29 00 42 27 2A 0D 99 |..."CM$(Q).B'*..|
00001F20: 22 11 9E 45 4E 54 45 52 20 44 41 54 45 20 4F 46 |"..ENTER DATE OF|
00001F30: 20 43 48 45 43 4B 28 4D 4F 2F 44 41 2F 59 52 29 | CHECK(MO/DA/YR)|
00001F40: 3A 22 00 53 27 2B 0D 8B 54 44 24 B2 22 22 A7 33 |:".S'+..TD$."".3|
00001F50: 33 37 35 00 7C 27 2C 0D 99 22 1E 11 1D 1D 1D 1D |375.|',.."......|
00001F60: 1D 22 3B 54 44 24 3A 85 22 1E 91 1D 1D 1D 22 3B |.";TD$:.".....";|
00001F70: 44 41 24 28 51 29 3A 89 33 33 38 30 00 B1 27 2F |DA$(Q):.3380..'/|
00001F80: 0D 85 22 11 1D 1D 1D 1E 22 3B 44 41 24 28 51 29 |..".....";DA$(Q)|
00001F90: 3A 50 46 24 28 42 29 B2 44 41 24 28 51 29 3A 8B |:PF$(B).DA$(Q):.|
00001FA0: 54 44 24 B2 22 22 A7 54 44 24 B2 44 41 24 28 51 |TD$."".TD$.DA$(Q|
00001FB0: 29 00 D1 27 34 0D 99 22 11 9E 45 4E 54 45 52 20 |)..'4.."..ENTER |
00001FC0: 41 4D 4F 55 4E 54 20 4F 46 20 43 48 45 43 4B 3A |AMOUNT OF CHECK:|
00001FD0: 22 00 03 28 39 0D 85 22 1E 11 1D 1D 1D 1D 24 9D |"..(9.."......$.|
00001FE0: 9D 22 3B 41 4D 24 28 51 29 3A 5A 24 B2 41 4D 24 |.";AM$(Q):Z$.AM$|
00001FF0: 28 51 29 3A 8D 35 35 30 30 3A 41 4D 24 28 51 29 |(Q):.5500:AM$(Q)|
00002000: B2 5A 24 00 29 28 3E 0D 99 22 11 9E 45 4E 54 45 |.Z$.)(>.."..ENTE|
00002010: 52 20 4D 45 4D 4F 20 46 4F 52 20 54 48 45 20 52 |R MEMO FOR THE R|
00002020: 45 47 49 53 54 45 52 3A 22 00 54 28 41 0D 99 22 |EGISTER:".T(A.."|
00002030: 11 1D 1D 1D 1D 1D 1E 22 4D 52 4D 24 28 42 29 3A |......."MRM$(B):|
00002040: 85 22 91 1D 1D 1D 22 3B 52 4D 24 28 51 29 3A 8D |."....";RM$(Q):.|
00002050: 33 39 30 30 00 82 28 42 0D 99 22 11 9E 59 4F 55 |3900..(B.."..YOU|
00002060: 52 20 41 43 43 4F 55 4E 54 20 42 41 4C 41 4E 43 |R ACCOUNT BALANC|
00002070: 45 20 49 53 20 4E 4F 57 20 1C 24 22 42 41 24 28 |E IS NOW .$"BA$(|
00002080: 51 29 00 BC 28 43 0D 50 46 24 28 42 29 B2 44 41 |Q)..(C.PF$(B).DA|
00002090: 24 28 51 29 3A 99 22 11 9E 50 41 59 20 41 4E 4F |$(Q):."..PAY ANO|
000020A0: 54 48 45 52 20 4D 4F 4E 54 48 4C 59 20 42 49 4C |THER MONTHLY BIL|
000020B0: 4C 28 1C 59 9E 2F 1C 4E 9E 29 3F 22 00 DF 28 44 |L(.Y./.N.)?"..(D|
000020C0: 0D 8D 39 39 38 30 3A 8B 41 4E 24 B2 22 59 22 A7 |..9980:.AN$."Y".|
000020D0: 4D 53 B2 31 3A 41 42 B2 31 3A 89 33 33 30 30 00 |MS.1:AB.1:.3300.|
000020E0: F2 28 45 0D 8B 41 4E 24 B3 B1 22 4E 22 A7 33 33 |.(E..AN$.."N".33|
000020F0: 39 36 00 02 29 46 0D 8D 38 36 30 30 3A 89 32 30 |96..)F..8600:.20|
00002100: 31 30 00 26 29 48 0D 99 22 93 11 12 9A 20 20 20 |10.&)H..".... |
00002110: 41 44 44 20 41 20 4D 4F 4E 54 48 4C 59 20 42 49 |ADD A MONTHLY BI|
00002120: 4C 4C 20 20 20 22 00 54 29 4D 0D 99 22 11 9E 50 |LL ".T)M.."..P|
00002130: 4C 45 41 53 45 20 45 4E 54 45 52 20 54 48 45 20 |LEASE ENTER THE |
00002140: 45 58 41 43 54 20 4E 41 4D 45 20 54 4F 20 57 48 |EXACT NAME TO WH|
00002150: 49 43 48 22 00 73 29 52 0D 99 22 43 48 45 43 4B |ICH".s)R.."CHECK|
00002160: 53 20 57 49 4C 4C 20 42 45 20 57 52 49 54 54 45 |S WILL BE WRITTE|
00002170: 4E 3A 22 00 93 29 57 0D 99 22 1E 11 3F 20 22 3B |N:"..)W.."..? ";|
00002180: 3A 8D 33 30 30 3A 4D 44 45 24 28 4D AA 31 29 B2 |:.300:MDE$(M.1).|
00002190: 41 4E 24 00 C1 29 5C 0D 99 22 11 9E 50 4C 45 41 |AN$..)\.."..PLEA|
000021A0: 53 45 20 45 4E 54 45 52 20 54 48 45 20 4D 45 4D |SE ENTER THE MEM|
000021B0: 4F 20 54 4F 20 42 45 20 52 45 43 4F 52 44 45 44 |O TO BE RECORDED|
000021C0: 22 00 E1 29 61 0D 99 22 4F 4E 20 54 48 45 20 43 |"..)a.."ON THE C|
000021D0: 48 45 43 4B 53 28 41 43 43 4F 55 4E 54 23 29 3A |HECKS(ACCOUNT#):|
000021E0: 22 00 01 2A 66 0D 99 22 1E 11 3F 20 22 3B 3A 8D |"..*f.."..? ";:.|
000021F0: 33 30 30 3A 4D 43 4D 24 28 4D AA 31 29 B2 41 4E |300:MCM$(M.1).AN|
00002200: 24 00 2F 2A 6B 0D 99 22 11 9E 50 4C 45 41 53 45 |$./*k.."..PLEASE|
00002210: 20 45 4E 54 45 52 20 54 48 45 20 4D 45 4D 4F 20 | ENTER THE MEMO |
00002220: 54 4F 20 42 45 20 52 45 43 4F 52 44 45 44 22 00 |TO BE RECORDED".|
00002230: 51 2A 70 0D 99 22 49 4E 20 54 48 45 20 43 48 45 |Q*p.."IN THE CHE|
00002240: 43 4B 42 4F 4F 4B 20 52 45 47 49 53 54 45 52 3A |CKBOOK REGISTER:|
00002250: 22 00 71 2A 75 0D 99 22 1E 11 3F 20 22 3B 3A 8D |".q*u.."..? ";:.|
00002260: 33 30 30 3A 4D 52 4D 24 28 4D AA 31 29 B2 41 4E |300:MRM$(M.1).AN|
00002270: 24 00 87 2A 7A 0D 50 46 24 28 4D AA 31 29 B2 22 |$..*z.PF$(M.1)."|
00002280: 55 4E 50 41 49 44 22 00 BB 2A 7F 0D 99 22 9E 11 |UNPAID"..*..."..|
00002290: 49 53 20 54 48 45 20 41 42 4F 56 45 20 49 4E 46 |IS THE ABOVE INF|
000022A0: 4F 52 4D 41 54 49 4F 4E 20 43 4F 52 52 45 43 54 |ORMATION CORRECT|
000022B0: 3F 28 1C 59 9E 2F 1C 4E 9E 29 22 00 C5 2A 84 0D |?(.Y./.N.)"..*..|
000022C0: 8D 39 39 38 30 00 EC 2A 89 0D 8B 41 4E 24 B2 22 |.9980..*...AN$."|
000022D0: 59 22 A7 4D B2 4D AA 31 3A 4D 42 24 B2 C4 28 4D |Y".M.M.1:MB$..(M|
000022E0: 29 3A 53 56 B2 31 3A 89 33 35 30 30 00 FF 2A 8E |):SV.1:.3500..*.|
000022F0: 0D 8B 41 4E 24 B3 B1 22 4E 22 A7 33 34 36 30 00 |..AN$.."N".3460.|
00002300: 09 2B 93 0D 89 33 34 30 30 00 39 2B AC 0D 99 22 |.+...3400.9+..."|
00002310: 93 11 9A 20 20 20 20 12 20 20 20 4D 4F 44 49 46 |... . MODIF|
00002320: 59 20 4D 4F 4E 54 48 4C 59 20 42 49 4C 4C 53 20 |Y MONTHLY BILLS |
00002330: 46 49 4C 45 20 20 20 11 22 00 62 2B B1 0D 81 58 |FILE .".b+...X|
00002340: B2 31 A4 4D 3A 99 22 1D 1D 1E 28 1C 22 3B C4 28 |.1.M:."...(.";.(|
00002350: 58 29 3B 22 1E 29 20 22 4D 44 45 24 28 58 29 3A |X);".) "MDE$(X):|
00002360: 82 58 00 7D 2B B6 0D 99 22 11 1D 1D 1D 9E 50 4C |.X.}+...".....PL|
00002370: 45 41 53 45 20 43 48 4F 4F 53 45 3A 22 00 A3 2B |EASE CHOOSE:"..+|
00002380: BB 0D 99 22 1D 1D 1D 1D 1D 1E 28 1C 31 1E 29 20 |..."......(.1.) |
00002390: 41 44 44 20 41 20 4D 4F 4E 54 48 4C 59 20 42 49 |ADD A MONTHLY BI|
000023A0: 4C 4C 22 00 CB 2B C0 0D 99 22 1D 1D 1D 1D 1D 28 |LL"..+...".....(|
000023B0: 1C 32 1E 29 20 44 45 4C 45 54 45 20 41 20 4D 4F |.2.) DELETE A MO|
000023C0: 4E 54 48 4C 59 20 42 49 4C 4C 22 00 F4 2B C5 0D |NTHLY BILL"..+..|
000023D0: 99 22 1D 1D 1D 1D 1D 28 1C 33 1E 29 20 52 45 54 |.".....(.3.) RET|
000023E0: 55 52 4E 20 54 4F 20 41 43 43 4F 55 4E 54 20 4D |URN TO ACCOUNT M|
000023F0: 45 4E 55 22 00 0D 2C CA 0D 8D 39 39 38 30 3A 8B |ENU"..,...9980:.|
00002400: C5 28 41 4E 24 29 B1 33 A7 33 35 33 30 00 1F 2C |.(AN$).3.3530..,|
00002410: D4 0D 8B 41 4E 24 B2 22 30 22 A7 33 35 33 30 00 |...AN$."0".3530.|
00002420: 31 2C D9 0D 8B 41 4E 24 B2 22 31 22 A7 33 34 30 |1,...AN$."1".340|
00002430: 30 00 43 2C DE 0D 8B 41 4E 24 B2 22 32 22 A7 33 |0.C,...AN$."2".3|
00002440: 35 36 30 00 56 2C E3 0D 8B 41 4E 24 B3 B1 22 33 |560.V,...AN$.."3|
00002450: 22 A7 33 35 33 30 00 6B 2C E4 0D 8B 53 56 B2 31 |".3530.k,...SV.1|
00002460: A7 53 56 B2 30 3A 8D 38 36 30 30 00 75 2C E5 0D |.SV.0:.8600.u,..|
00002470: 89 32 30 31 30 00 A8 2C E8 0D 85 22 11 9E 57 48 |.2010..,..."..WH|
00002480: 49 43 48 20 42 49 4C 4C 28 1C 23 9E 29 20 44 4F |ICH BILL(.#.) DO|
00002490: 20 59 4F 55 20 57 41 4E 54 20 54 4F 20 44 45 4C | YOU WANT TO DEL|
000024A0: 45 54 45 22 3B 41 4E 24 00 BB 2C ED 0D 8B C5 28 |ETE";AN$..,....(|
000024B0: 41 4E 24 29 B1 4D A7 33 35 36 30 00 CD 2C F2 0D |AN$).M.3560..,..|
000024C0: 8B 41 4E 24 B2 22 30 22 A7 33 35 36 30 00 EB 2C |.AN$."0".3560..,|
000024D0: F7 0D 53 56 B2 31 3A 44 4D B2 C5 28 41 4E 24 29 |..SV.1:DM..(AN$)|
000024E0: 3A 8B 44 4D B2 4D A7 33 35 39 35 00 F8 2C F9 0D |:.DM.M.3595..,..|
000024F0: 81 58 B2 31 A4 4D AB 31 00 07 2D FC 0D 8B 58 B3 |.X.1.M.1..-...X.|
00002500: 44 4D A7 33 35 39 30 00 51 2D 01 0E 4D 44 45 24 |DM.3590.Q-..MDE$|
00002510: 28 58 29 B2 4D 44 45 24 28 58 AA 31 29 3A 4D 43 |(X).MDE$(X.1):MC|
00002520: 4D 24 28 58 29 B2 4D 43 4D 24 28 58 AA 31 29 3A |M$(X).MCM$(X.1):|
00002530: 4D 52 4D 24 28 58 29 B2 4D 52 4D 24 28 58 AA 31 |MRM$(X).MRM$(X.1|
00002540: 29 3A 50 46 24 28 58 29 B2 50 46 24 28 58 AA 31 |):PF$(X).PF$(X.1|
00002550: 29 00 58 2D 06 0E 82 58 00 71 2D 0B 0E 4D B2 4D |).X-...X.q-..M.M|
00002560: AB 31 3A 4D 42 24 B2 C4 28 4D 29 3A 89 33 35 30 |.1:MB$..(M):.350|
00002570: 30 00 9C 2D 10 0E 99 22 11 9A 20 20 20 20 20 20 |0..-...".. |
00002580: 12 20 20 20 4D 49 53 43 45 4C 4C 41 4E 45 4F 55 |. MISCELLANEOU|
00002590: 53 20 43 48 45 43 4B 53 20 20 20 22 00 AC 2D 15 |S CHECKS "..-.|
000025A0: 0E 8D 35 36 30 30 3A 51 B2 51 AA 31 00 D4 2D 1A |..5600:Q.Q.1..-.|
000025B0: 0E 99 22 11 9E 45 4E 54 45 52 20 44 41 54 45 20 |.."..ENTER DATE |
000025C0: 4F 46 20 43 48 45 43 4B 28 4D 4F 2F 44 41 2F 59 |OF CHECK(MO/DA/Y|
000025D0: 52 29 3A 22 00 E5 2D 1B 0E 8B 54 44 24 B2 22 22 |R):"..-...TD$.""|
000025E0: A7 33 36 32 30 00 0E 2E 1C 0E 99 22 1E 11 1D 1D |.3620......"....|
000025F0: 1D 1D 1D 22 3B 54 44 24 3A 85 22 1E 91 1D 1D 1D |...";TD$:.".....|
00002600: 22 3B 44 41 24 28 51 29 3A 89 33 36 33 30 00 35 |";DA$(Q):.3630.5|
00002610: 2E 24 0E 85 22 11 1D 1D 1D 1E 22 3B 44 41 24 28 |.$..".....";DA$(|
00002620: 51 29 3A 8B 54 44 24 B2 22 22 A7 54 44 24 B2 44 |Q):.TD$."".TD$.D|
00002630: 41 24 28 51 29 00 63 2E 2E 0E 99 22 11 9E 45 4E |A$(Q).c...."..EN|
00002640: 54 45 52 20 54 4F 20 57 48 4F 4D 20 43 48 45 43 |TER TO WHOM CHEC|
00002650: 4B 20 57 49 4C 4C 20 42 45 20 57 52 49 54 54 45 |K WILL BE WRITTE|
00002660: 4E 3A 22 00 83 2E 38 0E 99 22 11 1D 1D 1D 1E 3F |N:"...8..".....?|
00002670: 20 22 3B 3A 8D 33 30 30 3A 44 45 24 28 51 29 B2 | ";:.300:DE$(Q).|
00002680: 41 4E 24 00 A3 2E 42 0E 99 22 11 9E 45 4E 54 45 |AN$...B.."..ENTE|
00002690: 52 20 41 4D 4F 55 4E 54 20 4F 46 20 43 48 45 43 |R AMOUNT OF CHEC|
000026A0: 4B 3A 22 00 D5 2E 4C 0E 85 22 1E 11 1D 1D 1D 1D |K:"...L.."......|
000026B0: 24 9D 9D 22 3B 41 4D 24 28 51 29 3A 5A 24 B2 41 |$..";AM$(Q):Z$.A|
000026C0: 4D 24 28 51 29 3A 8D 35 35 30 30 3A 41 4D 24 28 |M$(Q):.5500:AM$(|
000026D0: 51 29 B2 5A 24 00 F8 2E 56 0E 99 22 11 9E 45 4E |Q).Z$...V.."..EN|
000026E0: 54 45 52 20 4D 45 4D 4F 20 46 4F 52 20 54 48 45 |TER MEMO FOR THE|
000026F0: 20 43 48 45 43 4B 3A 22 00 18 2F 60 0E 99 22 11 | CHECK:"../`..".|
00002700: 1D 1D 1D 1E 3F 20 22 3B 3A 8D 33 30 30 3A 43 4D |....? ";:.300:CM|
00002710: 24 28 51 29 B2 41 4E 24 00 50 2F 6A 0E 99 22 11 |$(Q).AN$.P/j..".|
00002720: 9E 45 4E 54 45 52 20 4D 45 4D 4F 20 46 4F 52 20 |.ENTER MEMO FOR |
00002730: 54 48 45 20 52 45 47 49 53 54 45 52 3A 22 3A 99 |THE REGISTER:":.|
00002740: 22 1E 11 1D 1D 1D 1D 1D 22 3B 43 4D 24 28 51 29 |".......";CM$(Q)|
00002750: 00 64 2F 74 0E 85 22 91 1D 1D 1D 1E 22 3B 52 4D |.d/t..".....";RM|
00002760: 24 28 51 29 00 79 2F 7E 0E 4D 4B 24 28 51 29 B2 |$(Q).y/~.MK$(Q).|
00002770: 22 20 22 3A 8D 33 39 30 30 00 AE 2F E2 0E 99 22 |" ":.3900../..."|
00002780: 11 9E 57 52 49 54 45 20 41 4E 4F 54 48 45 52 20 |..WRITE ANOTHER |
00002790: 4D 49 53 43 45 4C 4C 41 4E 45 4F 55 53 20 43 48 |MISCELLANEOUS CH|
000027A0: 45 43 4B 28 1C 59 9E 2F 1C 4E 9E 29 3F 22 00 B8 |ECK(.Y./.N.)?"..|
000027B0: 2F EC 0E 8D 39 39 38 30 00 CA 2F F6 0E 8B 41 4E |/...9980../...AN|
000027C0: 24 B2 22 59 22 A7 33 30 30 30 00 DD 2F 00 0F 8B |$."Y".3000../...|
000027D0: 41 4E 24 B3 B1 22 4E 22 A7 33 38 32 30 00 1E 30 |AN$.."N".3820..0|
000027E0: 0A 0F 99 22 11 9E 59 4F 55 52 20 41 43 43 4F 55 |..."..YOUR ACCOU|
000027F0: 4E 54 20 42 41 4C 41 4E 43 45 20 49 53 20 4E 4F |NT BALANCE IS NO|
00002800: 57 20 1C 24 22 42 41 24 28 51 29 3A 81 54 B2 31 |W .$"BA$(Q):.T.1|
00002810: A4 33 30 30 30 3A 82 54 3A 89 32 30 31 30 00 54 |.3000:.T:.2010.T|
00002820: 30 3C 0F 42 41 B2 C5 28 42 41 24 28 51 AB 31 29 |0<.BA..(BA$(Q.1)|
00002830: 29 3A 41 4D B2 C5 28 41 4D 24 28 51 29 29 3A 42 |):AM..(AM$(Q)):B|
00002840: 53 B2 42 41 AB 41 4D 3A 42 41 24 28 51 29 B2 C4 |S.BA.AM:BA$(Q)..|
00002850: 28 42 53 29 00 72 30 41 0F 5A 24 B2 42 41 24 28 |(BS).r0A.Z$.BA$(|
00002860: 51 29 3A 8D 35 35 30 30 3A 42 41 24 28 51 29 B2 |Q):.5500:BA$(Q).|
00002870: 5A 24 00 94 30 46 0F 54 4E 24 28 51 29 B2 C4 28 |Z$..0F.TN$(Q)..(|
00002880: C5 28 4C 43 24 29 AA 31 29 3A 4C 43 24 B2 54 4E |.(LC$).1):LC$.TN|
00002890: 24 28 51 29 00 C8 30 50 0F 99 22 11 9E 54 30 20 |$(Q)..0P.."..T0 |
000028A0: 42 45 20 50 41 49 44 20 57 49 54 48 20 43 48 45 |BE PAID WITH CHE|
000028B0: 43 4B 20 23 20 22 54 4E 24 28 51 29 22 28 1C 59 |CK # "TN$(Q)"(.Y|
000028C0: 9E 2F 1C 4E 9E 29 3F 22 00 D2 30 5A 0F 8D 39 39 |./.N.)?"..0Z..99|
000028D0: 38 30 00 E4 30 64 0F 8B 41 4E 24 B2 22 59 22 A7 |80..0d..AN$."Y".|
000028E0: 33 39 37 30 00 08 31 6E 0F 99 22 50 4C 45 41 53 |3970..1n.."PLEAS|
000028F0: 45 20 45 4E 54 45 52 20 43 48 45 43 4B 20 23 20 |E ENTER CHECK # |
00002900: 54 4F 20 55 53 45 2E 22 00 29 31 78 0F 85 22 1E |TO USE.".)1x..".|
00002910: 22 3B 54 4E 24 28 51 29 3A 4C 43 24 B2 54 4E 24 |";TN$(Q):LC$.TN$|
00002920: 28 51 29 3A 89 33 39 32 30 00 5C 31 82 0F 99 22 |(Q):.3920.\1..."|
00002930: 11 9E 44 4F 20 59 4F 55 20 57 49 53 48 20 54 4F |..DO YOU WISH TO|
00002940: 20 50 52 49 4E 54 20 54 48 49 53 20 43 48 45 43 | PRINT THIS CHEC|
00002950: 4B 28 1C 59 9E 2F 1C 4E 9E 29 3F 22 00 66 31 8C |K(.Y./.N.)?".f1.|
00002960: 0F 8D 39 39 38 30 00 79 31 96 0F 8B 41 4E 24 B2 |..9980.y1...AN$.|
00002970: 22 59 22 A7 8D 39 30 30 30 00 7F 31 9B 0F 8E 00 |"Y"..9000..1....|
00002980: 96 31 A0 0F 8F 20 2A 2A 2A 20 41 52 43 48 49 56 |.1... *** ARCHIV|
00002990: 45 53 20 2A 2A 2A 00 BD 31 AA 0F 99 22 93 11 9A |ES ***..1..."...|
000029A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 12 20 20 | . |
000029B0: 20 41 52 43 48 49 56 45 53 20 20 20 22 00 D8 31 | ARCHIVES "..1|
000029C0: B4 0F 99 22 11 11 1D 1D 1D 9E 59 4F 55 52 20 4F |..."......YOUR O|
000029D0: 50 54 49 4F 4E 53 3A 22 00 F9 31 BE 0F 99 22 1E |PTIONS:"..1...".|
000029E0: 11 1D 1D 1D 1D 1D 28 1C 31 1E 29 20 53 41 56 45 |......(.1.) SAVE|
000029F0: 20 41 20 4D 4F 4E 54 48 22 00 1A 32 C8 0F 99 22 | A MONTH"..2..."|
00002A00: 1E 11 1D 1D 1D 1D 1D 28 1C 32 1E 29 20 4C 4F 41 |.......(.2.) LOA|
00002A10: 44 20 41 20 4D 4F 4E 54 48 22 00 3D 32 D2 0F 99 |D A MONTH".=2...|
00002A20: 22 1E 11 1D 1D 1D 1D 1D 28 1C 33 1E 29 20 52 45 |".......(.3.) RE|
00002A30: 54 55 52 4E 20 54 4F 20 4D 45 4E 55 22 00 63 32 |TURN TO MENU".c2|
00002A40: DC 0F 99 22 9E 11 1D 1D 1D 50 4C 45 41 53 45 20 |...".....PLEASE |
00002A50: 45 4E 54 45 52 20 59 4F 55 52 20 43 48 4F 49 43 |ENTER YOUR CHOIC|
00002A60: 45 2E 22 00 7C 32 E6 0F 8D 39 39 38 30 3A 8B C5 |E.".|2...9980:..|
00002A70: 28 41 4E 24 29 B1 33 A7 34 30 37 30 00 8F 32 EB |(AN$).3.4070..2.|
00002A80: 0F 8B C5 28 41 4E 24 29 B2 30 A7 34 30 37 30 00 |...(AN$).0.4070.|
00002A90: A2 32 F0 0F 8B 20 41 4E 24 B2 22 31 22 A7 34 31 |.2... AN$."1".41|
00002AA0: 30 30 00 B5 32 FA 0F 8B 20 41 4E 24 B2 22 32 22 |00..2... AN$."2"|
00002AB0: A7 34 35 30 30 00 C8 32 FF 0F 8B 20 41 4E 24 B2 |.4500..2... AN$.|
00002AC0: 22 33 22 A7 32 30 31 30 00 F9 32 04 10 85 22 11 |"3".2010..2...".|
00002AD0: 11 57 48 49 43 48 20 4D 4F 4E 54 48 28 1C 23 9E |.WHICH MONTH(.#.|
00002AE0: 29 20 44 4F 20 59 4F 55 20 57 49 53 48 20 54 4F |) DO YOU WISH TO|
00002AF0: 20 53 41 56 45 22 3B 4D 24 00 20 33 0E 10 8B 20 | SAVE";M$. 3... |
00002B00: C3 28 4D 24 29 B1 32 A7 99 22 1C 49 4E 56 41 4C |.(M$).2..".INVAL|
00002B10: 49 44 20 45 4E 54 52 59 2E 22 3A 89 34 31 30 30 |ID ENTRY.":.4100|
00002B20: 00 48 33 13 10 8B 20 C5 28 4D 24 29 B1 31 32 A7 |.H3... .(M$).12.|
00002B30: 99 22 1C 49 4E 56 41 4C 49 44 20 45 4E 54 52 59 |.".INVALID ENTRY|
00002B40: 2E 22 3A 89 34 31 30 30 00 5F 33 18 10 8B C3 28 |.":.4100._3....(|
00002B50: 4D 24 29 B2 31 A7 4D 24 B2 22 30 22 AA 4D 24 00 |M$).1.M$."0".M$.|
00002B60: 6A 33 22 10 81 58 B2 31 A4 51 00 84 33 2C 10 8B |j3"..X.1.Q..3,..|
00002B70: C8 28 44 41 24 28 58 29 2C 32 29 B3 B1 4D 24 A7 |.(DA$(X),2)..M$.|
00002B80: 34 31 36 30 00 9A 33 36 10 8B 4D 4B 24 28 58 29 |4160..36..MK$(X)|
00002B90: B3 B1 22 2A 22 A7 34 31 37 30 00 A7 33 40 10 82 |.."*".4170..3@..|
00002BA0: 58 3A 89 34 32 30 30 00 D1 33 4A 10 99 22 1C 11 |X:.4200..3J.."..|
00002BB0: 41 4C 4C 20 54 48 45 20 54 52 41 4E 53 41 43 54 |ALL THE TRANSACT|
00002BC0: 49 4F 4E 53 20 49 4E 20 4D 4F 4E 54 48 22 3B 4D |IONS IN MONTH";M|
00002BD0: 24 00 F8 33 4F 10 99 22 48 41 56 45 20 4E 4F 54 |$..3O.."HAVE NOT|
00002BE0: 20 43 4C 45 41 52 45 44 20 59 4F 55 52 20 42 41 | CLEARED YOUR BA|
00002BF0: 4E 4B 20 59 45 54 2E 22 00 2D 34 54 10 99 22 9E |NK YET.".-4T..".|
00002C00: 11 44 4F 20 59 4F 55 20 57 49 53 48 20 54 4F 20 |.DO YOU WISH TO |
00002C10: 53 41 56 45 20 41 4E 4F 54 48 45 52 20 4D 4F 4E |SAVE ANOTHER MON|
00002C20: 54 48 3F 28 1C 59 9E 2F 1C 4E 9E 29 22 00 45 34 |TH?(.Y./.N.)".E4|
00002C30: 59 10 8D 39 39 38 30 3A 8B 41 4E 24 B2 22 59 22 |Y..9980:.AN$."Y"|
00002C40: A7 34 31 30 30 00 57 34 5E 10 8B 41 4E 24 B2 22 |.4100.W4^..AN$."|
00002C50: 4E 22 A7 32 30 31 30 00 61 34 63 10 89 34 31 38 |N".2010.a4c..418|
00002C60: 35 00 74 34 68 10 59 B2 31 3A 5A B2 31 3A 81 58 |5.t4h.Y.1:Z.1:.X|
00002C70: B2 31 A4 51 00 8E 34 72 10 8B C8 28 44 41 24 28 |.1.Q..4r...(DA$(|
00002C80: 58 29 2C 32 29 B3 B1 4D 24 A7 34 32 35 30 00 CA |X),2)..M$.4250..|
00002C90: 34 7C 10 41 31 24 28 59 29 B2 44 41 24 28 58 29 |4|.A1$(Y).DA$(X)|
00002CA0: 3A 41 32 24 28 59 29 B2 54 4E 24 28 58 29 3A 41 |:A2$(Y).TN$(X):A|
00002CB0: 33 24 28 59 29 B2 44 45 24 28 58 29 3A 41 34 24 |3$(Y).DE$(X):A4$|
00002CC0: 28 59 29 B2 43 4D 24 28 58 29 00 06 35 86 10 41 |(Y).CM$(X)..5..A|
00002CD0: 35 24 28 59 29 B2 52 4D 24 28 58 29 3A 41 36 24 |5$(Y).RM$(X):A6$|
00002CE0: 28 59 29 B2 41 4D 24 28 58 29 3A 41 37 24 28 59 |(Y).AM$(X):A7$(Y|
00002CF0: 29 B2 42 41 24 28 58 29 3A 41 38 24 28 59 29 B2 |).BA$(X):A8$(Y).|
00002D00: 4D 4B 24 28 58 29 00 13 35 90 10 59 B2 59 AA 31 |MK$(X)..5..Y.Y.1|
00002D10: 3A 82 58 00 4F 35 9A 10 42 31 24 28 5A 29 B2 44 |:.X.O5..B1$(Z).D|
00002D20: 41 24 28 58 29 3A 42 32 24 28 5A 29 B2 54 4E 24 |A$(X):B2$(Z).TN$|
00002D30: 28 58 29 3A 42 33 24 28 5A 29 B2 44 45 24 28 58 |(X):B3$(Z).DE$(X|
00002D40: 29 3A 42 34 24 28 5A 29 B2 43 4D 24 28 58 29 00 |):B4$(Z).CM$(X).|
00002D50: 8B 35 A4 10 42 35 24 28 5A 29 B2 52 4D 24 28 58 |.5..B5$(Z).RM$(X|
00002D60: 29 3A 42 36 24 28 5A 29 B2 41 4D 24 28 58 29 3A |):B6$(Z).AM$(X):|
00002D70: 42 37 24 28 5A 29 B2 42 41 24 28 58 29 3A 42 38 |B7$(Z).BA$(X):B8|
00002D80: 24 28 5A 29 B2 4D 4B 24 28 58 29 00 98 35 AE 10 |$(Z).MK$(X)..5..|
00002D90: 5A B2 5A AA 31 3A 82 58 00 D9 35 B8 10 4D 24 B2 |Z.Z.1:.X..5..M$.|
00002DA0: 4D 24 AA C9 28 41 31 24 28 31 29 2C 33 29 3A 99 |M$..(A1$(1),3):.|
00002DB0: 22 9E 11 52 45 41 44 59 20 54 4F 20 53 41 56 45 |"..READY TO SAVE|
00002DC0: 20 52 45 47 49 53 54 45 52 20 46 4F 52 20 4D 4F | REGISTER FOR MO|
00002DD0: 4E 54 48 20 1C 22 3B 4D 24 00 00 36 C2 10 99 22 |NTH .";M$..6..."|
00002DE0: 9E 11 50 4C 45 41 53 45 20 49 4E 53 45 52 54 20 |..PLEASE INSERT |
00002DF0: 44 49 53 4B 20 54 4F 20 52 45 43 49 45 56 45 22 |DISK TO RECIEVE"|
00002E00: 00 25 36 C7 10 99 22 54 48 45 20 46 49 4C 45 2C |.%6..."THE FILE,|
00002E10: 54 48 45 4E 20 50 52 45 53 53 20 1C 52 45 54 55 |THEN PRESS .RETU|
00002E20: 52 4E 9E 2E 22 00 40 36 C8 10 8D 39 39 38 30 3A |RN..".@6...9980:|
00002E30: 8B 41 4E 24 B3 B1 C7 28 31 33 29 A7 34 32 39 36 |.AN$...(13).4296|
00002E40: 00 64 36 CC 10 8F 20 2A 2A 2A 20 53 41 56 45 20 |.d6... *** SAVE |
00002E50: 41 52 43 48 49 56 45 20 52 45 47 49 53 54 45 52 |ARCHIVE REGISTER|
00002E60: 20 2A 2A 2A 00 81 36 D6 10 52 45 47 24 B2 22 41 | ***..6..REG$."A|
00002E70: 43 43 54 2E 22 AA C4 28 41 29 AA 22 2D 22 AA 4D |CCT."..(A)."-".M|
00002E80: 24 00 9D 36 E0 10 9F 36 2C 38 2C 36 2C 22 30 3A |$..6...6,8,6,"0:|
00002E90: 22 AA 52 45 47 24 AA 22 2C 53 2C 57 22 00 A7 36 |".REG$.",S,W"..6|
00002EA0: EA 10 8D 38 30 30 30 00 B7 36 F4 10 51 54 4E 24 |...8000..6..QTN$|
00002EB0: B2 C4 28 59 AB 31 29 00 C3 36 FE 10 98 36 2C 51 |..(Y.1)..6...6,Q|
00002EC0: 54 4E 24 00 CD 36 08 11 8D 38 30 30 30 00 D8 36 |TN$..6...8000..6|
00002ED0: 12 11 81 58 B2 31 A4 59 00 07 37 17 11 98 36 2C |...X.1.Y..7...6,|
00002EE0: 41 31 24 28 58 29 3B 43 52 24 3B 41 32 24 28 58 |A1$(X);CR$;A2$(X|
00002EF0: 29 3B 43 52 24 3B 41 33 24 28 58 29 3B 43 52 24 |);CR$;A3$(X);CR$|
00002F00: 3B 41 34 24 28 58 29 00 36 37 1C 11 98 36 2C 41 |;A4$(X).67...6,A|
00002F10: 35 24 28 58 29 3B 43 52 24 3B 41 36 24 28 58 29 |5$(X);CR$;A6$(X)|
00002F20: 3B 43 52 24 3B 41 37 24 28 58 29 3B 43 52 24 3B |;CR$;A7$(X);CR$;|
00002F30: 41 38 24 28 58 29 00 40 37 21 11 8D 38 30 30 30 |A8$(X).@7!..8000|
00002F40: 00 4A 37 26 11 82 58 3A A0 36 00 6F 37 2B 11 99 |.J7&..X:.6.o7+..|
00002F50: 22 11 41 52 43 48 49 56 45 20 46 49 4C 45 20 48 |".ARCHIVE FILE H|
00002F60: 41 53 20 42 45 45 4E 20 53 41 56 45 44 2E 22 00 |AS BEEN SAVED.".|
00002F70: 9F 37 2C 11 99 22 11 50 4C 45 41 53 45 20 49 4E |.7,..".PLEASE IN|
00002F80: 53 45 52 54 20 54 48 45 20 9A 48 2E 41 2E 4C 2E |SERT THE .H.A.L.|
00002F90: 9E 20 53 59 53 54 45 4D 20 44 49 53 4B 2C 22 00 |. SYSTEM DISK,".|
00002FA0: BB 37 2D 11 99 22 54 48 45 4E 20 50 52 45 53 53 |.7-.."THEN PRESS|
00002FB0: 20 1C 52 45 54 55 52 4E 9E 2E 22 00 D6 37 2E 11 | .RETURN.."..7..|
00002FC0: 8D 39 39 38 30 3A 8B 41 4E 24 B3 B1 C7 28 31 33 |.9980:.AN$...(13|
00002FD0: 29 A7 34 33 39 38 00 F4 37 30 11 8F 20 2A 2A 2A |).4398..70.. ***|
00002FE0: 20 41 44 4A 55 53 54 20 52 45 47 49 53 54 45 52 | ADJUST REGISTER|
00002FF0: 20 2A 2A 2A 00 05 38 3A 11 51 B2 5A AB 31 3A 81 | ***..8:.Q.Z.1:.|
00003000: 58 B2 31 A4 51 00 41 38 44 11 44 41 24 28 58 29 |X.1.Q.A8D.DA$(X)|
00003010: B2 42 31 24 28 58 29 3A 54 4E 24 28 58 29 B2 42 |.B1$(X):TN$(X).B|
00003020: 32 24 28 58 29 3A 44 45 24 28 58 29 B2 42 33 24 |2$(X):DE$(X).B3$|
00003030: 28 58 29 3A 43 4D 24 28 58 29 B2 42 34 24 28 58 |(X):CM$(X).B4$(X|
00003040: 29 00 7D 38 4E 11 52 4D 24 28 58 29 B2 42 35 24 |).}8N.RM$(X).B5$|
00003050: 28 58 29 3A 41 4D 24 28 58 29 B2 42 36 24 28 58 |(X):AM$(X).B6$(X|
00003060: 29 3A 42 41 24 28 58 29 B2 42 37 24 28 58 29 3A |):BA$(X).B7$(X):|
00003070: 4D 4B 24 28 58 29 B2 42 38 24 28 58 29 00 9F 38 |MK$(X).B8$(X)..8|
00003080: 58 11 82 58 3A 52 45 47 24 B2 22 52 45 47 49 53 |X..X:REG$."REGIS|
00003090: 54 45 52 22 AA C4 28 41 29 3A 89 32 30 31 30 00 |TER"..(A):.2010.|
000030A0: C8 38 94 11 85 22 11 4C 4F 41 44 20 57 48 49 43 |.8...".LOAD WHIC|
000030B0: 48 20 52 45 47 49 53 54 45 52 28 1C 4D 4F 2F 59 |H REGISTER(.MO/Y|
000030C0: 52 9E 29 22 3B 4D 4C 24 00 DC 38 9E 11 8B C3 28 |R.)";ML$..8....(|
000030D0: 4D 4C 24 29 B3 B1 35 A7 34 35 30 30 00 F5 38 A8 |ML$)..5.4500..8.|
000030E0: 11 8B C5 28 C8 28 4D 4C 24 2C 32 29 29 B1 31 32 |...(.(ML$,2)).12|
000030F0: A7 34 35 30 30 00 04 39 AB 11 8B 41 56 B2 31 A7 |.4500..9...AV.1.|
00003100: 34 35 32 38 00 33 39 AD 11 8B 4C 41 24 B2 22 53 |4528.39...LA$."S|
00003110: 22 A7 52 45 47 24 B2 22 52 45 47 49 53 54 45 52 |".REG$."REGISTER|
00003120: 22 AA C4 28 41 29 3A 8D 38 32 30 30 3A 4C 41 24 |"..(A):.8200:LA$|
00003130: B2 22 22 00 57 39 B0 11 99 22 11 1C 4C 4F 41 44 |."".W9..."..LOAD|
00003140: 49 4E 47 20 52 45 51 55 45 53 54 45 44 20 52 45 |ING REQUESTED RE|
00003150: 47 49 53 54 45 52 22 00 7A 39 B2 11 41 56 B2 30 |GISTER".z9..AV.0|
00003160: 3A 52 45 47 24 B2 22 41 43 43 54 2E 22 AA C4 28 |:REG$."ACCT."..(|
00003170: 41 29 AA 22 2D 22 AA 4D 4C 24 00 9E 39 F8 11 8F |A)."-".ML$..9...|
00003180: 20 2A 2A 2A 20 4C 4F 41 44 20 41 52 43 48 49 56 | *** LOAD ARCHIV|
00003190: 45 20 52 45 47 49 53 54 45 52 20 2A 2A 2A 00 BA |E REGISTER ***..|
000031A0: 39 02 12 9F 35 2C 38 2C 35 2C 22 30 3A 22 AA 52 |9...5,8,5,"0:".R|
000031B0: 45 47 24 AA 22 2C 53 2C 52 22 00 C4 39 0C 12 8D |EG$.",S,R"..9...|
000031C0: 38 30 30 30 00 D0 39 11 12 84 35 2C 51 54 4E 24 |8000..9...5,QTN$|
000031D0: 00 DA 39 16 12 8D 38 30 30 30 00 EF 39 1B 12 51 |..9...8000..9..Q|
000031E0: B2 C5 28 51 54 4E 24 29 3A 81 58 B2 31 A4 51 00 |..(QTN$):.X.1.Q.|
000031F0: 2E 3A 20 12 84 35 2C 44 41 24 28 58 29 2C 54 4E |.: ..5,DA$(X),TN|
00003200: 24 28 58 29 2C 44 45 24 28 58 29 2C 43 4D 24 28 |$(X),DE$(X),CM$(|
00003210: 58 29 2C 52 4D 24 28 58 29 2C 41 4D 24 28 58 29 |X),RM$(X),AM$(X)|
00003220: 2C 42 41 24 28 58 29 2C 4D 4B 24 28 58 29 00 38 |,BA$(X),MK$(X).8|
00003230: 3A 21 12 52 53 B2 53 54 00 42 3A 22 12 8D 38 30 |:!.RS.ST.B:"..80|
00003240: 30 30 00 52 3A 23 12 8B 52 53 B2 36 34 A7 34 36 |00.R:#..RS.64.46|
00003250: 34 35 00 62 3A 24 12 8B 52 53 B3 B1 30 A7 34 36 |45.b:$..RS..0.46|
00003260: 35 30 00 6C 3A 25 12 82 58 3A A0 35 00 91 3A 26 |50.l:%..X:.5..:&|
00003270: 12 81 58 B2 31 A4 51 3A 5A 24 B2 41 4D 24 28 58 |..X.1.Q:Z$.AM$(X|
00003280: 29 3A 8D 35 35 30 30 3A 41 4D 24 28 58 29 B2 5A |):.5500:AM$(X).Z|
00003290: 24 00 B8 3A 27 12 5A 24 B2 42 41 24 28 58 29 3A |$..:'.Z$.BA$(X):|
000032A0: 8D 35 35 30 30 3A 42 41 24 28 58 29 B2 5A 24 3A |.5500:BA$(X).Z$:|
000032B0: 82 58 3A 89 34 37 30 30 00 D5 3A 2A 12 99 22 42 |.X:.4700..:*.."B|
000032C0: 41 44 1D 44 49 53 4B 1D 53 54 41 54 55 53 1D 49 |AD.DISK.STATUS.I|
000032D0: 53 1D 22 52 53 00 E2 3A 2F 12 A0 36 3A A0 31 35 |S."RS..:/..6:.15|
000032E0: 3A 80 00 11 3B 5C 12 99 22 93 11 9A 20 20 20 20 |:...;\.."... |
000032F0: 20 20 20 20 12 20 20 20 41 52 43 48 49 56 45 20 | . ARCHIVE |
00003300: 46 49 4C 45 20 22 3B 4D 4C 24 3B 22 12 20 20 20 |FILE ";ML$;". |
00003310: 22 00 2C 3B 66 12 99 22 11 11 1D 1D 1D 9E 59 4F |".,;f.."......YO|
00003320: 55 52 20 4F 50 54 49 4F 4E 53 3A 22 00 53 3B 70 |UR OPTIONS:".S;p|
00003330: 12 99 22 1E 11 11 1D 1D 1D 1D 1D 28 1C 31 1E 29 |.."........(.1.)|
00003340: 20 56 49 45 57 20 54 48 45 20 52 45 47 49 53 54 | VIEW THE REGIST|
00003350: 45 52 22 00 7A 3B 7A 12 99 22 1E 11 1D 1D 1D 1D |ER".z;z.."......|
00003360: 1D 28 1C 32 1E 29 20 50 52 49 4E 54 20 54 48 45 |.(.2.) PRINT THE|
00003370: 20 52 45 47 49 53 54 45 52 22 00 A9 3B 7F 12 99 | REGISTER"..;...|
00003380: 22 1E 11 1D 1D 1D 1D 1D 28 1C 33 1E 29 20 4C 4F |".......(.3.) LO|
00003390: 41 44 20 41 4E 4F 54 48 45 52 20 41 52 43 48 49 |AD ANOTHER ARCHI|
000033A0: 56 45 20 4D 4F 4E 54 48 22 00 D8 3B 84 12 99 22 |VE MONTH"..;..."|
000033B0: 1E 11 1D 1D 1D 1D 1D 28 1C 34 1E 29 20 52 45 54 |.......(.4.) RET|
000033C0: 55 52 4E 20 54 4F 20 43 55 52 52 45 4E 54 20 52 |URN TO CURRENT R|
000033D0: 45 47 49 53 54 45 52 22 00 FF 3B 89 12 99 22 1E |EGISTER"..;...".|
000033E0: 11 1D 1D 1D 1D 1D 28 1C 35 1E 29 20 4C 45 41 56 |......(.5.) LEAV|
000033F0: 45 20 54 48 49 53 20 41 43 43 4F 55 4E 54 22 00 |E THIS ACCOUNT".|
00003400: 26 3C 8E 12 99 22 9E 11 11 1D 1D 1D 50 4C 45 41 |&<..."......PLEA|
00003410: 53 45 20 45 4E 54 45 52 20 59 4F 55 52 20 43 48 |SE ENTER YOUR CH|
00003420: 4F 49 43 45 2E 22 00 3F 3C 98 12 8D 39 39 38 30 |OICE.".?<...9980|
00003430: 3A 8B C5 28 41 4E 24 29 B1 35 A7 34 37 36 30 00 |:..(AN$).5.4760.|
00003440: 52 3C A2 12 8B C5 28 41 4E 24 29 B2 30 A7 34 37 |R<....(AN$).0.47|
00003450: 36 30 00 65 3C AC 12 8B 20 41 4E 24 B2 22 31 22 |60.e<... AN$."1"|
00003460: A7 35 30 30 30 00 78 3C B6 12 8B 20 41 4E 24 B2 |.5000.x<... AN$.|
00003470: 22 32 22 A7 36 30 30 30 00 91 3C B8 12 8B 20 41 |"2".6000..<... A|
00003480: 4E 24 B2 22 33 22 A7 41 56 B2 31 3A 89 34 35 30 |N$."3".AV.1:.450|
00003490: 30 00 A4 3C B9 12 8B 20 41 4E 24 B2 22 34 22 A7 |0..<... AN$."4".|
000034A0: 34 38 30 30 00 B6 3C BB 12 8B 20 41 4E 24 B2 22 |4800..<... AN$."|
000034B0: 35 22 A7 31 30 30 00 C0 3C BC 12 89 34 37 36 30 |5".100..<...4760|
000034C0: 00 E5 3C C0 12 52 45 47 24 B2 22 52 45 47 49 53 |..<..REG$."REGIS|
000034D0: 54 45 52 22 AA C4 28 41 29 3A 8D 38 31 30 30 3A |TER"..(A):.8100:|
000034E0: 89 32 30 31 30 00 04 3D 88 13 8F 20 2A 2A 2A 20 |.2010..=... *** |
000034F0: 44 49 53 50 4C 41 59 20 52 45 47 49 53 54 45 52 |DISPLAY REGISTER|
00003500: 20 2A 2A 2A 00 3F 3D D8 13 99 22 93 22 3A 97 35 | ***.?=...".":.5|
00003510: 33 32 38 31 2C 31 35 3A 42 41 B2 C5 28 42 41 24 |3281,15:BA..(BA$|
00003520: 28 31 29 29 AB C5 28 41 4D 24 28 31 29 29 3A 42 |(1))..(AM$(1)):B|
00003530: 41 24 28 30 29 B2 C4 28 42 41 29 3A 58 B2 30 00 |A$(0)..(BA):X.0.|
00003540: 5D 3D DD 13 5A 24 B2 42 41 24 28 30 29 3A 8D 35 |]=..Z$.BA$(0):.5|
00003550: 35 30 30 3A 42 41 24 28 30 29 B2 5A 24 00 90 3D |500:BA$(0).Z$..=|
00003560: E2 13 4C 49 24 B2 22 97 20 C3 C3 C3 C3 C3 C3 C3 |..LI$.". .......|
00003570: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
00003580: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 22 |..............."|
00003590: 00 9D 3D E7 13 8B 58 B3 30 A7 58 B2 30 00 DE 3D |..=...X.0.X.0..=|
000035A0: EC 13 99 22 93 90 12 50 52 45 53 53 20 27 50 27 |..."...PRESS 'P'|
000035B0: 20 46 4F 52 20 50 52 45 56 2E 50 41 47 45 92 20 | FOR PREV.PAGE. |
000035C0: 1F 12 42 41 4C 2E 46 57 44 92 1F 24 22 3B 42 41 |..BAL.FWD..$";BA|
000035D0: 24 28 58 29 3B 22 91 22 3A 58 B2 58 AA 31 00 EF |$(X);".":X.X.1..|
000035E0: 3D F6 13 59 B2 58 3A 81 58 B2 59 A4 59 AA 36 00 |=..Y.X:.X.Y.Y.6.|
000035F0: FD 3D FB 13 8B 58 B1 51 A7 35 31 38 30 00 32 3E |.=...X.Q.5180.2>|
00003600: 00 14 99 22 90 22 54 4E 24 28 58 29 3A 99 A3 35 |..."."TN$(X):..5|
00003610: 29 22 91 22 44 45 24 28 58 29 3A 99 A3 33 31 29 |)"."DE$(X):..31)|
00003620: 22 91 24 22 3B 41 4D 24 28 58 29 3B 44 41 24 28 |".$";AM$(X);DA$(|
00003630: 58 29 00 4C 3E 05 14 8B 4D 4B 24 28 58 29 B2 22 |X).L>...MK$(X)."|
00003640: 22 A7 4D 4B 24 28 58 29 B2 22 20 22 00 81 3E 0A |".MK$(X)." "..>.|
00003650: 14 99 A3 39 29 22 91 22 4D 4B 24 28 58 29 22 20 |...9)"."MK$(X)" |
00003660: 22 52 4D 24 28 58 29 3A 99 A3 32 37 29 22 91 1F |"RM$(X):..27)"..|
00003670: 42 41 4C 3A 24 22 3B 42 41 24 28 58 29 3B 4C 49 |BAL:$";BA$(X);LI|
00003680: 24 00 AE 3E 14 14 82 58 3A 99 22 11 90 12 50 52 |$..>...X:."...PR|
00003690: 45 53 53 20 27 4E 27 20 46 4F 52 20 4E 45 58 54 |ESS 'N' FOR NEXT|
000036A0: 20 50 41 47 45 91 91 22 3A 8D 39 39 38 30 00 C7 | PAGE..":.9980..|
000036B0: 3E 1E 14 8B 41 4E 24 B2 22 4E 22 A7 58 B2 58 AB |>...AN$."N".X.X.|
000036C0: 31 3A 89 35 31 30 30 00 E0 3E 28 14 8B 41 4E 24 |1:.5100..>(..AN$|
000036D0: B2 22 50 22 A7 58 B2 59 AB 38 3A 89 35 30 39 35 |."P".X.Y.8:.5095|
000036E0: 00 EA 3E 32 14 8D 39 39 38 30 00 20 3F 3C 14 99 |..>2..9980. ?<..|
000036F0: 22 11 11 90 50 52 45 53 53 20 27 1C 12 52 45 54 |"...PRESS '..RET|
00003700: 55 52 4E 92 90 27 20 54 4F 20 52 45 54 55 52 4E |URN..' TO RETURN|
00003710: 20 54 4F 20 4D 45 4E 55 2E 22 3A 8D 39 39 38 30 | TO MENU.":.9980|
00003720: 00 39 3F 41 14 8B 41 4E 24 B2 22 50 22 A7 58 B2 |.9?A..AN$."P".X.|
00003730: 59 AB 38 3A 89 35 30 39 35 00 4F 3F 46 14 8B 41 |Y.8:.5095.O?F..A|
00003740: 4E 24 B3 B1 C7 28 31 33 29 A7 8D 39 39 38 30 00 |N$...(13)..9980.|
00003750: 5C 3F 48 14 97 35 33 32 38 31 2C 30 00 7C 3F 49 |\?H..53281,0.|?I|
00003760: 14 8B 52 45 47 24 B3 B1 22 52 45 47 49 53 54 45 |..REG$.."REGISTE|
00003770: 52 22 AA C4 28 41 29 A7 34 37 30 30 00 86 3F 4B |R"..(A).4700..?K|
00003780: 14 89 32 30 31 30 00 A5 3F 7C 15 8F 20 2A 2A 2A |..2010..?|.. ***|
00003790: 20 41 44 4A 55 53 54 20 42 41 24 20 26 20 41 4D | ADJUST BA$ & AM|
000037A0: 24 20 2A 2A 2A 00 D4 3F 86 15 56 24 B2 C9 28 5A |$ ***..?..V$..(Z|
000037B0: 24 2C 33 29 3A 8B CA 28 56 24 2C 32 2C 31 29 B2 |$,3):..(V$,2,1).|
000037C0: 22 2E 22 A7 20 5A 24 B2 5A 24 AA 22 30 22 3A 89 |".". Z$.Z$."0":.|
000037D0: 35 35 32 30 00 F2 3F 8B 15 8B C8 28 56 24 2C 31 |5520..?....(V$,1|
000037E0: 29 B3 B1 22 2E 22 A7 5A 24 B2 5A 24 AA 22 2E 30 |)..".".Z$.Z$.".0|
000037F0: 30 22 00 02 40 8C 15 81 5A 5A B2 31 A4 C3 28 5A |0"..@...ZZ.1..(Z|
00003800: 24 29 00 2D 40 8D 15 8B C9 28 C8 28 5A 24 2C 5A |$).-@....(.(Z$,Z|
00003810: 5A 29 2C 31 29 B2 22 2E 22 A7 5A 24 B2 C8 28 5A |Z),1).".".Z$..(Z|
00003820: 24 2C 5A 5A AA 32 29 3A 89 35 35 32 30 00 35 40 |$,ZZ.2):.5520.5@|
00003830: 8E 15 82 5A 5A 00 52 40 90 15 8B C3 28 5A 24 29 |...ZZ.R@....(Z$)|
00003840: B3 38 A7 5A 24 B2 22 20 22 AA 5A 24 3A 89 35 35 |.8.Z$." ".Z$:.55|
00003850: 32 30 00 58 40 9A 15 8E 00 73 40 E0 15 8F 20 2A |20.X@....s@... *|
00003860: 2A 2A 20 41 42 4F 52 54 20 4F 50 54 49 4F 4E 20 |** ABORT OPTION |
00003870: 2A 2A 2A 00 A5 40 E2 15 99 22 11 9E 45 4E 54 45 |***..@..."..ENTE|
00003880: 52 20 27 1C 41 9E 27 20 4E 4F 57 20 54 4F 20 41 |R '.A.' NOW TO A|
00003890: 42 4F 52 54 20 54 48 49 53 20 4F 50 45 52 41 54 |BORT THIS OPERAT|
000038A0: 49 4F 4E 2C 22 00 D0 40 E3 15 99 22 4F 52 20 50 |ION,"..@..."OR P|
000038B0: 52 45 53 53 20 41 4E 59 20 4F 54 48 45 52 20 4B |RESS ANY OTHER K|
000038C0: 45 59 20 54 4F 20 43 4F 4E 54 49 4E 55 45 2E 22 |EY TO CONTINUE."|
000038D0: 00 DA 40 E5 15 8D 39 39 38 30 00 EC 40 E6 15 8B |..@...9980..@...|
000038E0: 41 4E 24 B2 22 41 22 A7 32 30 31 30 00 1D 41 E7 |AN$."A".2010..A.|
000038F0: 15 42 4C 24 B2 22 20 20 20 20 20 20 20 20 20 20 |.BL$." |
00003900: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00003910: 20 20 20 20 20 20 20 20 20 20 20 20 22 00 3F 41 | ".?A|
00003920: E8 15 99 22 91 91 91 22 3B 42 4C 24 3A 99 42 4C |..."...";BL$:.BL|
00003930: 24 3A 99 42 4C 24 3A 99 22 91 91 91 91 91 22 00 |$:.BL$:.".....".|
00003940: 45 41 E9 15 8E 00 66 41 70 17 8F 20 2A 2A 2A 20 |EA....fAp.. *** |
00003950: 50 52 49 4E 54 20 4F 55 54 20 52 45 47 49 53 54 |PRINT OUT REGIST|
00003960: 45 52 20 2A 2A 2A 00 97 41 75 17 4C 49 24 B2 22 |ER ***..Au.LI$."|
00003970: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
00003980: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
00003990: C3 C3 C3 C3 C3 C3 22 00 CA 41 7A 17 99 22 93 11 |......"..Az.."..|
000039A0: 11 9A 20 20 20 20 20 20 12 20 20 20 50 52 49 4E |.. . PRIN|
000039B0: 54 49 4E 47 20 4F 55 54 20 52 45 47 49 53 54 45 |TING OUT REGISTE|
000039C0: 52 20 20 20 22 3A 8D 35 30 30 00 D4 41 84 17 8D |R ":.500..A...|
000039D0: 39 39 38 30 00 E6 41 8E 17 8B 41 4E 24 B2 22 41 |9980..A...AN$."A|
000039E0: 22 A7 36 30 35 30 00 F9 41 98 17 8B 41 4E 24 B3 |".6050..A...AN$.|
000039F0: B1 22 50 22 A7 36 30 32 30 00 03 42 9E 17 89 36 |."P".6020..B...6|
00003A00: 30 39 30 00 20 42 A2 17 8B 52 45 47 24 B3 B1 22 |090. B...REG$.."|
00003A10: 52 45 47 49 53 54 45 52 22 AA C4 28 41 29 A7 8E |REGISTER"..(A)..|
00003A20: 00 2A 42 AC 17 89 32 30 31 30 00 53 42 CA 17 99 |.*B...2010.SB...|
00003A30: 22 11 11 11 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |"...............|
00003A40: 1C 50 52 49 4E 54 49 4E 47 20 52 45 47 49 53 54 |.PRINTING REGIST|
00003A50: 45 52 22 00 86 42 D4 17 9F 34 2C 34 3A 98 34 2C |ER"..B...4,4:.4,|
00003A60: 4E 41 24 28 41 29 3A 98 34 2C 42 4E 24 28 41 29 |NA$(A):.4,BN$(A)|
00003A70: 3A 98 34 2C 22 41 43 43 4F 55 4E 54 20 23 22 3B |:.4,"ACCOUNT #";|
00003A80: 41 43 24 28 41 29 00 BE 42 DE 17 98 34 3A 98 34 |AC$(A)..B...4:.4|
00003A90: 3A 98 34 2C 22 20 54 23 20 20 20 20 20 44 41 54 |:.4," T# DAT|
00003AA0: 45 20 20 20 2A 20 54 52 41 4E 53 41 43 54 49 4F |E * TRANSACTIO|
00003AB0: 4E 20 26 20 4D 45 4D 4F 20 20 20 20 22 3B 00 F7 |N & MEMO ";..|
00003AC0: 42 E8 17 98 34 2C 22 20 20 20 20 20 20 20 20 20 |B...4," |
00003AD0: 20 20 20 20 20 20 20 20 20 41 4D 4F 55 4E 54 20 | AMOUNT |
00003AE0: 20 20 20 20 42 41 4C 41 4E 43 45 22 3A 98 34 2C | BALANCE":.4,|
00003AF0: 4C 49 24 3B 4C 49 24 00 05 43 ED 17 50 4F 24 B2 |LI$;LI$..C..PO$.|
00003B00: C7 28 31 36 29 00 10 43 F2 17 81 58 B2 31 A4 51 |.(16)..C...X.1.Q|
00003B10: 00 39 43 F7 17 8B C3 28 54 4E 24 28 58 29 29 B3 |.9C....(TN$(X)).|
00003B20: 34 A7 54 4E 24 28 58 29 B2 22 20 22 AA 54 4E 24 |4.TN$(X)." ".TN$|
00003B30: 28 58 29 3A 89 36 31 33 35 00 53 43 FC 17 8B 4D |(X):.6135.SC...M|
00003B40: 4B 24 28 58 29 B2 22 22 A7 4D 4B 24 28 58 29 B2 |K$(X)."".MK$(X).|
00003B50: 22 20 22 00 9B 43 06 18 98 34 2C 54 4E 24 28 58 |" "..C...4,TN$(X|
00003B60: 29 3B 50 4F 24 3B 22 30 37 22 3B 44 41 24 28 58 |);PO$;"07";DA$(X|
00003B70: 29 3B 22 20 22 3B 4D 4B 24 28 58 29 3B 22 20 22 |);" ";MK$(X);" "|
00003B80: 3B 44 45 24 28 58 29 3B 50 4F 24 3B 22 35 36 22 |;DE$(X);PO$;"56"|
00003B90: 3B 22 24 22 3B 41 4D 24 28 58 29 00 D1 43 10 18 |;"$";AM$(X)..C..|
00003BA0: 98 34 2C 50 4F 24 3B 22 31 39 22 3B 52 4D 24 28 |.4,PO$;"19";RM$(|
00003BB0: 58 29 3B 50 4F 24 3B 22 36 37 22 3B 22 24 22 3B |X);PO$;"67";"$";|
00003BC0: 42 41 24 28 58 29 3A 98 34 2C 4C 49 24 3B 4C 49 |BA$(X):.4,LI$;LI|
00003BD0: 24 00 F9 43 1A 18 82 58 3A 98 34 3A A0 34 3A 8B |$..C...X:.4:.4:.|
00003BE0: 52 45 47 24 B2 22 52 45 47 49 53 54 45 52 22 AA |REG$."REGISTER".|
00003BF0: C4 28 41 29 A7 32 30 31 30 00 03 44 24 18 89 34 |.(A).2010..D$..4|
00003C00: 37 30 30 00 21 44 58 1B 8F 20 2A 2A 2A 20 42 41 |700.!DX.. *** BA|
00003C10: 4C 41 4E 43 45 20 41 43 43 4F 55 4E 54 20 2A 2A |LANCE ACCOUNT **|
00003C20: 2A 00 51 44 62 1B 99 22 93 11 9A 20 20 20 20 20 |*.QDb.."... |
00003C30: 20 20 20 20 12 20 20 20 42 41 4C 41 4E 43 45 20 | . BALANCE |
00003C40: 41 43 43 4F 55 4E 54 20 20 20 22 3A 8D 35 36 30 |ACCOUNT ":.560|
00003C50: 30 00 83 44 6C 1B 99 22 11 11 9E 44 4F 45 53 20 |0..Dl.."...DOES |
00003C60: 54 48 45 20 54 52 41 4E 53 41 43 54 49 4F 4E 20 |THE TRANSACTION |
00003C70: 53 48 4F 57 4E 20 42 45 4C 4F 57 20 41 50 50 45 |SHOWN BELOW APPE|
00003C80: 41 52 22 00 B3 44 76 1B 99 22 4F 4E 20 54 48 49 |AR"..Dv.."ON THI|
00003C90: 53 20 4D 4F 4E 54 48 27 53 20 42 41 4E 4B 20 53 |S MONTH'S BANK S|
00003CA0: 54 41 54 45 4D 45 4E 54 3F 28 1C 59 9E 2F 1C 4E |TATEMENT?(.Y./.N|
00003CB0: 9E 29 22 00 BE 44 80 1B 81 58 B2 31 A4 51 00 D3 |.)"..D...X.1.Q..|
00003CC0: 44 8A 1B 8B 4D 4B 24 28 58 29 B2 22 2A 22 A7 37 |D...MK$(X)."*".7|
00003CD0: 31 33 35 00 FC 44 94 1B 8B C8 28 54 4E 24 28 58 |135..D....(TN$(X|
00003CE0: 29 2C 31 29 B2 22 44 22 A7 50 54 24 B2 22 44 45 |),1)."D".PT$."DE|
00003CF0: 50 4F 53 49 54 22 3A 89 37 30 38 35 00 28 45 9E |POSIT":.7085.(E.|
00003D00: 1B 8B C8 28 54 4E 24 28 58 29 2C 31 29 B2 22 57 |...(TN$(X),1)."W|
00003D10: 22 A7 50 54 24 B2 22 57 49 54 48 44 52 41 57 41 |".PT$."WITHDRAWA|
00003D20: 4C 22 3A 89 37 30 38 35 00 3A 45 A8 1B 50 54 24 |L":.7085.:E..PT$|
00003D30: B2 22 43 48 45 43 4B 20 23 22 00 7D 45 AD 1B 99 |."CHECK #".}E...|
00003D40: 22 13 11 11 11 11 11 11 11 20 20 20 20 20 20 20 |"........ |
00003D50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00003D60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00003D70: 22 3A 81 54 B2 31 A4 33 30 30 3A 82 54 00 96 45 |":.T.1.300:.T..E|
00003D80: B2 1B 8B 50 54 24 B3 B1 22 43 48 45 43 4B 20 23 |...PT$.."CHECK #|
00003D90: 22 A7 37 31 30 30 00 B8 45 B7 1B 99 22 13 1C 11 |".7100..E..."...|
00003DA0: 11 11 11 11 11 11 22 3B 50 54 24 3B 54 4E 24 28 |......";PT$;TN$(|
00003DB0: 58 29 3A 89 37 31 30 35 00 CD 45 BC 1B 99 22 13 |X):.7105..E...".|
00003DC0: 1C 11 11 11 11 11 11 11 22 3B 50 54 24 00 E4 45 |........";PT$..E|
00003DD0: C1 1B 99 A3 31 31 29 22 91 4F 4E 20 22 3B 44 41 |....11)".ON ";DA|
00003DE0: 24 28 58 29 00 FD 45 C6 1B 99 A3 32 35 29 22 91 |$(X)..E....25)".|
00003DF0: 46 4F 52 20 24 22 3B 41 4D 24 28 58 29 00 21 46 |FOR $";AM$(X).!F|
00003E00: D0 1B 8D 39 39 38 30 3A 8B 41 4E 24 B2 22 59 22 |...9980:.AN$."Y"|
00003E10: A7 4D 4B 24 28 58 29 B2 22 2A 22 3A 89 37 31 33 |.MK$(X)."*":.713|
00003E20: 35 00 34 46 DA 1B 8B 41 4E 24 B3 B1 22 4E 22 A7 |5.4F...AN$.."N".|
00003E30: 37 31 32 30 00 3B 46 DF 1B 82 58 00 70 46 E0 1B |7120.;F...X.pF..|
00003E40: 99 22 11 9E 49 53 20 54 48 45 52 45 20 41 20 4D |."..IS THERE A M|
00003E50: 4F 4E 54 48 4C 59 20 53 45 52 56 49 43 45 20 43 |ONTHLY SERVICE C|
00003E60: 48 41 52 47 45 3F 28 1C 59 9E 2F 1C 4E 9E 29 22 |HARGE?(.Y./.N.)"|
00003E70: 00 7A 46 E1 1B 8D 39 39 38 30 00 8C 46 E2 1B 8B |.zF...9980..F...|
00003E80: 41 4E 24 B2 22 4E 22 A7 37 32 32 30 00 9F 46 E3 |AN$."N".7220..F.|
00003E90: 1B 8B 41 4E 24 B3 B1 22 59 22 A7 37 31 33 37 00 |..AN$.."Y".7137.|
00003EA0: CF 46 E4 1B 99 22 11 9E 45 4E 54 45 52 20 54 48 |.F..."..ENTER TH|
00003EB0: 45 20 4D 4F 4E 54 48 4C 59 20 53 45 52 56 49 43 |E MONTHLY SERVIC|
00003EC0: 45 20 43 48 41 52 47 45 20 53 48 4F 57 4E 22 00 |E CHARGE SHOWN".|
00003ED0: F3 46 EE 1B 99 22 4F 4E 20 54 48 45 20 42 41 4E |.F..."ON THE BAN|
00003EE0: 4B 20 53 54 41 54 45 4D 45 4E 54 3A 22 3A 51 B2 |K STATEMENT:":Q.|
00003EF0: 51 AA 31 00 2B 47 F8 1B 85 22 11 1D 1D 1D 1E 41 |Q.1.+G...".....A|
00003F00: 4D 4F 55 4E 54 3A 20 1C 24 22 3B 41 4D 24 28 51 |MOUNT: .$";AM$(Q|
00003F10: 29 3A 5A 24 B2 41 4D 24 28 51 29 3A 8D 35 35 30 |):Z$.AM$(Q):.550|
00003F20: 30 3A 41 4D 24 28 51 29 B2 5A 24 00 4F 47 02 1C |0:AM$(Q).Z$.OG..|
00003F30: 85 22 11 1D 1D 1D 1E 44 41 54 45 28 4D 4F 2F 44 |.".....DATE(MO/D|
00003F40: 41 2F 59 52 29 3A 1C 22 3B 44 41 24 28 51 29 00 |A/YR):.";DA$(Q).|
00003F50: 6A 47 0C 1C 54 4E 24 28 51 29 B2 22 53 22 AA C4 |jG..TN$(Q)."S"..|
00003F60: 28 C5 28 4C 57 24 29 AA 31 29 00 AA 47 16 1C 52 |(.(LW$).1)..G..R|
00003F70: 4D 24 28 51 29 B2 22 53 45 52 56 49 43 45 20 43 |M$(Q)."SERVICE C|
00003F80: 48 41 52 47 45 22 3A 44 45 24 28 51 29 B2 52 4D |HARGE":DE$(Q).RM|
00003F90: 24 28 51 29 3A 43 4D 24 28 51 29 B2 22 20 22 3A |$(Q):CM$(Q)." ":|
00003FA0: 4D 4B 24 28 51 29 B2 22 2A 22 00 E0 47 20 1C 42 |MK$(Q)."*"..G .B|
00003FB0: 41 B2 C5 28 42 41 24 28 51 AB 31 29 29 3A 41 4D |A..(BA$(Q.1)):AM|
00003FC0: B2 C5 28 41 4D 24 28 51 29 29 3A 42 53 B2 42 41 |..(AM$(Q)):BS.BA|
00003FD0: AB 41 4D 3A 42 41 24 28 51 29 B2 C4 28 42 53 29 |.AM:BA$(Q)..(BS)|
00003FE0: 00 20 48 2A 1C 57 B2 C3 28 54 4E 24 28 51 29 29 |. H*.W..(TN$(Q))|
00003FF0: 3A 57 B2 57 AB 31 3A 4C 57 24 B2 C9 28 54 4E 24 |:W.W.1:LW$..(TN$|
00004000: 28 51 29 2C 57 29 3A 5A 24 B2 42 41 24 28 51 29 |(Q),W):Z$.BA$(Q)|
00004010: 3A 8D 35 35 30 30 3A 42 41 24 28 51 29 B2 5A 24 |:.5500:BA$(Q).Z$|
00004020: 00 38 48 34 1C 4F 54 B2 C5 28 42 41 24 28 51 29 |.8H4.OT..(BA$(Q)|
00004030: 29 3A 81 58 B2 31 A4 51 00 4D 48 3E 1C 8B 4D 4B |):.X.1.Q.MH>..MK|
00004040: 24 28 58 29 B2 22 2A 22 A7 37 32 36 30 00 79 48 |$(X)."*".7260.yH|
00004050: 48 1C 8B 44 45 24 28 58 29 B2 22 44 45 50 4F 53 |H..DE$(X)."DEPOS|
00004060: 49 54 22 A7 4F 54 B2 4F 54 AB C5 28 41 4D 24 28 |IT".OT.OT..(AM$(|
00004070: 58 29 29 3A 89 37 32 36 30 00 8D 48 52 1C 4F 54 |X)):.7260..HR.OT|
00004080: B2 4F 54 AA C5 28 41 4D 24 28 58 29 29 00 A3 48 |.OT..(AM$(X))..H|
00004090: 5C 1C 82 58 3A 5A 24 B2 C4 28 4F 54 29 3A 8D 35 |\..X:Z$..(OT):.5|
000040A0: 35 30 30 00 D0 48 66 1C 99 22 9E 11 11 54 48 45 |500..Hf.."...THE|
000040B0: 20 45 4E 44 49 4E 47 20 42 41 4C 41 4E 43 45 20 | ENDING BALANCE |
000040C0: 4F 4E 20 54 48 49 53 20 4D 4F 4E 54 48 27 53 22 |ON THIS MONTH'S"|
000040D0: 00 F6 48 70 1C 99 22 42 41 4E 4B 20 53 54 41 54 |..Hp.."BANK STAT|
000040E0: 45 4D 45 4E 54 20 53 48 4F 55 4C 44 20 42 45 20 |EMENT SHOULD BE |
000040F0: 1C 24 22 3B 5A 24 00 22 49 7A 1C 99 22 9E 11 49 |.$";Z$."Iz.."..I|
00004100: 46 20 54 48 49 53 20 41 47 52 45 45 53 20 57 49 |F THIS AGREES WI|
00004110: 54 48 20 54 48 45 20 53 54 41 54 45 4D 45 4E 54 |TH THE STATEMENT|
00004120: 2C 22 00 40 49 84 1C 99 22 54 48 45 4E 20 50 52 |,".@I..."THEN PR|
00004130: 45 53 53 20 27 1C 52 45 54 55 52 4E 9E 27 2E 22 |ESS '.RETURN.'."|
00004140: 00 6E 49 8E 1C 99 22 11 49 46 20 4E 4F 54 2C 50 |.nI...".IF NOT,P|
00004150: 52 45 53 53 20 27 1C 41 9E 27 20 54 4F 20 41 44 |RESS '.A.' TO AD|
00004160: 4A 55 53 54 20 42 41 4C 41 4E 43 45 2E 22 00 88 |JUST BALANCE."..|
00004170: 49 98 1C 8D 39 39 38 30 3A 8B 41 4E 24 B2 C7 28 |I...9980:.AN$..(|
00004180: 31 33 29 A7 32 30 31 30 00 9B 49 A2 1C 8B 41 4E |13).2010..I...AN|
00004190: 24 B3 B1 22 41 22 A7 37 33 32 30 00 C5 49 AC 1C |$.."A".7320..I..|
000041A0: 99 22 11 11 57 48 41 54 20 49 53 20 54 48 45 20 |."..WHAT IS THE |
000041B0: 45 4E 44 49 4E 47 20 42 41 4C 41 4E 43 45 20 53 |ENDING BALANCE S|
000041C0: 48 4F 57 4E 22 00 E6 49 B6 1C 85 22 4F 4E 20 54 |HOWN"..I..."ON T|
000041D0: 48 45 20 42 41 4E 4B 20 53 54 41 54 45 4D 45 4E |HE BANK STATEMEN|
000041E0: 54 22 3B 42 5A 24 00 10 4A C0 1C 8B C5 28 42 5A |T";BZ$..J....(BZ|
000041F0: 24 29 B1 C5 28 42 41 24 28 51 29 29 A7 41 4A B2 |$)..(BA$(Q)).AJ.|
00004200: C5 28 42 5A 24 29 AB C5 28 42 41 24 28 51 29 29 |.(BZ$)..(BA$(Q))|
00004210: 00 3A 4A CA 1C 8B C5 28 42 5A 24 29 B3 C5 28 42 |.:J....(BZ$)..(B|
00004220: 41 24 28 51 29 29 A7 41 4A B2 C5 28 42 41 24 28 |A$(Q)).AJ..(BA$(|
00004230: 51 29 29 AB C5 28 42 5A 24 29 00 6B 4A D4 1C 51 |Q))..(BZ$).kJ..Q|
00004240: B2 51 AA 31 3A 41 4D 24 28 51 29 B2 C4 28 41 4A |.Q.1:AM$(Q)..(AJ|
00004250: 29 3A 5A 24 B2 41 4D 24 28 51 29 3A 8D 35 35 30 |):Z$.AM$(Q):.550|
00004260: 30 3A 41 4D 24 28 51 29 B2 5A 24 00 A3 4A DE 1C |0:AM$(Q).Z$..J..|
00004270: 8B C5 28 42 5A 24 29 B3 C5 28 42 41 24 28 51 AB |..(BZ$)..(BA$(Q.|
00004280: 31 29 29 A7 42 41 24 28 51 29 B2 C4 28 C5 28 42 |1)).BA$(Q)..(.(B|
00004290: 41 24 28 51 AB 31 29 29 AB C5 28 41 4D 24 28 51 |A$(Q.1))..(AM$(Q|
000042A0: 29 29 29 00 DB 4A E8 1C 8B C5 28 42 5A 24 29 B1 |)))..J....(BZ$).|
000042B0: C5 28 42 41 24 28 51 AB 31 29 29 A7 42 41 24 28 |.(BA$(Q.1)).BA$(|
000042C0: 51 29 B2 C4 28 C5 28 42 41 24 28 51 AB 31 29 29 |Q)..(.(BA$(Q.1))|
000042D0: AA C5 28 41 4D 24 28 51 29 29 29 00 F9 4A F2 1C |..(AM$(Q)))..J..|
000042E0: 5A 24 B2 42 41 24 28 51 29 3A 8D 35 35 30 30 3A |Z$.BA$(Q):.5500:|
000042F0: 42 41 24 28 51 29 B2 5A 24 00 49 4B FC 1C 44 45 |BA$(Q).Z$.IK..DE|
00004300: 24 28 51 29 B2 22 42 41 4C 2E 20 41 44 4A 55 53 |$(Q)."BAL. ADJUS|
00004310: 54 4D 45 4E 54 22 3A 44 41 24 28 51 29 B2 44 41 |TMENT":DA$(Q).DA|
00004320: 24 28 51 AB 31 29 3A 54 4E 24 28 51 29 B2 22 2D |$(Q.1):TN$(Q)."-|
00004330: 2D 2D 22 3A 4D 4B 24 28 51 29 B2 22 2A 22 3A 43 |--":MK$(Q)."*":C|
00004340: 4D 24 28 51 29 B2 22 20 22 00 64 4B 06 1D 52 4D |M$(Q)." ".dK..RM|
00004350: 24 28 51 29 B2 22 50 45 52 20 53 54 41 54 45 4D |$(Q)."PER STATEM|
00004360: 45 4E 54 22 00 9E 4B 10 1D 99 22 9E 93 11 11 11 |ENT"..K...".....|
00004370: 11 11 11 11 11 11 11 11 59 4F 55 52 20 42 41 4C |........YOUR BAL|
00004380: 41 4E 43 45 20 48 41 53 20 42 45 45 4E 20 41 44 |ANCE HAS BEEN AD|
00004390: 4A 55 53 54 45 44 20 42 59 20 54 48 45 22 00 CA |JUSTED BY THE"..|
000043A0: 4B 1A 1D 99 22 41 4D 4F 55 4E 54 20 4F 46 20 1C |K..."AMOUNT OF .|
000043B0: 24 22 3B 41 4D 24 28 51 29 3B 22 9E 54 4F 20 41 |$";AM$(Q);".TO A|
000043C0: 47 52 45 45 20 57 49 54 48 22 00 EE 4B 24 1D 99 |GREE WITH"..K$..|
000043D0: 22 54 48 49 53 20 4D 4F 4E 54 48 27 53 20 42 41 |"THIS MONTH'S BA|
000043E0: 4E 4B 20 53 54 41 54 45 4D 45 4E 54 2E 22 00 05 |NK STATEMENT."..|
000043F0: 4C 2E 1D 81 54 B2 31 A4 31 30 30 30 3A 82 54 3A |L...T.1.1000:.T:|
00004400: 89 32 30 31 30 00 2A 4C 40 1F 8F 20 2A 2A 2A 20 |.2010.*L@.. *** |
00004410: 52 45 41 44 20 54 48 45 20 45 52 52 4F 52 20 43 |READ THE ERROR C|
00004420: 48 41 4E 4E 45 4C 20 2A 2A 2A 00 3F 4C 45 1F 84 |HANNEL ***.?LE..|
00004430: 31 35 2C 45 4E 2C 45 4D 24 2C 45 54 2C 45 53 00 |15,EN,EM$,ET,ES.|
00004440: 4E 4C 4A 1F 8B 20 45 4E B2 30 20 A7 20 8E 00 67 |NLJ.. EN.0 . ..g|
00004450: 4C 54 1F 99 22 05 12 20 45 52 52 4F 52 20 4F 4E |LT..".. ERROR ON|
00004460: 20 44 49 53 4B 20 22 00 79 4C 5E 1F 99 45 4E 2C | DISK ".yL^..EN,|
00004470: 45 4D 24 2C 45 54 2C 45 53 00 86 4C 68 1F A0 38 |EM$,ET,ES..Lh..8|
00004480: 3A A0 31 35 3A 80 00 A2 4C A4 1F 8F 20 2A 2A 2A |:.15:...L... ***|
00004490: 20 52 45 41 44 20 52 45 47 49 53 54 45 52 20 2A | READ REGISTER *|
000044A0: 2A 2A 00 BE 4C AE 1F 9F 36 2C 38 2C 36 2C 22 30 |**..L...6,8,6,"0|
000044B0: 3A 22 AA 52 45 47 24 AA 22 2C 53 2C 52 22 00 C8 |:".REG$.",S,R"..|
000044C0: 4C B8 1F 8D 38 30 30 30 00 E0 4C BD 1F 84 36 2C |L...8000..L...6,|
000044D0: 51 54 4E 24 2C 4C 44 24 2C 4C 57 24 2C 4C 43 24 |QTN$,LD$,LW$,LC$|
000044E0: 00 EA 4C C2 1F 8D 38 30 30 30 00 FE 4C C5 1F 8B |..L...8000..L...|
000044F0: 20 51 54 4E 24 B2 22 30 22 A7 A0 36 3A 8E 00 13 | QTN$."0"..6:...|
00004500: 4D C7 1F 51 B2 C5 28 51 54 4E 24 29 3A 81 58 B2 |M..Q..(QTN$):.X.|
00004510: 31 A4 51 00 52 4D CC 1F 84 36 2C 44 41 24 28 58 |1.Q.RM...6,DA$(X|
00004520: 29 2C 54 4E 24 28 58 29 2C 44 45 24 28 58 29 2C |),TN$(X),DE$(X),|
00004530: 43 4D 24 28 58 29 2C 52 4D 24 28 58 29 2C 41 4D |CM$(X),RM$(X),AM|
00004540: 24 28 58 29 2C 42 41 24 28 58 29 2C 4D 4B 24 28 |$(X),BA$(X),MK$(|
00004550: 58 29 00 5C 4D CD 1F 52 53 B2 53 54 00 66 4D CE |X).\M..RS.ST.fM.|
00004560: 1F 8D 38 30 30 30 00 76 4D CF 1F 8B 52 53 B2 36 |..8000.vM...RS.6|
00004570: 34 A7 38 31 34 35 00 86 4D D0 1F 8B 52 53 B3 B1 |4.8145..M...RS..|
00004580: 30 A7 38 31 35 30 00 A4 4D D1 1F 5A 24 B2 41 4D |0.8150..M..Z$.AM|
00004590: 24 28 58 29 3A 8D 35 35 30 30 3A 41 4D 24 28 58 |$(X):.5500:AM$(X|
000045A0: 29 B2 5A 24 00 C2 4D D2 1F 5A 24 B2 42 41 24 28 |).Z$..M..Z$.BA$(|
000045B0: 58 29 3A 8D 35 35 30 30 3A 42 41 24 28 58 29 B2 |X):.5500:BA$(X).|
000045C0: 5A 24 00 CE 4D D3 1F 82 58 3A A0 36 3A 8E 00 EB |Z$..M...X:.6:...|
000045D0: 4D D6 1F 99 22 42 41 44 1D 44 49 53 4B 1D 53 54 |M..."BAD.DISK.ST|
000045E0: 41 54 55 53 1D 49 53 1D 22 52 53 00 F8 4D DB 1F |ATUS.IS."RS..M..|
000045F0: A0 36 3A A0 31 35 3A 80 00 14 4E 08 20 8F 20 2A |.6:.15:...N. . *|
00004600: 2A 2A 20 53 41 56 45 20 52 45 47 49 53 54 45 52 |** SAVE REGISTER|
00004610: 20 2A 2A 2A 00 31 4E 1C 20 9F 36 2C 38 2C 36 2C | ***.1N. .6,8,6,|
00004620: 22 40 30 3A 22 AA 52 45 47 24 AA 22 2C 53 2C 57 |"@0:".REG$.",S,W|
00004630: 22 00 3B 4E 26 20 8D 38 30 30 30 00 49 4E 30 20 |".;N& .8000.IN0 |
00004640: 51 54 4E 24 B2 C4 28 51 29 00 6D 4E 6C 20 98 36 |QTN$..(Q).mNl .6|
00004650: 2C 51 54 4E 24 3B 43 52 24 3B 4C 44 24 3B 43 52 |,QTN$;CR$;LD$;CR|
00004660: 24 3B 4C 57 24 3B 43 52 24 3B 4C 43 24 00 77 4E |$;LW$;CR$;LC$.wN|
00004670: 76 20 8D 38 30 30 30 00 82 4E 80 20 81 58 B2 31 |v .8000..N. .X.1|
00004680: A4 51 00 B1 4E 8A 20 98 36 2C 44 41 24 28 58 29 |.Q..N. .6,DA$(X)|
00004690: 3B 43 52 24 3B 54 4E 24 28 58 29 3B 43 52 24 3B |;CR$;TN$(X);CR$;|
000046A0: 44 45 24 28 58 29 3B 43 52 24 3B 43 4D 24 28 58 |DE$(X);CR$;CM$(X|
000046B0: 29 00 E0 4E 94 20 98 36 2C 52 4D 24 28 58 29 3B |)..N. .6,RM$(X);|
000046C0: 43 52 24 3B 41 4D 24 28 58 29 3B 43 52 24 3B 42 |CR$;AM$(X);CR$;B|
000046D0: 41 24 28 58 29 3B 43 52 24 3B 4D 4B 24 28 58 29 |A$(X);CR$;MK$(X)|
000046E0: 00 EA 4E 9E 20 8D 38 30 30 30 00 F6 4E A8 20 82 |..N. .8000..N. .|
000046F0: 58 3A A0 36 3A 8E 00 17 4F D0 20 8F 20 2A 2A 2A |X:.6:...O. . ***|
00004700: 20 52 45 41 44 20 4D 4F 4E 54 48 4C 59 20 42 49 | READ MONTHLY BI|
00004710: 4C 4C 53 20 2A 2A 2A 00 23 4F DA 20 8B 4D 53 B2 |LLS ***.#O. .MS.|
00004720: 31 A7 8E 00 40 4F E4 20 9F 39 2C 38 2C 39 2C 22 |1...@O. .9,8,9,"|
00004730: 30 3A 22 AA 42 49 4C 4C 24 AA 22 2C 53 2C 52 22 |0:".BILL$.",S,R"|
00004740: 00 4A 4F EE 20 8D 38 30 30 30 00 55 4F 16 21 84 |.JO. .8000.UO.!.|
00004750: 39 2C 4D 42 24 00 5F 4F 20 21 8D 38 30 30 30 00 |9,MB$._O !.8000.|
00004760: 73 4F 2A 21 4D B2 C5 28 4D 42 24 29 3A 81 58 B2 |sO*!M..(MB$):.X.|
00004770: 31 A4 4D 00 99 4F 34 21 84 39 2C 4D 44 45 24 28 |1.M..O4!.9,MDE$(|
00004780: 58 29 2C 4D 43 4D 24 28 58 29 2C 4D 52 4D 24 28 |X),MCM$(X),MRM$(|
00004790: 58 29 2C 50 46 24 28 58 29 00 A3 4F 3E 21 8D 38 |X),PF$(X)..O>!.8|
000047A0: 30 30 30 00 AD 4F 48 21 52 53 B2 53 54 00 BD 4F |000..OH!RS.ST..O|
000047B0: 52 21 8B 52 53 B2 36 34 A7 38 35 35 30 00 CD 4F |R!.RS.64.8550..O|
000047C0: 5C 21 8B 52 53 B3 B1 30 A7 38 31 35 30 00 D9 4F |\!.RS..0.8150..O|
000047D0: 66 21 82 58 3A A0 39 3A 8E 00 FA 4F 98 21 8F 20 |f!.X:.9:...O.!. |
000047E0: 2A 2A 2A 20 53 41 56 45 20 4D 4F 4E 54 48 4C 59 |*** SAVE MONTHLY|
000047F0: 20 42 49 4C 4C 53 20 2A 2A 2A 00 18 50 AC 21 9F | BILLS ***..P.!.|
00004800: 39 2C 38 2C 39 2C 22 40 30 3A 22 AA 42 49 4C 4C |9,8,9,"@0:".BILL|
00004810: 24 AA 22 2C 53 2C 57 22 00 22 50 B6 21 8D 38 30 |$.",S,W"."P.!.80|
00004820: 30 30 00 2D 50 DE 21 98 39 2C 4D 42 24 00 37 50 |00.-P.!.9,MB$.7P|
00004830: E8 21 8D 38 30 30 30 00 42 50 F2 21 81 58 B2 31 |.!.8000.BP.!.X.1|
00004840: A4 4D 00 74 50 FC 21 98 39 2C 4D 44 45 24 28 58 |.M.tP.!.9,MDE$(X|
00004850: 29 3B 43 52 24 3B 4D 43 4D 24 28 58 29 3B 43 52 |);CR$;MCM$(X);CR|
00004860: 24 3B 4D 52 4D 24 28 58 29 3B 43 52 24 3B 50 46 |$;MRM$(X);CR$;PF|
00004870: 24 28 58 29 00 7E 50 06 22 8D 38 30 30 30 00 8A |$(X).~P.".8000..|
00004880: 50 10 22 82 58 3A A0 39 3A 8E 00 AC 50 28 23 8F |P.".X:.9:...P(#.|
00004890: 20 2A 2A 2A 20 50 52 49 4E 54 20 43 48 45 43 4B | *** PRINT CHECK|
000048A0: 20 52 4F 55 54 49 4E 45 20 2A 2A 2A 00 E0 50 32 | ROUTINE ***..P2|
000048B0: 23 99 22 93 11 9A 20 20 20 20 20 20 12 20 20 20 |#."... . |
000048C0: 50 52 49 4E 54 49 4E 47 20 43 48 45 43 4B 20 23 |PRINTING CHECK #|
000048D0: 20 22 3B 54 4E 24 28 51 29 3B 22 12 20 20 20 22 | ";TN$(Q);". "|
000048E0: 00 E9 50 3C 23 8D 35 30 30 00 F3 50 46 23 8D 39 |..P<#.500..PF#.9|
000048F0: 39 38 30 00 03 51 50 23 8B 20 41 4E 24 B2 22 41 |980..QP#. AN$."A|
00004900: 22 A7 8E 00 17 51 5A 23 8B 20 41 4E 24 B3 B1 22 |"....QZ#. AN$.."|
00004910: 50 22 A7 39 30 33 30 00 32 51 64 23 8B 5A 25 B2 |P".9030.2Qd#.Z%.|
00004920: 30 A7 8D 39 31 30 30 3A 5A 25 B2 31 3A 89 39 32 |0..9100:Z%.1:.92|
00004930: 31 30 00 3C 51 6E 23 89 39 32 31 30 00 54 51 8C |10.<Qn#.9210.TQ.|
00004940: 23 81 20 49 B2 31 A4 31 39 3A 87 20 4E 31 24 28 |#. I.1.19:. N1$(|
00004950: 49 29 3A 82 00 6B 51 96 23 81 20 49 B2 32 A4 39 |I):..kQ.#. I.2.9|
00004960: 3A 87 20 4E 32 24 28 49 29 3A 82 00 84 51 A0 23 |:. N2$(I):...Q.#|
00004970: 81 20 49 B2 31 A4 31 32 3A 87 20 4D 24 28 49 29 |. I.1.12:. M$(I)|
00004980: 3A 82 3A 8E 00 8A 51 AA 23 3A 00 CF 51 B4 23 83 |:.:...Q.#:..Q.#.|
00004990: 20 4F 4E 45 2C 54 57 4F 2C 54 48 52 45 45 2C 46 | ONE,TWO,THREE,F|
000049A0: 4F 55 52 2C 46 49 56 45 2C 53 49 58 2C 53 45 56 |OUR,FIVE,SIX,SEV|
000049B0: 45 4E 2C 45 49 47 48 54 2C 4E 49 4E 45 2C 54 45 |EN,EIGHT,NINE,TE|
000049C0: 4E 2C 45 4C 45 56 45 4E 2C 54 57 45 4C 56 45 00 |N,ELEVEN,TWELVE.|
000049D0: 13 52 BE 23 83 20 54 48 49 52 54 45 45 4E 2C 46 |.R.#. THIRTEEN,F|
000049E0: 4F 55 52 54 45 45 4E 2C 46 49 46 54 45 45 4E 2C |OURTEEN,FIFTEEN,|
000049F0: 53 49 58 54 45 45 4E 2C 53 45 56 45 4E 54 45 45 |SIXTEEN,SEVENTEE|
00004A00: 4E 2C 45 49 47 48 54 45 45 4E 2C 4E 49 4E 45 54 |N,EIGHTEEN,NINET|
00004A10: 45 45 4E 00 19 52 C8 23 3A 00 55 52 D2 23 83 20 |EEN..R.#:.UR.#. |
00004A20: 54 57 45 4E 54 59 2C 54 48 49 52 54 59 2C 46 4F |TWENTY,THIRTY,FO|
00004A30: 52 54 59 2C 46 49 46 54 59 2C 53 49 58 54 59 2C |RTY,FIFTY,SIXTY,|
00004A40: 53 45 56 45 4E 54 59 2C 45 49 47 48 54 59 2C 4E |SEVENTY,EIGHTY,N|
00004A50: 49 4E 45 54 59 00 5B 52 DC 23 3A 00 A5 52 E6 23 |INETY.[R.#:..R.#|
00004A60: 83 20 4A 41 4E 55 41 52 59 2C 46 45 42 52 55 41 |. JANUARY,FEBRUA|
00004A70: 52 59 2C 4D 41 52 43 48 2C 41 50 52 49 4C 2C 4D |RY,MARCH,APRIL,M|
00004A80: 41 59 2C 4A 55 4E 45 2C 4A 55 4C 59 2C 41 55 47 |AY,JUNE,JULY,AUG|
00004A90: 55 53 54 2C 53 45 50 54 45 4D 42 45 52 2C 4F 43 |UST,SEPTEMBER,OC|
00004AA0: 54 4F 42 45 52 00 BD 52 F0 23 83 20 4E 4F 56 45 |TOBER..R.#. NOVE|
00004AB0: 4D 42 45 52 2C 44 45 43 45 4D 42 45 52 00 ED 52 |MBER,DECEMBER..R|
00004AC0: FA 23 8D 39 34 35 30 3A 8B 41 53 24 B2 22 2A 2A |.#.9450:.AS$."**|
00004AD0: 2A 20 41 4E 44 20 2A 2A 2A 22 A7 53 34 B2 34 31 |* AND ***".S4.41|
00004AE0: AB C3 28 41 54 24 29 3A 89 39 32 31 38 00 09 53 |..(AT$):.9218..S|
00004AF0: FB 23 53 31 B2 C3 28 41 53 24 29 AD 32 3A 53 32 |.#S1..(AS$).2:S2|
00004B00: B2 C3 28 41 54 24 29 AD 32 00 19 53 FF 23 8B 53 |..(AT$).2..S.#.S|
00004B10: 31 B1 53 32 A7 39 32 31 37 00 50 53 00 24 53 33 |1.S2.9217.PS.$S3|
00004B20: B2 53 32 AB 53 31 3A 81 58 B2 31 A4 53 33 3A 41 |.S2.S1:.X.1.S3:A|
00004B30: 53 24 B2 22 20 22 AA 41 53 24 3A 82 58 3A 53 34 |S$." ".AS$:.X:S4|
00004B40: B2 34 31 AB C3 28 41 53 24 29 3A 89 39 32 31 38 |.41..(AS$):.9218|
00004B50: 00 81 53 01 24 53 33 B2 53 31 AB 53 32 3A 81 58 |..S.$S3.S1.S2:.X|
00004B60: B2 31 A4 53 33 3A 41 54 24 B2 22 20 22 AA 41 54 |.1.S3:AT$." ".AT|
00004B70: 24 3A 82 58 3A 53 34 B2 34 31 AB C3 28 41 53 24 |$:.X:S4.41..(AS$|
00004B80: 29 00 A3 53 02 24 53 50 24 B2 22 22 3A 81 58 B2 |)..S.$SP$."":.X.|
00004B90: 31 A4 53 34 3A 53 50 24 B2 53 50 24 AA 22 20 22 |1.S4:SP$.SP$." "|
00004BA0: 3A 82 58 00 C3 53 04 24 8F 20 2A 2A 2A 20 43 52 |:.X..S.$. *** CR|
00004BB0: 45 41 54 45 20 41 4C 50 48 41 20 44 41 54 45 20 |EATE ALPHA DATE |
00004BC0: 2A 2A 2A 00 D9 53 0E 24 4D 4D B2 C5 28 C8 28 44 |***..S.$MM..(.(D|
00004BD0: 41 24 28 51 29 2C 32 29 29 00 EE 53 18 24 44 24 |A$(Q),2))..S.$D$|
00004BE0: B2 CA 28 44 41 24 28 51 29 2C 34 2C 32 29 00 07 |..(DA$(Q),4,2)..|
00004BF0: 54 22 24 59 52 24 B2 22 31 39 22 AA C9 28 44 41 |T"$YR$."19"..(DA|
00004C00: 24 28 51 29 2C 32 29 00 25 54 2C 24 44 54 24 B2 |$(Q),2).%T,$DT$.|
00004C10: 4D 24 28 4D 4D 29 AA 22 20 22 AA 44 24 AA 22 2C |M$(MM)." ".D$.",|
00004C20: 22 AA 59 52 24 00 45 54 31 24 8D 39 33 33 35 3A |".YR$.ET1$.9335:|
00004C30: 8F 20 2A 2A 2A 20 50 52 49 4E 54 20 43 48 45 43 |. *** PRINT CHEC|
00004C40: 4B 20 2A 2A 2A 00 5B 54 36 24 9F 34 2C 34 3A 81 |K ***.[T6$.4,4:.|
00004C50: 58 B2 31 A4 33 3A 98 34 3A 82 58 00 6B 54 40 24 |X.1.3:.4:.X.kT@$|
00004C60: 98 34 2C A3 33 37 29 3B 44 54 24 00 88 54 45 24 |.4,.37);DT$..TE$|
00004C70: 8B 41 53 24 B3 B1 22 2A 2A 2A 20 41 4E 44 20 2A |.AS$.."*** AND *|
00004C80: 2A 2A 22 A7 39 32 39 30 00 AE 54 47 24 98 34 3A |**".9290..TG$.4:|
00004C90: 98 34 2C A3 35 29 3B 41 54 24 3B 53 50 24 3B 41 |.4,.5);AT$;SP$;A|
00004CA0: 4D 24 28 51 29 3A 98 34 3A 89 39 33 30 30 00 CB |M$(Q):.4:.9300..|
00004CB0: 54 4A 24 98 34 3A 98 34 2C A3 35 29 3B 41 53 24 |TJ$.4:.4,.5);AS$|
00004CC0: 3B 53 50 24 3B 41 4D 24 28 51 29 00 DA 54 4F 24 |;SP$;AM$(Q)..TO$|
00004CD0: 98 34 2C A3 35 29 3B 41 54 24 00 EF 54 54 24 98 |.4,.5);AT$..TT$.|
00004CE0: 34 3A 98 34 2C A3 37 29 3B 44 45 24 28 51 29 00 |4:.4,.7);DE$(Q).|
00004CF0: F9 54 5E 24 98 34 3A 98 34 00 0B 55 68 24 98 34 |.T^$.4:.4..Uh$.4|
00004D00: 2C A3 37 29 3B 43 4D 24 28 51 29 00 21 55 72 24 |,.7);CM$(Q).!Ur$|
00004D10: 81 58 B2 31 A4 33 3A 98 34 3A 82 58 3A A0 34 3A |.X.1.3:.4:.X:.4:|
00004D20: 8E 00 52 55 77 24 99 22 11 11 50 52 49 4E 54 20 |..RUw$."..PRINT |
00004D30: 41 53 54 45 52 49 53 4B 53 20 46 4F 52 20 41 4C |ASTERISKS FOR AL|
00004D40: 49 47 4E 4D 45 4E 54 3F 28 1C 59 9E 2F 1C 4E 9E |IGNMENT?(.Y./.N.|
00004D50: 29 22 00 75 55 78 24 8D 39 39 38 30 3A 8B 41 4E |)".uUx$.9980:.AN|
00004D60: 24 B2 22 4E 22 A7 A0 33 3A 9F 33 2C 34 3A 98 33 |$."N"..3:.3,4:.3|
00004D70: 3A A0 33 3A 8E 00 88 55 79 24 8B 41 4E 24 B3 B1 |:.3:...Uy$.AN$..|
00004D80: 22 59 22 A7 39 33 33 36 00 BA 55 7C 24 99 22 11 |"Y".9336..U|$.".|
00004D90: 11 11 9E 20 42 45 20 53 55 52 45 20 54 48 45 20 |... BE SURE THE |
00004DA0: 41 53 54 45 52 49 53 4B 53 20 57 45 52 45 20 50 |ASTERISKS WERE P|
00004DB0: 52 49 4E 54 45 44 20 41 54 22 00 ED 55 86 24 99 |RINTED AT"..U.$.|
00004DC0: 22 54 48 45 20 55 50 50 45 52 20 4C 45 46 54 20 |"THE UPPER LEFT |
00004DD0: 43 4F 52 4E 45 52 20 4F 46 20 43 48 45 43 4B 20 |CORNER OF CHECK |
00004DE0: 23 22 3B 54 4E 24 28 51 29 3B 22 2E 22 00 1C 56 |#";TN$(Q);"."..V|
00004DF0: 8B 24 99 22 11 11 41 44 4A 55 53 54 20 43 48 45 |.$."..ADJUST CHE|
00004E00: 43 4B 20 49 46 20 4E 45 43 45 53 53 41 52 59 2C |CK IF NECESSARY,|
00004E10: 54 48 45 4E 20 50 52 45 53 53 3A 22 00 4B 56 90 |THEN PRESS:".KV.|
00004E20: 24 99 A3 33 29 22 11 1C 46 31 9E 20 54 4F 20 50 |$..3)"..F1. TO P|
00004E30: 52 4F 43 45 45 44 20 57 49 54 48 20 50 52 49 4E |ROCEED WITH PRIN|
00004E40: 54 49 4E 47 20 43 48 45 43 4B 22 00 74 56 9A 24 |TING CHECK".tV.$|
00004E50: 99 A3 33 29 22 11 1C 46 37 9E 20 54 4F 20 50 52 |..3)"..F7. TO PR|
00004E60: 49 4E 54 20 41 53 54 45 52 49 53 4B 53 20 41 47 |INT ASTERISKS AG|
00004E70: 41 49 4E 22 00 80 56 A4 24 A0 33 3A 9F 33 2C 34 |AIN"..V.$.3:.3,4|
00004E80: 00 96 56 AE 24 98 33 2C 22 2A 2A 20 20 20 20 20 |..V.$.3,"** |
00004E90: 20 20 20 20 20 22 00 A0 56 B8 24 8D 39 39 38 30 | "..V.$.9980|
00004EA0: 00 B5 56 C2 24 8B 41 4E 24 B2 C7 28 31 33 33 29 |..V.$.AN$..(133)|
00004EB0: A7 A0 33 3A 8E 00 CA 56 CC 24 8B 41 4E 24 B2 C7 |..3:...V.$.AN$..|
00004EC0: 28 31 33 36 29 A7 39 33 39 30 00 D4 56 D6 24 89 |(136).9390..V.$.|
00004ED0: 39 34 30 30 00 F9 56 E0 24 8F 20 2A 2A 20 43 4F |9400..V.$. ** CO|
00004EE0: 4E 56 45 52 54 20 4E 55 4D 42 45 52 53 20 54 4F |NVERT NUMBERS TO|
00004EF0: 20 57 4F 52 44 53 20 2A 2A 00 11 57 EA 24 81 20 | WORDS **..W.$. |
00004F00: 4A B2 31 A4 35 3A 57 24 28 4A 29 B2 22 22 3A 82 |J.1.5:W$(J)."":.|
00004F10: 4A 00 35 57 F4 24 43 45 24 B2 C9 28 41 4D 24 28 |J.5W.$CE$..(AM$(|
00004F20: 51 29 2C 32 29 3A 43 41 24 B2 C8 28 41 4D 24 28 |Q),2):CA$..(AM$(|
00004F30: 51 29 2C 35 29 00 54 57 F9 24 8B C8 28 43 41 24 |Q),5).TW.$..(CA$|
00004F40: 2C 31 29 B2 22 20 22 A7 43 41 24 B2 C9 28 43 41 |,1)." ".CA$..(CA|
00004F50: 24 2C 34 29 00 73 57 FA 24 8B C8 28 43 41 24 2C |$,4).sW.$..(CA$,|
00004F60: 31 29 B2 22 20 22 A7 43 41 24 B2 C9 28 43 41 24 |1)." ".CA$..(CA$|
00004F70: 2C 33 29 00 92 57 FB 24 8B C8 28 43 41 24 2C 31 |,3)..W.$..(CA$,1|
00004F80: 29 B2 22 20 22 A7 43 41 24 B2 C9 28 43 41 24 2C |)." ".CA$..(CA$,|
00004F90: 32 29 00 B1 57 FE 24 8B C8 28 43 41 24 2C 31 29 |2)..W.$..(CA$,1)|
00004FA0: B2 22 20 22 A7 43 41 24 B2 C9 28 43 41 24 2C 31 |." ".CA$..(CA$,1|
00004FB0: 29 00 DD 57 08 25 4C 31 B2 C3 28 43 41 24 29 3A |)..W.%L1..(CA$):|
00004FC0: 55 B2 31 3A 91 20 4C 31 20 89 39 35 35 30 2C 39 |U.1:. L1 .9550,9|
00004FD0: 35 34 30 2C 39 35 31 30 2C 39 34 39 30 00 F1 57 |540,9510,9490..W|
00004FE0: 12 25 54 B2 C5 28 CA 28 43 41 24 2C 55 2C 31 29 |.%T..(.(CA$,U,1)|
00004FF0: 29 00 15 58 1C 25 57 24 28 31 29 B2 4E 31 24 28 |)..X.%W$(1).N1$(|
00005000: 54 29 AA 22 20 54 48 4F 55 53 41 4E 44 20 22 3A |T)." THOUSAND ":|
00005010: 55 B2 55 AA 31 00 35 58 26 25 54 B2 C5 28 CA 28 |U.U.1.5X&%T..(.(|
00005020: 43 41 24 2C 55 2C 31 29 29 3A 8B 20 54 B2 30 20 |CA$,U,1)):. T.0 |
00005030: A7 39 35 33 30 00 52 58 30 25 57 24 28 32 29 B2 |.9530.RX0%W$(2).|
00005040: 4E 31 24 28 54 29 AA 22 20 48 55 4E 44 52 45 44 |N1$(T)." HUNDRED|
00005050: 20 22 00 5C 58 3A 25 55 B2 55 AA 31 00 77 58 44 | ".\X:%U.U.1.wXD|
00005060: 25 54 31 B2 C5 28 CA 28 43 41 24 2C 55 2C 31 29 |%T1..(.(CA$,U,1)|
00005070: 29 3A 55 B2 55 AA 31 00 8C 58 4E 25 54 32 B2 C5 |):U.U.1..XN%T2..|
00005080: 28 CA 28 43 41 24 2C 55 2C 31 29 29 00 9D 58 58 |(.(CA$,U,1))..XX|
00005090: 25 8B 20 54 31 B2 30 20 A7 39 35 39 30 00 C7 58 |%. T1.0 .9590..X|
000050A0: 62 25 8B 20 54 31 B2 31 20 A7 20 54 33 B2 31 30 |b%. T1.1 . T3.10|
000050B0: AA 54 32 3A 57 24 28 35 29 B2 4E 31 24 28 54 33 |.T2:W$(5).N1$(T3|
000050C0: 29 3A 89 39 36 32 30 00 D9 58 6C 25 57 24 28 33 |):.9620..Xl%W$(3|
000050D0: 29 B2 4E 32 24 28 54 31 29 00 F8 58 76 25 8B 20 |).N2$(T1)..Xv%. |
000050E0: 54 32 B2 30 20 A7 20 57 24 28 35 29 B2 57 24 28 |T2.0 . W$(5).W$(|
000050F0: 33 29 3A 89 39 36 32 30 00 25 59 80 25 57 24 28 |3):.9620.%Y.%W$(|
00005100: 34 29 B2 4E 31 24 28 54 32 29 3A 8B 20 54 31 B2 |4).N1$(T2):. T1.|
00005110: 30 20 A7 20 57 24 28 35 29 B2 57 24 28 34 29 3A |0 . W$(5).W$(4):|
00005120: 89 39 36 32 30 00 3F 59 8A 25 57 24 28 35 29 B2 |.9620.?Y.%W$(5).|
00005130: 57 24 28 33 29 AA 22 2D 22 AA 57 24 28 34 29 00 |W$(3)."-".W$(4).|
00005140: 7F 59 94 25 41 53 24 B2 22 2A 2A 2A 20 22 AA 57 |.Y.%AS$."*** ".W|
00005150: 24 28 31 29 AA 57 24 28 32 29 AA 22 41 4E 44 20 |$(1).W$(2)."AND |
00005160: 2A 2A 2A 22 3A 53 47 24 B2 22 20 26 20 22 3A 8B |***":SG$." & ":.|
00005170: 57 24 28 35 29 B2 22 22 A7 53 47 24 B2 22 22 00 |W$(5)."".SG$."".|
00005180: AF 59 9E 25 41 54 24 B2 22 2A 2A 2A 20 22 AA 57 |.Y.%AT$."*** ".W|
00005190: 24 28 35 29 AA 53 47 24 AA 43 45 24 AA 22 2F 31 |$(5).SG$.CE$."/1|
000051A0: 30 30 20 44 4F 4C 4C 41 52 53 20 2A 2A 2A 22 00 |00 DOLLARS ***".|
000051B0: C1 59 A8 25 54 B2 30 3A 54 31 B2 30 3A 54 32 B2 |.Y.%T.0:T1.0:T2.|
000051C0: 30 00 C7 59 B2 25 8E 00 DD 59 FC 26 A1 41 4E 24 |0..Y.%...Y.&.AN$|
000051D0: 3A 8B 41 4E 24 B2 22 22 A7 39 39 38 30 00 E3 59 |:.AN$."".9980..Y|
000051E0: 06 27 8E 00 01 5A 10 27 8F 2A 2A 2A 20 52 45 54 |.'...Z.'.*** RET|
000051F0: 55 52 4E 20 54 4F 20 48 2E 41 2E 4C 2E 20 2A 2A |URN TO H.A.L. **|
00005200: 2A 00 09 5A 15 27 A0 31 35 00 1F 5A 1A 27 97 35 |*..Z.'.15..Z.'.5|
00005210: 33 32 38 30 2C 30 3A 97 35 33 32 38 31 2C 30 00 |3280,0:.53281,0.|
00005220: 2A 5A 38 27 97 31 39 38 2C 34 00 48 5A 42 27 99 |*Z8'.198,4.HZB'.|
00005230: 22 93 90 11 11 4C 4F 41 44 22 C7 28 33 34 29 22 |"....LOAD".(34)"|
00005240: 48 2E 41 2E 4C 2E 22 3B 00 5A 5A 4C 27 99 20 C7 |H.A.L.";.ZZL'. .|
00005250: 28 33 34 29 22 2C 38 13 22 3B 00 7F 5A 56 27 97 |(34)",8.";..ZV'.|
00005260: 36 33 31 2C 31 33 3A 97 36 33 32 2C 38 32 3A 97 |631,13:.632,82:.|
00005270: 36 33 33 2C 31 31 37 3A 97 36 33 34 2C 31 33 00 |633,117:.634,13.|
00005280: 85 5A 60 27 80 00 00 00 |.Z`'.... |
....<..15,8,15,"I0":.600.'.D..:.15,8,15.
H.E..W$(5),N1$(19),N2$(9),M$(12)...F..A1
$(99),A2$(99),A3$(99),A4$(99),A5$(99),A6
$(99),A7$(99),A8$(99).R.G..B1$(99),B2$(9
9),B3$(99),B4$(99),B5$(99),B6$(99),B7$(9
9),B8$(99)...H..DA$(99),TN$(99),DE$(99),
CM$(99),RM$(99),AM$(99),BA$(99),MK$(99).
?.I..MDE$(50),MCM$(50),MRM$(50),PF$(50).
_.J..53280,0:.53281,0:CR$.G(13)...K.."..
... B A N K A C C O U N T S
"...N.."......YOU MAY CHOOSE:".Y.X..".
.......(.1.) CHECKING ACCOUNT #1"......"
.......(.2.) CHECKING ACCOUNT #2".%...."
.......(.3.) SAVINGS ACCOUNT".M...."....
...(.4.) START A NEW ACCOUNT".Q...."....
...(.5.) CHANGE PASSWORD"... ..".......(
.6.) RETURN TO H.A.L."......"......PLEAS
E ENTER YOUR CHOICE.".G....9980.....A.E(
AN$):.A.0.180...H..A.1.1999...R..A.2.199
9......A.3.1999......A.4.1000."....A.5.8
00.B....A.6. 15:H$."H.A.L.":.10000.K....
180.L.,..LL.0.LL.36:. MAX.LENGTH AN$...6
..9,0:AN$."":BN$."":.204,0...@..#9,BN$:.
BN$."".320.I.J..BN$.G(13).BN$."": 9:." "
:.204,1:....T..BN$.".".BN$.".".BN$.".".B
N$."."..320...^..BN$.".".BN$.".".320.I.H
..C(AN$).LL.." ":."..LENGTH LIMIT EXCEDE
D":BN$.G(13):.330.C.R..AN$."".BN$.G(20).
320...|..BN$.G(20).." .. .";:AN$.H(AN$,C
(AN$).1):.320.....AN$.AN$.BN$:.BN$;:.320
.M.... *** PRINTER PROMPT ***.Z...P.0:.4
,4......4:..B(144).128. 4:.540.0...."...
... ***. PLEASE TURN THE PRINTER ON .**
*":P.P.1.C....P.999. 4:.560.L....520.L..
..P.0..".....THANK YOU.":P.0...&.."..PRE
SS '.P.' WHEN YOU'RE READY TO PRINT,OR".
M.0.."..PRESS '.A.' TO ABORT PRINTING.":
P.0:....X..5,8,5,"MO.BILLS 3,S,R"...]..8
000...B..5,PW$...G.RS.ST...L..8000.#.Q..
RS.64 .635.4.V.. RS..0 .640.M.{. 5:E.1:
.808,234:.646.J...."BAD.DISK.STATUS.IS."
RS.W... 8: 15:.......GG.1........"......
....... PLEASE ENTER YOUR PASSWORD..
";P$.S....P$.PW$..808,237:....... E.3.E.
1:.690.(.....11)".....INVALID PASSWORD."
:..11)".PLEASE RE-ENTER. ":E.E.1.=....T.
1.650:.T:.650.....ME$."UNAUTHORIZED ENTR
Y ATTEMPT.....ACCESS DENIED.....RETURNIN
G TO H.A.L.".....SP$."
".H.F.ME$.SP$.SP$.ME$." ":X9.1...P.CP$
."............."...Z..XX.1.50:......."."
;CP$;J(ME$,X9,38);G(19).+...X9.X9.1:.X9.
C(ME$).X9.1.V....X9.1.RE.0.H$."H.A.L.":.
808,237:.10000.I....B(203).64.730......C
P$;H(SP$.SP$,38);G(19)......650... .."..
... CHANGE PASSWORD "...%.GG.1:.600.
..*.."... CURRENT PASSWORD IS:.";PW$...4
.."... ENTER DESIRED PASSWORD: .";PW$.-
.>..5,8,5,"@0:MO.BILLS 3,S,W".7.H..8000.
B.R..5,PW$.L.\..8000.S.F. 5...P.."... YO
UR NEW PASSWORD HAS BEEN RECORDED."...Z.
. T.1.2000:.T:.100...... *** START UP RO
UTINE ***.U....8,8,8,"ACCT.INFO.,S,R"...
...8000......8,NA$(1),BN$(1),AC$(1).....
.8,NA$(2),BN$(2),AC$(2).3....8,NA$(3),BN
$(3),AC$(3).=...RS.ST.G....8000.Y.... RS
.64 .1040.K.... RS..0 .1045.X... 8:.1050
......"BAD.DISK.STATUS.IS."RS..... 8: 15
:..F...."... START A NEW ACCOUNT "..
...."..STATUS OF CURRENT BANK ACCOUNTS:"
...$..".....(.1.) CHECKING ACCOUNT #1:".
*.....7)".."NA$(1).G.8.. NA$(1)."INACTIV
E".1110.V.B...7)BN$(1).N.L...7)"ACCT # "
AC$(1)...V..".....(.2.) CHECKING ACCOUNT
#2:"...`...7)".."NA$(2).E.J.. NA$(2)."I
NACTIVE".1160.T.T...7)BN$(2)...~...7)"AC
CT # "AC$(2)......".....(.3.) SAVINGS AC
COUNT".!.....7)".."NA$(3).>.... NA$(3)."
INACTIVE".1210.M.....7)BN$(3).E.....7)"A
CCT # "AC$(3)......"..ENTER .#. OF ACCOU
NT YOU WISH TO SET UP,".E...."OR PRESS '
.RETURN.' TO RETURN TO MENU.".O.D..9980.
..I..AN$.G(13).100...N..E(AN$).3.1220...
X.A.E(AN$):.AC$(A)."INACTIVE".1293.M....
"...WARNING:.. RE-STARTING THIS ACCOUNT
WILL".}...."ERASE ALL CURRENT DATA FOR T
HIS ACCOUNT."......"(MONTHLY BILLS & ARC
HIVES WILL REMAIN)".Y...."DO YOU STILL W
ISH TO PROCEED(.Y./.N.)?"......9980.....
.AN$."N".1050......AN$.."Y".1280......A.
3.1297.B...."...SETTING UP CHECKING ACCO
UNT #"A".".L....1300.R...."...SETTING UP
SAVINGS ACCOUNT.".....BL$."
".R....".IN WH
AT NAME WILL THIS ACCOUNT BE IN?."......
"....";NA$(A)...(.."..WHAT'S THE FINANCI
AL INSTITUTION'S NAME?".*.2.."....";BN$(
A).\.<.."..ENTER THE ACCOUNT # OF THE NE
W ACCOUNT. ".Q.F.."....# ";AC$(A)...G.."
..IS THE ABOVE INFORMATION CORRECT?(.Y./
.N.)".O.H..".......(ENTER .A. TO ABORT S
ET UP)".Y.I..9980...J.. AN$."N"..".."BL$
;BL$:.".....":.1310...K..AN$."A".100.&.L
..AN$.."Y".100.E.P..8,8,8,"@0:ACCT.INFO.
,S,W".O.U..8000.S.Z..8,NA$(1);CR$;BN$(1)
;CR$;AC$(1).}._..8000...D..8,NA$(2);CR$;
BN$(2);CR$;AC$(2)...I..8000.O.N..8,NA$(3
);CR$;BN$(3);CR$;AC$(3).Y.S..8000...X. 8
...Z.QTN$."0":LD$."0":LW$."0":LC$."0"...
}..A..1.1420.3....8,8,8,"@0:REGISTER 1,S
,W".=....8000.G....1450.V....A..2.1440.U
....8,8,8,"@0:REGISTER 2,S,W".....8000.
.....1450... ..8,8,8,"@0:REGISTER 3,S,W"
......8000.V....8,QTN$;CR$;LD$;CR$;LW$;C
R$;LC$......8000..... 8...H.."... YOUR
NEW ACCOUNT HAS BEEN OPENED.".+.R..T.1.2
000:.T:.100.E.O.."...................***
.LOADING ACCOUNT #";A;".***"...P.. ***
ACCOUNT MENU ***...Q..7,8,7,"ACCT.INFO.,
S,R"...R..8000...S..X.1.3.M.T..7,NA$(X),
BN$(X),AC$(X).W.U..8000...V.RS.ST...W..R
S.64.2009...X..RS..0.1045.&.Y..X: 7:REG$
."REGISTER".D(A):.8100.R.Z..A.1..".. .
CHECKING ACCOUNT #1 ".~....A.2.."..
. CHECKING ACCOUNT #2 "......A.3.
.".. . SAVINGS ACCOUNT "......"...
..."NA$(A).I.....5)BN$(A).......5)"ACCOU
NT # "AC$(A)......"....OPTIONS:"... ...5
)"..(.1.) DEPOSIT"...*...5)".(.2.) WITHD
RAWAL".<./..A.3.2120.[.4...5)".(.3.) MON
THLY BILLS"...>...5)".(.4.) MISCELLANEOU
S CHECKS". .H...5)".(.5.) VIEW REGISTER"
...R...5)".(.6.) PRINT REGISTER"...\...5
)".(.7.) BALANCE ACCOUNT"...F...5)".(.8.
) ARCHIVES"...K...5)".(.9.) LEAVE THIS A
CCOUNT".G.P.."....PLEASE ENTER YOUR CHOI
CE....".Z.Z..9980:C.E(AN$).H....C.0.2170
.....C.5.LA$."S":.3000......C.5.5000...
...C.6.6000......C.7.LA$."S":.7000......
C.8.4000.O....C..9.2170......LA$."S".223
5......100.....REG$."REGISTER".D(A):.820
0:.100.+.... *** ENTRY ROUTINES ***.X.B.
.A.1.."... . CHECKING ACCOUNT #1 "
...L..A.2.."... . CHECKING ACCOUNT #
2 "...V..A.3.."... . SAVINGS ACCOU
NT ".B...."......"NA$(A).Q.....5)BN$(A
).......5)"ACCOUNT # "AC$(A)...... C.1.3
100...... C.2.3200...... C.3.3300.(....
C.4.3600.2....2010.W...."..
. DEPOSIT ".G.!..5600:Q.Q.1...&.."..
ENTER DATE DEPOSIT WAS MADE(MO/DA/YR):".
..'..TD$."".3115.Q.(..".......";TD$:."..
...";DA$(Q):.3120...+..".....";DA$(Q):.T
D$."".TD$.DA$(Q).. 0.."..ENTER AMOUNT OF
DEPOSIT:".L 5.."......$..";AM$(Q):Z$.AM
$(Q):.5500:AM$(Q).Z$.Y :.."..ENTER MEMO
FOR REGISTER IF DESIRED:". ?..".......P
AYCHECK":.".....";RM$(Q).. D.DE$(Q)."DEP
OSIT":CM$(Q)." ":MK$(Q)." ":TN$(Q)."D".D
(E(LD$).1)..!I.BA.E(BA$(Q.1)):AM.E(AM$(Q
)):BS.BA.AM:BA$(Q).D(BS).X!J.D.C(TN$(Q))
:D.D.1:LD$.I(TN$(Q),D):Z$.BA$(Q):.5500:B
A$(Q).Z$..!N.."..YOUR DEPOSIT HAS BEEN R
ECORDED UNDER"..!S.."TRANSACTION # "TN$(
Q).Q!X.."..YOUR ACCOUNT BALANCE IS NOW .
$";BA$(Q)..!]..T.1.3000:.T:.2010.."...".
. . WITHDRAWAL ".."...5600
:Q.Q.1.K"..."..ENTER DATE OF WITHDRAWAL(
MO/DA/YR):".\"...TD$."".3215.."...".....
..";TD$:.".....";DA$(Q):.3220.."..."....
.";DA$(Q):.TD$."".TD$.DA$(Q).Q"..."..ENT
ER AMOUNT OF WITHDRAWAL:"..#..."......$.
.";AM$(Q):Z$.AM$(Q):.5500:AM$(Q).Z$.%#..
."..ENTER MEMO FOR REGISTER:".H#..."....
...CASH":.".....";RM$(Q)..#..DE$(Q)."WIT
HDRAWAL":CM$(Q)." ":MK$(Q)." ":TN$(Q)."W
".D(E(LW$).1).C#..BA.E(BA$(Q.1)):AM.E(AM
$(Q)):BS.BA.AM:BA$(Q).D(BS)..$..W.C(TN$(
Q)):W.W.1:LW$.I(TN$(Q),W):Z$.BA$(Q):.550
0:BA$(Q).Z$.4$..."..YOUR WITHDRAWAL HAS
BEEN RECORDED UNDER".Q$..."TRANSACTION #
";TN$(Q)..$..."..YOUR ACCOUNT BALANCE I
S NOW .$";BA$(Q)..$A..T.1.3000:.T:.2010.
.$..."... . MONTHLY BILLS "
..$..BILL$."MO.BILLS".D(A):.8400..%...".
.NAME OF BILL: LAST PAID:"
..%...X.1.M.:%..."...(.";D(X);".) "MDE$(
X).A%....30)"."PF$(X):.X:.AB.1.AB.0:.334
2.|%...".....PLEASE CHOOSE:"..%...".....
.(.1.) PAY A MONTHLY BILL".N%...".....(.
2.) MODIFY MONTHLY BILLS FILE"..%..."...
..(.3.) RETURN TO ACCOUNT MENU"..&...998
0:.E(AN$).3.3334."&...AN$."0".3334.4&...
AN$."2".3500.F&...AN$."3".2010.W&..."...
WHICH BILL(.#.) DO YOU WANT TO PAY";AN$.
.&...E(AN$).M.3342..&...AN$."0".3342.X&.
.B.E(AN$):Q.Q.1:DE$(Q).MDE$(B):CM$(Q).MC
M$(B):MK$(Q)." "..& .."...CREATING CHECK
TO PAY:"..'%.."....."DE$(Q):."...."CM$(
Q).B'*.."..ENTER DATE OF CHECK(MO/DA/YR)
:".S'+..TD$."".3375.|',..".......";TD$:.
".....";DA$(Q):.3380..'/..".....";DA$(Q)
:PF$(B).DA$(Q):.TD$."".TD$.DA$(Q).Q'4.."
..ENTER AMOUNT OF CHECK:"..(9.."......$.
.";AM$(Q):Z$.AM$(Q):.5500:AM$(Q).Z$.)(>.
."..ENTER MEMO FOR THE REGISTER:".T(A.."
......."MRM$(B):."....";RM$(Q):.3900..(B
.."..YOUR ACCOUNT BALANCE IS NOW .$"BA$(
Q)..(C.PF$(B).DA$(Q):."..PAY ANOTHER MON
THLY BILL(.Y./.N.)?"..(D..9980:.AN$."Y".
MS.1:AB.1:.3300..(E..AN$.."N".3396..)F..
8600:.2010.&)H..".... ADD A MONTHLY BI
LL ".T)M.."..PLEASE ENTER THE EXACT NA
ME TO WHICH".S)R.."CHECKS WILL BE WRITTE
N:"..)W.."..? ";:.300:MDE$(M.1).AN$.A)\.
."..PLEASE ENTER THE MEMO TO BE RECORDED
"..)A.."ON THE CHECKS(ACCOUNT#):"..*F.."
..? ";:.300:MCM$(M.1).AN$./*K.."..PLEASE
ENTER THE MEMO TO BE RECORDED".Q*P.."IN
THE CHECKBOOK REGISTER:".Q*U.."..? ";:.
300:MRM$(M.1).AN$..*Z.PF$(M.1)."UNPAID".
.*.."..IS THE ABOVE INFORMATION CORRECT
?(.Y./.N.)".E*...9980..*...AN$."Y".M.M.1
:MB$.D(M):SV.1:.3500..*...AN$.."N".3460.
.+...3400.9+..."... . MODIFY MONTHL
Y BILLS FILE .".B+...X.1.M:."...(.";D(
X);".) "MDE$(X):.X.}+...".....PLEASE CHO
OSE:"..+..."......(.1.) ADD A MONTHLY BI
LL".K+...".....(.2.) DELETE A MONTHLY BI
LL"..+E..".....(.3.) RETURN TO ACCOUNT M
ENU"..,J..9980:.E(AN$).3.3530..,T..AN$."
0".3530.1,Y..AN$."1".3400.C,...AN$."2".3
560.V,...AN$.."3".3530.K,...SV.1.SV.0:.8
600.U,...2010..,..."..WHICH BILL(.#.) DO
YOU WANT TO DELETE";AN$..,...E(AN$).M.3
560.M,...AN$."0".3560..,..SV.1:DM.E(AN$)
:.DM.M.3595..,...X.1.M.1..-...X.DM.3590.
Q-..MDE$(X).MDE$(X.1):MCM$(X).MCM$(X.1):
MRM$(X).MRM$(X.1):PF$(X).PF$(X.1).X-...X
.Q-..M.M.1:MB$.D(M):.3500..-..."..
. MISCELLANEOUS CHECKS "..-...5600:Q
.Q.1.T-..."..ENTER DATE OF CHECK(MO/DA/Y
R):"..-...TD$."".3620......".......";TD$
:.".....";DA$(Q):.3630.5.$..".....";DA$(
Q):.TD$."".TD$.DA$(Q).C...."..ENTER TO W
HOM CHECK WILL BE WRITTEN:"...8..".....?
";:.300:DE$(Q).AN$...B.."..ENTER AMOUNT
OF CHECK:".U.L.."......$..";AM$(Q):Z$.A
M$(Q):.5500:AM$(Q).Z$...V.."..ENTER MEMO
FOR THE CHECK:"../`..".....? ";:.300:CM
$(Q).AN$.P/J.."..ENTER MEMO FOR THE REGI
STER:":.".......";CM$(Q).D/T..".....";RM
$(Q).Y/~.MK$(Q)." ":.3900../..."..WRITE
ANOTHER MISCELLANEOUS CHECK(.Y./.N.)?"..
/...9980.J/...AN$."Y".3000../...AN$.."N"
.3820..0..."..YOUR ACCOUNT BALANCE IS NO
W .$"BA$(Q):.T.1.3000:.T:.2010.T0<.BA.E(
BA$(Q.1)):AM.E(AM$(Q)):BS.BA.AM:BA$(Q).D
(BS).R0A.Z$.BA$(Q):.5500:BA$(Q).Z$..0F.T
N$(Q).D(E(LC$).1):LC$.TN$(Q).H0P.."..T0
BE PAID WITH CHECK # "TN$(Q)"(.Y./.N.)?"
.R0Z..9980..0D..AN$."Y".3970..1N.."PLEAS
E ENTER CHECK # TO USE.".)1X..".";TN$(Q)
:LC$.TN$(Q):.3920.\1..."..DO YOU WISH TO
PRINT THIS CHECK(.Y./.N.)?".F1...9980.Y
1...AN$."Y"..9000.1.....1 .. *** ARCHIV
ES ***..1..."... . ARCHIVE
S ".X1..."......YOUR OPTIONS:"..1...".
......(.1.) SAVE A MONTH"..2H..".......(
.2.) LOAD A MONTH".=2R..".......(.3.) RE
TURN TO MENU".C2...".....PLEASE ENTER YO
UR CHOICE.".|2...9980:.E(AN$).3.4070..2.
..E(AN$).0.4070..2... AN$."1".4100..2...
AN$."2".4500.H2... AN$."3".2010..2...".
.WHICH MONTH(.#.) DO YOU WISH TO SAVE";M
$. 3... C(M$).2..".INVALID ENTRY.":.4100
.H3... E(M$).12..".INVALID ENTRY.":.4100
._3...C(M$).1.M$."0".M$.J3"..X.1.Q..3,..
H(DA$(X),2)..M$.4160..36..MK$(X).."*".41
70..3@..X:.4200.Q3J.."..ALL THE TRANSACT
IONS IN MONTH";M$..3O.."HAVE NOT CLEARED
YOUR BANK YET.".-4T.."..DO YOU WISH TO
SAVE ANOTHER MONTH?(.Y./.N.)".E4Y..9980:
.AN$."Y".4100.W4^..AN$."N".2010.A4C..418
5.T4H.Y.1:Z.1:.X.1.Q..4R..H(DA$(X),2)..M
$.4250.J4|.A1$(Y).DA$(X):A2$(Y).TN$(X):A
3$(Y).DE$(X):A4$(Y).CM$(X)..5..A5$(Y).RM
$(X):A6$(Y).AM$(X):A7$(Y).BA$(X):A8$(Y).
MK$(X)..5..Y.Y.1:.X.O5..B1$(Z).DA$(X):B2
$(Z).TN$(X):B3$(Z).DE$(X):B4$(Z).CM$(X).
.5..B5$(Z).RM$(X):B6$(Z).AM$(X):B7$(Z).B
A$(X):B8$(Z).MK$(X)..5..Z.Z.1:.X.Y5..M$.
M$.I(A1$(1),3):."..READY TO SAVE REGISTE
R FOR MONTH .";M$..6B.."..PLEASE INSERT
DISK TO RECIEVE".%6G.."THE FILE,THEN PRE
SS .RETURN..".@6H..9980:.AN$..G(13).4296
.D6L.. *** SAVE ARCHIVE REGISTER ***..6V
.REG$."ACCT.".D(A)."-".M$..6...6,8,6,"0:
".REG$.",S,W"..6...8000..6..QTN$.D(Y.1).
C6...6,QTN$.M6...8000.X6...X.1.Y..7...6,
A1$(X);CR$;A2$(X);CR$;A3$(X);CR$;A4$(X).
67...6,A5$(X);CR$;A6$(X);CR$;A7$(X);CR$;
A8$(X).@7!..8000.J7&..X: 6.O7+..".ARCHIV
E FILE HAS BEEN SAVED."..7,..".PLEASE IN
SERT THE .H.A.L.. SYSTEM DISK,"..7-.."TH
EN PRESS .RETURN..".V7...9980:.AN$..G(13
).4398..70.. *** ADJUST REGISTER ***..8:
.Q.Z.1:.X.1.Q.A8D.DA$(X).B1$(X):TN$(X).B
2$(X):DE$(X).B3$(X):CM$(X).B4$(X).}8N.RM
$(X).B5$(X):AM$(X).B6$(X):BA$(X).B7$(X):
MK$(X).B8$(X)..8X..X:REG$."REGISTER".D(A
):.2010.H8...".LOAD WHICH REGISTER(.MO/Y
R.)";ML$..8...C(ML$)..5.4500..8...E(H(ML
$,2)).12.4500..9...AV.1.4528.39...LA$."S
".REG$."REGISTER".D(A):.8200:LA$."".W9..
."..LOADING REQUESTED REGISTER".Z9..AV.0
:REG$."ACCT.".D(A)."-".ML$..9... *** LOA
D ARCHIVE REGISTER ***..9...5,8,5,"0:".R
EG$.",S,R".D9...8000.P9...5,QTN$.Z9...80
00..9..Q.E(QTN$):.X.1.Q..: ..5,DA$(X),TN
$(X),DE$(X),CM$(X),RM$(X),AM$(X),BA$(X),
MK$(X).8:!.RS.ST.B:"..8000.R:#..RS.64.46
45.B:$..RS..0.4650.L:%..X: 5..:&..X.1.Q:
Z$.AM$(X):.5500:AM$(X).Z$..:'.Z$.BA$(X):
.5500:BA$(X).Z$:.X:.4700.U:*.."BAD.DISK.
STATUS.IS."RS..:/. 6: 15:...;\.."...
. ARCHIVE FILE ";ML$;". ".,;F.."
......YOUR OPTIONS:".S;P.."........(.1.)
VIEW THE REGISTER".Z;Z..".......(.2.) P
RINT THE REGISTER"..;..".......(.3.) LO
AD ANOTHER ARCHIVE MONTH".X;...".......(
.4.) RETURN TO CURRENT REGISTER"..;...".
......(.5.) LEAVE THIS ACCOUNT".&<..."..
....PLEASE ENTER YOUR CHOICE.".?<...9980
:.E(AN$).5.4760.R<...E(AN$).0.4760.E<...
AN$."1".5000.X<... AN$."2".6000..<... A
N$."3".AV.1:.4500..<... AN$."4".4800..<.
.. AN$."5".100..<...4760..<..REG$."REGIS
TER".D(A):.8100:.2010..=... *** DISPLAY
REGISTER ***.?=X..".":.53281,15:BA.E(BA$
(1)).E(AM$(1)):BA$(0).D(BA):X.0.]=..Z$.B
A$(0):.5500:BA$(0).Z$..=..LI$.". CCCCCCC
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC"..=...X.
0.X.0..=..."...PRESS 'P' FOR PREV.PAGE.
..BAL.FWD..$";BA$(X);".":X.X.1..=..Y.X:.
X.Y.Y.6..=...X.Q.5180.2>..."."TN$(X):..5
)"."DE$(X):..31)".$";AM$(X);DA$(X).L>...
MK$(X)."".MK$(X)." "..>....9)"."MK$(X)"
"RM$(X):..27)"..BAL:$";BA$(X);LI$..>...X
:."...PRESS 'N' FOR NEXT PAGE..":.9980.G
>...AN$."N".X.X.1:.5100..>(..AN$."P".X.Y
.8:.5095..>2..9980. ?<.."...PRESS '..RET
URN..' TO RETURN TO MENU.":.9980.9?A..AN
$."P".X.Y.8:.5095.O?F..AN$..G(13)..9980.
\?H..53281,0.|?I..REG$.."REGISTER".D(A).
4700..?K..2010..?|.. *** ADJUST BA$ & AM
$ ***.T?..V$.I(Z$,3):.J(V$,2,1).".". Z$.
Z$."0":.5520..?...H(V$,1)..".".Z$.Z$.".0
0"..@...ZZ.1.C(Z$).-@...I(H(Z$,ZZ),1).".
".Z$.H(Z$,ZZ.2):.5520.5@...ZZ.R@...C(Z$)
.8.Z$." ".Z$:.5520.X@....S@... *** ABORT
OPTION ***..@..."..ENTER '.A.' NOW TO A
BORT THIS OPERATION,".P@..."OR PRESS ANY
OTHER KEY TO CONTINUE.".Z@...9980..@...
AN$."A".2010..A..BL$."
".?A..."...";BL$:.BL
$:.BL$:.".....".EA....FAP.. *** PRINT OU
T REGISTER ***..AU.LI$."CCCCCCCCCCCCCCCC
CCCCCCCCCCCCCCCCCCCCCC".JAZ.."....
. PRINTING OUT REGISTER ":.500.TA...
9980..A...AN$."A".6050..A...AN$.."P".602
0..B...6090. B...REG$.."REGISTER".D(A)..
.*B...2010.SBJ.."................PRINTIN
G REGISTER"..BT..4,4:.4,NA$(A):.4,BN$(A)
:.4,"ACCOUNT #";AC$(A)..B...4:.4:.4," T#
DATE * TRANSACTION & MEMO ";..
B...4," AMOUNT BALA
NCE":.4,LI$;LI$..C..PO$.G(16)..C...X.1.Q
.9C...C(TN$(X)).4.TN$(X)." ".TN$(X):.613
5.SC...MK$(X)."".MK$(X)." "..C...4,TN$(X
);PO$;"07";DA$(X);" ";MK$(X);" ";DE$(X);
PO$;"56";"$";AM$(X).QC...4,PO$;"19";RM$(
X);PO$;"67";"$";BA$(X):.4,LI$;LI$..C...X
:.4: 4:.REG$."REGISTER".D(A).2010..D$..4
700.!DX.. *** BALANCE ACCOUNT ***.QDB.."
... . BALANCE ACCOUNT ":.560
0..DL.."...DOES THE TRANSACTION SHOWN BE
LOW APPEAR"..DV.."ON THIS MONTH'S BANK S
TATEMENT?(.Y./.N.)"..D...X.1.Q.SD...MK$(
X)."*".7135..D...H(TN$(X),1)."D".PT$."DE
POSIT":.7085.(E...H(TN$(X),1)."W".PT$."W
ITHDRAWAL":.7085.:E..PT$."CHECK #".}E...
"........
":.T.1.300:.T..E...PT$.."CHECK #
".7100..E...".........";PT$;TN$(X):.7105
.ME...".........";PT$..EA...11)".ON ";DA
$(X)..EF...25)".FOR $";AM$(X).!FP..9980:
.AN$."Y".MK$(X)."*":.7135.4FZ..AN$.."N".
7120.;F...X.PF..."..IS THERE A MONTHLY S
ERVICE CHARGE?(.Y./.N.)".ZF...9980..F...
AN$."N".7220..F...AN$.."Y".7137.OF..."..
ENTER THE MONTHLY SERVICE CHARGE SHOWN".
.F..."ON THE BANK STATEMENT:":Q.Q.1.+G..
.".....AMOUNT: .$";AM$(Q):Z$.AM$(Q):.550
0:AM$(Q).Z$.OG...".....DATE(MO/DA/YR):."
;DA$(Q).JG..TN$(Q)."S".D(E(LW$).1)..G..R
M$(Q)."SERVICE CHARGE":DE$(Q).RM$(Q):CM$
(Q)." ":MK$(Q)."*"..G .BA.E(BA$(Q.1)):AM
.E(AM$(Q)):BS.BA.AM:BA$(Q).D(BS). H*.W.C
(TN$(Q)):W.W.1:LW$.I(TN$(Q),W):Z$.BA$(Q)
:.5500:BA$(Q).Z$.8H4.OT.E(BA$(Q)):.X.1.Q
.MH>..MK$(X)."*".7260.YHH..DE$(X)."DEPOS
IT".OT.OT.E(AM$(X)):.7260..HR.OT.OT.E(AM
$(X))..H\..X:Z$.D(OT):.5500.PHF.."...THE
ENDING BALANCE ON THIS MONTH'S"..HP.."B
ANK STATEMENT SHOULD BE .$";Z$."IZ.."..I
F THIS AGREES WITH THE STATEMENT,".@I...
"THEN PRESS '.RETURN.'.".NI...".IF NOT,P
RESS '.A.' TO ADJUST BALANCE."..I...9980
:.AN$.G(13).2010..I...AN$.."A".7320.EI..
."..WHAT IS THE ENDING BALANCE SHOWN"..I
..."ON THE BANK STATEMENT";BZ$..J...E(BZ
$).E(BA$(Q)).AJ.E(BZ$).E(BA$(Q)).:JJ..E(
BZ$).E(BA$(Q)).AJ.E(BA$(Q)).E(BZ$).KJT.Q
.Q.1:AM$(Q).D(AJ):Z$.AM$(Q):.5500:AM$(Q)
.Z$..J...E(BZ$).E(BA$(Q.1)).BA$(Q).D(E(B
A$(Q.1)).E(AM$(Q)))..J...E(BZ$).E(BA$(Q.
1)).BA$(Q).D(E(BA$(Q.1)).E(AM$(Q)))..J..
Z$.BA$(Q):.5500:BA$(Q).Z$.IK..DE$(Q)."BA
L. ADJUSTMENT":DA$(Q).DA$(Q.1):TN$(Q)."-
--":MK$(Q)."*":CM$(Q)." ".DK..RM$(Q)."PE
R STATEMENT"..K...".............YOUR BAL
ANCE HAS BEEN ADJUSTED BY THE".JK..."AMO
UNT OF .$";AM$(Q);".TO AGREE WITH"..K$..
"THIS MONTH'S BANK STATEMENT."..L...T.1.
1000:.T:.2010.*L@.. *** READ THE ERROR C
HANNEL ***.?LE..15,EN,EM$,ET,ES.NLJ.. EN
.0 . ..GLT..".. ERROR ON DISK ".YL^..EN,
EM$,ET,ES..LH. 8: 15:...L... *** READ RE
GISTER ***..L...6,8,6,"0:".REG$.",S,R".H
L...8000..L...6,QTN$,LD$,LW$,LC$..LB..80
00..LE.. QTN$."0". 6:...MG.Q.E(QTN$):.X.
1.Q.RML..6,DA$(X),TN$(X),DE$(X),CM$(X),R
M$(X),AM$(X),BA$(X),MK$(X).\MM.RS.ST.FMN
..8000.VMO..RS.64.8145..MP..RS..0.8150..
MQ.Z$.AM$(X):.5500:AM$(X).Z$.BMR.Z$.BA$(
X):.5500:BA$(X).Z$.NMS..X: 6:...MV.."BAD
.DISK.STATUS.IS."RS..M.. 6: 15:...N. . *
** SAVE REGISTER ***.1N. .6,8,6,"@0:".RE
G$.",S,W".;N& .8000.IN0 QTN$.D(Q).MNL .6
,QTN$;CR$;LD$;CR$;LW$;CR$;LC$.WNV .8000.
.N. .X.1.Q..N. .6,DA$(X);CR$;TN$(X);CR$;
DE$(X);CR$;CM$(X)..N. .6,RM$(X);CR$;AM$(
X);CR$;BA$(X);CR$;MK$(X)..N. .8000..N. .
X: 6:...OP . *** READ MONTHLY BILLS ***.
#OZ .MS.1...@O. .9,8,9,"0:".BILL$.",S,R"
.JO. .8000.UO.!.9,MB$._O !.8000.SO*!M.E(
MB$):.X.1.M..O4!.9,MDE$(X),MCM$(X),MRM$(
X),PF$(X)..O>!.8000..OH!RS.ST..OR!.RS.64
.8550.MO\!.RS..0.8150.YOF!.X: 9:...O.!.
*** SAVE MONTHLY BILLS ***..P.!.9,8,9,"@
0:".BILL$.",S,W"."P.!.8000.-P.!.9,MB$.7P
.!.8000.BP.!.X.1.M.TP.!.9,MDE$(X);CR$;MC
M$(X);CR$;MRM$(X);CR$;PF$(X).~P.".8000..
P.".X: 9:...P(#. *** PRINT CHECK ROUTINE
***..P2#."... . PRINTING CHECK #
";TN$(Q);". "..P<#.500..PF#.9980..QP#
. AN$."A"....QZ#. AN$.."P".9030.2QD#.Z%.
0..9100:Z%.1:.9210.<QN#.9210.TQ.#. I.1.1
9:. N1$(I):..KQ.#. I.2.9:. N2$(I):...Q #
. I.1.12:. M$(I):.:...Q.#:.OQ.#. ONE,TWO
,THREE,FOUR,FIVE,SIX,SEVEN,EIGHT,NINE,TE
N,ELEVEN,TWELVE..R.#. THIRTEEN,FOURTEEN,
FIFTEEN,SIXTEEN,SEVENTEEN,EIGHTEEN,NINET
EEN..RH#:.URR#. TWENTY,THIRTY,FORTY,FIFT
Y,SIXTY,SEVENTY,EIGHTY,NINETY.[R.#:..R.#
. JANUARY,FEBRUARY,MARCH,APRIL,MAY,JUNE,
JULY,AUGUST,SEPTEMBER,OCTOBER..R.#. NOVE
MBER,DECEMBER..R.#.9450:.AS$."*** AND **
*".S4.41.C(AT$):.9218..S.#S1.C(AS$).2:S2
.C(AT$).2..S.#.S1.S2.9217.PS.$S3.S2.S1:.
X.1.S3:AS$." ".AS$:.X:S4.41.C(AS$):.9218
..S.$S3.S1.S2:.X.1.S3:AT$." ".AT$:.X:S4.
41.C(AS$)..S.$SP$."":.X.1.S4:SP$.SP$." "
:.X.CS.$. *** CREATE ALPHA DATE ***.YS.$
MM.E(H(DA$(Q),2))..S.$D$.J(DA$(Q),4,2)..
T"$YR$."19".I(DA$(Q),2).%T,$DT$.M$(MM)."
".D$.",".YR$.ET1$.9335:. *** PRINT CHEC
K ***.[T6$.4,4:.X.1.3:.4:.X.KT@$.4,.37);
DT$..TE$.AS$.."*** AND ***".9290..TG$.4:
.4,.5);AT$;SP$;AM$(Q):.4:.9300.KTJ$.4:.4
,.5);AS$;SP$;AM$(Q).ZTO$.4,.5);AT$..TT$.
4:.4,.7);DE$(Q)..T^$.4:.4..UH$.4,.7);CM$
(Q).!UR$.X.1.3:.4:.X: 4:..RUW$."..PRINT
ASTERISKS FOR ALIGNMENT?(.Y./.N.)".UUX$.
9980:.AN$."N". 3:.3,4:.3: 3:...UY$.AN$..
"Y".9336..U|$.".... BE SURE THE ASTERISK
S WERE PRINTED AT"..U.$."THE UPPER LEFT
CORNER OF CHECK #";TN$(Q);"."..V.$."..AD
JUST CHECK IF NECESSARY,THEN PRESS:".KV.
$..3)"..F1. TO PROCEED WITH PRINTING CHE
CK".TV.$..3)"..F7. TO PRINT ASTERISKS AG
AIN"..V.$ 3:.3,4..V.$.3,"** ".
V.$.9980..VB$.AN$.G(133). 3:..JVL$.AN$.G
(136).9390.TVV$.9400..V.$. ** CONVERT NU
MBERS TO WORDS **..W.$. J.1.5:W$(J)."":.
J.5W.$CE$.I(AM$(Q),2):CA$.H(AM$(Q),5).TW
.$.H(CA$,1)." ".CA$.I(CA$,4).SW.$.H(CA$,
1)." ".CA$.I(CA$,3)..W.$.H(CA$,1)." ".CA
$.I(CA$,2)..W.$.H(CA$,1)." ".CA$.I(CA$,1
)..W.%L1.C(CA$):U.1:. L1 .9550,9540,9510
,9490..W.%T.E(J(CA$,U,1))..X.%W$(1).N1$(
T)." THOUSAND ":U.U.1.5X&%T.E(J(CA$,U,1)
):. T.0 .9530.RX0%W$(2).N1$(T)." HUNDRED
".\X:%U.U.1.WXD%T1.E(J(CA$,U,1)):U.U.1.
.XN%T2.E(J(CA$,U,1))..XX%. T1.0 .9590.GX
B%. T1.1 . T3.10.T2:W$(5).N1$(T3):.9620.
YXL%W$(3).N2$(T1)..XV%. T2.0 . W$(5).W$(
3):.9620.%Y.%W$(4).N1$(T2):. T1.0 . W$(5
).W$(4):.9620.?Y.%W$(5).W$(3)."-".W$(4).
Y.%AS$."*** ".W$(1).W$(2)."AND ***":SG$
." & ":.W$(5)."".SG$.""..Y.%AT$."*** ".W
$(5).SG$.CE$."/100 DOLLARS ***".AY.%T.0:
T1.0:T2.0.GY.%...Y.&.AN$:.AN$."".9980..Y
.'...Z.'.*** RETURN TO H.A.L. ***..Z.' 1
5..Z.'.53280,0:.53281,0.*Z8'.198,4.HZB'.
"....LOAD"G(34)"H.A.L.";.ZZL'. G(34)",8.
";.ZV'.631,13:.632,82:.633,117:.634,13.
.Z`'....
> CLICK IMAGE PREVIEW FOR FULL MODAL