10REM Comic Relief 20REM By S.Johnson 30REM May 91 100MODE1 110VDU 23,0,10,32,0,0,0,0,0,0 120READcircle 130PROCcircle 160G=GET 170CHAIN"MENU" 1000DEFPROCcircle 1005MOVE300,550 1010FORf=1 TO circle 1015READa,b,x,y,c 1016MOVEa,b 1020GCOL0,c 1030PLOT153,x,y 1050NEXTf 1060ENDPROC 2000DATA25 2009REM Mouth 2010DATA600,500,300,300,1 2020DATA600,520,300,300,0 2029REM Mouth Left Side 2030DATA200,300,100,100,1 2040DATA190,320,100,100,0 2045DATA140,280,100,100,0 2046DATA250,400,100,100,0 2049REM Mouth Right Side 2050DATA990,298,100,100,1 2060DATA1000,315,100,100,0 2065DATA1050,280,100,100,0 2066DATA950,400,100,100,0 2069REM Eyebrow 2070DATA590,440,75,75,1 2075DATA625,490,20,20,3 2076DATA622,476,20,20,1 2080DATA350,650,100,100,1 2089REM Left Eye 2090DATA350,630,100,100,0 2100DATA350,610,75,65,1 2110DATA350,610,50,50,0 2120DATA360,590,40,40,3 2125DATA360,565,16,16,0 2129REM Left Eye Brow 2130DATA850,650,100,100,1 2140DATA850,630,100,100,0 2150DATA850,610,75,65,1 2160DATA850,610,50,50,0 2170DATA840,590,40,40,3 2180DATA845,610,16,16,0