1004   IF T*2-INT(T*2)>0.5 THEN  GOTO 1006
1005  PORT3=PORT3.AND.0FEH :  GOTO 1007
1006  PORT3=PORT3.OR.01H