'
'
'
'
'
'
'
'
'
'
'                                  Bounce!
'
'
'                              By Joseph Curtis
'
'
'
'
'
CLS
SCREEN 9
COLOR 12
RANDOMIZE TIMER
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT "              лллллл   лллллл  лл  лл  лл   лл   лллллл  лллллл  лл"
PRINT "              лл   лл  лл  лл  лл  лл  ллл  лл  лл       лл      лл"
PRINT "              лллллл   лл  лл  лл  лл  лллл лл  лл       лллллл  лл"
PRINT "              лл   лл  лл  лл  лл  лл  лл лллл  лл       лл"
PRINT "              лллллл   лллллл  лллллл  лл  ллл   лллллл  лллллл  лл"
INPUT "What size do you want the ball to be"; size%
INPUT "How fast woulld you like the ball to go, 1 - 5 works best"; fast%
INPUT "What colour would you like the ball to be, 1 - 15"; col%
COLOR col%
ang% = INT(RND * 3)
an% = INT(RND * 3)
a = INT(RND * 640)
b = INT(RND * 350)
r% = INT(RND * 4) + 1
IF r% = 1 THEN GOTO 5
IF r% = 2 THEN GOTO 6
IF r% = 3 THEN GOTO 7
IF r% = 4 THEN GOTO 8
GOTO 7
0
r = INT(RND * 8) + 1
IF r = 1 THEN GOTO 1
IF r = 2 THEN GOTO 2
IF r = 3 THEN GOTO 3
IF r = 4 THEN GOTO 4
IF r = 5 THEN GOTO 5
IF r = 6 THEN GOTO 6
IF r = 7 THEN GOTO 7
IF r = 8 THEN GOTO 8
1
PLAY "<L15c"
FOR i = 1 TO 640
CLS
CIRCLE (a, b), size%
'PAINT (a, b)
a = a + fast%

IF a < 1 THEN GOTO 1
IF a > 640 THEN GOTO 3
IF b < 1 THEN GOTO 2
IF b > 350 THEN GOTO 4
FOR d = 1 TO 100
NEXT d
NEXT i
GOTO 0
2
PLAY "<L15c"
FOR f = 1 TO 640
CLS
SCREEN 9
CIRCLE (a, b), size%
'paint (a, b)
b = b + fast%
IF a < 1 THEN GOTO 1
IF a > 640 THEN GOTO 3
IF b < 1 THEN GOTO 2
IF b > 350 THEN GOTO 4
FOR x = 1 TO 100
NEXT x
NEXT f
GOTO 0
3
PLAY "<L15c"
FOR t = 1 TO 640
CLS
SCREEN 9
CIRCLE (a, b), size%
'PAINT (a, b)
a = a - fast%
IF a < 1 THEN GOTO 1
IF a > 640 THEN GOTO 3
IF b < 1 THEN GOTO 2
IF b > 350 THEN GOTO 4
FOR y = 1 TO 100
NEXT y
NEXT t
GOTO 0
4
PLAY "<L15c"
SCREEN 9
FOR x = 1 TO 640
CLS
CIRCLE (a, b), size%
'PAINT (a, b)
b = b - fast%
IF a < 1 THEN GOTO 1
IF a > 640 THEN GOTO 3
IF b < 1 THEN GOTO 2
IF b > 350 THEN GOTO 4
FOR v = 1 TO 100
NEXT v
NEXT x
5
PLAY ">L15c"
FOR we = 1 TO 640
CLS
SCREEN 9
CIRCLE (a, b), size%
'PAINT (a, b)
b = b + fast%
a = a + fast%
IF a < 1 THEN GOTO 7
IF a > 640 THEN GOTO 7
IF b < 1 THEN GOTO 8
IF b > 350 THEN GOTO 8
FOR gb = 1 TO 100
NEXT gb
NEXT we
GOTO 0
6
PLAY "<L15c"
FOR q = 1 TO 640
CLS
SCREEN 9
CIRCLE (a, b), size%
'PAINT (a, b)
b = b - fast%
a = a - fast%
IF a < 1 THEN GOTO 8
IF a > 640 THEN GOTO 8
IF b < 1 THEN GOTO 7
IF b > 350 THEN GOTO 7
FOR ty = 1 TO 100
NEXT ty
NEXT q
7
PLAY "<L15c"
FOR qq = 1 TO 640
CLS
SCREEN 9
CIRCLE (a, b), size%
'PAINT (a, b)
b = b + fast%
a = a - fast%
IF a < 1 THEN GOTO 5
IF a > 640 THEN GOTO 8
IF b < 1 THEN GOTO 5
IF b > 350 THEN GOTO 6
FOR qty = 1 TO 100
NEXT qty
NEXT qq
8
PLAY ">L15c"
FOR tt = 1 TO 640
CLS
SCREEN 9
CIRCLE (a, b), size%
'PAINT (a, b)
b = b - fast%
a = a + fast%
IF a < 1 THEN GOTO 6
IF a > 640 THEN GOTO 6
IF b < 1 THEN GOTO 6
IF b > 350 THEN GOTO 6
FOR tty = 1 TO 100
NEXT tty
NEXT tt