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.. #Jf9