PrivateSubTimer1_Timer()DimmsAsBooleanDimInfo,tempAsStringDimp,p1,p2,iAsIntegerDimCh'BeginofTimeShowProcessIfModemStateLOGINAndSocketStateCONNECTEDThen'itisnotamultiusersgameExitSubElseIf(S_R=1)And(TURN=BLACKP)ThenBlack_Time=Black_T