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 "GAATL"
atsay 01 10 n8 s4
atsay 01 21 n8 "Atlanta, GA             404"
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 "296-9681"
strcpy s5 "Centurion                  "
gosub dial
endif
find s0 "B"
if found
strcpy s4 "476-2607"
strcpy s5 "The Right Place            "
gosub dial
endif
find s0 "C"
if found
strcpy s4 "598-5351"
strcpy s5 "THX1138                    "
gosub dial
endif
find s0 "D"
if found
strcpy s4 "381-1947"
strcpy s5 "AESC                       "
gosub dial
endif
find s0 "E"
if found
strcpy s4 "363-1640"
strcpy s5 "HAM BBS                    "
gosub dial
endif
find s0 "F"
if found
strcpy s4 "433-0062"
strcpy s5 "Atlanta PC User's Group    "
gosub dial
endif
find s0 "G"
if found
strcpy s4 "433-0689"
strcpy s5 "Conference System          "
gosub dial
endif
find s0 "H"
if found
strcpy s4 "446-6650"
strcpy s5 "Big Peach                  "
gosub dial
endif
find s0 "I"
if found
strcpy s4 "998-8048"
strcpy s5 "MicroStuff/Crosstalk       "
gosub dial
endif
find s0 "J"
if found
strcpy s4 "454-8756"
strcpy s5 "Pecan Pi                   "
gosub dial
endif
find s0 "K"
if found
strcpy s4 "451-4091"
strcpy s5 "Georgia BBS                "
gosub dial
endif
find s0 "L"
if found
strcpy s4 "972-3458"
strcpy s5 "ZAP BBS                    "
gosub dial
endif
find s0 "M"
if found
strcpy s4 "641-8270"
strcpy s5 "Home of No Change BBS      "
gosub dial
endif
find s0 "N"
if found
strcpy s4 "762-0923"
strcpy s5 "PC Plus                    "
gosub dial
endif
find s0 "O"
if found
strcpy s4 "921-4395"
strcpy s5 "Atlanta Exchange           "
gosub dial
endif
find s0 "P"
if found
strcpy s4 "351-9757"
strcpy s5 "Atlanta Medical Forum      "
gosub dial
endif
find s0 "Q"
if found
strcpy s4 "929-0800"
strcpy s5 "Atlanta Connection         "
gosub dial
endif
find s0 "R"
if found
strcpy s4 "368-5058"
strcpy s5 "Engineers/Architects       "
gosub dial
endif
find s0 "S"
if found
strcpy s4 "377-1141"
strcpy s5 "Illum-Net/UFOs             "
gosub dial
endif
find s0 "T"
if found
strcpy s4 "393-3083"
strcpy s5 "ARC/ham                    "
gosub dial
endif
find s0 "U"
if found
strcpy s4 "977-6686"
strcpy s5 "PC Exchange                "
gosub dial
endif
find s0 "V"
if found
strcpy s4 "441-1431"
strcpy s5 "NASPA System SE            "
gosub dial
endif
find s0 "W"
if found
strcpy s4 "443-2421"
strcpy s5 "Dallas DBA                 "
gosub dial
endif
find s0 "X"
if found
strcpy s4 "454-8795"
strcpy s5 "Byte Flight                "
gosub dial
endif
find s0 "Y"
if found
strcpy s4 "455-1271"
strcpy s5 "One of a Kind              "
gosub dial
endif
find s0 "Z"
if found
strcpy s4 "377-2550"
strcpy s5 "Bill's Obsession           "
gosub dial
endif
find s0 "0"
if found
strcpy s4 "751-0252"
strcpy s5 "Bird's Nest                "
gosub dial
endif
find s0 "1"
if found
strcpy s4 "455-6966"
strcpy s5 "NE Atlanta OPUS            "
gosub dial
endif
find s0 "2"
if found
strcpy s4 "521-5013"
strcpy s5 "GA Pacific                 "
gosub dial
endif
find s0 "3"
if found
strcpy s4 "951-9251"
strcpy s5 "HighTech Revolution        "
gosub dial
endif
find s0 "4"
if found
strcpy s4 "381-6759"
strcpy s5 "PC Link                    "
gosub dial
endif
find s0 "5"
if found
strcpy s4 "423-9675"
strcpy s5 "Night Light                "
gosub dial
endif
find s0 "6"
if found
strcpy s4 "320-6202"
strcpy s5 "A/V SYNC/ $$               "
gosub dial
endif
find s0 "7"
if found
strcpy s4 "633-2197"
strcpy s5 "AutoCad                    "
gosub dial
endif
find s0 "8"
if found
strcpy s4 "949-0687"
strcpy s5 "LARC BBS/ham               "
gosub dial
endif
find s0 "9"
if found
strcpy s4 "964-4483"
strcpy s5 "Software Shop 2            "
gosub dial
endif
find s0 "@"
if found
strcpy s4 "974-1521"
strcpy s5 "Gonzoland                  "
gosub dial
endif
find s0 "#"
if found
strcpy s4 "982-0960"
strcpy s5 "Rock n Roll Party          "
gosub dial
endif
find s0 "$"
if found
strcpy s4 "662-0732"
strcpy s5 "Arrow Support              "
gosub dial
endif
find s0 "%"
if found
strcpy s4 "924-8593"
strcpy s5 "Main Street                "
gosub dial
endif
find s0 "&"
if found
strcpy s4 "368-5058"
strcpy s5 "GEORGIA POWER BBS          "
gosub dial
endif
find s0 "*"
if found
strcpy s4 "422-1060"
strcpy s5 "Corner Drugstore           "
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 Centurion .............. 296-9681"
atsay 02 02 n8 "B The Right Place ........ 476-2607"
atsay 03 02 n8 "C THX1138 ................ 598-5351"
atsay 04 02 n8 "D AESC ................... 381-1947"
atsay 05 02 n8 "E HAM BBS ................ 363-1640"
atsay 06 02 n8 "F Atlanta PC User's Group  433-0062"
atsay 07 02 n8 "G Conference System ...... 433-0689"
atsay 08 02 n8 "H Big Peach .............. 446-6650"
atsay 09 02 n8 "I MicroStuff/Crosstalk ... 998-8048"
atsay 10 02 n8 "J Pecan Pi ............... 454-8756"
atsay 11 02 n8 "K Georgia BBS ............ 451-4091"
atsay 12 02 n8 "L ZAP BBS ................ 972-3458"
atsay 13 02 n8 "M Home of No Change BBS .. 641-8270"
atsay 14 02 n8 "N PC Plus ................ 762-0923"
atsay 15 02 n8 "O Atlanta Exchange ....... 921-4395"
atsay 16 02 n8 "P Atlanta Medical Forum .. 351-9757"
atsay 17 02 n8 "Q Atlanta Connection ..... 929-0800"
atsay 18 02 n8 "R Engineers/Architects ... 368-5058"
atsay 19 02 n8 "S Illum-Net/UFOs ......... 377-1141"
atsay 20 02 n8 "T ARC/ham ................ 393-3083"
atsay 21 02 n8 "U PC Exchange ............ 977-6686"
atsay 01 43 n8 "V NASPA System SE ........ 441-1431"
atsay 02 43 n8 "W Dallas DBA ............. 443-2421"
atsay 03 43 n8 "X Byte Flight ............ 454-8795"
atsay 04 43 n8 "Y One of a Kind .......... 455-1271"
atsay 05 43 n8 "Z Bill's Obsession ....... 377-2550"
atsay 06 43 n8 "0 Bird's Nest ............ 751-0252"
atsay 07 43 n8 "1 NE Atlanta OPUS ........ 455-6966"
atsay 08 43 n8 "2 GA Pacific ............. 521-5013"
atsay 09 43 n8 "3 HighTech Revolution .... 951-9251"
atsay 10 43 n8 "4 PC Link ................ 381-6759"
atsay 11 43 n8 "5 Night Light ............ 423-9675"
atsay 12 43 n8 "6 A/V SYNC/ $$ ........... 320-6202"
atsay 13 43 n8 "7 AutoCad ................ 633-2197"
atsay 14 43 n8 "8 LARC BBS/ham ........... 949-0687"
atsay 15 43 n8 "9 Software Shop 2 ........ 964-4483"
atsay 16 43 n8 "@ Gonzoland .............. 974-1521"
atsay 17 43 n8 "# Rock n Roll Party ...... 982-0960"
atsay 18 43 n8 "$ Arrow Support .......... 662-0732"
atsay 19 43 n8 "% Main Street ............ 924-8593"
atsay 20 43 n8 "& GEORGIA POWER BBS ...... 368-5058"
atsay 21 43 n8 "* Corner Drugstore ....... 422-1060"
locate 23 00
get s0
goto top
return