Path: utzoo!attcan!uunet!lll-winken!lll-tis!helios.ee.lbl.gov!pasteur!ucbvax!UCONNVM.BITNET!SEWALL From: SEWALL@UCONNVM.BITNET (Murph Sewall) Newsgroups: comp.sys.apple Subject: Re: Misc Message-ID: <8808011402.aa04788@SMOKE.BRL.ARPA> Date: 1 Aug 88 18:56:14 GMT References: Sender: daemon@ucbvax.BERKELEY.EDU Organization: The Internet Lines: 48 >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. >> > >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 Sorry, but that's not going to do it. The "killer" is 1080 A$= A$+B$ (takes too much time and creates "garbage" - which then takes even more time to "collect"). What Tom needs is an "input anything" routine for ProDOS (there are numerous DOS 3.3 versions -- or perhaps just variants on a version) that will INPUT a line into a single string variable regardless of colons, semicolons, and commas that may be in the line. Such a criter would have to be in machine code (either a routine to BLOAD or something that can be POKEd from DATA statements). Isn't PEEKing the keyboard character buffer the equivalent of GET A$ (or at least not noticeably quicker)? Murph Sewall Sewall@UCONNVM.BITNET Business School sewall%uconnvm.bitnet@mitvma.mit.edu [INTERNET] U of Connecticut {rutgers psuvax1 ucbvax & in Europe - mcvax} !UCONNVM.BITNET!SEWALL [UUCP] -+- My employer isn't responsible for my mistakes AND vice-versa! (subject to change without notice; void where prohibited) "It might help if we ran the MBA's out of Washington." - Adm Grace Hopper