From: r4rguy@gmail.com   
      
   On Monday, September 19, 2022 at 7:09:09 AM UTC-7, Bob Campbell wrote:   
   > Walt Perko wrote:   
   > > Hi,   
   > >   
   > > TRS-80 Model 100   
   > >   
   > > I'm trying to send the program data out the serial port. The program   
   > > runs with lines like; 130 PRINT TAB(A);   
   > >   
   > > but fails with 130 PRINT #1 TAB(A);   
   > >   
   > > How to fix the program so data does go out the serial port?   
   > >   
   > > 10 OPEN "COM:88NE1" FOR OUTPUT AS 1   
   > > 50 B=0   
   > > 100 REM START LONG LOOP   
   > > 110 FOR T=0 TO 80 STEP .25   
   > > 120 A=INT(26+25*SIN(T))   
   > > 130 PRINT #1 TAB(A);   
   > > 140 IF B=1 THEN 180   
   > > 150 PRINT #1 " *"   
   > > 160 B=1   
   > > 170 GOTO 200   
   > > 180 PRINT #1 " *"   
   > > 190 B=0   
   > > 200 IF INKEY$<>"" THEN GOTO 999   
   > > 250 NEXT T   
   > > 998 GOTO 50   
   > > 999 END   
   > >   
   > >   
   > Line 130 needs a comma. Should be:   
   >   
   > 130 PRINT #1, TAB(A);   
   >   
   > Otherwise, that is some ugly BASIC code. :-)   
      
   Hi,   
      
   Okay, adding the comma fixed the one error, but the output isn't actually   
   tabbing out on the display ???   
      
   All the "*" are in a vertical line on the left side. They should be doing a   
   series of "sinewaves" on the screen.   
      
   --- SoupGate-Win32 v1.05   
    * Origin: you cannot sedate... all the things you hate (1:229/2)   
|