home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / lambda / soundpot / f / ilisp-2.lbr / INIT.LZP / INIT.LSP
Encoding:
Text File  |  1993-10-26  |  1.6 KB  |  51 lines
  1. ; INIT.LSP - the standard iLISP initialization file
  2. ; (C) Copyright by Computing Insights, 1983
  3.  
  4. (PROGN (PRIN1 '"Please wait ..")'".")
  5. (OUTPUT NIL)                    ;Mask this activity
  6.  
  7. (PROGN
  8.    (MEMORY (FIX    (* 0.87 (CADDR (MEMORY)))) 100) ;Expand Memory
  9.    (RECLAIM)(RECLAIM)                ; and properly collect it
  10.    (RANDOM ())                    ;Randomize RANDOM
  11.    (CLOSE (INPUT 'CON:))            ;INPUT back to console
  12.                         ;Define a startup EXEC
  13.    (SETQ    EXEC
  14.     '(PROGN
  15.         (OUTPUT 'CON:)            ;Output to console
  16.         (TERPRI)            ;Skip a line
  17.                         ;Print a random greeting
  18. ;*****Plea for registration*****
  19. ;These lines can be deleted by any ASCII text editor.
  20. ;PLEASE DO NOT DISTRIBUTE A COPY OF iLISP WITHOUT THIS MESSAGE HERE
  21. (PRIN1 '"iLISP is a shareware product. ")(TERPRI)
  22. (PRIN1 '"If you like and use iLISP, please support the shareware concept")(TERPRI)
  23. (PRIN1 '"by registering your copy. Full registration costs $35. ")  (TERPRI)
  24. (PRIN1 '"Please send your name and address with a check to ")(TERPRI)(TERPRI)
  25. (PRIN1 '"            Computing Insights")(TERPRI)
  26. (PRIN1 '"            P.O. Box 4033")(TERPRI)
  27. (PRIN1 '"            Madison, WI 53711")(TERPRI)(TERPRI)
  28. (PRIN1 '"Registered users receive a hardcopy (250 pages) of the iLISP")(TERPRI)
  29. (PRIN1 '"Reference Manual and the Introductory Guide to iLISP.")(TERPRI)(TERPRI)(TERPRI)
  30. ;*****End of Plea*****
  31.         (PRIN1 (NTH '(    Greetings 
  32.                 Hi 
  33.                 Hello 
  34.                 Welcome 
  35.                 "LISP!, At Last"
  36.                 "Welcome to iLISP"    )
  37.                  (ADD1(FIX(* 6(RANDOM))))))
  38.  
  39.         (TERPRI)(TERPRI)        ;print a couple of blank lines
  40.                         ;and reset EXEC
  41.         (SETQ EXEC '(PRINT (EVAL (READ))) ))))
  42.  
  43.  
  44.  
  45.  
  46.  
  47.  
  48.  
  49.  
  50.  
  51.