%EXTERNALROUTINESPEC CLEAR(%STRING(63) S)
%EXTERNALROUTINESPEC DEFINE(%STRING(63) S)
%EXTERNALROUTINESPEC NEWSMFILE(%STRING(63) S)
%EXTERNALINTEGERFNSPEC SMADDR(%INTEGER CHAN, %INTEGERNAME LENGTH)
%EXTERNALROUTINESPEC CLOSE STREAM(%INTEGER NO)
%EXTERNALROUTINESPEC CLOSE SM(%INTEGER NO)
%EXTERNALROUTINESPEC LISPINTP(%INTEGER FILEADDR, INITMODE)
%EXTERNALROUTINE HELP LISP
       PRINT STRING("
HANDOUT IN PREPERATION - TYPE 'LISP' TO TRY LISP
")
%END
!
%EXTERNALROUTINE LISP(%STRING(63) PARM)
%INTEGER FILEADDR, INITMODE, LENGTH
       DEFINE("STREAM02,.OUT")
       DEFINE("STREAM03,.OUT")
       PRINT STRING("
        E.C.S.D. LISP SYSTEM    RELEASE 2 VERSION 1



")
       %IF PARM->("/").PARM %START;     ! NEW FILE
          NEWSMFILE(PARM.",196576")
          DEFINE("STREAM01,ECSC09.INITLISP")
          INITMODE=1
       %FINISH %ELSE INITMODE=0
       DEFINE("SMFILE04,".PARM)
       LISPINTP(SMADDR(04,LENGTH)-X'20',INITMODE)
       SELECT INPUT(0);  SELECT OUTPUT(0)
       CLOSE STREAM(01) %IF INITMODE=1
       CLOSE STREAM(02);  CLOSE STREAM(03);  CLOSE SM(04)
       CLEAR("")
%END
%ENDOFFILE