SCREEN 13: CLS
horz = POINT(1): vert = POINT(0)
PSET (vert, horz), 2
C = 1
1 A$ = INKEY$
IF A$ = "" THEN GOTO 1
RANDOMIZE TIMER
IF A$ = CHR$(0) + "M" THEN vert = vert + 3
IF A$ = CHR$(0) + "K" THEN vert = vert - 3
IF A$ = CHR$(0) + "P" THEN horz = horz + 3
IF A$ = CHR$(0) + "H" THEN horz = horz - 3
IF A$ = "" THEN END
IF C < 240 THEN C = C + 1 ELSE C = 2
PSET (vert - 1, horz - 1), C
PSET (vert - 1, horz + 1), C
PSET (vert + 1, horz + 1), C
PSET (vert + 1, horz - 1), C
PSET (vert, horz + 1), C
PSET (vert, horz - 1), C
PSET (vert + 1, horz), C
PSET (vert - 1, horz), C
PSET (vert, horz), C
GOTO 1