Category : Pascal Source Code
Archive   : KPAS.ZIP
Filename : KEYBOARD.TPU
± ~ t a 7 Ö
òè " K ÷ a Ë < YKEYBOARD QÖ è YSYSTEM aéè YDOS ñ Ö P
RIGHTSHIFTæ à P LEFTSHIFTæ à P CTRLSHIFTæ à PALTSHIFTæ à P
SCROLLLOCKæ à PNUMLOCKæ à PCAPSLOCKæ à @ P
INSERTLOCKæ à QKEYFUNCÎ
þ à à þ à ¶ à ¶ à SCLEARKEYBUFFER U
S
CHECKKEYBOARD _
þ à SGETKEY Å
à þ à SGETSCAN à
¶ à ¶ à S
GETLASTKEY þ
à þ à S
SETKEYFUNC
Î ~ Ï t Wa 7 Ö
Fòè " K ÷ a¸ Ë < RBUFFER à RSCAN à RLASTSCAN |Î æ à ¶ à lÎ RLASTKEY ¬Î æ à ¶ à Î 3R
VARKEYFUNC Î SWHENKEYPRESSEDDONOTHING
þ à à þ à ¶ à ¶ à +9G RA Ïà RB
Ïþ à RC ϶ à RD ϶ à ± y RREGêÿòï iRCNTRéÿò¶ à RSCANCODEèÿò¶ à RASCIIçÿò¶ à RKBDFLAGæÿò¶ à Ï RFUNC þ à ê RKBDFLAG <¶ à RFUNC aþ à # RTHEFUNC Î 8 ( 0
0 y ` N &