home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / forth / compiler / fpc / source / p1_4dc.seq < prev    next >
Encoding:
Text File  |  1990-03-28  |  803 b   |  42 lines
  1. \ LIFE PROGRAM FOR P1.4
  2. \ Author: Dickson Cheng  03/28/90 12:48:58.51
  3.  
  4.  
  5. : STAR          ( -- )
  6.         42 EMIT ;
  7.  
  8. : STARS         ( n -- )
  9.         0 DO STAR LOOP ;
  10.  
  11. : L             ( -- )
  12.         3 0 DO CR STAR LOOP
  13.         CR STAR
  14.         CR 5 STARS ;
  15.  
  16. : I             ( -- )
  17.         CR SPACE 3 STARS
  18.         3 0 DO CR 2 SPACES STAR LOOP
  19.         CR SPACE 3 STARS ;
  20.  
  21. : F             ( -- )
  22.         CR 5 STARS
  23.         CR SPACE STAR
  24.         CR SPACE 3 STARS
  25.         2 0 DO CR SPACE STAR LOOP ;
  26.  
  27. : E             ( -- )
  28.         CR 5 STARS
  29.         CR SPACE STAR
  30.         CR SPACE 3 STARS
  31.         CR SPACE STAR
  32.         CR 5 STARS ;
  33.  
  34. : LIFE          ( -- )
  35.         DARK CR L CR I CR F CR E ;
  36.  
  37. : MESSAGE       ( -- )
  38.         DARK CR ." To run LIFE type LIFE" ;
  39.  
  40. MESSAGE
  41.  
  42.