* ------------[ BLED merge (c) Ken Goosens ]-------------
* Merge this against RBBSSUB3.BAS to produce RBBSSUB3.NEW
* RBBSSUB3.BAS:  Date 5-21-1990  Size 116300 bytes
* ------------[ Created 06-23-1990 23:39:13 ]------------
* REPLACING old line(s) by new
41032 ' $SUBTITLE: 'DispTimeRemain - Display users time remaining'
' $PAGE
'
'  NAME    -- DispTimeRemain
'
'  INPUTS  --     PARAMETER                    MEANING
'              MinsRemaining
'
'  OUTPUTS --     PARAMETER                    MEANING
'                MinsRemaining               TIME IN MINUTES LEFT IN SESSION
'
      SUB DispTimeRemain (MinsRemaining) STATIC
      CALL TimeRemain (MinsRemaining)
* ------[ first line different ]------
      CALL QuickTPut1 (ZEmphasizeOff$ + STR$(MinsRemaining) + " min left") ' MB052101
      END SUB