timer% = 100
t% = 0
REPEAT
WAIT 1
timer% += 1
IF timer% > 100 THEN
t% += 1
PRINT " TIME = " + STR$(t%)
timer% = 0
port% = OPENUP("COM4: 115200,N,8,1")
PRINT "port%= " + STR$(port%)
CLOSE#0
ENDIF
UNTIL FALSE
|