goto init

dial:
strcmp s4 "     "
if success
return
endif
clear
box 00 00 02 79 n9
atsay 00 08 n9 "ÑÍÍÍÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÑ"
atsay 01 08 n9 "³          ³                             ³"
atsay 02 08 n9 "ÏÍÍÍÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÏ"
atsay 01 02 n8 "TXHOU"
atsay 01 10 n8 s4
atsay 01 21 n8 "Houston, TX             713"
atsay 01 51 n8 s5
locate 05 00
transmit "I^m"
pause 1
transmit "ATZ^m"
waitfor "OK"
transmit "^E^m"
waitfor "READY"
transmit "D"
transmit s4"
transmit "^m"
rget s1
rget s1 80 40
rget s1 40 40
rget s1 40 40

mess:
find s1 "BUSY"
if found
strcpy s9 "M"
return
endif
find s1 "ANSWER TONE"
if found
clear
alarm 1
exit
endif
find s1 "RINGING"
if found
rget s1
find s1 "RINGING"
if not found
goto mess
else
message "APCP: No answer - still ringing"
transmit "^C^D^C"
endif
else
endif
return

top:
find s0 "A"
if found
strcpy s4 "664-0222"
strcpy s5 "The Last Stop              "
gosub dial
endif
find s0 "B"
if found
strcpy s4 "864-3758"
strcpy s5 "Silver Bullet              "
gosub dial
endif
find s0 "C"
if found
strcpy s4 "331-1218"
strcpy s5 "Lone Star                  "
gosub dial
endif
find s0 "D"
if found
strcpy s4 "326-2999"
strcpy s5 "Yellow Rose                "
gosub dial
endif
find s0 "E"
if found
strcpy s4 "978-3554"
strcpy s5 "Artichoke                  "
gosub dial
endif
find s0 "F"
if found
strcpy s4 "332-3355"
strcpy s5 "Whovian Trading Post       "
gosub dial
endif
find s0 "G"
if found
strcpy s4 "422-3146"
strcpy s5 "Doghouse                   "
gosub dial
endif
find s0 "H"
if found
strcpy s4 "448-1406"
strcpy s5 "Ventura Pub UG Houston     "
gosub dial
endif
find s0 "I"
if found
strcpy s4 "470-8987"
strcpy s5 "Stargazer                  "
gosub dial
endif
find s0 "J"
if found
strcpy s4 "480-1840"
strcpy s5 "Packet Transfer            "
gosub dial
endif
find s0 "K"
if found
strcpy s4 "480-7422"
strcpy s5 "Brain-in-a-Pan             "
gosub dial
endif
find s0 "L"
if found
strcpy s4 "497-2369"
strcpy s5 "Fox Micro                  "
gosub dial
endif
find s0 "M"
if found
strcpy s4 "280-8711"
strcpy s5 "NASA Activities            "
gosub dial
endif
find s0 "N"
if found
strcpy s4 "324-3416"
strcpy s5 "Big Boy's BBS              "
gosub dial
endif
find s0 "O"
if found
strcpy s4 "498-6574"
strcpy s5 "Confidential               "
gosub dial
endif
find s0 "P"
if found
strcpy s4 "520-1569"
strcpy s5 "YeOlde Baily/law           "
gosub dial
endif
find s0 "Q"
if found
strcpy s4 "527-8719"
strcpy s5 "Black Orchid               "
gosub dial
endif
find s0 "R"
if found
strcpy s4 "561-7153"
strcpy s5 "Loggin Unit                "
gosub dial
endif
find s0 "S"
if found
strcpy s4 "484-8090"
strcpy s5 "Net Works SSPC             "
gosub dial
endif
find s0 "T"
if found
strcpy s4 "568-1181"
strcpy s5 "Lunatic Fringe             "
gosub dial
endif
find s0 "U"
if found
strcpy s4 "568-5740"
strcpy s5 "Improbability Drive        "
gosub dial
endif
find s0 "V"
if found
strcpy s4 "622-3267"
strcpy s5 "PipPrinter                 "
gosub dial
endif
find s0 "W"
if found
strcpy s4 "630-0553"
strcpy s5 "** Kingdom Pdns/DTP        "
gosub dial
endif
find s0 "X"
if found
strcpy s4 "644-4345"
strcpy s5 "** Stormy Weather/DTP      "
gosub dial
endif
find s0 "Y"
if found
strcpy s4 "772-2090"
strcpy s5 "Programmer's Workshop      "
gosub dial
endif
find s0 "Z"
if found
strcpy s4 "664-7679"
strcpy s5 "Private Sector             "
gosub dial
endif
find s0 "0"
if found
strcpy s4 "664-8425"
strcpy s5 "Houston Inline             "
gosub dial
endif
find s0 "1"
if found
strcpy s4 "668-3943"
strcpy s5 "Babel's Tower              "
gosub dial
endif
find s0 "2"
if found
strcpy s4 "749-1744"
strcpy s5 "U Houst/CUSSNet            "
gosub dial
endif
find s0 "3"
if found
strcpy s4 "772-2090"
strcpy s5 "Programmers Workshop       "
gosub dial
endif
find s0 "4"
if found
strcpy s4 "782-5454"
strcpy s5 "** Ed Hopper's             "
gosub dial
endif
find s0 "5"
if found
strcpy s4 "783-4637"
strcpy s5 "Quarks & Nibbles           "
gosub dial
endif
find s0 "6"
if found
strcpy s4 "694-3150"
strcpy s5 "SCS Hotline                "
gosub dial
endif
find s0 "7"
if found
strcpy s4 "726-0106"
strcpy s5 "Technical BBS              "
gosub dial
endif
find s0 "8"
if found
strcpy s4 "448-9267"
strcpy s5 "** PC Publisher            "
gosub dial
endif
find s0 "9"
if found
strcpy s4 "274-2323"
strcpy s5 "TMS320                     "
gosub dial
endif
find s0 "@"
if found
strcpy s4 "955-7564"
strcpy s5 "PC-Eve/WD5GAZ              "
gosub dial
endif
find s0 "#"
if found
strcpy s4 "869-8681"
strcpy s5 "Printing Press             "
gosub dial
endif
find s0 "$"
if found
strcpy s4 "937-9097"
strcpy s5 "** B/C Comp. Database      "
gosub dial
endif
find s0 "%"
if found
strcpy s4 "937-9097"
strcpy s5 "Engineering BBS            "
gosub dial
endif
find s0 "&"
if found
strcpy s4 "781-2432"
strcpy s5 "** Publishers Exchange     "
gosub dial
endif
find s0 "*"
if found
strcpy s4 "747-7000"
strcpy s5 "** Media Bank              "
gosub dial
endif
find s9 "M"
if found
strcpy s9 " "
goto top
endif
clear
box 00 00 02 79 n9
atsay 01 02 n7 "APCP: All numbers connected / didn't answer ... terminating ..."
locate 05 00
alarm 1
exit

