goto init

dial:
strcmp s4 "        "
if success
return
endif
isfile s4
if success
return
endif
clear
box 00 00 02 79 07
strcpy s1 "MABOS º "
strcat s1 s4
strcat s1 " º Boston, MA              617 º "
strcat s1 s5
atsay 01 02 07 s1
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
set parity none
set databits 8
clear
log open s4
alarm 2
exit
endif
find s1 "RINGING"
if found
rget s1
find s1 "RINGING"
if not found
goto mess
else
log open s4
message "APCP: No answer - still ringing"
log close
transmit "^C^D^C"
endif
else
endif
return

top:
find s0 "A"
if found
strcpy s4 "354-8873"
strcpy s5 "Channel One    Brian Miller"
gosub dial
endif
find s0 "B"
if found
strcpy s4 "364-2474"
strcpy s5 "The Toolbox    Charlie Kron"
gosub dial
endif
find s0 "C"
if found
strcpy s4 "595-5626"
strcpy s5 "New World Magic  Hal Duprie"
gosub dial
endif
find s0 "D"
if found
strcpy s4 "237-3750"
strcpy s5 "Boston Computer Society    "
gosub dial
endif
find s0 "E"
if found
strcpy s4 "245-4909"
strcpy s5 "Softline                   "
gosub dial
endif
find s0 "F"
if found
strcpy s4 "258-7784"
strcpy s5 "MIT Livewire               "
gosub dial
endif
find s0 "G"
if found
strcpy s4 "665-3796"
strcpy s5 "Wonderland BBS             "
gosub dial
endif
find s0 "H"
if found
strcpy s4 "769-9358"
strcpy s5 "MicroCom's MNP             "
gosub dial
endif
find s0 "I"
if found
strcpy s4 "786-9788"
strcpy s5 "BCS Telecom                "
gosub dial
endif
find s0 "J"
if found
strcpy s4 "229-2915"
strcpy s5 "Alpha Software Corporation "
gosub dial
endif
find s0 "K"
if found
strcpy s4 "237-1511"
strcpy s5 "HBBS                       "
gosub dial
endif
find s0 "L"
if found
strcpy s4 "237-3750"
strcpy s5 "122 BCS Net Host           "
gosub dial
endif
find s0 "M"
if found
strcpy s4 "247-3048"
strcpy s5 "The Info Directory         "
gosub dial
endif
find s0 "N"
if found
strcpy s4 "449-4727"
strcpy s5 "Fido 318 PC Week           "
gosub dial
endif
find s0 "O"
if found
strcpy s4 "472-1676"
strcpy s5 "BCS Telecom BBS            "
gosub dial
endif
find s0 "P"
if found
strcpy s4 "489-4930"
strcpy s5 "Yellow Data                "
gosub dial
endif
find s0 "Q"
if found
strcpy s4 "595-5036"
strcpy s5 "Swampland Nite Lite        "
gosub dial
endif
find s0 "R"
if found
strcpy s4 "675-5979"
strcpy s5 "NCCBBS II                  "
gosub dial
endif
find s0 "S"
if found
strcpy s4 "720-3600"
strcpy s5 "Net Works Pirate Harbor    "
gosub dial
endif
find s0 "T"
if found
strcpy s4 "721-1688"
strcpy s5 "Fido #202 -- Blue Line     "
gosub dial
endif
find s0 "U"
if found
strcpy s4 "731-2662"
strcpy s5 "315 DD Network             "
gosub dial
endif
find s0 "V"
if found
strcpy s4 "769-3779"
strcpy s5 "PC2 Tech Support           "
gosub dial
endif
find s0 "W"
if found
strcpy s4 "769-6761"
strcpy s5 "Cullinet Software          "
gosub dial
endif
find s0 "X"
if found
strcpy s4 "        "
strcpy s5 "                           "
gosub dial
endif
find s0 "Y"
if found
strcpy s4 "861-9774"
strcpy s5 "Bytenet Listing            "
gosub dial
endif
find s0 "Z"
if found
strcpy s4 "863-0282"
strcpy s5 "Term Exec Online News      "
gosub dial
endif
find s0 "0"
if found
strcpy s4 "893-5772"
strcpy s5 "121 Info Jr.               "
gosub dial
endif
find s0 "1"
if found
strcpy s4 "899-0060"
strcpy s5 "Computer Bargain Guide     "
gosub dial
endif
find s0 "2"
if found
strcpy s4 "965-3121"
strcpy s5 "Northeastern Exchange      "
gosub dial
endif
find s0 "3"
if found
strcpy s4 "        "
strcpy s5 "                           "
gosub dial
endif
find s0 "4"
if found
strcpy s4 "        "
strcpy s5 "                           "
gosub dial
endif
find s0 "5"
if found
strcpy s4 "        "
strcpy s5 "                           "
gosub dial
endif
find s0 "6"
if found
strcpy s4 "        "
strcpy s5 "                           "
gosub dial
endif
find s0 "7"
if found
strcpy s4 "        "
strcpy s5 "                           "
gosub dial
endif
find s0 "8"
if found
strcpy s4 "        "
strcpy s5 "                           "
gosub dial
endif
find s0 "9"
if found
strcpy s4 "        "
strcpy s5 "                           "
gosub dial
endif
find s0 "@"
if found
strcpy s4 "        "
strcpy s5 "                           "
gosub dial
endif
find s0 "#"
if found
strcpy s4 "        "
strcpy s5 "                           "
gosub dial
endif
find s0 "$"
if found
strcpy s4 "        "
strcpy s5 "                           "
gosub dial
endif
find s0 "%"
if found
strcpy s4 "        "
strcpy s5 "                           "
gosub dial
endif
find s0 "&"
if found
strcpy s4 "        "
strcpy s5 "                           "
gosub dial
endif
find s0 "*"
if found
strcpy s4 "        "
strcpy s5 "                           "
gosub dial
endif
find s9 "M"
if found
strcpy s9 " "
goto top
endif
clear
box 00 00 02 79 07
atsay 01 02 07 "APCP: All numbers connected / didn't answer ... terminating ..."
locate 05 00
alarm 2
exit

