10 REM WIPEOFF  20 GOSUB 410  30 GOSUB 260  40 SCORE=0 50 COUNT=1000  60 X=10:Y=10 70 SOUND 1,500,10,4  80 LOCATE X,Y: PRINT" "; 90 IF INKEY(8)=0 AND X>1 THEN X=X-1  100 IF INKEY(1)=0 AND X<20 THEN X=X+1 110 IF INKEY(0)=0 AND Y>1 THEN Y=Y-1 120 IF INKEY(2)=0 AND Y<25 THEN Y=Y+1 130 GOSUB 550  140 IF DD<>32 THEN SCORE=SCORE+1  150 COUNT=COUNT-1  160 IF COUNT<>0 AND NUM<>SCORE THEN GOTO 80 170 MODE 2  180 LOCATE 1,10  190 PRINT"You have cleared ";  200 PRINT USING "###.##";SCORE*100/NUM;  210 PRINT" % of the mess "  220 LOCATE 1,15  230 PRINT"PRESS <SPACE> TO TRY AGAIN"  240 IF INKEY$<>" " THEN GOTO 240  250 GOTO 30  260 REM SPRAY AEROSOL  270 MODE 0  280 NUM=-1  290 X=10:Y=10  300 PEN 11  310 GOSUB 550  320 IF DD=32 THEN NUM=NUM+1 330 LOCATE X,Y  340 PRINT CHR$(143);  350 IF RND(1)>0.6 THEN X=X+1 360 IF RND(1)>0.6 THEN X=X-1 370 IF RND(1)>0.6 THEN Y=Y+1 380 IF RND(1)>0.6 THEN Y=Y-1  390 IF X>0 AND X<21 AND Y>0 AND Y<26 THEN GOTO 310  400 RETURN  410 REM PUT MACHINE CODE MEMORY ABOVE RE-ADJUSTED HIMEM 420 MEMORY FRE(0)-&80 430 MC=HIMEM+1 440 TA=HIMEM+&7F 450 TH=INT(TA/256) 460 TL=TA-256*TH 470 POKE MC,&CD  480 POKE MC+1,&60 490 POKE MC+2,&BB 500 POKE MC+3,&32 510 POKE MC+4,TL 520 POKE MC+5,TH 530 POKE MC+6,&C9 540 RETURN 550 LOCATE X,Y 560 CALL MC 570 DD=PEEK(TA) 580 RETURN