init:
strcpy s9 " "
clear
init n9 07
init n8 07
init n7 07
box 00 00 22 38 n9
box 00 41 22 79 n9
atsay 01 02 n8 "A The Last Stop .......... 664-0222"
atsay 02 02 n8 "B Silver Bullet .......... 864-3758"
atsay 03 02 n8 "C Lone Star .............. 331-1218"
atsay 04 02 n8 "D Yellow Rose ............ 326-2999"
atsay 05 02 n8 "E Artichoke .............. 978-3554"
atsay 06 02 n8 "F Whovian Trading Post ... 332-3355"
atsay 07 02 n8 "G Doghouse ............... 422-3146"
atsay 08 02 n8 "H Ventura Pub UG Houston . 448-1406"
atsay 09 02 n8 "I Stargazer .............. 470-8987"
atsay 10 02 n8 "J Packet Transfer ........ 480-1840"
atsay 11 02 n8 "K Brain-in-a-Pan ......... 480-7422"
atsay 12 02 n8 "L Fox Micro .............. 497-2369"
atsay 13 02 n8 "M NASA Activities ........ 280-8711"
atsay 14 02 n8 "N Big Boy's BBS .......... 324-3416"
atsay 15 02 n8 "O Confidential ........... 498-6574"
atsay 16 02 n8 "P YeOlde Baily/law ....... 520-1569"
atsay 17 02 n8 "Q Black Orchid ........... 527-8719"
atsay 18 02 n8 "R Loggin Unit ............ 561-7153"
atsay 19 02 n8 "S Net Works SSPC ......... 484-8090"
atsay 20 02 n8 "T Lunatic Fringe ......... 568-1181"
atsay 21 02 n8 "U Improbability Drive .... 568-5740"
atsay 01 43 n8 "V PipPrinter ............. 622-3267"
atsay 02 43 n8 "W ** Kingdom Pdns/DTP .... 630-0553"
atsay 03 43 n8 "X ** Stormy Weather/DTP .. 644-4345"
atsay 04 43 n8 "Y Programmer's Workshop .. 772-2090"
atsay 05 43 n8 "Z Private Sector ......... 664-7679"
atsay 06 43 n8 "0 Houston Inline ......... 664-8425"
atsay 07 43 n8 "1 Babel's Tower .......... 668-3943"
atsay 08 43 n8 "2 U Houst/CUSSNet ........ 749-1744"
atsay 09 43 n8 "3 Programmers Workshop ... 772-2090"
atsay 10 43 n8 "4 ** Ed Hopper's ......... 782-5454"
atsay 11 43 n8 "5 Quarks & Nibbles ....... 783-4637"
atsay 12 43 n8 "6 SCS Hotline ............ 694-3150"
atsay 13 43 n8 "7 Technical BBS .......... 726-0106"
atsay 14 43 n8 "8 ** PC Publisher ........ 448-9267"
atsay 15 43 n8 "9 TMS320.................. 274-2323"
atsay 16 43 n8 "@ PC-Eve/WD5GAZ........... 955-7564"
atsay 17 43 n8 "# Printing Press ......... 869-8681"
atsay 18 43 n8 "$ ** B/C Comp. Database .. 937-9097"
atsay 19 43 n8 "% Engineering BBS ........ 937-9097"
atsay 20 43 n8 "& ** Publishers Exchange . 781-2432"
atsay 21 43 n8 "* ** Media Bank .......... 747-7000"
locate 23 00
get s0
goto top
return