Path: csiph.com!eternal-september.org!feeder.eternal-september.org!news.eternal-september.org!.POSTED!not-for-mail From: mmphosis Newsgroups: comp.sys.apple2.programmer Subject: Re: String Input integrated with animation routine Date: Mon, 5 Sep 2016 23:27:09 -0000 (UTC) Organization: Mac GUI Lines: 21 Message-ID: References: <91b93535-5977-4360-b810-8453b327b900@googlegroups.com> Mime-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit Injection-Date: Mon, 5 Sep 2016 23:27:09 -0000 (UTC) Injection-Info: mx02.eternal-september.org; posting-host="ac9e0e4d7dd3957fb97803ee6801bab8"; logging-data="7659"; mail-complaints-to="abuse@eternal-september.org"; posting-account="U2FsdGVkX1/9Aqe43Dk2EBB5dnBpiOhE" User-Agent: Mac GUI Usenet In-Reply-To: <91b93535-5977-4360-b810-8453b327b900@googlegroups.com> Cancel-Lock: sha1:A+qJFzGhmk3FG1fxRZ0BZB/M9L0= Xref: csiph.com comp.sys.apple2.programmer:3035 Here is a keyboard test program using the Monitor WAIT routine between polls of the keyboard ... 100 DATA169,1,32,168,252,173 110 DATA0,192,16,246,44,16 120 DATA192,201,155,240,7,32 130 DATA240,253,169,0,240,232 140 FOR I = 768 TO 792: READ B 150 POKE I,B: NEXT : DATA96 160 INPUT "WAIT (0 TO 255)=";A 170 LET N = A + (A = 0) * 256 180 LET D = 13 + 5 / 2 * N * N 190 PRINT "="27 / 2 * N + D; 200 PRINT " CYCLES" 210 PRINT "PRESS ESC TO QUIT" 220 POKE 769,A: CALL 768 KEGSMAC, the emulator I am using, always captures the keystrokes, so I wasn't able to test this program very well.