DEFINITION MODULE AppleScreen;

FROM SYSTEM IMPORT ADDRESS;

TYPE
 DiskNum=[1..2];
 Protected=BOOLEAN;

 DiskLoadProc=PROCEDURE(DiskNum);
 DiskUnloadProc=PROCEDURE(DiskNum);
 DiskProtectProc=PROCEDURE(DiskNum,Protected);

VAR
 lastKey:[0..255];
 quit,reset:PROC;
 diskLoad:DiskLoadProc;
 diskUnload:DiskUnloadProc;
 diskProtect:DiskProtectProc;

PROCEDURE PutText(line,col:CARDINAL; text:ADDRESS; length:CARDINAL);

PROCEDURE RequestDisk(diskNum:DiskNum; VAR name:ARRAY OF CHAR):BOOLEAN;

END AppleScreen.