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,611 of 5,684   
   Walt Perko to All   
   PRINT #1 TAB(A); ???   
   18 Sep 22 20:56:35   
   
   From: r4rguy@gmail.com   
      
   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   
      
   --- 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