BEGIN0()
$(BEGIN 0. INITIALIZE THE BASIC SYSTEM.)
SAFE BEGIN0.
(1) $(READ CLOCK.) TAU0=CLOCK().
(2) $(SET CHARACTER SET SIZE.) CHI=47.
(3) $(SET INPUT GLOBALS.) IUNIT=5. CUNIT=IUNIT. ISIZE=80.
IPOS=ISIZE. ECHO=0.
(4) $(SET OUTPUT GLOBALS.) MUNIT=6. OUNIT=6. PRNTR=6. SLMARG(0).
RMARG=131. OLINE=0. EJECT=0. APOS=0.
(5) $(INITIALIZE CODE ARRAYS.) I=IUNIT. IUNIT=CUNIT. INPUT.
IUNIT=I. FOR I=1,...,CHI DO
( LCODE(I)=IBUFF(I). SCODE(I)=LCODE(I). ACODE(I)=I-1 ).
FOR J=CHI-1,CHI-2,...,1 DO ( FOR I=1,...,J DO ( C=SCODE(I).
D=SCODE(I+1). S=SIGN(C). T=SIGN(D). IF S GT T OR S=T AND C GT D
THEN ( SCODE(I)=D. SCODE(I+1)=C. C=ACODE(I).
ACODE(I)=ACODE(I+1). ACODE(I+1)=C ) ) ). RETURN..