                               E.R.C.C. IMP MACRO SCHEME   360/50 RELEASE 1 VERSION 1  DATED 1/10/69



    1        %BEGIN
    2        %FRONTMACRO:'READ('A(NAME) ','B(NAME)')'
    3           : READ($A$)
    4           : READ($B$)
    5          %ENDMACRO

                           MACRO EXTENDS TO   44
    6        %FRONTMACRO : 'READ('A(NAME)','B(NAME)','C(OPERAND)')'
    7           : READ($A$)
    8           : READ($B$)
    9           : READ($C$)
   10          %ENDMACRO

                           MACRO EXTENDS TO  106
   11        %FRONTMACRO:'PROW('A(NAME)','K(NAME)','J(OPERAND)','M(OPERAND)',' %C
    C               N(OPERAND)')'
   12          %GENERATE B(NAME)
   13            : %BEGIN
   14            : %INTEGER $B$
   15            : %CYCLE $B$= 1,1,$J$
   16            : PRINT($A$($K$,$B$),$M$,$N$)
   17           :  SPACES(2)
   18           : %REPEAT
   19           :  NEWLINE
   20           :  %END
   21          %ENDMACRO

                           MACRO EXTENDS TO  235
   22         %FRONTMACRO :'PCOL('A(NAME)','K(NAME)','I(OPERAND) %C
    C              ','M(OPERAND)','N(OPERAND)')'
   23           %GENERATE C(CNAME)
   24            : %BEGIN
   25            :  %INTEGER $C$
   26            :  %CYCLE $C$= 1,1,$I$
   27            :  PRINT($A$($C$,$K$),$M$,$N$)
   28            :  SPACES(2)
   29            :  NEWLINE
   30            :  %REPEAT
   31            :  %END
   32          %ENDMACRO

                           MACRO EXTENDS TO  364
   33        %REALARRAY A(1:100,1:100); %INTEGER I,J,K,L,M,N
   34         READ(I,J)
                           READ ( I )
                           READ ( J )

   35         %CYCLE K=1,1,I
   36           %CYCLE L=1,1,J
   37          A(K,L)=0
   38           %REPEAT
   39         %REPEAT
   40        INPUT: READ(K,L,A(K,L)); -> INPUT %IF (K+L)>2
                           READ ( K )
                           READ ( L )
                           READ ( A ( K , L ) )

   41        READ(M,N)
                           READ ( M )
                           READ ( N )

   42        %CYCLE K=1,1,I; PROW(A,K,J,M,N);NEWLINE;%REPEAT
                           %BEGIN
                           %INTEGER PMN1
                           %CYCLE PMN1= 1, 1, J
                           PRINT ( A ( K , PMN1) , M , N )
                           SPACES ( 2)
                           %REPEAT
                           NEWLINE
                           %END

   43        READ(M,N); NEWLINES(3)
                           READ ( M )
                           READ ( N )

   44        %CYCLE K=1,1,J; PCOL(A,K,I,M,N); NEWLINE; %REPEAT
                           %BEGIN
                           %INTEGER PMN2
                           %CYCLE PMN2= 1, 1, I
                           PRINT ( A ( PMN2, K ) , M , N )
                           SPACES ( 2)
                           NEWLINE
                           %REPEAT
                           %END

   45        %ENDOFPROGRAM



PROGRAM MACROCOMPILED SUCCESSFULLY

CONTROL PASSED TO IMP(SYS 1) COMPILER
