CLS
SCREEN 12
LOCATE 10, 15
PRINT TAB(34); "Pull heart hoop"
PRINT TAB(29); "Press any key to start"
DO
LOOP UNTIL INKEY$ <> ""
CLS
LOCATE 10, 15
PRINT TAB(31); "Pull Thickness(>50)>>>";
INPUT "", Q
IF Q < 50 THEN 1
IF Q = 0 THEN 1
CLS
FOR I = 1 TO 100
LOCATE 10, 36
PRINT "Loading..."
PRINT TAB(16); STRING$(I \ 2, 219)
PRINT TAB(39); LTRIM$(STR$(I)); "%"
PRINT
PRINT TAB(32); "Press Esc to end"
FOR J = 1 TO 4000
IF INKEY$ = CHR$(27) THEN 1
NEXT
NEXT
CLS
RANDOMIZE TIMER
DO
N = FIX(RND * 200 + Q)
P = FIX(RND * 200 + Q)
CIRCLE (200, 200), 20, X
LINE -(N, P), X
X = X + 1
IF X > 15 THEN X = 0
IF INKEY$ = CHR$(27) THEN 1
LOOP
1 CLS
LOCATE 11, 15
PRINT TAB(38); "End"
END