$MLC F 100 10 3000
300 INPUT "Ready : ":K$
305 CALL LINK("TEST",N)
310 PRINT N*1E-8;" seconds" ; 1E-8 to convert ns into seconds.
320 GOTO 300
$TEST
    XREGENABLE          ; enable use of extra F18A registers
    TIMER RESET RUN     ; reset timer and runs it
    KEYWAITNEW 0        ; wait for a new key (to prevent from detecting the last "ENTER")
    TIMER READ TOFLOAT  ; read timer value and turns it to FLOAT in float register 0
    PUTFLOAT 1(0)       ; returns the float value to the first agrument N
$$  
$END
