MZ@ !L!This program cannot be run in DOS mode. $PELZA 7(" @p@X`.text `.data @.bssp0.idataX@@.rsrc`2@PU5$AEPh Ah A ÍvU$At{jjujjt t jл؍e[^USh@x poxDA05 A5 Aà 9S@ U1ÐUBBC BASIC for Windows 3.13aBBCWrunBBCProgvCouldn't allocate virtual memoryInsufficient memoryCOMCTL32ADVAPI32SHELL32.bbcUWVS@PhjPLhjP- @E0EE@EEEEăh @PEEj EEE@h @URE܃EPj@h hjm T uj0h @hP@.j@hhTQ4 uj0h @hq@j=1t A A Aƀ A@ A@E=$AǰIf A$Ah@ h@ h@ hSj jjjjjhS ƃ,jjjV| Lj\SjPVc  t ;LVI URQ6 "u-PPRj"Q j.Pƃj\R 9wh@QjjjjjhPƃ#jjjVsLDžDžDžƅDžDžL A+; AXPh@0AhRXL$A@0A@0AIf P$AjjVj\R)LLP5 AVhSRFVr j Dž`DždhlDžpDžtx|jhpPpx)t|)‰jMQjjhhhSh@jcËt P t&uSHSD ],$AtSP1uS)S+ jjjS$uChjTPE荥([^_U ABBCWinU WVSjPj5P AT AttEܻ 8 Axu'j P5 AMj 8 A5 ABNy18 A@tVj P5 A=L At90豨@j 35 Aj 35 A@tNy5 A5 A5P Ax A~Cannot create screen bitmapCannot create screen character mapCannot create palette&Cannot allocate clipboard memoryCannot open clipboardsequencervU|WVS] uSw]w'!w:wm w3w~ly US w<6*;wrw9t& gw  w2w x e=6EPƃj&V]$Aj#AhhVǃ$VURuj0h@h@Dhjm Auj0h@h@t&j7P5#AK]S5#AAE#AE#AW5#A0Ahbhhjj5#A jHjffG11҉ȍt 8D1tt 8D1tt 8DDF~W#AWX #Auj0h@h3@jjP5#AN 0Ahj $A1fDžBEDž$P_ i #AƒPh, AV rgS5#ApE#AEE#AjX5#A0)Ѝ 4g )‰#AjZ5#A)Ѝ )‰#Aj5#AjX5#A)Ѝ ))։5#Aj 5#AjZ5#Au)Ѝ ))։5#Ao$An$A$AjhjeURAj jjMQ:jjjj%$ APEP#A#AhP1AU$A( AM1jhS@1t&EPƃj&V]$AVUR~1PMQS ;;C;;5 $AC"A"A)P5#AjEP$"A"AP5"A="A UR ;u =]$AMQzƃj5#AV5#AVVEPN UR1 }p Ap Aw~j*p Ap Aw=p Ahjp Axp A~BF$"@#@ #@'#@0#@C#@G#@P#@T#@X#@`#@d#@h#@p#@t#@x#@#@jjjMQ}yut&lhdt&\XTt&LHDt&<$AtURVSPMQL> EPVSUR@* &uj- f|u-j f}uj f}P菜j0F߃^$D$@%@%@%@%@%@%@%@%@'@'@'@'@%@%@'@'@'@'@'@'@'@'@'@'@'@'@'@'@'@'@'@'@'@'@'@'@'@'@'@'@'@'@'@'@'@'@'@'@'@'@'@'@'@'@'@'@'@'@'@'@'@'@'@'@'@'@'@'@'@'@'@'@'@'@'@'@'@'@'@%@&@&@&@&@&@&@ &@$&@(&@0&@4&@8&@@&@D&@H&@t&vrnt&fb^t&VRNt&FB>t&62.t&&"t&t&v/j f}vj f} C~<wjm f}Cx<wjQ f}Pu=j011 uj f}uo$A@u o$A1vP舙uj0ՃhP1A^0A0A 90AtjWEP`SURƃ=n$AuhPWDt&h lQhR5#At)Pp)PQRVWH %n$ASMQ9hP1A,9E"A"AP5"A( AEP19E"A"A)P5#AjUR:"A"AP5"A&="AXMQG o$Ah9Eu"A"AP5"A!A URVSP o$A   A9r : t1;w%FJ9r: t)ʍ4;vۃFPh uj0h@hP@MQt&􋅤PƋ  A ;w?J9r: t)ʍZSQVJ F F;v􋕤RaMQ uj0h@hq@EPvRj1n!At"MQVjP蓖 o$A 1J&( A"A"AMQ"AURVSP5 o$A  o$A]j jjjMQSA u=o$AuσhP1Atj5 0A5#AN#At PQ #At PD 50A5#Aǃ#At P t W  At P 5$ AXjEPzjeURw= Au ji 5!ANy!A!A$At-jjhPjjh5$A$AL A= At&j = Au1۾vX At!PX AǃX A Nyϡl AP5l Arl A= AfDžfDžDž"VDž"VfDžfDžfDžhjh/@Pjh At QL AjjjjP Ajjh@h|jl AP{{JNyDž8 Avj jPX A PI8@L@ @@ LNyF00A8 A1۾j 45 Aj 45 ANyNDž@Ph"hjƅ$AMPjhRaƅjjh5$AC$Ajjh5$A$A;5 A;5 Awfv9yj@h A)RPhZ5 A-$AtURVSPMQEPVSURx[^_UE =t=tT&T AAt&=T A+00A'w T A T A5P Ag~~~~l|88||88888|8|<<><~~<ffffff{>88xʴʴ<~~<<~~< 0``0$ff$<~~<000000llllllll~|00` 8l8vv0`0```0`00`l88l000000`00 0`xx0p0000x 0`x 8 x8x x8`x 0```xxxx| p00000000`0``0`0 0`x000xxxxxxx00000|pxxxxxx x000000xx0x0xx000 0``0 | |8l`0x ||xx ||xx8`````|| x0p000x0p0000p00000xlxx|| |x `````8|x0lx0x| x0`0000000000`0000`v8l(C) Copyright R.T.Russell 2005 t Af 0C#Ar"A0!Ap4@r!A !A !Ao t"A"A'%!Ar"A$ 0"A1҉!A!A!A!A"A"A"A At "A!A|!A5!A!AIC5!AANDABSACSADVALASCASNATNBGET BPUT COLOURCOLORCALLCASECHAINCHR$CLEAR CLOSE CLG CLS COSCOUNT CIRCLEDATADEGDEFDIVDIMDRAWENDPROC ENDWHILE ENDCASE ENDIF END ENVELOPEELSEEVALERL ERROREOF EORERR EXPEXT ELLIPSEFORFALSE FILLFNGOTOGET$GETGOSUBGCOLHIMEM INPUTIFINKEY$INKEYINTINSTR( INSTALLLINELOMEM LOCALLEFT$(LENLETLOGLNMID$(MODEMODMOVEMOUSENEXTNOTONOFFOFORIGINOROPENINOPENOUTOPENUPOSCLIOTHERWISEPRINTPAGE PRIVATEPTR PI PLOTPOINT(PROCPOS QUIT RETURN REPEATREPORT READREMRUN RADRESTORERIGHT$(RND RECTANGLESTEPSGNSINSQRSPCSTR$STRING$(SOUNDSTOP SUMSWAP SYSTANTAB(THENTIME TINTTOTRACETRUE UNTILUSRVDUVALVPOS WHILEWHEN WAIT WIDTHHIMEMLOMEMPAGEPTRTIMENo roomJump out of rangeSize neededMultiple labelMistakeMissing ,Type mismatchNot in a functionAddress out of rangeMissing "Bad DIM statementDIM spaceNot in a FN or PROCNot in a procedureBad use of arrayBad subscriptSyntax errorEscapeDivision by zeroString too longNumber too bigNegative rootLogarithm rangeAccuracy lostExponent rangeBad MODENo such variableMissing )Bad hex or binaryNo such FN/PROCBad callIncorrect argumentsNot in a FOR loopCan't match FORBad FOR variableSTEP cannot be zeroMissing TOMissing OFNot in a subroutineON syntaxON rangeNo such lineOut of dataNot in a REPEAT loopWHEN/OTHERWISE not firstMissing #Not in a WHILE loopMissing ENDCASEOF not lastMissing ENDIFBad MOUSE variableNo such system callBad librarySize mismatchDATA not LOCALCF< us< t<,t.+<(F?<)tF@<$(r<(tފFsԊC<(uC"At~%t ~$t<#uZ<$t<%t<#t81!AډFFrC<%t<$t<#t"At N#CF<(uCCSu?u^O;T$ uV;Wu SQWSQRVWU11PSVWUQR QR [X 6[X 6]_^[XMu]B_^ZY[⦉_Y[Ku^][YXJuyzPU6jHuϨyzPU6j-uyzPU5JR$6<,uFpR5l[X]$}fEuQW ff_Y9rY y )s1)v9rωJ,$!AVyl^uP>5PU5_[u;81@utـtt ttEE닰AV=!A< ׹< 5!A< ^hPI6trà y PQ$YX$R@tցR@tӁiQ@tˁN@t2T@t2_b@tY:T@t;M@t#S@u[^5!A[A[!A[_[`a[[PQRZYXt[]$xL$T$XYZQRQT$ ;YZX5(u !A>(UR1FQW_Y xBRA>,3ʋ-!MEذ$X܉-!)<,: tIt V^ta5ˍ$)r!9r)܉:PS )V^,$ \ *r퍌$9r-!A}02<,6F2@utx2 0fϸʴڸfݴܳ۰/5!uFQR1ɀ>uF u Ұ#tQRV Y!AYT $N@tT@tށR@ut<,t ;l$uql$D$nD$ \$u ۜ $-l$ \$QR ZYD$\$xӽ,u ,<,u Fgt$B $N@tT@tR@ufYY!Aϰ!0P0Pz NVYt)rQ!A t!A^tËA,<(2,<(0F",u?' uffF F*<"t< u4T!A& STOP!!Amlltڱ谪lrҳmܱmomڱ簪p簪l6аǰlܰuܰu"z屹lnvɰפɰvyyЯ3氪ɰy$ɰxw۳ѳvɰvvvyyy,xɰy9ɰ9Ⱚ氪$u F!A׹0 (kn@C:h* 52_c/1:k ^# x-·&X2x?h)SaQYӺo%(Ny9?!I@|o|樭7EW߄v |Η@½pQv0rÊAr"At߀7À:r0F+t-tNÑڑuMULu8 ynXTLTLx7szIjq_\!AT!AL$t 9<Fy "AI1ɱv+ 8S" 8û.e)u 1ɺ t  !ǃ1SWUQRȉӽ [X ]_[Ou qxLpvȜ*{~[tt81۰ûI  KRV ^[yyS r@.seoO.v7my*{O}V~[S x'[ yۀÀr x  xÀt8HȇHr1ðJ  xtہ35ϱrS QRȉw Ht}~L~㩪*[XR[QRt*sLjQd$sx[X8 V[^~8{  QRȉ;m[XtS6  RT~QRU ZYr"yQRA ZYr  QQRȉE 57{k|Aa|{7}Z*L}\~[X[Ss [s {[ y8z 8 u "A' S 0 <,uF gY tH [SVև^[u)܉19s() t Ku9rQVWF t_^Yu  3<!A y <#t@6!Ajs< t< t tfBufJы!A) c tr16 <,t FB1 9s  9sV)ˉ׍4;QY^ 4~ 0TYx R^ h [ tKtQYVցQ9YtKu^!A) ðuˁsVʉ֋=!ANO^`!X1P H Й5 Й)q  q) tt߈ʼn1؜18s͇Ӊ(t̀ r r1xs)u!)s xu=urug y8ðv ttt݈ʼn1М19r9Ӊur (r x Z_xx8Éq tt߈ʼn1М x=ur1 t%ySȉӺ1ɽ5[ r u1QR1ɺPSȉӽ s\$D$ [Xu҃tPS,s%< s1 us1^{[X sB: v$ r1J111 ucwt WEtrV 9'u111$2F2&F1F=!AQ0Yxtu8t'@'ׇ!A) C<~tz@w Att A=!A1ty-Gq y-GiM/S[1I SW׉11{u1_[ tQ9YCMEuu  y11 ss C u uMEutEtك"Au ~1Ƀ|RMu 9˱C9|كf0. t0GCu u.GKI`u!A) IFu~.GI5uEGK1Ez@[WU_9s AQ0G YSQW1ۿ t1 u!!_Y[''''ÑCtuCՀsـ s1u sp1 t8tss9i!018r')ss̀8r s) xFuÑ u. t*"A  Ҝyʀـx91y1yچ8u91y1yڑ9u99ˉstÝÍ$);-!Ar])QD$ W|$_0陿]!A׉QYQR ]$L$'[X]QRE]Uf]E]Ux"D$\$])AsIIxs)ArA)sI8u@F)uF8tN8<=mb8uF$<>s<=s<F6@uE"A u utT A0u1ɉȉϻQ@=_YXuftKftDt ttiugAu>^"S?@1[t%u:>:uFd$uʯ1ɇ@uu $[t_YYXX_YYXX̀_ZY]Xct`P YXtUPMXtIPf @Xt

r"At;= As_^ð鰱N> :t ACt;uPVFC>:^ݰijXF< t A> @> B B/ BA BB BB BB BB BBBBBBA/AAA/A//A/BBBBBBBABABABBB/BBB/AABBBBB/B/BAB/BBB/BB BB!BB"BA#$A$$A$$A$BB%BA&BA'BA(BA)BA*BA+BA,BA-BA.BA/BA0B/1BA1B@1/>3A>3@>3BA2A<3B3B/3BA3BA4BA5BA6BA7BA8BA9BA:BA;BA<BA=BA>?/////7//7//7/7/////////02345/012345/////////////////////////////////////////////////////////////////////////////////////////=&='=(=)=+=,=-=.=/=0=4=5=6=7=8=9=:=;=<A==A=>A=?A=@A=AA=BA=CA=DA=EA=FA=G//BBBBB/BBBABABABABABABABABABABABBBBBBBBBBB/B/BBBBBBBB/BB/BBB/B/BBBBBBB/B/B/B/BBBBBBBBB//?B/B/BBBBBBBBBBBBBBB/B/BBB/B/BBBBBBBBBBBBB/B/B/ BB BB BB BB BB/BB//?B/B/B/B/B/B/B/B/BB/BBBB/B/B/B/BBB B!BB"BB#B$BB%BB&BB'7 ?$""%%## !bPHff<::==;;89f'/8XOiiiGlfmswvrfrt}~|P-H-rvwssu|~}q{yupz{zxtſĿff`С``LJ```     nfofaf_f`fWhӗїӟџ@@Ӈчӏяӧѧӿѿfӧѧӯѯf,**--++()Щ422553301 ѺѣѺѻѺѳѺѫm oa`٤٬٬٫ @ggggg•1܇އܗܟޗޟܷ޷ܿ޿݇ۯߧ߇ٯ٧܏ޏݧݷݷݗݟۿߗߟ߷ٿٿٷٷݿݿܧާܯޯA"2Rbr#3Scs$4Tdt%5Ueu(8Xhx )9Yiy 0@P`p  0 @ P ` p  0 @ P ` p  0 @ P ` p  0 @ P ` p 0@P`p 0@P`p((( (0(@(P(`(p))) )0)@)P)`)p*** *0*@*P*`*p+++ +0+@+P+`+p--- -0-@-P-`-p... .0.@.P.`.p/// /0/@/P/`/pHHH H0H@HPH`HpIII I0I@IPI`IpJJJ J0J@JPJ`JpKKK K0K@KPK`KpMMM M0M@MPM`MpNNN N0N@NPN`NpOOO O0O@OPO`Op 0@P`p 0@P`p 0@P`p 0@P`p 0@P`p 0@P`p 0@P`p$ -6?@IR[mv ()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_hijklmnopqrstuvwxyz{|}~~#A2"A#AÇ%$Aj0jR5$At%$AÉ%$A% Aj+-$A A A AE!A!AƉ"AƉ"AƉ "AƉ$"A"AƉ8"A3"A4"A ,"APSQRZZY[X u>o$AuNo$Auv%o$A%1ۇ"A ta:<o$Aua`%$Aj ]v%$Aa-uo$A uGo$Au%o$A="Au`jao$Auyo$Auo$A%o$A8%o$Aߠ#A:#AtGS$"AË#A#Ay$A#A:#A[t o$A 1ۉ"A"Au9M%$Ajt"A tP~q"A t#PjqP5#Ai$qiRq"A tPCqo$Ap%$Ajjh5$ACs%$A]%$Aj t%$A%$At%$A;$A$As "A1һ "AP%$At%$A1һ Z)‰"AOR<,tYEPPP)RYY[zRCYeְ!AK Bۼ>,t ְ-Rр>,۰ڈֈʈݱ݈İ鬙蔼0ۀ>,ڰֈx<uFnRRZY=u1(<uF,u>tM[ZYPZٝa1Ҵ ډ1ɴ ى1Ҵ 1ɴ pFR舻R_X[ZYPYZ0Otĉ:TRR~Rx_ZYڴ 0ɰ4 - &    ROY[1u<(sFºR&YZ1Èư 蝺 x-JjjjjR%$ASjzk%$AZ1ڃs#A*#A#A*#Ats,1F-*Y[1"A u2"Au r`%$Aj *h%$Aa{tݰSQ2"Au91ۇ"A t *"AY[*됐< u Ӑ 뽐PƁÉ׊G3PÇ8< t<|t?@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@?>=;9742/,)&#    #(,059>BGLQUZ_ejotz&.6>GOX`ir{  ,8DP\iv,<L\l| /BVj~*AXp9Tp:Yx < ^  7 ^ $ N x & T  @ q >sO8t/o4xI$oWHEM`G|Q345s8v%fgz{y,WET7I90(hi12DR6UOP&kml-$!AXFYJK on"SCGHNL.j Z VBM#`acpqrtuwx'debKERNEL32USER32GDI32COMCTL32WINMMADVAPI32COMDLG32SHELL32= AtR`%$Ajjh5 AD%$Aa A`%$Ajjh5 AnD%$Aaã A`%$AjPh5$AFD%$AD$aË"Aŀut.MID%$Aj5"Ah5$AC%$A=v uðdDevice unavailable`0"A5 S%$AjSDPPjkDY ‡%$A[)T$SP%$AjPQRSD%$AX[%$ASC%$Aa%$ARD%$AhQZ uZ uJ)GB Ѝj`%$Ah jUPrrjjQSWV5#An8(@%$AaRQSWV%$AjP5$A2BK8%$AZR/Z:,uBRZSn_%$AWw h jVWvvjjQSRP5#A?6C%$AwSQ"A YZt@P`D$ %$AjPQRSfC%$AaXtPQR%$ASB%$AZYX9A%$ARB%$A3 u#A u #A)G`%$AQS5#A,7>P5#Ar>$PPSPv>%$Aa%$AXh WV5#AQSjjP>6>$PjS>D$d$[Y ]%$A䘺r@r r1ҸÃ6`%$APjA%$AD$a rBCMCCS PSRڃ%$AUjSRQjU5#A(C jSjjjU5#A6=\$C{ rC=5v=%$AZ[Y)ЉC"C2Ë"A ŀut .BMP<,uBv<,uBj<,uB^·3Á= At*`%$Ajjh5 A?%$AaSQ0`YZX= At%`%$AP5"Ah5 AR?%$Aa9ð1`rSQ0YZ P`D$ %$AjPQRS?%$AtoaXSQ!erSQYZ t3P`D$ %$AjPQRS@%$AatX9cÇ%$A?%$At tnuq_File or path not found= t {t=u@_Bad directoryu&_Too many open filest!tt tRu^Access deniedu^Invalid channel=u^Bad deviceu^Disk faulttlu^Disk read onlyul^Device faultPt=uL^File existspt'u/^Disk full^Unknown error ^Bad commandSrX 8"AݍL"AK :K!u.0Ɂ;&C#u0[ÊK [Ã<"APP`%$A5$ AjjjjRPjQS5$ Ae>=u+==uo$Au+jd5$ A=-t%$AaYX[Ç%$A\$%$AjS=SrV 8"AݍL"AK :K!u&0Ɂ;P $XK K"K#[Ã<"APP`%$A5$ AjjjjRPjQS5$ Af=<u+<=uo$Au*jd5$ A <-t%$AaYX[Ç%$A\$%$AjS< uUQWL"A t;"At ;"At5C߿<"A tC_Y`rP 8"AݍL"A;P t#1C  z%$AP:%$AaÃ[<"A1PX"A:t":*tz:ukztezt_ztY%$A`P1BBCL$AWG G4_A"A"A$P%$APP5$Aj5$AË$#AD$D$#AD$ QRjSP ZYX][)X)`jUjj0a,;l$~L$); $} $,;l$ ~T$ );T$}T$jPSRQ5$ASXP=#AuMjt$ "APP5#Af8P5#AXD$8XvRXPjjjjjjt$jjjh jj5#A5#A t(PP5#AYX"A tP{XjBy$bhhjj5#A'j5#Az%$AXy/f f"A%"A%"Af"A%"AܸL%"Aun= A "A#A"A"A"A"A="A@1=,"A@W  @@ X X``88@@ !!!!"AfC=#AfC=#AC#A"AC#A"A"ACȢ"A|#AC<t<tA< sTt<u$Ct %"Au "A lC< t< t È%"AX%"APCc$)Al%=,"A"A%$AÀ="Atf{#Afy#Ax#AÃ%$AP5$Am%$AXX[Y #A #A1#A #A"A"A"A"A"A "AI"A"A"A "A"A "AAʉى&|#A|#AE-#AÊE-#AE-#AŠER-#AZ x]9}Y; #AQ xM9}I;#AA"A "A"A"A"A;"A|Y;"A}Q"A;"A|D;"A}StretchBlt?StretchDIBitsCTextOutA*CreateFontAAnimatePalette4CreatePalette6CreatePen:CreateRectRgnArc?CreateSolidBrushBDeleteDCEDeleteObjectKEllipseLEndDocMEndPage BitBlt`ExtFloodFillbExtTextOutAdEnterCriticalSection{ExitProcessBuildCommDCBAFindCloseFindFirstFileAFindNextFileAGetCommandLineAGetCurrentDirectoryAGetCurrentThreadClearCommError GetFileAttributesACloseHandleGetFileSizeGetFullPathNameAGetLastErrorGetLocalTime GetModuleFileNameA"GetModuleHandleA:GetProcAddressMGetStartupInfoAjGetTickCount~GlobalAllocGlobalFreeGlobalLock(CopyFileAGlobalUnlockInitializeCriticalSectionLeaveCriticalSectionLoadLibraryA-CreateDirectoryAMoveFileA1CreateEventAPurgeComm4CreateFileA ReadFileRemoveDirectoryAResetEvent,SetCommStateKSetCurrentDirectoryAOSetEndOfFileSSetEventVSetFileAttributesAXSetFilePointer_SetLastError`SetLocalTimeuSetThreadPriorityySetUnhandledExceptionFilterSleepVirtualAllocDCreateProcessAVirtualFreeWaitForSingleObjectWriteFileUDeleteCriticalSectionWDeleteFileAAdjustWindowRectwDefFrameProcA{DefWindowProcADestroyCaretDestroyWindowDispatchMessageAEmptyClipboardEndPaintFillRectGetAsyncKeyStateGetClientRectGetClipboardDataGetCursorPosGetDCGetFocusGetKeyStateGetMessageA&GetWindowLongA)GetWindowRect3HideCaret=InvalidateRect?InvertRectIIsClipboardFormatAvailableWKillTimer\LoadCursorA`LoadIconAvMessageBeepwMessageBoxAMoveWindowOpenClipboardPeekMessageAPostMessageAPostQuitMessageRedrawWindowRegisterClassExARegisterHotKeyReleaseDCScreenToClientScrollDCSendMessageASetCaretPosSetClipboardDataSetCursorSetCursorPosSetRectEmptySetTimer2ClientToScreenShowCaretShowWindow3ClipCursorSystemParametersInfoA4CloseClipboardTranslateMDISysAccelTranslateMessageUnregisterHotKeyUpdateWindow<CopyRect@CreateCaretPCreateWindowExA BeginPaint@@OLE32.dll@@@@@@@@WINMM.DLL(@(@(@COMDLG32.DLL<@<@<@<@<@<@<@<@<@<@<@<@<@<@<@<@<@crtdll.dllP@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@GDI32.dlld@d@d@d@d@d@d@d@d@d@d@d@d@d@d@d@d@d@d@d@d@d@d@d@d@d@d@d@d@d@d@d@d@d@d@d@d@d@d@d@d@d@d@d@d@d@d@d@d@d@d@d@d@d@d@KERNEL32.dllx@x@x@x@x@x@x@x@x@x@x@x@x@x@x@x@x@x@x@x@x@x@x@x@x@x@x@x@x@x@x@x@x@x@x@x@x@x@x@x@x@x@x@x@x@x@x@x@x@x@x@x@x@x@x@x@x@x@x@x@USER32.dll: P:8::h:BBCWRUN`c( @0x3  0pppppppp3pppppppp30 33033 30 33wwwwwwwwzwp3wx 3pxpxpxpxpxpxpxpxpxpxpxpxpxwwwwwwwwwwxwwwwwwwwwwp? # Compile with 680 x 480 window *FONT Courier New,10 S'" Program PERFORMANCE by C.P. Doncaster compares any two balanced designs of" S( " Analysis of Variance or Covariance in terms of their relative performances" <2 " at a matching power of 0.8 to detect a real effect." T<'" The performance of an alternative design relative to a reference design for" TF " the same fixed treatment(s) is the fractional error variance allowed of the" FP " alternative for it still to match the power of the reference." VZ'" At a power of 0.8 this fraction is approximated by the the ratio of reference" Vd " to alternative critical F multiplied by the ratio of alternative to reference" Nn " effective sample sizes. Adjusted values are accurate to within ~0.01." /x =17 tL@ :: " at line ";: alpha=0.05 ROW%=13:@%=11 U0,ROW%)" Critical Type-I probability (default = 0.05) : ";alpha;" " ):51,ROW%)A$: (A$)>=0 (A$)<0.8  A$<>"" alpha=(A$) !51,ROW%)"";alpha;" " 0,ROW%+1)" " E " Reference Alternative " E " Test degrees of freedom " E " Error degrees of freedom " E " Effective sample size "  I%=1 7: (78): ' p%(1),q%(1),s%(1),Fc(1),Model$(1) .COL0%=37:COL1%=14:p%(0)=0:s%(0)=1:s%(1)=-1  I%=0 1 C p%(0)>0 p%(1)=p%(0):COL0%+I%*COL1%,ROW%+3)"";p%(1): TlA 1":COL0%+I%*COL1%,ROW%+3)""p%(I%): p%(I%)>0 1,:COL0%+I%*COL1%,ROW%+4)""q%(I%): q%(I%)>0 96 s%(0)>0 COL0%+I%*COL1%,ROW%+5)""s%(I%) s%(1)=-1 @ s%(I%)=0 s%(I%)=s%(1-I%) J ;T s%(1)=s%(0) s%(1)>0 COL0%+COL1%,ROW%+5)"";s%(1) ^: .h0,ROW%+7)" Calculating F[";alpha;"] ..." r J%=0 1 |exact(p%(J%),q%(J%)) 0 Fc>=10 DP%=1:@%=&20108 DP%=2:@%=&20208 )Fc(J%)=((Fc*(10^DP%)+0.5)1)/(10^DP%) &COL0%+J%*COL1%,ROW%+7)"";Fc(J%);  8," ");  2@%=11:0,ROW%+7)" F[";alpha;"] ";26," ");"=" ' s%(0)>0 LIN%=11 LIN%=9: THB 60,ROW%+9)" Treatment/error effect sizes =";  I%=0 1 ,find_theta(p%(I%),q%(I%),s%(I%),Fc(I%)) 5@%=&20208:COL0%+I%*COL1%,ROW%+9)"";10^(RATV/2);  " at 80% power" %RELPERF=(s%(1)/s%(0))*Fc(0)/Fc(1) g Ajust for under-valuing at p=1 by replacing ratio of Fcrit with ratio of (Fcrit+[alpha/0.05]^0.2) i p%(0)=1 adj=0.2:RELPERFadj=(s%(1)/s%(0))*(Fc(0)+(alpha/0.05)^adj)/(Fc(1)+(alpha/0.05)^adj): TzB f& Adjust for over-valuing at p>1 by replacing ratio of Fcrit with ratio of (Fcrit-[1-1/(p-1)^0.8]) X0adj=0.8:RELPERFadj=(s%(1)/s%(0))*(Fc(0)-1+1/(p%(0)-1)^adj)/(Fc(1)-1+1/(p%(1)-1)^adj) e:@%=&20208:0,ROW%+LIN%)" Sample-size weighted ratio of F[";alpha;"]":49,ROW%+LIN%)"= ";RELPERF D@%=11:0,ROW%+LIN%+1)" Relative performance adjusted for ";p%(0);:@%=&20208:" test d.f.":49,ROW%+LIN%+1)"= ";RELPERFadj; N" at 80% power"; X tL@ b l: v: find_theta(p%,q%,s%,Fc)  Value of Z at beta = 0.2 Z=-0.84162 RATV=3:J=10:B=Fc*p%/q%  J%=1 5 (J=J/10::RATV=RATV-J:find_IT: IT>0 (J=J/10::RATV=RATV+J:find_IT: IT<0   : find_IT %R1=1+s%*10^RATV:R2=1+2*s%*10^RATV 4IT=(((2*q%-1)*B)-(2*p%*R1-R2/R1))/(B+R2/R1)-Z   : exact(p%,q%) "  Find the value of critical F &* p%>2 q%>3 I=0.001 I=0.0001 4F=9.95*10^-6:P=0:cF=0 #>a=p%/2+q%/2-1:b=p%/2-1:c=q%/2-1 Hfactorial(a):A=N Rfactorial(b):B=N \factorial(c):C=N IfdFOLD=(A-B-C+0.5*(p%*(p%)+q%*(q%)+(p%-2)*(F)-(p%+q%)*(q%+p%*F))) p zF=F+I 6D=p%*(p%)+q%*(q%)+(p%-2)*(F)-(p%+q%)*(q%+p%*F) dF=(A-B-C+0.5*D) cF=cF+I*(dFOLD+dF)/2  cF<=1-alpha Fc=F dFOLD=dF  PRINTTAB(0,V%+4)dF,,cF,,F  cF>=1-alpha  : factorial(n)  n<-0.4 N=()/2: n%=(n+0.1) 1 ( n-n%>0.4 halfinteger integer  : integer $ Integer factorial .N=0 8 I%=1 n% BN=N+(I%) L V `: jhalfinteger t Half integer factorial ~N=()/2  I%=0 n% N=N+(2*I%+1)-(2)   b-6