BANKER
FILE INFORMATION
FILENAME(S): BANKER
FILE TYPE(S): PRG
FILE SIZE: 6K
FIRST SEEN: 2025-11-02 17:01:56
APPEARS ON: 1 disk(s)
FILE HASH
215436591c095d5911cd307d00e65f910462271f1ad8cdcb20151fbf9de85b2c
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| MISC01 | BANKER | PRG | Treasure Chest - Spook | 6 | 4 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 18 08 64 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |....d.. ********|
00000010: 2A 2A 2A 2A 2A 2A 2A 2A 00 2F 08 6E 00 8F 20 2A |********./.n.. *|
00000020: 2A 2A 2A 20 20 20 20 20 20 20 20 2A 2A 2A 2A 00 |*** ****.|
00000030: 46 08 78 00 8F 20 2A 2A 2A 2A 20 42 41 4E 4B 45 |F.x.. **** BANKE|
00000040: 52 20 2A 2A 2A 2A 00 5D 08 82 00 8F 20 2A 2A 2A |R ****.].... ***|
00000050: 2A 20 20 20 20 20 20 20 20 2A 2A 2A 2A 00 74 08 |* ****.t.|
00000060: 8C 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |... ************|
00000070: 2A 2A 2A 2A 00 99 08 96 00 4E 41 24 B2 22 4D 52 |****.....NA$."MR|
00000080: 20 53 2E 53 2E 46 41 52 52 22 3A 8F 2A 2A 59 4F | S.S.FARR":.**YO|
00000090: 55 52 20 4E 41 4D 45 2A 2A 00 BB 08 A0 00 42 43 |UR NAME**.....BC|
000000A0: 24 B2 22 30 30 2D 30 30 2D 30 30 22 3A 8F 2A 2A |$."00-00-00":.**|
000000B0: 42 41 4E 4B 20 43 4F 44 45 2A 2A 00 E3 08 AA 00 |BANK CODE**.....|
000000C0: 43 4E 24 B2 22 30 30 30 30 30 30 30 30 30 22 3A |CN$."000000000":|
000000D0: 8F 2A 2A 43 48 45 51 55 45 20 43 41 52 44 20 4E |.**CHEQUE CARD N|
000000E0: 4F 2E 2A 00 0A 09 B4 00 41 4E 24 B2 22 30 30 30 |O.*.....AN$."000|
000000F0: 30 30 30 30 30 22 3A 8F 2A 2A 41 43 43 4F 55 4E |00000":.**ACCOUN|
00000100: 54 20 4E 55 4D 42 45 52 2A 2A 00 2D 09 BE 00 57 |T NUMBER**.-...W|
00000110: 42 24 B2 22 42 41 4E 4B 20 4E 41 4D 45 22 3A 8F |B$."BANK NAME":.|
00000120: 2A 2A 42 41 4E 4B 20 4E 41 4D 45 2A 2A 00 51 09 |**BANK NAME**.Q.|
00000130: C8 00 57 4C 24 B2 22 C5 C5 C5 C5 20 C5 C5 C5 C5 |..WL$.".... ....|
00000140: 22 3A 8F 2A 2A 55 4E 44 45 52 20 4C 49 4E 45 2A |":.**UNDER LINE*|
00000150: 2A 00 78 09 D2 00 48 4D B2 34 30 3A 8F 2A 2A 4E |*.x...HM.40:.**N|
00000160: 4F 2E 20 4F 46 20 45 4E 54 52 49 45 53 20 50 45 |O. OF ENTRIES PE|
00000170: 52 20 46 49 4C 45 2A 2A 00 9C 09 DC 00 43 4F 24 |R FILE**.....CO$|
00000180: B2 28 C8 28 41 4E 24 2C 33 29 29 3A 8F 2A 2A 44 |.(.(AN$,3)):.**D|
00000190: 4F 20 4E 4F 54 20 41 4C 54 45 52 2A 00 AA 09 E6 |O NOT ALTER*....|
000001A0: 00 86 20 44 54 24 28 48 4D 29 00 B9 09 F0 00 86 |.. DT$(HM)......|
000001B0: 20 44 45 42 24 28 48 4D 29 00 C7 09 FA 00 86 20 | DEB$(HM)...... |
000001C0: 48 44 24 28 48 4D 29 00 D6 09 04 01 86 20 43 52 |HD$(HM)...... CR|
000001D0: 45 24 28 48 4D 29 00 E4 09 0E 01 86 20 48 43 24 |E$(HM)...... HC$|
000001E0: 28 48 4D 29 00 F3 09 18 01 86 20 42 41 4C 24 28 |(HM)...... BAL$(|
000001F0: 48 4D 29 00 FC 09 22 01 8D 34 30 30 00 10 0A 2C |HM)..."..400...,|
00000200: 01 8F 20 2A 2A 20 4F 50 54 49 4F 4E 53 20 2A 2A |.. ** OPTIONS **|
00000210: 00 2F 0A 36 01 99 22 1F 93 11 1D 56 41 4C 49 44 |./.6.."....VALID|
00000220: 20 4F 50 54 49 4F 4E 53 20 41 52 45 3A 2D 22 00 | OPTIONS ARE:-".|
00000230: 49 0A 40 01 99 22 1D C5 C5 C5 C5 C5 20 C5 C5 C5 |I.@.."...... ...|
00000240: C5 C5 C5 C5 20 C5 C5 C5 22 00 86 0A 4A 01 99 22 |.... ..."...J.."|
00000250: 31 20 49 4E 50 55 54 20 44 41 54 41 22 3A 99 22 |1 INPUT DATA":."|
00000260: 32 20 44 45 4C 45 54 45 20 4C 41 53 54 20 45 4E |2 DELETE LAST EN|
00000270: 54 52 59 22 3A 99 22 33 20 44 49 53 50 4C 41 59 |TRY":."3 DISPLAY|
00000280: 20 44 41 54 41 22 00 B8 0A 54 01 99 22 34 20 4C | DATA"...T.."4 L|
00000290: 4F 41 44 20 44 41 54 41 22 3A 99 22 35 20 53 41 |OAD DATA":."5 SA|
000002A0: 56 45 20 44 41 54 41 22 3A 99 22 36 20 50 52 49 |VE DATA":."6 PRI|
000002B0: 4E 54 20 44 41 54 41 22 00 F8 0A 5E 01 99 22 37 |NT DATA"...^.."7|
000002C0: 20 52 45 41 44 20 44 49 53 4B 20 53 54 41 54 55 | READ DISK STATU|
000002D0: 53 22 3A 99 22 38 20 43 4C 45 41 52 20 41 4C 4C |S":."8 CLEAR ALL|
000002E0: 20 44 41 54 41 22 3A 99 22 39 20 51 55 49 54 20 | DATA":."9 QUIT |
000002F0: 50 52 4F 47 52 41 4D 22 00 0D 0B 68 01 A1 4F 50 |PROGRAM"...h..OP|
00000300: 24 3A 8B 4F 50 24 B2 22 22 A7 33 36 30 00 28 0B |$:.OP$."".360.(.|
00000310: 72 01 8B 20 4F 50 24 B3 22 31 22 B0 20 4F 50 24 |r.. OP$."1". OP$|
00000320: B1 22 39 22 A7 33 36 30 00 64 0B 7C 01 91 20 28 |."9".360.d.|.. (|
00000330: C5 28 4F 50 24 29 29 20 8D 20 36 32 30 2C 39 37 |.(OP$)) . 620,97|
00000340: 30 2C 31 30 36 30 2C 31 33 33 30 2C 31 36 31 30 |0,1060,1330,1610|
00000350: 2C 31 39 35 30 2C 32 33 38 30 2C 32 34 38 30 2C |,1950,2380,2480,|
00000360: 32 35 36 30 00 6D 0B 86 01 89 33 30 30 00 80 0B |2560.m....300...|
00000370: 90 01 8F 20 2A 2A 20 54 49 54 4C 45 53 20 2A 2A |... ** TITLES **|
00000380: 00 9C 0B 9A 01 97 35 33 32 38 30 2C 37 3A 97 35 |......53280,7:.5|
00000390: 33 32 38 31 2C 37 3A 99 22 93 1F 22 00 CC 0B A4 |3281,7:.".."....|
000003A0: 01 99 22 11 1D D5 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |..".............|
000003B0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
000003C0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C9 22 00 03 0C AE |..........."....|
000003D0: 01 81 58 B2 31 A4 32 32 3A 99 22 1D DD 20 20 20 |..X.1.22:.".. |
000003E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000003F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000400: 20 DD 22 00 09 0C B8 01 82 00 38 0C C2 01 99 22 | .".......8...."|
00000410: 1D CA C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000420: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000430: C0 C0 C0 C0 C0 C0 CB 22 00 4A 0C CC 01 99 22 13 |.......".J....".|
00000440: 11 11 1D 1D 1D 22 3B 57 42 24 00 59 0C D6 01 99 |.....";WB$.Y....|
00000450: 22 1D 1D 1D 22 3B 57 4C 24 00 7A 0C E0 01 99 22 |"...";WL$.z...."|
00000460: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00000470: 1D 1D 1D 1D A4 A4 A4 A4 A4 22 00 A0 0C EA 01 99 |........."......|
00000480: 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |"...............|
00000490: 1D 1D 1D 1D A7 1C 12 46 41 52 52 20 92 1F A5 22 |.......FARR ..."|
000004A0: 00 C6 0C F4 01 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D |......".........|
000004B0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D A7 1C 12 53 4F 46 |.............SOF|
000004C0: 54 20 92 1F A5 22 00 EC 0C FE 01 99 22 1D 1D 1D |T ..."......"...|
000004D0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
000004E0: A7 1C 12 57 41 52 45 20 92 1F A5 22 00 0D 0D 08 |...WARE ..."....|
000004F0: 02 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |..".............|
00000500: 1D 1D 1D 1D 1D 1D 1D A3 A3 A3 A3 A3 22 00 1E 0D |............"...|
00000510: 12 02 99 22 1C 11 1D 1D 1D 22 3B 4E 41 24 00 46 |...".....";NA$.F|
00000520: 0D 1C 02 99 22 1F 11 1D 1D 1D 43 4F 44 45 20 4E |....".....CODE N|
00000530: 55 4D 42 45 52 20 20 20 20 20 43 41 52 44 20 4E |UMBER CARD N|
00000540: 55 4D 42 45 52 22 00 66 0D 26 02 99 22 1C 1D 1D |UMBER".f.&.."...|
00000550: 1D 1D 1D 22 3B 42 43 24 3B 22 1D 1D 1D 1D 1D 1D |...";BC$;"......|
00000560: 1D 22 3B 43 4E 24 00 83 0D 30 02 99 A3 39 29 22 |.";CN$...0...9)"|
00000570: 1F 11 11 43 55 52 52 45 4E 54 20 41 43 43 4F 55 |...CURRENT ACCOU|
00000580: 4E 54 22 00 9D 0D 3A 02 99 A3 39 29 22 C5 C5 C5 |NT"...:...9)"...|
00000590: C5 C5 C5 C5 20 C5 C5 C5 C5 C5 C5 C5 22 00 B7 0D |.... ......."...|
000005A0: 44 02 99 22 11 1D 1D 1D 41 43 43 4F 55 4E 54 20 |D.."....ACCOUNT |
000005B0: 4E 55 4D 42 45 52 22 00 C8 0D 4E 02 99 22 1C 1D |NUMBER"...N.."..|
000005C0: 1D 1D 20 22 3B 41 4E 24 00 E0 0D 58 02 99 A3 32 |.. ";AN$...X...2|
000005D0: 37 29 22 11 1C 50 52 4F 44 2E 20 31 39 38 36 22 |7)"..PROD. 1986"|
000005E0: 00 F2 0D 62 02 81 58 B2 31 A4 35 30 30 30 3A 82 |...b..X.1.5000:.|
000005F0: 3A 8E 00 02 0E 6C 02 8F 20 2A 2A 20 41 44 44 20 |:....l.. ** ADD |
00000600: 2A 2A 00 31 0E 76 02 8B 20 45 4E B1 28 48 4D AB |**.1.v.. EN.(HM.|
00000610: 31 29 A7 99 22 93 11 1D 41 52 52 41 59 20 46 55 |1).."...ARRAY FU|
00000620: 4C 4C 22 3A 81 58 B2 31 A4 31 30 30 30 3A 82 3A |LL":.X.1.1000:.:|
00000630: 8E 00 56 0E 80 02 4C B2 30 3A 45 4E B2 45 4E AA |..V...L.0:EN.EN.|
00000640: 31 3A 99 22 93 11 44 41 54 45 20 20 20 20 20 20 |1:."..DATE |
00000650: 20 20 20 20 22 3B 00 6C 0E 8A 02 8D 32 35 38 30 | ";.l....2580|
00000660: 3A 44 54 24 28 45 4E 29 B2 41 41 24 00 83 0E 94 |:DT$(EN).AA$....|
00000670: 02 99 22 44 45 42 49 54 20 41 4D 4F 55 4E 54 20 |.."DEBIT AMOUNT |
00000680: 20 22 3B 00 AB 0E 9E 02 8D 32 35 38 30 3A 44 45 | ";......2580:DE|
00000690: 42 24 28 45 4E 29 B2 41 41 24 3A 8B 44 45 42 24 |B$(EN).AA$:.DEB$|
000006A0: 28 45 4E 29 B2 22 22 A7 4C B2 31 00 CD 0E A8 02 |(EN)."".L.1.....|
000006B0: 8B 4C B2 31 A7 44 45 42 24 28 45 4E 29 B2 22 2A |.L.1.DEB$(EN)."*|
000006C0: 22 3A 48 44 24 28 45 4E 29 B2 22 2A 22 00 DA 0E |":HD$(EN)."*"...|
000006D0: B2 02 8B 4C B2 31 A7 37 34 30 00 02 0F BC 02 99 |...L.1.740......|
000006E0: 22 49 4E 50 55 54 20 48 4F 57 20 57 41 53 20 54 |"INPUT HOW WAS T|
000006F0: 48 45 20 44 45 42 49 54 20 57 41 53 20 4D 41 44 |HE DEBIT WAS MAD|
00000700: 45 22 00 13 0F C6 02 99 A3 31 34 29 3B 3A 8D 32 |E".......14);:.2|
00000710: 35 38 30 00 23 0F D0 02 48 44 24 28 45 4E 29 B2 |580.#...HD$(EN).|
00000720: 41 41 24 00 45 0F DA 02 43 52 45 24 28 45 4E 29 |AA$.E...CRE$(EN)|
00000730: B2 22 2A 22 3A 48 43 24 28 45 4E 29 B2 22 2A 22 |."*":HC$(EN)."*"|
00000740: 3A 89 38 30 30 00 5C 0F E4 02 99 22 43 52 45 44 |:.800.\...."CRED|
00000750: 49 54 20 41 4D 4F 55 4E 54 20 22 3B 00 84 0F EE |IT AMOUNT ";....|
00000760: 02 8D 32 35 38 30 3A 43 52 45 24 28 45 4E 29 B2 |..2580:CRE$(EN).|
00000770: 41 41 24 3A 8B 43 52 45 24 28 45 4E 29 B2 22 22 |AA$:.CRE$(EN).""|
00000780: A7 4C B2 32 00 A6 0F F8 02 8B 4C B2 32 A7 43 52 |.L.2......L.2.CR|
00000790: 45 24 28 45 4E 29 B2 22 2A 22 3A 48 43 24 28 45 |E$(EN)."*":HC$(E|
000007A0: 4E 29 B2 22 2A 22 00 CF 0F 02 03 99 22 49 4E 50 |N)."*"......"INP|
000007B0: 55 54 20 48 4F 57 20 57 41 53 20 54 48 45 20 43 |UT HOW WAS THE C|
000007C0: 52 45 44 49 54 20 57 41 53 20 4D 41 44 45 22 00 |REDIT WAS MADE".|
000007D0: E0 0F 0C 03 99 A3 31 34 29 3B 3A 8D 32 35 38 30 |......14);:.2580|
000007E0: 00 F0 0F 16 03 48 43 24 28 45 4E 29 B2 41 41 24 |.....HC$(EN).AA$|
000007F0: 00 21 10 20 03 8B 20 45 4E B2 31 20 A7 20 99 22 |.!. .. EN.1 . ."|
00000800: 42 41 4C 41 4E 43 45 20 54 4F 20 43 41 52 52 59 |BALANCE TO CARRY|
00000810: 20 46 4F 52 57 41 52 44 22 3B 42 41 4C 24 28 30 | FORWARD";BAL$(0|
00000820: 29 00 43 10 2A 03 8B 45 4E B2 31 A7 99 A3 31 34 |).C.*..EN.1...14|
00000830: 29 3A 8D 32 35 38 30 3A 42 41 4C 24 28 30 29 B2 |):.2580:BAL$(0).|
00000840: 41 41 24 00 60 10 34 03 8B 20 42 41 4C 24 28 30 |AA$.`.4.. BAL$(0|
00000850: 29 B2 22 22 A7 42 41 4C 24 28 30 29 B2 22 30 22 |)."".BAL$(0)."0"|
00000860: 00 72 10 3E 03 91 20 4C 20 89 20 38 37 30 2C 38 |.r.>.. L . 870,8|
00000870: 34 30 00 96 10 48 03 54 B2 28 C5 28 42 41 4C 24 |40...H.T.(.(BAL$|
00000880: 28 45 4E AB 31 29 29 29 AB 28 C5 28 44 45 42 24 |(EN.1))).(.(DEB$|
00000890: 28 45 4E 29 29 29 00 B8 10 52 03 42 41 4C 24 28 |(EN)))...R.BAL$(|
000008A0: 45 4E 29 B2 C4 28 28 B5 28 54 AC 31 30 30 AA 2E |EN)..((.(T.100..|
000008B0: 35 29 29 AD 31 30 30 29 00 C1 10 5C 03 89 39 30 |5)).100)...\..90|
000008C0: 30 00 E5 10 66 03 54 B2 28 C5 28 42 41 4C 24 28 |0...f.T.(.(BAL$(|
000008D0: 45 4E AB 31 29 29 29 AA 28 C5 28 43 52 45 24 28 |EN.1))).(.(CRE$(|
000008E0: 45 4E 29 29 29 00 07 11 70 03 42 41 4C 24 28 45 |EN)))...p.BAL$(E|
000008F0: 4E 29 B2 C4 28 28 B5 28 54 AC 31 30 30 AA 2E 35 |N)..((.(T.100..5|
00000900: 29 29 AD 31 30 30 29 00 10 11 7A 03 89 39 30 30 |)).100)...z..900|
00000910: 00 16 11 84 03 8F 00 3D 11 8E 03 99 22 54 59 50 |.......=...."TYP|
00000920: 45 20 27 4F 27 20 54 4F 20 52 45 54 55 52 4E 20 |E 'O' TO RETURN |
00000930: 4D 41 49 4E 20 4F 50 54 49 4F 4E 53 22 00 61 11 |MAIN OPTIONS".a.|
00000940: 98 03 99 22 1D 1D 1D 1D 1D 27 43 27 20 54 4F 20 |...".....'C' TO |
00000950: 43 4F 4E 54 20 54 48 49 53 20 4F 50 54 49 4F 4E |CONT THIS OPTION|
00000960: 22 00 74 11 A2 03 A1 51 24 3A 8B 51 24 B2 22 22 |".t....Q$:.Q$.""|
00000970: A7 39 33 30 00 83 11 AC 03 8B 51 24 B2 22 4F 22 |.930......Q$."O"|
00000980: A7 20 8E 00 93 11 B6 03 8B 51 24 B2 22 43 22 A7 |. .......Q$."C".|
00000990: 36 32 30 00 9C 11 C0 03 89 39 33 30 00 AF 11 CA |620......930....|
000009A0: 03 8F 20 2A 2A 20 44 45 4C 45 54 45 20 2A 2A 00 |.. ** DELETE **.|
000009B0: DE 11 D4 03 8B 45 4E B2 30 A7 99 22 93 11 1D 4E |.....EN.0.."...N|
000009C0: 4F 20 44 41 54 41 20 49 4E 20 53 54 4F 52 45 22 |O DATA IN STORE"|
000009D0: 3A 81 4D B2 31 A4 31 30 30 30 3A 82 3A 8E 00 17 |:.M.1.1000:.:...|
000009E0: 12 DE 03 99 22 93 11 1D 54 4F 20 44 45 4C 45 54 |...."...TO DELET|
000009F0: 45 20 4C 41 53 54 20 45 4E 54 52 59 20 44 41 54 |E LAST ENTRY DAT|
00000A00: 45 44 20 22 3B 44 54 24 28 45 4E 29 3A 41 24 B2 |ED ";DT$(EN):A$.|
00000A10: 44 54 24 28 45 4E 29 00 28 12 E8 03 99 22 54 59 |DT$(EN).(...."TY|
00000A20: 50 45 20 27 44 27 20 22 00 48 12 F2 03 99 22 45 |PE 'D' ".H...."E|
00000A30: 4C 53 45 20 41 4E 59 20 4F 54 48 45 52 20 54 4F |LSE ANY OTHER TO|
00000A40: 20 52 45 54 55 52 4E 22 00 5C 12 FC 03 A1 51 24 | RETURN".\....Q$|
00000A50: 3A 8B 51 24 B2 22 22 A7 31 30 32 30 00 6B 12 06 |:.Q$."".1020.k..|
00000A60: 04 8B 51 24 B3 B1 22 44 22 A7 8E 00 B4 12 10 04 |..Q$.."D".......|
00000A70: 44 54 24 28 45 4E 29 B2 22 22 3A 44 45 42 24 28 |DT$(EN)."":DEB$(|
00000A80: 45 4E 29 B2 22 22 3A 48 44 24 28 45 4E 29 B2 22 |EN)."":HD$(EN)."|
00000A90: 22 3A 43 52 45 24 28 45 4E 29 B2 22 22 3A 48 43 |":CRE$(EN)."":HC|
00000AA0: 24 28 45 4E 29 B2 22 22 3A 42 41 4C 24 28 45 4E |$(EN)."":BAL$(EN|
00000AB0: 29 B2 22 22 00 EC 12 1A 04 45 4E B2 45 4E AB 31 |)."".....EN.EN.1|
00000AC0: 3A 99 22 45 4E 54 52 59 20 44 41 54 45 44 20 22 |:."ENTRY DATED "|
00000AD0: 3B 41 24 3B 22 20 44 45 4C 45 54 45 44 22 3A 81 |;A$;" DELETED":.|
00000AE0: 41 B2 31 A4 31 30 30 30 3A 82 3A 8E 00 00 13 24 |A.1.1000:.:....$|
00000AF0: 04 8F 20 2A 2A 20 44 49 53 50 4C 41 59 20 2A 2A |.. ** DISPLAY **|
00000B00: 00 2F 13 2E 04 8B 45 4E B2 30 A7 99 22 93 11 1D |./....EN.0.."...|
00000B10: 4E 4F 20 44 41 54 41 20 49 4E 20 53 54 4F 52 45 |NO DATA IN STORE|
00000B20: 22 3A 81 51 B2 31 A4 31 30 30 30 3A 82 3A 8E 00 |":.Q.1.1000:.:..|
00000B30: 38 13 38 04 99 22 93 22 00 42 13 42 04 8D 31 32 |8.8..".".B.B..12|
00000B40: 39 30 00 58 13 4C 04 41 B2 30 3A 81 58 B2 31 A4 |90.X.L.A.0:.X.1.|
00000B50: 45 4E 3A 41 B2 41 AA 31 00 62 13 56 04 99 22 DD |EN:A.A.1.b.V..".|
00000B60: 22 3B 00 72 13 60 04 99 A3 31 29 44 54 24 28 58 |";.r.`...1)DT$(X|
00000B70: 29 3B 00 7F 13 6A 04 99 A3 36 29 22 DD 22 3B 00 |);...j...6)".";.|
00000B80: A8 13 74 04 8B 44 45 42 24 28 58 29 B3 B1 22 2A |..t..DEB$(X).."*|
00000B90: 22 A7 99 A3 36 29 22 1C 44 22 3B 3A 99 A3 39 29 |"...6)".D";:..9)|
00000BA0: 44 45 42 24 28 58 29 3B 00 D1 13 7E 04 8B 43 52 |DEB$(X);...~..CR|
00000BB0: 45 24 28 58 29 B3 B1 22 2A 22 A7 99 A3 36 29 22 |E$(X).."*"...6)"|
00000BC0: 90 43 22 3B 3A 99 A3 39 29 43 52 45 24 28 58 29 |.C";:..9)CRE$(X)|
00000BD0: 3B 00 E0 13 88 04 99 A3 31 35 29 22 1F DD 22 3B |;.......15)"..";|
00000BE0: 00 FF 13 92 04 8B 44 45 42 24 28 58 29 B3 B1 22 |......DEB$(X).."|
00000BF0: 2A 22 A7 99 A3 31 36 29 48 44 24 28 58 29 3B 00 |*"...16)HD$(X);.|
00000C00: 1E 14 9C 04 8B 43 52 45 24 28 58 29 B3 B1 22 2A |.....CRE$(X).."*|
00000C10: 22 A7 99 A3 31 36 29 48 43 24 28 58 29 3B 00 2C |"...16)HC$(X);.,|
00000C20: 14 A6 04 99 A3 33 30 29 22 DD 22 3B 00 52 14 B0 |.....30)".";.R..|
00000C30: 04 8B 28 C5 28 42 41 4C 24 28 58 29 29 29 B1 30 |..(.(BAL$(X))).0|
00000C40: A7 99 A3 33 31 29 22 90 22 3B 42 41 4C 24 28 58 |...31)".";BAL$(X|
00000C50: 29 3B 00 79 14 BA 04 8B 28 C5 28 42 41 4C 24 28 |);.y....(.(BAL$(|
00000C60: 58 29 29 29 B3 B2 30 A7 99 A3 33 31 29 22 1C 22 |X)))..0...31)"."|
00000C70: 3B 42 41 4C 24 28 58 29 3B 00 87 14 C4 04 99 A3 |;BAL$(X);.......|
00000C80: 33 38 29 22 1F DD 22 00 C6 14 CE 04 8B 41 B2 31 |38)".."......A.1|
00000C90: 39 A7 41 B2 30 3A 99 22 AD C0 C0 C0 C0 C0 B1 C0 |9.A.0:."........|
00000CA0: C0 C0 C0 C0 C0 C0 C0 B1 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000CB0: C0 C0 C0 C0 C0 C0 B1 C0 C0 C0 C0 C0 C0 C0 BD 22 |..............."|
00000CC0: 3A 8D 31 32 38 30 00 CC 14 D8 04 82 00 FB 14 E2 |:.1280..........|
00000CD0: 04 99 22 AD C0 C0 C0 C0 C0 B1 C0 C0 C0 C0 C0 C0 |..".............|
00000CE0: C0 C0 B1 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000CF0: C0 B1 C0 C0 C0 C0 C0 C0 C0 BD 22 00 0F 15 EC 04 |..........".....|
00000D00: A1 51 24 3A 8B 51 24 B2 22 22 A7 31 32 36 30 00 |.Q$:.Q$."".1260.|
00000D10: 15 15 F6 04 8E 00 29 15 00 05 A1 51 24 3A 8B 51 |......)....Q$:.Q|
00000D20: 24 B2 22 22 A7 31 32 38 30 00 58 15 0A 05 99 22 |$."".1280.X...."|
00000D30: B0 C0 C0 C0 C0 C0 B2 C0 C0 C0 C0 C0 C0 C0 C0 B2 |................|
00000D40: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 B2 C0 |................|
00000D50: C0 C0 C0 C0 C0 C0 AE 22 00 87 15 14 05 99 22 DD |......."......".|
00000D60: 44 41 54 45 20 DD 41 4D 4F 55 4E 54 20 20 DD 48 |DATE .AMOUNT .H|
00000D70: 4F 57 20 4D 41 44 45 20 20 20 20 20 20 DD 42 41 |OW MADE .BA|
00000D80: 4C 41 4E 43 45 DD 22 00 B6 15 1E 05 99 22 DD 20 |LANCE."......". |
00000D90: 20 20 20 20 DD 43 2F 44 20 20 20 20 20 DD 20 20 | .C/D . |
00000DA0: 20 20 20 20 20 20 20 20 20 20 20 20 DD 20 20 20 | . |
00000DB0: 20 20 20 20 DD 22 00 E7 15 28 05 99 22 AB C0 C0 | ."...(.."...|
00000DC0: C0 C0 C0 DB C0 C0 C0 C0 C0 C0 C0 C0 DB C0 C0 C0 |................|
00000DD0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 DB C0 C0 C0 C0 |................|
00000DE0: C0 C0 C0 B3 22 3A 8E 00 FD 15 32 05 8F 20 2A 2A |....":....2.. **|
00000DF0: 20 52 45 41 44 20 44 41 54 41 20 2A 2A 00 2C 16 | READ DATA **.,.|
00000E00: 3C 05 85 22 93 11 1D 41 52 45 20 59 4F 55 20 55 |<.."...ARE YOU U|
00000E10: 53 49 4E 47 20 44 49 53 4B 28 44 29 20 4F 52 20 |SING DISK(D) OR |
00000E20: 54 41 50 45 28 54 29 22 3B 4F 50 24 00 42 16 46 |TAPE(T)";OP$.B.F|
00000E30: 05 8B 20 4F 50 24 B2 22 44 22 A7 20 89 20 31 33 |.. OP$."D". . 13|
00000E40: 38 30 00 55 16 50 05 8B 4F 50 24 B2 22 54 22 A7 |80.U.P..OP$."T".|
00000E50: 20 31 34 39 30 00 5F 16 5A 05 89 31 33 33 30 00 | 1490._.Z..1330.|
00000E60: 7E 16 64 05 99 22 49 4E 50 55 54 20 53 54 41 54 |~.d.."INPUT STAT|
00000E70: 45 4D 45 4E 54 20 43 4F 44 45 20 20 22 3B 00 8F |EMENT CODE ";..|
00000E80: 16 6E 05 8D 32 35 38 30 3A 4D 24 B2 41 41 24 00 |.n..2580:M$.AA$.|
00000E90: AA 16 78 05 9F 20 32 2C 38 2C 32 2C 43 4F 24 AA |..x.. 2,8,2,CO$.|
00000EA0: 4D 24 AA 22 53 45 51 2C 52 22 00 B4 16 82 05 84 |M$."SEQ,R"......|
00000EB0: 32 2C 45 4E 00 C0 16 8C 05 81 58 B2 31 A4 45 4E |2,EN......X.1.EN|
00000EC0: 00 CE 16 96 05 84 32 2C 44 54 24 28 58 29 00 DD |......2,DT$(X)..|
00000ED0: 16 A0 05 84 32 2C 44 45 42 24 28 58 29 00 EB 16 |....2,DEB$(X)...|
00000EE0: AA 05 84 32 2C 48 44 24 28 58 29 00 FA 16 B4 05 |...2,HD$(X).....|
00000EF0: 84 32 2C 43 52 45 24 28 58 29 00 08 17 BE 05 84 |.2,CRE$(X)......|
00000F00: 32 2C 48 43 24 28 58 29 00 1E 17 C8 05 84 32 2C |2,HC$(X)......2,|
00000F10: 42 41 4C 24 28 58 29 3A 82 3A A0 32 3A 8E 00 24 |BAL$(X):.:.2:..$|
00000F20: 17 D2 05 8F 00 34 17 DC 05 9F 20 32 2C 31 2C 30 |.....4.... 2,1,0|
00000F30: 2C 41 4E 24 00 54 17 E6 05 84 32 2C 4D 24 3A 99 |,AN$.T....2,M$:.|
00000F40: 22 53 54 41 54 45 4D 45 4E 54 20 43 4F 44 45 20 |"STATEMENT CODE |
00000F50: 22 3B 4D 24 00 5E 17 F0 05 84 32 2C 45 4E 00 6A |";M$.^....2,EN.j|
00000F60: 17 FA 05 81 58 B2 31 A4 45 4E 00 78 17 04 06 84 |....X.1.EN.x....|
00000F70: 32 2C 44 54 24 28 58 29 00 87 17 0E 06 84 32 2C |2,DT$(X)......2,|
00000F80: 44 45 42 24 28 58 29 00 95 17 18 06 84 32 2C 48 |DEB$(X)......2,H|
00000F90: 44 24 28 58 29 00 A4 17 22 06 84 32 2C 43 52 45 |D$(X)..."..2,CRE|
00000FA0: 24 28 58 29 00 B2 17 2C 06 84 32 2C 48 43 24 28 |$(X)...,..2,HC$(|
00000FB0: 58 29 00 C1 17 36 06 84 32 2C 42 41 4C 24 28 58 |X)...6..2,BAL$(X|
00000FC0: 29 00 CC 17 40 06 82 3A A0 32 3A 8E 00 E2 17 4A |)...@..:.2:....J|
00000FD0: 06 8F 20 2A 2A 20 53 41 56 45 20 44 41 54 41 20 |.. ** SAVE DATA |
00000FE0: 2A 2A 00 13 18 54 06 8B 20 45 4E B2 30 A7 20 99 |**...T.. EN.0. .|
00000FF0: 22 93 11 1D 4E 4F 20 44 41 54 41 20 49 4E 20 53 |"...NO DATA IN S|
00001000: 54 4F 52 45 22 3A 81 4D B2 31 A4 31 30 30 30 3A |TORE":.M.1.1000:|
00001010: 82 3A 8E 00 42 18 5E 06 85 22 93 11 1D 41 52 45 |.:..B.^.."...ARE|
00001020: 20 59 4F 55 20 55 53 49 4E 47 20 44 49 53 4B 28 | YOU USING DISK(|
00001030: 44 29 20 4F 52 20 54 41 50 45 28 54 29 22 3B 4F |D) OR TAPE(T)";O|
00001040: 50 24 00 55 18 68 06 8B 20 4F 50 24 B2 22 44 22 |P$.U.h.. OP$."D"|
00001050: A7 31 36 37 30 00 67 18 72 06 8B 4F 50 24 B2 22 |.1670.g.r..OP$."|
00001060: 54 22 A7 31 38 32 30 00 71 18 7C 06 89 31 36 33 |T".1820.q.|..163|
00001070: 30 00 90 18 86 06 99 22 49 4E 50 55 54 20 53 54 |0......"INPUT ST|
00001080: 41 54 45 4D 45 4E 54 20 43 4F 44 45 20 20 22 3B |ATEMENT CODE ";|
00001090: 00 A1 18 90 06 8D 32 35 38 30 3A 4D 24 B2 41 41 |......2580:M$.AA|
000010A0: 24 00 B6 18 9A 06 99 22 41 52 45 20 59 4F 55 20 |$......"ARE YOU |
000010B0: 53 55 52 45 22 3B 00 CA 18 A4 06 A1 51 24 3A 8B |SURE";......Q$:.|
000010C0: 51 24 B2 22 22 A7 31 37 30 30 00 D9 18 AE 06 8B |Q$."".1700......|
000010D0: 51 24 B3 B1 22 59 22 A7 8E 00 F9 18 B8 06 9F 32 |Q$.."Y"........2|
000010E0: 2C 38 2C 32 2C 22 40 30 3A 22 AA 43 4F 24 AA 4D |,8,2,"@0:".CO$.M|
000010F0: 24 AA 22 53 45 51 2C 57 22 00 03 19 C2 06 98 32 |$."SEQ,W"......2|
00001100: 2C 45 4E 00 0F 19 CC 06 81 58 B2 31 A4 45 4E 00 |,EN......X.1.EN.|
00001110: 1D 19 D6 06 98 32 2C 44 54 24 28 58 29 00 2C 19 |.....2,DT$(X).,.|
00001120: E0 06 98 32 2C 44 45 42 24 28 58 29 00 3A 19 EA |...2,DEB$(X).:..|
00001130: 06 98 32 2C 48 44 24 28 58 29 00 49 19 F4 06 98 |..2,HD$(X).I....|
00001140: 32 2C 43 52 45 24 28 58 29 00 57 19 FE 06 98 32 |2,CRE$(X).W....2|
00001150: 2C 48 43 24 28 58 29 00 66 19 08 07 98 32 2C 42 |,HC$(X).f....2,B|
00001160: 41 4C 24 28 58 29 00 71 19 12 07 82 3A A0 32 3A |AL$(X).q....:.2:|
00001170: 8E 00 90 19 1C 07 99 22 49 4E 50 55 54 20 53 54 |......."INPUT ST|
00001180: 41 54 45 4D 45 4E 54 20 43 4F 44 45 20 20 22 3B |ATEMENT CODE ";|
00001190: 00 A1 19 26 07 8D 32 35 38 30 3A 4D 24 B2 41 41 |...&..2580:M$.AA|
000011A0: 24 00 B1 19 30 07 9F 20 32 2C 31 2C 31 2C 41 4E |$...0.. 2,1,1,AN|
000011B0: 24 00 BC 19 3A 07 98 32 2C 4D 53 24 00 C6 19 44 |$...:..2,MS$...D|
000011C0: 07 98 32 2C 45 4E 00 D2 19 4E 07 81 58 B2 31 A4 |..2,EN...N..X.1.|
000011D0: 45 4E 00 E0 19 58 07 98 32 2C 44 54 24 28 58 29 |EN...X..2,DT$(X)|
000011E0: 00 EF 19 62 07 98 32 2C 44 45 42 24 28 58 29 00 |...b..2,DEB$(X).|
000011F0: FD 19 6C 07 98 32 2C 48 44 24 28 58 29 00 0C 1A |..l..2,HD$(X)...|
00001200: 76 07 98 32 2C 43 52 45 24 28 58 29 00 1A 1A 80 |v..2,CRE$(X)....|
00001210: 07 98 32 2C 48 43 24 28 58 29 00 29 1A 8A 07 98 |..2,HC$(X).)....|
00001220: 32 2C 42 41 4C 24 28 58 29 00 34 1A 94 07 82 3A |2,BAL$(X).4....:|
00001230: A0 32 3A 8E 00 48 1A 9E 07 8F 20 2A 2A 20 50 52 |.2:..H.... ** PR|
00001240: 49 4E 54 45 52 20 2A 2A 00 77 1A A8 07 8B 45 4E |INTER **.w....EN|
00001250: B2 30 A7 99 22 93 11 1D 4E 4F 20 44 41 54 41 20 |.0.."...NO DATA |
00001260: 49 4E 20 53 54 4F 52 45 22 3A 81 51 B2 31 A4 31 |IN STORE":.Q.1.1|
00001270: 30 30 30 3A 82 3A 8E 00 80 1A B2 07 99 22 93 22 |000:.:......."."|
00001280: 00 A7 1A BC 07 99 22 11 1D 48 41 56 45 20 59 4F |......"..HAVE YO|
00001290: 55 20 53 41 56 45 44 20 54 48 45 20 46 49 4C 45 |U SAVED THE FILE|
000012A0: 20 46 49 52 53 54 22 00 BB 1A C6 07 A1 51 24 3A | FIRST"......Q$:|
000012B0: 8B 51 24 B2 22 22 A7 31 39 39 30 00 C9 1A D0 07 |.Q$."".1990.....|
000012C0: 8B 51 24 B2 22 4E 22 A7 8E 00 E6 1A DA 07 99 22 |.Q$."N"........"|
000012D0: 93 11 1D 50 52 49 4E 54 49 4E 47 20 48 41 52 44 |...PRINTING HARD|
000012E0: 20 43 4F 50 59 22 00 01 1B E4 07 99 22 1D B7 B7 | COPY"......"...|
000012F0: B7 B7 B7 B7 B7 B7 A0 B7 B7 B7 B7 20 B7 B7 B7 B7 |........... ....|
00001300: 22 00 0A 1B EE 07 9F 34 2C 34 00 1A 1B F8 07 98 |"......4,4......|
00001310: 34 2C C7 28 31 34 29 57 42 24 00 2A 1B 02 08 98 |4,.(14)WB$.*....|
00001320: 34 2C C7 28 31 34 29 57 4C 24 00 31 1B 0C 08 98 |4,.(14)WL$.1....|
00001330: 34 00 41 1B 16 08 98 34 2C C7 28 31 34 29 41 4E |4.A....4,.(14)AN|
00001340: 24 00 4E 1B 20 08 98 34 2C C7 28 31 30 29 00 58 |$.N. ..4,.(10).X|
00001350: 1B 2A 08 89 32 32 39 30 00 67 1B 34 08 98 34 2C |.*..2290.g.4..4,|
00001360: C7 28 38 29 43 24 3B 00 79 1B 3E 08 98 34 2C C7 |.(8)C$;.y.>..4,.|
00001370: 28 31 35 29 45 24 AA 41 24 00 84 1B 48 08 98 34 |(15)E$.A$...H..4|
00001380: 2C 42 24 3B 00 9B 1B 52 08 98 34 2C C7 28 38 29 |,B$;...R..4,.(8)|
00001390: 44 24 3A 98 34 2C C7 28 31 35 29 00 A8 1B 5C 08 |D$:.4,.(15)...\.|
000013A0: 98 34 2C C7 28 31 35 29 00 B3 1B 66 08 98 34 2C |.4,.(15)...f..4,|
000013B0: 46 24 3B 00 BD 1B 70 08 98 34 2C 4D 24 00 CA 1B |F$;...p..4,M$...|
000013C0: 7A 08 98 34 2C C7 28 31 30 29 00 06 1C 84 08 98 |z..4,.(10)......|
000013D0: 34 2C 22 20 20 44 41 54 45 20 20 20 41 4D 4F 55 |4," DATE AMOU|
000013E0: 4E 54 20 20 20 20 20 20 20 44 45 53 43 52 49 50 |NT DESCRIP|
000013F0: 54 49 4F 4E 20 20 20 20 20 20 20 20 20 20 42 41 |TION BA|
00001400: 4C 41 4E 43 45 22 00 42 1C 8E 08 98 34 2C 22 20 |LANCE".B....4," |
00001410: 20 20 20 20 20 20 20 20 43 52 45 44 49 54 2F 44 | CREDIT/D|
00001420: 45 42 49 54 20 20 20 20 20 20 20 20 20 20 20 20 |EBIT |
00001430: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001440: 20 22 00 49 1C 98 08 98 34 00 55 1C A2 08 81 53 | ".I....4.U....S|
00001450: B2 31 A4 45 4E 00 6E 1C AC 08 98 34 2C C7 28 31 |.1.EN.n....4,.(1|
00001460: 36 29 22 30 32 22 AA 44 54 24 28 53 29 3B 00 9C |6)"02".DT$(S);..|
00001470: 1C B6 08 8B 43 52 45 24 28 53 29 B2 22 2A 22 A7 |....CRE$(S)."*".|
00001480: 98 34 2C C7 28 31 36 29 22 31 30 22 AA 22 44 45 |.4,.(16)"10"."DE|
00001490: 42 20 22 AA 44 45 42 24 28 53 29 3B 00 CA 1C C0 |B ".DEB$(S);....|
000014A0: 08 8B 44 45 42 24 28 53 29 B2 22 2A 22 A7 98 34 |..DEB$(S)."*"..4|
000014B0: 2C C7 28 31 36 29 22 31 30 22 AA 22 43 52 45 20 |,.(16)"10"."CRE |
000014C0: 22 AA 43 52 45 24 28 53 29 3B 00 F0 1C CA 08 8B |".CRE$(S);......|
000014D0: 43 52 45 24 28 53 29 B2 22 2A 22 A7 98 34 2C C7 |CRE$(S)."*"..4,.|
000014E0: 28 31 36 29 22 32 33 22 AA 48 44 24 28 53 29 3B |(16)"23".HD$(S);|
000014F0: 00 16 1D D4 08 8B 44 45 42 24 28 53 29 B2 22 2A |......DEB$(S)."*|
00001500: 22 A7 98 34 2C C7 28 31 36 29 22 32 33 22 AA 48 |"..4,.(16)"23".H|
00001510: 43 24 28 53 29 3B 00 2F 1D DE 08 98 34 2C C7 28 |C$(S);./....4,.(|
00001520: 31 36 29 22 34 34 22 AA 42 41 4C 24 28 53 29 00 |16)"44".BAL$(S).|
00001530: 3B 1D E8 08 82 53 3A A0 34 3A 8E 00 59 1D F2 08 |;....S:.4:..Y...|
00001540: 83 20 31 35 36 2C 31 36 32 2C 31 39 33 2C 31 39 |. 156,162,193,19|
00001550: 33 2C 31 38 32 2C 31 36 32 00 5F 1D FC 08 8C 00 |3,182,162._.....|
00001560: 7B 1D 06 09 81 49 B2 31 A4 36 3A 87 41 3A 43 24 |{....I.1.6:.A:C$|
00001570: B2 43 24 AA C7 28 41 29 3A 82 49 00 8E 1D 10 09 |.C$..(A):.I.....|
00001580: 42 24 B2 22 20 20 22 3A 45 24 B2 22 20 22 00 AC |B$." ":E$." "..|
00001590: 1D 1A 09 83 20 31 38 34 2C 31 39 36 2C 32 30 32 |.... 184,196,202|
000015A0: 2C 31 38 39 2C 31 33 38 2C 32 35 32 00 C8 1D 24 |,189,138,252...$|
000015B0: 09 81 49 B2 31 A4 36 3A 87 41 3A 44 24 B2 44 24 |..I.1.6:.A:D$.D$|
000015C0: AA C7 28 41 29 3A 82 49 00 DA 1D 2E 09 41 24 B2 |..(A):.I.....A$.|
000015D0: 22 4F 4D 4D 4F 44 4F 52 45 22 00 F5 1D 38 09 46 |"OMMODORE"...8.F|
000015E0: 24 B2 22 53 54 41 54 45 4D 45 4E 54 20 4E 55 4D |$."STATEMENT NUM|
000015F0: 42 45 52 20 22 00 FF 1D 42 09 89 32 31 30 30 00 |BER "...B..2100.|
00001600: 1C 1E 4C 09 8F 20 2A 2A 20 44 49 53 4B 20 45 52 |..L.. ** DISK ER|
00001610: 52 4F 52 20 43 48 45 43 4B 20 2A 2A 00 29 1E 56 |ROR CHECK **.).V|
00001620: 09 9F 31 35 2C 38 2C 31 35 00 3D 1E 60 09 84 31 |..15,8,15.=.`..1|
00001630: 35 2C 41 24 2C 42 24 2C 43 24 2C 44 24 00 49 1E |5,A$,B$,C$,D$.I.|
00001640: 6A 09 98 31 35 2C 22 49 22 00 54 1E 74 09 99 22 |j..15,"I".T.t.."|
00001650: 93 11 11 22 00 69 1E 7E 09 99 41 24 2C 42 24 2C |...".i.~..A$,B$,|
00001660: 43 24 2C 44 24 3A A0 31 35 00 85 1E 88 09 99 22 |C$,D$:.15......"|
00001670: 11 11 54 59 50 45 20 27 52 27 20 54 4F 20 52 45 |..TYPE 'R' TO RE|
00001680: 54 55 52 4E 22 00 99 1E 92 09 A1 51 24 3A 8B 51 |TURN"......Q$:.Q|
00001690: 24 B2 22 22 A7 32 34 35 30 00 A7 1E 9C 09 8B 51 |$."".2450......Q|
000016A0: 24 B2 22 52 22 A7 8E 00 B1 1E A6 09 89 32 34 35 |$."R"........245|
000016B0: 30 00 C3 1E B0 09 8F 20 2A 2A 20 43 4C 45 41 52 |0...... ** CLEAR|
000016C0: 20 2A 2A 00 E1 1E BA 09 99 22 93 11 1D 54 4F 20 | **......"...TO |
000016D0: 44 45 53 54 52 4F 59 20 41 4C 4C 20 44 41 54 41 |DESTROY ALL DATA|
000016E0: 22 00 F2 1E C4 09 99 22 54 59 50 45 20 27 44 27 |"......"TYPE 'D'|
000016F0: 20 22 00 0C 1F CE 09 99 22 45 4C 53 45 20 41 4E | "......"ELSE AN|
00001700: 59 20 4F 54 48 45 52 20 4B 45 59 22 00 20 1F D8 |Y OTHER KEY". ..|
00001710: 09 A1 51 24 3A 8B 51 24 B2 22 22 A7 32 35 32 30 |..Q$:.Q$."".2520|
00001720: 00 2F 1F E2 09 8B 51 24 B3 B1 22 44 22 A7 8E 00 |./....Q$.."D"...|
00001730: 64 1F EC 09 9C 3A 99 22 41 4C 4C 20 44 41 54 41 |d....:."ALL DATA|
00001740: 20 49 53 20 43 4C 45 41 52 45 44 20 46 52 4F 4D | IS CLEARED FROM|
00001750: 20 4D 45 4D 4F 52 59 22 3A 81 58 B2 31 A4 31 30 | MEMORY":.X.1.10|
00001760: 30 30 3A 82 00 6D 1F F6 09 89 31 35 30 00 7E 1F |00:..m....150.~.|
00001770: 00 0A 8F 20 2A 2A 20 51 55 49 54 20 2A 2A 00 89 |... ** QUIT **..|
00001780: 1F 0A 0A 99 22 93 22 3A 80 00 A0 1F 14 0A 8F 20 |....".":....... |
00001790: 2A 2A 20 52 45 41 44 20 49 4E 50 55 54 20 2A 2A |** READ INPUT **|
000017A0: 00 AB 1F 1E 0A 41 41 24 B2 22 22 00 BF 1F 28 0A |.....AA$.""...(.|
000017B0: A1 41 24 3A 8B 41 24 B2 22 22 A7 32 36 30 30 00 |.A$:.A$."".2600.|
000017C0: D1 1F 32 0A 8B 41 24 B2 C7 28 31 33 29 A7 99 3A |..2..A$..(13)..:|
000017D0: 8E 00 DA 1F 3C 0A 99 41 24 3B 00 EF 1F 46 0A 41 |....<..A$;...F.A|
000017E0: 41 24 B2 41 41 24 AA 41 24 3A 89 32 36 30 30 00 |A$.AA$.A$:.2600.|
000017F0: 00 00 |.. |
....D.. ****************./.N.. ****
****.F.X.. **** BANKER ****.].... ***
* ****.T.... ****************....
.NA$."MR S.S.FARR":.**YOUR NAME**... .BC
$."00-00-00":.**BANK CODE**.....CN$."000
000000":.**CHEQUE CARD NO.*.....AN$."000
00000":.**ACCOUNT NUMBER**.-...WB$."BANK
NAME":.**BANK NAME**.Q.H.WL$."EEEE EEEE
":.**UNDER LINE**.X.R.HM.40:.**NO. OF EN
TRIES PER FILE**.....CO$.(H(AN$,3)):.**D
O NOT ALTER*...... DT$(HM)...... DEB$(HM
).G.... HD$(HM).V.... CRE$(HM)...... HC$
(HM)...... BAL$(HM)..."..400...,.. ** OP
TIONS **./.6.."....VALID OPTIONS ARE:-".
I.@..".EEEEE EEEEEEE EEE"...J.."1 INPUT
DATA":."2 DELETE LAST ENTRY":."3 DISPLAY
DATA"...T.."4 LOAD DATA":."5 SAVE DATA"
:."6 PRINT DATA"...^.."7 READ DISK STATU
S":."8 CLEAR ALL DATA":."9 QUIT PROGRAM"
...H..OP$:.OP$."".360.(.R.. OP$."1". OP$
."9".360.D.|.. (E(OP$)) . 620,970,1060,1
330,1610,1950,2380,2480,2560.M....300...
... ** TITLES **......53280,7:.53281,7:.
"..".L...."..U..........................
..........I"......X.1.22:."..
.".......8.B.."
.J....................................K"
.J.L.."......";WB$.Y.V.."...";WL$.Z...."
.........................". ....".......
...............FARR ...".F....".........
.............SOFT ..."......"...........
...........WARE ..."......".............
............"......".....";NA$.F...."...
..CODE NUMBER CARD NUMBER".F.&.."...
...";BC$;".......";CN$...0...9)"...CURRE
NT ACCOUNT"...:...9)"EEEEEEE EEEEEEE"...
D.."....ACCOUNT NUMBER".H.N..".... ";AN$
...X...27)"..PROD. 1986"...B..X.1.5000:.
:....L.. ** ADD **.1.V.. EN.(HM.1).."...
ARRAY FULL":.X.1.1000:.:..V...L.0:EN.EN.
1:."..DATE ";.L....2580:DT$(EN)
.AA$......"DEBIT AMOUNT ";......2580:DE
B$(EN).AA$:.DEB$(EN)."".L.1.M....L.1.DEB
$(EN)."*":HD$(EN)."*".Z....L.1.740......
"INPUT HOW WAS THE DEBIT WAS MADE"...F..
.14);:.2580.#.P.HD$(EN).AA$.E.Z.CRE$(EN)
."*":HC$(EN)."*":.800.\...."CREDIT AMOUN
T ";......2580:CRE$(EN).AA$:.CRE$(EN).""
.L.2......L.2.CRE$(EN)."*":HC$(EN)."*".O
...."INPUT HOW WAS THE CREDIT WAS MADE".
......14);:.2580.....HC$(EN).AA$.!. .. E
N.1 . ."BALANCE TO CARRY FORWARD";BAL$(0
).C.*..EN.1...14):.2580:BAL$(0).AA$.`.4.
. BAL$(0)."".BAL$(0)."0".R.>.. L . 870,8
40...H.T.(E(BAL$(EN.1))).(E(DEB$(EN)))..
.R.BAL$(EN).D((.(T.100..5)).100).A.\..90
0...F.T.(E(BAL$(EN.1))).(E(CRE$(EN)))...
P.BAL$(EN).D((.(T.100..5)).100)...Z..900
.......=...."TYPE 'O' TO RETURN MAIN OPT
IONS".A....".....'C' TO CONT THIS OPTION
".T....Q$:.Q$."".930......Q$."O". ......
.Q$."C".620......930...J.. ** DELETE **.
..T..EN.0.."...NO DATA IN STORE":.M.1.10
00:.:......."...TO DELETE LAST ENTRY DAT
ED ";DT$(EN):A$.DT$(EN).(...."TYPE 'D' "
.H...."ELSE ANY OTHER TO RETURN".\....Q$
:.Q$."".1020.K....Q$.."D".......DT$(EN).
"":DEB$(EN)."":HD$(EN)."":CRE$(EN)."":HC
$(EN)."":BAL$(EN)."".....EN.EN.1:."ENTRY
DATED ";A$;" DELETED":.A.1.1000:.:....$
.. ** DISPLAY **./....EN.0.."...NO DATA
IN STORE":.Q.1.1000:.:..8.8..".".B.B..12
90.X.L.A.0:.X.1.EN:A.A.1.B.V..".";.R.`..
.1)DT$(X);..J...6)".";...T..DEB$(X).."*
"...6)".D";:..9)DEB$(X);.Q.~..CRE$(X).."
*"...6)".C";:..9)CRE$(X);.......15)"..";
......DEB$(X).."*"...16)HD$(X);......CRE
$(X).."*"...16)HC$(X);.,.....30)".";.R..
..(E(BAL$(X))).0...31)".";BAL$(X);.Y....
(E(BAL$(X)))..0...31)".";BAL$(X);...D...
38)"..".F.N..A.19.A.0:."................
.......................":.1280.L.X......
..".....................................
.."......Q$:.Q$."".1260.......)....Q$:.Q
$."".1280.X...."........................
..............."......".DATE .AMOUNT .H
OW MADE .BALANCE."......". .C/D
. . ."...(.."...
....................................":..
..2.. ** READ DATA **.,.<.."...ARE YOU U
SING DISK(D) OR TAPE(T)";OP$.B.F.. OP$."
D". . 1380.U.P..OP$."T". 1490._.Z..1330.
~.D.."INPUT STATEMENT CODE ";...N..2580
:M$.AA$...X.. 2,8,2,CO$.M$."SEQ,R"......
2,EN......X.1.EN.N....2,DT$(X)... ..2,DE
B$(X)......2,HD$(X)......2,CRE$(X)......
2,HC$(X)...H..2,BAL$(X):.: 2:..$.R...4..
.. 2,1,0,AN$.T....2,M$:."STATEMENT CODE
";M$.^....2,EN.J....X.1.EN.X....2,DT$(X)
......2,DEB$(X)......2,HD$(X)..."..2,CRE
$(X)...,..2,HC$(X).A.6..2,BAL$(X).L.@..:
2:....J.. ** SAVE DATA **...T.. EN.0. .
"...NO DATA IN STORE":.M.1.1000:.:..B.^.
."...ARE YOU USING DISK(D) OR TAPE(T)";O
P$.U.H.. OP$."D".1670.G.R..OP$."T".1820.
Q.|..1630......"INPUT STATEMENT CODE ";
......2580:M$.AA$......"ARE YOU SURE";.J
....Q$:.Q$."".1700.Y....Q$.."Y"........2
,8,2,"@0:".CO$.M$."SEQ,W"...B..2,EN...L.
.X.1.EN...V..2,DT$(X).,....2,DEB$(X).:..
..2,HD$(X).I....2,CRE$(X).W....2,HC$(X).
F....2,BAL$(X).Q....: 2:......."INPUT ST
ATEMENT CODE ";...&..2580:M$.AA$...0..
2,1,1,AN$...:..2,MS$.F.D..2,EN.R.N..X.1.
EN...X..2,DT$(X)...B..2,DEB$(X)...L..2,H
D$(X)...V..2,CRE$(X)......2,HC$(X).)....
2,BAL$(X).4....: 2:..H.... ** PRINTER **
.W....EN.0.."...NO DATA IN STORE":.Q.1.1
000:.:......."."......"..HAVE YOU SAVED
THE FILE FIRST"...F..Q$:.Q$."".1990.I.P.
.Q$."N".....Z.."...PRINTING HARD COPY"..
...."......... .... ...."......4,4......
4,G(14)WB$.*....4,G(14)WL$.1....4.A....4
,G(14)AN$.N. ..4,G(10).X.*..2290.G.4..4,
G(8)C$;.Y.>..4,G(15)E$.A$...H..4,B$;...R
..4,G(8)D$:.4,G(15)...\..4,G(15)...F..4,
F$;...P..4,M$.J.Z..4,G(10)......4," DAT
E AMOUNT DESCRIPTION BA
LANCE".B....4," CREDIT/DEBIT
".I....4.U....S
.1.EN.N....4,G(16)"02".DT$(S);......CRE$
(S)."*"..4,G(16)"10"."DEB ".DEB$(S);.J..
..DEB$(S)."*"..4,G(16)"10"."CRE ".CRE$(S
);...J..CRE$(S)."*"..4,G(16)"23".HD$(S);
...T..DEB$(S)."*"..4,G(16)"23".HC$(S);./
....4,G(16)"44".BAL$(S).;....S: 4:..Y...
. 156,162,193,193,182,162._.....{....I.1
.6:.A:C$.C$.G(A):.I.....B$." ":E$." "..
.... 184,196,202,189,138,252.H.$..I.1.6:
.A:D$.D$.G(A):.I.Z...A$."OMMODORE"...8.F
$."STATEMENT NUMBER "...B..2100...L.. **
DISK ERROR CHECK **.).V..15,8,15.=.`..1
5,A$,B$,C$,D$.I.J..15,"I".T.T.."...".I.~
..A$,B$,C$,D$: 15......"..TYPE 'R' TO RE
TURN"......Q$:.Q$."".2450......Q$."R"...
.....2450.C.... ** CLEAR **......"...TO
DESTROY ALL DATA"...D.."TYPE 'D' "...N..
"ELSE ANY OTHER KEY". .X..Q$:.Q$."".2520
./....Q$.."D"...D....:."ALL DATA IS CLEA
RED FROM MEMORY":.X.1.1000:..M....150.~.
... ** QUIT **......".":.. .... ** READ
INPUT **.....AA$.""...(..A$:.A$."".2600.
Q.2..A$.G(13)..:..Z.<..A$;...F.AA$.AA$.A
$:.2600...
> CLICK IMAGE PREVIEW FOR FULL MODAL