Groups | Search | Server Info | Login | Register


Groups > comp.lang.logo > #139

blind inpu

X-Received by 2002:ac8:59d2:0:b0:343:57f:3049 with SMTP id f18-20020ac859d2000000b00343057f3049mr4931807qtf.55.1662586111255; Wed, 07 Sep 2022 14:28:31 -0700 (PDT)
X-Received by 2002:a25:3b04:0:b0:6a7:6d30:966d with SMTP id i4-20020a253b04000000b006a76d30966dmr4436060yba.146.1662586111044; Wed, 07 Sep 2022 14:28:31 -0700 (PDT)
Path csiph.com!weretis.net!feeder6.news.weretis.net!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.lang.logo
Date Wed, 7 Sep 2022 14:28:30 -0700 (PDT)
Injection-Info google-groups.googlegroups.com; posting-host=172.222.158.210; posting-account=QUp-_AoAAACdRsEM9JiQpZpetofkNFg9
NNTP-Posting-Host 172.222.158.210
User-Agent G2/1.0
MIME-Version 1.0
Message-ID <d2ffa366-2447-4f82-96eb-01d9daae337bn@googlegroups.com> (permalink)
Subject blind inpu
From "Mr. Spelunx" <mrspelunx@gmail.com>
Injection-Date Wed, 07 Sep 2022 21:28:31 +0000
Content-Type text/plain; charset="UTF-8"
Content-Transfer-Encoding quoted-printable
X-Received-Bytes 1927
Xref csiph.com comp.lang.logo:139

Show key headers only | View raw


Hello. I'm new here. I have a question about a little procedure I'm developing in UCBLogo. I want the user to type a secret message word that gets output to another procedure/primitive. The characters are collected in a word STRING and don't appear on the screen. The recursion stops with an Enter key (ascii 10 in Windows, ascii 13 elsewhere). Here it is:

TO INPUT :STRING
LOCAL "K
MAKE "K READCHAR
IF EQUALP ASCII :K 10 [OUTPUT :STRING STOP]
MAKE "STRING WORD :STRING :K
INPUT :STRING
END

? PRINT INPUT "
(SWORDFISH) (not visible)

You don't say what to do with SWORDFISH in INPUT
[INPUT :STRING]


I can't figure out why it won't output to PRINT. If I change the section OUTPUT :STRING to PRINT :STRING, it will print SWORDFISH.

Strangely, this works in LogoWriter 2.0 for DOS and TurtleSpaces, but not Apple Logo or UCBLogo. Is this a word-terminator problem or something else?

Back to comp.lang.logo | Previous | Next | Find similar


Thread

blind inpu "Mr. Spelunx" <mrspelunx@gmail.com> - 2022-09-07 14:28 -0700

csiph-web