'BEGIN''COMMENT' MODUL PRO TESTOVANI I/O OPERACI KOMP. ALGOLE 2900
                 MODUL     : HJS U9900A MALA
                 ENTRYNAME : EALG
                 DAT.VYDANI: UNOR 78
                 AUTOR     : MENSIK ;

 'INTEGER'J,I,IN,OUT,MT,D,FI,FR,ZN,FS                                 ;
 'REAL'R                                                              ;
 'BOOLEAN' B                                                          ;
     'PROCEDURE' TISKARR(K,A,B,C);
      'VALUE'K; 'INTEGER'K; 'INTEGER''ARRAY'A; 'ARRAY'B;
                            'BOOLEAN''ARRAY'C;                          00921000
      'BEGIN'  WRITETEXT(OUT,'('%%IWRITEARRAY,WRITEARRAY,BWRITEARRAY_:%
                             ')');
        IWRITEARRAY(OUT,FI,K,A,'('IRA')');   NEWLINE(OUT,2);
        WRITEARRAY (OUT,FI,K,B,'('RRA')');   NEWLINE(OUT,2);
        BWRITEARRAY(OUT,0,K,C,'('BRA')');   NEWLINE(OUT,2)
      'END';
     'PROCEDURE' TISKARR2(K,A,B,C);
      'VALUE'K; 'INTEGER'K; 'INTEGER''ARRAY'A; 'ARRAY'B;
                            'BOOLEAN''ARRAY'C;                          00921000
      'BEGIN'  WRITETEXT(OUT,'('%%IWRITEARRAY,WRITEARRAY,BWRITEARRAY_:%
                             ')');
        IWRITEARRAY(OUT,FI,K,A,'('IRA')');   NEWLINE(OUT,2);
        WRITEARRAY (OUT,FI,K,B,'('RRA')');   NEWLINE(OUT,2);
        BWRITEARRAY(OUT,0,K,C,'('BRA')');   NEWLINE(OUT,2)
      'END';

   IN:=60; OUT:=30; MT:=100; D:=120;
   'COMMENT'  SET(MT,  6)& SET(D,2);
  FI:=FORMAT('('2S-N2D;')');  FR:=FORMAT('('2S-D.4D@+ND ')');
   FS:=FORMAT('('N2D')');
   WRITETEXT(OUT,'(''('10S')' TESTOVACI_PRIKLADY_PRO_ALGOLE _%%%
                  COPYTEXT_:_  ')');
   COPYTEXT( IN,OUT, '('@ @')');
   NEWLINE (OUT,3);
   WRITETEXT(OUT,'('INTEGERREAD,IWRITE,READ,WRITE,READBOOLEAN,
                    WRITEBOOLEAN,OUTPUT_:_')');
    I:=INTEGERR(IN); IWRITE(OUT,FI,I); ZN:=INBASICS(IN);
    OUTBASICS(OUT,ZN);
    R:=READ(IN);     WRITE(OUT,FR,R);  ZN:=CHARIN(IN);
    CHAROUT(OUT,ZN);
    B:=READBOOL(IN); WRITEBOOL(OUT,B);
    OUTPUT(OUT,I);

    WRITETEXT(OUT,'('%%INBASICSYMBOL,OUTBASICSYMBOL_:_%')');
    'FOR'I:=1'STEP'1'UNTIL'94 'DO'
    'BEGIN'    ZN :=INBASICS(IN);  SPACE(OUT,2);
            OUTBASICS(OUT,ZN);     CHAROUT(OUT, 77);
           IWRITE(OUT,FS,ZN);      CHAROUT(OUT, 93)
    'END';

    WRITETEXT(OUT,'('%%CHARIN,CHAROUT_:_%')');
    'FOR'I:=1'STEP'1'UNTIL'66'DO'
    'BEGIN'     ZN:=CHARIN(IN);    SPACE(OUT,2);
            CHAROUT(OUT,ZN);       CHAROUT(OUT, 77);
           IWRITE(OUT,FS,ZN);      CHAROUT(OUT, 93)
    'END';

   'BEGIN'
     'INTEGER''ARRAY' IAR (/1:10/);
     'REAL''ARRAY'    RAR (/1:10/);
     'BOOLEAN''ARRAY' BAR (/1:10/);
     WRITETEXT(OUT,'('%% IREADARRAY,READARRAY,BREADARRAY(A60)_:% ')');
     IREADARR(IN,IAR,'('IARRAY')');
     READARRA(IN,RAR,'('RARRAY')');
     BREADARR(IN,0,BAR,'('BARRAY')');
     TISKARR(1,IAR,RAR,BAR);

     WRITETEXT(OUT,'('%% IWRITEBINARY,WRITEBINARY,BWRITEBINARY(A100)_:%
                                                            ')');
     IWRITEBI(MT,IAR,'('IAR')');
     WRITEBIN(MT,RAR,'('RAR')');
     BWRITEBI(MT,BAR,'('BAR')');
     WRITETEXT(OUT,'('%% IWRITEARRAY,WRITEARRAY,BWRITEARRAY(A120)_:%
                                                            ')');
     OUT:=D;   TISKARR(1,IAR,RAR,BAR);  OUT:=30
   'END';
   'BEGIN'
     'INTEGER''ARRAY'IA(/1:2,1:5/);
     'REAL''ARRAY'   RA(/1:2,1:5/);
     'BOOLEAN''ARRAY'BA(/1:2,1:5/);
     WRITETEXT(OUT,'('%% IREADBINARY,READBINARY,BREADBINARY,
                         INTERCHANGE,SKIP,REWIND(A100)_:%        ')');
     INTERCHANGE(MT);
     IREADBIN(MT,IA,'('IAR')'); SKIP(MT,1);
     BREADBIN(MT,BA,'('BAR')'); REWIND(MT);
     READBINA(MT,RA,'('RAR')');
     TISKARR2(2,IA,RA,BA);
     WRITETEXT(OUT,'('%% IREADARRAY,READARRAY,BREADARRAY,INTERCHANGE
                                               (A120)_:%        ')' ) ;
     INTERCHANGE(D);
     'FOR'I:=1'STEP'1'UNTIL'2'DO'
     'FOR'J:=1'STEP'1'UNTIL'5'DO'
     'BEGIN' IA(/I,J/):=0; RA(/I,J/):=.0; BA(/I,J/):='FALSE' 'END';
     IREADARR(D, IA,'('IRA')');
     READARRA(D, RA,'('RRA')');
     BREADARR(D,0,BA,'('BRA')');
     TISKARR2(2, IA,RA,BA )
   'END';
   CLOSE(IN); CLOSE(OUT); CLOSE(MT); CLOSE(D)
'END';