home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
kermit.columbia.edu
/
kermit.columbia.edu.tar
/
kermit.columbia.edu
/
archives
/
ti990.zip
/
ti990.pro
< prev
next >
Wrap
Text File
|
1988-08-16
|
847b
|
41 lines
KERMIT(KERMIT - DX10 VERSION 1.0)=4,
ISC CONSOLE TERMINAL?,
REMOTE TERMINAL?=NAME(@ME)
*
* CHECK FOR NON-STANDARD OR NON-931 TERMINAL
* PROMPT FOR THIS IN EXPERT MODE
*
.IF "&ISC CONSOLE TERMINAL?",GE,"Y"
.SYN $RISC="ISC"
.ELSE
.SYN $RISC="NOISC"
.ENDIF
*
* SET LOCAL OR REMOTE MODE
*
.IF "&REMOTE TERMINAL?",EQ,"@ME"
.SYN $RTER="REMOTE"
.ELSE
.SYN $RTER="LOCAL"
.ENDIF
*
.SYN $QUIT=""
*
* BID TASK FROM .PROG or whatever program file you choose
*
AL AN=.PROG,PF=YES,D=NO
*
.BID TASK=KERMIT,LUNO=@$$LU,
PARMS=(9,1,"&REMOTE TERMINAL?","@ME",".KERLOG@$$ST",
"@$RTER","@$RISC")
*
* CLEAN UP
RL L=@$$LU
.SYN $RTER="",$RISC=""
*
.IF "@$QUIT",GE,"Y" ! BYE OPTION RECEIVED IN KERMIT
.SYN $QUIT="" ! SETS $QUIT - SO CLEAR THE SYN
Q ! AND LOGOFF THE SYSTEM.
.ENDIF
*