Rocksolid Light

Welcome to novaBBS (click a section below)

mail  files  register  newsreader  groups  login

Message-ID:  

If the facts don't fit the theory, change the facts. -- Albert Einstein


computers / comp.sys.tandy / Re: PRINT #1 TAB(A); ???

SubjectAuthor
* PRINT #1 TAB(A); ???Walt Perko
`* Re: PRINT #1 TAB(A); ???Bob Campbell
 `* Re: PRINT #1 TAB(A); ???Walt Perko
  +* Re: PRINT #1 TAB(A); ???Bill Gunshannon
  |`* Re: PRINT #1 TAB(A); ???Bob Campbell
  | `* Re: PRINT #1 TAB(A); ???Walt Perko
  |  `* Re: PRINT #1 TAB(A); ???Bob Campbell
  |   `* Re: PRINT #1 TAB(A); ???Bob Campbell
  |    `* Re: PRINT #1 TAB(A); ???Walt Perko
  |     `* Re: PRINT #1 TAB(A); ???Bob Campbell
  |      `- Re: PRINT #1 TAB(A); ???Walt Perko
  `- Re: PRINT #1 TAB(A); ???Bob Campbell

1
PRINT #1 TAB(A); ???

<cb8b9797-48ce-4242-ae95-72850e4bddban@googlegroups.com>

 copy mid

https://www.novabbs.com/computers/article-flat.php?id=38&group=comp.sys.tandy#38

 copy link   Newsgroups: comp.sys.tandy
X-Received: by 2002:ac8:590f:0:b0:35c:c247:9731 with SMTP id 15-20020ac8590f000000b0035cc2479731mr13504109qty.114.1663559795833;
Sun, 18 Sep 2022 20:56:35 -0700 (PDT)
X-Received: by 2002:a5b:750:0:b0:6af:93be:8e4f with SMTP id
s16-20020a5b0750000000b006af93be8e4fmr13996789ybq.458.1663559795640; Sun, 18
Sep 2022 20:56:35 -0700 (PDT)
Path: i2pn2.org!i2pn.org!usenet.blueworldhosting.com!feed1.usenet.blueworldhosting.com!peer03.iad!feed-me.highwinds-media.com!news.highwinds-media.com!news-out.google.com!nntp.google.com!postnews.google.com!google-groups.googlegroups.com!not-for-mail
Newsgroups: comp.sys.tandy
Date: Sun, 18 Sep 2022 20:56:35 -0700 (PDT)
Injection-Info: google-groups.googlegroups.com; posting-host=71.38.232.108; posting-account=796s0QoAAACuDJ1anllnusK0Wq2VopmW
NNTP-Posting-Host: 71.38.232.108
User-Agent: G2/1.0
MIME-Version: 1.0
Message-ID: <cb8b9797-48ce-4242-ae95-72850e4bddban@googlegroups.com>
Subject: PRINT #1 TAB(A); ???
From: r4r...@gmail.com (Walt Perko)
Injection-Date: Mon, 19 Sep 2022 03:56:35 +0000
Content-Type: text/plain; charset="UTF-8"
X-Received-Bytes: 1520
 by: Walt Perko - Mon, 19 Sep 2022 03:56 UTC

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

Re: PRINT #1 TAB(A); ???

<ReOdnXB3x6Vj6rX-nZ2dnZfqn_Vj4p2d@supernews.com>

 copy mid

https://www.novabbs.com/computers/article-flat.php?id=39&group=comp.sys.tandy#39

 copy link   Newsgroups: comp.sys.tandy
Path: i2pn2.org!i2pn.org!usenet.blueworldhosting.com!feed1.usenet.blueworldhosting.com!peer01.iad!feed-me.highwinds-media.com!news.highwinds-media.com!feeder.usenetexpress.com!tr3.iad1.usenetexpress.com!69.80.99.22.MISMATCH!Xl.tags.giganews.com!local-2.nntp.ord.giganews.com!nntp.supernews.com!news.supernews.com.POSTED!not-for-mail
NNTP-Posting-Date: Mon, 19 Sep 2022 14:09:02 +0000
User-Agent: NewsTap/5.5 (iPad)
Cancel-Lock: sha1:O309nFECNS/s0WOhB/SdHgufosY=
Newsgroups: comp.sys.tandy
Subject: Re: PRINT #1 TAB(A); ???
Content-Type: text/plain; charset=UTF-8
Mime-Version: 1.0
Content-Transfer-Encoding: 8bit
From: non...@none.none (Bob Campbell)
References: <cb8b9797-48ce-4242-ae95-72850e4bddban@googlegroups.com>
Message-ID: <ReOdnXB3x6Vj6rX-nZ2dnZfqn_Vj4p2d@supernews.com>
Date: Mon, 19 Sep 2022 14:09:02 +0000
Lines: 39
X-Trace: sv3-c3uEMD7R6EVw0fUigeRZNctdRp1pzbiWeC7MEpP0vv3ooE5eVRihSu6XygqP4k8YLJfvnZR6cIcVDO6!fbGzpsUqY7xhgvuXKoyLRa1/6/aRcYLvNRvCh+bvmixNlQnNeyUkrbBWWKI5VzoBCO4o1jTP0UU1!/9yPQ34HTg==
X-Complaints-To: www.supernews.com/docs/abuse.html
X-DMCA-Complaints-To: www.supernews.com/docs/dmca.html
X-Abuse-and-DMCA-Info: Please be sure to forward a copy of ALL headers
X-Abuse-and-DMCA-Info: Otherwise we will be unable to process your complaint properly
X-Postfilter: 1.3.40
X-Received-Bytes: 1961
 by: Bob Campbell - Mon, 19 Sep 2022 14:09 UTC

