PHONE MASTER 3.0
FILE INFORMATION
FILENAME(S): PHONE MASTER 3.0
FILE TYPE(S): PRG
FILE SIZE: 5.5K
FIRST SEEN: 2025-12-01 02:25:33
APPEARS ON: 1 disk(s)
FILE HASH
2381c16916ccb73c1e0e8a8e9af6f195bb5b7d578bcb130c9b6f0bb5afd46f65
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| STONYSOFT PD NR | PHONE MASTER 3.0 | PRG | hedning, shine | 15 | 7 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 21 08 0A 00 97 38 30 38 2C 32 33 34 3A 97 |..!....808,234:.|
00000010: 35 33 32 38 30 2C 34 3A 97 35 33 32 38 31 2C 31 |53280,4:.53281,1|
00000020: 31 00 3E 08 14 00 99 C7 28 38 29 C7 28 31 34 32 |1.>.....(8).(142|
00000030: 29 22 9E 93 11 11 11 11 11 11 11 11 22 3B 00 55 |)"..........";.U|
00000040: 08 1E 00 99 A6 31 34 29 22 50 48 4F 4E 45 20 4D |.....14)"PHONE M|
00000050: 41 53 54 45 52 00 5B 08 28 00 99 00 6D 08 32 00 |ASTER.[.(...m.2.|
00000060: 99 A6 31 34 29 22 20 20 20 20 20 42 59 00 73 08 |..14)" BY.s.|
00000070: 3C 00 99 00 89 08 46 00 99 A6 31 34 29 22 20 44 |<.....F...14)" D|
00000080: 41 4E 20 5A 45 52 4B 4C 45 00 B8 08 50 00 86 4E |AN ZERKLE...P..N|
00000090: 4C 24 28 32 30 2C 32 29 2C 47 45 24 28 32 36 29 |L$(20,2),GE$(26)|
000000A0: 2C 43 48 28 32 29 2C 43 4C 28 32 29 2C 52 48 28 |,CH(2),CL(2),RH(|
000000B0: 33 29 2C 52 4C 28 33 29 00 F0 08 5A 00 43 55 24 |3),RL(3)...Z.CU$|
000000C0: B2 22 12 20 92 9D 22 3A 51 24 B2 C7 28 33 34 29 |.". ..":Q$..(34)|
000000D0: 3A 43 52 24 B2 C7 28 31 33 29 3A 41 4D 24 B2 22 |:CR$..(13):AM$."|
000000E0: D5 C3 C3 C9 22 3A 43 4D 24 B2 22 CA C3 C3 CB 22 |....":CM$."...."|
000000F0: 00 0C 09 64 00 54 4D 24 B2 41 4D 24 AA 43 52 24 |...d.TM$.AM$.CR$|
00000100: 3A 42 4D 24 B2 43 52 24 AA 43 4D 24 00 16 09 6E |:BM$.CR$.CM$...n|
00000110: 00 8D 31 39 31 30 00 30 09 78 00 81 4E B2 30 A4 |..1910.0.x..N.0.|
00000120: 33 3A 87 52 48 28 4E 29 2C 52 4C 28 4E 29 3A 82 |3:.RH(N),RL(N):.|
00000130: 00 4F 09 82 00 83 34 34 2C 31 33 37 2C 34 39 2C |.O....44,137,49,|
00000140: 35 31 2C 35 34 2C 31 31 32 2C 36 30 2C 33 32 00 |51,54,112,60,32.|
00000150: 69 09 8C 00 81 4E B2 30 A4 32 3A 87 43 48 28 4E |i....N.0.2:.CH(N|
00000160: 29 2C 43 4C 28 4E 29 3A 82 00 80 09 96 00 83 37 |),CL(N):.......7|
00000170: 37 2C 36 34 2C 38 35 2C 39 34 2C 39 34 2C 39 36 |7,64,85,94,94,96|
00000180: 00 9F 09 A0 00 56 31 B2 35 34 32 37 32 3A 56 32 |.....V1.54272:V2|
00000190: B2 56 31 AA 37 3A 97 56 31 AA 32 34 2C 31 35 00 |.V1.7:.V1.24,15.|
000001A0: B5 09 AA 00 97 56 31 AA 35 2C 30 3A 97 56 31 AA |.....V1.5,0:.V1.|
000001B0: 36 2C 32 34 30 00 CB 09 B4 00 97 56 32 AA 35 2C |6,240......V2.5,|
000001C0: 30 3A 97 56 32 AA 36 2C 32 34 30 00 DA 09 BE 00 |0:.V2.6,240.....|
000001D0: 8D 33 30 30 30 3A 89 35 39 30 00 EA 09 C8 00 8B |.3000:.590......|
000001E0: C3 28 4E 42 24 29 B2 30 A7 8E 00 FA 09 D2 00 81 |.(NB$).0........|
000001F0: 4A B2 31 A4 C3 28 4E 42 24 29 00 0C 0A DC 00 4E |J.1..(NB$).....N|
00000200: 24 B2 CA 28 4E 42 24 2C 4A 2C 31 29 00 1E 0A E6 |$..(NB$,J,1)....|
00000210: 00 81 4E B2 31 A4 35 3A 82 3A 99 4E 24 3B 00 32 |..N.1.5:.:.N$;.2|
00000220: 0A F0 00 8B 4E 24 B2 22 30 22 A7 4E 24 B2 22 31 |....N$."0".N$."1|
00000230: 31 22 00 46 0A FA 00 8B 4E 24 B2 22 2A 22 A7 4E |1".F....N$."*".N|
00000240: 24 B2 22 31 30 22 00 5A 0A 04 01 8B 4E 24 B2 22 |$."10".Z....N$."|
00000250: 23 22 A7 4E 24 B2 22 31 32 22 00 7F 0A 0E 01 8B |#".N$."12"......|
00000260: 4E 24 B2 22 20 22 B0 4E 24 B2 22 2D 22 B0 4E 24 |N$." ".N$."-".N$|
00000270: B2 22 28 22 B0 4E 24 B2 22 29 22 A7 33 35 30 00 |."(".N$.")".350.|
00000280: 9C 0A 18 01 8B 4E 24 B2 22 50 22 A7 81 58 B2 31 |.....N$."P"..X.1|
00000290: A4 34 35 35 30 3A 82 3A 89 33 35 30 00 BE 0A 22 |.4550:.:.350..."|
000002A0: 01 56 41 B2 C5 28 4E 24 29 AB 31 3A 52 25 B2 56 |.VA..(N$).1:R%.V|
000002B0: 41 AD 33 3A 43 25 B2 56 41 AB 33 AC 52 25 00 DA |A.3:C%.VA.3.R%..|
000002C0: 0A 2C 01 97 56 31 AA 31 2C 52 48 28 52 25 29 3A |.,..V1.1,RH(R%):|
000002D0: 97 56 31 2C 52 4C 28 52 25 29 00 F6 0A 36 01 97 |.V1,RL(R%)...6..|
000002E0: 56 32 AA 31 2C 43 48 28 43 25 29 3A 97 56 32 2C |V2.1,CH(C%):.V2,|
000002F0: 43 4C 28 43 25 29 00 0C 0B 40 01 97 56 31 AA 34 |CL(C%)...@..V1.4|
00000300: 2C 31 37 3A 97 56 32 AA 34 2C 31 37 00 1A 0B 4A |,17:.V2.4,17...J|
00000310: 01 81 4E B2 31 A4 35 30 3A 82 00 2E 0B 54 01 97 |..N.1.50:....T..|
00000320: 56 31 AA 34 2C 30 3A 97 56 32 AA 34 2C 30 00 36 |V1.4,0:.V2.4,0.6|
00000330: 0B 5E 01 82 3A 8E 00 56 0B 68 01 54 54 24 B2 22 |.^..:..V.h.TT$."|
00000340: 44 49 41 4C 20 4E 45 57 20 4E 55 4D 42 45 52 22 |DIAL NEW NUMBER"|
00000350: 3A 8D 31 38 30 30 00 7A 0B 72 01 99 22 11 4E 55 |:.1800.z.r..".NU|
00000360: 4D 42 45 52 20 54 4F 20 44 49 41 4C 3F 22 3A 41 |MBER TO DIAL?":A|
00000370: 4C B2 33 37 3A 8D 31 35 36 30 00 86 0B 7C 01 8B |L.37:.1560...|..|
00000380: 4C 54 B2 30 A7 8E 00 99 0B 86 01 4E 42 24 B2 53 |LT.0.......NB$.S|
00000390: 54 24 3A 8D 32 30 30 3A 8E 00 B5 0B 90 01 54 54 |T$:.200:......TT|
000003A0: 24 B2 22 44 49 41 4C 20 4E 55 4D 42 45 52 22 3A |$."DIAL NUMBER":|
000003B0: 8D 31 38 30 30 00 D7 0B 9A 01 99 54 4D 24 22 C2 |.1800......TM$".|
000003C0: 46 31 C2 20 44 49 41 4C 20 4E 45 57 20 4E 55 4D |F1. DIAL NEW NUM|
000003D0: 42 45 52 22 42 4D 24 00 FA 0B A4 01 99 54 4D 24 |BER"BM$......TM$|
000003E0: 22 C2 46 33 C2 20 44 49 41 4C 20 4C 41 53 54 20 |".F3. DIAL LAST |
000003F0: 4E 55 4D 42 45 52 22 42 4D 24 00 1D 0C AE 01 99 |NUMBER"BM$......|
00000400: 54 4D 24 22 C2 46 35 C2 20 44 49 41 4C 20 4E 45 |TM$".F5. DIAL NE|
00000410: 58 54 20 4E 55 4D 42 45 52 22 42 4D 24 00 3B 0C |XT NUMBER"BM$.;.|
00000420: B8 01 99 54 4D 24 22 C2 46 37 C2 20 51 55 49 54 |...TM$".F7. QUIT|
00000430: 20 53 59 53 54 45 4D 22 42 4D 24 00 45 0C C2 01 | SYSTEM"BM$.E...|
00000440: 8D 31 38 34 30 00 52 0C CC 01 8B 47 B2 31 33 36 |.1840.R....G.136|
00000450: A7 8E 00 5B 0C D6 01 99 22 93 22 00 90 0C E0 01 |...[....".".....|
00000460: 91 47 AB 31 33 32 8D 33 36 30 2C 35 38 30 2C 34 |.G.132.360,580,4|
00000470: 39 30 2C 31 36 34 30 2C 31 36 34 30 2C 31 36 34 |90,1640,1640,164|
00000480: 30 2C 31 36 34 30 2C 31 36 34 30 3A 89 34 30 30 |0,1640,1640:.400|
00000490: 00 B3 0C EA 01 54 54 24 B2 22 44 49 41 4C 20 4E |.....TT$."DIAL N|
000004A0: 45 58 54 20 4E 55 4D 42 45 52 22 3A 8D 31 38 30 |EXT NUMBER":.180|
000004B0: 30 3A 99 00 D7 0C F4 01 8B C3 28 4E 42 24 29 B3 |0:........(NB$).|
000004C0: 34 A7 99 22 43 41 4E 27 54 22 3A 81 58 B2 31 A4 |4.."CAN'T":.X.1.|
000004D0: 35 30 30 3A 82 3A 8E 00 E8 0C FE 01 52 34 24 B2 |500:.:......R4$.|
000004E0: C9 28 4E 42 24 2C 34 29 00 FC 0C 08 02 52 34 24 |.(NB$,4).....R4$|
000004F0: B2 C4 28 C5 28 52 34 24 29 AA 31 29 00 14 0D 12 |..(.(R4$).1)....|
00000500: 02 52 34 24 B2 C9 28 52 34 24 2C C3 28 52 34 24 |.R4$..(R4$,.(R4$|
00000510: 29 AB 31 29 00 2D 0D 1C 02 8B C3 28 52 34 24 29 |).1).-.....(R4$)|
00000520: B1 34 A7 52 34 24 B2 22 30 30 30 30 22 00 4C 0D |.4.R4$."0000".L.|
00000530: 26 02 8B C3 28 52 34 24 29 B3 34 A7 52 34 24 B2 |&...(R4$).4.R4$.|
00000540: 22 30 22 AA 52 34 24 3A 89 35 35 30 00 68 0D 30 |"0".R4$:.550.h.0|
00000550: 02 4E 42 24 B2 C8 28 4E 42 24 2C C3 28 4E 42 24 |.NB$..(NB$,.(NB$|
00000560: 29 AB 34 29 AA 52 34 24 00 71 0D 3A 02 89 32 30 |).4).R4$.q.:..20|
00000570: 30 00 9B 0D 44 02 54 54 24 B2 22 52 45 44 49 41 |0...D.TT$."REDIA|
00000580: 4C 20 4C 41 53 54 20 4E 55 4D 42 45 52 22 3A 8D |L LAST NUMBER":.|
00000590: 31 38 30 30 3A 99 3A 89 32 30 30 00 B5 0D 4E 02 |1800:.:.200...N.|
000005A0: 54 54 24 B2 22 4D 41 49 4E 20 4D 45 4E 55 22 3A |TT$."MAIN MENU":|
000005B0: 8D 31 38 30 30 00 BF 0D 58 02 8D 32 30 30 30 00 |.1800...X..2000.|
000005C0: F7 0D 62 02 99 22 46 31 C2 20 44 49 41 4C 20 46 |..b.."F1. DIAL F|
000005D0: 52 4F 4D 20 4C 49 53 54 22 3B A3 32 30 29 3B 22 |ROM LIST";.20);"|
000005E0: C2 46 32 C2 20 44 49 41 4C 20 4F 54 48 45 52 22 |.F2. DIAL OTHER"|
000005F0: 3B 3A 8D 32 30 31 30 00 01 0E 6C 02 8D 32 30 30 |;:.2010...l..200|
00000600: 30 00 34 0E 76 02 99 22 46 33 C2 20 41 44 44 20 |0.4.v.."F3. ADD |
00000610: 4E 55 4D 42 45 52 22 A3 32 30 29 22 C2 46 34 C2 |NUMBER".20)".F4.|
00000620: 20 46 49 4C 45 20 53 59 53 54 45 4D 22 3B 3A 8D | FILE SYSTEM";:.|
00000630: 32 30 31 30 00 3E 0E 80 02 8D 32 30 30 30 00 78 |2010.>....2000.x|
00000640: 0E 8A 02 99 22 46 35 C2 20 44 45 4C 45 54 45 20 |...."F5. DELETE |
00000650: 4E 55 4D 42 45 52 22 3B A3 32 30 29 3B 22 C2 46 |NUMBER";.20);".F|
00000660: 36 C2 20 50 52 49 4E 54 20 4E 55 4D 42 45 52 53 |6. PRINT NUMBERS|
00000670: 22 3B 3A 8D 32 30 31 30 00 97 0E 94 02 99 54 4D |";:.2010......TM|
00000680: 24 22 C2 46 37 C2 20 51 55 49 54 20 50 52 4F 47 |$".F7. QUIT PROG|
00000690: 52 41 4D 22 42 4D 24 00 A1 0E 9E 02 8D 31 38 34 |RAM"BM$......184|
000006A0: 30 00 D5 0E A8 02 91 47 AB 31 33 32 8D 36 39 30 |0......G.132.690|
000006B0: 2C 37 36 30 2C 38 33 30 2C 31 36 38 30 2C 34 30 |,760,830,1680,40|
000006C0: 30 2C 31 31 38 30 2C 31 30 38 30 2C 31 36 34 30 |0,1180,1080,1640|
000006D0: 3A 89 35 39 30 00 FC 0E B2 02 99 22 93 11 44 49 |:.590......"..DI|
000006E0: 41 4C 20 4E 55 4D 42 45 52 20 46 52 4F 4D 20 4C |AL NUMBER FROM L|
000006F0: 49 53 54 22 3A 81 58 B2 31 A4 32 30 00 06 0F BC |IST":.X.1.20....|
00000700: 02 8D 31 39 37 30 00 31 0F C6 02 99 22 4E 55 4D |..1970.1...."NUM|
00000710: 42 45 52 20 54 4F 20 44 49 41 4C 3F 22 3A 41 4C |BER TO DIAL?":AL|
00000720: B2 32 3A 8D 31 35 36 30 3A 58 B2 C5 28 53 54 24 |.2:.1560:X..(ST$|
00000730: 29 00 3D 0F D0 02 8B 4C 54 B2 30 A7 8E 00 4F 0F |).=....LT.0...O.|
00000740: DA 02 8B 58 B1 32 30 B0 58 B3 31 A7 36 39 30 00 |...X.20.X.1.690.|
00000750: 63 0F E4 02 8B 4E 4C 24 28 58 2C 31 29 B2 22 C3 |c....NL$(X,1).".|
00000760: 22 A7 8E 00 7B 0F EE 02 4E 42 24 B2 4E 4C 24 28 |"...{...NB$.NL$(|
00000770: 58 2C 32 29 3A 8D 32 30 30 3A 8E 00 9A 0F F8 02 |X,2):.200:......|
00000780: 54 54 24 B2 22 41 44 44 20 4E 55 4D 42 45 52 22 |TT$."ADD NUMBER"|
00000790: 3A 8D 31 38 30 30 3A 58 B2 31 00 BE 0F 02 03 8B |:.1800:X.1......|
000007A0: 58 B3 32 31 A7 8B 4E 4C 24 28 58 2C 32 29 B3 B1 |X.21..NL$(X,2)..|
000007B0: 22 C3 22 A7 58 B2 58 AA 31 3A 89 37 37 30 00 E2 |".".X.X.1:.770..|
000007C0: 0F 0C 03 8B 58 B1 32 30 A7 99 22 4C 49 53 54 20 |....X.20.."LIST |
000007D0: 46 55 4C 4C 22 3A 81 58 B2 31 A4 35 30 30 3A 82 |FULL":.X.1.500:.|
000007E0: 3A 8E 00 04 10 16 03 99 22 11 4E 41 4D 45 3F 22 |:.......".NAME?"|
000007F0: 3A 41 4C B2 31 35 3A 8D 31 34 39 30 3A 8B 4C 54 |:AL.15:.1490:.LT|
00000800: B2 30 A7 8E 00 15 10 20 03 4E 4C 24 28 58 2C 31 |.0..... .NL$(X,1|
00000810: 29 B2 53 54 24 00 46 10 2A 03 99 22 11 4E 55 4D |).ST$.F.*..".NUM|
00000820: 42 45 52 3F 22 3A 41 4C B2 31 39 3A 8D 31 35 36 |BER?":AL.19:.156|
00000830: 30 3A 8B 4C 54 B2 30 A7 4E 4C 24 28 58 2C 31 29 |0:.LT.0.NL$(X,1)|
00000840: B2 22 C3 22 3A 8E 00 59 10 34 03 4E 4C 24 28 58 |.".":..Y.4.NL$(X|
00000850: 2C 32 29 B2 53 54 24 3A 8E 00 70 10 3E 03 99 22 |,2).ST$:..p.>.."|
00000860: 93 11 44 45 4C 45 54 45 20 4E 55 4D 42 45 52 22 |..DELETE NUMBER"|
00000870: 00 7A 10 48 03 8D 31 39 37 30 00 A7 10 52 03 99 |.z.H..1970...R..|
00000880: 22 4E 55 4D 42 45 52 20 54 4F 20 44 45 4C 45 54 |"NUMBER TO DELET|
00000890: 45 3F 22 3A 41 4C B2 32 3A 8D 31 35 36 30 3A 58 |E?":AL.2:.1560:X|
000008A0: B2 C5 28 53 54 24 29 00 B5 10 5C 03 8B 58 B2 32 |..(ST$)...\..X.2|
000008B0: 30 A7 39 32 30 00 C1 10 66 03 8B 4C 54 B2 30 A7 |0.920...f..LT.0.|
000008C0: 8E 00 D3 10 70 03 8B 58 B2 39 39 A7 8D 31 39 31 |....p..X.99..191|
000008D0: 30 3A 8E 00 E5 10 7A 03 8B 58 B1 32 30 B0 58 B2 |0:....z..X.20.X.|
000008E0: 30 A7 38 33 30 00 F1 10 84 03 81 58 B2 58 A4 31 |0.830......X.X.1|
000008F0: 39 00 1F 11 8E 03 4E 4C 24 28 58 2C 31 29 B2 4E |9.....NL$(X,1).N|
00000900: 4C 24 28 58 AA 31 2C 31 29 3A 4E 4C 24 28 58 2C |L$(X.1,1):NL$(X,|
00000910: 32 29 B2 4E 4C 24 28 58 AA 31 2C 32 29 3A 82 00 |2).NL$(X.1,2):..|
00000920: 3A 11 98 03 81 58 B2 31 A4 32 3A 4E 4C 24 28 32 |:....X.1.2:NL$(2|
00000930: 30 2C 58 29 B2 22 C3 22 3A 82 00 40 11 A2 03 8E |0,X).".":..@....|
00000940: 00 6B 11 AC 03 54 54 24 B2 22 4C 4F 41 44 20 4E |.k...TT$."LOAD N|
00000950: 55 4D 42 45 52 53 22 3A 8D 31 38 30 30 3A 99 22 |UMBERS":.1800:."|
00000960: 11 46 49 4C 45 4E 41 4D 45 3F 22 00 83 11 B6 03 |.FILENAME?".....|
00000970: 41 4C B2 31 36 3A 8D 31 34 39 30 3A 8B 4C 54 B2 |AL.16:.1490:.LT.|
00000980: 30 A7 8E 00 96 11 C0 03 8D 31 39 32 30 3A 8B 47 |0........1920:.G|
00000990: B2 31 33 36 A7 8E 00 AA 11 CA 03 9F 38 2C 44 4E |.136........8,DN|
000009A0: 2C 30 2C 53 54 24 AA 44 52 24 00 E3 11 D4 03 84 |,0,ST$.DR$......|
000009B0: 38 2C 46 24 3A 8B 46 24 B3 B1 22 4E 55 4D 42 45 |8,F$:.F$.."NUMBE|
000009C0: 52 53 22 A7 99 22 11 46 49 4C 45 20 45 52 52 4F |RS"..".FILE ERRO|
000009D0: 52 22 3A 81 58 B2 31 A4 35 30 30 3A 82 3A 89 31 |R":.X.1.500:.:.1|
000009E0: 30 30 30 00 18 12 DE 03 99 22 11 4C 4F 41 44 49 |000......".LOADI|
000009F0: 4E 47 2E 2E 2E 22 3A 81 58 B2 31 A4 32 30 3A 84 |NG...":.X.1.20:.|
00000A00: 38 2C 4E 4C 24 28 58 2C 31 29 3A 84 38 2C 4E 4C |8,NL$(X,1):.8,NL|
00000A10: 24 28 58 2C 32 29 3A 82 00 21 12 E8 03 A0 38 3A |$(X,2):..!....8:|
00000A20: 8E 00 4C 12 F2 03 54 54 24 B2 22 53 41 56 45 20 |..L...TT$."SAVE |
00000A30: 4E 55 4D 42 45 52 53 22 3A 8D 31 38 30 30 3A 99 |NUMBERS":.1800:.|
00000A40: 22 11 46 49 4C 45 4E 41 4D 45 3F 22 00 65 12 FC |".FILENAME?".e..|
00000A50: 03 41 4C B2 31 36 3A 8D 31 34 39 30 3A 8B 4C 54 |.AL.16:.1490:.LT|
00000A60: B2 30 A7 20 8E 00 78 12 06 04 8D 31 39 32 30 3A |.0. ..x....1920:|
00000A70: 8B 47 B2 31 33 36 A7 8E 00 99 12 10 04 8B 44 4E |.G.136........DN|
00000A80: B2 38 A7 9F 31 35 2C 38 2C 31 35 2C 22 53 30 3A |.8..15,8,15,"S0:|
00000A90: 22 AA 53 54 24 3A A0 31 35 00 AD 12 1A 04 9F 38 |".ST$:.15......8|
00000AA0: 2C 44 4E 2C 31 2C 53 54 24 AA 44 57 24 00 CC 12 |,DN,1,ST$.DW$...|
00000AB0: 24 04 98 38 2C 22 4E 55 4D 42 45 52 53 22 3A 99 |$..8,"NUMBERS":.|
00000AC0: 22 11 53 41 56 49 4E 47 2E 2E 2E 22 00 F7 12 2E |".SAVING..."....|
00000AD0: 04 81 58 B2 31 A4 32 30 3A 98 38 2C 4E 4C 24 28 |..X.1.20:.8,NL$(|
00000AE0: 58 2C 31 29 3A 98 38 2C 4E 4C 24 28 58 2C 32 29 |X,1):.8,NL$(X,2)|
00000AF0: 3A 82 3A A0 38 3A 8E 00 0F 13 38 04 8F 20 50 52 |:.:.8:....8.. PR|
00000B00: 49 4E 54 20 4F 55 54 20 4E 55 4D 42 45 52 53 00 |INT OUT NUMBERS.|
00000B10: 31 13 42 04 54 54 24 B2 22 50 52 49 4E 54 20 4E |1.B.TT$."PRINT N|
00000B20: 55 4D 42 45 52 53 22 3A 8D 31 38 30 30 3A 58 B2 |UMBERS":.1800:X.|
00000B30: 31 00 56 13 4C 04 8B 58 B3 32 30 A7 8B 4E 4C 24 |1.V.L..X.20..NL$|
00000B40: 28 58 2C 31 29 B3 B1 22 C3 22 A7 58 B2 58 AA 31 |(X,1)..".".X.X.1|
00000B50: 3A 89 31 31 30 30 00 61 13 56 04 8B 58 B2 31 A7 |:.1100.a.V..X.1.|
00000B60: 8E 00 7A 13 60 04 9F 33 2C 34 3A 99 22 11 50 52 |..z.`..3,4:.".PR|
00000B70: 49 4E 54 49 4E 47 2E 2E 2E 22 00 89 13 6A 04 81 |INTING..."...j..|
00000B80: 59 B2 31 A4 58 AB 31 A9 32 00 C5 13 74 04 98 33 |Y.1.X.1.2...t..3|
00000B90: 2C 4E 4C 24 28 59 2C 31 29 3B A6 32 30 AB C3 28 |,NL$(Y,1);.20..(|
00000BA0: 4E 4C 24 28 59 2C 31 29 29 29 3B 4E 4C 24 28 59 |NL$(Y,1)));NL$(Y|
00000BB0: 2C 32 29 3B A6 32 30 AB C3 28 4E 4C 24 28 59 2C |,2);.20..(NL$(Y,|
00000BC0: 32 29 29 29 3B 00 F6 13 7E 04 98 33 2C 4E 4C 24 |2)));...~..3,NL$|
00000BD0: 28 59 AA 31 2C 31 29 3B A6 32 30 AB C3 28 4E 4C |(Y.1,1);.20..(NL|
00000BE0: 24 28 59 AA 31 2C 31 29 29 29 3B 4E 4C 24 28 59 |$(Y.1,1)));NL$(Y|
00000BF0: AA 31 2C 32 29 3B 00 11 14 88 04 98 33 2C A6 32 |.1,2);......3,.2|
00000C00: 30 AB C3 28 4E 4C 24 28 59 AA 31 2C 32 29 29 29 |0..(NL$(Y.1,2)))|
00000C10: 3B 00 2A 14 92 04 82 3A 98 33 2C C7 28 31 30 29 |;.*....:.3,.(10)|
00000C20: C7 28 31 30 29 3A A0 33 3A 8E 00 3C 14 9C 04 8F |.(10):.3:..<....|
00000C30: 20 46 49 4C 45 20 53 59 53 54 45 4D 00 58 14 A6 | FILE SYSTEM.X..|
00000C40: 04 54 54 24 B2 22 46 49 4C 45 20 53 59 53 54 45 |.TT$."FILE SYSTE|
00000C50: 4D 22 3A 8D 31 38 30 30 00 77 14 B0 04 99 54 4D |M":.1800.w....TM|
00000C60: 24 22 C2 46 31 C2 20 4C 4F 41 44 20 4E 55 4D 42 |$".F1. LOAD NUMB|
00000C70: 45 52 53 22 42 4D 24 00 96 14 BA 04 99 54 4D 24 |ERS"BM$......TM$|
00000C80: 22 C2 46 33 C2 20 53 41 56 45 20 4E 55 4D 42 45 |".F3. SAVE NUMBE|
00000C90: 52 53 22 42 4D 24 00 B2 14 C4 04 99 54 4D 24 22 |RS"BM$......TM$"|
00000CA0: C2 46 35 C2 20 44 49 52 45 43 54 4F 52 59 22 42 |.F5. DIRECTORY"B|
00000CB0: 4D 24 00 D0 14 CE 04 99 54 4D 24 22 C2 46 37 C2 |M$......TM$".F7.|
00000CC0: 20 51 55 49 54 20 53 59 53 54 45 4D 22 42 4D 24 | QUIT SYSTEM"BM$|
00000CD0: 00 DA 14 D8 04 8D 31 38 34 30 00 E7 14 E2 04 8B |......1840......|
00000CE0: 47 B2 31 33 36 A7 8E 00 F0 14 EC 04 99 22 93 22 |G.136........"."|
00000CF0: 00 28 15 F6 04 91 47 AB 31 33 32 8D 39 34 30 2C |.(....G.132.940,|
00000D00: 31 30 31 30 2C 31 32 38 30 2C 31 36 34 30 2C 31 |1010,1280,1640,1|
00000D10: 36 34 30 2C 31 36 34 30 2C 31 36 34 30 2C 31 36 |640,1640,1640,16|
00000D20: 34 30 3A 89 31 31 38 30 00 38 15 00 05 8F 20 44 |40:.1180.8.... D|
00000D30: 49 52 45 43 54 4F 52 59 00 4E 15 0A 05 9F 31 2C |IRECTORY.N....1,|
00000D40: 38 2C 30 2C 22 24 30 22 3A 99 22 12 22 3B 00 5C |8,0,"$0":.".";.\|
00000D50: 15 14 05 A1 23 31 2C 41 24 2C 41 24 00 70 15 1E |....#1,A$,A$.p..|
00000D60: 05 A1 23 31 2C 41 24 2C 41 24 2C 41 24 2C 42 24 |..#1,A$,A$,A$,B$|
00000D70: 00 88 15 28 05 43 B2 30 3A 8B 41 24 B3 B1 22 22 |...(.C.0:.A$..""|
00000D80: A7 43 B2 C6 28 41 24 29 00 A2 15 32 05 8B 42 24 |.C..(A$)...2..B$|
00000D90: B3 B1 22 22 A7 43 B2 43 AA C6 28 42 24 29 AC 32 |.."".C.C..(B$).2|
00000DA0: 35 36 00 BA 15 3C 05 99 CA 28 C4 28 43 29 2C 32 |56...<...(.(C),2|
00000DB0: 29 3B A3 33 29 3B 3A 59 B2 30 00 CF 15 46 05 A1 |);.3);:Y.0...F..|
00000DC0: 23 31 2C 42 24 3A 8B 59 B1 33 A7 31 34 33 30 00 |#1,B$:.Y.3.1430.|
00000DD0: E7 15 50 05 8B 42 24 B3 B1 51 24 A7 59 B2 59 AA |..P..B$..Q$.Y.Y.|
00000DE0: 31 3A 89 31 33 35 30 00 00 16 5A 05 81 58 B2 31 |1:.1350...Z..X.1|
00000DF0: A4 32 33 3A A1 23 31 2C 47 45 24 28 58 29 3A 82 |.23:.#1,GE$(X):.|
00000E00: 00 26 16 64 05 58 B2 58 AA 31 3A A1 23 31 2C 47 |.&.d.X.X.1:.#1,G|
00000E10: 45 24 28 58 29 3A 8B 47 45 24 28 58 29 B3 B1 22 |E$(X):.GE$(X).."|
00000E20: 22 A7 31 33 38 30 00 45 16 6E 05 99 51 24 3B 3A |".1380.E.n..Q$;:|
00000E30: 81 59 B2 31 A4 58 AB 31 3A 99 47 45 24 28 59 29 |.Y.1.X.1:.GE$(Y)|
00000E40: 3B 3A 82 3A 99 00 5A 16 78 05 A1 47 24 3A 8B 47 |;:.:..Z.x..G$:.G|
00000E50: 24 B2 22 85 22 A7 31 34 36 30 00 6B 16 82 05 8B |$.".".1460.k....|
00000E60: 47 24 B2 22 88 22 A7 A0 31 3A 8E 00 75 16 8C 05 |G$."."..1:..u...|
00000E70: 89 31 33 31 30 00 8C 16 96 05 99 22 20 42 4C 4F |.1310......" BLO|
00000E80: 43 4B 53 20 46 52 45 45 22 3A A0 31 00 9F 16 A0 |CKS FREE":.1....|
00000E90: 05 8D 31 36 35 30 3A 8B 47 B2 31 33 36 A7 8E 00 |..1650:.G.136...|
00000EA0: A9 16 AA 05 89 31 34 34 30 00 C0 16 B4 05 8D 31 |.....1440......1|
00000EB0: 36 35 30 3A 8B 47 B2 31 33 33 A7 89 31 33 31 30 |650:.G.133..1310|
00000EC0: 00 D0 16 BE 05 8B 47 B2 31 33 36 A7 A0 31 3A 8E |......G.136..1:.|
00000ED0: 00 DA 16 C8 05 89 31 34 36 30 00 F1 16 D2 05 8F |......1460......|
00000EE0: 20 45 44 49 54 4F 52 20 46 4F 52 20 4E 41 4D 45 | EDITOR FOR NAME|
00000EF0: 53 00 FB 16 DC 05 8D 31 39 30 30 00 05 17 E6 05 |S......1900.....|
00000F00: 8D 31 38 37 30 00 2E 17 F0 05 8B 28 28 47 B1 33 |.1870......((G.3|
00000F10: 34 AF 47 B3 39 36 29 B0 47 B2 33 32 B0 47 B2 33 |4.G.96).G.32.G.3|
00000F20: 33 29 AF 4C 54 B3 41 4C A7 8D 31 38 36 30 00 3F |3).LT.AL..1860.?|
00000F30: 17 FA 05 8B 47 B2 31 33 A7 99 22 20 22 3A 8E 00 |....G.13.." ":..|
00000F40: 51 17 04 06 8B 47 B2 31 33 36 A7 4C 54 B2 30 3A |Q....G.136.LT.0:|
00000F50: 8E 00 5B 17 0E 06 89 31 35 31 30 00 74 17 18 06 |..[....1510.t...|
00000F60: 8F 20 45 44 49 54 4F 52 20 46 4F 52 20 4E 55 4D |. EDITOR FOR NUM|
00000F70: 42 45 52 53 00 7E 17 22 06 8D 31 39 30 30 00 88 |BERS.~."..1900..|
00000F80: 17 2C 06 8D 31 38 37 30 00 A9 17 36 06 8B 47 B1 |.,..1870...6..G.|
00000F90: 34 37 AF 47 B3 35 38 AF 4C 54 B1 AB 31 AF 4C 54 |47.G.58.LT..1.LT|
00000FA0: B3 41 4C A7 8D 31 38 36 30 00 BA 17 40 06 8B 47 |.AL..1860...@..G|
00000FB0: B2 31 33 A7 99 22 20 22 3A 8E 00 CA 17 4A 06 8B |.13.." ":....J..|
00000FC0: 41 4C B1 32 A7 8D 32 30 32 30 00 DC 17 54 06 8B |AL.2..2020...T..|
00000FD0: 47 B2 31 33 36 A7 4C 54 B2 30 3A 8E 00 E6 17 5E |G.136.LT.0:....^|
00000FE0: 06 89 31 35 38 30 00 F1 17 68 06 99 22 93 22 3A |..1580...h..".":|
00000FF0: 8E 00 05 18 72 06 A1 47 24 3A 8B 47 24 B2 22 22 |....r..G$:.G$.""|
00001000: A7 31 36 35 30 00 2A 18 7C 06 8B 47 24 B1 B2 22 |.1650.*.|..G$.."|
00001010: C1 22 AF 47 24 B3 B2 22 DA 22 A7 47 24 B2 C7 28 |.".G$..".".G$..(|
00001020: C6 28 47 24 29 AB 31 32 38 29 00 38 18 86 06 47 |.(G$).128).8...G|
00001030: B2 C6 28 47 24 29 3A 8E 00 55 18 90 06 54 54 24 |..(G$):..U...TT$|
00001040: B2 22 51 55 49 54 20 50 52 4F 47 52 41 4D 22 3A |."QUIT PROGRAM":|
00001050: 8D 31 38 30 30 00 6E 18 9A 06 99 22 11 41 52 45 |.1800.n....".ARE|
00001060: 20 59 4F 55 20 53 55 52 45 3F 20 20 22 3B 00 89 | YOU SURE? ";..|
00001070: 18 A4 06 8D 31 36 35 30 3A 8B 47 B2 38 39 A7 99 |....1650:.G.89..|
00001080: 22 59 22 3A 89 31 37 34 30 00 96 18 AE 06 8B 47 |"Y":.1740......G|
00001090: B2 31 33 36 A7 8E 00 A6 18 B8 06 8B 47 B3 B1 37 |.136........G..7|
000010A0: 38 A7 31 37 30 30 00 B1 18 C2 06 99 22 4E 22 3A |8.1700......"N":|
000010B0: 8E 00 DE 18 CC 06 99 22 11 44 4F 20 59 4F 55 20 |.......".DO YOU |
000010C0: 57 49 53 48 20 54 4F 20 53 41 56 45 20 59 4F 55 |WISH TO SAVE YOU|
000010D0: 52 20 4E 55 4D 42 45 52 53 3F 20 20 22 3B 00 FE |R NUMBERS? ";..|
000010E0: 18 D6 06 8D 31 36 35 30 3A 8B 47 B2 38 39 A7 99 |....1650:.G.89..|
000010F0: 47 24 3A 8D 31 30 31 30 3A 89 31 37 39 30 00 0B |G$:.1010:.1790..|
00001100: 19 E0 06 8B 47 B2 31 33 36 A7 8E 00 1B 19 EA 06 |....G.136.......|
00001110: 8B 47 B3 B1 37 38 A7 31 37 35 30 00 23 19 F4 06 |.G..78.1750.#...|
00001120: 99 47 24 00 43 19 FE 06 97 38 30 38 2C 32 33 37 |.G$.C....808,237|
00001130: 3A 80 3A 97 38 30 38 2C 32 33 34 3A 47 B2 31 34 |:.:.808,234:G.14|
00001140: 30 3A 8E 00 63 19 08 07 99 22 93 11 22 3B A3 31 |0:..c...."..";.1|
00001150: 34 29 3B 22 50 48 4F 4E 45 20 4D 41 53 54 45 52 |4);"PHONE MASTER|
00001160: 22 3A 99 00 81 19 12 07 99 A3 32 30 AB B5 28 28 |":........20..((|
00001170: C3 28 54 54 24 29 AA 31 29 AD 32 29 29 3B 54 54 |.(TT$).1).2));TT|
00001180: 24 00 9D 19 1C 07 81 58 B2 31 A4 31 30 3A 99 22 |$......X.1.10:."|
00001190: AF AF AF AF 22 3B 3A 82 3A 99 22 11 22 00 A3 19 |....";:.:."."...|
000011A0: 26 07 8E 00 BF 19 30 07 8D 31 36 35 30 3A 8B 47 |&.....0..1650:.G|
000011B0: B3 31 33 33 B0 47 B1 31 34 30 A7 31 38 34 30 00 |.133.G.140.1840.|
000011C0: C5 19 3A 07 8E 00 DE 19 44 07 99 47 24 43 55 24 |..:.....D..G$CU$|
000011D0: 3B 3A 53 54 24 B2 53 54 24 AA 47 24 3A 8E 00 F9 |;:ST$.ST$.G$:...|
000011E0: 19 4E 07 4C 54 B2 C3 28 53 54 24 AA C7 28 30 29 |.N.LT..(ST$..(0)|
000011F0: 29 AB 31 3A 8D 31 36 35 30 00 20 1A 58 07 8B 47 |).1:.1650. .X..G|
00001200: B2 32 30 AF 4C 54 B1 30 A7 99 47 24 43 55 24 3B |.20.LT.0..G$CU$;|
00001210: 3A 53 54 24 B2 C8 28 53 54 24 2C 4C 54 AB 31 29 |:ST$..(ST$,LT.1)|
00001220: 00 26 1A 62 07 8E 00 3D 1A 6C 07 99 22 3E 22 3B |.&.b...=.l..">";|
00001230: 43 55 24 3B 3A 53 54 24 B2 22 22 3A 8E 00 64 1A |CU$;:ST$."":..d.|
00001240: 76 07 81 58 B2 31 A4 32 30 3A 81 59 B2 31 A4 32 |v..X.1.20:.Y.1.2|
00001250: 3A 4E 4C 24 28 58 2C 59 29 B2 22 C3 22 3A 82 59 |:NL$(X,Y).".":.Y|
00001260: 2C 58 3A 8E 00 94 1A 80 07 44 4E B2 31 3A 44 57 |,X:......DN.1:DW|
00001270: 24 B2 22 22 3A 44 52 24 B2 22 22 3A 99 22 11 12 |$."":DR$."":."..|
00001280: 44 92 49 53 4B 20 4F 52 20 12 54 92 41 50 45 3F |D.ISK OR .T.APE?|
00001290: 20 20 22 3B 00 AD 1A 8A 07 8D 31 36 35 30 3A 8B | ";......1650:.|
000012A0: 47 B2 38 34 A7 99 47 24 22 11 22 3A 8E 00 BA 1A |G.84..G$".":....|
000012B0: 94 07 8B 47 B2 31 33 36 A7 8E 00 CA 1A 9E 07 8B |...G.136........|
000012C0: 47 B3 B1 36 38 A7 31 39 33 30 00 EF 1A A8 07 99 |G..68.1930......|
000012D0: 47 24 3A 44 4E B2 38 3A 44 57 24 B2 22 2C 53 2C |G$:DN.8:DW$.",S,|
000012E0: 57 22 3A 44 52 24 B2 22 2C 53 2C 52 22 3A 8E 00 |W":DR$.",S,R":..|
000012F0: 07 1B B2 07 81 58 B2 31 A4 32 30 3A 8B 58 B3 31 |.....X.1.20:.X.1|
00001300: 30 A7 99 22 30 22 3B 00 2E 1B BC 07 99 CA 28 C4 |0.."0";.......(.|
00001310: 28 58 29 2C 32 29 22 3A 20 22 4E 4C 24 28 58 2C |(X),2)": "NL$(X,|
00001320: 31 29 A3 32 30 29 4E 4C 24 28 58 2C 32 29 00 36 |1).20)NL$(X,2).6|
00001330: 1B C6 07 82 3A 8E 00 4C 1B D0 07 99 41 4D 24 A3 |....:..L....AM$.|
00001340: 32 30 29 54 4D 24 22 C2 22 3B 3A 8E 00 5E 1B DA |20)TM$".";:..^..|
00001350: 07 99 42 4D 24 A3 32 30 29 43 4D 24 3A 8E 00 9A |..BM$.20)CM$:...|
00001360: 1B E4 07 8B 28 47 B2 33 32 B0 47 B2 34 35 B0 47 |....(G.32.G.45.G|
00001370: B2 34 31 B0 47 B2 34 30 B0 47 B2 34 32 B0 47 B2 |.41.G.40.G.42.G.|
00001380: 33 35 B0 47 B2 38 30 29 AF 4C 54 B1 AB 31 AF 4C |35.G.80).LT..1.L|
00001390: 54 B3 41 4C A7 8D 31 38 36 30 00 A0 1B EE 07 8E |T.AL..1860......|
000013A0: 00 C4 1B B8 0B 54 54 24 B2 22 47 45 4E 45 52 41 |.....TT$."GENERA|
000013B0: 4C 20 49 4E 46 4F 52 4D 41 54 49 4F 4E 22 3A 8D |L INFORMATION":.|
000013C0: 31 38 30 30 00 F3 1B C2 0B 99 22 91 20 50 48 4F |1800......". PHO|
000013D0: 4E 45 20 4D 41 53 54 45 52 20 28 43 29 20 31 39 |NE MASTER (C) 19|
000013E0: 38 38 20 42 59 20 44 41 4E 20 5A 45 52 4B 4C 45 |88 BY DAN ZERKLE|
000013F0: 22 3A 99 00 1F 1C CC 0B 99 22 20 50 45 52 4D 49 |":......." PERMI|
00001400: 53 53 49 4F 4E 20 49 53 20 47 52 41 4E 54 45 44 |SSION IS GRANTED|
00001410: 20 54 4F 20 55 53 45 2C 20 43 4F 50 59 2C 22 00 | TO USE, COPY,".|
00001420: 4E 1C D6 0B 99 22 20 4D 4F 44 49 46 59 2C 20 41 |N...." MODIFY, A|
00001430: 4E 44 20 44 49 53 54 52 49 42 55 54 45 20 54 48 |ND DISTRIBUTE TH|
00001440: 49 53 20 50 52 4F 47 52 41 4D 20 49 4E 22 00 7C |IS PROGRAM IN".||
00001450: 1C E0 0B 99 22 20 41 4E 59 20 46 4F 52 4D 2C 20 |...." ANY FORM, |
00001460: 42 55 54 20 4E 4F 54 20 54 4F 20 53 45 4C 4C 2C |BUT NOT TO SELL,|
00001470: 20 53 4F 20 4C 4F 4E 47 20 41 53 22 00 A3 1C EA | SO LONG AS"....|
00001480: 0B 99 22 20 54 48 49 53 20 4E 4F 54 49 43 45 20 |.." THIS NOTICE |
00001490: 49 53 20 4E 4F 54 20 4D 4F 44 49 46 49 45 44 2E |IS NOT MODIFIED.|
000014A0: 22 3A 99 00 D0 1C F4 0B 99 22 20 49 46 20 59 4F |":......." IF YO|
000014B0: 55 20 55 53 45 20 54 48 49 53 20 50 52 4F 47 52 |U USE THIS PROGR|
000014C0: 41 4D 2C 20 50 4C 45 41 53 45 20 53 45 4E 44 22 |AM, PLEASE SEND"|
000014D0: 00 FA 1C FE 0B 99 22 20 24 35 2E 30 30 20 4F 52 |......" $5.00 OR|
000014E0: 20 57 48 41 54 45 56 45 52 20 59 4F 55 20 54 48 | WHATEVER YOU TH|
000014F0: 49 4E 4B 20 49 54 20 49 53 22 00 0E 1D 08 0C 99 |INK IT IS"......|
00001500: 22 20 57 4F 52 54 48 20 54 4F 3A 22 3A 99 00 23 |" WORTH TO:":..#|
00001510: 1D 12 0C 99 22 20 20 20 44 41 4E 20 5A 45 52 4B |...." DAN ZERK|
00001520: 4C 45 22 00 3F 1D 1C 0C 99 22 20 20 20 31 36 33 |LE".?...." 163|
00001530: 32 20 56 41 4C 4C 45 44 41 20 4C 41 4E 45 22 00 |2 VALLEDA LANE".|
00001540: 60 1D 26 0C 99 22 20 20 20 45 4E 43 49 4E 49 54 |`.&.." ENCINIT|
00001550: 41 53 2C 20 43 41 20 20 39 32 30 32 34 22 3A 99 |AS, CA 92024":.|
00001560: 00 8F 1D 30 0C 99 22 20 59 4F 55 20 57 49 4C 4C |...0.." YOU WILL|
00001570: 20 52 45 43 45 49 56 45 20 50 52 49 4E 54 45 44 | RECEIVE PRINTED|
00001580: 20 44 4F 43 55 4D 45 4E 54 41 54 49 4F 4E 22 00 | DOCUMENTATION".|
00001590: BC 1D 3A 0C 99 22 20 41 4E 44 20 46 52 45 45 20 |..:.." AND FREE |
000015A0: 55 50 44 41 54 45 53 20 4F 46 20 54 48 49 53 20 |UPDATES OF THIS |
000015B0: 50 52 4F 47 52 41 4D 20 41 4E 44 22 00 DF 1D 44 |PROGRAM AND"...D|
000015C0: 0C 99 22 20 4F 54 48 45 52 20 46 52 45 45 57 41 |.." OTHER FREEWA|
000015D0: 52 45 20 49 20 52 45 4C 45 41 53 45 2E 22 3B 00 |RE I RELEASE.";.|
000015E0: EB 1D 4E 0C 8D 31 36 35 30 3A 8E 00 00 00 |..N..1650:.... |
..!....808,234:.53280,4:.53281,11.>....G
(8)G(142)"..........";.U.....14)"PHONE M
ASTER.[.(...M.2...14)" BY.S.<.....F.
..14)" DAN ZERKLE...P..NL$(20,2),GE$(26)
,CH(2),CL(2),RH(3),RL(3)...Z.CU$.". ..":
Q$.G(34):CR$.G(13):AM$."UCCI":CM$."JCCK"
...D.TM$.AM$.CR$:BM$.CR$.CM$...N..1910.0
.X..N.0.3:.RH(N),RL(N):..O....44,137,49,
51,54,112,60,32.I....N.0.2:.CH(N),CL(N):
.......77,64,85,94,94,96... .V1.54272:V2
.V1.7:.V1.24,15......V1.5,0:.V1.6,240.K.
...V2.5,0:.V2.6,240.Z....3000:.590...H..
C(NB$).0.....R..J.1.C(NB$).....N$.J(NB$,
J,1)......N.1.5:.:.N$;.2....N$."0".N$."1
1".F....N$."*".N$."10".Z....N$."#".N$."1
2".....N$." ".N$."-".N$."(".N$.")".350.
.....N$."P"..X.1.4550:.:.350...".VA.E(N$
).1:R%.VA.3:C%.VA.3.R%.Z.,..V1.1,RH(R%):
.V1,RL(R%)...6..V2.1,CH(C%):.V2,CL(C%)..
.@..V1.4,17:.V2.4,17...J..N.1.50:....T..
V1.4,0:.V2.4,0.6.^..:..V.H.TT$."DIAL NEW
NUMBER":.1800.Z.R..".NUMBER TO DIAL?":A
L.37:.1560...|..LT.0.......NB$.ST$:.200:
......TT$."DIAL NUMBER":.1800.W....TM$"B
F1B DIAL NEW NUMBER"BM$......TM$"BF3B DI
AL LAST NUMBER"BM$......TM$"BF5B DIAL NE
XT NUMBER"BM$.;....TM$"BF7B QUIT SYSTEM"
BM$.E.B..1840.R.L..G.136...[.V..".".....
.G.132.360,580,490,1640,1640,1640,1640,1
640:.400.....TT$."DIAL NEXT NUMBER":.180
0:..W....C(NB$).4.."CAN'T":.X.1.500:.:..
....R4$.I(NB$,4).....R4$.D(E(R4$).1)....
.R4$.I(R4$,C(R4$).1).-....C(R4$).4.R4$."
0000".L.&..C(R4$).4.R4$."0".R4$:.550.H.0
.NB$.H(NB$,C(NB$).4).R4$.Q.:..200...D.TT
$."REDIAL LAST NUMBER":.1800:.:.200...N.
TT$."MAIN MENU":.1800...X..2000...B.."F1
B DIAL FROM LIST";.20);"BF2B DIAL OTHER"
;:.2010...L..2000.4.V.."F3B ADD NUMBER".
20)"BF4B FILE SYSTEM";:.2010.>....2000.X
...."F5B DELETE NUMBER";.20);"BF6B PRINT
NUMBERS";:.2010......TM$"BF7B QUIT PROG
RAM"BM$......1840.U....G.132.690,760,830
,1680,400,1180,1080,1640:.590......"..DI
AL NUMBER FROM LIST":.X.1.20......1970.1
.F.."NUMBER TO DIAL?":AL.2:.1560:X.E(ST$
).=.P..LT.0...O.Z..X.20.X.1.690.C....NL$
(X,1)."C"...{...NB$.NL$(X,2):.200:......
TT$."ADD NUMBER":.1800:X.1......X.21..NL
$(X,2).."C".X.X.1:.770......X.20.."LIST
FULL":.X.1.500:.:.......".NAME?":AL.15:.
1490:.LT.0..... .NL$(X,1).ST$.F.*..".NUM
BER?":AL.19:.1560:.LT.0.NL$(X,1)."C":..Y
.4.NL$(X,2).ST$:..P.>.."..DELETE NUMBER"
.Z.H..1970...R.."NUMBER TO DELETE?":AL.2
:.1560:X.E(ST$)...\..X.20.920.A.F..LT.0.
..S.P..X.99..1910:....Z..X.20.X.0.830...
...X.X.19.....NL$(X,1).NL$(X.1,1):NL$(X,
2).NL$(X.1,2):..:....X.1.2:NL$(20,X)."C"
:..@.....K...TT$."LOAD NUMBERS":.1800:."
.FILENAME?".....AL.16:.1490:.LT.0.......
.1920:.G.136.....J..8,DN,0,ST$.DR$...T..
8,F$:.F$.."NUMBERS"..".FILE ERROR":.X.1.
500:.:.1000......".LOADING...":.X.1.20:.
8,NL$(X,1):.8,NL$(X,2):..!... 8:..L...TT
$."SAVE NUMBERS":.1800:.".FILENAME?".E..
.AL.16:.1490:.LT.0. ..X....1920:.G.136..
......DN.8..15,8,15,"S0:".ST$: 15......8
,DN,1,ST$.DW$.L.$..8,"NUMBERS":.".SAVING
..."......X.1.20:.8,NL$(X,1):.8,NL$(X,2)
:.: 8:....8.. PRINT OUT NUMBERS.1.B.TT$.
"PRINT NUMBERS":.1800:X.1.V.L..X.20..NL$
(X,1).."C".X.X.1:.1100.A.V..X.1...Z.`..3
,4:.".PRINTING..."...J..Y.1.X.1.2.E.T..3
,NL$(Y,1);.20.C(NL$(Y,1)));NL$(Y,2);.20.
C(NL$(Y,2)));...~..3,NL$(Y.1,1);.20.C(NL
$(Y.1,1)));NL$(Y.1,2);......3,.20.C(NL$(
Y.1,2)));.*....:.3,G(10)G(10): 3:..<....
FILE SYSTEM.X...TT$."FILE SYSTEM":.1800
.W....TM$"BF1B LOAD NUMBERS"BM$......TM$
"BF3B SAVE NUMBERS"BM$...D..TM$"BF5B DIR
ECTORY"BM$.P.N..TM$"BF7B QUIT SYSTEM"BM$
.Z.X..1840......G.136........".".(....G.
132.940,1010,1280,1640,1640,1640,1640,16
40:.1180.8.... DIRECTORY.N....1,8,0,"$0"
:.".";.\....#1,A$,A$.P....#1,A$,A$,A$,B$
...(.C.0:.A$.."".C.F(A$)...2..B$.."".C.C
.F(B$).256...<..J(D(C),2);.3);:Y.0.O.F..
#1,B$:.Y.3.1430...P..B$..Q$.Y.Y.1:.1350.
..Z..X.1.23:.#1,GE$(X):..&.D.X.X.1:.#1,G
E$(X):.GE$(X).."".1380.E.N..Q$;:.Y.1.X.1
:.GE$(Y);:.:..Z.X..G$:.G$.".".1460.K....
G$.".". 1:..U....1310......" BLOCKS FREE
": 1... ..1650:.G.136........1440......1
650:.G.133..1310.P....G.136. 1:..Z.H..14
60...R.. EDITOR FOR NAMES......1900.....
.1870......((G.34.G.96).G.32.G.33).LT.AL
..1860.?....G.13.." ":..Q....G.136.LT.0:
..[....1510.T.... EDITOR FOR NUMBERS.~."
..1900...,..1870...6..G.47.G.58.LT..1.LT
.AL..1860...@..G.13.." ":..J.J..AL.2..20
20...T..G.136.LT.0:....^..1580...H..".":
....R..G$:.G$."".1650.*.|..G$.."A".G$.."
Z".G$.G(F(G$).128).8...G.F(G$):..U...TT$
."QUIT PROGRAM":.1800.N....".ARE YOU SUR
E? ";......1650:.G.89.."Y":.1740......G
.136........G..78.1700...B.."N":....L.."
.DO YOU WISH TO SAVE YOUR NUMBERS? ";..
.V..1650:.G.89..G$:.1010:.1790......G.13
6........G..78.1750.#....G$.C....808,237
:.:.808,234:G.140:..C...."..";.14);"PHON
E MASTER":........20..((C(TT$).1).2));TT
$......X.1.10:."....";:.:."."...&.....0.
.1650:.G.133.G.140.1840.E.:.....D..G$CU$
;:ST$.ST$.G$:....N.LT.C(ST$.G(0)).1:.165
0. .X..G.20.LT.0..G$CU$;:ST$.H(ST$,LT.1)
.&.B...=.L..">";CU$;:ST$."":..D.V..X.1.2
0:.Y.1.2:NL$(X,Y)."C":.Y,X:......DN.1:DW
$."":DR$."":."..D.ISK OR .T.APE? ";....
..1650:.G.84..G$".":.......G.136...J....
G..68.1930......G$:DN.8:DW$.",S,W":DR$."
,S,R":.......X.1.20:.X.10.."0";......J(D
(X),2)": "NL$(X,1).20)NL$(X,2).6.F..:..L
.P..AM$.20)TM$"B";:..^.Z..BM$.20)CM$:...
....(G.32.G.45.G.41.G.40.G.42.G.35.G.80)
.LT..1.LT.AL..1860. .....D...TT$."GENERA
L INFORMATION":.1800...B..". PHONE MASTE
R (C) 1988 BY DAN ZERKLE":....L.." PERMI
SSION IS GRANTED TO USE, COPY,".N.V.." M
ODIFY, AND DISTRIBUTE THIS PROGRAM IN".|
...." ANY FORM, BUT NOT TO SELL, SO LONG
AS"......" THIS NOTICE IS NOT MODIFIED.
":..P...." IF YOU USE THIS PROGRAM, PLEA
SE SEND"......" $5.00 OR WHATEVER YOU TH
INK IT IS"......" WORTH TO:":..#...."
DAN ZERKLE".?...." 1632 VALLEDA LANE".
`.&.." ENCINITAS, CA 92024":....0.."
YOU WILL RECEIVE PRINTED DOCUMENTATION".
..:.." AND FREE UPDATES OF THIS PROGRAM
AND"...D.." OTHER FREEWARE I RELEASE.";.
..N..1650:....
> CLICK IMAGE PREVIEW FOR FULL MODAL