home *** CD-ROM | disk | FTP | other *** search
/ APDL Public Domain 1 / APDL_PD1A.iso / program / language / forth / !FORTH / TestProgs / outer < prev    next >
Encoding:
Text File  |  1989-08-14  |  860 b   |  31 lines
  1. CORE                     
  2. : NormalSearch CONTEXT @ @ SEARCH DUP NOT
  3.      IF MODE @
  4.         IF DROP COMPILER @ SEARCH DUP STATE ! ENDIF
  5.      ENDIF ;
  6. : ?NUMBER NUMBER DUP
  7.      IF MODE @
  8.         IF SWAP SETUP_STACK COMPILECONST ENDIF
  9.      ENDIF ;
  10. : ?EXECUTE STATE @ STATE 0SET MODE @ =
  11.      IF DUP TRUE = IF DROP TOP_REG 4* + ENDIF @ EXECUTE *STACK
  12.      ELSE @ SETUP_STACK CREATE_BL , ENDIF ;
  13. : ?SEARCH MODE @
  14.      IF SPECIAL @ SEARCH DUP 
  15.         IF DUP DUP STATE ! ELSE DROP NormalSearch ENDIF
  16.      ELSE NormalSearch
  17.      ENDIF ;
  18. FALSE VARIABLE exit
  19. : OUTER ."           Mike's FORTH interpreter / compiler" CRET
  20.         ." What next >"
  21.      INLINE
  22.      BEGIN ASPACE TOKEN
  23.         IF TYPE INLINE
  24.         ELSE ?SEARCH
  25.            IF ?EXECUTE
  26.            ELSE ?NUMBER NOT
  27.               IF QUESTION TYPE INLINE ENDIF
  28.            ENDIF
  29.         ENDIF
  30.      exit @ END ;
  31.