CHECKBOOK

00000000: 01 08 3B 08 64 00 86 52  45 24 28 39 39 29 3A 52  |..;.d..RE$(99):R|
00000010: 44 B2 30 3A 53 50 24 B2  22 20 22 3A 81 4B B2 31  |D.0:SP$." ":.K.1|
00000020: A4 33 38 3A 53 50 24 B2  53 50 24 AA 22 20 22 3A  |.38:SP$.SP$." ":|
00000030: 82 3A 45 43 24 B2 22 5A  5A 5A 5A 00 5D 08 69 00  |.:EC$."ZZZZ.].i.|
00000040: 48 4B 24 B2 22 20 48 49  54 20 41 4E 59 20 4B 45  |HK$." HIT ANY KE|
00000050: 59 20 54 4F 20 43 4F 4E  54 49 4E 55 45 00 82 08  |Y TO CONTINUE...|
00000060: 6E 00 99 22 93 22 3A 99  3A 99 3A 99 A3 39 29 22  |n..".":.:.:..9)"|
00000070: 43 48 45 43 4B 42 4F 4F  4B 20 53 45 4C 45 43 54  |CHECKBOOK SELECT|
00000080: 4F 52 00 BD 08 78 00 99  3A 99 A3 39 29 22 31 2E  |OR...x..:..9)"1.|
00000090: 20 52 45 41 44 20 44 41  54 41 20 54 41 50 45 22  | READ DATA TAPE"|
000000A0: 3A 99 3A 99 A3 39 29 22  32 2E 20 45 4E 54 45 52  |:.:..9)"2. ENTER|
000000B0: 20 54 52 41 4E 53 41 43  54 49 4F 4E 53 00 F4 08  | TRANSACTIONS...|
000000C0: 82 00 99 3A 99 A3 39 29  22 33 2E 20 43 48 41 4E  |...:..9)"3. CHAN|
000000D0: 47 45 2F 44 45 4C 45 54  45 22 3A 99 3A 99 A3 39  |GE/DELETE":.:..9|
000000E0: 29 22 34 2E 20 57 52 49  54 45 20 44 41 54 41 20  |)"4. WRITE DATA |
000000F0: 54 41 50 45 00 2E 09 8C  00 99 3A 99 A3 39 29 22  |TAPE......:..9)"|
00000100: 35 2E 20 4C 49 53 54 20  54 52 41 4E 53 41 43 54  |5. LIST TRANSACT|
00000110: 49 4F 4E 53 22 3A 99 3A  99 A3 39 29 22 36 2E 20  |IONS":.:..9)"6. |
00000120: 52 45 43 4F 4E 43 49 4C  49 41 54 49 4F 4E 00 40  |RECONCILIATION.@|
00000130: 09 96 00 99 3A 99 A3 39  29 22 37 2E 20 45 4E 44  |....:..9)"7. END|
00000140: 00 63 09 C8 00 58 B2 31  32 3A 59 B2 32 31 3A 4D  |.c...X.12:Y.21:M|
00000150: 53 24 B2 22 4C 49 4E 45  20 4E 4F 2E 22 3A 8D 38  |S$."LINE NO.":.8|
00000160: 30 30 30 00 83 09 D2 00  43 48 24 B2 C8 28 56 41  |000.....CH$..(VA|
00000170: 24 2C 31 29 3A 8B 43 48  24 B2 22 31 22 A7 8D 31  |$,1):.CH$."1"..1|
00000180: 30 30 30 00 96 09 DC 00  8B 43 48 24 B2 22 32 22  |000......CH$."2"|
00000190: A7 8D 32 30 30 30 00 A9  09 E6 00 8B 43 48 24 B2  |..2000......CH$.|
000001A0: 22 33 22 A7 8D 33 30 30  30 00 BC 09 F0 00 8B 43  |"3"..3000......C|
000001B0: 48 24 B2 22 34 22 A7 8D  34 30 30 30 00 CF 09 FA  |H$."4"..4000....|
000001C0: 00 8B 43 48 24 B2 22 35  22 A7 8D 35 30 30 30 00  |..CH$."5"..5000.|
000001D0: E2 09 04 01 8B 43 48 24  B2 22 36 22 A7 8D 36 30  |.....CH$."6"..60|
000001E0: 30 30 00 F1 09 09 01 8B  43 48 24 B2 22 37 22 A7  |00......CH$."7".|
000001F0: 80 00 FA 09 0E 01 89 31  31 30 00 13 0A 6C 02 22  |.......110...l."|
00000200: 9D 9D 20 20 20 20 20 24  3D 22 22 47 4F 54 4F 36  |..     $=""GOTO6|
00000210: 31 32 30 00 46 0A E8 03  99 22 93 22 3A 9F 31 2C  |120.F....".":.1,|
00000220: 31 2C 30 3A 99 3A 99 22  46 49 52 53 54 20 4F 52  |1,0:.:."FIRST OR|
00000230: 20 4F 4E 4C 59 20 54 41  50 45 20 28 59 2F 4E 29  | ONLY TAPE (Y/N)|
00000240: 22 3B 3A 85 41 24 00 57  0A F2 03 8B 41 24 B2 22  |";:.A$.W....A$."|
00000250: 59 22 A7 49 42 B2 31 00  77 0A FC 03 81 49 B2 49  |Y".IB.1.w....I.I|
00000260: 42 A4 39 39 3A 84 31 2C  52 24 3A 8B 52 24 B2 45  |B.99:.1,R$:.R$.E|
00000270: 43 24 89 31 30 33 35 00  88 0A 06 04 52 45 24 28  |C$.1035.....RE$(|
00000280: 49 29 B2 52 24 3A 82 49  00 9E 0A 0B 04 49 42 B2  |I).R$:.I.....IB.|
00000290: 49 3A 8B 41 24 B2 22 59  22 89 31 30 34 30 00 CF  |I:.A$."Y".1040..|
000002A0: 0A 0C 04 84 31 2C 57 42  24 3A 57 42 B2 C5 28 57  |....1,WB$:WB..(W|
000002B0: 42 24 29 3A 44 46 B2 52  42 AB 57 42 3A 42 41 B2  |B$):DF.RB.WB:BA.|
000002C0: 42 41 AB 44 46 3A 42 41  24 B2 C4 28 42 41 29 00  |BA.DF:BA$..(BA).|
000002D0: FA 0A 0D 04 81 4B B2 31  A4 33 3A 84 31 2C 52 24  |.....K.1.3:.1,R$|
000002E0: 3A 82 4B 3A 84 31 2C 52  42 24 3A 52 42 B2 C5 28  |:.K:.1,RB$:RB..(|
000002F0: 52 42 24 29 3A 89 31 30  36 30 00 21 0B 10 04 84  |RB$):.1060.!....|
00000300: 31 2C 42 41 24 3A 84 31  2C 4D 43 24 3A 84 31 2C  |1,BA$:.1,MC$:.1,|
00000310: 50 43 24 3A 84 31 2C 42  49 24 3A 84 31 2C 52 42  |PC$:.1,BI$:.1,RB|
00000320: 24 00 5C 0B 1A 04 42 41  B2 C5 28 42 41 24 29 3A  |$.\...BA..(BA$):|
00000330: 4D 43 B2 C5 28 4D 43 24  29 3A 50 43 B2 C5 28 50  |MC..(MC$):PC..(P|
00000340: 43 24 29 3A 42 49 B2 C5  28 42 49 24 29 3A 52 42  |C$):BI..(BI$):RB|
00000350: B2 C5 28 52 42 24 29 3A  49 42 B2 49 00 6A 0B 24  |..(RB$):IB.I.j.$|
00000360: 04 A0 31 3A 52 44 B2 31  3A 8E 00 79 0B D0 07 8B  |..1:RD.1:..y....|
00000370: 52 44 B2 31 89 32 31 30  30 00 A0 0B DA 07 99 22  |RD.1.2100......"|
00000380: 93 4F 50 45 4E 49 4E 47  20 42 41 4C 41 4E 43 45  |.OPENING BALANCE|
00000390: 22 3B 3A 85 42 41 3A 42  41 24 B2 C4 28 42 41 29  |";:.BA:BA$..(BA)|
000003A0: 00 CE 0B E4 07 99 22 11  4D 4F 4E 54 48 4C 59 20  |......".MONTHLY |
000003B0: 53 45 52 56 49 43 45 20  43 48 41 52 47 45 22 3B  |SERVICE CHARGE";|
000003C0: 3A 85 4D 43 3A 4D 43 24  B2 C4 28 4D 43 29 00 01  |:.MC:MC$..(MC)..|
000003D0: 0C EE 07 99 22 11 50 45  52 20 43 48 45 43 4B 20  |....".PER CHECK |
000003E0: 43 48 41 52 47 45 22 3B  3A 85 50 43 3A 50 43 24  |CHARGE";:.PC:PC$|
000003F0: B2 C4 28 50 43 29 3A 49  42 B2 31 3A 52 42 B2 42  |..(PC):IB.1:RB.B|
00000400: 41 00 33 0C F8 07 52 42  24 B2 C4 28 52 42 29 3A  |A.3...RB$..(RB):|
00000410: 99 22 11 42 45 47 49 4E  4E 49 4E 47 20 49 54 45  |.".BEGINNING ITE|
00000420: 4D 20 4E 4F 2E 22 3B 3A  85 42 49 3A 42 49 B2 42  |M NO.";:.BI:BI.B|
00000430: 49 AB 31 00 40 0C 34 08  81 49 B2 49 42 A4 39 39  |I.1.@.4..I.IB.99|
00000440: 00 7C 0C 3E 08 42 49 B2  42 49 AA 31 3A 43 49 B2  |.|.>.BI.BI.1:CI.|
00000450: 42 49 3A 8D 38 32 30 30  3A 42 49 24 B2 43 49 24  |BI:.8200:BI$.CI$|
00000460: 3A 99 22 93 49 54 45 4D  20 4E 55 4D 42 45 52 3A  |:.".ITEM NUMBER:|
00000470: 20 22 3B 42 49 24 3A 8D  37 31 32 30 00 86 0C EA  | ";BI$:.7120....|
00000480: 08 8D 38 35 30 30 00 C5  0C F2 08 4E B2 31 3A 8D  |..8500.....N.1:.|
00000490: 39 30 30 30 3A 58 B2 32  3A 59 B2 31 35 3A 4D 53  |9000:X.2:Y.15:MS|
000004A0: 24 B2 22 43 4F 52 52 45  43 54 20 28 59 2F 4E 29  |$."CORRECT (Y/N)|
000004B0: 22 3A 8D 38 30 30 30 3A  8B 56 41 24 B2 22 59 22  |":.8000:.VA$."Y"|
000004C0: 89 32 32 39 35 00 D6 0C  F3 08 41 4D B2 AB 41 4D  |.2295.....AM..AM|
000004D0: 3A 8D 38 35 30 30 00 F6  0C F4 08 42 49 B2 42 49  |:.8500.....BI.BI|
000004E0: AB 31 3A 50 43 B2 AB 50  43 3A 89 32 31 31 30 3A  |.1:PC..PC:.2110:|
000004F0: 50 43 B2 AB 50 43 00 00  0D F7 08 8D 39 35 30 30  |PC..PC......9500|
00000500: 00 13 0D F8 08 8B B8 28  30 29 B1 31 39 30 89 32  |.......(0).190.2|
00000510: 33 30 32 00 60 0D F9 08  99 3A 99 22 12 20 4F 55  |302.`....:.". OU|
00000520: 54 20 4F 46 20 4D 45 4D  4F 52 59 21 22 3A 99 22  |T OF MEMORY!":."|
00000530: 20 57 52 49 54 45 20 54  41 50 45 2C 20 45 4E 44  | WRITE TAPE, END|
00000540: 20 50 52 4F 47 52 41 4D  2C 22 3A 99 22 20 54 48  | PROGRAM,":." TH|
00000550: 45 4E 20 55 53 45 20 4F  50 54 49 4F 4E 20 32 2E  |EN USE OPTION 2.|
00000560: 00 69 0D FA 08 99 48 4B  24 00 7D 0D FB 08 A1 41  |.i....HK$.}....A|
00000570: 24 3A 8B 41 24 B2 22 22  89 32 32 39 39 00 87 0D  |$:.A$."".2299...|
00000580: FC 08 89 32 33 31 30 00  B5 0D FE 08 4D 53 24 B2  |...2310.....MS$.|
00000590: 22 43 4F 4E 54 49 4E 55  45 20 28 59 2F 4E 29 22  |"CONTINUE (Y/N)"|
000005A0: 3A 8D 38 30 30 30 3A 8B  56 41 24 B3 B1 22 59 22  |:.8000:.VA$.."Y"|
000005B0: 89 32 33 31 30 00 BC 0D  01 09 82 49 00 C7 0D 06  |.2310......I....|
000005C0: 09 42 49 B2 49 3A 8E 00  FA 0D B8 0B 4E B2 31 3A  |.BI.I:......N.1:|
000005D0: 99 22 93 22 3B 22 49 54  45 4D 20 4E 4F 2E 22 3B  |.".";"ITEM NO.";|
000005E0: 3A 85 43 49 3A 8B 28 43  49 B3 30 29 B0 28 43 49  |:.CI:.(CI.0).(CI|
000005F0: B1 39 39 39 29 89 33 30  30 30 00 1C 0E C2 0B 8D  |.999).3000......|
00000600: 38 32 30 30 3A 81 49 B2  31 A4 39 39 3A 8B 52 45  |8200:.I.1.99:.RE|
00000610: 24 28 49 29 B2 22 22 89  33 30 32 35 00 34 0E C7  |$(I)."".3025.4..|
00000620: 0B 8D 39 36 30 30 3A 8B  42 49 24 B2 43 49 24 89  |..9600:.BI$.CI$.|
00000630: 33 30 33 30 00 3B 0E CC  0B 82 49 00 56 0E D1 0B  |3030.;....I.V...|
00000640: 99 22 49 54 45 4D 20 4E  4F 54 20 46 4F 55 4E 44  |."ITEM NOT FOUND|
00000650: 2C 22 3B 48 4B 24 00 6A  0E D2 0B A1 41 24 3A 8B  |,";HK$.j....A$:.|
00000660: 41 24 B2 22 22 89 33 30  32 36 00 70 0E D3 0B 8E  |A$."".3026.p....|
00000670: 00 A0 0E D6 0B 8D 39 30  30 30 3A 99 3A 99 3A 99  |......9000:.:.:.|
00000680: 22 20 44 45 4C 45 54 45  20 28 44 29 20 4F 52 20  |" DELETE (D) OR |
00000690: 43 48 41 4E 47 45 20 28  43 29 22 3B 3A 85 41 24  |CHANGE (C)";:.A$|
000006A0: 00 B1 0E DB 0B 8B 41 24  B2 22 43 22 89 33 31 30  |......A$."C".310|
000006B0: 30 00 C3 0E E0 0B 8B 41  24 B3 B1 22 44 22 89 33  |0......A$.."D".3|
000006C0: 30 33 30 00 D7 0E EA 0B  52 43 24 B2 22 33 22 3A  |030.....RC$."3":|
000006D0: 8D 39 35 30 30 3A 8E 00  0C 0F 1C 0C 99 22 93 22  |.9500:......."."|
000006E0: 3A 8D 37 31 32 30 3A 99  3A 99 22 43 4F 52 52 45  |:.7120:.:."CORRE|
000006F0: 43 54 20 28 59 2F 4E 29  22 3B 3A 85 41 24 3A 8B  |CT (Y/N)";:.A$:.|
00000700: 41 24 B3 B1 22 59 22 89  33 31 30 30 00 18 0F 26  |A$.."Y".3100...&|
00000710: 0C 8D 39 35 30 30 3A 8E  00 3C 0F A0 0F 99 22 93  |..9500:..<....".|
00000720: 22 3A 9F 31 2C 31 2C 31  2C 22 43 48 45 43 4B 53  |":.1,1,1,"CHECKS|
00000730: 22 3A 52 42 B2 42 41 3A  53 57 B2 30 00 75 0F A2  |":RB.BA:SW.0.u..|
00000740: 0F 99 3A 99 22 44 45 4C  45 54 45 20 52 45 43 4F  |..:."DELETE RECO|
00000750: 4E 43 49 4C 45 44 20 49  54 45 4D 53 20 28 59 2F  |NCILED ITEMS (Y/|
00000760: 4E 29 22 3B 3A 85 41 24  3A 8B 41 24 B2 22 59 22  |N)";:.A$:.A$."Y"|
00000770: A7 53 57 B2 31 00 85 0F  A5 0F 8B 53 57 B3 B1 31  |.SW.1......SW..1|
00000780: 89 34 30 31 30 00 C7 0F  A6 0F 99 22 46 49 4E 41  |.4010......"FINA|
00000790: 4C 20 52 45 43 4F 4E 43  49 4C 45 44 20 54 41 50  |L RECONCILED TAP|
000007A0: 45 20 46 4F 52 20 4D 4F  4E 54 48 28 59 2F 4E 29  |E FOR MONTH(Y/N)|
000007B0: 22 3B 3A 85 5A 24 3A 8B  5A 24 B2 22 59 22 A7 42  |";:.Z$:.Z$."Y".B|
000007C0: 41 B2 42 41 AB 4D 43 00  E3 0F AA 0F 81 49 B2 31  |A.BA.MC......I.1|
000007D0: A4 39 39 3A 8B 52 45 24  28 49 29 B2 22 22 89 34  |.99:.RE$(I)."".4|
000007E0: 30 39 35 00 FB 0F B4 0F  8D 39 36 30 30 3A 8B 52  |095......9600:.R|
000007F0: 43 24 B2 22 33 22 89 34  30 39 30 00 10 10 BE 0F  |C$."3".4090.....|
00000800: 8D 38 35 30 30 3A 8B 53  57 B2 30 89 34 30 36 30  |.8500:.SW.0.4060|
00000810: 00 23 10 C3 0F 8B 52 43  24 B3 B1 22 31 22 89 34  |.#....RC$.."1".4|
00000820: 30 36 30 00 50 10 C8 0F  42 41 B2 42 41 AA 41 4D  |060.P...BA.BA.AM|
00000830: 3A 8B 28 54 50 24 B2 22  43 4B 22 29 B0 28 54 50  |:.(TP$."CK").(TP|
00000840: 24 B2 22 43 4D 22 29 A7  42 41 B2 42 41 AB 50 43  |$."CM").BA.BA.PC|
00000850: 00 68 10 D2 0F 56 50 B2  42 41 3A 8D 38 34 30 30  |.h...VP.BA:.8400|
00000860: 3A 42 41 24 B2 56 50 24  00 72 10 D7 0F 89 34 30  |:BA$.VP$.r....40|
00000870: 39 30 00 88 10 DC 0F 49  54 24 B2 52 45 24 28 49  |90.....IT$.RE$(I|
00000880: 29 3A 8D 31 30 30 30 30  00 8F 10 FA 0F 82 49 00  |):.10000......I.|
00000890: A2 10 FF 0F 49 54 24 B2  45 43 24 3A 8D 31 30 30  |....IT$.EC$:.100|
000008A0: 30 30 00 DB 10 04 10 49  54 24 B2 42 41 24 3A 8D  |00.....IT$.BA$:.|
000008B0: 31 30 30 30 30 3A 49 54  24 B2 4D 43 24 3A 8D 31  |10000:IT$.MC$:.1|
000008C0: 30 30 30 30 3A 49 54 24  B2 50 43 24 3A 8D 31 30  |0000:IT$.PC$:.10|
000008D0: 30 30 30 3A 49 54 24 B2  42 49 24 00 FA 10 0E 10  |000:IT$.BI$.....|
000008E0: 8D 31 30 30 30 30 3A 49  54 24 B2 52 42 24 3A 8D  |.10000:IT$.RB$:.|
000008F0: 31 30 30 30 30 3A A0 31  3A 8E 00 2C 11 88 13 99  |10000:.1:..,....|
00000900: 22 93 22 3B A3 39 29 22  4C 49 53 54 49 4E 47 20  |".";.9)"LISTING |
00000910: 53 45 4C 45 43 54 4F 52  22 3A 99 3A 99 3A 53 55  |SELECTOR":.:.:SU|
00000920: B2 30 3A 54 4C B2 30 3A  41 53 B2 30 00 69 11 8D  |.0:TL.0:AS.0.i..|
00000930: 13 99 A3 39 29 22 31 2E  20 4C 49 53 54 20 41 4C  |...9)"1. LIST AL|
00000940: 4C 20 54 52 41 4E 53 41  43 54 49 4F 4E 53 22 3A  |L TRANSACTIONS":|
00000950: 99 3A 99 A3 39 29 22 32  2E 20 4C 49 53 54 20 42  |.:..9)"2. LIST B|
00000960: 59 20 41 43 43 4F 55 4E  54 00 8C 11 9C 13 58 B2  |Y ACCOUNT.....X.|
00000970: 31 32 3A 59 B2 31 30 3A  4D 53 24 B2 22 4C 49 4E  |12:Y.10:MS$."LIN|
00000980: 45 20 4E 4F 2E 22 3A 8D  38 30 30 30 00 A3 11 A6  |E NO.":.8000....|
00000990: 13 8B C8 28 56 41 24 2C  31 29 B2 22 31 22 89 35  |...(VA$,1)."1".5|
000009A0: 31 30 30 00 BB 11 B0 13  8B C8 28 56 41 24 2C 31  |100.......(VA$,1|
000009B0: 29 B3 B1 22 32 22 89 35  30 30 30 00 E1 11 BA 13  |).."2".5000.....|
000009C0: 99 22 93 41 43 43 4F 55  4E 54 22 3B 3A 85 54 43  |.".ACCOUNT";:.TC|
000009D0: 24 3A 8B C3 28 54 43 24  29 B3 B1 32 89 35 30 35  |$:..(TC$)..2.505|
000009E0: 30 00 EF 11 C4 13 53 55  B2 31 3A 41 53 B2 31 00  |0.....SU.1:AS.1.|
000009F0: 06 12 EC 13 4E B2 30 3A  52 42 B2 42 41 3A 81 49  |....N.0:RB.BA:.I|
00000A00: B2 31 A4 32 30 30 00 1A  12 F1 13 8B 52 45 24 28  |.1.200......RE$(|
00000A10: 49 29 B2 22 22 89 35 31  33 30 00 32 12 F6 13 8D  |I)."".5130.2....|
00000A20: 39 36 30 30 3A 8B 52 43  24 B2 22 33 22 89 35 31  |9600:.RC$."3".51|
00000A30: 32 35 00 41 12 F8 13 8B  41 53 B2 30 89 35 31 31  |25.A....AS.0.511|
00000A40: 36 00 53 12 F9 13 8B 52  43 24 B2 22 32 22 89 35  |6.S....RC$."2".5|
00000A50: 31 32 35 00 66 12 FA 13  8B 41 43 24 B3 B1 54 43  |125.f....AC$..TC|
00000A60: 24 89 35 31 32 35 00 79  12 FB 13 54 4C B2 54 4C  |$.5125.y...TL.TL|
00000A70: AB 41 4D 3A 89 35 31 31  37 00 83 12 FC 13 8D 38  |.AM:.5117......8|
00000A80: 35 30 30 00 9F 12 FD 13  4E B2 4E AA 31 3A 8D 39  |500.....N.N.1:.9|
00000A90: 30 30 30 3A 8B 4E 4E B3  B1 36 89 35 31 32 35 00  |000:.NN..6.5125.|
00000AA0: B5 12 FE 13 8B 52 45 24  28 49 AA 31 29 B2 22 22  |.....RE$(I.1).""|
00000AB0: 89 35 31 32 35 00 BE 12  FF 13 99 48 4B 24 00 D2  |.5125......HK$..|
00000AC0: 12 00 14 A1 41 24 3A 8B  41 24 B2 22 22 89 35 31  |....A$:.A$."".51|
00000AD0: 32 30 00 D9 12 05 14 82  49 00 E8 12 0A 14 8B 53  |20......I......S|
00000AE0: 55 B2 30 89 35 31 35 30  00 00 13 14 14 56 50 B2  |U.0.5150.....VP.|
00000AF0: 54 4C 3A 8D 38 34 30 30  3A 54 4C 24 B2 56 50 24  |TL:.8400:TL$.VP$|
00000B00: 00 39 13 19 14 58 B2 32  3A 59 B2 32 32 3A 56 50  |.9...X.2:Y.22:VP|
00000B10: 24 B2 22 54 4F 54 41 4C  20 44 45 42 49 54 53 20  |$."TOTAL DEBITS |
00000B20: 54 48 49 53 20 41 43 43  4F 55 4E 54 20 3D 22 AA  |THIS ACCOUNT =".|
00000B30: 54 4C 24 3A 8D 38 31 30  30 00 42 13 1E 14 99 48  |TL$:.8100.B....H|
00000B40: 4B 24 00 56 13 23 14 A1  41 24 3A 8B 41 24 B2 22  |K$.V.#..A$:.A$."|
00000B50: 22 89 35 31 35 35 00 5C  13 28 14 8E 00 9D 13 70  |".5155.\.(.....p|
00000B60: 17 99 22 93 52 45 56 49  45 57 20 52 45 43 4F 4E  |..".REVIEW RECON|
00000B70: 43 49 4C 45 44 20 49 54  45 4D 53 20 28 59 2F 4E  |CILED ITEMS (Y/N|
00000B80: 29 22 3B 3A 85 41 24 3A  53 57 B2 30 3A 4E B2 30  |)";:.A$:SW.0:N.0|
00000B90: 3A 8B 41 24 B2 22 59 22  A7 53 57 B2 31 00 C4 13  |:.A$."Y".SW.1...|
00000BA0: 7A 17 52 42 B2 42 41 3A  53 55 B2 31 3A 81 49 B2  |z.RB.BA:SU.1:.I.|
00000BB0: 31 A4 39 39 3A 8B 52 45  24 28 49 29 B2 22 22 89  |1.99:.RE$(I)."".|
00000BC0: 36 31 30 30 00 E5 13 84  17 8D 39 36 30 30 3A 8B  |6100......9600:.|
00000BD0: 28 53 57 B2 30 29 AF 28  52 43 24 B2 22 31 22 29  |(SW.0).(RC$."1")|
00000BE0: 89 36 30 36 30 00 16 14  8E 17 4E B2 4E AA 31 3A  |.6060.....N.N.1:|
00000BF0: 8D 39 30 30 30 3A 58 B2  32 3A 59 B2 32 32 3A 4D  |.9000:X.2:Y.22:M|
00000C00: 53 24 B2 22 4F 4E 20 53  54 41 54 45 4D 45 4E 54  |S$."ON STATEMENT|
00000C10: 20 28 59 2F 4E 29 00 2E  14 98 17 8D 38 30 30 30  | (Y/N)......8000|
00000C20: 3A 8B 56 41 24 B2 22 4E  22 89 36 30 37 30 00 41  |:.VA$."N".6070.A|
00000C30: 14 A2 17 8B 56 41 24 B3  B1 22 59 22 89 36 30 34  |....VA$.."Y".604|
00000C40: 30 00 53 14 A7 17 52 43  24 B2 22 31 22 3A 8D 39  |0.S...RC$."1":.9|
00000C50: 35 30 30 00 63 14 AC 17  8D 38 35 30 30 3A 89 36  |500.c....8500:.6|
00000C60: 30 39 30 00 75 14 B6 17  52 43 24 B2 22 32 22 3A  |090.u...RC$."2":|
00000C70: 8D 39 35 30 30 00 7C 14  CA 17 82 49 00 AB 14 D4  |.9500.|....I....|
00000C80: 17 56 50 24 B2 53 50 24  3A 8D 38 31 30 30 3A 52  |.VP$.SP$:.8100:R|
00000C90: 42 B2 52 42 AB 4D 43 3A  56 50 B2 52 42 3A 8D 38  |B.RB.MC:VP.RB:.8|
00000CA0: 34 30 30 3A 52 42 24 B2  56 50 24 00 E1 14 DE 17  |400:RB$.VP$.....|
00000CB0: 56 50 24 B2 22 53 54 41  54 45 4D 45 4E 54 20 42  |VP$."STATEMENT B|
00000CC0: 41 4C 41 4E 43 45 20 53  48 4F 55 4C 44 20 42 45  |ALANCE SHOULD BE|
00000CD0: 20 22 AA 52 42 24 3A 8D  38 31 30 30 3A 99 48 4B  | ".RB$:.8100:.HK|
00000CE0: 24 00 F5 14 E8 17 A1 41  24 3A 8B 41 24 B2 22 22  |$......A$:.A$.""|
00000CF0: 89 36 31 32 30 00 FB 14  F2 17 8E 00 36 15 D0 1B  |.6120.......6...|
00000D00: 99 22 11 54 59 50 45 20  28 43 4B 2C 20 44 50 2C  |.".TYPE (CK, DP,|
00000D10: 20 43 4D 2C 20 44 42 2C  20 43 52 29 22 3B 3A 85  | CM, DB, CR)";:.|
00000D20: 54 50 24 3A 54 30 24 B2  22 22 3A 43 4E B2 30 3A  |TP$:T0$."":CN.0:|
00000D30: 43 4E 24 B2 22 22 00 56  15 DA 1B 8B 28 54 50 24  |CN$."".V....(TP$|
00000D40: B2 22 44 50 22 29 B0 28  54 50 24 B2 22 43 4D 22  |."DP").(TP$."CM"|
00000D50: 29 89 37 32 30 30 00 76  15 E4 1B 8B 28 54 50 24  |).7200.v....(TP$|
00000D60: B2 22 44 42 22 29 B0 28  54 50 24 B2 22 43 52 22  |."DB").(TP$."CR"|
00000D70: 29 89 37 32 30 30 00 8A  15 EE 1B 8B 54 50 24 B3  |).7200......TP$.|
00000D80: B1 22 43 4B 22 89 37 31  32 30 00 BC 15 F8 1B 99  |."CK".7120......|
00000D90: 22 11 43 48 45 43 4B 20  4E 55 4D 42 45 52 22 3B  |".CHECK NUMBER";|
00000DA0: 3A 85 43 4E 3A 56 50 24  B2 C4 28 43 4E 29 3A 8D  |:.CN:VP$..(CN):.|
00000DB0: 38 33 30 30 3A 43 4E 24  B2 56 50 24 00 DD 15 02  |8300:CN$.VP$....|
00000DC0: 1C 99 22 11 54 4F 22 3B  3A 85 54 30 24 3A 8B C3  |..".TO";:.T0$:..|
00000DD0: 28 54 30 24 29 B1 31 39  89 37 31 37 30 00 05 16  |(T0$).19.7170...|
00000DE0: 20 1C 99 22 11 4D 4F 4E  54 48 22 3B 3A 85 4D 4F  | ..".MONTH";:.MO|
00000DF0: 3A 8B 28 4D 4F B3 31 29  B0 28 4D 4F B1 31 32 29  |:.(MO.1).(MO.12)|
00000E00: 89 37 32 30 30 00 21 16  2A 1C 56 50 24 B2 C4 28  |.7200.!.*.VP$..(|
00000E10: 4D 4F 29 3A 8D 38 33 30  30 3A 4D 4F 24 B2 56 50  |MO):.8300:MO$.VP|
00000E20: 24 00 48 16 34 1C 99 22  44 41 59 20 20 22 3B 3A  |$.H.4.."DAY  ";:|
00000E30: 85 44 41 3A 8B 28 44 41  B3 31 29 B0 28 44 41 B1  |.DA:.(DA.1).(DA.|
00000E40: 33 31 29 89 37 32 32 30  00 64 16 3E 1C 56 50 24  |31).7220.d.>.VP$|
00000E50: B2 C4 28 44 41 29 3A 8D  38 33 30 30 3A 44 41 24  |..(DA):.8300:DA$|
00000E60: B2 56 50 24 00 93 16 48  1C 99 22 59 45 41 52 20  |.VP$...H.."YEAR |
00000E70: 22 3B 3A 85 59 52 24 3A  8B 28 59 52 24 B3 22 30  |";:.YR$:.(YR$."0|
00000E80: 30 22 29 B0 28 59 52 24  B1 22 39 39 22 29 89 37  |0").(YR$."99").7|
00000E90: 32 34 30 00 DB 16 52 1C  8F 20 57 48 41 54 3F 3F  |240...R.. WHAT??|
00000EA0: 3F 2E 2E 2E 2E 2E 50 52  49 4E 54 22 11 46 4F 52  |?.....PRINT".FOR|
00000EB0: 20 28 4F 52 20 46 52 4F  4D 29 22 3B 3A 49 4E 50  | (OR FROM)";:INP|
00000EC0: 55 54 41 43 24 3A 49 46  4C 45 4E 28 41 43 24 29  |UTAC$:IFLEN(AC$)|
00000ED0: 3C 3E 32 47 4F 54 4F 37  32 35 30 00 0D 17 5C 1C  |<>2GOTO7250...\.|
00000EE0: 99 22 11 41 4D 4F 55 4E  54 22 3B 3A 85 41 4D 3A  |.".AMOUNT";:.AM:|
00000EF0: 8B 28 54 50 24 B2 22 43  4B 22 29 B0 28 54 50 24  |.(TP$."CK").(TP$|
00000F00: B2 22 43 4D 22 29 A7 41  4D B2 AB 41 4D 00 22 17  |."CM").AM..AM.".|
00000F10: 66 1C 8B 54 50 24 B2 22  44 42 22 A7 41 4D B2 AB  |f..TP$."DB".AM..|
00000F20: 41 4D 00 44 17 70 1C 56  50 B2 41 4D 3A 8D 38 34  |AM.D.p.VP.AM:.84|
00000F30: 30 30 3A 41 4D 24 B2 56  50 24 3A 52 43 24 B2 22  |00:AM$.VP$:RC$."|
00000F40: 30 22 3A 8E 00 62 17 40  1F 99 22 13 22 3A 81 4B  |0":..b.@..".":.K|
00000F50: B2 31 A4 28 59 AB 32 29  3A 99 3A 82 4B 3A 99 53  |.1.(Y.2):.:.K:.S|
00000F60: 50 24 00 7C 17 4A 1F 99  A3 58 AB 31 29 22 91 22  |P$.|.J...X.1)"."|
00000F70: 3B 4D 53 24 3B 3A 85 56  41 24 3A 8E 00 A1 17 A4  |;MS$;:.VA$:.....|
00000F80: 1F 99 22 13 22 3A 81 4B  B2 31 A4 28 59 AB 32 29  |..".":.K.1.(Y.2)|
00000F90: 3A 99 3A 82 4B 3A 99 A3  58 AB 31 29 56 50 24 3A  |:.:.K:..X.1)VP$:|
00000FA0: 8E 00 D6 17 08 20 43 49  24 B2 C4 28 43 49 29 3A  |..... CI$..(CI):|
00000FB0: 4C 4E B2 C3 28 43 49 24  29 3A 43 49 24 B2 C9 28  |LN..(CI$):CI$..(|
00000FC0: 43 49 24 2C 4C 4E AB 31  29 3A 43 49 24 B2 22 30  |CI$,LN.1):CI$."0|
00000FD0: 30 22 AA 43 49 24 00 E9  17 62 20 43 49 24 B2 C9  |0".CI$...b CI$..|
00000FE0: 28 43 49 24 2C 33 29 3A  8E 00 09 18 6C 20 4C 4E  |(CI$,3):....l LN|
00000FF0: B2 C3 28 56 50 24 29 3A  56 50 24 B2 C9 28 56 50  |..(VP$):VP$..(VP|
00001000: 24 2C 4C 4E AB 31 29 3A  8E 00 43 18 D0 20 56 54  |$,LN.1):..C.. VT|
00001010: B2 31 30 30 AC 56 50 3A  56 54 B2 B5 28 56 54 29  |.100.VP:VT..(VT)|
00001020: 3A 54 4D 24 B2 C4 28 56  54 29 3A 4C 4E B2 C3 28  |:TM$..(VT):LN..(|
00001030: 54 4D 24 29 AB 31 3A 4C  42 24 B2 C8 28 54 4D 24  |TM$).1:LB$..(TM$|
00001040: 2C 31 29 00 60 18 DA 20  54 4D 24 B2 C9 28 54 4D  |,1).`.. TM$..(TM|
00001050: 24 2C 4C 4E 29 3A 8B 4C  4E B1 32 89 38 34 33 30  |$,LN):.LN.2.8430|
00001060: 00 97 18 E4 20 5A 46 24  B2 22 22 3A 81 4B B2 31  |.... ZF$."":.K.1|
00001070: A4 28 33 AB 4C 4E 29 3A  5A 46 24 B2 5A 46 24 AA  |.(3.LN):ZF$.ZF$.|
00001080: 22 30 22 3A 82 4B 3A 54  4D 24 B2 5A 46 24 AA 54  |"0":.K:TM$.ZF$.T|
00001090: 4D 24 3A 4C 4E B2 33 00  BE 18 EE 20 56 50 24 B2  |M$:LN.3.... VP$.|
000010A0: 4C 42 24 AA C8 28 54 4D  24 2C 4C 4E AB 32 29 AA  |LB$..(TM$,LN.2).|
000010B0: 22 2E 22 AA C9 28 54 4D  24 2C 32 29 3A 8E 00 EB  |"."..(TM$,2):...|
000010C0: 18 34 21 52 42 B2 52 42  AA 41 4D 3A 8B 28 54 50  |.4!RB.RB.AM:.(TP|
000010D0: 24 B2 22 43 4B 22 29 B0  28 54 50 24 B2 22 43 4D  |$."CK").(TP$."CM|
000010E0: 22 29 A7 52 42 B2 52 42  AB 50 43 00 05 19 3E 21  |").RB.RB.PC...>!|
000010F0: 56 50 B2 52 42 3A 8D 38  34 30 30 3A 52 42 24 B2  |VP.RB:.8400:RB$.|
00001100: 56 50 24 3A 8E 00 2F 19  28 23 49 4E B2 B5 28 28  |VP$:../.(#IN..((|
00001110: 4E AB 31 29 AD 36 29 3A  4E 4E B2 4E AB 28 36 AC  |N.1).6):NN.N.(6.|
00001120: 49 4E 29 3A 8B 4E 4E B3  B1 31 89 39 31 30 30 00  |IN):.NN..1.9100.|
00001130: 6B 19 32 23 99 22 93 20  49 54 45 4D 20 43 48 4B  |k.2#.". ITEM CHK|
00001140: 23 20 20 44 41 54 45 20  20 20 20 20 54 59 50 45  |#  DATE     TYPE|
00001150: 20 20 46 4F 52 20 20 41  4D 4F 55 4E 54 22 3A 56  |  FOR  AMOUNT":V|
00001160: 54 24 B2 22 42 41 4C 41  4E 43 45 00 7C 19 37 23  |T$."BALANCE.|.7#|
00001170: 8B 53 55 B2 31 A7 56 54  24 B2 22 22 00 92 19 3C  |.SU.1.VT$.""...<|
00001180: 23 99 A3 31 32 29 22 54  4F 22 3B A3 33 32 29 56  |#..12)"TO";.32)V|
00001190: 54 24 00 C9 19 8C 23 59  B2 34 AA 28 28 4E 4E AB  |T$....#Y.4.((NN.|
000011A0: 31 29 AC 33 29 3A 58 B2  32 3A 56 50 24 B2 42 49  |1).3):X.2:VP$.BI|
000011B0: 24 3A 8D 38 31 30 30 3A  58 B2 37 3A 56 50 24 B2  |$:.8100:X.7:VP$.|
000011C0: 43 4E 24 3A 8D 38 31 30  30 00 03 1A A0 23 58 B2  |CN$:.8100....#X.|
000011D0: 31 33 3A 56 50 24 B2 4D  4F 24 AA 22 2F 22 AA 44  |13:VP$.MO$."/".D|
000011E0: 41 24 AA 22 2F 22 AA 59  52 24 3A 8D 38 31 30 30  |A$."/".YR$:.8100|
000011F0: 3A 58 B2 32 33 3A 56 50  24 B2 54 50 24 3A 8D 38  |:X.23:VP$.TP$:.8|
00001200: 31 30 30 00 28 1A AA 23  58 B2 32 38 3A 56 50 24  |100.(..#X.28:VP$|
00001210: B2 41 43 24 3A 8D 38 31  30 30 3A 41 5A 24 B2 41  |.AC$:.8100:AZ$.A|
00001220: 4D 24 3A 8D 39 32 30 30  00 5C 1A BE 23 59 B2 59  |M$:.9200.\..#Y.Y|
00001230: AA 31 3A 58 B2 31 33 3A  56 50 24 B2 54 30 24 3A  |.1:X.13:VP$.T0$:|
00001240: 8D 38 31 30 30 3A 41 5A  24 B2 52 42 24 3A 8B 53  |.8100:AZ$.RB$:.S|
00001250: 55 B2 31 A7 41 5A 24 B2  22 2D 20 22 00 68 1A C3  |U.1.AZ$."- ".h..|
00001260: 23 8D 39 32 30 30 3A 8E  00 8A 1A F0 23 4C 4E B2  |#.9200:.....#LN.|
00001270: C3 28 41 5A 24 29 3A 8B  C8 28 41 5A 24 2C 31 29  |.(AZ$):..(AZ$,1)|
00001280: B3 B1 22 2D 22 89 39 32  32 30 00 AB 1A FA 23 56  |.."-".9220....#V|
00001290: 50 24 B2 C9 28 41 5A 24  2C 4C 4E AB 31 29 3A 58  |P$..(AZ$,LN.1):X|
000012A0: B2 33 33 3A 8D 38 31 30  30 3A 8E 00 E5 1A 04 24  |.33:.8100:.....$|
000012B0: 56 50 24 B2 22 22 3A 81  4B B2 32 A4 4C 4E 3A 56  |VP$."":.K.2.LN:V|
000012C0: 50 24 B2 56 50 24 AA 22  12 22 AA CA 28 41 5A 24  |P$.VP$."."..(AZ$|
000012D0: 2C 4B 2C 31 29 3A 82 4B  3A 58 B2 33 33 3A 8D 38  |,K,1):.K:X.33:.8|
000012E0: 31 30 30 3A 8E 00 EE 1A  18 24 99 48 4B 24 00 21  |100:.....$.HK$.!|
000012F0: 1B 1C 25 52 45 24 28 49  29 B2 42 49 24 AA 22 5E  |..%RE$(I).BI$."^|
00001300: 22 AA 43 4E 24 AA 22 5E  22 AA 4D 4F 24 AA 22 5E  |".CN$."^".MO$."^|
00001310: 22 AA 44 41 24 AA 22 5E  22 AA 59 52 24 AA 22 5E  |".DA$."^".YR$."^|
00001320: 22 00 5D 1B 26 25 52 45  24 28 49 29 B2 52 45 24  |".].&%RE$(I).RE$|
00001330: 28 49 29 AA 54 50 24 AA  22 5E 22 AA 41 43 24 AA  |(I).TP$."^".AC$.|
00001340: 22 5E 22 AA 41 4D 24 AA  22 5E 22 AA 54 30 24 AA  |"^".AM$."^".T0$.|
00001350: 22 5E 22 AA 52 43 24 AA  22 5E 22 3A 8E 00 99 1B  |"^".RC$."^":....|
00001360: 80 25 4B 53 B2 31 3A 8D  39 38 30 30 3A 42 49 24  |.%KS.1:.9800:BI$|
00001370: B2 C8 28 52 45 24 28 49  29 2C 4B AB 31 29 3A 4B  |..(RE$(I),K.1):K|
00001380: 53 B2 4B AA 31 3A 8D 39  38 30 30 3A 8D 39 39 30  |S.K.1:.9800:.990|
00001390: 30 3A 43 4E 24 B2 54 56  24 00 D1 1B 8A 25 43 4E  |0:CN$.TV$....%CN|
000013A0: B2 C5 28 43 4E 24 29 3A  8D 39 38 30 30 3A 8D 39  |..(CN$):.9800:.9|
000013B0: 39 30 30 3A 4D 4F 24 B2  54 56 24 3A 4D 4F B2 C5  |900:MO$.TV$:MO..|
000013C0: 28 4D 4F 24 29 3A 8D 39  38 30 30 3A 8D 39 39 30  |(MO$):.9800:.990|
000013D0: 30 00 0B 1C 94 25 44 41  24 B2 54 56 24 3A 44 41  |0....%DA$.TV$:DA|
000013E0: B2 C5 28 44 41 24 29 3A  8D 39 38 30 30 3A 8D 39  |..(DA$):.9800:.9|
000013F0: 39 30 30 3A 59 52 24 B2  54 56 24 3A 59 52 B2 C5  |900:YR$.TV$:YR..|
00001400: 28 59 52 24 29 3A 8D 39  38 30 30 00 45 1C 9E 25  |(YR$):.9800.E..%|
00001410: 8D 39 39 30 30 3A 54 50  24 B2 54 56 24 3A 8D 39  |.9900:TP$.TV$:.9|
00001420: 38 30 30 3A 8D 39 39 30  30 3A 41 43 24 B2 54 56  |800:.9900:AC$.TV|
00001430: 24 3A 8D 39 38 30 30 3A  8D 39 39 30 30 3A 41 4D  |$:.9800:.9900:AM|
00001440: 24 B2 54 56 24 00 7B 1C  A8 25 41 4D B2 C5 28 41  |$.TV$.{..%AM..(A|
00001450: 4D 24 29 3A 8D 39 38 30  30 3A 8D 39 39 30 30 3A  |M$):.9800:.9900:|
00001460: 54 30 24 B2 54 56 24 3A  8D 39 38 30 30 3A 8D 39  |T0$.TV$:.9800:.9|
00001470: 39 30 30 3A 52 43 24 B2  54 56 24 00 81 1C B2 25  |900:RC$.TV$....%|
00001480: 8E 00 A6 1C 48 26 81 4B  B2 4B 53 A4 38 30 3A 8B  |....H&.K.KS.80:.|
00001490: CA 28 52 45 24 28 49 29  2C 4B 2C 31 29 B2 22 5E  |.(RE$(I),K,1)."^|
000014A0: 22 89 39 38 32 30 00 AD  1C 57 26 82 4B 00 B3 1C  |".9820...W&.K...|
000014B0: 5C 26 8E 00 CD 1C AC 26  54 56 24 B2 22 22 3A 8B  |\&.....&TV$."":.|
000014C0: 28 4B AB 4B 53 29 B2 30  89 39 39 32 30 00 E7 1C  |(K.KS).0.9920...|
000014D0: B6 26 54 56 24 B2 CA 28  52 45 24 28 49 29 2C 4B  |.&TV$..(RE$(I),K|
000014E0: 53 2C 4B AB 4B 53 29 00  F4 1C C0 26 4B 53 B2 4B  |S,K.KS)....&KS.K|
000014F0: AA 31 3A 8E 00 05 1D 10  27 8B 46 46 B2 30 A7 4C  |.1:.....'.FF.0.L|
00001500: 43 B2 31 39 33 00 14 1D  1A 27 8B 46 46 B2 30 A7  |C.193....'.FF.0.|
00001510: 46 46 B2 31 00 42 1D 24  27 49 4C B2 C3 28 49 54  |FF.1.B.$'IL..(IT|
00001520: 24 29 3A 4C 43 B2 4C 43  AA 49 4C AA 31 3A 98 31  |$):LC.LC.IL.1:.1|
00001530: 2C 49 54 24 3A 8B 4C 43  B3 31 39 33 89 31 30 30  |,IT$:.LC.193.100|
00001540: 39 30 00 56 1D 2E 27 54  48 B2 54 49 3A 97 35 39  |90.V..'TH.TI:.59|
00001550: 34 31 31 2C 35 33 00 6B  1D 38 27 8B 28 54 49 AB  |411,53.k.8'.(TI.|
00001560: 54 48 29 B3 35 89 31 30  30 34 30 00 81 1D 42 27  |TH).5.10040...B'|
00001570: 97 35 39 34 31 31 2C 36  31 3A 4C 43 B2 49 4C AA  |.59411,61:LC.IL.|
00001580: 31 00 87 1D 6A 27 8E 00  00 00 24                 |1...j'....$     |

