47104 ```B 65C102 Assembler (C) SQR WHENRPAGEM 3HIMEMPAGEFILLL)STRING$(0FILL SOUNDCLGGET.0QUITGET1)OTHERWISEERROR1EXTMOUSESIN0ACS)OFEXITRUNEVALORIGINLLGET$
2724
10507 DRAWACS=OFEXITREPORTEXTWAITGET=DEFTANPAGEPRIVATEGET>DEF$TANPAGERECTANGLEGET?DEF0TANPLOTQUITOFEXITINPUTLEPAGECHR$<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$END PAGEFILLLASNGET$ENDFILLPLOT
CLEFT$(GET+PAGEFILLLOFGET$LQINKEY$ CLEFT$( SQRRIGHT$(WHEN,PAGE
NLEFT$( SQRRIGHT$(WHENXPLOTL/INKEY$GET+PAGEFILLL
40105 ERROR)LVPOSINKEY$GET+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$