ACCOUNDANT
FILE INFORMATION
FILENAME(S): ACCOUNDANT
FILE TYPE(S): PRG
FILE SIZE: 3.5K
FIRST SEEN: 2025-11-30 19:47:10
APPEARS ON: 1 disk(s)
FILE HASH
f2db3b5868e1bcbebef61aa26cf1aaf4288a59c181a129ca8c643838374057d1
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| HJ LPEDISK A9 2 | ACCOUNDANT | PRG | Curtcool, Frank | 30 | 10 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 13 08 F8 2A 8F 2A 4D 45 4E 55 20 2A 2A 2A |.....*.*MENU ***| 00000010: 2A 2A 2A 00 40 08 16 2B 97 35 33 32 38 31 2C 37 |***.@..+.53281,7| 00000020: 3A 99 22 93 11 1F 12 1D 1D 1D 1D 1D 1D 1D 1D 1D |:.".............| 00000030: 1D 1D 1D 1D 41 43 43 4F 55 4E 54 41 4E 54 92 22 |....ACCOUNTANT."| 00000040: 00 5E 08 20 2B 99 22 11 11 1C 43 4F 4D 4D 41 4E |.^. +."...COMMAN| 00000050: 44 53 20 41 56 41 49 4C 41 42 4C 45 3A 22 00 80 |DS AVAILABLE:"..| 00000060: 08 2A 2B 99 22 11 11 1E 20 20 20 31 29 49 4E 50 |.*+."... 1)INP| 00000070: 55 54 20 4E 45 57 20 48 45 41 44 49 4E 47 53 22 |UT NEW HEADINGS"| 00000080: 00 A1 08 34 2B 99 22 11 20 20 20 32 29 43 48 41 |...4+.". 2)CHA| 00000090: 4E 47 45 2F 44 45 4C 45 54 45 20 49 54 45 4D 53 |NGE/DELETE ITEMS| 000000A0: 22 00 BD 08 3E 2B 99 22 11 20 20 20 33 29 50 52 |"...>+.". 3)PR| 000000B0: 49 4E 54 20 41 43 43 4F 55 4E 54 53 22 00 D5 08 |INT ACCOUNTS"...| 000000C0: 48 2B 99 22 11 20 20 20 34 29 44 41 54 41 20 46 |H+.". 4)DATA F| 000000D0: 49 4C 45 53 22 00 F6 08 52 2B 99 22 11 20 20 20 |ILES"...R+.". | 000000E0: 35 29 49 4E 49 54 49 41 4C 49 53 45 20 41 43 43 |5)INITIALISE ACC| 000000F0: 4F 55 4E 54 53 22 00 08 09 5C 2B 99 22 11 20 20 |OUNTS"...\+.". | 00000100: 20 36 29 53 54 4F 50 22 00 31 09 66 2B 85 22 11 | 6)STOP".1.f+.".| 00000110: 11 1F 57 48 49 43 48 20 44 4F 20 59 4F 55 20 20 |..WHICH DO YOU | 00000120: 52 45 51 55 49 52 45 3A 22 3B 5A 3A 99 22 93 22 |REQUIRE:";Z:."."| 00000130: 3B 00 49 09 70 2B 8B 5A B3 31 B0 5A B1 34 B0 49 |;.I.p+.Z.1.Z.4.I| 00000140: 4E B2 31 A7 31 31 31 34 30 00 85 09 7A 2B 99 22 |N.1.11140...z+."| 00000150: 93 11 11 11 11 11 11 11 1D 1D 1D 1D 1D 1D 1D 1D |................| 00000160: 1D 1D 4E 4F 54 20 49 4E 49 54 49 41 4C 49 53 45 |..NOT INITIALISE| 00000170: 44 22 3A 81 49 B2 31 A4 32 30 30 30 3A 82 3A 89 |D":.I.1.2000:.:.| 00000180: 31 31 30 30 30 00 9F 09 84 2B 8B 5A B3 34 AF 5A |11000....+.Z.4.Z| 00000190: B1 30 A7 8D 31 33 30 30 30 3A 99 22 93 22 3B 00 |.0..13000:.".";.| 000001A0: D5 09 8E 2B 91 5A 8D 31 34 30 30 30 2C 31 37 30 |...+.Z.14000,170| 000001B0: 30 30 2C 31 39 30 30 30 2C 32 30 30 30 30 2C 31 |00,19000,20000,1| 000001C0: 32 30 30 30 2C 31 31 31 37 30 3A 5A B2 30 3A 89 |2000,11170:Z.0:.| 000001D0: 31 31 30 30 30 00 03 0A A2 2B 99 22 93 11 11 11 |11000....+."....| 000001E0: 11 11 11 11 11 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D |................| 000001F0: 1D 1D 1D 1D 1D 1C 12 41 43 43 4F 55 4E 54 41 4E |.......ACCOUNTAN| 00000200: 54 92 22 00 2C 0A AC 2B 99 22 11 11 1D 1D 1D 1D |T.".,..+."......| 00000210: 1D 1D 1D 1D 1D 1D 1F 50 52 4F 47 52 41 4D 20 54 |.......PROGRAM T| 00000220: 45 52 4D 49 4E 41 54 45 44 22 3A 80 00 3F 0A E0 |ERMINATED":..?..| 00000230: 2E 8F 2A 49 4E 54 49 41 4C 49 53 45 20 2A 2A 00 |..*INTIALISE **.| 00000240: 61 0A FE 2E 9C 3A 86 41 24 28 31 2C 39 39 29 2C |a....:.A$(1,99),| 00000250: 41 28 31 2C 39 39 29 3A 43 52 24 B2 C7 28 31 33 |A(1,99):CR$..(13| 00000260: 29 00 93 0A 08 2F 43 24 B2 22 20 20 20 20 20 20 |)..../C$." | 00000270: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000280: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000290: 20 20 22 00 A3 0A 12 2F 49 4E B2 31 3A 89 31 31 | "..../IN.1:.11| 000002A0: 30 30 30 00 BE 0A C8 32 8F 2A 43 52 45 44 49 54 |000....2.*CREDIT| 000002B0: 20 4F 52 20 44 45 42 49 54 3F 2A 2A 2A 2A 00 F4 | OR DEBIT?****..| 000002C0: 0A E6 32 99 22 11 11 11 11 11 11 11 11 11 1D 1D |..2."...........| 000002D0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 31 29 43 52 45 44 |..........1)CRED| 000002E0: 49 54 11 11 9D 9D 9D 9D 9D 9D 9D 9D 32 29 44 45 |IT..........2)DE| 000002F0: 42 49 54 22 00 2C 0B F0 32 85 22 11 11 1D 1D 1D |BIT".,..2.".....| 00000300: 1D 1D 1D 1D 1D 1D 1D 1D 1D 57 48 49 43 48 20 44 |.........WHICH D| 00000310: 4F 20 59 4F 55 20 52 45 51 55 49 52 45 3A 22 3B |O YOU REQUIRE:";| 00000320: 43 44 3A 43 44 B2 43 44 AB 31 3A 8E 00 46 0B B0 |CD:CD.CD.1:..F..| 00000330: 36 8F 2A 49 4E 50 55 54 20 48 45 41 44 49 4E 47 |6.*INPUT HEADING| 00000340: 53 20 2A 2A 2A 2A 00 7A 0B CE 36 99 22 93 11 1D |S ****.z..6."...| 00000350: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1C 12 4E 45 |..............NE| 00000360: 57 20 49 54 45 4D 53 3A 22 3B 3A 8B 43 44 B2 30 |W ITEMS:";:.CD.0| 00000370: A7 99 22 43 52 45 44 49 54 22 00 8D 0B D8 36 8B |.."CREDIT"....6.| 00000380: 43 44 B2 31 A7 99 22 44 45 42 49 54 22 00 BB 0B |CD.1.."DEBIT"...| 00000390: E2 36 99 22 11 92 1F 49 53 20 54 48 45 20 49 54 |.6."...IS THE IT| 000003A0: 45 4D 3A 22 3A 99 22 1E 11 20 20 31 29 41 20 53 |EM:":.".. 1)A S| 000003B0: 49 4E 47 4C 45 20 49 54 45 4D 22 00 EC 0B EC 36 |INGLE ITEM"....6| 000003C0: 99 22 11 20 20 32 29 41 20 4D 41 49 4E 20 48 45 |.". 2)A MAIN HE| 000003D0: 41 44 49 4E 47 22 3A 99 22 11 20 20 33 29 41 20 |ADING":.". 3)A | 000003E0: 53 55 42 2D 48 45 41 44 49 4E 47 22 00 14 0C F6 |SUB-HEADING"....| 000003F0: 36 99 22 11 20 20 49 4E 50 55 54 20 27 30 27 20 |6.". INPUT '0' | 00000400: 49 46 20 59 4F 55 20 57 49 53 48 20 54 4F 20 51 |IF YOU WISH TO Q| 00000410: 55 49 54 22 00 32 0C 00 37 85 22 11 9C 50 4C 45 |UIT".2..7."..PLE| 00000420: 41 53 45 20 53 50 45 43 49 46 59 3A 22 3B 54 59 |ASE SPECIFY:";TY| 00000430: 50 45 00 4E 0C 0A 37 91 54 59 50 45 89 31 35 30 |PE.N..7.TYPE.150| 00000440: 30 30 2C 31 35 30 30 30 2C 31 36 30 30 30 00 54 |00,15000,16000.T| 00000450: 0C 14 37 8E 00 77 0C 98 3A 8F 2A 20 53 49 4E 47 |..7..w..:.* SING| 00000460: 4C 45 20 49 54 45 4D 20 4F 52 20 4D 41 49 4E 20 |LE ITEM OR MAIN | 00000470: 48 45 41 44 49 4E 47 00 95 0C B6 3A 51 B2 30 3A |HEADING....:Q.0:| 00000480: 85 22 11 1F 4E 41 4D 45 20 4F 46 20 49 54 45 4D |."..NAME OF ITEM| 00000490: 3A 22 3B 51 24 00 B9 0C C0 3A 8B 54 59 50 45 B3 |:";Q$....:.TYPE.| 000004A0: B1 32 A7 85 22 11 41 4D 4F 55 4E 54 20 46 4F 52 |.2..".AMOUNT FOR| 000004B0: 20 49 54 45 4D 3A 22 3B 51 00 EA 0C CA 3A 85 22 | ITEM:";Q....:."| 000004C0: 11 1C 49 53 20 54 48 49 53 20 43 4F 52 52 45 43 |..IS THIS CORREC| 000004D0: 54 20 28 59 2F 4E 29 3A 22 3B 52 24 3A 8B 52 24 |T (Y/N):";R$:.R$| 000004E0: B2 22 4E 22 A7 31 34 30 30 30 00 0F 0D D4 3A 51 |."N".14000....:Q| 000004F0: 24 B2 22 25 22 AA 51 24 3A 8B 54 59 50 45 B2 32 |$."%".Q$:.TYPE.2| 00000500: A7 51 24 B2 22 2A 22 AA CA 28 51 24 2C 32 29 00 |.Q$."*"..(Q$,2).| 00000510: 46 0D DE 3A 41 24 28 43 44 2C 43 28 43 44 29 29 |F..:A$(CD,C(CD))| 00000520: B2 51 24 3A 41 28 43 44 2C 43 28 43 44 29 29 B2 |.Q$:A(CD,C(CD)).| 00000530: 51 3A 43 28 43 44 29 B2 43 28 43 44 29 AA 31 3A |Q:C(CD).C(CD).1:| 00000540: 89 31 34 30 30 30 00 5F 0D 80 3E 8F 2A 53 55 42 |.14000._..>.*SUB| 00000550: 2D 48 45 41 44 49 4E 47 20 2A 2A 2A 2A 2A 2A 00 |-HEADING ******.| 00000560: 91 0D 9E 3E 85 22 11 1F 49 4E 50 55 54 20 4E 41 |...>."..INPUT NA| 00000570: 4D 45 20 4F 46 20 4D 41 49 4E 20 48 45 41 44 49 |ME OF MAIN HEADI| 00000580: 4E 47 3A 22 3B 51 24 3A 51 24 B2 22 2A 22 AA 51 |NG:";Q$:Q$."*".Q| 00000590: 24 00 B5 0D A8 3E 81 49 B2 30 A4 43 28 43 44 29 |$....>.I.0.C(CD)| 000005A0: AB 31 3A 8B 41 24 28 43 44 2C 49 29 B2 51 24 A7 |.1:.A$(CD,I).Q$.| 000005B0: 31 36 30 36 30 00 EA 0D B2 3E 82 3A 99 22 53 4F |16060....>.:."SO| 000005C0: 52 52 59 2C 20 4E 4F 20 48 45 41 44 49 4E 47 20 |RRY, NO HEADING | 000005D0: 4F 46 20 54 48 41 54 20 4E 41 4D 45 21 22 3A 81 |OF THAT NAME!":.| 000005E0: 49 B2 31 A4 32 30 30 30 3A 82 00 12 0E BC 3E 50 |I.1.2000:.....>P| 000005F0: 4C B2 49 AA 31 3A 85 22 11 90 4E 41 4D 45 20 4F |L.I.1:."..NAME O| 00000600: 46 20 53 55 42 2D 48 45 41 44 49 4E 47 3A 22 3B |F SUB-HEADING:";| 00000610: 51 24 00 34 0E C6 3E 85 22 11 41 4D 4F 55 4E 54 |Q$.4..>.".AMOUNT| 00000620: 20 46 4F 52 20 53 55 42 2D 48 45 41 44 49 4E 47 | FOR SUB-HEADING| 00000630: 3A 22 3B 51 00 68 0E D0 3E 85 22 11 1C 41 52 45 |:";Q.h..>."..ARE| 00000640: 20 54 48 45 53 45 20 43 4F 52 52 45 43 54 20 28 | THESE CORRECT (| 00000650: 59 2F 4E 29 3A 22 3B 52 24 3A 8B 52 24 B2 22 4E |Y/N):";R$:.R$."N| 00000660: 22 A7 89 31 34 30 30 30 00 76 0E DA 3E 51 24 B2 |"..14000.v..>Q$.| 00000670: 22 24 22 AA 51 24 00 B5 0E E4 3E 81 49 B2 43 28 |"$".Q$....>.I.C(| 00000680: 43 44 29 AA 31 A4 50 4C AA 31 A9 AB 31 3A 41 24 |CD).1.PL.1..1:A$| 00000690: 28 43 44 2C 49 29 B2 41 24 28 43 44 2C 49 AB 31 |(CD,I).A$(CD,I.1| 000006A0: 29 3A 41 28 43 44 2C 49 29 B2 41 28 43 44 2C 49 |):A(CD,I).A(CD,I| 000006B0: AB 31 29 3A 82 00 E6 0E EE 3E 41 24 28 43 44 2C |.1):.....>A$(CD,| 000006C0: 50 4C 29 B2 51 24 3A 41 28 43 44 2C 50 4C 29 B2 |PL).Q$:A(CD,PL).| 000006D0: 51 3A 43 28 43 44 29 B2 43 28 43 44 29 AA 31 3A |Q:C(CD).C(CD).1:| 000006E0: 89 31 34 30 30 30 00 09 0F 68 42 8F 2A 43 48 41 |.14000...hB.*CHA| 000006F0: 4E 47 45 53 20 41 4E 44 20 44 45 4C 45 54 49 4F |NGES AND DELETIO| 00000700: 4E 53 20 2A 2A 2A 2A 2A 2A 00 1A 0F 86 42 81 49 |NS ******....B.I| 00000710: B2 30 A4 43 28 43 44 29 AB 31 00 42 0F 90 42 99 |.0.C(CD).1.B..B.| 00000720: 22 93 11 1C 12 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |"...............| 00000730: 43 48 41 4E 47 45 20 4F 52 20 44 45 4C 45 54 45 |CHANGE OR DELETE| 00000740: 92 22 00 6F 0F 9A 42 8B C8 28 41 24 28 43 44 2C |.".o..B..(A$(CD,| 00000750: 49 29 2C 31 29 B3 B1 22 24 22 A7 99 22 11 11 22 |I),1).."$"..".."| 00000760: 3B CA 28 41 24 28 43 44 2C 49 29 2C 32 29 3B 00 |;.(A$(CD,I),2);.| 00000770: 9B 0F A4 42 8B C8 28 41 24 28 43 44 2C 49 29 2C |...B..(A$(CD,I),| 00000780: 31 29 B2 22 2A 22 A7 88 48 48 24 B2 CA 28 41 24 |1)."*"..HH$..(A$| 00000790: 28 43 44 2C 49 29 2C 32 29 3A 99 00 D0 0F AE 42 |(CD,I),2):.....B| 000007A0: 8B C8 28 41 24 28 43 44 2C 49 29 2C 31 29 B2 22 |..(A$(CD,I),1)."| 000007B0: 24 22 A7 99 22 11 11 22 3B 48 48 24 3A 99 22 11 |$".."..";HH$:.".| 000007C0: 22 3B CA 28 41 24 28 43 44 2C 49 29 2C 32 29 3B |";.(A$(CD,I),2);| 000007D0: 00 E5 0F B8 42 8B 41 28 43 44 2C 49 29 B2 30 A7 |....B.A(CD,I).0.| 000007E0: 31 37 31 30 30 00 14 10 C2 42 99 22 1D 1D 1D 1D |17100....B."....| 000007F0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 22 3B 3A 4D |............";:M| 00000800: 4D B2 41 28 43 44 2C 49 29 3A 8D 32 31 30 30 30 |M.A(CD,I):.21000| 00000810: 3A 99 4D 24 00 4B 10 CC 42 99 22 13 11 11 11 11 |:.M$.K..B.".....| 00000820: 11 11 11 11 1C 43 4F 4D 4D 41 4E 44 53 20 41 56 |.....COMMANDS AV| 00000830: 41 49 41 4C 41 42 4C 45 20 4F 4E 20 46 55 4E 43 |AIALABLE ON FUNC| 00000840: 54 49 4F 4E 20 4B 45 59 53 3A 22 00 65 10 D6 42 |TION KEYS:".e..B| 00000850: 99 22 11 1E 20 20 46 31 20 2D 20 4E 45 58 54 20 |.".. F1 - NEXT | 00000860: 49 54 45 4D 22 00 82 10 E0 42 99 22 11 20 20 46 |ITEM"....B.". F| 00000870: 33 20 2D 20 43 48 41 4E 47 45 20 41 4D 4F 55 4E |3 - CHANGE AMOUN| 00000880: 54 22 00 A0 10 EA 42 99 22 11 20 20 46 35 20 2D |T"....B.". F5 -| 00000890: 20 52 45 54 55 52 4E 20 54 4F 20 4D 45 4E 55 22 | RETURN TO MENU"| 000008A0: 00 BB 10 F4 42 99 22 11 20 20 46 38 20 2D 20 44 |....B.". F8 - D| 000008B0: 45 4C 45 54 45 20 49 54 45 4D 22 00 DC 10 FE 42 |ELETE ITEM"....B| 000008C0: 99 22 11 11 9C 57 48 49 43 48 20 44 4F 20 59 4F |."...WHICH DO YO| 000008D0: 55 20 52 45 51 55 49 52 45 3A 3F 22 00 F1 10 08 |U REQUIRE:?"....| 000008E0: 43 A1 51 24 3A 8B 51 24 B2 22 22 A7 31 37 31 36 |C.Q$:.Q$."".1716| 000008F0: 30 00 09 11 12 43 8B 51 24 B2 C7 28 31 34 30 29 |0....C.Q$..(140)| 00000900: A7 8D 31 38 30 30 30 3A 8E 00 1A 11 1C 43 8B 51 |..18000:.....C.Q| 00000910: 24 B2 C7 28 31 33 35 29 A7 8E 00 43 11 26 43 8B |$..(135)...C.&C.| 00000920: 51 24 B3 B1 C7 28 31 33 34 29 B0 C8 28 41 24 28 |Q$...(134)..(A$(| 00000930: 43 44 2C 49 29 2C 31 29 B2 22 2A 22 A7 89 31 37 |CD,I),1)."*"..17| 00000940: 32 34 30 00 63 11 30 43 85 22 11 11 90 41 4D 4F |240.c.0C."...AMO| 00000950: 55 4E 54 20 54 4F 20 42 45 20 41 44 44 45 44 3A |UNT TO BE ADDED:| 00000960: 22 3B 51 00 86 11 3A 43 85 22 11 1C 49 53 20 54 |";Q...:C."..IS T| 00000970: 48 41 54 20 43 4F 52 52 45 43 54 20 28 59 2F 4E |HAT CORRECT (Y/N| 00000980: 29 3A 22 3B 52 24 00 AC 11 44 43 8B 52 24 B3 B1 |):";R$...DC.R$..| 00000990: 22 4E 22 A7 41 28 43 44 2C 49 29 B2 41 28 43 44 |"N".A(CD,I).A(CD| 000009A0: 2C 49 29 AA 51 3A 89 31 37 30 34 30 00 D7 11 4E |,I).Q:.17040...N| 000009B0: 43 99 22 91 91 91 91 22 3B 3A 81 4C B2 31 A4 33 |C."....";:.L.1.3| 000009C0: 3A 99 43 24 3B 3A 82 3A 99 22 91 91 91 91 22 3B |:.C$;:.:."....";| 000009D0: 3A 89 31 37 32 30 30 00 E0 11 58 43 82 49 3A 8E |:.17200...XC.I:.| 000009E0: 00 F5 11 50 46 8F 2A 44 45 4C 45 54 49 4F 4E 53 |...PF.*DELETIONS| 000009F0: 20 2A 2A 2A 2A 00 1F 12 6E 46 50 4C B2 49 3A 8B | ****...nFPL.I:.| 00000A00: C8 28 41 24 28 43 44 2C 50 4C 29 2C 31 29 B3 B1 |.(A$(CD,PL),1)..| 00000A10: 22 2A 22 A7 47 52 B2 31 3A 89 31 38 30 36 30 00 |"*".GR.1:.18060.| 00000A20: 28 12 78 46 47 52 B2 30 00 52 12 82 46 47 52 B2 |(.xFGR.0.R..FGR.| 00000A30: 47 52 AA 31 3A 8B C8 28 41 24 28 43 44 2C 50 4C |GR.1:..(A$(CD,PL| 00000A40: AA 47 52 29 2C 31 29 B2 22 24 22 A7 89 31 38 30 |.GR),1)."$"..180| 00000A50: 35 30 00 91 12 8C 46 81 4B B2 50 4C A4 43 28 43 |50....F.K.PL.C(C| 00000A60: 44 29 AB 47 52 AB 31 3A 41 28 43 44 2C 4B 29 B2 |D).GR.1:A(CD,K).| 00000A70: 41 28 43 44 2C 4B AA 47 52 29 3A 41 24 28 43 44 |A(CD,K.GR):A$(CD| 00000A80: 2C 4B 29 B2 41 24 28 43 44 2C 4B AA 47 52 29 3A |,K).A$(CD,K.GR):| 00000A90: 82 00 AF 12 96 46 43 28 43 44 29 B2 43 28 43 44 |.....FC(CD).C(CD| 00000AA0: 29 AB 47 52 3A 49 B2 49 AB 47 52 AA 31 3A 8E 00 |).GR:I.I.GR.1:..| 00000AB0: CB 12 38 4A 8F 2A 50 52 49 4E 54 20 41 43 43 4F |..8J.*PRINT ACCO| 00000AC0: 55 4E 54 53 20 2A 2A 2A 2A 2A 2A 00 EF 12 56 4A |UNTS ******...VJ| 00000AD0: 88 50 41 24 B2 22 43 52 45 44 49 54 22 3A 8B 43 |.PA$."CREDIT":.C| 00000AE0: 44 B2 31 A7 50 41 24 B2 22 44 45 42 49 54 22 00 |D.1.PA$."DEBIT".| 00000AF0: 16 13 60 4A 54 54 B2 30 3A 53 53 B2 30 3A 99 22 |..`JTT.0:SS.0:."| 00000B00: 93 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 1C 22 3B 50 |.............";P| 00000B10: 41 24 3B 22 11 22 00 35 13 6A 4A 81 49 B2 30 A4 |A$;".".5.jJ.I.0.| 00000B20: 43 28 43 44 29 AB 31 3A 54 54 B2 54 54 AA 41 28 |C(CD).1:TT.TT.A(| 00000B30: 43 44 2C 49 29 00 51 13 74 4A 99 22 90 22 3B 3A |CD,I).Q.tJ.".";:| 00000B40: 8B 49 AD 32 B2 B5 28 49 AD 32 29 A7 99 22 1E 22 |.I.2..(I.2).."."| 00000B50: 3B 00 6A 13 7E 4A 8B C8 28 41 24 28 43 44 2C 49 |;.j.~J..(A$(CD,I| 00000B60: 29 2C 31 29 B2 22 2A 22 A7 99 00 88 13 88 4A 8B |),1)."*"......J.| 00000B70: C8 28 41 24 28 43 44 2C 49 29 2C 31 29 B2 22 24 |.(A$(CD,I),1)."$| 00000B80: 22 A7 99 22 1D 1D 22 3B 00 9B 13 92 4A 99 CA 28 |".."..";....J..(| 00000B90: 41 24 28 43 44 2C 49 29 2C 32 29 00 B8 13 9C 4A |A$(CD,I),2)....J| 00000BA0: 8B C8 28 41 24 28 43 44 2C 49 29 2C 31 29 B2 22 |..(A$(CD,I),1)."| 00000BB0: 2A 22 A7 31 39 31 35 30 00 D4 13 A6 4A 99 22 91 |*".19150....J.".| 00000BC0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................| 00000BD0: 1D 1D 22 3B 00 FB 13 B0 4A 8B C8 28 41 24 28 43 |..";....J..(A$(C| 00000BE0: 44 2C 49 29 2C 31 29 B2 22 25 22 A7 99 22 1D 1D |D,I),1)."%".."..| 00000BF0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 22 3B 00 15 14 BA 4A |.........";....J| 00000C00: 4D 4D B2 41 28 43 44 2C 49 29 3A 8D 32 31 30 30 |MM.A(CD,I):.2100| 00000C10: 30 3A 99 4D 24 00 3A 14 C4 4A 8B C8 28 41 24 28 |0:.M$.:..J..(A$(| 00000C20: 43 44 2C 49 29 2C 31 29 B2 22 24 22 A7 53 53 B2 |CD,I),1)."$".SS.| 00000C30: 53 53 AA 41 28 43 44 2C 49 29 00 5E 14 CE 4A 8B |SS.A(CD,I).^..J.| 00000C40: 53 53 B2 30 B0 C8 28 41 24 28 43 44 2C 49 AA 31 |SS.0..(A$(CD,I.1| 00000C50: 29 2C 31 29 B2 22 24 22 A7 31 39 31 38 30 00 85 |),1)."$".19180..| 00000C60: 14 D8 4A 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |..J."...........| 00000C70: 1D 1D 1D 1D 1D 1D 1D 2D 2D 2D 2D 2D 2D 2D 11 1D |.......-------..| 00000C80: 1D 1D 1D 22 3B 00 9F 14 E2 4A 4D 4D B2 53 53 3A |...";....JMM.SS:| 00000C90: 8D 32 31 30 30 30 3A 99 4D 24 3A 53 53 B2 30 00 |.21000:.M$:SS.0.| 00000CA0: B6 14 EC 4A A1 47 47 24 3A 8B 47 47 24 B2 22 22 |...J.GG$:.GG$.""| 00000CB0: A7 31 39 31 38 30 00 E5 14 F6 4A 82 49 3A 99 22 |.19180....J.I:."| 00000CC0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................| 00000CD0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 2D 2D 2D |.............---| 00000CE0: 2D 2D 2D 2D 22 00 0D 15 00 4B 99 22 12 54 4F 54 |----"....K.".TOT| 00000CF0: 41 4C 92 3A 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |AL.:............| 00000D00: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 22 3B 00 22 15 |...........";.".| 00000D10: 0A 4B 4D 4D B2 54 54 3A 8D 32 31 30 30 30 3A 99 |.KMM.TT:.21000:.| 00000D20: 4D 24 00 41 15 14 4B 99 22 11 1C 50 52 45 53 53 |M$.A..K."..PRESS| 00000D30: 20 41 4E 59 20 4B 45 59 20 54 4F 20 51 55 49 54 | ANY KEY TO QUIT| 00000D40: 22 00 58 15 1E 4B A1 47 47 24 3A 8B 47 47 24 B2 |".X..K.GG$:.GG$.| 00000D50: 22 22 A7 31 39 32 33 30 00 5E 15 28 4B 8E 00 64 |"".19230.^.(K..d| 00000D60: 15 32 4B 90 00 77 15 20 4E 8F 2A 44 41 54 41 20 |.2K..w. N.*DATA | 00000D70: 46 49 4C 45 53 20 2A 00 7D 15 CA 4E 8E 00 96 15 |FILES *.}..N....| 00000D80: 08 52 8F 2A 46 4F 52 4D 41 54 20 4D 4F 4E 45 59 |.R.*FORMAT MONEY| 00000D90: 20 2A 2A 2A 2A 2A 00 BA 15 26 52 4D 4D B2 4D 4D | *****...&RMM.MM| 00000DA0: AA 31 30 30 30 30 2E 30 30 31 3A 4D 24 B2 CA 28 |.10000.001:M$..(| 00000DB0: C4 28 4D 4D 29 2C 33 2C 37 29 00 C5 15 30 52 81 |.(MM),3,7)...0R.| 00000DC0: 50 B2 31 A4 33 00 F5 15 3A 52 8B CA 28 4D 24 2C |P.1.3...:R..(M$,| 00000DD0: 50 2C 31 29 B2 22 30 22 A7 4D 24 B2 C8 28 4D 24 |P,1)."0".M$..(M$| 00000DE0: 2C 50 AB 31 29 AA 22 20 22 AA C9 28 4D 24 2C 37 |,P.1)." "..(M$,7| 00000DF0: AB 50 29 3A 82 00 FB 15 44 52 8E 00 00 4E |.P):....DR...N |
.....*.*MENU ******.@..+.53281,7:.".....
............ACCOUNTANT.".^. +."...COMMAN
DS AVAILABLE:"...*+."... 1)INPUT NEW H
EADINGS"...4+.". 2)CHANGE/DELETE ITEMS
"...>+.". 3)PRINT ACCOUNTS".U.H+.".
4)DATA FILES"...R+.". 5)INITIALISE ACC
OUNTS"...\+.". 6)STOP".1.F+."...WHICH
DO YOU REQUIRE:";Z:.".";.I.P+.Z.1.Z.4.I
N.1.11140...Z+."..................NOT IN
ITIALISED":.I.1.2000:.:.11000....+.Z.4.Z
.0..13000:.".";.U..+.Z.14000,17000,19000
,20000,12000,11170:Z.0:.11000....+."....
.......................ACCOUNTANT.".,..+
.".............PROGRAM TERMINATED":..?..
..*INTIALISE **.A....:.A$(1,99),A(1,99):
CR$.G(13)..../C$."
"..../IN.1:.11000...H2
.*CREDIT OR DEBIT?****....2."...........
..........1)CREDIT..........2)DEBIT".,..
2."..............WHICH DO YOU REQUIRE:";
CD:CD.CD.1:..F..6.*INPUT HEADINGS ****.Z
.N6.".................NEW ITEMS:";:.CD.0
.."CREDIT"...X6.CD.1.."DEBIT"....6."...I
S THE ITEM:":.".. 1)A SINGLE ITEM"....6
.". 2)A MAIN HEADING":.". 3)A SUB-HEAD
ING"....6.". INPUT '0' IF YOU WISH TO Q
UIT".2..7."..PLEASE SPECIFY:";TYPE.N..7.
TYPE.15000,15000,16000.T..7..W..:.* SING
LE ITEM OR MAIN HEADING....:Q.0:."..NAME
OF ITEM:";Q$....:.TYPE..2..".AMOUNT FOR
ITEM:";Q...J:."..IS THIS CORRECT (Y/N):
";R$:.R$."N".14000...T:Q$."%".Q$:.TYPE.2
.Q$."*".J(Q$,2).F..:A$(CD,C(CD)).Q$:A(CD
,C(CD)).Q:C(CD).C(CD).1:.14000._..>.*SUB
-HEADING ******....>."..INPUT NAME OF MA
IN HEADING:";Q$:Q$."*".Q$....>.I.0.C(CD)
.1:.A$(CD,I).Q$.16060....>.:."SORRY, NO
HEADING OF THAT NAME!":.I.1.2000:.....>P
L.I.1:."..NAME OF SUB-HEADING:";Q$.4.F>.
".AMOUNT FOR SUB-HEADING:";Q.H.P>."..ARE
THESE CORRECT (Y/N):";R$:.R$."N"..14000
.V.Z>Q$."$".Q$....>.I.C(CD).1.PL.1..1:A$
(CD,I).A$(CD,I.1):A(CD,I).A(CD,I.1):....
.>A$(CD,PL).Q$:A(CD,PL).Q:C(CD).C(CD).1:
.14000...HB.*CHANGES AND DELETIONS *****
*....B.I.0.C(CD).1.B..B."...............
CHANGE OR DELETE.".O..B.H(A$(CD,I),1).."
$".."..";J(A$(CD,I),2);....B.H(A$(CD,I),
1)."*"..HH$.J(A$(CD,I),2):..P..B.H(A$(CD
,I),1)."$".."..";HH$:.".";J(A$(CD,I),2);
....B.A(CD,I).0.17100...BB."............
....";:MM.A(CD,I):.21000:.M$.K.LB.".....
.....COMMANDS AVAIALABLE ON FUNCTION KEY
S:".E.VB.".. F1 - NEXT ITEM"....B.". F
3 - CHANGE AMOUNT". ..B.". F5 - RETURN
TO MENU"....B.". F8 - DELETE ITEM"....B
."...WHICH DO YOU REQUIRE:?"....C.Q$:.Q$
."".17160....C.Q$.G(140)..18000:.....C.Q
$.G(135)...C.&C.Q$..G(134).H(A$(CD,I),1)
."*"..17240.C.0C."...AMOUNT TO BE ADDED:
";Q...:C."..IS THAT CORRECT (Y/N):";R$..
.DC.R$.."N".A(CD,I).A(CD,I).Q:.17040.W.N
C."....";:.L.1.3:.C$;:.:."....";:.17200.
..XC.I:....PF.*DELETIONS ****...NFPL.I:.
H(A$(CD,PL),1).."*".GR.1:.18060.(.XFGR.0
.R..FGR.GR.1:.H(A$(CD,PL.GR),1)."$"..180
50....F.K.PL.C(CD).GR.1:A(CD,K).A(CD,K.G
R):A$(CD,K).A$(CD,K.GR):.....FC(CD).C(CD
).GR:I.I.GR.1:..K.8J.*PRINT ACCOUNTS ***
***...VJ.PA$."CREDIT":.CD.1.PA$."DEBIT".
..`JTT.0:SS.0:.".............";PA$;".".5
.JJ.I.0.C(CD).1:TT.TT.A(CD,I).Q.TJ.".";:
.I.2..(I.2)..".";.J.~J.H(A$(CD,I),1)."*"
......J.H(A$(CD,I),1)."$".."..";....J.J(
A$(CD,I),2)....J.H(A$(CD,I),1)."*".19150
.T..J."...................";....J.H(A$(C
D,I),1)."%".."...........";....JMM.A(CD,
I):.21000:.M$.:.DJ.H(A$(CD,I),1)."$".SS.
SS.A(CD,I).^.NJ.SS.0.H(A$(CD,I.1),1)."$"
.19180...XJ."..................-------..
...";....JMM.SS:.21000:.M$:SS.0....J.GG$
:.GG$."".19180....J.I:."................
.............-------"....K.".TOTAL.:....
...................";."..KMM.TT:.21000:.
M$.A..K."..PRESS ANY KEY TO QUIT".X..K.G
G$:.GG$."".19230.^.(K..D.2K..W. N.*DATA
FILES *.}.JN.....R.*FORMAT MONEY *****..
.&RMM.MM.10000.001:M$.J(D(MM),3,7).E.0R.
P.1.3...:R.J(M$,P,1)."0".M$.H(M$,P.1)."
".I(M$,7.P):....DR...N
> CLICK IMAGE PREVIEW FOR FULL MODAL