Home » Archimedes archive » Acorn User » AU 1995-11.adf » !Regulars » Regulars/StarInfo/Weaver/!Equs/!Runimage
Regulars/StarInfo/Weaver/!Equs/!Runimage
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
Tape/disk: | Home » Archimedes archive » Acorn User » AU 1995-11.adf » !Regulars |
Filename: | Regulars/StarInfo/Weaver/!Equs/!Runimage |
Read OK: | ✔ |
File size: | 5CB8 bytes |
Load address: | 0000 |
Exec address: | 0000 |
File contents
10REM Runimage for Equs 20REM 30REM For Acorn Computers 40REM Simon Weaver - 1995 50REM 60REM LEN Acorn User PAGE95 100 110PROCvarinit 120PROCmainsprites 130PROCloadtemplates 140 150$(FNim(infoW%,3))="1.00 (25-May-95)" 160 170PROCcaloffs 180PROCmenudefs 200PROCmodecheck 210PROCwindsetup 220PROCwimp 230 240DEFPROCwindsetup 250IFFNopensp THEN PROCopenw(openW%):PROCstc(openW%,2) ELSEPROCiconbar 260PROCopenw(rW%):PROCcentre(rW%,-1,-1,-1):PROCcr(rW%) 270ENDPROC 280 290DEFPROCvarinit 300ONERRORVDU7:PRINTERL,REPORT$:END 310indsize=2800:DIMm$(12),b% 3350,b2% 1024,indirect% indsize,name% 11,im% 150,am% 176,unkDAT% 101*14,XY(100,100,2) 320ex%=0:ey%=0:sigfigs=9:force=0:sp2%=HIMEM:warn=FALSE 330@%="+G.9" 340app$="Equs" 350SYS"Wimp_Initialise",200,&4B534154,app$TOwos,TASK% 360SYS"Wimp_SlotSize",-1,-1 TOminsize 370REM Constants 371 372ROOT2=SQR(2):ROOT3=SQR(3):AVOGADRO=6.022*10^23:MOLE=AVOGADRO:GRAV=9.80665 380 381REM End of Constants 400ENDPROC 410 420DEFPROCmainsprites 430file%=OPENIN("<Equs$Dir>.Sprites"):size%=EXT#file%+4:CLOSE#file% 440DIMsp% size% 450!sp%=size%:sp%!8=16:SYS"OS_SpriteOp",&10A,sp%,"<Equs$Dir>.Sprites" 460ENDPROC 470 480DEFFNopensp 490file%=OPENIN("<Equs$Dir>.Opening"):size%=EXT#file%+4:CLOSE#file% 500IFFNslot(size%+minsize) THEN !sp2%=size%:sp2%!8=16:SYS"OS_SpriteOp",&10A,sp2%,"<Equs$Dir>.Opening":=TRUE ELSE =FALSE 510 520DEFPROCquit 550SYS"Wimp_CloseDown",TASK%,&4B534154:END 570 600DEFPROCerrorhandle 610CASEERR OF 620OTHERWISEIFFNchoice("Problem inside Equs : "+STR$ERR+" '"+REPORT$+"' at line "+STR$ERL+" Continue execution?")=FALSE PROCquit 630ENDCASE 640ENDPROC 650 660DEFFNchoice(err$):!b2%=255:$(b2%+4)=err$+CHR$0 670SYS"Wimp_ReportError",b2%,19,"Query from "+app$ TO,r% 680IFr%=1=TRUE 690=FALSE 700 710DEFPROCmsg(err$):!b2%=255:$(b2%+4)=err$+CHR$0 720SYS"Wimp_ReportError",b2%,17,"Message from "+app$ 730ENDPROC 740 750DEFPROCiconbar 760d=FNslot(minsize) 770!b%=-1:b%!4=0:b%!8=0:b%!12=60:b%!16=68:b%!20=%11000000011010:$(b%+24)="!Equs":SYS"Wimp_CreateIcon",,b%:ENDPROC 780 790DEFPROCcaloffs 800!b%=mainW%:!b2%=unkW%:SYS"Wimp_GetWindowState",,b%:SYS"Wimp_GetWindowState",,b2%:mxoffset%=b2%!4-b%!4:myoffset%=b2%!8-b%!8 810!b%=coeffW%:!b2%=changW%:SYS"Wimp_GetWindowState",,b%:SYS"Wimp_GetWindowState",,b2%:cxoffset%=b2%!4-b%!4:cyoffset%=b2%!8-b%!8 820oxo%=cxoffset%:oyo%=cyoffset% 830ENDPROC 840 850DEFPROCmenudefs 860$im%="Equs":im%!12=&00070207:im%!16=210:im%!20=44:im%!24=0 870im%!28=0:im%!32=infoW%:im%!36=&7000021:$(im%+40)="Info" 880im%!52=&0:im%!56=-1:im%!60=&7000021:$(im%+64)="Data Setup" 890im%!76=&0:im%!80=-1:im%!84=&7000021:$(im%+88)="Help..." 900im%!100=&80:im%!104=-1:im%!108=&7000021:$(im%+112)="Quit" 910 920$am%="Format":am%!12=&00070207:am%!16=210:am%!20=44:am%!24=0 930am%!28=0:am%!32=-1:am%!36=&7000021:$(am%+40)="3 Sig. Figs" 940am%!52=&0:am%!56=-1:am%!60=&7000021:$(am%+64)="4 Sig. Figs" 950am%!76=&0:am%!80=-1:am%!84=&7000021:$(am%+88)="5 Sig. Figs" 960am%!100=&0:am%!104=-1:am%!108=&7000021:$(am%+112)="6 Sig. Figs" 970am%!124=&0:am%!128=-1:am%!132=&7000021:$(am%+136)="Full" 980am%!148=&80+(force=-1)*-1:am%!152=-1:am%!156=&7000021:$(am%+160)="Force EXP" 990am%!(28+24*((sigfigs=4)*-1+(sigfigs=5)*-2+(sigfigs=6)*-3+(sigfigs=9)*-4))+=1 1000ENDPROC 1050 1060DEFPROCloadtemplates 1070SYS"Wimp_OpenTemplate",,"<Equs$Dir>.Templates":indirectpos%=indirect%:position%=0:X=OPENIN("<Equs$Dir>.Templates") 1080temp1$="":temp=8:REPEAT:temp2=BGET#X:IFtemp2>=65ANDtemp2<=90 temp1$+=CHR$temp2 1090IFINSTR(temp1$,"OPENING")openW%=FNlt("OPENING"):temp1$="":temp-=1 1100IFINSTR(temp1$,"MAIN")mainW%=FNlt("MAIN"):temp1$="":temp-=1 1110IFINSTR(temp1$,"UNKNOWNS")unkW%=FNlt("UNKNOWNS"):temp1$="":temp-=1 1120IFINSTR(temp1$,"COEFFS")coeffW%=FNlt("COEFFS"):temp1$="":temp-=1 1130IFINSTR(temp1$,"CHANGE")changW%=FNlt("CHANGE"):temp1$="":temp-=1 1140IFINSTR(temp1$,"INFO")infoW%=FNlt("INFO"):temp1$="":temp-=1 1150IFINSTR(temp1$,"HELP")helpW%=FNlt("HELP"):temp1$="":temp-=1 1160IFINSTR(temp1$,"RESULTS")rW%=FNlt("RESULTS"):temp1$="":temp-=1 1170UNTILtemp=0 1180CLOSE#X:SYS"Wimp_CloseTemplate" 1190ENDPROC 1200 1210DEFPROCsp(no,spa) 1220b%!(88+32*no+24)=spa 1230ENDPROC 1240 1250DEFFNlt($name%) 1260SYS"Wimp_LoadTemplate",,b%,indirectpos%,indirect%+indsize,-1,name%,position%TO,,indirectpos%,,,,position% 1270IFposition%=0PROCmsg(temp1$+" Templates mucked up!"):CLOSE#X:PROCquit 1280b%!64=sp% 1290CASE$name%OF 1300WHEN"OPENING":PROCsp(1,sp2%) 1310WHEN"MAIN":PROCsp(1,sp%) 1320WHEN"INFO":PROCsp(8,sp%) 1330WHEN"HELP":PROCsp(4,sp%) 1340ENDCASE 1350SYS"Wimp_CreateWindow",,b%TOh% 1360=h% 1370 1380DEFFNwopen(!b2%) 1390SYS"Wimp_GetWindowState",,b2%:IFb2%!32AND1<<16=TRUE ELSE=FALSE 1400 1410DEFFNwfull(!b2%) 1420SYS"Wimp_GetWindowState",,b2%:IFb2%!32AND1<<18=TRUE ELSE=FALSE 1430 1440DEFPROCcentre(win%,fW%,fH%,so%) 1450LOCAL x%,y%,w%,h% 1460!b2%=4:b2%!4=5:b2%!8=11:b2%!12=12:b2%!16=-1:SYS"OS_ReadVduVariables",b2%,b2% 1470x%=(1<<(!b2%))*((b2%!8)+1) 1480y%=(1<<(b2%!4))*((b2%!12)+1) 1490!b2%=win% 1500SYS"Wimp_GetWindowState",,b2% 1510w%=fW% 1520IFfW%=-1 w%=b2%!12-b2%!4 1530h%=fH% 1540IFfH%=-1 h%=b2%!16-b2%!8 1550b2%!4=(x%-w%)/2 1560b2%!8=(130+y%-h%)/2 1570b2%!12=b2%!4+w% 1580b2%!16=b2%!8+h% 1590IFso%=0 b2%!20=0:b2%!24=0 1600SYS"Wimp_OpenWindow",,b2% 1610SYS"Wimp_Poll",%1000110000111000,b2% 1620ENDPROC 1630 1640DEFPROCopenw(h%) 1650CASEh%OF 1660WHENopenW%:PROCcentre(h%,-1,-1,-1) 1670OTHERWISE 1680!b%=h%:SYS"Wimp_GetWindowState",,b%:b%!28=-1:SYS"Wimp_OpenWindow",,b% 1690ENDCASE 1700ENDPROC 1710 1720DEFPROCcr(h%) 1730CASEh%OF 1740WHENcoeffW%:IFFNchoice("Continuing will cause this data to be lost!") PROCcr(changW%):PROCcw(coeffW%) 1750WHENmainW%:PROCcr(unkW%):PROCcw(mainW%) 1760OTHERWISE 1770PROCcw(h%) 1780ENDCASE:ENDPROC 1790 1800DEFPROCcw(h%) 1810!b2%=h%:SYS"Wimp_CloseWindow",,b2%:ENDPROC 1820 1830DEFPROCmenu(h%,xpos,ypos):latestm%=h% 1840SYS"Wimp_CreateMenu",,h%,xpos,ypos:ENDPROC 1850 1860DEFPROCstc(h%,i%) 1870SYS"Wimp_SetCaretPosition",h%,i%,,,-1,LEN(FNicontext(h%,i%)) 1880ENDPROC 1890 1900DEFFNctc(h%,i%) 1910SYS"Wimp_GetCaretPosition",,b2% 1920IF!b2%=h%IFb2%!4=i%=TRUE 1930=FALSE 1940 1950DEFPROCupd(!b2%,b2%!4) 1960SYS"Wimp_GetIconState",,b2%:SYS"Wimp_ForceRedraw",!b2%,b2%!8-5,b2%!12-5,b2%!16+5,b2%!20+5 1970ENDPROC 1980 1990DEFPROCsetstate(!b2%,b2%!4,b2%!12,b2%!8):SYS"Wimp_SetIconState",,b2%:PROCupd(!b2%,b2%!4):ENDPROC 2000 2010DEFPROCshade(!b2%,b2%!4):b2%!8=1<<22:b2%!12=1<<22:SYS"Wimp_SetIconState",,b2%:PROCupd(!b2%,b2%!4):ENDPROC 2020 2030DEFPROCunshade(!b2%,b2%!4):b2%!8=0:b2%!12=1<<22:SYS"Wimp_SetIconState",,b2%:PROCupd(!b2%,b2%!4):ENDPROC 2040 2050DEFPROChide(!b2%,b2%!4):b2%!8=1<<23:b2%!12=1<<23:SYS"Wimp_SetIconState",,b2%:PROCupd(!b2%,b2%!4):ENDPROC 2060 2070DEFPROCshow(!b2%,b2%!4):b2%!8=0:b2%!12=1<<23:SYS"Wimp_SetIconState",,b2%:PROCupd(!b2%,b2%!4):ENDPROC 2080 2090DEFPROCselect(!b2%,b2%!4) 2100b2%!8=1<<21:b2%!12=1<<21 2110SYS"Wimp_SetIconState",,b2% 2120PROCupd(!b2%,b2%!4) 2130ENDPROC 2140 2150DEFPROCdeselect(!b2%,b2%!4) 2160b2%!8=0<<21:b2%!12=1<<21 2170SYS"Wimp_SetIconState",,b2% 2180PROCupd(!b2%,b2%!4) 2190ENDPROC 2200 2210DEFFNselected(!b2%,b2%!4) 2220SYS"Wimp_GetIconState",,b2% 2230IFb2%!24AND1<<21=TRUE ELSE=FALSE 2240 2250DEFFNim(!b2%,b2%!4):SYS"Wimp_GetIconState",,b2%:=b2%!28 2260 2270DEFFNicontext(h%,i%)=$(FNim(h%,i%)) 2280 2290REM WIMP MAINTENANCE 2300 2310DEFPROCwimp 2320ONERRORPROCerrorhandle 2330quit%=FALSE 2340REPEAT 2350SYS"Wimp_Poll",0,b%TOreason% 2360CASEreason%OF 2370WHEN1:PROCredrawlist 2380WHEN2:PROCredraww 2390WHEN3:PROCcr(!b%) 2400WHEN6:PROCclick 2410WHEN5:IF!b%=rW% SYS"Wimp_SpriteOp",36,000,"Ptr_MENU",1,0,0,0 2420WHEN4:IF!b%=rW% SYS"Wimp_SpriteOp",36,000,"Ptr_DEFAULT",1,0,0,0 2430WHEN8:PROCkeypress 2440WHEN9:PROCmenudecode 2450WHEN17,18:PROCtelephone 2460ENDCASE 2470UNTILquit% 2480PROCquit 2490ENDPROC 2500 2510DEFPROCtelephone 2520CASEb%!16OF 2530WHEN0,14:quit%=TRUE 2540WHEN&400C1:PROCmodecheck 2550WHEN&502:PROChelprequest 2560ENDIF 2570ENDPROC 2580 2590DEFFNslot(size%) 2600SYS"Wimp_SlotSize",size%,-1:SYS"Wimp_SlotSize",-1,-1 TO newsize% 2610IFnewsize%<size% =0 ELSE=-1 2620 2630DEFPROChelprequest:REM In English only - sorry! 2640t$="This window belongs to Equs." 2650CASEb%!32 OF 2660WHEN-2:t$="This is the Equs icon. Click Select to start, or Menu for other options." 2670 2680WHENhelpW% 2690t$="This window gives basic help on how to use Equs. For more detailed help and possible problems, read the Help file." 2700CASEb%!36 OF 2710WHEN41,44:t$="Click here to load Acorn�s standard interactive help system." 2720WHEN17:t$="Click here to close this window." 2730ENDCASE 2740 2750WHENopenW%:t$="Click on this window to load Equs.|MEqus is a simultaneous equation solver for up to 99 unknowns." 2760 2770WHENmainW% 2780IFNOTFNwfull(mainW%)THEN 2790t$="This window allows you to type in the number of unknowns you have in your simultaneous equation." 2800CASEb%!36OF 2810WHEN17:t$="Click here for basic information on using Equs." 2820WHEN4:t$="This will accept the number of unknowns you have chosen to use." 2830WHEN11:t$="This will close this window." 2840WHEN2,3:t$="Enter in this box the number of unknowns you wish to use." 2850ENDCASE 2860ELSE 2870t$="This window allows you to change the names of your unknowns depending upon what you are using. Eg. Current1, Current2 etc." 2880CASEb%!36 OF 2890WHEN7:at%=@%:@%="+G.9":t$="Click here to type in unknown number "+STR$edit%+". Eg. Current/Voltage etc.":@%=at% 2900WHEN13:t$="Click here for basic information on using Equs." 2910WHEN9:t$="This icon will sequence all unknowns according to the text in the adjacent icon. Eg. Current1, Current2 etc." 2920WHEN16:t$="This will accept these unknowns and allow you to enter coefficient data. Important: You will be unable to change the names of your unknowns once you click here..." 2930WHEN8:t$="This will move to the next unknown name, alternately just press Return. You can also use the arrow keys, the Home key and Page Up/Page Down to move up and down." 2940WHEN10:t$="This will lose all these unknowns and allow you to start again." 2950OTHERWISE 2960ENDCASE 2970ENDIF 2980 2990WHENcoeffW%:t$="Click on a number to edit it. Clicking with Adjust will display the cell number too. See the Help file for more information." 3000 3010WHENunkW%:t$="Click on an unknown name to change it. You can scroll up and down through all unknowns. To change the number of unknowns you must click Restart." 3020 3030WHENinfoW%:t$="This window gives information about Equs." 3040 3050WHENrW%:t$="This window shows results of the calculations. You may need to enlarge it to view all of them. The bottom half shows how accurate the results are. Click to change number of significant figures." 3060 3070WHENchangW% 3080t$="This window is the coefficient bar." 3090CASEb%!36 OF 3100WHEN1,9:t$="By dragging the thin grey bar, you can reposition the �coefficient bar�. The orange square will replace it in the bottom left hand corner." 3110WHEN4:t$="Click here to work out what the values of the unknowns are (if possible). Common problems include non-unique equations, numbers too large or too small and incomplete equations." 3120WHEN6:t$="Type in a replacement value here and press Return. You can use the up and down arrow keys and Tab or Shift-Tab to move about." 3130WHEN10:t$="This will clear all the data in the coefficient window." 3140WHEN11:t$="Click here for basic information on using Equs." 3150ENDCASE 3160 3170ENDCASE 3180t$=t$+CHR$0 3190b%!0=(LENt$DIV4 +1)*4+20 3200b%!4=0 3210b%!12=b%!8 3220b%!8=0 3230b%!16=&503 3240$(b%+20)=t$ 3250SYS"Wimp_SendMessage",17,b%,0 3260ENDPROC 3270 3280DEFPROCmodecheck 3290SYS"OS_ReadModeVariable",MODE,3TO,,maxcolours 3300IFmaxcolours<63 AND warn=FALSE THENPROCmsg("It is recommended that you run Equs in a 256 colour mode."):warn=TRUE 3310PROCreset(openW%,1,"big") 3320PROCreset(mainW%,1,"small") 3330PROCreset(infoW%,8,"small") 3340PROCreset(helpW%,4,"small") 3350IFFNwopen(openW%)THENPROCcentre(openW%,-1,-1,-1) 3360ENDPROC 3370 3380DEFPROCreset(w%,i%,sprite$) 3390IFmaxcolours>=63THENcol$="256"ELSEcol$="16" 3400$(FNim(w%,i%))=sprite$+col$+CHR$0 3410ENDPROC 3420 3430DEFPROCredraww 3440CASE!b% OF 3450WHENchangW%:SYS"Wimp_OpenWindow",,b%:!b2%=coeffW%:SYS"Wimp_GetWindowState",,b2% 3460cxoffset%=b%!4-b2%!4:cyoffset%=b%!8-b2%!8 3470WHENcoeffW%:PROCattatch(coeffW%,changW%,cxoffset%,cyoffset%):PROCattatch(coeffW%,changW%,cxoffset%,cyoffset%) 3480WHENmainW%:IFFNwfull(mainW%)PROCattatch(mainW%,unkW%,mxoffset%,myoffset%) ELSESYS"Wimp_OpenWindow",,b% 3490OTHERWISE 3500SYS"Wimp_OpenWindow",,b% 3510ENDCASE 3520ENDPROC 3530 3540DEFPROCforceredraw(W%) 3550!b2%=W%:SYS"Wimp_GetWindowState",,b2% 3560SYS"Wimp_ForceRedraw",-1,b2%!4,b2%!8,b2%!12,b2%!16 3570ENDPROC 3580 3590DEFPROCsetedit(x,y) 3600LOCALERROR 3610ONERRORLOCAL PROCmsg("This is not allowed as an expression ("+REPORT$+")"):ENDPROC 3620Sx%=265*(ex%-1)+50 3630Sy%=-50*(ey%-1)-100 3640IF(ex%=1ANDey%=1)AND(XY(1,1,2)=0AND$FNim(changW%,6)="")THENPROCmsg("WARNING: The top left cell cannot be 0. Swap row 1 with another. Sorry!") 3650IF$FNim(changW%,6)<>""THEN 3660IFex%<>0 AND ey%<>0 XY(ex%,ey%,2)=EVAL($FNim(changW%,6)) 3670IFex%=1ANDey%=1ANDXY(1,1,2)=0THENPROCmsg("WARNING: The first cell cannot be 0. Swap row 1 with another") 3680ENDIF 3690SYS"Wimp_ForceRedraw",coeffW%,Sx%,Sy%,Sx%+265,Sy%+50 3700ex%=x:ey%=y 3710Sx%=265*(ex%-1)+50 3720Sy%=-50*(ey%-1)-100 3730 3740!b2%=coeffW%:SYS"Wimp_GetWindowState",,b2% 3750WHILEb2%!12-b2%!4+b2%!20<Sx%+265:b2%!20+=265:ENDWHILE 3760WHILEb2%!20>Sx%:b2%!20-=265:ENDWHILE 3770WHILEb2%!8-b2%!16+b2%!24>Sy%-70:b2%!24-=50:ENDWHILE 3780WHILEb2%!24<Sy%+50:b2%!24+=50:ENDWHILE 3790SYS"Wimp_OpenWindow",,b2% 3800 3810SYS"Wimp_ForceRedraw",coeffW%,Sx%,Sy%,Sx%+265,Sy%+50 3820at=@%:@%="+G.9":$FNim(changW%,6)=STR$XY(x,y,2) 3830IFVAL$FNim(changW%,6)=0 $FNim(changW%,6)="" 3840PROCupd(changW%,6):PROCstc(changW%,6):@%=at 3850ENDPROC 3860 3870DEFPROCredrawlist:CASE!b% OF 3880WHENcoeffW% 3890at=@%:@%="+G.9" 3900!b2%=coeffW% 3910SYS"Wimp_GetWindowState",,b2% 3920ox%=b2%!4-b2%!20:oy%=b2%!16-b2%!24 3930SYS"Wimp_RedrawWindow",,b% TOmore% 3940WHILEmore% 3950sx%=b%!28:sy%=b%!32:wid%=b%!36-b%!28:hei%=b%!32-b%!40 3960SYS"Wimp_SetColour",12 3970fx%=(sx%-ox%-50)DIV265 3980lx%=fx%+(wid% DIV 265)+2 3990fy%=(oy%-sy%-50+hei%)DIV50 4000ly%=fy%+(hei% DIV -50)+2 4010IFfx%<0 fx%=0 4020IFlx%>unks%+1 lx%=unks%+1 4030IFfy%<0 fy%=0 4040IFly%>unks% ly%=unks% 4050FORx=fx%TOlx%:FORy=fy%TOly% 4060txt$="" 4070IFx=0 AND y<>0 THEN txt$=STR$y 4080IFy=0 AND x<>0 THEN txt$=$(unkDAT%+(x-1)*14) 4090IFx<>0 AND y<>0 THEN txt$=STR$XY(x,y,2) 4100SYS"Wimp_SetColour",3 4110Sx%=265*ABS(x<>0)*(x-1)+50*ABS(x<>0)+ox% 4120Sy%=-50*ABS(y<>0)*(y-1)-50*ABS(y<>0)+oy% 4130IFx=0 OR y=0THEN SYS"Wimp_SetColour",2:RECTANGLEFILLSx%,Sy%,50*ABS(x=0)+265*ABS(x<>0),-50 4140IFx=ex% AND y=ey% SYS"Wimp_SetColour",7:RECTANGLEFILLSx%,Sy%,50*ABS(x=0)+265*ABS(x<>0),-50 4150SYS"Wimp_SetColour",3 4160RECTANGLESx%,Sy%,50*ABS(x=0)+265*ABS(x<>0),-50 4170IFx<>0 OR y<>0 THEN 4180SYS"Wimp_SetColour",7 4190IFx=ex% AND y=ey% SYS"Wimp_SetColour",0 4200MOVESx%+10,Sy%-13:PRINTtxt$ 4210ENDIF 4220NEXT:NEXT 4230SYS"Wimp_GetRectangle",,b%TOmore% 4240ENDWHILE 4250@%=at 4260 4270WHENrW% 4280SYS"Wimp_RedrawWindow",,b% TOmore% 4290ox%=b%!4-b%!20:oy%=b%!16-b%!24 4300WHILEmore% 4310first%=-2+(oy%-b%!40-30)DIV32 4320last%=first%+3+(b%!40-b%!32) DIV 32 4330IFfirst%<0 first%=0 4340FORl=first%TOlast% 4350IFl>0 AND l<=unks% THEN 4360MOVEox%+10,oy%-30-32*(l) 4370SYS"Wimp_SetColour",7:PRINTSTR$(XY(unks%+1,l,0));TAB(17);:SYS"Wimp_SetColour",11:PRINT$(unkDAT%+(l-1)*14) 4380ELSE 4390IFl=0 MOVEox%+10,oy%-15-32*(l):SYS"Wimp_SetColour",5:at=@%:@%="+G.9":PRINT"UNKNOWN VALUES (";sigfigs;" sig figs)":@%=at 4400 IFl>0 ANDl<=2*unks%+1 THEN 4410 4420IFl=unks%+1THEN 4430SYS"Wimp_SetColour",5:MOVEox%+10,oy%-60-32*(l):PRINT"ERROR - Depends on sig. figs.":REM;TAB(9);"% age";TAB(19);"ABSOLUTE" 4440ELSE 4450at=@%:@%="+G.9" 4460MOVEox%+10,oy%-75-32*(l):SYS"Wimp_SetColour",11:PRINT"Line "STR$(l-unks%-1);TAB(9);:@%="+F.2":SYS"Wimp_SetColour",7:PRINTFNpercent(XY(unks%,l-unks%-1,0),XY(unks%+1,l-unks%-1,1));:@%="+F0.7":SYS"Wimp_SetColour",3:PRINTTAB(19):REM;"=";STR$XY(unks%,l-unks%-1,0) 4470@%=at 4480ENDIF 4490 4500ENDIF 4510ENDIF 4520NEXT 4530SYS"Wimp_GetRectangle",,b%TOmore% 4540ENDWHILE 4550 4560WHENunkW% 4570at%=@%:@%="+G.9" 4580!b2%=unkW%:SYS"Wimp_GetWindowState",,b2% 4590ox%=b2%!4-b2%!20:oy%=b2%!16-b2%!24:first%=ABS(b2%!24/32):last%=first%+7:IFlast%>unks%-1 last%=unks%-1 4600SYS"Wimp_RedrawWindow",,b% TOmore% 4610WHILEmore% 4620FORl=first%TOlast% 4630SYS"Wimp_SetColour",7 4640IFl+1=edit%THEN 4650RECTANGLEFILLox%,oy%-4-32*(l+1)-ABS(l=(unks%-1))*2,500,30+ABS(l=(0))*10+ABS(l=(unks%-1))*2 4660ENDIF 4670MOVEox%+10,oy%-7-32*l 4680SYS"Wimp_SetColour",11*ABS(l+1<>edit%) 4690PRINTSTR$(l+1);TAB(3);:SYS"Wimp_SetColour",7*ABS(l+1<>edit%) 4700PRINT$(unkDAT%+l*14):NEXT 4710SYS"Wimp_GetRectangle",,b%TOmore% 4720@%=at% 4730ENDWHILE 4740 4750ENDCASE:ENDPROC 4760 4770DEFPROCsetextent(W%,no,min,width) 4780min=-min 4790!b%=W%:SYS"Wimp_GetWindowInfo",,b%:wb%=b%!28 4800PROCcw(W%) 4810!b%=0 4820IFW%=coeffW% b%!4=-(no*50+9)ELSEb%!4=-(no*32+6) 4830IFwidth b%!8=width*265+316 4840b%!12=0:IFb%!4>min b%!4=min 4850SYS"Wimp_SetExtent",W%,b%:!b%=W%:SYS"Wimp_GetWindowState",,b%:b%!28=wb%:SYS"Wimp_OpenWindow",,b% 4860ENDPROC 4870 4880DEFPROCattatch(bhand%,thand%,xoff%,yoff%) 4890!b2%=thand%:SYS"Wimp_GetWindowState",,b2%:b2%!28=b%!28:b2%!12=b2%!12-b2%!4+b%!4+xoff%:b2%!16=b2%!16-b2%!8+b%!8+yoff% 4900b2%!4=b%!4+xoff%:b2%!8=b%!8+yoff%:SYS"Wimp_OpenWindow",,b2%:b%!28=thand%:SYS"Wimp_OpenWindow",,b% 4910ENDPROC 4920 4930REM Icon clicks 4940 4950DEFPROCclick:cwin%=b%!12:icc=b%!16 4960CASEcwin%OF 4970WHEN-2 4980CASEb%!8OF 4990WHEN2:PROCmenu(im%,!b%-64,96+44*4) 5000WHEN4:IFFNwopen(mainW%)THEN 5010PROCopenw(mainW%) 5020IFFNwfull(mainW%)PROCopenw(unkW%) 5030ELSEPROCsmallmain 5040ENDIF 5050ENDCASE 5060 5070WHENhelpW% 5080CASEicc OF 5090WHEN17:PROCcr(helpW%) 5100WHEN41,44:OSCLI"Filer_Run Resources:$.Apps.!Help" 5110ENDCASE 5120 5130WHENchangW% 5140CASEicc OF 5150WHEN11:PROChelp 5160WHEN1 5170b2%!4=changW% 5180SYS"Wimp_GetWindowOutline",,b2% 5190!b2%=changW% 5200b2%!4=1 5210SYS"Wimp_DragBox",,b2% 5220WHEN4:PROCsetedit(ex%,ey%):PROCcr(rW%):PROCcalc 5230WHEN10:IFFNchoice("Do you really want to clear all this data?"):FORx=1TOunks%+1:FORy=1TOunks%:XY(x,y,2)=0:NEXT:NEXT:ex%=0:ey%=0:PROCforceredraw(coeffW%):PROCsetedit(1,1) 5240WHEN9 5250CASEb%!8 AND %111OF 5260WHEN2:cxoffset%=oxo% 5270WHEN1:cyoffset%=oyo% 5280OTHERWISE 5290cxoffset%=oxo%:cyoffset%=oyo% 5300ENDCASE 5310!b%=coeffW%:SYS"Wimp_GetWindowState",,b%:PROCattatch(coeffW%,changW%,cxoffset%,cyoffset%) 5320ENDCASE 5330 5340WHENopenW% 5350PROCcr(openW%):PROCiconbar 5360 5370WHENcoeffW% 5380IFb%!8=2 ENDPROC 5390!b2%=coeffW% 5400SYS"Wimp_GetWindowState",,b2% 5410x%=((b%!0-b2%!4+b2%!20-50)DIV265)+1 5420y%=((b%!4-b2%!16+b2%!24)DIV-50) 5430IFx%>0 AND x%<unks%+2 ANDy%>0ANDy%<unks%+1 THEN 5440IFb%!8=1 PROCmsg("Cell ("+$(unkDAT%+(x%-1)*14)+","+STR$y%+")") 5450PROCsetedit(x%,y%) 5460ENDIF 5470 5480WHENrW% 5490PROCmenudefs:REM Check for tick 5500PROCmenu(am%,!b%-64,b%!4) 5510 5520WHENinfoW% 5530IFicc=9 PROCmsg("Please e-mail me if you can! I like E-mail!") 5540 5550WHENunkW% 5560!b2%=unkW%:SYS"Wimp_GetWindowState",,b2% 5570oe%=edit% 5580edit%=1+ABS((b2%!16-b2%!24-b%!4)DIV32) 5590IF$FNim(mainW%,7)=""edit%=oe%:ENDPROC 5600$(unkDAT%+(oe%-1)*14)=$FNim(mainW%,7) 5610IFedit%>unks% THENedit%=unks% 5620$FNim(mainW%,7)=$(unkDAT%+(edit%-1)*14):PROCstc(mainW%,7):PROCupd(mainW%,7) 5630PROCforceredraw(unkW%) 5640 5650WHENmainW% 5660CASEicc OF 5670WHEN13,17:PROChelp 5680WHEN16:IF$FNim(mainW%,7)=""THENENDPROC:REM CHANGE 5690$(unkDAT%+(edit%-1)*14)=$FNim(mainW%,7) 5700PROCcr(mainW%) 5710PROCsetextent(coeffW%,unks%+2,50,unks%) 5720PROCopenw(coeffW%) 5730PROCcentre(coeffW%,845,480,0):!b%=coeffW%:SYS"Wimp_GetWindowState",,b%:PROCattatch(coeffW%,changW%,0,cyoffset%) 5740FORx=1TOunks%+1:FORy=1TOunks%:XY(x,y,2)=0:NEXT:NEXT:ex%=0:ey%=0:PROCsetedit(1,1) 5750WHEN8:IF$FNim(mainW%,7)=""THENENDPROC:REM CHANGE 5760$(unkDAT%+(edit%-1)*14)=$FNim(mainW%,7) 5770IFedit%<unks% edit%+=1 ELSE edit%=1 5780$FNim(mainW%,7)=$(unkDAT%+(edit%-1)*14):PROCupd(mainW%,7):PROCstc(mainW%,7) 5790!b%=unkW% 5800SYS"Wimp_GetWindowState",,b% 5810IFedit%>4 b%!24-=32 ELSEb%!24=0 5820SYS"Wimp_OpenWindow",,b% 5830PROCforceredraw(unkW%) 5840WHEN9:n$=$FNim(mainW%,7):IFLENn$>11 THENn$=LEFT$(n$,11) 5850IFFNchoice("Do you really want to make all unknowns follow the sequence "+n$+"1, "+n$+"2 etc.") THENPROCnumbervars(n$,-1):PROCforceredraw(unkW%):$FNim(mainW%,7)=$(unkDAT%+(edit%-1)*14):PROCupd(mainW%,7):PROCstc(mainW%,7) 5860WHEN10:IFFNchoice("Do you really want to start again?")PROCsmallmain 5870WHEN11:PROCcr(mainW%) 5880WHEN4:IFVAL$FNim(mainW%,3)<2 THENPROCmsg("This is not allowed!")ELSEPROCbigmain 5890ENDCASE 5900 5910ENDCASE 5920ENDCASE:ENDPROC 5930 5940DEFPROCkeypress:CASE!b%OF 5950 5960WHENopenW% 5970PROCcr(openW%):PROCiconbar 5980WHENmainW% 5990 CASEb%!24OF 6000 WHEN&19F,&1AF,&1BF,30 6010 IF$FNim(mainW%,7)<>"" $(unkDAT%+(edit%-1)*14)=$FNim(mainW%,7)ELSEENDPROC 6020 edit%=1 6030$FNim(mainW%,7)=$(unkDAT%+(edit%-1)*14):PROCupd(mainW%,7):PROCstc(mainW%,7) 6040!b%=unkW% 6050SYS"Wimp_GetWindowState",,b% 6060b%!24=0 6070SYS"Wimp_OpenWindow",,b% 6080 PROCforceredraw(unkW%) 6090 6100 WHEN&19E,&1AF,&1AE,&1AE 6110 IF$FNim(mainW%,7)<>"" $(unkDAT%+(edit%-1)*14)=$FNim(mainW%,7)ELSEENDPROC 6120 edit%=unks% 6130$FNim(mainW%,7)=$(unkDAT%+(edit%-1)*14):PROCupd(mainW%,7):PROCstc(mainW%,7) 6140!b%=unkW% 6150SYS"Wimp_GetWindowState",,b% 6160b%!24=-unks%*32-3 6170SYS"Wimp_OpenWindow",,b% 6180 PROCforceredraw(unkW%) 6190 6200 WHEN&18F,&19A 6210 CASEb%!4 OF 6220 WHEN7:IF$FNim(mainW%,7)<>"" $(unkDAT%+(edit%-1)*14)=$FNim(mainW%,7)ELSEENDPROC 6230 IFedit%>1 edit%-=1 6240$FNim(mainW%,7)=$(unkDAT%+(edit%-1)*14):PROCupd(mainW%,7):PROCstc(mainW%,7) 6250!b%=unkW% 6260SYS"Wimp_GetWindowState",,b% 6270IFunks%-edit%>3 b%!24+=32 6280SYS"Wimp_OpenWindow",,b% 6290 PROCforceredraw(unkW%) 6300 ENDCASE 6310 6320 WHEN13,&18E,&18A 6330 CASEb%!4 OF 6340 WHEN3:IFVAL$FNim(mainW%,3)<2 ANDb%!24=13 THENPROCmsg("This is not allowed!") ELSEIFb%!24=13PROCbigmain 6350 WHEN7:IF$FNim(mainW%,7)<>"" $(unkDAT%+(edit%-1)*14)=$FNim(mainW%,7)ELSEENDPROC 6360 IFedit%<unks% edit%+=1 ELSE edit%=1 6370$FNim(mainW%,7)=$(unkDAT%+(edit%-1)*14):PROCupd(mainW%,7):PROCstc(mainW%,7) 6380!b%=unkW% 6390SYS"Wimp_GetWindowState",,b% 6400IFedit%>4 b%!24-=32 6410IFedit%=1 b%!24=0 6420SYS"Wimp_OpenWindow",,b% 6430 PROCforceredraw(unkW%) 6440ENDCASE 6450OTHERWISE SYS"Wimp_ProcessKey",b%!24 6460ENDCASE 6470 6480WHENchangW% 6490CASEb%!24OF 6500WHEN30:PROCsetedit(1,1) 6510WHEN&18F:IFey%>1 PROCsetedit(ex%,ey%-1) 6520WHEN&181:cxoffset%=oxo%:cyoffset%=oyo%:!b%=coeffW%:SYS"Wimp_GetWindowState",,b%:PROCattatch(coeffW%,changW%,cxoffset%,cyoffset%) 6530WHEN&18E:IFey%<unks% PROCsetedit(ex%,ey%+1) 6540WHEN&19A:IFex%>1 PROCsetedit(ex%-1,ey%) ELSE IFey%>1 PROCsetedit(unks%+1,ey%-1) 6550WHEN&18A,13 6560IFex%<unks%+1 THEN 6570PROCsetedit(ex%+1,ey%) 6580ELSE 6590IFey%<unks% THEN 6600PROCsetedit(1,ey%+1) 6610ELSE 6620PROCsetedit(ex%,ey%):PROCcr(rW%):PROCcalc 6630ENDIF 6640ENDIF 6650OTHERWISESYS"Wimp_ProcessKey",b%!24 6660ENDCASE:ENDPROC 6670 6680DEFPROCmenudecode 6690CASElatestm%OF 6700 6710WHENam% 6720CASEb%!0OF 6730WHEN0:sigfigs=3 6740WHEN1:sigfigs=4 6750WHEN2:sigfigs=5 6760WHEN3:sigfigs=6 6770WHEN4:sigfigs=9 6780WHEN5:force=force EOR -1 6790ENDCASE 6800IFforce @%="+E."+STR$sigfigs ELSE@%="+G."+STR$sigfigs 6810PROCcalcerror 6820PROCforceredraw(rW%) 6830 6840WHENim% 6850CASEb%!0OF 6860WHEN1:IFFNwopen(mainW%)THEN 6870PROCopenw(mainW%):IFFNwfull(mainW%)PROCopenw(unkW%) 6880ELSEPROCsmallmain 6890ENDIF 6900 6910WHEN2:PROChelp 6920WHEN3:PROCquit 6930ENDCASE 6940 6950ENDCASE 6960SYS"Wimp_GetPointerInfo",,b%:IFb%!8=1PROCmenudefs:PROCmenu(latestm%,0,0) 6970ENDPROC 6980 6990WHENmainW% 7000CASEicc OF 7010WHEN13:PROCcr(mainW%) 7020ENDCASE 7030 7040WHENopenW% 7050PROCcr(openW%):PROCiconbar 7060ENDCASE 7070ENDCASE:ENDPROC 7080 7090DEFPROChelp 7100PROCopenw(helpW%):PROCcentre(helpW%,902,630,0) 7110ENDPROC 7120 7130DEFPROCsmallmain 7140IFFNwopen(coeffW%)THEN 7150 IFNOTFNchoice("Start again? You will lose all the data...")ENDPROC 7160 PROCcw(coeffW%):PROCcw(changW%) 7170ENDIF 7180 7190IFFNwopen(rW%) PROCcr(rW%) 7200PROCcr(unkW%) 7210PROCopenw(mainW%) 7220PROChide(mainW%,12) 7230PROChide(mainW%,13) 7240PROChide(mainW%,14) 7250PROCshow(mainW%,17) 7260PROCshow(mainW%,2) 7270PROCshow(mainW%,3) 7280PROCshow(mainW%,11) 7290PROCshow(mainW%,4) 7300PROCstc(mainW%,3):PROCcentre(mainW%,394,444,-1) 7310ENDPROC 7320 7330DEFPROCnumbervars(start$,repeat) 7340at%=@%:@%="+G.9" 7350start=ASCstart$ 7360FORunk%=0TOunks%-1 7370IFrepeat=0 start$=CHR$start 7380$(unkDAT%+unk%*14)=start$:IFrepeat THEN$(unkDAT%+unk%*14)=$(unkDAT%+unk%*14)+STR$(unk%+1) 7390IFNOTrepeat start+=1 7400NEXT 7410$(unkDAT%+unk%*14)="Total"+CHR$13 7420@%=at% 7430ENDPROC 7440 7450DEFPROCbigmain 7460PROCcr(mainW%) 7470IFFNwopen(coeffW%)PROCmsg("You will need to close your present coefficient data to be able to start again"):ENDPROC 7480edit%=1 7490unks%=VAL$FNim(mainW%,3) 7500IFunks%<4 THEN PROCnumbervars("X",0) 7510IFunks%>3 ANDunks%<6 THEN PROCnumbervars("P",0) 7520IFunks%>5 ANDunks%<27 THENPROCnumbervars("A",0) 7530IFunks%>26 THENPROCnumbervars("x",-1) 7540PROCshow(mainW%,12) 7550PROCshow(mainW%,13) 7560PROCshow(mainW%,14) 7570PROChide(mainW%,17) 7580PROChide(mainW%,2) 7590PROChide(mainW%,3) 7600PROChide(mainW%,11) 7610PROChide(mainW%,4) 7620PROCsetextent(unkW%,unks%,208,0) 7630PROCcentre(mainW%,780,444,-1) 7640!b%=mainW%:SYS"Wimp_GetWindowState",,b%:PROCattatch(mainW%,unkW%,mxoffset%,myoffset%) 7650$FNim(mainW%,7)=$(unkDAT%+(edit%-1)*14):PROCstc(mainW%,7):PROCupd(mainW%,7) 7660ENDPROC 7670 7680DEFFNpercent(small,big) 7690LOCALERROR 7700ONERRORLOCAL="V High" 7710IFbig=0 THEN = "N/A" 7720s$=STR$((ABSINT(10000*small/big))/100)+" %" 7730IFLENs$>8="V High" ELSE =s$ 7740 7750DEFPROCcalc 7760IFXY(1,1,2)=0THENPROCmsg("The value in cell ("+$unkDAT%+",1) cannot be 0 to calculate results"):ENDPROC 7770LOCALx,y 7780LOCALERROR 7790ONERRORLOCALPROCmsg("Sorry. This set of values can�t be calculated. See the Help file Problems section if you cannot immediately see what is wrong."):OSCLI"FX229,1":OSCLI"FX124":ENDPROC 7800SYS"Hourglass_On" 7810*FX229,0 7820FORx=1TOunks%+1:FORy=1TOunks%:XY(x,y,1)=XY(x,y,2):NEXT:NEXT 7830PROCinvert(unks%) 7840 7850FORx=1TOunks%+1:FORy=1TOunks%:XY(x,y,1)=XY(x,y,2):NEXT:NEXT 7860 7870FORx=1TOunks%:XY(unks%+1,x,0)=FNcalculate(unks%,x):NEXT 7880PROCcalcerror 7890 7900*FX229,1 7910*FX124 7920SYS"Hourglass_Off" 7930!b%=rW%:SYS"Wimp_GetWindowInfo",,b%:wb%=b%!28 7940b%!0=b%!44 7950b%!4=-unks%*64-150 7960b%!8=b%!52 7970b%!12=0 7980 7990SYS"Wimp_SetExtent",rW%,b% 8000PROCopenw(rW%) 8010ENDPROC 8020 8030DEFPROCcalcerror 8040FORy=1TOunks%:XY(unks%,y,0)=0:FORx=1TOunks%:XY(unks%,y,0)+=VALSTR$XY(unks%+1,x,0)*XY(x,y,1):NEXT:XY(unks%,y,0)=ABS(XY(unks%,y,0)-XY(unks%+1,y,1)):NEXT 8050ENDPROC 8060 8070DEFPROCinvert(cr) 8080REM If anyone has an better (iterative) way of solving simultaneous equations 8090REM ITIMEd like to hear from you! 8100LOCALx,y,l,c,un,k,i,j 8110FORi=1TOcr 8120FORj=1TOcr 8130XY(i,j,0)=1-ABS(SGN(i-j)) 8140NEXT:NEXT 8150FORi=1TOcr-1 8160IFNOTABS(XY(i,i,1))>0.000001 THEN "TRIP ERROR HANDLER" 8170SYS"Hourglass_Percentage",(i/(cr-1))*50 8180IFi+1<=cr THEN 8190 FORj=i+1 TO cr 8200 x=XY(j,i,1)/XY(i,i,1) 8210FORk=1TOcr 8220XY(j,k,1)-=x*XY(i,k,1) 8230XY(j,k,0)-=x*XY(i,k,0) 8240NEXT 8250ENDIF 8260NEXT:NEXT 8270FORi=cr TO 1 STEP-1 8280FORk=1TOcr 8290SYS"Hourglass_Percentage",100-((i/cr)*50) 8300IFi+1<=cr THEN 8310 FORj=i+1 TOcr 8320 XY(i,k,0)=XY(i,k,0)-XY(i,j,1)*XY(j,k,0) 8330 NEXT 8340ENDIF 8350XY(i,k,0)=XY(i,k,0)/XY(i,i,1) 8360NEXT:NEXT 8370ENDPROC 8380 8390DEFFNcalculate(n,l) 8400LOCALc,t 8410t=0 8420FORc=1TOn 8430t+=XY(c,l,0)*XY(n+1,c,1) 8440NEXT 8450=t
� Runimage for Equs � � For Acorn Computers (� Simon Weaver - 1995 2� <� � Acorn User �95 d n�varinit x�mainsprites ��loadtemplates � �'$(�im(infoW%,3))="1.00 (25-May-95)" � ��caloffs � �menudefs ��modecheck ��windsetup � �wimp � ���windsetup �6�opensp � �openw(openW%):�stc(openW%,2) ��iconbar .�openw(rW%):�centre(rW%,-1,-1,-1):�cr(rW%) � " ��varinit ,��7:�,�$:� 6qindsize=2800:�m$(12),b% 3350,b2% 1024,indirect% indsize,name% 11,im% 150,am% 176,unkDAT% 101*14,XY(100,100,2) @/ex%=0:ey%=0:sigfigs=9:force=0:sp2%=�:warn=� J @%="+G.9" Tapp$="Equs" ^4ș"Wimp_Initialise",200,&4B534154,app$�wos,TASK% h$ș"Wimp_SlotSize",-1,-1 �minsize r� Constants s tIROOT2=�(2):ROOT3=�(3):AVOGADRO=6.022*10^23:MOLE=AVOGADRO:GRAV=9.80665 | }� End of Constants �� � ���mainsprites �9file%=�("<Equs$Dir>.Sprites"):size%=�#file%+4:�#file% ��sp% size% �E!sp%=size%:sp%!8=16:ș"OS_SpriteOp",&10A,sp%,"<Equs$Dir>.Sprites" �� � �ݤopensp �9file%=�("<Equs$Dir>.Opening"):size%=�#file%+4:�#file% �h�slot(size%+minsize) � !sp2%=size%:sp2%!8=16:ș"OS_SpriteOp",&10A,sp2%,"<Equs$Dir>.Opening":=� � =� � ��quit &(ș"Wimp_CloseDown",TASK%,&4B534154:� : X��errorhandle b Ȏ� � la�choice("Problem inside Equs : "+ß+" '"+�$+"' at line "+Þ+" Continue execution?")=� �quit v� �� � �,ݤchoice(err$):!b2%=255:$(b2%+4)=err$+�0 �7ș"Wimp_ReportError",b2%,19,"Query from "+app$ �,r% ��r%=1=� �=� � �)��msg(err$):!b2%=255:$(b2%+4)=err$+�0 �4ș"Wimp_ReportError",b2%,17,"Message from "+app$ �� � � ��iconbar �d=�slot(minsize) k!b%=-1:b%!4=0:b%!8=0:b%!12=60:b%!16=68:b%!20=%11000000011010:$(b%+24)="!Equs":ș"Wimp_CreateIcon",,b%:� ��caloffs |!b%=mainW%:!b2%=unkW%:ș"Wimp_GetWindowState",,b%:ș"Wimp_GetWindowState",,b2%:mxoffset%=b2%!4-b%!4:myoffset%=b2%!8-b%!8 *!b%=coeffW%:!b2%=changW%:ș"Wimp_GetWindowState",,b%:ș"Wimp_GetWindowState",,b2%:cxoffset%=b2%!4-b%!4:cyoffset%=b2%!8-b%!8 4!oxo%=cxoffset%:oyo%=cyoffset% >� H R��menudefs \>$im%="Equs":im%!12=&00070207:im%!16=210:im%!20=44:im%!24=0 f;im%!28=0:im%!32=infoW%:im%!36=&7000021:$(im%+40)="Info" p>im%!52=&0:im%!56=-1:im%!60=&7000021:$(im%+64)="Data Setup" z;im%!76=&0:im%!80=-1:im%!84=&7000021:$(im%+88)="Help..." �=im%!100=&80:im%!104=-1:im%!108=&7000021:$(im%+112)="Quit" � �@$am%="Format":am%!12=&00070207:am%!16=210:am%!20=44:am%!24=0 �>am%!28=0:am%!32=-1:am%!36=&7000021:$(am%+40)="3 Sig. Figs" �?am%!52=&0:am%!56=-1:am%!60=&7000021:$(am%+64)="4 Sig. Figs" �?am%!76=&0:am%!80=-1:am%!84=&7000021:$(am%+88)="5 Sig. Figs" �Cam%!100=&0:am%!104=-1:am%!108=&7000021:$(am%+112)="6 Sig. Figs" �<am%!124=&0:am%!128=-1:am%!132=&7000021:$(am%+136)="Full" �Pam%!148=&80+(force=-1)*-1:am%!152=-1:am%!156=&7000021:$(am%+160)="Force EXP" �Pam%!(28+24*((sigfigs=4)*-1+(sigfigs=5)*-2+(sigfigs=6)*-3+(sigfigs=9)*-4))+=1 �� $��loadtemplates .pș"Wimp_OpenTemplate",,"<Equs$Dir>.Templates":indirectpos%=indirect%:position%=0:X=�("<Equs$Dir>.Templates") 8Dtemp1$="":temp=8:�:temp2=�#X:�temp2>=65�temp2<=90 temp1$+=�temp2 B>�temp1$,"OPENING")openW%=�lt("OPENING"):temp1$="":temp-=1 L8�temp1$,"MAIN")mainW%=�lt("MAIN"):temp1$="":temp-=1 V?�temp1$,"UNKNOWNS")unkW%=�lt("UNKNOWNS"):temp1$="":temp-=1 `=�temp1$,"COEFFS")coeffW%=�lt("COEFFS"):temp1$="":temp-=1 j=�temp1$,"CHANGE")changW%=�lt("CHANGE"):temp1$="":temp-=1 t8�temp1$,"INFO")infoW%=�lt("INFO"):temp1$="":temp-=1 ~8�temp1$,"HELP")helpW%=�lt("HELP"):temp1$="":temp-=1 �;�temp1$,"RESULTS")rW%=�lt("RESULTS"):temp1$="":temp-=1 ��temp=0 ��#X:ș"Wimp_CloseTemplate" �� � ���sp(no,spa) �b%!(88+32*no+24)=spa �� � �ݤlt($name%) �kș"Wimp_LoadTemplate",,b%,indirectpos%,indirect%+indsize,-1,name%,position%�,,indirectpos%,,,,position% �>�position%=0�msg(temp1$+" Templates mucked up!"):�#X:�quit b%!64=sp% Ȏ$name%� �"OPENING":�sp(1,sp2%) �"MAIN":�sp(1,sp%) (�"INFO":�sp(8,sp%) 2�"HELP":�sp(4,sp%) <� F ș"Wimp_CreateWindow",,b%�h% P=h% Z dݤwopen(!b2%) n4ș"Wimp_GetWindowState",,b2%:�b2%!32�1<<16=� �=� x �ݤwfull(!b2%) �4ș"Wimp_GetWindowState",,b2%:�b2%!32�1<<18=� �=� � ���centre(win%,fW%,fH%,so%) �� x%,y%,w%,h% �O!b2%=4:b2%!4=5:b2%!8=11:b2%!12=12:b2%!16=-1:ș"OS_ReadVduVariables",b2%,b2% �x%=(1<<(!b2%))*((b2%!8)+1) � y%=(1<<(b2%!4))*((b2%!12)+1) � !b2%=win% � ș"Wimp_GetWindowState",,b2% � w%=fW% ��fW%=-1 w%=b2%!12-b2%!4 � h%=fH% �fH%=-1 h%=b2%!16-b2%!8 b2%!4=(x%-w%)/2 b2%!8=(130+y%-h%)/2 "b2%!12=b2%!4+w% ,b2%!16=b2%!8+h% 6�so%=0 b2%!20=0:b2%!24=0 @ș"Wimp_OpenWindow",,b2% J'ș"Wimp_Poll",%1000110000111000,b2% T� ^ h��openw(h%) r Ȏh%� | �openW%:�centre(h%,-1,-1,-1) � �G!b%=h%:ș"Wimp_GetWindowState",,b%:b%!28=-1:ș"Wimp_OpenWindow",,b% �� �� � ���cr(h%) � Ȏh%� �^�coeffW%:�choice("Continuing will cause this data to be lost!") �cr(changW%):�cw(coeffW%) �"�mainW%:�cr(unkW%):�cw(mainW%) � ��cw(h%) ��:� � ��cw(h%) '!b2%=h%:ș"Wimp_CloseWindow",,b2%:� &$��menu(h%,xpos,ypos):latestm%=h% 0'ș"Wimp_CreateMenu",,h%,xpos,ypos:� : D��stc(h%,i%) N<ș"Wimp_SetCaretPosition",h%,i%,,,-1,�(�icontext(h%,i%)) X� b lݤctc(h%,i%) v"ș"Wimp_GetCaretPosition",,b2% ��!b2%=h%�b2%!4=i%=� �=� � ���upd(!b2%,b2%!4) �[ș"Wimp_GetIconState",,b2%:ș"Wimp_ForceRedraw",!b2%,b2%!8-5,b2%!12-5,b2%!16+5,b2%!20+5 �� � �U��setstate(!b2%,b2%!4,b2%!12,b2%!8):ș"Wimp_SetIconState",,b2%:�upd(!b2%,b2%!4):� � �^��shade(!b2%,b2%!4):b2%!8=1<<22:b2%!12=1<<22:ș"Wimp_SetIconState",,b2%:�upd(!b2%,b2%!4):� � �\��unshade(!b2%,b2%!4):b2%!8=0:b2%!12=1<<22:ș"Wimp_SetIconState",,b2%:�upd(!b2%,b2%!4):� � ]��hide(!b2%,b2%!4):b2%!8=1<<23:b2%!12=1<<23:ș"Wimp_SetIconState",,b2%:�upd(!b2%,b2%!4):� Y��show(!b2%,b2%!4):b2%!8=0:b2%!12=1<<23:ș"Wimp_SetIconState",,b2%:�upd(!b2%,b2%!4):� *��select(!b2%,b2%!4) 4b2%!8=1<<21:b2%!12=1<<21 >ș"Wimp_SetIconState",,b2% H�upd(!b2%,b2%!4) R� \ f��deselect(!b2%,b2%!4) pb2%!8=0<<21:b2%!12=1<<21 zș"Wimp_SetIconState",,b2% ��upd(!b2%,b2%!4) �� � �ݤselected(!b2%,b2%!4) �ș"Wimp_GetIconState",,b2% ��b2%!24�1<<21=� �=� � �7ݤim(!b2%,b2%!4):ș"Wimp_GetIconState",,b2%:=b2%!28 � �#ݤicontext(h%,i%)=$(�im(h%,i%)) � �� WIMP MAINTENANCE � ��wimp ��errorhandle quit%=� $� .ș"Wimp_Poll",0,b%�reason% 8Ȏreason%� B�1:�redrawlist L�2:�redraww V�3:�cr(!b%) ` �6:�click j;�5:�!b%=rW% ș"Wimp_SpriteOp",36,000,"Ptr_MENU",1,0,0,0 t>�4:�!b%=rW% ș"Wimp_SpriteOp",36,000,"Ptr_DEFAULT",1,0,0,0 ~�8:�keypress ��9:�menudecode ��17,18:�telephone �� � �quit% � �quit �� � ���telephone �Ȏb%!16� ��0,14:quit%=� ��&400C1:�modecheck ��&502:�helprequest � � ݤslot(size%) (Aș"Wimp_SlotSize",size%,-1:ș"Wimp_SlotSize",-1,-1 � newsize% 2�newsize%<size% =0 �=-1 < F,��helprequest:� In English only - sorry! P%t$="This window belongs to Equs." Z Ȏb%!32 � dU�-2:t$="This is the Equs icon. Click Select to start, or Menu for other options." n x�helpW% �{t$="This window gives basic help on how to use Equs. For more detailed help and possible problems, read the Help file." � Ȏb%!36 � �L�41,44:t$="Click here to load Acorn�s standard interactive help system." �-�17:t$="Click here to close this window." �� � �r�openW%:t$="Click on this window to load Equs.|MEqus is a simultaneous equation solver for up to 99 unknowns." � ��mainW% �笤wfull(mainW%)� �it$="This window allows you to type in the number of unknowns you have in your simultaneous equation." �Ȏb%!36� �<�17:t$="Click here for basic information on using Equs." K�4:t$="This will accept the number of unknowns you have chosen to use." )�11:t$="This will close this window." G�2,3:t$="Enter in this box the number of unknowns you wish to use." "� ,� 6�t$="This window allows you to change the names of your unknowns depending upon what you are using. Eg. Current1, Current2 etc." @ Ȏb%!36 � Jm�7:at%=@%:@%="+G.9":t$="Click here to type in unknown number "+�edit%+". Eg. Current/Voltage etc.":@%=at% T<�13:t$="Click here for basic information on using Equs." ^x�9:t$="This icon will sequence all unknowns according to the text in the adjacent icon. Eg. Current1, Current2 etc." h��16:t$="This will accept these unknowns and allow you to enter coefficient data. Important: You will be unable to change the names of your unknowns once you click here..." r��8:t$="This will move to the next unknown name, alternately just press Return. You can also use the arrow keys, the Home key and Page Up/Page Down to move up and down." |L�10:t$="This will lose all these unknowns and allow you to start again." � �� �� � ���coeffW%:t$="Click on a number to edit it. Clicking with Adjust will display the cell number too. See the Help file for more information." � �unkW%:t$="Click on an unknown name to change it. You can scroll up and down through all unknowns. To change the number of unknowns you must click Restart." � �:�infoW%:t$="This window gives information about Equs." � ���rW%:t$="This window shows results of the calculations. You may need to enlarge it to view all of them. The bottom half shows how accurate the results are. Click to change number of significant figures." � ��changW% ,t$="This window is the coefficient bar." Ȏb%!36 � ��1,9:t$="By dragging the thin grey bar, you can reposition the �coefficient bar�. The orange square will replace it in the bottom left hand corner." &��4:t$="Click here to work out what the values of the unknowns are (if possible). Common problems include non-unique equations, numbers too large or too small and incomplete equations." 0��6:t$="Type in a replacement value here and press Return. You can use the up and down arrow keys and Tab or Shift-Tab to move about." :D�10:t$="This will clear all the data in the coefficient window." D<�11:t$="Click here for basic information on using Equs." N� X b� lt$=t$+�0 vb%!0=(�t$�4 +1)*4+20 � b%!4=0 �b%!12=b%!8 � b%!8=0 �b%!16=&503 �$(b%+20)=t$ � ș"Wimp_SendMessage",17,b%,0 �� � ���modecheck �,ș"OS_ReadModeVariable",�,3�,,maxcolours �e�maxcolours<63 � warn=� ��msg("It is recommended that you run Equs in a 256 colour mode."):warn=� ��reset(openW%,1,"big") ��reset(mainW%,1,"small") �reset(infoW%,8,"small") �reset(helpW%,4,"small") ,�wopen(openW%)��centre(openW%,-1,-1,-1) � * 4��reset(w%,i%,sprite$) >(�maxcolours>=63�col$="256"�col$="16" H!$(�im(w%,i%))=sprite$+col$+�0 R� \ f ��redraww pȎ!b% � zN�changW%:ș"Wimp_OpenWindow",,b%:!b2%=coeffW%:ș"Wimp_GetWindowState",,b2% �-cxoffset%=b%!4-b2%!4:cyoffset%=b%!8-b2%!8 �h�coeffW%:�attatch(coeffW%,changW%,cxoffset%,cyoffset%):�attatch(coeffW%,changW%,cxoffset%,cyoffset%) �^�mainW%:�wfull(mainW%)�attatch(mainW%,unkW%,mxoffset%,myoffset%) �ș"Wimp_OpenWindow",,b% � �ș"Wimp_OpenWindow",,b% �� �� � ���forceredraw(W%) �(!b2%=W%:ș"Wimp_GetWindowState",,b2% �5ș"Wimp_ForceRedraw",-1,b2%!4,b2%!8,b2%!12,b2%!16 �� � ��setedit(x,y) � ?�� �msg("This is not allowed as an expression ("+�$+")"):� $Sx%=265*(ex%-1)+50 .Sy%=-50*(ey%-1)-100 8��(ex%=1�ey%=1)�(XY(1,1,2)=0�$�im(changW%,6)="")��msg("WARNING: The top left cell cannot be 0. Swap row 1 with another. Sorry!") B�$�im(changW%,6)<>""� L5�ex%<>0 � ey%<>0 XY(ex%,ey%,2)=�($�im(changW%,6)) Va�ex%=1�ey%=1�XY(1,1,2)=0��msg("WARNING: The first cell cannot be 0. Swap row 1 with another") `� j7ș"Wimp_ForceRedraw",coeffW%,Sx%,Sy%,Sx%+265,Sy%+50 tex%=x:ey%=y ~Sx%=265*(ex%-1)+50 �Sy%=-50*(ey%-1)-100 � �-!b2%=coeffW%:ș"Wimp_GetWindowState",,b2% �/ȕb2%!12-b2%!4+b2%!20<Sx%+265:b2%!20+=265:� �ȕb2%!20>Sx%:b2%!20-=265:� �-ȕb2%!8-b2%!16+b2%!24>Sy%-70:b2%!24-=50:� � ȕb2%!24<Sy%+50:b2%!24+=50:� �ș"Wimp_OpenWindow",,b2% � �7ș"Wimp_ForceRedraw",coeffW%,Sx%,Sy%,Sx%+265,Sy%+50 �.at=@%:@%="+G.9":$�im(changW%,6)=�XY(x,y,2) �*�$�im(changW%,6)=0 $�im(changW%,6)="" )�upd(changW%,6):�stc(changW%,6):@%=at � ��redrawlist:Ȏ!b% � (�coeffW% 2at=@%:@%="+G.9" <!b2%=coeffW% F ș"Wimp_GetWindowState",,b2% P&ox%=b2%!4-b2%!20:oy%=b2%!16-b2%!24 Z$ș"Wimp_RedrawWindow",,b% �more% dȕmore% n9sx%=b%!28:sy%=b%!32:wid%=b%!36-b%!28:hei%=b%!32-b%!40 xș"Wimp_SetColour",12 �fx%=(sx%-ox%-50)�265 �lx%=fx%+(wid% � 265)+2 �fy%=(oy%-sy%-50+hei%)�50 �ly%=fy%+(hei% � -50)+2 ��fx%<0 fx%=0 ��lx%>unks%+1 lx%=unks%+1 ��fy%<0 fy%=0 ��ly%>unks% ly%=unks% ��x=fx%�lx%:�y=fy%�ly% �txt$="" ��x=0 � y<>0 � txt$=�y �*�y=0 � x<>0 � txt$=$(unkDAT%+(x-1)*14) �"�x<>0 � y<>0 � txt$=�XY(x,y,2) ș"Wimp_SetColour",3 (Sx%=265*�(x<>0)*(x-1)+50*�(x<>0)+ox% (Sy%=-50*�(y<>0)*(y-1)-50*�(y<>0)+oy% "J�x=0 � y=0� ș"Wimp_SetColour",2:ȓȐSx%,Sy%,50*�(x=0)+265*�(x<>0),-50 ,M�x=ex% � y=ey% ș"Wimp_SetColour",7:ȓȐSx%,Sy%,50*�(x=0)+265*�(x<>0),-50 6ș"Wimp_SetColour",3 @'ȓSx%,Sy%,50*�(x=0)+265*�(x<>0),-50 J�x<>0 � y<>0 � Tș"Wimp_SetColour",7 ^'�x=ex% � y=ey% ș"Wimp_SetColour",0 h�Sx%+10,Sy%-13:�txt$ r� |�:� �#ș"Wimp_GetRectangle",,b%�more% �� � @%=at � ��rW% �$ș"Wimp_RedrawWindow",,b% �more% �"ox%=b%!4-b%!20:oy%=b%!16-b%!24 �ȕmore% �first%=-2+(oy%-b%!40-30)�32 �%last%=first%+3+(b%!40-b%!32) � 32 ��first%<0 first%=0 ��l=first%�last% ��l>0 � l<=unks% � �ox%+10,oy%-30-32*(l) ]ș"Wimp_SetColour",7:��(XY(unks%+1,l,0));�17);:ș"Wimp_SetColour",11:�$(unkDAT%+(l-1)*14) � &r�l=0 �ox%+10,oy%-15-32*(l):ș"Wimp_SetColour",5:at=@%:@%="+G.9":�"UNKNOWN VALUES (";sigfigs;" sig figs)":@%=at 0 �l>0 �l<=2*unks%+1 � : D�l=unks%+1� Nsș"Wimp_SetColour",5:�ox%+10,oy%-60-32*(l):�"ERROR - Depends on sig. figs.":�;TAB(9);"% age";TAB(19);"ABSOLUTE" X� bat=@%:@%="+G.9" l��ox%+10,oy%-75-32*(l):ș"Wimp_SetColour",11:�"Line "�(l-unks%-1);�9);:@%="+F.2":ș"Wimp_SetColour",7:�percent(XY(unks%,l-unks%-1,0),XY(unks%+1,l-unks%-1,1));:@%="+F0.7":ș"Wimp_SetColour",3:�19):�;"=";STR$XY(unks%,l-unks%-1,0) v @%=at �� � �� �� �� �#ș"Wimp_GetRectangle",,b%�more% �� � � �unkW% �at%=@%:@%="+G.9" �+!b2%=unkW%:ș"Wimp_GetWindowState",,b2% �fox%=b2%!4-b2%!20:oy%=b2%!16-b2%!24:first%=�(b2%!24/32):last%=first%+7:�last%>unks%-1 last%=unks%-1 �$ș"Wimp_RedrawWindow",,b% �more% ȕmore% �l=first%�last% ș"Wimp_SetColour",7 �l+1=edit%� *OȓȐox%,oy%-4-32*(l+1)-�(l=(unks%-1))*2,500,30+�(l=(0))*10+�(l=(unks%-1))*2 4� >�ox%+10,oy%-7-32*l H'ș"Wimp_SetColour",11*�(l+1<>edit%) R3��(l+1);�3);:ș"Wimp_SetColour",7*�(l+1<>edit%) \�$(unkDAT%+l*14):� f#ș"Wimp_GetRectangle",,b%�more% p @%=at% z� � ��:� � � ��setextent(W%,no,min,width) �min=-min �/!b%=W%:ș"Wimp_GetWindowInfo",,b%:wb%=b%!28 ��cw(W%) � !b%=0 �/�W%=coeffW% b%!4=-(no*50+9)�b%!4=-(no*32+6) ��width b%!8=width*265+316 �b%!12=0:�b%!4>min b%!4=min �aș"Wimp_SetExtent",W%,b%:!b%=W%:ș"Wimp_GetWindowState",,b%:b%!28=wb%:ș"Wimp_OpenWindow",,b% �� (��attatch(bhand%,thand%,xoff%,yoff%) w!b2%=thand%:ș"Wimp_GetWindowState",,b2%:b2%!28=b%!28:b2%!12=b2%!12-b2%!4+b%!4+xoff%:b2%!16=b2%!16-b2%!8+b%!8+yoff% $cb2%!4=b%!4+xoff%:b2%!8=b%!8+yoff%:ș"Wimp_OpenWindow",,b2%:b%!28=thand%:ș"Wimp_OpenWindow",,b% .� 8 B� Icon clicks L V!��click:cwin%=b%!12:icc=b%!16 `Ȏcwin%� j�-2 tȎb%!8� ~ �2:�menu(im%,!b%-64,96+44*4) ��4:�wopen(mainW%)� ��openw(mainW%) � �wfull(mainW%)�openw(unkW%) ���smallmain �� �� � ��helpW% �Ȏicc � ��17:�cr(helpW%) �.�41,44:�"Filer_Run Resources:$.Apps.!Help" �� �changW% Ȏicc � �11:�help (�1 2b2%!4=changW% <"ș"Wimp_GetWindowOutline",,b2% F!b2%=changW% Pb2%!4=1 Zș"Wimp_DragBox",,b2% d'�4:�setedit(ex%,ey%):�cr(rW%):�calc n��10:�choice("Do you really want to clear all this data?"):�x=1�unks%+1:�y=1�unks%:XY(x,y,2)=0:�:�:ex%=0:ey%=0:�forceredraw(coeffW%):�setedit(1,1) x�9 �Ȏb%!8 � %111� ��2:cxoffset%=oxo% ��1:cyoffset%=oyo% � �!cxoffset%=oxo%:cyoffset%=oyo% �� �Y!b%=coeffW%:ș"Wimp_GetWindowState",,b%:�attatch(coeffW%,changW%,cxoffset%,cyoffset%) �� � ��openW% ��cr(openW%):�iconbar � ��coeffW% �b%!8=2 � !b2%=coeffW% ș"Wimp_GetWindowState",,b2% "%x%=((b%!0-b2%!4+b2%!20-50)�265)+1 ,!y%=((b%!4-b2%!16+b2%!24)�-50) 6)�x%>0 � x%<unks%+2 �y%>0�y%<unks%+1 � @;�b%!8=1 �msg("Cell ("+$(unkDAT%+(x%-1)*14)+","+�y%+")") J�setedit(x%,y%) T� ^ h�rW% r�menudefs:� Check for tick |�menu(am%,!b%-64,b%!4) � ��infoW% �>�icc=9 �msg("Please e-mail me if you can! I like E-mail!") � � �unkW% �+!b2%=unkW%:ș"Wimp_GetWindowState",,b2% � oe%=edit% �&edit%=1+�((b2%!16-b2%!24-b%!4)�32) �!�$�im(mainW%,7)=""edit%=oe%:� �($(unkDAT%+(oe%-1)*14)=$�im(mainW%,7) ��edit%>unks% �edit%=unks% �H$�im(mainW%,7)=$(unkDAT%+(edit%-1)*14):�stc(mainW%,7):�upd(mainW%,7) ��forceredraw(unkW%) �mainW% Ȏicc � &�13,17:�help 0%�16:�$�im(mainW%,7)=""��:� CHANGE :*$(unkDAT%+(edit%-1)*14)=$�im(mainW%,7) D�cr(mainW%) N(�setextent(coeffW%,unks%+2,50,unks%) X�openw(coeffW%) bl�centre(coeffW%,845,480,0):!b%=coeffW%:ș"Wimp_GetWindowState",,b%:�attatch(coeffW%,changW%,0,cyoffset%) lE�x=1�unks%+1:�y=1�unks%:XY(x,y,2)=0:�:�:ex%=0:ey%=0:�setedit(1,1) v$�8:�$�im(mainW%,7)=""��:� CHANGE �*$(unkDAT%+(edit%-1)*14)=$�im(mainW%,7) �#�edit%<unks% edit%+=1 � edit%=1 �H$�im(mainW%,7)=$(unkDAT%+(edit%-1)*14):�upd(mainW%,7):�stc(mainW%,7) � !b%=unkW% �ș"Wimp_GetWindowState",,b% ��edit%>4 b%!24-=32 �b%!24=0 �ș"Wimp_OpenWindow",,b% ��forceredraw(unkW%) �,�9:n$=$�im(mainW%,7):�n$>11 �n$=�n$,11) ���choice("Do you really want to make all unknowns follow the sequence "+n$+"1, "+n$+"2 etc.") ��numbervars(n$,-1):�forceredraw(unkW%):$�im(mainW%,7)=$(unkDAT%+(edit%-1)*14):�upd(mainW%,7):�stc(mainW%,7) �@�10:�choice("Do you really want to start again?")�smallmain ��11:�cr(mainW%) �@�4:�$�im(mainW%,3)<2 ��msg("This is not allowed!")��bigmain � � �:� * 4��keypress:Ȏ!b%� > H�openW% R�cr(openW%):�iconbar \�mainW% f Ȏb%!24� p �&19F,&1AF,&1BF,30 zA �$�im(mainW%,7)<>"" $(unkDAT%+(edit%-1)*14)=$�im(mainW%,7)�� � edit%=1 �H$�im(mainW%,7)=$(unkDAT%+(edit%-1)*14):�upd(mainW%,7):�stc(mainW%,7) � !b%=unkW% �ș"Wimp_GetWindowState",,b% �b%!24=0 �ș"Wimp_OpenWindow",,b% � �forceredraw(unkW%) � � �&19E,&1AF,&1AE,&1AE �A �$�im(mainW%,7)<>"" $(unkDAT%+(edit%-1)*14)=$�im(mainW%,7)�� � edit%=unks% �H$�im(mainW%,7)=$(unkDAT%+(edit%-1)*14):�upd(mainW%,7):�stc(mainW%,7) � !b%=unkW% ș"Wimp_GetWindowState",,b% b%!24=-unks%*32-3 ș"Wimp_OpenWindow",,b% $ �forceredraw(unkW%) . 8 �&18F,&19A B Ȏb%!4 � LE �7:�$�im(mainW%,7)<>"" $(unkDAT%+(edit%-1)*14)=$�im(mainW%,7)�� V �edit%>1 edit%-=1 `H$�im(mainW%,7)=$(unkDAT%+(edit%-1)*14):�upd(mainW%,7):�stc(mainW%,7) j !b%=unkW% tș"Wimp_GetWindowState",,b% ~�unks%-edit%>3 b%!24+=32 �ș"Wimp_OpenWindow",,b% � �forceredraw(unkW%) � � � � �13,&18E,&18A � Ȏb%!4 � �W �3:�$�im(mainW%,3)<2 �b%!24=13 ��msg("This is not allowed!") ��b%!24=13�bigmain �E �7:�$�im(mainW%,7)<>"" $(unkDAT%+(edit%-1)*14)=$�im(mainW%,7)�� �% �edit%<unks% edit%+=1 � edit%=1 �H$�im(mainW%,7)=$(unkDAT%+(edit%-1)*14):�upd(mainW%,7):�stc(mainW%,7) � !b%=unkW% �ș"Wimp_GetWindowState",,b% �edit%>4 b%!24-=32 �edit%=1 b%!24=0 ș"Wimp_OpenWindow",,b% �forceredraw(unkW%) (� 2 ș"Wimp_ProcessKey",b%!24 <� F P�changW% ZȎb%!24� d�30:�setedit(1,1) n$�&18F:�ey%>1 �setedit(ex%,ey%-1) x}�&181:cxoffset%=oxo%:cyoffset%=oyo%:!b%=coeffW%:ș"Wimp_GetWindowState",,b%:�attatch(coeffW%,changW%,cxoffset%,cyoffset%) �(�&18E:�ey%<unks% �setedit(ex%,ey%+1) �E�&19A:�ex%>1 �setedit(ex%-1,ey%) � �ey%>1 �setedit(unks%+1,ey%-1) ��&18A,13 ��ex%<unks%+1 � ��setedit(ex%+1,ey%) �� ��ey%<unks% � ��setedit(1,ey%+1) �� �$�setedit(ex%,ey%):�cr(rW%):�calc �� �� �ș"Wimp_ProcessKey",b%!24 �:� ��menudecode "Ȏlatestm%� , 6�am% @Ȏb%!0� J�0:sigfigs=3 T�1:sigfigs=4 ^�2:sigfigs=5 h�3:sigfigs=6 r�4:sigfigs=9 |�5:force=force � -1 �� �/�force @%="+E."+�sigfigs �@%="+G."+�sigfigs ��calcerror ��forceredraw(rW%) � ��im% �Ȏb%!0� ��1:�wopen(mainW%)� �/�openw(mainW%):�wfull(mainW%)�openw(unkW%) ���smallmain �� � ��2:�help �3:�quit � &� 0Dș"Wimp_GetPointerInfo",,b%:�b%!8=1�menudefs:�menu(latestm%,0,0) :� D N�mainW% XȎicc � b�13:�cr(mainW%) l� v ��openW% ��cr(openW%):�iconbar �� ��:� � � ��help �,�openw(helpW%):�centre(helpW%,902,630,0) �� � ���smallmain ��wopen(coeffW%)� �= 笤choice("Start again? You will lose all the data...")� � �cw(coeffW%):�cw(changW%) � �wopen(rW%) �cr(rW%) �cr(unkW%) *�openw(mainW%) 4�hide(mainW%,12) >�hide(mainW%,13) H�hide(mainW%,14) R�show(mainW%,17) \�show(mainW%,2) f�show(mainW%,3) p�show(mainW%,11) z�show(mainW%,4) �-�stc(mainW%,3):�centre(mainW%,394,444,-1) �� � ���numbervars(start$,repeat) �at%=@%:@%="+G.9" �start=�start$ ��unk%=0�unks%-1 ��repeat=0 start$=�start �V$(unkDAT%+unk%*14)=start$:�repeat �$(unkDAT%+unk%*14)=$(unkDAT%+unk%*14)+�(unk%+1) ��repeat start+=1 �� �"$(unkDAT%+unk%*14)="Total"+�13 � @%=at% � ��bigmain $�cr(mainW%) .l�wopen(coeffW%)�msg("You will need to close your present coefficient data to be able to start again"):� 8edit%=1 Bunks%=�$�im(mainW%,3) L!�unks%<4 � �numbervars("X",0) V*�unks%>3 �unks%<6 � �numbervars("P",0) `*�unks%>5 �unks%<27 ��numbervars("A",0) j"�unks%>26 ��numbervars("x",-1) t�show(mainW%,12) ~�show(mainW%,13) ��show(mainW%,14) ��hide(mainW%,17) ��hide(mainW%,2) ��hide(mainW%,3) ��hide(mainW%,11) ��hide(mainW%,4) �!�setextent(unkW%,unks%,208,0) ��centre(mainW%,780,444,-1) �U!b%=mainW%:ș"Wimp_GetWindowState",,b%:�attatch(mainW%,unkW%,mxoffset%,myoffset%) �H$�im(mainW%,7)=$(unkDAT%+(edit%-1)*14):�stc(mainW%,7):�upd(mainW%,7) �� � ݤpercent(small,big) � ��="V High" �big=0 � = "N/A" ((s$=�((��(10000*small/big))/100)+" %" 2�s$>8="V High" � =s$ < F ��calc P^�XY(1,1,2)=0��msg("The value in cell ("+$unkDAT%+",1) cannot be 0 to calculate results"):� Z�x,y d� n����msg("Sorry. This set of values can�t be calculated. See the Help file Problems section if you cannot immediately see what is wrong."):�"FX229,1":�"FX124":� xș"Hourglass_On" �*FX229,0 �3�x=1�unks%+1:�y=1�unks%:XY(x,y,1)=XY(x,y,2):�:� ��invert(unks%) � �3�x=1�unks%+1:�y=1�unks%:XY(x,y,1)=XY(x,y,2):�:� � �4�x=1�unks%:XY(unks%+1,x,0)=�calculate(unks%,x):� ��calcerror � �*FX229,1 � *FX124 �ș"Hourglass_Off" �0!b%=rW%:ș"Wimp_GetWindowInfo",,b%:wb%=b%!28 b%!0=b%!44 b%!4=-unks%*64-150 b%!8=b%!52 "b%!12=0 , 6ș"Wimp_SetExtent",rW%,b% @�openw(rW%) J� T ^��calcerror h��y=1�unks%:XY(unks%,y,0)=0:�x=1�unks%:XY(unks%,y,0)+=��XY(unks%+1,x,0)*XY(x,y,1):�:XY(unks%,y,0)=�(XY(unks%,y,0)-XY(unks%+1,y,1)):� r� | ���invert(cr) �O� If anyone has an better (iterative) way of solving simultaneous equations � � I�d like to hear from you! ��x,y,l,c,un,k,i,j ��i=1�cr ��j=1�cr �XY(i,j,0)=1-�(�(i-j)) ��:� � �i=1�cr-1 �2笔(XY(i,i,1))>0.000001 � "TRIP ERROR HANDLER" �*ș"Hourglass_Percentage",(i/(cr-1))*50 ��i+1<=cr � � �j=i+1 � cr x=XY(j,i,1)/XY(i,i,1) �k=1�cr XY(j,k,1)-=x*XY(i,k,1) &XY(j,k,0)-=x*XY(i,k,0) 0� :� D�:� N�i=cr � 1 �-1 X�k=1�cr b,ș"Hourglass_Percentage",100-((i/cr)*50) l�i+1<=cr � v �j=i+1 �cr �, XY(i,k,0)=XY(i,k,0)-XY(i,j,1)*XY(j,k,0) � � �� �!XY(i,k,0)=XY(i,k,0)/XY(i,i,1) ��:� �� � �ݤcalculate(n,l) ��c,t �t=0 � �c=1�n �t+=XY(c,l,0)*XY(n+1,c,1) �� !=t �
00000000 0d 00 0a 17 f4 20 52 75 6e 69 6d 61 67 65 20 66 |..... Runimage f| 00000010 6f 72 20 45 71 75 73 0d 00 14 05 f4 0d 00 1e 19 |or Equs.........| 00000020 f4 20 46 6f 72 20 41 63 6f 72 6e 20 43 6f 6d 70 |. For Acorn Comp| 00000030 75 74 65 72 73 0d 00 28 19 f4 20 53 69 6d 6f 6e |uters..(.. Simon| 00000040 20 57 65 61 76 65 72 20 2d 20 31 39 39 35 0d 00 | Weaver - 1995..| 00000050 32 05 f4 0d 00 3c 16 f4 20 a9 20 41 63 6f 72 6e |2....<.. . Acorn| 00000060 20 55 73 65 72 20 90 39 35 0d 00 64 04 0d 00 6e | User .95..d...n| 00000070 0c f2 76 61 72 69 6e 69 74 0d 00 78 10 f2 6d 61 |..varinit..x..ma| 00000080 69 6e 73 70 72 69 74 65 73 0d 00 82 12 f2 6c 6f |insprites.....lo| 00000090 61 64 74 65 6d 70 6c 61 74 65 73 0d 00 8c 04 0d |adtemplates.....| 000000a0 00 96 27 24 28 a4 69 6d 28 69 6e 66 6f 57 25 2c |..'$(.im(infoW%,| 000000b0 33 29 29 3d 22 31 2e 30 30 20 28 32 35 2d 4d 61 |3))="1.00 (25-Ma| 000000c0 79 2d 39 35 29 22 0d 00 a0 04 0d 00 aa 0c f2 63 |y-95)".........c| 000000d0 61 6c 6f 66 66 73 0d 00 b4 0d f2 6d 65 6e 75 64 |aloffs.....menud| 000000e0 65 66 73 0d 00 c8 0e f2 6d 6f 64 65 63 68 65 63 |efs.....modechec| 000000f0 6b 0d 00 d2 0e f2 77 69 6e 64 73 65 74 75 70 0d |k.....windsetup.| 00000100 00 dc 09 f2 77 69 6d 70 0d 00 e6 04 0d 00 f0 0f |....wimp........| 00000110 dd f2 77 69 6e 64 73 65 74 75 70 0d 00 fa 36 e7 |..windsetup...6.| 00000120 a4 6f 70 65 6e 73 70 20 8c 20 f2 6f 70 65 6e 77 |.opensp . .openw| 00000130 28 6f 70 65 6e 57 25 29 3a f2 73 74 63 28 6f 70 |(openW%):.stc(op| 00000140 65 6e 57 25 2c 32 29 20 8b f2 69 63 6f 6e 62 61 |enW%,2) ..iconba| 00000150 72 0d 01 04 2e f2 6f 70 65 6e 77 28 72 57 25 29 |r.....openw(rW%)| 00000160 3a f2 63 65 6e 74 72 65 28 72 57 25 2c 2d 31 2c |:.centre(rW%,-1,| 00000170 2d 31 2c 2d 31 29 3a f2 63 72 28 72 57 25 29 0d |-1,-1):.cr(rW%).| 00000180 01 0e 05 e1 0d 01 18 04 0d 01 22 0d dd f2 76 61 |.........."...va| 00000190 72 69 6e 69 74 0d 01 2c 10 ee 85 ef 37 3a f1 9e |rinit..,....7:..| 000001a0 2c f6 24 3a e0 0d 01 36 71 69 6e 64 73 69 7a 65 |,.$:...6qindsize| 000001b0 3d 32 38 30 30 3a de 6d 24 28 31 32 29 2c 62 25 |=2800:.m$(12),b%| 000001c0 20 33 33 35 30 2c 62 32 25 20 31 30 32 34 2c 69 | 3350,b2% 1024,i| 000001d0 6e 64 69 72 65 63 74 25 20 69 6e 64 73 69 7a 65 |ndirect% indsize| 000001e0 2c 6e 61 6d 65 25 20 31 31 2c 69 6d 25 20 31 35 |,name% 11,im% 15| 000001f0 30 2c 61 6d 25 20 31 37 36 2c 75 6e 6b 44 41 54 |0,am% 176,unkDAT| 00000200 25 20 31 30 31 2a 31 34 2c 58 59 28 31 30 30 2c |% 101*14,XY(100,| 00000210 31 30 30 2c 32 29 0d 01 40 2f 65 78 25 3d 30 3a |100,2)..@/ex%=0:| 00000220 65 79 25 3d 30 3a 73 69 67 66 69 67 73 3d 39 3a |ey%=0:sigfigs=9:| 00000230 66 6f 72 63 65 3d 30 3a 73 70 32 25 3d 93 3a 77 |force=0:sp2%=.:w| 00000240 61 72 6e 3d a3 0d 01 4a 0d 40 25 3d 22 2b 47 2e |arn=...J.@%="+G.| 00000250 39 22 0d 01 54 0f 61 70 70 24 3d 22 45 71 75 73 |9"..T.app$="Equs| 00000260 22 0d 01 5e 34 c8 99 22 57 69 6d 70 5f 49 6e 69 |"..^4.."Wimp_Ini| 00000270 74 69 61 6c 69 73 65 22 2c 32 30 30 2c 26 34 42 |tialise",200,&4B| 00000280 35 33 34 31 35 34 2c 61 70 70 24 b8 77 6f 73 2c |534154,app$.wos,| 00000290 54 41 53 4b 25 0d 01 68 24 c8 99 22 57 69 6d 70 |TASK%..h$.."Wimp| 000002a0 5f 53 6c 6f 74 53 69 7a 65 22 2c 2d 31 2c 2d 31 |_SlotSize",-1,-1| 000002b0 20 b8 6d 69 6e 73 69 7a 65 0d 01 72 0f f4 20 43 | .minsize..r.. C| 000002c0 6f 6e 73 74 61 6e 74 73 0d 01 73 04 0d 01 74 49 |onstants..s...tI| 000002d0 52 4f 4f 54 32 3d b6 28 32 29 3a 52 4f 4f 54 33 |ROOT2=.(2):ROOT3| 000002e0 3d b6 28 33 29 3a 41 56 4f 47 41 44 52 4f 3d 36 |=.(3):AVOGADRO=6| 000002f0 2e 30 32 32 2a 31 30 5e 32 33 3a 4d 4f 4c 45 3d |.022*10^23:MOLE=| 00000300 41 56 4f 47 41 44 52 4f 3a 47 52 41 56 3d 39 2e |AVOGADRO:GRAV=9.| 00000310 38 30 36 36 35 0d 01 7c 04 0d 01 7d 16 f4 20 45 |80665..|...}.. E| 00000320 6e 64 20 6f 66 20 43 6f 6e 73 74 61 6e 74 73 0d |nd of Constants.| 00000330 01 90 05 e1 0d 01 9a 04 0d 01 a4 11 dd f2 6d 61 |..............ma| 00000340 69 6e 73 70 72 69 74 65 73 0d 01 ae 39 66 69 6c |insprites...9fil| 00000350 65 25 3d 8e 28 22 3c 45 71 75 73 24 44 69 72 3e |e%=.("<Equs$Dir>| 00000360 2e 53 70 72 69 74 65 73 22 29 3a 73 69 7a 65 25 |.Sprites"):size%| 00000370 3d a2 23 66 69 6c 65 25 2b 34 3a d9 23 66 69 6c |=.#file%+4:.#fil| 00000380 65 25 0d 01 b8 0e de 73 70 25 20 73 69 7a 65 25 |e%.....sp% size%| 00000390 0d 01 c2 45 21 73 70 25 3d 73 69 7a 65 25 3a 73 |...E!sp%=size%:s| 000003a0 70 25 21 38 3d 31 36 3a c8 99 22 4f 53 5f 53 70 |p%!8=16:.."OS_Sp| 000003b0 72 69 74 65 4f 70 22 2c 26 31 30 41 2c 73 70 25 |riteOp",&10A,sp%| 000003c0 2c 22 3c 45 71 75 73 24 44 69 72 3e 2e 53 70 72 |,"<Equs$Dir>.Spr| 000003d0 69 74 65 73 22 0d 01 cc 05 e1 0d 01 d6 04 0d 01 |ites"...........| 000003e0 e0 0c dd a4 6f 70 65 6e 73 70 0d 01 ea 39 66 69 |....opensp...9fi| 000003f0 6c 65 25 3d 8e 28 22 3c 45 71 75 73 24 44 69 72 |le%=.("<Equs$Dir| 00000400 3e 2e 4f 70 65 6e 69 6e 67 22 29 3a 73 69 7a 65 |>.Opening"):size| 00000410 25 3d a2 23 66 69 6c 65 25 2b 34 3a d9 23 66 69 |%=.#file%+4:.#fi| 00000420 6c 65 25 0d 01 f4 68 e7 a4 73 6c 6f 74 28 73 69 |le%...h..slot(si| 00000430 7a 65 25 2b 6d 69 6e 73 69 7a 65 29 20 8c 20 21 |ze%+minsize) . !| 00000440 73 70 32 25 3d 73 69 7a 65 25 3a 73 70 32 25 21 |sp2%=size%:sp2%!| 00000450 38 3d 31 36 3a c8 99 22 4f 53 5f 53 70 72 69 74 |8=16:.."OS_Sprit| 00000460 65 4f 70 22 2c 26 31 30 41 2c 73 70 32 25 2c 22 |eOp",&10A,sp2%,"| 00000470 3c 45 71 75 73 24 44 69 72 3e 2e 4f 70 65 6e 69 |<Equs$Dir>.Openi| 00000480 6e 67 22 3a 3d b9 20 8b 20 3d a3 0d 01 fe 04 0d |ng":=. . =......| 00000490 02 08 0a dd f2 71 75 69 74 0d 02 26 28 c8 99 22 |.....quit..&(.."| 000004a0 57 69 6d 70 5f 43 6c 6f 73 65 44 6f 77 6e 22 2c |Wimp_CloseDown",| 000004b0 54 41 53 4b 25 2c 26 34 42 35 33 34 31 35 34 3a |TASK%,&4B534154:| 000004c0 e0 0d 02 3a 04 0d 02 58 11 dd f2 65 72 72 6f 72 |...:...X...error| 000004d0 68 61 6e 64 6c 65 0d 02 62 09 c8 8e 9f 20 ca 0d |handle..b.... ..| 000004e0 02 6c 61 7f e7 a4 63 68 6f 69 63 65 28 22 50 72 |.la...choice("Pr| 000004f0 6f 62 6c 65 6d 20 69 6e 73 69 64 65 20 45 71 75 |oblem inside Equ| 00000500 73 20 3a 20 22 2b c3 9f 2b 22 20 27 22 2b f6 24 |s : "+..+" '"+.$| 00000510 2b 22 27 20 61 74 20 6c 69 6e 65 20 22 2b c3 9e |+"' at line "+..| 00000520 2b 22 20 43 6f 6e 74 69 6e 75 65 20 65 78 65 63 |+" Continue exec| 00000530 75 74 69 6f 6e 3f 22 29 3d a3 20 f2 71 75 69 74 |ution?")=. .quit| 00000540 0d 02 76 05 cb 0d 02 80 05 e1 0d 02 8a 04 0d 02 |..v.............| 00000550 94 2c dd a4 63 68 6f 69 63 65 28 65 72 72 24 29 |.,..choice(err$)| 00000560 3a 21 62 32 25 3d 32 35 35 3a 24 28 62 32 25 2b |:!b2%=255:$(b2%+| 00000570 34 29 3d 65 72 72 24 2b bd 30 0d 02 9e 37 c8 99 |4)=err$+.0...7..| 00000580 22 57 69 6d 70 5f 52 65 70 6f 72 74 45 72 72 6f |"Wimp_ReportErro| 00000590 72 22 2c 62 32 25 2c 31 39 2c 22 51 75 65 72 79 |r",b2%,19,"Query| 000005a0 20 66 72 6f 6d 20 22 2b 61 70 70 24 20 b8 2c 72 | from "+app$ .,r| 000005b0 25 0d 02 a8 0b e7 72 25 3d 31 3d b9 0d 02 b2 06 |%.....r%=1=.....| 000005c0 3d a3 0d 02 bc 04 0d 02 c6 29 dd f2 6d 73 67 28 |=........)..msg(| 000005d0 65 72 72 24 29 3a 21 62 32 25 3d 32 35 35 3a 24 |err$):!b2%=255:$| 000005e0 28 62 32 25 2b 34 29 3d 65 72 72 24 2b bd 30 0d |(b2%+4)=err$+.0.| 000005f0 02 d0 34 c8 99 22 57 69 6d 70 5f 52 65 70 6f 72 |..4.."Wimp_Repor| 00000600 74 45 72 72 6f 72 22 2c 62 32 25 2c 31 37 2c 22 |tError",b2%,17,"| 00000610 4d 65 73 73 61 67 65 20 66 72 6f 6d 20 22 2b 61 |Message from "+a| 00000620 70 70 24 0d 02 da 05 e1 0d 02 e4 04 0d 02 ee 0d |pp$.............| 00000630 dd f2 69 63 6f 6e 62 61 72 0d 02 f8 14 64 3d a4 |..iconbar....d=.| 00000640 73 6c 6f 74 28 6d 69 6e 73 69 7a 65 29 0d 03 02 |slot(minsize)...| 00000650 6b 21 62 25 3d 2d 31 3a 62 25 21 34 3d 30 3a 62 |k!b%=-1:b%!4=0:b| 00000660 25 21 38 3d 30 3a 62 25 21 31 32 3d 36 30 3a 62 |%!8=0:b%!12=60:b| 00000670 25 21 31 36 3d 36 38 3a 62 25 21 32 30 3d 25 31 |%!16=68:b%!20=%1| 00000680 31 30 30 30 30 30 30 30 31 31 30 31 30 3a 24 28 |1000000011010:$(| 00000690 62 25 2b 32 34 29 3d 22 21 45 71 75 73 22 3a c8 |b%+24)="!Equs":.| 000006a0 99 22 57 69 6d 70 5f 43 72 65 61 74 65 49 63 6f |."Wimp_CreateIco| 000006b0 6e 22 2c 2c 62 25 3a e1 0d 03 0c 04 0d 03 16 0d |n",,b%:.........| 000006c0 dd f2 63 61 6c 6f 66 66 73 0d 03 20 7c 21 62 25 |..caloffs.. |!b%| 000006d0 3d 6d 61 69 6e 57 25 3a 21 62 32 25 3d 75 6e 6b |=mainW%:!b2%=unk| 000006e0 57 25 3a c8 99 22 57 69 6d 70 5f 47 65 74 57 69 |W%:.."Wimp_GetWi| 000006f0 6e 64 6f 77 53 74 61 74 65 22 2c 2c 62 25 3a c8 |ndowState",,b%:.| 00000700 99 22 57 69 6d 70 5f 47 65 74 57 69 6e 64 6f 77 |."Wimp_GetWindow| 00000710 53 74 61 74 65 22 2c 2c 62 32 25 3a 6d 78 6f 66 |State",,b2%:mxof| 00000720 66 73 65 74 25 3d 62 32 25 21 34 2d 62 25 21 34 |fset%=b2%!4-b%!4| 00000730 3a 6d 79 6f 66 66 73 65 74 25 3d 62 32 25 21 38 |:myoffset%=b2%!8| 00000740 2d 62 25 21 38 0d 03 2a 7f 21 62 25 3d 63 6f 65 |-b%!8..*.!b%=coe| 00000750 66 66 57 25 3a 21 62 32 25 3d 63 68 61 6e 67 57 |ffW%:!b2%=changW| 00000760 25 3a c8 99 22 57 69 6d 70 5f 47 65 74 57 69 6e |%:.."Wimp_GetWin| 00000770 64 6f 77 53 74 61 74 65 22 2c 2c 62 25 3a c8 99 |dowState",,b%:..| 00000780 22 57 69 6d 70 5f 47 65 74 57 69 6e 64 6f 77 53 |"Wimp_GetWindowS| 00000790 74 61 74 65 22 2c 2c 62 32 25 3a 63 78 6f 66 66 |tate",,b2%:cxoff| 000007a0 73 65 74 25 3d 62 32 25 21 34 2d 62 25 21 34 3a |set%=b2%!4-b%!4:| 000007b0 63 79 6f 66 66 73 65 74 25 3d 62 32 25 21 38 2d |cyoffset%=b2%!8-| 000007c0 62 25 21 38 0d 03 34 21 6f 78 6f 25 3d 63 78 6f |b%!8..4!oxo%=cxo| 000007d0 66 66 73 65 74 25 3a 6f 79 6f 25 3d 63 79 6f 66 |ffset%:oyo%=cyof| 000007e0 66 73 65 74 25 0d 03 3e 05 e1 0d 03 48 04 0d 03 |fset%..>....H...| 000007f0 52 0e dd f2 6d 65 6e 75 64 65 66 73 0d 03 5c 3e |R...menudefs..\>| 00000800 24 69 6d 25 3d 22 45 71 75 73 22 3a 69 6d 25 21 |$im%="Equs":im%!| 00000810 31 32 3d 26 30 30 30 37 30 32 30 37 3a 69 6d 25 |12=&00070207:im%| 00000820 21 31 36 3d 32 31 30 3a 69 6d 25 21 32 30 3d 34 |!16=210:im%!20=4| 00000830 34 3a 69 6d 25 21 32 34 3d 30 0d 03 66 3b 69 6d |4:im%!24=0..f;im| 00000840 25 21 32 38 3d 30 3a 69 6d 25 21 33 32 3d 69 6e |%!28=0:im%!32=in| 00000850 66 6f 57 25 3a 69 6d 25 21 33 36 3d 26 37 30 30 |foW%:im%!36=&700| 00000860 30 30 32 31 3a 24 28 69 6d 25 2b 34 30 29 3d 22 |0021:$(im%+40)="| 00000870 49 6e 66 6f 22 0d 03 70 3e 69 6d 25 21 35 32 3d |Info"..p>im%!52=| 00000880 26 30 3a 69 6d 25 21 35 36 3d 2d 31 3a 69 6d 25 |&0:im%!56=-1:im%| 00000890 21 36 30 3d 26 37 30 30 30 30 32 31 3a 24 28 69 |!60=&7000021:$(i| 000008a0 6d 25 2b 36 34 29 3d 22 44 61 74 61 20 53 65 74 |m%+64)="Data Set| 000008b0 75 70 22 0d 03 7a 3b 69 6d 25 21 37 36 3d 26 30 |up"..z;im%!76=&0| 000008c0 3a 69 6d 25 21 38 30 3d 2d 31 3a 69 6d 25 21 38 |:im%!80=-1:im%!8| 000008d0 34 3d 26 37 30 30 30 30 32 31 3a 24 28 69 6d 25 |4=&7000021:$(im%| 000008e0 2b 38 38 29 3d 22 48 65 6c 70 2e 2e 2e 22 0d 03 |+88)="Help..."..| 000008f0 84 3d 69 6d 25 21 31 30 30 3d 26 38 30 3a 69 6d |.=im%!100=&80:im| 00000900 25 21 31 30 34 3d 2d 31 3a 69 6d 25 21 31 30 38 |%!104=-1:im%!108| 00000910 3d 26 37 30 30 30 30 32 31 3a 24 28 69 6d 25 2b |=&7000021:$(im%+| 00000920 31 31 32 29 3d 22 51 75 69 74 22 0d 03 8e 04 0d |112)="Quit".....| 00000930 03 98 40 24 61 6d 25 3d 22 46 6f 72 6d 61 74 22 |..@$am%="Format"| 00000940 3a 61 6d 25 21 31 32 3d 26 30 30 30 37 30 32 30 |:am%!12=&0007020| 00000950 37 3a 61 6d 25 21 31 36 3d 32 31 30 3a 61 6d 25 |7:am%!16=210:am%| 00000960 21 32 30 3d 34 34 3a 61 6d 25 21 32 34 3d 30 0d |!20=44:am%!24=0.| 00000970 03 a2 3e 61 6d 25 21 32 38 3d 30 3a 61 6d 25 21 |..>am%!28=0:am%!| 00000980 33 32 3d 2d 31 3a 61 6d 25 21 33 36 3d 26 37 30 |32=-1:am%!36=&70| 00000990 30 30 30 32 31 3a 24 28 61 6d 25 2b 34 30 29 3d |00021:$(am%+40)=| 000009a0 22 33 20 53 69 67 2e 20 46 69 67 73 22 0d 03 ac |"3 Sig. Figs"...| 000009b0 3f 61 6d 25 21 35 32 3d 26 30 3a 61 6d 25 21 35 |?am%!52=&0:am%!5| 000009c0 36 3d 2d 31 3a 61 6d 25 21 36 30 3d 26 37 30 30 |6=-1:am%!60=&700| 000009d0 30 30 32 31 3a 24 28 61 6d 25 2b 36 34 29 3d 22 |0021:$(am%+64)="| 000009e0 34 20 53 69 67 2e 20 46 69 67 73 22 0d 03 b6 3f |4 Sig. Figs"...?| 000009f0 61 6d 25 21 37 36 3d 26 30 3a 61 6d 25 21 38 30 |am%!76=&0:am%!80| 00000a00 3d 2d 31 3a 61 6d 25 21 38 34 3d 26 37 30 30 30 |=-1:am%!84=&7000| 00000a10 30 32 31 3a 24 28 61 6d 25 2b 38 38 29 3d 22 35 |021:$(am%+88)="5| 00000a20 20 53 69 67 2e 20 46 69 67 73 22 0d 03 c0 43 61 | Sig. Figs"...Ca| 00000a30 6d 25 21 31 30 30 3d 26 30 3a 61 6d 25 21 31 30 |m%!100=&0:am%!10| 00000a40 34 3d 2d 31 3a 61 6d 25 21 31 30 38 3d 26 37 30 |4=-1:am%!108=&70| 00000a50 30 30 30 32 31 3a 24 28 61 6d 25 2b 31 31 32 29 |00021:$(am%+112)| 00000a60 3d 22 36 20 53 69 67 2e 20 46 69 67 73 22 0d 03 |="6 Sig. Figs"..| 00000a70 ca 3c 61 6d 25 21 31 32 34 3d 26 30 3a 61 6d 25 |.<am%!124=&0:am%| 00000a80 21 31 32 38 3d 2d 31 3a 61 6d 25 21 31 33 32 3d |!128=-1:am%!132=| 00000a90 26 37 30 30 30 30 32 31 3a 24 28 61 6d 25 2b 31 |&7000021:$(am%+1| 00000aa0 33 36 29 3d 22 46 75 6c 6c 22 0d 03 d4 50 61 6d |36)="Full"...Pam| 00000ab0 25 21 31 34 38 3d 26 38 30 2b 28 66 6f 72 63 65 |%!148=&80+(force| 00000ac0 3d 2d 31 29 2a 2d 31 3a 61 6d 25 21 31 35 32 3d |=-1)*-1:am%!152=| 00000ad0 2d 31 3a 61 6d 25 21 31 35 36 3d 26 37 30 30 30 |-1:am%!156=&7000| 00000ae0 30 32 31 3a 24 28 61 6d 25 2b 31 36 30 29 3d 22 |021:$(am%+160)="| 00000af0 46 6f 72 63 65 20 45 58 50 22 0d 03 de 50 61 6d |Force EXP"...Pam| 00000b00 25 21 28 32 38 2b 32 34 2a 28 28 73 69 67 66 69 |%!(28+24*((sigfi| 00000b10 67 73 3d 34 29 2a 2d 31 2b 28 73 69 67 66 69 67 |gs=4)*-1+(sigfig| 00000b20 73 3d 35 29 2a 2d 32 2b 28 73 69 67 66 69 67 73 |s=5)*-2+(sigfigs| 00000b30 3d 36 29 2a 2d 33 2b 28 73 69 67 66 69 67 73 3d |=6)*-3+(sigfigs=| 00000b40 39 29 2a 2d 34 29 29 2b 3d 31 0d 03 e8 05 e1 0d |9)*-4))+=1......| 00000b50 04 1a 04 0d 04 24 13 dd f2 6c 6f 61 64 74 65 6d |.....$...loadtem| 00000b60 70 6c 61 74 65 73 0d 04 2e 70 c8 99 22 57 69 6d |plates...p.."Wim| 00000b70 70 5f 4f 70 65 6e 54 65 6d 70 6c 61 74 65 22 2c |p_OpenTemplate",| 00000b80 2c 22 3c 45 71 75 73 24 44 69 72 3e 2e 54 65 6d |,"<Equs$Dir>.Tem| 00000b90 70 6c 61 74 65 73 22 3a 69 6e 64 69 72 65 63 74 |plates":indirect| 00000ba0 70 6f 73 25 3d 69 6e 64 69 72 65 63 74 25 3a 70 |pos%=indirect%:p| 00000bb0 6f 73 69 74 69 6f 6e 25 3d 30 3a 58 3d 8e 28 22 |osition%=0:X=.("| 00000bc0 3c 45 71 75 73 24 44 69 72 3e 2e 54 65 6d 70 6c |<Equs$Dir>.Templ| 00000bd0 61 74 65 73 22 29 0d 04 38 44 74 65 6d 70 31 24 |ates")..8Dtemp1$| 00000be0 3d 22 22 3a 74 65 6d 70 3d 38 3a f5 3a 74 65 6d |="":temp=8:.:tem| 00000bf0 70 32 3d 9a 23 58 3a e7 74 65 6d 70 32 3e 3d 36 |p2=.#X:.temp2>=6| 00000c00 35 80 74 65 6d 70 32 3c 3d 39 30 20 74 65 6d 70 |5.temp2<=90 temp| 00000c10 31 24 2b 3d bd 74 65 6d 70 32 0d 04 42 3e e7 a7 |1$+=.temp2..B>..| 00000c20 74 65 6d 70 31 24 2c 22 4f 50 45 4e 49 4e 47 22 |temp1$,"OPENING"| 00000c30 29 6f 70 65 6e 57 25 3d a4 6c 74 28 22 4f 50 45 |)openW%=.lt("OPE| 00000c40 4e 49 4e 47 22 29 3a 74 65 6d 70 31 24 3d 22 22 |NING"):temp1$=""| 00000c50 3a 74 65 6d 70 2d 3d 31 0d 04 4c 38 e7 a7 74 65 |:temp-=1..L8..te| 00000c60 6d 70 31 24 2c 22 4d 41 49 4e 22 29 6d 61 69 6e |mp1$,"MAIN")main| 00000c70 57 25 3d a4 6c 74 28 22 4d 41 49 4e 22 29 3a 74 |W%=.lt("MAIN"):t| 00000c80 65 6d 70 31 24 3d 22 22 3a 74 65 6d 70 2d 3d 31 |emp1$="":temp-=1| 00000c90 0d 04 56 3f e7 a7 74 65 6d 70 31 24 2c 22 55 4e |..V?..temp1$,"UN| 00000ca0 4b 4e 4f 57 4e 53 22 29 75 6e 6b 57 25 3d a4 6c |KNOWNS")unkW%=.l| 00000cb0 74 28 22 55 4e 4b 4e 4f 57 4e 53 22 29 3a 74 65 |t("UNKNOWNS"):te| 00000cc0 6d 70 31 24 3d 22 22 3a 74 65 6d 70 2d 3d 31 0d |mp1$="":temp-=1.| 00000cd0 04 60 3d e7 a7 74 65 6d 70 31 24 2c 22 43 4f 45 |.`=..temp1$,"COE| 00000ce0 46 46 53 22 29 63 6f 65 66 66 57 25 3d a4 6c 74 |FFS")coeffW%=.lt| 00000cf0 28 22 43 4f 45 46 46 53 22 29 3a 74 65 6d 70 31 |("COEFFS"):temp1| 00000d00 24 3d 22 22 3a 74 65 6d 70 2d 3d 31 0d 04 6a 3d |$="":temp-=1..j=| 00000d10 e7 a7 74 65 6d 70 31 24 2c 22 43 48 41 4e 47 45 |..temp1$,"CHANGE| 00000d20 22 29 63 68 61 6e 67 57 25 3d a4 6c 74 28 22 43 |")changW%=.lt("C| 00000d30 48 41 4e 47 45 22 29 3a 74 65 6d 70 31 24 3d 22 |HANGE"):temp1$="| 00000d40 22 3a 74 65 6d 70 2d 3d 31 0d 04 74 38 e7 a7 74 |":temp-=1..t8..t| 00000d50 65 6d 70 31 24 2c 22 49 4e 46 4f 22 29 69 6e 66 |emp1$,"INFO")inf| 00000d60 6f 57 25 3d a4 6c 74 28 22 49 4e 46 4f 22 29 3a |oW%=.lt("INFO"):| 00000d70 74 65 6d 70 31 24 3d 22 22 3a 74 65 6d 70 2d 3d |temp1$="":temp-=| 00000d80 31 0d 04 7e 38 e7 a7 74 65 6d 70 31 24 2c 22 48 |1..~8..temp1$,"H| 00000d90 45 4c 50 22 29 68 65 6c 70 57 25 3d a4 6c 74 28 |ELP")helpW%=.lt(| 00000da0 22 48 45 4c 50 22 29 3a 74 65 6d 70 31 24 3d 22 |"HELP"):temp1$="| 00000db0 22 3a 74 65 6d 70 2d 3d 31 0d 04 88 3b e7 a7 74 |":temp-=1...;..t| 00000dc0 65 6d 70 31 24 2c 22 52 45 53 55 4c 54 53 22 29 |emp1$,"RESULTS")| 00000dd0 72 57 25 3d a4 6c 74 28 22 52 45 53 55 4c 54 53 |rW%=.lt("RESULTS| 00000de0 22 29 3a 74 65 6d 70 31 24 3d 22 22 3a 74 65 6d |"):temp1$="":tem| 00000df0 70 2d 3d 31 0d 04 92 0b fd 74 65 6d 70 3d 30 0d |p-=1.....temp=0.| 00000e00 04 9c 1e d9 23 58 3a c8 99 22 57 69 6d 70 5f 43 |....#X:.."Wimp_C| 00000e10 6c 6f 73 65 54 65 6d 70 6c 61 74 65 22 0d 04 a6 |loseTemplate"...| 00000e20 05 e1 0d 04 b0 04 0d 04 ba 10 dd f2 73 70 28 6e |............sp(n| 00000e30 6f 2c 73 70 61 29 0d 04 c4 18 62 25 21 28 38 38 |o,spa)....b%!(88| 00000e40 2b 33 32 2a 6e 6f 2b 32 34 29 3d 73 70 61 0d 04 |+32*no+24)=spa..| 00000e50 ce 05 e1 0d 04 d8 04 0d 04 e2 10 dd a4 6c 74 28 |.............lt(| 00000e60 24 6e 61 6d 65 25 29 0d 04 ec 6b c8 99 22 57 69 |$name%)...k.."Wi| 00000e70 6d 70 5f 4c 6f 61 64 54 65 6d 70 6c 61 74 65 22 |mp_LoadTemplate"| 00000e80 2c 2c 62 25 2c 69 6e 64 69 72 65 63 74 70 6f 73 |,,b%,indirectpos| 00000e90 25 2c 69 6e 64 69 72 65 63 74 25 2b 69 6e 64 73 |%,indirect%+inds| 00000ea0 69 7a 65 2c 2d 31 2c 6e 61 6d 65 25 2c 70 6f 73 |ize,-1,name%,pos| 00000eb0 69 74 69 6f 6e 25 b8 2c 2c 69 6e 64 69 72 65 63 |ition%.,,indirec| 00000ec0 74 70 6f 73 25 2c 2c 2c 2c 70 6f 73 69 74 69 6f |tpos%,,,,positio| 00000ed0 6e 25 0d 04 f6 3e e7 70 6f 73 69 74 69 6f 6e 25 |n%...>.position%| 00000ee0 3d 30 f2 6d 73 67 28 74 65 6d 70 31 24 2b 22 20 |=0.msg(temp1$+" | 00000ef0 54 65 6d 70 6c 61 74 65 73 20 6d 75 63 6b 65 64 |Templates mucked| 00000f00 20 75 70 21 22 29 3a d9 23 58 3a f2 71 75 69 74 | up!"):.#X:.quit| 00000f10 0d 05 00 0d 62 25 21 36 34 3d 73 70 25 0d 05 0a |....b%!64=sp%...| 00000f20 0d c8 8e 24 6e 61 6d 65 25 ca 0d 05 14 1a c9 22 |...$name%......"| 00000f30 4f 50 45 4e 49 4e 47 22 3a f2 73 70 28 31 2c 73 |OPENING":.sp(1,s| 00000f40 70 32 25 29 0d 05 1e 16 c9 22 4d 41 49 4e 22 3a |p2%)....."MAIN":| 00000f50 f2 73 70 28 31 2c 73 70 25 29 0d 05 28 16 c9 22 |.sp(1,sp%)..(.."| 00000f60 49 4e 46 4f 22 3a f2 73 70 28 38 2c 73 70 25 29 |INFO":.sp(8,sp%)| 00000f70 0d 05 32 16 c9 22 48 45 4c 50 22 3a f2 73 70 28 |..2.."HELP":.sp(| 00000f80 34 2c 73 70 25 29 0d 05 3c 05 cb 0d 05 46 20 c8 |4,sp%)..<....F .| 00000f90 99 22 57 69 6d 70 5f 43 72 65 61 74 65 57 69 6e |."Wimp_CreateWin| 00000fa0 64 6f 77 22 2c 2c 62 25 b8 68 25 0d 05 50 07 3d |dow",,b%.h%..P.=| 00000fb0 68 25 0d 05 5a 04 0d 05 64 11 dd a4 77 6f 70 65 |h%..Z...d...wope| 00000fc0 6e 28 21 62 32 25 29 0d 05 6e 34 c8 99 22 57 69 |n(!b2%)..n4.."Wi| 00000fd0 6d 70 5f 47 65 74 57 69 6e 64 6f 77 53 74 61 74 |mp_GetWindowStat| 00000fe0 65 22 2c 2c 62 32 25 3a e7 62 32 25 21 33 32 80 |e",,b2%:.b2%!32.| 00000ff0 31 3c 3c 31 36 3d b9 20 8b 3d a3 0d 05 78 04 0d |1<<16=. .=...x..| 00001000 05 82 11 dd a4 77 66 75 6c 6c 28 21 62 32 25 29 |.....wfull(!b2%)| 00001010 0d 05 8c 34 c8 99 22 57 69 6d 70 5f 47 65 74 57 |...4.."Wimp_GetW| 00001020 69 6e 64 6f 77 53 74 61 74 65 22 2c 2c 62 32 25 |indowState",,b2%| 00001030 3a e7 62 32 25 21 33 32 80 31 3c 3c 31 38 3d b9 |:.b2%!32.1<<18=.| 00001040 20 8b 3d a3 0d 05 96 04 0d 05 a0 1e dd f2 63 65 | .=...........ce| 00001050 6e 74 72 65 28 77 69 6e 25 2c 66 57 25 2c 66 48 |ntre(win%,fW%,fH| 00001060 25 2c 73 6f 25 29 0d 05 aa 11 ea 20 78 25 2c 79 |%,so%)..... x%,y| 00001070 25 2c 77 25 2c 68 25 0d 05 b4 4f 21 62 32 25 3d |%,w%,h%...O!b2%=| 00001080 34 3a 62 32 25 21 34 3d 35 3a 62 32 25 21 38 3d |4:b2%!4=5:b2%!8=| 00001090 31 31 3a 62 32 25 21 31 32 3d 31 32 3a 62 32 25 |11:b2%!12=12:b2%| 000010a0 21 31 36 3d 2d 31 3a c8 99 22 4f 53 5f 52 65 61 |!16=-1:.."OS_Rea| 000010b0 64 56 64 75 56 61 72 69 61 62 6c 65 73 22 2c 62 |dVduVariables",b| 000010c0 32 25 2c 62 32 25 0d 05 be 1e 78 25 3d 28 31 3c |2%,b2%....x%=(1<| 000010d0 3c 28 21 62 32 25 29 29 2a 28 28 62 32 25 21 38 |<(!b2%))*((b2%!8| 000010e0 29 2b 31 29 0d 05 c8 20 79 25 3d 28 31 3c 3c 28 |)+1)... y%=(1<<(| 000010f0 62 32 25 21 34 29 29 2a 28 28 62 32 25 21 31 32 |b2%!4))*((b2%!12| 00001100 29 2b 31 29 0d 05 d2 0d 21 62 32 25 3d 77 69 6e |)+1)....!b2%=win| 00001110 25 0d 05 dc 20 c8 99 22 57 69 6d 70 5f 47 65 74 |%... .."Wimp_Get| 00001120 57 69 6e 64 6f 77 53 74 61 74 65 22 2c 2c 62 32 |WindowState",,b2| 00001130 25 0d 05 e6 0a 77 25 3d 66 57 25 0d 05 f0 1b e7 |%....w%=fW%.....| 00001140 66 57 25 3d 2d 31 20 77 25 3d 62 32 25 21 31 32 |fW%=-1 w%=b2%!12| 00001150 2d 62 32 25 21 34 0d 05 fa 0a 68 25 3d 66 48 25 |-b2%!4....h%=fH%| 00001160 0d 06 04 1b e7 66 48 25 3d 2d 31 20 68 25 3d 62 |.....fH%=-1 h%=b| 00001170 32 25 21 31 36 2d 62 32 25 21 38 0d 06 0e 13 62 |2%!16-b2%!8....b| 00001180 32 25 21 34 3d 28 78 25 2d 77 25 29 2f 32 0d 06 |2%!4=(x%-w%)/2..| 00001190 18 17 62 32 25 21 38 3d 28 31 33 30 2b 79 25 2d |..b2%!8=(130+y%-| 000011a0 68 25 29 2f 32 0d 06 22 13 62 32 25 21 31 32 3d |h%)/2..".b2%!12=| 000011b0 62 32 25 21 34 2b 77 25 0d 06 2c 13 62 32 25 21 |b2%!4+w%..,.b2%!| 000011c0 31 36 3d 62 32 25 21 38 2b 68 25 0d 06 36 1c e7 |16=b2%!8+h%..6..| 000011d0 73 6f 25 3d 30 20 62 32 25 21 32 30 3d 30 3a 62 |so%=0 b2%!20=0:b| 000011e0 32 25 21 32 34 3d 30 0d 06 40 1c c8 99 22 57 69 |2%!24=0..@..."Wi| 000011f0 6d 70 5f 4f 70 65 6e 57 69 6e 64 6f 77 22 2c 2c |mp_OpenWindow",,| 00001200 62 32 25 0d 06 4a 27 c8 99 22 57 69 6d 70 5f 50 |b2%..J'.."Wimp_P| 00001210 6f 6c 6c 22 2c 25 31 30 30 30 31 31 30 30 30 30 |oll",%1000110000| 00001220 31 31 31 30 30 30 2c 62 32 25 0d 06 54 05 e1 0d |111000,b2%..T...| 00001230 06 5e 04 0d 06 68 0f dd f2 6f 70 65 6e 77 28 68 |.^...h...openw(h| 00001240 25 29 0d 06 72 09 c8 8e 68 25 ca 0d 06 7c 20 c9 |%)..r...h%...| .| 00001250 6f 70 65 6e 57 25 3a f2 63 65 6e 74 72 65 28 68 |openW%:.centre(h| 00001260 25 2c 2d 31 2c 2d 31 2c 2d 31 29 0d 06 86 05 7f |%,-1,-1,-1).....| 00001270 0d 06 90 47 21 62 25 3d 68 25 3a c8 99 22 57 69 |...G!b%=h%:.."Wi| 00001280 6d 70 5f 47 65 74 57 69 6e 64 6f 77 53 74 61 74 |mp_GetWindowStat| 00001290 65 22 2c 2c 62 25 3a 62 25 21 32 38 3d 2d 31 3a |e",,b%:b%!28=-1:| 000012a0 c8 99 22 57 69 6d 70 5f 4f 70 65 6e 57 69 6e 64 |.."Wimp_OpenWind| 000012b0 6f 77 22 2c 2c 62 25 0d 06 9a 05 cb 0d 06 a4 05 |ow",,b%.........| 000012c0 e1 0d 06 ae 04 0d 06 b8 0c dd f2 63 72 28 68 25 |...........cr(h%| 000012d0 29 0d 06 c2 09 c8 8e 68 25 ca 0d 06 cc 5e c9 63 |)......h%....^.c| 000012e0 6f 65 66 66 57 25 3a e7 a4 63 68 6f 69 63 65 28 |oeffW%:..choice(| 000012f0 22 43 6f 6e 74 69 6e 75 69 6e 67 20 77 69 6c 6c |"Continuing will| 00001300 20 63 61 75 73 65 20 74 68 69 73 20 64 61 74 61 | cause this data| 00001310 20 74 6f 20 62 65 20 6c 6f 73 74 21 22 29 20 f2 | to be lost!") .| 00001320 63 72 28 63 68 61 6e 67 57 25 29 3a f2 63 77 28 |cr(changW%):.cw(| 00001330 63 6f 65 66 66 57 25 29 0d 06 d6 22 c9 6d 61 69 |coeffW%)...".mai| 00001340 6e 57 25 3a f2 63 72 28 75 6e 6b 57 25 29 3a f2 |nW%:.cr(unkW%):.| 00001350 63 77 28 6d 61 69 6e 57 25 29 0d 06 e0 05 7f 0d |cw(mainW%)......| 00001360 06 ea 0b f2 63 77 28 68 25 29 0d 06 f4 07 cb 3a |....cw(h%).....:| 00001370 e1 0d 06 fe 04 0d 07 08 0c dd f2 63 77 28 68 25 |...........cw(h%| 00001380 29 0d 07 12 27 21 62 32 25 3d 68 25 3a c8 99 22 |)...'!b2%=h%:.."| 00001390 57 69 6d 70 5f 43 6c 6f 73 65 57 69 6e 64 6f 77 |Wimp_CloseWindow| 000013a0 22 2c 2c 62 32 25 3a e1 0d 07 1c 04 0d 07 26 24 |",,b2%:.......&$| 000013b0 dd f2 6d 65 6e 75 28 68 25 2c 78 70 6f 73 2c 79 |..menu(h%,xpos,y| 000013c0 70 6f 73 29 3a 6c 61 74 65 73 74 6d 25 3d 68 25 |pos):latestm%=h%| 000013d0 0d 07 30 27 c8 99 22 57 69 6d 70 5f 43 72 65 61 |..0'.."Wimp_Crea| 000013e0 74 65 4d 65 6e 75 22 2c 2c 68 25 2c 78 70 6f 73 |teMenu",,h%,xpos| 000013f0 2c 79 70 6f 73 3a e1 0d 07 3a 04 0d 07 44 10 dd |,ypos:...:...D..| 00001400 f2 73 74 63 28 68 25 2c 69 25 29 0d 07 4e 3c c8 |.stc(h%,i%)..N<.| 00001410 99 22 57 69 6d 70 5f 53 65 74 43 61 72 65 74 50 |."Wimp_SetCaretP| 00001420 6f 73 69 74 69 6f 6e 22 2c 68 25 2c 69 25 2c 2c |osition",h%,i%,,| 00001430 2c 2d 31 2c a9 28 a4 69 63 6f 6e 74 65 78 74 28 |,-1,.(.icontext(| 00001440 68 25 2c 69 25 29 29 0d 07 58 05 e1 0d 07 62 04 |h%,i%))..X....b.| 00001450 0d 07 6c 10 dd a4 63 74 63 28 68 25 2c 69 25 29 |..l...ctc(h%,i%)| 00001460 0d 07 76 22 c8 99 22 57 69 6d 70 5f 47 65 74 43 |..v".."Wimp_GetC| 00001470 61 72 65 74 50 6f 73 69 74 69 6f 6e 22 2c 2c 62 |aretPosition",,b| 00001480 32 25 0d 07 80 17 e7 21 62 32 25 3d 68 25 e7 62 |2%.....!b2%=h%.b| 00001490 32 25 21 34 3d 69 25 3d b9 0d 07 8a 06 3d a3 0d |2%!4=i%=.....=..| 000014a0 07 94 04 0d 07 9e 15 dd f2 75 70 64 28 21 62 32 |.........upd(!b2| 000014b0 25 2c 62 32 25 21 34 29 0d 07 a8 5b c8 99 22 57 |%,b2%!4)...[.."W| 000014c0 69 6d 70 5f 47 65 74 49 63 6f 6e 53 74 61 74 65 |imp_GetIconState| 000014d0 22 2c 2c 62 32 25 3a c8 99 22 57 69 6d 70 5f 46 |",,b2%:.."Wimp_F| 000014e0 6f 72 63 65 52 65 64 72 61 77 22 2c 21 62 32 25 |orceRedraw",!b2%| 000014f0 2c 62 32 25 21 38 2d 35 2c 62 32 25 21 31 32 2d |,b2%!8-5,b2%!12-| 00001500 35 2c 62 32 25 21 31 36 2b 35 2c 62 32 25 21 32 |5,b2%!16+5,b2%!2| 00001510 30 2b 35 0d 07 b2 05 e1 0d 07 bc 04 0d 07 c6 55 |0+5............U| 00001520 dd f2 73 65 74 73 74 61 74 65 28 21 62 32 25 2c |..setstate(!b2%,| 00001530 62 32 25 21 34 2c 62 32 25 21 31 32 2c 62 32 25 |b2%!4,b2%!12,b2%| 00001540 21 38 29 3a c8 99 22 57 69 6d 70 5f 53 65 74 49 |!8):.."Wimp_SetI| 00001550 63 6f 6e 53 74 61 74 65 22 2c 2c 62 32 25 3a f2 |conState",,b2%:.| 00001560 75 70 64 28 21 62 32 25 2c 62 32 25 21 34 29 3a |upd(!b2%,b2%!4):| 00001570 e1 0d 07 d0 04 0d 07 da 5e dd f2 73 68 61 64 65 |........^..shade| 00001580 28 21 62 32 25 2c 62 32 25 21 34 29 3a 62 32 25 |(!b2%,b2%!4):b2%| 00001590 21 38 3d 31 3c 3c 32 32 3a 62 32 25 21 31 32 3d |!8=1<<22:b2%!12=| 000015a0 31 3c 3c 32 32 3a c8 99 22 57 69 6d 70 5f 53 65 |1<<22:.."Wimp_Se| 000015b0 74 49 63 6f 6e 53 74 61 74 65 22 2c 2c 62 32 25 |tIconState",,b2%| 000015c0 3a f2 75 70 64 28 21 62 32 25 2c 62 32 25 21 34 |:.upd(!b2%,b2%!4| 000015d0 29 3a e1 0d 07 e4 04 0d 07 ee 5c dd f2 75 6e 73 |):........\..uns| 000015e0 68 61 64 65 28 21 62 32 25 2c 62 32 25 21 34 29 |hade(!b2%,b2%!4)| 000015f0 3a 62 32 25 21 38 3d 30 3a 62 32 25 21 31 32 3d |:b2%!8=0:b2%!12=| 00001600 31 3c 3c 32 32 3a c8 99 22 57 69 6d 70 5f 53 65 |1<<22:.."Wimp_Se| 00001610 74 49 63 6f 6e 53 74 61 74 65 22 2c 2c 62 32 25 |tIconState",,b2%| 00001620 3a f2 75 70 64 28 21 62 32 25 2c 62 32 25 21 34 |:.upd(!b2%,b2%!4| 00001630 29 3a e1 0d 07 f8 04 0d 08 02 5d dd f2 68 69 64 |):........]..hid| 00001640 65 28 21 62 32 25 2c 62 32 25 21 34 29 3a 62 32 |e(!b2%,b2%!4):b2| 00001650 25 21 38 3d 31 3c 3c 32 33 3a 62 32 25 21 31 32 |%!8=1<<23:b2%!12| 00001660 3d 31 3c 3c 32 33 3a c8 99 22 57 69 6d 70 5f 53 |=1<<23:.."Wimp_S| 00001670 65 74 49 63 6f 6e 53 74 61 74 65 22 2c 2c 62 32 |etIconState",,b2| 00001680 25 3a f2 75 70 64 28 21 62 32 25 2c 62 32 25 21 |%:.upd(!b2%,b2%!| 00001690 34 29 3a e1 0d 08 0c 04 0d 08 16 59 dd f2 73 68 |4):........Y..sh| 000016a0 6f 77 28 21 62 32 25 2c 62 32 25 21 34 29 3a 62 |ow(!b2%,b2%!4):b| 000016b0 32 25 21 38 3d 30 3a 62 32 25 21 31 32 3d 31 3c |2%!8=0:b2%!12=1<| 000016c0 3c 32 33 3a c8 99 22 57 69 6d 70 5f 53 65 74 49 |<23:.."Wimp_SetI| 000016d0 63 6f 6e 53 74 61 74 65 22 2c 2c 62 32 25 3a f2 |conState",,b2%:.| 000016e0 75 70 64 28 21 62 32 25 2c 62 32 25 21 34 29 3a |upd(!b2%,b2%!4):| 000016f0 e1 0d 08 20 04 0d 08 2a 18 dd f2 73 65 6c 65 63 |... ...*...selec| 00001700 74 28 21 62 32 25 2c 62 32 25 21 34 29 0d 08 34 |t(!b2%,b2%!4)..4| 00001710 1c 62 32 25 21 38 3d 31 3c 3c 32 31 3a 62 32 25 |.b2%!8=1<<21:b2%| 00001720 21 31 32 3d 31 3c 3c 32 31 0d 08 3e 1e c8 99 22 |!12=1<<21..>..."| 00001730 57 69 6d 70 5f 53 65 74 49 63 6f 6e 53 74 61 74 |Wimp_SetIconStat| 00001740 65 22 2c 2c 62 32 25 0d 08 48 14 f2 75 70 64 28 |e",,b2%..H..upd(| 00001750 21 62 32 25 2c 62 32 25 21 34 29 0d 08 52 05 e1 |!b2%,b2%!4)..R..| 00001760 0d 08 5c 04 0d 08 66 1a dd f2 64 65 73 65 6c 65 |..\...f...desele| 00001770 63 74 28 21 62 32 25 2c 62 32 25 21 34 29 0d 08 |ct(!b2%,b2%!4)..| 00001780 70 1c 62 32 25 21 38 3d 30 3c 3c 32 31 3a 62 32 |p.b2%!8=0<<21:b2| 00001790 25 21 31 32 3d 31 3c 3c 32 31 0d 08 7a 1e c8 99 |%!12=1<<21..z...| 000017a0 22 57 69 6d 70 5f 53 65 74 49 63 6f 6e 53 74 61 |"Wimp_SetIconSta| 000017b0 74 65 22 2c 2c 62 32 25 0d 08 84 14 f2 75 70 64 |te",,b2%.....upd| 000017c0 28 21 62 32 25 2c 62 32 25 21 34 29 0d 08 8e 05 |(!b2%,b2%!4)....| 000017d0 e1 0d 08 98 04 0d 08 a2 1a dd a4 73 65 6c 65 63 |...........selec| 000017e0 74 65 64 28 21 62 32 25 2c 62 32 25 21 34 29 0d |ted(!b2%,b2%!4).| 000017f0 08 ac 1e c8 99 22 57 69 6d 70 5f 47 65 74 49 63 |....."Wimp_GetIc| 00001800 6f 6e 53 74 61 74 65 22 2c 2c 62 32 25 0d 08 b6 |onState",,b2%...| 00001810 17 e7 62 32 25 21 32 34 80 31 3c 3c 32 31 3d b9 |..b2%!24.1<<21=.| 00001820 20 8b 3d a3 0d 08 c0 04 0d 08 ca 37 dd a4 69 6d | .=........7..im| 00001830 28 21 62 32 25 2c 62 32 25 21 34 29 3a c8 99 22 |(!b2%,b2%!4):.."| 00001840 57 69 6d 70 5f 47 65 74 49 63 6f 6e 53 74 61 74 |Wimp_GetIconStat| 00001850 65 22 2c 2c 62 32 25 3a 3d 62 32 25 21 32 38 0d |e",,b2%:=b2%!28.| 00001860 08 d4 04 0d 08 de 23 dd a4 69 63 6f 6e 74 65 78 |......#..icontex| 00001870 74 28 68 25 2c 69 25 29 3d 24 28 a4 69 6d 28 68 |t(h%,i%)=$(.im(h| 00001880 25 2c 69 25 29 29 0d 08 e8 04 0d 08 f2 16 f4 20 |%,i%))......... | 00001890 57 49 4d 50 20 4d 41 49 4e 54 45 4e 41 4e 43 45 |WIMP MAINTENANCE| 000018a0 0d 08 fc 04 0d 09 06 0a dd f2 77 69 6d 70 0d 09 |..........wimp..| 000018b0 10 12 ee 85 f2 65 72 72 6f 72 68 61 6e 64 6c 65 |.....errorhandle| 000018c0 0d 09 1a 0b 71 75 69 74 25 3d a3 0d 09 24 05 f5 |....quit%=...$..| 000018d0 0d 09 2e 1e c8 99 22 57 69 6d 70 5f 50 6f 6c 6c |......"Wimp_Poll| 000018e0 22 2c 30 2c 62 25 b8 72 65 61 73 6f 6e 25 0d 09 |",0,b%.reason%..| 000018f0 38 0e c8 8e 72 65 61 73 6f 6e 25 ca 0d 09 42 12 |8...reason%...B.| 00001900 c9 31 3a f2 72 65 64 72 61 77 6c 69 73 74 0d 09 |.1:.redrawlist..| 00001910 4c 0f c9 32 3a f2 72 65 64 72 61 77 77 0d 09 56 |L..2:.redraww..V| 00001920 0f c9 33 3a f2 63 72 28 21 62 25 29 0d 09 60 0d |..3:.cr(!b%)..`.| 00001930 c9 36 3a f2 63 6c 69 63 6b 0d 09 6a 3b c9 35 3a |.6:.click..j;.5:| 00001940 e7 21 62 25 3d 72 57 25 20 c8 99 22 57 69 6d 70 |.!b%=rW% .."Wimp| 00001950 5f 53 70 72 69 74 65 4f 70 22 2c 33 36 2c 30 30 |_SpriteOp",36,00| 00001960 30 2c 22 50 74 72 5f 4d 45 4e 55 22 2c 31 2c 30 |0,"Ptr_MENU",1,0| 00001970 2c 30 2c 30 0d 09 74 3e c9 34 3a e7 21 62 25 3d |,0,0..t>.4:.!b%=| 00001980 72 57 25 20 c8 99 22 57 69 6d 70 5f 53 70 72 69 |rW% .."Wimp_Spri| 00001990 74 65 4f 70 22 2c 33 36 2c 30 30 30 2c 22 50 74 |teOp",36,000,"Pt| 000019a0 72 5f 44 45 46 41 55 4c 54 22 2c 31 2c 30 2c 30 |r_DEFAULT",1,0,0| 000019b0 2c 30 0d 09 7e 10 c9 38 3a f2 6b 65 79 70 72 65 |,0..~..8:.keypre| 000019c0 73 73 0d 09 88 12 c9 39 3a f2 6d 65 6e 75 64 65 |ss.....9:.menude| 000019d0 63 6f 64 65 0d 09 92 15 c9 31 37 2c 31 38 3a f2 |code.....17,18:.| 000019e0 74 65 6c 65 70 68 6f 6e 65 0d 09 9c 05 cb 0d 09 |telephone.......| 000019f0 a6 0a fd 71 75 69 74 25 0d 09 b0 09 f2 71 75 69 |...quit%.....qui| 00001a00 74 0d 09 ba 05 e1 0d 09 c4 04 0d 09 ce 0f dd f2 |t...............| 00001a10 74 65 6c 65 70 68 6f 6e 65 0d 09 d8 0c c8 8e 62 |telephone......b| 00001a20 25 21 31 36 ca 0d 09 e2 11 c9 30 2c 31 34 3a 71 |%!16......0,14:q| 00001a30 75 69 74 25 3d b9 0d 09 ec 16 c9 26 34 30 30 43 |uit%=......&400C| 00001a40 31 3a f2 6d 6f 64 65 63 68 65 63 6b 0d 09 f6 16 |1:.modecheck....| 00001a50 c9 26 35 30 32 3a f2 68 65 6c 70 72 65 71 75 65 |.&502:.helpreque| 00001a60 73 74 0d 0a 00 05 cd 0d 0a 0a 05 e1 0d 0a 14 04 |st..............| 00001a70 0d 0a 1e 11 dd a4 73 6c 6f 74 28 73 69 7a 65 25 |......slot(size%| 00001a80 29 0d 0a 28 41 c8 99 22 57 69 6d 70 5f 53 6c 6f |)..(A.."Wimp_Slo| 00001a90 74 53 69 7a 65 22 2c 73 69 7a 65 25 2c 2d 31 3a |tSize",size%,-1:| 00001aa0 c8 99 22 57 69 6d 70 5f 53 6c 6f 74 53 69 7a 65 |.."Wimp_SlotSize| 00001ab0 22 2c 2d 31 2c 2d 31 20 b8 20 6e 65 77 73 69 7a |",-1,-1 . newsiz| 00001ac0 65 25 0d 0a 32 1b e7 6e 65 77 73 69 7a 65 25 3c |e%..2..newsize%<| 00001ad0 73 69 7a 65 25 20 3d 30 20 8b 3d 2d 31 0d 0a 3c |size% =0 .=-1..<| 00001ae0 04 0d 0a 46 2c dd f2 68 65 6c 70 72 65 71 75 65 |...F,..helpreque| 00001af0 73 74 3a f4 20 49 6e 20 45 6e 67 6c 69 73 68 20 |st:. In English | 00001b00 6f 6e 6c 79 20 2d 20 73 6f 72 72 79 21 0d 0a 50 |only - sorry!..P| 00001b10 25 74 24 3d 22 54 68 69 73 20 77 69 6e 64 6f 77 |%t$="This window| 00001b20 20 62 65 6c 6f 6e 67 73 20 74 6f 20 45 71 75 73 | belongs to Equs| 00001b30 2e 22 0d 0a 5a 0d c8 8e 62 25 21 33 32 20 ca 0d |."..Z...b%!32 ..| 00001b40 0a 64 55 c9 2d 32 3a 74 24 3d 22 54 68 69 73 20 |.dU.-2:t$="This | 00001b50 69 73 20 74 68 65 20 45 71 75 73 20 69 63 6f 6e |is the Equs icon| 00001b60 2e 20 43 6c 69 63 6b 20 53 65 6c 65 63 74 20 74 |. Click Select t| 00001b70 6f 20 73 74 61 72 74 2c 20 6f 72 20 4d 65 6e 75 |o start, or Menu| 00001b80 20 66 6f 72 20 6f 74 68 65 72 20 6f 70 74 69 6f | for other optio| 00001b90 6e 73 2e 22 0d 0a 6e 04 0d 0a 78 0b c9 68 65 6c |ns."..n...x..hel| 00001ba0 70 57 25 0d 0a 82 7b 74 24 3d 22 54 68 69 73 20 |pW%...{t$="This | 00001bb0 77 69 6e 64 6f 77 20 67 69 76 65 73 20 62 61 73 |window gives bas| 00001bc0 69 63 20 68 65 6c 70 20 6f 6e 20 68 6f 77 20 74 |ic help on how t| 00001bd0 6f 20 75 73 65 20 45 71 75 73 2e 20 46 6f 72 20 |o use Equs. For | 00001be0 6d 6f 72 65 20 64 65 74 61 69 6c 65 64 20 68 65 |more detailed he| 00001bf0 6c 70 20 61 6e 64 20 70 6f 73 73 69 62 6c 65 20 |lp and possible | 00001c00 70 72 6f 62 6c 65 6d 73 2c 20 72 65 61 64 20 74 |problems, read t| 00001c10 68 65 20 48 65 6c 70 20 66 69 6c 65 2e 22 0d 0a |he Help file."..| 00001c20 8c 0d c8 8e 62 25 21 33 36 20 ca 0d 0a 96 4c c9 |....b%!36 ....L.| 00001c30 34 31 2c 34 34 3a 74 24 3d 22 43 6c 69 63 6b 20 |41,44:t$="Click | 00001c40 68 65 72 65 20 74 6f 20 6c 6f 61 64 20 41 63 6f |here to load Aco| 00001c50 72 6e 91 73 20 73 74 61 6e 64 61 72 64 20 69 6e |rn.s standard in| 00001c60 74 65 72 61 63 74 69 76 65 20 68 65 6c 70 20 73 |teractive help s| 00001c70 79 73 74 65 6d 2e 22 0d 0a a0 2d c9 31 37 3a 74 |ystem."...-.17:t| 00001c80 24 3d 22 43 6c 69 63 6b 20 68 65 72 65 20 74 6f |$="Click here to| 00001c90 20 63 6c 6f 73 65 20 74 68 69 73 20 77 69 6e 64 | close this wind| 00001ca0 6f 77 2e 22 0d 0a aa 05 cb 0d 0a b4 04 0d 0a be |ow."............| 00001cb0 72 c9 6f 70 65 6e 57 25 3a 74 24 3d 22 43 6c 69 |r.openW%:t$="Cli| 00001cc0 63 6b 20 6f 6e 20 74 68 69 73 20 77 69 6e 64 6f |ck on this windo| 00001cd0 77 20 74 6f 20 6c 6f 61 64 20 45 71 75 73 2e 7c |w to load Equs.|| 00001ce0 4d 45 71 75 73 20 69 73 20 61 20 73 69 6d 75 6c |MEqus is a simul| 00001cf0 74 61 6e 65 6f 75 73 20 65 71 75 61 74 69 6f 6e |taneous equation| 00001d00 20 73 6f 6c 76 65 72 20 66 6f 72 20 75 70 20 74 | solver for up t| 00001d10 6f 20 39 39 20 75 6e 6b 6e 6f 77 6e 73 2e 22 0d |o 99 unknowns.".| 00001d20 0a c8 04 0d 0a d2 0b c9 6d 61 69 6e 57 25 0d 0a |........mainW%..| 00001d30 dc 15 e7 ac a4 77 66 75 6c 6c 28 6d 61 69 6e 57 |.....wfull(mainW| 00001d40 25 29 8c 0d 0a e6 69 74 24 3d 22 54 68 69 73 20 |%)....it$="This | 00001d50 77 69 6e 64 6f 77 20 61 6c 6c 6f 77 73 20 79 6f |window allows yo| 00001d60 75 20 74 6f 20 74 79 70 65 20 69 6e 20 74 68 65 |u to type in the| 00001d70 20 6e 75 6d 62 65 72 20 6f 66 20 75 6e 6b 6e 6f | number of unkno| 00001d80 77 6e 73 20 79 6f 75 20 68 61 76 65 20 69 6e 20 |wns you have in | 00001d90 79 6f 75 72 20 73 69 6d 75 6c 74 61 6e 65 6f 75 |your simultaneou| 00001da0 73 20 65 71 75 61 74 69 6f 6e 2e 22 0d 0a f0 0c |s equation."....| 00001db0 c8 8e 62 25 21 33 36 ca 0d 0a fa 3c c9 31 37 3a |..b%!36....<.17:| 00001dc0 74 24 3d 22 43 6c 69 63 6b 20 68 65 72 65 20 66 |t$="Click here f| 00001dd0 6f 72 20 62 61 73 69 63 20 69 6e 66 6f 72 6d 61 |or basic informa| 00001de0 74 69 6f 6e 20 6f 6e 20 75 73 69 6e 67 20 45 71 |tion on using Eq| 00001df0 75 73 2e 22 0d 0b 04 4b c9 34 3a 74 24 3d 22 54 |us."...K.4:t$="T| 00001e00 68 69 73 20 77 69 6c 6c 20 61 63 63 65 70 74 20 |his will accept | 00001e10 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 75 6e |the number of un| 00001e20 6b 6e 6f 77 6e 73 20 79 6f 75 20 68 61 76 65 20 |knowns you have | 00001e30 63 68 6f 73 65 6e 20 74 6f 20 75 73 65 2e 22 0d |chosen to use.".| 00001e40 0b 0e 29 c9 31 31 3a 74 24 3d 22 54 68 69 73 20 |..).11:t$="This | 00001e50 77 69 6c 6c 20 63 6c 6f 73 65 20 74 68 69 73 20 |will close this | 00001e60 77 69 6e 64 6f 77 2e 22 0d 0b 18 47 c9 32 2c 33 |window."...G.2,3| 00001e70 3a 74 24 3d 22 45 6e 74 65 72 20 69 6e 20 74 68 |:t$="Enter in th| 00001e80 69 73 20 62 6f 78 20 74 68 65 20 6e 75 6d 62 65 |is box the numbe| 00001e90 72 20 6f 66 20 75 6e 6b 6e 6f 77 6e 73 20 79 6f |r of unknowns yo| 00001ea0 75 20 77 69 73 68 20 74 6f 20 75 73 65 2e 22 0d |u wish to use.".| 00001eb0 0b 22 05 cb 0d 0b 2c 05 cc 0d 0b 36 83 74 24 3d |."....,....6.t$=| 00001ec0 22 54 68 69 73 20 77 69 6e 64 6f 77 20 61 6c 6c |"This window all| 00001ed0 6f 77 73 20 79 6f 75 20 74 6f 20 63 68 61 6e 67 |ows you to chang| 00001ee0 65 20 74 68 65 20 6e 61 6d 65 73 20 6f 66 20 79 |e the names of y| 00001ef0 6f 75 72 20 75 6e 6b 6e 6f 77 6e 73 20 64 65 70 |our unknowns dep| 00001f00 65 6e 64 69 6e 67 20 75 70 6f 6e 20 77 68 61 74 |ending upon what| 00001f10 20 79 6f 75 20 61 72 65 20 75 73 69 6e 67 2e 20 | you are using. | 00001f20 45 67 2e 20 43 75 72 72 65 6e 74 31 2c 20 43 75 |Eg. Current1, Cu| 00001f30 72 72 65 6e 74 32 20 65 74 63 2e 22 0d 0b 40 0d |rrent2 etc."..@.| 00001f40 c8 8e 62 25 21 33 36 20 ca 0d 0b 4a 6d c9 37 3a |..b%!36 ...Jm.7:| 00001f50 61 74 25 3d 40 25 3a 40 25 3d 22 2b 47 2e 39 22 |at%=@%:@%="+G.9"| 00001f60 3a 74 24 3d 22 43 6c 69 63 6b 20 68 65 72 65 20 |:t$="Click here | 00001f70 74 6f 20 74 79 70 65 20 69 6e 20 75 6e 6b 6e 6f |to type in unkno| 00001f80 77 6e 20 6e 75 6d 62 65 72 20 22 2b c3 65 64 69 |wn number "+.edi| 00001f90 74 25 2b 22 2e 20 45 67 2e 20 43 75 72 72 65 6e |t%+". Eg. Curren| 00001fa0 74 2f 56 6f 6c 74 61 67 65 20 65 74 63 2e 22 3a |t/Voltage etc.":| 00001fb0 40 25 3d 61 74 25 0d 0b 54 3c c9 31 33 3a 74 24 |@%=at%..T<.13:t$| 00001fc0 3d 22 43 6c 69 63 6b 20 68 65 72 65 20 66 6f 72 |="Click here for| 00001fd0 20 62 61 73 69 63 20 69 6e 66 6f 72 6d 61 74 69 | basic informati| 00001fe0 6f 6e 20 6f 6e 20 75 73 69 6e 67 20 45 71 75 73 |on on using Equs| 00001ff0 2e 22 0d 0b 5e 78 c9 39 3a 74 24 3d 22 54 68 69 |."..^x.9:t$="Thi| 00002000 73 20 69 63 6f 6e 20 77 69 6c 6c 20 73 65 71 75 |s icon will sequ| 00002010 65 6e 63 65 20 61 6c 6c 20 75 6e 6b 6e 6f 77 6e |ence all unknown| 00002020 73 20 61 63 63 6f 72 64 69 6e 67 20 74 6f 20 74 |s according to t| 00002030 68 65 20 74 65 78 74 20 69 6e 20 74 68 65 20 61 |he text in the a| 00002040 64 6a 61 63 65 6e 74 20 69 63 6f 6e 2e 20 45 67 |djacent icon. Eg| 00002050 2e 20 43 75 72 72 65 6e 74 31 2c 20 43 75 72 72 |. Current1, Curr| 00002060 65 6e 74 32 20 65 74 63 2e 22 0d 0b 68 af c9 31 |ent2 etc."..h..1| 00002070 36 3a 74 24 3d 22 54 68 69 73 20 77 69 6c 6c 20 |6:t$="This will | 00002080 61 63 63 65 70 74 20 74 68 65 73 65 20 75 6e 6b |accept these unk| 00002090 6e 6f 77 6e 73 20 61 6e 64 20 61 6c 6c 6f 77 20 |nowns and allow | 000020a0 79 6f 75 20 74 6f 20 65 6e 74 65 72 20 63 6f 65 |you to enter coe| 000020b0 66 66 69 63 69 65 6e 74 20 64 61 74 61 2e 20 49 |fficient data. I| 000020c0 6d 70 6f 72 74 61 6e 74 3a 20 59 6f 75 20 77 69 |mportant: You wi| 000020d0 6c 6c 20 62 65 20 75 6e 61 62 6c 65 20 74 6f 20 |ll be unable to | 000020e0 63 68 61 6e 67 65 20 74 68 65 20 6e 61 6d 65 73 |change the names| 000020f0 20 6f 66 20 79 6f 75 72 20 75 6e 6b 6e 6f 77 6e | of your unknown| 00002100 73 20 6f 6e 63 65 20 79 6f 75 20 63 6c 69 63 6b |s once you click| 00002110 20 68 65 72 65 2e 2e 2e 22 0d 0b 72 ac c9 38 3a | here..."..r..8:| 00002120 74 24 3d 22 54 68 69 73 20 77 69 6c 6c 20 6d 6f |t$="This will mo| 00002130 76 65 20 74 6f 20 74 68 65 20 6e 65 78 74 20 75 |ve to the next u| 00002140 6e 6b 6e 6f 77 6e 20 6e 61 6d 65 2c 20 61 6c 74 |nknown name, alt| 00002150 65 72 6e 61 74 65 6c 79 20 6a 75 73 74 20 70 72 |ernately just pr| 00002160 65 73 73 20 52 65 74 75 72 6e 2e 20 59 6f 75 20 |ess Return. You | 00002170 63 61 6e 20 61 6c 73 6f 20 75 73 65 20 74 68 65 |can also use the| 00002180 20 61 72 72 6f 77 20 6b 65 79 73 2c 20 74 68 65 | arrow keys, the| 00002190 20 48 6f 6d 65 20 6b 65 79 20 61 6e 64 20 50 61 | Home key and Pa| 000021a0 67 65 20 55 70 2f 50 61 67 65 20 44 6f 77 6e 20 |ge Up/Page Down | 000021b0 74 6f 20 6d 6f 76 65 20 75 70 20 61 6e 64 20 64 |to move up and d| 000021c0 6f 77 6e 2e 22 0d 0b 7c 4c c9 31 30 3a 74 24 3d |own."..|L.10:t$=| 000021d0 22 54 68 69 73 20 77 69 6c 6c 20 6c 6f 73 65 20 |"This will lose | 000021e0 61 6c 6c 20 74 68 65 73 65 20 75 6e 6b 6e 6f 77 |all these unknow| 000021f0 6e 73 20 61 6e 64 20 61 6c 6c 6f 77 20 79 6f 75 |ns and allow you| 00002200 20 74 6f 20 73 74 61 72 74 20 61 67 61 69 6e 2e | to start again.| 00002210 22 0d 0b 86 05 7f 0d 0b 90 05 cb 0d 0b 9a 05 cd |"...............| 00002220 0d 0b a4 04 0d 0b ae 8e c9 63 6f 65 66 66 57 25 |.........coeffW%| 00002230 3a 74 24 3d 22 43 6c 69 63 6b 20 6f 6e 20 61 20 |:t$="Click on a | 00002240 6e 75 6d 62 65 72 20 74 6f 20 65 64 69 74 20 69 |number to edit i| 00002250 74 2e 20 43 6c 69 63 6b 69 6e 67 20 77 69 74 68 |t. Clicking with| 00002260 20 41 64 6a 75 73 74 20 77 69 6c 6c 20 64 69 73 | Adjust will dis| 00002270 70 6c 61 79 20 74 68 65 20 63 65 6c 6c 20 6e 75 |play the cell nu| 00002280 6d 62 65 72 20 74 6f 6f 2e 20 53 65 65 20 74 68 |mber too. See th| 00002290 65 20 48 65 6c 70 20 66 69 6c 65 20 66 6f 72 20 |e Help file for | 000022a0 6d 6f 72 65 20 69 6e 66 6f 72 6d 61 74 69 6f 6e |more information| 000022b0 2e 22 0d 0b b8 04 0d 0b c2 a0 c9 75 6e 6b 57 25 |.".........unkW%| 000022c0 3a 74 24 3d 22 43 6c 69 63 6b 20 6f 6e 20 61 6e |:t$="Click on an| 000022d0 20 75 6e 6b 6e 6f 77 6e 20 6e 61 6d 65 20 74 6f | unknown name to| 000022e0 20 63 68 61 6e 67 65 20 69 74 2e 20 59 6f 75 20 | change it. You | 000022f0 63 61 6e 20 73 63 72 6f 6c 6c 20 75 70 20 61 6e |can scroll up an| 00002300 64 20 64 6f 77 6e 20 74 68 72 6f 75 67 68 20 61 |d down through a| 00002310 6c 6c 20 75 6e 6b 6e 6f 77 6e 73 2e 20 54 6f 20 |ll unknowns. To | 00002320 63 68 61 6e 67 65 20 74 68 65 20 6e 75 6d 62 65 |change the numbe| 00002330 72 20 6f 66 20 75 6e 6b 6e 6f 77 6e 73 20 79 6f |r of unknowns yo| 00002340 75 20 6d 75 73 74 20 63 6c 69 63 6b 20 52 65 73 |u must click Res| 00002350 74 61 72 74 2e 22 0d 0b cc 04 0d 0b d6 3a c9 69 |tart.".......:.i| 00002360 6e 66 6f 57 25 3a 74 24 3d 22 54 68 69 73 20 77 |nfoW%:t$="This w| 00002370 69 6e 64 6f 77 20 67 69 76 65 73 20 69 6e 66 6f |indow gives info| 00002380 72 6d 61 74 69 6f 6e 20 61 62 6f 75 74 20 45 71 |rmation about Eq| 00002390 75 73 2e 22 0d 0b e0 04 0d 0b ea cf c9 72 57 25 |us.".........rW%| 000023a0 3a 74 24 3d 22 54 68 69 73 20 77 69 6e 64 6f 77 |:t$="This window| 000023b0 20 73 68 6f 77 73 20 72 65 73 75 6c 74 73 20 6f | shows results o| 000023c0 66 20 74 68 65 20 63 61 6c 63 75 6c 61 74 69 6f |f the calculatio| 000023d0 6e 73 2e 20 59 6f 75 20 6d 61 79 20 6e 65 65 64 |ns. You may need| 000023e0 20 74 6f 20 65 6e 6c 61 72 67 65 20 69 74 20 74 | to enlarge it t| 000023f0 6f 20 76 69 65 77 20 61 6c 6c 20 6f 66 20 74 68 |o view all of th| 00002400 65 6d 2e 20 54 68 65 20 62 6f 74 74 6f 6d 20 68 |em. The bottom h| 00002410 61 6c 66 20 73 68 6f 77 73 20 68 6f 77 20 61 63 |alf shows how ac| 00002420 63 75 72 61 74 65 20 74 68 65 20 72 65 73 75 6c |curate the resul| 00002430 74 73 20 61 72 65 2e 20 43 6c 69 63 6b 20 74 6f |ts are. Click to| 00002440 20 63 68 61 6e 67 65 20 6e 75 6d 62 65 72 20 6f | change number o| 00002450 66 20 73 69 67 6e 69 66 69 63 61 6e 74 20 66 69 |f significant fi| 00002460 67 75 72 65 73 2e 22 0d 0b f4 04 0d 0b fe 0c c9 |gures.".........| 00002470 63 68 61 6e 67 57 25 0d 0c 08 2c 74 24 3d 22 54 |changW%...,t$="T| 00002480 68 69 73 20 77 69 6e 64 6f 77 20 69 73 20 74 68 |his window is th| 00002490 65 20 63 6f 65 66 66 69 63 69 65 6e 74 20 62 61 |e coefficient ba| 000024a0 72 2e 22 0d 0c 12 0d c8 8e 62 25 21 33 36 20 ca |r."......b%!36 .| 000024b0 0d 0c 1c 98 c9 31 2c 39 3a 74 24 3d 22 42 79 20 |.....1,9:t$="By | 000024c0 64 72 61 67 67 69 6e 67 20 74 68 65 20 74 68 69 |dragging the thi| 000024d0 6e 20 67 72 65 79 20 62 61 72 2c 20 79 6f 75 20 |n grey bar, you | 000024e0 63 61 6e 20 72 65 70 6f 73 69 74 69 6f 6e 20 74 |can reposition t| 000024f0 68 65 20 90 63 6f 65 66 66 69 63 69 65 6e 74 20 |he .coefficient | 00002500 62 61 72 91 2e 20 54 68 65 20 6f 72 61 6e 67 65 |bar.. The orange| 00002510 20 73 71 75 61 72 65 20 77 69 6c 6c 20 72 65 70 | square will rep| 00002520 6c 61 63 65 20 69 74 20 69 6e 20 74 68 65 20 62 |lace it in the b| 00002530 6f 74 74 6f 6d 20 6c 65 66 74 20 68 61 6e 64 20 |ottom left hand | 00002540 63 6f 72 6e 65 72 2e 22 0d 0c 26 bc c9 34 3a 74 |corner."..&..4:t| 00002550 24 3d 22 43 6c 69 63 6b 20 68 65 72 65 20 74 6f |$="Click here to| 00002560 20 77 6f 72 6b 20 6f 75 74 20 77 68 61 74 20 74 | work out what t| 00002570 68 65 20 76 61 6c 75 65 73 20 6f 66 20 74 68 65 |he values of the| 00002580 20 75 6e 6b 6e 6f 77 6e 73 20 61 72 65 20 28 69 | unknowns are (i| 00002590 66 20 70 6f 73 73 69 62 6c 65 29 2e 20 43 6f 6d |f possible). Com| 000025a0 6d 6f 6e 20 70 72 6f 62 6c 65 6d 73 20 69 6e 63 |mon problems inc| 000025b0 6c 75 64 65 20 6e 6f 6e 2d 75 6e 69 71 75 65 20 |lude non-unique | 000025c0 65 71 75 61 74 69 6f 6e 73 2c 20 6e 75 6d 62 65 |equations, numbe| 000025d0 72 73 20 74 6f 6f 20 6c 61 72 67 65 20 6f 72 20 |rs too large or | 000025e0 74 6f 6f 20 73 6d 61 6c 6c 20 61 6e 64 20 69 6e |too small and in| 000025f0 63 6f 6d 70 6c 65 74 65 20 65 71 75 61 74 69 6f |complete equatio| 00002600 6e 73 2e 22 0d 0c 30 89 c9 36 3a 74 24 3d 22 54 |ns."..0..6:t$="T| 00002610 79 70 65 20 69 6e 20 61 20 72 65 70 6c 61 63 65 |ype in a replace| 00002620 6d 65 6e 74 20 76 61 6c 75 65 20 68 65 72 65 20 |ment value here | 00002630 61 6e 64 20 70 72 65 73 73 20 52 65 74 75 72 6e |and press Return| 00002640 2e 20 59 6f 75 20 63 61 6e 20 75 73 65 20 74 68 |. You can use th| 00002650 65 20 75 70 20 61 6e 64 20 64 6f 77 6e 20 61 72 |e up and down ar| 00002660 72 6f 77 20 6b 65 79 73 20 61 6e 64 20 54 61 62 |row keys and Tab| 00002670 20 6f 72 20 53 68 69 66 74 2d 54 61 62 20 74 6f | or Shift-Tab to| 00002680 20 6d 6f 76 65 20 61 62 6f 75 74 2e 22 0d 0c 3a | move about."..:| 00002690 44 c9 31 30 3a 74 24 3d 22 54 68 69 73 20 77 69 |D.10:t$="This wi| 000026a0 6c 6c 20 63 6c 65 61 72 20 61 6c 6c 20 74 68 65 |ll clear all the| 000026b0 20 64 61 74 61 20 69 6e 20 74 68 65 20 63 6f 65 | data in the coe| 000026c0 66 66 69 63 69 65 6e 74 20 77 69 6e 64 6f 77 2e |fficient window.| 000026d0 22 0d 0c 44 3c c9 31 31 3a 74 24 3d 22 43 6c 69 |"..D<.11:t$="Cli| 000026e0 63 6b 20 68 65 72 65 20 66 6f 72 20 62 61 73 69 |ck here for basi| 000026f0 63 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 6f 6e |c information on| 00002700 20 75 73 69 6e 67 20 45 71 75 73 2e 22 0d 0c 4e | using Equs."..N| 00002710 05 cb 0d 0c 58 04 0d 0c 62 05 cb 0d 0c 6c 0c 74 |....X...b....l.t| 00002720 24 3d 74 24 2b bd 30 0d 0c 76 18 62 25 21 30 3d |$=t$+.0..v.b%!0=| 00002730 28 a9 74 24 81 34 20 2b 31 29 2a 34 2b 32 30 0d |(.t$.4 +1)*4+20.| 00002740 0c 80 0a 62 25 21 34 3d 30 0d 0c 8a 0e 62 25 21 |...b%!4=0....b%!| 00002750 31 32 3d 62 25 21 38 0d 0c 94 0a 62 25 21 38 3d |12=b%!8....b%!8=| 00002760 30 0d 0c 9e 0e 62 25 21 31 36 3d 26 35 30 33 0d |0....b%!16=&503.| 00002770 0c a8 0f 24 28 62 25 2b 32 30 29 3d 74 24 0d 0c |...$(b%+20)=t$..| 00002780 b2 20 c8 99 22 57 69 6d 70 5f 53 65 6e 64 4d 65 |. .."Wimp_SendMe| 00002790 73 73 61 67 65 22 2c 31 37 2c 62 25 2c 30 0d 0c |ssage",17,b%,0..| 000027a0 bc 05 e1 0d 0c c6 04 0d 0c d0 0f dd f2 6d 6f 64 |.............mod| 000027b0 65 63 68 65 63 6b 0d 0c da 2c c8 99 22 4f 53 5f |echeck...,.."OS_| 000027c0 52 65 61 64 4d 6f 64 65 56 61 72 69 61 62 6c 65 |ReadModeVariable| 000027d0 22 2c eb 2c 33 b8 2c 2c 6d 61 78 63 6f 6c 6f 75 |",.,3.,,maxcolou| 000027e0 72 73 0d 0c e4 65 e7 6d 61 78 63 6f 6c 6f 75 72 |rs...e.maxcolour| 000027f0 73 3c 36 33 20 80 20 77 61 72 6e 3d a3 20 8c f2 |s<63 . warn=. ..| 00002800 6d 73 67 28 22 49 74 20 69 73 20 72 65 63 6f 6d |msg("It is recom| 00002810 6d 65 6e 64 65 64 20 74 68 61 74 20 79 6f 75 20 |mended that you | 00002820 72 75 6e 20 45 71 75 73 20 69 6e 20 61 20 32 35 |run Equs in a 25| 00002830 36 20 63 6f 6c 6f 75 72 20 6d 6f 64 65 2e 22 29 |6 colour mode.")| 00002840 3a 77 61 72 6e 3d b9 0d 0c ee 1a f2 72 65 73 65 |:warn=......rese| 00002850 74 28 6f 70 65 6e 57 25 2c 31 2c 22 62 69 67 22 |t(openW%,1,"big"| 00002860 29 0d 0c f8 1c f2 72 65 73 65 74 28 6d 61 69 6e |).....reset(main| 00002870 57 25 2c 31 2c 22 73 6d 61 6c 6c 22 29 0d 0d 02 |W%,1,"small")...| 00002880 1c f2 72 65 73 65 74 28 69 6e 66 6f 57 25 2c 38 |..reset(infoW%,8| 00002890 2c 22 73 6d 61 6c 6c 22 29 0d 0d 0c 1c f2 72 65 |,"small").....re| 000028a0 73 65 74 28 68 65 6c 70 57 25 2c 34 2c 22 73 6d |set(helpW%,4,"sm| 000028b0 61 6c 6c 22 29 0d 0d 16 2c e7 a4 77 6f 70 65 6e |all")...,..wopen| 000028c0 28 6f 70 65 6e 57 25 29 8c f2 63 65 6e 74 72 65 |(openW%)..centre| 000028d0 28 6f 70 65 6e 57 25 2c 2d 31 2c 2d 31 2c 2d 31 |(openW%,-1,-1,-1| 000028e0 29 0d 0d 20 05 e1 0d 0d 2a 04 0d 0d 34 1a dd f2 |).. ....*...4...| 000028f0 72 65 73 65 74 28 77 25 2c 69 25 2c 73 70 72 69 |reset(w%,i%,spri| 00002900 74 65 24 29 0d 0d 3e 28 e7 6d 61 78 63 6f 6c 6f |te$)..>(.maxcolo| 00002910 75 72 73 3e 3d 36 33 8c 63 6f 6c 24 3d 22 32 35 |urs>=63.col$="25| 00002920 36 22 8b 63 6f 6c 24 3d 22 31 36 22 0d 0d 48 21 |6".col$="16"..H!| 00002930 24 28 a4 69 6d 28 77 25 2c 69 25 29 29 3d 73 70 |$(.im(w%,i%))=sp| 00002940 72 69 74 65 24 2b 63 6f 6c 24 2b bd 30 0d 0d 52 |rite$+col$+.0..R| 00002950 05 e1 0d 0d 5c 04 0d 0d 66 0d dd f2 72 65 64 72 |....\...f...redr| 00002960 61 77 77 0d 0d 70 0b c8 8e 21 62 25 20 ca 0d 0d |aww..p...!b% ...| 00002970 7a 4e c9 63 68 61 6e 67 57 25 3a c8 99 22 57 69 |zN.changW%:.."Wi| 00002980 6d 70 5f 4f 70 65 6e 57 69 6e 64 6f 77 22 2c 2c |mp_OpenWindow",,| 00002990 62 25 3a 21 62 32 25 3d 63 6f 65 66 66 57 25 3a |b%:!b2%=coeffW%:| 000029a0 c8 99 22 57 69 6d 70 5f 47 65 74 57 69 6e 64 6f |.."Wimp_GetWindo| 000029b0 77 53 74 61 74 65 22 2c 2c 62 32 25 0d 0d 84 2d |wState",,b2%...-| 000029c0 63 78 6f 66 66 73 65 74 25 3d 62 25 21 34 2d 62 |cxoffset%=b%!4-b| 000029d0 32 25 21 34 3a 63 79 6f 66 66 73 65 74 25 3d 62 |2%!4:cyoffset%=b| 000029e0 25 21 38 2d 62 32 25 21 38 0d 0d 8e 68 c9 63 6f |%!8-b2%!8...h.co| 000029f0 65 66 66 57 25 3a f2 61 74 74 61 74 63 68 28 63 |effW%:.attatch(c| 00002a00 6f 65 66 66 57 25 2c 63 68 61 6e 67 57 25 2c 63 |oeffW%,changW%,c| 00002a10 78 6f 66 66 73 65 74 25 2c 63 79 6f 66 66 73 65 |xoffset%,cyoffse| 00002a20 74 25 29 3a f2 61 74 74 61 74 63 68 28 63 6f 65 |t%):.attatch(coe| 00002a30 66 66 57 25 2c 63 68 61 6e 67 57 25 2c 63 78 6f |ffW%,changW%,cxo| 00002a40 66 66 73 65 74 25 2c 63 79 6f 66 66 73 65 74 25 |ffset%,cyoffset%| 00002a50 29 0d 0d 98 5e c9 6d 61 69 6e 57 25 3a e7 a4 77 |)...^.mainW%:..w| 00002a60 66 75 6c 6c 28 6d 61 69 6e 57 25 29 f2 61 74 74 |full(mainW%).att| 00002a70 61 74 63 68 28 6d 61 69 6e 57 25 2c 75 6e 6b 57 |atch(mainW%,unkW| 00002a80 25 2c 6d 78 6f 66 66 73 65 74 25 2c 6d 79 6f 66 |%,mxoffset%,myof| 00002a90 66 73 65 74 25 29 20 8b c8 99 22 57 69 6d 70 5f |fset%) ..."Wimp_| 00002aa0 4f 70 65 6e 57 69 6e 64 6f 77 22 2c 2c 62 25 0d |OpenWindow",,b%.| 00002ab0 0d a2 05 7f 0d 0d ac 1b c8 99 22 57 69 6d 70 5f |.........."Wimp_| 00002ac0 4f 70 65 6e 57 69 6e 64 6f 77 22 2c 2c 62 25 0d |OpenWindow",,b%.| 00002ad0 0d b6 05 cb 0d 0d c0 05 e1 0d 0d ca 04 0d 0d d4 |................| 00002ae0 15 dd f2 66 6f 72 63 65 72 65 64 72 61 77 28 57 |...forceredraw(W| 00002af0 25 29 0d 0d de 28 21 62 32 25 3d 57 25 3a c8 99 |%)...(!b2%=W%:..| 00002b00 22 57 69 6d 70 5f 47 65 74 57 69 6e 64 6f 77 53 |"Wimp_GetWindowS| 00002b10 74 61 74 65 22 2c 2c 62 32 25 0d 0d e8 35 c8 99 |tate",,b2%...5..| 00002b20 22 57 69 6d 70 5f 46 6f 72 63 65 52 65 64 72 61 |"Wimp_ForceRedra| 00002b30 77 22 2c 2d 31 2c 62 32 25 21 34 2c 62 32 25 21 |w",-1,b2%!4,b2%!| 00002b40 38 2c 62 32 25 21 31 32 2c 62 32 25 21 31 36 0d |8,b2%!12,b2%!16.| 00002b50 0d f2 05 e1 0d 0d fc 04 0d 0e 06 12 dd f2 73 65 |..............se| 00002b60 74 65 64 69 74 28 78 2c 79 29 0d 0e 10 06 ea 85 |tedit(x,y)......| 00002b70 0d 0e 1a 3f ee 85 ea 20 f2 6d 73 67 28 22 54 68 |...?... .msg("Th| 00002b80 69 73 20 69 73 20 6e 6f 74 20 61 6c 6c 6f 77 65 |is is not allowe| 00002b90 64 20 61 73 20 61 6e 20 65 78 70 72 65 73 73 69 |d as an expressi| 00002ba0 6f 6e 20 28 22 2b f6 24 2b 22 29 22 29 3a e1 0d |on ("+.$+")"):..| 00002bb0 0e 24 16 53 78 25 3d 32 36 35 2a 28 65 78 25 2d |.$.Sx%=265*(ex%-| 00002bc0 31 29 2b 35 30 0d 0e 2e 17 53 79 25 3d 2d 35 30 |1)+50....Sy%=-50| 00002bd0 2a 28 65 79 25 2d 31 29 2d 31 30 30 0d 0e 38 83 |*(ey%-1)-100..8.| 00002be0 e7 28 65 78 25 3d 31 80 65 79 25 3d 31 29 80 28 |.(ex%=1.ey%=1).(| 00002bf0 58 59 28 31 2c 31 2c 32 29 3d 30 80 24 a4 69 6d |XY(1,1,2)=0.$.im| 00002c00 28 63 68 61 6e 67 57 25 2c 36 29 3d 22 22 29 8c |(changW%,6)="").| 00002c10 f2 6d 73 67 28 22 57 41 52 4e 49 4e 47 3a 20 54 |.msg("WARNING: T| 00002c20 68 65 20 74 6f 70 20 6c 65 66 74 20 63 65 6c 6c |he top left cell| 00002c30 20 63 61 6e 6e 6f 74 20 62 65 20 30 2e 20 53 77 | cannot be 0. Sw| 00002c40 61 70 20 72 6f 77 20 31 20 77 69 74 68 20 61 6e |ap row 1 with an| 00002c50 6f 74 68 65 72 2e 20 53 6f 72 72 79 21 22 29 0d |other. Sorry!").| 00002c60 0e 42 19 e7 24 a4 69 6d 28 63 68 61 6e 67 57 25 |.B..$.im(changW%| 00002c70 2c 36 29 3c 3e 22 22 8c 0d 0e 4c 35 e7 65 78 25 |,6)<>""...L5.ex%| 00002c80 3c 3e 30 20 80 20 65 79 25 3c 3e 30 20 58 59 28 |<>0 . ey%<>0 XY(| 00002c90 65 78 25 2c 65 79 25 2c 32 29 3d a0 28 24 a4 69 |ex%,ey%,2)=.($.i| 00002ca0 6d 28 63 68 61 6e 67 57 25 2c 36 29 29 0d 0e 56 |m(changW%,6))..V| 00002cb0 61 e7 65 78 25 3d 31 80 65 79 25 3d 31 80 58 59 |a.ex%=1.ey%=1.XY| 00002cc0 28 31 2c 31 2c 32 29 3d 30 8c f2 6d 73 67 28 22 |(1,1,2)=0..msg("| 00002cd0 57 41 52 4e 49 4e 47 3a 20 54 68 65 20 66 69 72 |WARNING: The fir| 00002ce0 73 74 20 63 65 6c 6c 20 63 61 6e 6e 6f 74 20 62 |st cell cannot b| 00002cf0 65 20 30 2e 20 53 77 61 70 20 72 6f 77 20 31 20 |e 0. Swap row 1 | 00002d00 77 69 74 68 20 61 6e 6f 74 68 65 72 22 29 0d 0e |with another")..| 00002d10 60 05 cd 0d 0e 6a 37 c8 99 22 57 69 6d 70 5f 46 |`....j7.."Wimp_F| 00002d20 6f 72 63 65 52 65 64 72 61 77 22 2c 63 6f 65 66 |orceRedraw",coef| 00002d30 66 57 25 2c 53 78 25 2c 53 79 25 2c 53 78 25 2b |fW%,Sx%,Sy%,Sx%+| 00002d40 32 36 35 2c 53 79 25 2b 35 30 0d 0e 74 0f 65 78 |265,Sy%+50..t.ex| 00002d50 25 3d 78 3a 65 79 25 3d 79 0d 0e 7e 16 53 78 25 |%=x:ey%=y..~.Sx%| 00002d60 3d 32 36 35 2a 28 65 78 25 2d 31 29 2b 35 30 0d |=265*(ex%-1)+50.| 00002d70 0e 88 17 53 79 25 3d 2d 35 30 2a 28 65 79 25 2d |...Sy%=-50*(ey%-| 00002d80 31 29 2d 31 30 30 0d 0e 92 04 0d 0e 9c 2d 21 62 |1)-100.......-!b| 00002d90 32 25 3d 63 6f 65 66 66 57 25 3a c8 99 22 57 69 |2%=coeffW%:.."Wi| 00002da0 6d 70 5f 47 65 74 57 69 6e 64 6f 77 53 74 61 74 |mp_GetWindowStat| 00002db0 65 22 2c 2c 62 32 25 0d 0e a6 2f c8 95 62 32 25 |e",,b2%.../..b2%| 00002dc0 21 31 32 2d 62 32 25 21 34 2b 62 32 25 21 32 30 |!12-b2%!4+b2%!20| 00002dd0 3c 53 78 25 2b 32 36 35 3a 62 32 25 21 32 30 2b |<Sx%+265:b2%!20+| 00002de0 3d 32 36 35 3a ce 0d 0e b0 1e c8 95 62 32 25 21 |=265:.......b2%!| 00002df0 32 30 3e 53 78 25 3a 62 32 25 21 32 30 2d 3d 32 |20>Sx%:b2%!20-=2| 00002e00 36 35 3a ce 0d 0e ba 2d c8 95 62 32 25 21 38 2d |65:....-..b2%!8-| 00002e10 62 32 25 21 31 36 2b 62 32 25 21 32 34 3e 53 79 |b2%!16+b2%!24>Sy| 00002e20 25 2d 37 30 3a 62 32 25 21 32 34 2d 3d 35 30 3a |%-70:b2%!24-=50:| 00002e30 ce 0d 0e c4 20 c8 95 62 32 25 21 32 34 3c 53 79 |.... ..b2%!24<Sy| 00002e40 25 2b 35 30 3a 62 32 25 21 32 34 2b 3d 35 30 3a |%+50:b2%!24+=50:| 00002e50 ce 0d 0e ce 1c c8 99 22 57 69 6d 70 5f 4f 70 65 |......."Wimp_Ope| 00002e60 6e 57 69 6e 64 6f 77 22 2c 2c 62 32 25 0d 0e d8 |nWindow",,b2%...| 00002e70 04 0d 0e e2 37 c8 99 22 57 69 6d 70 5f 46 6f 72 |....7.."Wimp_For| 00002e80 63 65 52 65 64 72 61 77 22 2c 63 6f 65 66 66 57 |ceRedraw",coeffW| 00002e90 25 2c 53 78 25 2c 53 79 25 2c 53 78 25 2b 32 36 |%,Sx%,Sy%,Sx%+26| 00002ea0 35 2c 53 79 25 2b 35 30 0d 0e ec 2e 61 74 3d 40 |5,Sy%+50....at=@| 00002eb0 25 3a 40 25 3d 22 2b 47 2e 39 22 3a 24 a4 69 6d |%:@%="+G.9":$.im| 00002ec0 28 63 68 61 6e 67 57 25 2c 36 29 3d c3 58 59 28 |(changW%,6)=.XY(| 00002ed0 78 2c 79 2c 32 29 0d 0e f6 2a e7 bb 24 a4 69 6d |x,y,2)...*..$.im| 00002ee0 28 63 68 61 6e 67 57 25 2c 36 29 3d 30 20 24 a4 |(changW%,6)=0 $.| 00002ef0 69 6d 28 63 68 61 6e 67 57 25 2c 36 29 3d 22 22 |im(changW%,6)=""| 00002f00 0d 0f 00 29 f2 75 70 64 28 63 68 61 6e 67 57 25 |...).upd(changW%| 00002f10 2c 36 29 3a f2 73 74 63 28 63 68 61 6e 67 57 25 |,6):.stc(changW%| 00002f20 2c 36 29 3a 40 25 3d 61 74 0d 0f 0a 05 e1 0d 0f |,6):@%=at.......| 00002f30 14 04 0d 0f 1e 18 dd f2 72 65 64 72 61 77 6c 69 |........redrawli| 00002f40 73 74 3a c8 8e 21 62 25 20 ca 0d 0f 28 0c c9 63 |st:..!b% ...(..c| 00002f50 6f 65 66 66 57 25 0d 0f 32 13 61 74 3d 40 25 3a |oeffW%..2.at=@%:| 00002f60 40 25 3d 22 2b 47 2e 39 22 0d 0f 3c 10 21 62 32 |@%="+G.9"..<.!b2| 00002f70 25 3d 63 6f 65 66 66 57 25 0d 0f 46 20 c8 99 22 |%=coeffW%..F .."| 00002f80 57 69 6d 70 5f 47 65 74 57 69 6e 64 6f 77 53 74 |Wimp_GetWindowSt| 00002f90 61 74 65 22 2c 2c 62 32 25 0d 0f 50 26 6f 78 25 |ate",,b2%..P&ox%| 00002fa0 3d 62 32 25 21 34 2d 62 32 25 21 32 30 3a 6f 79 |=b2%!4-b2%!20:oy| 00002fb0 25 3d 62 32 25 21 31 36 2d 62 32 25 21 32 34 0d |%=b2%!16-b2%!24.| 00002fc0 0f 5a 24 c8 99 22 57 69 6d 70 5f 52 65 64 72 61 |.Z$.."Wimp_Redra| 00002fd0 77 57 69 6e 64 6f 77 22 2c 2c 62 25 20 b8 6d 6f |wWindow",,b% .mo| 00002fe0 72 65 25 0d 0f 64 0b c8 95 6d 6f 72 65 25 0d 0f |re%..d...more%..| 00002ff0 6e 39 73 78 25 3d 62 25 21 32 38 3a 73 79 25 3d |n9sx%=b%!28:sy%=| 00003000 62 25 21 33 32 3a 77 69 64 25 3d 62 25 21 33 36 |b%!32:wid%=b%!36| 00003010 2d 62 25 21 32 38 3a 68 65 69 25 3d 62 25 21 33 |-b%!28:hei%=b%!3| 00003020 32 2d 62 25 21 34 30 0d 0f 78 19 c8 99 22 57 69 |2-b%!40..x..."Wi| 00003030 6d 70 5f 53 65 74 43 6f 6c 6f 75 72 22 2c 31 32 |mp_SetColour",12| 00003040 0d 0f 82 18 66 78 25 3d 28 73 78 25 2d 6f 78 25 |....fx%=(sx%-ox%| 00003050 2d 35 30 29 81 32 36 35 0d 0f 8c 1a 6c 78 25 3d |-50).265....lx%=| 00003060 66 78 25 2b 28 77 69 64 25 20 81 20 32 36 35 29 |fx%+(wid% . 265)| 00003070 2b 32 0d 0f 96 1c 66 79 25 3d 28 6f 79 25 2d 73 |+2....fy%=(oy%-s| 00003080 79 25 2d 35 30 2b 68 65 69 25 29 81 35 30 0d 0f |y%-50+hei%).50..| 00003090 a0 1a 6c 79 25 3d 66 79 25 2b 28 68 65 69 25 20 |..ly%=fy%+(hei% | 000030a0 81 20 2d 35 30 29 2b 32 0d 0f aa 10 e7 66 78 25 |. -50)+2.....fx%| 000030b0 3c 30 20 66 78 25 3d 30 0d 0f b4 1c e7 6c 78 25 |<0 fx%=0.....lx%| 000030c0 3e 75 6e 6b 73 25 2b 31 20 6c 78 25 3d 75 6e 6b |>unks%+1 lx%=unk| 000030d0 73 25 2b 31 0d 0f be 10 e7 66 79 25 3c 30 20 66 |s%+1.....fy%<0 f| 000030e0 79 25 3d 30 0d 0f c8 18 e7 6c 79 25 3e 75 6e 6b |y%=0.....ly%>unk| 000030f0 73 25 20 6c 79 25 3d 75 6e 6b 73 25 0d 0f d2 19 |s% ly%=unks%....| 00003100 e3 78 3d 66 78 25 b8 6c 78 25 3a e3 79 3d 66 79 |.x=fx%.lx%:.y=fy| 00003110 25 b8 6c 79 25 0d 0f dc 0b 74 78 74 24 3d 22 22 |%.ly%....txt$=""| 00003120 0d 0f e6 19 e7 78 3d 30 20 80 20 79 3c 3e 30 20 |.....x=0 . y<>0 | 00003130 8c 20 74 78 74 24 3d c3 79 0d 0f f0 2a e7 79 3d |. txt$=.y...*.y=| 00003140 30 20 80 20 78 3c 3e 30 20 8c 20 74 78 74 24 3d |0 . x<>0 . txt$=| 00003150 24 28 75 6e 6b 44 41 54 25 2b 28 78 2d 31 29 2a |$(unkDAT%+(x-1)*| 00003160 31 34 29 0d 0f fa 22 e7 78 3c 3e 30 20 80 20 79 |14)...".x<>0 . y| 00003170 3c 3e 30 20 8c 20 74 78 74 24 3d c3 58 59 28 78 |<>0 . txt$=.XY(x| 00003180 2c 79 2c 32 29 0d 10 04 18 c8 99 22 57 69 6d 70 |,y,2)......"Wimp| 00003190 5f 53 65 74 43 6f 6c 6f 75 72 22 2c 33 0d 10 0e |_SetColour",3...| 000031a0 28 53 78 25 3d 32 36 35 2a 94 28 78 3c 3e 30 29 |(Sx%=265*.(x<>0)| 000031b0 2a 28 78 2d 31 29 2b 35 30 2a 94 28 78 3c 3e 30 |*(x-1)+50*.(x<>0| 000031c0 29 2b 6f 78 25 0d 10 18 28 53 79 25 3d 2d 35 30 |)+ox%...(Sy%=-50| 000031d0 2a 94 28 79 3c 3e 30 29 2a 28 79 2d 31 29 2d 35 |*.(y<>0)*(y-1)-5| 000031e0 30 2a 94 28 79 3c 3e 30 29 2b 6f 79 25 0d 10 22 |0*.(y<>0)+oy%.."| 000031f0 4a e7 78 3d 30 20 84 20 79 3d 30 8c 20 c8 99 22 |J.x=0 . y=0. .."| 00003200 57 69 6d 70 5f 53 65 74 43 6f 6c 6f 75 72 22 2c |Wimp_SetColour",| 00003210 32 3a c8 93 c8 90 53 78 25 2c 53 79 25 2c 35 30 |2:....Sx%,Sy%,50| 00003220 2a 94 28 78 3d 30 29 2b 32 36 35 2a 94 28 78 3c |*.(x=0)+265*.(x<| 00003230 3e 30 29 2c 2d 35 30 0d 10 2c 4d e7 78 3d 65 78 |>0),-50..,M.x=ex| 00003240 25 20 80 20 79 3d 65 79 25 20 c8 99 22 57 69 6d |% . y=ey% .."Wim| 00003250 70 5f 53 65 74 43 6f 6c 6f 75 72 22 2c 37 3a c8 |p_SetColour",7:.| 00003260 93 c8 90 53 78 25 2c 53 79 25 2c 35 30 2a 94 28 |...Sx%,Sy%,50*.(| 00003270 78 3d 30 29 2b 32 36 35 2a 94 28 78 3c 3e 30 29 |x=0)+265*.(x<>0)| 00003280 2c 2d 35 30 0d 10 36 18 c8 99 22 57 69 6d 70 5f |,-50..6..."Wimp_| 00003290 53 65 74 43 6f 6c 6f 75 72 22 2c 33 0d 10 40 27 |SetColour",3..@'| 000032a0 c8 93 53 78 25 2c 53 79 25 2c 35 30 2a 94 28 78 |..Sx%,Sy%,50*.(x| 000032b0 3d 30 29 2b 32 36 35 2a 94 28 78 3c 3e 30 29 2c |=0)+265*.(x<>0),| 000032c0 2d 35 30 0d 10 4a 12 e7 78 3c 3e 30 20 84 20 79 |-50..J..x<>0 . y| 000032d0 3c 3e 30 20 8c 0d 10 54 18 c8 99 22 57 69 6d 70 |<>0 ...T..."Wimp| 000032e0 5f 53 65 74 43 6f 6c 6f 75 72 22 2c 37 0d 10 5e |_SetColour",7..^| 000032f0 27 e7 78 3d 65 78 25 20 80 20 79 3d 65 79 25 20 |'.x=ex% . y=ey% | 00003300 c8 99 22 57 69 6d 70 5f 53 65 74 43 6f 6c 6f 75 |.."Wimp_SetColou| 00003310 72 22 2c 30 0d 10 68 18 ec 53 78 25 2b 31 30 2c |r",0..h..Sx%+10,| 00003320 53 79 25 2d 31 33 3a f1 74 78 74 24 0d 10 72 05 |Sy%-13:.txt$..r.| 00003330 cd 0d 10 7c 07 ed 3a ed 0d 10 86 23 c8 99 22 57 |...|..:....#.."W| 00003340 69 6d 70 5f 47 65 74 52 65 63 74 61 6e 67 6c 65 |imp_GetRectangle| 00003350 22 2c 2c 62 25 b8 6d 6f 72 65 25 0d 10 90 05 ce |",,b%.more%.....| 00003360 0d 10 9a 09 40 25 3d 61 74 0d 10 a4 04 0d 10 ae |....@%=at.......| 00003370 08 c9 72 57 25 0d 10 b8 24 c8 99 22 57 69 6d 70 |..rW%...$.."Wimp| 00003380 5f 52 65 64 72 61 77 57 69 6e 64 6f 77 22 2c 2c |_RedrawWindow",,| 00003390 62 25 20 b8 6d 6f 72 65 25 0d 10 c2 22 6f 78 25 |b% .more%..."ox%| 000033a0 3d 62 25 21 34 2d 62 25 21 32 30 3a 6f 79 25 3d |=b%!4-b%!20:oy%=| 000033b0 62 25 21 31 36 2d 62 25 21 32 34 0d 10 cc 0b c8 |b%!16-b%!24.....| 000033c0 95 6d 6f 72 65 25 0d 10 d6 1f 66 69 72 73 74 25 |.more%....first%| 000033d0 3d 2d 32 2b 28 6f 79 25 2d 62 25 21 34 30 2d 33 |=-2+(oy%-b%!40-3| 000033e0 30 29 81 33 32 0d 10 e0 25 6c 61 73 74 25 3d 66 |0).32...%last%=f| 000033f0 69 72 73 74 25 2b 33 2b 28 62 25 21 34 30 2d 62 |irst%+3+(b%!40-b| 00003400 25 21 33 32 29 20 81 20 33 32 0d 10 ea 16 e7 66 |%!32) . 32.....f| 00003410 69 72 73 74 25 3c 30 20 66 69 72 73 74 25 3d 30 |irst%<0 first%=0| 00003420 0d 10 f4 13 e3 6c 3d 66 69 72 73 74 25 b8 6c 61 |.....l=first%.la| 00003430 73 74 25 0d 10 fe 15 e7 6c 3e 30 20 80 20 6c 3c |st%.....l>0 . l<| 00003440 3d 75 6e 6b 73 25 20 8c 0d 11 08 19 ec 6f 78 25 |=unks% ......ox%| 00003450 2b 31 30 2c 6f 79 25 2d 33 30 2d 33 32 2a 28 6c |+10,oy%-30-32*(l| 00003460 29 0d 11 12 5d c8 99 22 57 69 6d 70 5f 53 65 74 |)...].."Wimp_Set| 00003470 43 6f 6c 6f 75 72 22 2c 37 3a f1 c3 28 58 59 28 |Colour",7:..(XY(| 00003480 75 6e 6b 73 25 2b 31 2c 6c 2c 30 29 29 3b 8a 31 |unks%+1,l,0));.1| 00003490 37 29 3b 3a c8 99 22 57 69 6d 70 5f 53 65 74 43 |7);:.."Wimp_SetC| 000034a0 6f 6c 6f 75 72 22 2c 31 31 3a f1 24 28 75 6e 6b |olour",11:.$(unk| 000034b0 44 41 54 25 2b 28 6c 2d 31 29 2a 31 34 29 0d 11 |DAT%+(l-1)*14)..| 000034c0 1c 05 cc 0d 11 26 72 e7 6c 3d 30 20 ec 6f 78 25 |.....&r.l=0 .ox%| 000034d0 2b 31 30 2c 6f 79 25 2d 31 35 2d 33 32 2a 28 6c |+10,oy%-15-32*(l| 000034e0 29 3a c8 99 22 57 69 6d 70 5f 53 65 74 43 6f 6c |):.."Wimp_SetCol| 000034f0 6f 75 72 22 2c 35 3a 61 74 3d 40 25 3a 40 25 3d |our",5:at=@%:@%=| 00003500 22 2b 47 2e 39 22 3a f1 22 55 4e 4b 4e 4f 57 4e |"+G.9":."UNKNOWN| 00003510 20 56 41 4c 55 45 53 20 28 22 3b 73 69 67 66 69 | VALUES (";sigfi| 00003520 67 73 3b 22 20 73 69 67 20 66 69 67 73 29 22 3a |gs;" sig figs)":| 00003530 40 25 3d 61 74 0d 11 30 19 20 e7 6c 3e 30 20 80 |@%=at..0. .l>0 .| 00003540 6c 3c 3d 32 2a 75 6e 6b 73 25 2b 31 20 8c 0d 11 |l<=2*unks%+1 ...| 00003550 3a 04 0d 11 44 0f e7 6c 3d 75 6e 6b 73 25 2b 31 |:...D..l=unks%+1| 00003560 8c 0d 11 4e 73 c8 99 22 57 69 6d 70 5f 53 65 74 |...Ns.."Wimp_Set| 00003570 43 6f 6c 6f 75 72 22 2c 35 3a ec 6f 78 25 2b 31 |Colour",5:.ox%+1| 00003580 30 2c 6f 79 25 2d 36 30 2d 33 32 2a 28 6c 29 3a |0,oy%-60-32*(l):| 00003590 f1 22 45 52 52 4f 52 20 2d 20 44 65 70 65 6e 64 |."ERROR - Depend| 000035a0 73 20 6f 6e 20 73 69 67 2e 20 66 69 67 73 2e 22 |s on sig. figs."| 000035b0 3a f4 3b 54 41 42 28 39 29 3b 22 25 20 61 67 65 |:.;TAB(9);"% age| 000035c0 22 3b 54 41 42 28 31 39 29 3b 22 41 42 53 4f 4c |";TAB(19);"ABSOL| 000035d0 55 54 45 22 0d 11 58 05 cc 0d 11 62 13 61 74 3d |UTE"..X....b.at=| 000035e0 40 25 3a 40 25 3d 22 2b 47 2e 39 22 0d 11 6c e8 |@%:@%="+G.9"..l.| 000035f0 ec 6f 78 25 2b 31 30 2c 6f 79 25 2d 37 35 2d 33 |.ox%+10,oy%-75-3| 00003600 32 2a 28 6c 29 3a c8 99 22 57 69 6d 70 5f 53 65 |2*(l):.."Wimp_Se| 00003610 74 43 6f 6c 6f 75 72 22 2c 31 31 3a f1 22 4c 69 |tColour",11:."Li| 00003620 6e 65 20 22 c3 28 6c 2d 75 6e 6b 73 25 2d 31 29 |ne ".(l-unks%-1)| 00003630 3b 8a 39 29 3b 3a 40 25 3d 22 2b 46 2e 32 22 3a |;.9);:@%="+F.2":| 00003640 c8 99 22 57 69 6d 70 5f 53 65 74 43 6f 6c 6f 75 |.."Wimp_SetColou| 00003650 72 22 2c 37 3a f1 a4 70 65 72 63 65 6e 74 28 58 |r",7:..percent(X| 00003660 59 28 75 6e 6b 73 25 2c 6c 2d 75 6e 6b 73 25 2d |Y(unks%,l-unks%-| 00003670 31 2c 30 29 2c 58 59 28 75 6e 6b 73 25 2b 31 2c |1,0),XY(unks%+1,| 00003680 6c 2d 75 6e 6b 73 25 2d 31 2c 31 29 29 3b 3a 40 |l-unks%-1,1));:@| 00003690 25 3d 22 2b 46 30 2e 37 22 3a c8 99 22 57 69 6d |%="+F0.7":.."Wim| 000036a0 70 5f 53 65 74 43 6f 6c 6f 75 72 22 2c 33 3a f1 |p_SetColour",3:.| 000036b0 8a 31 39 29 3a f4 3b 22 3d 22 3b 53 54 52 24 58 |.19):.;"=";STR$X| 000036c0 59 28 75 6e 6b 73 25 2c 6c 2d 75 6e 6b 73 25 2d |Y(unks%,l-unks%-| 000036d0 31 2c 30 29 0d 11 76 09 40 25 3d 61 74 0d 11 80 |1,0)..v.@%=at...| 000036e0 05 cd 0d 11 8a 04 0d 11 94 05 cd 0d 11 9e 05 cd |................| 000036f0 0d 11 a8 05 ed 0d 11 b2 23 c8 99 22 57 69 6d 70 |........#.."Wimp| 00003700 5f 47 65 74 52 65 63 74 61 6e 67 6c 65 22 2c 2c |_GetRectangle",,| 00003710 62 25 b8 6d 6f 72 65 25 0d 11 bc 05 ce 0d 11 c6 |b%.more%........| 00003720 04 0d 11 d0 0a c9 75 6e 6b 57 25 0d 11 da 14 61 |......unkW%....a| 00003730 74 25 3d 40 25 3a 40 25 3d 22 2b 47 2e 39 22 0d |t%=@%:@%="+G.9".| 00003740 11 e4 2b 21 62 32 25 3d 75 6e 6b 57 25 3a c8 99 |..+!b2%=unkW%:..| 00003750 22 57 69 6d 70 5f 47 65 74 57 69 6e 64 6f 77 53 |"Wimp_GetWindowS| 00003760 74 61 74 65 22 2c 2c 62 32 25 0d 11 ee 66 6f 78 |tate",,b2%...fox| 00003770 25 3d 62 32 25 21 34 2d 62 32 25 21 32 30 3a 6f |%=b2%!4-b2%!20:o| 00003780 79 25 3d 62 32 25 21 31 36 2d 62 32 25 21 32 34 |y%=b2%!16-b2%!24| 00003790 3a 66 69 72 73 74 25 3d 94 28 62 32 25 21 32 34 |:first%=.(b2%!24| 000037a0 2f 33 32 29 3a 6c 61 73 74 25 3d 66 69 72 73 74 |/32):last%=first| 000037b0 25 2b 37 3a e7 6c 61 73 74 25 3e 75 6e 6b 73 25 |%+7:.last%>unks%| 000037c0 2d 31 20 6c 61 73 74 25 3d 75 6e 6b 73 25 2d 31 |-1 last%=unks%-1| 000037d0 0d 11 f8 24 c8 99 22 57 69 6d 70 5f 52 65 64 72 |...$.."Wimp_Redr| 000037e0 61 77 57 69 6e 64 6f 77 22 2c 2c 62 25 20 b8 6d |awWindow",,b% .m| 000037f0 6f 72 65 25 0d 12 02 0b c8 95 6d 6f 72 65 25 0d |ore%......more%.| 00003800 12 0c 13 e3 6c 3d 66 69 72 73 74 25 b8 6c 61 73 |....l=first%.las| 00003810 74 25 0d 12 16 18 c8 99 22 57 69 6d 70 5f 53 65 |t%......"Wimp_Se| 00003820 74 43 6f 6c 6f 75 72 22 2c 37 0d 12 20 0f e7 6c |tColour",7.. ..l| 00003830 2b 31 3d 65 64 69 74 25 8c 0d 12 2a 4f c8 93 c8 |+1=edit%...*O...| 00003840 90 6f 78 25 2c 6f 79 25 2d 34 2d 33 32 2a 28 6c |.ox%,oy%-4-32*(l| 00003850 2b 31 29 2d 94 28 6c 3d 28 75 6e 6b 73 25 2d 31 |+1)-.(l=(unks%-1| 00003860 29 29 2a 32 2c 35 30 30 2c 33 30 2b 94 28 6c 3d |))*2,500,30+.(l=| 00003870 28 30 29 29 2a 31 30 2b 94 28 6c 3d 28 75 6e 6b |(0))*10+.(l=(unk| 00003880 73 25 2d 31 29 29 2a 32 0d 12 34 05 cd 0d 12 3e |s%-1))*2..4....>| 00003890 16 ec 6f 78 25 2b 31 30 2c 6f 79 25 2d 37 2d 33 |..ox%+10,oy%-7-3| 000038a0 32 2a 6c 0d 12 48 27 c8 99 22 57 69 6d 70 5f 53 |2*l..H'.."Wimp_S| 000038b0 65 74 43 6f 6c 6f 75 72 22 2c 31 31 2a 94 28 6c |etColour",11*.(l| 000038c0 2b 31 3c 3e 65 64 69 74 25 29 0d 12 52 33 f1 c3 |+1<>edit%)..R3..| 000038d0 28 6c 2b 31 29 3b 8a 33 29 3b 3a c8 99 22 57 69 |(l+1);.3);:.."Wi| 000038e0 6d 70 5f 53 65 74 43 6f 6c 6f 75 72 22 2c 37 2a |mp_SetColour",7*| 000038f0 94 28 6c 2b 31 3c 3e 65 64 69 74 25 29 0d 12 5c |.(l+1<>edit%)..\| 00003900 16 f1 24 28 75 6e 6b 44 41 54 25 2b 6c 2a 31 34 |..$(unkDAT%+l*14| 00003910 29 3a ed 0d 12 66 23 c8 99 22 57 69 6d 70 5f 47 |):...f#.."Wimp_G| 00003920 65 74 52 65 63 74 61 6e 67 6c 65 22 2c 2c 62 25 |etRectangle",,b%| 00003930 b8 6d 6f 72 65 25 0d 12 70 0a 40 25 3d 61 74 25 |.more%..p.@%=at%| 00003940 0d 12 7a 05 ce 0d 12 84 04 0d 12 8e 07 cb 3a e1 |..z...........:.| 00003950 0d 12 98 04 0d 12 a2 20 dd f2 73 65 74 65 78 74 |....... ..setext| 00003960 65 6e 74 28 57 25 2c 6e 6f 2c 6d 69 6e 2c 77 69 |ent(W%,no,min,wi| 00003970 64 74 68 29 0d 12 ac 0c 6d 69 6e 3d 2d 6d 69 6e |dth)....min=-min| 00003980 0d 12 b6 2f 21 62 25 3d 57 25 3a c8 99 22 57 69 |.../!b%=W%:.."Wi| 00003990 6d 70 5f 47 65 74 57 69 6e 64 6f 77 49 6e 66 6f |mp_GetWindowInfo| 000039a0 22 2c 2c 62 25 3a 77 62 25 3d 62 25 21 32 38 0d |",,b%:wb%=b%!28.| 000039b0 12 c0 0b f2 63 77 28 57 25 29 0d 12 ca 09 21 62 |....cw(W%)....!b| 000039c0 25 3d 30 0d 12 d4 2f e7 57 25 3d 63 6f 65 66 66 |%=0.../.W%=coeff| 000039d0 57 25 20 62 25 21 34 3d 2d 28 6e 6f 2a 35 30 2b |W% b%!4=-(no*50+| 000039e0 39 29 8b 62 25 21 34 3d 2d 28 6e 6f 2a 33 32 2b |9).b%!4=-(no*32+| 000039f0 36 29 0d 12 de 1d e7 77 69 64 74 68 20 62 25 21 |6).....width b%!| 00003a00 38 3d 77 69 64 74 68 2a 32 36 35 2b 33 31 36 0d |8=width*265+316.| 00003a10 12 e8 1e 62 25 21 31 32 3d 30 3a e7 62 25 21 34 |...b%!12=0:.b%!4| 00003a20 3e 6d 69 6e 20 62 25 21 34 3d 6d 69 6e 0d 12 f2 |>min b%!4=min...| 00003a30 61 c8 99 22 57 69 6d 70 5f 53 65 74 45 78 74 65 |a.."Wimp_SetExte| 00003a40 6e 74 22 2c 57 25 2c 62 25 3a 21 62 25 3d 57 25 |nt",W%,b%:!b%=W%| 00003a50 3a c8 99 22 57 69 6d 70 5f 47 65 74 57 69 6e 64 |:.."Wimp_GetWind| 00003a60 6f 77 53 74 61 74 65 22 2c 2c 62 25 3a 62 25 21 |owState",,b%:b%!| 00003a70 32 38 3d 77 62 25 3a c8 99 22 57 69 6d 70 5f 4f |28=wb%:.."Wimp_O| 00003a80 70 65 6e 57 69 6e 64 6f 77 22 2c 2c 62 25 0d 12 |penWindow",,b%..| 00003a90 fc 05 e1 0d 13 06 04 0d 13 10 28 dd f2 61 74 74 |..........(..att| 00003aa0 61 74 63 68 28 62 68 61 6e 64 25 2c 74 68 61 6e |atch(bhand%,than| 00003ab0 64 25 2c 78 6f 66 66 25 2c 79 6f 66 66 25 29 0d |d%,xoff%,yoff%).| 00003ac0 13 1a 77 21 62 32 25 3d 74 68 61 6e 64 25 3a c8 |..w!b2%=thand%:.| 00003ad0 99 22 57 69 6d 70 5f 47 65 74 57 69 6e 64 6f 77 |."Wimp_GetWindow| 00003ae0 53 74 61 74 65 22 2c 2c 62 32 25 3a 62 32 25 21 |State",,b2%:b2%!| 00003af0 32 38 3d 62 25 21 32 38 3a 62 32 25 21 31 32 3d |28=b%!28:b2%!12=| 00003b00 62 32 25 21 31 32 2d 62 32 25 21 34 2b 62 25 21 |b2%!12-b2%!4+b%!| 00003b10 34 2b 78 6f 66 66 25 3a 62 32 25 21 31 36 3d 62 |4+xoff%:b2%!16=b| 00003b20 32 25 21 31 36 2d 62 32 25 21 38 2b 62 25 21 38 |2%!16-b2%!8+b%!8| 00003b30 2b 79 6f 66 66 25 0d 13 24 63 62 32 25 21 34 3d |+yoff%..$cb2%!4=| 00003b40 62 25 21 34 2b 78 6f 66 66 25 3a 62 32 25 21 38 |b%!4+xoff%:b2%!8| 00003b50 3d 62 25 21 38 2b 79 6f 66 66 25 3a c8 99 22 57 |=b%!8+yoff%:.."W| 00003b60 69 6d 70 5f 4f 70 65 6e 57 69 6e 64 6f 77 22 2c |imp_OpenWindow",| 00003b70 2c 62 32 25 3a 62 25 21 32 38 3d 74 68 61 6e 64 |,b2%:b%!28=thand| 00003b80 25 3a c8 99 22 57 69 6d 70 5f 4f 70 65 6e 57 69 |%:.."Wimp_OpenWi| 00003b90 6e 64 6f 77 22 2c 2c 62 25 0d 13 2e 05 e1 0d 13 |ndow",,b%.......| 00003ba0 38 04 0d 13 42 11 f4 20 49 63 6f 6e 20 63 6c 69 |8...B.. Icon cli| 00003bb0 63 6b 73 0d 13 4c 04 0d 13 56 21 dd f2 63 6c 69 |cks..L...V!..cli| 00003bc0 63 6b 3a 63 77 69 6e 25 3d 62 25 21 31 32 3a 69 |ck:cwin%=b%!12:i| 00003bd0 63 63 3d 62 25 21 31 36 0d 13 60 0c c8 8e 63 77 |cc=b%!16..`...cw| 00003be0 69 6e 25 ca 0d 13 6a 07 c9 2d 32 0d 13 74 0b c8 |in%...j..-2..t..| 00003bf0 8e 62 25 21 38 ca 0d 13 7e 20 c9 32 3a f2 6d 65 |.b%!8...~ .2:.me| 00003c00 6e 75 28 69 6d 25 2c 21 62 25 2d 36 34 2c 39 36 |nu(im%,!b%-64,96| 00003c10 2b 34 34 2a 34 29 0d 13 88 17 c9 34 3a e7 a4 77 |+44*4).....4:..w| 00003c20 6f 70 65 6e 28 6d 61 69 6e 57 25 29 8c 0d 13 92 |open(mainW%)....| 00003c30 12 f2 6f 70 65 6e 77 28 6d 61 69 6e 57 25 29 0d |..openw(mainW%).| 00003c40 13 9c 20 e7 a4 77 66 75 6c 6c 28 6d 61 69 6e 57 |.. ..wfull(mainW| 00003c50 25 29 f2 6f 70 65 6e 77 28 75 6e 6b 57 25 29 0d |%).openw(unkW%).| 00003c60 13 a6 0f cc f2 73 6d 61 6c 6c 6d 61 69 6e 0d 13 |.....smallmain..| 00003c70 b0 05 cd 0d 13 ba 05 cb 0d 13 c4 04 0d 13 ce 0b |................| 00003c80 c9 68 65 6c 70 57 25 0d 13 d8 0b c8 8e 69 63 63 |.helpW%......icc| 00003c90 20 ca 0d 13 e2 13 c9 31 37 3a f2 63 72 28 68 65 | ......17:.cr(he| 00003ca0 6c 70 57 25 29 0d 13 ec 2e c9 34 31 2c 34 34 3a |lpW%).....41,44:| 00003cb0 ff 22 46 69 6c 65 72 5f 52 75 6e 20 52 65 73 6f |."Filer_Run Reso| 00003cc0 75 72 63 65 73 3a 24 2e 41 70 70 73 2e 21 48 65 |urces:$.Apps.!He| 00003cd0 6c 70 22 0d 13 f6 05 cb 0d 14 00 04 0d 14 0a 0c |lp".............| 00003ce0 c9 63 68 61 6e 67 57 25 0d 14 14 0b c8 8e 69 63 |.changW%......ic| 00003cf0 63 20 ca 0d 14 1e 0d c9 31 31 3a f2 68 65 6c 70 |c ......11:.help| 00003d00 0d 14 28 06 c9 31 0d 14 32 11 62 32 25 21 34 3d |..(..1..2.b2%!4=| 00003d10 63 68 61 6e 67 57 25 0d 14 3c 22 c8 99 22 57 69 |changW%..<".."Wi| 00003d20 6d 70 5f 47 65 74 57 69 6e 64 6f 77 4f 75 74 6c |mp_GetWindowOutl| 00003d30 69 6e 65 22 2c 2c 62 32 25 0d 14 46 10 21 62 32 |ine",,b2%..F.!b2| 00003d40 25 3d 63 68 61 6e 67 57 25 0d 14 50 0b 62 32 25 |%=changW%..P.b2%| 00003d50 21 34 3d 31 0d 14 5a 19 c8 99 22 57 69 6d 70 5f |!4=1..Z..."Wimp_| 00003d60 44 72 61 67 42 6f 78 22 2c 2c 62 32 25 0d 14 64 |DragBox",,b2%..d| 00003d70 27 c9 34 3a f2 73 65 74 65 64 69 74 28 65 78 25 |'.4:.setedit(ex%| 00003d80 2c 65 79 25 29 3a f2 63 72 28 72 57 25 29 3a f2 |,ey%):.cr(rW%):.| 00003d90 63 61 6c 63 0d 14 6e 96 c9 31 30 3a e7 a4 63 68 |calc..n..10:..ch| 00003da0 6f 69 63 65 28 22 44 6f 20 79 6f 75 20 72 65 61 |oice("Do you rea| 00003db0 6c 6c 79 20 77 61 6e 74 20 74 6f 20 63 6c 65 61 |lly want to clea| 00003dc0 72 20 61 6c 6c 20 74 68 69 73 20 64 61 74 61 3f |r all this data?| 00003dd0 22 29 3a e3 78 3d 31 b8 75 6e 6b 73 25 2b 31 3a |"):.x=1.unks%+1:| 00003de0 e3 79 3d 31 b8 75 6e 6b 73 25 3a 58 59 28 78 2c |.y=1.unks%:XY(x,| 00003df0 79 2c 32 29 3d 30 3a ed 3a ed 3a 65 78 25 3d 30 |y,2)=0:.:.:ex%=0| 00003e00 3a 65 79 25 3d 30 3a f2 66 6f 72 63 65 72 65 64 |:ey%=0:.forcered| 00003e10 72 61 77 28 63 6f 65 66 66 57 25 29 3a f2 73 65 |raw(coeffW%):.se| 00003e20 74 65 64 69 74 28 31 2c 31 29 0d 14 78 06 c9 39 |tedit(1,1)..x..9| 00003e30 0d 14 82 12 c8 8e 62 25 21 38 20 80 20 25 31 31 |......b%!8 . %11| 00003e40 31 ca 0d 14 8c 15 c9 32 3a 63 78 6f 66 66 73 65 |1......2:cxoffse| 00003e50 74 25 3d 6f 78 6f 25 0d 14 96 15 c9 31 3a 63 79 |t%=oxo%.....1:cy| 00003e60 6f 66 66 73 65 74 25 3d 6f 79 6f 25 0d 14 a0 05 |offset%=oyo%....| 00003e70 7f 0d 14 aa 21 63 78 6f 66 66 73 65 74 25 3d 6f |....!cxoffset%=o| 00003e80 78 6f 25 3a 63 79 6f 66 66 73 65 74 25 3d 6f 79 |xo%:cyoffset%=oy| 00003e90 6f 25 0d 14 b4 05 cb 0d 14 be 59 21 62 25 3d 63 |o%........Y!b%=c| 00003ea0 6f 65 66 66 57 25 3a c8 99 22 57 69 6d 70 5f 47 |oeffW%:.."Wimp_G| 00003eb0 65 74 57 69 6e 64 6f 77 53 74 61 74 65 22 2c 2c |etWindowState",,| 00003ec0 62 25 3a f2 61 74 74 61 74 63 68 28 63 6f 65 66 |b%:.attatch(coef| 00003ed0 66 57 25 2c 63 68 61 6e 67 57 25 2c 63 78 6f 66 |fW%,changW%,cxof| 00003ee0 66 73 65 74 25 2c 63 79 6f 66 66 73 65 74 25 29 |fset%,cyoffset%)| 00003ef0 0d 14 c8 05 cb 0d 14 d2 04 0d 14 dc 0b c9 6f 70 |..............op| 00003f00 65 6e 57 25 0d 14 e6 18 f2 63 72 28 6f 70 65 6e |enW%.....cr(open| 00003f10 57 25 29 3a f2 69 63 6f 6e 62 61 72 0d 14 f0 04 |W%):.iconbar....| 00003f20 0d 14 fa 0c c9 63 6f 65 66 66 57 25 0d 15 04 0d |.....coeffW%....| 00003f30 e7 62 25 21 38 3d 32 20 e1 0d 15 0e 10 21 62 32 |.b%!8=2 .....!b2| 00003f40 25 3d 63 6f 65 66 66 57 25 0d 15 18 20 c8 99 22 |%=coeffW%... .."| 00003f50 57 69 6d 70 5f 47 65 74 57 69 6e 64 6f 77 53 74 |Wimp_GetWindowSt| 00003f60 61 74 65 22 2c 2c 62 32 25 0d 15 22 25 78 25 3d |ate",,b2%.."%x%=| 00003f70 28 28 62 25 21 30 2d 62 32 25 21 34 2b 62 32 25 |((b%!0-b2%!4+b2%| 00003f80 21 32 30 2d 35 30 29 81 32 36 35 29 2b 31 0d 15 |!20-50).265)+1..| 00003f90 2c 21 79 25 3d 28 28 62 25 21 34 2d 62 32 25 21 |,!y%=((b%!4-b2%!| 00003fa0 31 36 2b 62 32 25 21 32 34 29 81 2d 35 30 29 0d |16+b2%!24).-50).| 00003fb0 15 36 29 e7 78 25 3e 30 20 80 20 78 25 3c 75 6e |.6).x%>0 . x%<un| 00003fc0 6b 73 25 2b 32 20 80 79 25 3e 30 80 79 25 3c 75 |ks%+2 .y%>0.y%<u| 00003fd0 6e 6b 73 25 2b 31 20 8c 0d 15 40 3b e7 62 25 21 |nks%+1 ...@;.b%!| 00003fe0 38 3d 31 20 f2 6d 73 67 28 22 43 65 6c 6c 20 28 |8=1 .msg("Cell (| 00003ff0 22 2b 24 28 75 6e 6b 44 41 54 25 2b 28 78 25 2d |"+$(unkDAT%+(x%-| 00004000 31 29 2a 31 34 29 2b 22 2c 22 2b c3 79 25 2b 22 |1)*14)+","+.y%+"| 00004010 29 22 29 0d 15 4a 13 f2 73 65 74 65 64 69 74 28 |)")..J..setedit(| 00004020 78 25 2c 79 25 29 0d 15 54 05 cd 0d 15 5e 04 0d |x%,y%)..T....^..| 00004030 15 68 08 c9 72 57 25 0d 15 72 1e f2 6d 65 6e 75 |.h..rW%..r..menu| 00004040 64 65 66 73 3a f4 20 43 68 65 63 6b 20 66 6f 72 |defs:. Check for| 00004050 20 74 69 63 6b 0d 15 7c 1a f2 6d 65 6e 75 28 61 | tick..|..menu(a| 00004060 6d 25 2c 21 62 25 2d 36 34 2c 62 25 21 34 29 0d |m%,!b%-64,b%!4).| 00004070 15 86 04 0d 15 90 0b c9 69 6e 66 6f 57 25 0d 15 |........infoW%..| 00004080 9a 3e e7 69 63 63 3d 39 20 f2 6d 73 67 28 22 50 |.>.icc=9 .msg("P| 00004090 6c 65 61 73 65 20 65 2d 6d 61 69 6c 20 6d 65 20 |lease e-mail me | 000040a0 69 66 20 79 6f 75 20 63 61 6e 21 20 49 20 6c 69 |if you can! I li| 000040b0 6b 65 20 45 2d 6d 61 69 6c 21 22 29 0d 15 a4 04 |ke E-mail!")....| 000040c0 0d 15 ae 0a c9 75 6e 6b 57 25 0d 15 b8 2b 21 62 |.....unkW%...+!b| 000040d0 32 25 3d 75 6e 6b 57 25 3a c8 99 22 57 69 6d 70 |2%=unkW%:.."Wimp| 000040e0 5f 47 65 74 57 69 6e 64 6f 77 53 74 61 74 65 22 |_GetWindowState"| 000040f0 2c 2c 62 32 25 0d 15 c2 0d 6f 65 25 3d 65 64 69 |,,b2%....oe%=edi| 00004100 74 25 0d 15 cc 26 65 64 69 74 25 3d 31 2b 94 28 |t%...&edit%=1+.(| 00004110 28 62 32 25 21 31 36 2d 62 32 25 21 32 34 2d 62 |(b2%!16-b2%!24-b| 00004120 25 21 34 29 81 33 32 29 0d 15 d6 21 e7 24 a4 69 |%!4).32)...!.$.i| 00004130 6d 28 6d 61 69 6e 57 25 2c 37 29 3d 22 22 65 64 |m(mainW%,7)=""ed| 00004140 69 74 25 3d 6f 65 25 3a e1 0d 15 e0 28 24 28 75 |it%=oe%:....($(u| 00004150 6e 6b 44 41 54 25 2b 28 6f 65 25 2d 31 29 2a 31 |nkDAT%+(oe%-1)*1| 00004160 34 29 3d 24 a4 69 6d 28 6d 61 69 6e 57 25 2c 37 |4)=$.im(mainW%,7| 00004170 29 0d 15 ea 1d e7 65 64 69 74 25 3e 75 6e 6b 73 |).....edit%>unks| 00004180 25 20 8c 65 64 69 74 25 3d 75 6e 6b 73 25 0d 15 |% .edit%=unks%..| 00004190 f4 48 24 a4 69 6d 28 6d 61 69 6e 57 25 2c 37 29 |.H$.im(mainW%,7)| 000041a0 3d 24 28 75 6e 6b 44 41 54 25 2b 28 65 64 69 74 |=$(unkDAT%+(edit| 000041b0 25 2d 31 29 2a 31 34 29 3a f2 73 74 63 28 6d 61 |%-1)*14):.stc(ma| 000041c0 69 6e 57 25 2c 37 29 3a f2 75 70 64 28 6d 61 69 |inW%,7):.upd(mai| 000041d0 6e 57 25 2c 37 29 0d 15 fe 17 f2 66 6f 72 63 65 |nW%,7).....force| 000041e0 72 65 64 72 61 77 28 75 6e 6b 57 25 29 0d 16 08 |redraw(unkW%)...| 000041f0 04 0d 16 12 0b c9 6d 61 69 6e 57 25 0d 16 1c 0b |......mainW%....| 00004200 c8 8e 69 63 63 20 ca 0d 16 26 10 c9 31 33 2c 31 |..icc ...&..13,1| 00004210 37 3a f2 68 65 6c 70 0d 16 30 25 c9 31 36 3a e7 |7:.help..0%.16:.| 00004220 24 a4 69 6d 28 6d 61 69 6e 57 25 2c 37 29 3d 22 |$.im(mainW%,7)="| 00004230 22 8c e1 3a f4 20 43 48 41 4e 47 45 0d 16 3a 2a |"..:. CHANGE..:*| 00004240 24 28 75 6e 6b 44 41 54 25 2b 28 65 64 69 74 25 |$(unkDAT%+(edit%| 00004250 2d 31 29 2a 31 34 29 3d 24 a4 69 6d 28 6d 61 69 |-1)*14)=$.im(mai| 00004260 6e 57 25 2c 37 29 0d 16 44 0f f2 63 72 28 6d 61 |nW%,7)..D..cr(ma| 00004270 69 6e 57 25 29 0d 16 4e 28 f2 73 65 74 65 78 74 |inW%)..N(.setext| 00004280 65 6e 74 28 63 6f 65 66 66 57 25 2c 75 6e 6b 73 |ent(coeffW%,unks| 00004290 25 2b 32 2c 35 30 2c 75 6e 6b 73 25 29 0d 16 58 |%+2,50,unks%)..X| 000042a0 13 f2 6f 70 65 6e 77 28 63 6f 65 66 66 57 25 29 |..openw(coeffW%)| 000042b0 0d 16 62 6c f2 63 65 6e 74 72 65 28 63 6f 65 66 |..bl.centre(coef| 000042c0 66 57 25 2c 38 34 35 2c 34 38 30 2c 30 29 3a 21 |fW%,845,480,0):!| 000042d0 62 25 3d 63 6f 65 66 66 57 25 3a c8 99 22 57 69 |b%=coeffW%:.."Wi| 000042e0 6d 70 5f 47 65 74 57 69 6e 64 6f 77 53 74 61 74 |mp_GetWindowStat| 000042f0 65 22 2c 2c 62 25 3a f2 61 74 74 61 74 63 68 28 |e",,b%:.attatch(| 00004300 63 6f 65 66 66 57 25 2c 63 68 61 6e 67 57 25 2c |coeffW%,changW%,| 00004310 30 2c 63 79 6f 66 66 73 65 74 25 29 0d 16 6c 45 |0,cyoffset%)..lE| 00004320 e3 78 3d 31 b8 75 6e 6b 73 25 2b 31 3a e3 79 3d |.x=1.unks%+1:.y=| 00004330 31 b8 75 6e 6b 73 25 3a 58 59 28 78 2c 79 2c 32 |1.unks%:XY(x,y,2| 00004340 29 3d 30 3a ed 3a ed 3a 65 78 25 3d 30 3a 65 79 |)=0:.:.:ex%=0:ey| 00004350 25 3d 30 3a f2 73 65 74 65 64 69 74 28 31 2c 31 |%=0:.setedit(1,1| 00004360 29 0d 16 76 24 c9 38 3a e7 24 a4 69 6d 28 6d 61 |)..v$.8:.$.im(ma| 00004370 69 6e 57 25 2c 37 29 3d 22 22 8c e1 3a f4 20 43 |inW%,7)=""..:. C| 00004380 48 41 4e 47 45 0d 16 80 2a 24 28 75 6e 6b 44 41 |HANGE...*$(unkDA| 00004390 54 25 2b 28 65 64 69 74 25 2d 31 29 2a 31 34 29 |T%+(edit%-1)*14)| 000043a0 3d 24 a4 69 6d 28 6d 61 69 6e 57 25 2c 37 29 0d |=$.im(mainW%,7).| 000043b0 16 8a 23 e7 65 64 69 74 25 3c 75 6e 6b 73 25 20 |..#.edit%<unks% | 000043c0 65 64 69 74 25 2b 3d 31 20 8b 20 65 64 69 74 25 |edit%+=1 . edit%| 000043d0 3d 31 0d 16 94 48 24 a4 69 6d 28 6d 61 69 6e 57 |=1...H$.im(mainW| 000043e0 25 2c 37 29 3d 24 28 75 6e 6b 44 41 54 25 2b 28 |%,7)=$(unkDAT%+(| 000043f0 65 64 69 74 25 2d 31 29 2a 31 34 29 3a f2 75 70 |edit%-1)*14):.up| 00004400 64 28 6d 61 69 6e 57 25 2c 37 29 3a f2 73 74 63 |d(mainW%,7):.stc| 00004410 28 6d 61 69 6e 57 25 2c 37 29 0d 16 9e 0d 21 62 |(mainW%,7)....!b| 00004420 25 3d 75 6e 6b 57 25 0d 16 a8 1f c8 99 22 57 69 |%=unkW%......"Wi| 00004430 6d 70 5f 47 65 74 57 69 6e 64 6f 77 53 74 61 74 |mp_GetWindowStat| 00004440 65 22 2c 2c 62 25 0d 16 b2 1f e7 65 64 69 74 25 |e",,b%.....edit%| 00004450 3e 34 20 62 25 21 32 34 2d 3d 33 32 20 8b 62 25 |>4 b%!24-=32 .b%| 00004460 21 32 34 3d 30 0d 16 bc 1b c8 99 22 57 69 6d 70 |!24=0......"Wimp| 00004470 5f 4f 70 65 6e 57 69 6e 64 6f 77 22 2c 2c 62 25 |_OpenWindow",,b%| 00004480 0d 16 c6 17 f2 66 6f 72 63 65 72 65 64 72 61 77 |.....forceredraw| 00004490 28 75 6e 6b 57 25 29 0d 16 d0 2c c9 39 3a 6e 24 |(unkW%)...,.9:n$| 000044a0 3d 24 a4 69 6d 28 6d 61 69 6e 57 25 2c 37 29 3a |=$.im(mainW%,7):| 000044b0 e7 a9 6e 24 3e 31 31 20 8c 6e 24 3d c0 6e 24 2c |..n$>11 .n$=.n$,| 000044c0 31 31 29 0d 16 da ce e7 a4 63 68 6f 69 63 65 28 |11)......choice(| 000044d0 22 44 6f 20 79 6f 75 20 72 65 61 6c 6c 79 20 77 |"Do you really w| 000044e0 61 6e 74 20 74 6f 20 6d 61 6b 65 20 61 6c 6c 20 |ant to make all | 000044f0 75 6e 6b 6e 6f 77 6e 73 20 66 6f 6c 6c 6f 77 20 |unknowns follow | 00004500 74 68 65 20 73 65 71 75 65 6e 63 65 20 22 2b 6e |the sequence "+n| 00004510 24 2b 22 31 2c 20 22 2b 6e 24 2b 22 32 20 65 74 |$+"1, "+n$+"2 et| 00004520 63 2e 22 29 20 8c f2 6e 75 6d 62 65 72 76 61 72 |c.") ..numbervar| 00004530 73 28 6e 24 2c 2d 31 29 3a f2 66 6f 72 63 65 72 |s(n$,-1):.forcer| 00004540 65 64 72 61 77 28 75 6e 6b 57 25 29 3a 24 a4 69 |edraw(unkW%):$.i| 00004550 6d 28 6d 61 69 6e 57 25 2c 37 29 3d 24 28 75 6e |m(mainW%,7)=$(un| 00004560 6b 44 41 54 25 2b 28 65 64 69 74 25 2d 31 29 2a |kDAT%+(edit%-1)*| 00004570 31 34 29 3a f2 75 70 64 28 6d 61 69 6e 57 25 2c |14):.upd(mainW%,| 00004580 37 29 3a f2 73 74 63 28 6d 61 69 6e 57 25 2c 37 |7):.stc(mainW%,7| 00004590 29 0d 16 e4 40 c9 31 30 3a e7 a4 63 68 6f 69 63 |)...@.10:..choic| 000045a0 65 28 22 44 6f 20 79 6f 75 20 72 65 61 6c 6c 79 |e("Do you really| 000045b0 20 77 61 6e 74 20 74 6f 20 73 74 61 72 74 20 61 | want to start a| 000045c0 67 61 69 6e 3f 22 29 f2 73 6d 61 6c 6c 6d 61 69 |gain?").smallmai| 000045d0 6e 0d 16 ee 13 c9 31 31 3a f2 63 72 28 6d 61 69 |n.....11:.cr(mai| 000045e0 6e 57 25 29 0d 16 f8 40 c9 34 3a e7 bb 24 a4 69 |nW%)...@.4:..$.i| 000045f0 6d 28 6d 61 69 6e 57 25 2c 33 29 3c 32 20 8c f2 |m(mainW%,3)<2 ..| 00004600 6d 73 67 28 22 54 68 69 73 20 69 73 20 6e 6f 74 |msg("This is not| 00004610 20 61 6c 6c 6f 77 65 64 21 22 29 8b f2 62 69 67 | allowed!")..big| 00004620 6d 61 69 6e 0d 17 02 05 cb 0d 17 0c 04 0d 17 16 |main............| 00004630 05 cb 0d 17 20 07 cb 3a e1 0d 17 2a 04 0d 17 34 |.... ..:...*...4| 00004640 15 dd f2 6b 65 79 70 72 65 73 73 3a c8 8e 21 62 |...keypress:..!b| 00004650 25 ca 0d 17 3e 04 0d 17 48 0b c9 6f 70 65 6e 57 |%...>...H..openW| 00004660 25 0d 17 52 18 f2 63 72 28 6f 70 65 6e 57 25 29 |%..R..cr(openW%)| 00004670 3a f2 69 63 6f 6e 62 61 72 0d 17 5c 0b c9 6d 61 |:.iconbar..\..ma| 00004680 69 6e 57 25 0d 17 66 0d 20 c8 8e 62 25 21 32 34 |inW%..f. ..b%!24| 00004690 ca 0d 17 70 17 20 c9 26 31 39 46 2c 26 31 41 46 |...p. .&19F,&1AF| 000046a0 2c 26 31 42 46 2c 33 30 0d 17 7a 41 20 e7 24 a4 |,&1BF,30..zA .$.| 000046b0 69 6d 28 6d 61 69 6e 57 25 2c 37 29 3c 3e 22 22 |im(mainW%,7)<>""| 000046c0 20 24 28 75 6e 6b 44 41 54 25 2b 28 65 64 69 74 | $(unkDAT%+(edit| 000046d0 25 2d 31 29 2a 31 34 29 3d 24 a4 69 6d 28 6d 61 |%-1)*14)=$.im(ma| 000046e0 69 6e 57 25 2c 37 29 8b e1 0d 17 84 0c 20 65 64 |inW%,7)...... ed| 000046f0 69 74 25 3d 31 0d 17 8e 48 24 a4 69 6d 28 6d 61 |it%=1...H$.im(ma| 00004700 69 6e 57 25 2c 37 29 3d 24 28 75 6e 6b 44 41 54 |inW%,7)=$(unkDAT| 00004710 25 2b 28 65 64 69 74 25 2d 31 29 2a 31 34 29 3a |%+(edit%-1)*14):| 00004720 f2 75 70 64 28 6d 61 69 6e 57 25 2c 37 29 3a f2 |.upd(mainW%,7):.| 00004730 73 74 63 28 6d 61 69 6e 57 25 2c 37 29 0d 17 98 |stc(mainW%,7)...| 00004740 0d 21 62 25 3d 75 6e 6b 57 25 0d 17 a2 1f c8 99 |.!b%=unkW%......| 00004750 22 57 69 6d 70 5f 47 65 74 57 69 6e 64 6f 77 53 |"Wimp_GetWindowS| 00004760 74 61 74 65 22 2c 2c 62 25 0d 17 ac 0b 62 25 21 |tate",,b%....b%!| 00004770 32 34 3d 30 0d 17 b6 1b c8 99 22 57 69 6d 70 5f |24=0......"Wimp_| 00004780 4f 70 65 6e 57 69 6e 64 6f 77 22 2c 2c 62 25 0d |OpenWindow",,b%.| 00004790 17 c0 19 20 20 f2 66 6f 72 63 65 72 65 64 72 61 |... .forceredra| 000047a0 77 28 75 6e 6b 57 25 29 0d 17 ca 04 0d 17 d4 19 |w(unkW%)........| 000047b0 20 c9 26 31 39 45 2c 26 31 41 46 2c 26 31 41 45 | .&19E,&1AF,&1AE| 000047c0 2c 26 31 41 45 0d 17 de 41 20 e7 24 a4 69 6d 28 |,&1AE...A .$.im(| 000047d0 6d 61 69 6e 57 25 2c 37 29 3c 3e 22 22 20 24 28 |mainW%,7)<>"" $(| 000047e0 75 6e 6b 44 41 54 25 2b 28 65 64 69 74 25 2d 31 |unkDAT%+(edit%-1| 000047f0 29 2a 31 34 29 3d 24 a4 69 6d 28 6d 61 69 6e 57 |)*14)=$.im(mainW| 00004800 25 2c 37 29 8b e1 0d 17 e8 10 20 65 64 69 74 25 |%,7)...... edit%| 00004810 3d 75 6e 6b 73 25 0d 17 f2 48 24 a4 69 6d 28 6d |=unks%...H$.im(m| 00004820 61 69 6e 57 25 2c 37 29 3d 24 28 75 6e 6b 44 41 |ainW%,7)=$(unkDA| 00004830 54 25 2b 28 65 64 69 74 25 2d 31 29 2a 31 34 29 |T%+(edit%-1)*14)| 00004840 3a f2 75 70 64 28 6d 61 69 6e 57 25 2c 37 29 3a |:.upd(mainW%,7):| 00004850 f2 73 74 63 28 6d 61 69 6e 57 25 2c 37 29 0d 17 |.stc(mainW%,7)..| 00004860 fc 0d 21 62 25 3d 75 6e 6b 57 25 0d 18 06 1f c8 |..!b%=unkW%.....| 00004870 99 22 57 69 6d 70 5f 47 65 74 57 69 6e 64 6f 77 |."Wimp_GetWindow| 00004880 53 74 61 74 65 22 2c 2c 62 25 0d 18 10 15 62 25 |State",,b%....b%| 00004890 21 32 34 3d 2d 75 6e 6b 73 25 2a 33 32 2d 33 0d |!24=-unks%*32-3.| 000048a0 18 1a 1b c8 99 22 57 69 6d 70 5f 4f 70 65 6e 57 |....."Wimp_OpenW| 000048b0 69 6e 64 6f 77 22 2c 2c 62 25 0d 18 24 19 20 20 |indow",,b%..$. | 000048c0 f2 66 6f 72 63 65 72 65 64 72 61 77 28 75 6e 6b |.forceredraw(unk| 000048d0 57 25 29 0d 18 2e 04 0d 18 38 0f 20 c9 26 31 38 |W%)......8. .&18| 000048e0 46 2c 26 31 39 41 0d 18 42 0e 20 20 c8 8e 62 25 |F,&19A..B. ..b%| 000048f0 21 34 20 ca 0d 18 4c 45 20 20 c9 37 3a e7 24 a4 |!4 ...LE .7:.$.| 00004900 69 6d 28 6d 61 69 6e 57 25 2c 37 29 3c 3e 22 22 |im(mainW%,7)<>""| 00004910 20 24 28 75 6e 6b 44 41 54 25 2b 28 65 64 69 74 | $(unkDAT%+(edit| 00004920 25 2d 31 29 2a 31 34 29 3d 24 a4 69 6d 28 6d 61 |%-1)*14)=$.im(ma| 00004930 69 6e 57 25 2c 37 29 8b e1 0d 18 56 17 20 20 e7 |inW%,7)....V. .| 00004940 65 64 69 74 25 3e 31 20 65 64 69 74 25 2d 3d 31 |edit%>1 edit%-=1| 00004950 0d 18 60 48 24 a4 69 6d 28 6d 61 69 6e 57 25 2c |..`H$.im(mainW%,| 00004960 37 29 3d 24 28 75 6e 6b 44 41 54 25 2b 28 65 64 |7)=$(unkDAT%+(ed| 00004970 69 74 25 2d 31 29 2a 31 34 29 3a f2 75 70 64 28 |it%-1)*14):.upd(| 00004980 6d 61 69 6e 57 25 2c 37 29 3a f2 73 74 63 28 6d |mainW%,7):.stc(m| 00004990 61 69 6e 57 25 2c 37 29 0d 18 6a 0d 21 62 25 3d |ainW%,7)..j.!b%=| 000049a0 75 6e 6b 57 25 0d 18 74 1f c8 99 22 57 69 6d 70 |unkW%..t..."Wimp| 000049b0 5f 47 65 74 57 69 6e 64 6f 77 53 74 61 74 65 22 |_GetWindowState"| 000049c0 2c 2c 62 25 0d 18 7e 1c e7 75 6e 6b 73 25 2d 65 |,,b%..~..unks%-e| 000049d0 64 69 74 25 3e 33 20 62 25 21 32 34 2b 3d 33 32 |dit%>3 b%!24+=32| 000049e0 0d 18 88 1b c8 99 22 57 69 6d 70 5f 4f 70 65 6e |......"Wimp_Open| 000049f0 57 69 6e 64 6f 77 22 2c 2c 62 25 0d 18 92 19 20 |Window",,b%.... | 00004a00 20 f2 66 6f 72 63 65 72 65 64 72 61 77 28 75 6e | .forceredraw(un| 00004a10 6b 57 25 29 0d 18 9c 06 20 cb 0d 18 a6 04 0d 18 |kW%).... .......| 00004a20 b0 12 20 c9 31 33 2c 26 31 38 45 2c 26 31 38 41 |.. .13,&18E,&18A| 00004a30 0d 18 ba 0e 20 20 c8 8e 62 25 21 34 20 ca 0d 18 |.... ..b%!4 ...| 00004a40 c4 57 20 20 c9 33 3a e7 bb 24 a4 69 6d 28 6d 61 |.W .3:..$.im(ma| 00004a50 69 6e 57 25 2c 33 29 3c 32 20 80 62 25 21 32 34 |inW%,3)<2 .b%!24| 00004a60 3d 31 33 20 8c f2 6d 73 67 28 22 54 68 69 73 20 |=13 ..msg("This | 00004a70 69 73 20 6e 6f 74 20 61 6c 6c 6f 77 65 64 21 22 |is not allowed!"| 00004a80 29 20 20 8b e7 62 25 21 32 34 3d 31 33 f2 62 69 |) ..b%!24=13.bi| 00004a90 67 6d 61 69 6e 0d 18 ce 45 20 20 c9 37 3a e7 24 |gmain...E .7:.$| 00004aa0 a4 69 6d 28 6d 61 69 6e 57 25 2c 37 29 3c 3e 22 |.im(mainW%,7)<>"| 00004ab0 22 20 24 28 75 6e 6b 44 41 54 25 2b 28 65 64 69 |" $(unkDAT%+(edi| 00004ac0 74 25 2d 31 29 2a 31 34 29 3d 24 a4 69 6d 28 6d |t%-1)*14)=$.im(m| 00004ad0 61 69 6e 57 25 2c 37 29 8b e1 0d 18 d8 25 20 20 |ainW%,7).....% | 00004ae0 e7 65 64 69 74 25 3c 75 6e 6b 73 25 20 65 64 69 |.edit%<unks% edi| 00004af0 74 25 2b 3d 31 20 8b 20 65 64 69 74 25 3d 31 0d |t%+=1 . edit%=1.| 00004b00 18 e2 48 24 a4 69 6d 28 6d 61 69 6e 57 25 2c 37 |..H$.im(mainW%,7| 00004b10 29 3d 24 28 75 6e 6b 44 41 54 25 2b 28 65 64 69 |)=$(unkDAT%+(edi| 00004b20 74 25 2d 31 29 2a 31 34 29 3a f2 75 70 64 28 6d |t%-1)*14):.upd(m| 00004b30 61 69 6e 57 25 2c 37 29 3a f2 73 74 63 28 6d 61 |ainW%,7):.stc(ma| 00004b40 69 6e 57 25 2c 37 29 0d 18 ec 0d 21 62 25 3d 75 |inW%,7)....!b%=u| 00004b50 6e 6b 57 25 0d 18 f6 1f c8 99 22 57 69 6d 70 5f |nkW%......"Wimp_| 00004b60 47 65 74 57 69 6e 64 6f 77 53 74 61 74 65 22 2c |GetWindowState",| 00004b70 2c 62 25 0d 19 00 16 e7 65 64 69 74 25 3e 34 20 |,b%.....edit%>4 | 00004b80 62 25 21 32 34 2d 3d 33 32 0d 19 0a 14 e7 65 64 |b%!24-=32.....ed| 00004b90 69 74 25 3d 31 20 62 25 21 32 34 3d 30 0d 19 14 |it%=1 b%!24=0...| 00004ba0 1b c8 99 22 57 69 6d 70 5f 4f 70 65 6e 57 69 6e |..."Wimp_OpenWin| 00004bb0 64 6f 77 22 2c 2c 62 25 0d 19 1e 19 20 20 f2 66 |dow",,b%.... .f| 00004bc0 6f 72 63 65 72 65 64 72 61 77 28 75 6e 6b 57 25 |orceredraw(unkW%| 00004bd0 29 0d 19 28 05 cb 0d 19 32 1f 7f 20 c8 99 22 57 |)..(....2.. .."W| 00004be0 69 6d 70 5f 50 72 6f 63 65 73 73 4b 65 79 22 2c |imp_ProcessKey",| 00004bf0 62 25 21 32 34 0d 19 3c 05 cb 0d 19 46 04 0d 19 |b%!24..<....F...| 00004c00 50 0c c9 63 68 61 6e 67 57 25 0d 19 5a 0c c8 8e |P..changW%..Z...| 00004c10 62 25 21 32 34 ca 0d 19 64 15 c9 33 30 3a f2 73 |b%!24...d..30:.s| 00004c20 65 74 65 64 69 74 28 31 2c 31 29 0d 19 6e 24 c9 |etedit(1,1)..n$.| 00004c30 26 31 38 46 3a e7 65 79 25 3e 31 20 f2 73 65 74 |&18F:.ey%>1 .set| 00004c40 65 64 69 74 28 65 78 25 2c 65 79 25 2d 31 29 0d |edit(ex%,ey%-1).| 00004c50 19 78 7d c9 26 31 38 31 3a 63 78 6f 66 66 73 65 |.x}.&181:cxoffse| 00004c60 74 25 3d 6f 78 6f 25 3a 63 79 6f 66 66 73 65 74 |t%=oxo%:cyoffset| 00004c70 25 3d 6f 79 6f 25 3a 21 62 25 3d 63 6f 65 66 66 |%=oyo%:!b%=coeff| 00004c80 57 25 3a c8 99 22 57 69 6d 70 5f 47 65 74 57 69 |W%:.."Wimp_GetWi| 00004c90 6e 64 6f 77 53 74 61 74 65 22 2c 2c 62 25 3a f2 |ndowState",,b%:.| 00004ca0 61 74 74 61 74 63 68 28 63 6f 65 66 66 57 25 2c |attatch(coeffW%,| 00004cb0 63 68 61 6e 67 57 25 2c 63 78 6f 66 66 73 65 74 |changW%,cxoffset| 00004cc0 25 2c 63 79 6f 66 66 73 65 74 25 29 0d 19 82 28 |%,cyoffset%)...(| 00004cd0 c9 26 31 38 45 3a e7 65 79 25 3c 75 6e 6b 73 25 |.&18E:.ey%<unks%| 00004ce0 20 f2 73 65 74 65 64 69 74 28 65 78 25 2c 65 79 | .setedit(ex%,ey| 00004cf0 25 2b 31 29 0d 19 8c 45 c9 26 31 39 41 3a e7 65 |%+1)...E.&19A:.e| 00004d00 78 25 3e 31 20 f2 73 65 74 65 64 69 74 28 65 78 |x%>1 .setedit(ex| 00004d10 25 2d 31 2c 65 79 25 29 20 8b 20 e7 65 79 25 3e |%-1,ey%) . .ey%>| 00004d20 31 20 f2 73 65 74 65 64 69 74 28 75 6e 6b 73 25 |1 .setedit(unks%| 00004d30 2b 31 2c 65 79 25 2d 31 29 0d 19 96 0c c9 26 31 |+1,ey%-1).....&1| 00004d40 38 41 2c 31 33 0d 19 a0 12 e7 65 78 25 3c 75 6e |8A,13.....ex%<un| 00004d50 6b 73 25 2b 31 20 8c 0d 19 aa 17 f2 73 65 74 65 |ks%+1 ......sete| 00004d60 64 69 74 28 65 78 25 2b 31 2c 65 79 25 29 0d 19 |dit(ex%+1,ey%)..| 00004d70 b4 05 cc 0d 19 be 10 e7 65 79 25 3c 75 6e 6b 73 |........ey%<unks| 00004d80 25 20 8c 0d 19 c8 15 f2 73 65 74 65 64 69 74 28 |% ......setedit(| 00004d90 31 2c 65 79 25 2b 31 29 0d 19 d2 05 cc 0d 19 dc |1,ey%+1)........| 00004da0 24 f2 73 65 74 65 64 69 74 28 65 78 25 2c 65 79 |$.setedit(ex%,ey| 00004db0 25 29 3a f2 63 72 28 72 57 25 29 3a f2 63 61 6c |%):.cr(rW%):.cal| 00004dc0 63 0d 19 e6 05 cd 0d 19 f0 05 cd 0d 19 fa 1e 7f |c...............| 00004dd0 c8 99 22 57 69 6d 70 5f 50 72 6f 63 65 73 73 4b |.."Wimp_ProcessK| 00004de0 65 79 22 2c 62 25 21 32 34 0d 1a 04 07 cb 3a e1 |ey",b%!24.....:.| 00004df0 0d 1a 0e 04 0d 1a 18 10 dd f2 6d 65 6e 75 64 65 |..........menude| 00004e00 63 6f 64 65 0d 1a 22 0f c8 8e 6c 61 74 65 73 74 |code.."...latest| 00004e10 6d 25 ca 0d 1a 2c 04 0d 1a 36 08 c9 61 6d 25 0d |m%...,...6..am%.| 00004e20 1a 40 0b c8 8e 62 25 21 30 ca 0d 1a 4a 10 c9 30 |.@...b%!0...J..0| 00004e30 3a 73 69 67 66 69 67 73 3d 33 0d 1a 54 10 c9 31 |:sigfigs=3..T..1| 00004e40 3a 73 69 67 66 69 67 73 3d 34 0d 1a 5e 10 c9 32 |:sigfigs=4..^..2| 00004e50 3a 73 69 67 66 69 67 73 3d 35 0d 1a 68 10 c9 33 |:sigfigs=5..h..3| 00004e60 3a 73 69 67 66 69 67 73 3d 36 0d 1a 72 10 c9 34 |:sigfigs=6..r..4| 00004e70 3a 73 69 67 66 69 67 73 3d 39 0d 1a 7c 17 c9 35 |:sigfigs=9..|..5| 00004e80 3a 66 6f 72 63 65 3d 66 6f 72 63 65 20 82 20 2d |:force=force . -| 00004e90 31 0d 1a 86 05 cb 0d 1a 90 2f e7 66 6f 72 63 65 |1......../.force| 00004ea0 20 40 25 3d 22 2b 45 2e 22 2b c3 73 69 67 66 69 | @%="+E."+.sigfi| 00004eb0 67 73 20 8b 40 25 3d 22 2b 47 2e 22 2b c3 73 69 |gs .@%="+G."+.si| 00004ec0 67 66 69 67 73 0d 1a 9a 0e f2 63 61 6c 63 65 72 |gfigs.....calcer| 00004ed0 72 6f 72 0d 1a a4 15 f2 66 6f 72 63 65 72 65 64 |ror.....forcered| 00004ee0 72 61 77 28 72 57 25 29 0d 1a ae 04 0d 1a b8 08 |raw(rW%)........| 00004ef0 c9 69 6d 25 0d 1a c2 0b c8 8e 62 25 21 30 ca 0d |.im%......b%!0..| 00004f00 1a cc 17 c9 31 3a e7 a4 77 6f 70 65 6e 28 6d 61 |....1:..wopen(ma| 00004f10 69 6e 57 25 29 8c 0d 1a d6 2f f2 6f 70 65 6e 77 |inW%)..../.openw| 00004f20 28 6d 61 69 6e 57 25 29 3a e7 a4 77 66 75 6c 6c |(mainW%):..wfull| 00004f30 28 6d 61 69 6e 57 25 29 f2 6f 70 65 6e 77 28 75 |(mainW%).openw(u| 00004f40 6e 6b 57 25 29 0d 1a e0 0f cc f2 73 6d 61 6c 6c |nkW%)......small| 00004f50 6d 61 69 6e 0d 1a ea 05 cd 0d 1a f4 04 0d 1a fe |main............| 00004f60 0c c9 32 3a f2 68 65 6c 70 0d 1b 08 0c c9 33 3a |..2:.help.....3:| 00004f70 f2 71 75 69 74 0d 1b 12 05 cb 0d 1b 1c 04 0d 1b |.quit...........| 00004f80 26 05 cb 0d 1b 30 44 c8 99 22 57 69 6d 70 5f 47 |&....0D.."Wimp_G| 00004f90 65 74 50 6f 69 6e 74 65 72 49 6e 66 6f 22 2c 2c |etPointerInfo",,| 00004fa0 62 25 3a e7 62 25 21 38 3d 31 f2 6d 65 6e 75 64 |b%:.b%!8=1.menud| 00004fb0 65 66 73 3a f2 6d 65 6e 75 28 6c 61 74 65 73 74 |efs:.menu(latest| 00004fc0 6d 25 2c 30 2c 30 29 0d 1b 3a 05 e1 0d 1b 44 04 |m%,0,0)..:....D.| 00004fd0 0d 1b 4e 0b c9 6d 61 69 6e 57 25 0d 1b 58 0b c8 |..N..mainW%..X..| 00004fe0 8e 69 63 63 20 ca 0d 1b 62 13 c9 31 33 3a f2 63 |.icc ...b..13:.c| 00004ff0 72 28 6d 61 69 6e 57 25 29 0d 1b 6c 05 cb 0d 1b |r(mainW%)..l....| 00005000 76 04 0d 1b 80 0b c9 6f 70 65 6e 57 25 0d 1b 8a |v......openW%...| 00005010 18 f2 63 72 28 6f 70 65 6e 57 25 29 3a f2 69 63 |..cr(openW%):.ic| 00005020 6f 6e 62 61 72 0d 1b 94 05 cb 0d 1b 9e 07 cb 3a |onbar..........:| 00005030 e1 0d 1b a8 04 0d 1b b2 0a dd f2 68 65 6c 70 0d |...........help.| 00005040 1b bc 2c f2 6f 70 65 6e 77 28 68 65 6c 70 57 25 |..,.openw(helpW%| 00005050 29 3a f2 63 65 6e 74 72 65 28 68 65 6c 70 57 25 |):.centre(helpW%| 00005060 2c 39 30 32 2c 36 33 30 2c 30 29 0d 1b c6 05 e1 |,902,630,0).....| 00005070 0d 1b d0 04 0d 1b da 0f dd f2 73 6d 61 6c 6c 6d |..........smallm| 00005080 61 69 6e 0d 1b e4 15 e7 a4 77 6f 70 65 6e 28 63 |ain......wopen(c| 00005090 6f 65 66 66 57 25 29 8c 0d 1b ee 3d 20 e7 ac a4 |oeffW%)....= ...| 000050a0 63 68 6f 69 63 65 28 22 53 74 61 72 74 20 61 67 |choice("Start ag| 000050b0 61 69 6e 3f 20 59 6f 75 20 77 69 6c 6c 20 6c 6f |ain? You will lo| 000050c0 73 65 20 61 6c 6c 20 74 68 65 20 64 61 74 61 2e |se all the data.| 000050d0 2e 2e 22 29 e1 0d 1b f8 1e 20 f2 63 77 28 63 6f |..")..... .cw(co| 000050e0 65 66 66 57 25 29 3a f2 63 77 28 63 68 61 6e 67 |effW%):.cw(chang| 000050f0 57 25 29 0d 1c 02 05 cd 0d 1c 0c 04 0d 1c 16 19 |W%).............| 00005100 e7 a4 77 6f 70 65 6e 28 72 57 25 29 20 f2 63 72 |..wopen(rW%) .cr| 00005110 28 72 57 25 29 0d 1c 20 0e f2 63 72 28 75 6e 6b |(rW%).. ..cr(unk| 00005120 57 25 29 0d 1c 2a 12 f2 6f 70 65 6e 77 28 6d 61 |W%)..*..openw(ma| 00005130 69 6e 57 25 29 0d 1c 34 14 f2 68 69 64 65 28 6d |inW%)..4..hide(m| 00005140 61 69 6e 57 25 2c 31 32 29 0d 1c 3e 14 f2 68 69 |ainW%,12)..>..hi| 00005150 64 65 28 6d 61 69 6e 57 25 2c 31 33 29 0d 1c 48 |de(mainW%,13)..H| 00005160 14 f2 68 69 64 65 28 6d 61 69 6e 57 25 2c 31 34 |..hide(mainW%,14| 00005170 29 0d 1c 52 14 f2 73 68 6f 77 28 6d 61 69 6e 57 |)..R..show(mainW| 00005180 25 2c 31 37 29 0d 1c 5c 13 f2 73 68 6f 77 28 6d |%,17)..\..show(m| 00005190 61 69 6e 57 25 2c 32 29 0d 1c 66 13 f2 73 68 6f |ainW%,2)..f..sho| 000051a0 77 28 6d 61 69 6e 57 25 2c 33 29 0d 1c 70 14 f2 |w(mainW%,3)..p..| 000051b0 73 68 6f 77 28 6d 61 69 6e 57 25 2c 31 31 29 0d |show(mainW%,11).| 000051c0 1c 7a 13 f2 73 68 6f 77 28 6d 61 69 6e 57 25 2c |.z..show(mainW%,| 000051d0 34 29 0d 1c 84 2d f2 73 74 63 28 6d 61 69 6e 57 |4)...-.stc(mainW| 000051e0 25 2c 33 29 3a f2 63 65 6e 74 72 65 28 6d 61 69 |%,3):.centre(mai| 000051f0 6e 57 25 2c 33 39 34 2c 34 34 34 2c 2d 31 29 0d |nW%,394,444,-1).| 00005200 1c 8e 05 e1 0d 1c 98 04 0d 1c a2 1f dd f2 6e 75 |..............nu| 00005210 6d 62 65 72 76 61 72 73 28 73 74 61 72 74 24 2c |mbervars(start$,| 00005220 72 65 70 65 61 74 29 0d 1c ac 14 61 74 25 3d 40 |repeat)....at%=@| 00005230 25 3a 40 25 3d 22 2b 47 2e 39 22 0d 1c b6 11 73 |%:@%="+G.9"....s| 00005240 74 61 72 74 3d 97 73 74 61 72 74 24 0d 1c c0 13 |tart=.start$....| 00005250 e3 75 6e 6b 25 3d 30 b8 75 6e 6b 73 25 2d 31 0d |.unk%=0.unks%-1.| 00005260 1c ca 1b e7 72 65 70 65 61 74 3d 30 20 73 74 61 |....repeat=0 sta| 00005270 72 74 24 3d bd 73 74 61 72 74 0d 1c d4 56 24 28 |rt$=.start...V$(| 00005280 75 6e 6b 44 41 54 25 2b 75 6e 6b 25 2a 31 34 29 |unkDAT%+unk%*14)| 00005290 3d 73 74 61 72 74 24 3a e7 72 65 70 65 61 74 20 |=start$:.repeat | 000052a0 8c 24 28 75 6e 6b 44 41 54 25 2b 75 6e 6b 25 2a |.$(unkDAT%+unk%*| 000052b0 31 34 29 3d 24 28 75 6e 6b 44 41 54 25 2b 75 6e |14)=$(unkDAT%+un| 000052c0 6b 25 2a 31 34 29 2b c3 28 75 6e 6b 25 2b 31 29 |k%*14)+.(unk%+1)| 000052d0 0d 1c de 15 e7 ac 72 65 70 65 61 74 20 73 74 61 |......repeat sta| 000052e0 72 74 2b 3d 31 0d 1c e8 05 ed 0d 1c f2 22 24 28 |rt+=1........"$(| 000052f0 75 6e 6b 44 41 54 25 2b 75 6e 6b 25 2a 31 34 29 |unkDAT%+unk%*14)| 00005300 3d 22 54 6f 74 61 6c 22 2b bd 31 33 0d 1c fc 0a |="Total"+.13....| 00005310 40 25 3d 61 74 25 0d 1d 06 05 e1 0d 1d 10 04 0d |@%=at%..........| 00005320 1d 1a 0d dd f2 62 69 67 6d 61 69 6e 0d 1d 24 0f |.....bigmain..$.| 00005330 f2 63 72 28 6d 61 69 6e 57 25 29 0d 1d 2e 6c e7 |.cr(mainW%)...l.| 00005340 a4 77 6f 70 65 6e 28 63 6f 65 66 66 57 25 29 f2 |.wopen(coeffW%).| 00005350 6d 73 67 28 22 59 6f 75 20 77 69 6c 6c 20 6e 65 |msg("You will ne| 00005360 65 64 20 74 6f 20 63 6c 6f 73 65 20 79 6f 75 72 |ed to close your| 00005370 20 70 72 65 73 65 6e 74 20 63 6f 65 66 66 69 63 | present coeffic| 00005380 69 65 6e 74 20 64 61 74 61 20 74 6f 20 62 65 20 |ient data to be | 00005390 61 62 6c 65 20 74 6f 20 73 74 61 72 74 20 61 67 |able to start ag| 000053a0 61 69 6e 22 29 3a e1 0d 1d 38 0b 65 64 69 74 25 |ain"):...8.edit%| 000053b0 3d 31 0d 1d 42 19 75 6e 6b 73 25 3d bb 24 a4 69 |=1..B.unks%=.$.i| 000053c0 6d 28 6d 61 69 6e 57 25 2c 33 29 0d 1d 4c 21 e7 |m(mainW%,3)..L!.| 000053d0 75 6e 6b 73 25 3c 34 20 8c 20 f2 6e 75 6d 62 65 |unks%<4 . .numbe| 000053e0 72 76 61 72 73 28 22 58 22 2c 30 29 0d 1d 56 2a |rvars("X",0)..V*| 000053f0 e7 75 6e 6b 73 25 3e 33 20 80 75 6e 6b 73 25 3c |.unks%>3 .unks%<| 00005400 36 20 8c 20 f2 6e 75 6d 62 65 72 76 61 72 73 28 |6 . .numbervars(| 00005410 22 50 22 2c 30 29 0d 1d 60 2a e7 75 6e 6b 73 25 |"P",0)..`*.unks%| 00005420 3e 35 20 80 75 6e 6b 73 25 3c 32 37 20 8c f2 6e |>5 .unks%<27 ..n| 00005430 75 6d 62 65 72 76 61 72 73 28 22 41 22 2c 30 29 |umbervars("A",0)| 00005440 0d 1d 6a 22 e7 75 6e 6b 73 25 3e 32 36 20 8c f2 |..j".unks%>26 ..| 00005450 6e 75 6d 62 65 72 76 61 72 73 28 22 78 22 2c 2d |numbervars("x",-| 00005460 31 29 0d 1d 74 14 f2 73 68 6f 77 28 6d 61 69 6e |1)..t..show(main| 00005470 57 25 2c 31 32 29 0d 1d 7e 14 f2 73 68 6f 77 28 |W%,12)..~..show(| 00005480 6d 61 69 6e 57 25 2c 31 33 29 0d 1d 88 14 f2 73 |mainW%,13).....s| 00005490 68 6f 77 28 6d 61 69 6e 57 25 2c 31 34 29 0d 1d |how(mainW%,14)..| 000054a0 92 14 f2 68 69 64 65 28 6d 61 69 6e 57 25 2c 31 |...hide(mainW%,1| 000054b0 37 29 0d 1d 9c 13 f2 68 69 64 65 28 6d 61 69 6e |7).....hide(main| 000054c0 57 25 2c 32 29 0d 1d a6 13 f2 68 69 64 65 28 6d |W%,2).....hide(m| 000054d0 61 69 6e 57 25 2c 33 29 0d 1d b0 14 f2 68 69 64 |ainW%,3).....hid| 000054e0 65 28 6d 61 69 6e 57 25 2c 31 31 29 0d 1d ba 13 |e(mainW%,11)....| 000054f0 f2 68 69 64 65 28 6d 61 69 6e 57 25 2c 34 29 0d |.hide(mainW%,4).| 00005500 1d c4 21 f2 73 65 74 65 78 74 65 6e 74 28 75 6e |..!.setextent(un| 00005510 6b 57 25 2c 75 6e 6b 73 25 2c 32 30 38 2c 30 29 |kW%,unks%,208,0)| 00005520 0d 1d ce 1e f2 63 65 6e 74 72 65 28 6d 61 69 6e |.....centre(main| 00005530 57 25 2c 37 38 30 2c 34 34 34 2c 2d 31 29 0d 1d |W%,780,444,-1)..| 00005540 d8 55 21 62 25 3d 6d 61 69 6e 57 25 3a c8 99 22 |.U!b%=mainW%:.."| 00005550 57 69 6d 70 5f 47 65 74 57 69 6e 64 6f 77 53 74 |Wimp_GetWindowSt| 00005560 61 74 65 22 2c 2c 62 25 3a f2 61 74 74 61 74 63 |ate",,b%:.attatc| 00005570 68 28 6d 61 69 6e 57 25 2c 75 6e 6b 57 25 2c 6d |h(mainW%,unkW%,m| 00005580 78 6f 66 66 73 65 74 25 2c 6d 79 6f 66 66 73 65 |xoffset%,myoffse| 00005590 74 25 29 0d 1d e2 48 24 a4 69 6d 28 6d 61 69 6e |t%)...H$.im(main| 000055a0 57 25 2c 37 29 3d 24 28 75 6e 6b 44 41 54 25 2b |W%,7)=$(unkDAT%+| 000055b0 28 65 64 69 74 25 2d 31 29 2a 31 34 29 3a f2 73 |(edit%-1)*14):.s| 000055c0 74 63 28 6d 61 69 6e 57 25 2c 37 29 3a f2 75 70 |tc(mainW%,7):.up| 000055d0 64 28 6d 61 69 6e 57 25 2c 37 29 0d 1d ec 05 e1 |d(mainW%,7).....| 000055e0 0d 1d f6 04 0d 1e 00 18 dd a4 70 65 72 63 65 6e |..........percen| 000055f0 74 28 73 6d 61 6c 6c 2c 62 69 67 29 0d 1e 0a 06 |t(small,big)....| 00005600 ea 85 0d 1e 14 10 ee 85 ea 3d 22 56 20 48 69 67 |.........="V Hig| 00005610 68 22 0d 1e 1e 14 e7 62 69 67 3d 30 20 8c 20 3d |h".....big=0 . =| 00005620 20 22 4e 2f 41 22 0d 1e 28 28 73 24 3d c3 28 28 | "N/A"..((s$=.((| 00005630 94 a8 28 31 30 30 30 30 2a 73 6d 61 6c 6c 2f 62 |..(10000*small/b| 00005640 69 67 29 29 2f 31 30 30 29 2b 22 20 25 22 0d 1e |ig))/100)+" %"..| 00005650 32 19 e7 a9 73 24 3e 38 3d 22 56 20 48 69 67 68 |2...s$>8="V High| 00005660 22 20 8b 20 3d 73 24 0d 1e 3c 04 0d 1e 46 0a dd |" . =s$..<...F..| 00005670 f2 63 61 6c 63 0d 1e 50 5e e7 58 59 28 31 2c 31 |.calc..P^.XY(1,1| 00005680 2c 32 29 3d 30 8c f2 6d 73 67 28 22 54 68 65 20 |,2)=0..msg("The | 00005690 76 61 6c 75 65 20 69 6e 20 63 65 6c 6c 20 28 22 |value in cell ("| 000056a0 2b 24 75 6e 6b 44 41 54 25 2b 22 2c 31 29 20 63 |+$unkDAT%+",1) c| 000056b0 61 6e 6e 6f 74 20 62 65 20 30 20 74 6f 20 63 61 |annot be 0 to ca| 000056c0 6c 63 75 6c 61 74 65 20 72 65 73 75 6c 74 73 22 |lculate results"| 000056d0 29 3a e1 0d 1e 5a 08 ea 78 2c 79 0d 1e 64 06 ea |):...Z..x,y..d..| 000056e0 85 0d 1e 6e a3 ee 85 ea f2 6d 73 67 28 22 53 6f |...n.....msg("So| 000056f0 72 72 79 2e 20 54 68 69 73 20 73 65 74 20 6f 66 |rry. This set of| 00005700 20 76 61 6c 75 65 73 20 63 61 6e 91 74 20 62 65 | values can.t be| 00005710 20 63 61 6c 63 75 6c 61 74 65 64 2e 20 53 65 65 | calculated. See| 00005720 20 74 68 65 20 48 65 6c 70 20 66 69 6c 65 20 50 | the Help file P| 00005730 72 6f 62 6c 65 6d 73 20 73 65 63 74 69 6f 6e 20 |roblems section | 00005740 69 66 20 79 6f 75 20 63 61 6e 6e 6f 74 20 69 6d |if you cannot im| 00005750 6d 65 64 69 61 74 65 6c 79 20 73 65 65 20 77 68 |mediately see wh| 00005760 61 74 20 69 73 20 77 72 6f 6e 67 2e 22 29 3a ff |at is wrong."):.| 00005770 22 46 58 32 32 39 2c 31 22 3a ff 22 46 58 31 32 |"FX229,1":."FX12| 00005780 34 22 3a e1 0d 1e 78 14 c8 99 22 48 6f 75 72 67 |4":...x..."Hourg| 00005790 6c 61 73 73 5f 4f 6e 22 0d 1e 82 0c 2a 46 58 32 |lass_On"....*FX2| 000057a0 32 39 2c 30 0d 1e 8c 33 e3 78 3d 31 b8 75 6e 6b |29,0...3.x=1.unk| 000057b0 73 25 2b 31 3a e3 79 3d 31 b8 75 6e 6b 73 25 3a |s%+1:.y=1.unks%:| 000057c0 58 59 28 78 2c 79 2c 31 29 3d 58 59 28 78 2c 79 |XY(x,y,1)=XY(x,y| 000057d0 2c 32 29 3a ed 3a ed 0d 1e 96 12 f2 69 6e 76 65 |,2):.:......inve| 000057e0 72 74 28 75 6e 6b 73 25 29 0d 1e a0 04 0d 1e aa |rt(unks%).......| 000057f0 33 e3 78 3d 31 b8 75 6e 6b 73 25 2b 31 3a e3 79 |3.x=1.unks%+1:.y| 00005800 3d 31 b8 75 6e 6b 73 25 3a 58 59 28 78 2c 79 2c |=1.unks%:XY(x,y,| 00005810 31 29 3d 58 59 28 78 2c 79 2c 32 29 3a ed 3a ed |1)=XY(x,y,2):.:.| 00005820 0d 1e b4 04 0d 1e be 34 e3 78 3d 31 b8 75 6e 6b |.......4.x=1.unk| 00005830 73 25 3a 58 59 28 75 6e 6b 73 25 2b 31 2c 78 2c |s%:XY(unks%+1,x,| 00005840 30 29 3d a4 63 61 6c 63 75 6c 61 74 65 28 75 6e |0)=.calculate(un| 00005850 6b 73 25 2c 78 29 3a ed 0d 1e c8 0e f2 63 61 6c |ks%,x):......cal| 00005860 63 65 72 72 6f 72 0d 1e d2 04 0d 1e dc 0c 2a 46 |cerror........*F| 00005870 58 32 32 39 2c 31 0d 1e e6 0a 2a 46 58 31 32 34 |X229,1....*FX124| 00005880 0d 1e f0 15 c8 99 22 48 6f 75 72 67 6c 61 73 73 |......"Hourglass| 00005890 5f 4f 66 66 22 0d 1e fa 30 21 62 25 3d 72 57 25 |_Off"...0!b%=rW%| 000058a0 3a c8 99 22 57 69 6d 70 5f 47 65 74 57 69 6e 64 |:.."Wimp_GetWind| 000058b0 6f 77 49 6e 66 6f 22 2c 2c 62 25 3a 77 62 25 3d |owInfo",,b%:wb%=| 000058c0 62 25 21 32 38 0d 1f 04 0e 62 25 21 30 3d 62 25 |b%!28....b%!0=b%| 000058d0 21 34 34 0d 1f 0e 16 62 25 21 34 3d 2d 75 6e 6b |!44....b%!4=-unk| 000058e0 73 25 2a 36 34 2d 31 35 30 0d 1f 18 0e 62 25 21 |s%*64-150....b%!| 000058f0 38 3d 62 25 21 35 32 0d 1f 22 0b 62 25 21 31 32 |8=b%!52..".b%!12| 00005900 3d 30 0d 1f 2c 04 0d 1f 36 1d c8 99 22 57 69 6d |=0..,...6..."Wim| 00005910 70 5f 53 65 74 45 78 74 65 6e 74 22 2c 72 57 25 |p_SetExtent",rW%| 00005920 2c 62 25 0d 1f 40 0f f2 6f 70 65 6e 77 28 72 57 |,b%..@..openw(rW| 00005930 25 29 0d 1f 4a 05 e1 0d 1f 54 04 0d 1f 5e 0f dd |%)..J....T...^..| 00005940 f2 63 61 6c 63 65 72 72 6f 72 0d 1f 68 87 e3 79 |.calcerror..h..y| 00005950 3d 31 b8 75 6e 6b 73 25 3a 58 59 28 75 6e 6b 73 |=1.unks%:XY(unks| 00005960 25 2c 79 2c 30 29 3d 30 3a e3 78 3d 31 b8 75 6e |%,y,0)=0:.x=1.un| 00005970 6b 73 25 3a 58 59 28 75 6e 6b 73 25 2c 79 2c 30 |ks%:XY(unks%,y,0| 00005980 29 2b 3d bb c3 58 59 28 75 6e 6b 73 25 2b 31 2c |)+=..XY(unks%+1,| 00005990 78 2c 30 29 2a 58 59 28 78 2c 79 2c 31 29 3a ed |x,0)*XY(x,y,1):.| 000059a0 3a 58 59 28 75 6e 6b 73 25 2c 79 2c 30 29 3d 94 |:XY(unks%,y,0)=.| 000059b0 28 58 59 28 75 6e 6b 73 25 2c 79 2c 30 29 2d 58 |(XY(unks%,y,0)-X| 000059c0 59 28 75 6e 6b 73 25 2b 31 2c 79 2c 31 29 29 3a |Y(unks%+1,y,1)):| 000059d0 ed 0d 1f 72 05 e1 0d 1f 7c 04 0d 1f 86 10 dd f2 |...r....|.......| 000059e0 69 6e 76 65 72 74 28 63 72 29 0d 1f 90 4f f4 20 |invert(cr)...O. | 000059f0 49 66 20 61 6e 79 6f 6e 65 20 68 61 73 20 61 6e |If anyone has an| 00005a00 20 62 65 74 74 65 72 20 28 69 74 65 72 61 74 69 | better (iterati| 00005a10 76 65 29 20 77 61 79 20 6f 66 20 73 6f 6c 76 69 |ve) way of solvi| 00005a20 6e 67 20 73 69 6d 75 6c 74 61 6e 65 6f 75 73 20 |ng simultaneous | 00005a30 65 71 75 61 74 69 6f 6e 73 0d 1f 9a 20 f4 20 49 |equations... . I| 00005a40 91 64 20 6c 69 6b 65 20 74 6f 20 68 65 61 72 20 |.d like to hear | 00005a50 66 72 6f 6d 20 79 6f 75 21 0d 1f a4 15 ea 78 2c |from you!.....x,| 00005a60 79 2c 6c 2c 63 2c 75 6e 2c 6b 2c 69 2c 6a 0d 1f |y,l,c,un,k,i,j..| 00005a70 ae 0b e3 69 3d 31 b8 63 72 0d 1f b8 0b e3 6a 3d |...i=1.cr.....j=| 00005a80 31 b8 63 72 0d 1f c2 19 58 59 28 69 2c 6a 2c 30 |1.cr....XY(i,j,0| 00005a90 29 3d 31 2d 94 28 b4 28 69 2d 6a 29 29 0d 1f cc |)=1-.(.(i-j))...| 00005aa0 07 ed 3a ed 0d 1f d6 0d e3 69 3d 31 b8 63 72 2d |..:......i=1.cr-| 00005ab0 31 0d 1f e0 32 e7 ac 94 28 58 59 28 69 2c 69 2c |1...2...(XY(i,i,| 00005ac0 31 29 29 3e 30 2e 30 30 30 30 30 31 20 8c 20 22 |1))>0.000001 . "| 00005ad0 54 52 49 50 20 45 52 52 4f 52 20 48 41 4e 44 4c |TRIP ERROR HANDL| 00005ae0 45 52 22 0d 1f ea 2a c8 99 22 48 6f 75 72 67 6c |ER"...*.."Hourgl| 00005af0 61 73 73 5f 50 65 72 63 65 6e 74 61 67 65 22 2c |ass_Percentage",| 00005b00 28 69 2f 28 63 72 2d 31 29 29 2a 35 30 0d 1f f4 |(i/(cr-1))*50...| 00005b10 0e e7 69 2b 31 3c 3d 63 72 20 8c 0d 1f fe 10 20 |..i+1<=cr ..... | 00005b20 e3 6a 3d 69 2b 31 20 b8 20 63 72 0d 20 08 1a 20 |.j=i+1 . cr. .. | 00005b30 78 3d 58 59 28 6a 2c 69 2c 31 29 2f 58 59 28 69 |x=XY(j,i,1)/XY(i| 00005b40 2c 69 2c 31 29 0d 20 12 0b e3 6b 3d 31 b8 63 72 |,i,1). ...k=1.cr| 00005b50 0d 20 1c 1a 58 59 28 6a 2c 6b 2c 31 29 2d 3d 78 |. ..XY(j,k,1)-=x| 00005b60 2a 58 59 28 69 2c 6b 2c 31 29 0d 20 26 1a 58 59 |*XY(i,k,1). &.XY| 00005b70 28 6a 2c 6b 2c 30 29 2d 3d 78 2a 58 59 28 69 2c |(j,k,0)-=x*XY(i,| 00005b80 6b 2c 30 29 0d 20 30 05 ed 0d 20 3a 05 cd 0d 20 |k,0). 0... :... | 00005b90 44 07 ed 3a ed 0d 20 4e 11 e3 69 3d 63 72 20 b8 |D..:.. N..i=cr .| 00005ba0 20 31 20 88 2d 31 0d 20 58 0b e3 6b 3d 31 b8 63 | 1 .-1. X..k=1.c| 00005bb0 72 0d 20 62 2c c8 99 22 48 6f 75 72 67 6c 61 73 |r. b,.."Hourglas| 00005bc0 73 5f 50 65 72 63 65 6e 74 61 67 65 22 2c 31 30 |s_Percentage",10| 00005bd0 30 2d 28 28 69 2f 63 72 29 2a 35 30 29 0d 20 6c |0-((i/cr)*50). l| 00005be0 0e e7 69 2b 31 3c 3d 63 72 20 8c 0d 20 76 0f 20 |..i+1<=cr .. v. | 00005bf0 e3 6a 3d 69 2b 31 20 b8 63 72 0d 20 80 2c 20 58 |.j=i+1 .cr. ., X| 00005c00 59 28 69 2c 6b 2c 30 29 3d 58 59 28 69 2c 6b 2c |Y(i,k,0)=XY(i,k,| 00005c10 30 29 2d 58 59 28 69 2c 6a 2c 31 29 2a 58 59 28 |0)-XY(i,j,1)*XY(| 00005c20 6a 2c 6b 2c 30 29 0d 20 8a 06 20 ed 0d 20 94 05 |j,k,0). .. .. ..| 00005c30 cd 0d 20 9e 21 58 59 28 69 2c 6b 2c 30 29 3d 58 |.. .!XY(i,k,0)=X| 00005c40 59 28 69 2c 6b 2c 30 29 2f 58 59 28 69 2c 69 2c |Y(i,k,0)/XY(i,i,| 00005c50 31 29 0d 20 a8 07 ed 3a ed 0d 20 b2 05 e1 0d 20 |1). ...:.. .... | 00005c60 bc 04 0d 20 c6 14 dd a4 63 61 6c 63 75 6c 61 74 |... ....calculat| 00005c70 65 28 6e 2c 6c 29 0d 20 d0 08 ea 63 2c 74 0d 20 |e(n,l). ...c,t. | 00005c80 da 07 74 3d 30 0d 20 e4 0a e3 63 3d 31 b8 6e 0d |..t=0. ...c=1.n.| 00005c90 20 ee 1c 74 2b 3d 58 59 28 63 2c 6c 2c 30 29 2a | ..t+=XY(c,l,0)*| 00005ca0 58 59 28 6e 2b 31 2c 63 2c 31 29 0d 20 f8 05 ed |XY(n+1,c,1). ...| 00005cb0 0d 21 02 06 3d 74 0d ff |.!..=t..| 00005cb8