Walt Perko <r4rguy@gmail.com> 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. :-)

Re: PRINT #1 TAB(A); ???

<487d4e3a-113f-48a6-97ed-39d329f73fc6n@googlegroups.com>

 copy mid

https://www.novabbs.com/computers/article-flat.php?id=40&group=comp.sys.tandy#40

 copy link   Newsgroups: comp.sys.tandy
X-Received: by 2002:ac8:574d:0:b0:35c:e350:243b with SMTP id 13-20020ac8574d000000b0035ce350243bmr7719157qtx.292.1663629387995;
Mon, 19 Sep 2022 16:16:27 -0700 (PDT)
X-Received: by 2002:a0d:e20d:0:b0:345:40f9:17ae with SMTP id
l13-20020a0de20d000000b0034540f917aemr16591910ywe.317.1663629387705; Mon, 19
Sep 2022 16:16:27 -0700 (PDT)
Path: i2pn2.org!i2pn.org!usenet.blueworldhosting.com!feed1.usenet.blueworldhosting.com!peer01.iad!feed-me.highwinds-media.com!news.highwinds-media.com!news-out.google.com!nntp.google.com!postnews.google.com!google-groups.googlegroups.com!not-for-mail
Newsgroups: comp.sys.tandy
Date: Mon, 19 Sep 2022 16:16:27 -0700 (PDT)
In-Reply-To: <ReOdnXB3x6Vj6rX-nZ2dnZfqn_Vj4p2d@supernews.com>
Injection-Info: google-groups.googlegroups.com; posting-host=71.38.232.108; posting-account=796s0QoAAACuDJ1anllnusK0Wq2VopmW
NNTP-Posting-Host: 71.38.232.108
References: <cb8b9797-48ce-4242-ae95-72850e4bddban@googlegroups.com> <ReOdnXB3x6Vj6rX-nZ2dnZfqn_Vj4p2d@supernews.com>
User-Agent: G2/1.0
MIME-Version: 1.0
Message-ID: <487d4e3a-113f-48a6-97ed-39d329f73fc6n@googlegroups.com>
Subject: Re: PRINT #1 TAB(A); ???
From: r4r...@gmail.com (Walt Perko)
Injection-Date: Mon, 19 Sep 2022 23:16:27 +0000
Content-Type: text/plain; charset="UTF-8"
X-Received-Bytes: 2308
 by: Walt Perko - Mon, 19 Sep 2022 23:16 UTC

On Monday, September 19, 2022 at 7:09:09 AM UTC-7, Bob Campbell wrote:
> Walt Perko <r4r...@gmail.com> 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.

Re: PRINT #1 TAB(A); ???

<josemnFti0jU1@mid.individual.net>

 copy mid

https://www.novabbs.com/computers/article-flat.php?id=41&group=comp.sys.tandy#41

 copy link   Newsgroups: comp.sys.tandy
Path: i2pn2.org!i2pn.org!news.swapon.de!fu-berlin.de!uni-berlin.de!individual.net!not-for-mail
From: bill.gun...@gmail.com (Bill Gunshannon)
Newsgroups: comp.sys.tandy
Subject: Re: PRINT #1 TAB(A); ???
Date: Mon, 19 Sep 2022 20:09:59 -0400
Lines: 50
Message-ID: <josemnFti0jU1@mid.individual.net>
References: <cb8b9797-48ce-4242-ae95-72850e4bddban@googlegroups.com>
<ReOdnXB3x6Vj6rX-nZ2dnZfqn_Vj4p2d@supernews.com>
<487d4e3a-113f-48a6-97ed-39d329f73fc6n@googlegroups.com>
Mime-Version: 1.0
Content-Type: text/plain; charset=UTF-8; format=flowed
Content-Transfer-Encoding: 7bit
X-Trace: individual.net FXdDXHAYkU1uZzq0czn/gQvZVaW4sTLIxAS4yeklBg7tj06aj5
Cancel-Lock: sha1:YNgrRZ3zOmgzHKoyUxw9lrlNLm8=
User-Agent: Mozilla/5.0 (X11; Linux x86_64; rv:91.0) Gecko/20100101
Thunderbird/91.11.0
Content-Language: en-US
In-Reply-To: <487d4e3a-113f-48a6-97ed-39d329f73fc6n@googlegroups.com>
 by: Bill Gunshannon - Tue, 20 Sep 2022 00:09 UTC

