_  __   _  _         _ _     _      _           _           
  __| |/ /_ | || |     __| (_)___| | __ (_)_ __   __| | _____  __
 / _` | '_ \| || |_   / _` | / __| |/ / | | '_ \ / _` |/ _ \ \/ /
| (_| | (_) |__   _| | (_| | \__ \   <  | | | | | (_| |  __/>  < 
 \__,_|\___/   |_|    \__,_|_|___/_|\_\ |_|_| |_|\__,_|\___/_/\_\

ACCOUNT

FILE INFORMATION

FILENAME(S): ACCOUNT

FILE TYPE(S): PRG

FILE SIZE: 4.9K

FIRST SEEN: 2025-11-30 21:27:51

APPEARS ON: 1 disk(s)

FILE HASH

fed43c0f0f779c4b412648d79c0c99861a4cb9cfdc2638b732a0eb649c70dc36

FOUND ON DISKS (1 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
ADMINISTRATIEF ACCOUNT PRG DuncanTwain 21 5 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)

00000000: 01 08 25 08 F8 2A 8F 2A  2A 2A 2A 2A 2A 2A 2A 2A  |..%..*.*********|
00000010: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00000020: 2A 2A 2A 2A 2A 00 30 08  02 2B 8F 20 4D 45 4E 55  |*****.0..+. MENU|
00000030: 00 54 08 0C 2B 8F 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |.T..+.**********|
00000040: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00000050: 2A 2A 2A 2A 00 82 08 16  2B 97 20 35 33 32 38 31  |****....+. 53281|
00000060: 2C 37 3A 99 20 22 93 1F  12 1D 1D 1D 1D 1D 1D 1D  |,7:. "..........|
00000070: 1D 1D 1D 1D 1D 1D 41 43  43 4F 55 4E 54 41 4E 54  |......ACCOUNTANT|
00000080: 92 22 00 A1 08 20 2B 99  20 22 11 11 1C 43 4F 4D  |."... +. "...COM|
00000090: 4D 41 4E 44 53 20 41 56  41 49 4C 41 42 4C 45 3A  |MANDS AVAILABLE:|
000000A0: 22 00 C4 08 2A 2B 99 20  22 11 11 1E 20 20 20 31  |"...*+. "...   1|
000000B0: 29 49 4E 50 55 54 20 4E  45 57 20 48 45 41 44 49  |)INPUT NEW HEADI|
000000C0: 4E 47 53 22 00 E6 08 34  2B 99 20 22 11 20 20 20  |NGS"...4+. ".   |
000000D0: 32 29 43 48 41 4E 47 45  2F 44 45 4C 45 54 45 20  |2)CHANGE/DELETE |
000000E0: 49 54 45 4D 53 22 00 03  09 3E 2B 99 20 22 11 20  |ITEMS"...>+. ". |
000000F0: 20 20 33 29 50 52 49 4E  54 20 41 43 43 4F 55 4E  |  3)PRINT ACCOUN|
00000100: 54 53 22 00 1C 09 48 2B  99 20 22 11 20 20 20 34  |TS"...H+. ".   4|
00000110: 29 44 41 54 41 20 46 49  4C 45 53 22 00 3E 09 52  |)DATA FILES".>.R|
00000120: 2B 99 20 22 11 20 20 20  35 29 49 4E 49 54 49 41  |+. ".   5)INITIA|
00000130: 4C 49 53 45 20 41 43 43  4F 55 4E 54 53 22 00 51  |LISE ACCOUNTS".Q|
00000140: 09 5C 2B 99 20 22 11 20  20 20 36 29 53 54 4F 50  |.\+. ".   6)STOP|
00000150: 22 00 7A 09 66 2B 85 22  11 11 1F 57 48 49 43 48  |".z.f+."...WHICH|
00000160: 20 44 4F 20 59 4F 55 20  52 45 51 55 49 52 45 3A  | DO YOU REQUIRE:|
00000170: 22 3B 5A 3A 99 20 22 93  22 3B 00 99 09 70 2B 8B  |";Z:. ".";...p+.|
00000180: 20 5A B3 31 20 B0 20 5A  B1 34 20 B0 20 49 4E B2  | Z.1 . Z.4 . IN.|
00000190: 31 20 A7 20 31 31 31 34  30 00 DA 09 7A 2B 99 20  |1 . 11140...z+. |
000001A0: 22 93 11 11 11 11 11 11  11 1D 1D 1D 1D 1D 1D 1D  |"...............|
000001B0: 1D 1D 1D 4E 4F 54 20 49  4E 49 54 49 41 4C 49 53  |...NOT INITIALIS|
000001C0: 45 44 22 3A 81 20 49 B2  31 20 A4 20 32 30 30 30  |ED":. I.1 . 2000|
000001D0: 3A 82 3A 89 20 31 31 30  30 30 00 FB 09 84 2B 8B  |:.:. 11000....+.|
000001E0: 20 5A B3 34 20 AF 20 5A  B1 30 20 A7 20 8D 20 31  | Z.4 . Z.0 . . 1|
000001F0: 33 30 30 30 3A 99 20 22  93 22 3B 00 35 0A 8E 2B  |3000:. ".";.5..+|
00000200: 91 20 5A 20 8D 20 31 34  30 30 30 2C 31 37 30 30  |. Z . 14000,1700|
00000210: 30 2C 31 39 30 30 30 2C  32 30 30 30 30 2C 31 32  |0,19000,20000,12|
00000220: 30 30 30 2C 31 31 31 37  30 3A 5A B2 30 3A 89 20  |000,11170:Z.0:. |
00000230: 31 31 30 30 30 00 3B 0A  98 2B 2E 00 6B 0A A2 2B  |11000.;..+..k..+|
00000240: 99 20 22 93 11 11 11 11  11 11 11 11 11 11 1D 1D  |. ".............|
00000250: 1D 1D 1D 1D 1D 1D 1D 1D  1D 1D 1D 1D 1D 1C 12 41  |...............A|
00000260: 43 43 4F 55 4E 54 41 4E  54 92 22 00 95 0A AC 2B  |CCOUNTANT."....+|
00000270: 99 20 22 11 11 1D 1D 1D  1D 1D 1D 1D 1D 1D 1D 1F  |. ".............|
00000280: 50 52 4F 47 52 41 4D 20  54 45 52 4D 49 4E 41 54  |PROGRAM TERMINAT|
00000290: 45 44 22 3A 80 00 B9 0A  E0 2E 8F 2A 2A 2A 2A 2A  |ED":.......*****|
000002A0: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
000002B0: 2A 2A 2A 2A 2A 2A 2A 2A  2A 00 CA 0A EA 2E 8F 20  |*********...... |
000002C0: 49 4E 49 54 49 41 4C 49  53 45 00 EE 0A F4 2E 8F  |INITIALISE......|
000002D0: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
000002E0: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 00 09  |**************..|
000002F0: 0B FE 2E 9C 3A 86 20 41  24 28 31 2C 39 39 29 3A  |....:. A$(1,99):|
00000300: 43 52 24 B2 C7 28 31 33  29 00 30 0B 08 2F 43 24  |CR$..(13).0../C$|
00000310: B2 22 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |."              |
00000320: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 22  |               "|
00000330: 00 41 0B 12 2F 49 4E B2  31 3A 89 20 31 31 30 30  |.A../IN.1:. 1100|
00000340: 30 00 65 0B C8 32 8F 2A  2A 2A 2A 2A 2A 2A 2A 2A  |0.e..2.*********|
00000350: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00000360: 2A 2A 2A 2A 2A 00 7C 0B  D2 32 8F 20 43 52 45 44  |*****.|..2. CRED|
00000370: 49 54 20 4F 52 20 44 45  42 49 54 3F 00 A0 0B DC  |IT OR DEBIT?....|
00000380: 32 8F 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |2.**************|
00000390: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
000003A0: 00 D7 0B E6 32 99 20 22  11 11 11 11 11 11 11 11  |....2. "........|
000003B0: 11 1D 1D 1D 1D 1D 1D 1D  1D 1D 1D 1D 1D 31 29 43  |.............1)C|
000003C0: 52 45 44 49 54 11 11 9D  9D 9D 9D 9D 9D 9D 9D 32  |REDIT..........2|
000003D0: 29 44 45 42 49 54 22 00  10 0C F0 32 85 20 22 11  |)DEBIT"....2. ".|
000003E0: 11 1D 1D 1D 1D 1D 1D 1D  1D 1D 1D 1D 1D 57 48 49  |.............WHI|
000003F0: 43 48 20 44 4F 20 59 4F  55 20 52 45 51 55 49 52  |CH DO YOU REQUIR|
00000400: 45 3A 22 3B 43 44 3A 43  44 B2 43 44 AB 31 3A 8E  |E:";CD:CD.CD.1:.|
00000410: 00 34 0C B0 36 8F 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |.4..6.**********|
00000420: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00000430: 2A 2A 2A 2A 00 49 0C BA  36 8F 20 49 4E 50 55 54  |****.I..6. INPUT|
00000440: 20 48 45 41 44 49 4E 47  53 00 6D 0C C4 36 8F 2A  | HEADINGS.m..6.*|
00000450: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00000460: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 00 A6 0C  |*************...|
00000470: CE 36 99 20 22 93 11 1D  1D 1D 1D 1D 1D 1D 1D 1D  |.6. "...........|
00000480: 1D 1D 1D 1D 1C 12 4E 45  57 20 49 54 45 4D 53 3A  |......NEW ITEMS:|
00000490: 22 3B 3A 8B 20 43 44 B2  30 20 A7 20 99 20 22 43  |";:. CD.0 . . "C|
000004A0: 52 45 44 49 54 22 00 BD  0C D8 36 8B 20 43 44 B2  |REDIT"....6. CD.|
000004B0: 31 20 A7 20 99 20 22 44  45 42 49 54 22 00 ED 0C  |1 . . "DEBIT"...|
000004C0: E2 36 99 20 22 11 92 1F  49 53 20 54 48 45 20 49  |.6. "...IS THE I|
000004D0: 54 45 4D 3A 22 3A 99 20  22 1E 11 20 20 31 29 41  |TEM:":. "..  1)A|
000004E0: 20 53 49 4E 47 4C 45 20  49 54 45 4D 22 00 20 0D  | SINGLE ITEM". .|
000004F0: EC 36 99 20 22 11 20 20  32 29 41 20 4D 41 49 4E  |.6. ".  2)A MAIN|
00000500: 20 48 45 41 44 49 4E 47  22 3A 99 20 22 11 20 20  | HEADING":. ".  |
00000510: 33 29 41 20 53 55 42 2D  48 45 41 44 49 4E 47 22  |3)A SUB-HEADING"|
00000520: 00 49 0D F6 36 99 20 22  11 20 20 49 4E 50 55 54  |.I..6. ".  INPUT|
00000530: 20 27 30 27 20 49 46 20  59 4F 55 20 57 49 53 48  | '0' IF YOU WISH|
00000540: 20 54 4F 20 51 55 49 54  22 00 68 0D 00 37 85 20  | TO QUIT".h..7. |
00000550: 22 11 92 50 4C 45 41 53  45 20 53 50 45 43 49 46  |"..PLEASE SPECIF|
00000560: 59 3A 22 3B 54 59 50 45  00 87 0D 0A 37 91 20 54  |Y:";TYPE....7. T|
00000570: 59 50 45 20 89 20 31 35  30 30 30 2C 31 35 30 30  |YPE . 15000,1500|
00000580: 30 2C 31 36 30 30 30 00  8D 0D 14 37 8E 00 B1 0D  |0,16000....7....|
00000590: 98 3A 8F 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |.:.*************|
000005A0: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
000005B0: 2A 00 D3 0D A2 3A 8F 20  53 49 4E 47 4C 45 20 49  |*....:. SINGLE I|
000005C0: 54 45 4D 20 4F 52 20 4D  41 49 4E 20 48 45 41 44  |TEM OR MAIN HEAD|
000005D0: 49 4E 47 00 F7 0D AC 3A  8F 2A 2A 2A 2A 2A 2A 2A  |ING....:.*******|
000005E0: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
000005F0: 2A 2A 2A 2A 2A 2A 2A 00  16 0E B6 3A 51 B2 30 3A  |*******....:Q.0:|
00000600: 85 20 22 11 1F 4E 41 4D  45 20 4F 46 20 49 54 45  |. "..NAME OF ITE|
00000610: 4D 3A 22 3B 51 24 00 3E  0E C0 3A 8B 20 54 59 50  |M:";Q$.>..:. TYP|
00000620: 45 B3 B1 32 20 A7 20 85  20 22 11 41 4D 4F 55 4E  |E..2 . . ".AMOUN|
00000630: 54 20 46 4F 52 20 49 54  45 4D 3A 22 3B 51 00 73  |T FOR ITEM:";Q.s|
00000640: 0E CA 3A 85 20 22 11 1C  49 53 20 54 48 49 53 20  |..:. "..IS THIS |
00000650: 43 4F 52 52 45 43 54 20  28 59 2F 4E 29 3A 22 3B  |CORRECT (Y/N):";|
00000660: 52 24 3A 8B 20 52 24 B2  22 4E 22 20 A7 20 31 34  |R$:. R$."N" . 14|
00000670: 30 30 30 00 9B 0E D4 3A  51 24 B2 22 25 22 AA 51  |000....:Q$."%".Q|
00000680: 24 3A 8B 20 54 59 50 45  B2 32 20 A7 20 51 24 B2  |$:. TYPE.2 . Q$.|
00000690: 22 2A 22 AA CA 28 51 24  2C 32 29 00 D3 0E DE 3A  |"*"..(Q$,2)....:|
000006A0: 41 24 28 43 44 2C 43 28  43 44 29 29 B2 51 24 3A  |A$(CD,C(CD)).Q$:|
000006B0: 41 28 43 44 2C 43 28 43  44 29 29 B2 51 3A 43 28  |A(CD,C(CD)).Q:C(|
000006C0: 43 44 29 B2 43 28 43 44  29 AA 31 3A 89 20 31 34  |CD).C(CD).1:. 14|
000006D0: 30 30 30 00 F7 0E 80 3E  8F 2A 2A 2A 2A 2A 2A 2A  |000....>.*******|
000006E0: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
000006F0: 2A 2A 2A 2A 2A 2A 2A 00  09 0F 8A 3E 8F 20 53 55  |*******....>. SU|
00000700: 42 2D 48 45 41 44 49 4E  47 00 2D 0F 94 3E 8F 2A  |B-HEADING.-..>.*|
00000710: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00000720: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 00 60 0F  |*************.`.|
00000730: 9E 3E 85 20 22 11 1F 49  4E 50 55 54 20 4E 41 4D  |.>. "..INPUT NAM|
00000740: 45 20 4F 46 20 4D 41 49  4E 20 48 45 41 44 49 4E  |E OF MAIN HEADIN|
00000750: 47 3A 22 3B 51 24 3A 51  24 B2 22 2A 22 AA 51 24  |G:";Q$:Q$."*".Q$|
00000760: 00 8A 0F A8 3E 81 20 49  B2 30 20 A4 20 43 28 43  |....>. I.0 . C(C|
00000770: 44 29 AB 31 3A 8B 20 41  24 28 43 44 2C 49 29 B2  |D).1:. A$(CD,I).|
00000780: 51 24 20 A7 20 31 36 30  36 30 00 C3 0F B2 3E 82  |Q$ . 16060....>.|
00000790: 3A 99 20 22 53 4F 52 52  59 2C 20 4E 4F 20 48 45  |:. "SORRY, NO HE|
000007A0: 41 44 49 4E 47 20 4F 46  20 54 48 41 54 20 4E 41  |ADING OF THAT NA|
000007B0: 4D 45 21 22 3A 81 20 49  B2 31 20 A4 20 32 30 30  |ME!":. I.1 . 200|
000007C0: 30 3A 82 00 EC 0F BC 3E  50 4C B2 49 AA 31 3A 85  |0:.....>PL.I.1:.|
000007D0: 20 22 11 90 4E 41 4D 45  20 4F 46 20 53 55 42 2D  | "..NAME OF SUB-|
000007E0: 48 45 41 44 49 4E 47 3A  22 3B 51 24 00 0F 10 C6  |HEADING:";Q$....|
000007F0: 3E 85 20 22 11 41 4D 4F  55 4E 54 20 46 4F 52 20  |>. ".AMOUNT FOR |
00000800: 53 55 42 2D 48 45 41 44  49 4E 47 3A 22 3B 51 00  |SUB-HEADING:";Q.|
00000810: 48 10 D0 3E 85 20 22 11  1C 41 52 45 20 54 48 45  |H..>. "..ARE THE|
00000820: 53 45 20 43 4F 52 52 45  43 54 20 28 59 2F 4E 29  |SE CORRECT (Y/N)|
00000830: 3A 22 3B 52 24 3A 8B 20  52 24 B2 22 4E 22 20 A7  |:";R$:. R$."N" .|
00000840: 20 89 20 31 34 30 30 30  00 56 10 DA 3E 51 24 B2  | . 14000.V..>Q$.|
00000850: 22 24 22 AA 51 24 00 99  10 E4 3E 81 20 49 B2 43  |"$".Q$....>. I.C|
00000860: 28 43 44 29 AA 31 20 A4  20 50 4C AA 31 20 A9 AB  |(CD).1 . PL.1 ..|
00000870: 31 3A 41 24 28 43 44 2C  49 29 B2 41 24 28 43 44  |1:A$(CD,I).A$(CD|
00000880: 2C 49 AB 31 29 3A 41 28  43 44 2C 49 29 B2 41 28  |,I.1):A(CD,I).A(|
00000890: 43 44 2C 49 AB 31 29 3A  82 00 CB 10 EE 3E 41 24  |CD,I.1):.....>A$|
000008A0: 28 43 44 2C 50 4C 29 B2  51 24 3A 41 28 43 44 2C  |(CD,PL).Q$:A(CD,|
000008B0: 50 4C 29 B2 51 3A 43 28  43 44 29 B2 43 28 43 44  |PL).Q:C(CD).C(CD|
000008C0: 29 AA 31 3A 89 20 31 34  30 30 30 00 EF 10 68 42  |).1:. 14000...hB|
000008D0: 8F 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |.***************|
000008E0: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 00  |***************.|
000008F0: 0B 11 72 42 8F 20 43 48  41 4E 47 45 53 20 41 4E  |..rB. CHANGES AN|
00000900: 44 20 44 45 4C 45 54 49  4F 4E 53 00 2F 11 7C 42  |D DELETIONS./.|B|
00000910: 8F 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |.***************|
00000920: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 00  |***************.|
00000930: 43 11 86 42 81 20 49 B2  30 20 A4 20 43 28 43 44  |C..B. I.0 . C(CD|
00000940: 29 AB 31 00 6C 11 90 42  99 20 22 93 11 1C 12 1D  |).1.l..B. ".....|
00000950: 1D 1D 1D 1D 1D 1D 1D 1D  1D 1D 43 48 41 4E 47 45  |..........CHANGE|
00000960: 20 4F 52 20 44 45 4C 45  54 45 92 22 00 9E 11 9A  | OR DELETE."....|
00000970: 42 8B 20 C8 28 41 24 28  43 44 2C 49 29 2C 31 29  |B. .(A$(CD,I),1)|
00000980: B3 B1 22 24 22 20 A7 20  99 20 20 22 11 11 22 3B  |.."$" . .  "..";|
00000990: CA 28 41 24 28 43 44 2C  49 29 2C 32 29 3B 00 CE  |.(A$(CD,I),2);..|
000009A0: 11 A4 42 8B 20 C8 28 41  24 28 43 44 2C 49 29 2C  |..B. .(A$(CD,I),|
000009B0: 31 29 B2 22 2A 22 20 A7  20 88 20 48 48 24 B2 CA  |1)."*" . . HH$..|
000009C0: 28 41 24 28 43 44 2C 49  29 2C 32 29 3A 99 00 07  |(A$(CD,I),2):...|
000009D0: 12 AE 42 8B 20 C8 28 41  24 28 43 44 2C 49 29 2C  |..B. .(A$(CD,I),|
000009E0: 31 29 B2 22 24 22 20 A7  20 99 20 22 11 11 22 3B  |1)."$" . . "..";|
000009F0: 48 48 24 3A 99 22 11 22  3B CA 28 41 24 28 43 44  |HH$:.".";.(A$(CD|
00000A00: 2C 49 29 2C 32 29 3B 00  1F 12 B8 42 8B 20 41 28  |,I),2);....B. A(|
00000A10: 43 44 2C 49 29 B2 30 20  A7 20 31 37 31 30 30 00  |CD,I).0 . 17100.|
00000A20: 50 12 C2 42 99 22 1D 1D  1D 1D 1D 1D 1D 1D 1D 1D  |P..B."..........|
00000A30: 1D 1D 1D 1D 1D 1D 22 3B  3A 4D 4D B2 41 28 43 44  |......";:MM.A(CD|
00000A40: 2C 49 29 3A 8D 20 32 31  30 30 30 3A 99 20 4D 24  |,I):. 21000:. M$|
00000A50: 00 87 12 CC 42 99 20 22  13 11 11 11 11 11 11 11  |....B. "........|
00000A60: 11 1C 43 4F 4D 4D 41 4E  44 53 20 41 56 41 49 4C  |..COMMANDS AVAIL|
00000A70: 41 42 4C 45 20 4F 4E 20  46 55 4E 43 54 49 4F 4E  |ABLE ON FUNCTION|
00000A80: 20 4B 45 59 53 3A 22 00  A1 12 D6 42 99 20 22 11  | KEYS:"....B. ".|
00000A90: 1E 20 46 31 20 2D 20 4E  45 58 54 20 49 54 45 4D  |. F1 - NEXT ITEM|
00000AA0: 22 00 BE 12 E0 42 99 20  22 11 20 46 33 20 2D 20  |"....B. ". F3 - |
00000AB0: 43 48 41 4E 47 45 20 41  4D 4F 55 4E 54 22 00 DC  |CHANGE AMOUNT"..|
00000AC0: 12 EA 42 99 20 22 11 20  46 35 20 2D 20 52 45 54  |..B. ". F5 - RET|
00000AD0: 55 52 4E 20 54 4F 20 4D  45 4E 55 22 00 F7 12 F4  |URN TO MENU"....|
00000AE0: 42 99 20 22 11 20 46 38  20 2D 20 44 45 4C 45 54  |B. ". F8 - DELET|
00000AF0: 45 20 49 54 45 4D 22 00  19 13 FE 42 99 20 22 11  |E ITEM"....B. ".|
00000B00: 11 9C 57 48 49 43 48 20  44 4F 20 59 4F 55 20 52  |..WHICH DO YOU R|
00000B10: 45 51 55 49 52 45 3A 3F  22 00 32 13 08 43 A1 20  |EQUIRE:?".2..C. |
00000B20: 51 24 3A 8B 20 51 24 B2  22 22 20 A7 20 31 37 31  |Q$:. Q$."" . 171|
00000B30: 36 30 00 4E 13 12 43 8B  20 51 24 B2 C7 28 31 34  |60.N..C. Q$..(14|
00000B40: 30 29 20 A7 20 8D 20 31  38 30 30 30 3A 8E 00 62  |0) . . 18000:..b|
00000B50: 13 1C 43 8B 20 51 24 B2  C7 28 31 33 35 29 20 A7  |..C. Q$..(135) .|
00000B60: 20 8E 00 91 13 26 43 8B  20 51 24 B3 B1 C7 28 31  | ....&C. Q$...(1|
00000B70: 33 34 29 20 B0 20 C8 28  41 24 28 43 44 2C 49 29  |34) . .(A$(CD,I)|
00000B80: 2C 31 29 B2 22 2A 22 20  A7 20 89 20 31 37 32 34  |,1)."*" . . 1724|
00000B90: 30 00 B1 13 30 43 85 20  22 11 11 41 4D 4F 55 4E  |0...0C. "..AMOUN|
00000BA0: 54 20 54 4F 20 42 45 20  41 44 44 45 44 3A 22 3B  |T TO BE ADDED:";|
00000BB0: 51 00 D5 13 3A 43 85 20  22 11 1C 49 53 20 54 48  |Q...:C. "..IS TH|
00000BC0: 41 54 20 43 4F 52 52 45  43 54 20 28 59 2F 4E 29  |AT CORRECT (Y/N)|
00000BD0: 3A 22 3B 52 24 00 FF 13  44 43 8B 20 52 24 B3 B1  |:";R$...DC. R$..|
00000BE0: 22 4E 22 20 A7 20 41 28  43 44 2C 49 29 B2 41 28  |"N" . A(CD,I).A(|
00000BF0: 43 44 2C 49 29 AA 51 3A  89 20 31 37 30 34 30 00  |CD,I).Q:. 17040.|
00000C00: 31 14 4E 43 99 20 22 91  91 91 91 22 3B 3A 81 20  |1.NC. "....";:. |
00000C10: 4C B2 31 20 A4 20 33 3A  99 20 43 24 3B 3A 82 3A  |L.1 . 3:. C$;:.:|
00000C20: 99 20 22 91 91 91 91 22  3B 3A 89 20 31 37 32 30  |. "....";:. 1720|
00000C30: 30 00 3B 14 58 43 82 20  49 3A 8E 00 5F 14 50 46  |0.;.XC. I:.._.PF|
00000C40: 8F 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |.***************|
00000C50: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 00  |***************.|
00000C60: 6F 14 5A 46 8F 20 44 45  4C 45 54 49 4F 4E 53 00  |o.ZF. DELETIONS.|
00000C70: 93 14 64 46 8F 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |..dF.***********|
00000C80: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00000C90: 2A 2A 2A 00 C1 14 6E 46  50 4C B2 49 3A 8B 20 C8  |***...nFPL.I:. .|
00000CA0: 28 41 24 28 43 44 2C 50  4C 29 2C 31 29 B3 B1 22  |(A$(CD,PL),1).."|
00000CB0: 2A 22 20 A7 20 47 52 B2  31 3A 89 20 31 38 30 36  |*" . GR.1:. 1806|
00000CC0: 30 00 CA 14 78 46 47 52  B2 30 00 F8 14 82 46 47  |0...xFGR.0....FG|
00000CD0: 52 B2 47 52 AA 31 3A 8B  20 C8 28 41 24 28 43 44  |R.GR.1:. .(A$(CD|
00000CE0: 2C 50 4C AA 47 52 29 2C  31 29 B2 22 24 22 20 A7  |,PL.GR),1)."$" .|
00000CF0: 20 89 20 31 38 30 35 30  00 3A 15 8C 46 81 20 4B  | . 18050.:..F. K|
00000D00: B2 50 4C 20 A4 20 43 28  43 44 29 AB 47 52 AB 31  |.PL . C(CD).GR.1|
00000D10: 3A 41 28 43 44 2C 4B 29  B2 41 28 43 44 2C 4B AA  |:A(CD,K).A(CD,K.|
00000D20: 47 52 29 3A 41 24 28 43  44 2C 4B 29 B2 41 24 28  |GR):A$(CD,K).A$(|
00000D30: 43 44 2C 4B AA 47 52 29  3A 82 00 58 15 96 46 43  |CD,K.GR):..X..FC|
00000D40: 28 43 44 29 B2 43 28 43  44 29 AB 47 52 3A 49 B2  |(CD).C(CD).GR:I.|
00000D50: 49 AB 47 52 AA 31 3A 8E  00 7C 15 38 4A 8F 2A 2A  |I.GR.1:..|.8J.**|
00000D60: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00000D70: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 00 91 15 42  |************...B|
00000D80: 4A 8F 20 50 52 49 4E 54  20 41 43 43 4F 55 4E 54  |J. PRINT ACCOUNT|
00000D90: 53 00 B5 15 4C 4A 8F 2A  2A 2A 2A 2A 2A 2A 2A 2A  |S...LJ.*********|
00000DA0: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00000DB0: 2A 2A 2A 2A 2A 00 DD 15  56 4A 88 20 50 41 24 B2  |*****...VJ. PA$.|
00000DC0: 22 43 52 45 44 49 54 22  3A 8B 20 43 44 B2 31 20  |"CREDIT":. CD.1 |
00000DD0: A7 20 50 41 24 B2 22 44  45 42 49 54 22 00 05 16  |. PA$."DEBIT"...|
00000DE0: 60 4A 54 54 B2 30 3A 53  53 B2 30 3A 99 20 22 93  |`JTT.0:SS.0:. ".|
00000DF0: 11 1D 1D 1D 1D 1D 1D 1D  1D 1D 12 1C 22 3B 50 41  |............";PA|
00000E00: 24 3B 22 11 22 00 27 16  6A 4A 81 20 49 B2 30 20  |$;".".'.jJ. I.0 |
00000E10: A4 20 43 28 43 44 29 AB  31 3A 54 54 B2 54 54 AA  |. C(CD).1:TT.TT.|
00000E20: 41 28 43 44 2C 49 29 00  48 16 74 4A 99 20 22 90  |A(CD,I).H.tJ. ".|
00000E30: 22 3B 3A 8B 20 49 AD 32  B2 B5 28 49 AD 32 29 20  |";:. I.2..(I.2) |
00000E40: A7 20 99 20 22 1E 22 3B  00 64 16 7E 4A 8B 20 C8  |. . ".";.d.~J. .|
00000E50: 28 41 24 28 43 44 2C 49  29 2C 31 29 B2 22 2A 22  |(A$(CD,I),1)."*"|
00000E60: 20 A7 20 99 00 86 16 88  4A 8B 20 C8 28 41 24 28  | . .....J. .(A$(|
00000E70: 43 44 2C 49 29 2C 31 29  B2 22 24 22 20 A7 20 99  |CD,I),1)."$" . .|
00000E80: 20 22 1D 1D 22 3B 00 9A  16 92 4A 99 20 CA 28 41  | "..";....J. .(A|
00000E90: 24 28 43 44 2C 49 29 2C  32 29 00 BA 16 9C 4A 8B  |$(CD,I),2)....J.|
00000EA0: 20 C8 28 41 24 28 43 44  2C 49 29 2C 31 29 B2 22  | .(A$(CD,I),1)."|
00000EB0: 2A 22 20 A7 20 31 39 31  35 30 00 D7 16 A6 4A 99  |*" . 19150....J.|
00000EC0: 20 22 91 1D 1D 1D 1D 1D  1D 1D 1D 1D 1D 1D 1D 1D  | "..............|
00000ED0: 1D 1D 1D 1D 1D 22 3B 00  02 17 B0 4A 8B 20 C8 28  |.....";....J. .(|
00000EE0: 41 24 28 43 44 2C 49 29  2C 31 29 B2 22 25 22 20  |A$(CD,I),1)."%" |
00000EF0: A7 20 99 22 1D 1D 1D 1D  1D 1D 1D 1D 1D 1D 1D 1D  |. ."............|
00000F00: 22 3B 00 1E 17 BA 4A 4D  4D B2 41 28 43 44 2C 49  |";....JMM.A(CD,I|
00000F10: 29 3A 8D 20 32 31 30 30  30 3A 99 20 4D 24 00 46  |):. 21000:. M$.F|
00000F20: 17 C4 4A 8B 20 C8 28 41  24 28 43 44 2C 49 29 2C  |..J. .(A$(CD,I),|
00000F30: 31 29 B2 22 24 22 20 A7  20 53 53 B2 53 53 AA 41  |1)."$" . SS.SS.A|
00000F40: 28 43 44 2C 49 29 00 6F  17 CE 4A 8B 20 53 53 B2  |(CD,I).o..J. SS.|
00000F50: 30 20 B0 20 C8 28 41 24  28 43 44 2C 49 AA 31 29  |0 . .(A$(CD,I.1)|
00000F60: 2C 31 29 B2 22 24 22 20  A7 20 31 39 31 38 30 00  |,1)."$" . 19180.|
00000F70: 97 17 D8 4A 99 20 22 1D  1D 1D 1D 1D 1D 1D 1D 1D  |...J. ".........|
00000F80: 1D 1D 1D 1D 1D 1D 1D 1D  1D 2D 2D 2D 2D 2D 2D 2D  |.........-------|
00000F90: 11 1D 1D 1D 1D 22 3B 00  B3 17 E2 4A 4D 4D B2 53  |.....";....JMM.S|
00000FA0: 53 3A 8D 20 32 31 30 30  30 3A 99 20 4D 24 3A 53  |S:. 21000:. M$:S|
00000FB0: 53 B2 30 00 CE 17 EC 4A  A1 20 47 47 24 3A 8B 20  |S.0....J. GG$:. |
00000FC0: 47 47 24 B2 22 22 20 A7  20 31 39 31 38 30 00 FE  |GG$."" . 19180..|
00000FD0: 17 F6 4A 82 20 49 3A 99  20 22 1D 1D 1D 1D 1D 1D  |..J. I:. "......|
00000FE0: 1D 1D 1D 1D 1D 1D 1D 1D  1D 1D 1D 1D 1D 1D 1D 1D  |................|
00000FF0: 1D 1D 1D 1D 1D 1D 2D 2D  2D 2D 2D 2D 2D 22 00 28  |......-------".(|
00001000: 18 00 4B 99 20 22 12 54  4F 54 41 4C 92 1D 1D 1D  |..K. ".TOTAL....|
00001010: 1D 1D 1D 1D 1D 1D 1D 1D  1D 1D 1D 1D 1D 1D 1D 1D  |................|
00001020: 1D 1D 1D 1D 1D 1D 22 3B  00 3F 18 0A 4B 4D 4D B2  |......";.?..KMM.|
00001030: 54 54 3A 8D 20 32 31 30  30 30 3A 99 20 4D 24 00  |TT:. 21000:. M$.|
00001040: 5F 18 14 4B 99 20 22 11  1C 50 52 45 53 53 20 41  |_..K. "..PRESS A|
00001050: 4E 59 20 4B 45 59 20 54  4F 20 51 55 49 54 22 00  |NY KEY TO QUIT".|
00001060: 7A 18 1E 4B A1 20 47 47  24 3A 8B 20 47 47 24 B2  |z..K. GG$:. GG$.|
00001070: 22 22 20 A7 20 31 39 32  33 30 00 80 18 28 4B 8E  |"" . 19230...(K.|
00001080: 00 86 18 32 4B 90 00 AA  18 20 4E 8F 2A 2A 2A 2A  |...2K.... N.****|
00001090: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
000010A0: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 00 BB 18 2A 4E 8F  |**********...*N.|
000010B0: 20 44 41 54 41 20 46 49  4C 45 53 00 DF 18 34 4E  | DATA FILES...4N|
000010C0: 8F 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |.***************|
000010D0: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 00  |***************.|
000010E0: 13 19 3E 4E 99 20 22 11  1F 50 4F 53 49 54 49 4F  |..>N. "..POSITIO|
000010F0: 4E 20 54 41 50 45 20 43  4F 52 52 45 43 54 4C 59  |N TAPE CORRECTLY|
00001100: 2C 20 54 48 45 4E 20 12  52 45 54 55 52 4E 92 2D  |, THEN .RETURN.-|
00001110: 2D 2D 22 00 4C 19 48 4E  85 20 22 4D 4F 54 4F 52  |--".L.HN. "MOTOR|
00001120: 20 57 49 4C 4C 20 53 54  4F 50 20 41 55 54 4F 4D  | WILL STOP AUTOM|
00001130: 41 54 49 43 41 4C 4C 59  3A 22 3B 51 24 3A 97 20  |ATICALLY:";Q$:. |
00001140: 31 39 32 2C 37 3A 97 20  31 2C 33 39 00 8E 19 52  |192,7:. 1,39...R|
00001150: 4E 99 20 22 11 11 1C 43  4F 4D 4D 41 4E 44 53 20  |N. "...COMMANDS |
00001160: 41 56 41 49 4C 41 42 4C  45 3A 22 3A 99 20 22 1E  |AVAILABLE:":. ".|
00001170: 11 31 29 53 41 56 45 20  44 41 54 41 22 3A 99 20  |.1)SAVE DATA":. |
00001180: 22 11 32 29 4C 4F 41 44  20 44 41 54 41 22 00 C1  |".2)LOAD DATA"..|
00001190: 19 5C 4E 85 20 22 11 1C  57 49 43 48 20 44 4F 20  |.\N. "..WICH DO |
000011A0: 59 4F 55 20 52 45 51 55  49 52 45 3A 22 3B 51 3A  |YOU REQUIRE:";Q:|
000011B0: 91 20 51 20 89 20 32 30  30 38 30 2C 32 30 31 34  |. Q . 20080,2014|
000011C0: 30 00 C7 19 66 4E 8E 00  F1 19 70 4E 81 20 49 B2  |0...fN....pN. I.|
000011D0: 30 20 A4 20 31 3A 8B 20  41 24 28 49 2C 30 29 B2  |0 . 1:. A$(I,0).|
000011E0: 22 22 A7 20 41 24 28 49  2C 30 29 B2 22 20 22 3A  |"". A$(I,0)." ":|
000011F0: 82 00 0A 1A 7A 4E 97 20  31 2C 37 3A 81 20 49 B2  |....zN. 1,7:. I.|
00001200: 31 20 A4 20 32 30 30 30  3A 82 00 21 1A 84 4E 9F  |1 . 2000:..!..N.|
00001210: 20 31 2C 31 2C 32 2C 22  41 43 43 4F 55 4E 54 53  | 1,1,2,"ACCOUNTS|
00001220: 22 00 48 1A 8E 4E 81 20  49 B2 30 20 A4 20 31 3A  |".H..N. I.0 . 1:|
00001230: 98 31 2C 43 28 49 29 3A  8B 20 43 28 49 29 B2 30  |.1,C(I):. C(I).0|
00001240: 20 A7 20 32 30 31 33 30  00 75 1A 98 4E 81 20 4A  | . 20130.u..N. J|
00001250: B2 30 20 A4 20 43 28 49  29 AB 31 3A 98 31 2C 41  |.0 . C(I).1:.1,A|
00001260: 24 28 49 2C 4A 29 2C 43  52 24 2C 41 28 49 2C 4A  |$(I,J),CR$,A(I,J|
00001270: 29 3A 82 20 4A 00 82 1A  A2 4E 82 20 49 3A A0 31  |):. J....N. I:.1|
00001280: 3A 8E 00 99 1A AC 4E 9F  20 31 2C 31 2C 30 2C 22  |:.....N. 1,1,0,"|
00001290: 41 43 43 4F 55 4E 54 53  22 00 C0 1A B6 4E 81 20  |ACCOUNTS"....N. |
000012A0: 49 B2 30 20 A4 20 31 3A  84 31 2C 43 28 49 29 3A  |I.0 . 1:.1,C(I):|
000012B0: 8B 20 43 28 49 29 B2 30  20 A7 20 32 30 31 37 30  |. C(I).0 . 20170|
000012C0: 00 E9 1A C0 4E 81 20 4A  B2 30 20 A4 20 43 28 49  |....N. J.0 . C(I|
000012D0: 29 AB 31 3A 84 31 2C 41  24 28 49 2C 4A 29 2C 41  |).1:.1,A$(I,J),A|
000012E0: 28 49 2C 4A 29 3A 82 20  4A 00 F6 1A CA 4E 82 20  |(I,J):. J....N. |
000012F0: 49 3A A0 31 3A 8E 00 1A  1B 08 52 8F 2A 2A 2A 2A  |I:.1:.....R.****|
00001300: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00001310: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 00 2D 1B 12 52 8F  |**********.-..R.|
00001320: 20 46 4F 52 4D 41 54 20  4D 4F 4E 45 59 00 51 1B  | FORMAT MONEY.Q.|
00001330: 1C 52 8F 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |.R.*************|
00001340: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00001350: 2A 00 75 1B 26 52 4D 4D  B2 4D 4D AA 31 30 30 30  |*.u.&RMM.MM.1000|
00001360: 30 2E 30 30 31 3A 4D 24  B2 CA 28 C4 28 4D 4D 29  |0.001:M$..(.(MM)|
00001370: 2C 33 2C 37 29 00 83 1B  30 52 81 20 50 B2 31 20  |,3,7)...0R. P.1 |
00001380: A4 20 33 00 B6 1B 3A 52  8B 20 CA 28 4D 24 2C 50  |. 3...:R. .(M$,P|
00001390: 2C 31 29 B2 22 30 22 20  A7 20 4D 24 B2 C8 28 4D  |,1)."0" . M$..(M|
000013A0: 24 2C 50 AB 31 29 AA 22  20 22 AA C9 28 4D 24 2C  |$,P.1)." "..(M$,|
000013B0: 37 AB 50 29 3A 82 00 BC  1B 44 52 8E 00 00 00 81  |7.P):....DR.....|