init:
strcpy s9 " "
log close
clear
box 00 00 22 38 07
box 00 41 22 79 07
atsay 01 02 07 "A Channel One ............ 354-8873"
atsay 02 02 07 "B The Toolbox ............ 364-2474"
atsay 03 02 07 "C New World Magic ........ 595-5626"
atsay 04 02 07 "D Boston Computer Society  237-3750"
atsay 05 02 07 "E Softline ............... 245-4909"
atsay 06 02 07 "F MIT Livewire ........... 258-7784"
atsay 07 02 07 "G Wonderland BBS ......... 665-3796"
atsay 08 02 07 "H MicroCom's MNP ......... 769-9358"
atsay 09 02 07 "I BCS Telecom ............ 786-9788"
atsay 10 02 07 "J Alpha Software Corp .... 229-2915"
atsay 11 02 07 "K HBBS ................... 237-1511"
atsay 12 02 07 "L 122 BCS net Host ....... 237-3750"
atsay 13 02 07 "M The Info Directory ..... 247-3048"
atsay 14 02 07 "N Fido 318 PC Week ....... 449-4727"
atsay 15 02 07 "O BCS Telecom BBS ........ 472-1676"
atsay 16 02 07 "P Yellow Data ............ 489-4930"
atsay 17 02 07 "Q Swampland Nite Lite .... 595-5036"
atsay 18 02 07 "R NCCBBS II .............. 675-5979"
atsay 19 02 07 "S Net Works Pirate Harbor  720-3600"
atsay 20 02 07 "T Fido #202 -- Blue Line . 721-1688"
atsay 21 02 07 "U 315 DD Network ......... 731-2662"
atsay 01 43 07 "V PC2 Tech Support ....... 769-3779"
atsay 02 43 07 "W Cullinet Software ...... 769-6761"
atsay 03 43 07 "X ........................ ...-...."
atsay 04 43 07 "Y Bytenet Listing ........ 861-9774"
atsay 05 43 07 "Z Term Exec Online News .. 863-0282"
atsay 06 43 07 "0 121 Info Jr ............ 893-5772"
atsay 07 43 07 "1 Computer Bargain Guide . 899-0060"
atsay 08 43 07 "2 Northeastern Exchange .. 965-3121"
atsay 09 43 07 "3 ........................ ... ...."
atsay 10 43 07 "4 ........................ ... ...."
atsay 11 43 07 "5 ........................ ... ...."
atsay 12 43 07 "6 ........................ ... ...."
atsay 13 43 07 "7 ........................ ... ...."
atsay 14 43 07 "8 ........................ ... ...."
atsay 15 43 07 "9 ........................ ... ...."
atsay 16 43 07 "@ ........................ ... ...."
atsay 17 43 07 "# ........................ ... ...."
atsay 18 43 07 "$ ........................ ... ...."
atsay 19 43 07 "% ........................ ... ...."
atsay 20 43 07 "& ........................ ... ...."
atsay 21 43 07 "* ........................ ... ...."
locate 23 00
get s0
goto top
return