50 
00460 
00470 
00480 
00490 
J0500 
00510 
10520 
00530 
00540 
00550 
00560 
00570 
00580 
00590 
00600 
00610 
00620 
00630 
00640 
00650 
J0660 
20670 
00680 
00690 ! PRINTING THE OUTPUTS 
00700 PRINT #10 USING '##.###*12', MAT DMTX 
00710 PRINT $11 USING '##.###*12', MAT YMTX 
00720 PRINT $12 USING ‘'##.###*12', MAT RMTX 
00730 
00740 CLOSE #4 
00750 CLOSE #10 
00760 CLOSE #11 
00770 CLOSE #12 
00780 
00790 END 
| ROUNDING FOR PRINTING 
FOR I =1 TO 12 
FOR J = 1 TO 12 
D1 = FP(DMTX(I,J) * 10000) 
Yl = FP(YMTX(I,J) * 10000) 
R1 = FP(RMTX(I,J) * 10000) 
D2 = IP(D1*10) 
Y2 = IP(Y1*10) 
R2 = IP(R1*10) 
D3 = D2/2 
Y3 = Y2/2 
R3 = R2/2 
IF D3 = 0 THEN GOTO 660 
IF ¥Y3 = 0 THEN GOTO 660 
IF R3 = 0 THEN GOTO 660 
IF FP(D3) = 0 THEN DMTX(I,J) = DMTX(I,J) + .0001 
IF FP(Y3) = 0 THEN ¥YMTX(I,J) = YMTX(I,J) + .0001 
IF FP(R3) = 0 THEN RMTX(I,J) = RMTX(I,J) + .0001 
NEXT J 
NEXT I