..;.D..RE$(99):RD.0:SP$." ":.K.1.38:SP$.
SP$." ":.:EC$."ZZZZ.].I.HK$." HIT ANY KE
Y TO CONTINUE...N..".":.:.:..9)"CHECKBOO
K SELECTOR...X..:..9)"1. READ DATA TAPE"
:.:..9)"2. ENTER TRANSACTIONS......:..9)
"3. CHANGE/DELETE":.:..9)"4. WRITE DATA 
TAPE......:..9)"5. LIST TRANSACTIONS":.:
..9)"6. RECONCILIATION.@....:..9)"7. END
.C.H.X.12:Y.21:MS$."LINE NO.":.8000...R.
CH$.H(VA$,1):.CH$."1"..1000......CH$."2"
..2000......CH$."3"..3000......CH$."4"..
4000.O....CH$."5"..5000......CH$."6"..60
00......CH$."7"........110...L."..     $
=""GOTO6120.F....".":.1,1,0:.:."FIRST OR
 ONLY TAPE (Y/N)";:.A$.W....A$."Y".IB.1.
W....I.IB.99:.1,R$:.R$.EC$.1035.....RE$(
I).R$:.I.....IB.I:.A$."Y".1040.O....1,WB
$:WB.E(WB$):DF.RB.WB:BA.BA.DF:BA$.D(BA).
.....K.1.3:.1,R$:.K:.1,RB$:RB.E(RB$):.10
60.!....1,BA$:.1,MC$:.1,PC$:.1,BI$:.1,RB
$.\...BA.E(BA$):MC.E(MC$):PC.E(PC$):BI.E
(BI$):RB.E(RB$):IB.I.J.$. 1:RD.1:..Y.P..
RD.1.2100. .Z..".OPENING BALANCE";:.BA:B
A$.D(BA).N....".MONTHLY SERVICE CHARGE";
:.MC:MC$.D(MC)......".PER CHECK CHARGE";
:.PC:PC$.D(PC):IB.1:RB.BA.3...RB$.D(RB):
.".BEGINNING ITEM NO.";:.BI:BI.BI.1.@.4.
.I.IB.99.|.>.BI.BI.1:CI.BI:.8200:BI$.CI$
:.".ITEM NUMBER: ";BI$:.7120......8500.E
...N.1:.9000:X.2:Y.15:MS$."CORRECT (Y/N)
":.8000:.VA$."Y".2295.V...AM..AM:.8500..
...BI.BI.1:PC..PC:.2110:PC..PC......9500
.......(0).190.2302.`....:.". OUT OF MEM
ORY!":." WRITE TAPE, END PROGRAM,":." TH
EN USE OPTION 2..I....HK$.}....A$:.A$.""
.2299......2310.....MS$."CONTINUE (Y/N)"
:.8000:.VA$.."Y".2310......I.G...BI.I:..
....N.1:.".";"ITEM NO.";:.CI:.(CI.0).(CI
.999).3000...B..8200:.I.1.99:.RE$(I)."".
3025.4.G..9600:.BI$.CI$.3030.;.L..I.V.Q.
."ITEM NOT FOUND,";HK$.J.R..A$:.A$."".30
26.P.S... .V..9000:.:.:." DELETE (D) OR 
CHANGE (C)";:.A$......A$."C".3100.C....A
$.."D".3030.W...RC$."3":.9500:......."."
:.7120:.:."CORRECT (Y/N)";:.A$:.A$.."Y".
3100...&..9500:..<. ..".":.1,1,1,"CHECKS
":RB.BA:SW.0.U....:."DELETE RECONCILED I
TEMS (Y/N)";:.A$:.A$."Y".SW.1......SW..1
.4010.G...."FINAL RECONCILED TAPE FOR MO
NTH(Y/N)";:.Z$:.Z$."Y".BA.BA.MC......I.1
.99:.RE$(I)."".4095......9600:.RC$."3".4
090......8500:.SW.0.4060.#.C..RC$.."1".4
060.P.H.BA.BA.AM:.(TP$."CK").(TP$."CM").
BA.BA.PC.H.R.VP.BA:.8400:BA$.VP$.R.W..40
90.....IT$.RE$(I):.10000......I.....IT$.
EC$:.10000.....IT$.BA$:.10000:IT$.MC$:.1
0000:IT$.PC$:.10000:IT$.BI$......10000:I
T$.RB$:.10000: 1:..,....".";.9)"LISTING 
SELECTOR":.:.:SU.0:TL.0:AS.0.I.....9)"1.
 LIST ALL TRANSACTIONS":.:..9)"2. LIST B
Y ACCOUNT.....X.12:Y.10:MS$."LINE NO.":.
8000......H(VA$,1)."1".5100......H(VA$,1
).."2".5000......".ACCOUNT";:.TC$:.C(TC$
)..2.5050...D.SU.1:AS.1.....N.0:RB.BA:.I
.1.200......RE$(I)."".5130.2....9600:.RC
$."3".5125.A....AS.0.5116.S....RC$."2".5
125.F....AC$..TC$.5125.Y...TL.TL.AM:.511
7......8500.....N.N.1:.9000:.NN..6.5125.
.....RE$(I.1)."".5125......HK$.R....A$:.
A$."".5120.Y....I......SU.0.5150.....VP.
TL:.8400:TL$.VP$.9...X.2:Y.22:VP$."TOTAL
 DEBITS THIS ACCOUNT =".TL$:.8100.B....H
K$.V.#..A$:.A$."".5155.\.(.....P..".REVI
EW RECONCILED ITEMS (Y/N)";:.A$:SW.0:N.0
:.A$."Y".SW.1.D.Z.RB.BA:SU.1:.I.1.99:.RE
$(I)."".6100......9600:.(SW.0).(RC$."1")
.6060.....N.N.1:.9000:X.2:Y.22:MS$."ON S
TATEMENT (Y/N)......8000:.VA$."N".6070.A
....VA$.."Y".6040.S...RC$."1":.9500.C...
.8500:.6090.U...RC$."2":.9500.|.J..I...T
.VP$.SP$:.8100:RB.RB.MC:VP.RB:.8400:RB$.
VP$.....VP$."STATEMENT BALANCE SHOULD BE
 ".RB$:.8100:.HK$......A$:.A$."".6120...
....6.P..".TYPE (CK, DP, CM, DB, CR)";:.
TP$:T0$."":CN.0:CN$."".V.Z..(TP$."DP").(
TP$."CM").7200.V....(TP$."DB").(TP$."CR"
).7200......TP$.."CK".7120......".CHECK 
NUMBER";:.CN:VP$.D(CN):.8300:CN$.VP$....
..".TO";:.T0$:.C(T0$).19.7170... ..".MON
TH";:.MO:.(MO.1).(MO.12).7200.!.*.VP$.D(
MO):.8300:MO$.VP$.H.4.."DAY  ";:.DA:.(DA
.1).(DA.31).7220.D.>.VP$.D(DA):.8300:DA$
.VP$...H.."YEAR ";:.YR$:.(YR$."00").(YR$
."99").7240...R.. WHAT???.....PRINT".FOR
 (OR FROM)";:INPUTAC$:IFLEN(AC$)<>2GOTO7
250...\..".AMOUNT";:.AM:.(TP$."CK").(TP$
."CM").AM..AM.".F..TP$."DB".AM..AM.D.P.V
P.AM:.8400:AM$.VP$:RC$."0":..B.@..".":.K
.1.(Y.2):.:.K:.SP$.|.J...X.1)".";MS$;:.V
A$:.......".":.K.1.(Y.2):.:.K:..X.1)VP$:
..V.. CI$.D(CI):LN.C(CI$):CI$.I(CI$,LN.1
):CI$."00".CI$...B CI$.I(CI$,3):....L LN
.C(VP$):VP$.I(VP$,LN.1):..C.P VT.100.VP:
VT..(VT):TM$.D(VT):LN.C(TM$).1:LB$.H(TM$
,1).`.Z TM$.I(TM$,LN):.LN.2.8430.... ZF$
."":.K.1.(3.LN):ZF$.ZF$."0":.K:TM$.ZF$.T
M$:LN.3.... VP$.LB$.H(TM$,LN.2).".".I(TM
$,2):....4!RB.RB.AM:.(TP$."CK").(TP$."CM
").RB.RB.PC...>!VP.RB:.8400:RB$.VP$:../.
(#IN..((N.1).6):NN.N.(6.IN):.NN..1.9100.
K.2#.". ITEM CHK#  DATE     TYPE  FOR  A
MOUNT":VT$."BALANCE.|.7#.SU.1.VT$.""...<
#..12)"TO";.32)VT$.I..#Y.4.((NN.1).3):X.
2:VP$.BI$:.8100:X.7:VP$.CN$:.8100... #X.
13:VP$.MO$."/".DA$."/".YR$:.8100:X.23:VP
$.TP$:.8100.(..#X.28:VP$.AC$:.8100:AZ$.A
M$:.9200.\..#Y.Y.1:X.13:VP$.T0$:.8100:AZ
$.RB$:.SU.1.AZ$."- ".H.C#.9200:.....#LN.
C(AZ$):.H(AZ$,1).."-".9220....#VP$.I(AZ$
,LN.1):X.33:.8100:.....$VP$."":.K.2.LN:V
P$.VP$.".".J(AZ$,K,1):.K:X.33:.8100:....
.$.HK$.!..%RE$(I).BI$."^".CN$."^".MO$."^
".DA$."^".YR$."^".].&%RE$(I).RE$(I).TP$.
"^".AC$."^".AM$."^".T0$."^".RC$."^":....
.%KS.1:.9800:BI$.H(RE$(I),K.1):KS.K.1:.9
800:.9900:CN$.TV$.Q..%CN.E(CN$):.9800:.9
900:MO$.TV$:MO.E(MO$):.9800:.9900....%DA
$.TV$:DA.E(DA$):.9800:.9900:YR$.TV$:YR.E
(YR$):.9800.E..%.9900:TP$.TV$:.9800:.990
0:AC$.TV$:.9800:.9900:AM$.TV$.{..%AM.E(A
M$):.9800:.9900:T0$.TV$:.9800:.9900:RC$.
TV$....%....H&.K.KS.80:.J(RE$(I),K,1)."^
".9820...W&.K...\&..M..&TV$."":.(K.KS).0
.9920....&TV$.J(RE$(I),KS,K.KS)....&KS.K
.1:.....'.FF.0.LC.193....'.FF.0.FF.1.B.$
'IL.C(IT$):LC.LC.IL.1:.1,IT$:.LC.193.100
90.V..'TH.TI:.59411,53.K.8'.(TI.TH).5.10
040...B'.59411,61:LC.IL.1...J'....$

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL