BANK
FILE INFORMATION
FILENAME(S): BANK
FILE TYPE(S): PRG
FILE SIZE: 3.2K
FIRST SEEN: 2025-11-30 19:38:38
APPEARS ON: 1 disk(s)
FILE HASH
ec685cf5c7abedfbbb983ac34c514bd4be01c4ac22f9350c70e1951f625a1d39
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TEST DISK | BANK | PRG | Curtcool, Brian | 19 | 5 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 23 08 F8 2A 8F 23 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 00 2E 08 02 2B 8F 20 4D 45 4E 55 00 50 |***....+. MENU.P|
00000030: 08 0C 2B 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..+.************|
00000040: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000050: 00 7E 08 16 2B 97 20 35 33 32 38 31 2C 37 3A 99 |.~..+. 53281,7:.|
00000060: 22 93 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |"...............|
00000070: 1D 1D 1D 12 1C 42 41 4E 4B 45 52 12 1F 22 00 9B |.....BANKER.."..|
00000080: 08 20 2B 99 22 11 11 43 4F 4D 4D 41 4E 44 53 20 |. +."..COMMANDS |
00000090: 41 56 41 49 4C 41 42 4C 45 3A 22 00 B4 08 2A 2B |AVAILABLE:"...*+|
000000A0: 99 22 11 20 20 31 29 4E 45 57 20 50 41 59 4D 45 |.". 1)NEW PAYME|
000000B0: 4E 54 53 22 00 D8 08 34 2B 99 22 11 20 20 32 29 |NTS"...4+.". 2)|
000000C0: 45 58 41 4D 49 4E 45 2F 44 45 4C 45 54 45 20 50 |EXAMINE/DELETE P|
000000D0: 41 59 4D 45 4E 54 53 22 00 F4 08 3E 2B 99 22 11 |AYMENTS"...>+.".|
000000E0: 20 20 33 29 50 52 49 4E 54 20 53 54 41 54 45 4D | 3)PRINT STATEM|
000000F0: 45 4E 54 22 00 0B 09 48 2B 99 22 11 20 20 34 29 |ENT"...H+.". 4)|
00000100: 44 41 54 41 20 46 49 4C 45 53 22 00 22 09 52 2B |DATA FILES".".R+|
00000110: 99 22 11 20 20 35 29 49 4E 49 54 49 41 4C 49 53 |.". 5)INITIALIS|
00000120: 45 22 00 33 09 5C 2B 99 22 11 20 20 36 29 53 54 |E".3.\+.". 6)ST|
00000130: 4F 50 22 00 5B 09 66 2B 85 22 11 11 90 57 48 49 |OP".[.f+."...WHI|
00000140: 43 48 20 44 4F 20 59 4F 55 20 52 45 51 55 49 52 |CH DO YOU REQUIR|
00000150: 45 3A 22 3B 5A 3A 99 22 93 22 3B 00 7A 09 70 2B |E:";Z:.".";.z.p+|
00000160: 8B 20 5A B2 35 20 B0 20 5A B2 36 20 B0 20 49 4E |. Z.5 . Z.6 . IN|
00000170: B2 31 20 A7 20 31 31 31 34 30 00 B7 09 7A 2B 99 |.1 . 11140...z+.|
00000180: 22 11 11 11 11 11 11 11 1D 1D 1D 1D 1D 1D 1D 1D |"...............|
00000190: 1D 4E 4F 54 20 49 4E 49 54 49 41 4C 49 53 45 44 |.NOT INITIALISED|
000001A0: 2E 22 3A 81 49 B2 31 20 A4 20 32 30 30 30 3A 82 |.":.I.1 . 2000:.|
000001B0: 3A 89 31 31 30 30 30 00 DA 09 84 2B 8B 50 41 B3 |:.11000....+.PA.|
000001C0: B1 30 20 B0 20 28 5A B3 B1 32 20 AF 20 5A B3 B1 |.0 . (Z..2 . Z..|
000001D0: 33 29 20 A7 20 31 31 31 36 30 00 14 0A 8E 2B 99 |3) . 11160....+.|
000001E0: 22 11 11 11 11 11 11 11 1D 1D 1D 1D 1D 53 4F 52 |"............SOR|
000001F0: 52 59 2C 4E 4F 20 44 41 54 41 20 59 45 54 2E 22 |RY,NO DATA YET."|
00000200: 3A 81 49 B2 31 A4 20 32 30 30 30 3A 82 3A 89 31 |:.I.1. 2000:.:.1|
00000210: 31 30 30 30 00 42 0A 98 2B 91 20 5A 20 8D 20 31 |1000.B..+. Z . 1|
00000220: 33 30 30 30 2C 31 34 30 30 30 2C 31 35 30 30 30 |3000,14000,15000|
00000230: 2C 31 36 30 30 30 2C 31 32 30 30 30 2C 31 31 31 |,16000,12000,111|
00000240: 38 30 00 4E 0A A2 2B 89 20 31 31 30 30 30 00 79 |80.N..+. 11000.y|
00000250: 0A AC 2B 99 22 93 11 11 11 11 11 11 11 11 11 11 |..+."...........|
00000260: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00000270: 12 1C 42 41 4E 4B 45 52 22 00 A1 0A B6 2B 99 22 |..BANKER"....+."|
00000280: 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 92 90 43 4C 4F |.............CLO|
00000290: 53 45 44 20 46 4F 52 20 42 55 53 49 4E 45 53 53 |SED FOR BUSINESS|
000002A0: 22 00 A7 0A C0 2B 80 00 CA 0A E0 2E 8F 23 2A 2A |"....+.......#**|
000002B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000002C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 DA 0A EA 2E 8F |**********......|
000002D0: 20 56 41 52 49 41 42 4C 45 53 00 FD 0A F4 2E 8F | VARIABLES......|
000002E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000002F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 25 0B |*************.%.|
00000300: 08 2F 9C 3A 49 4E B2 31 3A 86 41 24 28 39 39 2C |./.:IN.1:.A$(99,|
00000310: 31 29 2C 41 28 39 39 2C 31 29 3A 41 28 30 2C 31 |1),A(99,1):A(0,1|
00000320: 29 B2 39 39 39 00 2B 0B 12 2F 8C 00 3A 0B 1C 2F |).999.+../..:../|
00000330: 53 24 B2 22 20 20 20 20 20 22 00 6E 0B 26 2F 86 |S$." ".n.&/.|
00000340: 20 4D 4F 24 28 31 31 29 3A 81 20 49 B2 30 20 A4 | MO$(11):. I.0 .|
00000350: 20 31 31 3A 87 20 41 24 3A 4D 4F 24 28 49 29 B2 | 11:. A$:MO$(I).|
00000360: 41 24 3A 82 3A 43 52 24 B2 C7 28 31 33 29 00 B8 |A$:.:CR$..(13)..|
00000370: 0B 30 2F 83 20 4A 41 4E 55 41 52 59 2C 46 45 42 |.0/. JANUARY,FEB|
00000380: 52 55 41 52 59 2C 4D 41 52 43 48 2C 41 50 52 49 |RUARY,MARCH,APRI|
00000390: 4C 2C 4D 41 59 2C 4A 55 4E 45 2C 4A 55 4C 59 2C |L,MAY,JUNE,JULY,|
000003A0: 41 55 47 55 53 54 2C 53 45 50 54 45 4D 42 45 52 |AUGUST,SEPTEMBER|
000003B0: 2C 4F 43 54 4F 42 45 52 00 D1 0B 3A 2F 83 20 4E |,OCTOBER...:/. N|
000003C0: 4F 56 45 4D 42 45 52 2C 44 45 43 45 4D 42 45 52 |OVEMBER,DECEMBER|
000003D0: 2E 00 DD 0B 44 2F 89 20 31 31 30 30 30 00 00 0C |....D/. 11000...|
000003E0: C8 32 8F 23 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.2.#************|
000003F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000400: 00 16 0C D2 32 8F 20 45 4E 54 45 52 20 4E 45 57 |....2. ENTER NEW|
00000410: 20 49 54 45 4D 53 00 3A 0C DC 32 8F 2A 2A 2A 2A | ITEMS.:..2.****|
00000420: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000430: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 5F 0C E6 32 99 |**********._..2.|
00000440: 22 93 11 11 1C 12 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |"...............|
00000450: 1D 1D 1D 4E 45 57 20 49 54 45 4D 53 1F 92 22 00 |...NEW ITEMS..".|
00000460: 7E 0C F0 32 99 22 20 20 31 29 43 52 45 44 49 54 |~..2." 1)CREDIT|
00000470: 22 3A 99 22 20 20 32 29 44 45 42 49 54 22 00 A8 |":." 2)DEBIT"..|
00000480: 0C FA 32 85 22 11 90 57 48 49 43 48 20 44 4F 20 |..2."..WHICH DO |
00000490: 59 4F 55 20 52 45 51 55 49 52 45 3A 22 3B 43 44 |YOU REQUIRE:";CD|
000004A0: 3A 43 44 B2 43 44 AB 31 00 C6 0C 04 33 85 22 11 |:CD.CD.1....3.".|
000004B0: 11 1F 4E 41 4D 45 20 4F 46 20 50 41 59 4D 45 4E |..NAME OF PAYMEN|
000004C0: 54 3A 22 3B 51 24 00 D8 0C 0E 33 85 22 11 41 4D |T:";Q$....3.".AM|
000004D0: 4F 55 4E 54 3A 22 3B 51 00 16 0D 18 33 85 22 11 |OUNT:";Q....3.".|
000004E0: 4D 4F 4E 54 48 53 28 45 2E 47 2E 30 31 30 34 30 |MONTHS(E.G.01040|
000004F0: 37 31 30 29 3A 22 3B 52 24 3A 99 22 91 1D 1D 1D |710):";R$:."....|
00000500: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00000510: 1D 1D 1D 1D 22 3B 00 3A 0D 22 33 81 49 B2 31 A4 |....";.:."3.I.1.|
00000520: 20 C3 28 52 24 29 A9 32 3A 88 4D B2 C5 28 CA 28 | .(R$).2:.M..(.(|
00000530: 52 24 2C 49 2C 32 29 29 AB 31 00 54 0D 2C 33 8B |R$,I,2)).1.T.,3.|
00000540: 4D B1 B2 30 20 AF 20 4D B3 B2 31 31 20 A7 89 31 |M..0 . M..11 ..1|
00000550: 33 31 33 30 00 74 0D 36 33 99 3A 99 22 91 49 4E |3130.t.63.:.".IN|
00000560: 56 41 4C 49 44 20 4D 4F 4E 54 48 20 49 4E 50 55 |VALID MONTH INPU|
00000570: 54 91 91 22 00 8B 0D 40 33 81 4A B2 31 A4 32 30 |T.."...@3.J.1.20|
00000580: 30 30 3A 82 3A 89 31 33 30 38 30 00 A0 0D 4A 33 |00:.:.13080...J3|
00000590: 99 4D 4F 24 28 4D 29 3B 22 2F 22 3B 3A 82 3A 99 |.MO$(M);"/";:.:.|
000005A0: 00 BA 0D 54 33 85 22 11 44 41 59 20 4F 46 20 50 |...T3.".DAY OF P|
000005B0: 41 59 4D 45 4E 54 3A 22 3B 53 00 F6 0D 5E 33 85 |AYMENT:";S...^3.|
000005C0: 22 11 11 1C 41 52 45 20 54 48 45 53 45 20 43 4F |"...ARE THESE CO|
000005D0: 52 52 45 43 54 20 28 59 2F 4E 29 3A 22 3B 54 24 |RRECT (Y/N):";T$|
000005E0: 3A 8B 54 24 B2 22 4E 22 A7 20 99 22 93 22 3B 3A |:.T$."N". .".";:|
000005F0: 89 31 33 30 30 30 00 0F 0E 68 33 50 41 B2 50 41 |.13000...h3PA.PA|
00000600: AA 31 3A 81 4A B2 50 41 AB 31 A4 30 A9 AB 31 00 |.1:.J.PA.1.0..1.|
00000610: 4D 0E 72 33 8B 53 B3 41 28 4A 2C 31 29 A7 20 81 |M.r3.S.A(J,1). .|
00000620: 20 4B B2 30 A4 31 3A 41 24 28 4A AA 31 2C 4B 29 | K.0.1:A$(J.1,K)|
00000630: B2 41 24 28 4A 2C 4B 29 3A 41 28 4A AA 31 2C 4B |.A$(J,K):A(J.1,K|
00000640: 29 B2 41 28 4A 2C 4B 29 3A 82 4B 2C 4A 00 6E 0E |).A(J,K):.K,J.n.|
00000650: 7C 33 4A B2 4A AA 31 3A 41 24 28 4A 2C 31 29 B2 ||3J.J.1:A$(J,1).|
00000660: 22 30 30 30 30 30 30 30 30 30 30 30 30 22 00 8F |"000000000000"..|
00000670: 0E 86 33 81 49 B2 31 A4 20 C3 28 52 24 29 A9 32 |..3.I.1. .(R$).2|
00000680: 3A 4D B2 C5 28 CA 28 52 24 2C 49 2C 32 29 29 00 |:M..(.(R$,I,2)).|
00000690: C0 0E 90 33 41 24 28 4A 2C 31 29 B2 C8 28 41 24 |...3A$(J,1)..(A$|
000006A0: 28 4A 2C 31 29 2C 4D AB 31 29 AA 22 31 22 AA C9 |(J,1),M.1)."1"..|
000006B0: 28 41 24 28 4A 2C 31 29 2C 31 32 AB 4D 29 3A 82 |(A$(J,1),12.M):.|
000006C0: 00 E1 0E 9A 33 41 24 28 4A 2C 30 29 B2 51 24 3A |....3A$(J,0).Q$:|
000006D0: 41 28 4A 2C 30 29 B2 51 3A 41 28 4A 2C 31 29 B2 |A(J,0).Q:A(J,1).|
000006E0: 53 00 FD 0E A4 33 8B 43 44 B2 31 20 A7 41 28 4A |S....3.CD.1 .A(J|
000006F0: 2C 30 29 B2 41 28 4A 2C 30 29 AC AB 31 00 03 0F |,0).A(J,0)..1...|
00000700: AE 33 8E 00 24 0F B0 36 8F 23 2A 2A 2A 2A 2A 2A |.3..$..6.#******|
00000710: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000720: 2A 2A 2A 2A 00 3F 0F BA 36 8F 20 45 58 41 4D 49 |****.?..6. EXAMI|
00000730: 4E 45 2F 44 45 4C 45 54 45 20 49 54 45 4D 53 00 |NE/DELETE ITEMS.|
00000740: 60 0F C4 36 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |`..6.***********|
00000750: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000760: 00 77 0F CE 36 81 20 49 B2 30 20 A4 20 50 41 AB |.w..6. I.0 . PA.|
00000770: 31 3A 99 22 93 22 3B 00 90 0F D8 36 99 22 11 50 |1:.".";....6.".P|
00000780: 41 59 4D 45 4E 54 3A 22 3B 41 24 28 49 2C 30 29 |AYMENT:";A$(I,0)|
00000790: 00 A7 0F E2 36 99 22 11 41 4D 4F 55 4E 54 3A 22 |....6.".AMOUNT:"|
000007A0: 3B 41 28 49 2C 30 29 00 C0 0F EC 36 99 22 11 4D |;A(I,0)....6.".M|
000007B0: 4F 4E 54 48 53 3A 22 3B 3A 81 4A B2 31 A4 31 32 |ONTHS:";:.J.1.12|
000007C0: 00 EA 0F F6 36 8B 20 CA 28 41 24 28 49 2C 31 29 |....6. .(A$(I,1)|
000007D0: 2C 4A 2C 31 29 B2 22 31 22 A7 20 99 20 4D 4F 24 |,J,1)."1". . MO$|
000007E0: 28 4A AB 31 29 3B 22 2F 22 3B 00 F3 0F 00 37 82 |(J.1);"/";....7.|
000007F0: 4A 3A 99 00 12 10 0A 37 99 22 11 44 41 59 20 4F |J:.....7.".DAY O|
00000800: 46 20 50 41 59 4D 45 4E 54 3A 22 3B 41 28 49 2C |F PAYMENT:";A(I,|
00000810: 31 29 00 4C 10 14 37 99 22 11 11 11 1C 12 43 4F |1).L..7.".....CO|
00000820: 4D 4D 41 4E 44 53 20 4F 4E 20 46 55 4E 43 54 49 |MMANDS ON FUNCTI|
00000830: 4F 4E 20 4B 45 59 53 3A 92 1F 22 3A 99 22 11 31 |ON KEYS:..":.".1|
00000840: 2D 4E 45 58 54 20 49 54 45 4D 22 3A 00 6D 10 1E |-NEXT ITEM":.m..|
00000850: 37 99 22 11 32 2D 51 55 49 54 22 3A 99 22 11 38 |7.".2-QUIT":.".8|
00000860: 2D 44 45 4C 45 54 45 20 49 54 45 4D 22 00 8D 10 |-DELETE ITEM"...|
00000870: 28 37 99 22 11 1E 57 48 49 43 48 20 44 4F 20 59 |(7."..WHICH DO Y|
00000880: 4F 55 20 52 45 51 55 49 52 45 3A 90 22 00 A2 10 |OU REQUIRE:."...|
00000890: 32 37 A1 51 24 3A 8B 51 24 B2 22 22 A7 31 34 31 |27.Q$:.Q$."".141|
000008A0: 33 30 00 B8 10 3C 37 8B C6 28 51 24 29 B3 B1 31 |30...<7..(Q$)..1|
000008B0: 34 30 A7 31 34 31 37 30 00 F4 10 46 37 81 4A B2 |40.14170...F7.J.|
000008C0: 49 A4 50 41 AB 31 3A 81 4B B2 30 A4 31 3A 41 24 |I.PA.1:.K.0.1:A$|
000008D0: 28 4A 2C 4B 29 B2 41 24 28 4A AA 31 2C 4B 29 3A |(J,K).A$(J.1,K):|
000008E0: 41 28 4A 2C 4B 29 B2 41 28 4A AA 31 2C 4B 29 3A |A(J,K).A(J.1,K):|
000008F0: 82 4B 2C 4A 00 02 11 50 37 50 41 B2 50 41 AB 31 |.K,J...P7PA.PA.1|
00000900: 3A 8E 00 15 11 5A 37 8B C6 28 51 24 29 B2 31 33 |:....Z7..(Q$).13|
00000910: 33 A7 20 82 49 00 1B 11 64 37 8E 00 3F 11 98 3A |3. .I...d7..?..:|
00000920: 8F 23 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.#**************|
00000930: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
00000940: 57 11 A2 3A 8F 20 43 4F 4D 50 49 4C 45 20 53 54 |W..:. COMPILE ST|
00000950: 41 54 45 4D 45 4E 54 00 7B 11 A3 3A 8F 2A 2A 2A |ATEMENT.{..:.***|
00000960: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000970: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 A2 11 AC 3A |***********....:|
00000980: 99 22 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |."..............|
00000990: 1C 53 54 41 54 45 4D 45 4E 54 90 22 3A 53 55 4D |.STATEMENT.":SUM|
000009A0: B2 30 00 CB 11 B6 3A 85 22 11 4E 55 4D 42 45 52 |.0....:.".NUMBER|
000009B0: 20 4F 46 20 4D 4F 4E 54 48 20 46 4F 52 20 53 54 | OF MONTH FOR ST|
000009C0: 41 54 45 4D 45 4E 54 3A 22 3B 51 00 DA 11 C0 3A |ATEMENT:";Q....:|
000009D0: 8B 51 B2 31 A7 31 35 30 38 30 00 11 12 CA 3A 81 |.Q.1.15080....:.|
000009E0: 20 51 31 B2 31 A4 51 AB 31 3A 81 49 B2 30 A4 50 | Q1.1.Q.1:.I.0.P|
000009F0: 41 AB 31 3A 8B CA 28 41 24 28 49 2C 31 29 2C 51 |A.1:..(A$(I,1),Q|
00000A00: 31 2C 31 29 B3 B1 22 31 22 20 A7 20 31 35 30 37 |1,1).."1" . 1507|
00000A10: 30 00 24 12 D4 3A 53 55 4D B2 53 55 4D AA 41 28 |0.$..:SUM.SUM.A(|
00000A20: 49 2C 30 29 00 2E 12 DE 3A 82 49 2C 51 31 00 4C |I,0)....:.I,Q1.L|
00000A30: 12 E8 3A 99 22 93 11 1D 1D 1D 1D 1D 1D 1D 1D 1D |..:."...........|
00000A40: 1D 1C 22 3B 4D 4F 24 28 51 AB 31 29 00 7D 12 F2 |..";MO$(Q.1).}..|
00000A50: 3A 99 22 1E 12 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |:.".............|
00000A60: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 49 |...............I|
00000A70: 54 45 4D 1D 1D 1D 54 4F 54 41 4C 92 22 00 A7 12 |TEM...TOTAL."...|
00000A80: FC 3A 99 22 90 42 41 4C 41 4E 43 45 20 43 2F 46 |.:.".BALANCE C/F|
00000A90: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00000AA0: 1D 1D 1D 1D 1D 22 3B 00 BA 12 06 3B 8B 20 53 55 |.....";....;. SU|
00000AB0: 4D B3 30 A7 20 99 22 1C 22 3B 00 D4 12 10 3B 88 |M.0. .".";....;.|
00000AC0: 4D 4D B2 B6 28 53 55 4D 29 3A 8D 31 37 30 30 30 |MM..(SUM):.17000|
00000AD0: 3A 99 4D 24 00 E2 12 1A 3B 81 49 B2 30 A4 50 41 |:.M$....;.I.0.PA|
00000AE0: AB 31 00 02 13 24 3B 8B 20 CA 28 41 24 28 49 2C |.1...$;. .(A$(I,|
00000AF0: 31 29 2C 51 2C 31 29 B3 B1 22 31 22 A7 31 35 32 |1),Q,1).."1".152|
00000B00: 32 30 00 32 13 2E 3B 88 20 4D 4D B2 41 28 49 2C |20.2..;. MM.A(I,|
00000B10: 31 29 3A 8D 31 37 30 30 30 3A 99 22 90 22 3B CA |1):.17000:.".";.|
00000B20: 28 4D 24 2C 32 2C 33 29 3B 3A 99 22 90 1D 1D 1D |(M$,2,3);:."....|
00000B30: 22 3B 00 46 13 38 3B 8B 41 28 49 2C 30 29 B3 30 |";.F.8;.A(I,0).0|
00000B40: A7 99 22 1C 22 3B 00 53 13 42 3B 99 41 24 28 49 |..".";.S.B;.A$(I|
00000B50: 2C 30 29 00 8D 13 4C 3B 99 22 91 1D 1D 1D 1D 1D |,0)...L;."......|
00000B60: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00000B70: 1D 1D 22 3B 3A 4D 4D B2 B6 28 41 28 49 2C 30 29 |..";:MM..(A(I,0)|
00000B80: 29 3A 8D 31 37 30 30 30 3A 99 4D 24 3B 00 B6 13 |):.17000:.M$;...|
00000B90: 56 3B 53 55 4D B2 53 55 4D AA 41 28 49 2C 30 29 |V;SUM.SUM.A(I,0)|
00000BA0: 3A 99 22 1D 1D 90 22 3B 3A 8B 53 55 4D B3 30 A7 |:."...";:.SUM.0.|
00000BB0: 20 99 22 1C 22 3B 00 CF 13 60 3B 4D 4D B2 B6 28 | .".";...`;MM..(|
00000BC0: 53 55 4D 29 3A 8D 31 37 30 30 30 3A 99 4D 24 00 |SUM):.17000:.M$.|
00000BD0: E4 13 6A 3B A1 41 24 3A 8B 41 24 B2 22 22 A7 31 |..j;.A$:.A$."".1|
00000BE0: 35 32 31 30 00 06 14 74 3B 82 49 3A 85 22 12 52 |5210...t;.I:.".R|
00000BF0: 45 54 55 52 4E 92 20 54 4F 20 43 4F 4E 54 49 4E |ETURN. TO CONTIN|
00000C00: 55 45 3A 22 3B 58 00 0C 14 7E 3B 8E 00 30 14 68 |UE:";X...~;..0.h|
00000C10: 42 8F 23 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |B.#*************|
00000C20: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000C30: 00 43 14 72 42 8F 20 46 4F 52 4D 41 54 20 4D 4F |.C.rB. FORMAT MO|
00000C40: 4E 45 59 00 67 14 7C 42 8F 2A 2A 2A 2A 2A 2A 2A |NEY.g.|B.*******|
00000C50: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000C60: 2A 2A 2A 2A 2A 2A 2A 00 7B 14 86 42 4D 4D B2 4D |*******.{..BMM.M|
00000C70: 4D AA 31 30 30 30 30 2E 30 30 31 00 98 14 90 42 |M.10000.001....B|
00000C80: 4D 24 B2 CA 28 C4 28 4D 4D 29 2C 33 2C C3 28 C4 |M$..(.(MM),3,.(.|
00000C90: 28 4D 4D 29 29 AB 33 29 00 BA 14 9A 42 81 20 46 |(MM)).3)....B. F|
00000CA0: 46 B2 31 A4 20 37 3A 8B 20 CA 28 4D 24 2C 46 46 |F.1. 7:. .(M$,FF|
00000CB0: 2C 31 29 B3 B1 22 30 22 A7 8E 00 DF 14 A4 42 4D |,1).."0"......BM|
00000CC0: 24 B2 C8 28 4D 24 2C 46 46 AB 31 29 AA 22 20 22 |$..(M$,FF.1)." "|
00000CD0: AA C9 28 4D 24 2C 37 AB 46 46 29 3A 82 46 46 00 |..(M$,7.FF):.FF.|
00000CE0: 00 00 |.. |
..#..*.#***************************....+
. MENU.P..+.****************************
.~..+. 53281,7:."....................BAN
KER.."... +."..COMMANDS AVAILABLE:"...*+
.". 1)NEW PAYMENTS".X.4+.". 2)EXAMINE/
DELETE PAYMENTS"...>+.". 3)PRINT STATEM
ENT"...H+.". 4)DATA FILES".".R+.". 5)I
NITIALISE".3.\+.". 6)STOP".[.F+."...WHI
CH DO YOU REQUIRE:";Z:.".";.Z.P+. Z.5 .
Z.6 . IN.1 . 11140...Z+."...............
.NOT INITIALISED.":.I.1 . 2000:.:.11000.
Z..+.PA..0 . (Z..2 . Z..3) . 11160....+.
"............SORRY,NO DATA YET.":.I.1. 2
000:.:.11000.B..+. Z . 13000,14000,15000
,16000,12000,11180.N..+. 11000.Y..+."...
..........................BANKER"....+."
.............CLOSED FOR BUSINESS"....+..
J....#****************************.Z....
VARIABLES......************************
*****.%../.:IN.1:.A$(99,1),A(99,1):A(0,1
).999.+../..:../S$." ".N.&/. MO$(11)
:. I.0 . 11:. A$:MO$(I).A$:.:CR$.G(13)..
.0/. JANUARY,FEBRUARY,MARCH,APRIL,MAY,JU
NE,JULY,AUGUST,SEPTEMBER,OCTOBER.Q.:/. N
OVEMBER,DECEMBER....D/. 11000...H2.#****
************************...R2. ENTER NEW
ITEMS.:..2.****************************
**._..2."..................NEW ITEMS..".
~..2." 1)CREDIT":." 2)DEBIT"....2."..W
HICH DO YOU REQUIRE:";CD:CD.CD.1.F..3.".
..NAME OF PAYMENT:";Q$.X..3.".AMOUNT:";Q
....3.".MONTHS(E.G.01040710):";R$:."....
....................";.:."3.I.1. C(R$).2
:.M.E(J(R$,I,2)).1.T.,3.M..0 . M..11 ..1
3130.T.63.:.".INVALID MONTH INPUT.."...@
3.J.1.2000:.:.13080. .J3.MO$(M);"/";:.:.
...T3.".DAY OF PAYMENT:";S...^3."...ARE
THESE CORRECT (Y/N):";T$:.T$."N". .".";:
.13000...H3PA.PA.1:.J.PA.1.0..1.M.R3.S.A
(J,1). . K.0.1:A$(J.1,K).A$(J,K):A(J.1,K
).A(J,K):.K,J.N.|3J.J.1:A$(J,1)."0000000
00000"....3.I.1. C(R$).2:M.E(J(R$,I,2)).
...3A$(J,1).H(A$(J,1),M.1)."1".I(A$(J,1)
,12.M):.....3A$(J,0).Q$:A(J,0).Q:A(J,1).
S....3.CD.1 .A(J,0).A(J,0)..1....3..$..6
.#**************************.?..6. EXAMI
NE/DELETE ITEMS.`.D6.*******************
********.W.N6. I.0 . PA.1:.".";...X6.".P
AYMENT:";A$(I,0)....6.".AMOUNT:";A(I,0).
...6.".MONTHS:";:.J.1.12....6. J(A$(I,1)
,J,1)."1". . MO$(J.1);"/";....7.J:.....7
.".DAY OF PAYMENT:";A(I,1).L..7.".....CO
MMANDS ON FUNCTION KEYS:..":.".1-NEXT IT
EM":.M..7.".2-QUIT":.".8-DELETE ITEM"...
(7."..WHICH DO YOU REQUIRE:."...27.Q$:.Q
$."".14130...<7.F(Q$)..140.14170...F7.J.
I.PA.1:.K.0.1:A$(J,K).A$(J.1,K):A(J,K).A
(J.1,K):.K,J...P7PA.PA.1:....Z7.F(Q$).13
3. .I...D7..?..:.#**********************
*******.W..:. COMPILE STATEMENT.{..:.***
***************************....:."......
.........STATEMENT.":SUM.0.K..:.".NUMBER
OF MONTH FOR STATEMENT:";Q.Z..:.Q.1.150
80...J:. Q1.1.Q.1:.I.0.PA.1:.J(A$(I,1),Q
1,1).."1" . 15070.$.T:SUM.SUM.A(I,0)....
:.I,Q1.L..:.".............";MO$(Q.1).}..
:."............................ITEM...TO
TAL."....:.".BALANCE C/F................
.....";....;. SUM.0. .".";.T..;.MM..(SUM
):.17000:.M$....;.I.0.PA.1...$;. J(A$(I,
1),Q,1).."1".15220.2..;. MM.A(I,1):.1700
0:.".";J(M$,2,3);:."....";.F.8;.A(I,0).0
..".";.S.B;.A$(I,0)...L;."..............
..........";:MM..(A(I,0)):.17000:.M$;...
V;SUM.SUM.A(I,0):."...";:.SUM.0. .".";.O
.`;MM..(SUM):.17000:.M$...J;.A$:.A$."".1
5210...T;.I:.".RETURN. TO CONTINUE:";X..
.~;..0.HB.#*****************************
.C.RB. FORMAT MONEY.G.|B.***************
***************.{..BMM.MM.10000.001....B
M$.J(D(MM),3,C(D(MM)).3)....B. FF.1. 7:.
J(M$,FF,1).."0"......BM$.H(M$,FF.1)." "
.I(M$,7.FF):.FF...
> CLICK IMAGE PREVIEW FOR FULL MODAL