Shareware Grab Bag

home *** CD-ROM | disk | FTP | other *** search

/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / apcp.arc / A214A.CMD < prev next >

Wrap

Text File | 1987-01-01 | 10.3 KB | 404 lines

goto menu dial: isfile s8 if success return else endif clear message "│ 214 │" locate 0,8 message s8 locate 0,17 message "│ Dallas, TX │" locate 0,49 message s6 locate 0,77 message "│" locate 2,0 transmit "I!" pause 1 transmit "ATZ!" waitfor "OK" transmit "^E!" waitfor "READY" transmit "D" transmit S8 transmit "!" rget s9 rget s9 80 40 rget s9 40 40 rget s9 40 40 mess: find s9 "BUSY" if found assign s7 "M" return else endif find s9 "ANSWER TONE" if found set parity none set databits 8 clear log open s8 alarm 2 exit else endif find s9 "RINGING" if found rget s9 find s9 "RINGING" if not found goto mess else log open s8 message "NO ANSWER - STILL RINGING" log close transmit "^C^D^C" endif else endif return menu: assign s7 " " log close clear message "╔════════════════════════════════════════════════════════════════════════════╗" message "║ A- Discus ................. 392-1121 V- Comm Link Rowlett ...... 475-4598 ║" message "║ B- BlueBonnet ............. 821-5312 W- Double D ............... 492-8090 ║" message "║ C- RBase BBS .............. 88-10313 X- SSBB Mike's Machine .... 495-5616 ║" message "║ D- Support Link ........... 638-8069 Y- LawSIG ................. 522-1963 ║" message "║ E- Cheyenne Social Club ... 724-0033 Z- 101 Schnee's Friendly .. 578-1308 ║" message "║ F- Arlington Fido ......... 265-4859 0- Unknown BBS ............ 594-0390 ║" message "║ G- Big D .................. 392-1121 1- Epson <pw=Epsonstc> .... 659-0387 ║" message "║ H- Soft-Touch ............. 462-8054 2- 35 Junior Forum ........ 669-9272 ║" message "║ I- Dodge City ............. 492-8054 3- Fido #494 .............. 690-6464 ║" message "║ J- RBBS Grand Prairie ..... 660-7447 4- BaylorNet .............. 820-2888 ║" message "║ K- Dallas BBS ............. 931-1834 5- Hacker's ............... 824-7166 ║" message "║ L- Computer Solutions ..... 528-7141 6- 201 DalTex FIDOnet ..... 991-7934 ║" message "║ M- 860/17 Telecompaq ...... 241-5412 7- ........................ ...-.... ║" message "║ N- Software Exchange ...... 248-7757 8- ........................ ...-.... ║" message "║ O- Supercomputer .......... 270-6755 9- ........................ ...-.... ║" message "║ P- Dragon's Lair .......... 287-1332 @- ........................ ...-.... ║" message "║ Q- Datalink ............... 340-5850 #- ........................ ...-.... ║" message "║ R- CBBS/Theta Labs ........ 352-4147 $- ........................ ...-.... ║" message "║ S- TUUG/Newsoft News Svc .. 373-0193 %- ........................ ...-.... ║" message "║ T- K Squared RBBS ......... 393-0750 &- ........................ ...-.... ║" message "║ U- DataTech ............... 424-6446 *- ........................ ...-.... ║" message "╚════════════════════════════════════════════════════════════════════════════╝" locate 23,2 get s0 top: find s0 "A" if found assign s8 "392-1121" assign s6 "Discus " gosub dial else endif find s0 "B" if found assign s8 "821-5312" assign s6 "BlueBonnet " gosub dial else endif find s0 "C" if found assign s8 "881-0313" assign s6 "RBase BBS " gosub dial else endif find s0 "D" if found assign s8 "638-8069" assign s6 "Support Link " gosub dial else endif find s0 "E" if found assign s8 "724-0033" assign s6 "Cheyenne Social Club " gosub dial else endif find s0 "F" if found assign s8 "265-4859" assign s6 "Arlington FIDO " gosub dial else endif find s0 "G" if found assign s8 "392-1121" assign s6 "Big D BBS " gosub dial else endif find s0 "H" if found assign s8 "462-8054" assign s6 "Soft-Touch " gosub dial else endif find s0 "I" if found assign s8 "492-8054" assign s6 "Dodge City BBS " gosub dial else endif find s0 "J" if found assign s8 "660-7447" assign s6 "RBBS Grand Prairie " gosub dial else endif find s0 "K" if found assign s8 "931-1834" assign s6 "Dallas BBS " gosub dial else endif find s0 "L" if found assign s8 "528-7141" assign s6 "Computer Solutions " gosub dial else endif find s0 "M" if found assign s8 "241-5412" assign s6 "860/17 Telecompaq " gosub dial else endif find s0 "N" if found assign s8 "248-7757" assign s6 "Software Exchange " gosub dial else endif find s0 "O" if found assign s8 "279-6755" assign s6 "Supercomputer " gosub dial else endif find s0 "P" if found assign s8 "287-1332" assign s6 "Dragon's Lair " gosub dial else endif find s0 "Q" if found assign s8 "340-5850" assign s6 "Datalink " gosub dial else endif find s0 "R" if found assign s8 "352-4147" assign s6 "CBBS/Theta Labs " gosub dial else endif find s0 "S" if found assign s8 "373-0193" assign s6 "TUUG/Newsoft News Service " gosub dial else endif find s0 "T" if found assign s8 "393-0750" assign s6 "K Squared RBBS " gosub dial else endif find s0 "U" if found assign s8 "424-6446" assign s6 "DataTech " gosub dial else endif find s0 "V" if found assign s8 "475-4598" assign s6 "Comm Link Rowlett " gosub dial else endif find s0 "W" if found assign s8 "492-8090" assign s6 "Double D " gosub dial else endif find s0 "X" if found assign s8 "495-5616" assign s6 "SSBB Mike's Machine " gosub dial else endif find s0 "Y" if found assign s8 "522-1963" assign s6 "LawSIG " gosub dial else endif find s0 "Z" if found assign s8 "578-1308" assign s6 "101 Schnee's Friendly " gosub dial else endif find s0 "0" if found assign s8 "594-0390" assign s6 "Unknown BBS " gosub dial else endif find s0 "1" if found assign s8 "659-0387" assign s6 "Epson >pw=Epsonstc< " gosub dial else endif find s0 "2" if found assign s8 "669-9272" assign s6 "35 Junior Forum " gosub dial else endif find s0 "3" if found assign s8 "690-6464" assign s6 "Fido #494 " gosub dial else endif find s0 "4" if found assign s8 "820-2888" assign s6 "BaylorNet " gosub dial else endif find s0 "5" if found assign s8 "824-7166" assign s6 "Hacker's " gosub dial else endif find s0 "6" if found assign s8 "991-7934" assign s6 "201 DalTex FIDOnet " gosub dial else endif goto speedup ; Skip Empty Elements find s0 "7" if found assign s8 " - " assign s6 " " gosub dial else endif find s0 "8" if found assign s8 " - " assign s6 " " gosub dial else endif find s0 "9" if found assign s8 " - " assign s6 " " gosub dial else endif find s0 "@" if found assign s8 " - " assign s6 " " gosub dial else endif find s0 "#" if found assign s8 " - " assign s6 " " gosub dial else endif find s0 "$" if found assign s8 " - " assign s6 " " gosub dial else endif find s0 "%" if found assign s8 " - " assign s6 " " gosub dial else endif find s0 "&" if found assign s8 " - " assign s6 " " gosub dial else endif find s0 "*" if found assign s8 " - " assign s6 " " gosub dial else endif speedup: find s7 "M" if found assign s7 " " goto top else endif message "All Numbers Connected - Or Did Not Answer" alarm 2 exit