47104 ```BCIRCLEMacro Assembler(C)MACSQRWHENRPAGEM 3HIMEMPAGEFILLL)STRING$(0FILL SOUNDCLGGET.0QUITGET1)OTHERWISEERROR1EXTMOUSESIN0ACS)OFEXITRUNEVALORIGINL

  674 FNTINTSTEPPOSWAIT)DRAWACS=OFEXITREPORTEXTWAITGET=DEFTANPAGEPRIVATEGET>DEF&TANPAGERECTANGLEGET?DEF2TANPLOTQUITOFEXITINPUTLEPAGECHR$>TANERROR)ENDSWAPPAGEFILLLFGET$ENDMOUSEPAGEFCLG CLEFT$(GET*WHENSWAPPOINT(FORTINT***e)ERROR) SQRRIGHT$(WHEN,PAGESOUND CLEFT$(hWHENQUITPAGEFILLLOFGET$GET*H SQRRIGHT$(WHEN,PAGEINKEY$ CLEFT$(GET*PAGEELLIPSESUM+SUM* EXPGET$GET*ERROR+hERROR*LVPOSINKEY$ENDPAGEFILLLASNGET$ENDFILLPLOT  CLEFT$(GET+PAGEFILLLOFGET$LQINKEY$ CLEFT$( SQRRIGHT$(WHEN,PAGE  NLEFT$( SQRRIGHT$(WHENXPLOTL/INKEY$GET+PAGEFILLLOFGET$LENCOUNTERROR)L

11173   PAGERECTANGLELENtERROR)LOFGET$LENERLANDMOVEBTTSBBRSPPPPRSRTBBMMHHLLABBZRSBBYXYXANDMOUSEdBYPTRRECTANGLEOFFZCLGzSTOPWHEN,PAGEFILLLINKEY$GET)iERROR)LLOCALGET$END1PLOTFILLLASNINKEY$ SQRRIGHT$(WHEN#PLOTFILLLpINKEY$LENSPCERROR)LIFGET$ SQRRIGHT$(WHENAPLOTFILLLpINKEY$END-POINT(FILLLSPCINKEY$END.PLOTRECTANGLELEN:ERROR)LTHENINKEY$LENANDRESTOREWHEN)PAGEFILLLVPOSINKEY$WHEN,PAGE SQRRIGHT$(WHENXPAGEPRIVATE SQRRIGHT$(WHEN)PAGERECTANGLELEN|ERROR)LVPOSINKEY$L/INKEY$WHENFNPLOTRECTANGLEEXT"É€L,¾Æ ¥(H C

10373   EVALLLGET$WHENCIRCLEPLOT`LOCAL`PRIVATEFILLBASIC(C)1983 AcornTINT TOLENOR REMÿ†„©ƒ ô

41496   LINEOPENINELLIPSEMOUSEOPENINFILLMOUSEOFLINE#EXTTINTOPENINMOUSEOFOPENINCIRCLEMOUSELENCIRCLE%ORIGIN ORIGINPRIVATEORIGINBYORIGINEXITPAGEINSTALLLENAERROR LENRERRORPRIVATELENWERRORBYLENQUIT26946MOVE22594LRETURNRIGHT$(ANDANDABSABSACSACSADVALADVALASCASCASNASNATNATNAUTOSUMEXITBGETBGETCIRCLEBPUTBPUTFILLCOLOURCOLOURELLIPSECALL

18499   

55118   ELLIPSECHR$CHR$CLEARCLEARCIRCLECLOSECLOSEFILLCLGCLGCIRCLECLSCLSCIRCLECOSCOSCOUNTCOUNTCIRCLECOLORCOLOURELLIPSEDATADATA DEGDEGDEFDEFDEL

51013   EXITDIVDIVDIMDIMELLIPSEDRAWDRAWELLIPSEENDPROCENDPROCCIRCLEENDENDCIRCLEENVELOPEENVELOPEELLIPSEELSEELSEEVALEVALERLERLCIRCLEERRORERRORMOUSEEOFEOFCIRCLEEOREORERRERRCIRCLE

41296   EXTEXTCIRCLEFORFORELLIPSEFALSEFALSECIRCLEFNFNSWAPGOTOGOTOGET$GET$GETGETGOSUBGOSUBGCOLGCOLELLIPSEHIMEMHIMEMCINPUTINPUTELLIPSEIFIFELLIPSEINKEY$INKEY$INKEYINKEY

21582     INTINSTR(INSTR(LISTWHENEXITLINELINELOADCASEELLIPSELOMEMLOMEMCLOCALLOCALELLIPSELEFT$(LEFT$(LENLENLETLETMOUSELOGLOGLNLN

 9284   (MID$(MODEMODEELLIPSEMODMODMOVEMOVEELLIPSENEXTNEXTELLIPSENEWOFCIRCLENOTNOTOLDENDCASECIRCLEONONELLIPSEOFFOFFOROROPENINOPENINOPENOUT