home *** CD-ROM | disk | FTP | other *** search
/ Jason Aller Floppy Collection / 168.img / XTMK42-2.ZIP / XTSETTRM.XTS < prev    next >
Encoding:
Text File  |  1990-03-06  |  956 b   |  48 lines
  1.  
  2. /*
  3.     Procedure SET_TERM:  Make sure the user has a device and a terminal.
  4.  
  5.     SET_TERM
  6.  
  7.     Copyright (c) 1986, 1989, Digital Communications Associates, Inc.
  8.     All rights reserved
  9.     For Crosstalk Mk. 4, Ver 1.1 - 01-19-89 by Sheldon T. Hall
  10.  
  11. */
  12.  
  13. include XTPAUSE
  14.  
  15. proc SET_TERM
  16.  
  17.     cmh = "Crosstalk must have a "
  18.     pc1 = hilite + "Please choose a "
  19.     pc2 = " type" + lolite
  20.     SETC = "Press " + keylite + " Enter " + lolite + " for list of choices"
  21.  
  22.     if null(device) then            ...
  23.         trap on                : ...
  24.         toss = error            : ...
  25.         device "MODEM"            : ...
  26.         toss = error            : ...
  27.         trap off
  28.  
  29.     while null(device)
  30.         PAUSE cmh + "device selected", pc1 + "device" + pc2, SETC
  31.         device
  32.     wend
  33.  
  34.     if null(terminal) then            ...
  35.         trap on                : ...
  36.         toss = error            : ...
  37.         terminal "ANSI"            : ...
  38.         toss = error            : ...
  39.         trap off
  40.  
  41.     while null(terminal)
  42.         PAUSE cmh + "terminal selected", pc1 + "terminal" + pc2, SETC
  43.         terminal
  44.     wend
  45.  
  46. endproc
  47.  
  48.