%EXTERNALROUTINE SAVINGS(%STRING (255) S)
%REAL X,Y,Z
%INTEGER I,J,K
%OWNREAL P1=10.5
%OWNREAL P2=11.50
%OWNREAL P3=10.5
%REAL INT1, INT2, INT3, Q1, Q2, Q3

P1 = (P1/100); P2 = (P2/100); P3 = (P3/100)
INT1=0;INT2=0; INT3=0;Q1=100; Q2=100; Q3=100
%CYCLE J = 1, 1, 10
PRINTSTRING("YEAR"); WRITE(J, 1); NEWLINE
%CYCLE I = 1, 1, 365
      INT1 = INT1+(P1*Q1)/365
      INT2 = INT2+(P2*Q2)/365
      INT3 = INT3+(P3*Q3)/365
      Q3 = Q3+INT3; INT3=0
      %IF I = 182 %START
         Q1 = Q1+INT1; INT1 = 0
      %FINISH
      %IF I = 365 %START
         Q1 = Q1+INT1; INT1=0
         Q2 = Q2+INT2; INT2=0
         -> OUT
      %FINISH
      %IF I = (I//30)*30 %AND I # 12*30 %START
OUT:     WRITE(I, 4); SPACES(4)
         PRINT(INT1+Q1, 6, 2); SPACES(4)
         PRINT(INT2+Q2, 6, 2); SPACES(4)
         PRINT(INT3+Q3, 6, 2); SPACES(4)
         NEWLINE
      %FINISH
%REPEAT
NEWLINES(2)
%REPEAT
%END
%EXTERNALROUTINE REGULAR(%STRING (255) S)
%REAL X,Y,Z
%INTEGER I,J,K
%OWNREAL P1=10.5
%OWNREAL P2=11.75
%OWNREAL P3=11.75
%REAL INT1, INT2, INT3, Q1, Q2, Q3

P1 = (P1/100); P2 = (P2/100); P3 = (P3/100)
INT1=0;INT2=0; INT3=0;Q1=100; Q2=100; Q3=100
PRINTSTRING("




DAY         AT 10.5%     11.75%     11.75% (TWICE YEARLY)
")
%CYCLE J = 1, 1, 10
PRINTSTRING("YEAR"); WRITE(J, 1); NEWLINE
%CYCLE I = 1, 1, 365
      INT1 = INT1+(P1*Q1)/365
      INT2 = INT2+(P2*Q2)/365
      INT3 = INT3+(P3*Q3)/365
      %IF I = 182 %START
         Q1 = Q1+INT1; INT1 = 0
         Q3 = Q3+INT3; INT3 = 0
      %FINISH
      %IF I = 365 %START
         Q1 = Q1+INT1; INT1=0
         Q2 = Q2+INT2; INT2=0
         Q3 = Q3+INT3; INT3=0
         -> OUT
      %FINISH
      %IF I = (I//30)*30 %AND I # 12*30 %START
OUT:     WRITE(I, 4); SPACES(4)
         PRINT(INT1+Q1, 6, 2); SPACES(4)
         PRINT(INT2+Q2, 6, 2); SPACES(4)
         PRINT(INT3+Q3, 6, 2); SPACES(4)
         NEWLINE
         Q1 = Q1+100; Q2 = Q2+100; Q3 = Q3+100
      %FINISH
%REPEAT
NEWLINES(2)
%REPEAT
%END
%ENDOFFILE
%ENDOFFILE