1 REM : DEMO OF XIO FILLING›2 REM : SUPPRESS WINDOW IN GR.7›10 GRAPHICS 7+16›15 REM : ESTABLISH 3 FILL COLORS›20 FOR N=1 TO 3 STEP 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›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:"›150 FOR W=1 TO 400:NEXT W›155 REM : CHANGE COLOR FOR NEXT FIGURE›160 NEXT N›165 REM : GENERATE NEW FIGURE›170 GOTO 10›