Sub MM.startup
 Pause 100
 Run
End Sub

Dim integer n=5000
Dim float t0
SetPin gp1,din 'read output of 74HC14 pin 4
SetPin gp0,dout  'intput to 74HC14 pin 1
t0=Timer
Print "press any key to exit to console, except Ctrl-C"
' With Ctrl-C the watchdog keeps running, unless you do  Pin(gp0)=1  before it resets.
Do
 Inc n,10

 If Inkey$<>"" Then 'press any key to exit
   Pin(gp0)=1
   Pause 200
   Exit Do
 EndIf

 Pause n
 Print n,Timer-t0,Pin(gp1)
 Pulse gp0,10
 t0=Timer
Loop

Pin(gp0)=1
End