On 9/19/22 19:16, Walt Perko wrote:
> On Monday, September 19, 2022 at 7:09:09 AM UTC-7, Bob Campbell wrote:
>> Walt Perko <r4r...@gmail.com> 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.
>

Your program lacks the ; after the PRINT command that suppresses
the new line.

bill

Re: PRINT #1 TAB(A); ???

<3CadnTG2Ndnwm7T-nZ2dnZfqn_hj4p2d@supernews.com>

 copy mid

https://www.novabbs.com/computers/article-flat.php?id=42&group=comp.sys.tandy#42

 copy link   Newsgroups: comp.sys.tandy
Path: i2pn2.org!i2pn.org!weretis.net!feeder6.news.weretis.net!1.us.feeder.erje.net!feeder.erje.net!border-1.nntp.ord.giganews.com!nntp.giganews.com!Xl.tags.giganews.com!local-2.nntp.ord.giganews.com!nntp.supernews.com!news.supernews.com.POSTED!not-for-mail
NNTP-Posting-Date: Tue, 20 Sep 2022 00:16:44 +0000
User-Agent: NewsTap/5.5 (iPad)
Cancel-Lock: sha1:O309nFECNS/s0WOhB/SdHgufosY=
Newsgroups: comp.sys.tandy
Subject: Re: PRINT #1 TAB(A); ???
Content-Type: text/plain; charset=UTF-8
Mime-Version: 1.0
Content-Transfer-Encoding: 8bit
From: non...@none.none (Bob Campbell)
References: <cb8b9797-48ce-4242-ae95-72850e4bddban@googlegroups.com>
<ReOdnXB3x6Vj6rX-nZ2dnZfqn_Vj4p2d@supernews.com>
<487d4e3a-113f-48a6-97ed-39d329f73fc6n@googlegroups.com>
Message-ID: <3CadnTG2Ndnwm7T-nZ2dnZfqn_hj4p2d@supernews.com>
Date: Tue, 20 Sep 2022 00:16:45 +0000
Lines: 21
X-Trace: sv3-Fhj3Yf80udMe4JSbcOocNnScDmjLTwGIWJSh3M9WwP8VON1vDumQ0ozj+wcNMy1bWnNFoDK9GH42YDH!3Rz0DVGpWqypFYoYL3s1aFyruFhdW6W6UHlKxSZGfSnuTaxBB5wV7TDcovlYznG7/56ABVdmB9Gd!YvvedI7xEw==
X-Complaints-To: www.supernews.com/docs/abuse.html
X-DMCA-Complaints-To: www.supernews.com/docs/dmca.html
X-Abuse-and-DMCA-Info: Please be sure to forward a copy of ALL headers
X-Abuse-and-DMCA-Info: Otherwise we will be unable to process your complaint properly
X-Postfilter: 1.3.40
 by: Bob Campbell - Tue, 20 Sep 2022 00:16 UTC

Walt Perko <r4rguy@gmail.com> wrote:
> 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.

What screen are you referring to? What is the serial port connected to?

As far as I recall, you can’t do this when Printing to a file. Print #1,
<whatever> is treated as a data file. There are ways to format the data
records, but TABbing does not work.

If you are sending this to a printer, you could use LPRINT instead of
PRINT, but then it would have to be connected to the parallel port, not the
serial port.

Re: PRINT #1 TAB(A); ???

<tgidnfk3s7ZzlLT-nZ2dnZfqnPVi4p2d@supernews.com>

 copy mid

https://www.novabbs.com/computers/article-flat.php?id=43&group=comp.sys.tandy#43

 copy link   Newsgroups: comp.sys.tandy
