C GETBET C C WRITTEN BY MICHAEL BOORSTEIN C C DATE MARCH 11,1978 C C SUBROUTINE GETBET(BET,BALNCE) IMPLICIT INTEGER(A-Z) REAL BET,BALNCE C C BEGIN C CALL ERRSET(64,.TRUE.,.FALSE.,.TRUE.,.FALSE.) CALL STATUS('PLACING BET') 10 CALL QUESTN('PLACE BET HERE >') CALL DETTRM READ(5,1000,END=25,ERR=25)BET 1000 FORMAT(F10.0) CALL ATTTRM BET=AINT(BET*100.)/100. IF(BET.GT.0.)GOTO 80 CALL MESAGE('YOU CANT BET NOTHING!') GOTO 10 25 CALL ATTTRM CALL MESAGE('ILLEGAL BET') GOTO 10 C C SEE IF BET IS OK C 80 IF(BET.LE.BALNCE)GOTO 90 CALL MESAGE('YOU CANT BET MORE THAN YOU HAVE') GOTO 10 C C PRINT BET C 90 IF(BET.LE.250.)GOTO 95 CALL MESAGE('SORRY, THE LIMIT IS 250 DOLLARS!') GOTO 10 95 CALL PUTBET(BET,BALNCE) RETURN END