C PUTBET C C WRITTEN BY MICHAEL BOORSTEIN C C DATE 14-MARCH-78 C C SUBROUTINE PUTBET(BET,BALNCE) IMPLICIT INTEGER (A-Z) REAL BET,BALNCE BYTE ESC,Y,LINE,COLUMN DATA ESC,Y/"33,'Y'/ C C BEGIN C LINE="40+22 COLUMN="40+33 TYPE 1000,ESC,Y,LINE,COLUMN,BET 1000 FORMAT(X,4A1,'BET=',F9.2) RETURN END