1 REM : DEMO OF XIO FILLING #2›5 REM : SUPPRESS WINDOW IN GR.7›10 GRAPHICS 7+16›11 REM :CHANGE BACKGROUND›12 B=INT(RND(0)*16)›13 SETCOLOR 4,B,2›15 REM : ESTABLISH 3 FILL COLORS›20 N=INT(RND(0)*3+1)›30 COLOR N›35 REM : GENERATE FIGURE TO FILL›40 X1=INT(RND(0)*80)›50 Y1=INT(RND(0)*48)›60 X2=X1+INT(RND(0)*80)›70 Y2=Y1+INT(RND(0)*48)›80 IF X1=X2 OR Y1=Y2 THEN 40›81 I=INT(RND(0)*256)›82 SOUND 1,I,10,4›84 SOUND 2,255-I,10,4›90 PLOT X2,Y2›100 DRAWTO X2,Y1›110 DRAWTO X1,Y1›115 REM : FILL FIGURE›120 POSITION X1,Y2›130 POKE 765,N›140 XIO 18,#6,0,0,"S:"›155 REM : CHANGE COLOR FOR NEXT FIGURE›165 REM :GENERATE NEW FIGURE›166 REM :CHANGE BACKGRD SO GOTO 12›170 GOTO 12›