3401 6,C12)^X-#	XMIT(6,C13)^X--	XMIT(6,C14)^X-7	XMIT(6,C15)^X-A	XMIT(6,C16)^X-K	XMIT(6,C17)^X-U	XMIT(6,C18)^X.	XMIT(6,C19)^X.)	XMIT(6,C20)^X.3	XMIT(6,C19)^X.=	XMIT(6,C18)^X.G	XMIT(6,C17)^X.Q	XMIT(6,C16)^X.[	XMIT(6,C15)^X/%	XMIT(6,C14)^X//	XMIT(6,C13)^X/9	XMIT(6,C12)^X/C	XMIT(6,C11)^X/M	XMIT(6,C10)^X/W	XMIT(6,C9)^X0!	XMIT(6,C8)^X0+	XMIT(6,C7)^X05	XMIT(6,C6)^X0?	XMIT(6,C5)^X0I	XMIT(6,C4)^X0S	XMIT(6,C3)^X0]	XMIT(6,C2)^X1'	XMIT(6,C1)^X11	XMIT(6,C0)^X1;	GO TO TST1^	1E		;^T1O		; USER INPUT MODE^	1Y		;^I2#PRM,	XMIT(8,"CHARACTER TO BE  PRINTED ?')^U2-	ACCEPT(DVAR,CHRC)^X27	XMIT(8," ')^Q2A	XMIT(8,"WEDGE PATTERN ?')^U2K	ACCEPT(DVAR,OPT)^X2U	XMIT(8," ')^Q3	IF(OPT.NE.'Y')GO TO MESS1^[3)	PNT =^W33LP1,	INCR PNT^Q3=	IF(PNT.GT.CLMXX)GO TO LP2^W3G	COL(PNT)=CHRC^Y3Q	GO TO LP1^V3RLP2,	CHAR=LPBUF^X3S	GO TO TST1^M3[MESS1,	XMIT(8,"STARTING COLUMN ?')^T4%	ACCEPT(DVAR,ACLMN)^X4/	XMIT(8," ')^X49	CLMN=ACLMN^Q4C	IF(CLMN.LT.1)GO TO MESS1^N4MMESS2,	XMIT(8,"ENDING COLUMN ?')^T4W	ACCEPT(DVAR,ACLMX)^X5!	XMIT(8," ')^X^P)START		; DIBOL PRINTER TEST^	3		;^W=	RECORD LPBUF^YG	COL,132A1^	Q		;^[[	BLOCK^X %	DVAR,D2,13^Z /	OPT,A1^Z 9	CHRC,A1^W C	CLMXX,D3,132^X M	CLMN,D3,001^X W	CLMX,D3,132^Y!!	ACLMN,A3^Y!+	ACLMX,A3^Z!5	CHR,A1^Z!?	DCHR,D2^Z!I	PNT,D3^X!S	RECORD CHAR^'!]	,A100,'ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890!"#$%&()=]@:;/.,^*+?><ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890!"#$%&'^J"'	,A32,'()=]@:;/.,^*+?><-[ABCDEFGHIJKLOP'^X"1	RECORD C0,X^[";	,A126^X"E	RECORD C1,X^["O	,A120^X"Y	RECORD C2,X^[##	,A114^X#-	RECORD C3,X^[#7	,A108^X#A	RECORD C4,X^[#K	,A102^X#U	RECORD C5,X^[$	,A96^X$)	RECORD C6,X^[$3	,A90^X$=	RECORD C7,X^[$G	,A84^X$Q	RECORD C8,X^[$[	,A78^X%%	RECORD C9,X^[%/	,A72^W%9	RECORD C10,X^[%C	,A66^W%M	RECORD C11,X^[%W	,A60^W&!	RECORD C12,X^[&+	,A54^W&5	RECORD C13,X^[&?	,A48^W&I	RECORD C14,X^[&S	,A42^W&]	RECORD C15,X^[''	,A36^W'1	RECORD C16,X^[';	,A30^W'E	RECORD C17,X^['O	,A24^W'Y	RECORD C18,X^[(#	,A18^W(-	RECORD C19,X^[(7	,A12^W(A	RECORD C20,X^	(K	,A6^W(U	RECORD C21,X^[)PROC 1^X))	XMIT(8," ')^B)3	XMIT(8,"************ DIBOL PRINTER TEST ************')^X)=	XMIT(8," ')^H)G	XMIT(8,"DO YOU WISH TO ENTER PARAMETERS ?')^U)Q	ACCEPT(DVAR,OPT)^X)[	XMIT(8," ')^R*%	IF(
3407 EQ.'Y')GO TO PRM^M*/	XMIT(8,"STANDARD TEST SELECTED')^	*9		;^J*C		; WEDGE PATTERN TEST - ALL CHARACTERS^	*M		;^U*WTST1,	XMIT(6,CHAR)^X+!	XMIT(6,C0)^X++	XMIT(6,C1)^X+5	XMIT(6,C2)^X+?	XMIT(6,C3)^X+I	XMIT(6,C4)^X+S	XMIT(6,C5)^X+]	XMIT(6,C6)^X,'	XMIT(6,C7)^X,1	XMIT(6,C8)^X,;	XMIT(6,C9)^X,E	XMIT(6,C10)^X,O	XMIT(6,C11)^X,Y	X             ;^X*WSTRT4,	NPX=1^S+!	INIT(1,O,'IOBUF',DKN)^Z++	OPT='4'^[+5	CNTM=^W+?LPX,	INCR CNTM^W+I	ALP(CNTM)=OPT^Q+S	IF(CNTM.LT.505)GO TO LPX^R+]	                      ;^T,'	; WRITE ALL OF DISK^R,1	                      ;^Z,;	CNTM=1^Z,E	IDXO=1^U,OCREX,	XMIT(1,OSCR)^Y,Y	INCR CNTM^Y-#	INCR IDXO^P--	IF(CNTM.LE.MXRC)GO TO CREX^Z-7	FINI(1)^R-A	                      ;^T-K	; READ ALL OF DISK^R-U	                      ;^S.	INIT(1,U,'IOBUF',DKN)^W.)	CNTM= 1 - SKP^S.3CRXX,	CNTM=CNTM + SKP^Q.=	IF(CNTM.GT.MXRC