%%HP: T(3)A(D)F(.);
\<< 0 0 0 0 0 0 \-> I XY GX GY TSTART
  \<< TIME 'TSTART' STO
    WHILE I 10 <
    REPEAT 
        RAND 10 * FLOOR DUP 'X' STO
        RAND 10 * FLOOR DUP 'Y' STO 
        + DUP 1 CF
      
        IF 10 \>= THEN 
            10 - 
            1 SF
        END 
        
        CLLCD

        "    " X + " + " + Y + " = " +
        IF 1 FS? THEN 
            1 +
        END 
        "?" + 
        
        4 DISP
      
        DO 
            DUP 
            0 WAIT 
            DUP 10 / FLOOR SWAP
            10 MOD FLOOR 
            'GX' STO 
            'GY' STO
            
            CASE 
                GY 6 == THEN 
                    5 GX +
                END 
                GY 7 == THEN 
                    2 GX +
                END 
                GY 8 == THEN 
                    GX 1 -
                END 
                GY 9 == GX 2 == AND THEN 
                    0
                END 
                GY 9 == GX 1 == AND THEN 
                    10 'I' STO DUP
                END 
                15
            END
        UNTIL ==
        END 
        550 .4 BEEP 
        
        'I' INCR DROP
        
        DROP
    END 
    "Time: "

    TIME HMS\-> 
    TSTART HMS\-> 
    - 36000 * FLOOR 10 / +

    " seconds" + 4 DISP
    "Good job!" 5 DISP
    8 FREEZE
  \>>
\>>