SCREEN 1
COLOR 0
'HEAD
CIRCLE (50, 46), 15, 2
'EYES
CIRCLE (57, 42), 1, 2
CIRCLE (45, 42), 1, 2
'SMILE
LINE (45, 55)-(55, 55), 2
'BODY
LINE (50, 58)-(50, 130), 2
'ARM
LINE (50, 90)-(70, 60), 2
LINE (50, 90)-(69, 55), 2
'LEGS
LINE (50, 130)-(40, 170), 2
LINE (50, 130)-(60, 170), 2
'GOAL
LINE (200, 30)-(240, 30), 2
LINE (200, 40)-(240, 40), 2
LINE (200, 30)-(200, 40), 2
LINE (240, 30)-(240, 40), 2
'BACKBOARD
LINE (240, 0)-(240, 40), 2
LINE (245, 0)-(245, 40), 2
LINE (240, 0)-(245, 0), 2
LINE (240, 40)-(245, 40), 2
'NET
LINE (200, 40)-(220, 60), 2
LINE (240, 40)-(220, 60), 2
'BALL
BALL:
CIRCLE (80, 75), 13, 2
X = 80
Y = 75
SLEEP 1
THROW:
CIRCLE (X, Y), 13, 2
FOR T = 1 TO 500
NEXT T
CIRCLE (X, Y), 13, 0
X = X + 2
Y = Y - 1
IF Y < 6 THEN GOTO BOUNCE
GOTO THROW
BOUNCE:
X = 220
Y = 20
BOUNCE2:
CIRCLE (X, Y), 13, 2
FOR T = 1 TO 500
NEXT T
CIRCLE (X, Y), 13, 0
X = X - .2
Y = Y + 1
'GOAL
LINE (200, 30)-(240, 30), 2
LINE (200, 40)-(240, 40), 2
LINE (200, 30)-(200, 40), 2
LINE (240, 30)-(240, 40), 2
'NET
LINE (200, 40)-(220, 60), 2
LINE (240, 40)-(220, 60), 2
IF Y > 140 THEN GOTO BOTTOM
GOTO BOUNCE2
BOTTOM:
PRINT "HE SCORES!!!!!!!"