10 REM ---~AINK$.TBX~,A --- CONTROLLED KEYBOARD INPUT FOR 8 CHARS FOR FILENAME
15 CLS:KEY OFF
20 PRINT :PRINT "Here is a routine that you can use to control the input from the keyboard. Try it and then delete lines 10-100 and SAVE~filename~,A and then MERGE it. Type some characters and see what happens below.-- Then ENTER it.
60 GOSUB 20000
65 PRINT :COLOR 15 :PRINT TAB(30) WORD$:COLOR 7
70 PRINT:PRINT "You could have opened file called ";WORD$;" when you typed and entered ";WORD$
80 PRINT :PRINT "This routine restricts many keys like the backspace and Upperfies small letters
90 PRINT :PRINT "It also restricts any keys other than capital letters from getting through.
95 PRINT :PRINT "And you heard a BEEP when you had eight characters.
100 END
20000 REM--- "AINK$",A----input routine alphabet only
20010 INK$=INKEY$ : IF INK$ = CHR$(3) OR INK$="" THEN 20010
20012 IF LEN(WORD$)=>1 THEN IF INK$=CHR$(8) THEN 20074
20015 IF INK$ = CHR$(13) THEN RETURN
20020 IF INK$ =>"a" AND INK$<="z" THEN INK$=CHR$(ASC(INK$)-32)
20030 IF INK$ => "A" AND INK$ <= "Z" THEN 20050 ELSE 20010