SET SW=E
SET BU=7000
$CREATE PASCAL,P,9C0
$CREATE PASM,P,9C0
$CREATE PINT,P,E00
$CREATE PAS.DOC,P,9C0
$CREATE PAS.GET,Q,240
GET I=/1,PASCAL,PASM,PINT,RUN,COMPILE,PAS.DEFS,PAS.DOC,PAS.GET
$CREATE PAS.CMPL,P,100
$CREATE TEMP.T,P,100
$CREATE TEMP.P,P,4C0
$CREATE POBJ,P,4C0
SET BU=8800
SET SW=-E
$STOP