home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Jason Aller Floppy Collection
/
168.img
/
XTMK42-2.ZIP
/
XTSETTRM.XTS
< prev
next >
Wrap
Text File
|
1990-03-06
|
956b
|
48 lines
/*
Procedure SET_TERM: Make sure the user has a device and a terminal.
SET_TERM
Copyright (c) 1986, 1989, Digital Communications Associates, Inc.
All rights reserved
For Crosstalk Mk. 4, Ver 1.1 - 01-19-89 by Sheldon T. Hall
*/
include XTPAUSE
proc SET_TERM
cmh = "Crosstalk must have a "
pc1 = hilite + "Please choose a "
pc2 = " type" + lolite
SETC = "Press " + keylite + " Enter " + lolite + " for list of choices"
if null(device) then ...
trap on : ...
toss = error : ...
device "MODEM" : ...
toss = error : ...
trap off
while null(device)
PAUSE cmh + "device selected", pc1 + "device" + pc2, SETC
device
wend
if null(terminal) then ...
trap on : ...
toss = error : ...
terminal "ANSI" : ...
toss = error : ...
trap off
while null(terminal)
PAUSE cmh + "terminal selected", pc1 + "terminal" + pc2, SETC
terminal
wend
endproc