1670 AUTODIAL
FILE INFORMATION
FILENAME(S): 1670 AUTODIAL
FILE TYPE(S): PRG
FILE SIZE: 3.9K
FIRST SEEN: 2025-11-30 18:12:44
APPEARS ON: 1 disk(s)
FILE HASH
b3008ce9b2facb8d621df3dbe6875e95675b2b811d323b6ce647d93cbd7f7e16
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| RERUN PROD PAK | 1670 AUTODIAL | PRG | Sailor, Ganheden | 13 | 8 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 28 08 0A 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |..(.... ********|
00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000020: 2A 2A 2A 2A 2A 2A 2A 2A 00 4F 08 14 00 8F 20 2A |********.O.... *|
00000030: 2A 2A 2A 2A 2A 2A 2A 20 31 36 37 30 20 41 55 54 |******* 1670 AUT|
00000040: 4F 44 49 41 4C 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |ODIAL *********.|
00000050: 76 08 1E 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |v.... **********|
00000060: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000070: 2A 2A 2A 2A 2A 2A 00 9D 08 28 00 8F 20 2A 2A 2A |******...(.. ***|
00000080: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 20 42 59 20 2A 2A |********** BY **|
00000090: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 C4 08 |*************...|
000000A0: 32 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |2.. ************|
000000B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000000C0: 2A 2A 2A 2A 00 EB 08 3C 00 8F 20 2A 2A 2A 2A 2A |****...<.. *****|
000000D0: 2A 2A 2A 20 44 41 56 49 44 20 42 52 41 44 4C 45 |*** DAVID BRADLE|
000000E0: 59 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 12 09 46 00 |Y *********...F.|
000000F0: 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |. **************|
00000100: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000110: 2A 2A 00 18 09 50 00 3A 00 2D 09 5A 00 9F 32 2C |**...P.:.-.Z..2,|
00000120: 32 2C 30 2C C7 28 36 29 AA C7 28 30 29 00 6D 09 |2,0,.(6)..(0).m.|
00000130: 64 00 8F 20 4F 50 45 4E 31 35 2C 38 2C 31 35 2C |d.. OPEN15,8,15,|
00000140: 22 53 30 3A 31 36 37 30 22 3A 43 4C 4F 53 45 31 |"S0:1670":CLOSE1|
00000150: 35 3A 53 41 56 45 22 31 36 37 30 22 2C 38 3A 56 |5:SAVE"1670",8:V|
00000160: 45 52 49 46 59 22 31 36 37 30 22 2C 38 00 7B 09 |ERIFY"1670",8.{.|
00000170: 6E 00 98 32 2C 22 C1 D4 D6 30 22 00 81 09 78 00 |n..2,"...0"...x.|
00000180: 3A 00 A2 09 82 00 8F 20 20 20 20 20 20 2A 2A 2A |:...... ***|
00000190: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000001A0: 2A 2A 00 C3 09 8C 00 8F 20 20 20 20 20 20 2A 2A |**...... **|
000001B0: 2A 20 56 41 52 49 41 42 4C 45 20 4C 49 53 54 20 |* VARIABLE LIST |
000001C0: 2A 2A 2A 00 E4 09 96 00 8F 20 20 20 20 20 20 2A |***...... *|
000001D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000001E0: 2A 2A 2A 2A 00 EA 09 A0 00 3A 00 07 0A AA 00 8F |****.....:......|
000001F0: 20 41 24 20 20 3D 20 49 4E 50 55 54 20 46 52 4F | A$ = INPUT FRO|
00000200: 4D 20 4D 4F 44 45 4D 00 2D 0A B4 00 8F 20 45 52 |M MODEM.-.... ER|
00000210: 20 20 3D 20 4D 4F 44 45 4D 20 4E 4F 20 52 45 53 | = MODEM NO RES|
00000220: 50 4F 4E 44 20 54 49 4D 45 2D 4F 55 54 00 4F 0A |POND TIME-OUT.O.|
00000230: BE 00 8F 20 4C 20 20 20 3D 20 53 4F 55 4E 44 20 |... L = SOUND |
00000240: 52 4F 55 54 49 4E 45 20 43 4F 55 4E 54 45 52 00 |ROUTINE COUNTER.|
00000250: 6F 0A C8 00 8F 20 53 20 20 20 3D 20 53 49 44 20 |o.... S = SID |
00000260: 52 45 46 45 52 45 4E 43 45 20 56 41 4C 55 45 00 |REFERENCE VALUE.|
00000270: 86 0A D2 00 8F 20 58 58 20 20 3D 20 54 49 4D 45 |..... XX = TIME|
00000280: 20 44 45 4C 41 59 00 9E 0A DC 00 8F 20 41 42 20 | DELAY...... AB |
00000290: 20 3D 20 41 42 4F 52 54 20 43 48 45 43 4B 00 B4 | = ABORT CHECK..|
000002A0: 0A E6 00 8F 20 41 42 24 20 3D 20 41 42 4F 52 54 |.... AB$ = ABORT|
000002B0: 20 47 45 54 00 D8 0A F0 00 8F 20 49 20 20 20 3D | GET...... I =|
000002C0: 20 54 49 4D 45 20 44 45 4C 41 59 2F 4D 49 53 43 | TIME DELAY/MISC|
000002D0: 20 43 4F 55 4E 54 45 52 00 EB 0A FA 00 8F 20 47 | COUNTER...... G|
000002E0: 24 20 20 3D 20 59 45 53 2F 4E 4F 00 06 0B 04 01 |$ = YES/NO.....|
000002F0: 8F 20 4E 55 24 20 3D 20 4E 55 4D 42 45 52 20 54 |. NU$ = NUMBER T|
00000300: 4F 20 44 49 41 4C 00 1F 0B 0E 01 8F 20 4D 53 24 |O DIAL...... MS$|
00000310: 20 3D 20 4D 4F 44 45 4D 20 53 54 41 54 55 53 00 | = MODEM STATUS.|
00000320: 3E 0B 18 01 8F 20 4E 41 20 20 3D 20 4E 55 4D 42 |>.... NA = NUMB|
00000330: 45 52 20 4F 46 20 41 54 54 45 4D 50 54 53 00 58 |ER OF ATTEMPTS.X|
00000340: 0B 19 01 8F 20 50 54 24 20 3D 20 50 55 4C 53 45 |.... PT$ = PULSE|
00000350: 20 4F 52 20 54 4F 4E 45 00 72 0B 1A 01 8F 20 50 | OR TONE.r.... P|
00000360: 54 20 20 3D 20 50 55 4C 53 45 20 4F 52 20 54 4F |T = PULSE OR TO|
00000370: 4E 45 00 78 0B 22 01 3A 00 91 0B 2C 01 8F 20 20 |NE.x.".:...,.. |
00000380: 20 20 20 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | ************|
00000390: 2A 00 AA 0B 36 01 8F 20 20 20 20 20 20 2A 2A 2A |*...6.. ***|
000003A0: 20 53 45 54 55 50 20 2A 2A 2A 00 C3 0B 40 01 8F | SETUP ***...@..|
000003B0: 20 20 20 20 20 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | **********|
000003C0: 2A 2A 2A 00 C9 0B 4A 01 3A 00 D2 0B 54 01 99 22 |***...J.:...T.."|
000003D0: 93 22 00 E2 0B 5E 01 99 C7 28 31 34 29 2C C7 28 |."...^...(14),.(|
000003E0: 38 29 00 EB 0B 68 01 58 58 B2 30 00 F5 0B 72 01 |8)...h.XX.0...r.|
000003F0: 41 24 B2 22 22 00 00 0C 7C 01 41 42 24 B2 22 22 |A$.""...|.AB$.""|
00000400: 00 09 0C 86 01 45 52 B2 30 00 13 0C 90 01 47 24 |.....ER.0.....G$|
00000410: B2 22 22 00 1B 0C 9A 01 49 B2 30 00 23 0C A4 01 |."".....I.0.#...|
00000420: 4C B2 30 00 2B 0C AE 01 53 B2 30 00 36 0C B8 01 |L.0.+...S.0.6...|
00000430: 4E 55 24 B2 22 22 00 41 0C C2 01 4D 53 24 B2 22 |NU$."".A...MS$."|
00000440: 22 00 4A 0C CC 01 4E 41 B2 31 00 53 0C D6 01 41 |".J...NA.1.S...A|
00000450: 42 B2 30 00 60 0C E0 01 97 35 33 32 38 30 2C 30 |B.0.`....53280,0|
00000460: 00 6D 0C EA 01 97 35 33 32 38 31 2C 30 00 76 0C |.m....53281,0.v.|
00000470: F4 01 99 22 05 22 00 7C 0C FE 01 3A 00 95 0C 08 |...".".|...:....|
00000480: 02 8F 20 20 20 20 20 20 2A 2A 2A 2A 2A 2A 2A 2A |.. ********|
00000490: 2A 2A 2A 2A 2A 00 AE 0C 12 02 8F 20 20 20 20 20 |*****...... |
000004A0: 20 2A 2A 2A 20 53 54 41 52 54 20 2A 2A 2A 00 C7 | *** START ***..|
000004B0: 0C 1C 02 8F 20 20 20 20 20 20 2A 2A 2A 2A 2A 2A |.... ******|
000004C0: 2A 2A 2A 2A 2A 2A 2A 00 CD 0C 26 02 3A 00 EC 0C |*******...&.:...|
000004D0: 30 02 58 58 B2 32 35 30 3A 8D 31 32 36 30 3A 8B |0.XX.250:.1260:.|
000004E0: 50 54 24 B2 22 22 A7 8D 31 36 35 30 00 1C 0D 3A |PT$.""..1650...:|
000004F0: 02 99 22 13 11 11 11 20 20 20 20 20 20 31 36 37 |..".... 167|
00000500: 30 20 C1 55 54 4F 44 49 41 4C 20 C2 59 20 C4 41 |0 .UTODIAL .Y .A|
00000510: 56 49 44 20 C2 52 41 44 4C 45 59 22 00 4D 0D 44 |VID .RADLEY".M.D|
00000520: 02 99 22 13 11 11 11 11 20 20 20 20 20 20 2D 2D |.."..... --|
00000530: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000540: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 74 0D |------------".t.|
00000550: 4E 02 99 22 13 11 11 11 11 11 11 11 11 28 D0 52 |N..".........(.R|
00000560: 45 53 53 20 D2 C5 D4 D5 D2 CE 20 D4 4F 20 D1 55 |ESS ...... .O .U|
00000570: 49 54 29 22 00 A7 0D 58 02 99 22 13 11 11 11 11 |IT)"...X..".....|
00000580: 11 11 C9 CE D0 D5 D4 20 CE 55 4D 42 45 52 20 D4 |....... .UMBER .|
00000590: 4F 20 22 3B 50 54 24 3B 22 20 C4 49 41 4C 1D 1D |O ";PT$;" .IAL..|
000005A0: 1D 2A 9D 9D 9D 22 3B 00 B1 0D 62 02 85 20 4E 55 |.*...";...b.. NU|
000005B0: 24 00 C1 0D 6C 02 81 49 B2 31 A4 C3 28 4E 55 24 |$...l..I.1..(NU$|
000005C0: 29 00 D9 0D 76 02 8B CA 28 4E 55 24 2C 49 2C 31 |)...v...(NU$,I,1|
000005D0: 29 B2 22 23 22 A7 36 37 35 00 F1 0D 80 02 8B CA |)."#".675.......|
000005E0: 28 4E 55 24 2C 49 2C 31 29 B2 22 2A 22 A7 36 37 |(NU$,I,1)."*".67|
000005F0: 35 00 09 0E 8A 02 8B CA 28 4E 55 24 2C 49 2C 31 |5.......(NU$,I,1|
00000600: 29 B2 22 2D 22 A7 36 37 35 00 23 0E 94 02 8B C6 |)."-".675.#.....|
00000610: 28 CA 28 4E 55 24 2C 49 2C 31 29 29 B1 35 37 A7 |(.(NU$,I,1)).57.|
00000620: 36 39 30 00 3D 0E 9E 02 8B C6 28 CA 28 4E 55 24 |690.=.....(.(NU$|
00000630: 2C 49 2C 31 29 29 B3 34 38 A7 36 39 30 00 44 0E |,I,1)).48.690.D.|
00000640: A3 02 82 49 00 4D 0E A8 02 89 37 30 30 00 90 0E |...I.M....700...|
00000650: B2 02 8D 31 33 34 30 3A 99 22 11 C5 52 52 4F 52 |...1340:."..RROR|
00000660: 20 C9 4E 20 CE 55 4D 42 45 52 20 C9 4E 50 55 54 | .N .UMBER .NPUT|
00000670: 2E 2E 2E D2 45 2D C5 4E 54 45 52 2E 22 3A 58 58 |....E-.NTER.":XX|
00000680: B2 31 30 30 30 3A 8D 31 32 36 30 3A 89 33 34 30 |.1000:.1260:.340|
00000690: 00 C4 0E BC 02 8B 20 4E 55 24 B2 22 2A 22 A7 99 |...... NU$."*"..|
000006A0: 22 11 D1 55 49 54 3F 20 28 D9 2F CE 29 20 20 20 |"..UIT? (./.) |
000006B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3A | ":|
000006C0: 89 37 32 30 00 CD 0E C6 02 89 37 36 30 00 D5 0E |.720......760...|
000006D0: D0 02 A1 47 24 00 E4 0E DA 02 8B 47 24 B2 22 22 |...G$......G$.""|
000006E0: A7 37 32 30 00 F7 0E E4 02 8B 47 24 B2 22 59 22 |.720......G$."Y"|
000006F0: A7 99 22 93 22 3A 80 00 00 0F EE 02 89 33 34 30 |..".":.......340|
00000700: 00 13 0F F8 02 8B C3 28 4E 55 24 29 B3 37 A7 89 |.......(NU$).7..|
00000710: 38 35 30 00 27 0F 02 03 8B C3 28 4E 55 24 29 B1 |850.'.....(NU$).|
00000720: 33 30 A7 89 37 39 30 00 30 0F 0C 03 89 39 32 30 |30..790.0....920|
00000730: 00 6B 0F 16 03 8D 31 33 34 30 3A 99 22 13 11 11 |.k....1340:."...|
00000740: 11 11 11 11 11 11 22 3B 4E 55 24 3A 99 22 C9 53 |......";NU$:.".S|
00000750: 20 C1 20 C2 49 54 20 CC 4F 4E 47 20 20 20 20 20 | . .IT .ONG |
00000760: 20 20 20 20 20 20 20 20 20 20 22 00 8B 0F 20 03 | "... .|
00000770: 99 22 13 11 11 11 11 11 11 11 11 11 11 11 C4 49 |.".............I|
00000780: 41 4C 20 C1 4E 59 57 41 59 3F 22 00 93 0F 2A 03 |AL .NYWAY?"...*.|
00000790: A1 47 24 00 A3 0F 34 03 8B 20 47 24 B2 22 22 A7 |.G$...4.. G$."".|
000007A0: 38 31 30 00 BB 0F 3E 03 8B 20 47 24 B3 B1 22 59 |810...>.. G$.."Y|
000007B0: 22 A7 99 22 93 22 3A 89 35 37 30 00 C4 0F 48 03 |"..".":.570...H.|
000007C0: 89 39 32 30 00 F9 0F 52 03 8D 31 33 34 30 3A 99 |.920...R..1340:.|
000007D0: 22 13 11 11 11 11 11 11 11 11 22 3B 4E 55 24 3B |".........";NU$;|
000007E0: 22 20 C9 53 20 CC 45 53 53 20 D4 48 41 4E 20 37 |" .S .ESS .HAN 7|
000007F0: 20 C4 49 47 49 54 53 21 22 00 0A 10 5C 03 58 58 | .IGITS!"...\.XX|
00000800: B2 35 30 30 3A 8D 31 32 36 30 00 29 10 66 03 99 |.500:.1260.).f..|
00000810: 22 13 11 11 11 11 11 11 11 11 11 11 C4 49 41 4C |"............IAL|
00000820: 20 C1 4E 59 57 41 59 3F 22 00 31 10 70 03 A1 47 | .NYWAY?".1.p..G|
00000830: 24 00 41 10 7A 03 8B 20 47 24 B2 22 22 A7 38 38 |$.A.z.. G$."".88|
00000840: 30 00 59 10 84 03 8B 20 47 24 B3 B1 22 59 22 A7 |0.Y.... G$.."Y".|
00000850: 99 22 93 22 3A 89 35 37 30 00 69 10 8E 03 8B 41 |.".":.570.i....A|
00000860: 42 B2 31 A7 89 31 31 33 30 00 A0 10 98 03 99 22 |B.1..1130......"|
00000870: 13 11 11 11 11 11 11 11 11 11 11 11 11 C4 49 41 |..............IA|
00000880: 4C 49 4E 47 20 22 3B 4E 55 24 3B 22 20 C1 54 54 |LING ";NU$;" .TT|
00000890: 45 4D 50 54 20 CE 55 4D 42 45 52 3A 22 3B 4E 41 |EMPT .UMBER:";NA|
000008A0: 00 E7 10 A2 03 99 22 13 11 11 11 11 11 11 11 11 |......".........|
000008B0: 11 11 11 11 11 11 11 11 11 11 11 11 11 12 D4 4F |...............O|
000008C0: 20 C1 42 4F 52 54 20 C4 49 41 4C 49 4E 47 20 CF | .BORT .IALING .|
000008D0: 50 45 52 41 54 49 4F 4E 20 D0 52 45 53 53 20 C1 |PERATION .RESS .|
000008E0: 4E 59 20 CB 45 59 22 00 2F 11 AC 03 99 22 13 11 |NY .EY"./...."..|
000008F0: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00000900: 11 11 11 11 11 12 20 20 20 20 20 20 20 20 20 20 |...... |
00000910: 20 20 20 20 20 20 20 C1 4E 44 20 D7 41 49 54 20 | .ND .AIT |
00000920: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 00 | ".|
00000930: 45 11 B6 03 99 22 13 11 11 11 11 11 11 11 11 11 |E...."..........|
00000940: 11 11 11 11 22 00 54 11 BB 03 8B 50 54 B3 B1 30 |....".T....PT..0|
00000950: A7 39 36 35 00 66 11 C0 03 98 32 2C 22 C1 D4 C4 |.965.f....2,"...|
00000960: D4 22 3B 4E 55 24 00 78 11 C5 03 98 32 2C 22 C1 |.";NU$.x....2,".|
00000970: D4 C4 D0 22 3B 4E 55 24 00 84 11 CA 03 4E 41 B2 |...";NU$.....NA.|
00000980: 4E 41 AA 31 00 8F 11 D4 03 A1 23 32 2C 41 24 00 |NA.1......#2,A$.|
00000990: A6 11 DE 03 A1 41 42 24 3A 8B 41 42 24 B3 B1 22 |.....AB$:.AB$.."|
000009A0: 22 A7 41 42 B2 31 00 B2 11 E8 03 45 52 B2 45 52 |".AB.1.....ER.ER|
000009B0: AA 31 00 EB 11 F2 03 8B 45 52 B1 32 35 30 30 A7 |.1......ER.2500.|
000009C0: 4D 53 24 B2 22 22 3A 99 22 CE CF 20 C3 C1 D2 D2 |MS$."":.".. ....|
000009D0: C9 C5 D2 22 3A 45 52 B2 30 3A 58 58 B2 35 30 30 |...":ER.0:XX.500|
000009E0: 3A 8D 31 32 36 30 3A 89 39 31 30 00 FA 11 FC 03 |:.1260:.910.....|
000009F0: 8B 41 24 B2 22 22 A7 39 38 30 00 09 12 06 04 4D |.A$."".980.....M|
00000A00: 53 24 B2 4D 53 24 AA 41 24 00 1D 12 10 04 8B 41 |S$.MS$.A$......A|
00000A10: 24 B2 C7 28 31 30 32 29 A7 31 31 32 30 00 31 12 |$..(102).1120.1.|
00000A20: 1A 04 8B 41 24 B2 C7 28 31 37 39 29 A7 31 31 32 |...A$..(179).112|
00000A30: 30 00 45 12 24 04 8B 41 24 B2 C7 28 31 37 37 29 |0.E.$..A$..(177)|
00000A40: A7 31 31 39 30 00 58 12 2E 04 8B 41 24 B2 C7 28 |.1190.X....A$..(|
00000A50: 39 38 29 A7 31 31 39 30 00 6F 12 38 04 A1 41 42 |98).1190.o.8..AB|
00000A60: 24 3A 8B 41 42 24 B3 B1 22 22 A7 41 42 B2 31 00 |$:.AB$.."".AB.1.|
00000A70: 7B 12 42 04 45 52 B2 45 52 AA 31 00 B4 12 4C 04 |{.B.ER.ER.1...L.|
00000A80: 8B 45 52 B1 32 35 30 30 A7 4D 53 24 B2 22 22 3A |.ER.2500.MS$."":|
00000A90: 99 22 CE CF 20 C3 C1 D2 D2 C9 C5 D2 22 3A 45 52 |.".. .......":ER|
00000AA0: B2 30 3A 58 58 B2 35 30 30 3A 8D 31 32 36 30 3A |.0:XX.500:.1260:|
00000AB0: 89 39 31 30 00 BD 12 56 04 89 39 38 30 00 D6 12 |.910...V..980...|
00000AC0: 60 04 99 22 CE CF 20 C3 C1 D2 D2 C9 C5 D2 22 3A |`..".. .......":|
00000AD0: 4D 53 24 B2 22 22 00 0D 13 6A 04 8B 41 42 B2 31 |MS$.""...j..AB.1|
00000AE0: A7 41 42 B2 30 3A 99 22 11 2A 2A 2A 20 C1 42 4F |.AB.0:.".*** .BO|
00000AF0: 52 54 49 4E 47 20 2A 2A 2A 22 3A 58 58 B2 31 35 |RTING ***":XX.15|
00000B00: 30 30 3A 8D 31 32 36 30 3A 89 33 34 30 00 1E 13 |00:.1260:.340...|
00000B10: 74 04 58 58 B2 35 30 30 3A 8D 31 32 36 30 00 47 |t.XX.500:.1260.G|
00000B20: 13 7E 04 99 22 13 11 11 11 11 11 11 11 11 11 11 |.~.."...........|
00000B30: 11 11 11 11 20 20 20 20 20 20 20 20 20 20 20 20 |.... |
00000B40: 20 20 20 20 20 20 22 00 82 13 88 04 99 22 13 11 | "......"..|
00000B50: 11 11 11 11 11 11 11 11 11 11 11 C4 49 41 4C 49 |............IALI|
00000B60: 4E 47 20 22 3B 4E 55 24 3B 22 20 C1 54 54 45 4D |NG ";NU$;" .TTEM|
00000B70: 50 54 20 CE 55 4D 42 45 52 3A 22 3B 4E 41 3B 22 |PT .UMBER:";NA;"|
00000B80: 11 22 00 8B 13 92 04 45 52 B2 30 00 94 13 9C 04 |.".....ER.0.....|
00000B90: 89 39 36 30 00 B5 13 A6 04 99 22 C3 CF CE CE C5 |.960......".....|
00000BA0: C3 D4 22 3A 4E 41 B2 30 3A 4D 53 24 B2 22 22 3A |..":NA.0:MS$."":|
00000BB0: 8D 31 33 34 30 00 D2 13 B0 04 99 22 11 CC 4F 41 |.1340......"..OA|
00000BC0: 44 49 4E 47 20 D2 D5 CE D4 C5 D2 CD 20 D0 CC D5 |DING ....... ...|
00000BD0: D3 22 00 E8 13 BA 04 93 22 52 55 4E 54 45 52 4D |."......"RUNTERM|
00000BE0: 20 50 4C 55 53 22 2C 38 00 EE 13 C4 04 80 00 12 | PLUS",8........|
00000BF0: 14 CE 04 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.... ***********|
00000C00: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000C10: 2A 2A 00 36 14 D8 04 8F 20 2A 2A 2A 20 54 49 4D |**.6.... *** TIM|
00000C20: 45 20 44 45 4C 41 59 20 53 55 42 52 4F 55 54 49 |E DELAY SUBROUTI|
00000C30: 4E 45 20 2A 2A 2A 00 5A 14 E2 04 8F 20 2A 2A 2A |NE ***.Z.... ***|
00000C40: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000C50: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 66 14 EC 04 81 |**********.f....|
00000C60: 49 B2 31 A4 58 58 00 6D 14 F6 04 82 49 00 73 14 |I.1.XX.m....I.s.|
00000C70: 00 05 8E 00 79 14 0A 05 3A 00 9D 14 14 05 8F 20 |....y...:...... |
00000C80: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000C90: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 C1 14 |*************...|
00000CA0: 1E 05 8F 20 2A 2A 2A 20 41 4C 41 52 4D 2F 42 45 |... *** ALARM/BE|
00000CB0: 4C 4C 20 53 55 42 52 4F 55 54 49 4E 45 20 2A 2A |LL SUBROUTINE **|
00000CC0: 2A 00 E5 14 28 05 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |*...(.. ********|
00000CD0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000CE0: 2A 2A 2A 2A 2A 00 EB 14 32 05 3A 00 F7 14 3C 05 |*****...2.:...<.|
00000CF0: 53 B2 35 34 32 37 32 00 03 15 46 05 81 4C B2 30 |S.54272...F..L.0|
00000D00: A4 32 34 00 0E 15 50 05 97 53 AA 4C 2C 30 00 15 |.24...P..S.L,0..|
00000D10: 15 5A 05 82 4C 00 22 15 64 05 97 53 AA 31 2C 31 |.Z..L.".d..S.1,1|
00000D20: 30 30 00 2E 15 6E 05 97 53 AA 35 2C 31 30 00 3C |00...n..S.5,10.<|
00000D30: 15 78 05 97 53 AA 31 35 2C 32 35 35 00 49 15 82 |.x..S.15,255.I..|
00000D40: 05 97 53 AA 32 34 2C 31 35 00 55 15 8C 05 97 53 |..S.24,15.U....S|
00000D50: AA 34 2C 32 31 00 5F 15 96 05 8D 31 35 35 30 00 |.4,21._....1550.|
00000D60: 70 15 A0 05 58 58 B2 35 30 30 3A 8D 31 32 36 30 |p...XX.500:.1260|
00000D70: 00 7C 15 AA 05 97 53 AA 32 34 2C 30 00 88 15 B4 |.|....S.24,0....|
00000D80: 05 81 4C B2 30 A4 32 34 00 93 15 BE 05 97 53 AA |..L.0.24......S.|
00000D90: 4C 2C 30 00 9A 15 C8 05 82 4C 00 A0 15 D2 05 8E |L,0......L......|
00000DA0: 00 A6 15 DC 05 3A 00 CA 15 E6 05 8F 20 2A 2A 2A |.....:...... ***|
00000DB0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000DC0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 EE 15 F0 05 8F |**********......|
00000DD0: 20 2A 2A 2A 20 20 20 20 53 43 52 45 45 4E 20 42 | *** SCREEN B|
00000DE0: 4C 41 4E 4B 49 4E 47 20 20 20 20 2A 2A 2A 00 12 |LANKING ***..|
00000DF0: 16 FA 05 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.... ***********|
00000E00: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000E10: 2A 2A 00 18 16 04 06 3A 00 27 16 0E 06 97 35 33 |**.....:.'....53|
00000E20: 32 36 35 2C 31 30 30 00 38 16 18 06 58 58 B2 32 |265,100.8...XX.2|
00000E30: 35 30 3A 8D 31 32 36 30 00 46 16 22 06 97 35 33 |50:.1260.F."..53|
00000E40: 32 36 35 2C 32 37 00 57 16 2C 06 58 58 B2 32 35 |265,27.W.,.XX.25|
00000E50: 30 3A 8D 31 32 36 30 00 5D 16 36 06 8E 00 63 16 |0:.1260.].6...c.|
00000E60: 40 06 3A 00 7B 16 4A 06 8F 20 2A 2A 2A 2A 2A 2A |@.:.{.J.. ******|
00000E70: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 93 16 54 06 |***********...T.|
00000E80: 8F 20 2A 20 50 55 4C 53 45 20 4F 52 20 54 4F 4E |. * PULSE OR TON|
00000E90: 45 20 2A 00 AB 16 5E 06 8F 20 2A 2A 2A 2A 2A 2A |E *...^.. ******|
00000EA0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 B1 16 68 06 |***********...h.|
00000EB0: 3A 00 ED 16 72 06 99 22 13 11 11 11 11 11 11 11 |:...r.."........|
00000EC0: 11 11 11 D7 4F 55 4C 44 20 D9 4F 55 20 CC 49 4B |....OULD .OU .IK|
00000ED0: 45 20 D4 4F 20 C4 49 41 4C 20 12 D0 92 55 4C 53 |E .O .IAL ...ULS|
00000EE0: 45 20 4F 52 20 12 D4 92 4F 4E 45 3F 22 00 03 17 |E OR ...ONE?"...|
00000EF0: 7C 06 A1 50 54 24 3A 8B 50 54 24 B2 22 22 A7 31 ||..PT$:.PT$."".1|
00000F00: 36 36 30 00 1F 17 86 06 8B 50 54 24 B3 B1 22 50 |660......PT$.."P|
00000F10: 22 AF 50 54 24 B3 B1 22 54 22 A7 31 36 35 30 00 |".PT$.."T".1650.|
00000F20: 3C 17 90 06 8B 50 54 24 B2 22 54 22 A7 50 54 B2 |<....PT$."T".PT.|
00000F30: 30 3A 50 54 24 B2 22 D4 4F 4E 45 22 00 5A 17 9A |0:PT$.".ONE".Z..|
00000F40: 06 8B 50 54 24 B2 22 50 22 A7 50 54 B2 31 3A 50 |..PT$."P".PT.1:P|
00000F50: 54 24 B2 22 D0 55 4C 53 45 22 00 63 17 A4 06 99 |T$.".ULSE".c....|
00000F60: 22 93 22 00 69 17 AE 06 8E 00 00 00 1A 1A 1A 1A |".".i...........|
00000F70: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A |................|
..(.... ********************************
.O.... ******** 1670 AUTODIAL *********.
V.... ********************************..
.(.. ************* BY ***************.D.
2.. ********************************...<
.. ******** DAVID BRADLEY *********...F.
. ********************************...P.:
.-.Z..2,2,0,G(6).G(0).M.D.. OPEN15,8,15,
"S0:1670":CLOSE15:SAVE"1670",8:VERIFY"16
70",8.{.N..2,"ATV0"...X.:...... ***
******************.C.... *** VARIAB
LE LIST ***...... *****************
****... .:...... A$ = INPUT FROM MODEM.
-.... ER = MODEM NO RESPOND TIME-OUT.O.
... L = SOUND ROUTINE COUNTER.O.H.. S
= SID REFERENCE VALUE...R.. XX = TIME
DELAY...... AB = ABORT CHECK...... AB$
= ABORT GET.X.... I = TIME DELAY/MISC
COUNTER...... G$ = YES/NO...... NU$ =
NUMBER TO DIAL...... MS$ = MODEM STATUS.
>.... NA = NUMBER OF ATTEMPTS.X.... PT$
= PULSE OR TONE.R.... PT = PULSE OR TO
NE.X.".:...,.. *************...6..
*** SETUP ***.C.@.. **********
***.I.J.:.R.T.."."...^..G(14),G(8)...H.X
X.0...R.A$.""...|.AB$."".....ER.0.....G$
."".....I.0.#...L.0.+...S.0.6...NU$."".A
.B.MS$."".J.L.NA.1.S.V.AB.0.`....53280,0
.M....53281,0.V....".".|...:......
*************...... *** START ***.G
.... *************.M.&.:...0.XX.250
:.1260:.PT$.""..1650...:..".... 167
0 AUTODIAL BY DAVID BRADLEY".M.D..".....
------------------------------".T.
N..".........(PRESS RETURN TO QUIT)"...X
..".......INPUT NUMBER TO ";PT$;" DIAL..
.*...";...B.. NU$.A.L..I.1.C(NU$).Y.V..J
(NU$,I,1)."#".675......J(NU$,I,1)."*".67
5......J(NU$,I,1)."-".675.#....F(J(NU$,I
,1)).57.690.=....F(J(NU$,I,1)).48.690.D.
...I.M....700......1340:.".ERROR IN NUMB
ER INPUT...RE-ENTER.":XX.1000:.1260:.340
.D.... NU$."*"..".QUIT? (Y/N)
":.720.M.F..760.U.P..G$...Z..G$.""
.720......G$."Y"..".":.......340......C(
NU$).7..850.'....C(NU$).30..790.0....920
.K....1340:.".........";NU$:."IS A BIT L
ONG "... .."............DI
AL ANYWAY?"...*..G$...4.. G$."".810...>.
. G$.."Y"..".":.570.D.H..920...R..1340:.
".........";NU$;" IS LESS THAN 7 DIGITS!
"...\.XX.500:.1260.).F.."...........DIAL
ANYWAY?".1.P..G$.A.Z.. G$."".880.Y....
G$.."Y"..".":.570.I....AB.1..1130. ...."
.............DIALING ";NU$;" ATTEMPT NUM
BER:";NA......".......................TO
ABORT DIALING OPERATION PRESS ANY KEY".
/...."........................
AND WAIT ".E...."..
............".T....PT..0.965.F....2,"ATD
T";NU$.X.E..2,"ATDP";NU$...J.NA.NA.1...T
..#2,A$......AB$:.AB$.."".AB.1.....ER.ER
.1......ER.2500.MS$."":."NO CARRIER":ER.
0:XX.500:.1260:.910......A$."".980.....M
S$.MS$.A$......A$.G(102).1120.1....A$.G(
179).1120.E.$..A$.G(177).1190.X....A$.G(
98).1190.O.8..AB$:.AB$.."".AB.1.{.B.ER.E
R.1...L..ER.2500.MS$."":."NO CARRIER":ER
.0:XX.500:.1260:.910...V..980.V.`.."NO C
ARRIER":MS$.""...J..AB.1.AB.0:.".*** ABO
RTING ***":XX.1500:.1260:.340...T.XX.500
:.1260.G.~.."...............
"......".............DIALING ";NU$
;" ATTEMPT NUMBER:";NA;".".....ER.0.....
.960......"CONNECT":NA.0:MS$."":.1340.R.
...".LOADING RUNTERM PLUS"......"RUNTERM
PLUS",8...D.....N.. *******************
**********.6.X.. *** TIME DELAY SUBROUTI
NE ***.Z.... ***************************
**.F....I.1.XX.M....I.S.....Y...:......
*****************************.A.... ***
ALARM/BELL SUBROUTINE ***...(.. ********
*********************...2.:...<.S.54272.
..F..L.0.24...P..S.L,0...Z..L.".D..S.1,1
00...N..S.5,10.<.X..S.15,255.I....S.24,1
5.U....S.4,21._....1550.P. .XX.500:.1260
.|....S.24,0......L.0.24......S.L,0...H.
.L. .R.......:.J.... *******************
**********...... *** SCREEN BLANKING
***...... ***************************
**.....:.'....53265,100.8...XX.250:.1260
.F."..53265,27.W.,.XX.250:.1260.].6...C.
@.:.{.J.. *****************...T.. * PULS
E OR TONE *...^.. *****************...H.
:...R.."...........WOULD YOU LIKE TO DIA
L .P.ULSE OR .T.ONE?"...|..PT$:.PT$."".1
660......PT$.."P".PT$.."T".1650.<....PT$
."T".PT.0:PT$."TONE".Z....PT$."P".PT.1:P
T$."PULSE".C....".".I...................
........
> CLICK IMAGE PREVIEW FOR FULL MODAL