{||Lines:=15 {||ROUT("",59.1),; RROUT(SUBSTR(DTOC(MCHQDATE),1,1)),; RROUT("",1.1),; RROUT(SUBSTR(DTOC(MCHQDATE),2,1)),; RROUT("",1.3),; RROUT(SUBSTR(DTOC(MCHQDATE),4,1)),; RROUT("",1.5,,_compress),; RROUT(SUBSTR(DTOC(MCHQDATE),5,1)),; RROUT("",1.5),; RROUT(SUBSTR(DTOC4(MCHQDATE),7,1)),; RROUT("",1.3),; RROUT(SUBSTR(DTOC4(MCHQDATE),8,1)),; RROUT("",1.3),; RROUT(SUBSTR(DTOC4(MCHQDATE),9,1)),; RROUT("",1.5,,_COMPRESS),; RROUT(SUBSTR(DTOC4(MCHQDATE),10,1))} {||ROUT("")} {||ROut(" ",10),; RROut(mPayee,PageWidth()-5,_LEFT)} {||rout ("")} {||ROut(" ",13),; RROut(STRTRAN(Alltrim(mAmtInWords),"-"," ")+" Only",PageWidth(),_LEFT,iif(Len(mAmtInWords)>60,_COMPRESS,_NORMAL) )} {||rout ("")} {||ROUT("",60),; RROut(Tran(ABS(mChqAmount),"999999999.99 "),12,,{"Arial bold"})} {||ROUT("")} {||ROUT("")} {||ROUT("")} {||ROUT("")} {||ROut("===============",PageWidth(),_CENTER,_DS)} {||ROut(" Ac/Payee Only ",PageWidth(),_CENTER,_DS)} {||ROut("===============",PageWidth(),_CENTER,_DS)} {||ROUT("")}