'Get
'if UserRec.SubscriptionBalance > 0 then
  EnterMessage
  QuoteOfTheDay
'else
'  Print ( "Your account balance must be positive to enter a message." )
'  Pause
'end if