1 BEEP 1,0: PAUSE 9: PAUSE 200: READ x,y,p,t,c,b$,a$: POKE 23693,64: CLS : RESTORE 
2 FOR n=2 TO 19: PRINT AT n,2; PAPER 7;b$;b$;AT 5,25; PAPER 6;"Time": NEXT n
3 LET c=c+1: IF c=5 THEN PRINT AT 2+RND*17,2+RND*19; INK RND*7;"\*": LET c=1
4 LET w=x: LET q=y: LET x=x+(IN 57342=190)-(IN 57342=189): IF t=0 THEN GO TO 1
5 LET y=y+(IN 65022=190)-(IN 64510=190): LET g=x+(x-w): LET f=y+(y-q): LET t=t-1
6 LET v=ATTR (f,g)-64: LET z=ATTR (y,x)-64: IF z<8 THEN GO SUB 8: DATA 9,9,0,254
7 PRINT AT q,w; PAPER 7;"/";AT y,x;a$(c);AT 6,25;t;" ";AT 9,25;"\*=";p: GO TO 3
8 IF v=z AND v>0 THEN PRINT AT f,g;"/": BEEP .1,9: LET t=t+14+v: LET p=p+v: RETURN 
9 IF v<8 OR z=0 THEN BEEP .08,-30: LET x=w: LET y=q: RETURN : DATA 4,"//////////"
10 PRINT AT f,g; INK z;"\*";AT 0,8;"Mini Box": BEEP .005,49: RETURN : DATA "o.oO"
