home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 September / Simtel20_Sept92.cdr / msdos / snobol4 / vsnobol4.arc / WDSTAR.SNO < prev    next >
Text File  |  1987-12-04  |  513b  |  25 lines
  1. *    WDSTAR.SNO
  2. *
  3. *    Convert wordstar files to ASCII by removing the high-order bit
  4. *    from all characters.
  5. *
  6. *    To run:
  7. *        SNOBOL4 WDSTAR <input.file >output.file
  8. *
  9. *    Set long record length to read a paragraph at a time.
  10. *    Trim trailing blanks.
  11. *
  12.     &TRIM = 1
  13.     INPUT(.INPUT,5,5000)
  14.     OUTPUT(.OUTPUT,6,5000)
  15.  
  16. *    Get high and low order character sets.
  17. *
  18.     &ALPHABET LEN(128) . LOW LEN(128) . HIGH
  19.  
  20. *    Do the conversion, and loop until end-of-file.
  21. *
  22. LOOP    OUTPUT = REPLACE(INPUT,HIGH,LOW)    :S(LOOP)
  23.  
  24. END
  25.