home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / lambda / soundpot / p / textutil.lbr / WS2ASCII.PZS / WS2ASCII.PAS
Encoding:
Pascal/Delphi Source File  |  1993-10-25  |  896 b   |  42 lines
  1.  PROGRAM WS2ASCII;
  2.  (* CONVERT WORDSTAR TO ASCII TEXT FILE *)
  3.  CONST
  4.    TEMPNAME = 'TEMP.@@@';
  5.  VAR
  6.    FILENAME : STRING(.64.);
  7.  
  8.  PROCEDURE PROCESSFILE;
  9.  VAR
  10.    I : INTEGER;
  11.    INFILE, OUTFILE : TEXT;
  12.    CH : CHAR;
  13.  BEGIN
  14.    ASSIGN( INFILE, FILENAME);
  15.    RESET( INFILE);
  16.    ASSIGN( OUTFILE, TEMPNAME);
  17.    REWRITE( OUTFILE);
  18.    WHILE NOT EOF( INFILE) DO
  19.    BEGIN
  20.      READ( INFILE, CH);
  21.      CH := CHR(ORD(CH) MOD 128);
  22.      IF CH=CHR(13)
  23.      THEN WRITELN(OUTFILE)
  24.      ELSE
  25.      IF CH >=' ' THEN WRITE( OUTFILE, CH);
  26.    END;
  27.    CLOSE( INFILE);
  28.    CLOSE( OUTFILE);
  29.    ERASE( INFILE);
  30.    RENAME( OUTFILE, FILENAME);
  31.  END;
  32.  
  33.  BEGIN
  34.    CLRSCR;
  35.    WRITELN('Wordstar to ASCII Converter');
  36.    WRITELN;
  37.    WRITE('Convert what file? ');
  38.    READLN( FILENAME);
  39.    IF LENGTH( FILENAME)>0
  40.    THEN PROCESSFILE
  41.  END.
  42.