Walt Mankowski via plug on 20 Sep 2020 17:19:32 -0700


[Date Prev] [Date Next] [Thread Prev] [Thread Next] [Date Index] [Thread Index]

Re: [PLUG] DESQview (was ... Byobu)


Thanks, that brought back memories. Even if it would be about a 3 line
Perl script these days... :)

Walt

On Sun, Sep 20, 2020 at 06:13:46PM -0400, Steve Litt via plug wrote:
> On Sun, 20 Sep 2020 15:19:57 -0400
> JP Vossen via plug <plug@lists.phillylinux.org> wrote:
> 
> 
> > Sigh, OK, I went down the rabbit hole looking for the batch files
> > that ran that stuff.  I didn't find them, but I did find an "about
> > me" from that time (1991-1992) in a _PC Buyers Guide_ I wrote (pretty
> > sure in Wordstar, and I can't find a good converter for that, 
> 
> I discovered the following Turbo Pascal program that I created in the
> mid 1980s and last modified September 1990, to turn a wordstar doc into
> plain text. I'm not sure whether it respects hard paragraphs or not.
> Try it with today's Freepascal.
> 
> ===============================================================
> program unws;
> 
> var
>    inname: string[40];
>    c: char;
>    i: integer;
>    inf, ouf: file of char;
> 
> 
> begin
> if paramcount = 0 then
>    begin
>    write('Wordstar file to be unwordstarred=>');
>    readln(inname);
>    writeln;
>    end
> else if paramcount = 1 then
>     inname := paramstr(1)
> else
>     begin
>     writeln('ERROR - can`t have ', paramcount, ' arguments, must have 0 or 1.'); 
>     halt; 
>     end;
> 
> 
> 
> assign(inf, inname);
> assign(ouf, 'unws.jnk');
> {$I-}
> reset(inf);
> {$I+}
> if ioresult <> 0 then
>    begin
>    writeln('No such file as >', inname, '<.');
>    halt;
>    end;
> rewrite(ouf);
> while not eof(inf) do
>       begin
>       read(inf, c);
>       if ord(c) > 127 then
>          begin
>          c := chr(ord(c) mod 128);
>          if c in [#010, #013] then
>             c := ' ';
>          end;
>       write(ouf,c);
>       end;
> 
> close(inf);
> close(ouf);
> end.
> 
> ===============================================================
> 
> HTH,
>  
> SteveT
> 
> Steve Litt 
> Autumn 2020 featured book: Thriving in Tough Times
> http://www.troubleshooters.com/thrive
> ___________________________________________________________________________
> Philadelphia Linux Users Group         --        http://www.phillylinux.org
> Announcements - http://lists.phillylinux.org/mailman/listinfo/plug-announce
> General Discussion  --   http://lists.phillylinux.org/mailman/listinfo/plug

Attachment: signature.asc
Description: PGP signature

___________________________________________________________________________
Philadelphia Linux Users Group         --        http://www.phillylinux.org
Announcements - http://lists.phillylinux.org/mailman/listinfo/plug-announce
General Discussion  --   http://lists.phillylinux.org/mailman/listinfo/plug