Path: i2pn2.org!i2pn.org!weretis.net!feeder6.news.weretis.net!news.misty.com!border-2.nntp.ord.giganews.com!nntp.giganews.com!Xl.tags.giganews.com!local-1.nntp.ord.giganews.com!nntp.supernews.com!news.supernews.com.POSTED!not-for-mail
NNTP-Posting-Date: Tue, 20 Sep 2022 00:31:42 +0000
User-Agent: NewsTap/5.5 (iPad)
Cancel-Lock: sha1:O309nFECNS/s0WOhB/SdHgufosY=
Newsgroups: comp.sys.tandy
Subject: Re: PRINT #1 TAB(A); ???
Content-Type: text/plain; charset=UTF-8
Mime-Version: 1.0
Content-Transfer-Encoding: 8bit
From: non...@none.none (Bob Campbell)
References: <cb8b9797-48ce-4242-ae95-72850e4bddban@googlegroups.com>
<ReOdnXB3x6Vj6rX-nZ2dnZfqn_Vj4p2d@supernews.com>
<487d4e3a-113f-48a6-97ed-39d329f73fc6n@googlegroups.com>
<josemnFti0jU1@mid.individual.net>
Message-ID: <tgidnfk3s7ZzlLT-nZ2dnZfqnPVi4p2d@supernews.com>
Date: Tue, 20 Sep 2022 00:31:42 +0000
Lines: 55
X-Trace: sv3-tfvnOyR7XNFnq/kmYvdY1iA+3smgNtvt2E8L1ODhaETojYaiKTrjCnO81NXrmZSoKwTk3bUcHZ1NVDU!iK53LzM8udG5qqVCgH0pQAhp6UoJR6LuSJMgJ6F5WBmvgZiirWj2gt9DiaVgvbiEtMh/1J91lzBR!K1JG0RvGUg==
X-Complaints-To: www.supernews.com/docs/abuse.html
X-DMCA-Complaints-To: www.supernews.com/docs/dmca.html
X-Abuse-and-DMCA-Info: Please be sure to forward a copy of ALL headers
X-Abuse-and-DMCA-Info: Otherwise we will be unable to process your complaint properly
X-Postfilter: 1.3.40
 by: Bob Campbell - Tue, 20 Sep 2022 00:31 UTC

Bill Gunshannon <bill.gunshannon@gmail.com> wrote:
> On 9/19/22 19:16, Walt Perko wrote:
>> On Monday, September 19, 2022 at 7:09:09 AM UTC-7, Bob Campbell wrote:
>>> Walt Perko <r4r...@gmail.com> 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.
>>
>
> Your program lacks the ; after the PRINT command that suppresses
> the new line.
>
> bill

Ah yes. Lines 150 and 180.

Re: PRINT #1 TAB(A); ???

<c5b1b19a-a70e-4e0c-a736-ed39661d25f5n@googlegroups.com>

 copy mid

https://www.novabbs.com/computers/article-flat.php?id=44&group=comp.sys.tandy#44

 copy link   Newsgroups: comp.sys.tandy
X-Received: by 2002:a05:622a:178c:b0:35b:b8cc:e711 with SMTP id s12-20020a05622a178c00b0035bb8cce711mr17258462qtk.111.1663641971498;
Mon, 19 Sep 2022 19:46:11 -0700 (PDT)
X-Received: by 2002:a0d:d68b:0:b0:345:321:c55b with SMTP id
y133-20020a0dd68b000000b003450321c55bmr17442129ywd.312.1663641971253; Mon, 19
Sep 2022 19:46:11 -0700 (PDT)
Path: i2pn2.org!i2pn.org!usenet.blueworldhosting.com!feed1.usenet.blueworldhosting.com!peer01.iad!feed-me.highwinds-media.com!news.highwinds-media.com!news-out.google.com!nntp.google.com!postnews.google.com!google-groups.googlegroups.com!not-for-mail
Newsgroups: comp.sys.tandy
Date: Mon, 19 Sep 2022 19:46:11 -0700 (PDT)
In-Reply-To: <tgidnfk3s7ZzlLT-nZ2dnZfqnPVi4p2d@supernews.com>
Injection-Info: google-groups.googlegroups.com; posting-host=71.38.232.108; posting-account=796s0QoAAACuDJ1anllnusK0Wq2VopmW
NNTP-Posting-Host: 71.38.232.108
References: <cb8b9797-48ce-4242-ae95-72850e4bddban@googlegroups.com>
<ReOdnXB3x6Vj6rX-nZ2dnZfqn_Vj4p2d@supernews.com> <487d4e3a-113f-48a6-97ed-39d329f73fc6n@googlegroups.com>
<josemnFti0jU1@mid.individual.net> <tgidnfk3s7ZzlLT-nZ2dnZfqnPVi4p2d@supernews.com>
User-Agent: G2/1.0
MIME-Version: 1.0
Message-ID: <c5b1b19a-a70e-4e0c-a736-ed39661d25f5n@googlegroups.com>
Subject: Re: PRINT #1 TAB(A); ???
From: r4r...@gmail.com (Walt Perko)
Injection-Date: Tue, 20 Sep 2022 02:46:11 +0000
Content-Type: text/plain; charset="UTF-8"
X-Received-Bytes: 2483
 by: Walt Perko - Tue, 20 Sep 2022 02:46 UTC

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

Re: PRINT #1 TAB(A); ???

<cdScnZLp--IR5Lf-nZ2dnZfqnPti4p2d@supernews.com>

 copy mid

