PROGRAM M8Boxer; USES {$U UObject } UObject, {$IFC libraryVersion <= 20} {$U UFont} UFont, {$ENDC} {$U QuickDraw } QuickDraw, {$U UDraw } UDraw, {$U UABC } UABC, {$U U8Boxer } U8Boxer; CONST phraseVersion = 1; BEGIN process := TBoxProcess.CREATE; process.Commence(phraseVersion); process.Run; process.Complete(TRUE); END.