option  "-LOW"
{Utility procedures}
system routine spec  READ LINE(string (*)name  s)
system routine spec  PRINT LINE(string (255) s)
system string (255)fn spec  ITOS(integer  v,p)
system string (255)fn spec  RTOS(real  R, integer  bp, ap)
systeminteger fnspec  STOI(string (255) s)
! not yet %external%routine%spec TO LOWER(%string(*)%name s)
! not yet %external%routine%spec TO UPPER(%string(*)%name s)

{Environment enquiry}
system integer fn spec  FREESTORE
system string (8)fn spec  DATE
system string (5)fn spec  TIME
system string (15)fn spec  DATETIME

systemroutinespec  PHEX1(integer  x)
systemroutinespec  PHEX2(integer  x)
systemroutinespec  PHEX4(integer  x)
systemroutinespec  PHEX(integer  x)
systeminteger fnspec  RHEX; !as %routine
{Heap}
systeminteger fn spec  HEAPGET(integer  x)
system routine spec  HEAPPUT(integer  x)
system routine spec  MARK
system routine spec  RELEASE

{PAM}
record format  PAMINFO(byte  groupsep,keyflag, short  allflags,
 record (*)name  params)
external record (paminfo)map spec  PAM
constinteger  PAM NEWGROUP=1, PAM NODEFAULT=2, PAM MAJOR=4,
 PAM KEEPCASE=8, PAM INFILE=16, PAM OUTFILE=32
external routine spec  DEFINE PARAM alias  "PAM_DEFSTRING" c 
 (string (255) text, string (*)name  variable, integer  flags)
external routine spec  DEFINE INT PARAM alias  "PAM_DEFINT" c 
 (string (255) text, integername  variable, integer  flags)
external routine spec  DEFINE ENUM PARAM alias  "PAM_DEFENUM" c 
 (string (255) text, bytename  variable, integer  flags)
external routine spec  DEFINE BOOLEAN PARAMS alias  "PAM_DEFBOOL" c 
 (string (255) text, integername  variable, integer  flags)
external routine spec  PROCESS PARAMETERS alias  "PAM_PROCESS" c 
 (string (255) parm)

{Terminal}
constinteger  NO ECHO=1, NO TERMECHO=2, SINGLE=4, NO PAGE=8
dynamicroutinespec  SET TERMINAL MODE(integer  mode)
external integer fn spec  TESTSYMBOL

{Files}
system string (255)fn spec  INFILENAME
system string (255)fn spec  OUTFILENAME
! not yet %external%routine%spec OPENAPPEND(%integer stream,%string(255)file)
! not yet %external%routine%spec CLOSEAPPEND
external predicate spec  EXISTS(string (255)file)
external integer fn spec  FILESIZE(string (255)file)
system routine spec  CONNECT FILE c 
 (string (255) fname, integer  mode, integer name  start,limit)
! not yet %external%routine%spec DELETE(%string(255)file)
! not yet %external%routine%spec RENAME(%string(255)old,new)
! not yet %external%routine%spec COPY(%string(255)from,to)
! not yet %external%routine%spec PERMIT(%string(255)file,perms)
! not yet %external%routine%spec QUOTE(%string(255)pass)

systemroutinespec  createlogicalname (string (255)log,equiv)
systemroutinespec  deletelogicalname (String (255)s)
systempredicatespec  translatelogicalname(String (*)name  s)