%external %routine %spec  PROMPT (%string(15) s)
%external %routine %spec  READ SYMBOL  %alias "I77#RSYM"  (%integer %name  sym)
%external %routine %spec  SKIP SYMBOL  %alias "I77#SSYM"
%external %routine %spec  PRINT SYMBOL %alias "I77#PSYM"  (%integer sym)
%external %routine %spec  WRITE        %alias "I77#WRITE" (%integer num, pl)
!%external %routine %spec  RTOS (%long %real num, %integer pl, dp)
!%external %routine %spec  PRINT %alias "I77#PRINT" (%long %real r, %integer p)
%external %routine %spec  CLOSE INPUT
%external %routine %spec  OPEN INPUT (%integer stm, %string(255) file)
%external %routine %spec  ABANDON INPUT
%external %routine %spec  RESET INPUT
%external %routine %spec  SELECT INPUT  %alias "I77#SELIN"  (%integer stream)
%external %routine %spec  SELECT OUTPUT %alias "I77#SELOUT" (%integer stream)
%external %routine %spec  OPEN OUTPUT (%integer stm, %string(255) file)
%external %routine %spec  CLOSE OUTPUT
%external %routine %spec  RESET OUTPUT
%external %integer %function %spec  REM (%integer a, b)
%external %integer %function %spec  NEXT SYMBOL %alias "I77#NSYM"
%external %integer %function %spec  IN TYPE
%external %integer %function %spec  OUT TYPE
%external %integer %function %spec  IN STREAM  %alias "I77#ISTRM"
%external %integer %function %spec  OUT STREAM %alias "I77#OSTRM"
%external %string(11) %function %spec  ITOS0   %alias "I77#IT0S" (%integer n)
%external %string(63) %function %spec  ITOS    %alias "I77#ITOS" (%integer n, p)
!%external %string(127) %function RTOS (%long %real NUM, %integer PL, DP)
%external %string(255) %function %spec  IN FILE NAME
%external %string(255) %function %spec  OUT FILE NAME
%record %format  event fm (%integer event, sub, extra, %string(255) message)
%external %record(event fm) %spec  EVENT
! The following are also available, but not given here for compatibility
! reasons:
!%external %routine %spec  SET DEFAULT EXTENSION (%string(5) s)
!%external %routine %spec  SET EVENT
!%external %string(255) %function %spec  LAST STREAM ERROR
!%external %routine %spec  SET IMP 77 STREAMS (%string(255) f, d,
!                                              %integer %name  err)
!%external %routine %spec  SIGNAL (%integer ev, sub, extra)