..%..*.******************************.0.
.+. MENU.T..+.**************************
****....+. 53281,7:. "................AC
COUNTANT."... +. "...COMMANDS AVAILABLE:
".D.*+. "...   1)INPUT NEW HEADINGS"...4
+. ".   2)CHANGE/DELETE ITEMS"...>+. ". 
  3)PRINT ACCOUNTS"...H+. ".   4)DATA FI
LES".>.R+. ".   5)INITIALISE ACCOUNTS".Q
.\+. ".   6)STOP".Z.F+."...WHICH DO YOU 
REQUIRE:";Z:. ".";...P+. Z.1 . Z.4 . IN.
1 . 11140.Z.Z+. "..................NOT I
NITIALISED":. I.1 . 2000:.:. 11000....+.
 Z.4 . Z.0 . . 13000:. ".";.5..+. Z . 14
000,17000,19000,20000,12000,11170:Z.0:. 
11000.;..+..K..+. ".....................
.......ACCOUNTANT."....+. ".............
PROGRAM TERMINATED":.......*************
*****************.J.... INITIALISE......
******************************......:. A
$(1,99):CR$.G(13).0../C$."              
               ".A../IN.1:. 11000.E.H2.*
*****************************.|.R2. CRED
IT OR DEBIT?. ..2.**********************
********.W..2. ".....................1)C
REDIT..........2)DEBIT"....2. ".........
.....WHICH DO YOU REQUIRE:";CD:CD.CD.1:.
.4..6.******************************.I..
6. INPUT HEADINGS.M.D6.*****************
*************...N6. ".................NE
W ITEMS:";:. CD.0 . . "CREDIT"...X6. CD.
1 . . "DEBIT"....6. "...IS THE ITEM:":. 
"..  1)A SINGLE ITEM". ..6. ".  2)A MAIN
 HEADING":. ".  3)A SUB-HEADING".I..6. "
