Google
 

Trailing-Edge - PDP-10 Archives - decus_20tap2_198111 - decus/20-0037/cob300.scm
There is 1 other file named cob300.scm in the archive. Click here to see a list.
File 1)	DSK:COB300.OLD[4,370]	created: 1900 25-May-1970
File 2)	DSK:COB300.CBL[4,370]	created: 1542 24-Jun-1980

1)3		02 COLUMN		PICTURE S99; COMP.
1)		02 FIRST-COLUMN		PICTURE S99; COMP.
****
2)3		02 THIS-COLUMN		PICTURE S99; COMP.
2)		02 FIRST-COLUMN		PICTURE S99; COMP.
**************
1)5		MOVE 7 TO COLUMN.
1)		PERFORM CONVERSION THRU GC-EXIT.
****
2)5		MOVE 7 TO THIS-COLUMN.
2)		PERFORM CONVERSION THRU GC-EXIT.
**************
1)8		MOVE 72 TO COLUMN; GO TO PROCESS-DD-0.
1)9	*************************************************************
****
2)8		MOVE 72 TO THIS-COLUMN; GO TO PROCESS-DD-0.
2)9	*************************************************************
**************
1)10		MOVE COLUMN TO FIRST-COLUMN.
1)		MOVE SPACES TO THIS-WORD; MOVE 0 TO I.
****
2)10		MOVE THIS-COLUMN TO FIRST-COLUMN.
2)		MOVE SPACES TO THIS-WORD; MOVE 0 TO I.
**************
1)12		ADD 1 TO COLUMN.
1)		IF COLUMN IS NOT EQUAL TO 73
1)			ENTER MACRO GETKAR USING COLUMN; GO TO GC-EXIT.
1)		MOVE "X" TO EOL-FLAG.
1)	GC-1.
1)		MOVE 7 TO COLUMN.
1)		READ SOURCE-FILE; AT END MOVE "X" TO EOF-FLAG;
****
2)12		ADD 1 TO THIS-COLUMN.
2)		IF THIS-COLUMN IS NOT EQUAL TO 73
2)			ENTER MACRO GETKAR USING THIS-COLUMN; GO TO GC-EXIT.
2)		MOVE "X" TO EOL-FLAG.
2)	GC-1.
2)		MOVE 7 TO THIS-COLUMN.
2)		READ SOURCE-FILE; AT END MOVE "X" TO EOF-FLAG;
**************
1)13		IF COLUMN NOT EQUAL TO 7 AND THIS-CHARACTER NOT EQUAL TO SPACE
1)			GO TO GWC-EXIT.
1)	GWC-1. IF COLUMN EQUALS 7 GO TO GWC-3.
1)	GWC-2.
****
2)13		IF THIS-COLUMN NOT EQUAL TO 7 AND THIS-CHARACTER NOT EQUAL TO SPACE
2)			GO TO GWC-EXIT.
2)	GWC-1. IF THIS-COLUMN EQUALS 7 GO TO GWC-3.
2)	GWC-2.
**************
1)13		IF COLUMN EQUALS 7 GO TO GWC-3.
1)		IF THIS-CHARACTER EQUALS SPACE GO TO GWC-4.
****
2)13		IF THIS-COLUMN EQUALS 7 GO TO GWC-3.
2)		IF THIS-CHARACTER EQUALS SPACE GO TO GWC-4.
**************