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!