Check 08217619
Auto 1
   1 BORDER 0: PAPER 0: INK 7
  10 GO TO 9000
  20 LET a$="           JUGGLER              ": LET x=10: GO SUB 200
  30 LET a$="   5 <-                 ->8     ": LET x=12: GO SUB 200
  40 LET a$="  H=HOLD               S=START  ": LET x=14: GO SUB 200: GO TO 300
 200 FOR a=1 TO LEN a$: PRINT AT x,0; BRIGHT 1;a$(LEN a$-a+1 TO ): BEEP .01,a+x: NEXT a: RETURN
 300 FOR a=1 TO 10: POKE 32346+4*a,INT (RND*6)+3: POKE 32347+4*a,INT (RND*28)+2: POKE 32348+4*a,1-(2 AND RND>.5): POKE 32349+4*a,1-(2 AND RND>.5): NEXT a
 310 LET a$="           PRESS S              ": LET x=21: GO SUB 200
 320 GO SUB 500
 330 CLS : PRINT AT 0,0;: LET l=USR 32000
 340 LET r=0: LET p=0: GO SUB 400
 350 IF INKEY$="h" THEN GO SUB 500
 360 IF PEEK 23673>=5 THEN GO SUB 400
 380 LET p=p+r: PRINT AT 0,27; PAPER 1;p; PAPER 0: LET l=USR 32527: IF PEEK 23296<>99 THEN GO TO 350
 390 GO TO 300
 400 POKE 23672,0: POKE 23673,0: LET r=r+(1 AND r<>10): POKE 32531,r: POKE 32575,r: POKE 32578,30-2*r: PRINT AT 0,1; PAPER 1;"ROUND ";r;AT 0,20;"POINTS ";p: RETURN
 500 LET t=PEEK 23672: LET t1=PEEK 23673
 510 IF INKEY$<>"s" THEN GO TO 510
 520 POKE 23672,t: POKE 23673,t1: RETURN
9000 DATA 62,17,215,62,1,215,62,6,215,62,6,215,6,21,62,22,215,120,215,62,0,215,62,32,215,62,22,215,120,215,62,31,215,62,32,215,16,-24,33,175,90,34,176,92,6,3,54,87,35,16,-5
9010 DATA 201
9020 DATA 62,0,50,129,92,1,254,239,237,120,203,87,32,14,58,176,92,254,188,40,7,62,1,50,129,92,24,24,1,254,247,237,120,203,103,32,14,58,176,92,254,161,40,7,62,255,50,129,92,24,1,201
9030 DATA 58,129,92,254,1,32,16,42,176,92,54,7,35,35,35,54,87,43,43,34,176,92,201,42,176,92,43,54,87,34,176,92,35,35,35,54,7,201
9050 DATA 62,22,215,42,0,91,125,215,124,215,62,16,215,62,7,215,62,32,215,237,91,2,91,125,131,71,124,130,95,205,244,126,254,7,32,23,33,0,91,112,35,115,62,22,215,120
9060 DATA 215,123,215,62,16,215,62,4,215,62,144,215,201,33,0,91,58,2,91,134,71,35,94,205,244,126,254,7,32,10,58,3,91,237,68,50,3,91,24,39,33,0,91,70,35,58,3,91,134,95,205,244,126,254,7
9070 DATA 32,10,58,2,91,237,68,50,2,91,24,12,33,2,91,126,237,68,119,35,126,237,68,119,33,0,91,58,2,91,134,119,35,58,3,91,134,119,43,70,35,94,62,22,215,120,215,123,215,62,16
9080 DATA 215,62,4,215,62,144,215,33,0,1,17,20,0,205,181,3,201
9081 DATA 193,225,6,10,197,33,50,0,6,0,197,229,17,4,0,205,181,3,225,193,35,16,-13,193,16,-22,62,99,50,0,91,201
9090 CLEAR 31999: LET a$="         PLEASE WAIT            ": LET x=10: GO SUB 200
9095 LET t=0: FOR a=32000 TO 32342: READ b: LET t=t+b: POKE a,b: NEXT a: IF t<>31720 THEN GO TO 9999
9100 RESTORE 9105: LET t=0: FOR a=32500 TO 32593: READ b: LET t=t+b: POKE a,b: NEXT a: IF t<>10580 THEN GO TO 9999
9105 DATA 197,213,229,213,62,0,184,40,9,17,32,0,33,0,88,25,16,-3,209,22,0,25,126,225,209,193,201
9110 DATA 33,94,126,6,1,197,229,17,0,91,237,160,237,160,237,160,237,160
9120 DATA 205,142,125,225,17,0,91,235,126,254,21,202,55,126,237,160,237,160,237,160,237,160,235,193,16,-39
9130 DATA 205,52,125,6,2,197,6,30,197,6,0,16,-2,193,16,-8,205,52,125,193,16,-17,201
9140 RESTORE 9140: FOR a=0 TO 7: READ b: POKE USR "a"+a,b: NEXT a: DATA 60,126,255,255,255,255,126,60
9150 GO TO 20
9999 PRINT AT 10,7; FLASH 1;"    DATA ERROR    ": STOP