NAME AND ADDRESS
FILE INFORMATION
FILENAME(S): NAME AND ADDRESS
FILE TYPE(S): PRG
FILE SIZE: 9.5K
FIRST SEEN: 2025-11-30 21:11:03
APPEARS ON: 1 disk(s)
FILE HASH
f0fef1f6da59aa8393c4171bdf233d193914f9b6cd7ee608761fd9b30edb5604
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| PUBLIC DOMAIN | NAME AND ADDRESS | PRG | DuncanTwain | 27 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 23 08 00 00 8F 20 53 41 56 45 22 40 30 3A |..#.... SAVE"@0:|
00000010: 4E 41 4D 45 20 41 4E 44 20 41 44 44 52 45 53 53 |NAME AND ADDRESS|
00000020: 22 2C 38 00 6F 08 01 00 83 2F 2E 2E 2E 2E 2E 2E |",8.o..../......|
00000030: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
00000040: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
00000050: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
00000060: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 00 |................|
00000070: BB 08 02 00 83 2F 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |...../..........|
00000080: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
00000090: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
000000A0: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
000000B0: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 00 07 09 03 00 |................|
000000C0: 83 2F 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |./..............|
000000D0: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
000000E0: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
000000F0: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
00000100: 2E 2E 2E 2E 2E 2E 2E 00 53 09 04 00 83 2F 2E 2E |........S..../..|
00000110: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
00000120: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
00000130: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
00000140: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
00000150: 2E 2E 2E 00 9F 09 05 00 83 2F 2E 2E 2E 2E 2E 2E |........./......|
00000160: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
00000170: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
00000180: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
00000190: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 00 |................|
000001A0: EB 09 06 00 83 2F 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |...../..........|
000001B0: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
000001C0: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
000001D0: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
000001E0: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 00 37 0A 07 00 |............7...|
000001F0: 83 2F 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |./..............|
00000200: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
00000210: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
00000220: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
00000230: 2E 2E 2E 2E 2E 2E 2E 00 83 0A 08 00 83 2F 2E 2E |............./..|
00000240: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
00000250: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
00000260: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
00000270: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
00000280: 2E 2E 2E 00 CF 0A 09 00 83 2F 2E 2E 2E 2E 2E 2E |........./......|
00000290: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
000002A0: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
000002B0: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
000002C0: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 00 |................|
000002D0: 1B 0B 0A 00 83 2F 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |...../..........|
000002E0: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
000002F0: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
00000300: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
00000310: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 00 67 0B 0B 00 |............g...|
00000320: 83 2F 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |./..............|
00000330: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
00000340: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
00000350: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
00000360: 2E 2E 2E 2E 2E 2E 2E 00 B3 0B 0C 00 83 2F 2E 2E |............./..|
00000370: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
00000380: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
00000390: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
000003A0: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
000003B0: 2E 2E 2E 00 FF 0B 0D 00 83 2F 2E 2E 2E 2E 2E 2E |........./......|
000003C0: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
000003D0: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
000003E0: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
000003F0: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 00 |................|
00000400: 4B 0C 0E 00 83 2F 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |K..../..........|
00000410: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
00000420: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
00000430: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
00000440: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 00 97 0C 0F 00 |................|
00000450: 83 2F 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |./..............|
00000460: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
00000470: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
00000480: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
00000490: 2E 2E 2E 2E 2E 2E 2E 00 E3 0C 10 00 83 2F 2E 2E |............./..|
000004A0: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
000004B0: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
000004C0: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
000004D0: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
000004E0: 2E 2E 2E 00 2F 0D 11 00 83 2F 2E 2E 2E 2E 2E 2E |..../..../......|
000004F0: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
00000500: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
00000510: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
00000520: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 00 |................|
00000530: 7B 0D 12 00 83 2F 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |{..../..........|
00000540: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
00000550: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
00000560: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
00000570: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 00 C7 0D 13 00 |................|
00000580: 83 2F 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |./..............|
00000590: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
000005A0: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
000005B0: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
000005C0: 2E 2E 2E 2E 2E 2E 2E 00 13 0E 14 00 83 2F 2E 2E |............./..|
000005D0: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
000005E0: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
000005F0: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
00000600: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
00000610: 2E 2E 2E 00 5F 0E 15 00 83 2F 2E 2E 2E 2E 2E 2E |...._..../......|
00000620: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
00000630: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
00000640: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
00000650: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 00 |................|
00000660: AB 0E 16 00 83 2F 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |...../..........|
00000670: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
00000680: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
00000690: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
000006A0: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 00 F7 0E 17 00 |................|
000006B0: 83 2F 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |./..............|
000006C0: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
000006D0: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
000006E0: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
000006F0: 2E 2E 2E 2E 2E 2E 2E 00 43 0F 18 00 83 2F 2E 2E |........C..../..|
00000700: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
00000710: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
00000720: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
00000730: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
00000740: 2E 2E 2E 00 8F 0F 19 00 83 2F 2E 2E 2E 2E 2E 2E |........./......|
00000750: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
00000760: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
00000770: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
00000780: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 00 |................|
00000790: DB 0F 1A 00 83 2F 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |...../..........|
000007A0: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
000007B0: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
000007C0: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
000007D0: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 00 27 10 1B 00 |............'...|
000007E0: 83 2F 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |./..............|
000007F0: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
00000800: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
00000810: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
00000820: 2E 2E 2E 2E 2E 2E 2E 00 73 10 1C 00 83 2F 2E 2E |........s..../..|
00000830: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
00000840: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
00000850: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
00000860: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
00000870: 2E 2E 2E 00 BF 10 1D 00 83 2F 2E 2E 2E 2E 2E 2E |........./......|
00000880: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
00000890: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
000008A0: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
000008B0: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 00 |................|
000008C0: 0B 11 1E 00 83 2F 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |...../..........|
000008D0: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
000008E0: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
000008F0: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
00000900: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 00 57 11 1F 00 |............W...|
00000910: 83 2F 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |./..............|
00000920: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
00000930: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
00000940: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
00000950: 2E 2E 2E 2E 2E 2E 2E 00 A3 11 20 00 83 2F 2E 2E |.......... ../..|
00000960: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
00000970: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
00000980: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
00000990: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
000009A0: 2E 2E 2E 00 EF 11 21 00 83 2F 2E 2E 2E 2E 2E 2E |......!../......|
000009B0: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
000009C0: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
000009D0: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
000009E0: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 00 |................|
000009F0: 3B 12 22 00 83 2F 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |;."../..........|
00000A00: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
00000A10: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
00000A20: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
00000A30: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 00 87 12 23 00 |..............#.|
00000A40: 83 2F 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |./..............|
00000A50: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
00000A60: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
00000A70: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
00000A80: 2E 2E 2E 2E 2E 2E 2E 00 D3 12 24 00 83 2F 2E 2E |..........$../..|
00000A90: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
00000AA0: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
00000AB0: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
00000AC0: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
00000AD0: 2E 2E 2E 00 1F 13 25 00 83 2F 2E 2E 2E 2E 2E 2E |......%../......|
00000AE0: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
00000AF0: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
00000B00: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
00000B10: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 00 |................|
00000B20: 6B 13 26 00 83 2F 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |k.&../..........|
00000B30: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
00000B40: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
00000B50: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
00000B60: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 00 B7 13 27 00 |..............'.|
00000B70: 83 2A 2A 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |.**.............|
00000B80: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
00000B90: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
00000BA0: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
00000BB0: 2E 2E 2E 2E 2E 2E 2E 00 D4 13 E8 03 8F 20 20 20 |............. |
00000BC0: 20 20 20 20 4E 41 4D 45 20 41 4E 44 20 41 44 44 | NAME AND ADD|
00000BD0: 52 45 53 53 00 DA 13 F2 03 8F 00 FA 13 FC 03 8F |RESS............|
00000BE0: 20 20 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | *************|
00000BF0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 00 14 06 04 3A |**********.....:|
00000C00: 00 17 14 10 04 8F 20 20 20 20 20 20 20 4D 41 52 |...... MAR|
00000C10: 43 48 20 31 2F 38 33 00 1D 14 1A 04 3A 00 40 14 |CH 1/83.....:.@.|
00000C20: 24 04 8F 20 20 20 20 20 46 49 4E 44 20 42 45 47 |$.. FIND BEG|
00000C30: 49 4E 49 4E 47 20 46 4F 52 20 50 4F 4B 49 4E 47 |INING FOR POKING|
00000C40: 00 63 14 2E 04 8F 20 20 20 20 20 22 22 22 22 22 |.c.... """""|
00000C50: 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 |""""""""""""""""|
00000C60: 22 22 22 00 69 14 38 04 3A 00 78 14 4C 04 50 4B |""".i.8.:.x.L.PK|
00000C70: B2 32 30 34 38 AA 34 30 00 93 14 4D 04 99 22 1E |.2048.40...M..".|
00000C80: 22 3A 97 35 33 32 38 30 2C 30 3A 97 35 33 32 38 |":.53280,0:.5328|
00000C90: 31 2C 30 00 99 14 D0 07 3A 00 AB 14 DA 07 8F 20 |1,0.....:...... |
00000CA0: 20 20 20 20 20 20 20 4D 45 4E 55 00 B1 14 E4 07 | MENU.....|
00000CB0: 3A 00 DA 14 E9 07 99 22 93 11 11 22 A3 37 29 22 |:......"...".7)"|
00000CC0: 2A 20 4E 41 4D 45 20 41 4E 44 20 41 44 44 52 45 |* NAME AND ADDRE|
00000CD0: 53 53 20 46 49 4C 45 20 2A 22 00 EE 14 EE 07 99 |SS FILE *"......|
00000CE0: 22 11 11 22 A3 31 35 29 22 4D 45 4E 55 22 00 FE |"..".15)"MENU"..|
00000CF0: 14 F8 07 99 A3 31 35 29 22 3D 3D 3D 3D 22 00 18 |.....15)"===="..|
00000D00: 15 02 08 99 A3 39 30 29 22 31 2E 20 4E 45 57 20 |.....90)"1. NEW |
00000D10: 45 4E 54 52 49 45 53 22 00 2E 15 0C 08 99 A3 35 |ENTRIES".......5|
00000D20: 30 29 22 32 2E 20 4C 49 53 54 49 4E 47 22 00 43 |0)"2. LISTING".C|
00000D30: 15 16 08 99 A3 35 30 29 22 33 2E 20 44 45 4C 45 |.....50)"3. DELE|
00000D40: 54 45 22 00 56 15 20 08 99 A3 35 30 29 22 34 2E |TE".V. ...50)"4.|
00000D50: 20 53 43 41 4E 22 00 69 15 2A 08 99 A3 35 30 29 | SCAN".i.*...50)|
00000D60: 22 35 2E 20 53 41 56 45 22 00 85 15 34 08 99 A3 |"5. SAVE"...4...|
00000D70: 35 30 29 22 36 2E 20 4D 4F 44 49 46 49 43 41 54 |50)"6. MODIFICAT|
00000D80: 49 4F 4E 53 22 00 8B 15 C4 09 3A 00 A2 15 CE 09 |IONS".....:.....|
00000D90: 8F 20 20 20 20 20 20 44 45 53 54 49 4E 41 54 49 |. DESTINATI|
00000DA0: 4F 4E 00 B9 15 D8 09 8F 20 20 20 20 20 20 2A 2A |ON...... **|
00000DB0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 BF 15 E2 09 3A 00 |*********.....:.|
00000DC0: CA 15 F6 09 8D 20 33 30 30 30 00 E7 15 28 0A 99 |..... 3000...(..|
00000DD0: A3 39 30 29 22 45 4E 54 45 52 20 41 4E 20 4F 50 |.90)"ENTER AN OP|
00000DE0: 54 49 4F 4E 20 3F 22 00 FB 15 32 0A A1 41 24 3A |TION ?"...2..A$:|
00000DF0: 8B 41 24 B2 22 22 A7 32 36 31 30 00 07 16 8C 0A |.A$."".2610.....|
00000E00: 41 B2 C5 28 41 24 29 00 2D 16 F0 0A 91 41 8D 38 |A..(A$).-....A.8|
00000E10: 30 30 30 2C 34 30 30 30 2C 35 30 30 30 2C 36 30 |000,4000,5000,60|
00000E20: 30 30 2C 37 30 30 30 2C 31 30 30 30 30 00 40 16 |00,7000,10000.@.|
00000E30: 22 0B 51 50 B2 31 36 3A 20 20 20 8D 38 38 30 30 |".QP.16: .8800|
00000E40: 00 4A 16 54 0B 89 32 30 30 30 00 50 16 B8 0B 3A |.J.T..2000.P...:|
00000E50: 00 68 16 C2 0B 8F 20 20 20 20 20 20 4E 45 57 20 |.h.... NEW |
00000E60: 20 45 4E 54 52 49 45 53 00 80 16 CC 0B 8F 20 20 | ENTRIES...... |
00000E70: 20 20 20 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D | ------------|
00000E80: 00 86 16 D6 0B 3A 00 BC 16 F4 0B 41 24 28 31 29 |.....:.....A$(1)|
00000E90: B2 22 9E 4C 41 53 54 20 4E 41 4D 45 3A 98 20 20 |.".LAST NAME:. |
00000EA0: 20 3C 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | < |
00000EB0: 3E 20 20 20 20 20 20 20 20 20 1E 22 00 EE 16 F9 |> ."....|
00000EC0: 0B 41 24 28 32 29 B2 22 9E 46 49 52 53 54 20 4E |.A$(2).".FIRST N|
00000ED0: 41 4D 45 3A 98 20 20 3C 20 20 20 20 20 20 20 20 |AME:. < |
00000EE0: 3E 20 20 20 20 20 20 20 20 20 20 20 1E 22 00 24 |> .".$|
00000EF0: 17 FE 0B 41 24 28 33 29 B2 22 9E 41 44 44 52 45 |...A$(3).".ADDRE|
00000F00: 53 53 3A 98 20 20 20 20 20 3C 20 20 20 20 20 20 |SS:. < |
00000F10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3E 20 | > |
00000F20: 20 20 1E 22 00 5A 17 03 0C 41 24 28 35 29 B2 22 | .".Z...A$(5)."|
00000F30: 9E 50 48 4F 4E 45 20 23 3A 98 20 20 20 20 20 3C |.PHONE #:. <|
00000F40: 20 20 20 2D 20 20 20 20 3E 20 20 20 20 20 20 20 | - > |
00000F50: 20 20 20 20 20 20 20 20 1E 22 00 91 17 05 0C 41 | .".....A|
00000F60: 24 28 34 29 B2 22 9E 43 49 54 59 3A 98 20 20 20 |$(4).".CITY:. |
00000F70: 20 20 20 20 20 3C 20 20 20 20 20 20 20 20 20 20 | < |
00000F80: 20 20 20 20 20 20 20 20 20 20 3E 20 20 20 20 1E | > .|
00000F90: 22 00 97 17 12 0C 8E 00 9D 17 A0 0F 3A 00 A3 17 |"...........:...|
00000FA0: A5 0F 8C 00 BD 17 AA 0F 8F 20 20 20 20 20 20 4C |......... L|
00000FB0: 49 53 54 20 41 4C 4C 20 4E 41 4D 45 53 00 D7 17 |IST ALL NAMES...|
00000FC0: B4 0F 8F 20 20 20 20 20 20 2A 2A 2A 2A 2A 2A 2A |... *******|
00000FD0: 2A 2A 2A 2A 2A 2A 2A 00 DD 17 BE 0F 3A 00 24 18 |*******.....:.$.|
00000FE0: C8 0F 8F 20 4C 45 4E 47 54 48 53 20 4C 53 3D 4C |... LENGTHS LS=L|
00000FF0: 41 53 54 20 4E 41 4D 45 20 2C 46 49 3D 46 49 52 |AST NAME ,FI=FIR|
00001000: 53 54 2C 20 41 53 3D 41 44 44 52 45 53 53 20 2C |ST, AS=ADDRESS ,|
00001010: 20 50 43 3D 43 49 54 59 20 2C 50 4E 3D 50 48 4F | PC=CITY ,PN=PHO|
00001020: 4E 45 20 23 00 3E 18 D2 0F 4C 53 B2 31 34 3A 46 |NE #.>...LS.14:F|
00001030: 49 B2 38 3A 41 53 B2 32 30 3A 50 48 B2 38 00 47 |I.8:AS.20:PH.8.G|
00001040: 18 D7 0F 99 22 93 22 00 61 18 DC 0F 99 A3 31 34 |....".".a.....14|
00001050: 29 22 11 9A 2A 2A 4C 49 53 54 49 4E 47 2A 2A 1E |)"..**LISTING**.|
00001060: 22 00 6A 18 04 10 87 4E 41 24 00 A2 18 36 10 8B |".j....NA$...6..|
00001070: C8 28 4E 41 24 2C 32 29 B2 22 2F 2E 22 A7 99 20 |.(NA$,2)."/.".. |
00001080: 22 93 11 11 2A 45 4E 44 20 4F 46 20 4E 41 4D 45 |"...*END OF NAME|
00001090: 53 2A 22 3A 8C 3A 4C 53 24 B2 22 22 3A 89 34 34 |S*":.:LS$."":.44|
000010A0: 30 30 00 B9 18 40 10 8B C8 28 4E 41 24 2C 31 29 |00...@...(NA$,1)|
000010B0: B2 22 2F 22 A7 34 31 30 30 00 F9 18 68 10 4C 53 |."/".4100...h.LS|
000010C0: 24 B2 C8 28 4E 41 24 2C 31 34 29 3A 46 49 24 B2 |$..(NA$,14):FI$.|
000010D0: CA 28 4E 41 24 2C 31 35 2C 38 29 3A 41 53 24 B2 |.(NA$,15,8):AS$.|
000010E0: CA 28 4E 41 24 2C 32 33 2C 32 30 29 3A 50 48 24 |.(NA$,23,20):PH$|
000010F0: B2 C9 28 4E 41 24 2C 38 29 00 0E 19 9A 10 43 49 |..(NA$,8).....CI|
00001100: 24 B2 CA 28 4E 41 24 2C 34 33 2C 32 30 29 00 2B |$..(NA$,43,20).+|
00001110: 19 CC 10 99 46 49 24 3A 99 4C 53 24 3A 99 41 53 |....FI$:.LS$:.AS|
00001120: 24 3A 99 43 49 24 3A 99 50 48 24 00 66 19 30 11 |$:.CI$:.PH$.f.0.|
00001130: 99 22 13 11 11 11 11 11 11 11 11 11 11 11 11 11 |."..............|
00001140: 11 11 20 20 20 20 20 20 50 52 45 53 53 20 12 52 |.. PRESS .R|
00001150: 45 54 55 52 4E 92 20 46 4F 52 20 4D 4F 52 45 20 |ETURN. FOR MORE |
00001160: 4E 41 4D 45 53 22 00 85 19 62 11 99 2C 22 11 20 |NAMES"...b..,". |
00001170: 20 20 20 20 12 46 37 92 20 54 4F 20 4D 45 4E 55 | .F7. TO MENU|
00001180: 13 11 11 20 22 00 99 19 94 11 A1 41 24 3A 8B 41 |... "......A$:.A|
00001190: 24 B2 22 22 A7 34 35 30 30 00 AC 19 C6 11 8B 41 |$."".4500......A|
000011A0: 24 B2 C7 28 31 33 29 A7 34 31 30 30 00 BE 19 F8 |$..(13).4100....|
000011B0: 11 8E 20 3A 20 20 20 8F 20 20 4D 45 4E 55 00 C4 |.. : . MENU..|
000011C0: 19 88 13 3A 00 E4 19 92 13 8F 20 20 20 20 20 20 |...:...... |
000011D0: 44 45 4C 45 54 45 20 55 4E 57 41 4E 54 45 44 20 |DELETE UNWANTED |
000011E0: 4E 41 4D 45 00 04 1A 9C 13 8F 20 20 20 20 20 20 |NAME...... |
000011F0: 27 27 27 27 27 27 27 27 27 27 27 27 27 27 27 27 |''''''''''''''''|
00001200: 27 27 27 27 00 10 1A A1 13 A0 31 3A 9F 31 2C 30 |''''......1:.1,0|
00001210: 00 16 1A A6 13 3A 00 33 1A AB 13 8C 3A 8F 20 20 |.....:.3....:. |
00001220: 20 52 45 41 44 20 46 52 4F 4D 20 42 45 47 49 4E | READ FROM BEGIN|
00001230: 49 4E 47 00 53 1A B0 13 99 22 93 22 A3 31 33 29 |ING.S....".".13)|
00001240: 22 9A 2A 2A 44 45 4C 45 54 45 20 4E 41 4D 45 2A |".**DELETE NAME*|
00001250: 2A 1E 22 00 5D 1A BA 13 99 A3 38 30 29 00 81 1A |*.".].....80)...|
00001260: C4 13 99 22 54 59 50 45 20 49 4E 20 12 53 55 52 |..."TYPE IN .SUR|
00001270: 4E 41 4D 45 92 20 22 3B 3A 84 31 2C 55 4E 24 3A |NAME. ";:.1,UN$:|
00001280: 99 00 89 1A C9 13 49 B2 30 00 92 1A CE 13 87 4E |......I.0......N|
00001290: 41 24 00 9C 1A CF 13 49 B2 49 AA 31 00 D6 1A D3 |A$.....I.I.1....|
000012A0: 13 8B C8 28 4E 41 24 2C 32 29 B2 22 2A 2A 22 A7 |...(NA$,2)."**".|
000012B0: 99 20 22 11 11 11 11 11 11 11 2A 45 4E 44 20 4F |. ".......*END O|
000012C0: 46 20 4E 41 4D 45 53 2A 22 3A 4C 53 24 B2 22 22 |F NAMES*":LS$.""|
000012D0: 3A 89 35 34 35 30 00 F3 1A D8 13 8B 55 4E 24 B3 |:.5450......UN$.|
000012E0: B1 C8 28 4E 41 24 2C C3 28 55 4E 24 29 29 A7 35 |..(NA$,.(UN$)).5|
000012F0: 30 37 30 00 F9 1A EC 13 99 00 39 1B 50 14 4C 53 |070.......9.P.LS|
00001300: 24 B2 C8 28 4E 41 24 2C 31 34 29 3A 46 49 24 B2 |$..(NA$,14):FI$.|
00001310: CA 28 4E 41 24 2C 31 35 2C 38 29 3A 41 53 24 B2 |.(NA$,15,8):AS$.|
00001320: CA 28 4E 41 24 2C 32 33 2C 32 30 29 3A 50 48 24 |.(NA$,23,20):PH$|
00001330: B2 C9 28 4E 41 24 2C 38 29 00 4E 1B 82 14 43 49 |..(NA$,8).N...CI|
00001340: 24 B2 CA 28 4E 41 24 2C 34 33 2C 32 30 29 00 6B |$..(NA$,43,20).k|
00001350: 1B B4 14 99 46 49 24 3A 99 4C 53 24 3A 99 41 53 |....FI$:.LS$:.AS|
00001360: 24 3A 99 43 49 24 3A 99 50 48 24 00 9D 1B BE 14 |$:.CI$:.PH$.....|
00001370: 99 A3 31 36 33 29 22 2A 43 41 55 54 49 4F 4E 2A |..163)"*CAUTION*|
00001380: 20 50 52 45 53 53 20 12 46 31 92 20 54 4F 20 12 | PRESS .F1. TO .|
00001390: 44 45 4C 45 54 45 92 20 4E 41 4D 45 22 00 C6 1B |DELETE. NAME"...|
000013A0: C8 14 99 A3 34 35 29 22 50 52 45 53 53 20 12 52 |....45)"PRESS .R|
000013B0: 45 54 55 52 4E 92 20 49 46 20 4E 4F 54 20 43 4F |ETURN. IF NOT CO|
000013C0: 52 52 45 43 54 22 00 E8 1B CD 14 A1 41 24 3A 8B |RRECT"......A$:.|
000013D0: 41 24 B2 C7 28 31 33 29 A7 99 22 13 22 A3 31 36 |A$..(13)..".".16|
000013E0: 30 29 3A 89 35 30 37 30 00 FD 1B CE 14 8B 41 24 |0):.5070......A$|
000013F0: B3 B1 C7 28 31 33 33 29 A7 35 33 32 35 00 03 1C |...(133).5325...|
00001400: D2 14 3A 00 09 1C D7 14 3A 00 56 1C D8 14 8F 20 |..:.....:.V.... |
00001410: 20 20 20 20 20 20 20 50 4F 4B 45 20 22 2F 22 20 | POKE "/" |
00001420: 49 4E 54 4F 20 46 49 52 53 54 20 20 20 20 20 20 |INTO FIRST |
00001430: 20 20 20 20 20 20 20 20 50 4F 53 49 54 49 4F 4E | POSITION|
00001440: 20 20 49 4E 20 43 4F 52 52 45 43 54 20 44 41 54 | IN CORRECT DAT|
00001450: 41 20 4C 49 4E 45 00 5C 1C DC 14 3A 00 74 1C E1 |A LINE.\...:.t..|
00001460: 14 97 28 49 AB 31 29 AC 37 36 AA 50 4B 2C C6 28 |..(I.1).76.PK,.(|
00001470: 22 2F 22 29 00 7A 1C E2 14 3A 00 80 1C E3 14 3A |"/").z...:.....:|
00001480: 00 BB 1C 18 15 99 22 91 91 91 20 20 20 20 20 20 |......"... |
00001490: 20 20 20 4E 41 4D 45 20 48 41 53 20 42 45 45 4E | NAME HAS BEEN|
000014A0: 20 12 44 45 4C 45 54 45 44 92 20 21 20 20 20 20 | .DELETED. ! |
000014B0: 20 20 20 20 20 20 20 91 91 20 22 00 EB 1C 4A 15 | .. "...J.|
000014C0: 99 22 11 11 20 20 20 20 20 20 20 20 20 20 50 52 |.".. PR|
000014D0: 45 53 53 20 12 46 37 92 20 54 4F 20 43 4F 4E 54 |ESS .F7. TO CONT|
000014E0: 49 4E 55 45 20 20 20 20 20 20 22 00 18 1D 54 15 |INUE "...T.|
000014F0: 99 22 11 20 20 20 20 20 20 20 20 20 20 50 52 45 |.". PRE|
00001500: 53 53 20 12 52 45 54 55 52 4E 92 20 54 4F 20 4D |SS .RETURN. TO M|
00001510: 45 4E 55 20 20 20 20 22 00 2D 1D 7C 15 A1 41 24 |ENU ".-.|..A$|
00001520: 3A 8B 41 24 B2 C7 28 31 33 29 A7 20 8E 00 41 1D |:.A$..(13). ..A.|
00001530: 86 15 8B 41 24 B2 C7 28 31 33 36 29 A7 35 30 30 |...A$..(136).500|
00001540: 30 00 4C 1D E0 15 89 20 35 35 30 30 00 52 1D 70 |0.L.... 5500.R.p|
00001550: 17 3A 00 9E 1D 7A 17 8F 20 20 20 20 20 20 53 43 |.:...z.. SC|
00001560: 41 4E 20 46 4F 52 20 4E 41 4D 45 53 20 20 20 20 |AN FOR NAMES |
00001570: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001580: 41 42 49 4C 49 54 59 20 54 4F 20 55 53 45 20 41 |ABILITY TO USE A|
00001590: 42 52 49 56 49 41 54 49 4F 4E 20 27 2A 27 00 C3 |BRIVIATION '*'..|
000015A0: 1D 7F 17 8F 20 20 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |.... ==========|
000015B0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
000015C0: 3D 3D 3D 00 C9 1D 84 17 3A 00 D7 1D 89 17 8C 3A |===.....:......:|
000015D0: A0 31 3A 9F 31 2C 30 00 FA 1D 8B 17 99 22 93 11 |.1:.1,0......"..|
000015E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 9A | .|
000015F0: 2A 2A 53 43 41 4E 2A 2A 1E 22 00 1E 1E 8E 17 99 |**SCAN**."......|
00001600: A3 38 30 29 22 12 46 92 49 52 53 54 20 4F 52 20 |.80)".F.IRST OR |
00001610: 12 4C 92 41 53 54 20 4E 41 4D 45 20 3F 22 00 34 |.L.AST NAME ?".4|
00001620: 1E 98 17 A1 41 42 24 3A 8B 41 42 24 B2 22 22 A7 |....AB$:.AB$."".|
00001630: 36 30 34 30 00 4D 1E A2 17 8B 41 42 24 B2 22 46 |6040.M....AB$."F|
00001640: 22 A7 4D 49 B2 31 35 3A 89 36 30 39 30 00 60 1E |".MI.15:.6090.`.|
00001650: AC 17 8B 41 42 24 B3 B1 22 4C 22 A7 36 30 34 30 |...AB$.."L".6040|
00001660: 00 87 1E B6 17 4D 49 B2 31 3A 99 22 4C 41 53 54 |.....MI.1:."LAST|
00001670: 20 4E 41 4D 45 20 22 3B 3A 84 31 2C 41 42 24 3A | NAME ";:.1,AB$:|
00001680: 99 3A 89 36 31 30 30 00 8D 1E C0 17 3A 00 AA 1E |.:.6100.....:...|
00001690: CA 17 99 22 46 49 52 53 54 20 4E 41 4D 45 20 22 |..."FIRST NAME "|
000016A0: 3B 3A 84 31 2C 41 42 24 3A 99 00 C7 1E D4 17 8F |;:.1,AB$:.......|
000016B0: 20 20 20 20 20 20 20 4C 4F 4F 4B 20 46 4F 52 20 | LOOK FOR |
000016C0: 41 20 4D 41 54 43 48 00 E4 1E DE 17 8F 20 20 20 |A MATCH...... |
000016D0: 20 20 20 20 3C 3C 3C 3C 3C 3C 3C 3C 3E 3E 3E 3E | <<<<<<<<>>>>|
000016E0: 3E 3E 3E 3E 00 ED 1E FC 17 87 4E 41 24 00 1C 1F |>>>>......NA$...|
000016F0: 01 18 8B C8 28 4E 41 24 2C 31 29 B2 22 2A 22 A7 |....(NA$,1)."*".|
00001700: 99 22 11 20 20 2A 45 4E 44 20 4F 46 20 4E 41 4D |.". *END OF NAM|
00001710: 45 53 2A 22 3A 8C 3A 89 36 35 30 30 00 33 1F 02 |ES*":.:.6500.3..|
00001720: 18 8B C8 28 4E 41 24 2C 31 29 B2 22 2F 22 A7 36 |...(NA$,1)."/".6|
00001730: 31 34 30 00 4C 1F 06 18 4E 4E 24 B2 CA 28 4E 41 |140.L...NN$..(NA|
00001740: 24 2C 4D 49 2C C3 28 41 42 24 29 29 00 5F 1F 10 |$,MI,.(AB$))._..|
00001750: 18 8B 4E 4E 24 B3 B1 41 42 24 A7 36 31 34 30 00 |..NN$..AB$.6140.|
00001760: 9F 1F 1A 18 4C 53 24 B2 C8 28 4E 41 24 2C 31 34 |....LS$..(NA$,14|
00001770: 29 3A 46 49 24 B2 CA 28 4E 41 24 2C 31 35 2C 38 |):FI$..(NA$,15,8|
00001780: 29 3A 41 53 24 B2 CA 28 4E 41 24 2C 32 33 2C 32 |):AS$..(NA$,23,2|
00001790: 30 29 3A 50 48 24 B2 C9 28 4E 41 24 2C 38 29 00 |0):PH$..(NA$,8).|
000017A0: B4 1F 1F 18 43 49 24 B2 CA 28 4E 41 24 2C 34 33 |....CI$..(NA$,43|
000017B0: 2C 32 30 29 00 D3 1F 24 18 99 3A 99 46 49 24 3A |,20)...$..:.FI$:|
000017C0: 99 4C 53 24 3A 99 41 53 24 3A 99 43 49 24 3A 99 |.LS$:.AS$:.CI$:.|
000017D0: 50 48 24 00 D9 1F 38 18 3A 00 F6 1F 42 18 8F 20 |PH$...8.:...B.. |
000017E0: 20 20 41 52 45 20 54 48 45 52 45 20 41 4E 59 20 | ARE THERE ANY |
000017F0: 4D 4F 52 45 20 3F 00 13 20 4C 18 8F 20 20 20 3D |MORE ?.. L.. =|
00001800: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00001810: 3D 3D 3D 00 19 20 56 18 3A 00 23 20 6A 18 89 36 |===.. V.:.# j..6|
00001820: 31 34 30 00 46 20 64 19 99 A3 31 37 30 29 22 50 |140.F d...170)"P|
00001830: 52 45 53 53 20 12 52 45 54 55 52 4E 92 20 54 4F |RESS .RETURN. TO|
00001840: 20 4D 45 4E 55 22 00 68 20 96 19 99 A3 35 30 29 | MENU".h ....50)|
00001850: 22 50 52 45 53 53 20 12 46 37 92 20 54 4F 20 43 |"PRESS .F7. TO C|
00001860: 4F 4E 54 49 4E 55 45 22 00 7C 20 C8 19 A1 41 24 |ONTINUE".| ...A$|
00001870: 3A 8B 41 24 B2 22 22 A7 36 36 30 30 00 8D 20 D2 |:.A$."".6600.. .|
00001880: 19 8B 41 24 B2 C7 28 31 33 29 A7 20 8E 00 A1 20 |..A$..(13). ... |
00001890: DC 19 8B 41 24 B2 C7 28 31 33 36 29 A7 36 30 30 |...A$..(136).600|
000018A0: 30 00 AC 20 E6 19 89 20 36 36 30 30 00 B2 20 2C |0.. ... 6600.. ,|
000018B0: 1A 8E 00 B8 20 58 1B 3A 00 D3 20 62 1B 8F 20 20 |.... X.:.. b.. |
000018C0: 20 20 20 2A 2A 53 41 56 45 20 50 52 4F 47 52 41 | **SAVE PROGRA|
000018D0: 4D 2A 2A 00 EE 20 6C 1B 8F 20 20 20 20 20 3D 3D |M**.. l.. ==|
000018E0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 F4 |==============..|
000018F0: 20 76 1B 3A 00 FD 20 80 1B 99 22 93 22 00 1F 21 | v.:.. ..."."..!|
00001900: 85 1B 99 22 11 20 20 20 20 20 20 20 20 20 20 20 |...". |
00001910: 20 20 20 20 20 20 12 43 41 55 54 49 4F 4E 92 00 | .CAUTION..|
00001920: 45 21 86 1B 99 22 11 54 48 49 53 20 50 52 4F 47 |E!...".THIS PROG|
00001930: 52 41 4D 20 4D 55 53 54 20 42 45 20 54 48 45 20 |RAM MUST BE THE |
00001940: 12 4F 4E 4C 59 00 67 21 87 1B 99 22 50 52 4F 47 |.ONLY.g!..."PROG|
00001950: 52 41 4D 20 4F 4E 20 54 48 45 20 44 49 53 4B 2E |RAM ON THE DISK.|
00001960: 20 53 41 56 49 4E 47 00 88 21 88 1B 99 22 4E 41 | SAVING..!..."NA|
00001970: 4D 45 53 20 41 4E 44 20 41 44 44 52 45 53 53 45 |MES AND ADDRESSE|
00001980: 53 20 45 52 41 53 45 53 00 A9 21 89 1B 99 22 4F |S ERASES..!..."O|
00001990: 54 48 45 52 20 4D 41 54 45 52 49 41 4C 20 4F 4E |THER MATERIAL ON|
000019A0: 20 54 48 45 20 44 49 53 4B 00 D2 21 8A 1B 99 A3 | THE DISK..!....|
000019B0: 32 34 35 29 22 49 4E 53 45 52 54 20 44 49 53 4B |245)"INSERT DISK|
000019C0: 45 54 54 45 20 49 4E 54 4F 20 44 52 49 56 45 20 |ETTE INTO DRIVE |
000019D0: 30 22 00 EC 21 94 1B 99 A3 34 37 29 22 50 52 45 |0"..!....47)"PRE|
000019E0: 53 53 20 12 52 45 54 55 52 4E 92 22 00 04 22 9E |SS .RETURN."..".|
000019F0: 1B A1 41 24 3A 8B 41 24 B3 B1 C7 28 31 33 29 A7 |..A$:.A$...(13).|
00001A00: 37 30 37 30 00 20 22 A8 1B 99 A3 35 30 29 22 50 |7070. "....50)"P|
00001A10: 4C 45 41 53 45 20 20 57 41 49 54 20 2E 2E 2E 22 |LEASE WAIT ..."|
00001A20: 00 26 22 A9 1B 3A 00 43 22 AD 1B 94 22 40 30 3A |.&"..:.C"..."@0:|
00001A30: 4E 41 4D 45 20 41 4E 44 20 41 44 44 52 45 53 53 |NAME AND ADDRESS|
00001A40: 22 2C 38 00 49 22 AE 1B 3A 00 66 22 B2 1B 99 A3 |",8.I"..:.f"....|
00001A50: 35 30 29 22 56 45 52 49 46 59 49 4E 47 20 43 4F |50)"VERIFYING CO|
00001A60: 50 59 20 21 1F 22 00 6C 22 B3 1B 3A 00 86 22 B7 |PY !.".l"..:..".|
00001A70: 1B 95 22 4E 41 4D 45 20 41 4E 44 20 41 44 44 52 |.."NAME AND ADDR|
00001A80: 45 53 53 22 2C 38 00 8C 22 B8 1B 3A 00 9E 22 BC |ESS",8.."..:..".|
00001A90: 1B 99 A3 31 30 29 22 05 20 4F 4B 20 21 22 00 AE |...10)". OK !"..|
00001AA0: 22 20 1C 81 49 B2 31 A4 31 35 30 30 3A 82 00 B4 |" ..I.1.1500:...|
00001AB0: 22 84 1C 8E 00 BA 22 40 1F 3A 00 DD 22 4A 1F 8F |"....."@.:.."J..|
00001AC0: 20 20 20 20 20 20 49 4E 50 55 54 20 43 48 41 52 | INPUT CHAR|
00001AD0: 41 43 54 45 52 20 52 4F 55 54 49 4E 45 00 00 23 |ACTER ROUTINE..#|
00001AE0: 54 1F 8F 20 20 20 20 20 20 2B 2B 2B 2B 2B 2B 2B |T.. +++++++|
00001AF0: 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B |++++++++++++++++|
00001B00: 00 06 23 59 1F 3A 00 4C 23 5A 1F 8F 20 20 4C 4E |..#Y.:.L#Z.. LN|
00001B10: 24 3D 4C 41 53 54 20 4E 41 4D 45 20 2C 20 43 4E |$=LAST NAME , CN|
00001B20: 24 3D 46 49 52 53 54 20 4E 41 4D 45 20 20 20 20 |$=FIRST NAME |
00001B30: 20 20 20 41 44 24 3D 41 44 44 52 45 53 53 2C 20 | AD$=ADDRESS, |
00001B40: 20 50 4E 24 3D 50 48 4F 4E 45 20 23 00 52 23 5E | PN$=PHONE #.R#^|
00001B50: 1F 3A 00 5E 23 63 1F A0 31 3A 9F 31 2C 30 00 67 |.:.^#c..1:.1,0.g|
00001B60: 23 65 1F 99 22 93 22 00 8D 23 66 1F 48 44 24 B2 |#e.."."..#f.HD$.|
00001B70: 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 9A |" .|
00001B80: 2A 2A 45 4E 54 52 49 45 53 2A 2A 1E 22 00 B9 23 |**ENTRIES**."..#|
00001B90: 68 1F 99 22 13 22 3A 81 49 B2 31 A4 35 3A 99 A3 |h..".":.I.1.5:..|
00001BA0: 38 30 29 41 24 28 49 29 3A 82 3A 99 22 13 22 3A |80)A$(I):.:.".":|
00001BB0: 99 48 44 24 3A 99 22 13 22 00 C7 23 6D 1F 3A 20 |.HD$:."."..#m.: |
00001BC0: 20 8D 20 38 30 35 30 00 E6 23 6F 1F 89 20 38 30 | . 8050..#o.. 80|
00001BD0: 30 30 3A 20 8F 20 20 52 45 54 55 52 4E 20 54 4F |00: . RETURN TO|
00001BE0: 20 45 4E 54 45 52 00 F0 23 72 1F 99 A3 39 34 29 | ENTER..#r...94)|
00001BF0: 00 FB 23 86 1F 84 31 2C 4C 4E 24 00 34 24 90 1F |..#...1,LN$.4$..|
00001C00: 8B C3 28 4C 4E 24 29 B1 31 35 B0 4C 4E 24 B2 22 |..(LN$).15.LN$."|
00001C10: 3E 22 A7 99 22 13 22 A3 31 32 30 29 41 24 28 31 |>"..".".120)A$(1|
00001C20: 29 22 91 91 91 22 20 3A 8D 38 38 30 30 3A 20 89 |)"..." :.8800: .|
00001C30: 38 30 35 30 00 55 24 91 1F 8B C9 28 4C 4E 24 2C |8050.U$....(LN$,|
00001C40: 31 29 B3 B1 22 3E 22 A7 4C 4E 24 B2 22 3E 22 3A |1)..">".LN$.">":|
00001C50: 89 38 30 38 30 00 60 24 9A 1F 99 A3 31 33 34 29 |.8080.`$....134)|
00001C60: 00 6B 24 A4 1F 84 31 2C 43 4E 24 00 A4 24 AE 1F |.k$...1,CN$..$..|
00001C70: 8B C3 28 43 4E 24 29 B1 39 B0 43 4E 24 B2 22 3E |..(CN$).9.CN$.">|
00001C80: 22 A7 99 22 13 11 11 11 11 11 11 22 41 24 28 32 |".."......."A$(2|
00001C90: 29 22 91 91 91 91 22 3A 8D 38 38 30 30 3A 20 89 |)"....":.8800: .|
00001CA0: 38 30 39 30 00 C5 24 AF 1F 8B C9 28 43 4E 24 2C |8090..$....(CN$,|
00001CB0: 31 29 B3 B1 22 3E 22 A7 43 4E 24 B2 22 3E 22 3A |1)..">".CN$.">":|
00001CC0: 89 38 31 31 30 00 D0 24 B8 1F 99 A3 31 33 34 29 |.8110..$....134)|
00001CD0: 00 DB 24 C2 1F 84 31 2C 41 44 24 00 18 25 CC 1F |..$...1,AD$..%..|
00001CE0: 8B C3 28 41 44 24 29 B1 32 31 B0 41 44 24 B2 22 |..(AD$).21.AD$."|
00001CF0: 3E 22 A7 99 22 13 11 11 11 11 11 11 11 11 11 22 |>"..".........."|
00001D00: 41 24 28 33 29 22 91 91 91 91 22 3A 8D 38 38 30 |A$(3)"....":.880|
00001D10: 30 3A 20 89 38 31 32 30 00 39 25 CD 1F 8B C9 28 |0: .8120.9%....(|
00001D20: 41 44 24 2C 31 29 B3 B1 22 3E 22 A7 41 44 24 B2 |AD$,1)..">".AD$.|
00001D30: 22 3E 22 3A 89 38 31 34 30 00 44 25 D6 1F 99 A3 |">":.8140.D%....|
00001D40: 31 33 34 29 00 4F 25 E0 1F 84 31 2C 50 43 24 00 |134).O%...1,PC$.|
00001D50: 8E 25 EA 1F 8B C3 28 50 43 24 29 B1 32 31 B0 50 |.%....(PC$).21.P|
00001D60: 43 24 B2 22 3E 22 A7 99 22 13 11 11 11 11 11 11 |C$.">"..".......|
00001D70: 11 11 11 11 11 11 22 41 24 28 34 29 22 91 91 91 |......"A$(4)"...|
00001D80: 91 22 3A 8D 38 38 30 30 3A 89 38 31 35 30 00 AF |.":.8800:.8150..|
00001D90: 25 EB 1F 8B C9 28 50 43 24 2C 31 29 B3 B1 22 3E |%....(PC$,1)..">|
00001DA0: 22 A7 50 43 24 B2 22 3E 22 3A 89 38 31 37 30 00 |".PC$.">":.8170.|
00001DB0: BA 25 3A 20 99 A3 31 33 34 29 00 C5 25 44 20 84 |.%: ..134)..%D .|
00001DC0: 31 2C 50 4E 24 00 06 26 4E 20 8B C3 28 50 4E 24 |1,PN$..&N ..(PN$|
00001DD0: 29 B1 39 B0 50 4E 24 B2 22 3E 22 A7 99 22 13 11 |).9.PN$.">".."..|
00001DE0: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 22 41 |.............."A|
00001DF0: 24 28 35 29 22 91 91 91 91 22 3A 8D 38 38 30 30 |$(5)"....":.8800|
00001E00: 3A 89 38 32 35 30 00 27 26 4F 20 8B C9 28 50 4E |:.8250.'&O ..(PN|
00001E10: 24 2C 31 29 B3 B1 22 3E 22 A7 50 4E 24 B2 22 3E |$,1)..">".PN$.">|
00001E20: 22 3A 89 38 32 37 30 00 4C 26 50 20 8B C9 28 50 |":.8270.L&P ..(P|
00001E30: 4E 24 2C 36 29 B2 22 2D 20 20 20 20 3E 22 A7 50 |N$,6)."- >".P|
00001E40: 4E 24 B2 22 3E 22 3A 89 38 32 37 30 00 71 26 62 |N$.">":.8270.q&b|
00001E50: 20 99 A3 32 30 37 29 22 49 46 20 43 4F 52 52 45 | ..207)"IF CORRE|
00001E60: 43 54 20 50 52 45 53 53 20 12 52 45 54 55 52 4E |CT PRESS .RETURN|
00001E70: 22 00 93 26 6C 20 99 A3 34 38 29 22 49 46 20 49 |"..&l ..48)"IF I|
00001E80: 4E 43 4F 52 52 45 43 54 20 50 52 45 53 53 20 12 |NCORRECT PRESS .|
00001E90: 46 31 22 00 A9 26 D0 20 A1 43 43 24 3A 8B 43 43 |F1"..&. .CC$:.CC|
00001EA0: 24 B2 22 22 A7 38 34 30 30 00 CB 26 34 21 8B 43 |$."".8400..&4!.C|
00001EB0: 43 24 B2 C7 28 31 33 29 A7 51 50 B2 31 36 3A 8D |C$..(13).QP.16:.|
00001EC0: 38 38 30 30 3A 20 89 39 30 30 30 00 E2 26 98 21 |8800: .9000..&.!|
00001ED0: 8B 43 43 24 B3 B1 C7 28 31 33 33 29 A7 89 38 34 |.CC$...(133)..84|
00001EE0: 30 30 00 F2 26 FC 21 99 22 13 22 3A 20 89 38 30 |00..&.!.".": .80|
00001EF0: 35 30 00 FD 26 60 22 8F 20 42 45 4C 4C 00 09 27 |50..&`". BELL..'|
00001F00: 6A 22 53 B2 35 34 32 37 32 00 22 27 74 22 81 20 |j"S.54272."'t". |
00001F10: 4C B2 30 20 A4 20 32 34 3A 97 20 53 AA 4C 2C 30 |L.0 . 24:. S.L,0|
00001F20: 3A 82 00 3B 27 7E 22 97 20 53 AA 31 2C 31 39 30 |:..;'~". S.1,190|
00001F30: 3A 97 20 53 AA 35 2C 34 AA 32 30 00 53 27 88 22 |:. S.5,4.20.S'."|
00001F40: 97 20 53 AA 31 35 2C 33 30 3A 97 20 53 AA 32 34 |. S.15,30:. S.24|
00001F50: 2C 31 35 00 6D 27 92 22 97 20 53 AA 34 2C 32 31 |,15.m'.". S.4,21|
00001F60: AA 51 50 3A 51 50 B2 30 20 3A 8F 33 37 00 83 27 |.QP:QP.0 :.37..'|
00001F70: 9C 22 81 49 B2 31 A4 37 36 3A 82 3A 97 53 AA 32 |.".I.1.76:.:.S.2|
00001F80: 34 2C 30 00 89 27 C4 22 8E 00 8F 27 28 23 3A 00 |4,0..'."...'(#:.|
00001F90: AA 27 32 23 8F 20 20 20 20 20 50 4F 4B 45 20 49 |.'2#. POKE I|
00001FA0: 4E 54 4F 20 4D 45 4D 4F 52 59 00 C5 27 3C 23 8F |NTO MEMORY..'<#.|
00001FB0: 20 20 20 20 20 23 23 23 23 23 23 23 23 23 23 23 | ###########|
00001FC0: 23 23 23 23 23 00 CB 27 46 23 3A 00 05 28 50 23 |#####..'F#:..(P#|
00001FD0: 4C 4E 24 B2 C8 28 4C 4E 24 2C 31 34 29 3A 43 4E |LN$..(LN$,14):CN|
00001FE0: 24 B2 C8 28 43 4E 24 2C 38 29 3A 41 44 24 B2 C8 |$..(CN$,8):AD$..|
00001FF0: 28 41 44 24 2C 32 30 29 3A 50 4E 24 B2 C8 28 50 |(AD$,20):PN$..(P|
00002000: 4E 24 2C 38 29 00 17 28 55 23 50 43 24 B2 C8 28 |N$,8)..(U#PC$..(|
00002010: 50 43 24 2C 32 30 29 00 33 28 5A 23 54 4D 24 B2 |PC$,20).3(Z#TM$.|
00002020: 4C 4E 24 AA 43 4E 24 AA 41 44 24 AA 50 43 24 AA |LN$.CN$.AD$.PC$.|
00002030: 50 4E 24 00 47 28 64 23 50 4B B2 32 30 38 38 3A |PN$.G(d#PK.2088:|
00002040: 45 44 B2 34 39 30 30 00 62 28 8C 23 81 52 B2 50 |ED.4900.b(.#.R.P|
00002050: 4B 20 A4 20 45 44 20 A9 37 36 3A 4E 4C B2 C2 28 |K . ED .76:NL..(|
00002060: 52 29 00 72 28 96 23 8B 4E 4C B2 34 37 A7 39 33 |R).r(.#.NL.47.93|
00002070: 30 30 00 98 28 F0 23 8B 52 B2 45 44 A7 20 99 2C |00..(.#.R.ED. .,|
00002080: 22 20 20 20 2A 2A 4C 49 53 54 20 46 55 4C 4C 2A |" **LIST FULL*|
00002090: 2A 22 3A 89 39 38 30 30 00 9E 28 22 24 82 00 AC |*":.9800..("$...|
000020A0: 28 54 24 54 4C B2 C3 28 54 4D 24 29 00 B4 28 86 |(T$TL..(TM$)..(.|
000020B0: 24 49 B2 30 00 CD 28 B8 24 97 52 AA 49 2C C6 28 |$I.0..(.$.R.I,.(|
000020C0: CA 28 54 4D 24 2C 49 AA 31 2C 31 29 29 00 D7 28 |.(TM$,I.1,1))..(|
000020D0: 1C 25 49 B2 49 AA 31 00 E6 28 4E 25 8B 49 B2 54 |.%I.I.1..(N%.I.T|
000020E0: 4C A7 39 37 30 30 00 F0 28 80 25 89 39 34 30 30 |L.9700..(.%.9400|
000020F0: 00 19 29 E4 25 99 A3 30 37 29 22 91 91 91 50 52 |..).%..07)"...PR|
00002100: 45 53 53 20 12 52 45 54 55 52 4E 92 20 54 4F 20 |ESS .RETURN. TO |
00002110: 43 4F 4E 54 49 4E 55 45 22 00 3C 29 16 26 99 A3 |CONTINUE".<).&..|
00002120: 38 29 22 11 20 20 20 20 20 20 12 46 37 92 20 54 |8)". .F7. T|
00002130: 4F 20 4D 45 4E 55 20 20 20 20 20 22 00 50 29 48 |O MENU ".P)H|
00002140: 26 A1 41 24 3A 8B 41 24 B2 22 22 A7 39 38 30 30 |&.A$:.A$."".9800|
00002150: 00 61 29 7A 26 8B 41 24 B2 C7 28 31 33 29 A7 20 |.a)z&.A$..(13). |
00002160: 8E 00 76 29 AC 26 8B 41 24 B3 B1 C7 28 31 33 36 |..v).&.A$...(136|
00002170: 29 A7 39 38 30 30 00 A6 29 DE 26 51 50 B2 31 36 |).9800..).&QP.16|
00002180: 3A 20 8D 38 38 30 30 3A 51 50 B2 30 20 3A 20 89 |: .8800:QP.0 : .|
00002190: 31 30 30 30 20 20 3A 8F 20 20 53 4F 55 4E 44 20 |1000 :. SOUND |
000021A0: 26 20 4D 45 4E 55 00 AC 29 10 27 3A 00 B8 29 15 |& MENU..).':..).|
000021B0: 27 A0 31 3A 9F 31 2C 30 00 FD 29 1A 27 8F 20 20 |'.1:.1,0..).'. |
000021C0: 20 20 20 20 20 4D 4F 44 49 46 49 43 41 54 49 4F | MODIFICATIO|
000021D0: 4E 53 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |NS |
000021E0: 20 20 20 20 20 20 20 20 20 20 54 4F 20 20 45 58 | TO EX|
000021F0: 49 53 54 49 4E 47 20 20 4E 41 4D 45 53 00 03 2A |ISTING NAMES..*|
00002200: 24 27 3A 00 0C 2A 29 27 99 22 93 22 00 12 2A 2A |$':..*)'."."..**|
00002210: 27 8C 00 1A 2A 2B 27 49 B2 30 00 44 2A 2E 27 48 |'...*+'I.0.D*.'H|
00002220: 44 24 B2 22 11 20 20 20 20 20 20 20 20 20 20 20 |D$.". |
00002230: 9A 2A 2A 4D 4F 44 49 46 49 43 41 54 49 4F 4E 53 |.**MODIFICATIONS|
00002240: 2A 2A 1E 22 00 4D 2A 38 27 99 48 44 24 00 75 2A |**.".M*8'.HD$.u*|
00002250: 42 27 99 A3 38 30 29 3A 99 22 45 4E 54 45 52 20 |B'..80):."ENTER |
00002260: 12 53 55 52 4E 41 4D 45 92 20 22 3B 3A 84 31 2C |.SURNAME. ";:.1,|
00002270: 53 55 24 3A 99 00 84 2A 47 27 87 4E 41 24 3A 49 |SU$:...*G'.NA$:I|
00002280: B2 49 AA 31 00 A1 2A 4C 27 8B 53 55 24 B2 C8 28 |.I.1..*L'.SU$..(|
00002290: 4E 41 24 2C C3 28 53 55 24 29 29 A7 31 30 31 30 |NA$,.(SU$)).1010|
000022A0: 30 00 DB 2A 51 27 8B C8 28 4E 41 24 2C 32 29 B2 |0..*Q'..(NA$,2).|
000022B0: 22 2A 2A 22 A7 99 22 13 11 11 11 11 11 11 11 11 |"**"..".........|
000022C0: 11 11 11 11 11 2A 45 4E 44 20 4F 46 20 4E 41 4D |.....*END OF NAM|
000022D0: 45 53 2A 22 3A 89 31 32 30 30 30 00 E6 2A 56 27 |ES*":.12000..*V'|
000022E0: 89 31 30 30 35 35 00 FF 2A 74 27 8F 20 20 20 20 |.10055..*t'. |
000022F0: 4E 41 4D 45 20 49 53 20 43 4F 52 52 45 43 54 00 |NAME IS CORRECT.|
00002300: 0B 2B 88 27 A0 31 3A 9F 31 2C 30 00 11 2B 92 27 |.+.'.1:.1,0..+.'|
00002310: 99 00 17 2B 3C 28 3A 00 30 2B 46 28 8F 20 20 20 |...+<(:.0+F(. |
00002320: 20 4E 41 24 20 49 53 20 54 48 45 20 4E 41 4D 45 | NA$ IS THE NAME|
00002330: 00 42 2B 50 28 4C 4E 24 B2 C8 28 4E 41 24 2C 31 |.B+P(LN$..(NA$,1|
00002340: 34 29 00 56 2B 5A 28 43 4E 24 B2 CA 28 4E 41 24 |4).V+Z(CN$..(NA$|
00002350: 2C 31 35 2C 38 29 00 6B 2B 64 28 41 44 24 B2 CA |,15,8).k+d(AD$..|
00002360: 28 4E 41 24 2C 32 33 2C 32 30 29 00 80 2B 6E 28 |(NA$,23,20)..+n(|
00002370: 50 43 24 B2 CA 28 4E 41 24 2C 34 33 2C 32 30 29 |PC$..(NA$,43,20)|
00002380: 00 91 2B 78 28 50 4E 24 B2 C9 28 4E 41 24 2C 38 |..+x(PN$..(NA$,8|
00002390: 29 00 AE 2B 82 28 99 4C 4E 24 3A 99 43 4E 24 3A |)..+.(.LN$:.CN$:|
000023A0: 99 41 44 24 3A 99 50 43 24 3A 99 50 4E 24 00 D4 |.AD$:.PC$:.PN$..|
000023B0: 2B A0 28 99 A3 31 36 37 29 22 50 52 45 53 53 20 |+.(..167)"PRESS |
000023C0: 12 52 45 54 55 52 4E 92 20 49 46 20 43 4F 52 52 |.RETURN. IF CORR|
000023D0: 45 43 54 22 00 F7 2B AA 28 99 A3 34 38 29 22 50 |ECT"..+.(..48)"P|
000023E0: 52 45 53 53 20 12 46 31 92 20 49 46 20 49 4E 43 |RESS .F1. IF INC|
000023F0: 4F 52 52 45 43 54 22 00 0C 2C B4 28 A1 41 24 3A |ORRECT"..,.(.A$:|
00002400: 8B 41 24 B2 22 22 A7 31 30 34 32 30 00 20 2C BE |.A$."".10420. ,.|
00002410: 28 8B 41 24 B2 C7 28 31 33 29 A7 31 30 35 30 30 |(.A$..(13).10500|
00002420: 00 40 2C C8 28 8B 41 24 B2 C7 28 31 33 33 29 A7 |.@,.(.A$..(133).|
00002430: 99 22 13 11 11 11 11 11 22 3A 89 31 30 30 35 35 |."......":.10055|
00002440: 00 4C 2C D2 28 89 20 31 30 34 32 30 00 90 2C 04 |.L,.(. 10420..,.|
00002450: 29 8F 20 20 50 4F 4B 45 20 41 20 53 4C 41 53 48 |). POKE A SLASH|
00002460: 20 54 4F 20 53 49 47 4E 41 4C 20 41 20 20 20 20 | TO SIGNAL A |
00002470: 20 20 20 20 20 20 20 20 20 20 20 20 43 48 41 4E | CHAN|
00002480: 47 45 20 57 49 4C 4C 20 4F 43 43 4F 55 52 20 21 |GE WILL OCCOUR !|
00002490: 00 A6 2C 68 29 97 32 30 38 38 AA 37 36 AC 28 49 |..,h).2088.76.(I|
000024A0: AB 31 29 2C 34 37 00 BF 2C CC 29 8F 20 20 47 4F |.1),47..,.). GO|
000024B0: 54 4F 20 4E 41 4D 45 20 45 4E 54 52 49 45 53 00 |TO NAME ENTRIES.|
000024C0: E1 2C 30 2A 99 22 93 22 A3 31 32 29 22 11 2A 2A |.,0*.".".12)".**|
000024D0: 4D 4F 44 49 46 49 43 41 54 49 4F 4E 53 2A 2A 13 |MODIFICATIONS**.|
000024E0: 22 00 FE 2C 35 2A 81 49 B2 31 A4 35 3A 99 A3 38 |"..,5*.I.1.5:..8|
000024F0: 30 29 41 24 28 49 29 3A 82 3A 99 22 13 22 00 20 |0)A$(I):.:.".". |
00002500: 2D 3A 2A 99 A3 39 34 29 3B 4C 4E 24 3A 99 A3 39 |-:*..94);LN$:..9|
00002510: 34 29 3B 43 4E 24 3A 99 A3 39 34 29 3B 41 44 24 |4);CN$:..94);AD$|
00002520: 00 3D 2D 44 2A 99 A3 39 34 29 3B 50 43 24 3A 99 |.=-D*..94);PC$:.|
00002530: A3 39 34 29 3B 50 4E 24 3A 99 22 13 22 00 54 2D |.94);PN$:.".".T-|
00002540: 94 2A 8D 20 38 30 35 30 3A 8F 20 47 4F 54 4F 20 |.*. 8050:. GOTO |
00002550: 38 30 35 30 00 72 2D F8 2A 89 20 31 30 30 30 30 |8050.r-.*. 10000|
00002560: 3A 8F 20 20 52 45 54 55 52 4E 20 54 4F 20 4D 4F |:. RETURN TO MO|
00002570: 44 53 00 9C 2D E0 2E 99 A3 38 35 29 22 20 20 20 |DS..-....85)" |
00002580: 20 50 52 45 53 53 20 12 52 45 54 55 52 4E 92 20 | PRESS .RETURN. |
00002590: 54 4F 20 4D 45 4E 55 20 20 20 20 22 00 C6 2D EA |TO MENU "..-.|
000025A0: 2E 99 A3 34 35 29 22 20 20 20 20 50 52 45 53 53 |...45)" PRESS|
000025B0: 20 12 46 37 92 20 54 4F 20 43 4F 4E 54 49 4E 55 | .F7. TO CONTINU|
000025C0: 45 20 20 20 20 22 00 DB 2D F4 2E A1 41 24 3A 8B |E "..-...A$:.|
000025D0: 41 24 B2 22 22 A7 31 32 30 32 30 00 EB 2D FE 2E |A$."".12020..-..|
000025E0: 8B 41 24 B2 C7 28 31 33 29 A7 8E 00 00 2E 08 2F |.A$..(13)....../|
000025F0: 8B 41 24 B2 C7 28 31 33 36 29 A7 31 30 30 30 30 |.A$..(136).10000|
00002600: 00 0B 2E 12 2F 89 31 32 30 32 30 00 00 00 |..../.12020... |
..#.... SAVE"@0:NAME AND ADDRESS",8.O...
./......................................
...................................../..
........................................
................................./......
........................................
........................S..../..........
........................................
........................./..............
........................................
...................../..................
........................................
............7..../......................
........................................
............./..........................
........................................
....O..../..............................
........................................
...../..................................
....................................G...
./......................................
...................................../..
........................................
................................./......
........................................
........................K..../..........
........................................
........................./..............
........................................
...................../..................
........................................
............/..../......................
........................................
........{..../..........................
........................................
....G..../..............................
........................................
...../..................................
...................................._...
./......................................
...................................../..
........................................
................................./......
........................................
........................C..../..........
........................................
........................./..............
........................................
...................../..................
........................................
............'..../......................
........................................
........S..../..........................
........................................
........./..............................
........................................
...../..................................
....................................W...
./......................................
.................................. ../..
........................................
..............................!../......
........................................
........................;."../..........
........................................
......................#../..............
........................................
................S.$../..................
........................................
..............%../......................
........................................
........K.&../..........................
........................................
......'..**.............................
........................................
T.... NAME AND ADDRESS.Z..........
***********************.....:......
MARCH 1/83.....:.@.$.. FIND BEG
INING FOR POKING.C.... """""""""""""
""""""""""".I.8.:.X.L.PK.2048.40...M..".
":.53280,0:.53281,0...P.:...Z.. M
ENU.....:.Z...."...".7)"* NAME AND ADDRE
SS FILE *"......"..".15)"MENU".......15)
"====".......90)"1. NEW ENTRIES".......5
0)"2. LISTING".C.....50)"3. DELETE".V. .
..50)"4. SCAN".I.*...50)"5. SAVE"...4...
50)"6. MODIFICATIONS"...D.:...N.. D
ESTINATION...X.. ***********.....:.
J.... 3000...(...90)"ENTER AN OPTION ?".
..2..A$:.A$."".2610.....A.E(A$).-....A.8
000,4000,5000,6000,7000,10000.@.".QP.16:
.8800.J.T..2000.P...:.H.B.. NEW
ENTRIES...L.. ------------...V.:..
...A$(1).".LAST NAME:. <
> .".....A$(2).".FIRST NAME:. <
> .".$...A$(3).".ADDRE
SS:. < > .".Z..
.A$(5).".PHONE #:. < - >
.".....A$(4).".CITY:. <
> ."......... .:...
......... LIST ALL NAMES.W....
**************.....:.$.H.. LENGTHS LS=L
AST NAME ,FI=FIRST, AS=ADDRESS , PC=CITY
,PN=PHONE #.>.R.LS.14:FI.8:AS.20:PH.8.G
.W..".".A.....14)"..**LISTING**.".J....N
A$...6..H(NA$,2)."/.".. "...*END OF NAME
S*":.:LS$."":.4400...@..H(NA$,1)."/".410
0...H.LS$.H(NA$,14):FI$.J(NA$,15,8):AS$.
J(NA$,23,20):PH$.I(NA$,8).....CI$.J(NA$,
43,20).+.L..FI$:.LS$:.AS$:.CI$:.PH$.F.0.
."................ PRESS .RETURN. F
OR MORE NAMES"...B..,". .F7. TO MENU
... "......A$:.A$."".4500...F..A$.G(13).
4100...... : . MENU.D...:......
DELETE UNWANTED NAME...... ''''''''
''''''''''''..... 1:.1,0.....:.3....:.
READ FROM BEGINING.S....".".13)".**DELE
TE NAME**.".].....80)...D.."TYPE IN .SUR
NAME. ";:.1,UN$:....I.I.0...N..NA$...O.I
.I.1.V.S..H(NA$,2)."**".. ".......*END O
F NAMES*":LS$."":.5450...X..UN$..H(NA$,C
(UN$)).5070.......9.P.LS$.H(NA$,14):FI$.
J(NA$,15,8):AS$.J(NA$,23,20):PH$.I(NA$,8
).N...CI$.J(NA$,43,20).K....FI$:.LS$:.AS
$:.CI$:.PH$.......163)"*CAUTION* PRESS .
F1. TO .DELETE. NAME".F.H...45)"PRESS .R
ETURN. IF NOT CORRECT"...M..A$:.A$.G(13)
..".".160):.5070...N..A$..G(133).5325...
R.:...W.:.V.X.. POKE "/" INTO FIR
ST POSITION IN CORRECT DAT
A LINE.\...:.T....(I.1).76.PK,F("/").Z..
.:.....:......"... NAME HAS BEEN
.DELETED. ! .. "...J.."..
PRESS .F7. TO CONTINUE "...T.
.". PRESS .RETURN. TO MENU "
.-.|..A$:.A$.G(13). ..A....A$.G(136).500
0.L.... 5500.R.P.:...Z.. SCAN FOR N
AMES ABILITY TO USE A
BRIVIATION '*'.C... ==================
===========.I...:.W....: 1:.1,0......"..
.**SCAN**.".......80)".F.
IRST OR .L.AST NAME ?".4....AB$:.AB$."".
6040.M....AB$."F".MI.15:.6090.`....AB$..
"L".6040.....MI.1:."LAST NAME ";:.1,AB$:
.:.6100.....:...J.."FIRST NAME ";:.1,AB$
:..G.T.. LOOK FOR A MATCH......
<<<<<<<<>>>>>>>>......NA$......H(NA$
,1)."*"..". *END OF NAMES*":.:.6500.3..
..H(NA$,1)."/".6140.L...NN$.J(NA$,MI,C(A
B$))._....NN$..AB$.6140.....LS$.H(NA$,14
):FI$.J(NA$,15,8):AS$.J(NA$,23,20):PH$.I
(NA$,8).....CI$.J(NA$,43,20).S.$..:.FI$:
.LS$:.AS$:.CI$:.PH$.Y.8.:...B.. ARE TH
ERE ANY MORE ?.. L.. =================
===.. V.:.# J..6140.F D...170)"PRESS .RE
TURN. TO MENU".H ....50)"PRESS .F7. TO C
ONTINUE".| H..A$:.A$."".6600.. R..A$.G(1
3). ... ...A$.G(136).6000.. ... 6600.. ,
.... X.:.S B.. **SAVE PROGRAM**.. L.
. ================.. V.:.. ..."."..!
...". .CAUTION..E!...".T
HIS PROGRAM MUST BE THE .ONLY.G!..."PROG
RAM ON THE DISK. SAVING..!..."NAMES AND
ADDRESSES ERASES..!..."OTHER MATERIAL ON
THE DISK.R!....245)"INSERT DISKETTE INT
O DRIVE 0"..!....47)"PRESS .RETURN."..".
..A$:.A$..G(13).7070. "....50)"PLEASE W
AIT ...".&"..:.C"..."@0:NAME AND ADDRESS
",8.I"..:.F"....50)"VERIFYING COPY !.".L
"..:.."..."NAME AND ADDRESS",8.."..:..".
...10)". OK !".." ..I.1.1500:..."....."@
.:.."J.. INPUT CHARACTER ROUTINE..#
T.. +++++++++++++++++++++++..#Y.:.L
#Z.. LN$=LAST NAME , CN$=FIRST NAME
AD$=ADDRESS, PN$=PHONE #.R#^.:.^#C.
1:.1,0.G#E.."."..#F.HD$." .
**ENTRIES**."..#H..".":.I.1.5:..80)A$(I)
:.:.".":.HD$:.".".G#M.: . 8050..#O.. 80
00: . RETURN TO ENTER..#R...94)..#...1,
LN$.4$...C(LN$).15.LN$.">"..".".120)A$(1
)"..." :.8800: .8050.U$...I(LN$,1)..">".
LN$.">":.8080.`$....134).K$...1,CN$..$..
.C(CN$).9.CN$.">".."......."A$(2)"....":
.8800: .8090.E$...I(CN$,1)..">".CN$.">":
.8110.P$....134)..$B..1,AD$..%L..C(AD$).
21.AD$.">"..".........."A$(3)"....":.880
0: .8120.9%M..I(AD$,1)..">".AD$.">":.814
0.D%V...134).O%...1,PC$..%...C(PC$).21.P
C$.">".."............."A$(4)"....":.8800
:.8150..%...I(PC$,1)..">".PC$.">":.8170.
.%: ..134).E%D .1,PN$..&N .C(PN$).9.PN$.
">".."................"A$(5)"....":.8800
:.8250.'&O .I(PN$,1)..">".PN$.">":.8270.
L&P .I(PN$,6)."- >".PN$.">":.8270.Q&B
..207)"IF CORRECT PRESS .RETURN"..&L ..
48)"IF INCORRECT PRESS .F1"..&P .CC$:.CC
$."".8400.K&4!.CC$.G(13).QP.16:.8800: .9
000..&.!.CC$..G(133)..8400..&.!.".": .80
50..&`". BELL..'J"S.54272."'T". L.0 . 24
:. S.L,0:..;'~". S.1,190:. S.5,4.20.S'."
. S.15,30:. S.24,15.M'.". S.4,21.QP:QP.0
:.37..'.".I.1.76:.:.S.24,0..'D"...'(#:.
.'2#. POKE INTO MEMORY.E'<#. ###
#############.K'F#:..(P#LN$.H(LN$,14):CN
$.H(CN$,8):AD$.H(AD$,20):PN$.H(PN$,8)..(
U#PC$.H(PC$,20).3(Z#TM$.LN$.CN$.AD$.PC$.
PN$.G(D#PK.2088:ED.4900.B(.#.R.PK . ED .
76:NL.B(R).R(.#.NL.47.9300..(.#.R.ED. .,
" **LIST FULL**":.9800..("$...(T$TL.C(
TM$)..(.$I.0.M(.$.R.I,F(J(TM$,I.1,1)).W(
.%I.I.1..(N%.I.TL.9700..(.%.9400..).%..0
7)"...PRESS .RETURN. TO CONTINUE".<).&..
8)". .F7. TO MENU ".P)H&.A$:.A$
."".9800.A)Z&.A$.G(13). ..V).&.A$..G(136
).9800..).&QP.16: .8800:QP.0 : .1000 :.
SOUND & MENU..).':..).' 1:.1,0..).'.
MODIFICATIONS
TO EXISTING NAMES..*$':..*)'."."..**
'...*+'I.0.D*.'HD$.". .**MODIF
ICATIONS**.".M*8'.HD$.U*B'..80):."ENTER
.SURNAME. ";:.1,SU$:...*G'.NA$:I.I.1..*L
'.SU$.H(NA$,C(SU$)).10100..*Q'.H(NA$,2).
"**".."..............*END OF NAMES*":.12
000..*V'.10055..*T'. NAME IS CORRECT.
.+.' 1:.1,0..+.'...+<(:.0+F(. NA$ IS
THE NAME.B+P(LN$.H(NA$,14).V+Z(CN$.J(NA$
,15,8).K+D(AD$.J(NA$,23,20)..+N(PC$.J(NA
$,43,20)..+X(PN$.I(NA$,8)..+.(.LN$:.CN$:
.AD$:.PC$:.PN$.T+ (..167)"PRESS .RETURN.
IF CORRECT"..+.(..48)"PRESS .F1. IF INC
ORRECT"..,.(.A$:.A$."".10420. ,.(.A$.G(1
3).10500.@,H(.A$.G(133).."......":.10055
.L,R(. 10420..,.). POKE A SLASH TO SIGN
AL A CHANGE WILL OCCOUR !
..,H).2088.76.(I.1),47..,L). GOTO NAME
ENTRIES..,0*.".".12)".**MODIFICATIONS**.
"..,5*.I.1.5:..80)A$(I):.:.".". -:*..94)
;LN$:..94);CN$:..94);AD$.=-D*..94);PC$:.
.94);PN$:.".".T-.*. 8050:. GOTO 8050.R-.
*. 10000:. RETURN TO MODS..-....85)"
PRESS .RETURN. TO MENU ".F-....45)"
PRESS .F7. TO CONTINUE "..-...A$:.
A$."".12020..-...A$.G(13)....../.A$.G(13
6).10000..../.12020...
> CLICK IMAGE PREVIEW FOR FULL MODAL