TYPE: DO;

$INCLUDE (:F1:COMMON.LIT)

$INCLUDE (:F1:ISS.COM)


DECL ACTUAL ADDRESS;
DECL AFTCI ADDRESS;
DECL AFTCO ADDRESS;
DECL AFTIN ADDRESS;
DECL AFTOUT ADDRESS;
DECL CHRCOUNT BYTE;
DECL CONSL$INP(*) BYTE DATA(':CI: ');
DECL I ADDRESS;
DECL KEYBUFFER(122) BYTE;
DECL LPT(*) BYTE DATA(':LP: ');
DECL MAXSIZE LIT '4096';
DECL PRNTBUFFER(MAXSIZE) BYTE;
DECL STATUS ADDRESS;
DECL TCNT BYTE;




DEBLANK: PROCEDURE;
	DO WHILE KEYBUFFER(I) = SPACE;
	 I = I + 1;
	END;
 RETURN;
END DEBLANK;






SENDOUT: PROCEDURE;
 CALL OPEN(.AFTIN,.KEYBUFFER(I),READ$AC,0,.STATUS);
 IF STATUS > 0 THEN
	DO;
	 CALL ERROR(STATUS);
	 CALL EXIT;
	END;

	DO FOREVER;
	 CALL READ (AFTIN,.PRNTBUFFER,MAXSIZE,.ACTUAL,.STATUS);
	 IF STATUS > 0 THEN CALL ERROR(STATUS);
	 IF ACTUAL = 0 THEN
		DO I = 0 TO (LENGTH(END$REC) - 1;
		 CALL SCHAR(END$REC(I));
		END;/* MAY WANT TO LOOK FOR PROMT HERE*/


		DO I = 0 TO (ACTUAL - 1);
		 CALL SCHAR(BUFFER(I);
		END;




/*  START OF MAIN PROGRAM        */


 CALL OPEN (.AFTCI,.CONSL$INP,READ$AC,LN$EDT$CO,.STATUS);
 IF STATUS > 0 THEN
	DO;
	 CALL ERROR (STATUS);
	 CALL EXIT;
	END;
 CALL READ (AFTCI,.KEYBUFFER,122,.ACTUAL,.STATUS);
 IF STATUS > 0 THEN
	DO;
	 CALL ERROR(STATUS);
	 CALL EXIT;
	END;
 CALL DEBLANK;


 CALL SEND$OUT;
 CALL EXIT;
END;
EOF