Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Path: utzoo!mnetor!uunet!seismo!lll-lcc!lll-tis!ptsfa!ski!dr
From: dr@ski.UUCP (David Robins)
Newsgroups: comp.sys.apple
Subject: Re: comma input
Message-ID: <985@ski.UUCP>
Date: Wed, 15-Jul-87 17:39:22 EDT
Article-I.D.: ski.985
Posted: Wed Jul 15 17:39:22 1987
Date-Received: Sat, 18-Jul-87 04:52:06 EDT
References: <8706300937.aa12986@SMOKE.BRL.ARPA>
Reply-To: dr@unix.UUCP (David Robins)
Organization: Smith-Kettlewell Institute, S.F., CA.
Lines: 32

In article <> chris@hplvdd.HP.COM (Chris Kelly) writes:
>
>You can use the GETLN subroutine at -662 (decimal) which fills the input
>buffer at $200 to $2FF (512 to 767 decimal).
>
>for example:
>100 BF$="":rem clear string variable
>110 CALL -662  : rem call GETLN
>120 for i = 512 to 767
>130 x=peek(i)-128  :rem get element of buffer
>140 BF$=BF$+chr$(x)
>150 next i
>

A more commonly used entry points for this is CALL -657, which is the
same as the above GETLN, but without a prompt in the way.  It is shown
on the Beagle Bros. chart, and other publications.
They also look for the RETURN!

10 PRINT "enter name: "; : CALL -657
20 A$="": for x= 512 ti 767: if peek(x) <> 141 then
                A$=A$+CHR$(peek(x)-128): next x
-- 
====================================================================
David Robins, M.D. 
Smith-Kettlewell Eye Research Foundation
(previously known as: Smith-Kettlewell Institute of Visual Sciences)
2232 Webster St; San Francisco CA 94115
415/561-1705 (voice)
			{ihnp4,qantel,dual}!ptsfa!ski!dr

The opinions expressed herein do not reflect the opinion of the Institute!