CHECKREGNSKAB
FILE INFORMATION
FILENAME(S): CHECKREGNSKAB
FILE TYPE(S): PRG
FILE SIZE: 6.6K
FIRST SEEN: 2025-11-30 19:38:33
APPEARS ON: 1 disk(s)
FILE HASH
21d512824bd67c87f22e28c79ba924ad55b3f5be8fe970ad7c860ba81e47cf9f
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| DISKFORS G | CHECKREGNSKAB | PRG | Curtcool, Brian | 16 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 07 08 64 00 8F 00 35 08 69 00 4D 24 B2 22 |....d...5.i.M$."|
00000010: D0 52 45 53 53 20 41 4E 59 20 4B 45 59 20 54 4F |.RESS ANY KEY TO|
00000020: 20 43 4F 4E 54 49 4E 55 45 2C 4D 20 46 4F 52 20 | CONTINUE,M FOR |
00000030: 4D 45 4E 55 22 00 5A 08 6E 00 54 30 24 B2 22 20 |MENU".Z.n.T0$." |
00000040: 20 20 20 20 2A 2A 2A C1 43 43 4F 55 4E 54 20 CD | ***.CCOUNT .|
00000050: 41 4E 41 47 45 52 2A 2A 2A 22 00 78 08 73 00 52 |ANAGER***".x.s.R|
00000060: 30 B2 32 3A 52 33 B2 31 3A 54 53 B2 30 3A 43 48 |0.2:R3.1:TS.0:CH|
00000070: B2 30 3A 43 31 B2 31 30 00 A4 08 78 00 99 C7 28 |.0:C1.10...x...(|
00000080: 31 34 29 3A 41 50 24 B2 22 41 43 43 54 50 4F 49 |14):AP$."ACCTPOI|
00000090: 4E 54 45 52 22 3A 41 46 24 B2 22 41 43 43 54 44 |NTER":AF$."ACCTD|
000000A0: 41 54 41 22 00 B0 08 82 00 9F 31 2C 38 2C 31 35 |ATA"......1,8,15|
000000B0: 00 D2 08 87 00 53 4E B2 31 33 35 3A 9F 33 2C 38 |.....SN.135:.3,8|
000000C0: 2C 33 2C 41 50 24 AA 22 2C 53 2C 52 22 3A 8D 38 |,3,AP$.",S,R":.8|
000000D0: 35 30 00 E8 08 8C 00 53 4E B2 31 34 30 3A 84 33 |50.....SN.140:.3|
000000E0: 2C 4E 32 3A 8D 38 35 30 00 0F 09 91 00 53 4E B2 |,N2:.850.....SN.|
000000F0: 31 34 35 3A 81 49 B2 31 A4 4E 32 3A 84 33 2C 58 |145:.I.1.N2:.3,X|
00000100: 32 24 28 49 29 3A 8D 38 35 30 3A 82 3A A0 33 00 |2$(I):.850:.:.3.|
00000110: 2A 09 96 00 53 4E B2 31 35 30 3A 9F 32 2C 38 2C |*...SN.150:.2,8,|
00000120: 32 2C 41 46 24 3A 8D 38 35 30 00 60 09 9B 00 99 |2,AF$:.850.`....|
00000130: C7 28 31 34 37 29 3B C7 28 31 38 29 3B 54 30 24 |.(147);.(18);T0$|
00000140: 3B C7 28 31 34 36 29 3A 99 3A 99 22 D0 52 4F 47 |;.(146):.:.".ROG|
00000150: 52 41 4D 53 20 4F 50 54 49 4F 4E 53 3A 22 3A 99 |RAMS OPTIONS:":.|
00000160: 00 7D 09 A0 00 99 22 20 31 20 2D 20 CC 49 53 54 |.}...." 1 - .IST|
00000170: 20 41 4C 4C 20 52 45 43 4F 52 44 53 22 00 99 09 | ALL RECORDS"...|
00000180: A5 00 99 22 20 32 20 2D 20 C1 44 44 20 4E 45 57 |..." 2 - .DD NEW|
00000190: 20 41 43 43 4F 55 4E 54 22 00 B5 09 AA 00 99 22 | ACCOUNT"......"|
000001A0: 20 33 20 2D 20 C3 48 41 4E 47 45 20 41 20 52 45 | 3 - .HANGE A RE|
000001B0: 43 4F 52 44 22 00 DE 09 AF 00 99 22 20 34 20 2D |CORD"......" 4 -|
000001C0: 20 C3 55 52 52 45 4E 54 20 42 41 4C 41 4E 43 45 | .URRENT BALANCE|
000001D0: 2C 41 4C 4C 20 41 43 43 4F 55 4E 54 53 22 00 0D |,ALL ACCOUNTS"..|
000001E0: 0A B4 00 99 22 20 35 20 2D 20 CC 49 53 54 20 41 |...." 5 - .IST A|
000001F0: 4C 4C 20 52 45 43 4F 52 44 53 20 46 4F 52 20 47 |LL RECORDS FOR G|
00000200: 49 56 45 4E 20 41 43 43 4F 55 4E 54 22 00 3D 0A |IVEN ACCOUNT".=.|
00000210: B9 00 99 22 20 36 20 2D 20 C1 44 44 20 4E 45 57 |..." 6 - .DD NEW|
00000220: 20 52 45 43 4F 52 44 53 20 54 4F 20 45 58 49 53 | RECORDS TO EXIS|
00000230: 54 49 4E 47 20 41 43 43 4F 55 4E 54 22 00 5E 0A |TING ACCOUNT".^.|
00000240: BE 00 99 22 20 37 20 2D 20 D3 50 41 52 45 20 46 |..." 7 - .PARE F|
00000250: 4F 52 20 46 55 54 55 52 45 20 55 53 45 22 00 76 |OR FUTURE USE".v|
00000260: 0A C3 00 99 22 20 38 20 2D 20 C5 4E 44 20 50 52 |...." 8 - .ND PR|
00000270: 4F 47 52 41 4D 22 00 94 0A C8 00 99 3A 85 22 D7 |OGRAM"......:.".|
00000280: 48 49 43 48 20 4F 50 54 49 4F 4E 28 31 2D 38 29 |HICH OPTION(1-8)|
00000290: 22 3B 4A 24 00 A0 0A CD 00 4A B2 C5 28 4A 24 29 |";J$.....J..(J$)|
000002A0: 00 CE 0A D2 00 8B 4A B3 31 B0 4A B1 38 A7 20 99 |......J.1.J.8. .|
000002B0: 22 CF 50 54 49 4F 4E 20 45 52 52 4F 52 2E D4 52 |".PTION ERROR..R|
000002C0: 59 20 41 47 41 49 4E 2E 22 3A 89 32 30 30 00 DB |Y AGAIN.":.200..|
000002D0: 0A D7 00 8B 4A B2 38 A7 38 33 35 00 E9 0A DC 00 |....J.8.835.....|
000002E0: 8D 38 39 30 3A 99 4D 24 3A 00 FC 0A E1 00 A1 5A |.890:.M$:......Z|
000002F0: 24 3A 8B 5A 24 B2 22 22 A7 32 32 35 00 0C 0B E6 |$:.Z$."".225....|
00000300: 00 8B 5A 24 B2 22 4D 22 A7 31 35 35 00 2F 0B EB |..Z$."M".155./..|
00000310: 00 91 4A 89 32 34 35 2C 32 38 35 2C 34 31 35 2C |..J.245,285,415,|
00000320: 35 31 35 2C 36 32 30 2C 36 32 35 2C 38 31 35 00 |515,620,625,815.|
00000330: 35 0B F0 00 90 00 55 0B F5 00 99 C7 28 31 34 37 |5.....U.....(147|
00000340: 29 3B 22 D0 52 49 4E 54 20 41 4C 4C 20 52 45 43 |);".RINT ALL REC|
00000350: 4F 52 44 53 22 00 77 0B FA 00 8D 39 33 30 3A 8F |ORDS".w....930:.|
00000360: 20 52 45 41 44 20 44 41 54 41 20 46 49 4C 45 20 | READ DATA FILE |
00000370: 43 4F 55 4E 54 45 52 00 84 0B FF 00 81 49 B2 32 |COUNTER......I.2|
00000380: A4 4E AA 31 00 93 0B 04 01 52 31 B2 49 3A 8D 31 |.N.1.....R1.I:.1|
00000390: 33 30 35 00 A3 0B 09 01 49 49 B2 49 AB 31 3A 8D |305.....II.I.1:.|
000003A0: 39 34 35 00 B3 0B 0E 01 8B 5A 24 B2 22 4D 22 A7 |945......Z$."M".|
000003B0: 31 35 35 00 B9 0B 13 01 82 00 C2 0B 18 01 89 31 |155............1|
000003C0: 35 35 00 E4 0B 1D 01 99 C7 28 31 34 37 29 3B 22 |55.......(147);"|
000003D0: C1 44 44 20 41 20 4E 45 57 20 41 43 43 4F 55 4E |.DD A NEW ACCOUN|
000003E0: 54 22 3A 99 00 ED 0B 22 01 8D 39 33 30 00 F7 0B |T":...."..930...|
000003F0: 27 01 8D 31 30 36 30 00 FD 0B 2C 01 8F 00 0C 0C |'..1060...,.....|
00000400: 31 01 8B 54 53 B3 B1 31 A7 33 32 30 00 15 0C 36 |1..TS..1.320...6|
00000410: 01 54 53 B2 30 00 58 0C 3B 01 99 22 CE 45 57 20 |.TS.0.X.;..".EW |
00000420: 41 43 43 54 2E 20 23 20 41 4C 52 45 41 44 59 20 |ACCT. # ALREADY |
00000430: 45 58 49 53 54 53 2E D2 45 54 55 52 4E 20 54 4F |EXISTS..ETURN TO|
00000440: 20 4D 45 4E 55 22 3A 81 20 49 B2 31 A4 31 35 30 | MENU":. I.1.150|
00000450: 30 3A 82 3A 89 31 35 35 00 6F 0C 40 01 45 24 B2 |0:.:.155.o.@.E$.|
00000460: 22 20 20 30 22 3A 54 45 24 B2 22 20 20 31 22 00 |" 0":TE$." 1".|
00000470: 7F 0C 45 01 49 49 B2 4E AA 31 3A 8D 39 34 35 00 |..E.II.N.1:.945.|
00000480: 99 0C 4A 01 99 22 D3 41 56 45 20 4F 4E 20 44 49 |..J..".AVE ON DI|
00000490: 53 4B 20 20 59 2F 4E 3F 22 00 AC 0C 4F 01 A1 5A |SK Y/N?"...O..Z|
000004A0: 24 3A 8B 5A 24 B2 22 22 A7 33 33 35 00 BC 0C 54 |$:.Z$."".335...T|
000004B0: 01 8B 5A 24 B2 22 59 22 A7 33 37 30 00 DD 0C 59 |..Z$."Y".370...Y|
000004C0: 01 99 22 D4 52 59 20 41 47 41 49 4E 20 28 59 29 |..".RY AGAIN (Y)|
000004D0: 20 4F 52 20 4D 45 4E 55 20 28 4D 29 22 00 F0 0C | OR MENU (M)"...|
000004E0: 5E 01 A1 5A 24 3A 8B 5A 24 B2 22 22 A7 33 35 30 |^..Z$:.Z$."".350|
000004F0: 00 01 0D 63 01 8B 5A 24 B3 B1 22 59 22 A7 31 35 |...c..Z$.."Y".15|
00000500: 35 00 0E 0D 68 01 8B 4A B2 36 A7 36 32 35 00 17 |5...h..J.6.625..|
00000510: 0D 6D 01 89 32 39 35 00 2E 0D 72 01 52 31 B2 4E |.m..295...r.R1.N|
00000520: AA 32 3A 4E B2 4E AA 31 3A 8D 31 32 31 35 00 4D |.2:N.N.1:.1215.M|
00000530: 0D 77 01 53 4E B2 33 37 35 3A 52 31 B2 31 3A 8D |.w.SN.375:R1.1:.|
00000540: 38 37 30 3A 98 32 2C 4E 3A 8D 38 35 30 00 5A 0D |870:.2,N:.850.Z.|
00000550: 7C 01 8B 4A B2 36 89 37 38 35 00 96 0D 81 01 4E ||..J.6.785.....N|
00000560: 32 B2 4E 32 AA 31 3A 58 32 24 28 4E 32 29 B2 C8 |2.N2.1:X2$(N2)..|
00000570: 28 41 24 AA 22 20 20 20 20 20 20 20 20 20 20 22 |(A$." "|
00000580: 2C 43 31 29 AA C9 28 22 20 20 20 22 AA C4 28 4E |,C1)..(" "..(N|
00000590: AA 31 29 2C 33 29 00 B6 0D 86 01 99 22 CD 4F 52 |.1),3)......".OR|
000005A0: 45 20 4E 45 57 20 41 43 43 4F 55 4E 54 53 20 28 |E NEW ACCOUNTS (|
000005B0: 59 2F 4E 29 3F 22 00 C9 0D 8B 01 A1 5A 24 3A 8B |Y/N)?"......Z$:.|
000005C0: 5A 24 B2 22 22 A7 33 39 35 00 D9 0D 90 01 8B 5A |Z$."".395......Z|
000005D0: 24 B2 22 59 22 A7 32 39 30 00 01 0E 95 01 43 48 |$."Y".290.....CH|
000005E0: B2 31 3A 8F 20 53 45 54 20 46 4C 41 47 20 54 4F |.1:. SET FLAG TO|
000005F0: 20 4E 45 57 20 50 4F 49 4E 54 45 52 20 46 49 4C | NEW POINTER FIL|
00000600: 45 00 0A 0E 9A 01 89 31 35 35 00 2A 0E 9F 01 99 |E......155.*....|
00000610: C7 28 31 34 37 29 3B 22 C3 48 41 4E 47 45 20 41 |.(147);".HANGE A|
00000620: 20 52 45 43 4F 52 44 22 3A 99 00 33 0E A4 01 8D | RECORD":..3....|
00000630: 39 33 30 00 5F 0E A9 01 85 22 D7 48 49 43 48 20 |930._....".HICH |
00000640: 52 45 43 4F 52 44 20 54 4F 20 43 48 41 4E 47 45 |RECORD TO CHANGE|
00000650: 22 3B 57 48 24 3A 57 48 B2 C5 28 57 48 24 29 00 |";WH$:WH..(WH$).|
00000660: 8A 0E AE 01 8B 57 48 B1 4E 20 B0 20 57 48 B3 31 |.....WH.N . WH.1|
00000670: A7 20 99 22 D2 45 43 4F 52 44 20 44 4F 45 53 4E |. .".ECORD DOESN|
00000680: 27 54 20 45 58 49 53 54 2E 22 00 9D 0E B3 01 52 |'T EXIST.".....R|
00000690: 31 B2 57 48 AA 31 3A 8D 31 33 30 35 3A 00 AD 0E |1.WH.1:.1305:...|
000006A0: B8 01 49 49 B2 57 48 3A 8D 39 34 35 3A 00 BD 0E |..II.WH:.945:...|
000006B0: BD 01 8B 5A 24 B2 22 4D 22 A7 31 35 35 00 C7 0E |...Z$."M".155...|
000006C0: C2 01 8D 31 30 36 30 00 D0 0E C7 01 8D 39 34 35 |...1060......945|
000006D0: 00 F7 0E CC 01 99 22 D3 41 56 45 20 54 48 49 53 |......".AVE THIS|
000006E0: 20 52 45 43 4F 52 44 20 4F 4E 20 44 49 53 4B 20 | RECORD ON DISK |
000006F0: 28 59 2F 4E 29 3F 22 00 0A 0F D1 01 A1 5A 24 3A |(Y/N)?"......Z$:|
00000700: 8B 5A 24 B2 22 22 A7 34 36 35 00 1A 0F D6 01 8B |.Z$."".465......|
00000710: 5A 24 B2 22 59 22 A7 34 39 30 00 3B 0F DB 01 99 |Z$."Y".490.;....|
00000720: 22 D4 52 59 20 41 47 41 49 4E 20 28 59 29 20 4F |".RY AGAIN (Y) O|
00000730: 52 20 4D 45 4E 55 20 28 4D 29 22 00 4C 0F E0 01 |R MENU (M)".L...|
00000740: 8B 5A 24 B3 B1 22 59 22 A7 31 35 35 00 55 0F E5 |.Z$.."Y".155.U..|
00000750: 01 89 34 35 30 00 5F 0F EA 01 8D 31 32 31 35 00 |..450._....1215.|
00000760: 84 0F EF 01 99 22 CD 4F 52 45 20 52 45 43 4F 52 |.....".ORE RECOR|
00000770: 44 53 20 54 4F 20 43 48 41 4E 47 45 20 28 59 2F |DS TO CHANGE (Y/|
00000780: 4E 29 3F 22 00 97 0F F4 01 A1 5A 24 3A 8B 5A 24 |N)?"......Z$:.Z$|
00000790: B2 22 22 A7 35 30 30 00 A7 0F F9 01 8B 5A 24 B2 |."".500......Z$.|
000007A0: 22 59 22 A7 34 32 35 00 B0 0F FE 01 89 31 35 35 |"Y".425......155|
000007B0: 00 E1 0F 03 02 99 C7 28 31 34 37 29 3B 22 CC 49 |.......(147);".I|
000007C0: 53 54 20 4F 46 20 43 55 52 52 45 4E 54 20 41 43 |ST OF CURRENT AC|
000007D0: 43 4F 55 4E 54 20 42 41 4C 41 4E 43 45 53 22 3A |COUNT BALANCES":|
000007E0: 99 00 0B 10 08 02 99 22 C1 43 43 4F 55 4E 54 20 |.......".CCOUNT |
000007F0: 23 20 20 20 20 20 20 20 C2 41 4C 41 4E 43 45 20 |# .ALANCE |
00000800: 20 C4 41 54 45 22 3A 54 54 B2 30 00 36 10 0D 02 | .ATE":TT.0.6...|
00000810: 99 22 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |."--------------|
00000820: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000830: 2D 2D 2D 2D 2D 22 00 42 10 12 02 81 49 B2 31 A4 |-----".B....I.1.|
00000840: 4E 32 00 74 10 17 02 52 31 B2 C5 28 CA 28 58 32 |N2.t...R1..(.(X2|
00000850: 24 28 49 29 2C 43 31 AA 31 2C 33 29 29 3A 8F 20 |$(I),C1.1,3)):. |
00000860: 4C 4F 43 41 54 45 20 43 55 52 52 45 4E 54 20 45 |LOCATE CURRENT E|
00000870: 4E 54 52 59 00 7E 10 1C 02 8D 31 33 30 35 00 A1 |NTRY.~....1305..|
00000880: 10 21 02 41 31 24 28 49 29 B2 41 24 3A 41 32 24 |.!.A1$(I).A$:A2$|
00000890: 28 49 29 B2 42 24 3A 41 33 24 28 49 29 B2 44 31 |(I).B$:A3$(I).D1|
000008A0: 24 00 BA 10 26 02 99 41 24 3B A3 31 35 29 3B 42 |$...&..A$;.15);B|
000008B0: 24 3B A3 32 35 29 3B 44 31 24 00 CC 10 2B 02 54 |$;.25);D1$...+.T|
000008C0: 54 B2 54 54 AA C5 28 42 24 29 3A 82 00 F7 10 30 |T.TT..(B$):....0|
000008D0: 02 99 22 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |.."-------------|
000008E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000008F0: 2D 2D 2D 2D 2D 2D 22 00 1F 11 35 02 99 A3 39 29 |------"...5...9)|
00000900: 3B 22 D4 4F 54 41 4C 22 3B C9 28 22 20 20 20 20 |;".OTAL";.(" |
00000910: 20 20 20 20 20 22 AA C4 28 54 54 29 2C 39 29 00 | "..(TT),9).|
00000920: 5F 11 3A 02 99 22 D0 52 45 53 53 20 2D 50 2D 20 |_.:..".RESS -P- |
00000930: 54 4F 20 53 45 4E 44 20 54 4F 20 50 52 49 4E 54 |TO SEND TO PRINT|
00000940: 45 52 20 46 49 52 53 54 2C 41 4E 59 20 4F 54 48 |ER FIRST,ANY OTH|
00000950: 45 52 20 4B 45 59 20 54 4F 20 4D 45 4E 55 22 00 |ER KEY TO MENU".|
00000960: 72 11 3F 02 A1 5A 24 3A 8B 5A 24 B2 22 22 A7 35 |r.?..Z$:.Z$."".5|
00000970: 37 35 00 83 11 44 02 8B 5A 24 B3 B1 22 50 22 A7 |75...D..Z$.."P".|
00000980: 31 35 35 00 90 11 49 02 8F 50 52 49 4E 54 45 52 |155...I..PRINTER|
00000990: 00 99 11 67 02 89 31 35 35 00 C5 11 6C 02 99 22 |...g..155...l.."|
000009A0: CC 49 53 54 20 41 4C 4C 20 52 45 43 4F 52 44 53 |.IST ALL RECORDS|
000009B0: 20 46 4F 52 20 41 20 47 49 56 45 4E 20 41 43 43 | FOR A GIVEN ACC|
000009C0: 4F 55 4E 54 22 00 DD 11 71 02 85 22 D7 48 49 43 |OUNT"...q..".HIC|
000009D0: 48 20 41 43 43 4F 55 4E 54 22 3B 41 24 00 FA 11 |H ACCOUNT";A$...|
000009E0: 76 02 41 24 B2 C8 28 41 24 AA 22 20 20 20 20 20 |v.A$..(A$." |
000009F0: 20 20 20 20 20 22 2C 43 31 29 00 06 12 7B 02 81 | ",C1)...{..|
00000A00: 49 B2 31 A4 4E 32 00 23 12 80 02 8B 41 24 B2 C8 |I.1.N2.#....A$..|
00000A10: 28 58 32 24 28 49 29 2C 43 31 29 AF 4A B2 36 A7 |(X2$(I),C1).J.6.|
00000A20: 37 34 30 00 3C 12 85 02 8B 41 24 B2 C8 28 58 32 |740.<....A$..(X2|
00000A30: 24 28 49 29 2C 43 31 29 A7 36 37 35 00 42 12 8A |$(I),C1).675.B..|
00000A40: 02 82 00 79 12 8F 02 99 22 C1 43 43 4F 55 4E 54 |...y....".CCOUNT|
00000A50: 20 44 4F 45 53 4E 27 54 20 45 58 49 53 54 2E D4 | DOESN'T EXIST..|
00000A60: 52 59 20 41 47 41 49 4E 20 28 59 29 20 4F 52 20 |RY AGAIN (Y) OR |
00000A70: 4D 45 4E 55 20 28 4D 29 22 00 8C 12 94 02 A1 5A |MENU (M)"......Z|
00000A80: 24 3A 8B 5A 24 B2 22 22 A7 36 36 30 00 9C 12 99 |$:.Z$."".660....|
00000A90: 02 8B 5A 24 B2 22 59 22 A7 36 32 35 00 A5 12 9E |..Z$."Y".625....|
00000AA0: 02 89 31 35 35 00 C0 12 A3 02 52 31 B2 C5 28 CA |..155.....R1..(.|
00000AB0: 28 58 32 24 28 49 29 2C 43 31 AA 31 2C 33 29 29 |(X2$(I),C1.1,3))|
00000AC0: 00 CA 12 A8 02 8D 31 33 30 35 00 DB 12 AD 02 49 |......1305.....I|
00000AD0: 49 B2 52 31 AB 31 3A 8D 39 34 35 00 EB 12 B2 02 |I.R1.1:.945.....|
00000AE0: 8B 5A 24 B2 22 4D 22 A7 31 35 35 00 F8 12 B7 02 |.Z$."M".155.....|
00000AF0: 52 31 B2 C5 28 45 24 29 00 07 13 BC 02 8B 52 31 |R1..(E$)......R1|
00000B00: B3 B1 30 A7 36 38 30 00 4E 13 C1 02 99 22 CC 41 |..0.680.N....".A|
00000B10: 53 54 20 45 4E 54 52 59 20 46 4F 52 20 41 43 43 |ST ENTRY FOR ACC|
00000B20: 54 20 23 20 22 3B 41 24 3A 99 22 C4 4F 20 41 4E |T # ";A$:.".O AN|
00000B30: 4F 54 48 45 52 20 41 43 43 4F 55 4E 54 20 28 59 |OTHER ACCOUNT (Y|
00000B40: 29 20 4F 52 20 4D 45 4E 55 20 28 4D 29 22 00 61 |) OR MENU (M)".a|
00000B50: 13 C6 02 A1 5A 24 3A 8B 5A 24 B2 22 22 A7 37 31 |....Z$:.Z$."".71|
00000B60: 30 00 8A 13 CB 02 8B 5A 24 B2 22 59 22 A7 81 49 |0......Z$."Y"..I|
00000B70: B2 31 A4 4E 32 3A 99 C8 28 58 32 24 28 49 29 2C |.1.N2:..(X2$(I),|
00000B80: 43 31 29 3A 82 3A 89 36 32 35 00 93 13 D0 02 89 |C1):.:.625......|
00000B90: 31 35 35 00 99 13 D5 02 8F 00 9F 13 DA 02 8F 00 |155.............|
00000BA0: A5 13 DF 02 8F 00 D0 13 E4 02 52 31 B2 C5 28 CA |..........R1..(.|
00000BB0: 28 58 32 24 28 49 29 2C 43 31 AA 31 2C 33 29 29 |(X2$(I),C1.1,3))|
00000BC0: 3A 54 45 24 B2 C9 28 58 32 24 28 49 29 2C 33 29 |:TE$..(X2$(I),3)|
00000BD0: 00 DA 13 E9 02 8D 31 33 30 35 00 EB 13 EE 02 49 |......1305.....I|
00000BE0: 49 B2 52 31 AB 31 3A 8D 39 34 35 00 FB 13 F3 02 |I.R1.1:.945.....|
00000BF0: 8B 5A 24 B2 22 4D 22 A7 31 35 35 00 13 14 F4 02 |.Z$."M".155.....|
00000C00: 45 24 B2 C9 28 22 20 20 20 22 AA C4 28 52 31 29 |E$..(" "..(R1)|
00000C10: 2C 33 29 00 32 14 F5 02 54 45 24 B2 C9 28 22 20 |,3).2...TE$..(" |
00000C20: 20 20 22 AA C4 28 C5 28 54 45 24 29 AA 31 29 2C | "..(.(TE$).1),|
00000C30: 33 29 00 4A 14 F8 02 45 24 B2 C9 28 22 20 20 20 |3).J...E$..(" |
00000C40: 22 AA C4 28 52 31 29 2C 33 29 00 69 14 FD 02 54 |"..(R1),3).i...T|
00000C50: 45 24 B2 C9 28 22 20 20 20 22 AA C4 28 C5 28 54 |E$..(" "..(.(T|
00000C60: 45 24 29 AA 31 29 2C 33 29 00 72 14 02 03 8D 39 |E$).1),3).r....9|
00000C70: 33 30 00 7C 14 07 03 8D 31 30 36 30 00 85 14 0C |30.|....1060....|
00000C80: 03 89 33 32 35 00 BC 14 11 03 58 32 24 28 49 29 |..325.....X2$(I)|
00000C90: B2 C8 28 41 24 AA 22 20 20 20 20 20 20 20 20 20 |..(A$." |
00000CA0: 20 22 2C 43 31 29 AA C9 28 22 20 20 20 22 AA C4 | ",C1)..(" "..|
00000CB0: 28 4E AA 31 29 2C 33 29 AA 54 45 24 00 DF 14 16 |(N.1),3).TE$....|
00000CC0: 03 99 22 CD 4F 52 45 20 41 43 43 4F 55 4E 54 20 |..".ORE ACCOUNT |
00000CD0: 55 50 44 41 54 45 53 20 28 59 2F 4E 29 3F 22 00 |UPDATES (Y/N)?".|
00000CE0: F2 14 1B 03 A1 5A 24 3A 8B 5A 24 B2 22 22 A7 37 |.....Z$:.Z$."".7|
00000CF0: 39 35 00 02 15 20 03 8B 5A 24 B2 22 59 22 A7 36 |95... ..Z$."Y".6|
00000D00: 32 35 00 0B 15 25 03 43 48 B2 31 00 14 15 2A 03 |25...%.CH.1...*.|
00000D10: 89 31 35 35 00 4E 15 2F 03 99 C7 28 31 34 37 29 |.155.N./...(147)|
00000D20: 3B 22 CE 4F 54 20 49 4D 50 4C 45 4D 45 4E 54 45 |;".OT IMPLEMENTE|
00000D30: 44 20 2D 20 41 56 41 49 4C 41 42 4C 45 20 46 4F |D - AVAILABLE FO|
00000D40: 52 20 46 55 54 55 52 45 20 55 53 45 2E 22 00 72 |R FUTURE USE.".r|
00000D50: 15 34 03 99 22 D0 52 45 53 53 20 41 4E 59 20 4B |.4..".RESS ANY K|
00000D60: 45 59 20 54 4F 20 52 45 54 55 52 4E 20 4D 45 4E |EY TO RETURN MEN|
00000D70: 55 22 00 85 15 39 03 A1 5A 24 3A 8B 5A 24 B2 22 |U"...9..Z$:.Z$."|
00000D80: 22 A7 38 32 35 00 8E 15 3E 03 89 31 35 35 00 A1 |".825...>..155..|
00000D90: 15 43 03 8F 2A 45 4E 44 20 50 52 4F 47 52 41 4D |.C..*END PROGRAM|
00000DA0: 2A 00 B1 15 48 03 8B 43 48 B2 31 A7 8D 31 30 33 |*...H..CH.1..103|
00000DB0: 30 00 BD 15 4D 03 A0 32 3A A0 31 3A 80 00 D8 15 |0...M..2:.1:....|
00000DC0: 52 03 8F 2A 44 49 53 4B 20 45 52 52 4F 52 20 43 |R..*DISK ERROR C|
00000DD0: 48 45 43 4B 49 4E 47 2A 00 FC 15 57 03 84 31 2C |HECKING*...W..1,|
00000DE0: 45 52 2C 45 52 24 2C 45 31 2C 45 32 3A 8B 45 52 |ER,ER$,E1,E2:.ER|
00000DF0: B3 32 30 B0 45 52 B2 35 30 A7 20 8E 00 30 16 5C |.20.ER.50. ..0.\|
00000E00: 03 99 22 44 49 53 4B 20 45 52 52 4F 52 20 46 52 |.."DISK ERROR FR|
00000E10: 4F 4D 20 53 54 41 54 45 4D 45 4E 54 22 3B 53 4E |OM STATEMENT";SN|
00000E20: 3A 99 45 52 3B 45 52 24 3A A0 32 3A A0 31 3A 90 |:.ER;ER$:.2:.1:.|
00000E30: 00 36 16 61 03 8E 00 4E 16 66 03 8F 2A 50 4F 53 |.6.a...N.f..*POS|
00000E40: 49 54 49 4F 4E 20 50 4F 49 4E 54 45 52 2A 00 7F |ITION POINTER*..|
00000E50: 16 6B 03 52 48 B2 30 3A 52 4C B2 52 31 3A 8B 52 |.k.RH.0:RL.R1:.R|
00000E60: 31 B1 32 35 35 A7 52 48 B2 B5 28 52 31 AD 32 35 |1.255.RH..(R1.25|
00000E70: 36 29 3A 52 4C B2 52 31 AB 32 35 36 AC 52 48 00 |6):RL.R1.256.RH.|
00000E80: A3 16 70 03 98 31 2C 22 50 22 C7 28 52 30 29 C7 |..p..1,"P".(R0).|
00000E90: 28 52 4C 29 C7 28 52 48 29 C7 28 52 33 29 3A 8D |(RL).(RH).(R3):.|
00000EA0: 38 35 30 00 A9 16 75 03 8E 00 C2 16 7A 03 8F 2A |850...u.....z..*|
00000EB0: 4C 49 53 54 20 50 4F 49 4E 54 45 52 20 46 49 4C |LIST POINTER FIL|
00000EC0: 45 2A 00 EC 16 7F 03 99 3A 99 22 D0 4F 49 4E 54 |E*......:.".OINT|
00000ED0: 45 52 20 46 49 4C 45 20 48 41 53 20 22 3B 4E 32 |ER FILE HAS ";N2|
00000EE0: 3B 22 20 45 4E 54 52 49 45 53 2E 22 00 03 17 84 |;" ENTRIES."....|
00000EF0: 03 99 22 20 20 20 20 20 20 20 20 20 20 20 C4 41 |.." .A|
00000F00: 54 41 22 00 20 17 89 03 99 22 20 20 20 20 20 20 |TA". ...." |
00000F10: 20 20 20 20 20 52 45 43 2E 20 D4 4F 54 41 4C 22 | REC. .OTAL"|
00000F20: 00 3F 17 8E 03 99 22 41 43 43 54 20 23 20 20 20 |.?...."ACCT # |
00000F30: 20 20 20 20 23 20 20 45 4E 54 52 49 45 53 22 00 | # ENTRIES".|
00000F40: 5F 17 93 03 81 49 B2 31 A4 4E 32 3A 99 C8 28 58 |_....I.1.N2:..(X|
00000F50: 32 24 28 49 29 2C 43 31 29 3B 22 20 20 22 3B 00 |2$(I),C1);" ";.|
00000F60: 90 17 98 03 99 C4 28 C5 28 CA 28 58 32 24 28 49 |......(.(.(X2$(I|
00000F70: 29 2C 43 31 AA 31 2C 33 29 29 AB 31 29 3B 22 20 |),C1.1,3)).1);" |
00000F80: 20 22 3B C9 28 58 32 24 28 49 29 2C 33 29 3A 82 | ";.(X2$(I),3):.|
00000F90: 00 96 17 9D 03 8E 00 9C 17 A2 03 8F 00 BB 17 A7 |................|
00000FA0: 03 52 31 B2 31 3A 53 4E B2 39 33 35 3A 8D 38 37 |.R1.1:SN.935:.87|
00000FB0: 30 3A 84 32 2C 4E 3A 8D 38 35 30 00 C1 17 AC 03 |0:.2,N:.850.....|
00000FC0: 8E 00 D0 17 B1 03 8F 2A 44 49 53 50 4C 41 59 2A |.......*DISPLAY*|
00000FD0: 00 FB 17 B6 03 99 C7 28 31 34 37 29 3B 22 C1 43 |.......(147);".C|
00000FE0: 43 4F 55 4E 54 20 53 54 41 54 55 53 2C 20 52 45 |COUNT STATUS, RE|
00000FF0: 43 2E 20 23 20 22 3B 49 49 3A 99 00 12 18 BB 03 |C. # ";II:......|
00001000: 99 22 20 20 20 20 C1 43 43 54 2E 20 23 3A 22 3B |." .CCT. #:";|
00001010: 41 24 00 29 18 C0 03 99 22 20 20 20 CF 57 4E 45 |A$.)...." .WNE|
00001020: 52 28 53 29 3A 22 3B 4F 24 00 40 18 C5 03 99 22 |R(S):";O$.@...."|
00001030: 20 20 20 20 20 20 20 D4 59 50 45 3A 22 3B 54 24 | .YPE:";T$|
00001040: 00 57 18 CA 03 99 22 20 20 20 20 D0 55 52 50 4F |.W...." .URPO|
00001050: 53 45 3A 22 3B 50 24 00 7C 18 CF 03 99 22 20 20 |SE:";P$.|...." |
00001060: 20 20 C2 41 4C 41 4E 43 45 3A 22 3B 42 24 3B 22 | .ALANCE:";B$;"|
00001070: 20 C1 53 20 4F 46 20 22 3B 44 31 24 00 A2 18 D4 | .S OF ";D1$....|
00001080: 03 99 22 20 20 20 C4 49 56 49 44 45 4E 44 3A 22 |.." .IVIDEND:"|
00001090: 3B 44 56 24 3B 22 20 C1 53 20 4F 46 20 22 3B 44 |;DV$;" .S OF ";D|
000010A0: 32 24 00 B9 18 D9 03 99 22 20 20 C4 49 56 2E 20 |2$......" .IV. |
000010B0: 52 41 54 45 3A 22 3B 52 24 00 D1 18 DE 03 99 22 |RATE:";R$......"|
000010C0: 20 20 C1 55 54 4F 20 44 45 50 2C 3A 22 3B 44 50 | .UTO DEP,:";DP|
000010D0: 24 00 E8 18 E3 03 99 22 20 C1 55 54 4F 20 57 49 |$......" .UTO WI|
000010E0: 54 48 2E 3A 22 3B 57 24 00 00 19 E8 03 99 22 20 |TH.:";W$......" |
000010F0: 20 20 20 20 20 CE 4F 54 45 53 3A 22 3B 4E 4F 24 | .OTES:";NO$|
00001100: 00 2F 19 ED 03 99 3A 99 22 4E 45 58 54 20 45 4E |./....:."NEXT EN|
00001110: 54 52 59 20 41 54 20 52 45 43 4F 52 44 22 3B C5 |TRY AT RECORD";.|
00001120: 28 45 24 29 AA 28 C5 28 45 24 29 B3 B1 30 29 00 |(E$).(.(E$)..0).|
00001130: 4F 19 F2 03 99 22 D4 4F 54 41 4C 20 4E 55 4D 42 |O....".OTAL NUMB|
00001140: 45 52 20 45 4E 54 52 49 45 53 22 3B 54 45 24 00 |ER ENTRIES";TE$.|
00001150: 8C 19 F7 03 99 3A 99 4D 24 3A 99 22 CD 45 4E 55 |.....:.M$:.".ENU|
00001160: 20 43 4F 4D 4D 41 4E 44 20 49 47 4E 4F 52 45 44 | COMMAND IGNORED|
00001170: 20 49 46 20 59 4F 55 27 52 45 20 57 52 49 54 49 | IF YOU'RE WRITI|
00001180: 4E 47 20 52 45 43 4F 52 44 53 2E 22 00 A0 19 FC |NG RECORDS."....|
00001190: 03 A1 5A 24 3A 8B 5A 24 B2 22 22 A7 31 30 32 30 |..Z$:.Z$."".1020|
000011A0: 00 A6 19 01 04 8E 00 C4 19 06 04 8F 2A 57 52 49 |............*WRI|
000011B0: 54 45 20 4E 45 57 20 50 4F 49 4E 54 45 52 20 46 |TE NEW POINTER F|
000011C0: 49 4C 45 2A 00 CB 19 0B 04 A0 32 00 F4 19 10 04 |ILE*......2.....|
000011D0: 53 4E B2 31 30 34 30 3A 9F 33 2C 38 2C 33 2C 22 |SN.1040:.3,8,3,"|
000011E0: 40 30 3A 22 AA 41 50 24 AA 22 2C 53 2C 57 22 3A |@0:".AP$.",S,W":|
000011F0: 8D 38 35 30 00 0B 1A 15 04 53 4E B2 31 30 34 35 |.850.....SN.1045|
00001200: 3A 98 33 2C 4E 32 3A 8D 38 35 30 00 33 1A 1A 04 |:.3,N2:.850.3...|
00001210: 53 4E B2 31 30 35 30 3A 81 49 B2 31 A4 4E 32 3A |SN.1050:.I.1.N2:|
00001220: 98 33 2C 58 32 24 28 49 29 3A 8D 38 35 30 3A 82 |.3,X2$(I):.850:.|
00001230: 3A A0 33 00 39 1A 1F 04 8E 00 52 1A 24 04 8F 20 |:.3.9.....R.$.. |
00001240: 2A 49 4E 50 55 54 20 4E 45 57 20 52 45 43 4F 52 |*INPUT NEW RECOR|
00001250: 44 2A 00 90 1A 29 04 99 C7 28 31 34 37 29 3B 22 |D*...)...(147);"|
00001260: D4 4F 20 49 4E 50 55 54 20 41 20 52 45 43 4F 52 |.O INPUT A RECOR|
00001270: 44 2C 20 52 45 53 50 4F 4E 44 20 54 4F 20 54 48 |D, RESPOND TO TH|
00001280: 45 20 C9 CE D0 D5 D4 20 50 52 4F 4D 50 53 2E 22 |E ..... PROMPS."|
00001290: 00 BE 1A 2E 04 99 22 C9 46 20 59 4F 55 27 52 45 |......".F YOU'RE|
000012A0: 20 43 48 41 4E 47 49 4E 47 20 41 4E 20 45 58 49 | CHANGING AN EXI|
000012B0: 53 54 49 4E 47 20 52 45 43 4F 52 44 2C 22 00 F4 |STING RECORD,"..|
000012C0: 1A 33 04 99 22 4F 52 20 41 44 44 49 4E 47 20 41 |.3.."OR ADDING A|
000012D0: 20 4E 45 57 20 52 45 43 4F 52 44 20 54 4F 20 41 | NEW RECORD TO A|
000012E0: 4E 20 45 58 49 53 54 49 4E 47 20 41 43 43 4F 55 |N EXISTING ACCOU|
000012F0: 4E 54 2C 22 00 31 1B 38 04 99 22 50 52 45 53 53 |NT,".1.8.."PRESS|
00001300: 49 4E 47 20 22 3B C7 28 31 38 29 3B 22 D2 C5 D4 |ING ";.(18);"...|
00001310: D5 D2 CE 22 3B C7 28 31 34 36 29 3B 22 20 57 49 |...";.(146);" WI|
00001320: 4C 4C 20 4C 45 41 56 45 20 54 48 45 20 4F 4C 44 |LL LEAVE THE OLD|
00001330: 22 00 48 1B 3D 04 99 22 56 41 4C 55 45 20 55 4E |".H.=.."VALUE UN|
00001340: 43 48 41 4E 47 45 44 22 00 7C 1B 42 04 99 C7 28 |CHANGED".|.B...(|
00001350: 31 38 29 3B 22 C4 4F 4E 27 54 20 55 53 45 20 41 |18);".ON'T USE A|
00001360: 4E 59 20 43 4F 4D 4D 41 53 20 4F 52 20 43 4F 4C |NY COMMAS OR COL|
00001370: 4F 4E 53 21 22 3B C7 28 31 34 36 29 00 BE 1B 47 |ONS!";.(146)...G|
00001380: 04 8B 4A B2 33 B0 4A B2 36 A7 20 99 22 C1 43 43 |..J.3.J.6. .".CC|
00001390: 54 2E 20 23 20 4D 41 59 20 4E 4F 54 20 42 45 20 |T. # MAY NOT BE |
000013A0: 43 48 41 4E 47 45 20 57 49 54 48 20 54 48 49 53 |CHANGE WITH THIS|
000013B0: 20 4F 50 54 49 4F 4E 22 3A 89 31 31 32 30 00 FD | OPTION":.1120..|
000013C0: 1B 4C 04 99 22 C1 43 43 54 2E 20 23 20 2C 4E 4F |.L..".CCT. # ,NO|
000013D0: 20 4D 4F 52 45 20 54 48 41 4E 20 22 3B 43 31 3B | MORE THAN ";C1;|
000013E0: 22 20 43 48 41 52 41 43 54 45 52 53 3A 22 3A 85 |" CHARACTERS:":.|
000013F0: 41 24 3A 8B 4A B3 B1 32 A7 31 31 32 30 00 34 1C |A$:.J..2.1120.4.|
00001400: 51 04 81 49 B2 31 A4 4E 32 3A 8B C8 28 41 24 AA |Q..I.1.N2:..(A$.|
00001410: 22 20 20 20 20 20 20 20 20 20 20 22 2C 43 31 29 |" ",C1)|
00001420: B2 C8 28 58 32 24 28 49 29 2C 43 31 29 A7 54 53 |..(X2$(I),C1).TS|
00001430: B2 31 3A 8E 00 3A 1C 56 04 82 00 5B 1C 60 04 99 |.1:..:.V...[.`..|
00001440: 22 4E 45 58 54 20 49 4E 50 55 54 20 54 4F 20 48 |"NEXT INPUT TO H|
00001450: 45 52 45 2E 2E 2E 2E 2E 2E 2E 22 00 6E 1C 65 04 |ERE.......".n.e.|
00001460: 85 22 CF 57 4E 45 52 28 53 29 22 3B 4F 24 00 94 |.".WNER(S)";O$..|
00001470: 1C 6A 04 99 22 4E 45 58 54 20 32 20 49 4E 50 55 |.j.."NEXT 2 INPU|
00001480: 54 53 20 54 4F 20 48 45 52 45 2E 2E 2E 2E 2E 2E |TS TO HERE......|
00001490: 2E 2E 2E 22 00 A7 1C 6F 04 85 22 20 20 20 20 D4 |..."...o.." .|
000014A0: 59 50 45 22 3B 54 24 00 BA 1C 74 04 85 22 20 D0 |YPE";T$...t.." .|
000014B0: 55 52 50 4F 53 45 22 3B 50 24 00 E7 1C 79 04 99 |URPOSE";P$...y..|
000014C0: 22 20 44 4F 4C 4C 41 52 20 56 41 4C 55 45 53 20 |" DOLLAR VALUES |
000014D0: 3C 3D 39 39 39 39 39 2E 39 39 2C 20 4E 4F 20 24 |<=99999.99, NO $|
000014E0: 20 53 49 47 4E 2E 22 00 FD 1C 7E 04 99 22 C4 41 | SIGN."...~..".A|
000014F0: 54 45 53 20 44 44 2F 4D 4D 2F 59 52 22 00 10 1D |TES DD/MM/YR"...|
00001500: 83 04 85 22 C2 41 4C 41 4E 43 45 53 22 3B 42 24 |...".ALANCES";B$|
00001510: 00 24 1D 88 04 85 22 20 20 20 C1 53 20 4F 46 22 |.$...." .S OF"|
00001520: 3B 44 31 24 00 38 1D 8D 04 85 22 C4 49 56 49 44 |;D1$.8....".IVID|
00001530: 45 4E 44 22 3B 44 56 24 00 4C 1D 92 04 85 22 20 |END";DV$.L...." |
00001540: 20 20 C1 53 20 4F 46 22 3B 44 32 24 00 64 1D 97 | .S OF";D2$.d..|
00001550: 04 85 22 C4 49 56 49 44 45 4E 44 20 52 41 54 45 |..".IVIDEND RATE|
00001560: 22 3B 52 24 00 81 1D 9C 04 85 22 C1 55 54 4F 4D |";R$......".UTOM|
00001570: 41 54 49 43 20 44 45 50 4F 53 49 54 22 3B 44 50 |ATIC DEPOSIT";DP|
00001580: 24 00 A0 1D A1 04 85 22 C1 55 54 4F 4D 41 54 49 |$......".UTOMATI|
00001590: 56 20 57 49 54 48 44 52 41 57 41 4C 22 3B 57 24 |V WITHDRAWAL";W$|
000015A0: 00 DA 1D A6 04 99 22 CE 4F 54 45 53 2C 20 4E 4F |......".OTES, NO|
000015B0: 20 46 41 52 54 45 52 20 54 48 41 4E 2E 2E 2E 2E | FARTER THAN....|
000015C0: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
000015D0: 2E 2E 2E 2E 2E 48 45 52 45 22 00 E3 1D AB 04 85 |.....HERE"......|
000015E0: 4E 4F 24 00 04 1E B0 04 99 22 D0 52 45 53 53 20 |NO$......".RESS |
000015F0: 41 4E 59 20 4B 45 59 20 54 4F 20 43 4F 4E 54 49 |ANY KEY TO CONTI|
00001600: 4E 55 45 22 00 18 1E B5 04 A1 5A 24 3A 8B 5A 24 |NUE"......Z$:.Z$|
00001610: B2 22 22 A7 31 32 30 35 00 1E 1E BA 04 8E 00 24 |."".1205.......$|
00001620: 1E BF 04 8F 00 41 1E C4 04 41 24 B2 C8 28 41 24 |.....A...A$..(A$|
00001630: AA 22 20 20 20 20 20 20 20 20 20 20 22 2C 43 31 |." ",C1|
00001640: 29 00 63 1E C9 04 4F 24 B2 C8 28 4F 24 AA 22 20 |).c...O$..(O$." |
00001650: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 2C | ",|
00001660: 31 35 29 00 8B 1E CE 04 54 24 B2 C8 28 54 24 AA |15).....T$..(T$.|
00001670: 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |" |
00001680: 20 20 20 20 20 20 22 2C 32 30 29 00 B3 1E D3 04 | ",20).....|
00001690: 50 24 B2 C8 28 50 24 AA 22 20 20 20 20 20 20 20 |P$..(P$." |
000016A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 2C | ",|
000016B0: 32 30 29 00 CD 1E D8 04 42 24 B2 C9 28 22 20 20 |20).....B$..(" |
000016C0: 20 20 20 20 20 20 22 AA 42 24 2C 38 29 00 E9 1E | ".B$,8)...|
000016D0: DD 04 44 31 24 B2 C9 28 22 20 20 20 20 20 20 20 |..D1$..(" |
000016E0: 20 22 AA 44 31 24 2C 38 29 00 04 1F E2 04 44 56 | ".D1$,8).....DV|
000016F0: 24 B2 C9 28 22 20 20 20 20 20 20 20 22 AA 44 56 |$..(" ".DV|
00001700: 24 2C 37 29 00 20 1F E7 04 44 32 24 B2 C9 28 22 |$,7). ...D2$..("|
00001710: 20 20 20 20 20 20 20 20 22 AA 44 32 24 2C 38 29 | ".D2$,8)|
00001720: 00 37 1F EC 04 52 24 B2 C8 28 52 24 AA 22 20 20 |.7...R$..(R$." |
00001730: 20 20 20 22 2C 35 29 00 54 1F F1 04 44 50 24 B2 | ",5).T...DP$.|
00001740: C9 28 22 20 20 20 20 20 20 20 20 20 22 AA 44 50 |.(" ".DP|
00001750: 24 2C 37 29 00 6D 1F F6 04 57 24 B2 C9 28 22 20 |$,7).m...W$..(" |
00001760: 20 20 20 20 20 20 22 AA 57 24 2C 37 29 00 AF 1F | ".W$,7)...|
00001770: FB 04 4E 31 24 B2 22 20 20 20 20 20 20 20 20 20 |..N1$." |
00001780: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001790: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000017A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 00 | ".|
000017B0: C5 1F 00 05 4E 4F 24 B2 C8 28 4E 4F 24 AA 4E 31 |....NO$..(NO$.N1|
000017C0: 24 2C 35 39 29 00 FC 1F 05 05 58 24 B2 41 24 AA |$,59).....X$.A$.|
000017D0: 4F 24 AA 54 24 AA 50 24 AA 42 24 AA 44 31 24 AA |O$.T$.P$.B$.D1$.|
000017E0: 44 56 24 AA 44 32 24 AA 52 24 AA 44 50 24 AA 57 |DV$.D2$.R$.DP$.W|
000017F0: 24 AA 4E 4F 24 AA 45 24 AA 54 45 24 00 04 20 0A |$.NO$.E$.TE$.. .|
00001800: 05 99 58 24 00 20 20 0F 05 53 4E B2 31 32 39 35 |..X$. ..SN.1295|
00001810: 3A 8D 38 37 30 3A 98 32 2C 58 24 3A 8D 38 35 30 |:.870:.2,X$:.850|
00001820: 00 26 20 14 05 8E 00 2C 20 19 05 8F 00 42 20 1E |.& ...., ....B .|
00001830: 05 53 4E B2 31 33 31 30 3A 8D 38 37 30 3A 8D 38 |.SN.1310:.870:.8|
00001840: 35 30 00 5C 20 23 05 53 4E B2 31 33 31 35 3A 58 |50.\ #.SN.1315:X|
00001850: 24 B2 22 22 3A 81 4B B2 31 A4 31 32 00 A5 20 28 |$."":.K.1.12.. (|
00001860: 05 A1 23 32 2C 51 30 24 2C 51 31 24 2C 51 32 24 |..#2,Q0$,Q1$,Q2$|
00001870: 2C 51 33 24 2C 51 34 24 2C 51 35 24 2C 51 36 24 |,Q3$,Q4$,Q5$,Q6$|
00001880: 2C 51 37 24 2C 51 38 24 2C 51 39 24 2C 52 30 24 |,Q7$,Q8$,Q9$,R0$|
00001890: 2C 52 31 24 2C 52 32 24 2C 52 33 24 2C 52 34 24 |,R1$,R2$,R3$,R4$|
000018A0: 3A 8D 38 35 30 00 EB 20 2D 05 58 24 B2 58 24 AA |:.850.. -.X$.X$.|
000018B0: 51 30 24 AA 51 31 24 AA 51 32 24 AA 51 33 24 AA |Q0$.Q1$.Q2$.Q3$.|
000018C0: 51 34 24 AA 51 35 24 AA 51 36 24 AA 51 37 24 AA |Q4$.Q5$.Q6$.Q7$.|
000018D0: 51 38 24 AA 51 39 24 AA 52 30 24 AA 52 31 24 AA |Q8$.Q9$.R0$.R1$.|
000018E0: 52 32 24 AA 52 33 24 AA 52 34 24 00 F6 20 32 05 |R2$.R3$.R4$.. 2.|
000018F0: 82 3A 52 33 B2 31 00 17 21 37 05 41 24 B2 C8 28 |.:R3.1..!7.A$..(|
00001900: 58 24 2C 43 31 29 3A 4F 24 B2 CA 28 58 24 2C 43 |X$,C1):O$..(X$,C|
00001910: 31 AA 31 2C 31 35 29 00 2A 21 3C 05 54 24 B2 CA |1.1,15).*!<.T$..|
00001920: 28 58 24 2C 32 36 2C 32 30 29 00 3D 21 41 05 50 |(X$,26,20).=!A.P|
00001930: 24 B2 CA 28 58 24 2C 34 36 2C 32 30 29 00 4F 21 |$..(X$,46,20).O!|
00001940: 46 05 42 24 B2 CA 28 58 24 2C 36 36 2C 38 29 00 |F.B$..(X$,66,8).|
00001950: 62 21 4B 05 44 31 24 B2 CA 28 58 24 2C 37 34 2C |b!K.D1$..(X$,74,|
00001960: 38 29 00 75 21 50 05 44 56 24 B2 CA 28 58 24 2C |8).u!P.DV$..(X$,|
00001970: 38 32 2C 37 29 00 88 21 55 05 44 32 24 B2 CA 28 |82,7)..!U.D2$..(|
00001980: 58 24 2C 38 39 2C 38 29 00 9A 21 5A 05 52 24 B2 |X$,89,8)..!Z.R$.|
00001990: CA 28 58 24 2C 39 37 2C 35 29 00 AE 21 5F 05 44 |.(X$,97,5)..!_.D|
000019A0: 50 24 B2 CA 28 58 24 2C 31 30 32 2C 37 29 00 C1 |P$..(X$,102,7)..|
000019B0: 21 64 05 57 24 B2 CA 28 58 24 2C 31 30 39 2C 37 |!d.W$..(X$,109,7|
000019C0: 29 00 D6 21 69 05 4E 4F 24 B2 CA 28 58 24 2C 31 |)..!i.NO$..(X$,1|
000019D0: 31 36 2C 35 39 29 00 E9 21 6E 05 45 24 B2 CA 28 |16,59)..!n.E$..(|
000019E0: 58 24 2C 31 37 35 2C 33 29 00 F9 21 73 05 54 45 |X$,175,3)..!s.TE|
000019F0: 24 B2 C9 28 58 24 2C 33 29 00 FF 21 78 05 8E 00 |$..(X$,3)..!x...|
00001A00: 05 22 7D 05 8F 00 32 22 82 05 9F 31 2C 38 2C 31 |."}...2"...1,8,1|
00001A10: 35 3A 9F 33 2C 38 2C 33 2C 22 40 30 3A 41 43 43 |5:.3,8,3,"@0:ACC|
00001A20: 54 50 4F 49 4E 54 45 52 2C 53 2C 57 22 3A 8D 38 |TPOINTER,S,W":.8|
00001A30: 35 30 00 43 22 87 05 98 33 2C 30 3A 8D 38 35 30 |50.C"...3,0:.850|
00001A40: 3A A0 33 00 5E 22 8C 05 9F 32 2C 38 2C 32 2C 22 |:.3.^"...2,8,2,"|
00001A50: 41 43 43 54 44 41 54 41 22 3A 8D 38 35 30 00 76 |ACCTDATA":.850.v|
00001A60: 22 91 05 52 31 B2 31 3A 52 30 B2 32 3A 52 33 B2 |"..R1.1:R0.2:R3.|
00001A70: 31 3A 8D 38 37 30 00 8C 22 96 05 98 32 2C 30 3A |1:.870.."...2,0:|
00001A80: 8D 38 35 30 3A A0 32 3A A0 31 3A 90 00 00 00 |.850:.2:.1:.... |
....D...5.I.M$."PRESS ANY KEY TO CONTINU
E,M FOR MENU".Z.N.T0$." ***ACCOUNT M
ANAGER***".X.S.R0.2:R3.1:TS.0:CH.0:C1.10
...X..G(14):AP$."ACCTPOINTER":AF$."ACCTD
ATA"......1,8,15.R...SN.135:.3,8,3,AP$."
,S,R":.850.....SN.140:.3,N2:.850.....SN.
145:.I.1.N2:.3,X2$(I):.850:.: 3.*...SN.1
50:.2,8,2,AF$:.850.`....G(147);G(18);T0$
;G(146):.:."PROGRAMS OPTIONS:":..}. .."
1 - LIST ALL RECORDS"......" 2 - ADD NEW
ACCOUNT"......" 3 - CHANGE A RECORD"...
..." 4 - CURRENT BALANCE,ALL ACCOUNTS"..
...." 5 - LIST ALL RECORDS FOR GIVEN ACC
OUNT".=...." 6 - ADD NEW RECORDS TO EXIS
TING ACCOUNT".^...." 7 - SPARE FOR FUTUR
E USE".V.C.." 8 - END PROGRAM"...H..:."W
HICH OPTION(1-8)";J$. .M.J.E(J$).N.R..J.
1.J.8. ."OPTION ERROR.TRY AGAIN.":.200..
.W..J.8.835......890:.M$:......Z$:.Z$.""
.225......Z$."M".155./....J.245,285,415,
515,620,625,815.5.....U....G(147);"PRINT
ALL RECORDS".W....930:. READ DATA FILE
COUNTER......I.2.N.1.....R1.I:.1305.....
II.I.1:.945......Z$."M".155.......B....1
55......G(147);"ADD A NEW ACCOUNT":...."
..930...'..1060...,.....1..TS..1.320...6
.TS.0.X.;.."NEW ACCT. # ALREADY EXISTS.R
ETURN TO MENU":. I.1.1500:.:.155.O.@.E$.
" 0":TE$." 1"..E.II.N.1:.945...J.."SA
VE ON DISK Y/N?"...O..Z$:.Z$."".335...T
..Z$."Y".370...Y.."TRY AGAIN (Y) OR MENU
(M)"...^..Z$:.Z$."".350...C..Z$.."Y".15
5...H..J.6.625...M..295...R.R1.N.2:N.N.1
:.1215.M.W.SN.375:R1.1:.870:.2,N:.850.Z.
|..J.6.785.....N2.N2.1:X2$(N2).H(A$."
",C1).I(" ".D(N.1),3)......"MOR
E NEW ACCOUNTS (Y/N)?".I....Z$:.Z$."".39
5.Y....Z$."Y".290.....CH.1:. SET FLAG TO
NEW POINTER FILE......155.*....G(147);"
CHANGE A RECORD":..3....930._...."WHICH
RECORD TO CHANGE";WH$:WH.E(WH$)......WH.
N . WH.1. ."RECORD DOESN'T EXIST.".....R
1.WH.1:.1305:.....II.WH:.945:......Z$."M
".155.G.B..1060.P.G..945...L.."SAVE THIS
RECORD ON DISK (Y/N)?"...Q..Z$:.Z$."".4
65...V..Z$."Y".490.;...."TRY AGAIN (Y) O
R MENU (M)".L....Z$.."Y".155.U....450._.
...1215......"MORE RECORDS TO CHANGE (Y/
N)?"......Z$:.Z$."".500......Z$."Y".425.
.....155......G(147);"LIST OF CURRENT AC
COUNT BALANCES":......."ACCOUNT #
BALANCE DATE":TT.0.6...."--------------
---------------------".B....I.1.N2.T...R
1.E(J(X2$(I),C1.1,3)):. LOCATE CURRENT E
NTRY.~....1305...!.A1$(I).A$:A2$(I).B$:A
3$(I).D1$...&..A$;.15);B$;.25);D1$.L.+.T
T.TT.E(B$):....0.."---------------------
--------------"...5...9);"TOTAL";I("
".D(TT),9)._.:.."PRESS -P- TO SEND
TO PRINTER FIRST,ANY OTHER KEY TO MENU".
R.?..Z$:.Z$."".575...D..Z$.."P".155...I.
.PRINTER...G..155.E.L.."LIST ALL RECORDS
FOR A GIVEN ACCOUNT"...Q.."WHICH ACCOUN
T";A$...V.A$.H(A$." ",C1)...{..
I.1.N2.#....A$.H(X2$(I),C1).J.6.740.<...
.A$.H(X2$(I),C1).675.B.....Y...."ACCOUNT
DOESN'T EXIST.TRY AGAIN (Y) OR MENU (M)
"......Z$:.Z$."".660......Z$."Y".625....
..155.....R1.E(J(X2$(I),C1.1,3)).J....13
05.....II.R1.1:.945......Z$."M".155.....
R1.E(E$)......R1..0.680.N.A.."LAST ENTRY
FOR ACCT # ";A$:."DO ANOTHER ACCOUNT (Y
) OR MENU (M)".A.F..Z$:.Z$."".710...K..Z
$."Y"..I.1.N2:.H(X2$(I),C1):.:.625...P..
155...U.....Z.........P...R1.E(J(X2$(I),
C1.1,3)):TE$.I(X2$(I),3).Z....1305.....I
I.R1.1:.945......Z$."M".155.....E$.I("
".D(R1),3).2...TE$.I(" ".D(E(TE$).1),
3).J...E$.I(" ".D(R1),3).I...TE$.I("
".D(E(TE$).1),3).R....930.|....1060....
..325.....X2$(I).H(A$." ",C1).I
(" ".D(N.1),3).TE$......"MORE ACCOUNT
UPDATES (Y/N)?"......Z$:.Z$."".795... ..
Z$."Y".625...%.CH.1...*..155.N./..G(147)
;"NOT IMPLEMENTED - AVAILABLE FOR FUTURE
USE.".R.4.."PRESS ANY KEY TO RETURN MEN
U"...9..Z$:.Z$."".825...>..155...C..*END
PROGRAM*...H..CH.1..1030...M. 2: 1:..X.
R..*DISK ERROR CHECKING*...W..1,ER,ER$,E
1,E2:.ER.20.ER.50. ..0.\.."DISK ERROR FR
OM STATEMENT";SN:.ER;ER$: 2: 1:..6.A...N
.F..*POSITION POINTER*..K.RH.0:RL.R1:.R
1.255.RH..(R1.256):RL.R1.256.RH...P..1,"
P"G(R0)G(RL)G(RH)G(R3):.850...U...B.Z..*
LIST POINTER FILE*.....:."POINTER FILE
HAS ";N2;" ENTRIES."......" DA
TA". ...." REC. TOTAL".?...."A
CCT # # ENTRIES"._....I.1.N2:.H(X
2$(I),C1);" ";......D(E(J(X2$(I),C1.1,3
)).1);" ";I(X2$(I),3):.................
.R1.1:SN.935:.870:.2,N:.850.A.....P....*
DISPLAY*......G(147);"ACCOUNT STATUS, RE
C. # ";II:......." ACCT. #:";A$.)....
" OWNER(S):";O$.@.E.." TYPE:";T$
.W.J.." PURPOSE:";P$.|.O.." BALANC
E:";B$;" AS OF ";D1$...T.." DIVIDEND:"
;DV$;" AS OF ";D2$...Y.." DIV. RATE:";R
$.Q...." AUTO DEP,:";DP$......" AUTO WI
TH.:";W$......" NOTES:";NO$./....:.
"NEXT ENTRY AT RECORD";E(E$).(E(E$)..0).
O...."TOTAL NUMBER ENTRIES";TE$......:.M
$:."MENU COMMAND IGNORED IF YOU'RE WRITI
NG RECORDS.". ....Z$:.Z$."".1020.......D
....*WRITE NEW POINTER FILE*.K... 2.....
SN.1040:.3,8,3,"@0:".AP$.",S,W":.850....
.SN.1045:.3,N2:.850.3...SN.1050:.I.1.N2:
.3,X2$(I):.850:.: 3.9.....R.$.. *INPUT N
EW RECORD*...)..G(147);"TO INPUT A RECOR
D, RESPOND TO THE INPUT PROMPS."......"I
F YOU'RE CHANGING AN EXISTING RECORD,"..
.3.."OR ADDING A NEW RECORD TO AN EXISTI
NG ACCOUNT,".1.8.."PRESSING ";G(18);"RET
URN";G(146);" WILL LEAVE THE OLD".H.=.."
VALUE UNCHANGED".|.B..G(18);"DON'T USE A
NY COMMAS OR COLONS!";G(146)...G..J.3.J.
6. ."ACCT. # MAY NOT BE CHANGE WITH THIS
OPTION":.1120...L.."ACCT. # ,NO MORE TH
AN ";C1;" CHARACTERS:":.A$:.J..2.1120.4.
Q..I.1.N2:.H(A$." ",C1).H(X2$(I
),C1).TS.1:..:.V...[.`.."NEXT INPUT TO H
ERE.......".N.E.."OWNER(S)";O$...J.."NEX
T 2 INPUTS TO HERE........."...O.." T
YPE";T$...T.." PURPOSE";P$...Y.." DOLLAR
VALUES <=99999.99, NO $ SIGN."...~.."DA
TES DD/MM/YR"......"BALANCES";B$.$...."
AS OF";D1$.8...."DIVIDEND";DV$.L...."
AS OF";D2$.D...."DIVIDEND RATE";R$....
.."AUTOMATIC DEPOSIT";DP$. ...."AUTOMATI
V WITHDRAWAL";W$.Z...."NOTES, NO FARTER
THAN.........................HERE"......
NO$......"PRESS ANY KEY TO CONTINUE"....
..Z$:.Z$."".1205.......$.....A.D.A$.H(A$
." ",C1).C.I.O$.H(O$."
",15)...N.T$.H(T$."
",20)...S.P$.H(P$."
",20).M.X.B$.I(" ".B$,8)...
..D1$.I(" ".D1$,8).....DV$.I("
".DV$,7). ...D2$.I(" ".D2$,8)
.7...R$.H(R$." ",5).T...DP$.I("
".DP$,7).M...W$.I(" ".W$,7)...
..N1$."
".E...NO$.H(NO$.N1
$,59).....X$.A$.O$.T$.P$.B$.D1$.DV$.D2$.
R$.DP$.W$.NO$.E$.TE$.. ...X$. ..SN.1295
:.870:.2,X$:.850.& ...., ....B ..SN.1310
:.870:.850.\ #.SN.1315:X$."":.K.1.12.. (
..#2,Q0$,Q1$,Q2$,Q3$,Q4$,Q5$,Q6$,Q7$,Q8$
,Q9$,R0$,R1$,R2$,R3$,R4$:.850.. -.X$.X$.
Q0$.Q1$.Q2$.Q3$.Q4$.Q5$.Q6$.Q7$.Q8$.Q9$.
R0$.R1$.R2$.R3$.R4$.. 2..:R3.1..!7.A$.H(
X$,C1):O$.J(X$,C1.1,15).*!<.T$.J(X$,26,2
0).=!A.P$.J(X$,46,20).O!F.B$.J(X$,66,8).
B!K.D1$.J(X$,74,8).U!P.DV$.J(X$,82,7)..!
U.D2$.J(X$,89,8)..!Z.R$.J(X$,97,5)..!_.D
P$.J(X$,102,7).A!D.W$.J(X$,109,7).V!I.NO
$.J(X$,116,59)..!N.E$.J(X$,175,3)..!S.TE
$.I(X$,3)..!X...."}...2"...1,8,15:.3,8,3
,"@0:ACCTPOINTER,S,W":.850.C"...3,0:.850
: 3.^"...2,8,2,"ACCTDATA":.850.V"..R1.1:
R0.2:R3.1:.870.."...2,0:.850: 2: 1:....
> CLICK IMAGE PREVIEW FOR FULL MODAL