home bbs files messages ]

Forums before death by AOL, social media and spammers... "We can't have nice things"

   comp.sys.tandy      Life is dandy cuz you're gettin a Tandy!      5,684 messages   

[   << oldest   |   < older   |   list   |   newer >   |   newest >>   ]

   Message 5,612 of 5,684   
   Walt Perko to Bob Campbell   
   Re: PRINT #1 TAB(A); ???   
   19 Sep 22 16:16:27   
   
   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)   

[   << oldest   |   < older   |   list   |   newer >   |   newest >>   ]


(c) 1994,  bbs@darkrealms.ca