%CONTROL 0
%constinteger nl = 10
%primintegerfnspec addr(%name n)
%primintegermapspec integer(%integer a)
%primrealmapspec real(%integer a)
%primstring(255)%mapspec string(%integer a)
%primrecord(*)%mapspec record(%integer a)
%primbytemapspec byteinteger(%integer a)
%primbytemapspec length(%string(*)%name s)
%primbytemapspec charno(%string(*)%name s, %integer n)
%primintegerfnspec rem(%integer a, b)
%primroutinespec readch(%name n)
%primroutinespec readsymbol(%name n)
%primintegerfnspec swab(%integer x)
%primstring(1)%fnspec tostring(%integer n)
%primstring(1)%fnspec snl
%primintegerfnspec intpt(%real r)
%primintegerfnspec int(%real r)
%externalroutinespec printsymbol %alias "$PSYM"(%integer s)
%externalroutinespec printch(%integer n)
%externalroutinespec skipsymbol %alias "PERM$P"
%externalintegerfnspec nextsymbol
%externalroutinespec newline
%externalroutinespec newlines(%integer n)
%externalroutinespec space
%externalroutinespec spaces(%integer a)
%externalroutinespec printstring %alias "$PSTR"(%string(255) S)
%externalroutinespec write(%integer m, n)
%externalroutinespec selectinput(%integer n)
%externalroutinespec selectoutput(%integer n)
%externalroutinespec open input(%integer n, %string(31) S)
%externalroutinespec open output(%integer n, %string(31) S)
%externalroutinespec close input
%externalroutinespec close output
%externalroutinespec abandon input
%externalroutinespec abandon output
%externalroutinespec reset input
%externalroutinespec reset output
%externalintegerfnspec in type
%externalintegerfnspec out type
%externalintegerfnspec in stream
%externalintegerfnspec out stream
%externalstring(31)%fnspec in file name
%externalstring(31)%fnspec out file name
%externalroutinespec prompt(%string(15) S)
%externalintegerfnspec free store
%systemroutinespec read(%integername n)
%systemroutinespec readx(%name n)
%externalroutinespec readstring(%string(*) %name s)
%endofperm