10 REM ******************************** 20 REM * * 30 REM * Music To Vacuum The House By * 40 REM * By Thomas A. McKean, 07-95 * 50 REM * * 60 REM ******************************** 70 REM 80 REM Version 1.0 90 CLS 100 V=INT(RND(1)*2) 110 W=INT(RND(1)*239) 120 X=INT(RND(1)*39) 130 Y=INT(RND(1)*16383) 200 IF V=0 THEN PSET (W,X) 210 IF V=1 THEN PRESET (W,X) 220 SOUND Y,10 230 GOTO 100 250 END