-* (F$W4) REBUILD 1
+* (F$W4) REBUILD 2
*
*
+* DATE: 27.05.2005
*
* PROGRAM TITLE: F$W4
* OUTPUT BCD ON LINE PRINTER
ANA ='377
ERA ='120000
STA* FW4H
-FW4G CALL O$LC CARRIAGE RETURN ONLY
- CALL O$LP OUTPUT ONE LINE OF INFORMATION
+FW4G CALL O$LP OUTPUT ONE LINE OF INFORMATION
FW4H *** **
+ CALL O$LC CARRIAGE RETURN ONLY
+ CALL O$LF
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