home *** CD-ROM | disk | FTP | other *** search
/ kermit.columbia.edu / kermit.columbia.edu.tar / kermit.columbia.edu / ti990 / ti990.pro < prev    next >
Text File  |  1988-08-15  |  807b  |  41 lines
  1. KERMIT(KERMIT - DX10 VERSION 1.0)=4,
  2. ISC CONSOLE TERMINAL?,
  3. REMOTE TERMINAL?=NAME(@ME)
  4. *
  5. * CHECK FOR NON-STANDARD OR NON-931 TERMINAL
  6. * PROMPT FOR THIS IN EXPERT MODE
  7. *
  8. .IF "&ISC CONSOLE TERMINAL?",GE,"Y"
  9.   .SYN $RISC="ISC"
  10. .ELSE
  11.   .SYN $RISC="NOISC"
  12. .ENDIF
  13. *
  14. * SET LOCAL OR REMOTE MODE
  15. *
  16. .IF "&REMOTE TERMINAL?",EQ,"@ME"
  17.   .SYN $RTER="REMOTE"
  18. .ELSE
  19.   .SYN $RTER="LOCAL"
  20. .ENDIF
  21. *
  22. .SYN $QUIT=""
  23. *
  24. * BID TASK FROM .PROG or whatever program file you choose
  25. *
  26. AL AN=.PROG,PF=YES,D=NO
  27. *
  28. .BID TASK=KERMIT,LUNO=@$$LU,
  29.   PARMS=(9,1,"&REMOTE TERMINAL?","@ME",".KERLOG@$$ST",
  30.            "@$RTER","@$RISC")
  31. *
  32. * CLEAN UP
  33. RL L=@$$LU
  34. .SYN $RTER="",$RISC=""
  35. *
  36. .IF "@$QUIT",GE,"Y"  ! BYE OPTION RECEIVED IN KERMIT
  37.   .SYN $QUIT=""      ! SETS $QUIT - SO CLEAR THE SYN
  38.   Q                  ! AND LOGOFF THE SYSTEM.
  39. .ENDIF
  40. *
  41.