REM Dauci Watson
CLS
SCREEN 1
COLOR 1, 2
REM head
CIRCLE (150, 45), 20, 1
REM body
LINE (150, 63)-(150, 120), 1
REM left leg
LINE (150, 120)-(120, 170), 1
REM right leg
LINE (150, 120)-(180, 170), 1
REM left arm
LINE (150, 85)-(100, 80), 1
REM right arm
LINE (150, 85)-(190, 120), 1
REM left shoe
LINE (180, 170)-(200, 180), 1, B
REM right shoe
LINE (120, 170)-(100, 180), 1, B
REM hands
CIRCLE (95, 80), 5, 1
CIRCLE (190, 125), 5, 1
REM eye
CIRCLE (150, 35), 4, 1
CIRCLE (148, 34), 1, 1
REM mouth
LINE (135, 40)-(145, 45), 1
LINE (130, 50)-(145, 45), 1
SCREEN 1
COLOR 0
x = 95
y = 80
move:
CIRCLE (x, y), 2, 1
FOR t = 1 TO 1000
NEXT t
CIRCLE (x, y), 2, 0
y = y - 1
IF y < 0 GOTO move1
GOTO move
SCREEN 1
COLOR 0
x = 95
y = 1
move1:
CIRCLE (x, y), 2, 1
FOR t = 1 TO 1000
NEXT t
CIRCLE (x, y), 2, 0
x = x + 1
y = y + 1
IF x > 135 THEN GOTO bottom
GOTO move1
bottom:
PRINT "bye"