.  INPUT '0' IF YOU WISH TO QUIT".H..7. 
"..PLEASE SPECIFY:";TYPE....7. TYPE . 15
000,15000,16000....7.....:.*************
*****************.S..:. SINGLE ITEM OR M
AIN HEADING....:.***********************
*******....:Q.0:. "..NAME OF ITEM:";Q$.>
..:. TYPE..2 . . ".AMOUNT FOR ITEM:";Q.S
.J:. "..IS THIS CORRECT (Y/N):";R$:. R$.
"N" . 14000...T:Q$."%".Q$:. TYPE.2 . Q$.
"*".J(Q$,2).S..:A$(CD,C(CD)).Q$:A(CD,C(C
D)).Q:C(CD).C(CD).1:. 14000....>.*******
***********************....>. SUB-HEADIN
G.-..>.******************************.`.
.>. "..INPUT NAME OF MAIN HEADING:";Q$:Q
$."*".Q$....>. I.0 . C(CD).1:. A$(CD,I).
Q$ . 16060.C..>.:. "SORRY, NO HEADING OF
 THAT NAME!":. I.1 . 2000:.....>PL.I.1:.
 "..NAME OF SUB-HEADING:";Q$...F>. ".AMO
UNT FOR SUB-HEADING:";Q.H.P>. "..ARE THE
SE 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):
..K..>A$(CD,PL).Q$:A(CD,PL).Q:C(CD).C(CD
).1:. 14000...HB.***********************
*******...RB. CHANGES AND DELETIONS./.|B
.******************************.C..B. I.
0 . C(CD).1.L..B. "...............CHANGE
 OR DELETE."....B. H(A$(CD,I),1).."$" . 
.  "..";J(A$(CD,I),2);.N..B. H(A$(CD,I),
1)."*" . . HH$.J(A$(CD,I),2):.....B. H(A
$(CD,I),1)."$" . . "..";HH$:.".";J(A$(CD
,I),2);....B. A(CD,I).0 . 17100.P.BB."..
..............";:MM.A(CD,I):. 21000:. M$
...LB. "..........COMMANDS AVAILABLE ON 
FUNCTION KEYS:"...VB. ".. F1 - NEXT ITEM
"....B. ". F3 - CHANGE AMOUNT"....B. ". 
F5 - RETURN TO MENU"....B. ". F8 - DELET
E ITEM"....B. "...WHICH DO YOU REQUIRE:?
".2..C. Q$:. Q$."" . 17160.N..C. Q$.G(14
0) . . 18000:..B..C. Q$.G(135) . ....&C.
 Q$..G(134) . H(A$(CD,I),1)."*" . . 1724
0...0C. "..AMOUNT TO BE ADDED:";Q.U.:C. 
"..IS THAT CORRECT (Y/N):";R$...DC. R$..
"N" . A(CD,I).A(CD,I).Q:. 17040.1.NC. ".
...";:. L.1 . 3:. C$;:.:. "....";:. 1720
0.;.XC. I:.._.PF.***********************
*******.O.ZF. DELETIONS...DF.***********
*******************.A.NFPL.I:. H(A$(CD,P
L),1).."*" . GR.1:. 18060.J.XFGR.0....FG
R.GR.1:. H(A$(CD,PL.GR),1)."$" . . 18050
.:..F. K.PL . C(CD).GR.1:A(CD,K).A(CD,K.
GR):A$(CD,K).A$(CD,K.GR):..X..FC(CD).C(C
D).GR:I.I.GR.1:..|.8J.******************
************...BJ. PRINT ACCOUNTS...LJ.*
*****************************...VJ. PA$.
"CREDIT":. CD.1 . PA$."DEBIT"...`JTT.0:S
S.0:. ".............";PA$;".".'.JJ. I.0 
. C(CD).1:TT.TT.A(CD,I).H.TJ. ".";:. I.2
..(I.2) . . ".";.D.~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.W..J. "...................";.
...J. H(A$(CD,I),1)."%" . ."............
";....JMM.A(CD,I):. 21000:. M$.F.DJ. H(A
$(CD,I),1)."$" . SS.SS.A(CD,I).O.NJ. SS.
0 . H(A$(CD,I.1),1)."$" . 19180...XJ. ".
.................-------.....";....JMM.S
S:. 21000:. M$:SS.0.N..J. GG$:. GG$."" .
 19180....J. I:. "......................
......-------".(..K. ".TOTAL............
..............";.?..KMM.TT:. 21000:. M$.
_..K. "..PRESS ANY KEY TO QUIT".Z..K. GG
$:. GG$."" . 19230...(K....2K.... N.****
**************************...*N. DATA FI
LES...4N.******************************.
..>N. "..POSITION TAPE CORRECTLY, THEN .
RETURN.---".L.HN. "MOTOR WILL STOP AUTOM
ATICALLY:";Q$:. 192,7:. 1,39...RN. "...C
OMMANDS AVAILABLE:":. "..1)SAVE DATA":. 
".2)LOAD DATA".A.\N. "..WICH DO YOU REQU
IRE:";Q:. Q . 20080,20140.G.FN....PN. I.
0 . 1:. A$(I,0)."". A$(I,0)." ":....ZN. 
1,7:. I.1 . 2000:..!..N. 1,1,2,"ACCOUNTS
".H..N. I.0 . 1:.1,C(I):. C(I).0 . 20130
.U..N. J.0 . C(I).1:.1,A$(I,J),CR$,A(I,J
):. J....N. I: 1:.....N. 1,1,0,"ACCOUNTS
"....N. I.0 . 1:.1,C(I):. C(I).0 . 20170
....N. J.0 . C(I).1:.1,A$(I,J),A(I,J):. 
J...JN. I: 1:.....R.********************
**********.-..R. FORMAT MONEY.Q..R.*****
*************************.U.&RMM.MM.1000
0.001:M$.J(D(MM),3,7)...0R. P.1 . 3...:R
. J(M$,P,1)."0" . M$.H(M$,P.1)." ".I(M$,
7.P):....DR.....
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL