10 REM ** SHADING DEMO›20 GRAPHICS 23›30 OPEN #1,4,0,"K:"›40 FOR I=0 TO 4:SETCOLOR I,9,4:NEXT I›50 X0=48:Y0=36›60 COLOR 1›70 FOR I=0 TO 40›80 PLOT X0,Y0+I:DRAWTO X0+40,Y0+I›90 NEXT I›100 COLOR 2›110 FOR I=1 TO 24›120 PLOT X0+I,Y0-I:DRAWTO X0+I+40,Y0-I›130 NEXT I›140 COLOR 3›150 FOR I=1 TO 24›160 PLOT X0+40+I,Y0-I:DRAWTO X0+40+I,Y0+40-I›170 NEXT I›180 FOR I=0 TO 2›190 GET #1,A›200 IF A<48 THEN A=48›210 SETCOLOR I,1,2*(A-48)›220 NEXT I›230 GOTO 180›