%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,.TT')
       DEFINE('STREAM03,.TT')
       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