Home » Archimedes archive » Acorn User » AU 1994-10.adf » !StarInfo_StarInfo » Burrows/!Resistor/!RunImage
Burrows/!Resistor/!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 1994-10.adf » !StarInfo_StarInfo |
| Filename: | Burrows/!Resistor/!RunImage |
| Read OK: | ✔ |
| File size: | 4771 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10 DIM block% 750
20 PROCUser_SetVariables
30 ON ERROR q%=FNWimp_ErrorBoxOK("Unexpected ERROR: "+REPORT$,app$) : END
40 TaskHandle%=FNWimp_Initialise(app$)
50 ON ERROR q%=FNWimp_ErrorBoxOK("Unexpected ERROR: "+REPORT$,app$) : q%=FNWimp_CloseDown(TaskHandle%) : END
60 PROCUser_LoadResources
70 PROCUser_SetUpResources
80 PROCUser_SetUpMenus
90 PROCOffsets
100 quit%=FALSE
110 ON ERROR q%=FNWimp_ErrorBoxOK("Unexpected ERROR: "+REPORT$,app$) : quit%=TRUE
120 WHILE quit%=FALSE
130 PROCUser_Poll
140 ENDWHILE
150 PROCUser_AppClosingDown
160 q%=FNWimp_CloseDown(TaskHandle%)
170 END
180
190
200 DEF PROCUser_SetVariables
210 !block%=&502
220 CurrentMenu%=-1
230 block%!4=0
240 app$="Resistor"
250 RwindOpen%=FALSE
260 fontarray%=FNWimp_InitFontsArray
270 ENDPROC
280 :
290 DEF PROCUser_LoadResources
300 sparea%=FNWimp_LoadSprites("<Resistor$Dir>.Sprites")
310 PROCWimp_OpenTemplate("<Resistor$Dir>.Templates")
320 length%=150 : DIM iconSpace% length%
330 info_window%=FNWimp_LoadTemplateFontZ("info",iconSpace%,length%,sparea%,fontarray%)
340 length%=142 : DIM iconSpace% length%
350 res_wind%=FNWimp_LoadTemplateFontZ("RESISTOR",iconSpace%,length%,sparea%,fontarray%)
360 length%=58 : DIM iconSpace% length%
370 type%=FNWimp_LoadTemplateFontZ("type",iconSpace%,length%,sparea%,fontarray%)
380 length%=84 : DIM iconSpace% length%
390 colours%=FNWimp_LoadTemplateFontZ("colours",iconSpace%,length%,sparea%,fontarray%)
400 PROCWimp_CloseTemplate
410 ENDPROC
420 :
430 DEF PROCUser_SetUpResources
440 iconbar_icon%=FNWimp_CreateIcon(-1,0,0,80,80,%11000000011010,"!Resistor")
450 ENDPROC
460 :
470 DEF PROCOffsets
480 LOCAL x1%,y1%,x2%,y2%,x11%,y11%,x22%,y22%
490 IF FNWimp_MenuTicked(iconbar_menu%,2)=FALSE THEN ENDPROC
500 !block%=res_wind%
510 SYS "Wimp_GetWindowState",,block%
520 x1%=block%!4
530 y1%=block%!8
540 x11%=block%!12
550 y11%=block%!16
560 !block%=colours%
570 SYS "Wimp_GetWindowState",,block%
580 x2%=block%!4
590 y2%=block%!8
600 x22%=block%!12
610 y22%=block%!16
620 xoff1%=x1%-x2%
630 yoff1%=y1%-y2%
640 xoff2%=x11%-x22%
650 yoff2%=y11%-y22%
660 ENDPROC
670 :
680 DEF PROCOpenResistorWindowANDcolours
690 IF FNWimp_MenuTicked(iconbar_menu%,2)=FALSE THEN
700 !block%=res_wind%
710 SYS "Wimp_GetWindowState",,block%
720 SYS "Wimp_OpenWindow",,block%
730 RwindOpen%=TRUE
740 ELSE
750 LOCAL x1%,y1%,x2%,y2%,q%,qq%
760 !block%=colours%
770 SYS "Wimp_GetWindowState",,block%
780 q%=block%!28
790 !block%=res_wind%
800 SYS "Wimp_GetWindowState",,block%
810 x1%=block%!4
820 y1%=block%!8
830 x2%=block%!12
840 y2%=block%!16
850 qq%=block%!28
860 block%!28=q%
870 SYS "Wimp_OpenWindow",,block%
880 !block%=colours%
890 SYS "Wimp_GetWindowState",,block%
900 block%!4=x1%-xoff1%
910 block%!8=y1%-yoff1%
920 block%!12=x2%-xoff2%
930 block%!16=y2%-yoff2%
940 block%!28=qq%
950 SYS "Wimp_OpenWindow",,block%
960 RwindOpen%=TRUE
970 ENDIF
980 ENDPROC
990 :
1000 DEF PROCUser_SetUpMenus
1010 SYS "Font_FindFont",,"homerton.medium",16*12,16*12 TO homerton%
1020 iconbar_menu%=FNWimp_setupmenuFromStringFontyitems(app$+"\Info>"+(STR$ info_window%)+"\Type>"+(STR$ type%)+"\Show colours\Quit",homerton%)
1030 PROCWimp_MenuDottedLine(iconbar_menu%,0)
1040 PROCWimp_MenuDottedLine(iconbar_menu%,2)
1050 PROCWimp_MenuTickItem(iconbar_menu%,2)
1060 ENDPROC
1070 :
1080 DEF PROCUser_AppClosingDown
1090 SYS "Font_LoseFont",homerton%
1100 PROCWimp_RemoveFontsArray(fontarray%)
1110 ENDPROC
1120 :
1130 DEF PROCUser_Poll
1140 SYS "Wimp_Poll",&3833,block% TO reason%
1150 CASE reason% OF
1160 WHEN 2:SYS "Wimp_OpenWindow",,block%
1170 IF !block%=res_wind% THEN PROCOpenResistorWindowANDcolours
1180 IF !block%=colours% THEN PROCOffsets
1190 WHEN 3:SYS "Wimp_CloseWindow",,block%
1200 IF !block%=res_wind% THEN !block%=colours% : SYS "Wimp_CloseWindow",,block% : RwindOpen%=FALSE
1210 WHEN 6:PROCPoll_MouseClick(block%!12,block%!16,block%!8)
1220 WHEN 7:PROCPoll_EndDrag
1230 WHEN 8:PROCPoll_KeyPress(!block%,block%!4,block%!24)
1240 WHEN 9:PROCPoll_MenuSelection
1250 WHEN 17,18 :PROCPoll_IncommingMessage(block%!16)
1260 ENDCASE
1270 ENDPROC
1280 :
1290 DEF PROCPoll_MouseClick(window%,icon%,button%)
1300 REM Don't forget when you are opening menus you must up date <CurrentMenu%>
1310 LOCAL x%,y%,a$
1320 CASE window% OF
1330 WHEN -2 :PROCMouseClick_IconBar(icon%,button%)
1340 WHEN type%:PROCCalculate
1350 WHEN colours%:PROCMouseClick_ColoursBar(icon%,button%)
1360 ENDCASE
1370 ENDPROC
1380 :
1390 DEF PROCMouseClick_IconBar(icon%,button%)
1400 CASE button% OF
1410 WHEN 1,4: PROCOpenResistorWindowANDcolours
1420 WHEN 2: PROCWimp_ShowMenuIconBar(iconbar_menu%,!block%-64,4,2)
1430 CurrentMenu%=iconbar_menu%
1440 ENDCASE
1450 ENDPROC
1460 :
1470 DEF PROCMouseClick_ColoursBar(icon%,button%)
1480 IF button%=16 OR button%=64 THEN
1490 PROCWimp_DragBox(colours%,icon%)
1500 currentdrag%=colours% : currentcolourdragged%=icon%
1510 ENDIF
1520 ENDPROC
1530 :
1540 DEF PROCPoll_KeyPress(window%,icon%,key%)
1550 CASE window% OF
1560 WHEN res_wind% : IF key%=13 THEN PROCCalculate ELSE PROCWimp_ProcessKey(key%)
1570 OTHERWISE : PROCWimp_ProcessKey(key%)
1580 ENDCASE
1590 ENDPROC
1600 :
1610 DEF PROCPoll_EndDrag
1620 LOCAL wind%,icon%,q%,qq%
1630 PROCWimp_ChangePointer("ptr_default")
1640 IF currentdrag%=colours% THEN
1650 SYS "Wimp_GetPointerInfo",,block%
1660 wind%=block%!12 : icon%=block%!16
1670 SYS "Wimp_WhichIcon",type%,block%,&3F0000,&210000
1680 q%=12-!block%
1690 IF wind%=res_wind% AND icon%>=q% AND ((icon%<=13 AND currentcolourdragged%<10) OR (icon%=14 AND currentcolourdragged%<8)) THEN
1700 qq%=icon%-11
1710 PROCWimp_WriteIconValidation(res_wind%,qq%,"S"+STR$ currentcolourdragged%)
1720 PROCReCalculate
1730 ENDIF
1740 IF wind%=res_wind% AND icon%=15 THEN
1750 CASE currentcolourdragged% OF
1760 WHEN 1:PROCWimp_WriteIconValidation(res_wind%,4,"S1")
1770 PROCWimp_WriteIconText(res_wind%,9,"1")
1780 SYS "Wimp_GetCaretPosition",,block%
1790 IF !block%=res_wind% AND block%!4=9 THEN
1800 SYS "Wimp_SetCaretPosition",res_wind%,9,,,-1,1
1810 ENDIF
1820 WHEN 2:PROCWimp_WriteIconValidation(res_wind%,4,"S2")
1830 PROCWimp_WriteIconText(res_wind%,9,"2")
1840 SYS "Wimp_GetCaretPosition",,block%
1850 IF !block%=res_wind% AND block%!4=9 THEN
1860 SYS "Wimp_SetCaretPosition",res_wind%,9,,,-1,1
1870 ENDIF
1880 WHEN 10:PROCWimp_WriteIconValidation(res_wind%,4,"S5%")
1890 PROCWimp_WriteIconText(res_wind%,9,"5")
1900 SYS "Wimp_GetCaretPosition",,block%
1910 IF !block%=res_wind% AND block%!4=9 THEN
1920 SYS "Wimp_SetCaretPosition",res_wind%,9,,,-1,1
1930 ENDIF
1940 WHEN 11:PROCWimp_WriteIconValidation(res_wind%,4,"S10%")
1950 PROCWimp_WriteIconText(res_wind%,9,"10")
1960 SYS "Wimp_GetCaretPosition",,block%
1970 IF !block%=res_wind% AND block%!4=9 THEN
1980 SYS "Wimp_SetCaretPosition",res_wind%,9,,,-1,2
1990 ENDIF
2000 ENDCASE
2010 ENDIF
2020 ENDIF
2030 ENDPROC
2040 :
2050 DEF PROCReCalculate
2060 LOCAL q0%,q1%,q2%,q3%,q$,resistance%
2070 q0%=VAL(RIGHT$(FNWimp_ReadIconValidation(res_wind%,0)))
2080 q1%=VAL(RIGHT$(FNWimp_ReadIconValidation(res_wind%,1)))
2090 q2%=VAL(RIGHT$(FNWimp_ReadIconValidation(res_wind%,2)))
2100 q3%=VAL(RIGHT$(FNWimp_ReadIconValidation(res_wind%,3)))
2110 SYS "Wimp_WhichIcon",type%,block%,&3F0000,&210000
2120 CASE !block% OF
2130 WHEN 0: resistance%=((q1%*10)+q2%)*(10^q3%)
2140 WHEN 1: resistance%=((q0%*100)+(q1%*10)+q2%)*(10^q3%)
2150 ENDCASE
2160 q$=STR$(resistance%)
2170 IF resistance%/1000=INT(resistance%/1000) THEN q$=STR$(resistance%/1000)+"K"
2180 IF resistance%/1000000=INT(resistance%/1000000) THEN q$=STR$(resistance%/1000000)+"M"
2190 IF resistance%=0 THEN q$="0"
2200 PROCWimp_WriteIconText(res_wind%,7,q$)
2210 SYS "Wimp_GetCaretPosition",,block%
2220 IF !block%=res_wind% AND block%!4=7 THEN
2230 SYS "Wimp_SetCaretPosition",res_wind%,7,,,-1,LEN(q$)
2240 ENDIF
2250 ENDPROC
2260 :
2270 DEF PROCCalculate
2280 LOCAL a$,resistor%,q$
2290 a$=FNWimp_ReadIconText(res_wind%,7)
2300 CASE FNMisc_TurnToLowerCase(RIGHT$(a$)) OF
2310 WHEN "r": a$=LEFT$(a$)
2320 WHEN "k": a$=LEFT$(a$)+"000"
2330 WHEN "m": a$=LEFT$(a$)+"000000"
2340 ENDCASE
2350 SYS "Wimp_WhichIcon",type%,block%,&3F0000,&210000
2360 resistor%=!block%
2370 CASE resistor% OF
2380 WHEN 0: PROCWimp_WriteIconValidation(res_wind%,1,"S"+MID$(a$,1,1))
2390 PROCWimp_WriteIconValidation(res_wind%,2,"S"+MID$(a$,2,1))
2400 PROCWimp_WriteIconValidation(res_wind%,3,"S"+STR$(LEN(MID$(a$,3,LEN a$))))
2410 WHEN 1: PROCWimp_WriteIconValidation(res_wind%,0,"S"+MID$(a$,1,1))
2420 PROCWimp_WriteIconValidation(res_wind%,1,"S"+MID$(a$,2,1))
2430 PROCWimp_WriteIconValidation(res_wind%,2,"S"+MID$(a$,3,1))
2440 PROCWimp_WriteIconValidation(res_wind%,3,"S"+STR$(LEN(MID$(a$,4,LEN a$))))
2450 OTHERWISE: PROCWimp_SelectIcon(type%,0)
2460 PROCWimp_WriteIconValidation(res_wind%,1,"S"+MID$(a$,1,1))
2470 PROCWimp_WriteIconValidation(res_wind%,2,"S"+MID$(a$,2,1))
2480 PROCWimp_WriteIconValidation(res_wind%,3,"S"+STR$(LEN(MID$(a$,3,LEN a$))))
2490 ENDCASE
2500 a$=FNWimp_ReadIconText(res_wind%,9)
2510 q$="S"+a$
2520 IF a$="5" OR a$="10" THEN q$+="%"
2530 PROCWimp_WriteIconValidation(res_wind%,4,q$)
2540 PROCWimp_WriteIconValidation(res_wind%,5,"Sresistor"+STR$(resistor%+4))
2550 ENDPROC
2560 :
2570 DEF PROCPoll_MenuSelection
2580 sel1%=!block% : sel2%=block%!4 : sel3%=block%!8
2590 SYS "Wimp_GetPointerInfo",,block%
2600 button%=block%!8
2610 CASE CurrentMenu% OF
2620 WHEN iconbar_menu%: CASE sel1% OF
2630 WHEN 2: IF FNWimp_MenuTicked(iconbar_menu%,2)=TRUE THEN
2640 PROCWimp_MenuUnTickItem(iconbar_menu%,2)
2650 PROCWimp_CloseWindow(colours%)
2660 ELSE
2670 PROCWimp_MenuTickItem(iconbar_menu%,2)
2680 IF RwindOpen%=TRUE THEN PROCOpenResistorWindowANDcolours
2690 ENDIF
2700 WHEN 3: quit%=TRUE
2710 ENDCASE
2720 ENDCASE
2730 IF button%=1 THEN PROCWimp_ShowMenu(CurrentMenu%,0,0) ELSE CurrentMenu%=-1
2740 ENDPROC
2750 :
2760 DEF PROCPoll_IncommingMessage(message%)
2770 CASE message% OF
2780 WHEN &000: quit%=TRUE
2790 WHEN &502: LOCAL Thandle%,his_ref%,help_message$
2800 Thandle%=block%!4 : his_ref%=block%!8
2810 help_message$=FNHelp_Request(block%!32,block%!36)+CHR$(0)
2820 !block%=256
2830 block%!12=his_ref%
2840 block%!16=&503
2850 $(block%+20)=help_message$
2860 SYS "Wimp_SendMessage",17,block%,Thandle%
2870 ENDCASE
2880 ENDPROC
2890 :
2900 DEF FNHelp_Request(window%,icon%)
2910 LOCAL reply$,colour$ : reply$=""
2920 CASE window% OF
2930 WHEN info_window%: reply$="This window shows information about this version of Resistor."
2940 WHEN res_wind%: CASE icon% OF
2950 WHEN 11,12,13,14,15,5: reply$="The coloured bands change when a new value is entered or when you drag a colour to one of the bands."
2960 WHEN 7: reply$="If you enter a new value here the bands change colour to show the new resistance.|mIf you drag a colour to one of the bands then the resistance represented by the new pattern of colourd bands is shown here."
2970 WHEN 9: reply$="If you enter a new value here the tolerance band changes colour to show the new tolerance.|mIf you drag a colour to the tolerance band then the the new tolerance is shown here."
2980 OTHERWISE: reply$="This is the resistor window."
2990 ENDCASE
3000 WHEN type%: IF icon%>-1 THEN reply$="Click SELECT to choose "+STR$(icon%+4)+" band resistors." ELSE reply$="Click to choose either 4 or 5 band format."
3010 WHEN colours%: CASE icon% OF
3020 WHEN 0: colour$="black."
3030 WHEN 1: colour$="brown."
3040 WHEN 2: colour$="red."
3050 WHEN 3: colour$="orange."
3060 WHEN 4: colour$="yellow."
3070 WHEN 5: colour$="green."
3080 WHEN 6: colour$="blue."
3090 WHEN 7: colour$="purple."
3100 WHEN 8: colour$="grey."
3110 WHEN 9: colour$="white."
3120 WHEN 10: colour$="gold."
3130 WHEN 11: colour$="silver."
3140 ENDCASE
3150 reply$="This is the colours window."
3160 IF icon%>=0 AND icon%<=11 THEN reply$+="|mDrag this icon to one of the resistor bands, to change its colour to "+colour$
3170 WHEN -2: reply$="This is the Restistor application, it allows you to find the resistance of a resistor from its coloured bands or vice versa.|mClick SELECT to open the resistor window."
3180 OTHERWISE: IF CurrentMenu%>-1 THEN icon%=(icon%-1)/3
3190 CASE icon% OF
3200 WHEN 0: reply$="Move pointer right to see information on resistor."
3210 WHEN 1: reply$="Move pointer right to set what type of resistor is used."
3220 WHEN 2: reply$="Click SELECT to toggle the presence of the colours window."
3230 WHEN 3: reply$="Click SELECT to make resistor go away."
3240 ENDCASE
3250 ENDCASE
3260 =reply$
3270 :
3280 DEF FNMisc_TurnToLowerCase(a$)
3290 LOCAL q$,q%
3300 q$=""
3310 FOR q%=1 TO LEN a$
3320 q$+=CHR$((ASC MID$(a$,q%,1)) OR 32)
3330 NEXT
3340 =q$
3350 :
3360 DEF FNWimp_CreateIcon(whan%,ix%,iy%,iw%,ih%,flag%,text$)
3370 LOCAL ihandle%
3380 !block%=whan%
3390 block%!4=ix%
3400 block%!8=iy%
3410 block%!12=ix%+iw%
3420 block%!16=iy%+ih%
3430 block%!20=flag%
3440 $(block%+24)=text$
3450 SYS "Wimp_CreateIcon",,block% TO ihandle%
3460 =ihandle%
3470 :
3480 DEF PROCWimp_SetIconButtonType(whan%,icon%,type%)
3490 !block%=whan% : block%!4=icon% : block%!8=(type%<<12) : block%!12=&F<<12
3500 SYS "Wimp_SetIconState",,block%
3510 ENDPROC
3520 :
3530 DEF FNWimp_ReadIconText(whan%,icon%)
3540 !block%=whan%
3550 block%!4=icon%
3560 SYS "Wimp_GetIconState",,block%
3570 =$(block%!28)
3580 :
3590 DEF PROCWimp_WriteIconText(whan%,icon%,text$)
3600 !block%=whan%
3610 block%!4=icon%
3620 SYS "Wimp_GetIconState",,block%
3630 $(block%!28)=text$
3640 block%!8=0 : block%!12=0
3650 SYS "Wimp_SetIconState",,block%
3660 ENDPROC
3670 :
3680 DEF FNWimp_ReadIconValidation(whan%,icon%)
3690 !block%=whan%
3700 block%!4=icon%
3710 SYS "Wimp_GetIconState",,block%
3720 =$(block%!32)
3730 :
3740 DEF PROCWimp_WriteIconValidation(whan%,icon%,valid$)
3750 !block%=whan%
3760 block%!4=icon%
3770 SYS "Wimp_GetIconState",,block%
3780 $(block%!32)=valid$
3790 block%!8=0 : block%!12=0
3800 SYS "Wimp_SetIconState",,block%
3810 ENDPROC
3820 :
3830 DEF PROCWimp_ShowMenu(menu%,x%,y%)
3840 SYS "Wimp_CreateMenu",,menu%,x%,y%
3850 ENDPROC
3860 :
3870 DEF PROCWimp_ShowMenuIconBar(menu%,x%,items%,lines%)
3880 PROCWimp_ShowMenu(menu%,x%,(lines%*22)+(items%*44)+96)
3890 ENDPROC
3900 :
3910 DEF FNWimp_MenuNoOfEntries(menu$)
3920 LOCAL n% ,j% : n%=0 : j%=0
3930 REPEAT
3940 j%=INSTR(menu$,"\",j%+1)
3950 IF j%<>0 THEN n%+=1
3960 UNTIL j%=0
3970 =n%
3980 :
3990 DEF FNWimp_setupmenuFromStringFontyitems(menu$,font%)
4000 LOCAL menu%,index%,width%,length%,k%,s%
4010 DIM menu% 28+FNWimp_MenuNoOfEntries(menu$)*24
4020 menu%?12=7 : menu%?13=2 : menu%?14=7 :menu%?15=0
4030 menu%!16=140 : menu%!20=44 : menu%!24=0
4040 index%=menu%+28
4050 $menu%=LEFT$(menu$,INSTR(menu$,"\")-1)
4060 width%=LEN(LEFT$(menu$,INSTR(menu$,"\")-1))
4070 menu$+="\" : Menu_NoOfEntries%=0
4080 WHILE menu$<>""
4090 menu$=MID$(menu$,INSTR(menu$,"\")+1)
4100 CASE menu$ OF
4110 WHEN ""
4120 OTHERWISE :
4130 !index%=0 : index%!4=-1 : index%!8=&21 OR ((font%<<24) OR (1<<6))
4140 length%=INSTR(menu$,"\")-1
4150 k%=INSTR(LEFT$(menu$,length%),">")
4160 CASE k% OF
4170 WHEN 0
4180 OTHERWISE
4190 s%=EVAL(MID$(menu$,k%+1,length%-k%))
4200 index%!4=s%
4210 length%=k%-1
4220 ENDCASE
4230 $(index%+12)=LEFT$(menu$,length%)
4240 IF length%>width% THEN width%=length%
4250 index%+=24
4260 ENDCASE
4270 ENDWHILE
4280 menu%!16=16*(width%+1)
4290 index%!-24=index%!-24 OR &80 : =menu%
4300 :
4310 DEF FNWimp_LoadSprites(file$)
4320 LOCAL file%,size%,area%
4330 file%=OPENIN file$
4340 size%=(EXT#file%)+16
4350 CLOSE#file%
4360 DIM area% size%
4370 !area%=size%
4380 area%!8=0
4390 SYS "OS_SpriteOp",&109,area%
4400 SYS "OS_SpriteOp",&10A,area%,file$
4410 =area%
4420 :
4430 DEF FNWimp_ErrorBox(err$,title$,flags%)
4440 LOCAL q%
4450 !block%=255
4460 $(block%+4)=err$+CHR$0
4470 SYS "Wimp_ReportError",block%,flags%,title$ TO ,q%
4480 =q%
4490 :
4500 DEF FNWimp_ErrorBoxOK(err$,title$)
4510 =FNWimp_ErrorBox(err$,title$,1)
4520 :
4530 DEF FNWimp_Initialise(appname$)
4540 LOCAL taskhandle%
4550 SYS "Wimp_Initialise",310,&4B534154,appname$,block% TO ,taskhandle%
4560 =taskhandle%
4570 :
4580 DEF FNWimp_CloseDown(taskhandle%)
4590 SYS "Wimp_CloseDown",taskhandle%,&4B534154
4600 =0
4610 :
4620 DEF PROCWimp_ProcessKey(key%)
4630 SYS "Wimp_ProcessKey",key%
4640 ENDPROC
4650 :
4660 DEF PROCWimp_CloseWindow(win%)
4670 !block%=win%
4680 SYS "Wimp_GetWindowState",,block%
4690 SYS "Wimp_CloseWindow",,block%
4700 ENDPROC
4710 :
4720 DEF FNWimp_InitFontsArray
4730 LOCAL fontZ%,N
4740 DIM fontZ% 256
4750 FOR N=0 TO 256 STEP 4
4760 !(N+fontZ%)=0
4770 NEXT
4780 =fontZ%
4790 :
4800 DEF PROCWimp_RemoveFontsArray(fontZZ%)
4810 SYS "Hourglass_On"
4820 FOR n%=0 TO 255
4830 SYS "Hourglass_Percentage",(n%/255)*100
4840 q%=?(fontZZ%+n%)
4850 WHILE q%>0
4860 SYS "Font_LoseFont",n%
4870 q%-=1
4880 ENDWHILE
4890 NEXT
4900 SYS "Hourglass_Off"
4910 ENDPROC
4920 :
4930 DEF PROCWimp_OpenWindow(win%)
4940 !block%=win%
4950 SYS "Wimp_GetWindowState",,block%
4960 SYS "Wimp_OpenWindow",,block%
4970 ENDPROC
4980 :
4990 DEF PROCWimp_OpenTemplate(file$)
5000 SYS "Wimp_OpenTemplate",,file$
5010 ENDPROC
5020 :
5030 DEF PROCWimp_CloseTemplate
5040 SYS "Wimp_CloseTemplate"
5050 ENDPROC
5060 :
5070 DEF FNWimp_LoadTemplateFontZ(template$,iconSpace%,length%,spri%,fontarray%)
5080 LOCAL q%
5090 SYS "Wimp_LoadTemplate",,block%,iconSpace%,iconSpace%+length%,fontarray%,template$,0
5100 block%!64=spri%
5110 SYS "Wimp_CreateWindow",,block% TO q%
5120 =q%
5130 :
5140 DEF PROCWimp_ChangeWindowTitle(win%,text$)
5150 LOCAL q%
5160 !block%=win%
5170 SYS "Wimp_GetWindowInfo",,block%
5180 q%=block%!76
5190 $q%=text$
5200 block%!84=LEN text$
5210 ENDPROC
5220 :
5230 DEF FNWimp_GetCaretPositionWindow
5240 SYS "Wimp_GetCaretPosition",,block%
5250 =!block%
5260 :
5270 DEF PROCWimp_DisownCaret
5280 SYS "Wimp_SetCaretPosition",-1
5290 ENDPROC
5300 :
5310 DEF PROCWimp_DragBox(window%,icon%)
5320 PROCWimp_ChangePointer("ptr_double")
5330 LOCALx%,y%
5340 !block%=window%
5350 SYS"Wimp_GetWindowState",,block%
5360 x%=block%!4-block%!20:y%=block%!16-block%!24
5370 block%!4=icon%
5380 SYS"Wimp_GetIconState",,block%
5390 !block%=window%
5400 block%!4=5
5410 block%!8=x%+block%!8:block%!12=y%+block%!12
5420 block%!16=x%+block%!16:block%!20=y%+block%!20
5430 block%!24=0:block%!28=0
5440 block%!32=&7FFFFFFF:block%!36=&7FFFFFFF
5450 SYS"Wimp_DragBox",,block%
5460 ENDPROC
5470 :
5480 DEF PROCWimp_MenuTickItem(menu%,item%)
5490 LOCAL a%
5500 a%=menu%+28+(item%*24)
5510 ?a%=(?a% OR 1)
5520 ENDPROC
5530 :
5540 DEF PROCWimp_MenuUnTickItem(menu%,item%)
5550 LOCAL a%
5560 a%=menu%+28+(item%*24)
5570 ?a%=(?a% AND 254)
5580 ENDPROC
5590 :
5600 DEF PROCWimp_MenuDottedLine(menu%,item%)
5610 menu%!(28+item%*24)=(menu%!(28+item%*24))OR2
5620 ENDPROC
5630 :
5640 DEF FNWimp_MenuTicked(menu%,item%)
5650 LOCAL a%
5660 a%=menu%+28+(item%*24)
5670 =(?a% AND 1)>0
5680 :
5690 DEF PROCWimp_ChangePointer(pointer$)
5700 SYS "Wimp_SpriteOp",36,1,pointer$,2,0,0,0,0
5710 ENDPROC
5720 :
5730 DEF PROCWimp_SelectIcon(whan%,icon%)
5740 !block%=whan% : block%!4=icon% : block%!8=1<<21 : block%!12=1<<21
5750 SYS "Wimp_SetIconState",,block%
5760 ENDPROC
5770 :
� block% 750
�User_SetVariables
> � � q%=�Wimp_ErrorBoxOK("Unexpected ERROR: "+�$,app$) : �
(' TaskHandle%=�Wimp_Initialise(app$)
2` � � q%=�Wimp_ErrorBoxOK("Unexpected ERROR: "+�$,app$) : q%=�Wimp_CloseDown(TaskHandle%) : �
< �User_LoadResources
F �User_SetUpResources
P �User_SetUpMenus
Z
�Offsets
d quit%=�
nD � � q%=�Wimp_ErrorBoxOK("Unexpected ERROR: "+�$,app$) : quit%=�
x ȕ quit%=�
� �User_Poll
� �
� �User_AppClosingDown
�$ q%=�Wimp_CloseDown(TaskHandle%)
� �
�
�
� � �User_SetVariables
� !block%=&502
� CurrentMenu%=-1
� block%!4=0
� app$="Resistor"
� RwindOpen%=�
$ fontarray%=�Wimp_InitFontsArray
�
:
" � �User_LoadResources
,8 sparea%=�Wimp_LoadSprites("<Resistor$Dir>.Sprites")
63 �Wimp_OpenTemplate("<Resistor$Dir>.Templates")
@' length%=150 : � iconSpace% length%
JW info_window%=�Wimp_LoadTemplateFontZ("info",iconSpace%,length%,sparea%,fontarray%)
T' length%=142 : � iconSpace% length%
^X res_wind%=�Wimp_LoadTemplateFontZ("RESISTOR",iconSpace%,length%,sparea%,fontarray%)
h& length%=58 : � iconSpace% length%
rP type%=�Wimp_LoadTemplateFontZ("type",iconSpace%,length%,sparea%,fontarray%)
|& length%=84 : � iconSpace% length%
�V colours%=�Wimp_LoadTemplateFontZ("colours",iconSpace%,length%,sparea%,fontarray%)
� �Wimp_CloseTemplate
� �
� :
� � �User_SetUpResources
�M iconbar_icon%=�Wimp_CreateIcon(-1,0,0,80,80,%11000000011010,"!Resistor")
� �
� :
� � �Offsets
�* � x1%,y1%,x2%,y2%,x11%,y11%,x22%,y22%
�. � �Wimp_MenuTicked(iconbar_menu%,2)=� � �
� !block%=res_wind%
�% ș "Wimp_GetWindowState",,block%
x1%=block%!4
y1%=block%!8
x11%=block%!12
& y11%=block%!16
0 !block%=colours%
:% ș "Wimp_GetWindowState",,block%
D x2%=block%!4
N y2%=block%!8
X x22%=block%!12
b y22%=block%!16
l xoff1%=x1%-x2%
v yoff1%=y1%-y2%
� xoff2%=x11%-x22%
� yoff2%=y11%-y22%
� �
� :
�$ � �OpenResistorWindowANDcolours
�, � �Wimp_MenuTicked(iconbar_menu%,2)=� �
� !block%=res_wind%
�% ș "Wimp_GetWindowState",,block%
�! ș "Wimp_OpenWindow",,block%
� RwindOpen%=�
� �
� � x1%,y1%,x2%,y2%,q%,qq%
� !block%=colours%
% ș "Wimp_GetWindowState",,block%
q%=block%!28
!block%=res_wind%
% ș "Wimp_GetWindowState",,block%
* x1%=block%!4
4 y1%=block%!8
> x2%=block%!12
H y2%=block%!16
R qq%=block%!28
\ block%!28=q%
f! ș "Wimp_OpenWindow",,block%
p !block%=colours%
z% ș "Wimp_GetWindowState",,block%
� block%!4=x1%-xoff1%
� block%!8=y1%-yoff1%
� block%!12=x2%-xoff2%
� block%!16=y2%-yoff2%
� block%!28=qq%
�! ș "Wimp_OpenWindow",,block%
� RwindOpen%=�
� �
� �
� :
� � �User_SetUpMenus
�B ș "Font_FindFont",,"homerton.medium",16*12,16*12 � homerton%
�� iconbar_menu%=�Wimp_setupmenuFromStringFontyitems(app$+"\Info>"+(� info_window%)+"\Type>"+(� type%)+"\Show colours\Quit",homerton%)
* �Wimp_MenuDottedLine(iconbar_menu%,0)
* �Wimp_MenuDottedLine(iconbar_menu%,2)
( �Wimp_MenuTickItem(iconbar_menu%,2)
$ �
. :
8 � �User_AppClosingDown
B! ș "Font_LoseFont",homerton%
L' �Wimp_RemoveFontsArray(fontarray%)
V �
` :
j � �User_Poll
t* ș "Wimp_Poll",&3833,block% � reason%
~ Ȏ reason% �
�% � 2:ș "Wimp_OpenWindow",,block%
�? � !block%=res_wind% � �OpenResistorWindowANDcolours
�) � !block%=colours% � �Offsets
�& � 3:ș "Wimp_CloseWindow",,block%
�a � !block%=res_wind% � !block%=colours% : ș "Wimp_CloseWindow",,block% : RwindOpen%=�
�7 � 6:�Poll_MouseClick(block%!12,block%!16,block%!8)
� � 7:�Poll_EndDrag
�3 � 8:�Poll_KeyPress(!block%,block%!4,block%!24)
� � 9:�Poll_MenuSelection
�/ � 17,18 :�Poll_IncommingMessage(block%!16)
� �
� �
:
. � �Poll_MouseClick(window%,icon%,button%)
N � Don't forget when you are opening menus you must up date <CurrentMenu%>
� x%,y%,a$
( Ȏ window% �
24 � -2 :�MouseClick_IconBar(icon%,button%)
< � type%:�Calculate
F: � colours%:�MouseClick_ColoursBar(icon%,button%)
P �
Z �
d :
n) � �MouseClick_IconBar(icon%,button%)
x Ȏ button% �
�. � 1,4: �OpenResistorWindowANDcolours
�B � 2: �Wimp_ShowMenuIconBar(iconbar_menu%,!block%-64,4,2)
�, CurrentMenu%=iconbar_menu%
� �
� �
� :
�, � �MouseClick_ColoursBar(icon%,button%)
� � button%=16 � button%=64 �
�A �Wimp_DragBox(colours%,icon%)
�W currentdrag%=colours% : currentcolourdragged%=icon%
� �
� �
� :
) � �Poll_KeyPress(window%,icon%,key%)
Ȏ window% �
G � res_wind% : � key%=13 � �Calculate � �Wimp_ProcessKey(key%)
"$ : �Wimp_ProcessKey(key%)
, �
6 �
@ :
J � �Poll_EndDrag
T � wind%,icon%,q%,qq%
^' �Wimp_ChangePointer("ptr_default")
h � currentdrag%=colours% �
r% ș "Wimp_GetPointerInfo",,block%
|& wind%=block%!12 : icon%=block%!16
�5 ș "Wimp_WhichIcon",type%,block%,&3F0000,&210000
� q%=12-!block%
�v � wind%=res_wind% � icon%>=q% � ((icon%<=13 � currentcolourdragged%<10) � (icon%=14 � currentcolourdragged%<8)) �
� qq%=icon%-11
�I �Wimp_WriteIconValidation(res_wind%,qq%,"S"+� currentcolourdragged%)
� �ReCalculate
� �
�# � wind%=res_wind% � icon%=15 �
� Ȏ currentcolourdragged% �
�8 � 1:�Wimp_WriteIconValidation(res_wind%,4,"S1")
�4 �Wimp_WriteIconText(res_wind%,9,"1")
�2 ș "Wimp_GetCaretPosition",,block%
�2 � !block%=res_wind% � block%!4=9 �
A ș "Wimp_SetCaretPosition",res_wind%,9,,,-1,1
�
8 � 2:�Wimp_WriteIconValidation(res_wind%,4,"S2")
&4 �Wimp_WriteIconText(res_wind%,9,"2")
02 ș "Wimp_GetCaretPosition",,block%
:2 � !block%=res_wind% � block%!4=9 �
DA ș "Wimp_SetCaretPosition",res_wind%,9,,,-1,1
N �
X: � 10:�Wimp_WriteIconValidation(res_wind%,4,"S5%")
b4 �Wimp_WriteIconText(res_wind%,9,"5")
l2 ș "Wimp_GetCaretPosition",,block%
v2 � !block%=res_wind% � block%!4=9 �
�A ș "Wimp_SetCaretPosition",res_wind%,9,,,-1,1
� �
�; � 11:�Wimp_WriteIconValidation(res_wind%,4,"S10%")
�5 �Wimp_WriteIconText(res_wind%,9,"10")
�2 ș "Wimp_GetCaretPosition",,block%
�2 � !block%=res_wind% � block%!4=9 �
�A ș "Wimp_SetCaretPosition",res_wind%,9,,,-1,2
� �
� �
� �
� �
� �
� :
� �ReCalculate
% � q0%,q1%,q2%,q3%,q$,resistance%
3 q0%=�(¤Wimp_ReadIconValidation(res_wind%,0)))
3 q1%=�(¤Wimp_ReadIconValidation(res_wind%,1)))
*3 q2%=�(¤Wimp_ReadIconValidation(res_wind%,2)))
43 q3%=�(¤Wimp_ReadIconValidation(res_wind%,3)))
>5 ș "Wimp_WhichIcon",type%,block%,&3F0000,&210000
H Ȏ !block% �
R4 � 0: resistance%=((q1%*10)+q2%)*(10^q3%)
\> � 1: resistance%=((q0%*100)+(q1%*10)+q2%)*(10^q3%)
f �
p q$=�(resistance%)
zH � resistance%/1000=�(resistance%/1000) � q$=�(resistance%/1000)+"K"
�Q � resistance%/1000000=�(resistance%/1000000) � q$=�(resistance%/1000000)+"M"
� � resistance%=0 � q$="0"
�( �Wimp_WriteIconText(res_wind%,7,q$)
�' ș "Wimp_GetCaretPosition",,block%
�' � !block%=res_wind% � block%!4=7 �
�9 ș "Wimp_SetCaretPosition",res_wind%,7,,,-1,�(q$)
� �
� �
� :
� � �Calculate
� � a$,resistor%,q$
�' a$=�Wimp_ReadIconText(res_wind%,7)
�% Ȏ �Misc_TurnToLowerCase(�a$)) �
� "r": a$=�a$)
� "k": a$=�a$)+"000"
! � "m": a$=�a$)+"000000"
$ �
.5 ș "Wimp_WhichIcon",type%,block%,&3F0000,&210000
8 resistor%=!block%
B Ȏ resistor% �
LB � 0: �Wimp_WriteIconValidation(res_wind%,1,"S"+�a$,1,1))
VE �Wimp_WriteIconValidation(res_wind%,2,"S"+�a$,2,1))
`N �Wimp_WriteIconValidation(res_wind%,3,"S"+�(�(�a$,3,� a$))))
jB � 1: �Wimp_WriteIconValidation(res_wind%,0,"S"+�a$,1,1))
tE �Wimp_WriteIconValidation(res_wind%,1,"S"+�a$,2,1))
~E �Wimp_WriteIconValidation(res_wind%,2,"S"+�a$,3,1))
�N �Wimp_WriteIconValidation(res_wind%,3,"S"+�(�(�a$,4,� a$))))
�& : �Wimp_SelectIcon(type%,0)
�E �Wimp_WriteIconValidation(res_wind%,1,"S"+�a$,1,1))
�E �Wimp_WriteIconValidation(res_wind%,2,"S"+�a$,2,1))
�N �Wimp_WriteIconValidation(res_wind%,3,"S"+�(�(�a$,3,� a$))))
� �
�' a$=�Wimp_ReadIconText(res_wind%,9)
� q$="S"+a$
�! � a$="5" � a$="10" � q$+="%"
�. �Wimp_WriteIconValidation(res_wind%,4,q$)
�F �Wimp_WriteIconValidation(res_wind%,5,"Sresistor"+�(resistor%+4))
� �
:
� �Poll_MenuSelection
4 sel1%=!block% : sel2%=block%!4 : sel3%=block%!8
% ș "Wimp_GetPointerInfo",,block%
( button%=block%!8
2 Ȏ CurrentMenu% �
<% � iconbar_menu%: Ȏ sel1% �
FO � 2: � �Wimp_MenuTicked(iconbar_menu%,2)=� �
PP �Wimp_MenuUnTickItem(iconbar_menu%,2)
ZF �Wimp_CloseWindow(colours%)
d, �
nN �Wimp_MenuTickItem(iconbar_menu%,2)
xW � RwindOpen%=� � �OpenResistorWindowANDcolours
�, �
�/ � 3: quit%=�
� �
� �
�E � button%=1 � �Wimp_ShowMenu(CurrentMenu%,0,0) � CurrentMenu%=-1
� �
� :
�' � �Poll_IncommingMessage(message%)
� Ȏ message% �
� � &000: quit%=�
�3 � &502: � Thandle%,his_ref%,help_message$
�: Thandle%=block%!4 : his_ref%=block%!8
�J help_message$=�Help_Request(block%!32,block%!36)+�(0)
!block%=256
' block%!12=his_ref%
# block%!16=&503
"/ $(block%+20)=help_message$
,= ș "Wimp_SendMessage",17,block%,Thandle%
6 �
@ �
J :
T# � �Help_Request(window%,icon%)
^! � reply$,colour$ : reply$=""
h Ȏ window% �
r` � info_window%: reply$="This window shows information about this version of Resistor."
|! � res_wind%: Ȏ icon% �
�� � 11,12,13,14,15,5: reply$="The coloured bands change when a new value is entered or when you drag a colour to one of the bands."
�� � 7: reply$="If you enter a new value here the bands change colour to show the new resistance.|mIf you drag a colour to one of the bands then the resistance represented by the new pattern of colourd bands is shown here."
�� � 9: reply$="If you enter a new value here the tolerance band changes colour to show the new tolerance.|mIf you drag a colour to the tolerance band then the the new tolerance is shown here."
�G : reply$="This is the resistor window."
� �
�� � type%: � icon%>-1 � reply$="Click SELECT to choose "+�(icon%+4)+" band resistors." � reply$="Click to choose either 4 or 5 band format."
� � colours%: Ȏ icon% �
�3 � 0: colour$="black."
�3 � 1: colour$="brown."
�1 � 2: colour$="red."
�4 � 3: colour$="orange."
�4 � 4: colour$="yellow."
�3 � 5: colour$="green."
2 � 6: colour$="blue."
4 � 7: colour$="purple."
2 � 8: colour$="grey."
&3 � 9: colour$="white."
03 � 10: colour$="gold."
:5 � 11: colour$="silver."
D �
N= reply$="This is the colours window."
X� � icon%>=0 � icon%<=11 � reply$+="|mDrag this icon to one of the resistor bands, to change its colour to "+colour$
b� � -2: reply$="This is the Restistor application, it allows you to find the resistance of a resistor from its coloured bands or vice versa.|mClick SELECT to open the resistor window."
l2 : � CurrentMenu%>-1 � icon%=(icon%-1)/3
v Ȏ icon% �
�Z � 0: reply$="Move pointer right to see information on resistor."
�` � 1: reply$="Move pointer right to set what type of resistor is used."
�b � 2: reply$="Click SELECT to toggle the presence of the colours window."
�N � 3: reply$="Click SELECT to make resistor go away."
� �
� �
� =reply$
� :
� � �Misc_TurnToLowerCase(a$)
� � q$,q%
�
q$=""
� � q%=1 � � a$
� q$+=�((� �a$,q%,1)) � 32)
�
=q$
:
: � �Wimp_CreateIcon(whan%,ix%,iy%,iw%,ih%,flag%,text$)
* � ihandle%
4 !block%=whan%
> block%!4=ix%
H block%!8=iy%
R block%!12=ix%+iw%
\ block%!16=iy%+ih%
f block%!20=flag%
p $(block%+24)=text$
z, ș "Wimp_CreateIcon",,block% � ihandle%
� =ihandle%
� :
�1 � �Wimp_SetIconButtonType(whan%,icon%,type%)
�M !block%=whan% : block%!4=icon% : block%!8=(type%<<12) : block%!12=&F<<12
�# ș "Wimp_SetIconState",,block%
� �
� :
�& � �Wimp_ReadIconText(whan%,icon%)
� !block%=whan%
� block%!4=icon%
�# ș "Wimp_GetIconState",,block%
� =$(block%!28)
� :
- � �Wimp_WriteIconText(whan%,icon%,text$)
!block%=whan%
block%!4=icon%
$# ș "Wimp_GetIconState",,block%
. $(block%!28)=text$
8 block%!8=0 : block%!12=0
B# ș "Wimp_SetIconState",,block%
L �
V :
`, � �Wimp_ReadIconValidation(whan%,icon%)
j !block%=whan%
t block%!4=icon%
~# ș "Wimp_GetIconState",,block%
� =$(block%!32)
� :
�4 � �Wimp_WriteIconValidation(whan%,icon%,valid$)
� !block%=whan%
� block%!4=icon%
�# ș "Wimp_GetIconState",,block%
� $(block%!32)=valid$
� block%!8=0 : block%!12=0
�# ș "Wimp_SetIconState",,block%
� �
� :
�" � �Wimp_ShowMenu(menu%,x%,y%)
& ș "Wimp_CreateMenu",,menu%,x%,y%
�
:
4 � �Wimp_ShowMenuIconBar(menu%,x%,items%,lines%)
(8 �Wimp_ShowMenu(menu%,x%,(lines%*22)+(items%*44)+96)
2 �
< :
F# � �Wimp_MenuNoOfEntries(menu$)
P � n% ,j% : n%=0 : j%=0
Z �
d j%=�menu$,"\",j%+1)
n � j%<>0 � n%+=1
x � j%=0
� =n%
� :
�7 � �Wimp_setupmenuFromStringFontyitems(menu$,font%)
�( � menu%,index%,width%,length%,k%,s%
�/ � menu% 28+�Wimp_MenuNoOfEntries(menu$)*24
�8 menu%?12=7 : menu%?13=2 : menu%?14=7 :menu%?15=0
�, menu%!16=140 : menu%!20=44 : menu%!24=0
� index%=menu%+28
�! $menu%=�menu$,�menu$,"\")-1)
�$ width%=�(�menu$,�menu$,"\")-1))
�% menu$+="\" : Menu_NoOfEntries%=0
� ȕ menu$<>""
� menu$=�menu$,�menu$,"\")+1)
Ȏ menu$ �
� ""
:
"E !index%=0 : index%!4=-1 : index%!8=&21 � ((font%<<24) � (1<<6))
, length%=�menu$,"\")-1
6 k%=��menu$,length%),">")
@ Ȏ k% �
J � 0
T
^& s%=�(�menu$,k%+1,length%-k%))
h index%!4=s%
r length%=k%-1
| �
�# $(index%+12)=�menu$,length%)
�( � length%>width% � width%=length%
� index%+=24
� �
� �
� menu%!16=16*(width%+1)
�) index%!-24=index%!-24 � &80 : =menu%
� :
� � �Wimp_LoadSprites(file$)
� � file%,size%,area%
� file%=� file$
� size%=(�#file%)+16
� �#file%
� area% size%
!area%=size%
area%!8=0
& ș "OS_SpriteOp",&109,area%
0& ș "OS_SpriteOp",&10A,area%,file$
: =area%
D :
N) � �Wimp_ErrorBox(err$,title$,flags%)
X � q%
b !block%=255
l $(block%+4)=err$+�0
v5 ș "Wimp_ReportError",block%,flags%,title$ � ,q%
� =q%
� :
�$ � �Wimp_ErrorBoxOK(err$,title$)
�# =�Wimp_ErrorBox(err$,title$,1)
� :
�! � �Wimp_Initialise(appname$)
� � taskhandle%
�F ș "Wimp_Initialise",310,&4B534154,appname$,block% � ,taskhandle%
� =taskhandle%
� :
�# � �Wimp_CloseDown(taskhandle%)
�. ș "Wimp_CloseDown",taskhandle%,&4B534154
� =0
:
� �Wimp_ProcessKey(key%)
ș "Wimp_ProcessKey",key%
�
* :
4 � �Wimp_CloseWindow(win%)
> !block%=win%
H% ș "Wimp_GetWindowState",,block%
R" ș "Wimp_CloseWindow",,block%
\ �
f :
p � �Wimp_InitFontsArray
z � fontZ%,N
� � fontZ% 256
� � N=0 � 256 � 4
� !(N+fontZ%)=0
� �
� =fontZ%
� :
�& � �Wimp_RemoveFontsArray(fontZZ%)
� ș "Hourglass_On"
� � n%=0 � 255
�+ ș "Hourglass_Percentage",(n%/255)*100
� q%=?(fontZZ%+n%)
� ȕ q%>0
� ș "Font_LoseFont",n%
q%-=1
�
�
$ ș "Hourglass_Off"
. �
8 :
B � �Wimp_OpenWindow(win%)
L !block%=win%
V% ș "Wimp_GetWindowState",,block%
`! ș "Wimp_OpenWindow",,block%
j �
t :
~ � �Wimp_OpenTemplate(file$)
�" ș "Wimp_OpenTemplate",,file$
� �
� :
� � �Wimp_CloseTemplate
� ș "Wimp_CloseTemplate"
� �
� :
�M � �Wimp_LoadTemplateFontZ(template$,iconSpace%,length%,spri%,fontarray%)
� � q%
�X ș "Wimp_LoadTemplate",,block%,iconSpace%,iconSpace%+length%,fontarray%,template$,0
� block%!64=spri%
�( ș "Wimp_CreateWindow",,block% � q%
=q%
:
* � �Wimp_ChangeWindowTitle(win%,text$)
� q%
( !block%=win%
2$ ș "Wimp_GetWindowInfo",,block%
< q%=block%!76
F $q%=text$
P block%!84=� text$
Z �
d :
n# � �Wimp_GetCaretPositionWindow
x' ș "Wimp_GetCaretPosition",,block%
�
=!block%
� :
� � �Wimp_DisownCaret
�" ș "Wimp_SetCaretPosition",-1
� �
� :
�# � �Wimp_DragBox(window%,icon%)
�& �Wimp_ChangePointer("ptr_double")
� �x%,y%
� !block%=window%
�% ș"Wimp_GetWindowState",,block%
�2 x%=block%!4-block%!20:y%=block%!16-block%!24
� block%!4=icon%
# ș"Wimp_GetIconState",,block%
!block%=window%
block%!4=5
"1 block%!8=x%+block%!8:block%!12=y%+block%!12
,3 block%!16=x%+block%!16:block%!20=y%+block%!20
6 block%!24=0:block%!28=0
@- block%!32=&7FFFFFFF:block%!36=&7FFFFFFF
J ș"Wimp_DragBox",,block%
T �
^ :
h& � �Wimp_MenuTickItem(menu%,item%)
r � a%
| a%=menu%+28+(item%*24)
� ?a%=(?a% � 1)
� �
� :
�( � �Wimp_MenuUnTickItem(menu%,item%)
� � a%
� a%=menu%+28+(item%*24)
� ?a%=(?a% � 254)
� �
� :
�( � �Wimp_MenuDottedLine(menu%,item%)
�0 menu%!(28+item%*24)=(menu%!(28+item%*24))�2
� �
� :
$ � �Wimp_MenuTicked(menu%,item%)
� a%
a%=menu%+28+(item%*24)
& =(?a% � 1)>0
0 :
:$ � �Wimp_ChangePointer(pointer$)
D/ ș "Wimp_SpriteOp",36,1,pointer$,2,0,0,0,0
N �
X :
b$ � �Wimp_SelectIcon(whan%,icon%)
lF !block%=whan% : block%!4=icon% : block%!8=1<<21 : block%!12=1<<21
v# ș "Wimp_SetIconState",,block%
� �
� :
� 00000000 0d 00 0a 11 20 de 20 62 6c 6f 63 6b 25 20 37 35 |.... . block% 75|
00000010 30 0d 00 14 17 20 f2 55 73 65 72 5f 53 65 74 56 |0.... .User_SetV|
00000020 61 72 69 61 62 6c 65 73 0d 00 1e 3e 20 ee 20 85 |ariables...> . .|
00000030 20 71 25 3d a4 57 69 6d 70 5f 45 72 72 6f 72 42 | q%=.Wimp_ErrorB|
00000040 6f 78 4f 4b 28 22 55 6e 65 78 70 65 63 74 65 64 |oxOK("Unexpected|
00000050 20 45 52 52 4f 52 3a 20 22 2b f6 24 2c 61 70 70 | ERROR: "+.$,app|
00000060 24 29 20 3a 20 e0 0d 00 28 27 20 54 61 73 6b 48 |$) : ...(' TaskH|
00000070 61 6e 64 6c 65 25 3d a4 57 69 6d 70 5f 49 6e 69 |andle%=.Wimp_Ini|
00000080 74 69 61 6c 69 73 65 28 61 70 70 24 29 0d 00 32 |tialise(app$)..2|
00000090 60 20 ee 20 85 20 71 25 3d a4 57 69 6d 70 5f 45 |` . . q%=.Wimp_E|
000000a0 72 72 6f 72 42 6f 78 4f 4b 28 22 55 6e 65 78 70 |rrorBoxOK("Unexp|
000000b0 65 63 74 65 64 20 45 52 52 4f 52 3a 20 22 2b f6 |ected ERROR: "+.|
000000c0 24 2c 61 70 70 24 29 20 3a 20 71 25 3d a4 57 69 |$,app$) : q%=.Wi|
000000d0 6d 70 5f 43 6c 6f 73 65 44 6f 77 6e 28 54 61 73 |mp_CloseDown(Tas|
000000e0 6b 48 61 6e 64 6c 65 25 29 20 3a 20 e0 0d 00 3c |kHandle%) : ...<|
000000f0 18 20 f2 55 73 65 72 5f 4c 6f 61 64 52 65 73 6f |. .User_LoadReso|
00000100 75 72 63 65 73 0d 00 46 19 20 f2 55 73 65 72 5f |urces..F. .User_|
00000110 53 65 74 55 70 52 65 73 6f 75 72 63 65 73 0d 00 |SetUpResources..|
00000120 50 15 20 f2 55 73 65 72 5f 53 65 74 55 70 4d 65 |P. .User_SetUpMe|
00000130 6e 75 73 0d 00 5a 0d 20 f2 4f 66 66 73 65 74 73 |nus..Z. .Offsets|
00000140 0d 00 64 0c 20 71 75 69 74 25 3d a3 0d 00 6e 44 |..d. quit%=...nD|
00000150 20 ee 20 85 20 71 25 3d a4 57 69 6d 70 5f 45 72 | . . q%=.Wimp_Er|
00000160 72 6f 72 42 6f 78 4f 4b 28 22 55 6e 65 78 70 65 |rorBoxOK("Unexpe|
00000170 63 74 65 64 20 45 52 52 4f 52 3a 20 22 2b f6 24 |cted ERROR: "+.$|
00000180 2c 61 70 70 24 29 20 3a 20 71 75 69 74 25 3d b9 |,app$) : quit%=.|
00000190 0d 00 78 0f 20 c8 95 20 71 75 69 74 25 3d a3 0d |..x. .. quit%=..|
000001a0 00 82 0f 20 f2 55 73 65 72 5f 50 6f 6c 6c 0d 00 |... .User_Poll..|
000001b0 8c 06 20 ce 0d 00 96 19 20 f2 55 73 65 72 5f 41 |.. ..... .User_A|
000001c0 70 70 43 6c 6f 73 69 6e 67 44 6f 77 6e 0d 00 a0 |ppClosingDown...|
000001d0 24 20 71 25 3d a4 57 69 6d 70 5f 43 6c 6f 73 65 |$ q%=.Wimp_Close|
000001e0 44 6f 77 6e 28 54 61 73 6b 48 61 6e 64 6c 65 25 |Down(TaskHandle%|
000001f0 29 0d 00 aa 06 20 e0 0d 00 b4 04 0d 00 be 04 0d |).... ..........|
00000200 00 c8 19 20 dd 20 f2 55 73 65 72 5f 53 65 74 56 |... . .User_SetV|
00000210 61 72 69 61 62 6c 65 73 0d 00 d2 11 20 21 62 6c |ariables.... !bl|
00000220 6f 63 6b 25 3d 26 35 30 32 0d 00 dc 14 20 43 75 |ock%=&502.... Cu|
00000230 72 72 65 6e 74 4d 65 6e 75 25 3d 2d 31 0d 00 e6 |rrentMenu%=-1...|
00000240 0f 20 62 6c 6f 63 6b 25 21 34 3d 30 0d 00 f0 14 |. block%!4=0....|
00000250 20 61 70 70 24 3d 22 52 65 73 69 73 74 6f 72 22 | app$="Resistor"|
00000260 0d 00 fa 11 20 52 77 69 6e 64 4f 70 65 6e 25 3d |.... RwindOpen%=|
00000270 a3 0d 01 04 24 20 66 6f 6e 74 61 72 72 61 79 25 |....$ fontarray%|
00000280 3d a4 57 69 6d 70 5f 49 6e 69 74 46 6f 6e 74 73 |=.Wimp_InitFonts|
00000290 41 72 72 61 79 0d 01 0e 06 20 e1 0d 01 18 06 20 |Array.... ..... |
000002a0 3a 0d 01 22 1a 20 dd 20 f2 55 73 65 72 5f 4c 6f |:..". . .User_Lo|
000002b0 61 64 52 65 73 6f 75 72 63 65 73 0d 01 2c 38 20 |adResources..,8 |
000002c0 73 70 61 72 65 61 25 3d a4 57 69 6d 70 5f 4c 6f |sparea%=.Wimp_Lo|
000002d0 61 64 53 70 72 69 74 65 73 28 22 3c 52 65 73 69 |adSprites("<Resi|
000002e0 73 74 6f 72 24 44 69 72 3e 2e 53 70 72 69 74 65 |stor$Dir>.Sprite|
000002f0 73 22 29 0d 01 36 33 20 f2 57 69 6d 70 5f 4f 70 |s")..63 .Wimp_Op|
00000300 65 6e 54 65 6d 70 6c 61 74 65 28 22 3c 52 65 73 |enTemplate("<Res|
00000310 69 73 74 6f 72 24 44 69 72 3e 2e 54 65 6d 70 6c |istor$Dir>.Templ|
00000320 61 74 65 73 22 29 0d 01 40 27 20 6c 65 6e 67 74 |ates")..@' lengt|
00000330 68 25 3d 31 35 30 20 3a 20 de 20 69 63 6f 6e 53 |h%=150 : . iconS|
00000340 70 61 63 65 25 20 6c 65 6e 67 74 68 25 0d 01 4a |pace% length%..J|
00000350 57 20 69 6e 66 6f 5f 77 69 6e 64 6f 77 25 3d a4 |W info_window%=.|
00000360 57 69 6d 70 5f 4c 6f 61 64 54 65 6d 70 6c 61 74 |Wimp_LoadTemplat|
00000370 65 46 6f 6e 74 5a 28 22 69 6e 66 6f 22 2c 69 63 |eFontZ("info",ic|
00000380 6f 6e 53 70 61 63 65 25 2c 6c 65 6e 67 74 68 25 |onSpace%,length%|
00000390 2c 73 70 61 72 65 61 25 2c 66 6f 6e 74 61 72 72 |,sparea%,fontarr|
000003a0 61 79 25 29 0d 01 54 27 20 6c 65 6e 67 74 68 25 |ay%)..T' length%|
000003b0 3d 31 34 32 20 3a 20 de 20 69 63 6f 6e 53 70 61 |=142 : . iconSpa|
000003c0 63 65 25 20 6c 65 6e 67 74 68 25 0d 01 5e 58 20 |ce% length%..^X |
000003d0 72 65 73 5f 77 69 6e 64 25 3d a4 57 69 6d 70 5f |res_wind%=.Wimp_|
000003e0 4c 6f 61 64 54 65 6d 70 6c 61 74 65 46 6f 6e 74 |LoadTemplateFont|
000003f0 5a 28 22 52 45 53 49 53 54 4f 52 22 2c 69 63 6f |Z("RESISTOR",ico|
00000400 6e 53 70 61 63 65 25 2c 6c 65 6e 67 74 68 25 2c |nSpace%,length%,|
00000410 73 70 61 72 65 61 25 2c 66 6f 6e 74 61 72 72 61 |sparea%,fontarra|
00000420 79 25 29 0d 01 68 26 20 6c 65 6e 67 74 68 25 3d |y%)..h& length%=|
00000430 35 38 20 3a 20 de 20 69 63 6f 6e 53 70 61 63 65 |58 : . iconSpace|
00000440 25 20 6c 65 6e 67 74 68 25 0d 01 72 50 20 74 79 |% length%..rP ty|
00000450 70 65 25 3d a4 57 69 6d 70 5f 4c 6f 61 64 54 65 |pe%=.Wimp_LoadTe|
00000460 6d 70 6c 61 74 65 46 6f 6e 74 5a 28 22 74 79 70 |mplateFontZ("typ|
00000470 65 22 2c 69 63 6f 6e 53 70 61 63 65 25 2c 6c 65 |e",iconSpace%,le|
00000480 6e 67 74 68 25 2c 73 70 61 72 65 61 25 2c 66 6f |ngth%,sparea%,fo|
00000490 6e 74 61 72 72 61 79 25 29 0d 01 7c 26 20 6c 65 |ntarray%)..|& le|
000004a0 6e 67 74 68 25 3d 38 34 20 3a 20 de 20 69 63 6f |ngth%=84 : . ico|
000004b0 6e 53 70 61 63 65 25 20 6c 65 6e 67 74 68 25 0d |nSpace% length%.|
000004c0 01 86 56 20 63 6f 6c 6f 75 72 73 25 3d a4 57 69 |..V colours%=.Wi|
000004d0 6d 70 5f 4c 6f 61 64 54 65 6d 70 6c 61 74 65 46 |mp_LoadTemplateF|
000004e0 6f 6e 74 5a 28 22 63 6f 6c 6f 75 72 73 22 2c 69 |ontZ("colours",i|
000004f0 63 6f 6e 53 70 61 63 65 25 2c 6c 65 6e 67 74 68 |conSpace%,length|
00000500 25 2c 73 70 61 72 65 61 25 2c 66 6f 6e 74 61 72 |%,sparea%,fontar|
00000510 72 61 79 25 29 0d 01 90 18 20 f2 57 69 6d 70 5f |ray%).... .Wimp_|
00000520 43 6c 6f 73 65 54 65 6d 70 6c 61 74 65 0d 01 9a |CloseTemplate...|
00000530 06 20 e1 0d 01 a4 06 20 3a 0d 01 ae 1b 20 dd 20 |. ..... :.... . |
00000540 f2 55 73 65 72 5f 53 65 74 55 70 52 65 73 6f 75 |.User_SetUpResou|
00000550 72 63 65 73 0d 01 b8 4d 20 69 63 6f 6e 62 61 72 |rces...M iconbar|
00000560 5f 69 63 6f 6e 25 3d a4 57 69 6d 70 5f 43 72 65 |_icon%=.Wimp_Cre|
00000570 61 74 65 49 63 6f 6e 28 2d 31 2c 30 2c 30 2c 38 |ateIcon(-1,0,0,8|
00000580 30 2c 38 30 2c 25 31 31 30 30 30 30 30 30 30 31 |0,80,%1100000001|
00000590 31 30 31 30 2c 22 21 52 65 73 69 73 74 6f 72 22 |1010,"!Resistor"|
000005a0 29 0d 01 c2 06 20 e1 0d 01 cc 06 20 3a 0d 01 d6 |).... ..... :...|
000005b0 0f 20 dd 20 f2 4f 66 66 73 65 74 73 0d 01 e0 2a |. . .Offsets...*|
000005c0 20 ea 20 78 31 25 2c 79 31 25 2c 78 32 25 2c 79 | . x1%,y1%,x2%,y|
000005d0 32 25 2c 78 31 31 25 2c 79 31 31 25 2c 78 32 32 |2%,x11%,y11%,x22|
000005e0 25 2c 79 32 32 25 0d 01 ea 2e 20 e7 20 a4 57 69 |%,y22%.... . .Wi|
000005f0 6d 70 5f 4d 65 6e 75 54 69 63 6b 65 64 28 69 63 |mp_MenuTicked(ic|
00000600 6f 6e 62 61 72 5f 6d 65 6e 75 25 2c 32 29 3d a3 |onbar_menu%,2)=.|
00000610 20 8c 20 e1 0d 01 f4 16 20 21 62 6c 6f 63 6b 25 | . ..... !block%|
00000620 3d 72 65 73 5f 77 69 6e 64 25 0d 01 fe 25 20 c8 |=res_wind%...% .|
00000630 99 20 22 57 69 6d 70 5f 47 65 74 57 69 6e 64 6f |. "Wimp_GetWindo|
00000640 77 53 74 61 74 65 22 2c 2c 62 6c 6f 63 6b 25 0d |wState",,block%.|
00000650 02 08 11 20 78 31 25 3d 62 6c 6f 63 6b 25 21 34 |... x1%=block%!4|
00000660 0d 02 12 11 20 79 31 25 3d 62 6c 6f 63 6b 25 21 |.... y1%=block%!|
00000670 38 0d 02 1c 13 20 78 31 31 25 3d 62 6c 6f 63 6b |8.... x11%=block|
00000680 25 21 31 32 0d 02 26 13 20 79 31 31 25 3d 62 6c |%!12..&. y11%=bl|
00000690 6f 63 6b 25 21 31 36 0d 02 30 15 20 21 62 6c 6f |ock%!16..0. !blo|
000006a0 63 6b 25 3d 63 6f 6c 6f 75 72 73 25 0d 02 3a 25 |ck%=colours%..:%|
000006b0 20 c8 99 20 22 57 69 6d 70 5f 47 65 74 57 69 6e | .. "Wimp_GetWin|
000006c0 64 6f 77 53 74 61 74 65 22 2c 2c 62 6c 6f 63 6b |dowState",,block|
000006d0 25 0d 02 44 11 20 78 32 25 3d 62 6c 6f 63 6b 25 |%..D. x2%=block%|
000006e0 21 34 0d 02 4e 11 20 79 32 25 3d 62 6c 6f 63 6b |!4..N. y2%=block|
000006f0 25 21 38 0d 02 58 13 20 78 32 32 25 3d 62 6c 6f |%!8..X. x22%=blo|
00000700 63 6b 25 21 31 32 0d 02 62 13 20 79 32 32 25 3d |ck%!12..b. y22%=|
00000710 62 6c 6f 63 6b 25 21 31 36 0d 02 6c 13 20 78 6f |block%!16..l. xo|
00000720 66 66 31 25 3d 78 31 25 2d 78 32 25 0d 02 76 13 |ff1%=x1%-x2%..v.|
00000730 20 79 6f 66 66 31 25 3d 79 31 25 2d 79 32 25 0d | yoff1%=y1%-y2%.|
00000740 02 80 15 20 78 6f 66 66 32 25 3d 78 31 31 25 2d |... xoff2%=x11%-|
00000750 78 32 32 25 0d 02 8a 15 20 79 6f 66 66 32 25 3d |x22%.... yoff2%=|
00000760 79 31 31 25 2d 79 32 32 25 0d 02 94 06 20 e1 0d |y11%-y22%.... ..|
00000770 02 9e 06 20 3a 0d 02 a8 24 20 dd 20 f2 4f 70 65 |... :...$ . .Ope|
00000780 6e 52 65 73 69 73 74 6f 72 57 69 6e 64 6f 77 41 |nResistorWindowA|
00000790 4e 44 63 6f 6c 6f 75 72 73 0d 02 b2 2c 20 e7 20 |NDcolours..., . |
000007a0 a4 57 69 6d 70 5f 4d 65 6e 75 54 69 63 6b 65 64 |.Wimp_MenuTicked|
000007b0 28 69 63 6f 6e 62 61 72 5f 6d 65 6e 75 25 2c 32 |(iconbar_menu%,2|
000007c0 29 3d a3 20 8c 0d 02 bc 16 20 21 62 6c 6f 63 6b |)=. ..... !block|
000007d0 25 3d 72 65 73 5f 77 69 6e 64 25 0d 02 c6 25 20 |%=res_wind%...% |
000007e0 c8 99 20 22 57 69 6d 70 5f 47 65 74 57 69 6e 64 |.. "Wimp_GetWind|
000007f0 6f 77 53 74 61 74 65 22 2c 2c 62 6c 6f 63 6b 25 |owState",,block%|
00000800 0d 02 d0 21 20 c8 99 20 22 57 69 6d 70 5f 4f 70 |...! .. "Wimp_Op|
00000810 65 6e 57 69 6e 64 6f 77 22 2c 2c 62 6c 6f 63 6b |enWindow",,block|
00000820 25 0d 02 da 11 20 52 77 69 6e 64 4f 70 65 6e 25 |%.... RwindOpen%|
00000830 3d b9 0d 02 e4 06 20 cc 0d 02 ee 1d 20 ea 20 78 |=..... ..... . x|
00000840 31 25 2c 79 31 25 2c 78 32 25 2c 79 32 25 2c 71 |1%,y1%,x2%,y2%,q|
00000850 25 2c 71 71 25 0d 02 f8 15 20 21 62 6c 6f 63 6b |%,qq%.... !block|
00000860 25 3d 63 6f 6c 6f 75 72 73 25 0d 03 02 25 20 c8 |%=colours%...% .|
00000870 99 20 22 57 69 6d 70 5f 47 65 74 57 69 6e 64 6f |. "Wimp_GetWindo|
00000880 77 53 74 61 74 65 22 2c 2c 62 6c 6f 63 6b 25 0d |wState",,block%.|
00000890 03 0c 11 20 71 25 3d 62 6c 6f 63 6b 25 21 32 38 |... q%=block%!28|
000008a0 0d 03 16 16 20 21 62 6c 6f 63 6b 25 3d 72 65 73 |.... !block%=res|
000008b0 5f 77 69 6e 64 25 0d 03 20 25 20 c8 99 20 22 57 |_wind%.. % .. "W|
000008c0 69 6d 70 5f 47 65 74 57 69 6e 64 6f 77 53 74 61 |imp_GetWindowSta|
000008d0 74 65 22 2c 2c 62 6c 6f 63 6b 25 0d 03 2a 11 20 |te",,block%..*. |
000008e0 78 31 25 3d 62 6c 6f 63 6b 25 21 34 0d 03 34 11 |x1%=block%!4..4.|
000008f0 20 79 31 25 3d 62 6c 6f 63 6b 25 21 38 0d 03 3e | y1%=block%!8..>|
00000900 12 20 78 32 25 3d 62 6c 6f 63 6b 25 21 31 32 0d |. x2%=block%!12.|
00000910 03 48 12 20 79 32 25 3d 62 6c 6f 63 6b 25 21 31 |.H. y2%=block%!1|
00000920 36 0d 03 52 12 20 71 71 25 3d 62 6c 6f 63 6b 25 |6..R. qq%=block%|
00000930 21 32 38 0d 03 5c 11 20 62 6c 6f 63 6b 25 21 32 |!28..\. block%!2|
00000940 38 3d 71 25 0d 03 66 21 20 c8 99 20 22 57 69 6d |8=q%..f! .. "Wim|
00000950 70 5f 4f 70 65 6e 57 69 6e 64 6f 77 22 2c 2c 62 |p_OpenWindow",,b|
00000960 6c 6f 63 6b 25 0d 03 70 15 20 21 62 6c 6f 63 6b |lock%..p. !block|
00000970 25 3d 63 6f 6c 6f 75 72 73 25 0d 03 7a 25 20 c8 |%=colours%..z% .|
00000980 99 20 22 57 69 6d 70 5f 47 65 74 57 69 6e 64 6f |. "Wimp_GetWindo|
00000990 77 53 74 61 74 65 22 2c 2c 62 6c 6f 63 6b 25 0d |wState",,block%.|
000009a0 03 84 18 20 62 6c 6f 63 6b 25 21 34 3d 78 31 25 |... block%!4=x1%|
000009b0 2d 78 6f 66 66 31 25 0d 03 8e 18 20 62 6c 6f 63 |-xoff1%.... bloc|
000009c0 6b 25 21 38 3d 79 31 25 2d 79 6f 66 66 31 25 0d |k%!8=y1%-yoff1%.|
000009d0 03 98 19 20 62 6c 6f 63 6b 25 21 31 32 3d 78 32 |... block%!12=x2|
000009e0 25 2d 78 6f 66 66 32 25 0d 03 a2 19 20 62 6c 6f |%-xoff2%.... blo|
000009f0 63 6b 25 21 31 36 3d 79 32 25 2d 79 6f 66 66 32 |ck%!16=y2%-yoff2|
00000a00 25 0d 03 ac 12 20 62 6c 6f 63 6b 25 21 32 38 3d |%.... block%!28=|
00000a10 71 71 25 0d 03 b6 21 20 c8 99 20 22 57 69 6d 70 |qq%...! .. "Wimp|
00000a20 5f 4f 70 65 6e 57 69 6e 64 6f 77 22 2c 2c 62 6c |_OpenWindow",,bl|
00000a30 6f 63 6b 25 0d 03 c0 11 20 52 77 69 6e 64 4f 70 |ock%.... RwindOp|
00000a40 65 6e 25 3d b9 0d 03 ca 06 20 cd 0d 03 d4 06 20 |en%=..... ..... |
00000a50 e1 0d 03 de 06 20 3a 0d 03 e8 17 20 dd 20 f2 55 |..... :.... . .U|
00000a60 73 65 72 5f 53 65 74 55 70 4d 65 6e 75 73 0d 03 |ser_SetUpMenus..|
00000a70 f2 42 20 c8 99 20 22 46 6f 6e 74 5f 46 69 6e 64 |.B .. "Font_Find|
00000a80 46 6f 6e 74 22 2c 2c 22 68 6f 6d 65 72 74 6f 6e |Font",,"homerton|
00000a90 2e 6d 65 64 69 75 6d 22 2c 31 36 2a 31 32 2c 31 |.medium",16*12,1|
00000aa0 36 2a 31 32 20 b8 20 68 6f 6d 65 72 74 6f 6e 25 |6*12 . homerton%|
00000ab0 0d 03 fc 88 20 69 63 6f 6e 62 61 72 5f 6d 65 6e |.... iconbar_men|
00000ac0 75 25 3d a4 57 69 6d 70 5f 73 65 74 75 70 6d 65 |u%=.Wimp_setupme|
00000ad0 6e 75 46 72 6f 6d 53 74 72 69 6e 67 46 6f 6e 74 |nuFromStringFont|
00000ae0 79 69 74 65 6d 73 28 61 70 70 24 2b 22 5c 49 6e |yitems(app$+"\In|
00000af0 66 6f 3e 22 2b 28 c3 20 69 6e 66 6f 5f 77 69 6e |fo>"+(. info_win|
00000b00 64 6f 77 25 29 2b 22 5c 54 79 70 65 3e 22 2b 28 |dow%)+"\Type>"+(|
00000b10 c3 20 74 79 70 65 25 29 2b 22 5c 53 68 6f 77 20 |. type%)+"\Show |
00000b20 63 6f 6c 6f 75 72 73 5c 51 75 69 74 22 2c 68 6f |colours\Quit",ho|
00000b30 6d 65 72 74 6f 6e 25 29 0d 04 06 2a 20 f2 57 69 |merton%)...* .Wi|
00000b40 6d 70 5f 4d 65 6e 75 44 6f 74 74 65 64 4c 69 6e |mp_MenuDottedLin|
00000b50 65 28 69 63 6f 6e 62 61 72 5f 6d 65 6e 75 25 2c |e(iconbar_menu%,|
00000b60 30 29 0d 04 10 2a 20 f2 57 69 6d 70 5f 4d 65 6e |0)...* .Wimp_Men|
00000b70 75 44 6f 74 74 65 64 4c 69 6e 65 28 69 63 6f 6e |uDottedLine(icon|
00000b80 62 61 72 5f 6d 65 6e 75 25 2c 32 29 0d 04 1a 28 |bar_menu%,2)...(|
00000b90 20 f2 57 69 6d 70 5f 4d 65 6e 75 54 69 63 6b 49 | .Wimp_MenuTickI|
00000ba0 74 65 6d 28 69 63 6f 6e 62 61 72 5f 6d 65 6e 75 |tem(iconbar_menu|
00000bb0 25 2c 32 29 0d 04 24 06 20 e1 0d 04 2e 06 20 3a |%,2)..$. ..... :|
00000bc0 0d 04 38 1b 20 dd 20 f2 55 73 65 72 5f 41 70 70 |..8. . .User_App|
00000bd0 43 6c 6f 73 69 6e 67 44 6f 77 6e 0d 04 42 21 20 |ClosingDown..B! |
00000be0 c8 99 20 22 46 6f 6e 74 5f 4c 6f 73 65 46 6f 6e |.. "Font_LoseFon|
00000bf0 74 22 2c 68 6f 6d 65 72 74 6f 6e 25 0d 04 4c 27 |t",homerton%..L'|
00000c00 20 f2 57 69 6d 70 5f 52 65 6d 6f 76 65 46 6f 6e | .Wimp_RemoveFon|
00000c10 74 73 41 72 72 61 79 28 66 6f 6e 74 61 72 72 61 |tsArray(fontarra|
00000c20 79 25 29 0d 04 56 06 20 e1 0d 04 60 06 20 3a 0d |y%)..V. ...`. :.|
00000c30 04 6a 11 20 dd 20 f2 55 73 65 72 5f 50 6f 6c 6c |.j. . .User_Poll|
00000c40 0d 04 74 2a 20 c8 99 20 22 57 69 6d 70 5f 50 6f |..t* .. "Wimp_Po|
00000c50 6c 6c 22 2c 26 33 38 33 33 2c 62 6c 6f 63 6b 25 |ll",&3833,block%|
00000c60 20 b8 20 72 65 61 73 6f 6e 25 0d 04 7e 11 20 c8 | . reason%..~. .|
00000c70 8e 20 72 65 61 73 6f 6e 25 20 ca 0d 04 88 25 20 |. reason% ....% |
00000c80 c9 20 32 3a c8 99 20 22 57 69 6d 70 5f 4f 70 65 |. 2:.. "Wimp_Ope|
00000c90 6e 57 69 6e 64 6f 77 22 2c 2c 62 6c 6f 63 6b 25 |nWindow",,block%|
00000ca0 0d 04 92 3f 20 20 20 20 20 20 20 20 e7 20 21 62 |...? . !b|
00000cb0 6c 6f 63 6b 25 3d 72 65 73 5f 77 69 6e 64 25 20 |lock%=res_wind% |
00000cc0 8c 20 f2 4f 70 65 6e 52 65 73 69 73 74 6f 72 57 |. .OpenResistorW|
00000cd0 69 6e 64 6f 77 41 4e 44 63 6f 6c 6f 75 72 73 0d |indowANDcolours.|
00000ce0 04 9c 29 20 20 20 20 20 20 20 20 e7 20 21 62 6c |..) . !bl|
00000cf0 6f 63 6b 25 3d 63 6f 6c 6f 75 72 73 25 20 8c 20 |ock%=colours% . |
00000d00 f2 4f 66 66 73 65 74 73 0d 04 a6 26 20 c9 20 33 |.Offsets...& . 3|
00000d10 3a c8 99 20 22 57 69 6d 70 5f 43 6c 6f 73 65 57 |:.. "Wimp_CloseW|
00000d20 69 6e 64 6f 77 22 2c 2c 62 6c 6f 63 6b 25 0d 04 |indow",,block%..|
00000d30 b0 61 20 20 20 20 20 20 20 20 e7 20 21 62 6c 6f |.a . !blo|
00000d40 63 6b 25 3d 72 65 73 5f 77 69 6e 64 25 20 8c 20 |ck%=res_wind% . |
00000d50 21 62 6c 6f 63 6b 25 3d 63 6f 6c 6f 75 72 73 25 |!block%=colours%|
00000d60 20 3a 20 c8 99 20 22 57 69 6d 70 5f 43 6c 6f 73 | : .. "Wimp_Clos|
00000d70 65 57 69 6e 64 6f 77 22 2c 2c 62 6c 6f 63 6b 25 |eWindow",,block%|
00000d80 20 3a 20 52 77 69 6e 64 4f 70 65 6e 25 3d a3 0d | : RwindOpen%=..|
00000d90 04 ba 37 20 c9 20 36 3a f2 50 6f 6c 6c 5f 4d 6f |..7 . 6:.Poll_Mo|
00000da0 75 73 65 43 6c 69 63 6b 28 62 6c 6f 63 6b 25 21 |useClick(block%!|
00000db0 31 32 2c 62 6c 6f 63 6b 25 21 31 36 2c 62 6c 6f |12,block%!16,blo|
00000dc0 63 6b 25 21 38 29 0d 04 c4 16 20 c9 20 37 3a f2 |ck%!8).... . 7:.|
00000dd0 50 6f 6c 6c 5f 45 6e 64 44 72 61 67 0d 04 ce 33 |Poll_EndDrag...3|
00000de0 20 c9 20 38 3a f2 50 6f 6c 6c 5f 4b 65 79 50 72 | . 8:.Poll_KeyPr|
00000df0 65 73 73 28 21 62 6c 6f 63 6b 25 2c 62 6c 6f 63 |ess(!block%,bloc|
00000e00 6b 25 21 34 2c 62 6c 6f 63 6b 25 21 32 34 29 0d |k%!4,block%!24).|
00000e10 04 d8 1c 20 c9 20 39 3a f2 50 6f 6c 6c 5f 4d 65 |... . 9:.Poll_Me|
00000e20 6e 75 53 65 6c 65 63 74 69 6f 6e 0d 04 e2 2f 20 |nuSelection.../ |
00000e30 c9 20 31 37 2c 31 38 20 3a f2 50 6f 6c 6c 5f 49 |. 17,18 :.Poll_I|
00000e40 6e 63 6f 6d 6d 69 6e 67 4d 65 73 73 61 67 65 28 |ncommingMessage(|
00000e50 62 6c 6f 63 6b 25 21 31 36 29 0d 04 ec 06 20 cb |block%!16).... .|
00000e60 0d 04 f6 06 20 e1 0d 05 00 06 20 3a 0d 05 0a 2e |.... ..... :....|
00000e70 20 dd 20 f2 50 6f 6c 6c 5f 4d 6f 75 73 65 43 6c | . .Poll_MouseCl|
00000e80 69 63 6b 28 77 69 6e 64 6f 77 25 2c 69 63 6f 6e |ick(window%,icon|
00000e90 25 2c 62 75 74 74 6f 6e 25 29 0d 05 14 4e 20 f4 |%,button%)...N .|
00000ea0 20 44 6f 6e 27 74 20 66 6f 72 67 65 74 20 77 68 | Don't forget wh|
00000eb0 65 6e 20 79 6f 75 20 61 72 65 20 6f 70 65 6e 69 |en you are openi|
00000ec0 6e 67 20 6d 65 6e 75 73 20 79 6f 75 20 6d 75 73 |ng menus you mus|
00000ed0 74 20 75 70 20 64 61 74 65 20 3c 43 75 72 72 65 |t up date <Curre|
00000ee0 6e 74 4d 65 6e 75 25 3e 0d 05 1e 0f 20 ea 20 78 |ntMenu%>.... . x|
00000ef0 25 2c 79 25 2c 61 24 0d 05 28 11 20 c8 8e 20 77 |%,y%,a$..(. .. w|
00000f00 69 6e 64 6f 77 25 20 ca 0d 05 32 34 20 20 20 20 |indow% ...24 |
00000f10 20 20 c9 20 2d 32 20 20 20 3a f2 4d 6f 75 73 65 | . -2 :.Mouse|
00000f20 43 6c 69 63 6b 5f 49 63 6f 6e 42 61 72 28 69 63 |Click_IconBar(ic|
00000f30 6f 6e 25 2c 62 75 74 74 6f 6e 25 29 0d 05 3c 1c |on%,button%)..<.|
00000f40 20 20 20 20 20 20 c9 20 74 79 70 65 25 3a f2 43 | . type%:.C|
00000f50 61 6c 63 75 6c 61 74 65 0d 05 46 3a 20 20 20 20 |alculate..F: |
00000f60 20 20 c9 20 63 6f 6c 6f 75 72 73 25 3a f2 4d 6f | . colours%:.Mo|
00000f70 75 73 65 43 6c 69 63 6b 5f 43 6f 6c 6f 75 72 73 |useClick_Colours|
00000f80 42 61 72 28 69 63 6f 6e 25 2c 62 75 74 74 6f 6e |Bar(icon%,button|
00000f90 25 29 0d 05 50 06 20 cb 0d 05 5a 06 20 e1 0d 05 |%)..P. ...Z. ...|
00000fa0 64 06 20 3a 0d 05 6e 29 20 dd 20 f2 4d 6f 75 73 |d. :..n) . .Mous|
00000fb0 65 43 6c 69 63 6b 5f 49 63 6f 6e 42 61 72 28 69 |eClick_IconBar(i|
00000fc0 63 6f 6e 25 2c 62 75 74 74 6f 6e 25 29 0d 05 78 |con%,button%)..x|
00000fd0 11 20 c8 8e 20 62 75 74 74 6f 6e 25 20 ca 0d 05 |. .. button% ...|
00000fe0 82 2e 20 20 20 20 20 20 c9 20 31 2c 34 3a 20 f2 |.. . 1,4: .|
00000ff0 4f 70 65 6e 52 65 73 69 73 74 6f 72 57 69 6e 64 |OpenResistorWind|
00001000 6f 77 41 4e 44 63 6f 6c 6f 75 72 73 0d 05 8c 42 |owANDcolours...B|
00001010 20 20 20 20 20 20 c9 20 32 3a 20 f2 57 69 6d 70 | . 2: .Wimp|
00001020 5f 53 68 6f 77 4d 65 6e 75 49 63 6f 6e 42 61 72 |_ShowMenuIconBar|
00001030 28 69 63 6f 6e 62 61 72 5f 6d 65 6e 75 25 2c 21 |(iconbar_menu%,!|
00001040 62 6c 6f 63 6b 25 2d 36 34 2c 34 2c 32 29 0d 05 |block%-64,4,2)..|
00001050 96 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |., |
00001060 43 75 72 72 65 6e 74 4d 65 6e 75 25 3d 69 63 6f |CurrentMenu%=ico|
00001070 6e 62 61 72 5f 6d 65 6e 75 25 0d 05 a0 06 20 cb |nbar_menu%.... .|
00001080 0d 05 aa 06 20 e1 0d 05 b4 06 20 3a 0d 05 be 2c |.... ..... :...,|
00001090 20 dd 20 f2 4d 6f 75 73 65 43 6c 69 63 6b 5f 43 | . .MouseClick_C|
000010a0 6f 6c 6f 75 72 73 42 61 72 28 69 63 6f 6e 25 2c |oloursBar(icon%,|
000010b0 62 75 74 74 6f 6e 25 29 0d 05 c8 20 20 e7 20 62 |button%)... . b|
000010c0 75 74 74 6f 6e 25 3d 31 36 20 84 20 62 75 74 74 |utton%=16 . butt|
000010d0 6f 6e 25 3d 36 34 20 8c 0d 05 d2 41 20 20 20 20 |on%=64 ....A |
000010e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000010f0 20 20 20 20 20 20 20 20 20 20 20 20 f2 57 69 6d | .Wim|
00001100 70 5f 44 72 61 67 42 6f 78 28 63 6f 6c 6f 75 72 |p_DragBox(colour|
00001110 73 25 2c 69 63 6f 6e 25 29 0d 05 dc 57 20 20 20 |s%,icon%)...W |
00001120 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001130 20 20 20 20 20 20 20 20 20 20 20 20 20 63 75 72 | cur|
00001140 72 65 6e 74 64 72 61 67 25 3d 63 6f 6c 6f 75 72 |rentdrag%=colour|
00001150 73 25 20 3a 20 63 75 72 72 65 6e 74 63 6f 6c 6f |s% : currentcolo|
00001160 75 72 64 72 61 67 67 65 64 25 3d 69 63 6f 6e 25 |urdragged%=icon%|
00001170 0d 05 e6 06 20 cd 0d 05 f0 06 20 e1 0d 05 fa 06 |.... ..... .....|
00001180 20 3a 0d 06 04 29 20 dd 20 f2 50 6f 6c 6c 5f 4b | :...) . .Poll_K|
00001190 65 79 50 72 65 73 73 28 77 69 6e 64 6f 77 25 2c |eyPress(window%,|
000011a0 69 63 6f 6e 25 2c 6b 65 79 25 29 0d 06 0e 11 20 |icon%,key%).... |
000011b0 c8 8e 20 77 69 6e 64 6f 77 25 20 ca 0d 06 18 47 |.. window% ....G|
000011c0 20 20 20 20 20 20 c9 20 72 65 73 5f 77 69 6e 64 | . res_wind|
000011d0 25 20 3a 20 e7 20 6b 65 79 25 3d 31 33 20 8c 20 |% : . key%=13 . |
000011e0 f2 43 61 6c 63 75 6c 61 74 65 20 8b 20 f2 57 69 |.Calculate . .Wi|
000011f0 6d 70 5f 50 72 6f 63 65 73 73 4b 65 79 28 6b 65 |mp_ProcessKey(ke|
00001200 79 25 29 0d 06 22 24 20 20 20 20 20 20 7f 20 3a |y%).."$ . :|
00001210 20 f2 57 69 6d 70 5f 50 72 6f 63 65 73 73 4b 65 | .Wimp_ProcessKe|
00001220 79 28 6b 65 79 25 29 0d 06 2c 06 20 cb 0d 06 36 |y(key%)..,. ...6|
00001230 06 20 e1 0d 06 40 06 20 3a 0d 06 4a 14 20 dd 20 |. ...@. :..J. . |
00001240 f2 50 6f 6c 6c 5f 45 6e 64 44 72 61 67 0d 06 54 |.Poll_EndDrag..T|
00001250 19 20 ea 20 77 69 6e 64 25 2c 69 63 6f 6e 25 2c |. . wind%,icon%,|
00001260 71 25 2c 71 71 25 0d 06 5e 27 20 f2 57 69 6d 70 |q%,qq%..^' .Wimp|
00001270 5f 43 68 61 6e 67 65 50 6f 69 6e 74 65 72 28 22 |_ChangePointer("|
00001280 70 74 72 5f 64 65 66 61 75 6c 74 22 29 0d 06 68 |ptr_default")..h|
00001290 1e 20 e7 20 63 75 72 72 65 6e 74 64 72 61 67 25 |. . currentdrag%|
000012a0 3d 63 6f 6c 6f 75 72 73 25 20 8c 0d 06 72 25 20 |=colours% ...r% |
000012b0 c8 99 20 22 57 69 6d 70 5f 47 65 74 50 6f 69 6e |.. "Wimp_GetPoin|
000012c0 74 65 72 49 6e 66 6f 22 2c 2c 62 6c 6f 63 6b 25 |terInfo",,block%|
000012d0 0d 06 7c 26 20 77 69 6e 64 25 3d 62 6c 6f 63 6b |..|& wind%=block|
000012e0 25 21 31 32 20 3a 20 69 63 6f 6e 25 3d 62 6c 6f |%!12 : icon%=blo|
000012f0 63 6b 25 21 31 36 0d 06 86 35 20 c8 99 20 22 57 |ck%!16...5 .. "W|
00001300 69 6d 70 5f 57 68 69 63 68 49 63 6f 6e 22 2c 74 |imp_WhichIcon",t|
00001310 79 70 65 25 2c 62 6c 6f 63 6b 25 2c 26 33 46 30 |ype%,block%,&3F0|
00001320 30 30 30 2c 26 32 31 30 30 30 30 0d 06 90 12 20 |000,&210000.... |
00001330 71 25 3d 31 32 2d 21 62 6c 6f 63 6b 25 0d 06 9a |q%=12-!block%...|
00001340 76 20 e7 20 77 69 6e 64 25 3d 72 65 73 5f 77 69 |v . wind%=res_wi|
00001350 6e 64 25 20 80 20 69 63 6f 6e 25 3e 3d 71 25 20 |nd% . icon%>=q% |
00001360 80 20 28 28 69 63 6f 6e 25 3c 3d 31 33 20 80 20 |. ((icon%<=13 . |
00001370 63 75 72 72 65 6e 74 63 6f 6c 6f 75 72 64 72 61 |currentcolourdra|
00001380 67 67 65 64 25 3c 31 30 29 20 84 20 28 69 63 6f |gged%<10) . (ico|
00001390 6e 25 3d 31 34 20 80 20 63 75 72 72 65 6e 74 63 |n%=14 . currentc|
000013a0 6f 6c 6f 75 72 64 72 61 67 67 65 64 25 3c 38 29 |olourdragged%<8)|
000013b0 29 20 8c 0d 06 a4 11 20 71 71 25 3d 69 63 6f 6e |) ..... qq%=icon|
000013c0 25 2d 31 31 0d 06 ae 49 20 f2 57 69 6d 70 5f 57 |%-11...I .Wimp_W|
000013d0 72 69 74 65 49 63 6f 6e 56 61 6c 69 64 61 74 69 |riteIconValidati|
000013e0 6f 6e 28 72 65 73 5f 77 69 6e 64 25 2c 71 71 25 |on(res_wind%,qq%|
000013f0 2c 22 53 22 2b c3 20 63 75 72 72 65 6e 74 63 6f |,"S"+. currentco|
00001400 6c 6f 75 72 64 72 61 67 67 65 64 25 29 0d 06 b8 |lourdragged%)...|
00001410 11 20 f2 52 65 43 61 6c 63 75 6c 61 74 65 0d 06 |. .ReCalculate..|
00001420 c2 06 20 cd 0d 06 cc 23 20 e7 20 77 69 6e 64 25 |.. ....# . wind%|
00001430 3d 72 65 73 5f 77 69 6e 64 25 20 80 20 69 63 6f |=res_wind% . ico|
00001440 6e 25 3d 31 35 20 8c 0d 06 d6 1f 20 c8 8e 20 63 |n%=15 ..... .. c|
00001450 75 72 72 65 6e 74 63 6f 6c 6f 75 72 64 72 61 67 |urrentcolourdrag|
00001460 67 65 64 25 20 ca 0d 06 e0 38 20 20 20 20 20 c9 |ged% ....8 .|
00001470 20 31 3a f2 57 69 6d 70 5f 57 72 69 74 65 49 63 | 1:.Wimp_WriteIc|
00001480 6f 6e 56 61 6c 69 64 61 74 69 6f 6e 28 72 65 73 |onValidation(res|
00001490 5f 77 69 6e 64 25 2c 34 2c 22 53 31 22 29 0d 06 |_wind%,4,"S1")..|
000014a0 ea 34 20 20 20 20 20 20 20 20 20 20 20 20 f2 57 |.4 .W|
000014b0 69 6d 70 5f 57 72 69 74 65 49 63 6f 6e 54 65 78 |imp_WriteIconTex|
000014c0 74 28 72 65 73 5f 77 69 6e 64 25 2c 39 2c 22 31 |t(res_wind%,9,"1|
000014d0 22 29 0d 06 f4 32 20 20 20 20 20 20 20 20 20 20 |")...2 |
000014e0 20 20 c8 99 20 22 57 69 6d 70 5f 47 65 74 43 61 | .. "Wimp_GetCa|
000014f0 72 65 74 50 6f 73 69 74 69 6f 6e 22 2c 2c 62 6c |retPosition",,bl|
00001500 6f 63 6b 25 0d 06 fe 32 20 20 20 20 20 20 20 20 |ock%...2 |
00001510 20 20 20 20 e7 20 21 62 6c 6f 63 6b 25 3d 72 65 | . !block%=re|
00001520 73 5f 77 69 6e 64 25 20 80 20 62 6c 6f 63 6b 25 |s_wind% . block%|
00001530 21 34 3d 39 20 8c 0d 07 08 41 20 20 20 20 20 20 |!4=9 ....A |
00001540 20 20 20 20 20 20 20 20 20 20 c8 99 20 22 57 69 | .. "Wi|
00001550 6d 70 5f 53 65 74 43 61 72 65 74 50 6f 73 69 74 |mp_SetCaretPosit|
00001560 69 6f 6e 22 2c 72 65 73 5f 77 69 6e 64 25 2c 39 |ion",res_wind%,9|
00001570 2c 2c 2c 2d 31 2c 31 0d 07 12 11 20 20 20 20 20 |,,,-1,1.... |
00001580 20 20 20 20 20 20 20 cd 0d 07 1c 38 20 20 20 20 | ....8 |
00001590 20 c9 20 32 3a f2 57 69 6d 70 5f 57 72 69 74 65 | . 2:.Wimp_Write|
000015a0 49 63 6f 6e 56 61 6c 69 64 61 74 69 6f 6e 28 72 |IconValidation(r|
000015b0 65 73 5f 77 69 6e 64 25 2c 34 2c 22 53 32 22 29 |es_wind%,4,"S2")|
000015c0 0d 07 26 34 20 20 20 20 20 20 20 20 20 20 20 20 |..&4 |
000015d0 f2 57 69 6d 70 5f 57 72 69 74 65 49 63 6f 6e 54 |.Wimp_WriteIconT|
000015e0 65 78 74 28 72 65 73 5f 77 69 6e 64 25 2c 39 2c |ext(res_wind%,9,|
000015f0 22 32 22 29 0d 07 30 32 20 20 20 20 20 20 20 20 |"2")..02 |
00001600 20 20 20 20 c8 99 20 22 57 69 6d 70 5f 47 65 74 | .. "Wimp_Get|
00001610 43 61 72 65 74 50 6f 73 69 74 69 6f 6e 22 2c 2c |CaretPosition",,|
00001620 62 6c 6f 63 6b 25 0d 07 3a 32 20 20 20 20 20 20 |block%..:2 |
00001630 20 20 20 20 20 20 e7 20 21 62 6c 6f 63 6b 25 3d | . !block%=|
00001640 72 65 73 5f 77 69 6e 64 25 20 80 20 62 6c 6f 63 |res_wind% . bloc|
00001650 6b 25 21 34 3d 39 20 8c 0d 07 44 41 20 20 20 20 |k%!4=9 ...DA |
00001660 20 20 20 20 20 20 20 20 20 20 20 20 c8 99 20 22 | .. "|
00001670 57 69 6d 70 5f 53 65 74 43 61 72 65 74 50 6f 73 |Wimp_SetCaretPos|
00001680 69 74 69 6f 6e 22 2c 72 65 73 5f 77 69 6e 64 25 |ition",res_wind%|
00001690 2c 39 2c 2c 2c 2d 31 2c 31 0d 07 4e 11 20 20 20 |,9,,,-1,1..N. |
000016a0 20 20 20 20 20 20 20 20 20 cd 0d 07 58 3a 20 20 | ...X: |
000016b0 20 20 20 c9 20 31 30 3a f2 57 69 6d 70 5f 57 72 | . 10:.Wimp_Wr|
000016c0 69 74 65 49 63 6f 6e 56 61 6c 69 64 61 74 69 6f |iteIconValidatio|
000016d0 6e 28 72 65 73 5f 77 69 6e 64 25 2c 34 2c 22 53 |n(res_wind%,4,"S|
000016e0 35 25 22 29 0d 07 62 34 20 20 20 20 20 20 20 20 |5%")..b4 |
000016f0 20 20 20 20 f2 57 69 6d 70 5f 57 72 69 74 65 49 | .Wimp_WriteI|
00001700 63 6f 6e 54 65 78 74 28 72 65 73 5f 77 69 6e 64 |conText(res_wind|
00001710 25 2c 39 2c 22 35 22 29 0d 07 6c 32 20 20 20 20 |%,9,"5")..l2 |
00001720 20 20 20 20 20 20 20 20 c8 99 20 22 57 69 6d 70 | .. "Wimp|
00001730 5f 47 65 74 43 61 72 65 74 50 6f 73 69 74 69 6f |_GetCaretPositio|
00001740 6e 22 2c 2c 62 6c 6f 63 6b 25 0d 07 76 32 20 20 |n",,block%..v2 |
00001750 20 20 20 20 20 20 20 20 20 20 e7 20 21 62 6c 6f | . !blo|
00001760 63 6b 25 3d 72 65 73 5f 77 69 6e 64 25 20 80 20 |ck%=res_wind% . |
00001770 62 6c 6f 63 6b 25 21 34 3d 39 20 8c 0d 07 80 41 |block%!4=9 ....A|
00001780 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001790 c8 99 20 22 57 69 6d 70 5f 53 65 74 43 61 72 65 |.. "Wimp_SetCare|
000017a0 74 50 6f 73 69 74 69 6f 6e 22 2c 72 65 73 5f 77 |tPosition",res_w|
000017b0 69 6e 64 25 2c 39 2c 2c 2c 2d 31 2c 31 0d 07 8a |ind%,9,,,-1,1...|
000017c0 11 20 20 20 20 20 20 20 20 20 20 20 20 cd 0d 07 |. ...|
000017d0 94 3b 20 20 20 20 20 c9 20 31 31 3a f2 57 69 6d |.; . 11:.Wim|
000017e0 70 5f 57 72 69 74 65 49 63 6f 6e 56 61 6c 69 64 |p_WriteIconValid|
000017f0 61 74 69 6f 6e 28 72 65 73 5f 77 69 6e 64 25 2c |ation(res_wind%,|
00001800 34 2c 22 53 31 30 25 22 29 0d 07 9e 35 20 20 20 |4,"S10%")...5 |
00001810 20 20 20 20 20 20 20 20 20 f2 57 69 6d 70 5f 57 | .Wimp_W|
00001820 72 69 74 65 49 63 6f 6e 54 65 78 74 28 72 65 73 |riteIconText(res|
00001830 5f 77 69 6e 64 25 2c 39 2c 22 31 30 22 29 0d 07 |_wind%,9,"10")..|
00001840 a8 32 20 20 20 20 20 20 20 20 20 20 20 20 c8 99 |.2 ..|
00001850 20 22 57 69 6d 70 5f 47 65 74 43 61 72 65 74 50 | "Wimp_GetCaretP|
00001860 6f 73 69 74 69 6f 6e 22 2c 2c 62 6c 6f 63 6b 25 |osition",,block%|
00001870 0d 07 b2 32 20 20 20 20 20 20 20 20 20 20 20 20 |...2 |
00001880 e7 20 21 62 6c 6f 63 6b 25 3d 72 65 73 5f 77 69 |. !block%=res_wi|
00001890 6e 64 25 20 80 20 62 6c 6f 63 6b 25 21 34 3d 39 |nd% . block%!4=9|
000018a0 20 8c 0d 07 bc 41 20 20 20 20 20 20 20 20 20 20 | ....A |
000018b0 20 20 20 20 20 20 c8 99 20 22 57 69 6d 70 5f 53 | .. "Wimp_S|
000018c0 65 74 43 61 72 65 74 50 6f 73 69 74 69 6f 6e 22 |etCaretPosition"|
000018d0 2c 72 65 73 5f 77 69 6e 64 25 2c 39 2c 2c 2c 2d |,res_wind%,9,,,-|
000018e0 31 2c 32 0d 07 c6 11 20 20 20 20 20 20 20 20 20 |1,2.... |
000018f0 20 20 20 cd 0d 07 d0 06 20 cb 0d 07 da 06 20 cd | ..... ..... .|
00001900 0d 07 e4 06 20 cd 0d 07 ee 06 20 e1 0d 07 f8 06 |.... ..... .....|
00001910 20 3a 0d 08 02 13 20 dd 20 f2 52 65 43 61 6c 63 | :.... . .ReCalc|
00001920 75 6c 61 74 65 0d 08 0c 25 20 ea 20 71 30 25 2c |ulate...% . q0%,|
00001930 71 31 25 2c 71 32 25 2c 71 33 25 2c 71 24 2c 72 |q1%,q2%,q3%,q$,r|
00001940 65 73 69 73 74 61 6e 63 65 25 0d 08 16 33 20 71 |esistance%...3 q|
00001950 30 25 3d bb 28 c2 a4 57 69 6d 70 5f 52 65 61 64 |0%=.(..Wimp_Read|
00001960 49 63 6f 6e 56 61 6c 69 64 61 74 69 6f 6e 28 72 |IconValidation(r|
00001970 65 73 5f 77 69 6e 64 25 2c 30 29 29 29 0d 08 20 |es_wind%,0))).. |
00001980 33 20 71 31 25 3d bb 28 c2 a4 57 69 6d 70 5f 52 |3 q1%=.(..Wimp_R|
00001990 65 61 64 49 63 6f 6e 56 61 6c 69 64 61 74 69 6f |eadIconValidatio|
000019a0 6e 28 72 65 73 5f 77 69 6e 64 25 2c 31 29 29 29 |n(res_wind%,1)))|
000019b0 0d 08 2a 33 20 71 32 25 3d bb 28 c2 a4 57 69 6d |..*3 q2%=.(..Wim|
000019c0 70 5f 52 65 61 64 49 63 6f 6e 56 61 6c 69 64 61 |p_ReadIconValida|
000019d0 74 69 6f 6e 28 72 65 73 5f 77 69 6e 64 25 2c 32 |tion(res_wind%,2|
000019e0 29 29 29 0d 08 34 33 20 71 33 25 3d bb 28 c2 a4 |)))..43 q3%=.(..|
000019f0 57 69 6d 70 5f 52 65 61 64 49 63 6f 6e 56 61 6c |Wimp_ReadIconVal|
00001a00 69 64 61 74 69 6f 6e 28 72 65 73 5f 77 69 6e 64 |idation(res_wind|
00001a10 25 2c 33 29 29 29 0d 08 3e 35 20 c8 99 20 22 57 |%,3)))..>5 .. "W|
00001a20 69 6d 70 5f 57 68 69 63 68 49 63 6f 6e 22 2c 74 |imp_WhichIcon",t|
00001a30 79 70 65 25 2c 62 6c 6f 63 6b 25 2c 26 33 46 30 |ype%,block%,&3F0|
00001a40 30 30 30 2c 26 32 31 30 30 30 30 0d 08 48 11 20 |000,&210000..H. |
00001a50 c8 8e 20 21 62 6c 6f 63 6b 25 20 ca 0d 08 52 34 |.. !block% ...R4|
00001a60 20 20 20 20 20 20 20 20 c9 20 30 3a 20 72 65 73 | . 0: res|
00001a70 69 73 74 61 6e 63 65 25 3d 28 28 71 31 25 2a 31 |istance%=((q1%*1|
00001a80 30 29 2b 71 32 25 29 2a 28 31 30 5e 71 33 25 29 |0)+q2%)*(10^q3%)|
00001a90 0d 08 5c 3e 20 20 20 20 20 20 20 20 c9 20 31 3a |..\> . 1:|
00001aa0 20 72 65 73 69 73 74 61 6e 63 65 25 3d 28 28 71 | resistance%=((q|
00001ab0 30 25 2a 31 30 30 29 2b 28 71 31 25 2a 31 30 29 |0%*100)+(q1%*10)|
00001ac0 2b 71 32 25 29 2a 28 31 30 5e 71 33 25 29 0d 08 |+q2%)*(10^q3%)..|
00001ad0 66 06 20 cb 0d 08 70 16 20 71 24 3d c3 28 72 65 |f. ...p. q$=.(re|
00001ae0 73 69 73 74 61 6e 63 65 25 29 0d 08 7a 48 20 e7 |sistance%)..zH .|
00001af0 20 72 65 73 69 73 74 61 6e 63 65 25 2f 31 30 30 | resistance%/100|
00001b00 30 3d a8 28 72 65 73 69 73 74 61 6e 63 65 25 2f |0=.(resistance%/|
00001b10 31 30 30 30 29 20 8c 20 71 24 3d c3 28 72 65 73 |1000) . q$=.(res|
00001b20 69 73 74 61 6e 63 65 25 2f 31 30 30 30 29 2b 22 |istance%/1000)+"|
00001b30 4b 22 0d 08 84 51 20 e7 20 72 65 73 69 73 74 61 |K"...Q . resista|
00001b40 6e 63 65 25 2f 31 30 30 30 30 30 30 3d a8 28 72 |nce%/1000000=.(r|
00001b50 65 73 69 73 74 61 6e 63 65 25 2f 31 30 30 30 30 |esistance%/10000|
00001b60 30 30 29 20 8c 20 71 24 3d c3 28 72 65 73 69 73 |00) . q$=.(resis|
00001b70 74 61 6e 63 65 25 2f 31 30 30 30 30 30 30 29 2b |tance%/1000000)+|
00001b80 22 4d 22 0d 08 8e 1d 20 e7 20 72 65 73 69 73 74 |"M".... . resist|
00001b90 61 6e 63 65 25 3d 30 20 8c 20 71 24 3d 22 30 22 |ance%=0 . q$="0"|
00001ba0 0d 08 98 28 20 f2 57 69 6d 70 5f 57 72 69 74 65 |...( .Wimp_Write|
00001bb0 49 63 6f 6e 54 65 78 74 28 72 65 73 5f 77 69 6e |IconText(res_win|
00001bc0 64 25 2c 37 2c 71 24 29 0d 08 a2 27 20 c8 99 20 |d%,7,q$)...' .. |
00001bd0 22 57 69 6d 70 5f 47 65 74 43 61 72 65 74 50 6f |"Wimp_GetCaretPo|
00001be0 73 69 74 69 6f 6e 22 2c 2c 62 6c 6f 63 6b 25 0d |sition",,block%.|
00001bf0 08 ac 27 20 e7 20 21 62 6c 6f 63 6b 25 3d 72 65 |..' . !block%=re|
00001c00 73 5f 77 69 6e 64 25 20 80 20 62 6c 6f 63 6b 25 |s_wind% . block%|
00001c10 21 34 3d 37 20 8c 0d 08 b6 39 20 20 20 20 c8 99 |!4=7 ....9 ..|
00001c20 20 22 57 69 6d 70 5f 53 65 74 43 61 72 65 74 50 | "Wimp_SetCaretP|
00001c30 6f 73 69 74 69 6f 6e 22 2c 72 65 73 5f 77 69 6e |osition",res_win|
00001c40 64 25 2c 37 2c 2c 2c 2d 31 2c a9 28 71 24 29 0d |d%,7,,,-1,.(q$).|
00001c50 08 c0 06 20 cd 0d 08 ca 06 20 e1 0d 08 d4 06 20 |... ..... ..... |
00001c60 3a 0d 08 de 11 20 dd 20 f2 43 61 6c 63 75 6c 61 |:.... . .Calcula|
00001c70 74 65 0d 08 e8 16 20 ea 20 61 24 2c 72 65 73 69 |te.... . a$,resi|
00001c80 73 74 6f 72 25 2c 71 24 0d 08 f2 27 20 61 24 3d |stor%,q$...' a$=|
00001c90 a4 57 69 6d 70 5f 52 65 61 64 49 63 6f 6e 54 65 |.Wimp_ReadIconTe|
00001ca0 78 74 28 72 65 73 5f 77 69 6e 64 25 2c 37 29 0d |xt(res_wind%,7).|
00001cb0 08 fc 25 20 c8 8e 20 a4 4d 69 73 63 5f 54 75 72 |..% .. .Misc_Tur|
00001cc0 6e 54 6f 4c 6f 77 65 72 43 61 73 65 28 c2 61 24 |nToLowerCase(.a$|
00001cd0 29 29 20 ca 0d 09 06 18 20 20 20 20 20 20 c9 20 |)) ..... . |
00001ce0 22 72 22 3a 20 61 24 3d c0 61 24 29 0d 09 10 1e |"r": a$=.a$)....|
00001cf0 20 20 20 20 20 20 c9 20 22 6b 22 3a 20 61 24 3d | . "k": a$=|
00001d00 c0 61 24 29 2b 22 30 30 30 22 0d 09 1a 21 20 20 |.a$)+"000"...! |
00001d10 20 20 20 20 c9 20 22 6d 22 3a 20 61 24 3d c0 61 | . "m": a$=.a|
00001d20 24 29 2b 22 30 30 30 30 30 30 22 0d 09 24 06 20 |$)+"000000"..$. |
00001d30 cb 0d 09 2e 35 20 c8 99 20 22 57 69 6d 70 5f 57 |....5 .. "Wimp_W|
00001d40 68 69 63 68 49 63 6f 6e 22 2c 74 79 70 65 25 2c |hichIcon",type%,|
00001d50 62 6c 6f 63 6b 25 2c 26 33 46 30 30 30 30 2c 26 |block%,&3F0000,&|
00001d60 32 31 30 30 30 30 0d 09 38 16 20 72 65 73 69 73 |210000..8. resis|
00001d70 74 6f 72 25 3d 21 62 6c 6f 63 6b 25 0d 09 42 13 |tor%=!block%..B.|
00001d80 20 c8 8e 20 72 65 73 69 73 74 6f 72 25 20 ca 0d | .. resistor% ..|
00001d90 09 4c 42 20 20 20 20 20 20 c9 20 30 3a 20 f2 57 |.LB . 0: .W|
00001da0 69 6d 70 5f 57 72 69 74 65 49 63 6f 6e 56 61 6c |imp_WriteIconVal|
00001db0 69 64 61 74 69 6f 6e 28 72 65 73 5f 77 69 6e 64 |idation(res_wind|
00001dc0 25 2c 31 2c 22 53 22 2b c1 61 24 2c 31 2c 31 29 |%,1,"S"+.a$,1,1)|
00001dd0 29 0d 09 56 45 20 20 20 20 20 20 20 20 20 20 20 |)..VE |
00001de0 20 20 20 f2 57 69 6d 70 5f 57 72 69 74 65 49 63 | .Wimp_WriteIc|
00001df0 6f 6e 56 61 6c 69 64 61 74 69 6f 6e 28 72 65 73 |onValidation(res|
00001e00 5f 77 69 6e 64 25 2c 32 2c 22 53 22 2b c1 61 24 |_wind%,2,"S"+.a$|
00001e10 2c 32 2c 31 29 29 0d 09 60 4e 20 20 20 20 20 20 |,2,1))..`N |
00001e20 20 20 20 20 20 20 20 20 f2 57 69 6d 70 5f 57 72 | .Wimp_Wr|
00001e30 69 74 65 49 63 6f 6e 56 61 6c 69 64 61 74 69 6f |iteIconValidatio|
00001e40 6e 28 72 65 73 5f 77 69 6e 64 25 2c 33 2c 22 53 |n(res_wind%,3,"S|
00001e50 22 2b c3 28 a9 28 c1 61 24 2c 33 2c a9 20 61 24 |"+.(.(.a$,3,. a$|
00001e60 29 29 29 29 0d 09 6a 42 20 20 20 20 20 20 c9 20 |))))..jB . |
00001e70 31 3a 20 f2 57 69 6d 70 5f 57 72 69 74 65 49 63 |1: .Wimp_WriteIc|
00001e80 6f 6e 56 61 6c 69 64 61 74 69 6f 6e 28 72 65 73 |onValidation(res|
00001e90 5f 77 69 6e 64 25 2c 30 2c 22 53 22 2b c1 61 24 |_wind%,0,"S"+.a$|
00001ea0 2c 31 2c 31 29 29 0d 09 74 45 20 20 20 20 20 20 |,1,1))..tE |
00001eb0 20 20 20 20 20 20 20 20 f2 57 69 6d 70 5f 57 72 | .Wimp_Wr|
00001ec0 69 74 65 49 63 6f 6e 56 61 6c 69 64 61 74 69 6f |iteIconValidatio|
00001ed0 6e 28 72 65 73 5f 77 69 6e 64 25 2c 31 2c 22 53 |n(res_wind%,1,"S|
00001ee0 22 2b c1 61 24 2c 32 2c 31 29 29 0d 09 7e 45 20 |"+.a$,2,1))..~E |
00001ef0 20 20 20 20 20 20 20 20 20 20 20 20 20 f2 57 69 | .Wi|
00001f00 6d 70 5f 57 72 69 74 65 49 63 6f 6e 56 61 6c 69 |mp_WriteIconVali|
00001f10 64 61 74 69 6f 6e 28 72 65 73 5f 77 69 6e 64 25 |dation(res_wind%|
00001f20 2c 32 2c 22 53 22 2b c1 61 24 2c 33 2c 31 29 29 |,2,"S"+.a$,3,1))|
00001f30 0d 09 88 4e 20 20 20 20 20 20 20 20 20 20 20 20 |...N |
00001f40 20 20 f2 57 69 6d 70 5f 57 72 69 74 65 49 63 6f | .Wimp_WriteIco|
00001f50 6e 56 61 6c 69 64 61 74 69 6f 6e 28 72 65 73 5f |nValidation(res_|
00001f60 77 69 6e 64 25 2c 33 2c 22 53 22 2b c3 28 a9 28 |wind%,3,"S"+.(.(|
00001f70 c1 61 24 2c 34 2c a9 20 61 24 29 29 29 29 0d 09 |.a$,4,. a$))))..|
00001f80 92 26 20 20 20 20 20 20 7f 3a 20 f2 57 69 6d 70 |.& .: .Wimp|
00001f90 5f 53 65 6c 65 63 74 49 63 6f 6e 28 74 79 70 65 |_SelectIcon(type|
00001fa0 25 2c 30 29 0d 09 9c 45 20 20 20 20 20 20 20 20 |%,0)...E |
00001fb0 20 20 20 20 20 20 f2 57 69 6d 70 5f 57 72 69 74 | .Wimp_Writ|
00001fc0 65 49 63 6f 6e 56 61 6c 69 64 61 74 69 6f 6e 28 |eIconValidation(|
00001fd0 72 65 73 5f 77 69 6e 64 25 2c 31 2c 22 53 22 2b |res_wind%,1,"S"+|
00001fe0 c1 61 24 2c 31 2c 31 29 29 0d 09 a6 45 20 20 20 |.a$,1,1))...E |
00001ff0 20 20 20 20 20 20 20 20 20 20 20 f2 57 69 6d 70 | .Wimp|
00002000 5f 57 72 69 74 65 49 63 6f 6e 56 61 6c 69 64 61 |_WriteIconValida|
00002010 74 69 6f 6e 28 72 65 73 5f 77 69 6e 64 25 2c 32 |tion(res_wind%,2|
00002020 2c 22 53 22 2b c1 61 24 2c 32 2c 31 29 29 0d 09 |,"S"+.a$,2,1))..|
00002030 b0 4e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |.N |
00002040 f2 57 69 6d 70 5f 57 72 69 74 65 49 63 6f 6e 56 |.Wimp_WriteIconV|
00002050 61 6c 69 64 61 74 69 6f 6e 28 72 65 73 5f 77 69 |alidation(res_wi|
00002060 6e 64 25 2c 33 2c 22 53 22 2b c3 28 a9 28 c1 61 |nd%,3,"S"+.(.(.a|
00002070 24 2c 33 2c a9 20 61 24 29 29 29 29 0d 09 ba 06 |$,3,. a$))))....|
00002080 20 cb 0d 09 c4 27 20 61 24 3d a4 57 69 6d 70 5f | ....' a$=.Wimp_|
00002090 52 65 61 64 49 63 6f 6e 54 65 78 74 28 72 65 73 |ReadIconText(res|
000020a0 5f 77 69 6e 64 25 2c 39 29 0d 09 ce 0e 20 71 24 |_wind%,9).... q$|
000020b0 3d 22 53 22 2b 61 24 0d 09 d8 21 20 e7 20 61 24 |="S"+a$...! . a$|
000020c0 3d 22 35 22 20 84 20 61 24 3d 22 31 30 22 20 8c |="5" . a$="10" .|
000020d0 20 71 24 2b 3d 22 25 22 0d 09 e2 2e 20 f2 57 69 | q$+="%".... .Wi|
000020e0 6d 70 5f 57 72 69 74 65 49 63 6f 6e 56 61 6c 69 |mp_WriteIconVali|
000020f0 64 61 74 69 6f 6e 28 72 65 73 5f 77 69 6e 64 25 |dation(res_wind%|
00002100 2c 34 2c 71 24 29 0d 09 ec 46 20 f2 57 69 6d 70 |,4,q$)...F .Wimp|
00002110 5f 57 72 69 74 65 49 63 6f 6e 56 61 6c 69 64 61 |_WriteIconValida|
00002120 74 69 6f 6e 28 72 65 73 5f 77 69 6e 64 25 2c 35 |tion(res_wind%,5|
00002130 2c 22 53 72 65 73 69 73 74 6f 72 22 2b c3 28 72 |,"Sresistor"+.(r|
00002140 65 73 69 73 74 6f 72 25 2b 34 29 29 0d 09 f6 06 |esistor%+4))....|
00002150 20 e1 0d 0a 00 06 20 3a 0d 0a 0a 1a 20 dd 20 f2 | ..... :.... . .|
00002160 50 6f 6c 6c 5f 4d 65 6e 75 53 65 6c 65 63 74 69 |Poll_MenuSelecti|
00002170 6f 6e 0d 0a 14 34 20 73 65 6c 31 25 3d 21 62 6c |on...4 sel1%=!bl|
00002180 6f 63 6b 25 20 3a 20 73 65 6c 32 25 3d 62 6c 6f |ock% : sel2%=blo|
00002190 63 6b 25 21 34 20 3a 20 73 65 6c 33 25 3d 62 6c |ck%!4 : sel3%=bl|
000021a0 6f 63 6b 25 21 38 0d 0a 1e 25 20 c8 99 20 22 57 |ock%!8...% .. "W|
000021b0 69 6d 70 5f 47 65 74 50 6f 69 6e 74 65 72 49 6e |imp_GetPointerIn|
000021c0 66 6f 22 2c 2c 62 6c 6f 63 6b 25 0d 0a 28 15 20 |fo",,block%..(. |
000021d0 62 75 74 74 6f 6e 25 3d 62 6c 6f 63 6b 25 21 38 |button%=block%!8|
000021e0 0d 0a 32 16 20 c8 8e 20 43 75 72 72 65 6e 74 4d |..2. .. CurrentM|
000021f0 65 6e 75 25 20 ca 0d 0a 3c 25 20 20 20 20 20 20 |enu% ...<% |
00002200 c9 20 69 63 6f 6e 62 61 72 5f 6d 65 6e 75 25 3a |. iconbar_menu%:|
00002210 20 c8 8e 20 73 65 6c 31 25 20 ca 0d 0a 46 4f 20 | .. sel1% ...FO |
00002220 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002230 20 20 20 20 20 20 20 20 20 20 20 20 20 20 c9 20 | . |
00002240 32 3a 20 e7 20 a4 57 69 6d 70 5f 4d 65 6e 75 54 |2: . .Wimp_MenuT|
00002250 69 63 6b 65 64 28 69 63 6f 6e 62 61 72 5f 6d 65 |icked(iconbar_me|
00002260 6e 75 25 2c 32 29 3d b9 20 8c 0d 0a 50 50 20 20 |nu%,2)=. ...PP |
00002270 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
*
00002290 20 20 20 20 20 f2 57 69 6d 70 5f 4d 65 6e 75 55 | .Wimp_MenuU|
000022a0 6e 54 69 63 6b 49 74 65 6d 28 69 63 6f 6e 62 61 |nTickItem(iconba|
000022b0 72 5f 6d 65 6e 75 25 2c 32 29 0d 0a 5a 46 20 20 |r_menu%,2)..ZF |
000022c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
*
000022e0 20 20 20 20 20 f2 57 69 6d 70 5f 43 6c 6f 73 65 | .Wimp_Close|
000022f0 57 69 6e 64 6f 77 28 63 6f 6c 6f 75 72 73 25 29 |Window(colours%)|
00002300 0d 0a 64 2c 20 20 20 20 20 20 20 20 20 20 20 20 |..d, |
00002310 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002320 20 20 20 20 20 20 20 20 20 20 20 cc 0d 0a 6e 4e | ...nN|
00002330 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
*
00002350 20 20 20 20 20 20 20 f2 57 69 6d 70 5f 4d 65 6e | .Wimp_Men|
00002360 75 54 69 63 6b 49 74 65 6d 28 69 63 6f 6e 62 61 |uTickItem(iconba|
00002370 72 5f 6d 65 6e 75 25 2c 32 29 0d 0a 78 57 20 20 |r_menu%,2)..xW |
00002380 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
*
000023a0 20 20 20 e7 20 52 77 69 6e 64 4f 70 65 6e 25 3d | . RwindOpen%=|
000023b0 b9 20 8c 20 f2 4f 70 65 6e 52 65 73 69 73 74 6f |. . .OpenResisto|
000023c0 72 57 69 6e 64 6f 77 41 4e 44 63 6f 6c 6f 75 72 |rWindowANDcolour|
000023d0 73 0d 0a 82 2c 20 20 20 20 20 20 20 20 20 20 20 |s..., |
000023e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000023f0 20 20 20 20 20 20 20 20 20 20 20 20 cd 0d 0a 8c | ....|
00002400 2f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |/ |
00002410 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002420 c9 20 33 3a 20 71 75 69 74 25 3d b9 0d 0a 96 1f |. 3: quit%=.....|
00002430 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002440 20 20 20 20 20 20 20 20 20 20 cb 0d 0a a0 06 20 | ..... |
00002450 cb 0d 0a aa 45 20 e7 20 62 75 74 74 6f 6e 25 3d |....E . button%=|
00002460 31 20 8c 20 f2 57 69 6d 70 5f 53 68 6f 77 4d 65 |1 . .Wimp_ShowMe|
00002470 6e 75 28 43 75 72 72 65 6e 74 4d 65 6e 75 25 2c |nu(CurrentMenu%,|
00002480 30 2c 30 29 20 8b 20 43 75 72 72 65 6e 74 4d 65 |0,0) . CurrentMe|
00002490 6e 75 25 3d 2d 31 0d 0a b4 06 20 e1 0d 0a be 06 |nu%=-1.... .....|
000024a0 20 3a 0d 0a c8 27 20 dd 20 f2 50 6f 6c 6c 5f 49 | :...' . .Poll_I|
000024b0 6e 63 6f 6d 6d 69 6e 67 4d 65 73 73 61 67 65 28 |ncommingMessage(|
000024c0 6d 65 73 73 61 67 65 25 29 0d 0a d2 12 20 c8 8e |message%).... ..|
000024d0 20 6d 65 73 73 61 67 65 25 20 ca 0d 0a dc 19 20 | message% ..... |
000024e0 20 20 20 20 20 c9 20 26 30 30 30 3a 20 71 75 69 | . &000: qui|
000024f0 74 25 3d b9 0d 0a e6 33 20 20 20 20 20 20 c9 20 |t%=....3 . |
00002500 26 35 30 32 3a 20 ea 20 54 68 61 6e 64 6c 65 25 |&502: . Thandle%|
00002510 2c 68 69 73 5f 72 65 66 25 2c 68 65 6c 70 5f 6d |,his_ref%,help_m|
00002520 65 73 73 61 67 65 24 0d 0a f0 3a 20 20 20 20 20 |essage$...: |
00002530 20 20 20 20 20 20 20 20 20 20 20 20 54 68 61 6e | Than|
00002540 64 6c 65 25 3d 62 6c 6f 63 6b 25 21 34 20 3a 20 |dle%=block%!4 : |
00002550 68 69 73 5f 72 65 66 25 3d 62 6c 6f 63 6b 25 21 |his_ref%=block%!|
00002560 38 0d 0a fa 4a 20 20 20 20 20 20 20 20 20 20 20 |8...J |
00002570 20 20 20 20 20 20 68 65 6c 70 5f 6d 65 73 73 61 | help_messa|
00002580 67 65 24 3d a4 48 65 6c 70 5f 52 65 71 75 65 73 |ge$=.Help_Reques|
00002590 74 28 62 6c 6f 63 6b 25 21 33 32 2c 62 6c 6f 63 |t(block%!32,bloc|
000025a0 6b 25 21 33 36 29 2b bd 28 30 29 0d 0b 04 20 20 |k%!36)+.(0)... |
000025b0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000025c0 21 62 6c 6f 63 6b 25 3d 32 35 36 0d 0b 0e 27 20 |!block%=256...' |
000025d0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000025e0 62 6c 6f 63 6b 25 21 31 32 3d 68 69 73 5f 72 65 |block%!12=his_re|
000025f0 66 25 0d 0b 18 23 20 20 20 20 20 20 20 20 20 20 |f%...# |
00002600 20 20 20 20 20 20 20 62 6c 6f 63 6b 25 21 31 36 | block%!16|
00002610 3d 26 35 30 33 0d 0b 22 2f 20 20 20 20 20 20 20 |=&503.."/ |
00002620 20 20 20 20 20 20 20 20 20 20 24 28 62 6c 6f 63 | $(bloc|
00002630 6b 25 2b 32 30 29 3d 68 65 6c 70 5f 6d 65 73 73 |k%+20)=help_mess|
00002640 61 67 65 24 0d 0b 2c 3d 20 20 20 20 20 20 20 20 |age$..,= |
00002650 20 20 20 20 20 20 20 20 20 c8 99 20 22 57 69 6d | .. "Wim|
00002660 70 5f 53 65 6e 64 4d 65 73 73 61 67 65 22 2c 31 |p_SendMessage",1|
00002670 37 2c 62 6c 6f 63 6b 25 2c 54 68 61 6e 64 6c 65 |7,block%,Thandle|
00002680 25 0d 0b 36 06 20 cb 0d 0b 40 06 20 e1 0d 0b 4a |%..6. ...@. ...J|
00002690 06 20 3a 0d 0b 54 23 20 dd 20 a4 48 65 6c 70 5f |. :..T# . .Help_|
000026a0 52 65 71 75 65 73 74 28 77 69 6e 64 6f 77 25 2c |Request(window%,|
000026b0 69 63 6f 6e 25 29 0d 0b 5e 21 20 ea 20 72 65 70 |icon%)..^! . rep|
000026c0 6c 79 24 2c 63 6f 6c 6f 75 72 24 20 3a 20 72 65 |ly$,colour$ : re|
000026d0 70 6c 79 24 3d 22 22 0d 0b 68 11 20 c8 8e 20 77 |ply$=""..h. .. w|
000026e0 69 6e 64 6f 77 25 20 ca 0d 0b 72 60 20 20 20 20 |indow% ...r` |
000026f0 20 20 c9 20 69 6e 66 6f 5f 77 69 6e 64 6f 77 25 | . info_window%|
00002700 3a 20 72 65 70 6c 79 24 3d 22 54 68 69 73 20 77 |: reply$="This w|
00002710 69 6e 64 6f 77 20 73 68 6f 77 73 20 69 6e 66 6f |indow shows info|
00002720 72 6d 61 74 69 6f 6e 20 61 62 6f 75 74 20 74 68 |rmation about th|
00002730 69 73 20 76 65 72 73 69 6f 6e 20 6f 66 20 52 65 |is version of Re|
00002740 73 69 73 74 6f 72 2e 22 0d 0b 7c 21 20 20 20 20 |sistor."..|! |
00002750 20 20 c9 20 72 65 73 5f 77 69 6e 64 25 3a 20 c8 | . res_wind%: .|
00002760 8e 20 69 63 6f 6e 25 20 ca 0d 0b 86 a0 20 20 20 |. icon% ..... |
00002770 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002780 20 20 20 20 20 20 20 20 c9 20 31 31 2c 31 32 2c | . 11,12,|
00002790 31 33 2c 31 34 2c 31 35 2c 35 3a 20 72 65 70 6c |13,14,15,5: repl|
000027a0 79 24 3d 22 54 68 65 20 63 6f 6c 6f 75 72 65 64 |y$="The coloured|
000027b0 20 62 61 6e 64 73 20 63 68 61 6e 67 65 20 77 68 | bands change wh|
000027c0 65 6e 20 61 20 6e 65 77 20 76 61 6c 75 65 20 69 |en a new value i|
000027d0 73 20 65 6e 74 65 72 65 64 20 6f 72 20 77 68 65 |s entered or whe|
000027e0 6e 20 79 6f 75 20 64 72 61 67 20 61 20 63 6f 6c |n you drag a col|
000027f0 6f 75 72 20 74 6f 20 6f 6e 65 20 6f 66 20 74 68 |our to one of th|
00002800 65 20 62 61 6e 64 73 2e 22 0d 0b 90 fb 20 20 20 |e bands.".... |
00002810 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002820 20 20 20 20 20 20 20 20 c9 20 37 3a 20 72 65 70 | . 7: rep|
00002830 6c 79 24 3d 22 49 66 20 79 6f 75 20 65 6e 74 65 |ly$="If you ente|
00002840 72 20 61 20 6e 65 77 20 76 61 6c 75 65 20 68 65 |r a new value he|
00002850 72 65 20 74 68 65 20 62 61 6e 64 73 20 63 68 61 |re the bands cha|
00002860 6e 67 65 20 63 6f 6c 6f 75 72 20 74 6f 20 73 68 |nge colour to sh|
00002870 6f 77 20 74 68 65 20 6e 65 77 20 72 65 73 69 73 |ow the new resis|
00002880 74 61 6e 63 65 2e 7c 6d 49 66 20 79 6f 75 20 64 |tance.|mIf you d|
00002890 72 61 67 20 61 20 63 6f 6c 6f 75 72 20 74 6f 20 |rag a colour to |
000028a0 6f 6e 65 20 6f 66 20 74 68 65 20 62 61 6e 64 73 |one of the bands|
000028b0 20 74 68 65 6e 20 74 68 65 20 72 65 73 69 73 74 | then the resist|
000028c0 61 6e 63 65 20 72 65 70 72 65 73 65 6e 74 65 64 |ance represented|
000028d0 20 62 79 20 74 68 65 20 6e 65 77 20 70 61 74 74 | by the new patt|
000028e0 65 72 6e 20 6f 66 20 63 6f 6c 6f 75 72 64 20 62 |ern of colourd b|
000028f0 61 6e 64 73 20 69 73 20 73 68 6f 77 6e 20 68 65 |ands is shown he|
00002900 72 65 2e 22 0d 0b 9a dd 20 20 20 20 20 20 20 20 |re.".... |
00002910 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002920 20 20 20 c9 20 39 3a 20 72 65 70 6c 79 24 3d 22 | . 9: reply$="|
00002930 49 66 20 79 6f 75 20 65 6e 74 65 72 20 61 20 6e |If you enter a n|
00002940 65 77 20 76 61 6c 75 65 20 68 65 72 65 20 74 68 |ew value here th|
00002950 65 20 74 6f 6c 65 72 61 6e 63 65 20 62 61 6e 64 |e tolerance band|
00002960 20 63 68 61 6e 67 65 73 20 63 6f 6c 6f 75 72 20 | changes colour |
00002970 74 6f 20 73 68 6f 77 20 74 68 65 20 6e 65 77 20 |to show the new |
00002980 74 6f 6c 65 72 61 6e 63 65 2e 7c 6d 49 66 20 79 |tolerance.|mIf y|
00002990 6f 75 20 64 72 61 67 20 61 20 63 6f 6c 6f 75 72 |ou drag a colour|
000029a0 20 74 6f 20 74 68 65 20 74 6f 6c 65 72 61 6e 63 | to the toleranc|
000029b0 65 20 62 61 6e 64 20 74 68 65 6e 20 74 68 65 20 |e band then the |
000029c0 74 68 65 20 6e 65 77 20 74 6f 6c 65 72 61 6e 63 |the new toleranc|
000029d0 65 20 69 73 20 73 68 6f 77 6e 20 68 65 72 65 2e |e is shown here.|
000029e0 22 0d 0b a4 47 20 20 20 20 20 20 20 20 20 20 20 |"...G |
000029f0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002a00 7f 3a 20 72 65 70 6c 79 24 3d 22 54 68 69 73 20 |.: reply$="This |
00002a10 69 73 20 74 68 65 20 72 65 73 69 73 74 6f 72 20 |is the resistor |
00002a20 77 69 6e 64 6f 77 2e 22 0d 0b ae 1b 20 20 20 20 |window.".... |
00002a30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002a40 20 20 cb 0d 0b b8 94 20 20 20 20 20 20 c9 20 74 | ..... . t|
00002a50 79 70 65 25 3a 20 e7 20 69 63 6f 6e 25 3e 2d 31 |ype%: . icon%>-1|
00002a60 20 8c 20 72 65 70 6c 79 24 3d 22 43 6c 69 63 6b | . reply$="Click|
00002a70 20 53 45 4c 45 43 54 20 74 6f 20 63 68 6f 6f 73 | SELECT to choos|
00002a80 65 20 22 2b c3 28 69 63 6f 6e 25 2b 34 29 2b 22 |e "+.(icon%+4)+"|
00002a90 20 62 61 6e 64 20 72 65 73 69 73 74 6f 72 73 2e | band resistors.|
00002aa0 22 20 8b 20 72 65 70 6c 79 24 3d 22 43 6c 69 63 |" . reply$="Clic|
00002ab0 6b 20 74 6f 20 63 68 6f 6f 73 65 20 65 69 74 68 |k to choose eith|
00002ac0 65 72 20 34 20 6f 72 20 35 20 62 61 6e 64 20 66 |er 4 or 5 band f|
00002ad0 6f 72 6d 61 74 2e 22 0d 0b c2 20 20 20 20 20 20 |ormat."... |
00002ae0 20 c9 20 63 6f 6c 6f 75 72 73 25 3a 20 c8 8e 20 | . colours%: .. |
00002af0 69 63 6f 6e 25 20 ca 0d 0b cc 33 20 20 20 20 20 |icon% ....3 |
00002b00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002b10 20 20 20 20 20 c9 20 30 3a 20 63 6f 6c 6f 75 72 | . 0: colour|
00002b20 24 3d 22 62 6c 61 63 6b 2e 22 0d 0b d6 33 20 20 |$="black."...3 |
00002b30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002b40 20 20 20 20 20 20 20 20 c9 20 31 3a 20 63 6f 6c | . 1: col|
00002b50 6f 75 72 24 3d 22 62 72 6f 77 6e 2e 22 0d 0b e0 |our$="brown."...|
00002b60 31 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |1 |
00002b70 20 20 20 20 20 20 20 20 20 20 20 c9 20 32 3a 20 | . 2: |
00002b80 63 6f 6c 6f 75 72 24 3d 22 72 65 64 2e 22 0d 0b |colour$="red."..|
00002b90 ea 34 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |.4 |
00002ba0 20 20 20 20 20 20 20 20 20 20 20 20 c9 20 33 3a | . 3:|
00002bb0 20 63 6f 6c 6f 75 72 24 3d 22 6f 72 61 6e 67 65 | colour$="orange|
00002bc0 2e 22 0d 0b f4 34 20 20 20 20 20 20 20 20 20 20 |."...4 |
00002bd0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002be0 c9 20 34 3a 20 63 6f 6c 6f 75 72 24 3d 22 79 65 |. 4: colour$="ye|
00002bf0 6c 6c 6f 77 2e 22 0d 0b fe 33 20 20 20 20 20 20 |llow."...3 |
00002c00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002c10 20 20 20 20 c9 20 35 3a 20 63 6f 6c 6f 75 72 24 | . 5: colour$|
00002c20 3d 22 67 72 65 65 6e 2e 22 0d 0c 08 32 20 20 20 |="green."...2 |
00002c30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002c40 20 20 20 20 20 20 20 c9 20 36 3a 20 63 6f 6c 6f | . 6: colo|
00002c50 75 72 24 3d 22 62 6c 75 65 2e 22 0d 0c 12 34 20 |ur$="blue."...4 |
00002c60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002c70 20 20 20 20 20 20 20 20 20 c9 20 37 3a 20 63 6f | . 7: co|
00002c80 6c 6f 75 72 24 3d 22 70 75 72 70 6c 65 2e 22 0d |lour$="purple.".|
00002c90 0c 1c 32 20 20 20 20 20 20 20 20 20 20 20 20 20 |..2 |
00002ca0 20 20 20 20 20 20 20 20 20 20 20 20 20 c9 20 38 | . 8|
00002cb0 3a 20 63 6f 6c 6f 75 72 24 3d 22 67 72 65 79 2e |: colour$="grey.|
00002cc0 22 0d 0c 26 33 20 20 20 20 20 20 20 20 20 20 20 |"..&3 |
00002cd0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 c9 | .|
00002ce0 20 39 3a 20 63 6f 6c 6f 75 72 24 3d 22 77 68 69 | 9: colour$="whi|
00002cf0 74 65 2e 22 0d 0c 30 33 20 20 20 20 20 20 20 20 |te."..03 |
00002d00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002d10 20 20 c9 20 31 30 3a 20 63 6f 6c 6f 75 72 24 3d | . 10: colour$=|
00002d20 22 67 6f 6c 64 2e 22 0d 0c 3a 35 20 20 20 20 20 |"gold."..:5 |
00002d30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002d40 20 20 20 20 20 c9 20 31 31 3a 20 63 6f 6c 6f 75 | . 11: colou|
00002d50 72 24 3d 22 73 69 6c 76 65 72 2e 22 0d 0c 44 1a |r$="silver."..D.|
00002d60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002d70 20 20 20 20 20 cb 0d 0c 4e 3d 20 20 20 20 20 20 | ...N= |
00002d80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 | r|
00002d90 65 70 6c 79 24 3d 22 54 68 69 73 20 69 73 20 74 |eply$="This is t|
00002da0 68 65 20 63 6f 6c 6f 75 72 73 20 77 69 6e 64 6f |he colours windo|
00002db0 77 2e 22 0d 0c 58 8b 20 20 20 20 20 20 20 20 20 |w."..X. |
00002dc0 20 20 20 20 20 20 20 20 20 20 20 20 e7 20 69 63 | . ic|
00002dd0 6f 6e 25 3e 3d 30 20 80 20 69 63 6f 6e 25 3c 3d |on%>=0 . icon%<=|
00002de0 31 31 20 8c 20 72 65 70 6c 79 24 2b 3d 22 7c 6d |11 . reply$+="|m|
00002df0 44 72 61 67 20 74 68 69 73 20 69 63 6f 6e 20 74 |Drag this icon t|
00002e00 6f 20 6f 6e 65 20 6f 66 20 74 68 65 20 72 65 73 |o one of the res|
00002e10 69 73 74 6f 72 20 62 61 6e 64 73 2c 20 74 6f 20 |istor bands, to |
00002e20 63 68 61 6e 67 65 20 69 74 73 20 63 6f 6c 6f 75 |change its colou|
00002e30 72 20 74 6f 20 22 2b 63 6f 6c 6f 75 72 24 0d 0c |r to "+colour$..|
00002e40 62 c0 20 20 20 20 20 20 c9 20 2d 32 3a 20 72 65 |b. . -2: re|
00002e50 70 6c 79 24 3d 22 54 68 69 73 20 69 73 20 74 68 |ply$="This is th|
00002e60 65 20 52 65 73 74 69 73 74 6f 72 20 61 70 70 6c |e Restistor appl|
00002e70 69 63 61 74 69 6f 6e 2c 20 69 74 20 61 6c 6c 6f |ication, it allo|
00002e80 77 73 20 79 6f 75 20 74 6f 20 66 69 6e 64 20 74 |ws you to find t|
00002e90 68 65 20 72 65 73 69 73 74 61 6e 63 65 20 6f 66 |he resistance of|
00002ea0 20 61 20 72 65 73 69 73 74 6f 72 20 66 72 6f 6d | a resistor from|
00002eb0 20 69 74 73 20 63 6f 6c 6f 75 72 65 64 20 62 61 | its coloured ba|
00002ec0 6e 64 73 20 6f 72 20 76 69 63 65 20 76 65 72 73 |nds or vice vers|
00002ed0 61 2e 7c 6d 43 6c 69 63 6b 20 53 45 4c 45 43 54 |a.|mClick SELECT|
00002ee0 20 74 6f 20 6f 70 65 6e 20 74 68 65 20 72 65 73 | to open the res|
00002ef0 69 73 74 6f 72 20 77 69 6e 64 6f 77 2e 22 0d 0c |istor window."..|
00002f00 6c 32 20 20 20 20 20 20 7f 3a 20 e7 20 43 75 72 |l2 .: . Cur|
00002f10 72 65 6e 74 4d 65 6e 75 25 3e 2d 31 20 8c 20 69 |rentMenu%>-1 . i|
00002f20 63 6f 6e 25 3d 28 69 63 6f 6e 25 2d 31 29 2f 33 |con%=(icon%-1)/3|
00002f30 0d 0c 76 1f 20 20 20 20 20 20 20 20 20 20 20 20 |..v. |
00002f40 20 20 20 20 20 c8 8e 20 69 63 6f 6e 25 20 ca 0d | .. icon% ..|
00002f50 0c 80 5a 20 20 20 20 20 20 20 20 20 20 20 20 20 |..Z |
00002f60 20 20 20 20 20 20 20 20 20 c9 20 30 3a 20 72 65 | . 0: re|
00002f70 70 6c 79 24 3d 22 4d 6f 76 65 20 70 6f 69 6e 74 |ply$="Move point|
00002f80 65 72 20 72 69 67 68 74 20 74 6f 20 73 65 65 20 |er right to see |
00002f90 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 6f 6e 20 72 |information on r|
00002fa0 65 73 69 73 74 6f 72 2e 22 0d 0c 8a 60 20 20 20 |esistor."...` |
00002fb0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002fc0 20 20 20 c9 20 31 3a 20 72 65 70 6c 79 24 3d 22 | . 1: reply$="|
00002fd0 4d 6f 76 65 20 70 6f 69 6e 74 65 72 20 72 69 67 |Move pointer rig|
00002fe0 68 74 20 74 6f 20 73 65 74 20 77 68 61 74 20 74 |ht to set what t|
00002ff0 79 70 65 20 6f 66 20 72 65 73 69 73 74 6f 72 20 |ype of resistor |
00003000 69 73 20 75 73 65 64 2e 22 0d 0c 94 62 20 20 20 |is used."...b |
00003010 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00003020 20 20 20 c9 20 32 3a 20 72 65 70 6c 79 24 3d 22 | . 2: reply$="|
00003030 43 6c 69 63 6b 20 53 45 4c 45 43 54 20 74 6f 20 |Click SELECT to |
00003040 74 6f 67 67 6c 65 20 74 68 65 20 70 72 65 73 65 |toggle the prese|
00003050 6e 63 65 20 6f 66 20 74 68 65 20 63 6f 6c 6f 75 |nce of the colou|
00003060 72 73 20 77 69 6e 64 6f 77 2e 22 0d 0c 9e 4e 20 |rs window."...N |
00003070 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00003080 20 20 20 20 20 c9 20 33 3a 20 72 65 70 6c 79 24 | . 3: reply$|
00003090 3d 22 43 6c 69 63 6b 20 53 45 4c 45 43 54 20 74 |="Click SELECT t|
000030a0 6f 20 6d 61 6b 65 20 72 65 73 69 73 74 6f 72 20 |o make resistor |
000030b0 67 6f 20 61 77 61 79 2e 22 0d 0c a8 06 20 cb 0d |go away.".... ..|
000030c0 0c b2 06 20 cb 0d 0c bc 0c 20 3d 72 65 70 6c 79 |... ..... =reply|
000030d0 24 0d 0c c6 06 20 3a 0d 0c d0 20 20 dd 20 a4 4d |$.... :... . .M|
000030e0 69 73 63 5f 54 75 72 6e 54 6f 4c 6f 77 65 72 43 |isc_TurnToLowerC|
000030f0 61 73 65 28 61 24 29 0d 0c da 0c 20 ea 20 71 24 |ase(a$).... . q$|
00003100 2c 71 25 0d 0c e4 0a 20 71 24 3d 22 22 0d 0c ee |,q%.... q$=""...|
00003110 12 20 e3 20 71 25 3d 31 20 b8 20 a9 20 61 24 0d |. . q%=1 . . a$.|
00003120 0c f8 1e 20 71 24 2b 3d bd 28 28 97 20 c1 61 24 |... q$+=.((. .a$|
00003130 2c 71 25 2c 31 29 29 20 84 20 33 32 29 0d 0d 02 |,q%,1)) . 32)...|
00003140 06 20 ed 0d 0d 0c 08 20 3d 71 24 0d 0d 16 06 20 |. ..... =q$.... |
00003150 3a 0d 0d 20 3a 20 dd 20 a4 57 69 6d 70 5f 43 72 |:.. : . .Wimp_Cr|
00003160 65 61 74 65 49 63 6f 6e 28 77 68 61 6e 25 2c 69 |eateIcon(whan%,i|
00003170 78 25 2c 69 79 25 2c 69 77 25 2c 69 68 25 2c 66 |x%,iy%,iw%,ih%,f|
00003180 6c 61 67 25 2c 74 65 78 74 24 29 0d 0d 2a 0f 20 |lag%,text$)..*. |
00003190 ea 20 69 68 61 6e 64 6c 65 25 0d 0d 34 12 20 21 |. ihandle%..4. !|
000031a0 62 6c 6f 63 6b 25 3d 77 68 61 6e 25 0d 0d 3e 11 |block%=whan%..>.|
000031b0 20 62 6c 6f 63 6b 25 21 34 3d 69 78 25 0d 0d 48 | block%!4=ix%..H|
000031c0 11 20 62 6c 6f 63 6b 25 21 38 3d 69 79 25 0d 0d |. block%!8=iy%..|
000031d0 52 16 20 62 6c 6f 63 6b 25 21 31 32 3d 69 78 25 |R. block%!12=ix%|
000031e0 2b 69 77 25 0d 0d 5c 16 20 62 6c 6f 63 6b 25 21 |+iw%..\. block%!|
000031f0 31 36 3d 69 79 25 2b 69 68 25 0d 0d 66 14 20 62 |16=iy%+ih%..f. b|
00003200 6c 6f 63 6b 25 21 32 30 3d 66 6c 61 67 25 0d 0d |lock%!20=flag%..|
00003210 70 17 20 24 28 62 6c 6f 63 6b 25 2b 32 34 29 3d |p. $(block%+24)=|
00003220 74 65 78 74 24 0d 0d 7a 2c 20 c8 99 20 22 57 69 |text$..z, .. "Wi|
00003230 6d 70 5f 43 72 65 61 74 65 49 63 6f 6e 22 2c 2c |mp_CreateIcon",,|
00003240 62 6c 6f 63 6b 25 20 b8 20 69 68 61 6e 64 6c 65 |block% . ihandle|
00003250 25 0d 0d 84 0e 20 3d 69 68 61 6e 64 6c 65 25 0d |%.... =ihandle%.|
00003260 0d 8e 06 20 3a 0d 0d 98 31 20 dd 20 f2 57 69 6d |... :...1 . .Wim|
00003270 70 5f 53 65 74 49 63 6f 6e 42 75 74 74 6f 6e 54 |p_SetIconButtonT|
00003280 79 70 65 28 77 68 61 6e 25 2c 69 63 6f 6e 25 2c |ype(whan%,icon%,|
00003290 74 79 70 65 25 29 0d 0d a2 4d 20 21 62 6c 6f 63 |type%)...M !bloc|
000032a0 6b 25 3d 77 68 61 6e 25 20 3a 20 62 6c 6f 63 6b |k%=whan% : block|
000032b0 25 21 34 3d 69 63 6f 6e 25 20 3a 20 62 6c 6f 63 |%!4=icon% : bloc|
000032c0 6b 25 21 38 3d 28 74 79 70 65 25 3c 3c 31 32 29 |k%!8=(type%<<12)|
000032d0 20 3a 20 62 6c 6f 63 6b 25 21 31 32 3d 26 46 3c | : block%!12=&F<|
000032e0 3c 31 32 0d 0d ac 23 20 c8 99 20 22 57 69 6d 70 |<12...# .. "Wimp|
000032f0 5f 53 65 74 49 63 6f 6e 53 74 61 74 65 22 2c 2c |_SetIconState",,|
00003300 62 6c 6f 63 6b 25 0d 0d b6 06 20 e1 0d 0d c0 06 |block%.... .....|
00003310 20 3a 0d 0d ca 26 20 dd 20 a4 57 69 6d 70 5f 52 | :...& . .Wimp_R|
00003320 65 61 64 49 63 6f 6e 54 65 78 74 28 77 68 61 6e |eadIconText(whan|
00003330 25 2c 69 63 6f 6e 25 29 0d 0d d4 12 20 21 62 6c |%,icon%).... !bl|
00003340 6f 63 6b 25 3d 77 68 61 6e 25 0d 0d de 13 20 62 |ock%=whan%.... b|
00003350 6c 6f 63 6b 25 21 34 3d 69 63 6f 6e 25 0d 0d e8 |lock%!4=icon%...|
00003360 23 20 c8 99 20 22 57 69 6d 70 5f 47 65 74 49 63 |# .. "Wimp_GetIc|
00003370 6f 6e 53 74 61 74 65 22 2c 2c 62 6c 6f 63 6b 25 |onState",,block%|
00003380 0d 0d f2 12 20 3d 24 28 62 6c 6f 63 6b 25 21 32 |.... =$(block%!2|
00003390 38 29 0d 0d fc 06 20 3a 0d 0e 06 2d 20 dd 20 f2 |8).... :...- . .|
000033a0 57 69 6d 70 5f 57 72 69 74 65 49 63 6f 6e 54 65 |Wimp_WriteIconTe|
000033b0 78 74 28 77 68 61 6e 25 2c 69 63 6f 6e 25 2c 74 |xt(whan%,icon%,t|
000033c0 65 78 74 24 29 0d 0e 10 12 20 21 62 6c 6f 63 6b |ext$).... !block|
000033d0 25 3d 77 68 61 6e 25 0d 0e 1a 13 20 62 6c 6f 63 |%=whan%.... bloc|
000033e0 6b 25 21 34 3d 69 63 6f 6e 25 0d 0e 24 23 20 c8 |k%!4=icon%..$# .|
000033f0 99 20 22 57 69 6d 70 5f 47 65 74 49 63 6f 6e 53 |. "Wimp_GetIconS|
00003400 74 61 74 65 22 2c 2c 62 6c 6f 63 6b 25 0d 0e 2e |tate",,block%...|
00003410 17 20 24 28 62 6c 6f 63 6b 25 21 32 38 29 3d 74 |. $(block%!28)=t|
00003420 65 78 74 24 0d 0e 38 1d 20 62 6c 6f 63 6b 25 21 |ext$..8. block%!|
00003430 38 3d 30 20 3a 20 62 6c 6f 63 6b 25 21 31 32 3d |8=0 : block%!12=|
00003440 30 0d 0e 42 23 20 c8 99 20 22 57 69 6d 70 5f 53 |0..B# .. "Wimp_S|
00003450 65 74 49 63 6f 6e 53 74 61 74 65 22 2c 2c 62 6c |etIconState",,bl|
00003460 6f 63 6b 25 0d 0e 4c 06 20 e1 0d 0e 56 06 20 3a |ock%..L. ...V. :|
00003470 0d 0e 60 2c 20 dd 20 a4 57 69 6d 70 5f 52 65 61 |..`, . .Wimp_Rea|
00003480 64 49 63 6f 6e 56 61 6c 69 64 61 74 69 6f 6e 28 |dIconValidation(|
00003490 77 68 61 6e 25 2c 69 63 6f 6e 25 29 0d 0e 6a 12 |whan%,icon%)..j.|
000034a0 20 21 62 6c 6f 63 6b 25 3d 77 68 61 6e 25 0d 0e | !block%=whan%..|
000034b0 74 13 20 62 6c 6f 63 6b 25 21 34 3d 69 63 6f 6e |t. block%!4=icon|
000034c0 25 0d 0e 7e 23 20 c8 99 20 22 57 69 6d 70 5f 47 |%..~# .. "Wimp_G|
000034d0 65 74 49 63 6f 6e 53 74 61 74 65 22 2c 2c 62 6c |etIconState",,bl|
000034e0 6f 63 6b 25 0d 0e 88 12 20 3d 24 28 62 6c 6f 63 |ock%.... =$(bloc|
000034f0 6b 25 21 33 32 29 0d 0e 92 06 20 3a 0d 0e 9c 34 |k%!32).... :...4|
00003500 20 dd 20 f2 57 69 6d 70 5f 57 72 69 74 65 49 63 | . .Wimp_WriteIc|
00003510 6f 6e 56 61 6c 69 64 61 74 69 6f 6e 28 77 68 61 |onValidation(wha|
00003520 6e 25 2c 69 63 6f 6e 25 2c 76 61 6c 69 64 24 29 |n%,icon%,valid$)|
00003530 0d 0e a6 12 20 21 62 6c 6f 63 6b 25 3d 77 68 61 |.... !block%=wha|
00003540 6e 25 0d 0e b0 13 20 62 6c 6f 63 6b 25 21 34 3d |n%.... block%!4=|
00003550 69 63 6f 6e 25 0d 0e ba 23 20 c8 99 20 22 57 69 |icon%...# .. "Wi|
00003560 6d 70 5f 47 65 74 49 63 6f 6e 53 74 61 74 65 22 |mp_GetIconState"|
00003570 2c 2c 62 6c 6f 63 6b 25 0d 0e c4 18 20 24 28 62 |,,block%.... $(b|
00003580 6c 6f 63 6b 25 21 33 32 29 3d 76 61 6c 69 64 24 |lock%!32)=valid$|
00003590 0d 0e ce 1d 20 62 6c 6f 63 6b 25 21 38 3d 30 20 |.... block%!8=0 |
000035a0 3a 20 62 6c 6f 63 6b 25 21 31 32 3d 30 0d 0e d8 |: block%!12=0...|
000035b0 23 20 c8 99 20 22 57 69 6d 70 5f 53 65 74 49 63 |# .. "Wimp_SetIc|
000035c0 6f 6e 53 74 61 74 65 22 2c 2c 62 6c 6f 63 6b 25 |onState",,block%|
000035d0 0d 0e e2 06 20 e1 0d 0e ec 06 20 3a 0d 0e f6 22 |.... ..... :..."|
000035e0 20 dd 20 f2 57 69 6d 70 5f 53 68 6f 77 4d 65 6e | . .Wimp_ShowMen|
000035f0 75 28 6d 65 6e 75 25 2c 78 25 2c 79 25 29 0d 0f |u(menu%,x%,y%)..|
00003600 00 26 20 c8 99 20 22 57 69 6d 70 5f 43 72 65 61 |.& .. "Wimp_Crea|
00003610 74 65 4d 65 6e 75 22 2c 2c 6d 65 6e 75 25 2c 78 |teMenu",,menu%,x|
00003620 25 2c 79 25 0d 0f 0a 06 20 e1 0d 0f 14 06 20 3a |%,y%.... ..... :|
00003630 0d 0f 1e 34 20 dd 20 f2 57 69 6d 70 5f 53 68 6f |...4 . .Wimp_Sho|
00003640 77 4d 65 6e 75 49 63 6f 6e 42 61 72 28 6d 65 6e |wMenuIconBar(men|
00003650 75 25 2c 78 25 2c 69 74 65 6d 73 25 2c 6c 69 6e |u%,x%,items%,lin|
00003660 65 73 25 29 0d 0f 28 38 20 f2 57 69 6d 70 5f 53 |es%)..(8 .Wimp_S|
00003670 68 6f 77 4d 65 6e 75 28 6d 65 6e 75 25 2c 78 25 |howMenu(menu%,x%|
00003680 2c 28 6c 69 6e 65 73 25 2a 32 32 29 2b 28 69 74 |,(lines%*22)+(it|
00003690 65 6d 73 25 2a 34 34 29 2b 39 36 29 0d 0f 32 06 |ems%*44)+96)..2.|
000036a0 20 e1 0d 0f 3c 06 20 3a 0d 0f 46 23 20 dd 20 a4 | ...<. :..F# . .|
000036b0 57 69 6d 70 5f 4d 65 6e 75 4e 6f 4f 66 45 6e 74 |Wimp_MenuNoOfEnt|
000036c0 72 69 65 73 28 6d 65 6e 75 24 29 0d 0f 50 1b 20 |ries(menu$)..P. |
000036d0 ea 20 6e 25 20 2c 6a 25 20 3a 20 6e 25 3d 30 20 |. n% ,j% : n%=0 |
000036e0 3a 20 6a 25 3d 30 0d 0f 5a 06 20 f5 0d 0f 64 18 |: j%=0..Z. ...d.|
000036f0 20 6a 25 3d a7 6d 65 6e 75 24 2c 22 5c 22 2c 6a | j%=.menu$,"\",j|
00003700 25 2b 31 29 0d 0f 6e 14 20 e7 20 6a 25 3c 3e 30 |%+1)..n. . j%<>0|
00003710 20 8c 20 6e 25 2b 3d 31 0d 0f 78 0b 20 fd 20 6a | . n%+=1..x. . j|
00003720 25 3d 30 0d 0f 82 08 20 3d 6e 25 0d 0f 8c 06 20 |%=0.... =n%.... |
00003730 3a 0d 0f 96 37 20 dd 20 a4 57 69 6d 70 5f 73 65 |:...7 . .Wimp_se|
00003740 74 75 70 6d 65 6e 75 46 72 6f 6d 53 74 72 69 6e |tupmenuFromStrin|
00003750 67 46 6f 6e 74 79 69 74 65 6d 73 28 6d 65 6e 75 |gFontyitems(menu|
00003760 24 2c 66 6f 6e 74 25 29 0d 0f a0 28 20 ea 20 6d |$,font%)...( . m|
00003770 65 6e 75 25 2c 69 6e 64 65 78 25 2c 77 69 64 74 |enu%,index%,widt|
00003780 68 25 2c 6c 65 6e 67 74 68 25 2c 6b 25 2c 73 25 |h%,length%,k%,s%|
00003790 0d 0f aa 2f 20 de 20 6d 65 6e 75 25 20 32 38 2b |.../ . menu% 28+|
000037a0 a4 57 69 6d 70 5f 4d 65 6e 75 4e 6f 4f 66 45 6e |.Wimp_MenuNoOfEn|
000037b0 74 72 69 65 73 28 6d 65 6e 75 24 29 2a 32 34 0d |tries(menu$)*24.|
000037c0 0f b4 38 20 6d 65 6e 75 25 3f 31 32 3d 37 20 20 |..8 menu%?12=7 |
000037d0 20 3a 20 6d 65 6e 75 25 3f 31 33 3d 32 20 20 3a | : menu%?13=2 :|
000037e0 20 6d 65 6e 75 25 3f 31 34 3d 37 20 3a 6d 65 6e | menu%?14=7 :men|
000037f0 75 25 3f 31 35 3d 30 0d 0f be 2c 20 6d 65 6e 75 |u%?15=0..., menu|
00003800 25 21 31 36 3d 31 34 30 20 3a 20 6d 65 6e 75 25 |%!16=140 : menu%|
00003810 21 32 30 3d 34 34 20 3a 20 6d 65 6e 75 25 21 32 |!20=44 : menu%!2|
00003820 34 3d 30 0d 0f c8 14 20 69 6e 64 65 78 25 3d 6d |4=0.... index%=m|
00003830 65 6e 75 25 2b 32 38 0d 0f d2 21 20 24 6d 65 6e |enu%+28...! $men|
00003840 75 25 3d c0 6d 65 6e 75 24 2c a7 6d 65 6e 75 24 |u%=.menu$,.menu$|
00003850 2c 22 5c 22 29 2d 31 29 0d 0f dc 24 20 77 69 64 |,"\")-1)...$ wid|
00003860 74 68 25 3d a9 28 c0 6d 65 6e 75 24 2c a7 6d 65 |th%=.(.menu$,.me|
00003870 6e 75 24 2c 22 5c 22 29 2d 31 29 29 0d 0f e6 25 |nu$,"\")-1))...%|
00003880 20 6d 65 6e 75 24 2b 3d 22 5c 22 20 3a 20 4d 65 | menu$+="\" : Me|
00003890 6e 75 5f 4e 6f 4f 66 45 6e 74 72 69 65 73 25 3d |nu_NoOfEntries%=|
000038a0 30 0d 0f f0 11 20 c8 95 20 6d 65 6e 75 24 3c 3e |0.... .. menu$<>|
000038b0 22 22 0d 0f fa 20 20 6d 65 6e 75 24 3d c1 6d 65 |""... menu$=.me|
000038c0 6e 75 24 2c a7 6d 65 6e 75 24 2c 22 5c 22 29 2b |nu$,.menu$,"\")+|
000038d0 31 29 0d 10 04 0f 20 c8 8e 20 6d 65 6e 75 24 20 |1).... .. menu$ |
000038e0 ca 0d 10 0e 0a 20 20 c9 20 22 22 0d 10 18 09 20 |..... . "".... |
000038f0 20 7f 20 3a 0d 10 22 45 20 20 21 69 6e 64 65 78 | . :.."E !index|
00003900 25 3d 30 20 3a 20 69 6e 64 65 78 25 21 34 3d 2d |%=0 : index%!4=-|
00003910 31 20 3a 20 69 6e 64 65 78 25 21 38 3d 26 32 31 |1 : index%!8=&21|
00003920 20 84 20 28 28 66 6f 6e 74 25 3c 3c 32 34 29 20 | . ((font%<<24) |
00003930 84 20 28 31 3c 3c 36 29 29 0d 10 2c 1c 20 20 20 |. (1<<6))..,. |
00003940 6c 65 6e 67 74 68 25 3d a7 6d 65 6e 75 24 2c 22 |length%=.menu$,"|
00003950 5c 22 29 2d 31 0d 10 36 1f 20 20 20 6b 25 3d a7 |\")-1..6. k%=.|
00003960 c0 6d 65 6e 75 24 2c 6c 65 6e 67 74 68 25 29 2c |.menu$,length%),|
00003970 22 3e 22 29 0d 10 40 0e 20 20 20 c8 8e 20 6b 25 |">")..@. .. k%|
00003980 20 ca 0d 10 4a 0b 20 20 20 20 c9 20 30 0d 10 54 | ...J. . 0..T|
00003990 09 20 20 20 20 7f 0d 10 5e 26 20 20 20 20 20 73 |. ...^& s|
000039a0 25 3d a0 28 c1 6d 65 6e 75 24 2c 6b 25 2b 31 2c |%=.(.menu$,k%+1,|
000039b0 6c 65 6e 67 74 68 25 2d 6b 25 29 29 0d 10 68 14 |length%-k%))..h.|
000039c0 20 20 20 20 20 69 6e 64 65 78 25 21 34 3d 73 25 | index%!4=s%|
000039d0 0d 10 72 15 20 20 20 20 20 6c 65 6e 67 74 68 25 |..r. length%|
000039e0 3d 6b 25 2d 31 0d 10 7c 08 20 20 20 cb 0d 10 86 |=k%-1..|. ....|
000039f0 23 20 20 20 24 28 69 6e 64 65 78 25 2b 31 32 29 |# $(index%+12)|
00003a00 3d c0 6d 65 6e 75 24 2c 6c 65 6e 67 74 68 25 29 |=.menu$,length%)|
00003a10 0d 10 90 28 20 20 20 e7 20 6c 65 6e 67 74 68 25 |...( . length%|
00003a20 3e 77 69 64 74 68 25 20 8c 20 77 69 64 74 68 25 |>width% . width%|
00003a30 3d 6c 65 6e 67 74 68 25 0d 10 9a 10 20 20 69 6e |=length%.... in|
00003a40 64 65 78 25 2b 3d 32 34 0d 10 a4 06 20 cb 0d 10 |dex%+=24.... ...|
00003a50 ae 06 20 ce 0d 10 b8 1b 20 6d 65 6e 75 25 21 31 |.. ..... menu%!1|
00003a60 36 3d 31 36 2a 28 77 69 64 74 68 25 2b 31 29 0d |6=16*(width%+1).|
00003a70 10 c2 29 20 69 6e 64 65 78 25 21 2d 32 34 3d 69 |..) index%!-24=i|
00003a80 6e 64 65 78 25 21 2d 32 34 20 84 20 26 38 30 20 |ndex%!-24 . &80 |
00003a90 3a 20 3d 6d 65 6e 75 25 0d 10 cc 06 20 3a 0d 10 |: =menu%.... :..|
00003aa0 d6 1f 20 dd 20 a4 57 69 6d 70 5f 4c 6f 61 64 53 |.. . .Wimp_LoadS|
00003ab0 70 72 69 74 65 73 28 66 69 6c 65 24 29 0d 10 e0 |prites(file$)...|
00003ac0 18 20 ea 20 66 69 6c 65 25 2c 73 69 7a 65 25 2c |. . file%,size%,|
00003ad0 61 72 65 61 25 0d 10 ea 12 20 66 69 6c 65 25 3d |area%.... file%=|
00003ae0 8e 20 66 69 6c 65 24 0d 10 f4 17 20 73 69 7a 65 |. file$.... size|
00003af0 25 3d 28 a2 23 66 69 6c 65 25 29 2b 31 36 0d 10 |%=(.#file%)+16..|
00003b00 fe 0c 20 d9 23 66 69 6c 65 25 0d 11 08 12 20 de |.. .#file%.... .|
00003b10 20 61 72 65 61 25 20 73 69 7a 65 25 0d 11 12 11 | area% size%....|
00003b20 20 21 61 72 65 61 25 3d 73 69 7a 65 25 0d 11 1c | !area%=size%...|
00003b30 0e 20 61 72 65 61 25 21 38 3d 30 0d 11 26 20 20 |. area%!8=0..& |
00003b40 c8 99 20 22 4f 53 5f 53 70 72 69 74 65 4f 70 22 |.. "OS_SpriteOp"|
00003b50 2c 26 31 30 39 2c 61 72 65 61 25 0d 11 30 26 20 |,&109,area%..0& |
00003b60 c8 99 20 22 4f 53 5f 53 70 72 69 74 65 4f 70 22 |.. "OS_SpriteOp"|
00003b70 2c 26 31 30 41 2c 61 72 65 61 25 2c 66 69 6c 65 |,&10A,area%,file|
00003b80 24 0d 11 3a 0b 20 3d 61 72 65 61 25 0d 11 44 06 |$..:. =area%..D.|
00003b90 20 3a 0d 11 4e 29 20 dd 20 a4 57 69 6d 70 5f 45 | :..N) . .Wimp_E|
00003ba0 72 72 6f 72 42 6f 78 28 65 72 72 24 2c 74 69 74 |rrorBox(err$,tit|
00003bb0 6c 65 24 2c 66 6c 61 67 73 25 29 0d 11 58 09 20 |le$,flags%)..X. |
00003bc0 ea 20 71 25 0d 11 62 10 20 21 62 6c 6f 63 6b 25 |. q%..b. !block%|
00003bd0 3d 32 35 35 0d 11 6c 18 20 24 28 62 6c 6f 63 6b |=255..l. $(block|
00003be0 25 2b 34 29 3d 65 72 72 24 2b bd 30 0d 11 76 35 |%+4)=err$+.0..v5|
00003bf0 20 c8 99 20 22 57 69 6d 70 5f 52 65 70 6f 72 74 | .. "Wimp_Report|
00003c00 45 72 72 6f 72 22 2c 62 6c 6f 63 6b 25 2c 66 6c |Error",block%,fl|
00003c10 61 67 73 25 2c 74 69 74 6c 65 24 20 b8 20 2c 71 |ags%,title$ . ,q|
00003c20 25 0d 11 80 08 20 3d 71 25 0d 11 8a 06 20 3a 0d |%.... =q%.... :.|
00003c30 11 94 24 20 dd 20 a4 57 69 6d 70 5f 45 72 72 6f |..$ . .Wimp_Erro|
00003c40 72 42 6f 78 4f 4b 28 65 72 72 24 2c 74 69 74 6c |rBoxOK(err$,titl|
00003c50 65 24 29 0d 11 9e 23 20 3d a4 57 69 6d 70 5f 45 |e$)...# =.Wimp_E|
00003c60 72 72 6f 72 42 6f 78 28 65 72 72 24 2c 74 69 74 |rrorBox(err$,tit|
00003c70 6c 65 24 2c 31 29 0d 11 a8 06 20 3a 0d 11 b2 21 |le$,1).... :...!|
00003c80 20 dd 20 a4 57 69 6d 70 5f 49 6e 69 74 69 61 6c | . .Wimp_Initial|
00003c90 69 73 65 28 61 70 70 6e 61 6d 65 24 29 0d 11 bc |ise(appname$)...|
00003ca0 12 20 ea 20 74 61 73 6b 68 61 6e 64 6c 65 25 0d |. . taskhandle%.|
00003cb0 11 c6 46 20 c8 99 20 22 57 69 6d 70 5f 49 6e 69 |..F .. "Wimp_Ini|
00003cc0 74 69 61 6c 69 73 65 22 2c 33 31 30 2c 26 34 42 |tialise",310,&4B|
00003cd0 35 33 34 31 35 34 2c 61 70 70 6e 61 6d 65 24 2c |534154,appname$,|
00003ce0 62 6c 6f 63 6b 25 20 b8 20 2c 74 61 73 6b 68 61 |block% . ,taskha|
00003cf0 6e 64 6c 65 25 0d 11 d0 11 20 3d 74 61 73 6b 68 |ndle%.... =taskh|
00003d00 61 6e 64 6c 65 25 0d 11 da 06 20 3a 0d 11 e4 23 |andle%.... :...#|
00003d10 20 dd 20 a4 57 69 6d 70 5f 43 6c 6f 73 65 44 6f | . .Wimp_CloseDo|
00003d20 77 6e 28 74 61 73 6b 68 61 6e 64 6c 65 25 29 0d |wn(taskhandle%).|
00003d30 11 ee 2e 20 c8 99 20 22 57 69 6d 70 5f 43 6c 6f |... .. "Wimp_Clo|
00003d40 73 65 44 6f 77 6e 22 2c 74 61 73 6b 68 61 6e 64 |seDown",taskhand|
00003d50 6c 65 25 2c 26 34 42 35 33 34 31 35 34 0d 11 f8 |le%,&4B534154...|
00003d60 07 20 3d 30 0d 12 02 06 20 3a 0d 12 0c 1d 20 dd |. =0.... :.... .|
00003d70 20 f2 57 69 6d 70 5f 50 72 6f 63 65 73 73 4b 65 | .Wimp_ProcessKe|
00003d80 79 28 6b 65 79 25 29 0d 12 16 1e 20 c8 99 20 22 |y(key%).... .. "|
00003d90 57 69 6d 70 5f 50 72 6f 63 65 73 73 4b 65 79 22 |Wimp_ProcessKey"|
00003da0 2c 6b 65 79 25 0d 12 20 06 20 e1 0d 12 2a 06 20 |,key%.. . ...*. |
00003db0 3a 0d 12 34 1e 20 dd 20 f2 57 69 6d 70 5f 43 6c |:..4. . .Wimp_Cl|
00003dc0 6f 73 65 57 69 6e 64 6f 77 28 77 69 6e 25 29 0d |oseWindow(win%).|
00003dd0 12 3e 11 20 21 62 6c 6f 63 6b 25 3d 77 69 6e 25 |.>. !block%=win%|
00003de0 0d 12 48 25 20 c8 99 20 22 57 69 6d 70 5f 47 65 |..H% .. "Wimp_Ge|
00003df0 74 57 69 6e 64 6f 77 53 74 61 74 65 22 2c 2c 62 |tWindowState",,b|
00003e00 6c 6f 63 6b 25 0d 12 52 22 20 c8 99 20 22 57 69 |lock%..R" .. "Wi|
00003e10 6d 70 5f 43 6c 6f 73 65 57 69 6e 64 6f 77 22 2c |mp_CloseWindow",|
00003e20 2c 62 6c 6f 63 6b 25 0d 12 5c 06 20 e1 0d 12 66 |,block%..\. ...f|
00003e30 06 20 3a 0d 12 70 1b 20 dd 20 a4 57 69 6d 70 5f |. :..p. . .Wimp_|
00003e40 49 6e 69 74 46 6f 6e 74 73 41 72 72 61 79 0d 12 |InitFontsArray..|
00003e50 7a 0f 20 ea 20 66 6f 6e 74 5a 25 2c 4e 0d 12 84 |z. . fontZ%,N...|
00003e60 11 20 de 20 66 6f 6e 74 5a 25 20 32 35 36 0d 12 |. . fontZ% 256..|
00003e70 8e 14 20 e3 20 4e 3d 30 20 b8 20 32 35 36 20 88 |.. . N=0 . 256 .|
00003e80 20 34 0d 12 98 12 20 21 28 4e 2b 66 6f 6e 74 5a | 4.... !(N+fontZ|
00003e90 25 29 3d 30 0d 12 a2 06 20 ed 0d 12 ac 0c 20 3d |%)=0.... ..... =|
00003ea0 66 6f 6e 74 5a 25 0d 12 b6 06 20 3a 0d 12 c0 26 |fontZ%.... :...&|
00003eb0 20 dd 20 f2 57 69 6d 70 5f 52 65 6d 6f 76 65 46 | . .Wimp_RemoveF|
00003ec0 6f 6e 74 73 41 72 72 61 79 28 66 6f 6e 74 5a 5a |ontsArray(fontZZ|
00003ed0 25 29 0d 12 ca 16 20 c8 99 20 22 48 6f 75 72 67 |%).... .. "Hourg|
00003ee0 6c 61 73 73 5f 4f 6e 22 0d 12 d4 11 20 e3 20 6e |lass_On".... . n|
00003ef0 25 3d 30 20 b8 20 32 35 35 0d 12 de 2b 20 c8 99 |%=0 . 255...+ ..|
00003f00 20 22 48 6f 75 72 67 6c 61 73 73 5f 50 65 72 63 | "Hourglass_Perc|
00003f10 65 6e 74 61 67 65 22 2c 28 6e 25 2f 32 35 35 29 |entage",(n%/255)|
00003f20 2a 31 30 30 0d 12 e8 15 20 71 25 3d 3f 28 66 6f |*100.... q%=?(fo|
00003f30 6e 74 5a 5a 25 2b 6e 25 29 0d 12 f2 0c 20 c8 95 |ntZZ%+n%).... ..|
00003f40 20 71 25 3e 30 0d 12 fc 1a 20 c8 99 20 22 46 6f | q%>0.... .. "Fo|
00003f50 6e 74 5f 4c 6f 73 65 46 6f 6e 74 22 2c 6e 25 0d |nt_LoseFont",n%.|
00003f60 13 06 0a 20 71 25 2d 3d 31 0d 13 10 06 20 ce 0d |... q%-=1.... ..|
00003f70 13 1a 06 20 ed 0d 13 24 17 20 c8 99 20 22 48 6f |... ...$. .. "Ho|
00003f80 75 72 67 6c 61 73 73 5f 4f 66 66 22 0d 13 2e 06 |urglass_Off"....|
00003f90 20 e1 0d 13 38 06 20 3a 0d 13 42 1d 20 dd 20 f2 | ...8. :..B. . .|
00003fa0 57 69 6d 70 5f 4f 70 65 6e 57 69 6e 64 6f 77 28 |Wimp_OpenWindow(|
00003fb0 77 69 6e 25 29 0d 13 4c 11 20 21 62 6c 6f 63 6b |win%)..L. !block|
00003fc0 25 3d 77 69 6e 25 0d 13 56 25 20 c8 99 20 22 57 |%=win%..V% .. "W|
00003fd0 69 6d 70 5f 47 65 74 57 69 6e 64 6f 77 53 74 61 |imp_GetWindowSta|
00003fe0 74 65 22 2c 2c 62 6c 6f 63 6b 25 0d 13 60 21 20 |te",,block%..`! |
00003ff0 c8 99 20 22 57 69 6d 70 5f 4f 70 65 6e 57 69 6e |.. "Wimp_OpenWin|
00004000 64 6f 77 22 2c 2c 62 6c 6f 63 6b 25 0d 13 6a 06 |dow",,block%..j.|
00004010 20 e1 0d 13 74 06 20 3a 0d 13 7e 20 20 dd 20 f2 | ...t. :..~ . .|
00004020 57 69 6d 70 5f 4f 70 65 6e 54 65 6d 70 6c 61 74 |Wimp_OpenTemplat|
00004030 65 28 66 69 6c 65 24 29 0d 13 88 22 20 c8 99 20 |e(file$)..." .. |
00004040 22 57 69 6d 70 5f 4f 70 65 6e 54 65 6d 70 6c 61 |"Wimp_OpenTempla|
00004050 74 65 22 2c 2c 66 69 6c 65 24 0d 13 92 06 20 e1 |te",,file$.... .|
00004060 0d 13 9c 06 20 3a 0d 13 a6 1a 20 dd 20 f2 57 69 |.... :.... . .Wi|
00004070 6d 70 5f 43 6c 6f 73 65 54 65 6d 70 6c 61 74 65 |mp_CloseTemplate|
00004080 0d 13 b0 1c 20 c8 99 20 22 57 69 6d 70 5f 43 6c |.... .. "Wimp_Cl|
00004090 6f 73 65 54 65 6d 70 6c 61 74 65 22 0d 13 ba 06 |oseTemplate"....|
000040a0 20 e1 0d 13 c4 06 20 3a 0d 13 ce 4d 20 dd 20 a4 | ..... :...M . .|
000040b0 57 69 6d 70 5f 4c 6f 61 64 54 65 6d 70 6c 61 74 |Wimp_LoadTemplat|
000040c0 65 46 6f 6e 74 5a 28 74 65 6d 70 6c 61 74 65 24 |eFontZ(template$|
000040d0 2c 69 63 6f 6e 53 70 61 63 65 25 2c 6c 65 6e 67 |,iconSpace%,leng|
000040e0 74 68 25 2c 73 70 72 69 25 2c 66 6f 6e 74 61 72 |th%,spri%,fontar|
000040f0 72 61 79 25 29 0d 13 d8 09 20 ea 20 71 25 0d 13 |ray%).... . q%..|
00004100 e2 58 20 c8 99 20 22 57 69 6d 70 5f 4c 6f 61 64 |.X .. "Wimp_Load|
00004110 54 65 6d 70 6c 61 74 65 22 2c 2c 62 6c 6f 63 6b |Template",,block|
00004120 25 2c 69 63 6f 6e 53 70 61 63 65 25 2c 69 63 6f |%,iconSpace%,ico|
00004130 6e 53 70 61 63 65 25 2b 6c 65 6e 67 74 68 25 2c |nSpace%+length%,|
00004140 66 6f 6e 74 61 72 72 61 79 25 2c 74 65 6d 70 6c |fontarray%,templ|
00004150 61 74 65 24 2c 30 0d 13 ec 14 20 62 6c 6f 63 6b |ate$,0.... block|
00004160 25 21 36 34 3d 73 70 72 69 25 0d 13 f6 28 20 c8 |%!64=spri%...( .|
00004170 99 20 22 57 69 6d 70 5f 43 72 65 61 74 65 57 69 |. "Wimp_CreateWi|
00004180 6e 64 6f 77 22 2c 2c 62 6c 6f 63 6b 25 20 b8 20 |ndow",,block% . |
00004190 71 25 0d 14 00 08 20 3d 71 25 0d 14 0a 06 20 3a |q%.... =q%.... :|
000041a0 0d 14 14 2a 20 dd 20 f2 57 69 6d 70 5f 43 68 61 |...* . .Wimp_Cha|
000041b0 6e 67 65 57 69 6e 64 6f 77 54 69 74 6c 65 28 77 |ngeWindowTitle(w|
000041c0 69 6e 25 2c 74 65 78 74 24 29 0d 14 1e 09 20 ea |in%,text$).... .|
000041d0 20 71 25 0d 14 28 11 20 21 62 6c 6f 63 6b 25 3d | q%..(. !block%=|
000041e0 77 69 6e 25 0d 14 32 24 20 c8 99 20 22 57 69 6d |win%..2$ .. "Wim|
000041f0 70 5f 47 65 74 57 69 6e 64 6f 77 49 6e 66 6f 22 |p_GetWindowInfo"|
00004200 2c 2c 62 6c 6f 63 6b 25 0d 14 3c 11 20 71 25 3d |,,block%..<. q%=|
00004210 62 6c 6f 63 6b 25 21 37 36 0d 14 46 0e 20 24 71 |block%!76..F. $q|
00004220 25 3d 74 65 78 74 24 0d 14 50 16 20 62 6c 6f 63 |%=text$..P. bloc|
00004230 6b 25 21 38 34 3d a9 20 74 65 78 74 24 0d 14 5a |k%!84=. text$..Z|
00004240 06 20 e1 0d 14 64 06 20 3a 0d 14 6e 23 20 dd 20 |. ...d. :..n# . |
00004250 a4 57 69 6d 70 5f 47 65 74 43 61 72 65 74 50 6f |.Wimp_GetCaretPo|
00004260 73 69 74 69 6f 6e 57 69 6e 64 6f 77 0d 14 78 27 |sitionWindow..x'|
00004270 20 c8 99 20 22 57 69 6d 70 5f 47 65 74 43 61 72 | .. "Wimp_GetCar|
00004280 65 74 50 6f 73 69 74 69 6f 6e 22 2c 2c 62 6c 6f |etPosition",,blo|
00004290 63 6b 25 0d 14 82 0d 20 3d 21 62 6c 6f 63 6b 25 |ck%.... =!block%|
000042a0 0d 14 8c 06 20 3a 0d 14 96 18 20 dd 20 f2 57 69 |.... :.... . .Wi|
000042b0 6d 70 5f 44 69 73 6f 77 6e 43 61 72 65 74 0d 14 |mp_DisownCaret..|
000042c0 a0 22 20 c8 99 20 22 57 69 6d 70 5f 53 65 74 43 |." .. "Wimp_SetC|
000042d0 61 72 65 74 50 6f 73 69 74 69 6f 6e 22 2c 2d 31 |aretPosition",-1|
000042e0 0d 14 aa 06 20 e1 0d 14 b4 06 20 3a 0d 14 be 23 |.... ..... :...#|
000042f0 20 dd 20 f2 57 69 6d 70 5f 44 72 61 67 42 6f 78 | . .Wimp_DragBox|
00004300 28 77 69 6e 64 6f 77 25 2c 69 63 6f 6e 25 29 0d |(window%,icon%).|
00004310 14 c8 26 20 f2 57 69 6d 70 5f 43 68 61 6e 67 65 |..& .Wimp_Change|
00004320 50 6f 69 6e 74 65 72 28 22 70 74 72 5f 64 6f 75 |Pointer("ptr_dou|
00004330 62 6c 65 22 29 0d 14 d2 0b 20 ea 78 25 2c 79 25 |ble").... .x%,y%|
00004340 0d 14 dc 15 20 20 21 62 6c 6f 63 6b 25 3d 77 69 |.... !block%=wi|
00004350 6e 64 6f 77 25 0d 14 e6 25 20 20 c8 99 22 57 69 |ndow%...% .."Wi|
00004360 6d 70 5f 47 65 74 57 69 6e 64 6f 77 53 74 61 74 |mp_GetWindowStat|
00004370 65 22 2c 2c 62 6c 6f 63 6b 25 0d 14 f0 32 20 20 |e",,block%...2 |
00004380 78 25 3d 62 6c 6f 63 6b 25 21 34 2d 62 6c 6f 63 |x%=block%!4-bloc|
00004390 6b 25 21 32 30 3a 79 25 3d 62 6c 6f 63 6b 25 21 |k%!20:y%=block%!|
000043a0 31 36 2d 62 6c 6f 63 6b 25 21 32 34 0d 14 fa 14 |16-block%!24....|
000043b0 20 20 62 6c 6f 63 6b 25 21 34 3d 69 63 6f 6e 25 | block%!4=icon%|
000043c0 0d 15 04 23 20 20 c8 99 22 57 69 6d 70 5f 47 65 |...# .."Wimp_Ge|
000043d0 74 49 63 6f 6e 53 74 61 74 65 22 2c 2c 62 6c 6f |tIconState",,blo|
000043e0 63 6b 25 0d 15 0e 15 20 20 21 62 6c 6f 63 6b 25 |ck%.... !block%|
000043f0 3d 77 69 6e 64 6f 77 25 0d 15 18 10 20 20 62 6c |=window%.... bl|
00004400 6f 63 6b 25 21 34 3d 35 0d 15 22 31 20 20 62 6c |ock%!4=5.."1 bl|
00004410 6f 63 6b 25 21 38 3d 78 25 2b 62 6c 6f 63 6b 25 |ock%!8=x%+block%|
00004420 21 38 3a 62 6c 6f 63 6b 25 21 31 32 3d 79 25 2b |!8:block%!12=y%+|
00004430 62 6c 6f 63 6b 25 21 31 32 0d 15 2c 33 20 20 62 |block%!12..,3 b|
00004440 6c 6f 63 6b 25 21 31 36 3d 78 25 2b 62 6c 6f 63 |lock%!16=x%+bloc|
00004450 6b 25 21 31 36 3a 62 6c 6f 63 6b 25 21 32 30 3d |k%!16:block%!20=|
00004460 79 25 2b 62 6c 6f 63 6b 25 21 32 30 0d 15 36 1d |y%+block%!20..6.|
00004470 20 20 62 6c 6f 63 6b 25 21 32 34 3d 30 3a 62 6c | block%!24=0:bl|
00004480 6f 63 6b 25 21 32 38 3d 30 0d 15 40 2d 20 20 62 |ock%!28=0..@- b|
00004490 6c 6f 63 6b 25 21 33 32 3d 26 37 46 46 46 46 46 |lock%!32=&7FFFFF|
000044a0 46 46 3a 62 6c 6f 63 6b 25 21 33 36 3d 26 37 46 |FF:block%!36=&7F|
000044b0 46 46 46 46 46 46 0d 15 4a 1e 20 20 c8 99 22 57 |FFFFFF..J. .."W|
000044c0 69 6d 70 5f 44 72 61 67 42 6f 78 22 2c 2c 62 6c |imp_DragBox",,bl|
000044d0 6f 63 6b 25 0d 15 54 06 20 e1 0d 15 5e 06 20 3a |ock%..T. ...^. :|
000044e0 0d 15 68 26 20 dd 20 f2 57 69 6d 70 5f 4d 65 6e |..h& . .Wimp_Men|
000044f0 75 54 69 63 6b 49 74 65 6d 28 6d 65 6e 75 25 2c |uTickItem(menu%,|
00004500 69 74 65 6d 25 29 0d 15 72 09 20 ea 20 61 25 0d |item%)..r. . a%.|
00004510 15 7c 1b 20 61 25 3d 6d 65 6e 75 25 2b 32 38 2b |.|. a%=menu%+28+|
00004520 28 69 74 65 6d 25 2a 32 34 29 0d 15 86 12 20 3f |(item%*24).... ?|
00004530 61 25 3d 28 3f 61 25 20 84 20 31 29 0d 15 90 06 |a%=(?a% . 1)....|
00004540 20 e1 0d 15 9a 06 20 3a 0d 15 a4 28 20 dd 20 f2 | ..... :...( . .|
00004550 57 69 6d 70 5f 4d 65 6e 75 55 6e 54 69 63 6b 49 |Wimp_MenuUnTickI|
00004560 74 65 6d 28 6d 65 6e 75 25 2c 69 74 65 6d 25 29 |tem(menu%,item%)|
00004570 0d 15 ae 09 20 ea 20 61 25 0d 15 b8 1b 20 61 25 |.... . a%.... a%|
00004580 3d 6d 65 6e 75 25 2b 32 38 2b 28 69 74 65 6d 25 |=menu%+28+(item%|
00004590 2a 32 34 29 0d 15 c2 14 20 3f 61 25 3d 28 3f 61 |*24).... ?a%=(?a|
000045a0 25 20 80 20 32 35 34 29 0d 15 cc 06 20 e1 0d 15 |% . 254).... ...|
000045b0 d6 06 20 3a 0d 15 e0 28 20 dd 20 f2 57 69 6d 70 |.. :...( . .Wimp|
000045c0 5f 4d 65 6e 75 44 6f 74 74 65 64 4c 69 6e 65 28 |_MenuDottedLine(|
000045d0 6d 65 6e 75 25 2c 69 74 65 6d 25 29 0d 15 ea 30 |menu%,item%)...0|
000045e0 20 6d 65 6e 75 25 21 28 32 38 2b 69 74 65 6d 25 | menu%!(28+item%|
000045f0 2a 32 34 29 3d 28 6d 65 6e 75 25 21 28 32 38 2b |*24)=(menu%!(28+|
00004600 69 74 65 6d 25 2a 32 34 29 29 84 32 0d 15 f4 06 |item%*24)).2....|
00004610 20 e1 0d 15 fe 06 20 3a 0d 16 08 24 20 dd 20 a4 | ..... :...$ . .|
00004620 57 69 6d 70 5f 4d 65 6e 75 54 69 63 6b 65 64 28 |Wimp_MenuTicked(|
00004630 6d 65 6e 75 25 2c 69 74 65 6d 25 29 0d 16 12 09 |menu%,item%)....|
00004640 20 ea 20 61 25 0d 16 1c 1b 20 61 25 3d 6d 65 6e | . a%.... a%=men|
00004650 75 25 2b 32 38 2b 28 69 74 65 6d 25 2a 32 34 29 |u%+28+(item%*24)|
00004660 0d 16 26 11 20 3d 28 3f 61 25 20 80 20 31 29 3e |..&. =(?a% . 1)>|
00004670 30 0d 16 30 06 20 3a 0d 16 3a 24 20 dd 20 f2 57 |0..0. :..:$ . .W|
00004680 69 6d 70 5f 43 68 61 6e 67 65 50 6f 69 6e 74 65 |imp_ChangePointe|
00004690 72 28 70 6f 69 6e 74 65 72 24 29 0d 16 44 2f 20 |r(pointer$)..D/ |
000046a0 c8 99 20 22 57 69 6d 70 5f 53 70 72 69 74 65 4f |.. "Wimp_SpriteO|
000046b0 70 22 2c 33 36 2c 31 2c 70 6f 69 6e 74 65 72 24 |p",36,1,pointer$|
000046c0 2c 32 2c 30 2c 30 2c 30 2c 30 0d 16 4e 06 20 e1 |,2,0,0,0,0..N. .|
000046d0 0d 16 58 06 20 3a 0d 16 62 24 20 dd 20 f2 57 69 |..X. :..b$ . .Wi|
000046e0 6d 70 5f 53 65 6c 65 63 74 49 63 6f 6e 28 77 68 |mp_SelectIcon(wh|
000046f0 61 6e 25 2c 69 63 6f 6e 25 29 0d 16 6c 46 20 21 |an%,icon%)..lF !|
00004700 62 6c 6f 63 6b 25 3d 77 68 61 6e 25 20 3a 20 62 |block%=whan% : b|
00004710 6c 6f 63 6b 25 21 34 3d 69 63 6f 6e 25 20 3a 20 |lock%!4=icon% : |
00004720 62 6c 6f 63 6b 25 21 38 3d 31 3c 3c 32 31 20 3a |block%!8=1<<21 :|
00004730 20 62 6c 6f 63 6b 25 21 31 32 3d 31 3c 3c 32 31 | block%!12=1<<21|
00004740 0d 16 76 23 20 c8 99 20 22 57 69 6d 70 5f 53 65 |..v# .. "Wimp_Se|
00004750 74 49 63 6f 6e 53 74 61 74 65 22 2c 2c 62 6c 6f |tIconState",,blo|
00004760 63 6b 25 0d 16 80 06 20 e1 0d 16 8a 06 20 3a 0d |ck%.... ..... :.|
00004770 ff |.|
00004771 
.