https://www.novabbs.com/computers/article-flat.php?id=45&group=comp.sys.tandy#45

 copy link   Newsgroups: comp.sys.tandy
Path: i2pn2.org!i2pn.org!weretis.net!feeder6.news.weretis.net!news.misty.com!border-2.nntp.ord.giganews.com!nntp.giganews.com!Xl.tags.giganews.com!local-1.nntp.ord.giganews.com!nntp.supernews.com!news.supernews.com.POSTED!not-for-mail
NNTP-Posting-Date: Wed, 21 Sep 2022 02:40:12 +0000
User-Agent: NewsTap/5.5 (iPad)
Cancel-Lock: sha1:O309nFECNS/s0WOhB/SdHgufosY=
Newsgroups: comp.sys.tandy
Subject: Re: PRINT #1 TAB(A); ???
Content-Type: text/plain; charset=UTF-8
Mime-Version: 1.0
Content-Transfer-Encoding: 8bit
From: nun...@none.none (Bob Campbell)
References: <cb8b9797-48ce-4242-ae95-72850e4bddban@googlegroups.com>
<ReOdnXB3x6Vj6rX-nZ2dnZfqn_Vj4p2d@supernews.com>
<487d4e3a-113f-48a6-97ed-39d329f73fc6n@googlegroups.com>
<josemnFti0jU1@mid.individual.net>
<tgidnfk3s7ZzlLT-nZ2dnZfqnPVi4p2d@supernews.com>
<c5b1b19a-a70e-4e0c-a736-ed39661d25f5n@googlegroups.com>
Message-ID: <cdScnZLp--IR5Lf-nZ2dnZfqnPti4p2d@supernews.com>
Date: Wed, 21 Sep 2022 02:40:12 +0000
Lines: 72
X-Trace: sv3-yHpd2ulDR16A1e9+oBpO9pBjbYKORQIlViz2PvNqQTAVs0+gL280S9uXGTTHmTYJpRbbv0pKGpbtktb!KzFogYxdKYsmd2YU5BHKgPMc7Qx/ecgp8Ksk+QNsy5urgUwuLb48mLNa4o/6fyBqJo8N0GXYy6Ua!z5lYott56A==
X-Complaints-To: www.supernews.com/docs/abuse.html
X-DMCA-Complaints-To: www.supernews.com/docs/dmca.html
X-Abuse-and-DMCA-Info: Please be sure to forward a copy of ALL headers
X-Abuse-and-DMCA-Info: Otherwise we will be unable to process your complaint properly
X-Postfilter: 1.3.40
 by: Bob Campbell - Wed, 21 Sep 2022 02:40 UTC

Walt Perko <r4rguy@gmail.com> wrote:
> 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

This will not work with PRINT #1 going out the serial port. OPEN FOR
OUTPUT AS 1 means you are creating a text file. There is no cursor to
position.

All you can send is plain text. PRINT TAB (A) is for positioning the
cursor on the screen. There is no cursor to position in a text file.

The best you can do is just PRINT #1 formatted lines of text. Like this:

* *
* *
* *
* *
* *
* *
* *
* *
* *
* *

And on and on. To print any pattern you want. Not very elegant, but that
is how all “graphics” were printed out way back when, on computers that had
no graphics capabilities.

The program you are using is designed to run on a screen. Not to create a
text file.

Re: PRINT #1 TAB(A); ???

<_ficncV6Vsea57f-nZ2dnZfqnPti4p2d@supernews.com>

 copy mid

https://www.novabbs.com/computers/article-flat.php?id=46&group=comp.sys.tandy#46

 copy link   Newsgroups: comp.sys.tandy
