*** empty log message ***

diff --git a/lib/fortran/src/f$w4.asm b/lib/fortran/src/f$w4.asm
index 4d1f05e7cac824184501bc96dd64388f1832dc9a..7c7d6701590e1d30bff36acaa49236c1c82e7cd5 100644 (file)
--- a/lib/fortran/src/f$w4.asm
+++ b/lib/fortran/src/f$w4.asm
@@ -1,6 +1,7 @@
-* (F$W4)       REBUILD 1
+* (F$W4)       REBUILD 2
 *
 *  
+* DATE: 27.05.2005
 *
 * PROGRAM TITLE: F$W4
 *                OUTPUT BCD ON LINE PRINTER
@@ -59,13 +60,13 @@ FW4H        ***     **
        IRS     FW4A
        JMP*    FW4A
 FW4J   DAC     **
-       CALL    O$PF    LF ONLY
+       CALL    O$LF    LF ONLY
        IRS     CNTR
        JMP*    FW4J
        LDA     =-17
        STA     CNTR
 *
-FW4K   CALL    O$PF    LF ONLY
+FW4K   CALL    O$LF    LF ONLY
        IRS     CNTR
        JMP     FW4K
        LDA     =-60