REM Louis Aguila
REM description
CLS
SCREEN 1
REM **Glass Holder**
LINE (120, 20)-(130, 10), 1
LINE (130, 10)-(180, 10), 1
LINE (180, 10)-(190, 20), 1
LINE (190, 20)-(190, 60), 1
LINE (190, 60)-(180, 70), 1
LINE (180, 70)-(130, 70), 1
LINE (130, 70)-(120, 60), 1
LINE (120, 60)-(120, 20), 1
REM **Machine**
LINE (130, 70)-(130, 120), 1
LINE (130, 120)-(180, 120), 1
LINE (180, 120)-(180, 70), 1
REM **Left Leg**
LINE (130, 120)-(130, 190), 1
REM **RIGHT LEG**
LINE (180, 120)-(180, 190), 1
REM **Coin slot**
LINE (153, 72)-(156, 72), 1
LINE (157, 72)-(157, 82), 1
LINE (157, 82)-(153, 82), 1
LINE (153, 82)-(153, 72), 1
REM **Crank**
LINE (149, 86)-(144, 91), 1
LINE (149, 86)-(161, 94), 1
LINE (144, 91)-(158, 99), 1
LINE (161, 94)-(158, 99), 1
REM **Slot**
LINE (150, 105)-(160, 118), 1, B
REM **Gumballs**
CIRCLE (130, 61), 2, 3
CIRCLE (157, 63), 2, 1
CIRCLE (139, 62), 2, 2
CIRCLE (160, 59), 2, 4
CIRCLE (147, 64), 2, 1
CIRCLE (150, 61), 2, 2
CIRCLE (160, 63), 2, 4
CIRCLE (170, 61), 2, 3
CIRCLE (180, 63), 2, 1
CIRCLE (145, 59), 2, 3
CIRCLE (150, 58), 2, 4
CIRCLE (130, 57), 2, 3
CIRCLE (163, 55), 2, 4
CIRCLE (173, 57), 2, 1
CIRCLE (165, 56), 2, 3
CIRCLE (180, 60), 2, 2
CIRCLE (130, 50), 2, 1
CIRCLE (135, 55), 2, 2
CIRCLE (140, 53), 2, 1
CIRCLE (145, 52), 2, 3
CIRCLE (150, 53), 2, 4
CIRCLE (157, 57), 2, 4
CIRCLE (164, 55), 2, 1
CIRCLE (170, 50), 2, 1
CIRCLE (180, 57), 2, 1
CIRCLE (179, 64), 2, 3
CIRCLE (182, 55), 2, 2
SLEEP 4

REM **Animation**
x = 155
y = 121
move:
CIRCLE (x, y), 2, 2
FOR t = 1 TO 1000
NEXT t
CIRCLE (x, y), 2, 0
y = y + 1
IF y > 191 THEN GOTO bottom
GOTO move
bottom: