CLS
SCREEN 12
COLOR 2
KEY(1) ON
PRINT "Press F1 to EXIT"
2 RANDOMIZE TIMER
D% = INT(RND * 8) + 1
C% = INT(RND * 15) + 1
DRAW "S16"
ON KEY(1) GOSUB ending
IF D% = 1 THEN DI$ = "U"
IF D% = 2 THEN DI$ = "D"
IF D% = 3 THEN DI$ = "L"
IF D% = 4 THEN DI$ = "R"
IF D% = 5 THEN DI$ = "E"
IF D% = 6 THEN DI$ = "F"
IF D% = 7 THEN DI$ = "G"
IF D% = 8 THEN DI$ = "H"
IF C% = 1 THEN DRAW "C1 X" + VARPTR$(DI$)
IF C% = 2 THEN DRAW "C2 X" + VARPTR$(DI$)
IF C% = 3 THEN DRAW "C3 X" + VARPTR$(DI$)
IF C% = 4 THEN DRAW "C4 X" + VARPTR$(DI$)
IF C% = 5 THEN DRAW "C5 X" + VARPTR$(DI$)
IF C% = 6 THEN DRAW "C6 X" + VARPTR$(DI$)
IF C% = 7 THEN DRAW "C7 X" + VARPTR$(DI$)
IF C% = 8 THEN DRAW "C8 X" + VARPTR$(DI$)
GOTO 2
ending:
END