Re: AppleSoft Basic to text-- BASIC xfer

[Rubywand <rubywand@swbell.net>]

rich12345@my-deja.com writes ...
> 
> In article <39400B96.B2B3431D@swbell.net>,
>   rubywand@swbell.net wrote:
> > 9999 PRINT CHR$(4)"OPEN PGMTEXT": PRINT CHR$(4)"WRITE PGMTEXT":
> >   LIST 2,: PRINT CHR$(4)"CLOSE": END
> >
> 
> I use this method to edit my robots BASIC programs in Hermes/Shadowrite
> on my IIgs.  It is slow to switch between BASIC and the finder with BYE
> because of the time it takes to mount all of the disks onto the desktop.
> 
> I'd like to setup my IIe with a super serial card, connected directly
> to the GS serial port.  From there, I'd load DOS into the IIe, edit
> programs with Hermes on the GS, and then send the programs directly to
> the IIe with the serial card
> 
> On the IIe I'd type IN#2 (slot of the Serial card)
> on the IIgs I'd choose PRINT from Hermes
> 
> MY QUESTION:  is there a printer driver for the GS that'll let me print
> to the IIe, and have it do no formatting, etc, so I get the program in
> the IIe's memory as if I'd EXEC'd a text file?
> 

     As Jeff points out I screwed up on my last response to this idea.

     In line with using a Text editor on the IIgs and your EXEC idea, this
should work with your serial cable setup (going from the IIe to the IIgs
Printer port):


o- Edit the program Text on the IIgs and save the Text file as BASTXT on a
3.5" diskette in Drive 1 (Slot 5).

o- Exit the editor and get into Applesoft BASIC. Do a 

CAT,S5,D1

o- Enter this program and save it as LISTOUTBASIC on the diskette

 100  ONERR  GOTO 200
 110  PRINT  CHR$ (4)"OPEN BASTXT"
 120  REM  SET OUTPUT PORT
 130  PRINT  CHR$ (4)"PR#1"
 140  PRINT  CHR$ (4)"READ BASTXT"
 150  FOR I = 0 TO 999999: GET C$
 160  REM  MAX TT VAL SETS LINE DELAY (1333 FOR 2.8MHZ GS)
 170  IF  ASC (C$) < 32 THEN  PRINT : FOR TT = 0 TO 1333: NEXT TT: GOTO 190
 180  PRINT C$;
 190  NEXT I
 200  PRINT  CHR$ (4)"PR#0"
 210  PRINT : PRINT  CHR$ (4)"CLOSE"
 220  END



o- Set up your serial ports. Since you will be entering BASIC lines on the
IIe, pick a low baud rate, like 300 baud, to avoid overflow. Set the IIgs
Printer Port for all defaults except ..

 Delete first LF after CR: Yes
 Add LF after CR: No
 Baud= 300


o- Do a NEW on the IIe and do an IN#2 . Do not do a PR#1 for the IIgs. (Let
the program do it.)

o- Run the program on the IIgs.


     The LISTOUTBASIC program should read your program Text from BASTXT
character by character and send it to the IIe. (The delay in Line 170 is a
bit longer than needed; but, it does not hurt to allow a little extra time
for line entry.)  When it's done, the program should be entered on the IIe
and ready to save.  



Rubywand