home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / PROG / MISC / FORTHCMP.ZIP / IAGEBNCH.4TH < prev    next >
Encoding:
Text File  |  1992-03-30  |  738 b   |  32 lines
  1. \ This is the Interface Age benchmark program described in
  2. \ Appendix D of the ForthCMP Manual.
  3.  
  4. ( INTERFACE AGE BENCHMARK PROGRAM              08:01 11/16/85 )
  5. 500 100  MSDOSEXE
  6. 1 0 IN/OUT
  7. : BENCH DUP 2/ 1+ SWAP  CR
  8.         1 DO DUP I 1 ROT
  9.           2 DO DROP DUP 0 I UM/MOD  ( more efficient! )
  10.              DUP 0= IF DROP DROP 1 LEAVE THEN
  11.                1 = IF DROP 1
  12.                    ELSE DUP 0= IF DROP 0 LEAVE THEN
  13.                       0< NOT IF 1 THEN
  14.                    THEN
  15.              LOOP IF . ELSE DROP THEN LOOP DROP CR ;
  16.  
  17. : MAIN   1000 BENCH   ;
  18.  
  19. 1 0 IN/OUT
  20. : I. 0 10 UM/MOD ?DUP IF I. THEN ASCII 0 + EMIT ;
  21.  
  22. : .  ?DUP IF I. ELSE ASCII 0 EMIT THEN  BL EMIT ;
  23.  
  24.  
  25. INCLUDE FORTHLIB
  26.  
  27. END
  28.  
  29.  
  30.  
  31.  
  32.