home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / hard.hdv / HARD / FORTH / WAITSOFT.WRD < prev   
Encoding:
Text File  |  1991-03-14  |  183 b   |  14 lines  |  [04] ASCII Text (0x0000)
  1.  
  2. MASC DEFINITIONS
  3.  
  4. HEX
  5.  
  6. : ?MSG
  7.    BEGIN CTRL C@ 1 AND UNTIL ;
  8.  
  9. : WAITSOFT
  10.    ." WAITING..."
  11.    INIT DATA C@ DROP 
  12.    BEGIN ?MSG DATA C@ 0F0 AND B0 = UNTIL 
  13.    CR 10000 0 DO LOOP ;
  14. DEC