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

[Michael Lazin via plug <plug@lists.phillylinux.org>]

I know that this is continuing an off topic thread but I worked in a computer lab in school in 1996 and frequently told people to save word processing files as RTF because they had to move things from word to wordperfect or from PC to Mac and I found Rich Text Format to be a good solution that doesn't require coding.  Sorry for continuing to be off topic.

On Sun, Sep 20, 2020, 8:19 PM Walt Mankowski via plug <plug@lists.phillylinux.org> wrote:

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
___________________________________________________________________________
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

___________________________________________________________________________
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