REM JENNIFER POKORNEY
REM 10/04/00
REM GRA-6
REM DESCRIPTION

SCREEN 1
REM *** LEFT BOX ***
REM * P1 TO P2 *
LINE (10, 80)-(20, 80), 1, BF
REM * P1 TO P3 *
LINE (10, 80)-(10, 110), 1, BF
REM * P3 TO P4 *
LINE (10, 110)-(20, 110), 1, BF
REM * P4 TO P2 *
LINE (20, 110)-(20, 80), 1, BF

REM *** RIGHT BOX***
REM * P1 TO P2 *
LINE (300, 80)-(310, 80), 1, BF
REM * P1 TO P3 *
LINE (300, 80)-(300, 110), 1, BF
REM * P3 TO P4 *
LINE (300, 110)-(310, 110), 1, BF
REM * P4 TO P2 *
LINE (310, 110)-(310, 80), 1, BF

REM *** MOVING BALL ***
COLOR 0
X = 27
Y = 95

MOVE:
CIRCLE (X, Y), 5, 2
FOR T = 1 TO 150
NEXT T
CIRCLE (X, Y), 5, 0
X = X + 1
IF X < 294 THEN GOTO MOVE
GOTO BACK

BACK:
CIRCLE (X, Y), 5, 2
FOR T = 1 TO 150
NEXT T
CIRCLE (X, Y), 5, 0
X = X - 1
IF X > 27 THEN GOTO BACK
GOTO MOVE