home *** CD-ROM | disk | FTP | other *** search
/ RBBS in a Box Volume 1 #2 / RBBS_vol1_no2.iso / 050z / ws2ascii.pas < prev    next >
Pascal/Delphi Source File  |  1984-12-11  |  2KB  |  46 lines
  1. Program WS_2_Ascii;
  2.  
  3. {$C-,K-,V-}
  4.  
  5. {                    Copyright (c)  John Friel III
  6.  
  7.  
  8.        Converts files created by WordStar in (D)ocument mode to
  9.        Non document files by stripping the high bit of every byte
  10.        in the file.  This program may be modified in any way to
  11.        suit your personal tastes.  You are also encouraged to pass
  12.        this program on to anyone provided the source code is unmodified.
  13.        Please keep an unmodified copy around just for this purpose.
  14.        For more information on this program or mode detailed info
  15.        on interfacing TURBO Pascal with the I.B.M. PC (r) or
  16.        Compatibles (this was developed on a Tava PC!) write to:
  17.  
  18.                    John Friel III
  19.                    715 Walnut Street
  20.                    Cedar Falls, Iowa  50613
  21.  
  22.  
  23. }
  24.  
  25. Const
  26.   Color            = true;
  27. Type
  28.   Names            = String[80];
  29.   Screen_Array     = Array [1..4000] of byte;
  30.   regpack          = record
  31.                        ax,bx,cx,dx,bp,si,di,ds,es,flags: integer;
  32.                      end;
  33.   mem_ptr          = ^pointer_type;
  34.   pointer_type     = array [1..2] of integer;
  35.   fname_type       = record
  36.                        name   : string[8];
  37.                        period : char;
  38.                        ext    : string[3];
  39.                      end;
  40.   dir_type         = array [1..122] of fname_type;
  41.  
  42. Var
  43.   InFile, OutFile               : Text;
  44.   x, i, y, q, in_X, in_Y,
  45.   out_X, out_Y, e, w            : Integer;
  46.   total_chars, total_words