home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / forth / compiler / fpc / source / myquit.seq < prev    next >
Text File  |  1988-10-05  |  833b  |  33 lines
  1. \ My Outer Interpreter
  2. \ Version Number: 1
  3. \ Date: September 21, 1988
  4. \ Author: Jack Brown
  5.  
  6. COMMENT:
  7. \ This is the standard version of the outer interpreter QUIT
  8. : QUIT          ( -- )
  9.                 SP0 @ 'TIB !    [COMPILE] [
  10.                 BEGIN
  11.                      BEGIN
  12.                      RP0 @ RP! STATUS QUERY
  13.                      RUN STATE @ NOT
  14.                      UNTIL
  15.                ."  ok"
  16.                AGAIN  ;
  17. COMMENT;
  18.  
  19. \ This is my new version of the outer interpreter QUIT
  20. : MYQUIT          ( -- )
  21.                 SP0 @ 'TIB !    [COMPILE] [
  22.                 BEGIN
  23.                      BEGIN
  24.                      RP0 @ RP!
  25.                      QUERY  RUN  STATUS
  26.                      STATE @ NOT
  27.                      UNTIL
  28.                 .S ." > "
  29.                 AGAIN  ;
  30.  
  31.  
  32.  
  33.