MAP1 entry$,s,132
MAP1 inx,f,6
MAP1 exitcode,f,6
MAP1 funmap,f,6

MAIN'ROUTINE:
    PRINT TAB(-1,0)"TIMER TEST PROGRAM";

    PRINT TAB(3,1)"      Start:   (Press F1)";
    funmap = 1
    XCALL INFLD,3,14,1,0,"A^1",entry$,inx,1,0,exitcode,0,0,-1,-1,funmap
    PRINT TAB(3,1);TAB(-1,9);TAB(-1,254);
    Trace.Print exitcode

    PRINT TAB(5,1)"Timer Field:";
  TIME'AGAIN:
    XCALL INFLD,5,14,3,0,"#1Tk",entry$,inx,1,0,exitcode,5
    Trace.Print exitcode
    IF exitcode = 1 THEN
        END
    ENDIF
    GOTO TIME'AGAIN