SOURCE CHECKBOOK
FILE INFORMATION
FILENAME(S): SOURCE CHECKBOOK
FILE TYPE(S): PRG
FILE SIZE: 12.3K
FIRST SEEN: 2025-11-30 18:12:19
APPEARS ON: 1 disk(s)
FILE HASH
4a83f62683d3d414980c964ad639eaa0c944872c9cb3e65ec9bc9fc249adfe78
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| LOADSTAR 63 S 4 | SOURCE CHECKBOOK | PRG | Sailor, Ganheden | 27 | 16 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0E 08 64 00 8F 40 20 45 33 35 32 30 00 38 |....d..@ E3520.8|
00000010: 08 6E 00 97 35 33 32 38 31 2C 30 3A 97 35 33 32 |.n..53281,0:.532|
00000020: 38 30 2C 30 3A 99 22 93 0E 05 D3 45 54 54 49 4E |80,0:."....ETTIN|
00000030: 47 20 55 50 2E 2E 2E 22 00 5F 08 78 00 9C 3A 8B |G UP..."._.x..:.|
00000040: C2 28 36 35 33 29 A7 93 22 45 43 2E 48 45 4C 50 |.(653).."EC.HELP|
00000050: 20 53 43 52 45 45 4E 53 22 2C 38 2C 31 32 38 00 | SCREENS",8,128.|
00000060: 83 08 82 00 8B C2 28 36 35 33 29 A7 93 22 45 43 |......(653).."EC|
00000070: 2E 46 4F 4E 54 22 2C 38 2C 31 32 38 3A 97 37 38 |.FONT",8,128:.78|
00000080: 37 2C 30 00 91 08 8C 00 97 35 33 32 38 30 2C 31 |7,0......53280,1|
00000090: 31 00 B1 08 96 00 8B C2 28 36 35 33 29 A7 31 35 |1.......(653).15|
000000A0: 30 3A 8F 20 53 4E 41 50 53 48 4F 54 20 48 45 52 |0:. SNAPSHOT HER|
000000B0: 45 00 FB 08 A0 00 86 20 41 24 28 34 2C 32 30 30 |E...... A$(4,200|
000000C0: 29 2C 4D 55 24 28 31 32 29 2C 43 28 38 29 2C 58 |),MU$(12),C(8),X|
000000D0: 28 34 29 2C 59 28 34 29 2C 4C 49 28 34 29 2C 45 |(4),Y(4),LI(4),E|
000000E0: 4D 24 28 34 29 2C 4D 4F 24 28 31 34 29 2C 43 24 |M$(4),MO$(14),C$|
000000F0: 28 31 29 2C 41 25 28 32 30 30 29 00 3B 09 AA 00 |(1),A%(200).;...|
00000100: 86 53 4E 28 34 29 3A 43 24 28 30 29 B2 22 9B 22 |.SN(4):C$(0)."."|
00000110: 3A 43 24 28 31 29 B2 22 98 22 3A 9F 31 35 2C 38 |:C$(1).".":.15,8|
00000120: 2C 31 35 3A 52 4E B2 31 3A 8D 33 31 34 30 3A 4C |,15:RN.1:.3140:L|
00000130: B2 31 3A 97 36 35 30 2C 31 32 38 00 7A 09 B4 00 |.1:.650,128.z...|
00000140: 81 49 B2 30 A4 31 31 3A 87 4D 55 24 28 49 29 3A |.I.0.11:.MU$(I):|
00000150: 82 3A 87 43 28 31 29 2C 43 28 32 29 2C 43 28 33 |.:.C(1),C(2),C(3|
00000160: 29 2C 43 28 34 29 2C 43 28 35 29 2C 43 28 36 29 |),C(4),C(5),C(6)|
00000170: 2C 43 28 37 29 2C 43 28 30 29 00 AA 09 BE 00 81 |,C(7),C(0)......|
00000180: 49 B2 30 A4 34 3A 87 58 28 49 29 2C 59 28 49 29 |I.0.4:.X(I),Y(I)|
00000190: 2C 4C 49 28 49 29 3A 82 3A 81 49 B2 31 A4 31 34 |,LI(I):.:.I.1.14|
000001A0: 3A 87 4D 4F 24 28 49 29 3A 82 00 E9 09 C8 00 4C |:.MO$(I):......L|
000001B0: 4E 24 B2 22 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |N$."------------|
000001C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000001D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 3A 4C 4E |------------":LN|
000001E0: 24 B2 4C 4E 24 AA 4C 4E 24 00 FF 09 D2 00 81 49 |$.LN$.LN$......I|
000001F0: B2 30 A4 34 3A 87 41 24 28 49 2C 30 29 3A 82 00 |.0.4:.A$(I,0):..|
00000200: 30 0A DC 00 54 43 24 B2 22 31 30 31 30 31 30 31 |0...TC$."1010101|
00000210: 30 31 30 31 22 3A 58 24 B2 C7 28 31 33 29 3A 4D |0101":X$..(13):M|
00000220: 4F 24 28 30 29 B2 22 C4 45 43 45 4D 42 45 52 22 |O$(0).".ECEMBER"|
00000230: 00 7E 0A E6 00 42 4F 24 B2 22 12 9E 13 11 11 11 |.~...BO$."......|
00000240: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00000250: 11 11 1D 1D 1D 20 20 20 20 20 20 20 20 20 20 20 |..... |
00000260: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000270: 20 20 20 20 20 20 20 1D 1D 1D 1D 1D 1D 22 00 B4 | ......"..|
00000280: 0A F0 00 42 4F 24 B2 42 4F 24 AA 22 20 20 20 20 |...BO$.BO$." |
00000290: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000002A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 1D 1D | ..|
000002B0: 1D 91 91 22 00 C0 0A FA 00 99 22 93 0E 08 05 22 |..."......"...."|
000002C0: 00 0C 0B 04 01 53 50 24 B2 22 20 20 20 20 20 20 |.....SP$." |
000002D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000002E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000002F0: 20 22 3A 52 42 24 B2 22 30 2E 30 30 22 3A 42 24 | ":RB$."0.00":B$|
00000300: B2 52 42 24 3A 42 42 24 B2 52 42 24 00 23 0B 0E |.RB$:BB$.RB$.#..|
00000310: 01 97 35 33 32 38 31 2C 30 3A 97 35 33 32 38 30 |..53281,0:.53280|
00000320: 2C 31 31 00 2C 0B 18 01 8D 33 31 30 00 6E 0B 22 |,11.,....310.n."|
00000330: 01 91 4C 8D 39 30 30 2C 31 39 32 30 2C 32 38 30 |..L.900,1920,280|
00000340: 30 2C 32 36 35 30 2C 32 39 30 30 2C 33 30 37 30 |0,2650,2900,3070|
00000350: 2C 33 31 34 30 2C 33 31 36 30 2C 33 32 34 30 2C |,3140,3160,3240,|
00000360: 33 34 37 30 2C 31 35 33 30 2C 33 33 32 30 00 77 |3470,1530,3320.w|
00000370: 0B 2C 01 89 32 38 30 00 8D 0B 36 01 8B C2 28 32 |.,..280...6...(2|
00000380: 30 32 33 29 B3 B1 39 35 A7 8D 37 37 30 00 A4 0B |023)..95..770...|
00000390: 40 01 8B C2 28 31 31 31 30 29 B3 B1 31 39 37 A7 |@...(1110)..197.|
000003A0: 8D 38 36 30 00 E3 0B 4A 01 99 22 13 11 11 22 A6 |.860...J.."...".|
000003B0: 35 29 3B 22 05 12 20 C5 20 C1 20 D3 20 D9 20 A0 |5);".. . . . . .|
000003C0: 20 C3 20 C8 20 C5 A0 C3 20 CB 20 C2 20 CF 20 CF | . . ... . . . .|
000003D0: 20 CB 20 20 22 3A 8B 4C B3 31 B0 4C B1 31 32 A7 | . ":.L.1.L.12.|
000003E0: 4C B2 31 00 ED 0B 54 01 8D 31 36 34 30 00 27 0C |L.1...T..1640.'.|
000003F0: 5E 01 97 32 31 34 2C 31 39 3A 99 3A 99 22 1D 20 |^..214,19:.:.". |
00000400: 1F B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 |................|
00000410: B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 |................|
00000420: B9 B9 B9 B9 B9 20 22 00 5C 0C 68 01 99 22 1D 20 |..... ".\.h..". |
00000430: 1F 12 20 12 9E 20 20 20 20 20 20 20 20 20 20 20 |.. .. |
00000440: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000450: 20 20 20 20 20 20 20 1F 20 92 20 22 00 91 0C 72 | . . "...r|
00000460: 01 99 22 1D 20 1F 12 20 12 9E 20 20 20 20 20 20 |..". .. .. |
00000470: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000480: 20 20 20 20 20 20 20 20 20 20 20 20 1F 20 92 20 | . . |
00000490: 22 00 C1 0C 7C 01 99 22 1D 20 1F B8 B8 B8 B8 B8 |"...|..". ......|
000004A0: B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 |................|
000004B0: B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 20 |............... |
000004C0: 22 00 FB 0C 86 01 4D 31 24 B2 22 C3 D2 D3 D2 2F |".....M1$."..../|
000004D0: D2 C5 D4 D5 D2 CE 20 54 4F 20 53 45 4C 45 43 54 |...... TO SELECT|
000004E0: 22 3A 4D 32 24 B2 22 C3 D4 D2 CC 2D C8 20 54 4F |":M2$."....-. TO|
000004F0: 20 48 45 4C 50 22 3A 8D 38 33 30 00 33 0D 90 01 | HELP":.830.3...|
00000500: 99 22 13 11 11 11 22 3B 3A 54 43 B2 30 3A 81 49 |."....";:TC.0:.I|
00000510: B2 30 A4 31 31 3A 54 43 B2 A8 54 43 3A 99 A6 35 |.0.11:TC..TC:..5|
00000520: 29 22 12 22 43 24 28 AB 54 43 29 4D 55 24 28 49 |)"."C$(.TC)MU$(I|
00000530: 29 3A 82 00 3E 0D 9A 01 97 31 39 38 2C 30 00 7A |):..>....198,0.z|
00000540: 0D A4 01 A1 41 24 3A 8D 37 34 30 3A 8B 41 24 B3 |....A$:.740:.A$.|
00000550: B1 22 91 22 AF 41 24 B3 B1 22 11 22 AF 41 24 B3 |.".".A$..".".A$.|
00000560: B1 C7 28 31 33 29 AF 41 24 B3 B1 22 08 22 AF 41 |..(13).A$..".".A|
00000570: 24 B3 B1 22 3F 22 A7 34 32 30 00 94 0D AE 01 8B |$.."?".420......|
00000580: 41 24 B2 C7 28 31 33 29 A7 43 54 B2 31 3A 8D 37 |A$..(13).CT.1:.7|
00000590: 35 30 3A 8E 00 A7 0D B8 01 8B 41 24 B2 22 08 22 |50:.......A$."."|
000005A0: A7 4C B2 31 32 3A 8E 00 E8 0D C2 01 8B 41 24 B2 |.L.12:.......A$.|
000005B0: 22 3F 22 A7 4D 31 24 B2 22 C6 52 45 45 20 4D 45 |"?".M1$.".REE ME|
000005C0: 4D 4F 52 59 20 22 AA C4 28 B8 28 30 29 29 3A 4D |MORY "..(.(0)):M|
000005D0: 32 24 B2 22 D0 52 45 53 53 20 41 20 4B 45 59 2E |2$.".RESS A KEY.|
000005E0: 2E 2E 22 3A 8D 38 33 30 00 0B 0E CC 01 8B 41 24 |..":.830......A$|
000005F0: B2 22 3F 22 A7 97 31 39 38 2C 30 3A 92 31 39 38 |."?"..198,0:.198|
00000600: 2C 31 3A A1 41 24 3A 89 33 31 30 00 42 0E D6 01 |,1:.A$:.310.B...|
00000610: 97 32 31 34 2C 33 AA 4C 3A 97 32 31 31 2C 35 3A |.214,3.L:.211,5:|
00000620: 9E 35 38 37 33 32 3A 99 22 12 22 43 24 28 C5 28 |.58732:."."C$(.(|
00000630: CA 28 54 43 24 2C 4C 2C 31 29 29 29 4D 55 24 28 |.(TC$,L,1)))MU$(|
00000640: 4C 29 00 5E 0E E0 01 8B 41 24 B2 22 11 22 A7 4C |L).^....A$.".".L|
00000650: B2 4C AA 31 3A 8B 4C B1 31 31 A7 4C B2 31 00 7A |.L.1:.L.11.L.1.z|
00000660: 0E EA 01 8B 41 24 B2 22 91 22 A7 4C B2 4C AB 31 |....A$.".".L.L.1|
00000670: 3A 8B 4C B3 31 A7 4C B2 31 31 00 AA 0E F4 01 97 |:.L.1.L.11......|
00000680: 32 31 34 2C 33 AA 4C 3A 97 32 31 31 2C 35 3A 9E |214,3.L:.211,5:.|
00000690: 35 38 37 33 32 3A 99 22 12 22 4D 55 24 28 4C 29 |58732:."."MU$(L)|
000006A0: 3A 43 54 B2 37 3A 89 34 32 30 00 BB 0E FE 01 8F |:CT.7:.420......|
000006B0: 20 44 41 54 41 20 54 41 42 4C 45 00 E2 0E 08 02 | DATA TABLE.....|
000006C0: 83 22 9B 20 20 20 20 20 20 20 20 20 20 20 20 20 |.". |
000006D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000006E0: 20 22 00 08 0F 12 02 83 22 20 C3 52 45 41 54 45 | "......" .REATE|
000006F0: 2F D5 50 44 41 54 45 20 C3 48 45 43 4B 42 4F 4F |/.PDATE .HECKBOO|
00000700: 4B 20 20 20 20 20 20 22 00 2E 0F 1C 02 83 22 20 |K "......" |
00000710: CC 49 53 54 20 C3 48 45 43 4B 53 20 28 D3 43 52 |.IST .HECKS (.CR|
00000720: 45 45 4E 2F D0 52 49 4E 54 45 52 29 20 22 00 54 |EEN/.RINTER) ".T|
00000730: 0F 26 02 83 22 20 CC 4F 41 44 20 41 20 46 49 4C |.&.." .OAD A FIL|
00000740: 45 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |E |
00000750: 20 20 20 22 00 7A 0F 30 02 83 22 20 D3 41 56 45 | ".z.0.." .AVE|
00000760: 20 54 48 49 53 20 46 49 4C 45 20 20 20 20 20 20 | THIS FILE |
00000770: 20 20 20 20 20 20 20 20 20 22 00 A0 0F 3A 02 83 | "...:..|
00000780: 22 20 D3 45 4E 44 20 44 49 53 4B 20 43 4F 4D 4D |" .END DISK COMM|
00000790: 41 4E 44 20 20 20 20 20 20 20 20 20 20 20 20 22 |AND "|
000007A0: 00 C6 0F 44 02 83 22 20 D3 4F 52 54 20 43 48 45 |...D.." .ORT CHE|
000007B0: 43 4B 53 20 46 4F 52 20 4C 49 53 54 49 4E 47 20 |CKS FOR LISTING |
000007C0: 20 20 20 20 20 22 00 EC 0F 4E 02 83 22 20 D2 45 | "...N.." .E|
000007D0: 53 54 4F 52 45 20 53 4F 52 54 45 44 20 43 48 45 |STORE SORTED CHE|
000007E0: 43 4B 53 20 20 20 20 20 20 20 20 22 00 12 10 58 |CKS "...X|
000007F0: 02 83 22 20 D3 45 45 20 44 45 50 4F 53 49 54 53 |.." .EE DEPOSITS|
00000800: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000810: 20 22 00 38 10 62 02 83 22 20 D4 4F 54 41 4C 53 | ".8.b.." .OTALS|
00000820: 20 4F 46 20 43 48 45 43 4B 53 2F 44 45 50 4F 53 | OF CHECKS/DEPOS|
00000830: 49 54 53 20 20 20 20 22 00 5E 10 6C 02 83 22 20 |ITS ".^.l.." |
00000840: D2 45 53 45 54 20 D0 52 4F 47 52 41 4D 20 20 20 |.ESET .ROGRAM |
00000850: 20 20 20 20 20 20 20 20 20 20 20 20 20 22 00 84 | "..|
00000860: 10 76 02 83 22 20 D2 45 54 55 52 4E 20 54 4F 20 |.v.." .ETURN TO |
00000870: CC 4F 41 44 53 54 41 52 20 20 20 20 20 20 20 20 |.OADSTAR |
00000880: 20 20 20 22 00 95 10 80 02 8F 20 43 4F 4C 4F 52 | "...... COLOR|
00000890: 20 44 41 54 41 00 AF 10 8A 02 83 31 2C 31 35 2C | DATA......1,15,|
000008A0: 31 32 2C 31 31 2C 31 32 2C 31 35 2C 31 2C 37 00 |12,11,12,15,1,7.|
000008B0: F5 10 94 02 8F 20 50 52 4F 4D 50 54 20 50 4F 53 |..... PROMPT POS|
000008C0: 49 54 49 4F 4E 53 20 4F 4E 20 53 43 52 45 45 4E |ITIONS ON SCREEN|
000008D0: 20 49 4E 20 54 20 20 20 20 20 20 20 20 20 54 48 | IN T TH|
000008E0: 45 20 4F 52 44 45 52 3A 20 58 2C 20 59 2C 20 4C |E ORDER: X, Y, L|
000008F0: 45 4E 47 54 48 00 1E 11 9E 02 83 31 30 2C 32 2C |ENGTH......10,2,|
00000900: 38 2C 32 39 2C 32 2C 35 2C 35 2C 37 2C 31 38 2C |8,29,2,5,5,7,18,|
00000910: 32 32 2C 39 2C 39 2C 35 2C 31 33 2C 31 38 00 32 |22,9,9,5,13,18.2|
00000920: 11 A8 02 8F 20 4D 45 4E 55 20 47 4C 4F 57 20 42 |.... MENU GLOW B|
00000930: 41 52 00 44 11 B2 02 8F 20 4D 4F 4E 54 48 20 4E |AR.D.... MONTH N|
00000940: 41 4D 45 53 00 8B 11 BC 02 83 22 CA 41 4E 55 41 |AMES......".ANUA|
00000950: 52 59 22 2C 22 C6 45 42 52 55 41 52 59 22 2C 22 |RY",".EBRUARY","|
00000960: CD 41 52 43 48 22 2C 22 C1 50 52 49 4C 22 2C 22 |.ARCH",".PRIL","|
00000970: CD 41 59 22 2C 22 CA 55 4E 45 22 2C 22 CA 55 4C |.AY",".UNE",".UL|
00000980: 59 22 2C 22 C1 55 47 55 53 54 22 00 CE 11 C6 02 |Y",".UGUST".....|
00000990: 83 22 D3 45 50 54 45 4D 42 45 52 22 2C 22 CF 43 |.".EPTEMBER",".C|
000009A0: 54 4F 42 45 52 22 2C 22 CE 4F 56 45 4D 42 45 52 |TOBER",".OVEMBER|
000009B0: 22 2C 22 C4 45 43 45 4D 42 45 52 22 2C 22 C1 42 |",".ECEMBER",".B|
000009C0: 4F 52 54 22 2C 22 CE 4F 20 46 49 4C 45 22 00 E0 |ORT",".O FILE"..|
000009D0: 11 D0 02 8F 20 46 49 45 4C 44 20 4E 41 4D 45 53 |.... FIELD NAMES|
000009E0: 00 0F 12 DA 02 83 22 C4 41 54 45 22 2C 22 C3 48 |......".ATE",".H|
000009F0: 45 43 4B 22 2C 22 D0 41 59 45 45 22 2C 22 C1 4D |ECK",".AYEE",".M|
00000A00: 4F 55 4E 54 22 2C 22 D0 55 52 50 4F 53 45 22 00 |OUNT",".URPOSE".|
00000A10: 27 12 E4 02 43 54 B2 43 54 AA 2E 32 3A 8B 43 54 |'...CT.CT..2:.CT|
00000A20: B1 37 A7 43 54 B2 31 00 5A 12 EE 02 97 36 34 36 |.7.CT.1.Z....646|
00000A30: 2C 43 28 43 54 29 3A 97 32 31 34 2C 33 AA 4C 3A |,C(CT):.214,3.L:|
00000A40: 97 32 31 31 2C 35 3A 9E 35 38 37 33 32 3A 99 22 |.211,5:.58732:."|
00000A50: 12 22 4D 55 24 28 4C 29 3A 8E 00 73 12 F8 02 8F |."MU$(L):..s....|
00000A60: 20 42 41 43 4B 47 52 4F 55 4E 44 20 50 41 54 54 | BACKGROUND PATT|
00000A70: 45 52 4E 00 7D 12 02 03 99 22 13 22 3B 00 A7 12 |ERN.}....".";...|
00000A80: 0C 03 81 49 B2 31 A4 38 33 3A 99 22 9F A9 A9 1E |...I.1.83:."....|
00000A90: DF DF 9F A9 A9 1E DF DF 9F A9 A9 1E DF DF 22 3B |..............";|
00000AA0: 3A 82 3A 99 22 13 22 00 E1 12 16 03 81 49 B2 38 |:.:."."......I.8|
00000AB0: A4 31 31 3A 97 32 30 31 32 AA 49 2C C2 28 32 30 |.11:.2012.I,.(20|
00000AC0: 31 32 AB 34 30 AA 49 29 3A 97 35 36 32 38 34 AA |12.40.I):.56284.|
00000AD0: 49 2C C2 28 35 36 32 38 34 AB 34 30 AA 49 29 3A |I,.(56284.40.I):|
00000AE0: 82 00 F8 12 20 03 8F 20 43 4C 45 41 52 20 4C 49 |.... .. CLEAR LI|
00000AF0: 4E 45 20 4C 49 4E 4B 53 00 17 13 2A 03 81 49 B2 |NE LINKS...*..I.|
00000B00: 32 31 37 A4 32 34 32 3A 97 49 2C C2 28 49 29 B0 |217.242:.I,.(I).|
00000B10: 31 32 38 3A 82 3A 8E 00 2B 13 34 03 8F 20 50 52 |128:.:..+.4.. PR|
00000B20: 49 4E 54 20 4D 45 53 53 41 47 45 00 44 13 3E 03 |INT MESSAGE.D.>.|
00000B30: 99 42 4F 24 A6 32 30 AB C3 28 4D 31 24 29 AD 32 |.BO$.20..(M1$).2|
00000B40: 29 4D 31 24 00 70 13 48 03 99 22 12 22 A6 32 30 |)M1$.p.H..".".20|
00000B50: AB C3 28 4D 32 24 29 AD 32 29 4D 32 24 22 13 22 |..(M2$).2)M2$"."|
00000B60: 3A 4D 31 24 B2 22 22 3A 4D 32 24 B2 22 22 3A 8E |:M1$."":M2$."":.|
00000B70: 00 80 13 52 03 8F 20 50 52 49 4E 54 20 42 4F 58 |...R.. PRINT BOX|
00000B80: 00 B7 13 5C 03 99 22 13 11 1D 1D 1D 1D 9E B0 C0 |...\..".........|
00000B90: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000BA0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 AE 22 3A |..............":|
00000BB0: 81 49 B2 31 A4 31 33 00 E4 13 66 03 99 A6 34 29 |.I.1.13...f...4)|
00000BC0: 22 DD 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |". |
00000BD0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000BE0: DD 22 3A 82 00 11 14 70 03 99 A6 34 29 22 AD C0 |.":....p...4)"..|
00000BF0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000C00: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 BD 22 3A |..............":|
00000C10: 8E 00 2D 14 7A 03 8F 20 45 4E 54 45 52 20 43 48 |..-.z.. ENTER CH|
00000C20: 45 43 4B 53 2F 44 45 50 4F 53 49 54 53 00 5A 14 |ECKS/DEPOSITS.Z.|
00000C30: 84 03 8D 38 36 30 3A 4D 31 24 B2 22 C6 31 20 4E |...860:M1$.".1 N|
00000C40: 45 58 54 20 20 C6 32 20 50 52 45 56 49 4F 55 53 |EXT .2 PREVIOUS|
00000C50: 20 20 5E 20 45 58 49 54 2E 22 00 8B 14 8E 03 4D | ^ EXIT.".....M|
00000C60: 32 24 B2 22 C6 34 20 46 49 52 53 54 20 20 C6 33 |2$.".4 FIRST .3|
00000C70: 20 4C 41 53 54 20 C3 D2 D3 D2 2F D2 C5 D4 20 53 | LAST ..../... S|
00000C80: 45 4C 45 43 54 22 3A 8D 38 33 30 00 BA 14 98 03 |ELECT":.830.....|
00000C90: 99 22 9F 13 11 11 1D 1D 1D 1D 1D C4 41 54 45 3A |."..........ATE:|
00000CA0: 20 20 20 20 20 20 20 20 20 20 20 C3 48 45 43 4B | .HECK|
00000CB0: 20 23 3A 20 20 20 20 20 20 22 00 E6 14 A2 03 99 | #: "......|
00000CC0: 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D A3 A3 A3 A3 A3 |"...............|
00000CD0: A3 A3 A3 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D A3 A3 A3 |................|
00000CE0: A3 A3 A3 A3 11 22 00 09 15 AC 03 99 22 1D 1D 1D |....."......"...|
00000CF0: 1D 1D D0 41 59 20 54 4F 20 54 48 45 20 4F 52 44 |...AY TO THE ORD|
00000D00: 45 52 20 4F 46 3A 11 11 22 00 34 15 B6 03 99 22 |ER OF:..".4...."|
00000D10: 1D 1D 1D 1D 1D A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |................|
00000D20: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |................|
00000D30: A3 A3 A3 22 00 55 15 C0 03 99 A6 31 33 29 22 C1 |...".U.....13)".|
00000D40: 4D 4F 55 4E 54 3A 20 24 20 20 20 20 20 20 20 20 |MOUNT: $ |
00000D50: 20 20 20 20 22 00 6F 15 CA 03 99 A6 32 31 29 22 | ".o.....21)"|
00000D60: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 22 00 |..............".|
00000D70: 86 15 D4 03 99 22 1D 1D 1D 1D 1D C3 4F 4D 4D 45 |....."......OMME|
00000D80: 4E 54 3A 11 11 22 00 B3 15 DE 03 99 22 1D 1D 1D |NT:.."......"...|
00000D90: 1D 1D A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |................|
00000DA0: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |................|
00000DB0: 13 9E 22 00 E5 15 E8 03 81 49 B2 30 A4 34 3A 97 |.."......I.0.4:.|
00000DC0: 32 31 31 2C 58 28 49 29 3A 97 32 31 34 2C 59 28 |211,X(I):.214,Y(|
00000DD0: 49 29 3A 9E 35 38 37 33 32 3A 99 41 24 28 49 2C |I):.58732:.A$(I,|
00000DE0: 52 4E 29 3A 82 00 F3 15 F2 03 99 22 13 22 3A 49 |RN):.......".":I|
00000DF0: 54 B2 30 00 12 16 FC 03 8F 20 4C 4F 4F 50 20 54 |T.0...... LOOP T|
00000E00: 4F 20 45 4E 54 45 52 20 43 48 45 43 4B 20 44 41 |O ENTER CHECK DA|
00000E10: 54 41 00 49 16 06 04 48 B2 49 54 3A 81 49 54 B2 |TA.I...H.IT:.IT.|
00000E20: 30 A4 34 3A 8B 41 24 28 49 54 2C 52 4E 29 B2 22 |0.4:.A$(IT,RN)."|
00000E30: 22 A7 41 24 28 49 54 2C 52 4E 29 B2 C8 28 53 50 |".A$(IT,RN)..(SP|
00000E40: 24 2C 4C 49 28 49 54 29 29 00 5F 16 10 04 43 54 |$,LI(IT))._...CT|
00000E50: B2 30 3A 8D 31 33 36 30 3A 82 3A 49 54 B2 48 00 |.0:.1360:.:IT.H.|
00000E60: 80 16 1A 04 A1 41 24 3A 97 31 39 39 2C 31 3A 8D |.....A$:.199,1:.|
00000E70: 31 33 35 30 3A 8B 41 24 B2 22 22 A7 31 30 35 30 |1350:.A$."".1050|
00000E80: 00 8E 16 24 04 8B 41 24 B2 22 5E 22 A7 8E 00 BF |...$..A$."^"....|
00000E90: 16 2E 04 8B 41 24 B2 22 1D 22 B0 41 24 B2 22 11 |....A$.".".A$.".|
00000EA0: 22 A7 43 54 B2 30 3A 8D 31 33 36 30 3A 49 54 B2 |".CT.0:.1360:IT.|
00000EB0: 49 54 AA 31 3A 8B 49 54 B1 34 A7 49 54 B2 30 00 |IT.1:.IT.4.IT.0.|
00000EC0: F0 16 38 04 8B 41 24 B2 22 9D 22 B0 41 24 B2 22 |..8..A$.".".A$."|
00000ED0: 91 22 A7 43 54 B2 30 3A 8D 31 33 36 30 3A 49 54 |.".CT.0:.1360:IT|
00000EE0: B2 49 54 AB 31 3A 8B 49 54 B3 30 A7 49 54 B2 34 |.IT.1:.IT.0.IT.4|
00000EF0: 00 01 17 42 04 8B 52 4E B2 32 30 30 A7 31 31 31 |...B..RN.200.111|
00000F00: 30 00 39 17 4C 04 8B 41 24 B2 22 85 22 A7 8B 52 |0.9.L..A$."."..R|
00000F10: 4E B3 4D 41 58 AA 31 A7 49 54 B2 49 54 AB 31 3A |N.MAX.1.IT.IT.1:|
00000F20: 8D 31 38 31 30 3A 52 4E B2 52 4E AA 31 3A 8D 31 |.1810:RN.RN.1:.1|
00000F30: 36 34 30 3A 89 31 30 33 30 00 66 17 56 04 8B 41 |640:.1030.f.V..A|
00000F40: 24 B2 22 86 22 A7 52 4E B2 4D 41 58 3A 49 54 B2 |$.".".RN.MAX:IT.|
00000F50: 49 54 AB 31 3A 8D 31 38 31 30 3A 8D 31 36 34 30 |IT.1:.1810:.1640|
00000F60: 3A 89 31 30 33 30 00 91 17 60 04 8B 41 24 B2 22 |:.1030...`..A$."|
00000F70: 8A 22 A7 52 4E B2 31 3A 49 54 B2 49 54 AB 31 3A |.".RN.1:IT.IT.1:|
00000F80: 8D 31 38 31 30 3A 8D 31 36 34 30 3A 89 31 30 33 |.1810:.1640:.103|
00000F90: 30 00 BD 17 6A 04 8B 41 24 B2 22 89 22 A7 8B 52 |0...j..A$."."..R|
00000FA0: 4E B1 31 A7 8D 31 38 31 30 3A 52 4E B2 52 4E AB |N.1..1810:RN.RN.|
00000FB0: 31 3A 8D 31 36 34 30 3A 89 31 30 33 30 00 D4 17 |1:.1640:.1030...|
00000FC0: 74 04 8B 41 24 B2 22 87 22 A7 8D 33 32 38 30 3A |t..A$."."..3280:|
00000FD0: 89 39 30 30 00 FA 17 7E 04 8B C5 28 41 24 28 33 |.900...~...(A$(3|
00000FE0: 2C 52 4E 29 29 A7 8B 52 4E B1 4D 41 58 A7 4D 41 |,RN))..RN.MAX.MA|
00000FF0: 58 B2 52 4E 3A 8D 31 36 34 30 00 35 18 88 04 8B |X.RN:.1640.5....|
00001000: 41 24 B2 22 1D 22 B0 41 24 B2 22 9D 22 B0 41 24 |A$.".".A$.".".A$|
00001010: B2 22 91 22 B0 41 24 B2 22 11 22 B0 41 24 B2 22 |.".".A$.".".A$."|
00001020: 85 22 B0 41 24 B2 22 89 22 B0 41 24 B2 22 87 22 |.".A$.".".A$."."|
00001030: A7 31 30 35 30 00 56 18 92 04 8B 41 24 B3 B1 C7 |.1050.V....A$...|
00001040: 28 31 33 29 A7 97 36 33 31 2C C6 28 41 24 29 3A |(13)..631,.(A$):|
00001050: 97 31 39 38 2C 31 00 84 18 9C 04 8D 31 33 32 30 |.198,1......1320|
00001060: 3A 97 32 31 34 2C 59 28 49 54 29 3A 97 32 31 31 |:.214,Y(IT):.211|
00001070: 2C 58 28 49 54 29 3A 9E 35 38 37 33 32 3A 97 36 |,X(IT):.58732:.6|
00001080: 34 36 2C 31 00 AD 18 A6 04 4C 49 B2 4C 49 28 49 |46,1.....LI.LI(I|
00001090: 54 29 3A 8D 31 33 39 30 3A 8B 57 24 B3 B1 22 22 |T):.1390:.W$..""|
000010A0: A7 41 24 28 49 54 2C 52 4E 29 B2 57 24 00 BD 18 |.A$(IT,RN).W$...|
000010B0: B0 04 8B 57 24 B2 22 22 A7 31 32 38 30 00 E3 18 |...W$."".1280...|
000010C0: BA 04 8B C5 28 41 24 28 33 2C 52 4E 29 29 A7 8B |....(A$(3,RN))..|
000010D0: 52 4E B1 4D 41 58 A7 4D 41 58 B2 52 4E 3A 8D 31 |RN.MAX.MAX.RN:.1|
000010E0: 36 34 30 00 1E 19 C4 04 8B 52 4E A7 8B 41 24 28 |640......RN..A$(|
000010F0: 31 2C 52 4E 29 B2 22 30 22 A7 8D 33 35 34 30 3A |1,RN)."0"..3540:|
00001100: 41 24 28 31 2C 52 4E 29 B2 CA 28 C4 28 C5 28 41 |A$(1,RN)..(.(.(A|
00001110: 24 28 31 2C 42 43 29 29 AA 31 29 2C 32 29 00 52 |$(1,BC)).1),2).R|
00001120: 19 CE 04 8B 52 4E A7 8B 49 54 B3 B1 31 A7 8B 41 |....RN..IT..1..A|
00001130: 24 28 49 54 2C 52 4E 29 B2 22 30 22 A7 41 24 28 |$(IT,RN)."0".A$(|
00001140: 49 54 2C 52 4E 29 B2 41 24 28 49 54 2C 52 4E AB |IT,RN).A$(IT,RN.|
00001150: 31 29 00 9C 19 D8 04 8B 41 24 28 32 2C 52 4E 29 |1)......A$(2,RN)|
00001160: B2 22 44 22 B0 41 24 28 32 2C 52 4E 29 B2 22 44 |."D".A$(2,RN)."D|
00001170: 45 50 4F 53 49 54 22 B0 41 24 28 32 2C 52 4E 29 |EPOSIT".A$(2,RN)|
00001180: B2 22 C4 45 50 4F 53 49 54 22 A7 41 24 28 32 2C |.".EPOSIT".A$(2,|
00001190: 52 4E 29 B2 22 C4 C5 D0 CF D3 C9 D4 00 E2 19 E2 |RN)."...........|
000011A0: 04 8B 41 24 28 32 2C 52 4E 29 B2 22 52 22 B0 41 |..A$(2,RN)."R".A|
000011B0: 24 28 32 2C 52 4E 29 B2 22 52 45 43 4F 4E 43 49 |$(2,RN)."RECONCI|
000011C0: 4C 49 41 54 49 4F 4E 22 A7 41 24 28 32 2C 52 4E |LIATION".A$(2,RN|
000011D0: 29 B2 22 D2 C5 C3 CF CE C3 C9 CC C9 C1 D4 C9 CF |).".............|
000011E0: CE 22 00 24 1A EC 04 8B 41 24 28 32 2C 52 4E 29 |.".$....A$(2,RN)|
000011F0: B2 22 56 22 B0 41 24 28 32 2C 52 4E 29 B2 22 56 |."V".A$(2,RN)."V|
00001200: 4F 49 44 22 B0 41 24 28 32 2C 52 4E 29 B2 22 D6 |OID".A$(2,RN).".|
00001210: 4F 49 44 22 A7 41 24 28 32 2C 52 4E 29 B2 22 D6 |OID".A$(2,RN).".|
00001220: CF C9 C4 22 00 4C 1A F6 04 8B 49 54 B2 33 A7 41 |...".L....IT.3.A|
00001230: 24 B2 41 24 28 33 2C 52 4E 29 3A 8D 31 38 34 30 |$.A$(3,RN):.1840|
00001240: 3A 41 24 28 33 2C 52 4E 29 B2 41 24 00 63 1A 00 |:A$(3,RN).A$.c..|
00001250: 05 43 54 B2 30 3A 8D 31 33 36 30 3A 49 54 B2 49 |.CT.0:.1360:IT.I|
00001260: 54 AA 31 00 92 1A 0A 05 8B 49 54 B1 34 A7 49 54 |T.1......IT.4.IT|
00001270: B2 30 3A 8B C5 28 41 24 28 33 2C 52 4E 29 29 A7 |.0:..(A$(3,RN)).|
00001280: 97 36 33 31 2C C6 28 22 85 22 29 3A 97 31 39 38 |.631,.("."):.198|
00001290: 2C 31 00 9C 1A 14 05 89 31 30 35 30 00 CF 1A 1E |,1......1050....|
000012A0: 05 8F 20 43 4C 45 41 52 20 4F 55 54 20 46 49 45 |.. CLEAR OUT FIE|
000012B0: 4C 44 20 42 45 46 4F 52 45 20 54 59 50 49 4E 47 |LD BEFORE TYPING|
000012C0: 20 20 20 20 20 20 20 20 20 20 20 4F 56 45 52 00 | OVER.|
000012D0: FF 1A 28 05 97 32 31 34 2C 59 28 49 54 29 3A 97 |..(..214,Y(IT):.|
000012E0: 32 31 31 2C 58 28 49 54 29 3A 9E 35 38 37 33 32 |211,X(IT):.58732|
000012F0: 3A 99 C8 28 53 50 24 2C 4C 49 28 49 54 29 29 00 |:..(SP$,LI(IT)).|
00001300: 05 1B 32 05 8E 00 1C 1B 3C 05 8F 20 4D 41 4B 45 |..2.....<.. MAKE|
00001310: 20 46 49 45 4C 44 53 20 47 4C 4F 57 00 34 1B 46 | FIELDS GLOW.4.F|
00001320: 05 43 54 B2 43 54 AA 2E 32 3A 8B 43 54 B1 37 A7 |.CT.CT..2:.CT.7.|
00001330: 43 54 B2 31 00 60 1B 50 05 97 36 34 36 2C 43 28 |CT.1.`.P..646,C(|
00001340: 43 54 29 3A 97 32 31 34 2C 59 28 49 54 29 3A 97 |CT):.214,Y(IT):.|
00001350: 32 31 31 2C 58 28 49 54 29 3A 9E 35 38 37 33 32 |211,X(IT):.58732|
00001360: 00 8E 1B 5A 05 99 41 24 28 49 54 2C 52 4E 29 C8 |...Z..A$(IT,RN).|
00001370: 28 53 50 24 2C B6 28 4C 49 28 49 54 29 AB C3 28 |(SP$,.(LI(IT)..(|
00001380: 41 24 28 49 54 2C 52 4E 29 29 29 29 3A 8E 00 A5 |A$(IT,RN)))):...|
00001390: 1B 64 05 8F 20 47 45 54 20 57 4F 52 44 20 52 4F |.d.. GET WORD RO|
000013A0: 55 54 49 4E 45 00 C4 1B 6E 05 8B 47 58 A7 97 32 |UTINE...n..GX..2|
000013B0: 31 34 2C 47 59 3A 97 32 31 31 2C 47 58 3A 9E 35 |14,GY:.211,GX:.5|
000013C0: 38 37 33 32 00 EE 1B 78 05 57 24 B2 22 22 3A 4C |8732...x.W$."":L|
000013D0: 57 B2 30 3A 99 22 12 3E 92 9D 22 3B 3A 8B 4C 49 |W.0:.".>..";:.LI|
000013E0: 4D 49 54 B2 30 A7 4C 49 4D 49 54 B2 31 30 00 10 |MIT.0.LIMIT.10..|
000013F0: 1C 82 05 A1 41 24 3A 8B 41 24 B2 22 13 22 B0 41 |....A$:.A$.".".A|
00001400: 24 B2 22 93 22 B0 41 24 B2 22 22 A7 31 34 31 30 |$.".".A$."".1410|
00001410: 00 4B 1C 8C 05 8B 41 24 B2 22 91 22 B0 41 24 B2 |.K....A$.".".A$.|
00001420: 22 11 22 B0 41 24 B2 22 9D 22 B0 41 24 B2 22 1D |".".A$.".".A$.".|
00001430: 22 B0 41 24 B2 22 2C 22 B0 41 24 B2 22 3B 22 B0 |".A$.",".A$.";".|
00001440: 41 24 B2 22 3A 22 A7 31 34 31 30 00 71 1C 96 05 |A$.":".1410.q...|
00001450: 41 53 B2 C6 28 41 24 29 3A 8B 41 53 B2 31 33 B0 |AS..(A$):.AS.13.|
00001460: 41 53 B2 31 34 31 B0 41 53 B2 32 30 A7 31 34 39 |AS.141.AS.20.149|
00001470: 30 00 94 1C A0 05 8B C2 28 36 35 33 29 B2 32 B0 |0.......(653).2.|
00001480: C2 28 36 35 33 29 B2 34 B0 41 53 B2 31 34 38 A7 |.(653).4.AS.148.|
00001490: 31 34 31 30 00 C0 1C AA 05 8B 4C 57 B2 4C 49 4D |1410......LW.LIM|
000014A0: 49 54 20 AF 28 41 53 B3 B1 32 30 AF 41 53 B3 B1 |IT .(AS..20.AS..|
000014B0: 31 33 AF 41 53 B3 B1 31 34 31 29 A7 31 34 31 30 |13.AS..141).1410|
000014C0: 00 F1 1C B4 05 8B 41 53 B2 33 34 B0 28 41 53 B1 |......AS.34.(AS.|
000014D0: B2 31 33 33 AF 41 53 B3 B2 31 34 30 29 B0 28 41 |.133.AS..140).(A|
000014E0: 53 B1 B2 31 AF 41 53 B3 B2 33 31 29 A7 31 34 31 |S..1.AS..31).141|
000014F0: 30 00 18 1D BE 05 8B 49 54 AD 32 B3 B1 B5 28 49 |0......IT.2...(I|
00001500: 54 AD 32 29 A7 8B 41 24 B3 22 2D 22 B0 41 24 B1 |T.2)..A$."-".A$.|
00001510: 22 39 22 A7 31 34 31 30 00 3F 1D C8 05 57 24 B2 |"9".1410.?...W$.|
00001520: 57 24 AA 41 24 3A 99 41 24 22 12 3E 92 9D 22 3B |W$.A$:.A$".>..";|
00001530: 3A 4C 57 B2 C3 28 57 24 29 3A 89 31 34 31 30 00 |:LW..(W$):.1410.|
00001540: 7A 1D D2 05 4C 57 B2 C3 28 57 24 29 3A 8B 41 53 |z...LW..(W$):.AS|
00001550: B2 32 30 AF 57 24 B3 B1 22 22 A7 57 24 B2 C8 28 |.20.W$.."".W$..(|
00001560: 57 24 2C 4C 57 AB 31 29 3A 99 22 9D 12 3C 92 20 |W$,LW.1):."..<. |
00001570: 9D 9D 22 3B 3A 89 31 34 31 30 00 90 1D DC 05 8B |..";:.1410......|
00001580: 41 53 B2 32 30 AF 57 24 B2 22 22 A7 31 34 31 30 |AS.20.W$."".1410|
00001590: 00 BB 1D E6 05 8B 41 53 B2 31 33 A7 99 22 20 22 |......AS.13.." "|
000015A0: 3B 3A 4C 57 B2 C3 28 57 24 29 3A 4C 49 B2 30 3A |;:LW..(W$):LI.0:|
000015B0: 47 59 B2 30 3A 47 58 B2 30 3A 8E 00 D4 1D F0 05 |GY.0:GX.0:......|
000015C0: 8F 20 52 45 54 55 52 4E 20 54 4F 20 4C 4F 41 44 |. RETURN TO LOAD|
000015D0: 53 54 41 52 00 E4 1D FA 05 8B 4D 41 58 B2 30 A7 |STAR......MAX.0.|
000015E0: 31 35 36 30 00 27 1E 04 06 4D 31 24 B2 22 C1 52 |1560.'...M1$.".R|
000015F0: 45 20 59 4F 55 20 53 55 52 45 3F 20 28 D9 2F CE |E YOU SURE? (./.|
00001600: 29 22 3A 4D 32 24 B2 22 C8 41 56 45 20 59 4F 55 |)":M2$.".AVE YOU|
00001610: 20 D3 C1 D6 C5 C4 20 54 48 49 53 20 46 49 4C 45 | ..... THIS FILE|
00001620: 3F 22 3A 8D 38 33 30 00 4C 1E 0E 06 97 31 39 38 |?":.830.L....198|
00001630: 2C 30 3A 92 31 39 38 2C 31 3A A1 41 24 3A 8B 41 |,0:.198,1:.A$:.A|
00001640: 24 B3 B1 22 59 22 A7 4C B2 34 3A 8E 00 80 1E 18 |$.."Y".L.4:.....|
00001650: 06 98 31 35 2C 22 52 30 3A 48 45 4C 4C 4F 20 43 |..15,"R0:HELLO C|
00001660: 4F 4E 4E 45 43 54 3D 48 45 4C 4C 4F 20 43 4F 4E |ONNECT=HELLO CON|
00001670: 4E 45 43 54 22 3A 84 31 35 2C 45 52 3A A0 31 35 |NECT":.15,ER:.15|
00001680: 00 96 1E 22 06 8B 20 45 52 B3 B1 36 33 20 A7 20 |...".. ER..63 . |
00001690: 99 22 93 22 3A 80 00 C9 1E 2C 06 41 24 B2 22 48 |.".":....,.A$."H|
000016A0: 45 4C 4C 4F 20 43 4F 4E 4E 45 43 54 22 3A 51 24 |ELLO CONNECT":Q$|
000016B0: B2 C7 28 33 34 29 3A 99 22 93 22 3A 97 36 34 36 |..(34):.".":.646|
000016C0: 2C C2 28 35 33 32 38 31 29 00 E3 1E 36 06 99 22 |,.(53281)...6.."|
000016D0: 13 11 11 11 4C 4F 41 44 22 51 24 41 24 51 24 22 |....LOAD"Q$A$Q$"|
000016E0: 2C 38 22 00 0C 1F 40 06 99 22 11 11 11 11 52 55 |,8"...@.."....RU|
000016F0: 4E 13 22 3A 97 36 33 31 2C 31 33 3A 97 36 33 32 |N.":.631,13:.632|
00001700: 2C 31 33 3A 97 31 39 38 2C 32 3A 80 00 1D 1F 4A |,13:.198,2:....J|
00001710: 06 8F 20 44 55 4D 4D 59 20 4C 49 4E 45 00 23 1F |.. DUMMY LINE.#.|
00001720: 54 06 8E 00 47 1F 5E 06 8F 20 53 48 4F 57 20 49 |T...G.^.. SHOW I|
00001730: 4E 46 4F 52 4D 41 54 49 4F 4E 20 49 4E 20 57 48 |NFORMATION IN WH|
00001740: 49 54 45 20 42 4F 58 00 6E 1F 68 06 97 32 31 34 |ITE BOX.n.h..214|
00001750: 2C 31 37 3A 97 32 31 31 2C 31 3A 9E 35 38 37 33 |,17:.211,1:.5873|
00001760: 32 3A 8B 4D 41 58 B2 30 A7 4D 4F B2 31 34 00 AA |2:.MAX.0.MO.14..|
00001770: 1F 72 06 81 49 B2 31 A4 32 3A 99 22 12 05 20 20 |.r..I.1.2:.".. |
00001780: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001790: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000017A0: 20 20 20 20 1D 1D 22 3B 3A 82 00 DF 1F 7C 06 99 | ..";:....|..|
000017B0: 3A 99 22 91 91 91 12 1D C3 48 45 43 4B 53 20 49 |:."......HECKS I|
000017C0: 4E 20 4D 45 4D 4F 52 59 3A 22 4D 41 58 22 20 D2 |N MEMORY:"MAX" .|
000017D0: 45 43 4F 52 44 20 4E 4F 2E 22 52 4E 22 20 22 00 |ECORD NO."RN" ".|
000017E0: 07 20 86 06 99 22 12 1D CD 4F 4E 54 48 3A 20 22 |. ..."...ONTH: "|
000017F0: 4D 4F 24 28 4D 4F 29 A3 31 39 29 22 D0 52 45 56 |MO$(MO).19)".REV|
00001800: 3A 20 24 22 42 42 24 00 0D 20 90 06 8E 00 25 20 |: $"BB$.. ....% |
00001810: 9A 06 8F 20 43 41 4C 43 55 4C 41 54 45 20 42 41 |... CALCULATE BA|
00001820: 4C 41 4E 43 45 00 32 20 A4 06 8B 4D 41 58 B2 30 |LANCE.2 ...MAX.0|
00001830: A7 8E 00 54 20 AE 06 42 B2 50 42 3A 54 43 B2 30 |...T ..B.PB:TC.0|
00001840: 3A 44 45 B2 30 3A 81 49 B2 30 A4 4D 41 58 3A 4E |:DE.0:.I.0.MAX:N|
00001850: 45 47 B2 31 00 72 20 B8 06 8B 41 24 28 32 2C 49 |EG.1.r ...A$(2,I|
00001860: 29 B2 22 C4 C5 D0 CF D3 C9 D4 22 A7 4E 45 47 B2 |).".......".NEG.|
00001870: AB 31 00 8C 20 C2 06 8B 41 24 28 32 2C 49 29 B2 |.1.. ...A$(2,I).|
00001880: 22 D6 CF C9 C4 22 A7 4E 45 47 B2 30 00 BD 20 CC |"....".NEG.0.. .|
00001890: 06 8B 41 24 28 32 2C 49 29 B2 22 D2 C5 C3 CF CE |..A$(2,I).".....|
000018A0: C3 C9 CC C9 C1 D4 C9 CF CE 22 A7 42 B2 C5 28 41 |.........".B..(A|
000018B0: 24 28 33 2C 49 29 29 3A 89 31 37 38 30 00 D4 20 |$(3,I)):.1780.. |
000018C0: D6 06 42 B2 42 AB 4E 45 47 AC C5 28 41 24 28 33 |..B.B.NEG..(A$(3|
000018D0: 2C 49 29 29 00 0B 21 E0 06 8B 4E 45 47 B2 31 A7 |,I))..!...NEG.1.|
000018E0: 8B 41 24 28 32 2C 49 29 B3 B1 22 D2 C5 C3 CF CE |.A$(2,I)..".....|
000018F0: C3 C9 CC C9 C1 D4 C9 CF CE 22 A7 54 43 B2 54 43 |.........".TC.TC|
00001900: AA C5 28 41 24 28 33 2C 49 29 29 00 27 21 EA 06 |..(A$(3,I)).'!..|
00001910: 8B 4E 45 47 B3 31 A7 44 45 B2 44 45 AA C5 28 41 |.NEG.1.DE.DE..(A|
00001920: 24 28 33 2C 49 29 29 00 36 21 F4 06 8B 49 B2 52 |$(3,I)).6!...I.R|
00001930: 4E A7 52 42 B2 42 00 6C 21 FE 06 82 3A 41 24 B2 |N.RB.B.l!...:A$.|
00001940: C4 28 42 29 3A 8D 31 38 34 30 3A 42 24 B2 41 24 |.(B):.1840:B$.A$|
00001950: 3A 8D 31 36 34 30 3A 43 54 24 B2 C4 28 54 43 29 |:.1640:CT$..(TC)|
00001960: 3A 44 45 24 B2 C4 28 44 45 29 3A 8E 00 8A 21 08 |:DE$..(DE):...!.|
00001970: 07 8F 20 57 49 50 45 20 46 49 45 4C 44 53 20 46 |.. WIPE FIELDS F|
00001980: 52 4F 4D 20 53 43 52 45 45 4E 00 99 21 12 07 8B |ROM SCREEN..!...|
00001990: 49 54 B3 30 A7 49 54 B2 30 00 C3 21 1C 07 48 B2 |IT.0.IT.0..!..H.|
000019A0: 49 54 3A 81 49 54 B2 30 A4 34 3A 43 54 B2 38 3A |IT:.IT.0.4:CT.8:|
000019B0: 8D 31 33 36 30 3A 82 3A 49 54 B2 48 3A 43 54 B2 |.1360:.:IT.H:CT.|
000019C0: 31 3A 8E 00 E3 21 26 07 8F 20 52 4F 55 4E 44 20 |1:...!&.. ROUND |
000019D0: 41 24 20 54 4F 20 4E 45 41 52 45 53 54 20 50 45 |A$ TO NEAREST PE|
000019E0: 4E 4E 59 00 19 22 30 07 41 24 B2 C4 28 C5 28 41 |NNY.."0.A$..(.(A|
000019F0: 24 29 29 3A 41 24 B2 41 24 AA 22 2E 30 30 22 3A |$)):A$.A$.".00":|
00001A00: 41 24 B2 C4 28 B5 28 C5 28 41 24 29 AC 31 30 30 |A$..(.(.(A$).100|
00001A10: AA 2E 35 29 AD 31 30 30 29 00 31 22 3A 07 8B 41 |..5).100).1":..A|
00001A20: 24 B2 22 20 30 22 A7 41 24 B2 22 20 30 2E 30 30 |$." 0".A$." 0.00|
00001A30: 22 00 60 22 44 07 8B C5 28 41 24 29 B1 2E 39 39 |".`"D...(A$)..99|
00001A40: AF C5 28 41 24 29 B3 31 30 2E 31 A7 8B C5 28 41 |..(A$).10.1...(A|
00001A50: 24 29 B2 B5 28 C5 28 41 24 29 29 A7 31 39 30 30 |$)..(.(A$)).1900|
00001A60: 00 79 22 4E 07 8B C3 28 41 24 29 B3 33 A7 41 24 |.y"N...(A$).3.A$|
00001A70: B2 41 24 AA 22 2E 30 30 22 00 94 22 58 07 8B CA |.A$.".00".."X...|
00001A80: 28 41 24 2C C3 28 41 24 29 AB 32 2C 31 29 B2 22 |(A$,.(A$).2,1)."|
00001A90: 2E 22 A7 8E 00 B9 22 62 07 8B CA 28 41 24 2C C3 |."...."b...(A$,.|
00001AA0: 28 41 24 29 AB 31 2C 31 29 B2 22 2E 22 A7 41 24 |(A$).1,1).".".A$|
00001AB0: B2 41 24 AA 22 30 22 3A 8E 00 CB 22 6C 07 41 24 |.A$."0":..."l.A$|
00001AC0: B2 41 24 AA 22 2E 30 30 22 3A 8E 00 DE 22 76 07 |.A$.".00":..."v.|
00001AD0: 8F 20 4C 49 53 54 20 52 45 43 4F 52 44 53 00 EB |. LIST RECORDS..|
00001AE0: 22 80 07 8B 4D 41 58 B2 30 A7 8E 00 10 23 8A 07 |"...MAX.0....#..|
00001AF0: 4D 31 24 B2 22 31 2E 20 CC 49 53 54 20 43 48 45 |M1$."1. .IST CHE|
00001B00: 43 4B 53 20 54 4F 20 53 43 52 45 45 4E 20 20 22 |CKS TO SCREEN "|
00001B10: 00 4C 23 94 07 4D 32 24 B2 22 32 2E 20 CC 49 53 |.L#..M2$."2. .IS|
00001B20: 54 20 43 48 45 43 4B 53 20 54 4F 20 50 52 49 4E |T CHECKS TO PRIN|
00001B30: 54 45 52 20 22 3A 8D 38 33 30 3A 97 31 39 38 2C |TER ":.830:.198,|
00001B40: 30 3A 92 31 39 38 2C 31 3A A1 41 24 00 6E 23 9E |0:.198,1:.A$.n#.|
00001B50: 07 8B 41 24 B3 B1 22 31 22 AF 41 24 B3 B1 22 32 |..A$.."1".A$.."2|
00001B60: 22 AF 41 24 B3 B1 22 5E 22 A7 31 39 32 30 00 7C |".A$.."^".1920.||
00001B70: 23 A8 07 8B 41 24 B2 22 5E 22 A7 8E 00 92 23 B2 |#...A$."^"....#.|
00001B80: 07 50 4F B2 33 3A 8B 41 24 B2 22 32 22 A7 50 4F |.PO.3:.A$."2".PO|
00001B90: B2 34 00 BF 23 BC 07 4D 31 24 B2 22 31 2E 20 D0 |.4..#..M1$."1. .|
00001BA0: 52 49 4E 54 20 41 4C 4C 20 20 20 20 33 2E 20 D0 |RINT ALL 3. .|
00001BB0: 52 49 4E 54 20 43 48 45 43 4B 53 20 3E 3D 22 00 |RINT CHECKS >=".|
00001BC0: EC 23 C6 07 4D 32 24 B2 22 32 2E 20 D0 52 49 4E |.#..M2$."2. .RIN|
00001BD0: 54 20 52 41 4E 47 45 20 20 34 2E 20 D0 52 49 4E |T RANGE 4. .RIN|
00001BE0: 54 20 43 48 45 43 4B 53 20 3C 3D 22 00 25 24 D0 |T CHECKS <=".%$.|
00001BF0: 07 8D 38 33 30 3A 97 31 39 38 2C 30 3A 92 31 39 |..830:.198,0:.19|
00001C00: 38 2C 31 3A A1 41 24 3A 8B 28 41 24 B3 22 31 22 |8,1:.A$:.(A$."1"|
00001C10: B0 41 24 B1 22 34 22 29 AF 41 24 B3 B1 22 5E 22 |.A$."4").A$.."^"|
00001C20: A7 31 39 38 30 00 33 24 DA 07 8B 41 24 B2 22 5E |.1980.3$...A$."^|
00001C30: 22 A7 8E 00 5A 24 E4 07 4D 44 45 B2 C5 28 41 24 |"...Z$..MDE..(A$|
00001C40: 29 3A 91 4D 44 45 89 32 30 34 30 2C 32 33 33 30 |):.MDE.2040,2330|
00001C50: 2C 32 34 33 30 2C 32 34 38 30 00 6F 24 EE 07 8F |,2430,2480.o$...|
00001C60: 20 42 45 47 49 4E 20 50 52 49 4E 54 49 4E 47 00 | BEGIN PRINTING.|
00001C70: 80 24 F8 07 8B 50 4F B2 33 A7 99 22 93 9F 22 3B |.$...PO.3.."..";|
00001C80: 00 A1 24 02 08 9F 33 2C 50 4F 2C 37 3A 52 42 B2 |..$...3,PO,7:RB.|
00001C90: 50 42 3A 81 49 B2 30 A4 4D 41 58 3A 4E 45 47 B2 |PB:.I.0.MAX:NEG.|
00001CA0: 31 00 C3 24 0C 08 8B 41 24 28 32 2C 41 25 28 49 |1..$...A$(2,A%(I|
00001CB0: 29 29 B2 22 C4 C5 D0 CF D3 C9 D4 22 A7 4E 45 47 |)).".......".NEG|
00001CC0: B2 AB 31 00 E1 24 16 08 8B 41 24 28 32 2C 41 25 |..1..$...A$(2,A%|
00001CD0: 28 49 29 29 B2 22 D6 CF C9 C4 22 A7 4E 45 47 B2 |(I))."....".NEG.|
00001CE0: 30 00 1B 25 20 08 8B 41 24 28 32 2C 41 25 28 49 |0..% ..A$(2,A%(I|
00001CF0: 29 29 B2 22 D2 C5 C3 CF CE C3 C9 CC C9 C1 D4 C9 |))."............|
00001D00: CF CE 22 A7 52 42 B2 C5 28 41 24 28 33 2C 41 25 |..".RB..(A$(3,A%|
00001D10: 28 49 29 29 29 3A 89 32 31 30 30 00 38 25 2A 08 |(I))):.2100.8%*.|
00001D20: 52 42 B2 52 42 AB 4E 45 47 AC C5 28 41 24 28 33 |RB.RB.NEG..(A$(3|
00001D30: 2C 41 25 28 49 29 29 29 00 6D 25 34 08 52 42 24 |,A%(I))).m%4.RB$|
00001D40: B2 C4 28 52 42 29 3A 41 24 B2 52 42 24 3A 8D 31 |..(RB):A$.RB$:.1|
00001D50: 38 34 30 3A 52 42 24 B2 41 24 3A 8B 49 B2 30 A7 |840:RB$.A$:.I.0.|
00001D60: 52 42 24 B2 22 C2 41 4C 41 4E 43 45 22 00 8F 25 |RB$.".ALANCE"..%|
00001D70: 3E 08 91 4D 44 45 89 32 32 30 30 2C 32 31 32 30 |>..MDE.2200,2120|
00001D80: 2C 32 31 34 30 2C 32 31 36 30 2C 32 31 38 30 00 |,2140,2160,2180.|
00001D90: BF 25 48 08 8B C5 28 41 24 28 31 2C 41 25 28 49 |.%H...(A$(1,A%(I|
00001DA0: 29 29 29 B1 B2 4C 52 AF C5 28 41 24 28 31 2C 41 |)))..LR..(A$(1,A|
00001DB0: 25 28 49 29 29 29 B3 B2 48 52 A7 32 32 30 30 00 |%(I)))..HR.2200.|
00001DC0: C9 25 52 08 89 32 32 38 30 00 E6 25 5C 08 8B C5 |.%R..2280..%\...|
00001DD0: 28 41 24 28 33 2C 41 25 28 49 29 29 29 B1 B2 4C |(A$(3,A%(I)))..L|
00001DE0: 42 A7 32 32 30 30 00 F0 25 66 08 89 32 32 38 30 |B.2200..%f..2280|
00001DF0: 00 0D 26 70 08 8B C5 28 41 24 28 33 2C 41 25 28 |..&p...(A$(3,A%(|
00001E00: 49 29 29 29 B3 B2 55 42 A7 32 32 30 30 00 17 26 |I)))..UB.2200..&|
00001E10: 7A 08 89 32 32 38 30 00 37 26 84 08 8B 41 24 28 |z..2280.7&...A$(|
00001E20: 32 2C 41 25 28 49 29 29 B2 22 C4 C5 D0 CF D3 C9 |2,A%(I))."......|
00001E30: D4 22 A7 32 32 30 30 00 41 26 8E 08 89 32 32 38 |.".2200.A&...228|
00001E40: 30 00 52 26 98 08 8B 50 4F B2 33 A7 97 31 39 39 |0.R&...PO.3..199|
00001E50: 2C 31 00 84 26 A2 08 98 33 2C 41 24 28 30 2C 41 |,1..&...3,A$(0,A|
00001E60: 25 28 49 29 29 A6 31 30 AB C3 28 41 24 28 30 2C |%(I)).10..(A$(0,|
00001E70: 41 25 28 49 29 29 29 29 41 24 28 31 2C 41 25 28 |A%(I))))A$(1,A%(|
00001E80: 49 29 29 3B 00 BC 26 AC 08 98 33 2C A6 37 AB C3 |I));..&...3,.7..|
00001E90: 28 41 24 28 31 2C 41 25 28 49 29 29 29 29 A6 38 |(A$(1,A%(I)))).8|
00001EA0: AB C3 28 41 24 28 33 2C 41 25 28 49 29 29 29 29 |..(A$(3,A%(I))))|
00001EB0: 41 24 28 33 2C 41 25 28 49 29 29 3B 00 DD 26 B6 |A$(3,A%(I));..&.|
00001EC0: 08 98 33 2C A6 31 33 AB C3 28 52 42 24 29 29 52 |..3,.13..(RB$))R|
00001ED0: 42 24 A6 34 29 3B 3A 97 31 39 39 2C 30 00 04 27 |B$.4);:.199,0..'|
00001EE0: C0 08 98 33 2C 41 24 28 32 2C 41 25 28 49 29 29 |...3,A$(2,A%(I))|
00001EF0: A6 32 30 AB C3 28 41 24 28 32 2C 41 25 28 49 29 |.20..(A$(2,A%(I)|
00001F00: 29 29 29 3B 00 1F 27 CA 08 98 33 2C 41 24 28 34 |)));..'...3,A$(4|
00001F10: 2C 41 25 28 49 29 29 3A 8B 50 4F B2 33 A7 99 00 |,A%(I)):.PO.3...|
00001F20: 40 27 D4 08 8B 49 B2 30 A7 98 33 2C C8 28 4C 4E |@'...I.0..3,.(LN|
00001F30: 24 2C 34 30 AA 34 30 AC B5 28 50 4F AD 34 29 29 |$,40.40..(PO.4))|
00001F40: 00 51 27 DE 08 8B C2 28 36 35 33 29 A7 32 32 36 |.Q'....(653).226|
00001F50: 30 00 57 27 E8 08 82 00 72 27 F2 08 98 33 2C A6 |0.W'....r'...3,.|
00001F60: 33 38 AB C3 28 52 42 24 29 29 52 42 24 58 24 3A |38..(RB$))RB$X$:|
00001F70: A0 33 00 8A 27 FC 08 8B 50 4F B2 33 A7 97 31 39 |.3..'...PO.3..19|
00001F80: 38 2C 30 3A 92 31 39 38 2C 31 00 90 27 06 09 8E |8,0:.198,1..'...|
00001F90: 00 A7 27 10 09 8F 20 49 4E 50 55 54 20 52 41 4E |..'... INPUT RAN|
00001FA0: 47 45 20 44 41 54 41 00 D4 27 1A 09 4D 31 24 B2 |GE DATA..'..M1$.|
00001FB0: 22 C5 4E 54 45 52 20 4C 4F 57 45 53 54 20 43 48 |".NTER LOWEST CH|
00001FC0: 45 43 4B 20 4E 55 4D 42 45 52 20 49 4E 20 52 41 |ECK NUMBER IN RA|
00001FD0: 4E 47 45 22 00 0B 28 24 09 4D 32 24 B2 22 92 20 |NGE"..($.M2$.". |
00001FE0: 20 20 20 20 20 20 12 20 20 20 20 20 20 20 20 20 | . |
00001FF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3A 8D | ":.|
00002000: 38 33 30 3A 97 32 31 34 2C 32 32 00 3D 28 2E 09 |830:.214,22.=(..|
00002010: 97 32 31 31 2C 34 3A 9E 35 38 37 33 32 3A 49 54 |.211,4:.58732:IT|
00002020: B2 31 3A 4C 49 B2 4C 49 28 49 54 29 3A 8D 31 33 |.1:LI.LI(IT):.13|
00002030: 39 30 3A 8B C5 28 57 24 29 B3 31 A7 8E 00 4A 28 |90:..(W$).1...J(|
00002040: 38 09 4C 52 B2 C5 28 57 24 29 00 73 28 42 09 4D |8.LR..(W$).s(B.M|
00002050: 31 24 B2 22 C5 4E 54 45 52 20 48 49 47 48 45 53 |1$.".NTER HIGHES|
00002060: 54 20 43 48 45 43 4B 20 23 20 49 4E 20 52 41 4E |T CHECK # IN RAN|
00002070: 47 45 22 00 AA 28 4C 09 4D 32 24 B2 22 92 20 20 |GE"..(L.M2$.". |
00002080: 20 20 20 20 20 12 20 20 20 20 20 20 20 20 20 20 | . |
00002090: 20 20 20 20 20 20 20 20 20 20 20 20 22 3A 8D 38 | ":.8|
000020A0: 33 30 3A 97 32 31 34 2C 32 32 00 DC 28 56 09 97 |30:.214,22..(V..|
000020B0: 32 31 31 2C 34 3A 9E 35 38 37 33 32 3A 49 54 B2 |211,4:.58732:IT.|
000020C0: 31 3A 4C 49 B2 4C 49 28 49 54 29 3A 8D 31 33 39 |1:LI.LI(IT):.139|
000020D0: 30 3A 8B C5 28 57 24 29 B3 31 A7 8E 00 EF 28 60 |0:..(W$).1....(`|
000020E0: 09 8B C5 28 57 24 29 B3 4C 52 A7 32 33 37 30 00 |...(W$).LR.2370.|
000020F0: 02 29 6A 09 48 52 B2 C5 28 57 24 29 3A 89 32 30 |.)j.HR..(W$):.20|
00002100: 34 30 00 20 29 74 09 8F 20 45 4E 54 45 52 20 44 |40. )t.. ENTER D|
00002110: 41 54 41 20 46 4F 52 20 43 48 45 43 4B 20 3E 3D |ATA FOR CHECK >=|
00002120: 00 49 29 7E 09 4D 31 24 B2 22 C5 4E 54 45 52 20 |.I)~.M1$.".NTER |
00002130: 4C 4F 57 45 52 20 42 4F 55 4E 44 41 52 59 20 42 |LOWER BOUNDARY B|
00002140: 45 4C 4F 57 20 20 20 20 22 00 80 29 88 09 4D 32 |ELOW "..)..M2|
00002150: 24 B2 22 92 20 20 20 20 20 20 20 20 20 20 20 12 |$.". .|
00002160: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002170: 20 20 22 3A 8D 38 33 30 3A 97 32 31 34 2C 32 32 | ":.830:.214,22|
00002180: 00 B4 29 92 09 97 32 31 31 2C 34 3A 9E 35 38 37 |..)...211,4:.587|
00002190: 33 32 3A 49 54 B2 31 3A 4C 49 B2 4C 49 28 49 54 |32:IT.1:LI.LI(IT|
000021A0: 29 3A 8D 31 33 39 30 3A 8B C5 28 57 24 29 B3 2E |):.1390:..(W$)..|
000021B0: 30 31 A7 8E 00 C7 29 9C 09 4C 42 B2 C5 28 57 24 |01....)..LB..(W$|
000021C0: 29 3A 89 32 30 34 30 00 E5 29 A6 09 8F 20 45 4E |):.2040..)... EN|
000021D0: 54 45 52 20 44 41 54 41 20 46 4F 52 20 43 48 45 |TER DATA FOR CHE|
000021E0: 43 4B 20 3C 3D 00 0E 2A B0 09 4D 31 24 B2 22 C5 |CK <=..*..M1$.".|
000021F0: 4E 54 45 52 20 55 50 50 45 52 20 42 4F 55 4E 44 |NTER UPPER BOUND|
00002200: 41 52 59 20 42 45 4C 4F 57 3A 20 20 20 22 00 45 |ARY BELOW: ".E|
00002210: 2A BA 09 4D 32 24 B2 22 92 20 20 20 20 20 20 20 |*..M2$.". |
00002220: 20 20 20 20 12 20 20 20 20 20 20 20 20 20 20 20 | . |
00002230: 20 20 20 20 20 20 20 22 3A 8D 38 33 30 3A 97 32 | ":.830:.2|
00002240: 31 34 2C 32 32 00 79 2A C4 09 97 32 31 31 2C 34 |14,22.y*...211,4|
00002250: 3A 9E 35 38 37 33 32 3A 49 54 B2 31 3A 4C 49 B2 |:.58732:IT.1:LI.|
00002260: 4C 49 28 49 54 29 3A 8D 31 33 39 30 3A 8B C5 28 |LI(IT):.1390:..(|
00002270: 57 24 29 B3 2E 30 31 A7 8E 00 8C 2A CE 09 55 42 |W$)..01....*..UB|
00002280: B2 C5 28 57 24 29 3A 89 32 30 34 30 00 D5 2A D8 |..(W$):.2040..*.|
00002290: 09 8F 20 43 48 45 43 4B 20 54 48 45 20 53 54 55 |.. CHECK THE STU|
000022A0: 50 49 44 20 45 52 52 4F 52 20 43 48 41 4E 4E 45 |PID ERROR CHANNE|
000022B0: 4C 20 20 20 20 20 20 20 20 20 20 41 20 44 49 46 |L A DIF|
000022C0: 46 45 52 45 4E 54 20 57 41 59 20 54 48 49 53 20 |FERENT WAY THIS |
000022D0: 54 49 4D 45 21 00 17 2B E2 09 45 4D 24 B2 22 22 |TIME!..+..EM$.""|
000022E0: 3A 84 31 35 2C 45 24 28 31 29 2C 45 24 28 32 29 |:.15,E$(1),E$(2)|
000022F0: 2C 45 24 28 33 29 2C 45 24 28 34 29 3A 81 49 B2 |,E$(3),E$(4):.I.|
00002300: 31 A4 33 3A 45 4D 24 B2 45 4D 24 AA 45 24 28 49 |1.3:EM$.EM$.E$(I|
00002310: 29 AA 22 2C 22 3A 82 00 2B 2B EC 09 45 4D 24 B2 |).",":..++..EM$.|
00002320: 45 4D 24 AA 45 24 28 34 29 3A 8E 00 38 2B F6 09 |EM$.E$(4):..8+..|
00002330: 8B 4D 41 58 B2 30 A7 8E 00 4B 2B 00 0A 8F 20 53 |.MAX.0...K+... S|
00002340: 45 4C 45 43 54 20 4D 4F 4E 54 48 00 6C 2B 0A 0A |ELECT MONTH.l+..|
00002350: 8B 4D 41 58 B2 30 B0 4D 4F B2 30 B0 4D 4F B2 31 |.MAX.0.MO.0.MO.1|
00002360: 33 B0 4D 4F B2 31 34 A7 4D 4F B2 31 00 A4 2B 14 |3.MO.14.MO.1..+.|
00002370: 0A 4D 31 24 B2 22 C3 D2 D3 D2 2F D2 C5 D4 D5 D2 |.M1$."..../.....|
00002380: CE 20 54 4F 20 53 45 4C 45 43 54 20 4D 4F 4E 54 |. TO SELECT MONT|
00002390: 48 3A 22 3A 4D 32 24 B2 4D 4F 24 28 4D 4F 29 3A |H:":M2$.MO$(MO):|
000023A0: 8D 38 33 30 00 DC 2B 1E 0A A1 41 24 3A 8B 41 24 |.830..+...A$:.A$|
000023B0: B3 B1 22 1D 22 AF 41 24 B3 B1 22 9D 22 AF 41 24 |..".".A$..".".A$|
000023C0: B3 B1 22 91 22 AF 41 24 B3 B1 22 11 22 AF 41 24 |..".".A$..".".A$|
000023D0: B3 B1 C7 28 31 33 29 A7 32 35 39 30 00 03 2C 28 |...(13).2590..,(|
000023E0: 0A 8B 41 24 B2 22 1D 22 B0 41 24 B2 22 11 22 A7 |..A$.".".A$.".".|
000023F0: 4D 4F B2 4D 4F AA 31 3A 8B 4D 4F B1 31 33 A7 4D |MO.MO.1:.MO.13.M|
00002400: 4F B2 31 00 2A 2C 32 0A 8B 41 24 B2 22 9D 22 B0 |O.1.*,2..A$.".".|
00002410: 41 24 B2 22 91 22 A7 4D 4F B2 4D 4F AB 31 3A 8B |A$.".".MO.MO.1:.|
00002420: 4D 4F B3 31 A7 4D 4F B2 31 33 00 3E 2C 3C 0A 8B |MO.1.MO.13.>,<..|
00002430: 41 24 B3 B1 C7 28 31 33 29 A7 32 35 38 30 00 44 |A$...(13).2580.D|
00002440: 2C 46 0A 8E 00 59 2C 50 0A 8F 20 53 41 56 45 20 |,F...Y,P.. SAVE |
00002450: 54 48 41 54 20 42 41 42 59 00 66 2C 5A 0A 8B 4D |THAT BABY.f,Z..M|
00002460: 41 58 B2 30 A7 8E 00 AD 2C 64 0A 4D 31 24 B2 22 |AX.0....,d.M1$."|
00002470: CA 55 53 54 20 41 20 53 45 43 4F 4E 44 21 22 3A |.UST A SECOND!":|
00002480: 4D 32 24 B2 22 C3 41 4C 43 55 4C 41 54 49 4E 47 |M2$.".ALCULATING|
00002490: 20 42 41 4C 41 4E 43 45 20 46 49 52 53 54 2E 2E | BALANCE FIRST..|
000024A0: 2E 22 3A 8D 38 33 30 3A 8D 31 37 30 30 00 C6 2C |.":.830:.1700..,|
000024B0: 6E 0A 8D 32 35 37 30 3A 8B 4D 4F B2 31 33 A7 4D |n..2570:.MO.13.M|
000024C0: 4F B2 31 34 3A 8E 00 05 2D 78 0A 4D 31 24 B2 22 |O.14:...-x.M1$."|
000024D0: D3 41 56 49 4E 47 20 22 AA 4D 4F 24 28 4D 4F 29 |.AVING ".MO$(MO)|
000024E0: AA 22 20 46 49 4C 45 2E 2E 2E 22 3A 4D 32 24 B2 |." FILE...":M2$.|
000024F0: 22 D0 4C 45 41 53 45 20 57 41 49 54 2E 2E 2E 22 |".LEASE WAIT..."|
00002500: 3A 8D 38 33 30 00 3F 2D 82 0A A0 32 3A 9F 32 2C |:.830.?-...2:.2,|
00002510: 38 2C 32 2C 22 45 43 2E 22 AA 4D 4F 24 28 4D 4F |8,2,"EC.".MO$(MO|
00002520: 29 AA 22 2C 53 2C 57 22 3A 8D 32 35 33 30 3A 8B |).",S,W":.2530:.|
00002530: 45 24 28 32 29 B2 22 4F 4B 22 A7 32 37 35 30 00 |E$(2)."OK".2750.|
00002540: 5E 2D 8C 0A 8B 45 24 28 32 29 B3 B1 22 46 49 4C |^-...E$(2).."FIL|
00002550: 45 20 45 58 49 53 54 53 22 A7 32 37 34 30 00 A3 |E EXISTS".2740..|
00002560: 2D 96 0A 4D 31 24 B2 45 4D 24 3A 4D 32 24 B2 22 |-..M1$.EM$:M2$."|
00002570: D2 45 50 4C 41 43 45 20 22 AA 4D 4F 24 28 4D 4F |.EPLACE ".MO$(MO|
00002580: 29 AA 22 20 46 49 4C 45 3F 20 28 D9 2F CE 29 22 |)." FILE? (./.)"|
00002590: 3A 8D 38 33 30 3A 97 31 39 38 2C 30 3A 92 31 39 |:.830:.198,0:.19|
000025A0: 38 2C 31 00 B5 2D A0 0A A1 41 24 3A 8B 41 24 B2 |8,1..-...A$:.A$.|
000025B0: 22 4E 22 A7 8E 00 EE 2D AA 0A 98 31 35 2C 22 53 |"N"....-...15,"S|
000025C0: 30 3A 45 43 2E 22 AA 4D 4F 24 28 4D 4F 29 3A 4D |0:EC.".MO$(MO):M|
000025D0: 31 24 B2 22 C5 52 41 53 49 4E 47 20 4F 4C 44 20 |1$.".RASING OLD |
000025E0: 46 49 4C 45 2E 2E 2E 22 3A 89 32 36 38 30 00 28 |FILE...":.2680.(|
000025F0: 2E B4 0A 4D 31 24 B2 45 4D 24 3A 4D 32 24 B2 22 |...M1$.EM$:M2$."|
00002600: D0 52 45 53 53 20 41 20 4B 45 59 2E 2E 2E 22 3A |.RESS A KEY...":|
00002610: 8D 38 33 30 3A 97 31 39 38 2C 30 3A 92 31 39 38 |.830:.198,0:.198|
00002620: 2C 31 3A A1 41 24 3A 8E 00 41 2E BE 0A 98 32 2C |,1:.A$:..A....2,|
00002630: 4D 41 58 3B 58 24 3B 42 3A 81 49 B2 31 A4 4D 41 |MAX;X$;B:.I.1.MA|
00002640: 58 00 74 2E C8 0A 98 32 2C 41 24 28 30 2C 49 29 |X.t....2,A$(0,I)|
00002650: 58 24 41 24 28 31 2C 49 29 58 24 41 24 28 32 2C |X$A$(1,I)X$A$(2,|
00002660: 49 29 58 24 41 24 28 33 2C 49 29 58 24 41 24 28 |I)X$A$(3,I)X$A$(|
00002670: 34 2C 49 29 00 95 2E D2 0A 82 3A A0 32 3A 8D 32 |4,I)......:.2:.2|
00002680: 35 33 30 3A 8B 45 24 28 32 29 B3 B1 22 4F 4B 22 |530:.E$(2).."OK"|
00002690: A7 32 37 34 30 00 9B 2E DC 0A 8E 00 B0 2E E6 0A |.2740...........|
000026A0: 8F 20 4C 4F 41 44 20 54 48 41 54 20 42 41 42 59 |. LOAD THAT BABY|
000026B0: 00 C9 2E F0 0A 8D 32 35 37 30 3A 8B 4D 4F B2 31 |......2570:.MO.1|
000026C0: 33 A7 4D 4F B2 31 34 3A 8E 00 09 2F FA 0A 4D 31 |3.MO.14:.../..M1|
000026D0: 24 B2 22 CC 4F 41 44 49 4E 47 20 22 AA 4D 4F 24 |$.".OADING ".MO$|
000026E0: 28 4D 4F 29 AA 22 20 46 49 4C 45 2E 2E 2E 22 3A |(MO)." FILE...":|
000026F0: 4D 32 24 B2 22 D0 4C 45 41 53 45 20 57 41 49 54 |M2$.".LEASE WAIT|
00002700: 2E 2E 2E 22 3A 8D 38 33 30 00 2C 2F 04 0B A0 32 |...":.830.,/...2|
00002710: 3A 9F 32 2C 38 2C 32 2C 22 45 43 2E 22 AA 4D 4F |:.2,8,2,"EC.".MO|
00002720: 24 28 4D 4F 29 AA 22 2C 53 2C 52 22 00 4F 2F 0E |$(MO).",S,R".O/.|
00002730: 0B 8D 32 35 33 30 3A 8B 45 24 28 32 29 B3 B1 22 |..2530:.E$(2).."|
00002740: 4F 4B 22 A7 4D 4F B2 31 33 3A 89 32 37 34 30 00 |OK".MO.13:.2740.|
00002750: 65 2F 18 0B 84 32 2C 4D 41 58 2C 42 3A 81 49 B2 |e/...2,MAX,B:.I.|
00002760: 31 A4 4D 41 58 00 94 2F 22 0B 84 32 2C 41 24 28 |1.MAX../"..2,A$(|
00002770: 30 2C 49 29 2C 41 24 28 31 2C 49 29 2C 41 24 28 |0,I),A$(1,I),A$(|
00002780: 32 2C 49 29 2C 41 24 28 33 2C 49 29 2C 41 24 28 |2,I),A$(3,I),A$(|
00002790: 34 2C 49 29 00 BA 2F 2C 0B 82 3A A0 32 3A 52 4E |4,I)../,..:.2:RN|
000027A0: B2 31 3A 8D 32 35 33 30 3A 8B 45 24 28 32 29 B3 |.1:.2530:.E$(2).|
000027B0: B1 22 4F 4B 22 A7 32 37 34 30 00 F7 2F 36 0B 9F |."OK".2740../6..|
000027C0: 32 2C 38 2C 32 2C 22 45 43 2E 22 AA 4D 4F 24 28 |2,8,2,"EC.".MO$(|
000027D0: 4D 4F AB 31 29 AA 22 2C 53 2C 52 22 3A 8D 32 35 |MO.1).",S,R":.25|
000027E0: 33 30 3A 84 32 2C 50 24 2C 50 24 3A A0 32 3A 50 |30:.2,P$,P$:.2:P|
000027F0: 42 B2 C5 28 50 24 29 00 19 30 40 0B 41 24 B2 C4 |B..(P$)..0@.A$..|
00002800: 28 50 42 29 3A 8D 31 38 34 30 3A 42 42 24 B2 41 |(PB):.1840:BB$.A|
00002810: 24 3A 8D 31 36 34 30 3A 8E 00 31 30 4A 0B 8F 20 |$:.1640:..10J.. |
00002820: 53 45 4E 44 20 44 49 53 4B 20 43 4F 4D 4D 41 4E |SEND DISK COMMAN|
00002830: 44 00 7F 30 54 0B 4D 31 24 B2 22 C5 4E 54 45 52 |D..0T.M1$.".NTER|
00002840: 20 59 4F 55 52 20 43 4F 4D 4D 41 4E 44 20 42 45 | YOUR COMMAND BE|
00002850: 4C 4F 57 2E 2E 2E 22 3A 4D 32 24 B2 22 92 20 20 |LOW...":M2$.". |
00002860: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002870: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 00 | ".|
00002880: 88 30 5E 0B 8D 38 33 30 00 BF 30 68 0B 97 32 31 |.0^..830..0h..21|
00002890: 34 2C 32 32 3A 97 32 31 31 2C 33 3A 9E 35 38 37 |4,22:.211,3:.587|
000028A0: 33 32 3A 49 54 B2 30 3A 4C 49 B2 33 31 3A 8D 31 |32:IT.0:LI.31:.1|
000028B0: 33 39 30 3A 8B 57 24 B2 22 22 A7 32 39 35 30 00 |390:.W$."".2950.|
000028C0: E1 30 72 0B 8B C8 28 57 24 2C 31 29 B2 22 53 22 |.0r...(W$,1)."S"|
000028D0: B0 C8 28 57 24 2C 31 29 B2 22 4E 22 A7 32 39 36 |..(W$,1)."N".296|
000028E0: 30 00 EC 30 7C 0B 98 31 35 2C 57 24 00 FC 30 86 |0..0|..15,W$..0.|
000028F0: 0B 8D 32 35 33 30 3A 89 32 37 34 30 00 3D 31 90 |..2530:.2740.=1.|
00002900: 0B 4D 31 24 B2 22 D4 48 49 53 20 43 4F 4D 4D 41 |.M1$.".HIS COMMA|
00002910: 4E 44 20 43 41 4E 20 C5 D2 C1 D3 C5 20 44 41 54 |ND CAN ..... DAT|
00002920: 41 2E 22 3A 4D 32 24 B2 22 C1 52 45 20 59 4F 55 |A.":M2$.".RE YOU|
00002930: 20 53 55 52 45 3F 20 28 D9 2F CE 29 22 00 72 31 | SURE? (./.)".r1|
00002940: 9A 0B 8D 38 33 30 3A 97 31 39 38 2C 30 3A 92 31 |...830:.198,0:.1|
00002950: 39 38 2C 31 3A A1 41 24 3A 8B 41 24 B2 22 59 22 |98,1:.A$:.A$."Y"|
00002960: A7 4D 31 24 B2 57 24 3A 8D 38 33 30 3A 89 32 39 |.M1$.W$:.830:.29|
00002970: 34 30 00 78 31 A4 0B 8E 00 8B 31 AE 0B 8F 20 53 |40.x1.....1... S|
00002980: 4F 52 54 20 52 4F 55 54 49 4E 45 00 BF 31 B8 0B |ORT ROUTINE..1..|
00002990: 4D 31 24 B2 22 D3 4F 52 54 49 4E 47 20 43 48 45 |M1$.".ORTING CHE|
000029A0: 43 4B 53 2E 22 3A 4D 32 24 B2 22 D0 4C 45 41 53 |CKS.":M2$.".LEAS|
000029B0: 45 20 57 41 49 54 2E 2E 2E 22 3A 8D 38 33 30 00 |E WAIT...":.830.|
000029C0: EC 31 C2 0B 81 49 B2 31 A4 4D 41 58 AB 31 3A 81 |.1...I.1.MAX.1:.|
000029D0: 49 49 B2 49 AA 31 A4 4D 41 58 3A 8B 4E 46 B2 32 |II.I.1.MAX:.NF.2|
000029E0: A7 8D 33 30 34 30 3A 89 33 30 33 30 00 30 32 CC |..3040:.3030.02.|
000029F0: 0B 8B C5 28 41 24 28 4E 46 2C 41 25 28 49 49 29 |...(A$(NF,A%(II)|
00002A00: 29 29 B3 C5 28 41 24 28 4E 46 2C 41 25 28 49 29 |))..(A$(NF,A%(I)|
00002A10: 29 29 A7 48 B2 41 25 28 49 29 3A 41 25 28 49 29 |)).H.A%(I):A%(I)|
00002A20: B2 41 25 28 49 49 29 3A 41 25 28 49 49 29 B2 48 |.A%(II):A%(II).H|
00002A30: 00 55 32 D6 0B 97 35 33 32 38 31 2C 49 49 3A 82 |.U2...53281,II:.|
00002A40: 3A 82 3A 97 35 33 32 38 31 2C 30 3A 4C B2 32 3A |:.:.53281,0:L.2:|
00002A50: 89 33 30 35 30 00 93 32 E0 0B 8B 41 24 28 4E 46 |.3050..2...A$(NF|
00002A60: 2C 41 25 28 49 49 29 29 B3 41 24 28 4E 46 2C 41 |,A%(II)).A$(NF,A|
00002A70: 25 28 49 29 29 A7 48 B2 41 25 28 49 29 3A 41 25 |%(I)).H.A%(I):A%|
00002A80: 28 49 29 B2 41 25 28 49 49 29 3A 41 25 28 49 49 |(I).A%(II):A%(II|
00002A90: 29 B2 48 00 99 32 EA 0B 8E 00 AB 32 F4 0B 8F 20 |).H..2.....2... |
00002AA0: 53 4F 52 54 20 43 48 45 43 4B 53 00 B8 32 FE 0B |SORT CHECKS..2..|
00002AB0: 8B 4D 41 58 B3 33 A7 8E 00 E1 32 08 0C 4D 31 24 |.MAX.3....2..M1$|
00002AC0: B2 22 31 2E 20 C2 59 20 C3 48 45 43 4B 20 4E 4F |."1. .Y .HECK NO|
00002AD0: 2E 20 20 20 32 2E 20 C2 59 20 D0 41 59 45 45 20 |. 2. .Y .AYEE |
00002AE0: 22 00 21 33 12 0C 4D 32 24 B2 22 33 2E 20 C2 59 |".!3..M2$."3. .Y|
00002AF0: 20 C1 4D 4F 55 4E 54 20 20 20 20 20 20 34 2E 20 | .MOUNT 4. |
00002B00: C6 4F 52 47 45 54 20 49 54 22 3A 8D 38 33 30 3A |.ORGET IT":.830:|
00002B10: 97 31 39 38 2C 30 3A 92 31 39 38 2C 31 3A A1 41 |.198,0:.198,1:.A|
00002B20: 24 00 43 33 1C 0C 8B 41 24 B3 B1 22 5E 22 AF 28 |$.C3...A$.."^".(|
00002B30: 41 24 B1 22 34 22 B0 41 24 B3 22 31 22 29 A7 33 |A$."4".A$."1").3|
00002B40: 30 38 30 00 5D 33 26 0C 4E 46 B2 C5 28 41 24 29 |080.]3&.NF..(A$)|
00002B50: 3A 8B 4E 46 B2 34 B0 4E 46 B2 30 A7 8E 00 69 33 |:.NF.4.NF.0...i3|
00002B60: 30 0C 8D 33 30 30 30 3A 8E 00 88 33 3A 0C 8F 20 |0..3000:...3:.. |
00002B70: 52 45 53 54 4F 52 45 20 4F 52 44 45 52 20 41 46 |RESTORE ORDER AF|
00002B80: 54 45 52 20 53 4F 52 54 00 A5 33 44 0C 81 49 B2 |TER SORT..3D..I.|
00002B90: 31 A4 32 30 30 3A 41 25 28 49 29 B2 49 3A 82 3A |1.200:A%(I).I:.:|
00002BA0: 4C B2 32 3A 8E 00 B8 33 4E 0C 8F 20 53 45 45 20 |L.2:...3N.. SEE |
00002BB0: 44 45 50 4F 53 49 54 53 00 C5 33 58 0C 8B 4D 41 |DEPOSITS..3X..MA|
00002BC0: 58 B2 30 A7 8E 00 EC 33 62 0C 4D 31 24 B2 22 31 |X.0....3b.M1$."1|
00002BD0: 2E 20 CC 49 53 54 20 44 45 50 4F 53 49 54 53 20 |. .IST DEPOSITS |
00002BE0: 54 4F 20 53 43 52 45 45 4E 20 20 22 00 2A 34 6C |TO SCREEN ".*4l|
00002BF0: 0C 4D 32 24 B2 22 32 2E 20 CC 49 53 54 20 44 45 |.M2$."2. .IST DE|
00002C00: 50 4F 53 49 54 53 20 54 4F 20 50 52 49 4E 54 45 |POSITS TO PRINTE|
00002C10: 52 20 22 3A 8D 38 33 30 3A 97 31 39 38 2C 30 3A |R ":.830:.198,0:|
00002C20: 92 31 39 38 2C 31 3A A1 41 24 00 4C 34 76 0C 8B |.198,1:.A$.L4v..|
00002C30: 41 24 B3 B1 22 31 22 AF 41 24 B3 B1 22 32 22 AF |A$.."1".A$.."2".|
00002C40: 41 24 B3 B1 22 5E 22 A7 33 31 37 30 00 5A 34 80 |A$.."^".3170.Z4.|
00002C50: 0C 8B 41 24 B2 22 5E 22 A7 8E 00 70 34 8A 0C 50 |..A$."^"...p4..P|
00002C60: 4F B2 33 3A 8B 41 24 B2 22 32 22 A7 50 4F B2 34 |O.3:.A$."2".PO.4|
00002C70: 00 82 34 94 0C 4D 44 45 B2 35 3A 8D 32 30 34 30 |..4..MDE.5:.2040|
00002C80: 3A 8E 00 C5 34 9E 0C 8F 20 53 48 4F 57 20 47 52 |:...4... SHOW GR|
00002C90: 4F 53 53 20 4F 46 20 41 4C 4C 20 43 48 45 43 4B |OSS OF ALL CHECK|
00002CA0: 53 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |S |
00002CB0: 20 57 52 49 54 54 45 4E 20 49 4E 20 54 48 49 53 | WRITTEN IN THIS|
00002CC0: 20 46 49 4C 45 00 F9 34 A8 0C 4D 31 24 B2 22 C8 | FILE..4..M1$.".|
00002CD0: 4F 4C 44 20 4F 4E 2E 20 20 C3 41 4C 43 55 4C 41 |OLD ON. .ALCULA|
00002CE0: 54 49 4E 47 20 54 4F 54 41 4C 2E 2E 2E 22 3A 8D |TING TOTAL...":.|
00002CF0: 38 33 30 3A 8D 31 37 30 30 00 34 35 B2 0C 4D 31 |830:.1700.45..M1|
00002D00: 24 B2 22 C7 52 4F 53 53 20 43 48 45 43 4B 53 3A |$.".ROSS CHECKS:|
00002D10: 22 AA 43 54 24 3A 4D 32 24 B2 22 C7 52 4F 53 53 |".CT$:M2$.".ROSS|
00002D20: 20 44 45 50 4F 53 49 54 53 3A 22 AA 44 45 24 3A | DEPOSITS:".DE$:|
00002D30: 8D 38 33 30 00 4C 35 BC 0C 97 31 39 38 2C 30 3A |.830.L5...198,0:|
00002D40: 92 31 39 38 2C 31 3A A1 41 24 3A 8E 00 6E 35 C6 |.198,1:.A$:..n5.|
00002D50: 0C 8F 20 47 45 54 20 42 41 4C 41 4E 43 45 20 46 |.. GET BALANCE F|
00002D60: 52 4F 4D 20 45 4E 54 52 59 20 4D 45 4E 55 00 A4 |ROM ENTRY MENU..|
00002D70: 35 D0 0C 4D 31 24 B2 22 C8 4F 4C 44 20 4F 4E 2E |5..M1$.".OLD ON.|
00002D80: 20 20 C3 41 4C 43 55 4C 41 54 49 4E 47 20 42 41 | .ALCULATING BA|
00002D90: 4C 41 4E 43 45 2E 2E 2E 22 3A 8D 38 33 30 3A 8D |LANCE...":.830:.|
00002DA0: 31 37 30 30 00 E8 35 DA 0C 4D 31 24 B2 22 D9 4F |1700..5..M1$.".O|
00002DB0: 55 52 20 42 41 4C 41 4E 43 45 20 49 53 22 3A 4D |UR BALANCE IS":M|
00002DC0: 32 24 B2 42 24 AA 22 20 20 D0 52 45 53 53 20 41 |2$.B$." .RESS A|
00002DD0: 20 4B 45 59 22 3A 8D 38 33 30 3A 97 31 39 38 2C | KEY":.830:.198,|
00002DE0: 30 3A 92 31 39 38 2C 31 00 F2 35 E4 0C A1 41 24 |0:.198,1..5...A$|
00002DF0: 3A 8E 00 05 36 EE 0C 8F 20 48 45 4C 50 20 53 43 |:...6... HELP SC|
00002E00: 52 45 45 4E 53 00 41 36 F8 0C 4C B2 31 3A 41 B2 |REENS.A6..L.1:A.|
00002E10: 30 3A 99 22 90 93 22 3A 8D 33 34 33 30 3A 97 36 |0:."..":.3430:.6|
00002E20: 34 38 2C 34 38 3A 53 4D B2 34 39 31 35 32 3A 97 |48,48:SM.49152:.|
00002E30: 35 33 32 38 31 2C 31 35 3A 97 35 33 32 37 32 2C |53281,15:.53272,|
00002E40: 38 00 4E 36 02 0D 97 38 30 38 2C 32 32 35 00 64 |8.N6...808,225.d|
00002E50: 36 0C 0D 97 31 39 38 2C 30 3A 92 31 39 38 2C 31 |6...198,0:.198,1|
00002E60: 3A A1 41 24 00 8B 36 16 0D 8B 41 24 B2 22 5E 22 |:.A$..6...A$."^"|
00002E70: A7 8D 33 34 31 30 3A 97 35 33 32 38 31 2C 30 3A |..3410:.53281,0:|
00002E80: 97 35 33 32 37 32 2C 32 33 3A 8E 00 9D 36 20 0D |.53272,23:...6 .|
00002E90: 8B 41 24 B3 B1 22 20 22 A7 33 33 34 30 00 AC 36 |.A$.." ".3340..6|
00002EA0: 2A 0D 53 4D B2 53 4D AA 31 30 30 30 00 DA 36 34 |*.SM.SM.1000..64|
00002EB0: 0D 8B 53 4D B1 35 32 32 32 34 A7 53 4D B2 34 39 |..SM.52224.SM.49|
00002EC0: 31 35 32 3A 97 35 33 32 37 32 2C 38 3A 97 36 34 |152:.53272,8:.64|
00002ED0: 38 2C 34 38 3A 89 33 33 34 30 00 04 37 3E 0D 97 |8,48:.3340..7>..|
00002EE0: 35 33 32 37 32 2C C2 28 35 33 32 37 32 29 AA 31 |53272,.(53272).1|
00002EF0: 36 3A 97 36 34 38 2C 53 4D AD 31 30 32 34 3A 89 |6:.648,SM.1024:.|
00002F00: 33 33 34 30 00 21 37 48 0D 8F 20 52 45 53 54 4F |3340.!7H.. RESTO|
00002F10: 52 45 20 52 45 47 55 4C 41 52 20 53 43 52 45 45 |RE REGULAR SCREE|
00002F20: 4E 00 41 37 52 0D 97 38 30 38 2C 32 33 37 3A 41 |N.A7R..808,237:A|
00002F30: B2 33 3A 8D 33 34 33 30 3A 97 36 34 38 2C 34 3A |.3:.3430:.648,4:|
00002F40: 8E 00 5A 37 5C 0D 8F 20 53 57 49 54 43 48 20 56 |..Z7\.. SWITCH V|
00002F50: 49 44 45 4F 20 42 41 4E 4B 53 00 70 37 66 0D 97 |IDEO BANKS.p7f..|
00002F60: 35 36 35 37 38 2C C2 28 35 36 35 37 38 29 B0 33 |56578,.(56578).3|
00002F70: 00 8C 37 70 0D 97 35 36 35 37 36 2C 28 C2 28 35 |..7p..56576,(.(5|
00002F80: 36 35 37 36 29 AF 32 35 32 29 B0 41 00 92 37 7A |6576).252).A..7z|
00002F90: 0D 8E 00 A6 37 84 0D 8F 20 52 45 53 45 54 20 50 |....7... RESET P|
00002FA0: 52 4F 47 52 41 4D 00 B3 37 8E 0D 8B 4D 41 58 B2 |ROGRAM..7...MAX.|
00002FB0: 30 A7 8E 00 F6 37 98 0D 4D 31 24 B2 22 C1 52 45 |0....7..M1$.".RE|
00002FC0: 20 59 4F 55 20 53 55 52 45 3F 20 28 D9 2F CE 29 | YOU SURE? (./.)|
00002FD0: 22 3A 4D 32 24 B2 22 C8 41 56 45 20 59 4F 55 20 |":M2$.".AVE YOU |
00002FE0: D3 C1 D6 C5 C4 20 54 48 49 53 20 46 49 4C 45 3F |..... THIS FILE?|
00002FF0: 22 3A 8D 38 33 30 00 1B 38 A2 0D 97 31 39 38 2C |":.830..8...198,|
00003000: 30 3A 92 31 39 38 2C 31 3A A1 41 24 3A 8B 41 24 |0:.198,1:.A$:.A$|
00003010: B3 B1 22 59 22 A7 4C B2 34 3A 8E 00 21 38 AC 0D |.."Y".L.4:..!8..|
00003020: 8A 00 69 38 B6 0D 8F 20 45 52 52 4F 52 20 4C 49 |..i8... ERROR LI|
00003030: 4E 45 20 28 54 48 49 53 20 4C 49 4E 45 20 4F 4E |NE (THIS LINE ON|
00003040: 4C 59 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |LY |
00003050: 41 43 43 45 53 53 45 44 20 42 59 20 54 48 45 20 |ACCESSED BY THE |
00003060: 43 4F 4D 50 49 4C 45 52 29 00 A1 38 C0 0D 97 36 |COMPILER)..8...6|
00003070: 34 2C 32 30 36 3A 97 31 39 38 2C 30 3A 97 35 33 |4,206:.198,0:.53|
00003080: 32 38 31 2C 30 3A 97 35 33 38 30 2C 31 31 3A 4D |281,0:.5380,11:M|
00003090: 4F B2 31 3A 52 4E B2 31 3A A0 32 3A A0 33 3A A0 |O.1:RN.1:.2:.3:.|
000030A0: 34 00 C3 38 CA 0D 99 22 0E 08 22 3A A0 31 35 3A |4..8..."..":.15:|
000030B0: 9F 31 35 2C 38 2C 31 35 3A 8D 33 34 31 30 3A 89 |.15,8,15:.3410:.|
000030C0: 32 37 30 00 DD 38 D4 0D 8F 20 46 49 4E 44 20 54 |270..8... FIND T|
000030D0: 48 45 20 4C 41 53 54 20 43 48 45 43 4B 00 E7 38 |HE LAST CHECK..8|
000030E0: DE 0D 42 43 B2 52 4E 00 F9 38 E8 0D 8B 42 43 B1 |..BC.RN..8...BC.|
000030F0: 31 A7 42 43 B2 42 43 AB 31 00 3E 39 F2 0D 41 41 |1.BC.BC.1.>9..AA|
00003100: 24 B2 41 24 28 32 2C 42 43 29 3A 8B 41 41 24 B3 |$.A$(2,BC):.AA$.|
00003110: B1 22 C4 C5 D0 CF D3 C9 D4 22 AF 41 41 24 B3 B1 |.".......".AA$..|
00003120: 22 D6 CF C9 C4 22 AF 41 41 24 B3 B1 22 D2 C5 C3 |"....".AA$.."...|
00003130: CF CE C3 C9 CC C1 D4 C9 CF C9 CE 22 A7 8E 00 4A |..........."...J|
00003140: 39 FC 0D 8B 42 43 B2 31 A7 8E 00 54 39 06 0E 89 |9...BC.1...T9...|
00003150: 33 35 36 30 00 00 00 |3560... |
....D..@ E3520.8.N..53281,0:.53280,0:.".
..SETTING UP..."._.X..:.B(653).."EC.HELP
SCREENS",8,128......B(653).."EC.FONT",8
,128:.787,0......53280,11......B(653).15
0:. SNAPSHOT HERE... .. A$(4,200),MU$(12
),C(8),X(4),Y(4),LI(4),EM$(4),MO$(14),C$
(1),A%(200).;....SN(4):C$(0).".":C$(1)."
.":.15,8,15:RN.1:.3140:L.1:.650,128.Z...
.I.0.11:.MU$(I):.:.C(1),C(2),C(3),C(4),C
(5),C(6),C(7),C(0)......I.0.4:.X(I),Y(I)
,LI(I):.:.I.1.14:.MO$(I):....H.LN$."----
------------------------------------":LN
$.LN$.LN$...R..I.0.4:.A$(I,0):..0...TC$.
"10101010101":X$.G(13):MO$(0)."DECEMBER"
.~...BO$."...........................
......"..
...BO$.BO$."
....."......"....".....SP$."
":RB$."
0.00":B$.RB$:BB$.RB$.#....53281,0:.53280
,11.,....310.N."..L.900,1920,2800,2650,2
900,3070,3140,3160,3240,3470,1530,3320.W
.,..280...6..B(2023)..95..770...@..B(111
0)..197..860...J.."...".5);".. E A S Y
C H E C K B O O K ":.L.1.L.12.L.1...T.
.1640.'.^..214,19:.:.". ................
..................... ".\.H..". .. ..
. . "...R
..". .. ..
. . ".A.|..". ......................
............... ".....M1$."CRSR/RETURN T
O SELECT":M2$."CTRL-H TO HELP":.830.3...
."....";:TC.0:.I.0.11:TC..TC:..5)"."C$(.
TC)MU$(I):..>....198,0.Z....A$:.740:.A$.
.".".A$..".".A$..G(13).A$..".".A$.."?".4
20......A$.G(13).CT.1:.750:.......A$."."
.L.12:....B..A$."?".M1$."FREE MEMORY ".D
(.(0)):M2$."PRESS A KEY...":.830...L..A$
."?"..198,0:.198,1:.A$:.310.B.V..214,3.L
:.211,5:.58732:."."C$(E(J(TC$,L,1)))MU$(
L).^....A$.".".L.L.1:.L.11.L.1.Z....A$."
.".L.L.1:.L.1.L.11......214,3.L:.211,5:.
58732:."."MU$(L):CT.7:.420...... DATA TA
BLE......".
"......" CREATE/UPDATE CHECKBOOK "
......" LIST CHECKS (SCREEN/PRINTER) ".T
.&.." LOAD A FILE ".Z.0
.." SAVE THIS FILE ". .:..
" SEND DISK COMMAND ".F.D.."
SORT CHECKS FOR LISTING "...N.." RE
STORE SORTED CHECKS "...X.." SEE
DEPOSITS ".8.B.." TOTALS
OF CHECKS/DEPOSITS ".^.L.." RESET PR
OGRAM "...V.." RETURN TO
LOADSTAR "...... COLOR DATA...
...1,15,12,11,12,15,1,7...... PROMPT POS
ITIONS ON SCREEN IN T THE ORDER:
X, Y, LENGTH......10,2,8,29,2,5,5,7,18,
22,9,9,5,13,18.2.... MENU GLOW BAR.D....
MONTH NAMES......"JANUARY","FEBRUARY","
MARCH","APRIL","MAY","JUNE","JULY","AUGU
ST".N.F.."SEPTEMBER","OCTOBER","NOVEMBER
","DECEMBER","ABORT","NO FILE"...P.. FIE
LD NAMES...Z.."DATE","CHECK","PAYEE","AM
OUNT","PURPOSE".'...CT.CT..2:.CT.7.CT.1.
Z....646,C(CT):.214,3.L:.211,5:.58732:."
."MU$(L):..S.... BACKGROUND PATTERN.}...
.".";......I.1.83:."..................";
:.:."."......I.8.11:.2012.I,B(2012.40.I)
:.56284.I,B(56284.40.I):.... .. CLEAR LI
NE LINKS...*..I.217.242:.I,B(I).128:.:..
+.4.. PRINT MESSAGE.D.>..BO$.20.C(M1$).2
)M1$.P.H..".".20.C(M2$).2)M2$".":M1$."":
M2$."":....R.. PRINT BOX...\..".........
..............................":.I.1.13.
..F...4)".
.":....P...4)"..........................
......":..-.Z.. ENTER CHECKS/DEPOSITS.Z.
...860:M1$."F1 NEXT F2 PREVIOUS ^ EXIT
.".....M2$."F4 FIRST F3 LAST CRSR/RET S
ELECT":.830......".........DATE:
CHECK #: "......"...............
....................."......".....PAY TO
THE ORDER OF:..".4...."................
...................".U.....13)"AMOUNT: $
".O.J...21)"..............".
..T..".....COMMENT:.."......"...........
.........................."......I.0.4:.
211,X(I):.214,Y(I):.58732:.A$(I,RN):....
...".":IT.0...... LOOP TO ENTER CHECK DA
TA.I...H.IT:.IT.0.4:.A$(IT,RN)."".A$(IT,
RN).H(SP$,LI(IT))._...CT.0:.1360:.:IT.H.
.....A$:.199,1:.1350:.A$."".1050...$..A$
."^"........A$.".".A$.".".CT.0:.1360:IT.
IT.1:.IT.4.IT.0...8..A$.".".A$.".".CT.0:
.1360:IT.IT.1:.IT.0.IT.4...B..RN.200.111
0.9.L..A$."."..RN.MAX.1.IT.IT.1:.1810:RN
.RN.1:.1640:.1030.F.V..A$.".".RN.MAX:IT.
IT.1:.1810:.1640:.1030...`..A$.".".RN.1:
IT.IT.1:.1810:.1640:.1030...J..A$."."..R
N.1..1810:RN.RN.1:.1640:.1030.T.T..A$.".
"..3280:.900...~..E(A$(3,RN))..RN.MAX.MA
X.RN:.1640.5....A$.".".A$.".".A$.".".A$.
".".A$.".".A$.".".A$.".".1050.V....A$..G
(13)..631,F(A$):.198,1......1320:.214,Y(
IT):.211,X(IT):.58732:.646,1.....LI.LI(I
T):.1390:.W$.."".A$(IT,RN).W$......W$.""
.1280......E(A$(3,RN))..RN.MAX.MAX.RN:.1
640...D..RN..A$(1,RN)."0"..3540:A$(1,RN)
.J(D(E(A$(1,BC)).1),2).R.N..RN..IT..1..A
$(IT,RN)."0".A$(IT,RN).A$(IT,RN.1)...X..
A$(2,RN)."D".A$(2,RN)."DEPOSIT".A$(2,RN)
."DEPOSIT".A$(2,RN)."DEPOSIT......A$(2,R
N)."R".A$(2,RN)."RECONCILIATION".A$(2,RN
)."RECONCILIATION".$....A$(2,RN)."V".A$(
2,RN)."VOID".A$(2,RN)."VOID".A$(2,RN)."V
OID".L....IT.3.A$.A$(3,RN):.1840:A$(3,RN
).A$.C...CT.0:.1360:IT.IT.1......IT.4.IT
.0:.E(A$(3,RN))..631,F("."):.198,1......
1050.O.... CLEAR OUT FIELD BEFORE TYPING
OVER...(..214,Y(IT):.211,X(IT
):.58732:.H(SP$,LI(IT))...2.....<.. MAKE
FIELDS GLOW.4.F.CT.CT..2:.CT.7.CT.1.`.P
..646,C(CT):.214,Y(IT):.211,X(IT):.58732
...Z..A$(IT,RN)H(SP$,.(LI(IT).C(A$(IT,RN
)))):....D.. GET WORD ROUTINE.D.N..GX..2
14,GY:.211,GX:.58732...X.W$."":LW.0:.".>
..";:.LIMIT.0.LIMIT.10......A$:.A$.".".A
$.".".A$."".1410.K....A$.".".A$.".".A$."
.".A$.".".A$.",".A$.";".A$.":".1410.Q...
AS.F(A$):.AS.13.AS.141.AS.20.1490... ..B
(653).2.B(653).4.AS.148.1410......LW.LIM
IT .(AS..20.AS..13.AS..141).1410......AS
.34.(AS..133.AS..140).(AS..1.AS..31).141
0......IT.2...(IT.2)..A$."-".A$."9".1410
.?.H.W$.W$.A$:.A$".>..";:LW.C(W$):.1410.
Z.R.LW.C(W$):.AS.20.W$.."".W$.H(W$,LW.1)
:."..<. ..";:.1410......AS.20.W$."".1410
......AS.13.." ";:LW.C(W$):LI.0:GY.0:GX.
0:..T.... RETURN TO LOADSTAR......MAX.0.
1560.'...M1$."ARE YOU SURE? (Y/N)":M2$."
HAVE YOU SAVED THIS FILE?":.830.L....198
,0:.198,1:.A$:.A$.."Y".L.4:.......15,"R0
:HELLO CONNECT=HELLO CONNECT":.15,ER: 15
...".. ER..63 . .".":..I.,.A$."HELLO CON
NECT":Q$.G(34):.".":.646,B(53281)...6.."
....LOAD"Q$A$Q$",8"...@.."....RUN.":.631
,13:.632,13:.198,2:....J.. DUMMY LINE.#.
T...G.^.. SHOW INFORMATION IN WHITE BOX.
N.H..214,17:.211,1:.58732:.MAX.0.MO.14..
.R..I.1.2:."..
..";:....|..:.".....CHECKS I
N MEMORY:"MAX" RECORD NO."RN" ".. ..."..
MONTH: "MO$(MO).19)"PREV: $"BB$.. ....%
... CALCULATE BALANCE.2 ...MAX.0...T ..B
.PB:TC.0:DE.0:.I.0.MAX:NEG.1.R ...A$(2,I
)."DEPOSIT".NEG..1.. B..A$(2,I)."VOID".N
EG.0.. L..A$(2,I)."RECONCILIATION".B.E(A
$(3,I)):.1780.T V.B.B.NEG.E(A$(3,I))..!.
..NEG.1..A$(2,I).."RECONCILIATION".TC.TC
.E(A$(3,I)).'!...NEG.1.DE.DE.E(A$(3,I)).
6!...I.RN.RB.B.L!...:A$.D(B):.1840:B$.A$
:.1640:CT$.D(TC):DE$.D(DE):...!... WIPE
FIELDS FROM SCREEN..!...IT.0.IT.0.C!..H.
IT:.IT.0.4:CT.8:.1360:.:IT.H:CT.1:...!&.
. ROUND A$ TO NEAREST PENNY.."0.A$.D(E(A
$)):A$.A$.".00":A$.D(.(E(A$).100..5).100
).1":..A$." 0".A$." 0.00".`"D..E(A$)..99
.E(A$).10.1..E(A$)..(E(A$)).1900.Y"N..C(
A$).3.A$.A$.".00".."X..J(A$,C(A$).2,1)."
."...."B..J(A$,C(A$).1,1).".".A$.A$."0":
..K"L.A$.A$.".00":..."V.. LIST RECORDS..
"...MAX.0....#..M1$."1. LIST CHECKS TO S
CREEN ".L#..M2$."2. LIST CHECKS TO PRIN
TER ":.830:.198,0:.198,1:.A$.N#...A$.."1
".A$.."2".A$.."^".1920.|#...A$."^"....#.
.PO.3:.A$."2".PO.4..#..M1$."1. PRINT ALL
3. PRINT CHECKS >="..#F.M2$."2. PRIN
T RANGE 4. PRINT CHECKS <=".%$P..830:.1
98,0:.198,1:.A$:.(A$."1".A$."4").A$.."^"
.1980.3$Z..A$."^"...Z$..MDE.E(A$):.MDE.2
040,2330,2430,2480.O$... BEGIN PRINTING.
.$...PO.3.."..";..$...3,PO,7:RB.PB:.I.0.
MAX:NEG.1.C$...A$(2,A%(I))."DEPOSIT".NEG
..1..$...A$(2,A%(I))."VOID".NEG.0..% ..A
$(2,A%(I))."RECONCILIATION".RB.E(A$(3,A%
(I))):.2100.8%*.RB.RB.NEG.E(A$(3,A%(I)))
.M%4.RB$.D(RB):A$.RB$:.1840:RB$.A$:.I.0.
RB$."BALANCE"..%>..MDE.2200,2120,2140,21
60,2180..%H..E(A$(1,A%(I)))..LR.E(A$(1,A
%(I)))..HR.2200.I%R..2280..%\..E(A$(3,A%
(I)))..LB.2200..%F..2280..&P..E(A$(3,A%(
I)))..UB.2200..&Z..2280.7&...A$(2,A%(I))
."DEPOSIT".2200.A&...2280.R&...PO.3..199
,1..&...3,A$(0,A%(I)).10.C(A$(0,A%(I))))
A$(1,A%(I));..&...3,.7.C(A$(1,A%(I)))).8
.C(A$(3,A%(I))))A$(3,A%(I));..&...3,.13.
C(RB$))RB$.4);:.199,0..'...3,A$(2,A%(I))
.20.C(A$(2,A%(I))));..'J..3,A$(4,A%(I)):
.PO.3...@'T..I.0..3,H(LN$,40.40..(PO.4))
.Q'...B(653).2260.W'....R'...3,.38.C(RB$
))RB$X$: 3..'...PO.3..198,0:.198,1..'...
..'... INPUT RANGE DATA.T'..M1$."ENTER L
OWEST CHECK NUMBER IN RANGE"..($.M2$.".
. ":.830:.214
,22.=(...211,4:.58732:IT.1:LI.LI(IT):.13
90:.E(W$).1...J(8.LR.E(W$).S(B.M1$."ENTE
R HIGHEST CHECK # IN RANGE"..(L.M2$.".
. ":.830:.214,
22..(V..211,4:.58732:IT.1:LI.LI(IT):.139
0:.E(W$).1....(`..E(W$).LR.2370..)J.HR.E
(W$):.2040. )T.. ENTER DATA FOR CHECK >=
.I)~.M1$."ENTER LOWER BOUNDARY BELOW
"..)..M2$.". .
":.830:.214,22..)...211,4:.58732:IT.1:
LI.LI(IT):.1390:.E(W$)..01...G)..LB.E(W$
):.2040..)... ENTER DATA FOR CHECK <=..*
..M1$."ENTER UPPER BOUNDARY BELOW: ".E
*..M2$.". . "
:.830:.214,22.Y*D..211,4:.58732:IT.1:LI.
LI(IT):.1390:.E(W$)..01....*N.UB.E(W$):.
2040.U*X.. CHECK THE STUPID ERROR CHANNE
L A DIFFERENT WAY THIS TIME!..+
..EM$."":.15,E$(1),E$(2),E$(3),E$(4):.I.
1.3:EM$.EM$.E$(I).",":..++..EM$.EM$.E$(4
):..8+...MAX.0...K+... SELECT MONTH.L+..
.MAX.0.MO.0.MO.13.MO.14.MO.1..+..M1$."CR
SR/RETURN TO SELECT MONTH:":M2$.MO$(MO):
.830..+...A$:.A$..".".A$..".".A$..".".A$
..".".A$..G(13).2590..,(..A$.".".A$.".".
MO.MO.1:.MO.13.MO.1.*,2..A$.".".A$.".".M
O.MO.1:.MO.1.MO.13.>,<..A$..G(13).2580.D
,F...Y,P.. SAVE THAT BABY.F,Z..MAX.0....
,D.M1$."JUST A SECOND!":M2$."CALCULATING
BALANCE FIRST...":.830:.1700.F,N..2570:
.MO.13.MO.14:...-X.M1$."SAVING ".MO$(MO)
." FILE...":M2$."PLEASE WAIT...":.830.?-
.. 2:.2,8,2,"EC.".MO$(MO).",S,W":.2530:.
E$(2)."OK".2750.^-...E$(2).."FILE EXISTS
".2740..-..M1$.EM$:M2$."REPLACE ".MO$(MO
)." FILE? (Y/N)":.830:.198,0:.198,1..- .
.A$:.A$."N"....-...15,"S0:EC.".MO$(MO):M
1$."ERASING OLD FILE...":.2680.(...M1$.E
M$:M2$."PRESS A KEY...":.830:.198,0:.198
,1:.A$:..A....2,MAX;X$;B:.I.1.MAX.T.H..2
,A$(0,I)X$A$(1,I)X$A$(2,I)X$A$(3,I)X$A$(
4,I)...R..: 2:.2530:.E$(2).."OK".2740...
......... LOAD THAT BABY.I....2570:.MO.1
3.MO.14:.../..M1$."LOADING ".MO$(MO)." F
ILE...":M2$."PLEASE WAIT...":.830.,/.. 2
:.2,8,2,"EC.".MO$(MO).",S,R".O/...2530:.
E$(2).."OK".MO.13:.2740.E/...2,MAX,B:.I.
1.MAX../"..2,A$(0,I),A$(1,I),A$(2,I),A$(
3,I),A$(4,I)../,..: 2:RN.1:.2530:.E$(2).
."OK".2740../6..2,8,2,"EC.".MO$(MO.1).",
S,R":.2530:.2,P$,P$: 2:PB.E(P$)..0@.A$.D
(PB):.1840:BB$.A$:.1640:..10J.. SEND DIS
K COMMAND.0T.M1$."ENTER YOUR COMMAND BE
LOW...":M2$.".
"..0^..830..0H..214,22:.211,3:.587
32:IT.0:LI.31:.1390:.W$."".2950..0R..H(W
$,1)."S".H(W$,1)."N".2960..0|..15,W$..0.
..2530:.2740.=1..M1$."THIS COMMAND CAN E
RASE DATA.":M2$."ARE YOU SURE? (Y/N)".R1
...830:.198,0:.198,1:.A$:.A$."Y".M1$.W$:
.830:.2940.X1.....1... SORT ROUTINE..1..
M1$."SORTING CHECKS.":M2$."PLEASE WAIT..
.":.830..1B..I.1.MAX.1:.II.I.1.MAX:.NF.2
..3040:.3030.02L..E(A$(NF,A%(II))).E(A$(
NF,A%(I))).H.A%(I):A%(I).A%(II):A%(II).H
.U2V..53281,II:.:.:.53281,0:L.2:.3050..2
...A$(NF,A%(II)).A$(NF,A%(I)).H.A%(I):A%
(I).A%(II):A%(II).H..2.....2... SORT CHE
CKS..2...MAX.3....2..M1$."1. BY CHECK NO
. 2. BY PAYEE ".!3..M2$."3. BY AMOUNT
4. FORGET IT":.830:.198,0:.198,1:.A
$.C3...A$.."^".(A$."4".A$."1").3080.]3&.
NF.E(A$):.NF.4.NF.0...I30..3000:...3:..
RESTORE ORDER AFTER SORT..3D..I.1.200:A%
(I).I:.:L.2:...3N.. SEE DEPOSITS.E3X..MA
X.0....3B.M1$."1. LIST DEPOSITS TO SCREE
N ".*4L.M2$."2. LIST DEPOSITS TO PRINTE
R ":.830:.198,0:.198,1:.A$.L4V..A$.."1".
A$.."2".A$.."^".3170.Z4...A$."^"...P4..P
O.3:.A$."2".PO.4..4..MDE.5:.2040:..E4...
SHOW GROSS OF ALL CHECKS
WRITTEN IN THIS FILE..4..M1$."HOLD ON.
CALCULATING TOTAL...":.830:.1700.45..M1
$."GROSS CHECKS:".CT$:M2$."GROSS DEPOSIT
S:".DE$:.830.L5...198,0:.198,1:.A$:..N5F
.. GET BALANCE FROM ENTRY MENU..5P.M1$."
HOLD ON. CALCULATING BALANCE...":.830:.
1700..5Z.M1$."YOUR BALANCE IS":M2$.B$."
PRESS A KEY":.830:.198,0:.198,1..5...A$
:...6... HELP SCREENS.A6..L.1:A.0:."..":
.3430:.648,48:SM.49152:.53281,15:.53272,
8.N6...808,225.D6...198,0:.198,1:.A$..6.
..A$."^"..3410:.53281,0:.53272,23:...6 .
.A$.." ".3340..6*.SM.SM.1000.Z64..SM.522
24.SM.49152:.53272,8:.648,48:.3340..7>..
53272,B(53272).16:.648,SM.1024:.3340.!7H
.. RESTORE REGULAR SCREEN.A7R..808,237:A
.3:.3430:.648,4:..Z7\.. SWITCH VIDEO BAN
KS.P7F..56578,B(56578).3..7P..56576,(B(5
6576).252).A..7Z....7... RESET PROGRAM..
7...MAX.0....7..M1$."ARE YOU SURE? (Y/N)
":M2$."HAVE YOU SAVED THIS FILE?":.830..
8...198,0:.198,1:.A$:.A$.."Y".L.4:..!8..
..I8... ERROR LINE (THIS LINE ONLY
ACCESSED BY THE COMPILER)..8...6
4,206:.198,0:.53281,0:.5380,11:MO.1:RN.1
: 2: 3: 4.C8J.."..": 15:.15,8,15:.3410:.
270..8T.. FIND THE LAST CHECK..8..BC.RN.
.8...BC.1.BC.BC.1.>9..AA$.A$(2,BC):.AA$.
."DEPOSIT".AA$.."VOID".AA$.."RECONCILATI
OIN"...J9...BC.1...T9...3560...
> CLICK IMAGE PREVIEW FOR FULL MODAL