PROGRAM MKeyboard; USES {$U UObject} UObject, {$U QuickDraw} QuickDraw, {$U UDraw} UDraw, {$U UABC} UABC, {$U -#BOOT-QD/HARDWARE} Hardware, {$U -#BOOT-Syscall} Syscall, {$U UKeyboard} UKeyboard; CONST phraseVersion = 1; BEGIN process := TKeyProcess.CREATE(NIL, mainHeap); process.Commence(phraseVersion); process.Run; process.Complete(TRUE); END.