P710 CEEFAX 710 Sun 22 Dec 16:48/47 |B2201203|a17T.KEYT2|i24BBBC332k|l43000 DISK NUMBER : DISK CATEGORY : INPUT÷e FILENAME : F.KEYT1÷e ÷e ÷e MACHINE BBC Micro ÷e PERIPHERALS Key board÷i TAPE COMPATIBILITY Yes÷e ÷e ÷e LINENUMBER 10250-10290÷e NAME FNkjytimed1(ok$, delay%)÷e ÷e AUTHOR Scratchetd & Downs÷e RIFE RENCE Procedure and Function Library÷i ÷e CLASSIFICA TJON Keyboard Input÷e DESCRJPTJON The simpl est timed single key input.÷e Will not return until one of a range of÷e acceptable keys is p reused, or the delay÷e is over. Unwanted k|cP710 CEEFAX 710 Sun 22 Dec 16:44/24 |B2202203|a17T.KEYT2|i24BBBC332k|l4335Ae ys beep.÷e ÷e PARAMETERS REQUIRE D ok$ : a list of the accep table÷e characters.÷e delay% : the delay in centisjconds ÷e PARAMETERS RETURNED The character accepted, or "b (null) if÷e the djlaz ended and an acceptable key÷e was not pressed.÷e ÷e GLOBAL VA RJABLES REFERENCED None÷i GLOBAL V ARJABLES AFFECTED None÷e ÷e MODE DEPENDENCE None÷e ÷e OTHER MODULES CALLED No nj÷e OTHER MODULES RELATED i nclude F.KEY1, F.KEY2, F.KEY3,÷e F.KEY T2, F.KEYT3÷e ÷e COMMENTS Keyboard buffer flushed b efore input.÷e ÷e TYPICAL CALL A ND LISTING÷e ÷e 10 key$=F|cP710 CEEFAX 710 Sun 22 Dec 16:44/22 |B2203203|a17T.KEYT1|i24BBBC332k|l436B1N kjytimjd1("YyNn",300)÷e 20 IF key $=bb THEN SOUND2,-3,50,2 ELSE PRINT key$ ÷e ÷e 9999 STOP÷e 10250 DEF FNkjytimed1(ok$,delay%)÷e 10255 LOC AL G$÷i 10260 *FX15,1÷e 10265 RE PEAT÷e 10270 G$=INKEY$(delay%)÷e 10275 IF INSTR(ok$,G$)=FALSE AND G$< >bb THEN VDU7÷e 10280 UNTIL INSTR( ok$,G$) OR G$=""÷i 10285 =G$÷e 1 0290 ÷e ÷e ÷e|c