home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / forth / compiler / fpc / source / p1_3dc.seq < prev    next >
Encoding:
Text File  |  1990-03-28  |  296 b   |  15 lines
  1. \ CHARSET PROGRAM FOR P1.3
  2. \ Author: Dickson Cheng  03/28/90 12:53:29.67
  3.  
  4. : DELAY         ( -- )
  5.         10000 0 DO 1 DROP LOOP ;
  6.  
  7. : CHARSET       ( -- )
  8.         255 0 DO CR I . I EMIT DELAY LOOP ;
  9.  
  10. : MESSAGE       ( -- )
  11.         DARK CR ." To run CHARSET type CHARSET" ;
  12.  
  13. MESSAGE
  14.  
  15.