*** Functions are not listed *** Allowed to be executed once per day SET century on LOCAL nAdvertising, lUnofficial lUnofficial = .T. IF date() >= ctod("03/19/2003") lUnofficial = .F. ENDIF DO while lUnofficial = .T. nAdvertising = thisform.dim.value _$$ = _$$ + nAdvertising _BrainWash (useless_speech) _VerifyPols (little_scary) _WarGoodness (puppets) ENDDO DO RequestMasterApproval DO case CASE day(date()) = .Even. SELECT * from MyLittleCuteWar into cursor _WhatToShow where General_News = "wonderful"; order by relevance desc DO CleaningBreak with NewXBOXJawBreakerGame, SomePrefabricatedTerrorStuff, SeeHistoryChannelALittleBit CASE day(date()) NOT .Even. SELECT * from MyLittleCuteWar into cursor _WhatToShow where General_News = "wonderful"; order by relevance asc DO CleaningBreak with WarChanting, PuritanicalBeeps, SeeDiscoveryChannelALot ENDCASE DO EnjoySouthPark with beer DO FeedYourCat with something DO GetTheBedDude with HealtyDeliriumTremens