Path: i2pn2.org!i2pn.org!weretis.net!feeder6.news.weretis.net!news.misty.com!border-2.nntp.ord.giganews.com!nntp.giganews.com!Xl.tags.giganews.com!local-1.nntp.ord.giganews.com!nntp.supernews.com!news.supernews.com.POSTED!not-for-mail
NNTP-Posting-Date: Wed, 21 Sep 2022 02:42:14 +0000
User-Agent: NewsTap/5.5 (iPad)
Cancel-Lock: sha1:O309nFECNS/s0WOhB/SdHgufosY=
Newsgroups: comp.sys.tandy
Subject: Re: PRINT #1 TAB(A); ???
Content-Type: text/plain; charset=UTF-8
Mime-Version: 1.0
Content-Transfer-Encoding: 8bit
From: nun...@none.none (Bob Campbell)
References: <cb8b9797-48ce-4242-ae95-72850e4bddban@googlegroups.com>
<ReOdnXB3x6Vj6rX-nZ2dnZfqn_Vj4p2d@supernews.com>
<487d4e3a-113f-48a6-97ed-39d329f73fc6n@googlegroups.com>
<josemnFti0jU1@mid.individual.net>
<tgidnfk3s7ZzlLT-nZ2dnZfqnPVi4p2d@supernews.com>
<c5b1b19a-a70e-4e0c-a736-ed39661d25f5n@googlegroups.com>
<cdScnZLp--IR5Lf-nZ2dnZfqnPti4p2d@supernews.com>
Message-ID: <_ficncV6Vsea57f-nZ2dnZfqnPti4p2d@supernews.com>
Date: Wed, 21 Sep 2022 02:42:15 +0000
Lines: 77
X-Trace: sv3-M8cXRdCJANKxeT0RIXpplMilQD2e9jimHbbHil6obv3mVYaDpg8hCH1M7b/0G4nlblcLi8Irwqhe3r7!8fimMrr1SwR670f58kZCD469zZtmOihAiIiSshpou4XNWqTlNazOnFN2pssDmKNlyPdLXdRXr9i9!eu/rHwchNA==
X-Complaints-To: www.supernews.com/docs/abuse.html
X-DMCA-Complaints-To: www.supernews.com/docs/dmca.html
X-Abuse-and-DMCA-Info: Please be sure to forward a copy of ALL headers
X-Abuse-and-DMCA-Info: Otherwise we will be unable to process your complaint properly
X-Postfilter: 1.3.40
 by: Bob Campbell - Wed, 21 Sep 2022 02:42 UTC

Bob Campbell <nunya@none.none> wrote:
> Walt Perko <r4rguy@gmail.com> wrote:
>> 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
>
> This will not work with PRINT #1 going out the serial port. OPEN FOR
> OUTPUT AS 1 means you are creating a text file. There is no cursor to
> position.
>
> All you can send is plain text. PRINT TAB (A) is for positioning the
> cursor on the screen. There is no cursor to position in a text file.
>
> The best you can do is just PRINT #1 formatted lines of text. Like this:
>
> * *
> * *
> * *
> * *
> * *
> * *
> * *
> * *
> * *
> * *
>
> And on and on. To print any pattern you want. Not very elegant, but that
> is how all “graphics” were printed out way back when, on computers that had
> no graphics capabilities.
>
> The program you are using is designed to run on a screen. Not to create a
> text file.
>

Yeah, I knew the above would not come out correctly. It was a large V
originally.

But you still get the idea.

Re: PRINT #1 TAB(A); ???

<27974e3c-eb4f-43a7-8040-84dff96999f0n@googlegroups.com>

 copy mid

https://www.novabbs.com/computers/article-flat.php?id=47&group=comp.sys.tandy#47

 copy link   Newsgroups: comp.sys.tandy
X-Received: by 2002:a05:6214:27e9:b0:4aa:9ff0:e8de with SMTP id jt9-20020a05621427e900b004aa9ff0e8demr21577803qvb.99.1663730477791;
Tue, 20 Sep 2022 20:21:17 -0700 (PDT)
X-Received: by 2002:a5b:750:0:b0:6af:93be:8e4f with SMTP id
s16-20020a5b0750000000b006af93be8e4fmr23948873ybq.458.1663730477633; Tue, 20
Sep 2022 20:21:17 -0700 (PDT)
Path: i2pn2.org!i2pn.org!usenet.blueworldhosting.com!feed1.usenet.blueworldhosting.com!peer03.iad!feed-me.highwinds-media.com!news.highwinds-media.com!news-out.google.com!nntp.google.com!postnews.google.com!google-groups.googlegroups.com!not-for-mail
Newsgroups: comp.sys.tandy
Date: Tue, 20 Sep 2022 20:21:17 -0700 (PDT)
In-Reply-To: <_ficncV6Vsea57f-nZ2dnZfqnPti4p2d@supernews.com>
Injection-Info: google-groups.googlegroups.com; posting-host=71.38.232.108; posting-account=796s0QoAAACuDJ1anllnusK0Wq2VopmW
NNTP-Posting-Host: 71.38.232.108
References: <cb8b9797-48ce-4242-ae95-72850e4bddban@googlegroups.com>
<ReOdnXB3x6Vj6rX-nZ2dnZfqn_Vj4p2d@supernews.com> <487d4e3a-113f-48a6-97ed-39d329f73fc6n@googlegroups.com>
<josemnFti0jU1@mid.individual.net> <tgidnfk3s7ZzlLT-nZ2dnZfqnPVi4p2d@supernews.com>
<c5b1b19a-a70e-4e0c-a736-ed39661d25f5n@googlegroups.com> <cdScnZLp--IR5Lf-nZ2dnZfqnPti4p2d@supernews.com>
<_ficncV6Vsea57f-nZ2dnZfqnPti4p2d@supernews.com>
User-Agent: G2/1.0
MIME-Version: 1.0
Message-ID: <27974e3c-eb4f-43a7-8040-84dff96999f0n@googlegroups.com>
Subject: Re: PRINT #1 TAB(A); ???
From: r4r...@gmail.com (Walt Perko)
Injection-Date: Wed, 21 Sep 2022 03:21:17 +0000
Content-Type: text/plain; charset="UTF-8"
X-Received-Bytes: 2401
 by: Walt Perko - Wed, 21 Sep 2022 03:21 UTC

