home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / forth / compiler / fpc / source / p1_5bs.seq < prev    next >
Encoding:
Text File  |  1990-03-28  |  569 b   |  37 lines
  1. \ Comp 462
  2. \ Balraj Sidhu   Set: 14D4
  3. \ Date: March 28, 1990
  4. \ Problem 1.5
  5.  
  6. : hbar1 ( -- )
  7.         ." *****" ;
  8.  
  9. : hbar2 ( -- )
  10.         ." ****" ;
  11.  
  12. : vbar1 ( -- )
  13.         ." *   *" ;
  14.  
  15. : vbar2 ( -- )
  16.         ." *" ;
  17.  
  18. : vbar3 ( -- )
  19.         ."     *" ;
  20.  
  21. : b ( -- )
  22.         30 8  at hbar1 30 9  at vbar1 30 10 at vbar1
  23.         30 11 at hbar2 30 12 at vbar1 30 13 at hbar1 ;
  24.  
  25. : s ( -- )
  26.         37 8  at hbar1 37 9  at vbar2 37 10 at hbar1
  27.         37 11 at vbar3 37 12 at vbar3 37 13 at hbar1 ;
  28.  
  29. : bs ( -- )
  30.         cls b s cr cr ;
  31.  
  32.  
  33.  
  34.  
  35.  
  36.  
  37.