? "Checking account balance...";
if ( User.SubscriptionBalance <= 0 ) and ( User.SecLevel = "PAIDUSER" ) then
  User.SecLevel = "FREEUSER"
  ? "access level downgraded to FREEUSER."
  ? "Your access has been limited until your account balance increases."
  WaitEnter
elseif ( User.SubscriptionBalance > 0 ) and ( User.SecLevel = "FREEUSER" ) then
  User.SecLevel = "PAIDUSER"
  ? "access level upgraded to PAIDUSER."
  ? "Your access has been increased since your account balance increased."
  WaitEnter
else
  ? "access level "; User.SecLevel; "."
end if
?
QuoteOfTheDay
CheckNewsletter
CheckBulletins
CheckMailAtLogon