On Tuesday, September 20, 2022 at 7:42:19 PM UTC-7, Bob Campbell wrote:
> Bob Campbell <nu...@none.none> wrote:
> > Walt Perko <r4r...@gmail.com> wrote:
> >> On Monday, September 19, 2022 at 5:31:47 PM UTC-7, Bob Campbell wrote:
> >>
> > The program you are using is designed to run on a screen. Not to create a
> > text file.
> >
> Yeah, I knew the above would not come out correctly. It was a large V
> originally.
>
> But you still get the idea.

On the Model 100 screen I can see the sine wave moving up the screen as the program runs, on my Altair computer the program does a reasonable sinewave on the terminal screen attached via serial port to the Altair console.

That is why I'm expecting the program to create a sine wave on the terminal screen attached to the serial port of the Model 100.

So the "TAB" feature in Model 100 TRS-80 basic doesn't send a series of spaces like Microsoft BASIC-80?

Re: PRINT #1 TAB(A); ???

<vrycneNTIsFiFbf-nZ2dnZfqnPti4p2d@supernews.com>

 copy mid

https://www.novabbs.com/computers/article-flat.php?id=48&group=comp.sys.tandy#48

 copy link   Newsgroups: comp.sys.tandy
Path: i2pn2.org!i2pn.org!weretis.net!feeder6.news.weretis.net!news.misty.com!border-2.nntp.ord.giganews.com!border-1.nntp.ord.giganews.com!nntp.giganews.com!Xl.tags.giganews.com!local-2.nntp.ord.giganews.com!nntp.supernews.com!news.supernews.com.POSTED!not-for-mail
NNTP-Posting-Date: Wed, 21 Sep 2022 03:46:07 +0000
User-Agent: NewsTap/5.5 (iPad)
Cancel-Lock: sha1:O309nFECNS/s0WOhB/SdHgufosY=
Newsgroups: comp.sys.tandy
Subject: Re: PRINT #1 TAB(A); ???
Content-Type: text/plain; charset=UTF-8
Mime-Version: 1.0
Content-Transfer-Encoding: 8bit
From: nun...@none.none (Bob Campbell)
References: <cb8b9797-48ce-4242-ae95-72850e4bddban@googlegroups.com>
<ReOdnXB3x6Vj6rX-nZ2dnZfqn_Vj4p2d@supernews.com>
<487d4e3a-113f-48a6-97ed-39d329f73fc6n@googlegroups.com>
<josemnFti0jU1@mid.individual.net>
<tgidnfk3s7ZzlLT-nZ2dnZfqnPVi4p2d@supernews.com>
<c5b1b19a-a70e-4e0c-a736-ed39661d25f5n@googlegroups.com>
<cdScnZLp--IR5Lf-nZ2dnZfqnPti4p2d@supernews.com>
<_ficncV6Vsea57f-nZ2dnZfqnPti4p2d@supernews.com>
<27974e3c-eb4f-43a7-8040-84dff96999f0n@googlegroups.com>
Message-ID: <vrycneNTIsFiFbf-nZ2dnZfqnPti4p2d@supernews.com>
Date: Wed, 21 Sep 2022 03:46:07 +0000
Lines: 31
X-Trace: sv3-a4q+Q5YliU7IHQHppGVCF9jvTODJ8YqkoHtsBIasC3Ywceh4/DXPdrn4y+KAwYtZW0uFGmYAMCNqcqv!6nJigTTvabbXBbbb0p8t+VSh1RKk6THo43cizDJ3jhVX2BEjm+KKrbsfo8ysQVlhy+rdn5+ydoEJ!Abul3bCHbQ==
X-Complaints-To: www.supernews.com/docs/abuse.html
X-DMCA-Complaints-To: www.supernews.com/docs/dmca.html
X-Abuse-and-DMCA-Info: Please be sure to forward a copy of ALL headers
X-Abuse-and-DMCA-Info: Otherwise we will be unable to process your complaint properly
X-Postfilter: 1.3.40
 by: Bob Campbell - Wed, 21 Sep 2022 03:46 UTC

