home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Jason Aller Floppy Collection
/
168.img
/
XTMK42-2.ZIP
/
TELENET.XTS
< prev
next >
Wrap
Text File
|
1990-03-06
|
1KB
|
89 lines
/*
TELENET Navigation script for use by other scripts
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
*/
assume device 'MODEM'
proc W5R takes WTR
integer i
string x
wait quiet 5 ticks
if device = "XPC" then ...
reply WTR : ...
exit
for i = 1 to length(WTR)
x = mid(WTR,i,1)
if not online then exit
reply x;
wait 1 ticks for x -- Remove if no pacing desired.
next
reply
endProc
ScriptDesc = "Login to Telenet with host name contained in NetID"
sp = chr(32)
w = freewin
window w, zone 11, color blue
title #w, ' TELENET Login '
print #w
print #w, sp; speed; ' baud: ';
if speed => 2400 then ...
wtr = '@' ...
else ...
wtr = chr(13)
track clear
track 1, case 'E'
track 2, key 27
track routine OK
while online
print #w, '.';
reply wtr;
wait 5 ticks
reply
wait 10 ticks
wend
end
label OK
if track(2) then bye
track clear
while online
watch for
case 'TERM' : W5R 'D1'
'@' : W5R 'C ' + NetID
case 'CONNECT' : end
'illegal', 'erro', ...
'disco', 'outage', ...
'unavai', 'barre', ...
'reject', 'refus', ...
space 'not ' : W5R '' : bye
key 27 : end
endwatch
wend
end