C HOSFST C C MICHAEL BOORSTEIN C C DATE 13-MAR-78 C C SUBROUTINE HOSFST(WORTH,WHAT,SUIT) IMPLICIT INTEGER(A-Z) BYTE WHAT,SUIT,ESC,Y,LINE,COLUMN,QUOTE DATA ESC,Y/"33,'Y'/ DATA QUOTE/"47/ C C BEGIN C CALL GTNEXT(WORTH,WHAT,SUIT) LINE="40+13 COLUMN="40+74 TYPE 100,ESC,Y,LINE,COLUMN 100 FORMAT(X,4A1,'.____.') LINE=LINE+1 TYPE 200,ESC,Y,LINE,COLUMN 200 FORMAT(X,4A1,'| |') LINE=LINE+1 COLUMN="40+58 TYPE 300,ESC,Y,LINE,COLUMN,WHAT,SUIT 300 FORMAT(X,4A1,'DEALERS UP CARD=| ',2A1,' |') LINE=LINE+1 COLUMN="40+74 TYPE 200,ESC,Y,LINE,COLUMN LINE=LINE+1 TYPE 400,ESC,Y,LINE,COLUMN,QUOTE,QUOTE 400 FORMAT(X,4A1,A1,'----',A1) RETURN END