home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 June / SIMTEL_0692.cdr / msdos / zmodem / zcommbar.arc / ZCOMM.BDF < prev    next >
Text File  |  1987-12-22  |  8KB  |  258 lines
  1. PROGRAM   "ZCOMM"
  2.  
  3. MENU MAIN
  4.      OPTION    CALL,"Call - BBS, Genie, Compuserve, People-Link, Manual Dial"
  5.           EXECUTE CALL
  6.      OPTION    DNLOAD,"Download - Xmodem, Ymodem, Kermit, Wxmodem, Batch, Telink, Modem7"
  7.           EXECUTE DNLOAD
  8.      OPTION    UPLOAD,"Upload - Xmodem, 1k Xmodem, Kermit, Wxmodem, Zmodem"
  9.           EXECUTE UPLOAD
  10.      OPTION    PCP,"PC-Pursuit - Logon, New BBS, Change City"
  11.           EXECUTE PCP
  12.      OPTION    REVIEW,"Review Circular Buffer or Browse files on default drive"
  13.           EXECUTE REVIEW
  14.      OPTION    TLEARN,"Record keystrokes and create script files"
  15.           EXECUTE LEARN
  16.      OPTION    SETUP,"Terminal Settings - Emulations, Quiet, Conference, Echo, Comm Port"
  17.           EXECUTE SETUP
  18.      OPTION    INFO,"Information - Help, Status, Key Definitions"
  19.           EXECUTE INFO
  20.      OPTION    JUMP,"Jump to DOS command"
  21.           TYPE "!"
  22.           ASK "Enter command to be executed from DOS"
  23.           INPUT
  24.           CR
  25.      OPTION    N-DIR,"Change to new directory"
  26.           TYPE "cd "
  27.           ASK "Name of new directory"
  28.           INPUT
  29.           CR
  30.      OPTION    LOG,"Capture session to a disk file"
  31.           EXECUTE LOG
  32.      OPTION    HANGUP,"Hangup phone"
  33.           TYPE "bye{ENTER}"
  34.      OPTION    QUIT,"Exit ZCOMM"
  35.           TYPE "off{ENTER}"
  36. MEND
  37.  
  38. MENU CALL
  39.      OPTION     BBS,"Bulletin Board Dialing Directory"
  40.           EXECUTE LOCAL
  41.      OPTION     1200CIS,"Call Compuserve at 1200 baud"
  42.           TYPE "call 1200cis{ENTER}"
  43.      OPTION     300CIS,"Call Compuserve at 300 baud"
  44.           TYPE "call 300cis{ENTER}"
  45.      OPTION     LINK,"Call People-Link"
  46.           TYPE "call people{ENTER}"
  47.      OPTION     GENIE,"Call Genie Information Service"
  48.           TYPE "call genie{ENTER}"
  49.      OPTION     STOCK,"Stock Exchange quotes via Genie"
  50.           TYPE "call stock{ENTER}"
  51.      OPTION     EXEC-PC,"Call EXEC-PC in Milwaukee direct"
  52.           TYPE "call exec-pc{ENTER}"
  53.      OPTION     DIAL,"Manual entry of number to dial"
  54.           ASK "Number to dial (no spaces)"
  55.           INPUT
  56.           CR
  57. MEND
  58.  
  59. MENU LOCAL
  60.      OPTION     RCN,"River City Network"
  61.           TYPE "call river{ENTER}"
  62.      OPTION     MTS,"Michiana Technical System"
  63.           TYPE "call mts{ENTER}"
  64.      OPTION    IDM,"Indiana Data Managers"
  65.           TYPE "call indata{ENTER}"
  66.      OPTION    CAPTN,"Captain Jack"
  67.           TYPE "call captn{ENTER}"
  68.      OPTION    LINK,"The Link"
  69.           TYPE "call link{ENTER}"
  70.      OPTION    FORUM,"Forum Five"
  71.           TYPE "call forum{ENTER}"
  72.      OPTION    ADN,"ADN Micro Store"
  73.           TYPE "call adn{ENTER}"
  74.      OPTION    ELK,"Elkhart BBS"
  75.           TYPE "call elkhart{ENTER}"
  76.      OPTION    TREAS,"Treasure Chest"
  77.           TYPE "call treasure{ENTER}"
  78.      OPTION    FARGO,"Fargo N.D. BBS"
  79.           TYPE "call fargo{ENTER}"
  80.      OPTION    YAM,"Telegodzilla Direct"
  81.           TYPE "call telegod{ENTER}"
  82.  
  83. MEND
  84.  
  85. MENU DNLOAD
  86.      OPTION XMODEM,"Xmodem CRC single file receive"
  87.           TYPE "rc "
  88.           ASK "Name of file"
  89.           INPUT
  90.           TYPE " {C}1t"
  91.           CR
  92.      OPTION 1K,"1K Xmodem (BBS Ymodem) single file receive"
  93.           TYPE "rc "
  94.           ASK "Name of file"
  95.           INPUT
  96.           TYPE " {C}1t"
  97.           CR
  98.      OPTION KERMIT,"Kermit batch receive"
  99.           TYPE "kermit rb{C}1t{ENTER}"
  100.      OPTION WXMODEM,"Wxmodem receive"
  101.           TYPE "rw "
  102.           ASK "Name of file"
  103.           INPUT
  104.           TYPE " {C}1t"
  105.           CR
  106.      OPTION BATCH,"Batch Ymodem or SEAlink receive"
  107.           TYPE "rb{C}1t{ENTER}"
  108.      OPTION TELINK,"Telink receive"
  109.           TYPE "rt "
  110.           ASK "Name of file"
  111.           INPUT
  112.           TYPE " {C}1t"
  113.           CR
  114.      OPTION MODEM7,"Modem7 receive"
  115.           TYPE "r7 "
  116.           ASK "Name of file"
  117.           INPUT
  118.           TYPE " {C}1t"
  119.           CR
  120.      OPTION CISB,"Compuserve B protocol receive"
  121.           TYPE "ena -c{ENTER}"
  122. MEND
  123.  
  124. MENU UPLOAD
  125.      OPTION     XMODEM,"Xmodem upload"
  126.           TYPE "sx "
  127.           ASK "Name of file"
  128.           INPUT
  129.           TYPE " {C}1t"
  130.           CR
  131.       OPTION    1K,"1K Xmodem (BBS Ymodem) upload"
  132.           TYPE "sx -k "
  133.           ASK "Name of file"
  134.           INPUT
  135.           TYPE " {C}1t"
  136.           CR
  137.       OPTION     KERMIT,"Kermit batch upload"
  138.           TYPE "kermit sb "
  139.           ASK "Name of file(s)"
  140.           INPUT
  141.           TYPE " {C}1t"
  142.           CR
  143.       OPTION     WXMODEM,"Wxmodem upload"
  144.           TYPE "sw "
  145.           ASK "Name of file"
  146.           INPUT
  147.           TYPE " {C}1t"
  148.           CR
  149.       OPTION     ZMODEM,"Zmodem upload"
  150.           TYPE "sz "
  151.           ASK "Name of file"
  152.           INPUT
  153.           TYPE " {C}1t"
  154.           CR
  155. MEND
  156.  
  157. MENU PCP
  158.      OPTION     LOGON,"Call PC-Pursuit and logon"
  159.           TYPE "call .pursuit.t{ENTER}"
  160.      OPTION     CITY,"Choose a new city"
  161.           TYPE "break put \rD\r call city.pursuit.t{ENTER}"
  162.      OPTION     BBS,"Choose a new BBS in the same city"
  163.           TYPE "put ATZ\r{C}1 pat 1i OK{C}1 wait{C}1 put \005\r{C}1 call .%s9.t{ENTER}"
  164. MEND
  165.  
  166. MENU REVIEW
  167.      OPTION    REVIEW,"Review data in the Circular Buffer"
  168.           TYPE "rev{ENTER}"
  169.      OPTION    BROWSE,"Browse (view, copy, delete, etc.)through files on default directory"
  170.           TYPE "bro{ENTER}"
  171. MEND
  172.  
  173. MENU LEARN
  174.      OPTION    RECORD,"Start recording keystrokes"
  175.           TYPE "gosub tlearn.phodir.t{ENTER}"
  176.      OPTION    PROCESS,"Process keystroke record into script"
  177.           TYPE "!tlearn lfile >"
  178.           ASK "Name of file for script"
  179.           INPUT
  180.           CR
  181. MEND
  182.  
  183. MENU SETUP
  184.      OPTION    TERMINAL,"Terminal Emulations - VT100, LSI-ADM3A, 3101, ANSI, Dumb"
  185.           EXECUTE TERMINAL
  186.      OPTION    QUIET,"Toggle bell"
  187.           EXECUTE QUIET
  188.      OPTION    CONFERENCE,"Toggle Conference mode"
  189.           EXECUTE CONF
  190.      OPTION    ECHO,"Toggle Echo"
  191.           EXECUTE ECHO
  192.      OPTION    PORT,"Select COMM Port"
  193.           TYPE "port "
  194.           ASK "Communications Port number"
  195.           INPUT
  196.           CR
  197. MEND
  198.  
  199. MENU TERMINAL
  200.      OPTION    VT100,"DEC VT100 and VT102"
  201.           TYPE "display vt100{ENTER}"
  202.      OPTION    LSI-ADM3A,"Lear Seigler ADM3A or Televideo 9XX"
  203.           TYPE "display lsi-adm3a{ENTER}"
  204.      OPTION    3101,"IBM3101 and TI940"
  205.           TYPE "display 3101{ENTER}"
  206.      OPTION    ANSI,"ANSI BBS or VT52"
  207.           TYPE "display novt100 nolsi-adm3a no3101 nodumb{ENTER}"
  208.      OPTION    DUMB,"No Emulation"
  209.           TYPE "display dumb{ENTER}"
  210. MEND
  211.  
  212. MENU QUIET
  213.      OPTION SILENT,"Quiet mode - bell is off"
  214.           TYPE "display bell=visual{ENTER}"
  215.       OPTION OFF,"Bell mode - bell is on"
  216.           TYPE "display nobell=visual{ENTER}"
  217. MEND
  218.  
  219. MENU CONF
  220.      OPTION ENABLE,"Enable Conference mode"
  221.           TYPE "CONF{ENTER}"
  222.      OPTION DISABLE,"Disable Conference mode"
  223.           TYPE "t{ENTER}"
  224. MEND
  225.  
  226. MENU ECHO
  227.      OPTION DUPLEX,"Full Duplex - no local Echo"
  228.           TYPE "t{ENTER}"
  229.      OPTION HALF,"Half Duplex - local Echo on"
  230.           TYPE "t -H{ENTER}"
  231. MEND
  232.  
  233. MENU INFO
  234.      OPTION  HELP,"Online help file"
  235.           TYPE "help{ENTER}"
  236.      OPTION  SET,"View settings"
  237.           TYPE "s{ENTER}"
  238.      OPTION  KEYS,"View soft key definitions"
  239.           TYPE "keys{ENTER}"
  240.      OPTION  FIND,"Display lines of matching text in a file"
  241.           TYPE "find "
  242.       ASK "Enter text string to match - a space - and the name of the file to search"
  243.           INPUT
  244.           CR
  245. MEND
  246.  
  247. MENU LOG
  248.      OPTION OPEN,"Start capture to file"
  249.           TYPE "kill{C}1t "
  250.           ASK "Name of capture file"
  251.           INPUT
  252.           CR
  253.      OPTION CLOSE,"Close capture file"
  254.           TYPE "close{ENTER}"
  255. MEND
  256.  
  257. END
  258.