13184 c6809 EXTENDED BASIC(C)1982 MICROSOFTANDEXITENDWHILEELLIPSE{CHR$GETVALOELSEADVALqDIVU&WAITEXITERLrINKEYFNDIV&ELLIPSEnFNEXITOPENINELLIPSEDIVoEXTEXITTHEN&RETURNEXITOPENINELLIPSEANDEXITERR0ERRtERR'ERR#0SPCOSCLI8ERR!OPENINANDSOUNDENDWHILEzSUMSWAPCHR$DIVENDWHILEENDWHILE

 8134 CHR$DIVENDWHILEOPENINTAB(OSCLIENDWHILECIRCLE

44877 CASEOPENINCIRCLEROTHERWISE9*INSTR(ANDZ&COLOURTANCIRCLE}CHR$ERROROFFOPENINCIRCLE>ERRLINEENDWHILETHENCLEARSUMTINTVDUDIVZ&COLOUROPENINANDSWAPCHR$LOMEMCHR$GETPOINT(OPENINANDCHR$LOMEMCHR$GETPOINT(OPENINANDSAVEERRrLINEUASCq~ORENDPROCCHR$ERROREXP DATA;EXITpORTHENCLEAR~DIVDRAW~ANDHIMEM~THENCLEARANDOWHILERY?DIVPLOTEORCASE$MODBMODCASECHR$CIRCLER4ERLzDATA|ERRjASCm5ADVAL CIRCLECHR$CIRCLE^BYxOPENINCIRCLEDIVSUMCIRCLECHR$GETTIME+-CHR$GETEORDIVOTHERWISE'MOUSEDIVSWAP&SYSZ'FOR0LINEOTHERWISE 4DIV&TINTZ'CALLLINE

41125  REPORTDIVFILLCIRCLE'ORIGINDIV & O4CIRCLECHR$TIMECALLoOROPENINCIRCLEAND5DIVDIV %GET$DIVOTHERWISE$USRMID$(STOP$SQRINSTR(AND\CHR$GETEVAL OPENOUTCHR$DIVINKEY$~GETREPEATCHR$DIVINKEY$~INKEYINSTALLEXIT'SYSLINECHR$PTRSAVEERR~DIMINTEXITERLINKEYERLFNCALLEXTADVALEVAL4ELLIPSEADVALEXP5CIRCLEOPENUPERR~4CIRCLEASCEXP5ELLIPSEASCEVALCHAINEXTERRFNEXITERRINKEYDRAWINT9CHR$CIRCLE[~LINE~ADVALx&FILLCHR$GETSPCBYxASCSEXIT& bASCV~PTR(CHR$GET{'CHR$SPCCHAINCHR$OPENINENDPROCOINSTR(ERROR9INKEYANDINSTR(LEFT$(Z&RUN99CHR$GET{'STOP~TAB(OSCLI;�:$� &~¥u€0€Ð9FOÒGÏ

42957 ELSEOFISUMDATMID$(PRINSOUNDOENDWHILEINPUSOUNDENSTRING$(NEXSOUNDDISAVEREASTRING$(RUENDWHILERESTOREOFRETURENDWHILESTOPAGEPOKEOFCONSOUNDL

17364 LEALOMEMNECHAINLOASTRING$(SAVEOFOPEENDWHILECLOSEOFLLISSOUNDSESOUNDRESESOUNDCLHIMEMMOTOLOMEMSOUNSTRING$(AUDIPTREXESTR$SKIPSUMTABINTTPTRSURIGHT$(THEENDWHILENO

17748 PAGEOFOPENUPLNPIDIMANSTRING$(OLOMEMGET$CHR$VPOSDEOTHERWISEEDISOUNDTROENDWHILETROFSUMDESUMLESOUNDLINEOFRENUSAVEFENDWHILEUSINWHILEERRORSINOFFOFFxOFFxOFFxOFFLENOFFuTIMEADVALOFFCLSSTEPTHENLINEBGETSPCw

50824 OFFTINTLINEwOFFULINEERRPTRIFLINESTRING$(PTRONLINEBPUTERRORERRORDIViDIVoOFFxOFFxOFFxOFFxOFFxLOMEM.OFFxOFFxOFFxDIVuOFFxOFFxOFFxOFFxOFFxOFFxOFFxOFFxOFFxOFFxOFFxOFFxOFFxOFFxOFFxOFFxOFFxOFFxERLbBGETdCOSDATACOSDEFDEGEXTSTEP&GETlERLPRINTSGENDWHILEINSOUNDABHIMEMUSLOMEMRNSTRING$(SIENDWHILEPEEENDCASELEENDWHILESTRFNVAOTHERWISEASSTR$CHRFNEOSUMJOYSTENDCASELEFTFNRIGHTFNMIDFNPOINSOUNDINKEYFNMESAVEATENDWHILECOHIMEMTAENDWHILEEXPAGEFICLEARLOWHILEPOHIMEMSQLOMEMHEXFNVARPTLOMEMINS

18772 MELOMEMPPOINSOUNDSTRINGFNABSRETURNACSlACSCIRCLEASCFALSEASCTRACEPTRENDPTRPRIVATE58703PTR-PTROFFxOFFxPTR8PTRTPTR[OFFxDIVLOG41624ASNLNASNRNDBGET#BGETUATNxCOSENDPROCATNRADEVALTIMECOSLETCOUNTLNOFFxOFFxCOUNTzyLOMEMCyLOMEM:{HIMEMJ{ABSBYOTHERWISEATNVALPELSE[FELSEZNFSNRGODFCOVOMULBSDD/0IDTMOSLSSTCNFDAODNIOFMNOIEDSUFNE ERROR IN  OK BREAK0dSUMERRBYINKEYORANDAND&OPENOUTCIRCLEERRERL;' œ'

14863  GOTOERLERR;žM9�ÞA3AžC0
¦‚6œG&øßE9OXÓÃ:%ß“%îÆ½
d½
g½…¡½‘Ö½’)Ž„!:�=�;Ž„V½’–hL'½–I½‘ÚŽ„c½’½� Îÿÿßh%Ÿ€½¥u'ï%½�¨~†4Ž„h½’½‘֠ܦ€~’+½ˆž+¿
~½�¨×�M%

33955 HIMEMDEFONOR7ELLIPSEINSTR(ANDCOUNT&RETURNSQRCIRCLEAND'DATADEFCCLSFILLSPCDEFACHR$ORABSENDWHILECIRCLE|7ELLIPSEINSTR(ANDCOUNTE&RETURNERLAERR653 44057OR'!3MOUSEINKEYLEFT$(&TRACEVDUOR

61472 DATA+ERLONOR'SYSEXITFALSEELLIPSE#QUITOPENOUTOR READCIRCLEERRG9&COLOURERLoANDoANDERRERLCHR$OFFPERL'ERR#CHR$LINEwERLERRERROPENINCLEARERRWAITOPENOUTGOSUBEXITDIM!oENVELOPEBY-BY.BYSWAPnORLINEANDASCSWAPCHR$STEP&CHR$ORo2b&MOUSEERLBY2ERRORSUMSYSCHR$ORLENCHR$OFF}DATAh4CHR$TAB(REPORTCHR$SPCSTRING$(CHR$SPCRIGHT$(CALLTOFOTHERWISESOUNDPCHAINPEXITOPENINERRORNEXT~TAB(mOPENINHIMEM

37524 CHR$GET{DIVLEN&QUITCHR$GETuCHR$SPCRIGHT$(CHR$ABSMODECHR$TAB(iDATA;4†€4½
p½˜j¯½†~ž€Ÿ/¦€'�:'~Šÿ¦�—'}ì€ÝhŸ€½¥u� Ó'@�*'%�­'!M*
Ü�ÿ'�¼"¾
#H‰:½¥un”�¼#ÃnŸ
-½¥é É½¥u�—'�~Šÿž0Ÿ39½¥‘+ ½¥‰' �'�'—x9½¥‰'û î½¥{ 
&1ž€Ÿ/2bž