Walt Perko <r4rguy@gmail.com> wrote:
> On Tuesday, September 20, 2022 at 7:42:19 PM UTC-7, Bob Campbell wrote:
>> Bob Campbell <nu...@none.none> wrote:
>>> Walt Perko <r4r...@gmail.com> wrote:
>>>> On Monday, September 19, 2022 at 5:31:47 PM UTC-7, Bob Campbell wrote:
>>>>
>>> The program you are using is designed to run on a screen. Not to create a
>>> text file.
>>>
>> Yeah, I knew the above would not come out correctly. It was a large V
>> originally.
>>
>> But you still get the idea.
>
> On the Model 100 screen I can see the sine wave moving up the screen as
> the program runs, on my Altair computer the program does a reasonable
> sinewave on the terminal screen attached via serial port to the Altair console.
>
> That is why I'm expecting the program to create a sine wave on the
> terminal screen attached to the serial port of the Model 100.
>
> So the "TAB" feature in Model 100 TRS-80 basic doesn't send a series of
> spaces like Microsoft BASIC-80?

Not when going out the serial port using OPEN FOR OUTPUT AS 1. That is a
text file. Again, there is no cursor to position in a text file.

You can try PRINT #1, SPACE$(A);”*”;

SPACE$(X) creates X number of spaces.

Re: PRINT #1 TAB(A); ???

<6d574ef4-aa49-4e95-952a-c0d66803fc8en@googlegroups.com>

 copy mid

https://www.novabbs.com/computers/article-flat.php?id=49&group=comp.sys.tandy#49

 copy link   Newsgroups: comp.sys.tandy
X-Received: by 2002:a0c:e30b:0:b0:4aa:a21f:e2de with SMTP id s11-20020a0ce30b000000b004aaa21fe2demr22259152qvl.75.1663737980026;
Tue, 20 Sep 2022 22:26:20 -0700 (PDT)
X-Received: by 2002:a05:6902:1347:b0:6af:8f24:1937 with SMTP id
g7-20020a056902134700b006af8f241937mr21235263ybu.384.1663737979845; Tue, 20
Sep 2022 22:26:19 -0700 (PDT)
Path: i2pn2.org!i2pn.org!usenet.blueworldhosting.com!feed1.usenet.blueworldhosting.com!peer02.iad!feed-me.highwinds-media.com!news.highwinds-media.com!news-out.google.com!nntp.google.com!postnews.google.com!google-groups.googlegroups.com!not-for-mail
Newsgroups: comp.sys.tandy
Date: Tue, 20 Sep 2022 22:26:19 -0700 (PDT)
In-Reply-To: <vrycneNTIsFiFbf-nZ2dnZfqnPti4p2d@supernews.com>
Injection-Info: google-groups.googlegroups.com; posting-host=71.38.232.108; posting-account=796s0QoAAACuDJ1anllnusK0Wq2VopmW
NNTP-Posting-Host: 71.38.232.108
References: <cb8b9797-48ce-4242-ae95-72850e4bddban@googlegroups.com>
<ReOdnXB3x6Vj6rX-nZ2dnZfqn_Vj4p2d@supernews.com> <487d4e3a-113f-48a6-97ed-39d329f73fc6n@googlegroups.com>
<josemnFti0jU1@mid.individual.net> <tgidnfk3s7ZzlLT-nZ2dnZfqnPVi4p2d@supernews.com>
<c5b1b19a-a70e-4e0c-a736-ed39661d25f5n@googlegroups.com> <cdScnZLp--IR5Lf-nZ2dnZfqnPti4p2d@supernews.com>
<_ficncV6Vsea57f-nZ2dnZfqnPti4p2d@supernews.com> <27974e3c-eb4f-43a7-8040-84dff96999f0n@googlegroups.com>
<vrycneNTIsFiFbf-nZ2dnZfqnPti4p2d@supernews.com>
User-Agent: G2/1.0
MIME-Version: 1.0
Message-ID: <6d574ef4-aa49-4e95-952a-c0d66803fc8en@googlegroups.com>
Subject: Re: PRINT #1 TAB(A); ???
From: r4r...@gmail.com (Walt Perko)
Injection-Date: Wed, 21 Sep 2022 05:26:20 +0000
Content-Type: text/plain; charset="UTF-8"
Content-Transfer-Encoding: quoted-printable
X-Received-Bytes: 2337
 by: Walt Perko - Wed, 21 Sep 2022 05:26 UTC

On Tuesday, September 20, 2022 at 8:46:13 PM UTC-7, Bob Campbell wrote:
> Walt Perko <r4r...@gmail.com> wrote:

> >
> > So the "TAB" feature in Model 100 TRS-80 basic doesn't send a series of
> > spaces like Microsoft BASIC-80?
> Not when going out the serial port using OPEN FOR OUTPUT AS 1. That is a
> text file. Again, there is no cursor to position in a text file.
>
> You can try PRINT #1, SPACE$(A);”*”;
>
> SPACE$(X) creates X number of spaces.

Hi,

Okay, changed just line 130 to SPACE(A) and although it's not giving me a sine wave on the screen, it's making a pattern that might be a 360 column sine wave. It's kind of interesting.

1
server_pubkey.txt

rocksolid light 0.9.7
clearnet tor