24) CHEESE NIBBLER (312 B)
To use: LOAD 10, RUN 600

600 REM
610 REM CHEESE NIBBLER
620 REM
630 DIM A(29)
640 LET N=30
650 CLS
660 FOR J=0 TO 2
670 FOR K=0 TO 9
680 LET B=A(K+10*J)
690 IF B=0 THEN PRINT "\A";
700 IF B=1 THEN PRINT " ";
710 NEXT K
720 IF J=0 THEN PRINT " THIS IS THE CHEESE."
730 IF J=1 THEN PRINT " HIT NEWLINE TO LET"
740 IF J=2 THEN PRINT " THE MOUSE NIBBLE IT."
750 NEXT J
760 PRINT ,"   (SPACE TO BREAK)"
770 INPUT A$
780 LET B=RND(30)-1
790 IF A(B)=1 THEN GOTO 780
800 LET A(B)=1
810 LET N=N-1
820 IF N>0 AND A$="" THEN GOTO 650
830 STOP