home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / forth / compiler / fpc / source / p4_15dc.seq < prev    next >
Text File  |  1990-04-15  |  651b  |  29 lines
  1. \ Problem 4.15   04/15/90 18:18:59.42
  2.  
  3. : (IN)          ( x a b -- flag )
  4.         2DUP < NOT ABORT" Invalid interval."
  5.         -ROT OVER < -ROT > AND ;
  6.  
  7. : [IN]          ( x a b -- flag )
  8.         1+ SWAP 1- SWAP (IN) ;
  9.  
  10. CREATE DATA 20 ALLOT
  11.  
  12. : SAY_ERROR      ( -- )
  13.         ." Index out of 0 - 9 " ;
  14.  
  15. : DATA@         ( i -- n )
  16.         DUP 0 9 [IN] IF 2* DATA + @
  17.                      ELSE SAY_ERROR DROP
  18.                      THEN ;
  19.  
  20. : DATA!         ( n i -- )
  21.         DUP 0 9 [IN] IF 2* DATA + !
  22.                      ELSE SAY_ERROR DROP
  23.                      THEN ;
  24.  
  25. : CLEAR-DATA    ( -- )
  26.         10 0 DO 0 I DATA! LOOP ;
  27.  
  28.  
  29.