C  THIS IS A SAMPLE PROGRAM
C  TO TEST THE STRAN PREPROCESSOR
C
C      DATE :   15/6/79
      'INCLUDE'  BLOB,P
      'OUTFILE' STEST1.FR
I        INTEGER ICL
N        INTEGER NOVA
P        INTEGER PDP
C *** TEST1
  100 CONTINUE
      I=1
      'DO'
         I=2
         'WHILE' (A.GE.0)
            K=1
            'END'
      J=2
C ***TEST2
      'DOLOOP' I=1,20
         J=1
         K=1
         'END'
C *** TEST3
      'DO'
         'WHILE'  (B.GE.0)
            BILL=BEN
            'END'
C  ***TEST4
      'DO'
         I=4
         'WHILE' (B.EQ.0)
            'END'
C ***  TEST5
      'DO'
         I=1
         I=2
         'END'
C *** TEST 5.1
       //    THIS IS A COMMENT
I  **  ICL RULE O.K.
P  **  DIGITAL RULE O.K.
N  **  DG RULE O.K.
      'DO'
          I=4
          'WHILE' (A.GT.B     ^
                 .AND.C.LT.D)
          'END'
C
C
C
      'OUTFILE' STEST2.FR
C  *** TEST6
      'FOR' (I=1;I.LT.10;I=I+1)
         IK=2
         IK=3
         'END'
C *** TEST7
      'DOLOOP' I=1,N
         'IF'(F(X).EQ.0)
         'BREAK'
         'ENDIF'
      'END'
C *** TEST8
      'DOLOOP' I=1,N
         'IF' (F(X).EQ.0)
            'NEXT'
            'ENDIF'
         I=1
         'END'
C *** TEST9
      'IF' (I.GE.1)
         BILL=BEN
         FRED=1
         'ELSE'
         BRE=BEN
         FRED=2
         'ENDIF'
C *** TEST10
      'IF'(I.GE.1)
         I=1
         I=2
         I=3
         'ENDIF'
C *** TEST 11

      'DO'
         A=B
                  'IF' (A.EQ.B)
                     'FOR' (A=1;A.LT.B;A=A+1)
                        B=C
                     'END'
                  'ENDIF'
      'END'
      END
      END