home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / CLIPPER / MISC / FIFTH21.ZIP / UNWS.FIV < prev    next >
Encoding:
Text File  |  1986-03-30  |  185 b   |  15 lines
  1. CREATE X
  2. CREATE CHAR
  3. EDIT
  4. variable char
  5. ~UP
  6. EDIT
  7. : x
  8.   begin
  9.     char 1 0 read and while
  10.     char c@ 127 and char c!
  11.     char 1 1 write drop drop
  12.     repeat
  13.   ;
  14. ~UP
  15. ABORT