DEFINITION MODULE JOY ;
FROM SYSTEM IMPORT ADDRESS;
FROM XBIOS IMPORT KBVectorPtr;
VAR
port0,port1,Jstor : ADDRESS;
PROCEDURE Doread(VAR direction : INTEGER) : BOOLEAN;
PROCEDURE InitJoy(VAR stor : KBVectorPtr);
PROCEDURE Endjoy(stor : KBVectorPtr);

END JOY.