'BEGIN' 'COMMENT' 	STANDARD SET OF PRESET PROCEDURES;
 
	'COMMENT'
****ALGOL STANDARD FUNCTIONS;
	'REAL' 'PROCEDURE'
ABS(E);	'VALUE'E;'REAL'E;'EXTERNAL'%CQ;
	'INTEGER' 'PROCEDURE'
SIGN(E);	'VALUE'E;'REAL'E;'EXTERNAL'%CR;
	'REAL' 'PROCEDURE'
SIN(E);	'VALUE'E;'REAL'E;'EXTERNAL'%CT;
	'REAL' 'PROCEDURE'
SQRT(E);	'VALUE'E; 'REAL'E; 'EXTERNAL'%CS;
	'REAL' 'PROCEDURE'
COS(E);	'VALUE'E; 'REAL'E; 'EXTERNAL'%CU;
	'REAL' 'PROCEDURE'
ARCTAN(E);	'VALUE'E; 'REAL'E; 'EXTERNAL'%CV;
	'REAL' 'PROCEDURE'
LN(E);	'VALUE'E; 'REAL'E; 'EXTERNAL'%CW;
	'REAL' 'PROCEDURE'
EXP(E);	'VALUE'E; 'REAL'E; 'EXTERNAL'%CX;
	'INTEGER' 'PROCEDURE'
ENTIER(E);	'VALUE'E; 'REAL'E; 'EXTERNAL'%CY;
 
	'COMMENT'
****INPUT FUNCTIONS:PARAMETER(D)=INPUT DATSLOT #;
	'INTEGER' 'PROCEDURE'
INI(D);	'VALUE'D;'INTEGER'D;'EXTERNAL' %DE;
	'REAL' 'PROCEDURE'
INR(D);	'VALUE'D;'INTEGER'D;'EXTERNAL'%DD;
	'BOOLEAN' 'PROCEDURE'
INB(D);	'VALUE'D;'INTEGER'D;'EXTERNAL'%DL;
 
	'COMMENT'
****OUTPUT PROCEDURES:PARAMETER(D)=OUTPUT DATSLOT#:
	SECOND PARAMETER IS QUANTITY TO BE OUTPUT;
	'PROCEDURE'
OUTI(D,I);'VALUE'D,I;'INTEGER'D,I;'EXTERNAL'%DC;
	'PROCEDURE'
OUTR(D,E);'VALUE'D,E;'INTEGER'D;'REAL'E;'EXTERNAL'%DA;
	'PROCEDURE'
OUTS(D,S);'VALUE'D;'INTEGER'D;'STRING'S;'EXTERNAL'%DJ;
	'PROCEDURE'
OUTF(D,R)DIGITS BEFORE DP:(F1)DIGITS AFTER DP:(F2);
'VALUE'D,R,F1,F2;'INTEGER'D,F1,F2;'REAL'R;'EXTERNAL'%DB;
	'PROCEDURE'
OUTB(D,B);'VALUE' D,B;'INTEGER' D;'BOOLEAN' B;'EXTERNAL'%DM;
 
	'COMMENT'
****FILE HANDLING PROCEDURES;
	'PROCEDURE'
SEEK(D)FILENAME:(F);
	'VALUE'D,F;'INTEGER'D;'REAL'F;'EXTERNAL'%DS;
	'PROCEDURE'
ENTER(D)FILENAME:(F);
	'VALUE'D,F;'INTEGER'D;'REAL'F;'EXTERNAL'%DT;
	'PROCEDURE'
CLOSE(D);	'VALUE'D;'INTEGER'D;'EXTERNAL'%DU;
	'REAL' 'PROCEDURE'
READFN(D);'COMMENT' READS STRING OF LENGTH UP TO 9 CHARS AND
	STORES THEM IN FLOATING ACC. IN PACKED SIXBIT.
	ENABLES FILENAMES TO BE READ AT RUN TIME FOR USE
	IN SEEK/ENTER'S;
	'VALUE'D;'INTEGER'D;'EXTERNAL'%CZ;
	'REAL' 'PROCEDURE'
FILEN(S);	'COMMENT' CONVERTS GIVEN STRING INTO SIXBIT AND
	STORES IN FLOATING ACC.
	CAN BE USED AS SECOND ACTUAL PARAMETER IN
	CALLS OF SEEK OR ENTER;
	'STRING'S;	'EXTERNAL'%DX;
 
	'COMMENT' MAGTAPE PROCEDURES;
	'PROCEDURE'
RWND(D);'VALUE'D;'INTEGER'D;'EXTERNAL' %ED;
'COMMENT' REWINDS TO LOAD POINT;
	'PROCEDURE'
BKSP(D);'VALUE'D;'INTEGER'D;'EXTERNAL' %EE;
'COMMENT' BACLSPACE ONE RECORD;
	'PROCEDURE'
ENDFILE(D);'VALUE'D;'INTEGER'D;'EXTERNAL' %FE;
'COMMENT' WRITES ENDFILE MARK.;
 
	'COMMENT'
 
****DIAGNOSTIC AIDS;
	'PROCEDURE'
TRON;	'COMMENT' TRACE PROCEDURES AND LABELS
	FROM THIS POINT IF PROGRAM COMPILED
	WITH TRACE OPTION(T)ON;
			'EXTERNAL'%AO;
	'PROCEDURE'
TROFF;	'COMMENT'SWITCH OFF TRACE INVOKED BY TRON;
			'EXTERNAL'%AM;
	'PROCEDURE'
WAIT(N); 'COMMENT' TYPES WAIT "N" AND WAITS FOR ^P;
	'VALUE' N; 'INTEGER' N; 'EXTERNAL' %AK;
	'PROCEDURE'
LINE(D); 'COMMENT' OUTPUTS CURRENT LINE BUFFER;
	'VALUE' D; 'INTEGER' D; 'EXTERNAL' %EJ;
'END'OF PRESET PROCEDURE DECLARATIONS