CLS
REM Kelly Ramsay
REM Description
SCREEN 1
COLOR 121
REM ***Face***
CIRCLE (130, 100), 40
REM ***Left Eye***
CIRCLE (120, 85), 8
REM ***Left Eyeball***
CIRCLE (120, 87.5), 1
REM ***Right Eye***
CIRCLE (140, 85), 8
REM ***Right Eyeball***
CIRCLE (140, 87.5), 1
REM ***Nose***
CIRCLE (130, 100), 1
REM ***Left eye lid***
LINE (115, 85)-(125, 85)
REM ***Right eye lid***
LINE (135, 85)-(145, 85)
REM ***Left dipple***
LINE (105, 105)-(115, 95)
REM ***Right dipple***
LINE (145, 95)-(155, 105)
REM ***Left mouth line***
LINE (110, 100)-(125, 120)
REM ***Right mouth line***
LINE (150, 100)-(135, 120)
REM ***Upper lip***
LINE (120, 110)-(140, 110)
REM ***Middle of teeth***
LINE (130, 110)-(130, 120)
REM ***Bottom of teeth***
LINE (125, 120)-(135, 120)
REM ***Left ear***
LINE (110, 70)-(90, 50)
LINE (90, 50)-(70, 70)
LINE (70, 70)-(70, 100)
LINE (70, 100)-(85, 100)
LINE (85, 100)-(85, 75)
LINE (85, 75)-(90, 70)
LINE (90, 70)-(100, 80)
REM ***Right ear***
LINE (150, 70)-(170, 50)
LINE (170, 50)-(190, 70)
LINE (190, 70)-(190, 100)
LINE (190, 100)-(175, 100)
LINE (175, 100)-(175, 75)
LINE (175, 75)-(170, 70)
LINE (170, 70)-(160, 80)
REM ***Body***
LINE (110, 130)-(90, 140)
LINE (90, 140)-(120, 170)
LINE (120, 170)-(140, 170)
LINE (140, 170)-(170, 140)
LINE (170, 140)-(150, 130)
REM ***Left Paw***
CIRCLE (95, 160), 12
REM ***Right Paw***
CIRCLE (165, 160), 12
REM ***Toes on left foot***
LINE (90, 165)-(90, 170)
LINE (95, 165)-(95, 170)
LINE (100, 165)-(100, 170)
REM ***Toes on right paw***
LINE (160, 165)-(160, 170)
LINE (165, 165)-(165, 170)
LINE (170, 165)-(170, 170)
REM ***Fur***
LINE (105, 125)-(110, 130)
LINE (110, 130)-(110, 140)
LINE (110, 140)-(120, 150)
LINE (120, 150)-(120, 160)
LINE (120, 160)-(130, 170)
LINE (130, 170)-(140, 160)
LINE (140, 160)-(140, 150)
LINE (140, 150)-(150, 140)
LINE (150, 140)-(150, 130)
LINE (150, 130)-(155, 125)
REM ***Dog Tag***
LINE (120, 135)-(130, 145)
LINE (130, 145)-(140, 135)
CIRCLE (130, 150), 3

A = 163
B = 135
C = 190
D = 110
move2:
LINE (A, B)-(C, D), 1
FOR t = 1 TO 20000
NEXT t

LINE (A, B)-(C, D), 0
C = C + 2
D = D + 1

IF C = 200 THEN GOTO last
IF D = 130 THEN GOTO last
GOTO move2

last:
LINE (A, B)-(C, D), 1
FOR x = 1 TO 20000
NEXT x
LINE (A, B)-(C, D), 0
C = C - 2
D = D - 1
IF C = 190 THEN GOTO last1
IF D = 110 THEN GOTO last1
GOTO last

last1: