home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / forth / compiler / fpc / source / p1_4bs.seq < prev    next >
Encoding:
Text File  |  1990-03-27  |  446 b   |  27 lines
  1. \ Comp 462
  2. \ Balraj Sidhu   Set: 14D4
  3. \ Date: March 26, 1990
  4. \ Problem 1.4
  5.  
  6. : hbar ( -- )
  7.         cr ." *****" ;
  8.  
  9. : vbar ( -- )
  10.         cr ." *" cr ." * " ;
  11.  
  12. : l ( -- )
  13.         cr vbar vbar hbar           ( L ) ;
  14.  
  15. : i ( -- )
  16.         cr vbar vbar vbar                ( I ) ;
  17.  
  18. : f ( -- )
  19.         cr hbar vbar hbar vbar      ( F ) ;
  20.  
  21. : e ( -- )
  22.         cr hbar vbar hbar vbar hbar ( E ) ;
  23.  
  24. : life ( -- )
  25.         l i f e ;
  26.  
  27.