PAPERBOY.C
FILE INFORMATION
FILENAME(S): PAPERBOY.C
FILE TYPE(S): PRG
FILE SIZE: 5.4K
FIRST SEEN: 2025-11-30 21:07:08
APPEARS ON: 1 disk(s)
FILE HASH
8f7ce286d78487f3f2bec2bb2ac9e9d0f328a053b3f9f6415fe3d07ebe90aeb3
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TPUG FEB 85 C | PAPERBOY.C | PRG | DuncanTwain | 30 | 4 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 28 08 34 00 8F 22 14 14 14 14 14 14 14 20 |..(.4.."....... |
00000010: 20 20 20 20 20 20 20 20 20 20 20 44 4F 55 47 4C | DOUGL|
00000020: 41 53 20 42 52 41 55 4E 00 36 08 35 00 8F 22 14 |AS BRAUN.6.5..".|
00000030: 14 14 14 14 14 14 00 5D 08 36 00 8F 22 14 14 14 |.......].6.."...|
00000040: 14 14 14 14 20 20 20 20 20 20 20 20 20 20 20 20 |.... |
00000050: 52 45 44 43 4C 49 46 46 20 41 4C 54 41 00 6B 08 |REDCLIFF ALTA.k.|
00000060: 37 00 8F 22 14 14 14 14 14 14 14 00 92 08 38 00 |7.."..........8.|
00000070: 8F 22 14 14 14 14 14 14 14 20 20 20 20 20 20 20 |."....... |
00000080: 20 20 20 20 20 4D 41 59 20 30 39 20 20 20 31 39 | MAY 09 19|
00000090: 38 34 00 A0 08 39 00 8F 22 14 14 14 14 14 14 14 |84...9..".......|
000000A0: 00 AE 08 3A 00 8F 22 14 14 14 14 14 14 14 00 BC |...:..".........|
000000B0: 08 3B 00 8F 22 14 14 14 14 14 14 14 00 CA 08 3C |.;.."..........<|
000000C0: 00 8F 22 14 14 14 14 14 14 14 00 E0 08 64 00 97 |.."..........d..|
000000D0: 35 33 32 38 31 2C 30 3A 97 35 33 32 38 30 2C 30 |53281,0:.53280,0|
000000E0: 00 0B 09 65 00 85 22 93 11 1D 1E 4E 55 4D 42 45 |...e.."....NUMBE|
000000F0: 52 20 4F 46 20 45 58 50 45 43 54 45 44 20 43 55 |R OF EXPECTED CU|
00000100: 53 54 4F 4D 45 52 53 22 3B 45 43 00 38 09 66 00 |STOMERS";EC.8.f.|
00000110: 86 4E 24 28 45 43 29 3A 86 41 24 28 45 43 29 3A |.N$(EC):.A$(EC):|
00000120: 86 50 24 28 45 43 29 3A 86 43 24 28 45 43 29 3A |.P$(EC):.C$(EC):|
00000130: 86 57 45 24 28 45 43 29 00 5C 09 67 00 99 22 93 |.WE$(EC).\.g..".|
00000140: 11 11 11 1D 9F 28 55 53 45 20 5C 20 54 4F 20 42 |.....(USE \ TO B|
00000150: 59 50 41 53 53 20 4C 4F 41 44 29 22 00 80 09 68 |YPASS LOAD)"...h|
00000160: 00 85 22 1E 91 91 91 46 49 4C 45 4E 41 4D 45 20 |.."....FILENAME |
00000170: 22 3B 44 24 3A 8B 44 24 B2 22 5C 22 A7 31 32 32 |";D$:.D$."\".122|
00000180: 00 9C 09 69 00 99 22 11 11 11 1D 12 44 92 49 53 |...i..".....D.IS|
00000190: 4B 20 4F 52 20 12 54 92 41 50 45 22 00 B9 09 6A |K OR .T.APE"...j|
000001A0: 00 A1 58 24 3A 8B 58 24 B3 B1 22 44 22 AF 58 24 |..X$:.X$.."D".X$|
000001B0: B3 B1 22 54 22 A7 31 30 36 00 E4 09 6B 00 8B 58 |.."T".106...k..X|
000001C0: 24 B2 22 44 22 A7 9F 31 2C 38 2C 32 2C 22 30 3A |$."D"..1,8,2,"0:|
000001D0: 22 AA 44 24 AA 22 2C 53 2C 52 22 3A 49 B2 30 3A |".D$.",S,R":I.0:|
000001E0: 89 31 30 39 00 EF 09 6C 00 9F 31 3A 49 B2 30 00 |.109...l..1:I.0.|
000001F0: F8 09 6D 00 84 31 2C 4E 00 08 0A 6E 00 99 22 9E |..m..1,N...n..".|
00000200: 46 4F 55 4E 44 3A 1E 22 00 13 0A 6F 00 81 49 B2 |FOUND:."...o..I.|
00000210: 31 A4 4E 00 20 0A 70 00 84 31 2C 4E 24 28 49 29 |1.N. .p..1,N$(I)|
00000220: 00 2D 0A 71 00 84 31 2C 41 24 28 49 29 00 3A 0A |.-.q..1,A$(I).:.|
00000230: 72 00 84 31 2C 50 24 28 49 29 00 47 0A 73 00 84 |r..1,P$(I).G.s..|
00000240: 31 2C 43 24 28 49 29 00 55 0A 74 00 84 31 2C 57 |1,C$(I).U.t..1,W|
00000250: 45 24 28 49 29 00 60 0A 75 00 99 4E 24 28 49 29 |E$(I).`.u..N$(I)|
00000260: 00 6F 0A 76 00 8B 53 54 B3 B1 30 A7 32 34 36 00 |.o.v..ST..0.246.|
00000270: 76 0A 77 00 82 49 00 7D 0A 78 00 A0 31 00 A3 0A |v.w..I.}.x..1...|
00000280: 79 00 99 22 11 54 48 45 52 45 20 57 45 52 45 05 |y..".THERE WERE.|
00000290: 22 3B 4E 3B 22 1E 52 45 43 4F 52 44 53 22 3A 8D |";N;".RECORDS":.|
000002A0: 31 39 39 00 C0 0A 7A 00 99 22 93 11 11 11 1D 28 |199...z..".....(|
000002B0: 31 29 20 41 44 44 20 43 55 53 54 4F 4D 45 52 22 |1) ADD CUSTOMER"|
000002C0: 00 DD 0A 7B 00 99 22 11 1D 28 32 29 20 44 45 4C |...{.."..(2) DEL|
000002D0: 45 54 45 20 43 55 53 54 4F 4D 45 52 22 00 FA 0A |ETE CUSTOMER"...|
000002E0: 7C 00 99 22 11 1D 28 33 29 20 52 45 56 49 45 57 ||.."..(3) REVIEW|
000002F0: 20 43 55 53 54 4F 4D 45 52 22 00 16 0B 7D 00 99 | CUSTOMER"...}..|
00000300: 22 11 1D 28 34 29 20 53 41 56 45 20 43 55 53 54 |"..(4) SAVE CUST|
00000310: 4F 4D 45 52 53 22 00 33 0B 7E 00 99 22 11 1D 28 |OMERS".3.~.."..(|
00000320: 35 29 20 50 52 49 4E 54 20 43 55 53 54 4F 4D 45 |5) PRINT CUSTOME|
00000330: 52 53 22 00 4F 0B 7F 00 99 22 11 1D 28 36 29 20 |RS".O...."..(6) |
00000340: 53 4F 52 54 20 43 55 53 54 4F 4D 45 52 53 22 00 |SORT CUSTOMERS".|
00000350: 64 0B 80 00 99 22 11 1D 28 37 29 20 43 4F 4C 4C |d...."..(7) COLL|
00000360: 45 43 54 22 00 76 0B 81 00 99 22 11 1D 28 38 29 |ECT".v...."..(8)|
00000370: 20 48 45 4C 50 22 00 88 0B 82 00 99 22 11 1D 28 | HELP"......"..(|
00000380: 39 29 20 51 55 49 54 22 00 A3 0B 83 00 A1 58 24 |9) QUIT"......X$|
00000390: 3A 8B 58 24 B3 22 31 22 B0 58 24 B1 22 39 22 A7 |:.X$."1".X$."9".|
000003A0: 31 33 31 00 D6 0B 84 00 58 B2 C5 28 58 24 29 3A |131.....X..(X$):|
000003B0: 91 58 89 31 35 39 2C 31 38 34 2C 31 39 34 2C 31 |.X.159,184,194,1|
000003C0: 33 33 2C 32 30 32 2C 32 32 31 2C 32 33 33 2C 32 |33,202,221,233,2|
000003D0: 35 32 2C 32 31 36 00 ED 0B 85 00 99 22 93 11 1D |52,216......"...|
000003E0: 4E 41 4D 45 20 4F 46 20 46 49 4C 45 22 00 F5 0B |NAME OF FILE"...|
000003F0: 86 00 85 44 24 00 11 0C 87 00 99 22 11 11 11 1D |...D$......"....|
00000400: 12 44 92 49 53 4B 20 4F 52 20 12 54 92 41 50 45 |.D.ISK OR .T.APE|
00000410: 22 00 2E 0C 88 00 A1 58 24 3A 8B 58 24 B3 B1 22 |"......X$:.X$.."|
00000420: 44 22 AF 58 24 B3 B1 22 54 22 A7 31 33 36 00 3B |D".X$.."T".136.;|
00000430: 0C 89 00 45 24 B2 C7 28 31 33 29 00 46 0C 8A 00 |...E$..(13).F...|
00000440: 81 49 B2 31 A4 4E 00 74 0C 8B 00 8B 57 45 24 28 |.I.1.N.t....WE$(|
00000450: 49 29 B2 22 22 A7 57 45 24 28 49 29 B2 22 4E 4F |I)."".WE$(I)."NO|
00000460: 20 43 4F 4C 4C 45 43 54 49 4F 4E 20 45 4E 54 45 | COLLECTION ENTE|
00000470: 52 45 44 22 00 98 0C 8C 00 8B 4E 24 28 49 29 B2 |RED"......N$(I).|
00000480: 22 22 A7 4E 24 28 49 29 B2 22 4E 4F 20 4E 41 4D |"".N$(I)."NO NAM|
00000490: 45 20 47 49 56 45 4E 22 00 BF 0C 8D 00 8B 41 24 |E GIVEN"......A$|
000004A0: 28 49 29 B2 22 22 A7 41 24 28 49 29 B2 22 4E 4F |(I)."".A$(I)."NO|
000004B0: 20 41 44 44 52 45 53 53 20 47 49 56 45 4E 22 00 | ADDRESS GIVEN".|
000004C0: E6 0C 8E 00 8B 50 24 28 49 29 B2 22 22 A7 50 24 |.....P$(I)."".P$|
000004D0: 28 49 29 B2 22 4E 4F 20 50 48 4F 4E 45 20 23 20 |(I)."NO PHONE # |
000004E0: 47 49 56 45 4E 22 00 0D 0D 8F 00 8B 43 24 28 49 |GIVEN"......C$(I|
000004F0: 29 B2 22 22 A7 43 24 28 49 29 B2 22 4E 4F 20 43 |)."".C$(I)."NO C|
00000500: 4F 4D 4D 45 4E 54 20 47 49 56 45 4E 22 00 14 0D |OMMENT GIVEN"...|
00000510: 90 00 82 49 00 3F 0D 91 00 8B 58 24 B2 22 44 22 |...I.?....X$."D"|
00000520: A7 9F 31 2C 38 2C 32 2C 22 30 3A 22 AA 44 24 AA |..1,8,2,"0:".D$.|
00000530: 22 2C 53 2C 57 22 3A 49 B2 30 3A 89 31 34 37 00 |",S,W":I.0:.147.|
00000540: 4D 0D 92 00 9F 31 2C 31 2C 32 2C 44 24 00 59 0D |M....1,1,2,D$.Y.|
00000550: 93 00 98 31 2C 4E 3B 45 24 00 68 0D 94 00 99 22 |...1,N;E$.h...."|
00000560: 53 41 56 49 4E 47 3A 22 00 73 0D 95 00 81 49 B2 |SAVING:".s....I.|
00000570: 31 A4 4E 00 83 0D 96 00 98 31 2C 4E 24 28 49 29 |1.N......1,N$(I)|
00000580: 3B 45 24 00 93 0D 97 00 98 31 2C 41 24 28 49 29 |;E$......1,A$(I)|
00000590: 3B 45 24 00 A3 0D 98 00 98 31 2C 50 24 28 49 29 |;E$......1,P$(I)|
000005A0: 3B 45 24 00 B3 0D 99 00 98 31 2C 43 24 28 49 29 |;E$......1,C$(I)|
000005B0: 3B 45 24 00 C4 0D 9A 00 98 31 2C 57 45 24 28 49 |;E$......1,WE$(I|
000005C0: 29 3B 45 24 00 CF 0D 9B 00 99 4E 24 28 49 29 00 |);E$......N$(I).|
000005D0: E1 0D 9C 00 82 49 3A 8B 53 54 B3 B1 30 A7 32 34 |.....I:.ST..0.24|
000005E0: 36 00 E8 0D 9D 00 A0 31 00 F1 0D 9E 00 89 31 32 |6......1......12|
000005F0: 32 00 09 0E 9F 00 99 22 93 11 1D 43 55 53 54 4F |2......"...CUSTO|
00000600: 4D 45 52 20 4E 41 4D 45 22 00 11 0E A0 00 85 4E |MER NAME"......N|
00000610: 24 00 2B 0E A1 00 99 22 11 1D 43 55 53 54 4F 4D |$.+...."..CUSTOM|
00000620: 45 52 20 41 44 44 52 45 53 53 22 00 33 0E A2 00 |ER ADDRESS".3...|
00000630: 85 41 24 00 47 0E A3 00 85 22 11 1D 50 48 4F 4E |.A$.G...."..PHON|
00000640: 45 20 23 22 3B 50 24 00 59 0E A4 00 99 22 11 1D |E #";P$.Y...."..|
00000650: 43 4F 4D 4D 45 4E 54 53 22 00 61 0E A5 00 85 43 |COMMENTS".a....C|
00000660: 24 00 70 0E A6 00 85 22 11 1D 4F 4B 22 3B 58 24 |$.p...."..OK";X$|
00000670: 00 8B 0E A7 00 8B 58 24 B3 B1 22 59 22 AF 58 24 |......X$.."Y".X$|
00000680: B3 B1 22 59 45 53 22 89 31 32 32 00 95 0E A8 00 |.."YES".122.....|
00000690: 4E B2 4E AA 31 00 A2 0E A9 00 4E 24 28 4E 29 B2 |N.N.1.....N$(N).|
000006A0: 4E 24 00 AF 0E AA 00 41 24 28 4E 29 B2 41 24 00 |N$.....A$(N).A$.|
000006B0: BC 0E AB 00 50 24 28 4E 29 B2 50 24 00 C9 0E AC |....P$(N).P$....|
000006C0: 00 43 24 28 4E 29 B2 43 24 00 D2 0E AD 00 89 31 |.C$(N).C$......1|
000006D0: 32 32 00 ED 0E AE 00 85 22 93 11 1D 43 55 53 54 |22......"...CUST|
000006E0: 4F 4D 45 52 20 4E 41 4D 45 22 3B 4E 24 00 FC 0E |OMER NAME";N$...|
000006F0: AF 00 45 B2 30 3A 81 49 B2 31 A4 4E 00 0F 0F B0 |..E.0:.I.1.N....|
00000700: 00 8B 4E 24 B3 B1 4E 24 28 49 29 89 31 38 30 00 |..N$..N$(I).180.|
00000710: 2F 0F B1 00 99 4E 24 28 49 29 3A 99 41 24 28 49 |/....N$(I):.A$(I|
00000720: 29 3A 99 50 24 28 49 29 3A 99 43 24 28 49 29 00 |):.P$(I):.C$(I).|
00000730: 4E 0F B2 00 85 22 49 53 20 54 48 49 53 20 54 48 |N...."IS THIS TH|
00000740: 45 20 43 55 53 54 4F 4D 45 52 22 3B 58 24 00 67 |E CUSTOMER";X$.g|
00000750: 0F B3 00 8B 58 24 B2 22 59 22 B0 58 24 B2 22 59 |....X$."Y".X$."Y|
00000760: 45 53 22 89 31 38 33 00 6E 0F B4 00 82 49 00 8D |ES".183.n....I..|
00000770: 0F B5 00 99 22 11 1D 52 45 43 4F 52 44 20 4E 4F |...."..RECORD NO|
00000780: 54 20 46 4F 55 4E 44 22 3A 8D 31 39 39 00 95 0F |T FOUND":.199...|
00000790: B6 00 45 B2 31 00 9B 0F B7 00 8E 00 AB 0F B8 00 |..E.1...........|
000007A0: 8D 31 37 34 3A 8B 45 89 31 32 32 00 B5 0F B9 00 |.174:.E.122.....|
000007B0: 4E B2 4E AB 31 00 C0 0F BA 00 81 4B B2 49 A4 4E |N.N.1......K.I.N|
000007C0: 00 D2 0F BB 00 4E 24 28 4B 29 B2 4E 24 28 4B AA |.....N$(K).N$(K.|
000007D0: 31 29 00 E4 0F BC 00 41 24 28 4B 29 B2 41 24 28 |1).....A$(K).A$(|
000007E0: 4B AA 31 29 00 F6 0F BD 00 50 24 28 4B 29 B2 50 |K.1).....P$(K).P|
000007F0: 24 28 4B AA 31 29 00 08 10 BE 00 43 24 28 4B 29 |$(K.1).....C$(K)|
00000800: B2 43 24 28 4B AA 31 29 00 0F 10 BF 00 82 4B 00 |.C$(K.1)......K.|
00000810: 37 10 C0 00 4E 24 28 4B 29 B2 22 22 3A 41 24 28 |7...N$(K)."":A$(|
00000820: 4B 29 B2 22 22 3A 50 24 28 4B 29 B2 22 22 3A 43 |K)."":P$(K)."":C|
00000830: 24 28 4B 29 B2 22 22 00 5A 10 C1 00 99 22 11 1D |$(K)."".Z...."..|
00000840: 1C 52 45 43 4F 52 44 20 44 45 4C 45 54 45 44 22 |.RECORD DELETED"|
00000850: 3A 8D 31 39 39 3A 89 31 32 32 00 62 10 C2 00 49 |:.199:.122.b...I|
00000860: B2 30 00 6D 10 C3 00 81 49 B2 31 A4 4E 00 A9 10 |.0.m....I.1.N...|
00000870: C4 00 99 22 93 11 22 4E 24 28 49 29 3A 99 22 11 |...".."N$(I):.".|
00000880: 22 3B 41 24 28 49 29 3A 99 22 11 22 3B 50 24 28 |";A$(I):.".";P$(|
00000890: 49 29 3A 99 22 11 22 3B 43 24 28 49 29 3A 99 22 |I):.".";C$(I):."|
000008A0: 11 22 3B 57 45 24 28 49 29 00 C9 10 C5 00 99 22 |.";WE$(I)......"|
000008B0: 11 11 9E 4E 45 58 54 20 43 55 53 54 4F 4D 45 52 |...NEXT CUSTOMER|
000008C0: 22 3A 8D 31 39 39 3A 82 49 00 D2 10 C6 00 89 31 |":.199:.I......1|
000008D0: 32 32 00 EA 10 C7 00 99 22 11 11 1D 05 48 49 54 |22......"....HIT|
000008E0: 20 41 4E 59 20 4B 45 59 1E 22 00 FD 10 C8 00 A1 | ANY KEY."......|
000008F0: 58 24 3A 8B 58 24 B2 22 22 A7 32 30 30 00 03 11 |X$:.X$."".200...|
00000900: C9 00 8E 00 0F 11 CA 00 8F 20 50 52 49 4E 54 00 |......... PRINT.|
00000910: 2E 11 CB 00 99 22 93 11 1D 20 05 20 50 52 49 4E |....."... . PRIN|
00000920: 54 49 4E 47 20 52 4F 55 54 49 4E 45 1E 22 00 3A |TING ROUTINE.".:|
00000930: 11 CC 00 9F 34 2C 34 3A 9D 34 00 41 11 CD 00 98 |....4,4:.4.A....|
00000940: 34 00 48 11 CE 00 98 34 00 53 11 CF 00 81 49 B2 |4.H....4.S....I.|
00000950: 31 A4 4E 00 60 11 D0 00 98 34 2C C7 28 31 35 29 |1.N.`....4,.(15)|
00000960: 00 84 11 D1 00 98 34 2C 22 4E 41 4D 45 20 20 20 |......4,"NAME |
00000970: 20 20 22 C7 28 31 34 29 3B 4E 24 28 49 29 2C C7 | ".(14);N$(I),.|
00000980: 28 31 35 29 00 A8 11 D2 00 98 34 2C 22 41 44 44 |(15)......4,"ADD|
00000990: 52 45 53 53 20 20 22 C7 28 31 34 29 3B 41 24 28 |RESS ".(14);A$(|
000009A0: 49 29 2C C7 28 31 35 29 00 CC 11 D3 00 98 34 2C |I),.(15)......4,|
000009B0: 22 50 48 4F 4E 45 20 23 20 20 22 C7 28 31 34 29 |"PHONE # ".(14)|
000009C0: 3B 50 24 28 49 29 2C C7 28 31 35 29 00 F0 11 D4 |;P$(I),.(15)....|
000009D0: 00 98 34 2C 22 43 4F 4D 4D 45 4E 54 53 20 22 C7 |..4,"COMMENTS ".|
000009E0: 28 31 34 29 3B 43 24 28 49 29 2C C7 28 31 35 29 |(14);C$(I),.(15)|
000009F0: 00 15 12 D5 00 98 34 2C 22 43 4F 4C 4C 45 43 54 |......4,"COLLECT|
00000A00: 20 20 22 C7 28 31 34 29 3B 57 45 24 28 49 29 2C | ".(14);WE$(I),|
00000A10: C7 28 31 35 29 00 1C 12 D6 00 82 49 00 28 12 D7 |.(15)......I.(..|
00000A20: 00 A0 34 3A 89 31 32 32 00 33 12 D8 00 8F 20 51 |..4:.122.3.... Q|
00000A30: 55 49 54 00 67 12 D9 00 99 22 93 11 1D 9E 54 48 |UIT.g...."....TH|
00000A40: 49 53 20 57 49 4C 4C 20 1C 44 45 53 54 52 4F 59 |IS WILL .DESTROY|
00000A50: 9E 20 41 4C 4C 20 46 49 4C 45 53 20 49 4E 20 4D |. ALL FILES IN M|
00000A60: 45 4D 4F 52 59 1E 22 00 82 12 DA 00 85 22 11 1D |EMORY."......"..|
00000A70: 43 4F 4E 54 49 4E 55 45 20 28 59 2F 4E 29 22 3B |CONTINUE (Y/N)";|
00000A80: 58 24 00 98 12 DB 00 8B C8 28 58 24 2C 31 29 B3 |X$.......(X$,1).|
00000A90: B1 22 59 22 A7 31 32 32 00 9E 12 DC 00 80 00 A9 |."Y".122........|
00000AA0: 12 DD 00 8F 20 53 4F 52 54 00 C0 12 DE 00 99 22 |.... SORT......"|
00000AB0: 93 11 1D 53 4F 52 54 20 52 4F 55 54 49 4E 45 22 |...SORT ROUTINE"|
00000AC0: 00 D1 12 DF 00 53 B2 30 3A 81 4B B2 31 A4 4E AB |.....S.0:.K.1.N.|
00000AD0: 31 00 EA 12 E0 00 8B 4E 24 28 4B 29 B1 4E 24 28 |1......N$(K).N$(|
00000AE0: 4B AA 31 29 A7 89 32 32 36 20 00 F6 12 E1 00 82 |K.1)..226 ......|
00000AF0: 4B 3A 89 32 33 30 00 3E 13 E2 00 4E 24 B2 4E 24 |K:.230.>...N$.N$|
00000B00: 28 4B 29 3A 4E 24 28 4B 29 B2 4E 24 28 4B AA 31 |(K):N$(K).N$(K.1|
00000B10: 29 3A 4E 24 28 4B AA 31 29 B2 4E 24 3A 41 24 B2 |):N$(K.1).N$:A$.|
00000B20: 41 24 28 4B 29 3A 41 24 28 4B 29 B2 41 24 28 4B |A$(K):A$(K).A$(K|
00000B30: AA 31 29 3A 41 24 28 4B AA 31 29 B2 41 24 00 86 |.1):A$(K.1).A$..|
00000B40: 13 E3 00 50 24 B2 50 24 28 4B 29 3A 50 24 28 4B |...P$.P$(K):P$(K|
00000B50: 29 B2 50 24 28 4B AA 31 29 3A 50 24 28 4B AA 31 |).P$(K.1):P$(K.1|
00000B60: 29 B2 50 24 3A 43 24 B2 43 24 28 4B 29 3A 43 24 |).P$:C$.C$(K):C$|
00000B70: 28 4B 29 B2 43 24 28 4B AA 31 29 3A 43 24 28 4B |(K).C$(K.1):C$(K|
00000B80: AA 31 29 B2 43 24 00 B6 13 E4 00 57 45 24 B2 57 |.1).C$.....WE$.W|
00000B90: 45 24 28 4B 29 3A 57 45 24 28 4B 29 B2 57 45 24 |E$(K):WE$(K).WE$|
00000BA0: 28 4B AA 31 29 3A 57 45 24 28 4B AA 31 29 B2 57 |(K.1):WE$(K.1).W|
00000BB0: 45 24 3A 53 B2 31 00 BD 13 E5 00 82 4B 00 CA 13 |E$:S.1......K...|
00000BC0: E6 00 8B 53 B2 31 A7 32 32 33 00 E1 13 E7 00 99 |...S.1.223......|
00000BD0: 22 11 1D 53 4F 52 54 20 43 4F 4D 50 4C 45 54 45 |"..SORT COMPLETE|
00000BE0: 22 00 EF 13 E8 00 8D 31 39 39 3A 89 31 32 32 00 |"......199:.122.|
00000BF0: 08 14 E9 00 8F 20 43 4F 4C 4C 45 43 54 49 4F 4E |..... COLLECTION|
00000C00: 20 52 4F 55 54 49 4E 45 00 23 14 EA 00 99 22 93 | ROUTINE.#....".|
00000C10: 22 A6 35 35 29 22 9F 12 20 43 4F 4C 4C 45 43 54 |".55)".. COLLECT|
00000C20: 20 1E 22 00 4E 14 EB 00 99 22 11 1D 41 52 45 20 | .".N...."..ARE |
00000C30: 41 4C 4C 20 59 4F 55 52 20 43 55 53 54 4F 4D 45 |ALL YOUR CUSTOME|
00000C40: 52 53 20 49 4E 20 4D 45 4D 4F 52 59 3F 22 00 61 |RS IN MEMORY?".a|
00000C50: 14 EC 00 A1 58 24 3A 8B 58 24 B2 22 22 A7 32 33 |....X$:.X$."".23|
00000C60: 36 00 70 14 ED 00 8B 58 24 B3 B1 22 59 22 A7 8A |6.p....X$.."Y"..|
00000C70: 00 8B 14 EE 00 85 20 22 11 57 45 45 4B 20 4F 46 |...... ".WEEK OF|
00000C80: 28 44 41 54 45 29 22 3B 57 45 24 00 A1 14 EF 00 |(DATE)";WE$.....|
00000C90: 81 49 B2 31 A4 4E 3A 57 45 24 28 49 29 B2 57 45 |.I.1.N:WE$(I).WE|
00000CA0: 24 00 BF 14 F0 00 99 22 11 1E 22 3B 4E 24 28 49 |$......"..";N$(I|
00000CB0: 29 3B 22 20 50 41 49 44 20 28 59 2F 4E 29 3F 00 |);" PAID (Y/N)?.|
00000CC0: DC 14 F1 00 A1 58 24 3A 8B 58 24 B3 B1 22 59 22 |.....X$:.X$.."Y"|
00000CD0: AF 58 24 B3 B1 22 4E 22 A7 32 34 31 00 27 15 F2 |.X$.."N".241.'..|
00000CE0: 00 8B 58 24 B2 22 59 22 A7 57 45 24 28 49 29 B2 |..X$."Y".WE$(I).|
00000CF0: 57 45 24 28 49 29 AA 22 20 50 41 49 44 22 3A 99 |WE$(I)." PAID":.|
00000D00: 22 91 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |"...............|
00000D10: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00000D20: 1D 9E 50 41 49 44 22 00 75 15 F3 00 8B 58 24 B2 |..PAID".u....X$.|
00000D30: 22 4E 22 A7 57 45 24 28 49 29 B2 57 45 24 28 49 |"N".WE$(I).WE$(I|
00000D40: 29 AA 22 20 4E 4F 54 50 41 49 44 22 3A 99 22 91 |)." NOTPAID":.".|
00000D50: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00000D60: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 9C 4E 4F 54 20 |............NOT |
00000D70: 50 41 49 44 22 00 86 15 F4 00 82 49 3A 8D 31 39 |PAID"......I:.19|
00000D80: 39 3A 89 31 32 32 00 8C 15 F5 00 90 00 A5 15 F6 |9:.122..........|
00000D90: 00 8F 20 52 45 41 44 20 45 52 52 4F 52 20 43 48 |.. READ ERROR CH|
00000DA0: 41 4E 4E 45 4C 00 B2 15 F7 00 9F 31 35 2C 38 2C |ANNEL......15,8,|
00000DB0: 31 35 00 C7 15 F8 00 84 31 35 2C 45 4E 2C 45 4D |15......15,EN,EM|
00000DC0: 24 2C 45 54 2C 45 53 00 E7 15 F9 00 99 22 11 11 |$,ET,ES......"..|
00000DD0: 45 52 52 4F 52 20 23 20 22 45 4E 2C 45 4D 24 3B |ERROR # "EN,EM$;|
00000DE0: 45 54 3B 45 53 22 22 00 F3 15 FA 00 98 31 35 2C |ET;ES""......15,|
00000DF0: 22 49 22 00 08 16 FB 00 A0 31 35 3A A0 31 3A 8D |"I"......15:.1:.|
00000E00: 31 39 39 3A 89 31 32 32 00 13 16 FC 00 8F 20 48 |199:.122...... H|
00000E10: 45 4C 50 00 35 16 FD 00 97 35 33 32 38 31 2C 31 |ELP.5....53281,1|
00000E20: 35 3A 97 35 33 32 38 30 2C 31 32 3A 8D 32 35 34 |5:.53280,12:.254|
00000E30: 3A 89 32 35 38 00 6C 16 FE 00 99 22 93 22 3B 22 |:.258.l....".";"|
00000E40: 12 98 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |.. |
00000E50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000E60: 20 20 20 20 20 20 20 20 20 20 22 3B 00 A0 16 FF | ";....|
00000E70: 00 99 22 12 20 20 20 20 20 20 20 20 20 20 20 20 |..". |
00000E80: 90 2D 2A 2D 2A 2D 48 45 4C 50 2D 2A 2D 2A 2D 98 |.-*-*-HELP-*-*-.|
00000E90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3B | ";|
00000EA0: 00 D1 16 00 01 99 22 12 20 20 20 20 20 20 20 20 |......". |
00000EB0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000EC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000ED0: 22 00 D7 16 01 01 8E 00 1F 17 02 01 99 C7 28 31 |".............(1|
00000EE0: 34 29 3B 22 11 1D 1D 1D 1D 1D D4 4F 20 53 4B 49 |4);".......O SKI|
00000EF0: 50 20 4C 4F 41 44 49 4E 47 20 43 4F 4D 4D 41 4E |P LOADING COMMAN|
00000F00: 44 20 55 53 45 20 1C 5C 98 20 46 4F 52 20 20 54 |D USE .\. FOR T|
00000F10: 48 45 20 46 49 4C 45 4E 41 4D 45 2E 20 22 3B 00 |HE FILENAME. ";.|
00000F20: 6A 17 03 01 99 22 C9 46 20 59 4F 55 20 57 41 4E |j....".F YOU WAN|
00000F30: 54 20 54 4F 20 4C 4F 41 44 20 41 20 46 49 4C 45 |T TO LOAD A FILE|
00000F40: 54 48 45 4E 20 55 53 45 20 54 48 45 20 46 49 4C |THEN USE THE FIL|
00000F50: 45 4E 41 4D 45 20 54 48 41 54 20 59 4F 55 20 53 |ENAME THAT YOU S|
00000F60: 41 56 45 44 20 54 48 45 22 3B 00 B6 17 04 01 99 |AVED THE";......|
00000F70: 22 46 49 4C 45 20 57 49 54 48 2E 20 C1 20 47 4F |"FILE WITH. . GO|
00000F80: 4F 44 20 49 44 45 41 20 49 53 20 55 53 45 20 54 |OD IDEA IS USE T|
00000F90: 48 45 20 44 41 54 45 20 20 54 48 41 54 20 59 4F |HE DATE THAT YO|
00000FA0: 55 20 4D 41 44 45 20 54 48 45 20 45 4E 54 52 59 |U MADE THE ENTRY|
00000FB0: 20 4F 46 2E 22 3B 00 05 18 05 01 99 22 20 C9 46 | OF.";......" .F|
00000FC0: 20 4C 4F 41 44 49 4E 47 20 20 57 49 54 48 20 54 | LOADING WITH T|
00000FD0: 41 50 45 20 41 4E 44 20 59 4F 55 20 4B 4E 4F 57 |APE AND YOU KNOW|
00000FE0: 20 54 48 45 20 50 4F 53 49 54 49 4F 4E 20 4F 46 | THE POSITION OF|
00000FF0: 20 20 54 48 45 20 46 49 4C 45 20 4F 4E 20 54 41 | THE FILE ON TA|
00001000: 50 45 2C 22 3B 00 52 18 06 01 99 22 54 48 45 4E |PE,";.R...."THEN|
00001010: 20 4A 55 53 54 20 48 49 54 20 1C D2 C5 D4 D5 D2 | JUST HIT ......|
00001020: CE 98 20 20 20 41 4E 44 20 54 48 45 20 50 52 4F |.. AND THE PRO|
00001030: 47 52 41 4D 20 57 49 4C 4C 20 4C 4F 41 44 20 54 |GRAM WILL LOAD T|
00001040: 48 45 20 46 49 52 53 54 20 46 49 4C 45 49 54 20 |HE FIRST FILEIT |
00001050: 22 3B 00 60 18 07 01 99 22 46 49 4E 44 53 2E 22 |";.`...."FINDS."|
00001060: 00 B0 18 08 01 99 22 11 1D 1D 1D 1D 1D D7 48 45 |......".......HE|
00001070: 4E 20 53 41 56 49 4E 47 20 59 4F 55 20 4D 55 53 |N SAVING YOU MUS|
00001080: 54 20 47 49 56 45 20 54 48 45 20 46 49 4C 45 20 |T GIVE THE FILE |
00001090: 41 20 4E 41 4D 45 20 55 50 20 54 4F 20 31 36 20 |A NAME UP TO 16 |
000010A0: 43 48 41 52 41 54 45 52 53 20 4C 4F 4E 47 2E 22 |CHARATERS LONG."|
000010B0: 00 B9 18 09 01 8D 32 38 36 00 C7 18 0A 01 99 22 |......286......"|
000010C0: 93 22 3A 8D 32 35 34 00 01 19 0B 01 99 22 11 1D |.":.254......"..|
000010D0: 1D 1D 1D 1D D3 45 4C 45 43 54 20 46 52 4F 4D 20 |.....ELECT FROM |
000010E0: 54 48 45 20 4D 45 4E 55 20 57 48 41 54 20 4F 50 |THE MENU WHAT OP|
000010F0: 54 49 4F 4E 20 49 53 52 45 51 55 49 52 45 44 3A |TION ISREQUIRED:|
00001100: 22 00 4E 19 0C 01 99 22 1D 1D 1D 1D 1D 1D 1D 1D |".N...."........|
00001110: 1D 1D C1 C4 C4 20 C3 D5 D3 D4 CF CD C5 D2 D3 20 |..... ......... |
00001120: 49 53 20 54 4F 20 41 44 44 20 52 4F 55 54 45 20 |IS TO ADD ROUTE |
00001130: 43 55 53 54 4F 4D 45 52 53 20 41 4E 44 20 57 49 |CUSTOMERS AND WI|
00001140: 4C 4C 20 42 45 20 53 41 56 45 44 20 22 3B 00 97 |LL BE SAVED ";..|
00001150: 19 0D 01 99 22 49 4E 20 54 48 45 20 4F 52 44 45 |...."IN THE ORDE|
00001160: 52 54 48 41 54 20 54 48 45 59 20 57 45 52 45 20 |RTHAT THEY WERE |
00001170: 45 4E 54 45 52 45 44 20 55 4E 4C 45 53 53 20 54 |ENTERED UNLESS T|
00001180: 48 45 59 20 57 45 52 45 20 53 4F 52 54 45 44 20 |HEY WERE SORTED |
00001190: 46 49 52 53 54 2E 22 00 E4 19 0E 01 99 22 11 1D |FIRST."......"..|
000011A0: 1D 1D 1D 1D 1D 1D 1D 1D 1D C4 C5 CC C5 D4 C5 20 |............... |
000011B0: C3 D5 D3 D4 CF CD C5 D2 D3 20 49 53 20 54 4F 20 |......... IS TO |
000011C0: 44 45 4C 45 54 45 20 41 20 43 55 53 54 4F 4D 45 |DELETE A CUSTOME|
000011D0: 52 20 46 4F 52 4D 20 59 4F 55 52 20 46 49 4C 45 |R FORM YOUR FILE|
000011E0: 53 2E 22 3B 00 32 1A 0F 01 99 22 20 CA 55 53 54 |S.";.2...." .UST|
000011F0: 20 45 4E 54 45 52 20 20 54 48 45 20 43 55 53 54 | ENTER THE CUST|
00001200: 4F 4D 45 52 53 20 4E 41 4D 45 20 41 4E 44 20 54 |OMERS NAME AND T|
00001210: 48 45 20 43 4F 4D 50 55 54 45 52 20 57 49 4C 4C |HE COMPUTER WILL|
00001220: 41 53 4B 20 59 4F 55 20 49 46 20 54 48 49 53 20 |ASK YOU IF THIS |
00001230: 22 3B 00 7C 1A 10 01 99 22 49 53 20 54 48 45 20 |";.|...."IS THE |
00001240: 43 55 53 54 4F 4D 45 52 2E 20 C9 46 20 53 4F 20 |CUSTOMER. .F SO |
00001250: 20 54 48 45 4E 20 C8 C9 D4 20 1C D9 98 20 41 4E | THEN ... ... AN|
00001260: 44 20 54 48 45 20 46 49 4C 45 20 57 49 4C 4C 20 |D THE FILE WILL |
00001270: 42 45 20 44 45 4C 45 54 45 44 2E 22 00 C6 1A 11 |BE DELETED."....|
00001280: 01 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D D2 C5 D6 |..".............|
00001290: C9 C5 D7 A0 C3 D5 D3 D4 CF CD C5 D2 D3 20 57 49 |............. WI|
000012A0: 4C 4C 20 44 49 53 50 4C 41 59 20 54 48 45 20 43 |LL DISPLAY THE C|
000012B0: 55 53 54 4F 4D 45 52 53 20 57 49 54 48 20 54 48 |USTOMERS WITH TH|
000012C0: 45 52 45 20 22 3B 00 00 1B 12 01 99 22 41 44 44 |ERE ";......"ADD|
000012D0: 52 45 53 53 2C 50 48 4F 4E 45 20 23 2C 43 4F 4D |RESS,PHONE #,COM|
000012E0: 4D 45 4E 54 53 20 26 20 43 4F 4C 4C 45 43 54 49 |MENTS & COLLECTI|
000012F0: 4F 4E 20 53 54 41 54 55 53 2E 22 3A 8D 32 38 36 |ON STATUS.":.286|
00001300: 00 09 1B 13 01 8D 32 35 34 00 5A 1B 14 01 99 22 |......254.Z...."|
00001310: 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D D0 D2 C9 CE D4 |................|
00001320: A0 C3 D5 D3 D4 CF CD C5 D2 D3 20 57 49 4C 4C 20 |.......... WILL |
00001330: 50 52 49 4E 54 20 54 48 45 43 55 53 54 4F 4D 45 |PRINT THECUSTOME|
00001340: 52 53 20 4F 55 54 20 49 4E 20 54 48 45 20 4F 52 |RS OUT IN THE OR|
00001350: 44 45 52 20 54 48 41 54 22 3B 00 7C 1B 15 01 99 |DER THAT";.|....|
00001360: 22 20 54 48 45 59 20 41 52 45 53 54 4F 52 45 44 |" THEY ARESTORED|
00001370: 20 49 4E 20 4D 45 4D 4F 52 59 2E 22 00 CC 1B 16 | IN MEMORY."....|
00001380: 01 99 22 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D D3 CF |..".............|
00001390: D2 D4 20 C3 D5 D3 D4 CF CD C5 D2 D3 20 57 49 4C |.. ......... WIL|
000013A0: 4C 20 53 4F 52 54 20 54 48 45 20 20 4C 49 53 54 |L SORT THE LIST|
000013B0: 20 49 4E 20 4D 45 4D 4F 52 59 20 49 4E 20 41 4C | IN MEMORY IN AL|
000013C0: 50 48 41 42 45 54 49 43 41 4C 22 3B 00 0C 1C 17 |PHABETICAL";....|
000013D0: 01 99 22 20 4F 52 44 45 52 2E 20 20 20 CF 4E 43 |.." ORDER. .NC|
000013E0: 45 20 53 4F 52 54 45 44 20 54 48 49 53 20 49 53 |E SORTED THIS IS|
000013F0: 20 48 4F 57 20 54 48 45 20 4C 49 53 54 20 57 49 | HOW THE LIST WI|
00001400: 4C 4C 20 42 45 53 41 56 45 44 2E 22 00 52 1C 18 |LL BESAVED.".R..|
00001410: 01 99 22 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D C3 CF |..".............|
00001420: CC CC C5 C3 D4 20 49 53 20 54 4F 20 52 45 43 4F |..... IS TO RECO|
00001430: 52 44 20 57 48 41 54 20 20 20 20 20 43 55 53 54 |RD WHAT CUST|
00001440: 4F 4D 45 52 53 20 48 41 56 45 20 50 41 49 44 2E |OMERS HAVE PAID.|
00001450: 22 3B 00 8B 1C 19 01 99 22 20 C5 4E 54 45 52 20 |";......" .NTER |
00001460: 54 48 45 20 44 41 54 45 20 4F 46 20 20 54 48 45 |THE DATE OF THE|
00001470: 20 57 45 45 4B 20 54 4F 20 42 45 20 43 4F 4C 4C | WEEK TO BE COLL|
00001480: 45 43 54 45 44 20 46 4F 52 2E 22 00 DA 1C 1A 01 |ECTED FOR.".....|
00001490: 99 22 D4 48 45 20 43 55 53 54 4F 4D 45 52 53 20 |.".HE CUSTOMERS |
000014A0: 57 49 4C 4C 20 54 48 45 4E 20 42 45 20 44 49 53 |WILL THEN BE DIS|
000014B0: 50 4C 41 59 45 44 20 41 4E 44 59 4F 55 20 57 49 |PLAYED ANDYOU WI|
000014C0: 4C 4C 20 42 45 20 41 53 4B 45 44 20 49 46 20 54 |LL BE ASKED IF T|
000014D0: 48 45 59 20 50 41 49 44 2E 22 00 1D 1D 1B 01 99 |HEY PAID."......|
000014E0: 22 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1C D1 D5 C9 |"...............|
000014F0: D4 98 20 43 41 55 54 49 4F 4E 20 48 45 52 45 20 |.. CAUTION HERE |
00001500: 41 53 20 54 48 49 53 20 57 49 4C 4C 45 4E 44 20 |AS THIS WILLEND |
00001510: 54 48 45 20 50 52 4F 47 52 41 4D 22 3B 00 51 1D |THE PROGRAM";.Q.|
00001520: 1C 01 99 22 20 41 4E 44 20 45 52 41 53 45 20 43 |..." AND ERASE C|
00001530: 55 53 54 4F 4D 45 52 20 20 20 20 20 20 4D 45 4D |USTOMER MEM|
00001540: 4F 52 59 2E 91 22 3A 8D 32 38 36 3A 99 22 93 1E |ORY..":.286:."..|
00001550: 22 00 6C 1D 1D 01 97 35 33 32 38 30 2C 30 3A 97 |".l....53280,0:.|
00001560: 35 33 32 38 31 2C 30 3A 89 31 32 32 00 96 1D 1E |53281,0:.122....|
00001570: 01 99 22 11 1D 1D 1D 1D 1D 1D 1D 1D 90 C8 C9 D4 |..".............|
00001580: A0 C1 CE D9 A0 CB C5 D9 A0 D4 CF A0 C3 CF CE D4 |................|
00001590: C9 CE D5 C5 98 22 00 A9 1D 1F 01 A1 58 24 3A 8B |....."......X$:.|
000015A0: 58 24 B2 22 22 A7 32 38 37 00 AF 1D 20 01 8E 00 |X$."".287... ...|
000015B0: 00 00 |.. |
..(.4.."....... DOUGLAS BRAUN
.6.5.."........].6..".......
REDCLIFF ALTA.K.7.."..........8.."......
. MAY 09 1984. .9..".......
...:.."..........;.."........J.<..".....
.....D..53281,0:.53280,0...E.."....NUMBE
R OF EXPECTED CUSTOMERS";EC.8.F..N$(EC):
.A$(EC):.P$(EC):.C$(EC):.WE$(EC).\.G..".
.....(USE \ TO BYPASS LOAD)"...H.."....F
ILENAME ";D$:.D$."\".122...I..".....D.IS
K OR .T.APE"...J..X$:.X$.."D".X$.."T".10
6...K..X$."D"..1,8,2,"0:".D$.",S,R":I.0:
.109...L..1:I.0...M..1,N...N..".FOUND:."
...O..I.1.N. .P..1,N$(I).-.Q..1,A$(I).:.
R..1,P$(I).G.S..1,C$(I).U.T..1,WE$(I).`.
U..N$(I).O.V..ST..0.246.V.W..I.}.X. 1...
Y..".THERE WERE.";N;".RECORDS":.199...Z.
.".....(1) ADD CUSTOMER"...{.."..(2) DEL
ETE CUSTOMER"...|.."..(3) REVIEW CUSTOME
R"...}.."..(4) SAVE CUSTOMERS".3.~.."..(
5) PRINT CUSTOMERS".O..."..(6) SORT CUS
TOMERS".D...."..(7) COLLECT".V...."..(8)
HELP"......"..(9) QUIT"......X$:.X$."1"
.X$."9".131.V...X.E(X$):.X.159,184,194,1
33,202,221,233,252,216......"...NAME OF
FILE"......D$......".....D.ISK OR .T.APE
"......X$:.X$.."D".X$.."T".136.;...E$.G(
13).F....I.1.N.T....WE$(I)."".WE$(I)."NO
COLLECTION ENTERED"......N$(I)."".N$(I)
."NO NAME GIVEN"......A$(I)."".A$(I)."NO
ADDRESS GIVEN"......P$(I)."".P$(I)."NO
PHONE # GIVEN"......C$(I)."".C$(I)."NO C
OMMENT GIVEN"......I.?....X$."D"..1,8,2,
"0:".D$.",S,W":I.0:.147.M....1,1,2,D$.Y.
...1,N;E$.H...."SAVING:".S....I.1.N.....
.1,N$(I);E$......1,A$(I);E$......1,P$(I)
;E$......1,C$(I);E$.D....1,WE$(I);E$.O..
..N$(I)......I:.ST..0.246..... 1......12
2......"...CUSTOMER NAME"... ..N$.+...."
..CUSTOMER ADDRESS".3....A$.G...."..PHON
E #";P$.Y...."..COMMENTS".A....C$.P...."
..OK";X$......X$.."Y".X$.."YES".122.....
N.N.1.....N$(N).N$.....A$(N).A$.....P$(N
).P$.I...C$(N).C$.R....122......"...CUST
OMER NAME";N$.....E.0:.I.1.N......N$..N$
(I).180./....N$(I):.A$(I):.P$(I):.C$(I).
N...."IS THIS THE CUSTOMER";X$.G....X$."
Y".X$."YES".183.N....I......"..RECORD NO
T FOUND":.199.....E.1............174:.E.
122.....N.N.1......K.I.N.R...N$(K).N$(K.
1).....A$(K).A$(K.1).....P$(K).P$(K.1)..
...C$(K).C$(K.1)......K.7...N$(K)."":A$(
K)."":P$(K)."":C$(K)."".Z.A.."...RECORD
DELETED":.199:.122.B.B.I.0.M.C..I.1.N...
D..".."N$(I):.".";A$(I):.".";P$(I):.".";
C$(I):.".";WE$(I).I.E.."...NEXT CUSTOMER
":.199:.I.R.F..122...G.."....HIT ANY KEY
."...H..X$:.X$."".200...I.....J.. PRINT.
..K.."... . PRINTING ROUTINE.".:.L..4,4:
.4.A.M..4.H.N..4.S.O..I.1.N.`.P..4,G(15)
...Q..4,"NAME "G(14);N$(I),G(15)...R
..4,"ADDRESS "G(14);A$(I),G(15).L.S..4,
"PHONE # "G(14);P$(I),G(15)...T..4,"COM
MENTS "G(14);C$(I),G(15)...U..4,"COLLECT
"G(14);WE$(I),G(15)...V..I.(.W. 4:.122
.3.X.. QUIT.G.Y.."....THIS WILL .DESTROY
. ALL FILES IN MEMORY."...Z.."..CONTINUE
(Y/N)";X$......H(X$,1).."Y".122........
.... SORT......"...SORT ROUTINE".Q...S.0
:.K.1.N.1......N$(K).N$(K.1)..226 ......
K:.230.>...N$.N$(K):N$(K).N$(K.1):N$(K.1
).N$:A$.A$(K):A$(K).A$(K.1):A$(K.1).A$..
...P$.P$(K):P$(K).P$(K.1):P$(K.1).P$:C$.
C$(K):C$(K).C$(K.1):C$(K.1).C$.....WE$.W
E$(K):WE$(K).WE$(K.1):WE$(K.1).WE$:S.1..
....K.J....S.1.223......"..SORT COMPLETE
"......199:.122...... COLLECTION ROUTINE
.#....".".55)".. COLLECT .".N...."..ARE
ALL YOUR CUSTOMERS IN MEMORY?".A....X$:.
X$."".236.P....X$.."Y"........ ".WEEK OF
(DATE)";WE$......I.1.N:WE$(I).WE$......"
..";N$(I);" PAID (Y/N)?......X$:.X$.."Y"
.X$.."N".241.'....X$."Y".WE$(I).WE$(I)."
PAID":."...............................
..PAID".U....X$."N".WE$(I).WE$(I)." NOTP
AID":.".............................NOT
PAID"......I:.199:.122............ READ
ERROR CHANNEL......15,8,15.G....15,EN,EM
$,ET,ES......"..ERROR # "EN,EM$;ET;ES"".
.....15,"I"..... 15: 1:.199:.122...... H
ELP.5....53281,15:.53280,12:.254:.258.L.
...".";"..
";. ....". .-*-*-HE
LP-*-*-. ";.Q....".
".W.....
.....G(14);"......TO SKIP LOADING COMMAN
D USE .\. FOR THE FILENAME. ";.J...."IF
YOU WANT TO LOAD A FILETHEN USE THE FIL
ENAME THAT YOU SAVED THE";......"FILE WI
TH. A GOOD IDEA IS USE THE DATE THAT YO
U MADE THE ENTRY OF.";......" IF LOADING
WITH TAPE AND YOU KNOW THE POSITION OF
THE FILE ON TAPE,";.R...."THEN JUST HI
T .RETURN. AND THE PROGRAM WILL LOAD T
HE FIRST FILEIT ";.`...."FINDS."......".
.....WHEN SAVING YOU MUST GIVE THE FILE
A NAME UP TO 16 CHARATERS LONG."......28
6.G....".":.254......"......SELECT FROM
THE MENU WHAT OPTION ISREQUIRED:".N...."
..........ADD CUSTOMERS IS TO ADD ROUTE
CUSTOMERS AND WILL BE SAVED ";......"IN
THE ORDERTHAT THEY WERE ENTERED UNLESS T
HEY WERE SORTED FIRST."......"..........
.DELETE CUSTOMERS IS TO DELETE A CUSTOME
R FORM YOUR FILES.";.2...." JUST ENTER
THE CUSTOMERS NAME AND THE COMPUTER WILL
ASK YOU IF THIS ";.|...."IS THE CUSTOMER
. IF SO THEN HIT .Y. AND THE FILE WILL
BE DELETED.".F...."..........REVIEW CUST
OMERS WILL DISPLAY THE CUSTOMERS WITH TH
ERE ";......"ADDRESS,PHONE #,COMMENTS &
COLLECTION STATUS.":.286......254.Z...."
...........PRINT CUSTOMERS WILL PRINT TH
ECUSTOMERS OUT IN THE ORDER THAT";.|....
" THEY ARESTORED IN MEMORY.".L....".....
......SORT CUSTOMERS WILL SORT THE LIST
IN MEMORY IN ALPHABETICAL";......" ORDE
R. ONCE SORTED THIS IS HOW THE LIST WI
LL BESAVED.".R...."...........COLLECT IS
TO RECORD WHAT CUSTOMERS HAVE PAID.
";......" ENTER THE DATE OF THE WEEK TO
BE COLLECTED FOR.".Z...."THE CUSTOMERS
WILL THEN BE DISPLAYED ANDYOU WILL BE AS
KED IF THEY PAID."......"............QUI
T. CAUTION HERE AS THIS WILLEND THE PROG
RAM";.Q...." AND ERASE CUSTOMER MEM
ORY..":.286:."..".L....53280,0:.53281,0:
.122......"..........HIT ANY KEY TO CONT
INUE."......X$:.X$."".287... .....
> CLICK IMAGE PREVIEW FOR FULL MODAL