ULTRANAME
FILE INFORMATION
FILENAME(S): ULTRANAME
FILE TYPE(S): PRG
FILE SIZE: 13.6K
FIRST SEEN: 2025-11-30 17:31:23
APPEARS ON: 1 disk(s)
FILE HASH
9a4d6fd1ea1c29f87115c59fa64801653ca8ede723b38bf6e8c8dc8cd0366928
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| PB DOMAIN 0012BU | ULTRANAME | PRG | UK CD | 22 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 31 08 00 00 8F 20 22 14 14 14 14 14 14 14 |..1.... ".......|
00000010: 20 20 20 20 20 20 20 20 55 4C 54 52 41 4E 41 4D | ULTRANAM|
00000020: 45 20 42 59 20 4A 4F 48 4E 20 57 20 48 4F 42 42 |E BY JOHN W HOBB|
00000030: 53 00 40 08 01 00 8F 20 22 14 14 14 14 14 14 14 |S.@.... ".......|
00000040: 00 6C 08 02 00 8F 20 22 14 14 14 14 14 14 14 20 |.l.... "....... |
00000050: 20 20 20 20 20 20 20 20 20 20 20 31 3A 33 31 3A | 1:31:|
00000060: 30 30 20 20 30 38 2F 33 30 2F 38 36 00 7B 08 03 |00 08/30/86.{..|
00000070: 00 8F 20 22 14 14 14 14 14 14 14 00 90 08 04 00 |.. "............|
00000080: 51 24 B2 22 11 11 11 11 11 22 3A 99 22 05 93 22 |Q$.".....":.".."|
00000090: 00 BB 08 05 00 41 24 B2 22 20 20 20 20 20 20 20 |.....A$." |
000000A0: 20 20 20 20 20 20 20 20 12 9E 20 55 4C 54 52 41 | .. ULTRA|
000000B0: 4E 41 4D 45 20 22 20 3A 8D 34 30 00 E4 08 06 00 |NAME " :.40.....|
000000C0: 41 24 B2 22 20 20 20 20 20 20 20 20 20 20 20 20 |A$." |
000000D0: 20 20 20 12 20 20 20 20 42 59 20 20 20 20 20 22 | . BY "|
000000E0: 3A 8D 34 30 00 0D 09 07 00 41 24 B2 22 20 20 20 |:.40.....A$." |
000000F0: 20 20 20 20 20 20 20 20 20 20 20 20 12 4A 4F 48 | .JOH|
00000100: 4E 20 48 4F 42 42 53 20 22 3A 8D 34 30 00 4D 09 |N HOBBS ":.40.M.|
00000110: 08 00 51 24 B2 51 24 AA 22 11 11 11 05 22 3A 41 |..Q$.Q$."....":A|
00000120: 24 B2 22 20 20 20 20 B0 C0 C0 C0 C0 C0 C0 C0 C0 |$." .........|
00000130: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000140: C0 C0 C0 C0 C0 C0 C0 AE 22 3A 8D 34 30 00 80 09 |........":.40...|
00000150: 09 00 41 24 B2 22 20 20 20 20 DD 20 20 20 55 53 |..A$." . US|
00000160: 45 20 57 49 54 48 20 31 35 32 36 20 50 52 49 4E |E WITH 1526 PRIN|
00000170: 54 45 52 20 4F 4E 4C 59 20 20 DD 22 3A 8D 34 30 |TER ONLY .":.40|
00000180: 00 B3 09 0A 00 41 24 B2 22 20 20 20 20 AD C0 C0 |.....A$." ...|
00000190: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
000001A0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 BD 22 3A |..............":|
000001B0: 8D 34 30 00 EC 09 0B 00 51 24 B2 22 11 11 11 22 |.40.....Q$."..."|
000001C0: 3A 41 24 B2 22 20 20 20 20 20 20 20 20 20 54 59 |:A$." TY|
000001D0: 50 45 20 3C 52 45 54 55 52 4E 3E 20 54 4F 20 43 |PE <RETURN> TO C|
000001E0: 4F 4E 54 49 4E 55 45 22 3A 8D 34 30 00 02 0A 0C |ONTINUE":.40....|
000001F0: 00 A1 41 24 3A 8B 41 24 B3 B1 C7 28 31 33 29 A7 |..A$:.A$...(13).|
00000200: 31 32 00 3F 0A 0D 00 51 24 B2 22 11 11 11 22 3A |12.?...Q$."...":|
00000210: 41 24 B2 22 20 20 20 20 20 20 20 20 20 20 20 20 |A$." |
00000220: 52 45 53 45 54 54 49 4E 47 20 50 52 49 4E 54 45 |RESETTING PRINTE|
00000230: 52 2E 2E 2E 20 20 20 20 20 20 22 3A 8D 34 30 00 |R... ":.40.|
00000240: 5F 0A 0E 00 97 35 33 32 38 31 2C 32 34 36 3A 9F |_....53281,246:.|
00000250: 31 30 2C 34 2C 31 30 3A 98 31 30 3A A0 31 30 00 |10,4,10:.10:.10.|
00000260: 76 0A 0F 00 9F 36 2C 34 2C 36 3A 98 36 2C C7 28 |v....6,4,6:.6,.(|
00000270: 32 35 29 3A A0 36 00 95 0A 10 00 52 B2 31 3A 41 |25):.6.....R.1:A|
00000280: B2 31 3A 51 24 B2 22 11 11 11 11 11 11 11 22 3A |.1:Q$.".......":|
00000290: 99 22 93 05 22 00 CC 0A 11 00 41 24 B2 22 20 20 |."..".....A$." |
000002A0: 20 20 20 20 20 20 20 20 20 20 20 20 49 4E 53 45 | INSE|
000002B0: 52 54 20 44 41 54 41 20 44 49 53 4B 22 3A 8D 34 |RT DATA DISK":.4|
000002C0: 30 3A 51 24 B2 51 24 AA 22 11 11 22 00 F9 0A 12 |0:Q$.Q$.".."....|
000002D0: 00 41 24 B2 22 20 20 20 20 20 20 20 20 20 20 20 |.A$." |
000002E0: 20 20 20 54 48 45 4E 20 48 49 54 20 3C 52 45 54 | THEN HIT <RET|
000002F0: 55 52 4E 3E 22 3A 8D 34 30 00 0F 0B 13 00 A1 41 |URN>":.40......A|
00000300: 24 3A 8B 41 24 B3 B1 C7 28 31 33 29 A7 31 39 00 |$:.A$...(13).19.|
00000310: 19 0B 14 00 99 22 05 93 22 00 26 0B 15 00 52 24 |....."..".&...R$|
00000320: B2 C7 28 31 33 29 00 67 0B 16 00 86 4E 24 28 35 |..(13).g....N$(5|
00000330: 30 29 2C 43 4E 24 28 35 30 29 2C 41 44 24 28 35 |0),CN$(50),AD$(5|
00000340: 30 29 2C 54 53 24 28 35 30 29 2C 5A 24 28 35 30 |0),TS$(50),Z$(50|
00000350: 29 2C 5A 4F 24 28 35 30 29 2C 50 48 24 28 35 30 |),ZO$(50),PH$(50|
00000360: 29 2C 41 28 35 30 29 00 7E 0B 17 00 99 22 93 22 |),A(50).~...."."|
00000370: 3A 51 24 B2 22 11 11 11 22 3A 8D 32 38 31 00 84 |:Q$."...":.281..|
00000380: 0B 18 00 8F 00 91 0B 19 00 99 22 13 22 3A 51 B2 |..........".":Q.|
00000390: 35 00 C3 0B 1A 00 41 24 B2 22 20 20 20 20 20 12 |5.....A$." .|
000003A0: 28 31 29 2E 2E 2E 2E 2E 2E 2E 43 52 45 41 54 45 |(1).......CREATE|
000003B0: 20 41 43 43 4F 55 4E 54 20 44 49 53 4B 20 22 3A | ACCOUNT DISK ":|
000003C0: 8D 34 30 00 F5 0B 1B 00 41 24 B2 22 20 20 20 20 |.40.....A$." |
000003D0: 20 12 28 32 29 2E 2E 2E 2E 2E 2E 2E 53 45 41 52 | .(2).......SEAR|
000003E0: 43 48 20 46 4F 52 20 4E 41 4D 45 53 20 20 20 20 |CH FOR NAMES |
000003F0: 22 3A 8D 34 30 00 27 0C 1C 00 41 24 B2 22 20 20 |":.40.'...A$." |
00000400: 20 20 20 12 28 33 29 2E 2E 2E 2E 2E 2E 2E 50 52 | .(3).......PR|
00000410: 49 4E 54 20 54 4F 20 50 52 49 4E 54 45 52 20 20 |INT TO PRINTER |
00000420: 20 20 22 3A 8D 34 30 00 59 0C 1D 00 41 24 B2 22 | ":.40.Y...A$."|
00000430: 20 20 20 20 20 12 28 34 29 2E 2E 2E 2E 2E 2E 2E | .(4).......|
00000440: 44 45 4C 45 54 45 20 4E 41 4D 45 53 20 20 20 20 |DELETE NAMES |
00000450: 20 20 20 20 22 3A 8D 34 30 00 8B 0C 1E 00 41 24 | ":.40.....A$|
00000460: B2 22 20 20 20 20 20 12 28 35 29 2E 2E 2E 2E 2E |." .(5).....|
00000470: 2E 2E 43 48 41 4E 47 45 20 4E 41 4D 45 53 20 20 |..CHANGE NAMES |
00000480: 20 20 20 20 20 20 22 3A 8D 34 30 00 BD 0C 1F 00 | ":.40.....|
00000490: 41 24 B2 22 20 20 20 20 20 12 28 36 29 2E 2E 2E |A$." .(6)...|
000004A0: 2E 2E 2E 2E 50 52 49 4E 54 20 45 4E 56 45 4C 4F |....PRINT ENVELO|
000004B0: 50 45 53 20 20 20 20 20 22 3A 8D 34 30 00 EF 0C |PES ":.40...|
000004C0: 20 00 41 24 B2 22 20 20 20 20 20 12 28 37 29 2E | .A$." .(7).|
000004D0: 2E 2E 2E 2E 2E 2E 41 44 44 20 4E 41 4D 45 53 20 |......ADD NAMES |
000004E0: 20 20 20 20 20 20 20 20 20 20 22 3A 8D 34 30 00 | ":.40.|
000004F0: 21 0D 21 00 41 24 B2 22 20 20 20 20 20 12 28 38 |!.!.A$." .(8|
00000500: 29 2E 2E 2E 2E 2E 2E 2E 53 4F 52 54 20 4E 41 4D |).......SORT NAM|
00000510: 45 53 20 20 20 20 20 20 20 20 20 20 22 3A 8D 34 |ES ":.4|
00000520: 30 00 53 0D 22 00 41 24 B2 22 20 20 20 20 20 12 |0.S.".A$." .|
00000530: 28 39 29 2E 2E 2E 2E 2E 2E 2E 45 58 49 54 20 50 |(9).......EXIT P|
00000540: 52 4F 47 52 41 4D 2D 55 53 45 20 49 54 21 22 3A |ROGRAM-USE IT!":|
00000550: 8D 34 30 00 85 0D 23 00 41 24 B2 22 20 20 20 20 |.40...#.A$." |
00000560: 20 12 20 20 20 20 20 5E 52 45 53 45 54 53 20 50 | . ^RESETS P|
00000570: 52 49 4E 54 45 52 2E 2E 2E 2E 5E 20 20 20 20 20 |RINTER....^ |
00000580: 22 3A 8D 34 30 00 B7 0D 24 00 41 24 B2 22 20 20 |":.40...$.A$." |
00000590: 20 20 20 12 28 31 30 29 2E 2E 2E 2E 2E 2E 56 41 | .(10)......VA|
000005A0: 4C 49 44 41 54 45 20 44 49 53 4B 20 20 20 20 20 |LIDATE DISK |
000005B0: 20 20 22 3A 8D 34 30 00 D1 0D 25 00 97 31 39 2C | ":.40...%..19,|
000005C0: 36 37 3A 85 22 11 11 3E 22 3B 49 49 3A 8D 32 38 |67:."..>";II:.28|
000005D0: 31 00 FD 0D 26 00 91 49 49 89 35 37 2C 38 39 2C |1...&..II.57,89,|
000005E0: 32 39 31 2C 31 32 39 2C 31 35 37 2C 34 32 33 2C |291,129,157,423,|
000005F0: 32 31 37 2C 33 33 37 2C 35 32 2C 34 34 00 05 0E |217,337,52,44...|
00000600: 27 00 89 32 33 00 1D 0E 28 00 51 24 B2 51 24 AA |'..23...(.Q$.Q$.|
00000610: 22 11 22 3A 58 B2 C3 28 41 24 29 AD 32 00 30 0E |".":X..(A$).2.0.|
00000620: 29 00 81 54 B2 31 A4 C3 28 41 24 29 AA 31 A9 32 |)..T.1..(A$).1.2|
00000630: 00 4C 0E 2A 00 99 22 13 22 51 24 3B 3A 97 32 31 |.L.*.."."Q$;:.21|
00000640: 31 2C 58 3A 99 C8 28 41 24 2C 54 29 00 5A 0E 2B |1,X:..(A$,T).Z.+|
00000650: 00 58 B2 58 AB 31 3A 82 3A 8E 00 8F 0E 2C 00 99 |.X.X.1:.:....,..|
00000660: 22 93 98 12 20 20 20 20 20 20 20 20 20 20 20 20 |"... |
00000670: 20 20 56 41 4C 49 44 41 54 45 20 44 49 53 4B 20 | VALIDATE DISK |
00000680: 20 20 20 20 20 20 20 20 20 20 20 20 22 3A 99 00 | ":..|
00000690: B1 0E 2D 00 99 22 11 11 11 22 3A 99 22 05 20 41 |..-.."...":.". A|
000006A0: 52 45 20 59 4F 55 20 53 55 52 45 20 59 2F 4E 22 |RE YOU SURE Y/N"|
000006B0: 3B 00 CC 0E 2E 00 97 31 39 2C 36 37 3A 85 22 2E |;......19,67:.".|
000006C0: 2E 3E 4E 9D 22 3B 41 24 3A 99 3A 99 00 DB 0E 2F |.>N.";A$:.:..../|
000006D0: 00 8B 41 24 B2 22 59 22 A7 35 30 00 EA 0E 30 00 |..A$."Y".50...0.|
000006E0: 8B 41 24 B2 22 4E 22 A7 32 33 00 F2 0E 31 00 89 |.A$."N".23...1..|
000006F0: 34 34 00 13 0F 32 00 99 22 56 41 4C 49 44 41 54 |44...2.."VALIDAT|
00000700: 49 4E 47 20 50 4C 45 41 53 45 20 57 41 49 54 2E |ING PLEASE WAIT.|
00000710: 2E 2E 22 00 36 0F 33 00 9F 31 35 2C 38 2C 31 35 |..".6.3..15,8,15|
00000720: 2C 22 49 30 22 3A 98 31 35 2C 22 56 30 22 3A A0 |,"I0":.15,"V0":.|
00000730: 31 35 3A 89 32 33 00 6B 0F 34 00 99 22 93 05 11 |15:.23.k.4.."...|
00000740: 11 11 11 41 52 45 20 59 4F 55 20 53 55 52 45 20 |...ARE YOU SURE |
00000750: 3E 4E 9D 22 3B 3A 97 31 39 2C 36 37 3A 85 41 24 |>N.";:.19,67:.A$|
00000760: 3A 8B 41 24 B2 22 59 22 A7 35 35 00 7A 0F 35 00 |:.A$."Y".55.z.5.|
00000770: 8B 41 24 B2 22 4E 22 A7 32 33 00 82 0F 36 00 89 |.A$."N".23...6..|
00000780: 35 32 00 B4 0F 37 00 99 22 05 93 52 45 53 45 54 |52...7.."..RESET|
00000790: 54 49 4E 47 20 50 52 49 4E 54 45 52 2E 2E 2E 2E |TING PRINTER....|
000007A0: 22 3A 9F 31 30 2C 34 2C 31 30 3A 98 31 30 3A A0 |":.10,4,10:.10:.|
000007B0: 31 30 3A 9C 00 C9 0F 38 00 99 22 11 11 11 4C 41 |10:....8.."...LA|
000007C0: 54 45 52 2E 2E 2E 22 3A 80 00 DC 0F 39 00 8F 20 |TER...":....9.. |
000007D0: 43 52 45 41 54 45 20 46 49 4C 45 53 00 E6 0F 3A |CREATE FILES...:|
000007E0: 00 99 22 93 05 22 00 2F 10 3B 00 51 24 B2 22 22 |..".."./.;.Q$.""|
000007F0: 3A 41 24 B2 22 98 12 20 20 20 20 20 20 20 20 43 |:A$.".. C|
00000800: 52 45 41 54 45 20 4E 45 57 20 44 41 54 41 20 44 |REATE NEW DATA D|
00000810: 49 53 4B 20 20 20 20 20 20 20 20 20 20 20 20 22 |ISK "|
00000820: 3A 8D 34 30 3A 51 24 B2 51 24 AA 22 11 11 22 00 |:.40:Q$.Q$."..".|
00000830: 69 10 3C 00 41 24 B2 22 05 20 20 20 20 20 41 4C |i.<.A$.". AL|
00000840: 4C 20 44 41 54 41 20 4F 4E 20 54 48 45 20 44 49 |L DATA ON THE DI|
00000850: 53 4B 20 57 49 4C 4C 20 42 45 22 3A 8D 34 30 3A |SK WILL BE":.40:|
00000860: 51 24 B2 51 24 AA 22 11 22 00 A3 10 3D 00 41 24 |Q$.Q$."."...=.A$|
00000870: B2 22 20 20 20 20 20 44 45 4C 45 54 45 44 2C 52 |." DELETED,R|
00000880: 45 50 45 41 54 20 44 41 54 41 20 57 49 4C 4C 20 |EPEAT DATA WILL |
00000890: 42 45 20 11 22 3A 8D 34 30 3A 51 24 B2 51 24 AA |BE .":.40:Q$.Q$.|
000008A0: 22 11 22 00 CE 10 3E 00 41 24 B2 22 20 20 20 20 |"."...>.A$." |
000008B0: 20 4C 4F 53 54 20 46 4F 52 45 56 45 52 21 2E 22 | LOST FOREVER!."|
000008C0: 3A 8D 34 30 3A 51 24 B2 51 24 AA 22 11 22 00 08 |:.40:Q$.Q$."."..|
000008D0: 11 3F 00 41 24 B2 22 20 20 20 20 20 54 48 45 20 |.?.A$." THE |
000008E0: 50 52 4F 53 53 45 53 20 57 49 4C 4C 20 54 41 4B |PROSSES WILL TAK|
000008F0: 45 20 41 57 48 49 4C 45 2E 22 3A 8D 34 30 3A 51 |E AWHILE.":.40:Q|
00000900: 24 B2 51 24 AA 22 11 22 00 41 11 40 00 41 24 B2 |$.Q$.".".A.@.A$.|
00000910: 22 20 20 20 20 20 44 4F 20 59 4F 55 20 57 49 53 |" DO YOU WIS|
00000920: 48 20 54 4F 20 43 4F 4E 54 49 4E 55 45 3F 20 59 |H TO CONTINUE? Y|
00000930: 2F 4E 22 3A 8D 34 30 3A 51 24 B2 51 24 AA 22 11 |/N":.40:Q$.Q$.".|
00000940: 22 00 54 11 41 00 A1 41 24 3A 8B 41 24 B2 22 59 |".T.A..A$:.A$."Y|
00000950: 22 A7 36 38 00 63 11 42 00 8B 41 24 B2 22 4E 22 |".68.c.B..A$."N"|
00000960: A7 32 33 00 6B 11 43 00 89 36 35 00 7E 11 44 00 |.23.k.C..65.~.D.|
00000970: 8F 20 53 54 41 52 54 20 43 52 45 41 54 45 00 B8 |. START CREATE..|
00000980: 11 45 00 41 24 B2 22 20 44 4F 20 59 4F 55 20 57 |.E.A$." DO YOU W|
00000990: 49 53 48 20 54 4F 20 46 4F 52 4D 41 54 54 20 41 |ISH TO FORMATT A|
000009A0: 20 44 49 53 4B 20 59 2F 4E 22 3A 8D 34 30 3A 51 | DISK Y/N":.40:Q|
000009B0: 24 B2 51 24 AA 22 11 22 00 F6 11 46 00 41 24 B2 |$.Q$."."...F.A$.|
000009C0: 22 20 49 46 20 59 45 53 20 54 48 45 4E 20 49 4E |" IF YES THEN IN|
000009D0: 53 45 52 54 20 42 4C 41 4E 4B 20 44 49 53 4B 20 |SERT BLANK DISK |
000009E0: 41 4E 44 20 48 49 54 22 3A 8D 34 30 3A 51 24 B2 |AND HIT":.40:Q$.|
000009F0: 51 24 AA 22 11 22 00 37 12 47 00 41 24 B2 22 20 |Q$.".".7.G.A$." |
00000A00: 3C 59 3E 20 3C 52 45 54 55 52 4E 3E 2E 20 3C 44 |<Y> <RETURN>. <D|
00000A10: 41 54 41 20 57 49 4C 4C 20 42 45 20 4C 4F 53 54 |ATA WILL BE LOST|
00000A20: 3E 22 3A 8D 34 30 3A 97 31 39 2C 36 37 3A 85 22 |>":.40:.19,67:."|
00000A30: 3E 4E 9D 22 3B 41 24 00 73 12 48 00 8B 41 24 B2 |>N.";A$.s.H..A$.|
00000A40: 22 59 22 A7 99 22 46 4F 52 4D 41 54 54 49 4E 47 |"Y".."FORMATTING|
00000A50: 2E 2E 2E 2E 22 3A 9F 31 35 2C 38 2C 31 35 2C 22 |....":.15,8,15,"|
00000A60: 4E 30 3A 41 43 43 4F 55 4E 54 20 4C 49 53 54 2C |N0:ACCOUNT LIST,|
00000A70: 4A 48 22 00 AA 12 49 00 99 22 93 98 12 20 20 20 |JH"...I.."... |
00000A80: 20 20 20 20 20 20 20 20 20 20 20 43 52 45 41 54 | CREAT|
00000A90: 49 4E 47 20 20 20 20 20 20 20 20 20 20 20 20 20 |ING |
00000AA0: 20 20 20 20 20 22 3A A0 31 35 00 BF 12 4A 00 81 | ":.15...J..|
00000AB0: 54 B2 36 35 A4 39 30 3A 42 24 B2 C7 28 54 29 00 |T.65.90:B$..(T).|
00000AC0: E0 12 4B 00 99 22 13 11 11 05 11 11 20 43 52 45 |..K.."...... CRE|
00000AD0: 41 54 49 4E 47 20 46 49 4C 45 20 3E 22 3B 42 24 |ATING FILE >";B$|
00000AE0: 00 FB 12 4C 00 9F 31 2C 38 2C 34 2C 22 40 30 3A |...L..1,8,4,"@0:|
00000AF0: 22 AA 42 24 AA 22 2C 53 2C 57 22 00 08 13 4D 00 |".B$.",S,W"...M.|
00000B00: 41 24 B2 42 24 AA 42 24 00 3B 13 4E 00 98 31 2C |A$.B$.B$.;.N..1,|
00000B10: 41 24 3B 52 24 3B 41 24 3B 52 24 3B 41 24 3B 52 |A$;R$;A$;R$;A$;R|
00000B20: 24 3B 41 24 3B 52 24 3B 41 24 3B 52 24 3B 41 24 |$;A$;R$;A$;R$;A$|
00000B30: 3B 52 24 3B 41 24 3B 3A 58 B2 30 00 47 13 4F 00 |;R$;A$;:X.0.G.O.|
00000B40: 98 31 2C 52 24 3B 58 00 54 13 50 00 A0 31 3A 82 |.1,R$;X.T.P..1:.|
00000B50: 3A 89 32 33 00 6F 13 51 00 8F 20 2A 2A 2A 20 53 |:.23.o.Q.. *** S|
00000B60: 41 56 45 20 50 52 4F 53 53 45 53 20 2A 2A 2A 00 |AVE PROSSES ***.|
00000B70: 78 13 52 00 99 22 93 22 00 9D 13 53 00 9F 31 2C |x.R.."."...S..1,|
00000B80: 38 2C 34 2C 22 40 30 3A 22 AA 42 24 AA 22 2C 53 |8,4,"@0:".B$.",S|
00000B90: 2C 57 22 3A 46 54 B2 31 3A 8D 32 36 38 00 A8 13 |,W":FT.1:.268...|
00000BA0: 54 00 81 54 B2 31 A4 52 00 F1 13 55 00 98 31 2C |T..T.1.R...U..1,|
00000BB0: 4E 24 28 54 29 3B 52 24 3B 43 4E 24 28 54 29 3B |N$(T);R$;CN$(T);|
00000BC0: 52 24 3B 41 44 24 28 54 29 3B 52 24 3B 54 53 24 |R$;AD$(T);R$;TS$|
00000BD0: 28 54 29 3B 52 24 3B 5A 4F 24 28 54 29 3B 52 24 |(T);R$;ZO$(T);R$|
00000BE0: 3B 5A 24 28 54 29 3B 52 24 3B 50 48 24 28 54 29 |;Z$(T);R$;PH$(T)|
00000BF0: 3B 00 00 14 56 00 98 31 2C 52 24 3B 41 28 54 29 |;...V..1,R$;A(T)|
00000C00: 00 09 14 57 00 82 3A A0 31 00 11 14 58 00 89 32 |...W..:.1...X..2|
00000C10: 33 00 30 14 59 00 8F 20 2A 2A 2A 20 53 45 41 52 |3.0.Y.. *** SEAR|
00000C20: 43 48 20 46 4F 52 20 4E 41 4D 45 53 20 2A 2A 2A |CH FOR NAMES ***|
00000C30: 00 4A 14 5A 00 99 22 05 93 22 3A 97 31 39 2C 36 |.J.Z.."..":.19,6|
00000C40: 37 3A 51 24 B2 22 11 11 11 22 00 81 14 5B 00 41 |7:Q$."..."...[.A|
00000C50: 24 B2 22 12 20 20 20 20 20 45 4E 54 45 52 20 4E |$.". ENTER N|
00000C60: 41 4D 45 20 4F 52 20 43 55 53 54 4F 4D 45 52 20 |AME OR CUSTOMER |
00000C70: 4E 55 4D 42 45 52 20 20 20 20 20 20 22 3A 8D 34 |NUMBER ":.4|
00000C80: 30 00 C2 14 5C 00 51 24 B2 51 24 AA 22 11 22 3A |0...\.Q$.Q$.".":|
00000C90: 41 24 B2 22 12 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |A$."............|
00000CA0: 54 59 50 45 20 27 45 4E 44 27 20 54 4F 20 51 55 |TYPE 'END' TO QU|
00000CB0: 49 54 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 22 3A 8D |IT...........":.|
00000CC0: 34 30 00 D5 14 5D 00 97 31 39 2C 36 37 3A 85 22 |40...]..19,67:."|
00000CD0: 3E 22 3B 41 24 00 FC 14 5E 00 42 24 B2 C8 28 41 |>";A$...^.B$..(A|
00000CE0: 24 2C 31 29 3A 8B 41 24 B2 22 45 4E 44 22 A7 99 |$,1):.A$."END"..|
00000CF0: 22 93 22 3A 8D 32 38 31 3A 89 32 33 00 16 15 5F |".":.281:.23..._|
00000D00: 00 9F 31 2C 38 2C 33 2C 22 30 3A 22 AA 42 24 AA |..1,8,3,"0:".B$.|
00000D10: 22 2C 53 2C 52 22 00 1F 15 60 00 8D 32 36 38 00 |",S,R"...`..268.|
00000D20: 5A 15 61 00 84 31 2C 4E 24 28 30 29 2C 43 4E 24 |Z.a..1,N$(0),CN$|
00000D30: 28 30 29 2C 41 44 24 28 30 29 2C 54 53 24 28 30 |(0),AD$(0),TS$(0|
00000D40: 29 2C 5A 4F 24 28 30 29 2C 5A 24 28 30 29 2C 50 |),ZO$(0),Z$(0),P|
00000D50: 48 24 28 30 29 2C 41 28 30 29 00 7E 15 62 00 8B |H$(0),A(0).~.b..|
00000D60: 41 24 B2 43 4E 24 28 30 29 B0 41 24 B2 4E 24 28 |A$.CN$(0).A$.N$(|
00000D70: 30 29 A7 41 B2 56 3A A0 31 3A 89 31 30 34 00 88 |0).A.V:.1:.104..|
00000D80: 15 63 00 99 22 13 22 56 00 9C 15 64 00 8B 53 54 |.c.."."V...d..ST|
00000D90: B2 30 A7 56 B2 56 AA 31 3A 89 39 37 00 B4 15 65 |.0.V.V.1:.97...e|
00000DA0: 00 A0 31 3A 56 B2 30 3A 51 24 B2 22 11 11 22 3A |..1:V.0:Q$."..":|
00000DB0: 99 22 93 22 00 F0 15 66 00 41 24 B2 22 12 20 20 |."."...f.A$.". |
00000DC0: 20 20 20 20 20 20 20 20 20 41 43 43 4F 55 4E 54 | ACCOUNT|
00000DD0: 20 4E 4F 54 20 46 4F 55 4E 44 20 20 20 20 20 20 | NOT FOUND |
00000DE0: 20 20 20 20 20 20 22 3A 8D 34 30 3A 8D 32 38 34 | ":.40:.284|
00000DF0: 00 F8 15 67 00 89 39 30 00 0A 16 68 00 99 22 93 |...g..90...h..".|
00000E00: 22 3A 8D 32 38 31 3A 56 B2 30 00 26 16 69 00 99 |":.281:V.0.&.i..|
00000E10: 22 4E 41 4D 45 2E 2E 2E 2E 2E 2E 2E 2E 20 3E 22 |"NAME........ >"|
00000E20: 3B 4E 24 28 30 29 00 43 16 6A 00 99 22 43 55 53 |;N$(0).C.j.."CUS|
00000E30: 54 4F 4D 45 52 20 4E 4F 2E 20 3E 22 3B 43 4E 24 |TOMER NO. >";CN$|
00000E40: 28 30 29 00 60 16 6B 00 99 22 41 44 44 52 45 53 |(0).`.k.."ADDRES|
00000E50: 53 2E 2E 2E 2E 2E 20 3E 22 3B 41 44 24 28 30 29 |S..... >";AD$(0)|
00000E60: 00 7D 16 6C 00 99 22 54 4F 57 4E 20 26 20 53 54 |.}.l.."TOWN & ST|
00000E70: 41 54 45 20 3E 22 3B 54 53 24 28 30 29 00 99 16 |ATE >";TS$(0)...|
00000E80: 6D 00 99 22 5A 49 50 2E 2E 2E 2E 2E 2E 2E 2E 2E |m.."ZIP.........|
00000E90: 20 3E 22 3B 5A 24 28 30 29 00 B6 16 6E 00 99 22 | >";Z$(0)...n.."|
00000EA0: 5A 4F 4E 45 2E 2E 2E 2E 2E 2E 2E 2E 20 3E 22 3B |ZONE........ >";|
00000EB0: 5A 4F 24 28 30 29 00 D3 16 6F 00 99 22 50 48 4F |ZO$(0)...o.."PHO|
00000EC0: 4E 45 20 4E 4F 2E 2E 2E 2E 20 3E 22 3B 50 48 24 |NE NO.... >";PH$|
00000ED0: 28 30 29 00 DB 16 70 00 89 39 31 00 13 17 71 00 |(0)...p..91...q.|
00000EE0: 9F 34 2C 34 3A 99 22 93 98 12 20 20 20 20 20 20 |.4,4:."... |
00000EF0: 20 20 20 20 20 20 20 20 20 20 50 52 49 4E 54 20 | PRINT |
00000F00: 46 49 4C 45 20 20 20 20 20 20 20 20 20 20 20 20 |FILE |
00000F10: 20 20 22 00 4C 17 72 00 85 22 05 53 54 41 52 54 | ".L.r..".START|
00000F20: 49 4E 47 20 46 49 4C 45 20 28 41 2D 5A 29 27 5B |ING FILE (A-Z)'[|
00000F30: 45 4E 44 5D 20 3E 22 3B 42 24 3A 8B 42 24 B2 22 |END] >";B$:.B$."|
00000F40: 45 4E 44 22 A7 A0 34 3A A0 31 3A 8E 00 6B 17 73 |END"..4:.1:..k.s|
00000F50: 00 9F 31 2C 38 2C 33 2C 22 30 3A 22 AA 42 24 AA |..1,8,3,"0:".B$.|
00000F60: 22 2C 53 2C 52 22 3A 8D 32 36 38 00 79 17 74 00 |",S,R":.268.y.t.|
00000F70: 98 34 2C 42 24 3A 52 B2 31 00 B4 17 75 00 84 31 |.4,B$:R.1...u..1|
00000F80: 2C 4E 24 28 52 29 2C 43 4E 24 28 52 29 2C 41 44 |,N$(R),CN$(R),AD|
00000F90: 24 28 52 29 2C 54 53 24 28 52 29 2C 5A 4F 24 28 |$(R),TS$(R),ZO$(|
00000FA0: 52 29 2C 5A 24 28 52 29 2C 50 48 24 28 52 29 2C |R),Z$(R),PH$(R),|
00000FB0: 41 28 52 29 00 C9 17 76 00 8B 53 54 B2 30 A7 52 |A(R)...v..ST.0.R|
00000FC0: B2 52 AA 31 3A 89 31 31 37 00 D0 17 77 00 A0 31 |.R.1:.117...w..1|
00000FD0: 00 DF 17 78 00 81 54 B2 31 A4 52 AB 31 A9 32 00 |...x..T.1.R.1.2.|
00000FE0: 05 18 79 00 98 34 2C 43 4E 24 28 54 29 3B A3 34 |..y..4,CN$(T);.4|
00000FF0: 30 AB C3 28 43 4E 24 28 54 29 29 29 3B 43 4E 24 |0..(CN$(T)));CN$|
00001000: 28 54 AA 31 29 00 28 18 7A 00 98 34 2C 4E 24 28 |(T.1).(.z..4,N$(|
00001010: 54 29 3B A3 34 30 AB C3 28 4E 24 28 54 29 29 29 |T);.40..(N$(T)))|
00001020: 3B 4E 24 28 54 AA 31 29 00 4E 18 7B 00 98 34 2C |;N$(T.1).N.{..4,|
00001030: 41 44 24 28 54 29 3B A3 34 30 AB C3 28 41 44 24 |AD$(T);.40..(AD$|
00001040: 28 54 29 29 29 3B 41 44 24 28 54 AA 31 29 00 74 |(T)));AD$(T.1).t|
00001050: 18 7C 00 98 34 2C 54 53 24 28 54 29 3B A3 34 30 |.|..4,TS$(T);.40|
00001060: AB C3 28 54 53 24 28 54 29 29 29 3B 54 53 24 28 |..(TS$(T)));TS$(|
00001070: 54 AA 31 29 00 97 18 7D 00 98 34 2C 5A 24 28 54 |T.1)...}..4,Z$(T|
00001080: 29 3B A3 34 30 AB C3 28 5A 24 28 54 29 29 29 3B |);.40..(Z$(T)));|
00001090: 5A 24 28 54 AA 31 29 00 BD 18 7E 00 98 34 2C 5A |Z$(T.1)...~..4,Z|
000010A0: 4F 24 28 54 29 3B A3 34 30 AB C3 28 5A 4F 24 28 |O$(T);.40..(ZO$(|
000010B0: 54 29 29 29 3B 5A 4F 24 28 54 AA 31 29 00 E3 18 |T)));ZO$(T.1)...|
000010C0: 7F 00 98 34 2C 50 48 24 28 54 29 3B A3 34 30 AB |...4,PH$(T);.40.|
000010D0: C3 28 50 48 24 28 54 29 29 29 3B 50 48 24 28 54 |.(PH$(T)));PH$(T|
000010E0: AA 31 29 00 F7 18 80 00 98 34 3A 98 34 3A 82 3A |.1)......4:.4:.:|
000010F0: A0 34 3A A0 31 3A 8E 00 0A 19 81 00 8F 20 44 45 |.4:.1:....... DE|
00001100: 4C 45 54 45 20 4E 41 4D 45 53 00 3D 19 82 00 99 |LETE NAMES.=....|
00001110: 22 93 98 12 20 20 20 20 20 20 20 20 20 20 20 20 |"... |
00001120: 20 44 45 4C 45 54 45 20 4E 41 4D 45 53 20 20 20 | DELETE NAMES |
00001130: 20 20 20 20 20 20 20 20 20 20 20 20 22 00 6E 19 | ".n.|
00001140: 83 00 99 22 12 20 20 20 20 20 20 20 20 20 20 54 |...". T|
00001150: 59 50 45 20 27 45 4E 44 27 20 54 4F 20 45 4E 44 |YPE 'END' TO END|
00001160: 20 20 20 20 20 20 20 20 20 20 20 20 20 22 00 78 | ".x|
00001170: 19 84 00 99 22 05 11 22 00 9C 19 85 00 97 31 39 |....".."......19|
00001180: 2C 36 37 3A 85 22 43 55 53 54 4F 4D 45 52 20 4E |,67:."CUSTOMER N|
00001190: 55 4D 42 45 52 20 3E 22 3B 42 31 24 00 AE 19 86 |UMBER >";B1$....|
000011A0: 00 8B 42 31 24 B2 22 45 4E 44 22 A7 32 33 00 C2 |..B1$."END".23..|
000011B0: 19 87 00 42 24 B2 C8 28 42 31 24 2C 31 29 3A 52 |...B$..(B1$,1):R|
000011C0: B2 30 00 D5 19 88 00 9F 31 2C 38 2C 34 2C 42 24 |.0......1,8,4,B$|
000011D0: 3A 56 55 B2 30 00 10 1A 89 00 84 31 2C 4E 24 28 |:VU.0......1,N$(|
000011E0: 52 29 2C 43 4E 24 28 52 29 2C 41 44 24 28 52 29 |R),CN$(R),AD$(R)|
000011F0: 2C 54 53 24 28 52 29 2C 5A 4F 24 28 52 29 2C 5A |,TS$(R),ZO$(R),Z|
00001200: 24 28 52 29 2C 50 48 24 28 52 29 2C 41 28 52 29 |$(R),PH$(R),A(R)|
00001210: 00 25 1A 8A 00 8B 53 54 B2 30 A7 52 B2 52 AA 31 |.%....ST.0.R.R.1|
00001220: 3A 89 31 33 37 00 2C 1A 8B 00 A0 31 00 4B 1A 8C |:.137.,....1.K..|
00001230: 00 99 3A 99 3A 99 22 53 45 41 52 43 48 49 4E 47 |..:.:."SEARCHING|
00001240: 3E 2D 22 3B 3A 81 54 B2 30 A4 52 00 67 1A 8D 00 |>-";:.T.0.R.g...|
00001250: 8B 42 31 24 B2 43 4E 24 28 54 29 A7 41 28 54 29 |.B1$.CN$(T).A(T)|
00001260: B2 31 3A 56 55 B2 31 00 75 1A 8E 00 99 22 9D 2A |.1:VU.1.u....".*|
00001270: 2D 22 3B 3A 82 00 AE 1A 8F 00 8B 56 55 B2 31 A7 |-";:.......VU.1.|
00001280: 97 31 39 2C 36 37 3A 99 3A 85 22 4E 41 4D 45 20 |.19,67:.:."NAME |
00001290: 46 4F 55 4E 44 2C 43 4F 4E 54 49 4E 55 45 3F 20 |FOUND,CONTINUE? |
000012A0: 59 2F 4E 3E 4E 9D 22 3B 41 24 3A 99 3A 99 00 E0 |Y/N>N.";A$:.:...|
000012B0: 1A 90 00 8B 56 55 B2 30 A7 99 3A 99 22 41 43 43 |....VU.0..:."ACC|
000012C0: 4F 55 4E 54 20 4E 4F 54 20 46 4F 55 4E 44 22 3A |OUNT NOT FOUND":|
000012D0: 81 54 B2 31 A4 32 30 30 30 3A 82 3A 89 31 32 39 |.T.1.2000:.:.129|
000012E0: 00 F0 1A 91 00 8B 41 24 B2 22 59 22 A7 31 34 38 |......A$."Y".148|
000012F0: 00 00 1B 92 00 8B 41 24 B2 22 4E 22 A7 31 32 39 |......A$."N".129|
00001300: 00 09 1B 93 00 89 31 34 33 00 30 1B 94 00 99 22 |......143.0...."|
00001310: 9E 12 52 45 53 41 56 49 4E 47 20 4E 41 4D 45 53 |..RESAVING NAMES|
00001320: 2C 50 4C 45 41 53 45 20 57 41 49 54 2E 2E 2E 22 |,PLEASE WAIT..."|
00001330: 00 3F 1B 95 00 99 3A 99 3A 99 22 3E 2D 22 3B 00 |.?....:.:.">-";.|
00001340: 5A 1B 96 00 9F 31 2C 38 2C 34 2C 22 40 30 3A 22 |Z....1,8,4,"@0:"|
00001350: AA 42 24 AA 22 2C 53 2C 57 22 00 65 1B 97 00 81 |.B$.",S,W".e....|
00001360: 54 B2 30 A4 52 00 7E 1B 98 00 8B 41 28 54 29 B2 |T.0.R.~....A(T).|
00001370: 31 A7 99 22 9D D6 2D 22 3B 3A 89 31 35 36 00 8A |1.."..-";:.156..|
00001380: 1B 99 00 99 22 9D 53 2D 22 3B 00 D3 1B 9A 00 98 |....".S-";......|
00001390: 31 2C 4E 24 28 54 29 3B 52 24 3B 43 4E 24 28 54 |1,N$(T);R$;CN$(T|
000013A0: 29 3B 52 24 3B 41 44 24 28 54 29 3B 52 24 3B 54 |);R$;AD$(T);R$;T|
000013B0: 53 24 28 54 29 3B 52 24 3B 5A 4F 24 28 54 29 3B |S$(T);R$;ZO$(T);|
000013C0: 52 24 3B 5A 24 28 54 29 3B 52 24 3B 50 48 24 28 |R$;Z$(T);R$;PH$(|
000013D0: 54 29 3B 00 E2 1B 9B 00 98 31 2C 52 24 3B 41 28 |T);......1,R$;A(|
000013E0: 54 29 00 F0 1B 9C 00 82 3A A0 31 3A 89 31 32 39 |T)......:.1:.129|
000013F0: 00 11 1C 9D 00 99 22 93 05 22 3A 8F 20 2A 2A 2A |......"..":. ***|
00001400: 20 43 48 41 4E 47 45 20 4E 41 4D 45 53 20 2A 2A | CHANGE NAMES **|
00001410: 2A 00 52 1C 9E 00 51 24 B2 22 11 11 22 3A 42 24 |*.R...Q$."..":B$|
00001420: B2 22 22 3A 41 24 B2 22 22 3A 41 24 B2 22 20 20 |."":A$."":A$." |
00001430: 20 20 20 45 4E 54 45 52 20 43 55 53 54 4F 4D 45 | ENTER CUSTOME|
00001440: 52 20 4E 55 4D 42 45 52 20 4F 52 20 28 45 4E 44 |R NUMBER OR (END|
00001450: 29 22 00 7D 1C 9F 00 97 31 39 2C 36 37 3A 8D 34 |)".}....19,67:.4|
00001460: 30 3A 85 22 11 3E 45 4E 44 9D 9D 9D 22 3B 41 24 |0:.".>END...";A$|
00001470: 3A 8B 41 24 B2 22 45 4E 44 22 A7 32 33 00 8C 1C |:.A$."END".23...|
00001480: A0 00 42 24 B2 C8 28 41 24 2C 31 29 00 B3 1C A1 |..B$..(A$,1)....|
00001490: 00 9F 31 2C 38 2C 33 2C 22 30 3A 22 AA 42 24 AA |..1,8,3,"0:".B$.|
000014A0: 22 2C 53 2C 52 22 3A 52 B2 31 3A 8D 32 36 38 3A |",S,R":R.1:.268:|
000014B0: 41 B2 30 00 EE 1C A2 00 84 31 2C 4E 24 28 52 29 |A.0......1,N$(R)|
000014C0: 2C 43 4E 24 28 52 29 2C 41 44 24 28 52 29 2C 54 |,CN$(R),AD$(R),T|
000014D0: 53 24 28 52 29 2C 5A 4F 24 28 52 29 2C 5A 24 28 |S$(R),ZO$(R),Z$(|
000014E0: 52 29 2C 50 48 24 28 52 29 2C 41 28 52 29 00 05 |R),PH$(R),A(R)..|
000014F0: 1D A3 00 8B 5A 5A B2 32 35 A7 5A 5A B2 30 3A 99 |....ZZ.25.ZZ.0:.|
00001500: C7 28 31 33 29 00 28 1D A4 00 8B 53 54 B2 30 A7 |.(13).(....ST.0.|
00001510: 52 B2 52 AA 31 3A 99 22 2A 22 3B 3A 5A 5A B2 5A |R.R.1:."*";:ZZ.Z|
00001520: 5A AA 31 3A 89 31 36 32 00 53 1D A5 00 81 54 B2 |Z.1:.162.S....T.|
00001530: 31 A4 52 3A 8B 41 24 B2 43 4E 24 28 54 29 B0 41 |1.R:.A$.CN$(T).A|
00001540: 24 B2 4E 24 28 54 29 A7 41 B2 54 3A A0 31 3A 89 |$.N$(T).A.T:.1:.|
00001550: 31 36 39 00 5C 1D A6 00 82 3A A0 31 00 98 1D A7 |169.\....:.1....|
00001560: 00 8B 41 B2 30 A7 99 22 93 12 20 20 20 20 20 20 |..A.0..".. |
00001570: 20 20 20 20 20 20 20 20 46 49 4C 45 20 4E 4F 54 | FILE NOT|
00001580: 20 46 4F 55 4E 44 20 20 20 20 20 20 20 20 20 20 | FOUND |
00001590: 20 20 22 3A 8D 32 38 34 00 A1 1D A8 00 89 31 35 | ":.284......15|
000015A0: 38 00 BE 1D A9 00 99 22 93 12 4E 41 4D 45 2E 2E |8......"..NAME..|
000015B0: 2E 2E 2E 2E 2E 2E 2E 22 3B 4E 24 28 41 29 00 C9 |.......";N$(A)..|
000015C0: 1D AA 00 85 4E 24 28 41 29 00 E6 1D AB 00 99 22 |....N$(A)......"|
000015D0: 12 43 55 53 54 4F 4D 45 52 20 4E 4F 2E 2E 22 3B |.CUSTOMER NO..";|
000015E0: 43 4E 24 28 41 29 00 F2 1D AC 00 85 43 4E 24 28 |CN$(A)......CN$(|
000015F0: 41 29 00 0F 1E AD 00 99 22 12 41 44 44 52 45 53 |A)......".ADDRES|
00001600: 53 2E 2E 2E 2E 2E 2E 22 3B 41 44 24 28 41 29 00 |S......";AD$(A).|
00001610: 1B 1E AE 00 85 41 44 24 28 41 29 00 38 1E AF 00 |.....AD$(A).8...|
00001620: 99 22 12 54 4F 57 4E 20 26 20 53 54 41 54 45 2E |.".TOWN & STATE.|
00001630: 22 3B 54 53 24 28 41 29 00 44 1E B0 00 85 54 53 |";TS$(A).D....TS|
00001640: 24 28 41 29 00 60 1E B1 00 99 22 12 5A 49 50 2E |$(A).`....".ZIP.|
00001650: 2E 2E 2E 2E 2E 2E 2E 2E 2E 22 3B 5A 24 28 41 29 |.........";Z$(A)|
00001660: 00 6B 1E B2 00 85 5A 24 28 41 29 00 88 1E B3 00 |.k....Z$(A).....|
00001670: 99 22 12 5A 4F 4E 45 2E 2E 2E 2E 2E 2E 2E 2E 2E |.".ZONE.........|
00001680: 22 3B 5A 4F 24 28 41 29 00 94 1E B4 00 85 5A 4F |";ZO$(A)......ZO|
00001690: 24 28 41 29 00 B1 1E B5 00 99 22 12 50 48 4F 4E |$(A)......".PHON|
000016A0: 45 20 4E 4F 2E 2E 2E 2E 2E 22 3B 50 48 24 28 41 |E NO.....";PH$(A|
000016B0: 29 00 BD 1E B6 00 85 50 48 24 28 41 29 00 C8 1E |)......PH$(A)...|
000016C0: B7 00 99 4E 24 28 41 29 00 D4 1E B8 00 99 43 4E |...N$(A)......CN|
000016D0: 24 28 41 29 00 E0 1E B9 00 99 41 44 24 28 41 29 |$(A)......AD$(A)|
000016E0: 00 EC 1E BA 00 99 54 53 24 28 41 29 00 F8 1E BB |......TS$(A)....|
000016F0: 00 99 5A 4F 24 28 41 29 00 03 1F BC 00 99 5A 24 |..ZO$(A)......Z$|
00001700: 28 41 29 00 0F 1F BD 00 99 50 48 24 28 41 29 00 |(A)......PH$(A).|
00001710: 3D 1F BE 00 85 22 20 20 12 20 20 20 20 20 20 20 |=...." . |
00001720: 49 53 20 54 48 49 53 20 4E 41 4D 45 20 43 4F 52 |IS THIS NAME COR|
00001730: 52 45 43 54 20 59 2F 4E 22 3B 4E 4E 24 00 4E 1F |RECT Y/N";NN$.N.|
00001740: BF 00 8B 4E 4E 24 B2 22 59 22 A7 31 39 34 00 5F |...NN$."Y".194._|
00001750: 1F C0 00 8B 4E 4E 24 B2 22 4E 22 A7 31 35 37 00 |....NN$."N".157.|
00001760: 68 1F C1 00 89 31 39 30 00 70 1F C2 00 89 38 32 |h....190.p....82|
00001770: 00 96 1F C3 00 85 22 12 45 4E 54 45 52 20 4E 41 |......".ENTER NA|
00001780: 4D 45 20 4F 52 20 43 55 53 54 4F 4D 45 52 20 4E |ME OR CUSTOMER N|
00001790: 4F 2E 22 3B 41 24 00 B8 1F C4 00 42 24 B2 C8 28 |O.";A$.....B$..(|
000017A0: 41 24 2C 31 29 3A 8B 41 24 B2 22 45 4E 44 22 A7 |A$,1):.A$."END".|
000017B0: 99 22 93 22 3A 89 32 34 00 D2 1F C5 00 9F 31 2C |.".":.24......1,|
000017C0: 38 2C 33 2C 22 30 3A 22 AA 42 24 AA 22 2C 53 2C |8,3,"0:".B$.",S,|
000017D0: 52 22 00 0D 20 C6 00 84 31 2C 4E 24 28 56 29 2C |R".. ...1,N$(V),|
000017E0: 43 4E 24 28 56 29 2C 41 44 24 28 56 29 2C 54 53 |CN$(V),AD$(V),TS|
000017F0: 24 28 56 29 2C 5A 4F 24 28 56 29 2C 5A 24 28 56 |$(V),ZO$(V),Z$(V|
00001800: 29 2C 50 48 24 28 56 29 2C 41 28 56 29 00 31 20 |),PH$(V),A(V).1 |
00001810: C7 00 8B 41 24 B2 43 4E 24 28 56 29 B0 41 24 B2 |...A$.CN$(V).A$.|
00001820: 4E 24 28 56 29 A7 41 B2 56 3A A0 31 3A 89 32 30 |N$(V).A.V:.1:.20|
00001830: 35 00 3B 20 C8 00 99 22 13 22 56 00 4F 20 C9 00 |5.; ..."."V.O ..|
00001840: 8B 53 54 B2 30 A7 56 B2 56 AA 31 3A 89 39 37 00 |.ST.0.V.V.1:.97.|
00001850: 56 20 CA 00 A0 31 00 87 20 CB 00 99 22 12 20 20 |V ...1.. ...". |
00001860: 20 20 20 20 20 20 20 20 20 46 49 4C 45 20 4E 4F | FILE NO|
00001870: 54 20 46 4F 55 4E 44 20 20 20 20 20 20 20 20 20 |T FOUND |
00001880: 20 20 20 20 20 20 22 00 8F 20 CC 00 89 39 31 00 | ".. ...91.|
00001890: 98 20 CD 00 99 22 93 22 00 B2 20 CE 00 99 22 4E |. ...".".. ..."N|
000018A0: 41 4D 45 2E 2E 2E 2E 2E 2E 2E 2E 22 3B 4E 24 28 |AME........";N$(|
000018B0: 41 29 00 CD 20 CF 00 99 22 43 55 53 54 4F 4D 45 |A).. ..."CUSTOME|
000018C0: 52 20 4E 4F 2E 22 3B 43 4E 24 28 41 29 00 E8 20 |R NO.";CN$(A).. |
000018D0: D0 00 99 22 41 44 44 52 45 53 53 2E 2E 2E 2E 2E |..."ADDRESS.....|
000018E0: 22 3B 41 44 24 28 41 29 00 03 21 D1 00 99 22 54 |";AD$(A)..!..."T|
000018F0: 4F 57 4E 20 26 20 53 54 41 54 45 22 3B 54 53 24 |OWN & STATE";TS$|
00001900: 28 41 29 00 1D 21 D2 00 99 22 5A 49 50 2E 2E 2E |(A)..!..."ZIP...|
00001910: 2E 2E 2E 2E 2E 2E 22 3B 5A 24 28 41 29 00 38 21 |......";Z$(A).8!|
00001920: D3 00 99 22 5A 4F 4E 45 2E 2E 2E 2E 2E 2E 2E 2E |..."ZONE........|
00001930: 22 3B 5A 4F 24 28 41 29 00 53 21 D4 00 99 22 50 |";ZO$(A).S!..."P|
00001940: 48 4F 4E 45 20 4E 4F 2E 2E 2E 2E 22 3B 50 48 24 |HONE NO....";PH$|
00001950: 28 41 29 00 70 21 D5 00 85 22 4F 4B 2D 59 2F 4E |(A).p!..."OK-Y/N|
00001960: 22 3B 51 24 3A 8B 51 24 B2 22 59 22 A7 32 31 36 |";Q$:.Q$."Y".216|
00001970: 00 80 21 D6 00 8B 51 24 B2 22 4E 22 A7 31 39 35 |..!...Q$."N".195|
00001980: 00 89 21 D7 00 89 32 31 33 00 B9 21 D8 00 98 34 |..!...213..!...4|
00001990: 2C A3 33 35 29 3B 4E 24 28 41 29 3B 52 24 3B A3 |,.35);N$(A);R$;.|
000019A0: 33 35 29 3B 41 44 24 28 41 29 3B 52 24 3B A3 33 |35);AD$(A);R$;.3|
000019B0: 35 29 3B 54 53 24 28 41 29 00 D0 21 D9 00 8F 20 |5);TS$(A)..!... |
000019C0: 41 44 44 20 4E 41 4D 45 20 54 4F 20 4C 49 53 54 |ADD NAME TO LIST|
000019D0: 00 0A 22 DA 00 99 22 93 98 12 20 20 20 20 20 20 |.."..."... |
000019E0: 20 20 20 20 20 20 20 20 20 41 44 44 20 4E 41 4D | ADD NAM|
000019F0: 45 53 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |ES |
00001A00: 20 20 22 3A A0 31 3A A0 31 35 00 1C 22 DB 00 99 | ":.1:.15.."...|
00001A10: 22 05 11 11 22 3A 97 31 39 2C 36 37 00 57 22 DC |"...":.19,67.W".|
00001A20: 00 85 22 45 4E 54 45 52 20 4E 41 4D 45 2E 2E 2E |.."ENTER NAME...|
00001A30: 2E 2E 2E 2E 2E 20 3E 22 3B 4E 24 28 30 29 3A 99 |..... >";N$(0):.|
00001A40: 3A 97 31 39 2C 36 37 3A 8B 4E 24 28 30 29 B2 22 |:.19,67:.N$(0)."|
00001A50: 45 4E 44 22 A7 32 33 00 81 22 DD 00 85 22 45 4E |END".23.."..."EN|
00001A60: 54 45 52 20 43 55 53 54 4F 4D 45 52 20 4E 4F 2E |TER CUSTOMER NO.|
00001A70: 20 3E 22 3B 43 4E 24 28 30 29 3A 99 3A 8D 32 34 | >";CN$(0):.:.24|
00001A80: 39 00 90 22 DE 00 8B 56 55 B2 30 A7 89 32 31 38 |9.."...VU.0..218|
00001A90: 00 9B 22 DF 00 97 31 39 2C 36 37 00 C7 22 E0 00 |.."...19,67.."..|
00001AA0: 85 22 45 4E 54 45 52 20 41 44 44 52 45 53 53 2E |."ENTER ADDRESS.|
00001AB0: 2E 2E 2E 2E 20 3E 22 3B 41 44 24 28 30 29 3A 99 |.... >";AD$(0):.|
00001AC0: 3A 97 31 39 2C 36 37 00 F3 22 E1 00 85 22 45 4E |:.19,67.."..."EN|
00001AD0: 54 45 52 20 54 4F 57 4E 20 26 20 53 54 41 54 45 |TER TOWN & STATE|
00001AE0: 20 3E 22 3B 54 53 24 28 30 29 3A 99 3A 97 31 39 | >";TS$(0):.:.19|
00001AF0: 2C 36 37 00 1E 23 E2 00 85 22 45 4E 54 45 52 20 |,67..#..."ENTER |
00001B00: 5A 49 50 2E 2E 2E 2E 2E 2E 2E 2E 2E 20 3E 22 3B |ZIP......... >";|
00001B10: 5A 24 28 30 29 3A 99 3A 97 31 39 2C 36 37 00 4A |Z$(0):.:.19,67.J|
00001B20: 23 E3 00 85 22 45 4E 54 45 52 20 5A 4F 4E 45 2E |#..."ENTER ZONE.|
00001B30: 2E 2E 2E 2E 2E 2E 2E 20 3E 22 3B 5A 4F 24 28 30 |....... >";ZO$(0|
00001B40: 29 3A 99 3A 97 31 39 2C 36 37 00 78 23 E4 00 85 |):.:.19,67.x#...|
00001B50: 22 45 4E 54 45 52 20 50 48 4F 4E 45 20 4E 4F 2E |"ENTER PHONE NO.|
00001B60: 2E 2E 2E 20 3E 22 3B 50 48 24 28 30 29 3A 99 3A |... >";PH$(0):.:|
00001B70: 99 3A 97 31 39 2C 36 37 00 AB 23 E5 00 51 24 B2 |.:.19,67..#..Q$.|
00001B80: 22 22 3A 85 22 43 4F 52 52 45 43 54 2D 28 59 2F |"":."CORRECT-(Y/|
00001B90: 4E 2F 41 29 20 41 29 41 42 4F 52 54 20 20 3E 22 |N/A) A)ABORT >"|
00001BA0: 3B 51 24 3A 99 3A 97 31 39 2C 30 00 BB 23 E6 00 |;Q$:.:.19,0..#..|
00001BB0: 8B 51 24 B2 22 59 22 A7 32 33 34 00 CC 23 E7 00 |.Q$."Y".234..#..|
00001BC0: 8B 51 24 B2 22 4E 22 A7 89 32 31 37 00 DB 23 E8 |.Q$."N"..217..#.|
00001BD0: 00 8B 51 24 B2 22 41 22 A7 32 33 00 E4 23 E9 00 |..Q$."A".23..#..|
00001BE0: 89 32 32 39 00 FA 23 EA 00 9F 31 35 2C 38 2C 31 |.229..#...15,8,1|
00001BF0: 35 2C 22 49 30 22 3A A0 31 35 00 1E 24 EB 00 9F |5,"I0":.15..$...|
00001C00: 31 2C 38 2C 34 2C 22 40 30 3A 22 AA C8 28 43 4E |1,8,4,"@0:"..(CN|
00001C10: 24 28 30 29 2C 31 29 AA 22 2C 53 2C 41 22 00 3E |$(0),1).",S,A".>|
00001C20: 24 EC 00 9F 31 35 2C 38 2C 31 35 3A 84 31 35 2C |$...15,8,15:.15,|
00001C30: 4E 4E 2C 42 42 24 2C 43 43 24 2C 44 44 24 00 71 |NN,BB$,CC$,DD$.q|
00001C40: 24 ED 00 8B 4E 4E B2 36 32 A7 99 22 93 05 4E 4F |$...NN.62.."..NO|
00001C50: 54 20 43 52 45 41 54 45 44 22 3A A0 31 3A A0 31 |T CREATED":.1:.1|
00001C60: 35 3A 81 54 B2 30 A4 32 30 30 30 3A 82 3A 89 32 |5:.T.0.2000:.:.2|
00001C70: 33 00 A4 24 EE 00 99 22 93 98 12 20 20 20 20 20 |3..$..."... |
00001C80: 20 20 20 20 20 41 50 50 45 4E 44 49 4E 47 20 4E | APPENDING N|
00001C90: 41 4D 45 20 54 4F 20 46 49 4C 45 20 20 20 20 20 |AME TO FILE |
00001CA0: 20 20 20 22 00 AD 24 EF 00 99 22 05 22 00 C4 24 | "..$..."."..$|
00001CB0: F0 00 98 31 2C 4E 24 28 30 29 3B 52 24 3B 43 4E |...1,N$(0);R$;CN|
00001CC0: 24 28 30 29 00 DC 24 F1 00 98 31 2C 41 44 24 28 |$(0)..$...1,AD$(|
00001CD0: 30 29 3B 52 24 3B 54 53 24 28 30 29 00 F3 24 F2 |0);R$;TS$(0)..$.|
00001CE0: 00 98 31 2C 5A 4F 24 28 30 29 3B 52 24 3B 5A 24 |..1,ZO$(0);R$;Z$|
00001CF0: 28 30 29 00 09 25 F3 00 98 31 2C 50 48 24 28 30 |(0)..%...1,PH$(0|
00001D00: 29 3B 52 24 3B 41 28 30 29 00 14 25 F4 00 A0 31 |);R$;A(0)..%...1|
00001D10: 3A A0 31 35 00 47 25 F5 00 99 22 93 98 12 20 20 |:.15.G%..."... |
00001D20: 20 20 20 20 20 20 20 20 20 20 20 46 49 4C 45 20 | FILE |
00001D30: 41 50 50 45 4E 44 45 44 20 20 20 20 20 20 20 20 |APPENDED |
00001D40: 20 20 20 20 20 20 22 00 72 25 F6 00 99 22 11 11 | ".r%..."..|
00001D50: 05 20 20 20 20 20 20 20 20 48 49 54 20 3C 52 45 |. HIT <RE|
00001D60: 54 55 52 4E 3E 20 54 4F 20 43 4F 4E 54 49 4E 55 |TURN> TO CONTINU|
00001D70: 45 22 00 89 25 F7 00 A1 41 24 3A 8B 41 24 B3 B1 |E"..%...A$:.A$..|
00001D80: C7 28 31 33 29 A7 32 34 37 00 92 25 F8 00 89 32 |.(13).247..%...2|
00001D90: 31 37 00 B3 25 F9 00 8F 20 56 41 4C 49 44 41 54 |17..%... VALIDAT|
00001DA0: 45 20 55 53 45 52 20 42 45 46 4F 52 45 20 41 44 |E USER BEFORE AD|
00001DB0: 44 21 21 00 E0 25 FA 00 99 22 05 12 0E D6 41 4C |D!!..%..."....AL|
00001DC0: 49 44 41 54 49 4E 47 20 CE 41 4D 45 3E 92 2D 22 |IDATING .AME>.-"|
00001DD0: 3B 3A 42 24 B2 C8 28 43 4E 24 28 30 29 2C 31 29 |;:B$..(CN$(0),1)|
00001DE0: 00 FA 25 FB 00 9F 31 2C 38 2C 33 2C 22 30 3A 22 |..%...1,8,3,"0:"|
00001DF0: AA 42 24 AA 22 2C 53 2C 52 22 00 31 26 FC 00 84 |.B$.",S,R".1&...|
00001E00: 31 2C 56 24 28 30 29 2C 56 24 28 31 29 2C 56 24 |1,V$(0),V$(1),V$|
00001E10: 28 32 29 2C 56 24 28 33 29 2C 56 24 28 34 29 2C |(2),V$(3),V$(4),|
00001E20: 56 24 28 35 29 2C 56 24 28 36 29 2C 56 24 28 37 |V$(5),V$(6),V$(7|
00001E30: 29 00 47 26 FD 00 8B 56 24 28 30 29 B2 4E 24 28 |).G&...V$(0).N$(|
00001E40: 30 29 A7 89 32 36 34 00 5E 26 FE 00 8B 56 24 28 |0)..264.^&...V$(|
00001E50: 31 29 B2 43 4E 24 28 30 29 A7 89 32 36 34 00 75 |1).CN$(0)..264.u|
00001E60: 26 FF 00 8B 53 54 B2 30 A7 99 22 9D BA 2D 22 3B |&...ST.0.."..-";|
00001E70: 3A 89 32 35 32 00 A9 26 00 01 99 3A 99 22 93 91 |:.252..&...:."..|
00001E80: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00001E90: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00001EA0: C0 C0 C0 C0 C0 C0 C0 C0 22 00 D9 26 01 01 99 22 |........"..&..."|
00001EB0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00001EC0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00001ED0: C0 C0 C0 C0 C0 C0 C0 C0 22 00 06 27 02 01 99 22 |........"..'..."|
00001EE0: 91 91 91 20 20 20 20 20 20 20 43 4F 4E 54 49 4E |... CONTIN|
00001EF0: 55 45 20 45 4E 54 45 52 49 4E 47 20 41 43 43 4F |UE ENTERING ACCO|
00001F00: 55 4E 54 11 11 22 00 27 27 03 01 99 22 4E 41 4D |UNT..".''..."NAM|
00001F10: 45 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 3E |E..............>|
00001F20: 22 3B 4E 24 28 30 29 00 49 27 04 01 99 22 43 55 |";N$(0).I'..."CU|
00001F30: 53 54 4F 4D 45 52 20 4E 55 4D 42 45 52 2E 2E 2E |STOMER NUMBER...|
00001F40: 3E 22 3B 43 4E 24 28 30 29 00 54 27 05 01 99 22 |>";CN$(0).T'..."|
00001F50: 11 11 11 22 00 68 27 06 01 56 55 B2 31 3A 99 C7 |...".h'..VU.1:..|
00001F60: 28 31 34 32 29 3A A0 31 00 6E 27 07 01 8E 00 8F |(142):.1.n'.....|
00001F70: 27 08 01 99 22 9D 3F 5F C0 C0 C0 C0 C0 C0 C0 20 |'...".?_....... |
00001F80: C1 43 43 4F 55 4E 54 20 45 58 49 53 54 53 22 00 |.CCOUNT EXISTS".|
00001F90: A0 27 09 01 81 58 54 B2 31 A4 35 30 30 30 3A 82 |.'...XT.1.5000:.|
00001FA0: 00 B4 27 0A 01 56 55 B2 30 3A 99 C7 28 31 34 32 |..'..VU.0:..(142|
00001FB0: 29 3A A0 31 00 BA 27 0B 01 8E 00 CC 27 0C 01 9F |):.1..'.....'...|
00001FC0: 31 35 2C 38 2C 31 35 3A 99 22 93 22 00 E4 27 0D |15,8,15:."."..'.|
00001FD0: 01 84 31 35 2C 4E 4E 24 2C 42 42 24 2C 43 43 24 |..15,NN$,BB$,CC$|
00001FE0: 2C 44 44 24 00 0E 28 0E 01 99 22 20 20 20 20 20 |,DD$..(..." |
00001FF0: 12 44 49 53 4B 20 53 54 41 54 55 53 20 49 53 20 |.DISK STATUS IS |
00002000: 54 48 45 20 46 4F 4C 4C 4F 57 49 4E 47 22 00 4D |THE FOLLOWING".M|
00002010: 28 0F 01 99 2C 4E 4E 24 3A 99 2C 42 42 24 3A 99 |(...,NN$:.,BB$:.|
00002020: 2C 43 43 24 3A 99 2C 44 44 24 3A 99 3A 99 22 20 |,CC$:.,DD$:.:." |
00002030: 20 20 20 20 20 20 20 20 20 20 12 53 54 41 54 55 | .STATU|
00002040: 53 20 4F 46 20 44 49 53 4B 22 3B 53 54 00 53 28 |S OF DISK";ST.S(|
00002050: 10 01 99 00 85 28 11 01 8B 4E 4E 24 B2 22 30 30 |.....(...NN$."00|
00002060: 22 AF 46 54 B2 30 A7 A0 31 35 3A A0 31 3A 9F 31 |".FT.0..15:.1:.1|
00002070: 2C 38 2C 33 2C 22 30 3A 22 AA 42 24 AA 22 2C 53 |,8,3,"0:".B$.",S|
00002080: 2C 52 22 3A 8E 00 BD 28 12 01 8B 4E 4E 24 B2 22 |,R":...(...NN$."|
00002090: 30 30 22 AF 46 54 B2 31 A7 A0 31 35 3A A0 31 3A |00".FT.1..15:.1:|
000020A0: 9F 31 2C 38 2C 34 2C 22 40 30 3A 22 AA 42 24 AA |.1,8,4,"@0:".B$.|
000020B0: 22 2C 53 2C 57 22 3A 46 54 B2 30 3A 8E 00 C5 28 |",S,W":FT.0:...(|
000020C0: 13 01 A0 31 35 00 EF 28 14 01 99 22 20 20 20 20 |...15..(..." |
000020D0: 20 20 20 20 20 20 20 12 43 48 45 43 4B 20 44 49 | .CHECK DI|
000020E0: 53 4B 20 44 52 49 56 45 30 22 3A 8D 32 38 34 00 |SK DRIVE0":.284.|
000020F0: 1E 29 15 01 99 3A 99 3A 99 3A 99 3A 85 22 20 20 |.)...:.:.:.:." |
00002100: 20 20 20 20 20 20 20 20 20 12 54 52 59 20 41 47 | .TRY AG|
00002110: 41 49 4E 20 5B 59 2F 4E 5D 22 3B 4E 4E 24 00 3C |AIN [Y/N]";NN$.<|
00002120: 29 16 01 8B 4E 4E 24 B2 22 59 22 A7 99 22 93 22 |)...NN$."Y".."."|
00002130: 3A A0 31 3A 8D 32 38 31 3A 9C 3A 8A 00 4B 29 17 |:.1:.281:.:..K).|
00002140: 01 8B 4E 4E 24 B2 22 4E 22 A7 80 00 54 29 18 01 |..NN$."N"...T)..|
00002150: 89 32 37 37 00 6E 29 19 01 81 54 B2 35 34 32 37 |.277.n)...T.5427|
00002160: 32 A4 35 34 32 39 36 3A 97 54 2C 30 3A 82 00 9B |2.54296:.T,0:...|
00002170: 29 1A 01 97 35 34 32 37 38 2C 31 30 3A 97 35 34 |)...54278,10:.54|
00002180: 32 37 37 2C 31 32 38 3A 97 35 34 32 37 36 2C 31 |277,128:.54276,1|
00002190: 37 3A 97 35 34 32 39 36 2C 31 35 00 CC 29 1B 01 |7:.54296,15..)..|
000021A0: 97 35 34 32 37 33 2C 34 35 3A 81 54 B2 31 A4 31 |.54273,45:.T.1.1|
000021B0: 30 30 3A 82 3A 81 54 B2 35 34 32 37 32 A4 35 34 |00:.:.T.54272.54|
000021C0: 32 39 36 3A 97 54 2C 30 3A 82 3A 8E 00 E6 29 1C |296:.T,0:.:...).|
000021D0: 01 81 54 B2 35 34 32 37 32 A4 35 34 32 39 36 3A |..T.54272.54296:|
000021E0: 97 54 2C 30 3A 82 00 F3 29 1D 01 97 35 34 32 38 |.T,0:...)...5428|
000021F0: 35 2C 38 00 02 2A 1E 01 97 35 34 32 38 34 2C 31 |5,8..*...54284,1|
00002200: 36 30 00 10 2A 1F 01 97 35 34 32 38 33 2C 33 33 |60..*...54283,33|
00002210: 00 1E 2A 20 01 97 35 34 32 39 36 2C 31 35 00 38 |..* ..54296,15.8|
00002220: 2A 21 01 97 35 34 32 38 30 2C 31 35 3A 81 54 B2 |*!..54280,15:.T.|
00002230: 31 A4 31 30 30 30 3A 82 00 5D 2A 22 01 97 35 34 |1.1000:..]*"..54|
00002240: 32 39 36 2C 30 3A 81 54 B2 35 34 32 37 32 A4 35 |296,0:.T.54272.5|
00002250: 34 32 39 36 3A 97 54 2C 30 3A 82 3A 8E 00 6F 2A |4296:.T,0:.:..o*|
00002260: 23 01 8F 20 50 52 49 4E 54 20 46 49 4C 45 53 00 |#.. PRINT FILES.|
00002270: AD 2A 24 01 99 22 93 98 12 20 20 20 20 20 20 20 |.*$.."... |
00002280: 20 20 20 20 20 20 20 20 50 52 49 4E 54 20 4D 45 | PRINT ME|
00002290: 4E 55 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |NU |
000022A0: 20 22 3A 51 24 B2 22 11 11 11 11 11 22 00 E4 2A | ":Q$."....."..*|
000022B0: 25 01 41 24 B2 20 20 22 05 20 20 20 31 29 20 12 |%.A$. ". 1) .|
000022C0: 9E 50 52 49 4E 54 20 41 4C 4C 20 4E 41 4D 45 53 |.PRINT ALL NAMES|
000022D0: 20 41 2D 5A 2D 41 4C 4C 20 49 4E 46 4F 2E 20 22 | A-Z-ALL INFO. "|
000022E0: 3A 8D 34 30 00 1A 2B 26 01 41 24 B2 20 20 22 20 |:.40..+&.A$. " |
000022F0: 20 20 32 29 20 12 05 50 52 49 4E 54 20 4F 4E 45 | 2) ..PRINT ONE|
00002300: 20 46 49 4C 45 20 20 41 2D 5A 2D 41 4C 4C 20 49 | FILE A-Z-ALL I|
00002310: 4E 46 4F 2E 20 22 3A 8D 34 30 00 50 2B 27 01 41 |NFO. ":.40.P+'.A|
00002320: 24 B2 20 20 22 20 20 20 33 29 20 12 9E 50 52 49 |$. " 3) ..PRI|
00002330: 4E 54 20 4E 41 4D 45 53 20 26 20 50 48 4F 4E 45 |NT NAMES & PHONE|
00002340: 20 4E 55 4D 42 45 52 20 20 20 20 22 3A 8D 34 30 | NUMBER ":.40|
00002350: 00 86 2B 28 01 41 24 B2 20 20 22 20 20 20 34 29 |..+(.A$. " 4)|
00002360: 20 12 05 50 52 49 4E 54 20 4E 41 4D 45 53 20 26 | ..PRINT NAMES &|
00002370: 20 43 55 53 54 4F 4D 45 52 20 4E 55 4D 42 45 52 | CUSTOMER NUMBER|
00002380: 20 22 3A 8D 34 30 00 BC 2B 29 01 41 24 B2 20 20 | ":.40..+).A$. |
00002390: 22 20 20 20 35 29 20 12 9E 50 52 49 4E 54 20 4E |" 5) ..PRINT N|
000023A0: 41 4D 45 53 20 2C 43 55 53 54 20 23 2C 20 26 20 |AMES ,CUST #, & |
000023B0: 50 48 4F 4E 45 20 23 22 3A 8D 34 30 00 F3 2B 2A |PHONE #":.40..+*|
000023C0: 01 41 24 B2 20 20 22 20 20 20 36 29 20 12 05 20 |.A$. " 6) .. |
000023D0: 45 58 49 54 20 54 4F 20 4D 41 49 4E 20 4D 45 4E |EXIT TO MAIN MEN|
000023E0: 55 20 20 20 20 20 20 20 20 20 20 20 20 05 22 3A |U .":|
000023F0: 8D 34 30 00 0F 2C 2B 01 99 3A 99 22 11 11 11 11 |.40..,+..:."....|
00002400: 22 3A 97 31 39 2C 36 37 3A 85 22 3E 22 3B 56 00 |":.19,67:.">";V.|
00002410: 1B 2C 2C 01 8B 56 B2 36 A7 32 33 00 36 2C 2D 01 |.,,..V.6.23.6,-.|
00002420: 91 56 8D 33 30 33 2C 31 31 33 2C 33 30 39 2C 33 |.V.303,113,309,3|
00002430: 39 39 2C 34 35 32 00 3F 2C 2E 01 89 32 39 31 00 |99,452.?,...291.|
00002440: 83 2C 2F 01 99 22 93 22 3B 3A 51 24 B2 22 22 3A |.,/..".";:Q$."":|
00002450: 41 24 B2 22 12 98 20 20 20 20 20 20 20 20 20 20 |A$.".. |
00002460: 20 20 20 20 20 50 52 49 4E 54 20 41 4C 4C 20 49 | PRINT ALL I|
00002470: 4E 46 4F 20 20 20 20 20 20 20 20 20 20 20 22 3A |NFO ":|
00002480: 8D 34 30 00 C9 2C 30 01 51 24 B2 51 24 AA 22 11 |.40..,0.Q$.Q$.".|
00002490: 11 22 3A 41 24 B2 22 05 20 20 20 20 20 20 20 50 |.":A$.". P|
000024A0: 52 45 53 53 20 3C 52 45 54 55 52 4E 3E 20 54 4F |RESS <RETURN> TO|
000024B0: 20 20 43 4F 4E 54 49 4E 55 45 22 3A 8D 34 30 3A | CONTINUE":.40:|
000024C0: 51 24 B2 51 24 AA 22 11 22 00 F1 2C 31 01 41 24 |Q$.Q$."."..,1.A$|
000024D0: B2 22 20 20 20 20 20 20 20 4F 52 20 3C 53 50 41 |." OR <SPA|
000024E0: 43 45 3E 20 54 4F 20 41 42 4F 52 54 22 3A 8D 34 |CE> TO ABORT":.4|
000024F0: 30 00 07 2D 32 01 A1 41 24 3A 8B 41 24 B2 C7 28 |0..-2..A$:.A$..(|
00002500: 33 32 29 A7 32 39 31 00 1A 2D 33 01 8B 41 24 B3 |32).291..-3..A$.|
00002510: B1 C7 28 31 33 29 A7 33 30 36 00 46 2D 34 01 A0 |..(13).306.F-4..|
00002520: 31 3A 81 51 B2 36 35 A4 39 30 3A 9F 34 2C 34 3A |1:.Q.65.90:.4,4:|
00002530: 42 24 B2 C7 28 51 29 3A 8D 31 31 35 3A 82 3A A0 |B$..(Q):.115:.:.|
00002540: 34 3A 89 33 31 33 00 79 2D 35 01 99 22 93 12 98 |4:.313.y-5.."...|
00002550: 20 20 20 20 20 20 20 20 50 52 49 4E 54 20 4E 41 | PRINT NA|
00002560: 4D 45 53 20 26 20 50 48 4F 4E 45 20 4E 55 4D 42 |MES & PHONE NUMB|
00002570: 45 52 20 20 20 20 20 20 22 00 84 2D 36 01 99 22 |ER "..-6.."|
00002580: 05 11 11 22 00 AF 2D 37 01 99 20 22 20 20 20 20 |..."..-7.. " |
00002590: 20 20 20 20 50 52 45 53 53 20 3C 52 45 54 55 52 | PRESS <RETUR|
000025A0: 4E 3E 20 54 4F 20 43 4F 4E 54 49 4E 55 45 22 00 |N> TO CONTINUE".|
000025B0: CF 2D 38 01 99 22 11 11 20 20 20 20 20 20 20 20 |.-8..".. |
000025C0: 53 50 41 43 45 20 54 4F 20 41 42 4F 52 54 22 00 |SPACE TO ABORT".|
000025D0: E5 2D 39 01 A1 41 24 3A 8B 41 24 B2 C7 28 31 33 |.-9..A$:.A$..(13|
000025E0: 29 A7 33 31 36 00 F5 2D 3A 01 8B 41 24 B2 C7 28 |).316..-:..A$..(|
000025F0: 33 32 29 A7 8E 00 FE 2D 3B 01 89 33 31 33 00 15 |32)....-;..313..|
00002600: 2E 3C 01 9F 34 2C 34 3A 9F 32 2C 34 2C 32 3A 9F |.<..4,4:.2,4,2:.|
00002610: 33 2C 34 2C 31 00 60 2E 3D 01 98 34 2C 22 B0 C0 |3,4,1.`.=..4,"..|
00002620: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00002630: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00002640: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00002650: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 AE 22 |..............."|
00002660: 00 AA 2E 3E 01 98 34 2C 22 DD 20 20 20 20 20 20 |...>..4,". |
00002670: 20 4E 41 4D 45 20 20 20 20 20 20 20 20 20 20 20 | NAME |
00002680: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002690: 20 20 20 20 20 20 20 50 48 4F 4E 45 20 20 20 20 | PHONE |
000026A0: 20 20 20 20 20 20 20 20 20 DD 00 F5 2E 3F 01 98 | ....?..|
000026B0: 34 2C 22 AD C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |4,".............|
000026C0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
000026D0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
000026E0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
000026F0: C0 C0 C0 BD 22 00 02 2F 40 01 98 34 2C C7 28 31 |...."../@..4,.(1|
00002700: 33 29 00 4C 2F 41 01 41 24 B2 22 20 20 41 41 41 |3).L/A.A$." AAA|
00002710: 41 41 41 41 41 41 41 41 41 41 41 41 41 41 41 41 |AAAAAAAAAAAAAAAA|
00002720: 41 41 41 41 41 41 41 41 41 41 41 41 41 41 41 41 |AAAAAAAAAAAAAAAA|
00002730: 41 41 41 20 20 20 20 20 20 20 41 41 41 41 41 41 |AAA AAAAAA|
00002740: 41 41 41 41 41 41 41 41 41 41 41 22 00 56 2F 42 |AAAAAAAAAAA".V/B|
00002750: 01 98 32 2C 41 24 00 6B 2F 43 01 81 51 B2 36 35 |..2,A$.k/C..Q.65|
00002760: A4 39 30 3A 42 24 B2 C7 28 51 29 00 9D 2F 44 01 |.90:B$..(Q)../D.|
00002770: 98 34 2C 22 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |.4,"............|
00002780: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00002790: C0 C0 C0 C0 C0 C0 C0 C0 C0 22 42 24 3B 00 CE 2F |........."B$;../|
000027A0: 45 01 98 34 2C 22 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |E..4,"..........|
000027B0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
000027C0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 22 00 D7 |............."..|
000027D0: 2F 46 01 8D 33 33 32 00 E0 2F 47 01 8D 33 32 39 |/F..332../G..329|
000027E0: 00 F4 2F 48 01 82 3A A0 31 3A A0 32 3A A0 33 3A |../H..:.1:.2:.3:|
000027F0: A0 34 3A 8E 00 FF 2F 49 01 81 54 B2 30 A4 52 00 |.4:.../I..T.0.R.|
00002800: 19 30 4A 01 98 33 2C 4E 24 28 54 29 3B C7 28 32 |.0J..3,N$(T);.(2|
00002810: 39 29 3B 50 48 24 28 54 29 00 21 30 4B 01 82 3A |9);PH$(T).!0K..:|
00002820: 8E 00 3C 30 4C 01 8F 20 4C 4F 41 44 20 4E 41 4D |..<0L.. LOAD NAM|
00002830: 45 53 20 46 4F 52 20 50 52 49 4E 54 00 5A 30 4D |ES FOR PRINT.Z0M|
00002840: 01 9F 31 2C 38 2C 33 2C 22 30 3A 22 AA 42 24 AA |..1,8,3,"0:".B$.|
00002850: 22 2C 53 2C 52 22 3A 52 B2 30 00 95 30 4E 01 84 |",S,R":R.0..0N..|
00002860: 31 2C 4E 24 28 52 29 2C 43 4E 24 28 52 29 2C 41 |1,N$(R),CN$(R),A|
00002870: 44 24 28 52 29 2C 54 53 24 28 52 29 2C 5A 4F 24 |D$(R),TS$(R),ZO$|
00002880: 28 52 29 2C 5A 24 28 52 29 2C 50 48 24 28 52 29 |(R),Z$(R),PH$(R)|
00002890: 2C 41 28 52 29 00 AA 30 4F 01 8B 53 54 B2 30 A7 |,A(R)..0O..ST.0.|
000028A0: 52 B2 52 AA 31 3A 89 33 33 34 00 B3 30 50 01 A0 |R.R.1:.334..0P..|
000028B0: 31 3A 8E 00 BC 30 51 01 99 22 93 22 00 EE 30 52 |1:...0Q.."."..0R|
000028C0: 01 99 22 98 12 20 20 20 20 20 20 20 20 53 45 4C |..".. SEL|
000028D0: 45 43 54 49 4F 4E 20 53 4F 52 54 20 4F 46 20 46 |ECTION SORT OF F|
000028E0: 49 4C 45 53 20 20 20 20 20 20 20 20 20 22 00 18 |ILES "..|
000028F0: 31 53 01 99 22 11 11 05 20 20 20 20 20 20 20 20 |1S.."... |
00002900: 54 48 49 53 20 50 52 4F 53 53 45 53 53 20 57 49 |THIS PROSSESS WI|
00002910: 4C 4C 20 54 41 4B 45 22 00 41 31 54 01 99 22 11 |LL TAKE".A1T..".|
00002920: 20 20 20 20 20 20 20 20 41 57 48 49 4C 45 20 53 | AWHILE S|
00002930: 4F 20 50 52 45 53 53 20 53 50 41 43 45 20 54 4F |O PRESS SPACE TO|
00002940: 22 00 68 31 55 01 99 22 11 20 20 20 20 20 20 20 |".h1U..". |
00002950: 20 41 42 4F 52 54 20 4F 52 20 3C 52 45 54 55 52 | ABORT OR <RETUR|
00002960: 4E 3E 20 54 4F 20 20 22 00 82 31 56 01 99 22 11 |N> TO "..1V..".|
00002970: 20 20 20 20 20 20 20 20 43 4F 4E 54 49 4E 55 45 | CONTINUE|
00002980: 2E 22 00 8A 31 57 01 99 3A 99 00 97 31 58 01 58 |."..1W..:...1X.X|
00002990: B2 C2 28 31 39 37 29 00 A4 31 59 01 8B 58 B2 31 |..(197)..1Y..X.1|
000029A0: A7 33 34 39 00 B2 31 5A 01 8B 58 B2 36 30 A7 89 |.349..1Z..X.60..|
000029B0: 32 33 00 BB 31 5B 01 89 33 34 34 00 D0 31 5C 01 |23..1[..344..1\.|
000029C0: 8F 20 53 45 4C 45 43 54 49 4F 4E 20 53 4F 52 54 |. SELECTION SORT|
000029D0: 00 DB 31 5D 01 97 31 39 38 2C 30 00 E9 31 5E 01 |..1]..198,0..1^.|
000029E0: 81 56 56 B2 36 35 A4 39 30 00 F6 31 5F 01 42 24 |.VV.65.90..1_.B$|
000029F0: B2 C7 28 56 56 29 00 14 32 60 01 52 B2 31 3A 9F |..(VV)..2`.R.1:.|
00002A00: 31 2C 38 2C 33 2C 22 30 3A 22 AA 42 24 AA 22 2C |1,8,3,"0:".B$.",|
00002A10: 53 2C 52 22 00 4F 32 61 01 84 31 2C 4E 24 28 52 |S,R".O2a..1,N$(R|
00002A20: 29 2C 43 4E 24 28 52 29 2C 41 44 24 28 52 29 2C |),CN$(R),AD$(R),|
00002A30: 54 53 24 28 52 29 2C 5A 4F 24 28 52 29 2C 5A 24 |TS$(R),ZO$(R),Z$|
00002A40: 28 52 29 2C 50 48 24 28 52 29 2C 41 28 52 29 00 |(R),PH$(R),A(R).|
00002A50: 64 32 62 01 8B 53 54 B2 30 A7 52 B2 52 AA 31 3A |d2b..ST.0.R.R.1:|
00002A60: 89 33 35 33 00 70 32 63 01 A0 31 3A 99 22 93 22 |.353.p2c..1:."."|
00002A70: 00 8B 32 64 01 81 54 B2 31 A4 52 3A 99 4E 24 28 |..2d..T.1.R:.N$(|
00002A80: 54 29 2C 50 48 24 28 54 29 3A 82 00 98 32 65 01 |T),PH$(T):...2e.|
00002A90: 81 49 B2 30 A4 52 AB 31 00 A1 32 66 01 4B 31 B2 |.I.0.R.1..2f.K1.|
00002AA0: 31 00 AE 32 67 01 81 4A B2 31 A4 52 AB 49 00 C5 |1..2g..J.1.R.I..|
00002AB0: 32 68 01 8B 4E 24 28 4A 29 B1 4E 24 28 4B 31 29 |2h..N$(J).N$(K1)|
00002AC0: A7 4B 31 B2 4A 00 CC 32 69 01 82 4A 00 DD 32 6A |.K1.J..2i..J..2j|
00002AD0: 01 41 24 28 31 29 B2 4E 24 28 4B 31 29 00 EF 32 |.A$(1).N$(K1)..2|
00002AE0: 6B 01 41 24 28 32 29 B2 43 4E 24 28 4B 31 29 00 |k.A$(2).CN$(K1).|
00002AF0: 01 33 6C 01 41 24 28 33 29 B2 41 44 24 28 4B 31 |.3l.A$(3).AD$(K1|
00002B00: 29 00 13 33 6D 01 41 24 28 34 29 B2 54 53 24 28 |)..3m.A$(4).TS$(|
00002B10: 4B 31 29 00 25 33 6E 01 41 24 28 35 29 B2 5A 4F |K1).%3n.A$(5).ZO|
00002B20: 24 28 4B 31 29 00 36 33 6F 01 41 24 28 36 29 B2 |$(K1).63o.A$(6).|
00002B30: 5A 24 28 4B 31 29 00 48 33 70 01 41 24 28 37 29 |Z$(K1).H3p.A$(7)|
00002B40: B2 50 48 24 28 4B 31 29 00 68 33 71 01 8F 20 2A |.PH$(K1).h3q.. *|
00002B50: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 20 53 |************** S|
00002B60: 54 41 47 45 20 54 57 4F 00 7B 33 72 01 4E 24 28 |TAGE TWO.{3r.N$(|
00002B70: 4B 31 29 B2 4E 24 28 52 AB 49 29 00 90 33 73 01 |K1).N$(R.I)..3s.|
00002B80: 43 4E 24 28 4B 31 29 B2 43 4E 24 28 52 AB 49 29 |CN$(K1).CN$(R.I)|
00002B90: 00 A5 33 74 01 41 44 24 28 4B 31 29 B2 41 44 24 |..3t.AD$(K1).AD$|
00002BA0: 28 52 AB 49 29 00 BA 33 75 01 54 53 24 28 4B 31 |(R.I)..3u.TS$(K1|
00002BB0: 29 B2 54 53 24 28 52 AB 49 29 00 CF 33 76 01 5A |).TS$(R.I)..3v.Z|
00002BC0: 4F 24 28 4B 31 29 B2 5A 4F 24 28 52 AB 49 29 00 |O$(K1).ZO$(R.I).|
00002BD0: E2 33 77 01 5A 24 28 4B 31 29 B2 5A 24 28 52 AB |.3w.Z$(K1).Z$(R.|
00002BE0: 49 29 00 F7 33 78 01 50 48 24 28 4B 31 29 B2 50 |I)..3x.PH$(K1).P|
00002BF0: 48 24 28 52 AB 49 29 00 0D 34 79 01 8F 2A 2A 2A |H$(R.I)..4y..***|
00002C00: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 1F 34 |*************..4|
00002C10: 7A 01 4E 24 28 52 AB 49 29 B2 41 24 28 31 29 00 |z.N$(R.I).A$(1).|
00002C20: 32 34 7B 01 43 4E 24 28 52 AB 49 29 B2 41 24 28 |24{.CN$(R.I).A$(|
00002C30: 32 29 00 45 34 7C 01 41 44 24 28 52 AB 49 29 B2 |2).E4|.AD$(R.I).|
00002C40: 41 24 28 33 29 00 58 34 7D 01 54 53 24 28 52 AB |A$(3).X4}.TS$(R.|
00002C50: 49 29 B2 41 24 28 34 29 00 6B 34 7E 01 5A 4F 24 |I).A$(4).k4~.ZO$|
00002C60: 28 52 AB 49 29 B2 41 24 28 35 29 00 7D 34 7F 01 |(R.I).A$(5).}4..|
00002C70: 5A 24 28 52 AB 49 29 B2 41 24 28 36 29 00 90 34 |Z$(R.I).A$(6)..4|
00002C80: 80 01 50 48 24 28 52 AB 49 29 B2 41 24 28 37 29 |..PH$(R.I).A$(7)|
00002C90: 00 97 34 81 01 82 49 00 A0 34 82 01 99 22 93 22 |..4...I..4..."."|
00002CA0: 00 BB 34 83 01 81 54 B2 31 A4 52 3A 99 4E 24 28 |..4...T.1.R:.N$(|
00002CB0: 54 29 2C 50 48 24 28 54 29 3A 82 00 D6 34 84 01 |T),PH$(T):...4..|
00002CC0: 9F 31 2C 38 2C 34 2C 22 40 30 3A 22 AA 42 24 AA |.1,8,4,"@0:".B$.|
00002CD0: 22 2C 53 2C 57 22 00 E1 34 85 01 81 54 B2 31 A4 |",S,W"..4...T.1.|
00002CE0: 52 00 EE 34 86 01 98 31 2C 4E 24 28 54 29 00 FC |R..4...1,N$(T)..|
00002CF0: 34 87 01 98 31 2C 43 4E 24 28 54 29 00 0A 35 88 |4...1,CN$(T)..5.|
00002D00: 01 98 31 2C 41 44 24 28 54 29 00 18 35 89 01 98 |..1,AD$(T)..5...|
00002D10: 31 2C 54 53 24 28 54 29 00 26 35 8A 01 98 31 2C |1,TS$(T).&5...1,|
00002D20: 5A 4F 24 28 54 29 00 33 35 8B 01 98 31 2C 5A 24 |ZO$(T).35...1,Z$|
00002D30: 28 54 29 00 41 35 8C 01 98 31 2C 50 48 24 28 54 |(T).A5...1,PH$(T|
00002D40: 29 00 4D 35 8D 01 98 31 2C 41 28 54 29 00 5C 35 |).M5...1,A(T).\5|
00002D50: 8E 01 82 3A A0 31 3A 82 3A 89 32 33 00 83 35 8F |...:.1:.:.23..5.|
00002D60: 01 8F 20 50 52 49 4E 54 20 4E 41 4D 45 53 20 41 |.. PRINT NAMES A|
00002D70: 4E 44 20 43 55 53 54 4F 4D 45 52 20 4E 55 4D 42 |ND CUSTOMER NUMB|
00002D80: 45 52 53 00 B6 35 90 01 99 22 98 12 93 20 20 20 |ERS..5..."... |
00002D90: 20 20 50 52 49 4E 54 20 4E 41 4D 45 53 20 41 4E | PRINT NAMES AN|
00002DA0: 44 20 43 55 53 54 4F 4D 45 52 20 4E 55 4D 42 45 |D CUSTOMER NUMBE|
00002DB0: 52 20 20 20 20 22 00 E5 35 91 01 99 22 05 11 11 |R "..5..."...|
00002DC0: 11 11 20 20 20 20 20 20 20 20 20 54 4F 20 43 4F |.. TO CO|
00002DD0: 4E 54 49 4E 55 45 20 48 49 54 20 3C 46 31 3E 20 |NTINUE HIT <F1> |
00002DE0: 20 20 20 20 22 00 0A 36 92 01 99 22 11 20 20 20 | "..6...". |
00002DF0: 20 20 20 20 20 20 20 20 20 3C 53 50 41 43 45 3E | <SPACE>|
00002E00: 20 54 4F 20 41 42 4F 52 54 22 00 17 36 93 01 58 | TO ABORT"..6..X|
00002E10: B2 C2 28 31 39 37 29 00 24 36 94 01 8B 58 B2 34 |..(197).$6...X.4|
00002E20: A7 34 30 37 00 30 36 95 01 8B 58 B2 36 30 A7 8E |.407.06...X.60..|
00002E30: 00 39 36 96 01 89 34 30 33 00 42 36 97 01 9F 34 |.96...403.B6...4|
00002E40: 2C 34 00 8D 36 98 01 98 34 2C 22 C0 C0 C0 C0 C0 |,4..6...4,".....|
00002E50: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 4E 41 4D 45 53 |...........NAMES|
00002E60: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00002E70: C0 C0 C0 C0 C0 43 55 53 54 4F 4D 45 52 20 4E 55 |.....CUSTOMER NU|
00002E80: 4D 42 45 52 C0 C0 C0 C0 C0 C0 C0 22 3B 00 A7 36 |MBER.......";..6|
00002E90: 99 01 98 34 2C 22 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |...4,"..........|
00002EA0: C0 C0 C0 22 3A 98 34 00 AE 36 9A 01 A0 34 00 C3 |...":.4..6...4..|
00002EB0: 36 9B 01 81 54 B2 36 35 A4 39 30 3A 42 24 B2 C7 |6...T.65.90:B$..|
00002EC0: 28 54 29 00 CC 36 9C 01 8D 33 33 32 00 D5 36 9D |(T)..6...332..6.|
00002ED0: 01 8D 34 31 35 00 DD 36 9E 01 82 3A 8E 00 F4 36 |..415..6...:...6|
00002EE0: 9F 01 9F 34 2C 34 3A 9F 32 2C 34 2C 32 3A 9F 33 |...4,4:.2,4,2:.3|
00002EF0: 2C 34 2C 31 00 28 37 A0 01 98 34 2C 22 C0 C0 C0 |,4,1.(7...4,"...|
00002F00: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00002F10: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00002F20: C0 C0 C0 22 3B 42 24 3B 00 58 37 A1 01 98 34 2C |...";B$;.X7...4,|
00002F30: 22 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |"...............|
00002F40: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00002F50: C0 C0 C0 C0 C0 C0 C0 22 00 A7 37 A2 01 4D 24 B2 |......."..7..M$.|
00002F60: 22 20 20 41 41 41 41 41 41 41 41 41 41 41 41 41 |" AAAAAAAAAAAAA|
00002F70: 41 41 41 41 41 41 41 41 41 41 41 41 41 41 41 41 |AAAAAAAAAAAAAAAA|
00002F80: 41 41 41 41 20 20 20 20 20 20 20 20 20 20 20 20 |AAAA |
00002F90: 20 20 20 20 41 41 41 41 41 41 41 41 41 41 41 41 | AAAAAAAAAAAA|
00002FA0: 41 41 41 41 41 41 22 00 B1 37 A3 01 98 32 2C 4D |AAAAAA"..7...2,M|
00002FB0: 24 00 BC 37 A4 01 81 51 B2 30 A4 52 00 D6 37 A5 |$..7...Q.0.R..7.|
00002FC0: 01 98 33 2C 4E 24 28 51 29 3B C7 28 32 39 29 3B |..3,N$(Q);.(29);|
00002FD0: 43 4E 24 28 51 29 00 E7 37 A6 01 82 3A A0 34 3A |CN$(Q)..7...:.4:|
00002FE0: A0 32 3A A0 33 3A 8E 00 FD 37 A7 01 8F 20 50 52 |.2:.3:...7... PR|
00002FF0: 49 4E 54 20 45 4E 56 45 4C 4F 50 45 53 00 41 38 |INT ENVELOPES.A8|
00003000: A8 01 51 24 B2 22 22 3A 99 22 98 93 22 3B 3A 41 |..Q$."":."..";:A|
00003010: 24 B2 22 12 20 20 20 20 20 20 20 20 20 20 20 20 |$.". |
00003020: 20 20 50 52 49 4E 54 20 45 4E 56 45 4C 4F 50 45 | PRINT ENVELOPE|
00003030: 53 20 20 20 20 20 20 20 20 20 20 20 22 3A 8D 34 |S ":.4|
00003040: 30 00 84 38 A9 01 51 24 B2 51 24 AA 22 11 11 11 |0..8..Q$.Q$."...|
00003050: 05 22 3A 41 24 B2 22 20 20 54 59 50 45 20 4E 41 |.":A$." TYPE NA|
00003060: 4D 45 20 4F 52 20 43 55 53 54 4F 4D 45 52 20 4E |ME OR CUSTOMER N|
00003070: 55 4D 42 45 52 20 27 5B 45 4E 44 5D 20 11 20 22 |UMBER '[END] . "|
00003080: 3A 8D 34 30 00 97 38 AA 01 97 31 39 2C 36 37 3A |:.40..8...19,67:|
00003090: 85 22 3E 22 3B 41 24 00 A8 38 AB 01 8B 41 24 B2 |.">";A$..8...A$.|
000030A0: 22 45 4E 44 22 A7 32 33 00 B7 38 AC 01 42 24 B2 |"END".23..8..B$.|
000030B0: C8 28 41 24 2C 31 29 00 D1 38 AD 01 9F 31 2C 38 |.(A$,1)..8...1,8|
000030C0: 2C 34 2C 22 30 3A 22 AA 42 24 AA 22 2C 53 2C 52 |,4,"0:".B$.",S,R|
000030D0: 22 00 07 39 AE 01 84 31 2C 41 24 28 31 29 2C 41 |"..9...1,A$(1),A|
000030E0: 24 28 32 29 2C 41 24 28 33 29 2C 41 24 28 34 29 |$(2),A$(3),A$(4)|
000030F0: 2C 41 24 28 35 29 2C 41 24 28 36 29 2C 41 24 28 |,A$(5),A$(6),A$(|
00003100: 37 29 2C 41 28 30 29 00 26 39 AF 01 8B 41 24 28 |7),A(0).&9...A$(|
00003110: 31 29 B2 41 24 B0 41 24 28 32 29 B2 41 24 A7 A0 |1).A$.A$(2).A$..|
00003120: 31 3A 89 34 33 34 00 34 39 B0 01 8B 53 54 B2 30 |1:.434.49...ST.0|
00003130: A7 34 33 30 00 61 39 B1 01 99 22 41 43 43 4F 55 |.430.a9..."ACCOU|
00003140: 4E 54 20 4E 4F 54 20 46 4F 55 4E 44 22 3A 81 54 |NT NOT FOUND":.T|
00003150: B2 30 A4 33 30 30 30 3A 82 3A A0 31 3A 89 34 32 |.0.3000:.:.1:.42|
00003160: 34 00 84 39 B2 01 99 22 05 93 43 55 53 54 4F 4D |4..9..."..CUSTOM|
00003170: 45 52 20 4E 55 4D 42 45 52 2E 2E 2E 3E 22 3B 41 |ER NUMBER...>";A|
00003180: 24 28 31 29 00 A5 39 B3 01 99 22 4E 41 4D 45 2E |$(1)..9..."NAME.|
00003190: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 3E 22 3B |.............>";|
000031A0: 41 24 28 32 29 00 C6 39 B4 01 99 22 41 44 52 45 |A$(2)..9..."ADRE|
000031B0: 53 53 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 3E 22 |SS............>"|
000031C0: 3B 41 24 28 33 29 00 E7 39 B5 01 99 22 54 4F 57 |;A$(3)..9..."TOW|
000031D0: 4E 20 41 4E 44 20 53 54 41 54 45 2E 2E 2E 2E 3E |N AND STATE....>|
000031E0: 22 3B 41 24 28 34 29 00 08 3A B6 01 99 22 5A 49 |";A$(4)..:..."ZI|
000031F0: 50 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |P...............|
00003200: 3E 22 3B 41 24 28 35 29 00 29 3A B7 01 99 22 5A |>";A$(5).):..."Z|
00003210: 4F 4E 45 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |ONE.............|
00003220: 2E 3E 22 3B 41 24 28 36 29 00 4A 3A B8 01 99 22 |.>";A$(6).J:..."|
00003230: 50 48 4F 4E 45 20 4E 55 4D 42 45 52 2E 2E 2E 2E |PHONE NUMBER....|
00003240: 2E 2E 3E 22 3B 41 24 28 37 29 00 77 3A B9 01 99 |..>";A$(7).w:...|
00003250: 22 11 11 22 3A 99 22 50 52 49 4E 54 20 49 54 2E |"..":."PRINT IT.|
00003260: 2E 2E 20 59 2F 4E 22 3B 3A 97 31 39 2C 36 37 3A |.. Y/N";:.19,67:|
00003270: 85 22 3E 22 3B 41 24 00 87 3A BA 01 8B 41 24 B2 |.">";A$..:...A$.|
00003280: 22 4E 22 A7 34 32 34 00 97 3A BB 01 8B 41 24 B2 |"N".424..:...A$.|
00003290: 22 59 22 A7 34 34 35 00 A0 3A BC 01 89 34 33 34 |"Y".445..:...434|
000032A0: 00 A9 3A BD 01 9F 34 2C 34 00 BE 3A BE 01 9F 31 |..:...4,4..:...1|
000032B0: 30 2C 34 2C 31 30 3A 98 31 30 3A A0 31 30 00 D0 |0,4,10:.10:.10..|
000032C0: 3A BF 01 98 34 2C A3 34 35 29 3B 41 24 28 31 29 |:...4,.45);A$(1)|
000032D0: 00 E2 3A C0 01 98 34 2C A3 34 35 29 3B 41 24 28 |..:...4,.45);A$(|
000032E0: 33 29 00 F4 3A C1 01 98 34 2C A3 34 35 29 3B 41 |3)..:...4,.45);A|
000032F0: 24 28 34 29 00 06 3B C2 01 98 34 2C A3 35 35 29 |$(4)..;...4,.55)|
00003300: 3B 41 24 28 36 29 00 28 3B C3 01 A0 34 3A A0 31 |;A$(6).(;...4:.1|
00003310: 3A 9F 36 2C 34 2C 36 3A 98 36 2C C7 28 32 31 29 |:.6,4,6:.6,.(21)|
00003320: 3A A0 36 3A 89 34 32 34 00 4D 3B C4 01 8F 20 50 |:.6:.424.M;... P|
00003330: 52 49 4E 54 20 4E 41 4D 45 53 20 26 20 43 55 53 |RINT NAMES & CUS|
00003340: 54 4F 4D 45 52 20 26 20 50 48 4F 4E 45 00 80 3B |TOMER & PHONE..;|
00003350: C5 01 99 22 93 98 12 20 20 20 4E 41 4D 45 20 C0 |..."... NAME .|
00003360: C0 C0 C0 C0 C0 C0 C0 20 43 55 53 54 4F 4D 45 52 |....... CUSTOMER|
00003370: 20 C0 C0 C0 C0 20 50 48 4F 4E 45 20 20 20 20 22 | .... PHONE "|
00003380: 00 BB 3B C6 01 51 24 B2 22 11 11 11 11 11 22 3A |..;..Q$.".....":|
00003390: 41 24 B2 22 20 20 20 20 20 20 20 20 05 54 59 50 |A$." .TYP|
000033A0: 45 20 3C 52 45 54 55 52 4E 3E 20 54 4F 20 43 4F |E <RETURN> TO CO|
000033B0: 4E 54 49 4E 55 45 22 3A 8D 34 30 00 EE 3B C7 01 |NTINUE":.40..;..|
000033C0: 41 24 B2 22 20 20 20 20 20 20 20 20 11 9E 20 4F |A$." .. O|
000033D0: 52 20 48 49 54 20 3C 53 50 41 43 45 3E 20 54 4F |R HIT <SPACE> TO|
000033E0: 20 41 42 4F 52 54 20 05 11 22 3A 8D 34 30 00 02 | ABORT ..":.40..|
000033F0: 3C C8 01 A1 41 24 3A 8B 41 24 B2 C7 28 33 32 29 |<...A$:.A$..(32)|
00003400: A7 8E 00 14 3C C9 01 8B 41 24 B2 C7 28 31 33 29 |....<...A$..(13)|
00003410: A7 34 35 39 00 1D 3C CA 01 89 34 35 36 00 51 3C |.459..<...456.Q<|
00003420: CB 01 41 24 B2 22 20 20 20 20 20 2A 2A 2A 20 50 |..A$." *** P|
00003430: 52 49 4E 54 49 4E 47 20 57 49 4C 4C 20 54 41 4B |RINTING WILL TAK|
00003440: 45 20 41 57 48 49 4C 45 20 2A 2A 2A 22 3A 8D 34 |E AWHILE ***":.4|
00003450: 30 00 68 3C CC 01 9F 34 2C 34 3A 9F 32 2C 34 2C |0.h<...4,4:.2,4,|
00003460: 32 3A 9F 33 2C 34 2C 31 00 AD 3C CD 01 98 34 2C |2:.3,4,1..<...4,|
00003470: 22 C0 C0 C0 C0 C0 C0 C0 C0 C0 4E 41 4D 45 C0 C0 |".........NAME..|
00003480: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00003490: C0 C0 C0 C0 C0 C0 43 55 53 54 4F 4D 45 52 20 4E |......CUSTOMER N|
000034A0: 55 4D 42 45 52 C0 C0 C0 C0 C0 C0 22 3B 00 CB 3C |UMBER......";..<|
000034B0: CE 01 98 34 2C 22 C0 C0 C0 C0 C0 C0 C0 50 48 4F |...4,".......PHO|
000034C0: 4E 45 C0 C0 C0 C0 C0 C0 C0 C0 22 00 D5 3C CF 01 |NE........"..<..|
000034D0: 98 34 3A 98 34 00 25 3D D0 01 41 24 B2 22 41 41 |.4:.4.%=..A$."AA|
000034E0: 41 41 41 41 41 41 41 41 41 41 41 41 41 41 41 41 |AAAAAAAAAAAAAAAA|
000034F0: 41 41 41 41 41 41 41 41 41 41 41 41 41 41 41 41 |AAAAAAAAAAAAAAAA|
00003500: 41 20 20 20 20 20 20 41 41 41 41 41 41 41 41 41 |A AAAAAAAAA|
00003510: 41 41 41 41 41 20 20 20 20 20 20 41 41 41 41 41 |AAAAA AAAAA|
00003520: 41 41 41 41 22 00 40 3D D1 01 41 24 B2 41 24 AA |AAAA".@=..A$.A$.|
00003530: 22 41 41 41 41 41 41 41 41 41 41 41 41 41 41 22 |"AAAAAAAAAAAAAA"|
00003540: 00 4A 3D D2 01 98 32 2C 41 24 00 5F 3D D3 01 81 |.J=...2,A$._=...|
00003550: 54 B2 36 35 A4 39 30 3A 42 24 B2 C7 28 54 29 00 |T.65.90:B$..(T).|
00003560: 93 3D D4 01 98 34 2C 22 C0 C0 C0 C0 C0 C0 C0 C0 |.=...4,"........|
00003570: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00003580: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 22 3B |..............";|
00003590: 42 24 3B 00 C5 3D D5 01 98 34 2C 22 C0 C0 C0 C0 |B$;..=...4,"....|
000035A0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
000035B0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
000035C0: C0 C0 C0 C0 22 00 CE 3D D6 01 8D 33 33 32 00 D7 |...."..=...332..|
000035D0: 3D D7 01 8D 34 37 34 00 F1 3D D8 01 82 3A A0 34 |=...474..=...:.4|
000035E0: 3A A0 32 3A A0 33 3A 51 24 B2 51 24 AA 22 11 11 |:.2:.3:Q$.Q$."..|
000035F0: 22 00 2B 3E D9 01 41 24 B2 22 20 20 20 20 20 20 |".+>..A$." |
00003600: 20 20 20 20 20 05 50 52 49 4E 54 49 4E 47 20 44 | .PRINTING D|
00003610: 4F 4E 45 21 21 21 21 21 22 3A 8D 34 30 3A 81 54 |ONE!!!!!":.40:.T|
00003620: B2 30 A4 32 30 30 30 3A 82 3A 8E 00 36 3E DA 01 |.0.2000:.:..6>..|
00003630: 81 51 B2 30 A4 52 00 5F 3E DB 01 98 33 2C 4E 24 |.Q.0.R._>...3,N$|
00003640: 28 51 29 3B C7 28 32 39 29 3B 43 4E 24 28 51 29 |(Q);.(29);CN$(Q)|
00003650: 3B C7 28 32 39 29 3B 50 48 24 28 51 29 3A 82 00 |;.(29);PH$(Q):..|
00003660: 65 3E DC 01 8E 00 00 00 |e>...... |
..1.... "....... ULTRANAME BY JOH
N W HOBBS.@.... "........L.... ".......
1:31:00 08/30/86.{.... "....
........Q$.".....":."..".....A$."
.. ULTRANAME " :.40.....A$."
. BY ":.40.....A$."
.JOHN HOBBS ":.40.M...Q$.Q$.
"....":A$." .........................
........":.40.....A$." . USE WITH 1
526 PRINTER ONLY .":.40.....A$." ...
..............................":.40.....
Q$."...":A$." TYPE <RETURN> TO C
ONTINUE":.40......A$:.A$..G(13).12.?...Q
$."...":A$." RESETTING PRINTE
R... ":.40._....53281,246:.10,4,10:
.10: 10.V....6,4,6:.6,G(25): 6.....R.1:A
.1:Q$.".......":."..".L...A$."
INSERT DATA DISK":.40:Q$.Q$.".."....
.A$." THEN HIT <RETURN>":.4
0......A$:.A$..G(13).19......"..".&...R$
.G(13).G....N$(50),CN$(50),AD$(50),TS$(5
0),Z$(50),ZO$(50),PH$(50),A(50).~...."."
:Q$."...":.281............".":Q.5.C...A$
." .(1).......CREATE ACCOUNT DISK ":
.40.....A$." .(2).......SEARCH FOR N
AMES ":.40.'...A$." .(3).......PR
INT TO PRINTER ":.40.Y...A$." .(4
).......DELETE NAMES ":.40.....A$
." .(5).......CHANGE NAMES ":
.40.....A$." .(6).......PRINT ENVELO
PES ":.40... .A$." .(7).......AD
D NAMES ":.40.!.!.A$." .(8
).......SORT NAMES ":.40.S.".A$
." .(9).......EXIT PROGRAM-USE IT!":
.40...#.A$." . ^RESETS PRINTER..
..^ ":.40...$.A$." .(10)......VA
LIDATE DISK ":.40.Q.%..19,67:."..>
";II:.281...&..II.57,89,291,129,157,423,
217,337,52,44...'..23...(.Q$.Q$.".":X.C(
A$).2.0.)..T.1.C(A$).1.2.L.*.."."Q$;:.21
1,X:.H(A$,T).Z.+.X.X.1:.:....,.."...
VALIDATE DISK ":..
..-.."...":.". ARE YOU SURE Y/N";.L....1
9,67:."..>N.";A$:.:..../..A$."Y".50...0.
.A$."N".23...1..44...2.."VALIDATING PLEA
SE WAIT...".6.3..15,8,15,"I0":.15,"V0":
15:.23.K.4.."......ARE YOU SURE >N.";:.1
9,67:.A$:.A$."Y".55.Z.5..A$."N".23...6..
52...7.."..RESETTING PRINTER....":.10,4,
10:.10: 10:..I.8.."...LATER...":....9..
CREATE FILES...:..".."./.;.Q$."":A$."..
CREATE NEW DATA DISK "
:.40:Q$.Q$."..".I.<.A$.". ALL DATA O
N THE DISK WILL BE":.40:Q$.Q$."."...=.A$
." DELETED,REPEAT DATA WILL BE .":.4
0:Q$.Q$.".".N.>.A$." LOST FOREVER!."
:.40:Q$.Q$."."...?.A$." THE PROSSES
WILL TAKE AWHILE.":.40:Q$.Q$.".".A.@.A$.
" DO YOU WISH TO CONTINUE? Y/N":.40:
Q$.Q$.".".T.A..A$:.A$."Y".68.C.B..A$."N"
.23.K.C..65.~.D.. START CREATE...E.A$."
DO YOU WISH TO FORMATT A DISK Y/N":.40:Q
$.Q$."."...F.A$." IF YES THEN INSERT BLA
NK DISK AND HIT":.40:Q$.Q$.".".7.G.A$."
<Y> <RETURN>. <DATA WILL BE LOST>":.40:.
19,67:.">N.";A$.S.H..A$."Y".."FORMATTING
....":.15,8,15,"N0:ACCOUNT LIST,JH"...I.
."... CREATING
": 15...J..T.65.90:B$.G(T)...K.."..
.... CREATING FILE >";B$...L..1,8,4,"@0:
".B$.",S,W"...M.A$.B$.B$.;.N..1,A$;R$;A$
;R$;A$;R$;A$;R$;A$;R$;A$;R$;A$;:X.0.G.O.
.1,R$;X.T.P. 1:.:.23.O.Q.. *** SAVE PROS
SES ***.X.R.."."...S..1,8,4,"@0:".B$.",S
,W":FT.1:.268...T..T.1.R...U..1,N$(T);R$
;CN$(T);R$;AD$(T);R$;TS$(T);R$;ZO$(T);R$
;Z$(T);R$;PH$(T);...V..1,R$;A(T)...W..:
1...X..23.0.Y.. *** SEARCH FOR NAMES ***
.J.Z.."..":.19,67:Q$."..."...[.A$.".
ENTER NAME OR CUSTOMER NUMBER ":.4
0.B.\.Q$.Q$.".":A$."............TYPE 'EN
D' TO QUIT...........":.40.U.]..19,67:."
>";A$...^.B$.H(A$,1):.A$."END"..".":.281
:.23..._..1,8,3,"0:".B$.",S,R"...`..268.
Z.A..1,N$(0),CN$(0),AD$(0),TS$(0),ZO$(0)
,Z$(0),PH$(0),A(0).~.B..A$.CN$(0).A$.N$(
0).A.V: 1:.104...C.."."V...D..ST.0.V.V.1
:.97...E. 1:V.0:Q$."..":."."...F.A$.".
ACCOUNT NOT FOUND ":
.40:.284...G..90...H..".":.281:V.0.&.I..
"NAME........ >";N$(0).C.J.."CUSTOMER NO
. >";CN$(0).`.K.."ADDRESS..... >";AD$(0)
.}.L.."TOWN & STATE >";TS$(0)...M.."ZIP.
........ >";Z$(0)...N.."ZONE........ >";
ZO$(0).S.O.."PHONE NO.... >";PH$(0)...P.
.91...Q..4,4:."... PRINT
FILE ".L.R..".STARTING FILE
(A-Z)'[END] >";B$:.B$."END". 4: 1:..K.S
..1,8,3,"0:".B$.",S,R":.268.Y.T..4,B$:R.
1...U..1,N$(R),CN$(R),AD$(R),TS$(R),ZO$(
R),Z$(R),PH$(R),A(R).I.V..ST.0.R.R.1:.11
7.P.W. 1...X..T.1.R.1.2...Y..4,CN$(T);.4
0.C(CN$(T)));CN$(T.1).(.Z..4,N$(T);.40.C
(N$(T)));N$(T.1).N.{..4,AD$(T);.40.C(AD$
(T)));AD$(T.1).T.|..4,TS$(T);.40.C(TS$(T
)));TS$(T.1)...}..4,Z$(T);.40.C(Z$(T)));
Z$(T.1)...~..4,ZO$(T);.40.C(ZO$(T)));ZO$
(T.1).....4,PH$(T);.40.C(PH$(T)));PH$(T
.1)......4:.4:.: 4: 1:....... DELETE NAM
ES.=...."... DELETE NAMES
".N....". TYPE 'END
' TO END ".X....".."......19
,67:."CUSTOMER NUMBER >";B1$......B1$."E
ND".23.B...B$.H(B1$,1):R.0.U....1,8,4,B$
:VU.0......1,N$(R),CN$(R),AD$(R),TS$(R),
ZO$(R),Z$(R),PH$(R),A(R).%....ST.0.R.R.1
:.137.,... 1.K....:.:."SEARCHING>-";:.T.
0.R.G....B1$.CN$(T).A(T).1:VU.1.U....".*
-";:.......VU.1..19,67:.:."NAME FOUND,CO
NTINUE? Y/N>N.";A$:.:.......VU.0..:."ACC
OUNT NOT FOUND":.T.1.2000:.:.129......A$
."Y".148......A$."N".129......143.0...."
..RESAVING NAMES,PLEASE WAIT...".?....:.
:.">-";.Z....1,8,4,"@0:".B$.",S,W".E....
T.0.R.~....A(T).1..".V-";:.156......".S-
";.S....1,N$(T);R$;CN$(T);R$;AD$(T);R$;T
S$(T);R$;ZO$(T);R$;Z$(T);R$;PH$(T);.....
.1,R$;A(T)......: 1:.129......"..":. ***
CHANGE NAMES ***.R...Q$."..":B$."":A$."
":A$." ENTER CUSTOMER NUMBER OR (END
)".}....19,67:.40:.".>END...";A$:.A$."EN
D".23... .B$.H(A$,1)......1,8,3,"0:".B$.
",S,R":R.1:.268:A.0......1,N$(R),CN$(R),
AD$(R),TS$(R),ZO$(R),Z$(R),PH$(R),A(R)..
....ZZ.25.ZZ.0:.G(13).(....ST.0.R.R.1:."
*";:ZZ.ZZ.1:.162.S....T.1.R:.A$.CN$(T).A
$.N$(T).A.T: 1:.169.\....: 1......A.0.."
.. FILE NOT FOUND
":.284......158......"..NAME........."
;N$(A).I....N$(A)......".CUSTOMER NO..";
CN$(A)......CN$(A)......".ADDRESS......"
;AD$(A)......AD$(A).8....".TOWN & STATE.
";TS$(A).D....TS$(A).`....".ZIP.........
.";Z$(A).K....Z$(A)......".ZONE.........
";ZO$(A)......ZO$(A)......".PHONE NO....
.";PH$(A)......PH$(A).H....N$(A).T....CN
$(A)......AD$(A)......TS$(A)......ZO$(A)
......Z$(A)......PH$(A).=...." .
IS THIS NAME CORRECT Y/N";NN$.N....NN$."
Y".194._....NN$."N".157.H.A..190.P.B..82
...C..".ENTER NAME OR CUSTOMER NO.";A$..
.D.B$.H(A$,1):.A$."END"..".":.24.R.E..1,
8,3,"0:".B$.",S,R".. F..1,N$(V),CN$(V),A
D$(V),TS$(V),ZO$(V),Z$(V),PH$(V),A(V).1
G..A$.CN$(V).A$.N$(V).A.V: 1:.205.; H.."
."V.O I..ST.0.V.V.1:.97.V J. 1.. K..".
FILE NOT FOUND ".
. L..91.. M..".".. N.."NAME........";N$(
A).M O.."CUSTOMER NO.";CN$(A).. P.."ADDR
ESS.....";AD$(A)..!Q.."TOWN & STATE";TS$
(A)..!R.."ZIP.........";Z$(A).8!S.."ZONE
........";ZO$(A).S!T.."PHONE NO....";PH$
(A).P!U.."OK-Y/N";Q$:.Q$."Y".216..!V..Q$
."N".195..!W..213..!X..4,.35);N$(A);R$;.
35);AD$(A);R$;.35);TS$(A).P!Y.. ADD NAME
TO LIST.."Z.."... ADD NAM
ES ": 1: 15.."..."...":.1
9,67.W"..."ENTER NAME........ >";N$(0):.
:.19,67:.N$(0)."END".23.."..."ENTER CUST
OMER NO. >";CN$(0):.:.249.."...VU.0..218
.."...19,67.G"..."ENTER ADDRESS..... >";
AD$(0):.:.19,67.."..."ENTER TOWN & STATE
>";TS$(0):.:.19,67..#..."ENTER ZIP.....
.... >";Z$(0):.:.19,67.J#..."ENTER ZONE.
....... >";ZO$(0):.:.19,67.X#..."ENTER P
HONE NO.... >";PH$(0):.:.:.19,67..#..Q$.
"":."CORRECT-(Y/N/A) A)ABORT >";Q$:.:.1
9,0..#...Q$."Y".234.L#...Q$."N"..217..#.
..Q$."A".23..#...229..#...15,8,15,"I0":
15..$...1,8,4,"@0:".H(CN$(0),1).",S,A".>
$...15,8,15:.15,NN,BB$,CC$,DD$.Q$...NN.6
2.."..NOT CREATED": 1: 15:.T.0.2000:.:.2
3..$..."... APPENDING NAME TO F
ILE "..$...".".D$...1,N$(0);R$;CN
$(0)..$...1,AD$(0);R$;TS$(0)..$...1,ZO$(
0);R$;Z$(0)..%...1,PH$(0);R$;A(0)..%.. 1
: 15.G%..."... FILE APPENDED
".R%..."... HIT <RE
TURN> TO CONTINUE"..%...A$:.A$..G(13).24
7..%...217..%... VALIDATE USER BEFORE AD
D!!..%..."...VALIDATING NAME>.-";:B$.H(C
N$(0),1)..%...1,8,3,"0:".B$.",S,R".1&...
1,V$(0),V$(1),V$(2),V$(3),V$(4),V$(5),V$
(6),V$(7).G&...V$(0).N$(0)..264.^&...V$(
1).CN$(0)..264.U&...ST.0.."..-";:.252..&
...:."..................................
........".Y&..."........................
................"..'..."... CONTIN
UE ENTERING ACCOUNT..".''..."NAME.......
.......>";N$(0).I'..."CUSTOMER NUMBER...
>";CN$(0).T'..."...".H'..VU.1:.G(142): 1
.N'.....'...".?_....... ACCOUNT EXISTS".
'...XT.1.5000:...'..VU.0:.G(142): 1..'.
...L'...15,8,15:."."..'...15,NN$,BB$,CC$
,DD$..(..." .DISK STATUS IS THE FOLL
OWING".M(...,NN$:.,BB$:.,CC$:.,DD$:.:."
.STATUS OF DISK";ST.S(.....(..
.NN$."00".FT.0. 15: 1:.1,8,3,"0:".B$.",S
,R":...(...NN$."00".FT.1. 15: 1:.1,8,4,"
@0:".B$.",S,W":FT.0:..E(.. 15..(..."
.CHECK DISK DRIVE0":.284..)...:.:
.:.:." .TRY AGAIN [Y/N]";NN$.<
)...NN$."Y"..".": 1:.281:.:..K)...NN$."N
"...T)...277.N)...T.54272.54296:.T,0:...
)...54278,10:.54277,128:.54276,17:.54296
,15.L)...54273,45:.T.1.100:.:.T.54272.54
296:.T,0:.:...)...T.54272.54296:.T,0:...
)...54285,8..*...54284,160..*...54283,33
..* ..54296,15.8*!..54280,15:.T.1.1000:.
.]*"..54296,0:.T.54272.54296:.T,0:.:..O*
#.. PRINT FILES..*$.."...
PRINT MENU ":Q$."....."..*
%.A$. ". 1) ..PRINT ALL NAMES A-Z-ALL
INFO. ":.40..+&.A$. " 2) ..PRINT ONE
FILE A-Z-ALL INFO. ":.40.P+'.A$. "
3) ..PRINT NAMES & PHONE NUMBER ":.40
..+(.A$. " 4) ..PRINT NAMES & CUSTOME
R NUMBER ":.40..+).A$. " 5) ..PRINT N
AMES ,CUST #, & PHONE #":.40..+*.A$. "
6) .. EXIT TO MAIN MENU .":
.40..,+..:."....":.19,67:.">";V..,,..V.6
.23.6,-..V.303,113,309,399,452.?,...291.
.,/..".";:Q$."":A$.".. PRI
NT ALL INFO ":.40.I,0.Q$.Q$.".
.":A$.". PRESS <RETURN> TO CONTIN
UE":.40:Q$.Q$."."..,1.A$." OR <SPA
CE> TO ABORT":.40..-2..A$:.A$.G(32).291.
.-3..A$..G(13).306.F-4. 1:.Q.65.90:.4,4:
B$.G(Q):.115:.: 4:.313.Y-5.."...
PRINT NAMES & PHONE NUMBER "..-6.."
..."..-7.. " PRESS <RETURN> TO CO
NTINUE".O-8..".. SPACE TO ABORT".
.-9..A$:.A$.G(13).316..-:..A$.G(32)....-
;..313...<..4,4:.2,4,2:.3,4,1.`.=..4,"..
........................................
......................."...>..4,".
NAME P
HONE ....?..4,".............
........................................
............"../@..4,G(13).L/A.A$." AAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAA".V/B..2,A$.K/C..Q.65
.90:B$.G(Q)../D..4,"....................
................."B$;.N/E..4,"..........
.............................".W/F..332.
./G..329../H..: 1: 2: 3: 4:.../I..T.0.R.
.0J..3,N$(T);G(29);PH$(T).!0K..:..<0L..
LOAD NAMES FOR PRINT.Z0M..1,8,3,"0:".B$.
",S,R":R.0..0N..1,N$(R),CN$(R),AD$(R),TS
$(R),ZO$(R),Z$(R),PH$(R),A(R)..0O..ST.0.
R.R.1:.334..0P. 1:...0Q.."."..0R.."..
SELECTION SORT OF FILES "..
1S.."... THIS PROSSESS WILL TAKE"
.A1T..". AWHILE SO PRESS SPACE TO
".H1U..". ABORT OR <RETURN> TO "
..1V..". CONTINUE."..1W..:...1X.X
.B(197)..1Y..X.1.349..1Z..X.60..23..1[..
344.P1\.. SELECTION SORT..1]..198,0..1^.
.VV.65.90..1_.B$.G(VV)..2`.R.1:.1,8,3,"0
:".B$.",S,R".O2A..1,N$(R),CN$(R),AD$(R),
TS$(R),ZO$(R),Z$(R),PH$(R),A(R).D2B..ST.
0.R.R.1:.353.P2C. 1:."."..2D..T.1.R:.N$(
T),PH$(T):...2E..I.0.R.1..2F.K1.1..2G..J
.1.R.I.E2H..N$(J).N$(K1).K1.J.L2I..J..2J
.A$(1).N$(K1)..2K.A$(2).CN$(K1)..3L.A$(3
).AD$(K1)..3M.A$(4).TS$(K1).%3N.A$(5).ZO
$(K1).63O.A$(6).Z$(K1).H3P.A$(7).PH$(K1)
.H3Q.. *************** STAGE TWO.{3R.N$(
K1).N$(R.I)..3S.CN$(K1).CN$(R.I)..3T.AD$
(K1).AD$(R.I)..3U.TS$(K1).TS$(R.I).O3V.Z
O$(K1).ZO$(R.I)..3W.Z$(K1).Z$(R.I)..3X.P
H$(K1).PH$(R.I)..4Y..****************..4
Z.N$(R.I).A$(1).24{.CN$(R.I).A$(2).E4|.A
D$(R.I).A$(3).X4}.TS$(R.I).A$(4).K4~.ZO$
(R.I).A$(5).}4.Z$(R.I).A$(6)..4..PH$(R.
I).A$(7)..4...I. 4..."."..4...T.1.R:.N$(
T),PH$(T):..V4...1,8,4,"@0:".B$.",S,W"..
4...T.1.R..4...1,N$(T)..4...1,CN$(T)..5.
..1,AD$(T)..5...1,TS$(T).&5...1,ZO$(T).3
5...1,Z$(T).A5...1,PH$(T).M5...1,A(T).\5
...: 1:.:.23..5... PRINT NAMES AND CUSTO
MER NUMBERS..5..."... PRINT NAMES AN
D CUSTOMER NUMBER "..5...".....
TO CONTINUE HIT <F1> "..6...".
<SPACE> TO ABORT"..6..X.B(197).
$6...X.4.407.06...X.60...96...403.B6...4
,4..6...4,"................NAMES........
.............CUSTOMER NUMBER.......";..6
...4,".............":.4..6.. 4.C6...T.65
.90:B$.G(T).L6...332.U6...415..6...:...6
...4,4:.2,4,2:.3,4,1.(7 ..4,"...........
...........................";B$;.X7...4,
"......................................"
..7..M$." AAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAA AAAAAAAAAAAAAAAAAA".
.7...2,M$..7...Q.0.R.V7...3,N$(Q);G(29);
CN$(Q)..7...: 4: 2: 3:...7... PRINT ENVE
LOPES.A8..Q$."":."..";:A$.".
PRINT ENVELOPES ":.40..8..Q$
.Q$."....":A$." TYPE NAME OR CUSTOMER N
UMBER '[END] . ":.40..8...19,67:.">";A$.
.8...A$."END".23..8..B$.H(A$,1).Q8...1,8
,4,"0:".B$.",S,R"..9...1,A$(1),A$(2),A$(
3),A$(4),A$(5),A$(6),A$(7),A(0).&9...A$(
1).A$.A$(2).A$. 1:.434.49...ST.0.430.A9.
.."ACCOUNT NOT FOUND":.T.0.3000:.: 1:.42
4..9..."..CUSTOMER NUMBER...>";A$(1)..9.
.."NAME..............>";A$(2).F9..."ADRE
SS............>";A$(3)..9..."TOWN AND ST
ATE....>";A$(4)..:..."ZIP...............
>";A$(5).):..."ZONE..............>";A$(6
).J:..."PHONE NUMBER......>";A$(7).W:...
"..":."PRINT IT... Y/N";:.19,67:.">";A$.
.:...A$."N".424..:...A$."Y".445. :...434
..:...4,4..:...10,4,10:.10: 10.P:...4,.4
5);A$(1)..:...4,.45);A$(3)..:A..4,.45);A
$(4)..;B..4,.55);A$(6).(;C. 4: 1:.6,4,6:
.6,G(21): 6:.424.M;D.. PRINT NAMES & CUS
TOMER & PHONE..;E.."... NAME ........
CUSTOMER .... PHONE "..;F.Q$.".....":
A$." .TYPE <RETURN> TO CONTINUE":
.40..;G.A$." .. OR HIT <SPACE> TO
ABORT ..":.40..<H..A$:.A$.G(32)....<I..
A$.G(13).459..<J..456.Q<K.A$." *** P
RINTING WILL TAKE AWHILE ***":.40.H<L..4
,4:.2,4,2:.3,4,1..<M..4,".........NAME..
......................CUSTOMER NUMBER...
...";.K<N..4,".......PHONE........".U<O.
.4:.4.%=P.A$."AAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAA AAAAAAAAAAAAAA AAAAA
AAAA".@=Q.A$.A$."AAAAAAAAAAAAAA".J=R..2,
A$._=S..T.65.90:B$.G(T)..=T..4,"........
..............................";B$;.E=U.
.4,"....................................
....".N=V..332.W=W..474..=X..: 4: 2: 3:Q
$.Q$."..".+>Y.A$." .PRINTING D
ONE!!!!!":.40:.T.0.2000:.:..6>Z..Q.0.R._
>...3,N$(Q);G(29);CN$(Q);G(29);PH$(Q):..
E>......
> CLICK IMAGE PREVIEW FOR FULL MODAL