home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / forth / compiler / fpc / source / p1_5dc.seq < prev    next >
Encoding:
Text File  |  1990-03-28  |  623 b   |  30 lines
  1. \ MYINIT PROGRAM FOR P1.5
  2. \ Author: Dickson Cheng  03/27/90 18:34:12.39
  3.  
  4. : WHITE         ( -- )
  5.         177 EMIT ;
  6.  
  7. : WHITES        ( n -- )
  8.         0 ?DO WHITE LOOP ;
  9.  
  10. : D             ( -- )
  11.         CR 10 WHITES
  12.         6 0 DO CR SPACE WHITE 8 SPACES WHITE LOOP
  13.         CR 10 WHITES ;
  14.  
  15. : C             ( -- )
  16.         CR 1 SPACES 9 WHITES
  17.         CR WHITE 9 SPACES WHITE
  18.         4 0 DO CR WHITE LOOP
  19.         CR WHITE 9 SPACES WHITE
  20.         CR 1 SPACES 9 WHITES ;
  21.  
  22. : DC            ( -- )
  23.         DARK CR D CR C ;
  24.  
  25. : MESSAGE       ( -- )
  26.         DARK CR ." To see my initial type DC" ;
  27.  
  28. MESSAGE
  29.  
  30.