47263 L*ANDENVELOPEQUITHIBASIC4.30(C)1987 AcornTINT TOHLNASNHENDSYSPLOTENDMOUSEPLOT:ENDELLIPSEPLOTMOUSEEND'PAGE, INKEY$PLOT'LENVALINKEYREM� �

32874 POSPROCWHEN PAGE IFOSCLIEXTREM���  ����� ��h���h`�����.�)����������!�� ��ܩ���L��

  295 

 4328 %ORIGIN ORIGINPRIVATEORIGINBYORIGINEXITPAGEINSTALLLENAERROR IERRORPRIVATEIORIGINERRORBYLENOR REM���: ���d�����#� �ʎ
�b���XL�DŽ9�
�7���������9�
�7

  441 MOUSEPLOT:ERROR+TRUEMOUSEANDWAITEVALCIRCLEPOS*PLOT-INTRAD*OR+ERROR*EVALELLIPSEPOS*PAGETINTSTRING$(9PAGELETANDPOS*PLOTFORTIME7PAGEDRAWCASESTRING$(9PAGEREADPOS*PAGECALLASNe*ERROR*PAGEELLIPSEGCOL+`d=GETERROR>EVALCIRCLEPOS=EOF+POINT(PRIVATEEVALFILLPOS=e=ERROR=PAGEONGCOL>ANDLOCALPAGETINTCASEPOS=EOF*PAGELETPAGECIRCLE`EVALELLIPSE` 3PTRGET-HEXITFILL PAGEGOSUB CLEARLINE' 3PTRhERROR8E-ERROR7 TANGOSUBEXT9 STOPREM�t=�*���Division by

29285       o*TAB(INTiERRORBEXTFILLSIN9t=PAGE$OFEXITRESTORE`ASNPLOTTRACETRUE=ERROR=TRUE>ERROR>TRUE?ERROR?d@STEPPLOTINPUTd?STEPPLOTFORd>ANDDRAWCLOSE*POINT(TINTSIN9ATN=t9OF0TIMESTEPEXITREADEVALSWAPLINEA69&=&>&?&@INKEYBSIN=BPUT*PAGEFILLOFEXITRESTOREPAGEGET=GOTO*ERROR=INKEYBPLOTGET>GOTO+ERROR>OFPLOTINSTALLGET

34092         ?GET@GOTO-ERROR@INKEYASTEPPAGEEOF69OFEXITVPOS` CLEARREM ��d5�-�. ��-�,d4�*�,�d3�+�.�2�� 0I�4&3&2*��=�3�+�2����,�2�+�3�*�4����d2��d1d.d0d/`�. �ޥ.��I���J�*��0d/�1`�10@�'2345�ˤ0�2H�3�2�4�3�5�4d5�8��h���0�5&4&3&2*��0�0��/��1`d=�1��1�=�0�

33797         =LCLSDIMWHENEVALPAGEEXITLEXTDIMF1f2f3f4PAGEELLIPSEERROR=SPCRECTANGLEPAGEVDU)PLOT,JJJINTCLGIFILLLNGET=PAGEINSTALLd5GET412ERROR=GET3ERROR4GET2ACS3GET1ACS2t1OFEXITCOLOURSTOPd5GET.EXIT8EVALASNGOTO4ERROR4ASNGOTO3ERROR3ASNGOTO2ERROR2ASNGOTO1ERROR1`GCOL4PAGEINSTALLGCOL3PAGESWAPGCOL2PAGEMOUSEGCOL1PLOTPAGE`EVALELLIPSEffEXITGETBYERRORjHGETPRIVATEINKEY FBYjf FBYjf FBYjf FBYjf EEXITLINEBYINKEYPRIVATELINEEXITERRORPRIVATEhE ERROR

24780         GET;ERROR.d/GET<ERROR0GET=ERROR1GET>ERROR2GET?ERROR3GET@ERROR4GETAERROR5`GET1PLOTDEF8GET0GOTO<PLOToPAGE4WHEN%POINT(ONINT)8PLOT8INKEY@LINEAINKEY?LINE@INKEY>LINE?INKEY=LINE>d=LETSWAPPAGELOCALASN)RECTANGLEPLOTHF=f>f?f@fA:PAGEREADAND9IOSCLIWHEN%POINT(ATNFN<OR0INT)8PLOT8INKEY4LINE5INKEY3LINE4INKEY2LINE3INKEY1LINE2d1LETSWAPPAGELOCALASN)RECTANGLEPLOT F1f2f3f4f5:PAGEREADGET.E;0MOUSEL9DATAGET1EOF=PAGEGET2EOF>PAGEGET3EOF?PAGEBYGET4EOF@PAGESYSGET5EOFAPAGEFILLLCLSDIMPOINT($GET;ERROR.8GET

34101         5GET@GOTO4ERROR4GET?GOTO3ERROR3GET>GOTO2ERROR2GET=GOTO1LSGNUSRGET5GOTOAERROR5GET4GOTO@ERROR4GET3GOTO?ERROR3GET2GOTO>ERROR2GET1GOTO=LSGNUSRANDANDABSABSACSACSADVALADVALASCASCASNASNATNATNAUTOSUMEXITBGETBGETCIRCLEBPUTBPUTFILLCOLOURCOLOURELLIPSECALLCALLELLIPSECHAINCHAINELLIPSECHR$CHR$CLEARCLEARCIRCLECLOSECLOSEFILLCLGCLGCIRCLECLSCLSCIRCLECOSCOSCOUNTCOUNTCIRCLECOLORCOLOURELLIPSEDATADATA DEGDEGDEFDEFDELETEWHILEEXITDIVDIVDIMDIMELLIPSEDRAWDRAWELLIPSEEND

17231           ENDPROCCIRCLEENDENDCIRCLEENVELOPEENVELOPEELLIPSEELSEELSEEVALEVALERLERLCIRCLEERRORERRORMOUSEEOFEOFCIRCLEEOREORERRERRCIRCLEEXPEXPEXTEXTCIRCLEEDITENDWHILEEXITFORFORELLIPSEF

17747           FALSECIRCLEFNFNSWAPGOTOGOTOGET$GET$GETGETGOSUBGOSUBGCOLGCOLELLIPSEHIMEMHIMEMCINPUTINPUTELLIPSEIFIFELLIPSEINKEY$INKEY$INKEYINKEYINT