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�
lt$=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