6  60000207000000003000000000028700200150400000000002870000005042000040810447000
2 COMMENT WRITE TEST PROGRAM 1 FOR 205 REPLACEMENT LIBRARY;
2 COMMENT     2020-09-08 T. J. SAWYER;
2
2 INTEGER I,J,K;
2 WRITE(;;FH1);
2
2 FOR K=1,-1; BEGIN
2     J=1.K;
2     X=1.K;
2     Y=1.K;
2
2     FOR I=(0,1,20); BEGIN 
2         WRITE(;; RESULTS1, FL1);
2         J=J.2;
2         X=X.2;
2         Y=Y.0.5
2     END
2 END;
2
2 OUTPUT RESULTS1(I, X, Y, X, Y);
2                                                                             
2 FORMAT FH1(*--------IFIELD ---- F-FIELD1 ---- F-FIELD2 ---- X-FIELD1 -
2--- X-FIELD2*,W3);
2 FORMAT FL1(I14, 2F14.8, 2X14.8, W0);
2
2 STOP;
2 FINISH;