C ACOUNT C C MICHAEL BOORSTEIN C C DATE MARCH 11,1978 C C SUBROUTINE ACOUNT(BALNCE) IMPLICIT INTEGER(A-Z) REAL BALNCE BYTE ESC,K,Y,ROW,COLUMN,COL1 DATA ESC,Y,K/"33,'Y','K'/ C C BEGIN C BALNCE=AINT(BALNCE*100.)/100. ROW="40+22 COLUMN="40+58 COL1="40+33 TYPE 100,ESC,Y,ROW,COL1,ESC,K 100 FORMAT(X,6A1) TYPE 200,ESC,Y,ROW,COLUMN,BALNCE 200 FORMAT(X,4A1,'YOUR ACCOUNT=',F9.2) RETURN END