Path: utzoo!yunexus!geac!syntron!jtsv16!uunet!lll-winken!lll-lcc!ames!mailrus!uwmcsd1!csd4.milw.wisc.edu!wes From: wes@csd4.milw.wisc.edu (Wesley James Vokes) Newsgroups: comp.sys.apple Subject: Re: Misc Summary: a bit of help on input routine Message-ID: <6351@uwmcsd1.UUCP> Date: 31 Jul 88 06:09:01 GMT Article-I.D.: uwmcsd1.6351 References: Sender: news@uwmcsd1.UUCP Reply-To: wes@csd4.milw.wisc.edu (Wesley James Vokes) Organization: University of Wisconsin-Milwaukee Lines: 46 In article tmetro@lynx.northeastern.EDU writes: > >Does anyone know: > > 1. Of an "input-anything" routine for AppleSoft that is public domain and > compatable with BASIC.SYSTEM? I need this for disk access to avoid > INPUT A$'s problems with punctuation. GET A$ is too slow. > Tom, This is sloppy, and I'm writing this on the spot, but it'll give you an idea as to how to write your own subroutine to use. Here's a short listing, I'll explain it after I've typed it in. 1000 REM Keyboard Input Subroutine 1005 A$ = "" 1010 FOR X=1 TO 16: 1020 Poke -16368,0 1030 A= PEEK (-16384) 1040 IF (A>127) THEN 1060 1050 GOTO 1020 1060 B$ = CHR$(PEEK(-16384)-128) 1070 IF B$ = "" THEN 1100 1080 A$ = A$+B$ 1085 POKE -16368,0 1090 NEXT X 1100 POKE -16368,0 1110 RETURN Ok, the key to this is, that at location 16368, in applesoft, the highbit ASCII value of the last letter typed is stored. I wrote the program to allow 16 letters max, and it takes each key typed and adds it on to the string A$. Noene of the keys typed are displayed on the screen, so you might want to put that in. Also, if they try to backspace, it won't work. But, you can customize it toaccomodate backspacing with alittle work. I hope this works. Any questions, just send my account email. _ ____ ' ) / arpanet: wes@csd4.milw.wisc.edu / / / _ _ bitnet: wes%csd4.milw.wisc.edu@wiscvm.bitnet (_(_/