%constinteger NL=10
%prim( 1)%routinespec Readsymbol(%name N)
%prim( 2)%routinespec Readch(%name N)
%prim( 3)%string(*)%mapspec String(%integer A)
%prim( 4)%integermapspec Integer(%integer A)
%prim( 4)%integermapspec Shortinteger(%integer A)
%prim( 4)%integermapspec Short(%integer A)
%prim( 5)%bytemapspec Byteinteger(%integer A)
%prim( 5)%bytemapspec Byte(%integer A)
%prim( 6)%realmapspec Real(%integer A)
%prim( 7)%longrealmapspec Longreal(%integer A)
%prim( 8)%record(*)%mapspec Record(%integer A)
%prim( 9)%integerfnspec Rem(%integer A, B)
%prim(10)%longrealfnspec Float(%longreal R)
%prim(11)%bytemapspec Length(%string(255) S)
%prim(12)%bytemapspec Charno(%string(*)%name S, %integer N)
%prim(13)%string(1)%fnspec Snl
%prim(14)%string(1)%fnspec Tostring(%integer N)
%prim(15)%integerfnspec Sizeof(%name N)
%prim(16)%integerfnspec Typeof(%name N)
%prim(17)%integerfnspec Intpt(%longreal R)
%prim(18)%integerfnspec Int(%longreal R)
%prim(19)%integerfnspec ADDR(%name N)
%externalintegerfnspec Nextsymbol
%externalroutinespec Skipsymbol
%externalroutinespec Printsymbol(%integer S)
%externalroutinespec Printstring(%string(255) S)
%externalstring(64)%fnspec Itos(%integer N, M)
%externalroutinespec Write(%integer N, M)
%externalroutinespec Newline
%externalroutinespec Newlines(%integer N)
%externalroutinespec Space
%externalroutinespec Spaces(%integer N)
%externalroutinespec Newpage
%externalroutinespec Select Input(%integer N)
%externalroutinespec Select Output(%integer N)
%externalroutinespec read(%name n)
%externalroutinespec write octal(%name x,%integer places)
%externalroutinespec read octal(%integername n)
%externalroutinespec write hex(%name x,%integer places)
%externalroutinespec read hex(%integername n)
%externalroutinespec Prompt(%string(31) S)
%externalroutinespec Open Input(%integer S, %string(63) File)
%externalroutinespec Open Output(%integer S, %string(63) File)
%externalroutinespec Reset Input
%externalroutinespec Close Input
%externalroutinespec Close Output
%recordformat Eventfm(%integer Event, Sub, Extra ,%string(255) Message)
%externalrecord(Eventfm)%spec Event %ALIAS ".EVENT"
%%systemroutinespec pon  (%record(*)%name p)
%%systemroutinespec poff  (%record(*)%name p)
%%systemroutinespec ponoff  (%record(*)%name p)
%%systemintegerfnspec fmapvirt  (%integer ser,seg1,seg2)
%%systemroutinespec mapvirt  (%integer ser,seg1,seg2)
%%systemintegerfnspec mapabs  (%integer vadd,seg1,seg2)
%%systemintegerfnspec get id 
%%systemroutinespec alarm  (%integer ticks)
%%systemroutinespec linkin  (%integer service)
%%systemroutinespec maphwr  (%integer segs)
%%systemintegerfnspec mappsect  (%integer seg,task)
%%systemroutinespec push  (%record(*)%name q,e)
%%systemrecord(*)%mapspec pop  (%record(*)%name q)
%%systemroutinespec setpriority  (%integer priority)
%%systemintegerfnspec time 
%%systemroutinespec wait 
%systemintegerfnspec swab(%integer n)
%endofperm