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