home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / forth / compiler / fpc / source / mybanner.seq < prev    next >
Encoding:
Text File  |  1988-10-05  |  178 b   |  10 lines
  1. \ My banner greeting program
  2.  
  3. : GREETING ( -- )
  4.         DARK CR
  5.         " GREETINGS" BANNER
  6.         " FROM"      BANNER
  7.         2 SECONDS
  8.         " JACK"      BANNER ;
  9.  
  10.