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 "FLTAM"
atsay 01 10 n8 s4
atsay 01 21 n8 "Tampa, FL               813"
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 "989-3375"
strcpy s5 "EASTERN PUBLISHERS/DTP     "
gosub dial
endif
find s0 "B"
if found
strcpy s4 "882-4425"
strcpy s5 "Town n' Country            "
gosub dial
endif
find s0 "C"
if found
strcpy s4 "832-4133"
strcpy s5 "Softcopy                   "
gosub dial
endif
find s0 "D"
if found
strcpy s4 "949-7153"
strcpy s5 "Power Supply               "
gosub dial
endif
find s0 "E"
if found
strcpy s4 "882-0494"
strcpy s5 "CAD Connection             "
gosub dial
endif
find s0 "F"
if found
strcpy s4 "654-1033"
strcpy s5 "Merlyn's Rainbow           "
gosub dial
endif
find s0 "G"
if found
strcpy s4 "888-5862"
strcpy s5 "PC Bd of Tampa/$$          "
gosub dial
endif
find s0 "H"
if found
strcpy s4 "796-5627"
strcpy s5 "Datacomm Supersystem       "
gosub dial
endif
find s0 "I"
if found
strcpy s4 "684-5248"
strcpy s5 "Master Date BBS            "
gosub dial
endif
find s0 "J"
if found
strcpy s4 "971-2934"
strcpy s5 "The Tower Club             "
gosub dial
endif
find s0 "K"
if found
strcpy s4 "684-5923"
strcpy s5 "Loose Moose                "
gosub dial
endif
find s0 "L"
if found
strcpy s4 "963-6362"
strcpy s5 "IBM-PC BBS                 "
gosub dial
endif
find s0 "M"
if found
strcpy s4 "677-2799"
strcpy s5 "Fl Central Info            "
gosub dial
endif
find s0 "N"
if found
strcpy s4 "264-6344"
strcpy s5 "Entropy                    "
gosub dial
endif
find s0 "O"
if found
strcpy s4 "887-3984"
strcpy s5 "Sunshine IBM-PC            "
gosub dial
endif
find s0 "P"
if found
strcpy s4 "886-3159"
strcpy s5 "Sunshine IBM-PC            "
gosub dial
endif
find s0 "Q"
if found
strcpy s4 "887-3757"
strcpy s5 "Sunshine IBM-PC            "
gosub dial
endif
find s0 "R"
if found
strcpy s4 "684-8720"
strcpy s5 "Decision Mate              "
gosub dial
endif
find s0 "S"
if found
strcpy s4 "985-8880"
strcpy s5 "Cosmic Warp                "
gosub dial
endif
find s0 "T"
if found
strcpy s4 "264-0073"
strcpy s5 "Data Exchange              "
gosub dial
endif
find s0 "U"
if found
strcpy s4 "654-1706"
strcpy s5 "New Awareness              "
gosub dial
endif
find s0 "V"
if found
strcpy s4 "831-6841"
strcpy s5 "The Swamp                  "
gosub dial
endif
find s0 "W"
if found
strcpy s4 "875-5153"
strcpy s5 "Point Blank                "
gosub dial
endif
find s0 "X"
if found
strcpy s4 "996-7600"
strcpy s5 "Smitty's                   "
gosub dial
endif
find s0 "Y"
if found
strcpy s4 "886-0284"
strcpy s5 "TABB                       "
gosub dial
endif
find s0 "Z"
if found
strcpy s4 "920-6490"
strcpy s5 "Pro Data Exchange          "
gosub dial
endif
find s0 "0"
if found
strcpy s4 "968-8000"
strcpy s5 "Amer Bus. Broker/biz       "
gosub dial
endif
find s0 "1"
if found
strcpy s4 "968-6220"
strcpy s5 "Computer Archives          "
gosub dial
endif
find s0 "2"
if found
strcpy s4 "980-2981"
strcpy s5 "Shamrock                   "
gosub dial
endif
find s0 "3"
if found
strcpy s4 "977-0941"
strcpy s5 "Tampa Bay Amiga Group      "
gosub dial
endif
find s0 "4"
if found
strcpy s4 "874-3078"
strcpy s5 "PAC-COMM/ham               "
gosub dial
endif
find s0 "5"
if found
strcpy s4 "264-0073"
strcpy s5 "Data Exchange/sports       "
gosub dial
endif
find s0 "6"
if found
strcpy s4 "681-2008"
strcpy s5 "MasterDate                 "
gosub dial
endif
find s0 "7"
if found
strcpy s4 "831-7276"
strcpy s5 "Z-Node #27/Imsai           "
gosub dial
endif
find s0 "8"
if found
strcpy s4 "837-5765"
strcpy s5 "Video Trader Net           "
gosub dial
endif
find s0 "9"
if found
strcpy s4 "963-1900"
strcpy s5 "Tampa Info Board           "
gosub dial
endif
find s0 "@"
if found
strcpy s4 "654-8484"
strcpy s5 "TI Heaven                  "
gosub dial
endif
find s0 "#"
if found
strcpy s4 "989-2539"
strcpy s5 "Mantis Empire              "
gosub dial
endif
find s0 "$"
if found
strcpy s4 "237-0152"
strcpy s5 "KoRoBa/games               "
gosub dial
endif
find s0 "%"
if found
strcpy s4 "977-4249"
strcpy s5 "WYNF 95 Nightrock          "
gosub dial
endif
find s0 "&"
if found
strcpy s4 "886-5286"
strcpy s5 "Alligator/c-64 games       "
gosub dial
endif
find s0 "*"
if found
strcpy s4 "884-0939"
strcpy s5 "Doctor's Walk-In           "
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 EASTERN PUBLISHERS/DTP . 989-3375"
atsay 02 02 n8 "B Town n' Country ........ 882-4425"
atsay 03 02 n8 "C Softcopy ............... 832-4133"
atsay 04 02 n8 "D Power Supply ........... 949-7153"
atsay 05 02 n8 "E CAD Connection ......... 882-0494"
atsay 06 02 n8 "F Merlyn's Rainbow ....... 654-1033"
atsay 07 02 n8 "G PC Bd of Tampa/$$ ...... 888-5862"
atsay 08 02 n8 "H Datacomm Supersystem ... 796-5627"
atsay 09 02 n8 "I Master Date BBS ........ 684-5248"
atsay 10 02 n8 "J The Tower Club ......... 971-2934"
atsay 11 02 n8 "K Loose Moose ............ 684-5923"
atsay 12 02 n8 "L IBM-PC BBS ............. 963-6362"
atsay 13 02 n8 "M Fl Central Info ........ 677-2799"
atsay 14 02 n8 "N Entropy ................ 264-6344"
atsay 15 02 n8 "O Sunshine IBM-PC ........ 887-3984"
atsay 16 02 n8 "P Sunshine IBM-PC ........ 886-3159"
atsay 17 02 n8 "Q Sunshine IBM-PC ........ 887-3757"
atsay 18 02 n8 "R Decision Mate .......... 684-8720"
atsay 19 02 n8 "S Cosmic Warp ............ 985-8880"
atsay 20 02 n8 "T Data Exchange .......... 264-0073"
atsay 21 02 n8 "U New Awareness .......... 654-1706"
atsay 01 43 n8 "V The Swamp .............. 831-6841"
atsay 02 43 n8 "W Point Blank ............ 875-5153"
atsay 03 43 n8 "X Smitty's ............... 996-7600"
atsay 04 43 n8 "Y TABB ................... 886-0284"
atsay 05 43 n8 "Z Pro Data Exchange ...... 920-6490"
atsay 06 43 n8 "0 Amer Bus. Broker/biz ... 968-8000"
atsay 07 43 n8 "1 Computer Archives ...... 968-6220"
atsay 08 43 n8 "2 Shamrock ............... 980-2981"
atsay 09 43 n8 "3 Tampa Bay Amiga Group .. 977-0941"
atsay 10 43 n8 "4 PAC-COMM/ham ........... 874-3078"
atsay 11 43 n8 "5 Data Exchange/sports ... 264-0073"
atsay 12 43 n8 "6 MasterDate ............. 681-2008"
atsay 13 43 n8 "7 Z-Node #27/Imsai ....... 831-7276"
atsay 14 43 n8 "8 Video Trader Net ....... 837-5765"
atsay 15 43 n8 "9 Tampa Info Board ....... 963-1900"
atsay 16 43 n8 "@ TI Heaven .............. 654-8484"
atsay 17 43 n8 "# Mantis Empire .......... 989-2539"
atsay 18 43 n8 "$ KoRoBa/games ........... 237-0152"
atsay 19 43 n8 "% WYNF 95 Nightrock ...... 977-4249"
atsay 20 43 n8 "& Alligator/c-64 games ... 886-5286"
atsay 21 43 n8 "* Doctor's Walk-In ....... 884-0939"
locate 23 00
get s0
goto top
return