CLS
SCREEN 1
COLOR 1, 0
X = 300
Y = 15
A = 20
B = 20
REM Radar Grid
CIRCLE (150, 100), 5, 1
CIRCLE (150, 100), 20, 1
CIRCLE (150, 100), 35, 1
CIRCLE (150, 100), 50, 1
CIRCLE (150, 100), 65, 1
CIRCLE (150, 100), 80, 1
CIRCLE (150, 100), 95, 1
GOTO Airplane
Airplane:
CIRCLE (X, Y), 5, 2
CIRCLE (X, Y), 4, 3
CIRCLE (X, Y), 3, 2
CIRCLE (X, Y), 2, 3
CIRCLE (X, Y), 1, 2
FOR A = 1 TO 1000
NEXT A
CIRCLE (X, Y), 5, 1
CIRCLE (X, Y), 4, 0
CIRCLE (X, Y), 3, 0
CIRCLE (X, Y), 2, 0
CIRCLE (X, Y), 1, 0

Y = Y + 1
X = X - 1
IF Y > 200 THEN GOTO bottom
IF X < 1 THEN GOTO bottom
GOTO Airplane
bottom: