10 ' EYE - COLOUR SWAPPING DEMONSTRATION 20 ' (C) 6/4/92 SEAN MCMANUS 30 ' Q: How do you make a duck sing soul ? 40 ' 50 ON BREAK GOSUB 350:DEFINT a-z:CALL &BC02:MODE 0:INK 0,0:BORDER 10 60 DEG:PAPER 14:PEN 15:FOR g=1 TO 500:PRINT CHR$(134);:NEXT:INK 14,13:INK 15,10:FOR g=1 TO 180:PLOT 320+200*SIN(G),200+100*COS(G):DRAW 320+200*SIN(360-G),200+100*COS(360-G),0:NEXT 70 PEN 1:PAPER 0:SYMBOL 255,48,254,22,60,116,210,254,16:LOCATE 19,24:PRINT CHR$(22)CHR$(1);CHR$(255);CHR$(22)CHR$(0); 80 PLOT 1,1,1:DRAW 639,1:DRAW 639,399:DRAW 1,399:DRAW 1,1 90 FOR g=225 TO 320:PLOT 280+75*SIN(g),200+90*COS(g),6:NEXT 100 FOR g=35 TO 140:PLOT 280+75*SIN(g),200+90*COS(g):NEXT 110 FOR g=220 TO 325:PLOT 360+75*SIN(g),200+90*COS(g),8:NEXT 120 FOR g=40 TO 135:PLOT 360+75*SIN(g),200+90*COS(g):NEXT 130 READ t:FOR z=1 TO t:READ i,r1,r2:PLOT 320-r1,200,i:FOR g=-90 TO 270 STEP 5 140 IF g=90 AND i>1 THEN IF i=2 THEN i=5 ELSE IF i=3 THEN i=4 150 DRAW 320+r1*SIN(g),200+r2*COS(g),i:NEXT 160 NEXT:DATA 3,1,200,100,2,195,75,3,190,50 170 i=10:FOR g=220 TO 325 STEP 2:IF g=240 OR g=304 THEN i=i+1 180 PLOT 320+75*SIN(g),200+90*COS(g),i:NEXT 190 FOR g=35 TO 140:IF g=58 OR g=120 THEN i=i-1 200 PLOT 320+75*SIN(g),200+90*COS(g),i:NEXT 210 FOR h=1 TO 3:i=5+h:FOR g=1 TO 180 STEP 14:PLOT 200+60*h+10*SIN(g),200+10*COS(g),i:DRAW 200+60*h+10*SIN(360-g),200+10*COS(360-g):NEXT:PLOT 200+60*h,205,0:DRAWR 2,-2:DRAWR 0,-2:NEXT 220 FOR g=0 TO 13:INK g,0:NEXT:INK 1,26:INK 10,26:INK 11,26:INK 12,26 230 INK 2,26:INK 5,26:GOSUB 270:WHILE 1 240 FOR g=1 TO RND*2000+1000:NEXT:IF RND>0.5 THEN GOSUB 310 250 a=INT(RND*2)+1:ON a GOSUB 290,300,270 260 FOR g=1 TO RND*1500+500:NEXT:INK 6,0:INK 8,0:GOSUB 270:WEND 270 INK 10,26:INK 11,26:INK 12,26:INK 7,26:RETURN 280 INK 10,0:INK 11,0:INK 12,0:INK 7,0:RETURN 290 GOSUB 280:INK 6,26:RETURN 300 GOSUB 280:INK 8,26:RETURN 310 FOR g=2 TO 5:INK g,0:INK 14-g,0:INK g+1,26:INK 6,0:IF G=3 THEN INK 7,0 320 FOR H=1 TO 350:NEXT H,G:INK 5,0:FOR h=1 TO 350:NEXT 330 FOR g=5 TO 2 STEP -1:INK g,26:INK 14-g,26:INK g+1,0:INK 5,26:IF G=3 THEN INK 7,26 340 FOR H=1 TO 350:NEXT H,G:RETURN 350 MODE 2:PEN 1:PAPER 0:INK 1,26:INK 0,0:LIST 360 ' A: Put it in the microwave until its bill withers.