%routinespec prompt(%string(15) s)
%routinespec selectinput(%integer st)
%routinespec selectoutput(%integer st)
%routinespec close in(%integer stream, safe)
%routinespec close out(%integer stream, how)
%routinespec close input
%routinespec close output
%routinespec abandon input
%routinespec abandon output
%routinespec open input(%integer st,  %string(31) file)
%routinespec open output(%integer st, %string(31) file)
%routinespec printsymbol(%integer sym)
%routinespec printstring(%string(255) s)
%routinespec newline
%routinespec space
%routinespec newpage
%routinespec newlines(%integer n)
%routinespec spaces(%integer n)
%routinespec console(%string(63) s)
%integerfnspec readsymbol
%integerfnspec nextsymbol
%routinespec skipsymbol
%routinespec write(%integer value, places)
%routinespec print fl(%real r, %integer p)
%routinespec print(%real r, %integer a, b)
%routinespec phex(%integer n, p)
%routinespec read(%name n)
%routinespec stop
%routinespec create seg(%integername n, %integer size)
%routinespec tidy segs
%routinespec cpu limit(%integer seconds)
%routinespec unstack conts(%integer to)
%integerfnspec cputime
%string(9)%fnspec date
%string(8)%fnspec time
%realfnspec fracpt(%real r)
%routinespec store dump(%integer from, size)
%routinespec dump contingency(%record(contfm)%name  cont)
%routinespec to upper(%string(*)%name s)
%routinespec to lower(%string(*)%name s)
%routinespec obey(%string(31) in, out, %string(63) p)
%routinespec pack(%string(63) s, %record(filefm)%name F)
%routinespec unpack(%record(filefm)%name F, %string(*)%name S)
%routinespec Del file(%record(filefm)%name F, %integer quiet)
%routinespec delete file(%string(63) file)
%string(72)%fnspec itos(%integer n,p)
%string(63)%fnspec xtos(%integer n,p)
%endoffile
