Re: Please help with BinSCII

[Rubywand <rubywand@swbell.net>]

Chris writes ...
> 
>     I should have used a real FTP client, I just saved them as files in
> Netscape.
 ....

     A real ftp client would not help unless it has provisions to deal with
downloading non-standard Text files (and you know you are downloading a Text
file and you force the ftp program to so a Text receive).

     If you use a standard ftp client, like WS_FTP, and force a Text receive,
the file will probably be auto-corrupted to include CR's for each LF. This is
not so bad because the Text file could be transferred via a telecom program
which can be set to strip out the LF's. (Still kind of a bother.)


     If you would like to fix the code you already have, the short program
below will do this. You can type it in and save it as OATOOD in the same
place you have BINSCII.EXE.

     The program reads through BINSCII.EXE and swaps in CR's for LF's. The
corrected Text is saved in RAM and used to create BINSCIIX. EXEC BINSCIIX to
get BINSCII.


 100  ONERR  GOTO 170
 110  PRINT  CHR$ (4)"OPEN BINSCII.EXE"
 120  PRINT  CHR$ (4)"READ BINSCII.EXE"
 130  GET C$
 140  IF  ASC (C$) = 10 THEN C$ =  CHR$ (13)
 150 N = N + 1: POKE 8191 + N, ASC (C$): IF N / 100 =  INT (N / 100) 
      THEN Z =  FRE (0): PRINT "*";
 160  GOTO 130
 170  PRINT : PRINT  CHR$ (4)"CLOSE"
 180  POKE 216,0
 190  PRINT  CHR$ (4)"OPEN BINSCIIX"
 200  PRINT  CHR$ (4)"WRITE BINSCIIX"
 210  FOR I = 1 TO N - 1: PRINT  CHR$ (PEEK (8191 + I));: NEXT I
 220  PRINT : PRINT  CHR$ (4)"CLOSE"
 230  END



Rubywand