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,614 of 5,684   
   Walt Perko to Bob Campbell   
   Re: PRINT #1 TAB(A); ???   
   19 Sep 22 19:46:11   
   
   From: r4rguy@gmail.com   
      
   On Monday, September 19, 2022 at 5:31:47 PM UTC-7, Bob Campbell wrote:   
      
   > Ah yes. Lines 150 and 180.   
      
      
   Okay, I fixed line 150 and 180 ... but now the program just prints stars   
   across the screen row after row ???   
      
   e.g.,   
   ****************************************************************   
   ***************   
   ****************************************************************   
   ***************   
   ****************************************************************   
   ***************   
      
   I'm sending the output to the serial port which is connected to a VersaTerm   
   VT-100 emulator that connects to a VGA/LCD monitor.   
      
   When I run the program on my Altair-Duino Pro, on a VersaTerm, or ASCII   
   Terminal or even in TeraTerm on my PC I see a sine wave.   
      
      
   10 OPEN "COM:88NE1" FOR OUTPUT AS 1   
   20 INPUT "Pause Time";P   
   40 REM arkable Program by David Ahl and modified by WKP SINEWKP.BAS   
   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   
   145 FOR PAUSE = 0 TO P:NEXT PAUSE   
   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