Home » Archimedes archive » Archimedes World » AW-1993-06.adf » AWJune93 » !AWJune93/Goodies/Pointer/!PointFade/!RunImage
!AWJune93/Goodies/Pointer/!PointFade/!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 » Archimedes World » AW-1993-06.adf » AWJune93 |
| Filename: | !AWJune93/Goodies/Pointer/!PointFade/!RunImage |
| Read OK: | ✔ |
| File size: | 7135 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10 PROCWimp_Start("Pointer Fader",4517,1462)
20 PROCUser_SetInitialData
30 PROCCreate_Windows
40 PROCUpdateIcons
50 PROCCreate_Menus
60 PROCWimp_WaitForEvent
70 PROCWimp_CloseDown
80 END
90 :
100 DEF PROCUser_SetInitialData
110 DIM Col%(12,3)
120 Flashing%=TRUE
130 Delay%=0
140 FadeCount%=0
150 FadeStep%=0
160 InFile%=0
170 OutFile%=0
180 PROCLoadConfig
190 ENDPROC
200 :
210 DEF PROCCreate_Windows
220 Info_Window%=FNWimp_WindowLoad("Info")
230 Options_Window%=FNWimp_WindowLoad("Options")
240 Bar_Icon%=FNWimp_IconBar("!PointFade")
250 ENDPROC
260 :
270 DEF FNEvent_Save(window%)=FALSE
280 :
290 DEF FNEvent_Sprites(window%)=sprites%
300 :
310 DEF PROCCreate_Menus
320 menu$="PointFade\Info>Info_Window%\Options\Quit"
330 Bar_Menu%=FNWimp_MenuCreate(menu$)
340 ENDPROC
350 :
360 DEF FNEvent_Menu(window%)
370 CASE window% OF
380 WHEN Bar_Window% : =Bar_Menu%
390 OTHERWISE : =FALSE
400 ENDCASE
410 :
420 DEF PROCEvent_WindowClose(window%,buttons%)
430 CASE window% OF
440 ENDCASE
450 ENDPROC
460 :
470 DEF PROCEvent_Draw(window%,x_origin%,y_origin%)
480 CASE window% OF
490 WHEN Info_Window% : PROCUser_DrawInfoWindow
500 WHEN Options_Window% : PROCUser_DrawOptionsWindow
510 ENDCASE
520 ENDPROC
530 :
540 DEF PROCUser_DrawInfoWindow
550 ENDPROC
560 :
570 DEF PROCUser_DrawOptionsWindow
580 ENDPROC
590 :
600 DEF PROCEvent_MouseClick(window%,icon%,button%,x%,y%)
610 CASE window% OF
620 WHEN Bar_Window% : PROCUser_MouseBar
630 WHEN Info_Window% : PROCUser_MouseInfo( button%,icon%)
640 WHEN Options_Window% : PROCUser_MouseOptions( button%,icon%)
650 ENDCASE
660 ENDPROC
670 :
680 DEF PROCUser_MouseBar
690 IF Flashing%=TRUE THEN
700 Flashing%=FALSE
710 MOUSE COLOUR 1,Col%(1,1)*16-1,Col%(1,2)*16-1,Col%(1,3)*16-1
720 MOUSE COLOUR 2,Col%(2,1)*16-1,Col%(2,2)*16-1,Col%(2,3)*16-1
730 MOUSE COLOUR 3,Col%(3,1)*16-1,Col%(3,2)*16-1,Col%(3,3)*16-1
740 ELSE
750 Flashing%=TRUE
760 ENDIF
770 ENDPROC
780 :
790 DEF PROCUser_MouseInfo( button%,icon%)
800 REM PROCWimp_WindowAlert("Info","Mouse button="+STR$button%+"icon="+STR$icon%)
810 ENDPROC
820 :
830 DEF PROCUser_MouseOptions( button%,icon%)
840REM IF button%<5 THEN PROCWimp_WindowAlert("Options","Mouse button="+STR$button%+"icon="+STR$icon%)
850
860 IF button%<5 THEN
870 CASE icon% OF
880 WHEN 0 :IF Col%(1,1)>1 THEN Col%(1,1)-=1
890 WHEN 4 :IF Col%(1,2)>1 THEN Col%(1,2)-=1
900 WHEN 5 :IF Col%(1,3)>1 THEN Col%(1,3)-=1
910 WHEN 9 :IF Col%(1,1)<16 THEN Col%(1,1)+=1
920 WHEN 10 :IF Col%(1,2)<16 THEN Col%(1,2)+=1
930 WHEN 11 :IF Col%(1,3)<16 THEN Col%(1,3)+=1
940
950 WHEN 12 :IF Col%(2,1)>1 THEN Col%(2,1)-=1
960 WHEN 13 :IF Col%(2,2)>1 THEN Col%(2,2)-=1
970 WHEN 14 :IF Col%(2,3)>1 THEN Col%(2,3)-=1
980 WHEN 18 :IF Col%(2,1)<16 THEN Col%(2,1)+=1
990 WHEN 19 :IF Col%(2,2)<16 THEN Col%(2,2)+=1
1000 WHEN 20 :IF Col%(2,3)<16 THEN Col%(2,3)+=1
1010
1020 WHEN 21 :IF Col%(3,1)>1 THEN Col%(3,1)-=1
1030 WHEN 22 :IF Col%(3,2)>1 THEN Col%(3,2)-=1
1040 WHEN 23 :IF Col%(3,3)>1 THEN Col%(3,3)-=1
1050 WHEN 27 :IF Col%(3,1)<16 THEN Col%(3,1)+=1
1060 WHEN 28 :IF Col%(3,2)<16 THEN Col%(3,2)+=1
1070 WHEN 29 :IF Col%(3,3)<16 THEN Col%(3,3)+=1
1080
1090 WHEN 33 :IF Col%(4,1)>1 THEN Col%(4,1)-=1
1100 WHEN 34 :IF Col%(4,2)>1 THEN Col%(4,2)-=1
1110 WHEN 35 :IF Col%(4,3)>1 THEN Col%(4,3)-=1
1120 WHEN 39 :IF Col%(4,1)<16 THEN Col%(4,1)+=1
1130 WHEN 40 :IF Col%(4,2)<16 THEN Col%(4,2)+=1
1140 WHEN 41 :IF Col%(4,3)<16 THEN Col%(4,3)+=1
1150
1160 WHEN 42 :IF Col%(5,1)>1 THEN Col%(5,1)-=1
1170 WHEN 43 :IF Col%(5,2)>1 THEN Col%(5,2)-=1
1180 WHEN 44 :IF Col%(5,3)>1 THEN Col%(5,3)-=1
1190 WHEN 48 :IF Col%(5,1)<16 THEN Col%(5,1)+=1
1200 WHEN 49 :IF Col%(5,2)<16 THEN Col%(5,2)+=1
1210 WHEN 50 :IF Col%(5,3)<16 THEN Col%(5,3)+=1
1220
1230 WHEN 51 :IF Col%(6,1)>1 THEN Col%(6,1)-=1
1240 WHEN 52 :IF Col%(6,2)>1 THEN Col%(6,2)-=1
1250 WHEN 53 :IF Col%(6,3)>1 THEN Col%(6,3)-=1
1260 WHEN 57 :IF Col%(6,1)<16 THEN Col%(6,1)+=1
1270 WHEN 58 :IF Col%(6,2)<16 THEN Col%(6,2)+=1
1280 WHEN 59 :IF Col%(6,3)<16 THEN Col%(6,3)+=1
1290
1300 WHEN 65 :IF FadeStep%>1 THEN FadeStep%-=1
1310 WHEN 66 :IF Delay%>5 THEN Delay%-=5
1320 WHEN 69 :IF FadeStep%<16 THEN FadeStep%+=1
1330 WHEN 70 :IF Delay%<995 THEN Delay%+=5
1340 WHEN 71 :PROCSaveOptions
1350 ENDCASE
1360 PROCUpdateIcons
1370 PROCFadeCalc
1380 ENDIF
1390
1400 ENDPROC
1410 :
1420 DEF PROCEvent_KeyPress(window%,icon%,key%)
1430 CASE window% OF
1440 ENDCASE
1450 ENDPROC
1460 :
1470 DEF PROCEvent_MenuChoice(menu%)
1480 CASE menu% OF
1490 WHEN Bar_Menu% : PROCUser_MenuChoiceBar
1500 ENDCASE
1510 ENDPROC
1520 :
1530 DEF PROCUser_MenuChoiceBar
1540 CASE FNWimp_MenuChoice(0) OF
1550 WHEN 1 :
1560 WHEN 2 :PROCWimp_WindowOpen(Options_Window%)
1570 WHEN 3 :finished%=TRUE
1580 ENDCASE
1590 ENDPROC
1600 :
1610 DEF PROCEvent_LoadFile(file$,type$)
1620 ENDPROC
1630 :
1640 DEF PROCEvent_SaveFile(file$,window%)
1650 ENDPROC
1660 :
1670 :
1680 DEFPROCLoadConfig
1690 LOCAL Temp%,Temp$
1700 Temp%=0
1710 InFile%=OPENIN "<POINTFADE$DIR>.Config"
1720 REPEAT
1730 Temp%=Temp%+1
1740 Temp$=GET$#InFile%
1750 Col%(Temp%,1)=VAL(Temp$)
1760 Temp$=GET$#InFile%
1770 Col%(Temp%,2)=VAL(Temp$)
1780 Temp$=GET$#InFile%
1790 Col%(Temp%,3)=VAL(Temp$)
1800 UNTIL Temp%=6
1810
1820 Temp$=GET$#InFile%
1830 Delay%=VAL(Temp$)
1840 Temp$=GET$#InFile%
1850 FadeStep%=VAL(Temp$)
1860
1870 CLOSE #InFile%
1880 PROCFadeCalc
1890
1900 T%=TIME+Delay%
1910ENDPROC
1920:
1930DEFPROCUpdateIcons
1940LOCAL I
1950FOR I=1 TO 3
1960PROCWimp_IconPutText(Options_Window%,5+I,STR$(Col%(1,I)))
1970PROCWimp_IconPutText(Options_Window%,14+I,STR$(Col%(2,I)))
1980PROCWimp_IconPutText(Options_Window%,23+I,STR$(Col%(3,I)))
1990PROCWimp_IconPutText(Options_Window%,35+I,STR$(Col%(4,I)))
2000PROCWimp_IconPutText(Options_Window%,44+I,STR$(Col%(5,I)))
2010PROCWimp_IconPutText(Options_Window%,53+I,STR$(Col%(6,I)))
2020NEXT I
2030PROCWimp_IconPutText(Options_Window%,67,STR$(FadeStep%))
2040PROCWimp_IconPutText(Options_Window%,68,STR$(Delay%))
2050
2060ENDPROC
2070:
2080DEFPROCSaveOptions
2090LOCAL Temp$,X,Y
2100OutFile%=OPENOUT "<PointFade$Dir>.Config"
2110FOR Y=1 TO 6
2120FOR X=1 TO 3
2130Temp$=STR$(Col%(Y,X))
2140BPUT#OutFile%,Temp$
2150NEXT X
2160NEXT Y
2170Temp$=STR$(Delay%)
2180BPUT#OutFile%,Temp$
2190Temp$=STR$(FadeStep%)
2200BPUT#OutFile%,Temp$
2210CLOSE#OutFile%
2220ENDPROC
2230:
2240
2250DEFPROCFadeCalc
2260LOCAL X,Y
2270FOR Y=7 TO 9
2280FOR X=1 TO 3
2290Col%(Y,X)=((Col%(Y-3,X)*16-1)-(Col%(Y-6,X)*16-1))/FadeStep%
2300Col%(Y+3,X)=Col%(Y-6,X)*16-1
2310NEXT X
2320NEXT Y
2330FadeCount%=1
2340ENDPROC
2350:
2360
2370
2380
2390
2400
2410REM|_________________________________________________________________________
2420REM|_________________________________________________________________________
2430REM|_________________________________________________________________________
2440REM|
2450REM|
2460REM|
2470REM| ------------------------------- 6/1/92
2480REM| WIMP PROCEDURE LIBRARY
2490REM|
2500REM| Index of Contents
2510REM|
2520REM| -------------------------------
2530REM|
2540REM| 1.EVALWindows
2550REM|
2560REM| 2.EVALIcons
2570REM|
2580REM| 3.EVALMenus
2590REM|
2600REM| 4.EVALSprites
2610REM|
2620REM| 5.EVALMiscellaneous
2630REM|
2640REM| 6.EVALPolling
2650REM|
2660REM| -------------------------------
2670REM|
2680REM|
2690REM|
2700REM|
2710REM|
2720REM|
2730REM| -------------------------------
2740REM| 1.EVALWindows
2750REM| -------------------------------
2760REM|
2770REM|
2780REM| ------------------------------------------------
2790REM|
2800REM| Procedures :
2810REM|
2820REM| PROCWimp_WindowAlert(title$,message$)
2830REM| PROCWimp_WindowAlertBox(title$,message$,button%)
2840REM| FNWimp_WindowCancel(title$,message$)
2850REM| PROCWimp_WindowErrorBox(title$,message$)
2860REM| FNWimp_WindowTitle(window%)
2870REM| FNWimp_WindowLoad(window$)
2880REM| FNWimp_WindowLoadFrom(window$,template$)
2890REM| PROCWimp_WindowBringToTop(window%)
2900REM| PROCWimp_WindowForceDraw(window%)
2910REM| PROCWimp_WindowOpen(window%)
2920REM| PROCWimp_WindowInterface
2930REM|
2940REM| ----------------------------------------------
2950REM|
2960REM|
2970REM|
2980DEF PROCWimp_WindowAlert(title$,message$)
2990PROCWimp_WindowAlertBox(title$,message$,0)
3000ENDPROC
3010:
3020DEF PROCWimp_WindowAlertBox(title$,message$,button%)
3030LOCAL response%
3040$(wimp%+4)=message$
3050CASE button% OF
3060 WHEN 2 : response%=1
3070 WHEN 1 : response%=15
3080 WHEN 3 : response%=(1<<5)+16
3090 WHEN 4 : response%=(1<<6)+16
3100OTHERWISE : response%=16
3110ENDCASE
3120SYS "Wimp_ReportError",wimp%,response%,title$ TO ,response%
3130ENDPROC
3140:
3150DEF FNWimp_WindowCancel(title$,message$)
3160$(wimp%+4)=message$
3170response%=23
3180SYS "Wimp_ReportError",wimp%,response%,title$ TO ,response%
3190=response%-2
3200:
3210DEF PROCWimp_WindowErrorBox(title$,message$)
3220PROCWimp_WindowAlertBox(title$,message$,2)
3230ENDPROC
3240:
3250DEF FNWimp_WindowTitle(window%)
3260wimp%!0=window%
3270SYS "Wimp_GetWindInfo",,wimp%
3280IF ((wimp%!60)AND&100)=0 ERROR 1,"Title isn't indirected"
3290=$(wimp%!76)
3300:
3310DEF FNWimp_WindowLoad(window$)
3320=FNWimp_WindowLoadFrom(window$,"<Obey$Dir>.Templates")
3330:
3340DEF FNWimp_WindowLoadFrom(window$,template$)
3350LOCAL c%,i%,n%,j%,sp$,sp2$
3360SYS "Wimp_OpenTemplate",,template$
3370SYS "Wimp_LoadTemplate",,wimp%,icons%,icon_memory%,-1,window$,0 TO ,,icons%
3380CASE sprites% OF
3390 WHEN 1 : wimp%!64=sprites%
3400 OTHERWISE : wimp%!64=FNEvent_Sprites(window%)
3410ENDCASE
3420SYS "Wimp_CreateWindow",,wimp% TO c%
3430SYS "Wimp_CloseTemplate"
3440SYS "Wimp_WhichIcon",c%,wimp%+40,1+2+(1<<8),2+(1<<8)
3450CASE wimp%!40 OF
3460 WHEN -1 :
3470 OTHERWISE : i%=40
3480 REPEAT
3490 wimp%!4=wimp%!i% : wimp%!0=c%
3500 SYS "Wimp_GetIconState",,wimp%
3510 sp$=FNWimp_GetStringAtAddress(wimp%!28)
3520 SYS "Wimp_DeleteIcon",,wimp%
3530 CASE sprites% OF
3540 WHEN 1 : wimp%!32=1
3550 OTHERWISE :
3560 SYS "OS_SpriteOp",&108,sprites% TO ,,,n%
3570 j%=0
3580 REPEAT : j%+=1
3590 SYS "OS_SpriteOp",&10D,sprites%,pointer_block%,20,j%
3600 sp2$=FNWimp_GetStringAtAddress(pointer_block%)
3610 UNTIL j%=n% OR sp$=sp2$
3620 IF sp$=sp2$ THEN wimp%!32=sprites% ELSE wimp%!32=1
3630 ENDCASE
3640 wimp%!4=c%
3650 SYS "Wimp_CreateIcon",,wimp%+4 TO handle%
3660 i%+=4
3670 UNTIL (wimp%!i%)=-1
3680ENDCASE
3690=c%
3700:
3710DEF PROCWimp_WindowBringToTop(window%)
3720!wimp%=window%
3730SYS "Wimp_GetWindowState",,wimp%
3740wimp%!28=-1
3750SYS "Wimp_OpenWindow",,wimp%
3760ENDPROC
3770:
3780DEF PROCWimp_WindowClose(window%)
3790!wimp%=window%
3800SYS "Wimp_CloseWindow",,wimp%
3810ENDPROC
3820:
3830DEF PROCWimp_WindowForceDraw(window%)
3840CASE window% OF
3850 WHEN -1 : SYS "Wimp_ForceRedraw",-1,0,0,2*1280,2*1024
3860 OTHERWISE : SYS "Wimp_ForceRedraw",window%,0,-2*1024,2*1280,0
3870ENDCASE
3880ENDPROC
3890:
3900DEF PROCWimp_WindowOpen(window%)
3910!wimp%=window%
3920SYS "Wimp_GetWindowState",,wimp%
3930SYS "Wimp_OpenWindow",,wimp%
3940ENDPROC
3950:
3960PROCWimp_WindowInterface
3970SYS"Wimp_BorderWindow",,wimp%
3980ENDPROC
3990REM|
4000REM|
4010REM|
4020REM| -------------------------
4030REM| 2.EVALIcons
4040REM| -------------------------
4050REM|
4060REM|
4070REM| ------------------------------------------
4080REM|
4090REM| Procedures :
4100REM|
4110REM| FNWimp_IconBar(Sprite$)
4120REM| PROCWimp_IconCaret(window%,icon%,chars%)
4130REM| FNWimp_IconText(window%,icon%)
4140REM| FNWimp_IconValidation(window%,icon%)
4150REM| PROCWimp_IconDisable(window%,icon%)
4160REM| PROCWimp_IconEnable(window%,icon%)
4170REM| FNWimp_IconPutSprite(window%,icon%,sprite$)
4180REM| PROCWimp_IconPutText(window%,icon%,text$)
4190REM| PROCWimp_IconInterfaceStart
4200REM| PROCWimp_IconInterfaceFinish
4210REM|
4220REM| ------------------------------------------
4230REM|
4240:
4250DEF FNWimp_IconBar(Sprite$)
4260LOCAL icon%
4270wimp%!0=-1
4280wimp%!4=0 : wimp%!8=0
4290wimp%!12=68 : wimp%!16=68
4300wimp%!20=&3002
4310$(wimp%+24)=Sprite$
4320SYS "Wimp_CreateIcon",,wimp% TO icon%
4330=icon%
4340:
4350DEF PROCWimp_IconCaret(window%,icon%,chars%)
4360SYS "Wimp_SetCaretPosition",window%,icon%,,,-1,chars%
4370ENDPROC
4380:
4390DEF FNWimp_IconText(window%,icon%)
4400wimp%!0=window% : wimp%!4=icon%
4410SYS "Wimp_GetIconState",,wimp%
4420IF ((wimp%!24) AND &100)=0 ERROR 1,"Icon isn't indirected"
4430=$(wimp%!28)
4440:
4450DEF FNWimp_IconValidation(window%,icon%)
4460wimp%!0=window% : wimp%!4=icon%
4470SYS "Wimp_GetIconState",,wimp%
4480IF ((wimp%!24) AND &100)=0 ERROR 1,"Icon isn't indirected"
4490=$(wimp%!32)
4500:
4510DEF PROCWimp_IconDisable(window%,icon%)
4520wimp%!0=window% : wimp%!4=icon%
4530wimp%!8=1<<22 : wimp%!12=1<<22
4540SYS "Wimp_SetIconState",,wimp%
4550ENDPROC
4560:
4570DEF PROCWimp_IconEnable(window%,icon%)
4580wimp%!0=window% : wimp%!4=icon%
4590wimp%!8=0 : wimp%!12=1<<22
4600SYS "Wimp_SetIconState",,wimp%
4610ENDPROC
4620:
4630DEF FNWimp_IconPutSprite(window%,icon%,sprite$)
4640wimp%!0=window%:wimp%!4=icon%
4650SYS "Wimp_GetIconState",,wimp%
4660SYS "Wimp_DeleteIcon",,wimp%
4670wimp%!4=wimp%!8 : wimp%!8=wimp%!12 : wimp%!12=wimp%!16
4680wimp%!16=wimp%!20 : wimp%!20=wimp%!24 : $(wimp%+24)=sprite$
4690SYS "Wimp_CreateIcon",,wimp% TO icon%
4700=icon%
4710:
4720DEF PROCWimp_IconPutText(window%,icon%,text$)
4730wimp%!0=window% : wimp%!4=icon%
4740SYS "Wimp_GetIconState",,wimp%
4750IF ((wimp%!24) AND &100)=0 ERROR 1,"Icon isn't indirected"
4760$(wimp%!28)=text$
4770wimp%!0=window% : wimp%!4=icon%
4780wimp%!8=0 : wimp%!12=0
4790SYS "Wimp_SetIconState",,wimp%
4800ENDPROC
4810:
4820DEF PROCWimp_IconInterfaceStart
4830SYS"Wimp_BorderIcon",,wimp%
4840ENDPROC
4850:
4860DEF PROCWimp_IconInterfaceFinish
4870wimp%!8=0
4880SYS"Wimp_BorderIcon",,wimp%
4890ENDPROC
4900:
4910REM|
4920REM|
4930REM|
4940REM| -------------------------
4950REM| 3.EVALMenus
4960REM| -------------------------
4970REM|
4980REM|
4990REM| ----------------------------------------------
5000REM|
5010REM| Procedures :
5020REM|
5030REM|
5040REM| PROCWimp_MenuAdjustOn(menu%)
5050REM| FNWimp_MenuChoice(level%)
5060REM| FNWimp_MenuCreate(menu$)
5070REM| FNWimp_MenuColours
5080REM| FNWimp_MenuCreateColours(title$)
5090REM| FNWimp_MenuNoOfEntries(menu$)
5100REM| PROCWimp_MenuBackGroundColour(menu%,item%,colour%)
5110REM| PROCWimp_MenuCentre(menu%,item%)
5120REM| PROCWimp_MenuClose
5130REM| PROCWimp_MenuDisable(menu%,item%)
5140REM| PROCWimp_MenuDottedLine(menu%,item%)
5150REM| PROCWimp_MenuEnable(menu%,item%)
5160REM| PROCWimp_MenuForegroundColour(menu%,item%,colour%)
5170REM| PROCWimp_MenuGlue(menu1%,item%,menu2%)
5180REM| PROCWimp_MenuItem(menu%,item%,item$)
5190REM| PROCWimp_MenuMessage(menu%,item%)
5200REM| PROCWimp_MenuPopUp(Menu%,x%,y%)
5210REM| PROCWimp_MenuPopUpBar(x%,y%)
5220REM| PROCWimp_MenuTick(menu%,item%)
5230REM| PROCWimp_MenuTitle(menu%,title$)
5240REM| PROCWimp_MenuWrite(menu%,item%,buffer%,val%,BufferLength%)
5250REM|
5260REM| ----------------------------------------------
5270REM|
5280:
5290DEF PROCWimp_MenuAdjustOn(menu%)
5300SYS "Wimp_GetPointerInfo",,pointer_block%
5310IF ((pointer_block%!8)AND1)=1 THEN SYS "Wimp_CreateMenu",,menu%,pointer_block%!0,pointer_block%!4
5320ENDPROC
5330:
5340DEF FNWimp_MenuChoice(level%)
5350=(wimp%!(4*level%))+1
5360:
5370DEF FNWimp_MenuCreate(menu$)
5380IF menu$="Colours" THEN=FNWimp_MenuColours
5390LOCAL menu%,index%,width%,length%,k%,s%
5400DIM menu% 28+FNWimp_MenuNoOfEntries(menu$)*24
5410menu%?12=7 : menu%?13=2 : menu%?14=7 :menu%?15=0
5420menu%!16=140 : menu%!20=44 : menu%!24=0
5430index%=menu%+28
5440$menu%=LEFT$(menu$,INSTR(menu$,"\")-1)
5450width%=LEN(LEFT$(menu$,INSTR(menu$,"\")-1))
5460menu$+="\" : Menu_NoOfEntries%=0
5470WHILE menu$<>""
5480menu$=MID$(menu$,INSTR(menu$,"\")+1)
5490CASE menu$ OF
5500 WHEN ""
5510 OTHERWISE :
5520 !index%=0 : index%!4=-1 : index%!8=&7000021
5530 length%=INSTR(menu$,"\")-1
5540 k%=INSTR(LEFT$(menu$,length%),">")
5550 CASE k% OF
5560 WHEN 0
5570 OTHERWISE
5580 s%=EVAL(MID$(menu$,k%+1,length%-k%))
5590 index%!4=s%
5600 length%=k%-1
5610 ENDCASE
5620 $(index%+12)=LEFT$(menu$,length%)
5630 IF length%>width% THEN width%=length%
5640 index%+=24
5650ENDCASE
5660ENDWHILE
5670menu%!16=16*(width%+1)
5680index%!-24=index%!-24 OR &80 : =menu%
5690:
5700DEF FNWimp_MenuColours
5710=FNWimp_MenuCreateColours(" ")
5720:
5730DEF FNWimp_MenuCreateColours(title$)
5740LOCAL x$,men%,j%,i%
5750x$=title$+"\0\1\2\3\4\5\6\7\8\9\10\11\12\13\14\15"
5760men%=FNWimp_MenuCreate(x$)
5770FOR i%=0 TO 15
5780CASE TRUE OF
5790WHEN i%<4,i%=9,i%=12,i%=14,i%=15 : j%=7
5800OTHERWISE : j%=0
5810ENDCASE
5820men%?(39+i%*24)=i%*16+j%
5830PROCWimp_MenuCentre(men%,i%+1)
5840NEXT
5850=men%
5860:
5870DEF FNWimp_MenuNoOfEntries(menu$)
5880LOCAL n% ,j% : n%=0 : j%=0
5890REPEAT
5900j%=INSTR(menu$,"\",j%+1)
5910IF j%<>0 THEN n%+=1
5920UNTIL j%=0
5930=n%
5940:
5950DEF PROCWimp_MenuBackGroundColour(menu%,item%,colour%)
5960LOCAL fore%,i%
5970fore%=(menu%?(39+(item%-1)*24))MOD16
5980i%=((menu%?(39+(item%-1)*24))DIV16)MOD16
5990menu%?(39+(item%-1)*24)=fore%+16*colour%+i%
6000ENDPROC
6010:
6020DEF PROCWimp_MenuCentre(menu%,item%)
6030menu%!(36+(item%-1)*24)=menu%!(36+(item%-1)*24)OR(1<<3)
6040ENDPROC
6050:
6060DEF PROCWimp_MenuClose
6070SYS "Wimp_CreateMenu",-1
6080ENDPROC
6090:
6100DEF PROCWimp_MenuDisable(menu%,item%)
6110menu%!(36+(item%-1)*24)=menu%!(36+(item%-1)*24)OR(1<<22)
6120ENDPROC
6130:
6140DEF PROCWimp_MenuDottedLine(menu%,item%)
6150menu%!(28+(item%-1)*24)=(menu%!(28+(item%-1)*24))OR2
6160ENDPROC
6170:
6180DEF PROCWimp_MenuEnable(menu%,item%)
6190PROCWimp_MenuDisable(menu%,item%)
6200menu%!(36+(item%-1)*24)=menu%!(36+(item%-1)*24)EOR(1<<22)
6210ENDPROC
6220:
6230DEF PROCWimp_MenuForegroundColour(menu%,item%,colour%)
6240menu%?(39+(item%-1)*24)=colour%+16*((menu%?(39+(item%-1)*24))DIV16)
6250ENDPROC
6260:
6270DEF PROCWimp_MenuGlue(menu1%,item%,menu2%)
6280menu1%!(8+item%*24)=menu2%
6290ENDPROC
6300:
6310DEF PROCWimp_MenuItem(menu%,item%,item$)
6320$(menu%+(40+(item%-1)*24))=LEFT$(item$,12)+CHR$0
6330ENDPROC
6340:
6350DEF PROCWimp_MenuMessage(menu%,item%)
6360menu%!(28+(item%-1)*24)=(menu%!(28+(item%-1)*24))EOR(1<<3)
6370ENDPROC
6380:
6390DEF PROCWimp_MenuPopUp(Menu%,x%,y%)
6400menu%=Menu%
6410SYS "Wimp_CreateMenu",,menu%,x%-64,y%+20
6420ENDPROC
6430:
6440DEF PROCWimp_MenuPopUpBar(x%,y%)
6450LOCAL n% : n%=0
6460WHILE ((Bar_Menu%!(28+n%*24))AND%10000000)=0
6470n%+=1
6480ENDWHILE
6490SYS "Wimp_CreateMenu",,Bar_Menu%,x%-64,96+n%*44
6500menu%=Bar_Menu%
6510ENDPROC
6520:
6530DEF PROCWimp_MenuTick(menu%,item%)
6540menu%!(28+(item%-1)*24)=(menu%!(28+(item%-1)*24))EOR1
6550ENDPROC
6560:
6570DEF PROCWimp_MenuTitle(menu%,title$)
6580$menu%=LEFT$(title$,12)+CHR$0
6590ENDPROC
6600:
6610DEF PROCWimp_MenuWrite(menu%,item%,buffer%,val%,BufferLength%)
6620menu%!(28+(item%-1)*24)=(menu%!(28+(item%-1)*24))OR4
6630menu%!(36+(item%-1)*24)=menu%!(36+(item%-1)*24)OR&100
6640menu%!(40+(item%-1)*24)=buffer%
6650menu%!(44+(item%-1)*24)=val%
6660menu%!(48+(item%-1)*24)=BufferLength%
6670ENDPROC
6680:
6690REM|
6700REM|
6710REM|
6720REM| -------------------------
6730REM| 4.EVALSprites
6740REM| -------------------------
6750REM|
6760REM|
6770REM| ------------------------------------
6780REM|
6790REM| Procedures :
6800REM|
6810REM|
6820REM| PROCWimp_SpritesLoad
6830REM| PROCWimp_SpritesPathLoad(pathname$
6840REM|
6850REM|
6860REM|
6870REM| ------------------------------------
6880REM|
6890:
6900DEF PROCWimp_SpritesLoad
6910PROCWimp_SpritesPathLoad("<Obey$Dir>.Sprites")
6920direct_sprites%=sprites%
6930ENDPROC
6940:
6950DEF PROCWimp_SpritesPathLoad(pathname$)
6960LOCALS%,T%
6970S%=OPENIN"<Obey$Dir>.Sprites":T%=EXT#S%+16:CLOSE#S%
6980DIMsprites%T%,spname%12
6990!sprites%=T%:sprites%!8=0
7000SYS"OS_SpriteOp",&109,sprites%
7010SYS"OS_SpriteOp",&10A,sprites%,pathname$
7020ENDPROC
7030:
7040REM|
7050REM|
7060REM|
7070REM| -------------------------
7080REM| 5.EVALFiles
7090REM| -------------------------
7100REM|
7110REM|
7120REM| -------------------------------
7130REM|
7140REM| Procedures :
7150REM|
7160REM|
7170REM| FNWimp_FileType(type%)
7180REM| FNWimp_GetFilePathName
7190REM| FNWimp_FileLoad(pathname$)
7200REM| FNWimp_GetStringAtAddress(array%)
7210REM| FNWimp_GetFileFromPathname(f$)
7220REM| PROCWimp_SendToEdit(file$)
7230REM|
7240REM| -------------------------------
7250REM|
7260REM|
7270REM|
7280:
7290DEF FNWimp_FileType(type%)
7300CASEtype%OF
7310WHEN&FFF:="Text"
7320WHEN&FFD:="Data"
7330WHEN&FFB:="Basic"
7340WHEN&FF9:="Sprite"
7350WHEN&FED:="Palette"
7360WHEN&FEC:="Template"
7370WHEN&AFF:="Draw"
7380WHEN&1000:="Folder"
7390WHEN&2000:="Application"
7400OTHERWISE=STR$~(type%)
7410ENDCASE
7420:
7430DEF FNWimp_GetFilePathName
7440=FNWimp_GetStringAtAddress(wimp%+44)
7450:
7460DEF FNWimp_FileLoad(pathname$)
7470LOCALS%,T%,file%
7480S%=OPENINpathname$
7490T%=EXT#S%+16
7500CLOSE#S%
7510DIMfile%T%
7520OSCLI("LOAD"+pathname$+""+STR$~file%)
7530=file%
7540;
7550DEF FNWimp_GetStringAtAddress(array%)
7560LOCALs$:s$=""
7570WHILE(?array%<>13)AND(?array%<>0):s$+=CHR$(?array%):array%+=1:ENDWHILE:
7580=s$
7590:
7600DEF FNWimp_GetFileFromPathname(f$)
7610CASE INSTR(f$,".") OF
7620 WHEN 0 :=f$
7630 OTHERWISE :=FNWimp_GetFileFromPathname(RIGHT$(f$,LEN(f$)-INSTR(f$,".")))
7640ENDCASE
7650:
7660DEF PROCWimp_SendToEdit(file$)
7670LOCAL n%
7680wimp%!4=&6CC01C0C
7690wimp%!16=5
7700wimp%!36=0
7710wimp%!40=&FFF
7720$(wimp%+44)=file$+CHR$0
7730n%=LENfile$+45
7740IF n%MOD4 THEN !wimp%=4+(n%>>2)<<2 ELSE !wimp%=n%
7750SYS "Wimp_SendMessage",17,wimp%,0
7760ENDPROC
7770:
7780REM|
7790REM|
7800REM|
7810REM| -------------------------
7820REM| 5.EVALMiscellaneous
7830REM| -------------------------
7840REM|
7850REM|
7860REM| -------------------------------
7870REM|
7880REM| Procedures :
7890REM|
7900REM|
7910REM| PROCWimp_Start(TaskName$)
7920REM| FNWimp_BASICParameters
7930REM| PROCWimp_SetEventVariables
7940REM| PROCWimp_Error(task%,TaskName$)
7950REM| PROCWimp_CloseDown
7960REM| PROCWimp_Quit
7970REM| FNWimp_ReadVariable(Variable$)
7980REM|
7990REM|
8000REM| -------------------------------
8010REM|
8020:
8030DEF PROCWimp_Start(TaskName$,wimp_memory%,icon%)
8040DIM wimp% wimp_memory%,icons% icon%
8050IF wimp_memory%<256 THEN wimp_memory%=256
8060icon_memory%=icons%+icon%
8070task$=TaskName$
8080indirect_sprites%=1 : direct_sprites%=1
8090PROCWimp_SetEventVariables
8100ON ERROR PROCWimp_Error:END
8110SYS"Wimp_Initialise",200,&4B534154,TaskName$ TO version%,task%
8120ENDPROC
8130:
8140DEF FNWimp_BASICParameters
8150 LOCAL com$,param$,I%
8160 SYS "OS_GetEnv" TO com$
8170 params$=""
8180 I%=INSTR(com$," -quit ")
8190 IF I% THEN params$=MID$(com$,INSTR(com$," ",I%+LEN" -quit ")+1)
8200=params$
8210:
8220DEF PROCWimp_SetEventVariables
8230DIM pointer_block% 20
8240interface%=FALSE
8250null%=1 :draw%=2 : pointer_leaving%=1<<4
8260pointer_entering%=1<<5:mouse%=1<<6:drag%=1<<7
8270key%=1<<8:menu%=1<<9:scroll%=1<<10
8280lose_caret%=1<<11:gain_caret%=1<<12:message%=(1<<17)+(1<<18)
8290recorder%=1<<18:acknowledge%=1<<19:window%=0
8300sprites%=1:version%=0:task%=0
8310Bar_Window%=-2:Bar_Icon%=0:Bar_Menu%=0
8320x_origin%=0:y_origin%=0:SaveWindow%=-3
8330message_quit%=0:message_save%=2:message_load%=3
8340mouse_button%=2:save_event%=0
8350top_line%=0 : bottom_line%=0
8360ENDPROC
8370:
8380DEF PROCWimp_Error
8390LOCALX$,x%
8400ON ERROR OFF
8410x%=ERL
8420X$=REPORT$+"atline"+STR$(x%DIV10)
8430DIMErrorMsg%36
8440ErrorMsg%!0=36:ErrorMsg%!12=0:ErrorMsg%!16=&81080:ErrorMsg%!20=x%
8450$(ErrorMsg%+24)="!RunImage"
8460SYS"Wimp_SendMessage",17,ErrorMsg%
8470PROCWimp_WindowAlert(task$,X$)
8480PROCWimp_CloseDown
8490ENDPROC
8500:
8510DEF PROCWimp_CloseDown
8520SYS"Wimp_CloseDown",task%,"TASK"
8530ENDPROC
8540:
8550DEF PROCWimp_Quit
8560finished%=TRUE
8570ENDPROC
8580:
8590DEF FNWimp_ReadVariable(Variable$)
8600LOCALlen%,result%,variable%
8610$wimp%=Variable$
8620SYS"OS_ReadVarVal",wimp%,wimp%+255,255,,3TO,,len%
8630wimp%?(len%+255)=13
8640=$(wimp%+255)
8650:
8660:
8670REM|
8680REM|
8690REM|
8700REM|
8710REM| ----------------
8720REM| Wimp Polling
8730REM| ----------------
8740REM|
8750REM|
8760:
8770DEF PROCWimp_WaitForEvent
8780LOCAL mask%,event%,X,Y
8790finished%=FALSE
8800mask%=%111000011001
8810REPEAT
8820IF TIME>T% AND Flashing%=TRUE THEN
8830T%=TIME+Delay%
8840FadeCount%=FadeCount%+1
8850FOR Y=10 TO 12
8860FOR X=1 TO 3
8870Col%(Y,X)=Col%(Y-3,X)+Col%(Y,X)
8880NEXT X
8890NEXT Y
8900IF FadeCount%>FadeStep%-1 THEN
8910 FadeCount%=1
8920 FOR Y=7 TO 9
8930 FOR X=1 TO 3
8940 Col%(Y,X)=Col%(Y,X)*-1
8950 NEXT X
8960 NEXT Y
8970ENDIF
8980MOUSE COLOUR 1,Col%(10,1),Col%(10,2),Col%(10,3)
8990MOUSE COLOUR 2,Col%(11,1),Col%(11,2),Col%(11,3)
9000MOUSE COLOUR 3,Col%(12,1),Col%(12,2),Col%(12,3)
9010ENDIF
9020 SYS"Wimp_PollIdle",&81932,wimp% TO event%
9030 CASE event% OF
9040 WHEN0 :
9050 WHEN1 : PROCWimp_PollDrawWindow
9060 WHEN2 : SYS "Wimp_OpenWindow",,wimp%
9070 WHEN3 : PROCWimp_PollCloseWindow
9080 WHEN4 :
9090 WHEN5 :
9100 WHEN6 : PROCWimp_PollMouseClick
9110 WHEN7 : PROCWimp_PollSaveMessage
9120 WHEN8 : PROCWimp_PollKeyPress
9130 WHEN9 : PROCEvent_MenuChoice(menu%)
9140 WHEN10:
9150 WHEN11:
9160 WHEN12:
9170 WHEN17,18: PROCWimp_PollMessages
9180 WHEN19:
9190 ENDCASE
9200UNTIL finished%
9210ENDPROC
9220:
9230DEF PROCWimp_PollDrawWindow
9240LOCAL more%
9250SYS"Wimp_RedrawWindow",,wimp%TOmore%
9260window%=wimp%!0
9270x_origin%=16+wimp%!4-wimp%!20:y_origin%=-16+wimp%!16-wimp%!24
9280WHILEmore%
9290 IF interface% THEN SYS"Wimp_BorderWindow",,wimp%
9300 PROCEvent_Draw(window%,x_origin%,y_origin%)
9310 SYS"Wimp_GetRectangle",,wimp%TOmore%
9320ENDWHILE
9330ENDPROC
9340:
9350DEF PROCWimp_PollCloseWindow
9360 SYS "Wimp_GetPointerInfo",,wimp%
9370 window%=wimp%!12 : buttons%=wimp%!8
9380 PROCEvent_WindowClose(window%,buttons%)
9390 !wimp%=window% : SYS "Wimp_CloseWindow",,wimp%
9400ENDPROC
9410:
9420DEF PROCWimp_PollMouseClick
9430 button%=wimp%!8:window%=wimp%!12:icon%=wimp%!16:x%=wimp%!0:y%=wimp%!4
9440 CASE button% OF
9450 WHEN2 : PROCWimp_PollMenuPopUp
9460 OTHERWISE: CASE FNEvent_Save(window%) OF
9470 WHEN TRUE : PROCWimp_PollMouseSave
9480 WHEN FALSE: PROCWimp_PollEventMouseClick
9490 ENDCASE
9500 ENDCASE
9510ENDPROC
9520:
9530DEF PROCWimp_PollMenuPopUp
9540menu%=FNEvent_Menu(window%)
9550 CASE menu% OF
9560 WHEN FALSE:
9570 OTHERWISE :
9580 CASE window% OF
9590 WHEN -2 : n%=0
9600 WHILE ((Bar_Menu%!(28+n%*24))AND%10000000)=0
9610 n%+=1
9620 ENDWHILE
9630 SYS "Wimp_CreateMenu",,Bar_Menu%,x%-64,96+n%*44
9640 OTHERWISE : SYS"Wimp_CreateMenu",,menu%,x%-64,y%+20
9650 ENDCASE
9660 ENDCASE
9670ENDPROC
9680:
9690DEF PROCWimp_PollMouseSave
9700 CASE icon% OF
9710 WHEN 0 : IF button% AND &50 THEN PROCWimp_PollDragBox(window%)
9720 WHEN 2 : IF button% AND 5 THEN PROCWimp_PollSaveFile(window%)
9730 ENDCASE
9740ENDPROC
9750:
9760DEF PROCWimp_PollEventMouseClick
9770 IF interface% THEN SYS"Wimp_BorderIcon",,wimp%
9780 PROCEvent_MouseClick(window%,icon%,button%,x%,y%)
9790 CASE interface% OF
9800 WHEN TRUE :
9810 wimp%!0=x%:wimp%!4=y% : wimp%!8=0
9820 wimp%!12=window% : wimp%!16=icon%
9830 SYS"Wimp_BorderIcon",,wimp%
9840 ENDCASE
9850ENDPROC
9860:
9870DEF PROCWimp_PollSaveFile(window%)
9880LOCALfile$
9890 wimp%!0=window% : wimp%!4=1 : SYS "Wimp_GetIconState",,wimp%
9900 file$=$(wimp%!28)
9910 CASE INSTR(file$,".") OF
9920 WHEN 0 :
9930 $(wimp%+4)="To save, drag the icon to a directory window"
9940 SYS "Wimp_ReportError",wimp%,16,task$
9950 OTHERWISE:
9960 PROCEvent_SaveFile(file$,window%)
9970 ENDCASE
9980 SYS"Wimp_CreateMenu",-1
9990ENDPROC
10000:
10010DEF PROCWimp_PollDragBox(window%)
10020LOCALx%,y%
10030 save%=window%
10040 !wimp%=window%
10050 SYS"Wimp_GetWindowState",,wimp%
10060 x%=wimp%!4-wimp%!20:y%=wimp%!16-wimp%!24
10070 wimp%!4=0
10080 SYS"Wimp_GetIconState",,wimp%
10090 !wimp%=window%
10100 wimp%!4=5
10110 wimp%!8=x%+wimp%!8:wimp%!12=y%+wimp%!12
10120 wimp%!16=x%+wimp%!16:wimp%!20=y%+wimp%!20
10130 wimp%!24=0:wimp%!28=0
10140 wimp%!32=&7FFFFFFF:wimp%!36=&7FFFFFFF
10150 SYS"Wimp_DragBox",,wimp%
10160ENDPROC
10170:
10180DEF PROCWimp_PollKeyPress
10190 window%=wimp%!0:icon%=wimp%!4:key%=wimp%!24
10200 CASE FNEvent_Save(window%) OF
10210 WHEN TRUE : PROCWimpPoll_SaveFile(window%)
10220 WHEN FALSE: PROCEvent_KeyPress(window%,icon%,key%)
10230 ENDCASE
10240ENDPROC
10250:
10260DEF PROCWimp_PollSaveMessage
10270LOCALfile$,window%,icon%,x%,y%
10280 SYS"Wimp_GetPointerInfo",,wimp%
10290 window%=wimp%!12:icon%=wimp%!16:x%=wimp%!0:y%=wimp%!4
10300 wimp%!0=save% : wimp%!4=1 : SYS "Wimp_GetIconState",,wimp%
10310 file$=$(wimp%!28)
10320 file$=FNWimp_GetFileFromPathname(file$)
10330 wimp%!20=window%
10340 wimp%!24=icon%
10350 wimp%!28=x%:wimp%!32=y%
10360 wimp%!36=length%
10370 wimp%!0=64
10380 wimp%!12=0
10390 wimp%!16=1
10400 wimp%!40=&FFF
10410 $(wimp%+44)=file$
10420 SYS"Wimp_SendMessage",17,wimp%,wimp%!20,wimp%!24
10430ENDPROC
10440:
10450DEF PROCWimp_PollMessages
10460LOCAL file$
10470file$=FNWimp_GetStringAtAddress(wimp%+44)
10480 CASE wimp%!16 OF
10490 WHEN 0 : finished%=TRUE
10500 WHEN 1 :
10510 WHEN 2 :
10520 REM PROCWimp_IconPutText(save%,1,file$)
10530 wimp%!0=save% : wimp%!4=1 : SYS "Wimp_GetIconState",,wimp%
10540 $(wimp%!28)=file$
10550 wimp%!0=save% : wimp%!4=1 : wimp%!8=0 : wimp%!12=0
10560 SYS "Wimp_SetIconState",,wimp%
10570 REM PROCWimp_IconCaret(save%,1,LENfile$)
10580 SYS "Wimp_SetCaretPosition",save%,1,,,-1,LENfile$
10590 PROCEvent_SaveFile(file$,save%)
10600 WHEN 3
10610 type$=FNWimp_FileType(wimp%!40) : PROCEvent_LoadFile(file$,type$)
10620 ENDCASE
10630ENDPROC
10640:
10650DEF FNWimp_GetStringAtAddress(array%)
10660LOCALs$:s$=""
10670WHILE(?array%<>13)AND(?array%<>0):s$+=CHR$(?array%):array%+=1:ENDWHILE:
10680=s$
10690:
10700DEF FNWimp_GetFileFromPathname(f$)
10710CASE INSTR(f$,".") OF
10720 WHEN 0 :=f$
10730 OTHERWISE :=FNWimp_GetFileFromPathname(RIGHT$(f$,LEN(f$)-INSTR(f$,".")))
10740ENDCASE
10750:
10760DEF FNWimp_FileType(type%)
10770CASEtype%OF
10780WHEN&FFF:="Text"
10790WHEN&FFD:="Data"
10800WHEN&FFB:="Basic"
10810WHEN&FF9:="Sprite"
10820WHEN&FED:="Palette"
10830WHEN&FEC:="Template"
10840WHEN&AFF:="Draw"
10850WHEN&1000:="Folder"
10860WHEN&2000:="Application"
10870OTHERWISE=STR$~(type%)
10880ENDCASE
10890:
10900
E �Wimp_Start("Pointer Fader",4517,1462)
3 �User_SetInitialData
. �Create_Windows
(+ �UpdateIcons
2, �Create_Menus
<1 �Wimp_WaitForEvent
F. �Wimp_CloseDown
P �
Z :
d! � �User_SetInitialData
n � Col%(12,3)
x Flashing%=�
� Delay%=0
� FadeCount%=0
� FadeStep%=0
� InFile%=0
� OutFile%=0
� �LoadConfig
� �
� :
� � �Create_Windows
�; Info_Window%=�Wimp_WindowLoad("Info")
�> Options_Window%=�Wimp_WindowLoad("Options")
�0 Bar_Icon%=�Wimp_IconBar("!PointFade")
� �
:
$ � �Event_Save(window%)=�
:
". � �Event_Sprites(window%)=sprites%
, :
6 � �Create_Menus
@= menu$="PointFade\Info>Info_Window%\Options\Quit"
J. Bar_Menu%=�Wimp_MenuCreate(menu$)
T �
^
:
h" � �Event_Menu(window%)
r Ȏ window% �
|. � Bar_Window% : =Bar_Menu%
�! : =�
�
�
� :
�1 � �Event_WindowClose(window%,buttons%)
� Ȏ window% �
� �
� �
� :
�5 � �Event_Draw(window%,x_origin%,y_origin%)
� Ȏ window% �
�8 � Info_Window% : �User_DrawInfoWindow
�; � Options_Window% : �User_DrawOptionsWindow
� �
�
:
' � �User_DrawInfoWindow
& �
0 :
:* � �User_DrawOptionsWindow
D �
N :
X; � �Event_MouseClick(window%,icon%,button%,x%,y%)
b Ȏ window% �
l1 � Bar_Window% : �User_MouseBar
vB � Info_Window% : �User_MouseInfo( button%,icon%)
�E � Options_Window% : �User_MouseOptions( button%,icon%)
� �
� �
� :
� � �User_MouseBar
� � Flashing%=� �
� Flashing%=�
�@ ȗ � 1,Col%(1,1)*16-1,Col%(1,2)*16-1,Col%(1,3)*16-1
�@ ȗ � 2,Col%(2,1)*16-1,Col%(2,2)*16-1,Col%(2,3)*16-1
�@ ȗ � 3,Col%(3,1)*16-1,Col%(3,2)*16-1,Col%(3,3)*16-1
� �
� Flashing%=�
� �
�
:
. � �User_MouseInfo( button%,icon%)
Y � PROCWimp_WindowAlert("Info","Mouse button="+STR$button%+"icon="+STR$icon%)
* �
4 :
>1 � �User_MouseOptions( button%,icon%)
He� IF button%<5 THEN PROCWimp_WindowAlert("Options","Mouse button="+STR$button%+"icon="+STR$icon%)
R
\ � button%<5 �
f Ȏ icon% �
p/ � 0 :� Col%(1,1)>1 � Col%(1,1)-=1
z/ � 4 :� Col%(1,2)>1 � Col%(1,2)-=1
�/ � 5 :� Col%(1,3)>1 � Col%(1,3)-=1
�0 � 9 :� Col%(1,1)<16 � Col%(1,1)+=1
�1 � 10 :� Col%(1,2)<16 � Col%(1,2)+=1
�1 � 11 :� Col%(1,3)<16 � Col%(1,3)+=1
�
�0 � 12 :� Col%(2,1)>1 � Col%(2,1)-=1
�0 � 13 :� Col%(2,2)>1 � Col%(2,2)-=1
�0 � 14 :� Col%(2,3)>1 � Col%(2,3)-=1
�1 � 18 :� Col%(2,1)<16 � Col%(2,1)+=1
�1 � 19 :� Col%(2,2)<16 � Col%(2,2)+=1
�1 � 20 :� Col%(2,3)<16 � Col%(2,3)+=1
�
�0 � 21 :� Col%(3,1)>1 � Col%(3,1)-=1
0 � 22 :� Col%(3,2)>1 � Col%(3,2)-=1
0 � 23 :� Col%(3,3)>1 � Col%(3,3)-=1
1 � 27 :� Col%(3,1)<16 � Col%(3,1)+=1
$1 � 28 :� Col%(3,2)<16 � Col%(3,2)+=1
.1 � 29 :� Col%(3,3)<16 � Col%(3,3)+=1
8
B0 � 33 :� Col%(4,1)>1 � Col%(4,1)-=1
L0 � 34 :� Col%(4,2)>1 � Col%(4,2)-=1
V0 � 35 :� Col%(4,3)>1 � Col%(4,3)-=1
`1 � 39 :� Col%(4,1)<16 � Col%(4,1)+=1
j1 � 40 :� Col%(4,2)<16 � Col%(4,2)+=1
t1 � 41 :� Col%(4,3)<16 � Col%(4,3)+=1
~
�0 � 42 :� Col%(5,1)>1 � Col%(5,1)-=1
�0 � 43 :� Col%(5,2)>1 � Col%(5,2)-=1
�0 � 44 :� Col%(5,3)>1 � Col%(5,3)-=1
�1 � 48 :� Col%(5,1)<16 � Col%(5,1)+=1
�1 � 49 :� Col%(5,2)<16 � Col%(5,2)+=1
�1 � 50 :� Col%(5,3)<16 � Col%(5,3)+=1
�
�0 � 51 :� Col%(6,1)>1 � Col%(6,1)-=1
�0 � 52 :� Col%(6,2)>1 � Col%(6,2)-=1
�0 � 53 :� Col%(6,3)>1 � Col%(6,3)-=1
�1 � 57 :� Col%(6,1)<16 � Col%(6,1)+=1
�1 � 58 :� Col%(6,2)<16 � Col%(6,2)+=1
1 � 59 :� Col%(6,3)<16 � Col%(6,3)+=1
0 � 65 :� FadeStep%>1 � FadeStep%-=1
* � 66 :� Delay%>5 � Delay%-=5
(1 � 69 :� FadeStep%<16 � FadeStep%+=1
2, � 70 :� Delay%<995 � Delay%+=5
< � 71 :�SaveOptions
F
�
P �UpdateIcons
Z �FadeCalc
d �
n
x �
� :
�0 � �Event_KeyPress(window%,icon%,key%)
� Ȏ window% �
� �
� �
� :
�% � �Event_MenuChoice(menu%)
� Ȏ menu% �
�< � Bar_Menu% : �User_MenuChoiceBar
�
�
� �
� :
� � �User_MenuChoiceBar
$ Ȏ �Wimp_MenuChoice(0) �
� 1 :
3 � 2 :�Wimp_WindowOpen(Options_Window%)
" � 3 :finished%=�
,
�
6 �
@ :
J) � �Event_LoadFile(file$,type$)
T �
^ :
h+ � �Event_SaveFile(file$,window%)
r �
| :
� :
� ��LoadConfig
� � Temp%,Temp$
� Temp%=0
�- InFile%=� "<POINTFADE$DIR>.Config"
� �
� Temp%=Temp%+1
� Temp$=�#InFile%
�! Col%(Temp%,1)=�(Temp$)
� Temp$=�#InFile%
�! Col%(Temp%,2)=�(Temp$)
� Temp$=�#InFile%
�! Col%(Temp%,3)=�(Temp$)
� Temp%=6
Temp$=�#InFile%
& Delay%=�(Temp$)
0 Temp$=�#InFile%
: FadeStep%=�(Temp$)
D
N � #InFile%
X �FadeCalc
b
l T%=�+Delay%
v�
�:
���UpdateIcons
�� I
�
� I=1 � 3
�7�Wimp_IconPutText(Options_Window%,5+I,�(Col%(1,I)))
�8�Wimp_IconPutText(Options_Window%,14+I,�(Col%(2,I)))
�8�Wimp_IconPutText(Options_Window%,23+I,�(Col%(3,I)))
�8�Wimp_IconPutText(Options_Window%,35+I,�(Col%(4,I)))
�8�Wimp_IconPutText(Options_Window%,44+I,�(Col%(5,I)))
�8�Wimp_IconPutText(Options_Window%,53+I,�(Col%(6,I)))
�� I
�6�Wimp_IconPutText(Options_Window%,67,�(FadeStep%))
�3�Wimp_IconPutText(Options_Window%,68,�(Delay%))
�
:
��SaveOptions
*� Temp$,X,Y
4'OutFile%=� "<PointFade$Dir>.Config"
>
� Y=1 � 6
H
� X=1 � 3
RTemp$=�(Col%(Y,X))
\�#OutFile%,Temp$
f� X
p� Y
zTemp$=�(Delay%)
��#OutFile%,Temp$
�Temp$=�(FadeStep%)
��#OutFile%,Temp$
��#OutFile%
��
�:
�
���FadeCalc
� � X,Y
�� Y=7 � 9
�
� X=1 � 3
�?Col%(Y,X)=((Col%(Y-3,X)*16-1)-(Col%(Y-6,X)*16-1))/FadeStep%
� Col%(Y+3,X)=Col%(Y-6,X)*16-1
� X
� Y
FadeCount%=1
$�
.:
8
B
L
V
`
jO�|_________________________________________________________________________
tO�|_________________________________________________________________________
~O�|_________________________________________________________________________
��|
��|
��|
�E�| ------------------------------- 6/1/92
�/�| WIMP PROCEDURE LIBRARY
��|
�,�| Index of Contents
��|
�5�| -------------------------------
��|
�$�| 1.�Windows
��|
"�| 2.�Icons
�|
"�| 3.�Menus
�|
($�| 4.�Sprites
2�|
<*�| 5.�Miscellaneous
F�|
P$�| 6.�Polling
Z�|
d5�| -------------------------------
n�|
x�|
��|
��|
��|
��|
�5�| -------------------------------
�*�| 1.�Windows
�5�| -------------------------------
��|
��|
�@�| ------------------------------------------------
��|
�(�| Procedures :
��|
8�| PROCWimp_WindowAlert(title$,message$)
C�| PROCWimp_WindowAlertBox(title$,message$,button%)
7�| FNWimp_WindowCancel(title$,message$)
";�| PROCWimp_WindowErrorBox(title$,message$)
,.�| FNWimp_WindowTitle(window%)
6-�| FNWimp_WindowLoad(window$)
@;�| FNWimp_WindowLoadFrom(window$,template$)
J5�| PROCWimp_WindowBringToTop(window%)
T4�| PROCWimp_WindowForceDraw(window%)
^/�| PROCWimp_WindowOpen(window%)
h+�| PROCWimp_WindowInterface
r�|
|?�| ----------------------------------------------
��|
��|
��|
�(� �Wimp_WindowAlert(title$,message$)
�+�Wimp_WindowAlertBox(title$,message$,0)
��
�:
�3� �Wimp_WindowAlertBox(title$,message$,button%)
�� response%
�$(wimp%+4)=message$
�Ȏ button% �
� � 2 : response%=1
� � 1 : response%=15
! � 3 : response%=(1<<5)+16
! � 4 : response%=(1<<6)+16
: response%=16
&�
0=ș "Wimp_ReportError",wimp%,response%,title$ � ,response%
:�
D:
N)� �Wimp_WindowCancel(title$,message$)
X$(wimp%+4)=message$
bresponse%=23
l=ș "Wimp_ReportError",wimp%,response%,title$ � ,response%
v=response%-2
�:
�+� �Wimp_WindowErrorBox(title$,message$)
�+�Wimp_WindowAlertBox(title$,message$,2)
��
�:
� � �Wimp_WindowTitle(window%)
�wimp%!0=window%
� ș "Wimp_GetWindInfo",,wimp%
�6� ((wimp%!60)�&100)=0 � 1,"Title isn't indirected"
�=$(wimp%!76)
�:
� � �Wimp_WindowLoad(window$)
�9=�Wimp_WindowLoadFrom(window$,"<Obey$Dir>.Templates")
:
-� �Wimp_WindowLoadFrom(window$,template$)
� c%,i%,n%,j%,sp$,sp2$
%ș "Wimp_OpenTemplate",,template$
*Mș "Wimp_LoadTemplate",,wimp%,icons%,icon_memory%,-1,window$,0 � ,,icons%
4Ȏ sprites% �
> � 1 : wimp%!64=sprites%
H) : wimp%!64=�Event_Sprites(window%)
R�
\&ș "Wimp_CreateWindow",,wimp% � c%
fș "Wimp_CloseTemplate"
p7ș "Wimp_WhichIcon",c%,wimp%+40,1+2+(1<<8),2+(1<<8)
zȎ wimp%!40 �
�
� -1 :
� : i%=40
� �
�$ wimp%!4=wimp%!i% : wimp%!0=c%
�$ ș "Wimp_GetIconState",,wimp%
�- sp$=�Wimp_GetStringAtAddress(wimp%!28)
�" ș "Wimp_DeleteIcon",,wimp%
� Ȏ sprites% �
� � 1 : wimp%!32=1
� :
�/ ș "OS_SpriteOp",&108,sprites% � ,,,n%
�
j%=0
� � : j%+=1
= ș "OS_SpriteOp",&10D,sprites%,pointer_block%,20,j%
7 sp2$=�Wimp_GetStringAtAddress(pointer_block%)
� j%=n% � sp$=sp2$
$4 � sp$=sp2$ � wimp%!32=sprites% � wimp%!32=1
. �
8 wimp%!4=c%
B. ș "Wimp_CreateIcon",,wimp%+4 � handle%
L i%+=4
V � (wimp%!i%)=-1
`�
j=c%
t:
~%� �Wimp_WindowBringToTop(window%)
�!wimp%=window%
�#ș "Wimp_GetWindowState",,wimp%
�wimp%!28=-1
� ș "Wimp_OpenWindow",,wimp%
��
�:
� � �Wimp_WindowClose(window%)
�!wimp%=window%
� ș "Wimp_CloseWindow",,wimp%
��
�:
�$� �Wimp_WindowForceDraw(window%)
Ȏ window% �
8 � -1 : ș "Wimp_ForceRedraw",-1,0,0,2*1280,2*1024
9 : ș "Wimp_ForceRedraw",window%,0,-2*1024,2*1280,0
�
(�
2:
< � �Wimp_WindowOpen(window%)
F!wimp%=window%
P#ș "Wimp_GetWindowState",,wimp%
Z ș "Wimp_OpenWindow",,wimp%
d�
n:
x�Wimp_WindowInterface
� ș"Wimp_BorderWindow",,wimp%
��
��|
��|
��|
�1�| -------------------------
�(�| 2.�Icons
�1�| -------------------------
��|
��|
�=�| ------------------------------------------
��|
�(�| Procedures :
�|
+�| FNWimp_IconBar(Sprite$)
<�| PROCWimp_IconCaret(window%,icon%,chars%)
"2�| FNWimp_IconText(window%,icon%)
,8�| FNWimp_IconValidation(window%,icon%)
67�| PROCWimp_IconDisable(window%,icon%)
@6�| PROCWimp_IconEnable(window%,icon%)
J?�| FNWimp_IconPutSprite(window%,icon%,sprite$)
T=�| PROCWimp_IconPutText(window%,icon%,text$)
^/�| PROCWimp_IconInterfaceStart
h0�| PROCWimp_IconInterfaceFinish
r�|
|=�| ------------------------------------------
��|
�:
� � �Wimp_IconBar(Sprite$)
� � icon%
�wimp%!0=-1
� wimp%!4=0 : wimp%!8=0
� wimp%!12=68 : wimp%!16=68
�wimp%!20=&3002
�$(wimp%+24)=Sprite$
�'ș "Wimp_CreateIcon",,wimp% � icon%
�
=icon%
�:
�+� �Wimp_IconCaret(window%,icon%,chars%)
8ș "Wimp_SetCaretPosition",window%,icon%,,,-1,chars%
�
:
&#� �Wimp_IconText(window%,icon%)
0#wimp%!0=window% : wimp%!4=icon%
:!ș "Wimp_GetIconState",,wimp%
D7� ((wimp%!24) � &100)=0 � 1,"Icon isn't indirected"
N=$(wimp%!28)
X:
b)� �Wimp_IconValidation(window%,icon%)
l#wimp%!0=window% : wimp%!4=icon%
v!ș "Wimp_GetIconState",,wimp%
�7� ((wimp%!24) � &100)=0 � 1,"Icon isn't indirected"
�=$(wimp%!32)
�:
�&� �Wimp_IconDisable(window%,icon%)
�#wimp%!0=window% : wimp%!4=icon%
�$wimp%!8=1<<22 : wimp%!12=1<<22
�!ș "Wimp_SetIconState",,wimp%
��
�:
�%� �Wimp_IconEnable(window%,icon%)
�#wimp%!0=window% : wimp%!4=icon%
�$wimp%!8=0 : wimp%!12=1<<22
�!ș "Wimp_SetIconState",,wimp%
�
:
0� �Wimp_IconPutSprite(window%,icon%,sprite$)
!wimp%!0=window%:wimp%!4=icon%
*!ș "Wimp_GetIconState",,wimp%
4 ș "Wimp_DeleteIcon",,wimp%
>=wimp%!4=wimp%!8 : wimp%!8=wimp%!12 : wimp%!12=wimp%!16
H?wimp%!16=wimp%!20 : wimp%!20=wimp%!24 : $(wimp%+24)=sprite$
R'ș "Wimp_CreateIcon",,wimp% � icon%
\
=icon%
f:
p,� �Wimp_IconPutText(window%,icon%,text$)
z#wimp%!0=window% : wimp%!4=icon%
�!ș "Wimp_GetIconState",,wimp%
�7� ((wimp%!24) � &100)=0 � 1,"Icon isn't indirected"
�$(wimp%!28)=text$
�#wimp%!0=window% : wimp%!4=icon%
�wimp%!8=0 : wimp%!12=0
�!ș "Wimp_SetIconState",,wimp%
��
�:
� � �Wimp_IconInterfaceStart
� ș"Wimp_BorderIcon",,wimp%
��
�:
� � �Wimp_IconInterfaceFinish
wimp%!8=0
ș"Wimp_BorderIcon",,wimp%
�
$:
.�|
8�|
B�|
L1�| -------------------------
V(�| 3.�Menus
`1�| -------------------------
j�|
t�|
~?�| ----------------------------------------------
��|
�(�| Procedures :
��|
��|
�.�| PROCWimp_MenuAdjustOn(menu%)
�+�| FNWimp_MenuChoice(level%)
�*�| FNWimp_MenuCreate(menu$)
�$�| FNWimp_MenuColours
�2�| FNWimp_MenuCreateColours(title$)
�/�| FNWimp_MenuNoOfEntries(menu$)
�D�| PROCWimp_MenuBackGroundColour(menu%,item%,colour%)
�2�| PROCWimp_MenuCentre(menu%,item%)
$�| PROCWimp_MenuClose
3�| PROCWimp_MenuDisable(menu%,item%)
6�| PROCWimp_MenuDottedLine(menu%,item%)
2�| PROCWimp_MenuEnable(menu%,item%)
(D�| PROCWimp_MenuForegroundColour(menu%,item%,colour%)
28�| PROCWimp_MenuGlue(menu1%,item%,menu2%)
<6�| PROCWimp_MenuItem(menu%,item%,item$)
F3�| PROCWimp_MenuMessage(menu%,item%)
P1�| PROCWimp_MenuPopUp(Menu%,x%,y%)
Z.�| PROCWimp_MenuPopUpBar(x%,y%)
d0�| PROCWimp_MenuTick(menu%,item%)
n2�| PROCWimp_MenuTitle(menu%,title$)
xL�| PROCWimp_MenuWrite(menu%,item%,buffer%,val%,BufferLength%)
��|
�?�| ----------------------------------------------
��|
�:
� � �Wimp_MenuAdjustOn(menu%)
�,ș "Wimp_GetPointerInfo",,pointer_block%
�^� ((pointer_block%!8)�1)=1 � ș "Wimp_CreateMenu",,menu%,pointer_block%!0,pointer_block%!4
��
�:
� � �Wimp_MenuChoice(level%)
�=(wimp%!(4*level%))+1
�:
� � �Wimp_MenuCreate(menu$)
)� menu$="Colours" �=�Wimp_MenuColours
'� menu%,index%,width%,length%,k%,s%
.� menu% 28+�Wimp_MenuNoOfEntries(menu$)*24
"7menu%?12=7 : menu%?13=2 : menu%?14=7 :menu%?15=0
,+menu%!16=140 : menu%!20=44 : menu%!24=0
6index%=menu%+28
@ $menu%=�menu$,�menu$,"\")-1)
J#width%=�(�menu$,�menu$,"\")-1))
T$menu$+="\" : Menu_NoOfEntries%=0
^ȕ menu$<>""
h menu$=�menu$,�menu$,"\")+1)
rȎ menu$ �
| � ""
� :
�1 !index%=0 : index%!4=-1 : index%!8=&7000021
� length%=�menu$,"\")-1
� k%=��menu$,length%),">")
�
Ȏ k% �
�
� 0
�
�% s%=�(�menu$,k%+1,length%-k%))
� index%!4=s%
� length%=k%-1
� �
�" $(index%+12)=�menu$,length%)
�' � length%>width% � width%=length%
index%+=24
�
�
&menu%!16=16*(width%+1)
0(index%!-24=index%!-24 � &80 : =menu%
::
D� �Wimp_MenuColours
N!=�Wimp_MenuCreateColours(" ")
X:
b%� �Wimp_MenuCreateColours(title$)
l� x$,men%,j%,i%
v6x$=title$+"\0\1\2\3\4\5\6\7\8\9\10\11\12\13\14\15"
� men%=�Wimp_MenuCreate(x$)
�� i%=0 � 15
�
Ȏ � �
�(� i%<4,i%=9,i%=12,i%=14,i%=15 : j%=7
� : j%=0
��
� men%?(39+i%*24)=i%*16+j%
� �Wimp_MenuCentre(men%,i%+1)
��
� =men%
�:
�"� �Wimp_MenuNoOfEntries(menu$)
�� n% ,j% : n%=0 : j%=0
�
j%=�menu$,"\",j%+1)
� j%<>0 � n%+=1
� j%=0
*=n%
4:
>5� �Wimp_MenuBackGroundColour(menu%,item%,colour%)
H� fore%,i%
R&fore%=(menu%?(39+(item%-1)*24))�16
\(i%=((menu%?(39+(item%-1)*24))�16)�16
f/menu%?(39+(item%-1)*24)=fore%+16*colour%+i%
p�
z:
�#� �Wimp_MenuCentre(menu%,item%)
�:menu%!(36+(item%-1)*24)=menu%!(36+(item%-1)*24)�(1<<3)
��
�:
�� �Wimp_MenuClose
�ș "Wimp_CreateMenu",-1
��
�:
�$� �Wimp_MenuDisable(menu%,item%)
�;menu%!(36+(item%-1)*24)=menu%!(36+(item%-1)*24)�(1<<22)
��
�:
�'� �Wimp_MenuDottedLine(menu%,item%)
7menu%!(28+(item%-1)*24)=(menu%!(28+(item%-1)*24))�2
�
:
$#� �Wimp_MenuEnable(menu%,item%)
."�Wimp_MenuDisable(menu%,item%)
8;menu%!(36+(item%-1)*24)=menu%!(36+(item%-1)*24)�(1<<22)
B�
L:
V5� �Wimp_MenuForegroundColour(menu%,item%,colour%)
`Emenu%?(39+(item%-1)*24)=colour%+16*((menu%?(39+(item%-1)*24))�16)
j�
t:
~)� �Wimp_MenuGlue(menu1%,item%,menu2%)
� menu1%!(8+item%*24)=menu2%
��
�:
�'� �Wimp_MenuItem(menu%,item%,item$)
�,$(menu%+(40+(item%-1)*24))=�item$,12)+�0
��
�:
�$� �Wimp_MenuMessage(menu%,item%)
�<menu%!(28+(item%-1)*24)=(menu%!(28+(item%-1)*24))�(1<<3)
��
�:
�"� �Wimp_MenuPopUp(Menu%,x%,y%)
menu%=Menu%
+ș "Wimp_CreateMenu",,menu%,x%-64,y%+20
�
:
( � �Wimp_MenuPopUpBar(x%,y%)
2� n% : n%=0
<+ȕ ((Bar_Menu%!(28+n%*24))�%10000000)=0
F n%+=1
P�
Z2ș "Wimp_CreateMenu",,Bar_Menu%,x%-64,96+n%*44
dmenu%=Bar_Menu%
n�
x:
�!� �Wimp_MenuTick(menu%,item%)
�7menu%!(28+(item%-1)*24)=(menu%!(28+(item%-1)*24))�1
��
�:
�#� �Wimp_MenuTitle(menu%,title$)
�$menu%=�title$,12)+�0
��
�:
�=� �Wimp_MenuWrite(menu%,item%,buffer%,val%,BufferLength%)
�7menu%!(28+(item%-1)*24)=(menu%!(28+(item%-1)*24))�4
�8menu%!(36+(item%-1)*24)=menu%!(36+(item%-1)*24)�&100
�#menu%!(40+(item%-1)*24)=buffer%
� menu%!(44+(item%-1)*24)=val%
)menu%!(48+(item%-1)*24)=BufferLength%
�
:
"�|
,�|
6�|
@1�| -------------------------
J*�| 4.�Sprites
T1�| -------------------------
^�|
h�|
r:�| ------------------------------------
|�|
�(�| Procedures :
��|
��|
�,�| PROCWimp_SpritesLoad
�:�| PROCWimp_SpritesPathLoad(pathname$
��|
��|
��|
�:�| ------------------------------------
��|
�:
�� �Wimp_SpritesLoad
�/�Wimp_SpritesPathLoad("<Obey$Dir>.Sprites")
direct_sprites%=sprites%
�
:
&&� �Wimp_SpritesPathLoad(pathname$)
0
�S%,T%
:,S%=�"<Obey$Dir>.Sprites":T%=�#S%+16:�#S%
D�sprites%T%,spname%12
N !sprites%=T%:sprites%!8=0
X!ș"OS_SpriteOp",&109,sprites%
b+ș"OS_SpriteOp",&10A,sprites%,pathname$
l�
v:
��|
��|
��|
�1�| -------------------------
�(�| 5.�Files
�1�| -------------------------
��|
��|
�5�| -------------------------------
��|
�(�| Procedures :
��|
��|
.�| FNWimp_FileType(type%)
.�| FNWimp_GetFilePathName
2�| FNWimp_FileLoad(pathname$)
9�| FNWimp_GetStringAtAddress(array%)
*6�| FNWimp_GetFileFromPathname(f$)
42�| PROCWimp_SendToEdit(file$)
>�|
H5�| -------------------------------
R�|
\�|
f�|
p:
z� �Wimp_FileType(type%)
� Ȏtype%�
��&FFF:="Text"
��&FFD:="Data"
��&FFB:="Basic"
��&FF9:="Sprite"
��&FED:="Palette"
��&FEC:="Template"
��&AFF:="Draw"
��&1000:="Folder"
��&2000:="Application"
�=�~(type%)
��
�:
� �Wimp_GetFilePathName
'=�Wimp_GetStringAtAddress(wimp%+44)
:
$ � �Wimp_FileLoad(pathname$)
.�S%,T%,file%
8S%=�pathname$
BT%=�#S%+16
L�#S%
V �file%T%
`"�("LOAD"+pathname$+""+�~file%)
j
=file%
t;
~&� �Wimp_GetStringAtAddress(array%)
�
�s$:s$=""
�<ȕ(?array%<>13)�(?array%<>0):s$+=�(?array%):array%+=1:�:
�=s$
�:
�#� �Wimp_GetFileFromPathname(f$)
�Ȏ �f$,".") �
� � 0 :=f$
�7 :=�Wimp_GetFileFromPathname(�f$,�(f$)-�f$,".")))
��
�:
� � �Wimp_SendToEdit(file$)
�� n%
wimp%!4=&6CC01C0C
wimp%!16=5
wimp%!36=0
wimp%!40=&FFF
($(wimp%+44)=file$+�0
2n%=�file$+45
<,� n%�4 � !wimp%=4+(n%>>2)<<2 � !wimp%=n%
F$ș "Wimp_SendMessage",17,wimp%,0
P�
Z:
d�|
n�|
x�|
�1�| -------------------------
�,�| 5.�Miscellaneous
�1�| -------------------------
��|
��|
�5�| -------------------------------
��|
�(�| Procedures :
��|
��|
�1�| PROCWimp_Start(TaskName$)
�.�| FNWimp_BASICParameters
�2�| PROCWimp_SetEventVariables
7�| PROCWimp_Error(task%,TaskName$)
*�| PROCWimp_CloseDown
%�| PROCWimp_Quit
"6�| FNWimp_ReadVariable(Variable$)
,�|
6�|
@5�| -------------------------------
J�|
T:
^/� �Wimp_Start(TaskName$,wimp_memory%,icon%)
h%� wimp% wimp_memory%,icons% icon%
r)� wimp_memory%<256 � wimp_memory%=256
| icon_memory%=icons%+icon%
�task$=TaskName$
�+indirect_sprites%=1 : direct_sprites%=1
��Wimp_SetEventVariables
�� � �Wimp_Error:�
�@ș"Wimp_Initialise",200,&4B534154,TaskName$ � version%,task%
��
�:
�� �Wimp_BASICParameters
� � com$,param$,I%
� ș "OS_GetEnv" � com$
� params$=""
� I%=�com$," -quit ")
�5 � I% � params$=�com$,�com$," ",I%+�" -quit ")+1)
=params$
:
� �Wimp_SetEventVariables
&� pointer_block% 20
0interface%=�
:.null%=1 :draw%=2 : pointer_leaving%=1<<4
D1pointer_entering%=1<<5:mouse%=1<<6:drag%=1<<7
N&key%=1<<8:menu%=1<<9:scroll%=1<<10
X@lose_caret%=1<<11:gain_caret%=1<<12:message%=(1<<17)+(1<<18)
b0recorder%=1<<18:acknowledge%=1<<19:window%=0
l!sprites%=1:version%=0:task%=0
v*Bar_Window%=-2:Bar_Icon%=0:Bar_Menu%=0
�*x_origin%=0:y_origin%=0:SaveWindow%=-3
�3message_quit%=0:message_save%=2:message_load%=3
�!mouse_button%=2:save_event%=0
� top_line%=0 : bottom_line%=0
��
�:
�� �Wimp_Error
�
�X$,x%
� � � �
�x%=�
�X$=�$+"atline"+�(x%�10)
��ErrorMsg%36
�EErrorMsg%!0=36:ErrorMsg%!12=0:ErrorMsg%!16=&81080:ErrorMsg%!20=x%
! $(ErrorMsg%+24)="!RunImage"
! %ș"Wimp_SendMessage",17,ErrorMsg%
! �Wimp_WindowAlert(task$,X$)
! �Wimp_CloseDown
!*�
!4:
!>� �Wimp_CloseDown
!H#ș"Wimp_CloseDown",task%,"TASK"
!R�
!\:
!f� �Wimp_Quit
!pfinished%=�
!z�
!�:
!�#� �Wimp_ReadVariable(Variable$)
!��len%,result%,variable%
!�$wimp%=Variable$
!�3ș"OS_ReadVarVal",wimp%,wimp%+255,255,,3�,,len%
!�wimp%?(len%+255)=13
!�=$(wimp%+255)
!�:
!�:
!��|
!��|
!��|
!��|
")�| ----------------
"'�| Wimp Polling
")�| ----------------
"$�|
".�|
"8:
"B� �Wimp_WaitForEvent
"L� mask%,event%,X,Y
"Vfinished%=�
"`mask%=%111000011001
"j�
"t� �>T% � Flashing%=� �
"~T%=�+Delay%
"�FadeCount%=FadeCount%+1
"�� Y=10 � 12
"�
� X=1 � 3
"�#Col%(Y,X)=Col%(Y-3,X)+Col%(Y,X)
"�� X
"�� Y
"� � FadeCount%>FadeStep%-1 �
"� FadeCount%=1
"� � Y=7 � 9
"� � X=1 � 3
"� Col%(Y,X)=Col%(Y,X)*-1
"� � X
# � Y
#
�
#+ȗ � 1,Col%(10,1),Col%(10,2),Col%(10,3)
# +ȗ � 2,Col%(11,1),Col%(11,2),Col%(11,3)
#(+ȗ � 3,Col%(12,1),Col%(12,2),Col%(12,3)
#2�
#<, ș"Wimp_PollIdle",&81932,wimp% � event%
#F Ȏ event% �
#P
�0 :
#Z �1 : �Wimp_PollDrawWindow
#d& �2 : ș "Wimp_OpenWindow",,wimp%
#n �3 : �Wimp_PollCloseWindow
#x
�4 :
#�
�5 :
#� �6 : �Wimp_PollMouseClick
#� �7 : �Wimp_PollSaveMessage
#� �8 : �Wimp_PollKeyPress
#�# �9 : �Event_MenuChoice(menu%)
#�
�10:
#�
�11:
#�
�12:
#� �17,18: �Wimp_PollMessages
#�
�19:
#� �
#�� finished%
#��
$:
$� �Wimp_PollDrawWindow
$ � more%
$"&ș"Wimp_RedrawWindow",,wimp%�more%
$,window%=wimp%!0
$6Ax_origin%=16+wimp%!4-wimp%!20:y_origin%=-16+wimp%!16-wimp%!24
$@ ȕmore%
$J0 � interface% � ș"Wimp_BorderWindow",,wimp%
$T- �Event_Draw(window%,x_origin%,y_origin%)
$^' ș"Wimp_GetRectangle",,wimp%�more%
$h�
$r�
$|:
$�� �Wimp_PollCloseWindow
$�% ș "Wimp_GetPointerInfo",,wimp%
$�) window%=wimp%!12 : buttons%=wimp%!8
$�) �Event_WindowClose(window%,buttons%)
$�2 !wimp%=window% : ș "Wimp_CloseWindow",,wimp%
$��
$�:
$�� �Wimp_PollMouseClick
$�J button%=wimp%!8:window%=wimp%!12:icon%=wimp%!16:x%=wimp%!0:y%=wimp%!4
$� Ȏ button% �
$�" �2 : �Wimp_PollMenuPopUp
$�# : Ȏ �Event_Save(window%) �
$�, � � : �Wimp_PollMouseSave
%1 � �: �Wimp_PollEventMouseClick
% �
% �
%&�
%0:
%:� �Wimp_PollMenuPopUp
%D menu%=�Event_Menu(window%)
%N Ȏ menu% �
%X � �:
%b
:
%l Ȏ window% �
%v � -2 : n%=0
%�3 ȕ ((Bar_Menu%!(28+n%*24))�%10000000)=0
%� n%+=1
%�
�
%�: ș "Wimp_CreateMenu",,Bar_Menu%,x%-64,96+n%*44
%�4 : ș"Wimp_CreateMenu",,menu%,x%-64,y%+20
%�
�
%� �
%��
%�:
%�� �Wimp_PollMouseSave
%� Ȏ icon% �
%�8 � 0 : � button% � &50 � �Wimp_PollDragBox(window%)
%�8 � 2 : � button% � 5 � �Wimp_PollSaveFile(window%)
& �
& �
&:
& � �Wimp_PollEventMouseClick
&*. � interface% � ș"Wimp_BorderIcon",,wimp%
&43 �Event_MouseClick(window%,icon%,button%,x%,y%)
&> Ȏ interface% �
&H � � :
&R( wimp%!0=x%:wimp%!4=y% : wimp%!8=0
&\( wimp%!12=window% : wimp%!16=icon%
&f! ș"Wimp_BorderIcon",,wimp%
&p �
&z�
&�:
&�!� �Wimp_PollSaveFile(window%)
&�
�file$
&�@ wimp%!0=window% : wimp%!4=1 : ș "Wimp_GetIconState",,wimp%
&� file$=$(wimp%!28)
&� Ȏ �file$,".") �
&�
� 0 :
&�@ $(wimp%+4)="To save, drag the icon to a directory window"
&�+ ș "Wimp_ReportError",wimp%,16,task$
&� :
&�% �Event_SaveFile(file$,window%)
&� �
&� ș"Wimp_CreateMenu",-1
'�
':
' � �Wimp_PollDragBox(window%)
'$
�x%,y%
'. save%=window%
'8 !wimp%=window%
'B# ș"Wimp_GetWindowState",,wimp%
'L- x%=wimp%!4-wimp%!20:y%=wimp%!16-wimp%!24
'V wimp%!4=0
'`! ș"Wimp_GetIconState",,wimp%
'j !wimp%=window%
't wimp%!4=5
'~, wimp%!8=x%+wimp%!8:wimp%!12=y%+wimp%!12
'�. wimp%!16=x%+wimp%!16:wimp%!20=y%+wimp%!20
'� wimp%!24=0:wimp%!28=0
'�* wimp%!32=&7FFFFFFF:wimp%!36=&7FFFFFFF
'� ș"Wimp_DragBox",,wimp%
'��
'�:
'�� �Wimp_PollKeyPress
'�1 window%=wimp%!0:icon%=wimp%!4:key%=wimp%!24
'� Ȏ �Event_Save(window%) �
'�( � � : �WimpPoll_SaveFile(window%)
'�/ � �: �Event_KeyPress(window%,icon%,key%)
'� �
( �
(
:
(� �Wimp_PollSaveMessage
( �file$,window%,icon%,x%,y%
((# ș"Wimp_GetPointerInfo",,wimp%
(2: window%=wimp%!12:icon%=wimp%!16:x%=wimp%!0:y%=wimp%!4
(<> wimp%!0=save% : wimp%!4=1 : ș "Wimp_GetIconState",,wimp%
(F file$=$(wimp%!28)
(P+ file$=�Wimp_GetFileFromPathname(file$)
(Z wimp%!20=window%
(d wimp%!24=icon%
(n wimp%!28=x%:wimp%!32=y%
(x wimp%!36=length%
(� wimp%!0=64
(� wimp%!12=0
(� wimp%!16=1
(� wimp%!40=&FFF
(� $(wimp%+44)=file$
(�4 ș"Wimp_SendMessage",17,wimp%,wimp%!20,wimp%!24
(��
(�:
(�� �Wimp_PollMessages
(� � file$
(�,file$=�Wimp_GetStringAtAddress(wimp%+44)
(� Ȏ wimp%!16 �
(� � 0 : finished%=�
) � 1 :
) � 2 :
)/ � PROCWimp_IconPutText(save%,1,file$)
)"C wimp%!0=save% : wimp%!4=1 : ș "Wimp_GetIconState",,wimp%
), $(wimp%!28)=file$
)6< wimp%!0=save% : wimp%!4=1 : wimp%!8=0 : wimp%!12=0
)@' ș "Wimp_SetIconState",,wimp%
)J0 � PROCWimp_IconCaret(save%,1,LENfile$)
)T8 ș "Wimp_SetCaretPosition",save%,1,,,-1,�file$
)^& �Event_SaveFile(file$,save%)
)h � 3
)rG type$=�Wimp_FileType(wimp%!40) : �Event_LoadFile(file$,type$)
)| �
)��
)�:
)�&� �Wimp_GetStringAtAddress(array%)
)�
�s$:s$=""
)�<ȕ(?array%<>13)�(?array%<>0):s$+=�(?array%):array%+=1:�:
)�=s$
)�:
)�#� �Wimp_GetFileFromPathname(f$)
)�Ȏ �f$,".") �
)� � 0 :=f$
)�7 :=�Wimp_GetFileFromPathname(�f$,�(f$)-�f$,".")))
)��
)�:
*� �Wimp_FileType(type%)
* Ȏtype%�
* �&FFF:="Text"
*&�&FFD:="Data"
*0�&FFB:="Basic"
*:�&FF9:="Sprite"
*D�&FED:="Palette"
*N�&FEC:="Template"
*X�&AFF:="Draw"
*b�&1000:="Folder"
*l�&2000:="Application"
*v=�~(type%)
*��
*�:
*�
� 00000000 0d 00 0a 45 20 20 20 20 20 20 20 20 20 20 20 20 |...E |
00000010 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 f2 | .|
00000020 57 69 6d 70 5f 53 74 61 72 74 28 22 50 6f 69 6e |Wimp_Start("Poin|
00000030 74 65 72 20 46 61 64 65 72 22 2c 34 35 31 37 2c |ter Fader",4517,|
00000040 31 34 36 32 29 0d 00 14 33 20 20 20 20 20 20 20 |1462)...3 |
00000050 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000060 20 20 20 20 f2 55 73 65 72 5f 53 65 74 49 6e 69 | .User_SetIni|
00000070 74 69 61 6c 44 61 74 61 0d 00 1e 2e 20 20 20 20 |tialData.... |
00000080 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000090 20 20 20 20 20 20 20 f2 43 72 65 61 74 65 5f 57 | .Create_W|
000000a0 69 6e 64 6f 77 73 0d 00 28 2b 20 20 20 20 20 20 |indows..(+ |
000000b0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000000c0 20 20 20 20 20 f2 55 70 64 61 74 65 49 63 6f 6e | .UpdateIcon|
000000d0 73 0d 00 32 2c 20 20 20 20 20 20 20 20 20 20 20 |s..2, |
000000e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000000f0 f2 43 72 65 61 74 65 5f 4d 65 6e 75 73 0d 00 3c |.Create_Menus..<|
00000100 31 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |1 |
00000110 20 20 20 20 20 20 20 20 20 20 20 20 f2 57 69 6d | .Wim|
00000120 70 5f 57 61 69 74 46 6f 72 45 76 65 6e 74 0d 00 |p_WaitForEvent..|
00000130 46 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |F. |
00000140 20 20 20 20 20 20 20 20 20 20 20 20 20 f2 57 69 | .Wi|
00000150 6d 70 5f 43 6c 6f 73 65 44 6f 77 6e 0d 00 50 20 |mp_CloseDown..P |
00000160 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000170 20 20 20 20 20 20 20 20 20 20 20 e0 0d 00 5a 0c | ...Z.|
00000180 20 20 20 20 20 20 20 3a 0d 00 64 21 20 20 20 20 | :..d! |
00000190 20 20 20 dd 20 f2 55 73 65 72 5f 53 65 74 49 6e | . .User_SetIn|
000001a0 69 74 69 61 6c 44 61 74 61 0d 00 6e 17 20 20 20 |itialData..n. |
000001b0 20 20 20 20 de 20 43 6f 6c 25 28 31 32 2c 33 29 | . Col%(12,3)|
000001c0 0d 00 78 16 20 20 20 20 20 20 20 46 6c 61 73 68 |..x. Flash|
000001d0 69 6e 67 25 3d b9 0d 00 82 13 20 20 20 20 20 20 |ing%=..... |
000001e0 20 44 65 6c 61 79 25 3d 30 0d 00 8c 17 20 20 20 | Delay%=0.... |
000001f0 20 20 20 20 46 61 64 65 43 6f 75 6e 74 25 3d 30 | FadeCount%=0|
00000200 0d 00 96 16 20 20 20 20 20 20 20 46 61 64 65 53 |.... FadeS|
00000210 74 65 70 25 3d 30 0d 00 a0 14 20 20 20 20 20 20 |tep%=0.... |
00000220 20 49 6e 46 69 6c 65 25 3d 30 0d 00 aa 15 20 20 | InFile%=0.... |
00000230 20 20 20 20 20 4f 75 74 46 69 6c 65 25 3d 30 0d | OutFile%=0.|
00000240 00 b4 16 20 20 20 20 20 20 20 f2 4c 6f 61 64 43 |... .LoadC|
00000250 6f 6e 66 69 67 0d 00 be 0c 20 20 20 20 20 20 20 |onfig.... |
00000260 e1 0d 00 c8 0c 20 20 20 20 20 20 20 3a 0d 00 d2 |..... :...|
00000270 1c 20 20 20 20 20 20 20 dd 20 f2 43 72 65 61 74 |. . .Creat|
00000280 65 5f 57 69 6e 64 6f 77 73 0d 00 dc 3b 20 20 20 |e_Windows...; |
00000290 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 | I|
000002a0 6e 66 6f 5f 57 69 6e 64 6f 77 25 3d a4 57 69 6d |nfo_Window%=.Wim|
000002b0 70 5f 57 69 6e 64 6f 77 4c 6f 61 64 28 22 49 6e |p_WindowLoad("In|
000002c0 66 6f 22 29 0d 00 e6 3e 20 20 20 20 20 20 20 20 |fo")...> |
000002d0 20 20 20 20 20 20 20 4f 70 74 69 6f 6e 73 5f 57 | Options_W|
000002e0 69 6e 64 6f 77 25 3d a4 57 69 6d 70 5f 57 69 6e |indow%=.Wimp_Win|
000002f0 64 6f 77 4c 6f 61 64 28 22 4f 70 74 69 6f 6e 73 |dowLoad("Options|
00000300 22 29 0d 00 f0 30 20 20 20 20 20 20 20 42 61 72 |")...0 Bar|
00000310 5f 49 63 6f 6e 25 3d a4 57 69 6d 70 5f 49 63 6f |_Icon%=.Wimp_Ico|
00000320 6e 42 61 72 28 22 21 50 6f 69 6e 74 46 61 64 65 |nBar("!PointFade|
00000330 22 29 0d 00 fa 0c 20 20 20 20 20 20 20 e1 0d 01 |").... ...|
00000340 04 0d 20 20 20 20 20 20 20 20 3a 0d 01 0e 24 20 |.. :...$ |
00000350 20 20 20 20 20 20 20 dd 20 a4 45 76 65 6e 74 5f | . .Event_|
00000360 53 61 76 65 28 77 69 6e 64 6f 77 25 29 3d a3 0d |Save(window%)=..|
00000370 01 18 0d 20 20 20 20 20 20 20 20 3a 0d 01 22 2e |... :..".|
00000380 20 20 20 20 20 20 20 20 dd 20 a4 45 76 65 6e 74 | . .Event|
00000390 5f 53 70 72 69 74 65 73 28 77 69 6e 64 6f 77 25 |_Sprites(window%|
000003a0 29 3d 73 70 72 69 74 65 73 25 0d 01 2c 0c 20 20 |)=sprites%..,. |
000003b0 20 20 20 20 20 3a 0d 01 36 1a 20 20 20 20 20 20 | :..6. |
000003c0 20 dd 20 f2 43 72 65 61 74 65 5f 4d 65 6e 75 73 | . .Create_Menus|
000003d0 0d 01 40 3d 20 20 20 20 20 20 20 20 20 6d 65 6e |..@= men|
000003e0 75 24 3d 22 50 6f 69 6e 74 46 61 64 65 5c 49 6e |u$="PointFade\In|
000003f0 66 6f 3e 49 6e 66 6f 5f 57 69 6e 64 6f 77 25 5c |fo>Info_Window%\|
00000400 4f 70 74 69 6f 6e 73 5c 51 75 69 74 22 0d 01 4a |Options\Quit"..J|
00000410 2e 20 20 20 20 20 20 20 20 20 42 61 72 5f 4d 65 |. Bar_Me|
00000420 6e 75 25 3d a4 57 69 6d 70 5f 4d 65 6e 75 43 72 |nu%=.Wimp_MenuCr|
00000430 65 61 74 65 28 6d 65 6e 75 24 29 0d 01 54 0c 20 |eate(menu$)..T. |
00000440 20 20 20 20 20 20 e1 0d 01 5e 0d 20 20 20 20 20 | ...^. |
00000450 20 20 20 3a 0d 01 68 22 20 20 20 20 20 20 20 20 | :..h" |
00000460 dd 20 a4 45 76 65 6e 74 5f 4d 65 6e 75 28 77 69 |. .Event_Menu(wi|
00000470 6e 64 6f 77 25 29 0d 01 72 18 20 20 20 20 20 20 |ndow%)..r. |
00000480 20 20 c8 8e 20 77 69 6e 64 6f 77 25 20 ca 0d 01 | .. window% ...|
00000490 7c 2e 20 20 20 20 20 20 20 20 20 c9 20 42 61 72 ||. . Bar|
000004a0 5f 57 69 6e 64 6f 77 25 20 20 20 20 20 20 20 20 |_Window% |
000004b0 3a 20 3d 42 61 72 5f 4d 65 6e 75 25 0d 01 86 21 |: =Bar_Menu%...!|
000004c0 20 20 20 20 20 20 20 20 20 7f 20 20 20 20 20 20 | . |
000004d0 20 20 20 20 20 20 20 20 20 3a 20 3d a3 0d 01 90 | : =....|
000004e0 0d 20 20 20 20 20 20 20 20 cb 0d 01 9a 0c 20 20 |. ..... |
000004f0 20 20 20 20 20 3a 0d 01 a4 31 20 20 20 20 20 20 | :...1 |
00000500 20 dd 20 f2 45 76 65 6e 74 5f 57 69 6e 64 6f 77 | . .Event_Window|
00000510 43 6c 6f 73 65 28 77 69 6e 64 6f 77 25 2c 62 75 |Close(window%,bu|
00000520 74 74 6f 6e 73 25 29 0d 01 ae 17 20 20 20 20 20 |ttons%).... |
00000530 20 20 c8 8e 20 77 69 6e 64 6f 77 25 20 ca 0d 01 | .. window% ...|
00000540 b8 0c 20 20 20 20 20 20 20 cb 0d 01 c2 0c 20 20 |.. ..... |
00000550 20 20 20 20 20 e1 0d 01 cc 0c 20 20 20 20 20 20 | ..... |
00000560 20 3a 0d 01 d6 35 20 20 20 20 20 20 20 dd 20 f2 | :...5 . .|
00000570 45 76 65 6e 74 5f 44 72 61 77 28 77 69 6e 64 6f |Event_Draw(windo|
00000580 77 25 2c 78 5f 6f 72 69 67 69 6e 25 2c 79 5f 6f |w%,x_origin%,y_o|
00000590 72 69 67 69 6e 25 29 0d 01 e0 17 20 20 20 20 20 |rigin%).... |
000005a0 20 20 c8 8e 20 77 69 6e 64 6f 77 25 20 ca 0d 01 | .. window% ...|
000005b0 ea 38 20 20 20 20 20 20 20 20 c9 20 49 6e 66 6f |.8 . Info|
000005c0 5f 57 69 6e 64 6f 77 25 20 20 20 20 20 20 20 20 |_Window% |
000005d0 3a 20 f2 55 73 65 72 5f 44 72 61 77 49 6e 66 6f |: .User_DrawInfo|
000005e0 57 69 6e 64 6f 77 0d 01 f4 3b 20 20 20 20 20 20 |Window...; |
000005f0 20 20 c9 20 4f 70 74 69 6f 6e 73 5f 57 69 6e 64 | . Options_Wind|
00000600 6f 77 25 20 20 20 20 20 3a 20 f2 55 73 65 72 5f |ow% : .User_|
00000610 44 72 61 77 4f 70 74 69 6f 6e 73 57 69 6e 64 6f |DrawOptionsWindo|
00000620 77 0d 01 fe 0c 20 20 20 20 20 20 20 cb 0d 02 08 |w.... ....|
00000630 0c 20 20 20 20 20 20 20 e1 0d 02 12 12 20 20 20 |. ..... |
00000640 20 20 20 20 20 20 20 20 20 20 3a 0d 02 1c 27 20 | :...' |
00000650 20 20 20 20 20 20 20 20 20 20 20 20 dd 20 f2 55 | . .U|
00000660 73 65 72 5f 44 72 61 77 49 6e 66 6f 57 69 6e 64 |ser_DrawInfoWind|
00000670 6f 77 0d 02 26 12 20 20 20 20 20 20 20 20 20 20 |ow..&. |
00000680 20 20 20 e1 0d 02 30 12 20 20 20 20 20 20 20 20 | ...0. |
00000690 20 20 20 20 20 3a 0d 02 3a 2a 20 20 20 20 20 20 | :..:* |
000006a0 20 20 20 20 20 20 20 dd 20 f2 55 73 65 72 5f 44 | . .User_D|
000006b0 72 61 77 4f 70 74 69 6f 6e 73 57 69 6e 64 6f 77 |rawOptionsWindow|
000006c0 0d 02 44 12 20 20 20 20 20 20 20 20 20 20 20 20 |..D. |
000006d0 20 e1 0d 02 4e 0c 20 20 20 20 20 20 20 3a 0d 02 | ...N. :..|
000006e0 58 3b 20 20 20 20 20 20 20 dd 20 f2 45 76 65 6e |X; . .Even|
000006f0 74 5f 4d 6f 75 73 65 43 6c 69 63 6b 28 77 69 6e |t_MouseClick(win|
00000700 64 6f 77 25 2c 69 63 6f 6e 25 2c 62 75 74 74 6f |dow%,icon%,butto|
00000710 6e 25 2c 78 25 2c 79 25 29 0d 02 62 17 20 20 20 |n%,x%,y%)..b. |
00000720 20 20 20 20 c8 8e 20 77 69 6e 64 6f 77 25 20 ca | .. window% .|
00000730 0d 02 6c 31 20 20 20 20 20 20 20 20 c9 20 42 61 |..l1 . Ba|
00000740 72 5f 57 69 6e 64 6f 77 25 20 20 20 20 20 20 20 |r_Window% |
00000750 20 3a 20 f2 55 73 65 72 5f 4d 6f 75 73 65 42 61 | : .User_MouseBa|
00000760 72 0d 02 76 42 20 20 20 20 20 20 20 20 c9 20 49 |r..vB . I|
00000770 6e 66 6f 5f 57 69 6e 64 6f 77 25 20 20 20 20 20 |nfo_Window% |
00000780 20 20 3a 20 f2 55 73 65 72 5f 4d 6f 75 73 65 49 | : .User_MouseI|
00000790 6e 66 6f 28 20 62 75 74 74 6f 6e 25 2c 69 63 6f |nfo( button%,ico|
000007a0 6e 25 29 0d 02 80 45 20 20 20 20 20 20 20 20 c9 |n%)...E .|
000007b0 20 4f 70 74 69 6f 6e 73 5f 57 69 6e 64 6f 77 25 | Options_Window%|
000007c0 20 20 20 20 3a 20 f2 55 73 65 72 5f 4d 6f 75 73 | : .User_Mous|
000007d0 65 4f 70 74 69 6f 6e 73 28 20 62 75 74 74 6f 6e |eOptions( button|
000007e0 25 2c 69 63 6f 6e 25 29 0d 02 8a 0c 20 20 20 20 |%,icon%).... |
000007f0 20 20 20 cb 0d 02 94 0c 20 20 20 20 20 20 20 e1 | ..... .|
00000800 0d 02 9e 0e 20 20 20 20 20 20 20 20 20 3a 0d 02 |.... :..|
00000810 a8 1d 20 20 20 20 20 20 20 20 20 dd 20 f2 55 73 |.. . .Us|
00000820 65 72 5f 4d 6f 75 73 65 42 61 72 0d 02 b2 1c 20 |er_MouseBar.... |
00000830 20 20 20 20 20 20 20 20 e7 20 46 6c 61 73 68 69 | . Flashi|
00000840 6e 67 25 3d b9 20 8c 0d 02 bc 18 20 20 20 20 20 |ng%=. ..... |
00000850 20 20 20 20 46 6c 61 73 68 69 6e 67 25 3d a3 0d | Flashing%=..|
00000860 02 c6 40 20 20 20 20 20 20 20 20 20 c8 97 20 fb |..@ .. .|
00000870 20 31 2c 43 6f 6c 25 28 31 2c 31 29 2a 31 36 2d | 1,Col%(1,1)*16-|
00000880 31 2c 43 6f 6c 25 28 31 2c 32 29 2a 31 36 2d 31 |1,Col%(1,2)*16-1|
00000890 2c 43 6f 6c 25 28 31 2c 33 29 2a 31 36 2d 31 0d |,Col%(1,3)*16-1.|
000008a0 02 d0 40 20 20 20 20 20 20 20 20 20 c8 97 20 fb |..@ .. .|
000008b0 20 32 2c 43 6f 6c 25 28 32 2c 31 29 2a 31 36 2d | 2,Col%(2,1)*16-|
000008c0 31 2c 43 6f 6c 25 28 32 2c 32 29 2a 31 36 2d 31 |1,Col%(2,2)*16-1|
000008d0 2c 43 6f 6c 25 28 32 2c 33 29 2a 31 36 2d 31 0d |,Col%(2,3)*16-1.|
000008e0 02 da 40 20 20 20 20 20 20 20 20 20 c8 97 20 fb |..@ .. .|
000008f0 20 33 2c 43 6f 6c 25 28 33 2c 31 29 2a 31 36 2d | 3,Col%(3,1)*16-|
00000900 31 2c 43 6f 6c 25 28 33 2c 32 29 2a 31 36 2d 31 |1,Col%(3,2)*16-1|
00000910 2c 43 6f 6c 25 28 33 2c 33 29 2a 31 36 2d 31 0d |,Col%(3,3)*16-1.|
00000920 02 e4 0e 20 20 20 20 20 20 20 20 20 cc 0d 02 ee |... ....|
00000930 18 20 20 20 20 20 20 20 20 20 46 6c 61 73 68 69 |. Flashi|
00000940 6e 67 25 3d b9 0d 02 f8 0e 20 20 20 20 20 20 20 |ng%=..... |
00000950 20 20 cd 0d 03 02 0e 20 20 20 20 20 20 20 20 20 | ..... |
00000960 e1 0d 03 0c 0e 20 20 20 20 20 20 20 20 20 3a 0d |..... :.|
00000970 03 16 2e 20 20 20 20 20 20 20 20 20 dd 20 f2 55 |... . .U|
00000980 73 65 72 5f 4d 6f 75 73 65 49 6e 66 6f 28 20 62 |ser_MouseInfo( b|
00000990 75 74 74 6f 6e 25 2c 69 63 6f 6e 25 29 0d 03 20 |utton%,icon%).. |
000009a0 59 20 20 20 20 20 20 20 20 20 f4 20 50 52 4f 43 |Y . PROC|
000009b0 57 69 6d 70 5f 57 69 6e 64 6f 77 41 6c 65 72 74 |Wimp_WindowAlert|
000009c0 28 22 49 6e 66 6f 22 2c 22 4d 6f 75 73 65 20 62 |("Info","Mouse b|
000009d0 75 74 74 6f 6e 3d 22 2b 53 54 52 24 62 75 74 74 |utton="+STR$butt|
000009e0 6f 6e 25 2b 22 69 63 6f 6e 3d 22 2b 53 54 52 24 |on%+"icon="+STR$|
000009f0 69 63 6f 6e 25 29 0d 03 2a 0e 20 20 20 20 20 20 |icon%)..*. |
00000a00 20 20 20 e1 0d 03 34 0e 20 20 20 20 20 20 20 20 | ...4. |
00000a10 20 3a 0d 03 3e 31 20 20 20 20 20 20 20 20 20 dd | :..>1 .|
00000a20 20 f2 55 73 65 72 5f 4d 6f 75 73 65 4f 70 74 69 | .User_MouseOpti|
00000a30 6f 6e 73 28 20 62 75 74 74 6f 6e 25 2c 69 63 6f |ons( button%,ico|
00000a40 6e 25 29 0d 03 48 65 f4 20 49 46 20 62 75 74 74 |n%)..He. IF butt|
00000a50 6f 6e 25 3c 35 20 54 48 45 4e 20 50 52 4f 43 57 |on%<5 THEN PROCW|
00000a60 69 6d 70 5f 57 69 6e 64 6f 77 41 6c 65 72 74 28 |imp_WindowAlert(|
00000a70 22 4f 70 74 69 6f 6e 73 22 2c 22 4d 6f 75 73 65 |"Options","Mouse|
00000a80 20 62 75 74 74 6f 6e 3d 22 2b 53 54 52 24 62 75 | button="+STR$bu|
00000a90 74 74 6f 6e 25 2b 22 69 63 6f 6e 3d 22 2b 53 54 |tton%+"icon="+ST|
00000aa0 52 24 69 63 6f 6e 25 29 0d 03 52 04 0d 03 5c 18 |R$icon%)..R...\.|
00000ab0 20 20 20 20 20 20 20 e7 20 62 75 74 74 6f 6e 25 | . button%|
00000ac0 3c 35 20 8c 0d 03 66 17 20 20 20 20 20 20 20 20 |<5 ...f. |
00000ad0 20 c8 8e 20 69 63 6f 6e 25 20 ca 0d 03 70 2f 20 | .. icon% ...p/ |
00000ae0 20 20 20 20 20 20 20 20 20 c9 20 30 20 3a e7 20 | . 0 :. |
00000af0 43 6f 6c 25 28 31 2c 31 29 3e 31 20 8c 20 43 6f |Col%(1,1)>1 . Co|
00000b00 6c 25 28 31 2c 31 29 2d 3d 31 0d 03 7a 2f 20 20 |l%(1,1)-=1..z/ |
00000b10 20 20 20 20 20 20 20 20 c9 20 34 20 3a e7 20 43 | . 4 :. C|
00000b20 6f 6c 25 28 31 2c 32 29 3e 31 20 8c 20 43 6f 6c |ol%(1,2)>1 . Col|
00000b30 25 28 31 2c 32 29 2d 3d 31 0d 03 84 2f 20 20 20 |%(1,2)-=1.../ |
00000b40 20 20 20 20 20 20 20 c9 20 35 20 3a e7 20 43 6f | . 5 :. Co|
00000b50 6c 25 28 31 2c 33 29 3e 31 20 8c 20 43 6f 6c 25 |l%(1,3)>1 . Col%|
00000b60 28 31 2c 33 29 2d 3d 31 0d 03 8e 30 20 20 20 20 |(1,3)-=1...0 |
00000b70 20 20 20 20 20 20 c9 20 39 20 3a e7 20 43 6f 6c | . 9 :. Col|
00000b80 25 28 31 2c 31 29 3c 31 36 20 8c 20 43 6f 6c 25 |%(1,1)<16 . Col%|
00000b90 28 31 2c 31 29 2b 3d 31 0d 03 98 31 20 20 20 20 |(1,1)+=1...1 |
00000ba0 20 20 20 20 20 20 c9 20 31 30 20 3a e7 20 43 6f | . 10 :. Co|
00000bb0 6c 25 28 31 2c 32 29 3c 31 36 20 8c 20 43 6f 6c |l%(1,2)<16 . Col|
00000bc0 25 28 31 2c 32 29 2b 3d 31 0d 03 a2 31 20 20 20 |%(1,2)+=1...1 |
00000bd0 20 20 20 20 20 20 20 c9 20 31 31 20 3a e7 20 43 | . 11 :. C|
00000be0 6f 6c 25 28 31 2c 33 29 3c 31 36 20 8c 20 43 6f |ol%(1,3)<16 . Co|
00000bf0 6c 25 28 31 2c 33 29 2b 3d 31 0d 03 ac 04 0d 03 |l%(1,3)+=1......|
00000c00 b6 30 20 20 20 20 20 20 20 20 20 20 c9 20 31 32 |.0 . 12|
00000c10 20 3a e7 20 43 6f 6c 25 28 32 2c 31 29 3e 31 20 | :. Col%(2,1)>1 |
00000c20 8c 20 43 6f 6c 25 28 32 2c 31 29 2d 3d 31 0d 03 |. Col%(2,1)-=1..|
00000c30 c0 30 20 20 20 20 20 20 20 20 20 20 c9 20 31 33 |.0 . 13|
00000c40 20 3a e7 20 43 6f 6c 25 28 32 2c 32 29 3e 31 20 | :. Col%(2,2)>1 |
00000c50 8c 20 43 6f 6c 25 28 32 2c 32 29 2d 3d 31 0d 03 |. Col%(2,2)-=1..|
00000c60 ca 30 20 20 20 20 20 20 20 20 20 20 c9 20 31 34 |.0 . 14|
00000c70 20 3a e7 20 43 6f 6c 25 28 32 2c 33 29 3e 31 20 | :. Col%(2,3)>1 |
00000c80 8c 20 43 6f 6c 25 28 32 2c 33 29 2d 3d 31 0d 03 |. Col%(2,3)-=1..|
00000c90 d4 31 20 20 20 20 20 20 20 20 20 20 c9 20 31 38 |.1 . 18|
00000ca0 20 3a e7 20 43 6f 6c 25 28 32 2c 31 29 3c 31 36 | :. Col%(2,1)<16|
00000cb0 20 8c 20 43 6f 6c 25 28 32 2c 31 29 2b 3d 31 0d | . Col%(2,1)+=1.|
00000cc0 03 de 31 20 20 20 20 20 20 20 20 20 20 c9 20 31 |..1 . 1|
00000cd0 39 20 3a e7 20 43 6f 6c 25 28 32 2c 32 29 3c 31 |9 :. Col%(2,2)<1|
00000ce0 36 20 8c 20 43 6f 6c 25 28 32 2c 32 29 2b 3d 31 |6 . Col%(2,2)+=1|
00000cf0 0d 03 e8 31 20 20 20 20 20 20 20 20 20 20 c9 20 |...1 . |
00000d00 32 30 20 3a e7 20 43 6f 6c 25 28 32 2c 33 29 3c |20 :. Col%(2,3)<|
00000d10 31 36 20 8c 20 43 6f 6c 25 28 32 2c 33 29 2b 3d |16 . Col%(2,3)+=|
00000d20 31 0d 03 f2 04 0d 03 fc 30 20 20 20 20 20 20 20 |1.......0 |
00000d30 20 20 20 c9 20 32 31 20 3a e7 20 43 6f 6c 25 28 | . 21 :. Col%(|
00000d40 33 2c 31 29 3e 31 20 8c 20 43 6f 6c 25 28 33 2c |3,1)>1 . Col%(3,|
00000d50 31 29 2d 3d 31 0d 04 06 30 20 20 20 20 20 20 20 |1)-=1...0 |
00000d60 20 20 20 c9 20 32 32 20 3a e7 20 43 6f 6c 25 28 | . 22 :. Col%(|
00000d70 33 2c 32 29 3e 31 20 8c 20 43 6f 6c 25 28 33 2c |3,2)>1 . Col%(3,|
00000d80 32 29 2d 3d 31 0d 04 10 30 20 20 20 20 20 20 20 |2)-=1...0 |
00000d90 20 20 20 c9 20 32 33 20 3a e7 20 43 6f 6c 25 28 | . 23 :. Col%(|
00000da0 33 2c 33 29 3e 31 20 8c 20 43 6f 6c 25 28 33 2c |3,3)>1 . Col%(3,|
00000db0 33 29 2d 3d 31 0d 04 1a 31 20 20 20 20 20 20 20 |3)-=1...1 |
00000dc0 20 20 20 c9 20 32 37 20 3a e7 20 43 6f 6c 25 28 | . 27 :. Col%(|
00000dd0 33 2c 31 29 3c 31 36 20 8c 20 43 6f 6c 25 28 33 |3,1)<16 . Col%(3|
00000de0 2c 31 29 2b 3d 31 0d 04 24 31 20 20 20 20 20 20 |,1)+=1..$1 |
00000df0 20 20 20 20 c9 20 32 38 20 3a e7 20 43 6f 6c 25 | . 28 :. Col%|
00000e00 28 33 2c 32 29 3c 31 36 20 8c 20 43 6f 6c 25 28 |(3,2)<16 . Col%(|
00000e10 33 2c 32 29 2b 3d 31 0d 04 2e 31 20 20 20 20 20 |3,2)+=1...1 |
00000e20 20 20 20 20 20 c9 20 32 39 20 3a e7 20 43 6f 6c | . 29 :. Col|
00000e30 25 28 33 2c 33 29 3c 31 36 20 8c 20 43 6f 6c 25 |%(3,3)<16 . Col%|
00000e40 28 33 2c 33 29 2b 3d 31 0d 04 38 04 0d 04 42 30 |(3,3)+=1..8...B0|
00000e50 20 20 20 20 20 20 20 20 20 20 c9 20 33 33 20 3a | . 33 :|
00000e60 e7 20 43 6f 6c 25 28 34 2c 31 29 3e 31 20 8c 20 |. Col%(4,1)>1 . |
00000e70 43 6f 6c 25 28 34 2c 31 29 2d 3d 31 0d 04 4c 30 |Col%(4,1)-=1..L0|
00000e80 20 20 20 20 20 20 20 20 20 20 c9 20 33 34 20 3a | . 34 :|
00000e90 e7 20 43 6f 6c 25 28 34 2c 32 29 3e 31 20 8c 20 |. Col%(4,2)>1 . |
00000ea0 43 6f 6c 25 28 34 2c 32 29 2d 3d 31 0d 04 56 30 |Col%(4,2)-=1..V0|
00000eb0 20 20 20 20 20 20 20 20 20 20 c9 20 33 35 20 3a | . 35 :|
00000ec0 e7 20 43 6f 6c 25 28 34 2c 33 29 3e 31 20 8c 20 |. Col%(4,3)>1 . |
00000ed0 43 6f 6c 25 28 34 2c 33 29 2d 3d 31 0d 04 60 31 |Col%(4,3)-=1..`1|
00000ee0 20 20 20 20 20 20 20 20 20 20 c9 20 33 39 20 3a | . 39 :|
00000ef0 e7 20 43 6f 6c 25 28 34 2c 31 29 3c 31 36 20 8c |. Col%(4,1)<16 .|
00000f00 20 43 6f 6c 25 28 34 2c 31 29 2b 3d 31 0d 04 6a | Col%(4,1)+=1..j|
00000f10 31 20 20 20 20 20 20 20 20 20 20 c9 20 34 30 20 |1 . 40 |
00000f20 3a e7 20 43 6f 6c 25 28 34 2c 32 29 3c 31 36 20 |:. Col%(4,2)<16 |
00000f30 8c 20 43 6f 6c 25 28 34 2c 32 29 2b 3d 31 0d 04 |. Col%(4,2)+=1..|
00000f40 74 31 20 20 20 20 20 20 20 20 20 20 c9 20 34 31 |t1 . 41|
00000f50 20 3a e7 20 43 6f 6c 25 28 34 2c 33 29 3c 31 36 | :. Col%(4,3)<16|
00000f60 20 8c 20 43 6f 6c 25 28 34 2c 33 29 2b 3d 31 0d | . Col%(4,3)+=1.|
00000f70 04 7e 04 0d 04 88 30 20 20 20 20 20 20 20 20 20 |.~....0 |
00000f80 20 c9 20 34 32 20 3a e7 20 43 6f 6c 25 28 35 2c | . 42 :. Col%(5,|
00000f90 31 29 3e 31 20 8c 20 43 6f 6c 25 28 35 2c 31 29 |1)>1 . Col%(5,1)|
00000fa0 2d 3d 31 0d 04 92 30 20 20 20 20 20 20 20 20 20 |-=1...0 |
00000fb0 20 c9 20 34 33 20 3a e7 20 43 6f 6c 25 28 35 2c | . 43 :. Col%(5,|
00000fc0 32 29 3e 31 20 8c 20 43 6f 6c 25 28 35 2c 32 29 |2)>1 . Col%(5,2)|
00000fd0 2d 3d 31 0d 04 9c 30 20 20 20 20 20 20 20 20 20 |-=1...0 |
00000fe0 20 c9 20 34 34 20 3a e7 20 43 6f 6c 25 28 35 2c | . 44 :. Col%(5,|
00000ff0 33 29 3e 31 20 8c 20 43 6f 6c 25 28 35 2c 33 29 |3)>1 . Col%(5,3)|
00001000 2d 3d 31 0d 04 a6 31 20 20 20 20 20 20 20 20 20 |-=1...1 |
00001010 20 c9 20 34 38 20 3a e7 20 43 6f 6c 25 28 35 2c | . 48 :. Col%(5,|
00001020 31 29 3c 31 36 20 8c 20 43 6f 6c 25 28 35 2c 31 |1)<16 . Col%(5,1|
00001030 29 2b 3d 31 0d 04 b0 31 20 20 20 20 20 20 20 20 |)+=1...1 |
00001040 20 20 c9 20 34 39 20 3a e7 20 43 6f 6c 25 28 35 | . 49 :. Col%(5|
00001050 2c 32 29 3c 31 36 20 8c 20 43 6f 6c 25 28 35 2c |,2)<16 . Col%(5,|
00001060 32 29 2b 3d 31 0d 04 ba 31 20 20 20 20 20 20 20 |2)+=1...1 |
00001070 20 20 20 c9 20 35 30 20 3a e7 20 43 6f 6c 25 28 | . 50 :. Col%(|
00001080 35 2c 33 29 3c 31 36 20 8c 20 43 6f 6c 25 28 35 |5,3)<16 . Col%(5|
00001090 2c 33 29 2b 3d 31 0d 04 c4 04 0d 04 ce 30 20 20 |,3)+=1.......0 |
000010a0 20 20 20 20 20 20 20 20 c9 20 35 31 20 3a e7 20 | . 51 :. |
000010b0 43 6f 6c 25 28 36 2c 31 29 3e 31 20 8c 20 43 6f |Col%(6,1)>1 . Co|
000010c0 6c 25 28 36 2c 31 29 2d 3d 31 0d 04 d8 30 20 20 |l%(6,1)-=1...0 |
000010d0 20 20 20 20 20 20 20 20 c9 20 35 32 20 3a e7 20 | . 52 :. |
000010e0 43 6f 6c 25 28 36 2c 32 29 3e 31 20 8c 20 43 6f |Col%(6,2)>1 . Co|
000010f0 6c 25 28 36 2c 32 29 2d 3d 31 0d 04 e2 30 20 20 |l%(6,2)-=1...0 |
00001100 20 20 20 20 20 20 20 20 c9 20 35 33 20 3a e7 20 | . 53 :. |
00001110 43 6f 6c 25 28 36 2c 33 29 3e 31 20 8c 20 43 6f |Col%(6,3)>1 . Co|
00001120 6c 25 28 36 2c 33 29 2d 3d 31 0d 04 ec 31 20 20 |l%(6,3)-=1...1 |
00001130 20 20 20 20 20 20 20 20 c9 20 35 37 20 3a e7 20 | . 57 :. |
00001140 43 6f 6c 25 28 36 2c 31 29 3c 31 36 20 8c 20 43 |Col%(6,1)<16 . C|
00001150 6f 6c 25 28 36 2c 31 29 2b 3d 31 0d 04 f6 31 20 |ol%(6,1)+=1...1 |
00001160 20 20 20 20 20 20 20 20 20 c9 20 35 38 20 3a e7 | . 58 :.|
00001170 20 43 6f 6c 25 28 36 2c 32 29 3c 31 36 20 8c 20 | Col%(6,2)<16 . |
00001180 43 6f 6c 25 28 36 2c 32 29 2b 3d 31 0d 05 00 31 |Col%(6,2)+=1...1|
00001190 20 20 20 20 20 20 20 20 20 20 c9 20 35 39 20 3a | . 59 :|
000011a0 e7 20 43 6f 6c 25 28 36 2c 33 29 3c 31 36 20 8c |. Col%(6,3)<16 .|
000011b0 20 43 6f 6c 25 28 36 2c 33 29 2b 3d 31 0d 05 0a | Col%(6,3)+=1...|
000011c0 04 0d 05 14 30 20 20 20 20 20 20 20 20 20 20 c9 |....0 .|
000011d0 20 36 35 20 3a e7 20 46 61 64 65 53 74 65 70 25 | 65 :. FadeStep%|
000011e0 3e 31 20 8c 20 46 61 64 65 53 74 65 70 25 2d 3d |>1 . FadeStep%-=|
000011f0 31 0d 05 1e 2a 20 20 20 20 20 20 20 20 20 20 c9 |1...* .|
00001200 20 36 36 20 3a e7 20 44 65 6c 61 79 25 3e 35 20 | 66 :. Delay%>5 |
00001210 8c 20 44 65 6c 61 79 25 2d 3d 35 0d 05 28 31 20 |. Delay%-=5..(1 |
00001220 20 20 20 20 20 20 20 20 20 c9 20 36 39 20 3a e7 | . 69 :.|
00001230 20 46 61 64 65 53 74 65 70 25 3c 31 36 20 8c 20 | FadeStep%<16 . |
00001240 46 61 64 65 53 74 65 70 25 2b 3d 31 0d 05 32 2c |FadeStep%+=1..2,|
00001250 20 20 20 20 20 20 20 20 20 20 c9 20 37 30 20 3a | . 70 :|
00001260 e7 20 44 65 6c 61 79 25 3c 39 39 35 20 8c 20 44 |. Delay%<995 . D|
00001270 65 6c 61 79 25 2b 3d 35 0d 05 3c 20 20 20 20 20 |elay%+=5..< |
00001280 20 20 20 20 20 20 c9 20 37 31 20 3a f2 53 61 76 | . 71 :.Sav|
00001290 65 4f 70 74 69 6f 6e 73 0d 05 46 0d 20 20 20 20 |eOptions..F. |
000012a0 20 20 20 20 cb 0d 05 50 17 20 20 20 20 20 20 20 | ...P. |
000012b0 f2 55 70 64 61 74 65 49 63 6f 6e 73 0d 05 5a 14 |.UpdateIcons..Z.|
000012c0 20 20 20 20 20 20 20 f2 46 61 64 65 43 61 6c 63 | .FadeCalc|
000012d0 0d 05 64 0b 20 20 20 20 20 20 cd 0d 05 6e 04 0d |..d. ...n..|
000012e0 05 78 0c 20 20 20 20 20 20 20 e1 0d 05 82 0c 20 |.x. ..... |
000012f0 20 20 20 20 20 20 3a 0d 05 8c 30 20 20 20 20 20 | :...0 |
00001300 20 20 dd 20 f2 45 76 65 6e 74 5f 4b 65 79 50 72 | . .Event_KeyPr|
00001310 65 73 73 28 77 69 6e 64 6f 77 25 2c 69 63 6f 6e |ess(window%,icon|
00001320 25 2c 6b 65 79 25 29 0d 05 96 1a 20 20 20 20 20 |%,key%).... |
00001330 20 20 20 20 20 c8 8e 20 77 69 6e 64 6f 77 25 20 | .. window% |
00001340 ca 0d 05 a0 0f 20 20 20 20 20 20 20 20 20 20 cb |..... .|
00001350 0d 05 aa 0c 20 20 20 20 20 20 20 e1 0d 05 b4 0c |.... .....|
00001360 20 20 20 20 20 20 20 3a 0d 05 be 25 20 20 20 20 | :...% |
00001370 20 20 20 dd 20 f2 45 76 65 6e 74 5f 4d 65 6e 75 | . .Event_Menu|
00001380 43 68 6f 69 63 65 28 6d 65 6e 75 25 29 0d 05 c8 |Choice(menu%)...|
00001390 16 20 20 20 20 20 20 20 20 c8 8e 20 6d 65 6e 75 |. .. menu|
000013a0 25 20 ca 0d 05 d2 3c 20 20 20 20 20 20 20 20 20 |% ....< |
000013b0 20 20 20 20 20 c9 20 42 61 72 5f 4d 65 6e 75 25 | . Bar_Menu%|
000013c0 20 20 20 20 20 20 20 20 20 20 3a 20 f2 55 73 65 | : .Use|
000013d0 72 5f 4d 65 6e 75 43 68 6f 69 63 65 42 61 72 0d |r_MenuChoiceBar.|
000013e0 05 dc 0d 20 20 20 20 20 20 20 20 cb 0d 05 e6 0c |... .....|
000013f0 20 20 20 20 20 20 20 e1 0d 05 f0 0c 20 20 20 20 | ..... |
00001400 20 20 20 3a 0d 05 fa 20 20 20 20 20 20 20 20 dd | :... .|
00001410 20 f2 55 73 65 72 5f 4d 65 6e 75 43 68 6f 69 63 | .User_MenuChoic|
00001420 65 42 61 72 0d 06 04 24 20 20 20 20 20 20 20 20 |eBar...$ |
00001430 c8 8e 20 a4 57 69 6d 70 5f 4d 65 6e 75 43 68 6f |.. .Wimp_MenuCho|
00001440 69 63 65 28 30 29 20 ca 0d 06 0e 12 20 20 20 20 |ice(0) ..... |
00001450 20 20 20 20 20 c9 20 31 20 3a 0d 06 18 33 20 20 | . 1 :...3 |
00001460 20 20 20 20 20 20 20 c9 20 32 20 3a f2 57 69 6d | . 2 :.Wim|
00001470 70 5f 57 69 6e 64 6f 77 4f 70 65 6e 28 4f 70 74 |p_WindowOpen(Opt|
00001480 69 6f 6e 73 5f 57 69 6e 64 6f 77 25 29 0d 06 22 |ions_Window%).."|
00001490 1d 20 20 20 20 20 20 20 20 20 c9 20 33 20 3a 66 |. . 3 :f|
000014a0 69 6e 69 73 68 65 64 25 3d b9 0d 06 2c 0d 20 20 |inished%=...,. |
000014b0 20 20 20 20 20 20 cb 0d 06 36 0c 20 20 20 20 20 | ...6. |
000014c0 20 20 e1 0d 06 40 0c 20 20 20 20 20 20 20 3a 0d | ...@. :.|
000014d0 06 4a 29 20 20 20 20 20 20 20 dd 20 f2 45 76 65 |.J) . .Eve|
000014e0 6e 74 5f 4c 6f 61 64 46 69 6c 65 28 66 69 6c 65 |nt_LoadFile(file|
000014f0 24 2c 74 79 70 65 24 29 0d 06 54 0c 20 20 20 20 |$,type$)..T. |
00001500 20 20 20 e1 0d 06 5e 0c 20 20 20 20 20 20 20 3a | ...^. :|
00001510 0d 06 68 2b 20 20 20 20 20 20 20 dd 20 f2 45 76 |..h+ . .Ev|
00001520 65 6e 74 5f 53 61 76 65 46 69 6c 65 28 66 69 6c |ent_SaveFile(fil|
00001530 65 24 2c 77 69 6e 64 6f 77 25 29 0d 06 72 0c 20 |e$,window%)..r. |
00001540 20 20 20 20 20 20 e1 0d 06 7c 0c 20 20 20 20 20 | ...|. |
00001550 20 20 3a 0d 06 86 0c 20 20 20 20 20 20 20 3a 0d | :.... :.|
00001560 06 90 17 20 20 20 20 20 20 20 dd f2 4c 6f 61 64 |... ..Load|
00001570 43 6f 6e 66 69 67 0d 06 9a 18 20 20 20 20 20 20 |Config.... |
00001580 20 ea 20 54 65 6d 70 25 2c 54 65 6d 70 24 0d 06 | . Temp%,Temp$..|
00001590 a4 12 20 20 20 20 20 20 20 54 65 6d 70 25 3d 30 |.. Temp%=0|
000015a0 0d 06 ae 2d 20 20 20 20 20 20 20 49 6e 46 69 6c |...- InFil|
000015b0 65 25 3d 8e 20 22 3c 50 4f 49 4e 54 46 41 44 45 |e%=. "<POINTFADE|
000015c0 24 44 49 52 3e 2e 43 6f 6e 66 69 67 22 0d 06 b8 |$DIR>.Config"...|
000015d0 0c 20 20 20 20 20 20 20 f5 0d 06 c2 18 20 20 20 |. ..... |
000015e0 20 20 20 20 54 65 6d 70 25 3d 54 65 6d 70 25 2b | Temp%=Temp%+|
000015f0 31 0d 06 cc 1a 20 20 20 20 20 20 20 54 65 6d 70 |1.... Temp|
00001600 24 3d be 23 49 6e 46 69 6c 65 25 0d 06 d6 21 20 |$=.#InFile%...! |
00001610 20 20 20 20 20 20 43 6f 6c 25 28 54 65 6d 70 25 | Col%(Temp%|
00001620 2c 31 29 3d bb 28 54 65 6d 70 24 29 0d 06 e0 1a |,1)=.(Temp$)....|
00001630 20 20 20 20 20 20 20 54 65 6d 70 24 3d be 23 49 | Temp$=.#I|
00001640 6e 46 69 6c 65 25 0d 06 ea 21 20 20 20 20 20 20 |nFile%...! |
00001650 20 43 6f 6c 25 28 54 65 6d 70 25 2c 32 29 3d bb | Col%(Temp%,2)=.|
00001660 28 54 65 6d 70 24 29 0d 06 f4 1a 20 20 20 20 20 |(Temp$).... |
00001670 20 20 54 65 6d 70 24 3d be 23 49 6e 46 69 6c 65 | Temp$=.#InFile|
00001680 25 0d 06 fe 21 20 20 20 20 20 20 20 43 6f 6c 25 |%...! Col%|
00001690 28 54 65 6d 70 25 2c 33 29 3d bb 28 54 65 6d 70 |(Temp%,3)=.(Temp|
000016a0 24 29 0d 07 08 14 20 20 20 20 20 20 20 fd 20 54 |$).... . T|
000016b0 65 6d 70 25 3d 36 0d 07 12 04 0d 07 1c 1a 20 20 |emp%=6........ |
000016c0 20 20 20 20 20 54 65 6d 70 24 3d be 23 49 6e 46 | Temp$=.#InF|
000016d0 69 6c 65 25 0d 07 26 1a 20 20 20 20 20 20 20 44 |ile%..&. D|
000016e0 65 6c 61 79 25 3d bb 28 54 65 6d 70 24 29 0d 07 |elay%=.(Temp$)..|
000016f0 30 1a 20 20 20 20 20 20 20 54 65 6d 70 24 3d be |0. Temp$=.|
00001700 23 49 6e 46 69 6c 65 25 0d 07 3a 1d 20 20 20 20 |#InFile%..:. |
00001710 20 20 20 46 61 64 65 53 74 65 70 25 3d bb 28 54 | FadeStep%=.(T|
00001720 65 6d 70 24 29 0d 07 44 04 0d 07 4e 15 20 20 20 |emp$)..D...N. |
00001730 20 20 20 20 d9 20 23 49 6e 46 69 6c 65 25 0d 07 | . #InFile%..|
00001740 58 14 20 20 20 20 20 20 20 f2 46 61 64 65 43 61 |X. .FadeCa|
00001750 6c 63 0d 07 62 04 0d 07 6c 11 20 20 54 25 3d 91 |lc..b...l. T%=.|
00001760 2b 44 65 6c 61 79 25 0d 07 76 05 e1 0d 07 80 05 |+Delay%..v......|
00001770 3a 0d 07 8a 11 dd f2 55 70 64 61 74 65 49 63 6f |:......UpdateIco|
00001780 6e 73 0d 07 94 07 ea 20 49 0d 07 9e 0d e3 20 49 |ns..... I..... I|
00001790 3d 31 20 b8 20 33 0d 07 a8 37 f2 57 69 6d 70 5f |=1 . 3...7.Wimp_|
000017a0 49 63 6f 6e 50 75 74 54 65 78 74 28 4f 70 74 69 |IconPutText(Opti|
000017b0 6f 6e 73 5f 57 69 6e 64 6f 77 25 2c 35 2b 49 2c |ons_Window%,5+I,|
000017c0 c3 28 43 6f 6c 25 28 31 2c 49 29 29 29 0d 07 b2 |.(Col%(1,I)))...|
000017d0 38 f2 57 69 6d 70 5f 49 63 6f 6e 50 75 74 54 65 |8.Wimp_IconPutTe|
000017e0 78 74 28 4f 70 74 69 6f 6e 73 5f 57 69 6e 64 6f |xt(Options_Windo|
000017f0 77 25 2c 31 34 2b 49 2c c3 28 43 6f 6c 25 28 32 |w%,14+I,.(Col%(2|
00001800 2c 49 29 29 29 0d 07 bc 38 f2 57 69 6d 70 5f 49 |,I)))...8.Wimp_I|
00001810 63 6f 6e 50 75 74 54 65 78 74 28 4f 70 74 69 6f |conPutText(Optio|
00001820 6e 73 5f 57 69 6e 64 6f 77 25 2c 32 33 2b 49 2c |ns_Window%,23+I,|
00001830 c3 28 43 6f 6c 25 28 33 2c 49 29 29 29 0d 07 c6 |.(Col%(3,I)))...|
00001840 38 f2 57 69 6d 70 5f 49 63 6f 6e 50 75 74 54 65 |8.Wimp_IconPutTe|
00001850 78 74 28 4f 70 74 69 6f 6e 73 5f 57 69 6e 64 6f |xt(Options_Windo|
00001860 77 25 2c 33 35 2b 49 2c c3 28 43 6f 6c 25 28 34 |w%,35+I,.(Col%(4|
00001870 2c 49 29 29 29 0d 07 d0 38 f2 57 69 6d 70 5f 49 |,I)))...8.Wimp_I|
00001880 63 6f 6e 50 75 74 54 65 78 74 28 4f 70 74 69 6f |conPutText(Optio|
00001890 6e 73 5f 57 69 6e 64 6f 77 25 2c 34 34 2b 49 2c |ns_Window%,44+I,|
000018a0 c3 28 43 6f 6c 25 28 35 2c 49 29 29 29 0d 07 da |.(Col%(5,I)))...|
000018b0 38 f2 57 69 6d 70 5f 49 63 6f 6e 50 75 74 54 65 |8.Wimp_IconPutTe|
000018c0 78 74 28 4f 70 74 69 6f 6e 73 5f 57 69 6e 64 6f |xt(Options_Windo|
000018d0 77 25 2c 35 33 2b 49 2c c3 28 43 6f 6c 25 28 36 |w%,53+I,.(Col%(6|
000018e0 2c 49 29 29 29 0d 07 e4 07 ed 20 49 0d 07 ee 36 |,I)))..... I...6|
000018f0 f2 57 69 6d 70 5f 49 63 6f 6e 50 75 74 54 65 78 |.Wimp_IconPutTex|
00001900 74 28 4f 70 74 69 6f 6e 73 5f 57 69 6e 64 6f 77 |t(Options_Window|
00001910 25 2c 36 37 2c c3 28 46 61 64 65 53 74 65 70 25 |%,67,.(FadeStep%|
00001920 29 29 0d 07 f8 33 f2 57 69 6d 70 5f 49 63 6f 6e |))...3.Wimp_Icon|
00001930 50 75 74 54 65 78 74 28 4f 70 74 69 6f 6e 73 5f |PutText(Options_|
00001940 57 69 6e 64 6f 77 25 2c 36 38 2c c3 28 44 65 6c |Window%,68,.(Del|
00001950 61 79 25 29 29 0d 08 02 04 0d 08 0c 05 e1 0d 08 |ay%))...........|
00001960 16 05 3a 0d 08 20 11 dd f2 53 61 76 65 4f 70 74 |..:.. ...SaveOpt|
00001970 69 6f 6e 73 0d 08 2a 0f ea 20 54 65 6d 70 24 2c |ions..*.. Temp$,|
00001980 58 2c 59 0d 08 34 27 4f 75 74 46 69 6c 65 25 3d |X,Y..4'OutFile%=|
00001990 ae 20 22 3c 50 6f 69 6e 74 46 61 64 65 24 44 69 |. "<PointFade$Di|
000019a0 72 3e 2e 43 6f 6e 66 69 67 22 0d 08 3e 0d e3 20 |r>.Config"..>.. |
000019b0 59 3d 31 20 b8 20 36 0d 08 48 0d e3 20 58 3d 31 |Y=1 . 6..H.. X=1|
000019c0 20 b8 20 33 0d 08 52 16 54 65 6d 70 24 3d c3 28 | . 3..R.Temp$=.(|
000019d0 43 6f 6c 25 28 59 2c 58 29 29 0d 08 5c 14 d5 23 |Col%(Y,X))..\..#|
000019e0 4f 75 74 46 69 6c 65 25 2c 54 65 6d 70 24 0d 08 |OutFile%,Temp$..|
000019f0 66 07 ed 20 58 0d 08 70 07 ed 20 59 0d 08 7a 13 |f.. X..p.. Y..z.|
00001a00 54 65 6d 70 24 3d c3 28 44 65 6c 61 79 25 29 0d |Temp$=.(Delay%).|
00001a10 08 84 14 d5 23 4f 75 74 46 69 6c 65 25 2c 54 65 |....#OutFile%,Te|
00001a20 6d 70 24 0d 08 8e 16 54 65 6d 70 24 3d c3 28 46 |mp$....Temp$=.(F|
00001a30 61 64 65 53 74 65 70 25 29 0d 08 98 14 d5 23 4f |adeStep%).....#O|
00001a40 75 74 46 69 6c 65 25 2c 54 65 6d 70 24 0d 08 a2 |utFile%,Temp$...|
00001a50 0e d9 23 4f 75 74 46 69 6c 65 25 0d 08 ac 05 e1 |..#OutFile%.....|
00001a60 0d 08 b6 05 3a 0d 08 c0 04 0d 08 ca 0e dd f2 46 |....:..........F|
00001a70 61 64 65 43 61 6c 63 0d 08 d4 09 ea 20 58 2c 59 |adeCalc..... X,Y|
00001a80 0d 08 de 0e e3 20 20 59 3d 37 20 b8 20 39 0d 08 |..... Y=7 . 9..|
00001a90 e8 0d e3 20 58 3d 31 20 b8 20 33 0d 08 f2 3f 43 |... X=1 . 3...?C|
00001aa0 6f 6c 25 28 59 2c 58 29 3d 28 28 43 6f 6c 25 28 |ol%(Y,X)=((Col%(|
00001ab0 59 2d 33 2c 58 29 2a 31 36 2d 31 29 2d 28 43 6f |Y-3,X)*16-1)-(Co|
00001ac0 6c 25 28 59 2d 36 2c 58 29 2a 31 36 2d 31 29 29 |l%(Y-6,X)*16-1))|
00001ad0 2f 46 61 64 65 53 74 65 70 25 0d 08 fc 20 43 6f |/FadeStep%... Co|
00001ae0 6c 25 28 59 2b 33 2c 58 29 3d 43 6f 6c 25 28 59 |l%(Y+3,X)=Col%(Y|
00001af0 2d 36 2c 58 29 2a 31 36 2d 31 0d 09 06 07 ed 20 |-6,X)*16-1..... |
00001b00 58 0d 09 10 07 ed 20 59 0d 09 1a 10 46 61 64 65 |X..... Y....Fade|
00001b10 43 6f 75 6e 74 25 3d 31 0d 09 24 05 e1 0d 09 2e |Count%=1..$.....|
00001b20 05 3a 0d 09 38 04 0d 09 42 04 0d 09 4c 04 0d 09 |.:..8...B...L...|
00001b30 56 04 0d 09 60 04 0d 09 6a 4f f4 7c 5f 5f 5f 5f |V...`...jO.|____|
00001b40 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f |________________|
*
00001b80 5f 5f 5f 5f 5f 0d 09 74 4f f4 7c 5f 5f 5f 5f 5f |_____..tO.|_____|
00001b90 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f |________________|
*
00001bd0 5f 5f 5f 5f 0d 09 7e 4f f4 7c 5f 5f 5f 5f 5f 5f |____..~O.|______|
00001be0 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f |________________|
*
00001c20 5f 5f 5f 0d 09 88 06 f4 7c 0d 09 92 06 f4 7c 0d |___.....|.....|.|
00001c30 09 9c 06 f4 7c 0d 09 a6 45 f4 7c 20 20 20 20 20 |....|...E.| |
00001c40 20 20 20 20 20 20 20 20 20 20 20 2d 2d 2d 2d 2d | -----|
00001c50 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------|
00001c60 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 20 20 20 20 20 |---------- |
00001c70 20 20 20 20 36 2f 31 2f 39 32 0d 09 b0 2f f4 7c | 6/1/92.../.||
00001c80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001c90 20 20 20 57 49 4d 50 20 50 52 4f 43 45 44 55 52 | WIMP PROCEDUR|
00001ca0 45 20 4c 49 42 52 41 52 59 0d 09 ba 06 f4 7c 0d |E LIBRARY.....|.|
00001cb0 09 c4 2c f4 7c 20 20 20 20 20 20 20 20 20 20 20 |..,.| |
00001cc0 20 20 20 20 20 20 20 20 20 20 49 6e 64 65 78 20 | Index |
00001cd0 6f 66 20 43 6f 6e 74 65 6e 74 73 0d 09 ce 06 f4 |of Contents.....|
00001ce0 7c 0d 09 d8 35 f4 7c 20 20 20 20 20 20 20 20 20 ||...5.| |
00001cf0 20 20 20 20 20 20 20 2d 2d 2d 2d 2d 2d 2d 2d 2d | ---------|
00001d00 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------|
00001d10 2d 2d 2d 2d 2d 2d 0d 09 e2 06 f4 7c 0d 09 ec 24 |------.....|...$|
00001d20 f4 7c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |.| |
00001d30 20 20 20 20 20 20 31 2e a0 57 69 6e 64 6f 77 73 | 1..Windows|
00001d40 0d 09 f6 06 f4 7c 0d 0a 00 22 f4 7c 20 20 20 20 |.....|...".| |
00001d50 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001d60 32 2e a0 49 63 6f 6e 73 0d 0a 0a 06 f4 7c 0d 0a |2..Icons.....|..|
00001d70 14 22 f4 7c 20 20 20 20 20 20 20 20 20 20 20 20 |.".| |
00001d80 20 20 20 20 20 20 20 20 33 2e a0 4d 65 6e 75 73 | 3..Menus|
00001d90 0d 0a 1e 06 f4 7c 0d 0a 28 24 f4 7c 20 20 20 20 |.....|..($.| |
00001da0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001db0 34 2e a0 53 70 72 69 74 65 73 0d 0a 32 06 f4 7c |4..Sprites..2..||
00001dc0 0d 0a 3c 2a f4 7c 20 20 20 20 20 20 20 20 20 20 |..<*.| |
00001dd0 20 20 20 20 20 20 20 20 20 20 35 2e a0 4d 69 73 | 5..Mis|
00001de0 63 65 6c 6c 61 6e 65 6f 75 73 0d 0a 46 06 f4 7c |cellaneous..F..||
00001df0 0d 0a 50 24 f4 7c 20 20 20 20 20 20 20 20 20 20 |..P$.| |
00001e00 20 20 20 20 20 20 20 20 20 20 36 2e a0 50 6f 6c | 6..Pol|
00001e10 6c 69 6e 67 0d 0a 5a 06 f4 7c 0d 0a 64 35 f4 7c |ling..Z..|..d5.||
00001e20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001e30 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------|
00001e40 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d |---------------.|
00001e50 0a 6e 06 f4 7c 0d 0a 78 06 f4 7c 0d 0a 82 06 f4 |.n..|..x..|.....|
00001e60 7c 0d 0a 8c 06 f4 7c 0d 0a 96 06 f4 7c 0d 0a a0 ||.....|.....|...|
00001e70 06 f4 7c 0d 0a aa 35 f4 7c 20 20 20 20 20 20 20 |..|...5.| |
00001e80 20 20 20 20 20 20 20 20 20 2d 2d 2d 2d 2d 2d 2d | -------|
00001e90 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------|
00001ea0 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a b4 2a f4 7c 20 20 |--------...*.| |
00001eb0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001ec0 20 20 20 20 20 20 20 20 31 2e a0 57 69 6e 64 6f | 1..Windo|
00001ed0 77 73 0d 0a be 35 f4 7c 20 20 20 20 20 20 20 20 |ws...5.| |
00001ee0 20 20 20 20 20 20 20 20 2d 2d 2d 2d 2d 2d 2d 2d | --------|
00001ef0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------|
00001f00 2d 2d 2d 2d 2d 2d 2d 0d 0a c8 06 f4 7c 0d 0a d2 |-------.....|...|
00001f10 06 f4 7c 0d 0a dc 40 f4 7c 20 20 20 20 20 20 20 |..|...@.| |
00001f20 20 20 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d | -------------|
00001f30 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------|
*
00001f50 2d 2d 2d 0d 0a e6 06 f4 7c 0d 0a f0 28 f4 7c 20 |---.....|...(.| |
00001f60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001f70 20 20 20 20 20 50 72 6f 63 65 64 75 72 65 73 20 | Procedures |
00001f80 3a 0d 0a fa 06 f4 7c 0d 0b 04 38 f4 7c 20 20 20 |:.....|...8.| |
00001f90 20 20 20 20 20 20 20 20 20 20 50 52 4f 43 57 69 | PROCWi|
00001fa0 6d 70 5f 57 69 6e 64 6f 77 41 6c 65 72 74 28 74 |mp_WindowAlert(t|
00001fb0 69 74 6c 65 24 2c 6d 65 73 73 61 67 65 24 29 0d |itle$,message$).|
00001fc0 0b 0e 43 f4 7c 20 20 20 20 20 20 20 20 20 20 20 |..C.| |
00001fd0 20 20 50 52 4f 43 57 69 6d 70 5f 57 69 6e 64 6f | PROCWimp_Windo|
00001fe0 77 41 6c 65 72 74 42 6f 78 28 74 69 74 6c 65 24 |wAlertBox(title$|
00001ff0 2c 6d 65 73 73 61 67 65 24 2c 62 75 74 74 6f 6e |,message$,button|
00002000 25 29 0d 0b 18 37 f4 7c 20 20 20 20 20 20 20 20 |%)...7.| |
00002010 20 20 20 20 20 46 4e 57 69 6d 70 5f 57 69 6e 64 | FNWimp_Wind|
00002020 6f 77 43 61 6e 63 65 6c 28 74 69 74 6c 65 24 2c |owCancel(title$,|
00002030 6d 65 73 73 61 67 65 24 29 0d 0b 22 3b f4 7c 20 |message$)..";.| |
00002040 20 20 20 20 20 20 20 20 20 20 20 20 50 52 4f 43 | PROC|
00002050 57 69 6d 70 5f 57 69 6e 64 6f 77 45 72 72 6f 72 |Wimp_WindowError|
00002060 42 6f 78 28 74 69 74 6c 65 24 2c 6d 65 73 73 61 |Box(title$,messa|
00002070 67 65 24 29 0d 0b 2c 2e f4 7c 20 20 20 20 20 20 |ge$)..,..| |
00002080 20 20 20 20 20 20 20 46 4e 57 69 6d 70 5f 57 69 | FNWimp_Wi|
00002090 6e 64 6f 77 54 69 74 6c 65 28 77 69 6e 64 6f 77 |ndowTitle(window|
000020a0 25 29 0d 0b 36 2d f4 7c 20 20 20 20 20 20 20 20 |%)..6-.| |
000020b0 20 20 20 20 20 46 4e 57 69 6d 70 5f 57 69 6e 64 | FNWimp_Wind|
000020c0 6f 77 4c 6f 61 64 28 77 69 6e 64 6f 77 24 29 0d |owLoad(window$).|
000020d0 0b 40 3b f4 7c 20 20 20 20 20 20 20 20 20 20 20 |.@;.| |
000020e0 20 20 46 4e 57 69 6d 70 5f 57 69 6e 64 6f 77 4c | FNWimp_WindowL|
000020f0 6f 61 64 46 72 6f 6d 28 77 69 6e 64 6f 77 24 2c |oadFrom(window$,|
00002100 74 65 6d 70 6c 61 74 65 24 29 0d 0b 4a 35 f4 7c |template$)..J5.||
00002110 20 20 20 20 20 20 20 20 20 20 20 20 20 50 52 4f | PRO|
00002120 43 57 69 6d 70 5f 57 69 6e 64 6f 77 42 72 69 6e |CWimp_WindowBrin|
00002130 67 54 6f 54 6f 70 28 77 69 6e 64 6f 77 25 29 0d |gToTop(window%).|
00002140 0b 54 34 f4 7c 20 20 20 20 20 20 20 20 20 20 20 |.T4.| |
00002150 20 20 50 52 4f 43 57 69 6d 70 5f 57 69 6e 64 6f | PROCWimp_Windo|
00002160 77 46 6f 72 63 65 44 72 61 77 28 77 69 6e 64 6f |wForceDraw(windo|
00002170 77 25 29 0d 0b 5e 2f f4 7c 20 20 20 20 20 20 20 |w%)..^/.| |
00002180 20 20 20 20 20 20 50 52 4f 43 57 69 6d 70 5f 57 | PROCWimp_W|
00002190 69 6e 64 6f 77 4f 70 65 6e 28 77 69 6e 64 6f 77 |indowOpen(window|
000021a0 25 29 0d 0b 68 2b f4 7c 20 20 20 20 20 20 20 20 |%)..h+.| |
000021b0 20 20 20 20 20 50 52 4f 43 57 69 6d 70 5f 57 69 | PROCWimp_Wi|
000021c0 6e 64 6f 77 49 6e 74 65 72 66 61 63 65 0d 0b 72 |ndowInterface..r|
000021d0 06 f4 7c 0d 0b 7c 3f f4 7c 20 20 20 20 20 20 20 |..|..|?.| |
000021e0 20 20 20 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d | ------------|
000021f0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------|
*
00002210 2d 2d 0d 0b 86 06 f4 7c 0d 0b 90 06 f4 7c 0d 0b |--.....|.....|..|
00002220 9a 06 f4 7c 0d 0b a4 28 dd 20 f2 57 69 6d 70 5f |...|...(. .Wimp_|
00002230 57 69 6e 64 6f 77 41 6c 65 72 74 28 74 69 74 6c |WindowAlert(titl|
00002240 65 24 2c 6d 65 73 73 61 67 65 24 29 0d 0b ae 2b |e$,message$)...+|
00002250 f2 57 69 6d 70 5f 57 69 6e 64 6f 77 41 6c 65 72 |.Wimp_WindowAler|
00002260 74 42 6f 78 28 74 69 74 6c 65 24 2c 6d 65 73 73 |tBox(title$,mess|
00002270 61 67 65 24 2c 30 29 0d 0b b8 05 e1 0d 0b c2 05 |age$,0).........|
00002280 3a 0d 0b cc 33 dd 20 f2 57 69 6d 70 5f 57 69 6e |:...3. .Wimp_Win|
00002290 64 6f 77 41 6c 65 72 74 42 6f 78 28 74 69 74 6c |dowAlertBox(titl|
000022a0 65 24 2c 6d 65 73 73 61 67 65 24 2c 62 75 74 74 |e$,message$,butt|
000022b0 6f 6e 25 29 0d 0b d6 0f ea 20 72 65 73 70 6f 6e |on%)..... respon|
000022c0 73 65 25 0d 0b e0 17 24 28 77 69 6d 70 25 2b 34 |se%....$(wimp%+4|
000022d0 29 3d 6d 65 73 73 61 67 65 24 0d 0b ea 10 c8 8e |)=message$......|
000022e0 20 62 75 74 74 6f 6e 25 20 ca 0d 0b f4 19 20 c9 | button% ..... .|
000022f0 20 32 20 20 20 20 3a 20 72 65 73 70 6f 6e 73 65 | 2 : response|
00002300 25 3d 31 0d 0b fe 1a 20 c9 20 31 20 20 20 20 3a |%=1.... . 1 :|
00002310 20 72 65 73 70 6f 6e 73 65 25 3d 31 35 0d 0c 08 | response%=15...|
00002320 21 20 c9 20 33 20 20 20 20 3a 20 72 65 73 70 6f |! . 3 : respo|
00002330 6e 73 65 25 3d 28 31 3c 3c 35 29 2b 31 36 0d 0c |nse%=(1<<5)+16..|
00002340 12 21 20 c9 20 34 20 20 20 20 3a 20 72 65 73 70 |.! . 4 : resp|
00002350 6f 6e 73 65 25 3d 28 31 3c 3c 36 29 2b 31 36 0d |onse%=(1<<6)+16.|
00002360 0c 1c 14 7f 20 3a 20 72 65 73 70 6f 6e 73 65 25 |.... : response%|
00002370 3d 31 36 0d 0c 26 05 cb 0d 0c 30 3d c8 99 20 22 |=16..&....0=.. "|
00002380 57 69 6d 70 5f 52 65 70 6f 72 74 45 72 72 6f 72 |Wimp_ReportError|
00002390 22 2c 77 69 6d 70 25 2c 72 65 73 70 6f 6e 73 65 |",wimp%,response|
000023a0 25 2c 74 69 74 6c 65 24 20 b8 20 2c 72 65 73 70 |%,title$ . ,resp|
000023b0 6f 6e 73 65 25 0d 0c 3a 05 e1 0d 0c 44 05 3a 0d |onse%..:....D.:.|
000023c0 0c 4e 29 dd 20 a4 57 69 6d 70 5f 57 69 6e 64 6f |.N). .Wimp_Windo|
000023d0 77 43 61 6e 63 65 6c 28 74 69 74 6c 65 24 2c 6d |wCancel(title$,m|
000023e0 65 73 73 61 67 65 24 29 0d 0c 58 17 24 28 77 69 |essage$)..X.$(wi|
000023f0 6d 70 25 2b 34 29 3d 6d 65 73 73 61 67 65 24 0d |mp%+4)=message$.|
00002400 0c 62 10 72 65 73 70 6f 6e 73 65 25 3d 32 33 0d |.b.response%=23.|
00002410 0c 6c 3d c8 99 20 22 57 69 6d 70 5f 52 65 70 6f |.l=.. "Wimp_Repo|
00002420 72 74 45 72 72 6f 72 22 2c 77 69 6d 70 25 2c 72 |rtError",wimp%,r|
00002430 65 73 70 6f 6e 73 65 25 2c 74 69 74 6c 65 24 20 |esponse%,title$ |
00002440 b8 20 2c 72 65 73 70 6f 6e 73 65 25 0d 0c 76 10 |. ,response%..v.|
00002450 3d 72 65 73 70 6f 6e 73 65 25 2d 32 0d 0c 80 05 |=response%-2....|
00002460 3a 0d 0c 8a 2b dd 20 f2 57 69 6d 70 5f 57 69 6e |:...+. .Wimp_Win|
00002470 64 6f 77 45 72 72 6f 72 42 6f 78 28 74 69 74 6c |dowErrorBox(titl|
00002480 65 24 2c 6d 65 73 73 61 67 65 24 29 0d 0c 94 2b |e$,message$)...+|
00002490 f2 57 69 6d 70 5f 57 69 6e 64 6f 77 41 6c 65 72 |.Wimp_WindowAler|
000024a0 74 42 6f 78 28 74 69 74 6c 65 24 2c 6d 65 73 73 |tBox(title$,mess|
000024b0 61 67 65 24 2c 32 29 0d 0c 9e 05 e1 0d 0c a8 05 |age$,2).........|
000024c0 3a 0d 0c b2 20 dd 20 a4 57 69 6d 70 5f 57 69 6e |:... . .Wimp_Win|
000024d0 64 6f 77 54 69 74 6c 65 28 77 69 6e 64 6f 77 25 |dowTitle(window%|
000024e0 29 0d 0c bc 13 77 69 6d 70 25 21 30 3d 77 69 6e |)....wimp%!0=win|
000024f0 64 6f 77 25 0d 0c c6 20 c8 99 20 22 57 69 6d 70 |dow%... .. "Wimp|
00002500 5f 47 65 74 57 69 6e 64 49 6e 66 6f 22 2c 2c 77 |_GetWindInfo",,w|
00002510 69 6d 70 25 0d 0c d0 36 e7 20 28 28 77 69 6d 70 |imp%...6. ((wimp|
00002520 25 21 36 30 29 80 26 31 30 30 29 3d 30 20 85 20 |%!60).&100)=0 . |
00002530 31 2c 22 54 69 74 6c 65 20 69 73 6e 27 74 20 69 |1,"Title isn't i|
00002540 6e 64 69 72 65 63 74 65 64 22 0d 0c da 10 3d 24 |ndirected"....=$|
00002550 28 77 69 6d 70 25 21 37 36 29 0d 0c e4 05 3a 0d |(wimp%!76)....:.|
00002560 0c ee 1f dd 20 a4 57 69 6d 70 5f 57 69 6e 64 6f |.... .Wimp_Windo|
00002570 77 4c 6f 61 64 28 77 69 6e 64 6f 77 24 29 0d 0c |wLoad(window$)..|
00002580 f8 39 3d a4 57 69 6d 70 5f 57 69 6e 64 6f 77 4c |.9=.Wimp_WindowL|
00002590 6f 61 64 46 72 6f 6d 28 77 69 6e 64 6f 77 24 2c |oadFrom(window$,|
000025a0 22 3c 4f 62 65 79 24 44 69 72 3e 2e 54 65 6d 70 |"<Obey$Dir>.Temp|
000025b0 6c 61 74 65 73 22 29 0d 0d 02 05 3a 0d 0d 0c 2d |lates")....:...-|
000025c0 dd 20 a4 57 69 6d 70 5f 57 69 6e 64 6f 77 4c 6f |. .Wimp_WindowLo|
000025d0 61 64 46 72 6f 6d 28 77 69 6e 64 6f 77 24 2c 74 |adFrom(window$,t|
000025e0 65 6d 70 6c 61 74 65 24 29 0d 0d 16 1a ea 20 63 |emplate$)..... c|
000025f0 25 2c 69 25 2c 6e 25 2c 6a 25 2c 73 70 24 2c 73 |%,i%,n%,j%,sp$,s|
00002600 70 32 24 0d 0d 20 25 c8 99 20 22 57 69 6d 70 5f |p2$.. %.. "Wimp_|
00002610 4f 70 65 6e 54 65 6d 70 6c 61 74 65 22 2c 2c 74 |OpenTemplate",,t|
00002620 65 6d 70 6c 61 74 65 24 0d 0d 2a 4d c8 99 20 22 |emplate$..*M.. "|
00002630 57 69 6d 70 5f 4c 6f 61 64 54 65 6d 70 6c 61 74 |Wimp_LoadTemplat|
00002640 65 22 2c 2c 77 69 6d 70 25 2c 69 63 6f 6e 73 25 |e",,wimp%,icons%|
00002650 2c 69 63 6f 6e 5f 6d 65 6d 6f 72 79 25 2c 2d 31 |,icon_memory%,-1|
00002660 2c 77 69 6e 64 6f 77 24 2c 30 20 b8 20 2c 2c 69 |,window$,0 . ,,i|
00002670 63 6f 6e 73 25 0d 0d 34 11 c8 8e 20 73 70 72 69 |cons%..4... spri|
00002680 74 65 73 25 20 ca 0d 0d 3e 1f 20 c9 20 31 20 20 |tes% ...>. . 1 |
00002690 20 20 3a 20 77 69 6d 70 25 21 36 34 3d 73 70 72 | : wimp%!64=spr|
000026a0 69 74 65 73 25 0d 0d 48 29 20 7f 20 3a 20 77 69 |ites%..H) . : wi|
000026b0 6d 70 25 21 36 34 3d a4 45 76 65 6e 74 5f 53 70 |mp%!64=.Event_Sp|
000026c0 72 69 74 65 73 28 77 69 6e 64 6f 77 25 29 0d 0d |rites(window%)..|
000026d0 52 05 cb 0d 0d 5c 26 c8 99 20 22 57 69 6d 70 5f |R....\&.. "Wimp_|
000026e0 43 72 65 61 74 65 57 69 6e 64 6f 77 22 2c 2c 77 |CreateWindow",,w|
000026f0 69 6d 70 25 20 b8 20 63 25 0d 0d 66 1b c8 99 20 |imp% . c%..f... |
00002700 22 57 69 6d 70 5f 43 6c 6f 73 65 54 65 6d 70 6c |"Wimp_CloseTempl|
00002710 61 74 65 22 0d 0d 70 37 c8 99 20 22 57 69 6d 70 |ate"..p7.. "Wimp|
00002720 5f 57 68 69 63 68 49 63 6f 6e 22 2c 63 25 2c 77 |_WhichIcon",c%,w|
00002730 69 6d 70 25 2b 34 30 2c 31 2b 32 2b 28 31 3c 3c |imp%+40,1+2+(1<<|
00002740 38 29 2c 32 2b 28 31 3c 3c 38 29 0d 0d 7a 11 c8 |8),2+(1<<8)..z..|
00002750 8e 20 77 69 6d 70 25 21 34 30 20 ca 0d 0d 84 0d |. wimp%!40 .....|
00002760 20 c9 20 2d 31 20 20 20 3a 0d 0d 8e 0e 20 7f 20 | . -1 :.... . |
00002770 3a 20 69 25 3d 34 30 0d 0d 98 06 20 f5 0d 0d a2 |: i%=40.... ....|
00002780 24 20 20 20 77 69 6d 70 25 21 34 3d 77 69 6d 70 |$ wimp%!4=wimp|
00002790 25 21 69 25 20 3a 20 77 69 6d 70 25 21 30 3d 63 |%!i% : wimp%!0=c|
000027a0 25 0d 0d ac 24 20 20 20 c8 99 20 22 57 69 6d 70 |%...$ .. "Wimp|
000027b0 5f 47 65 74 49 63 6f 6e 53 74 61 74 65 22 2c 2c |_GetIconState",,|
000027c0 77 69 6d 70 25 0d 0d b6 2d 20 20 20 73 70 24 3d |wimp%...- sp$=|
000027d0 a4 57 69 6d 70 5f 47 65 74 53 74 72 69 6e 67 41 |.Wimp_GetStringA|
000027e0 74 41 64 64 72 65 73 73 28 77 69 6d 70 25 21 32 |tAddress(wimp%!2|
000027f0 38 29 0d 0d c0 22 20 20 20 c8 99 20 22 57 69 6d |8)..." .. "Wim|
00002800 70 5f 44 65 6c 65 74 65 49 63 6f 6e 22 2c 2c 77 |p_DeleteIcon",,w|
00002810 69 6d 70 25 0d 0d ca 14 20 20 20 c8 8e 20 73 70 |imp%.... .. sp|
00002820 72 69 74 65 73 25 20 ca 0d 0d d4 1b 20 20 20 20 |rites% ..... |
00002830 c9 20 31 20 20 20 20 3a 20 77 69 6d 70 25 21 33 |. 1 : wimp%!3|
00002840 32 3d 31 0d 0d de 0b 20 20 20 20 7f 20 3a 0d 0d |2=1.... . :..|
00002850 e8 2f 20 20 20 20 20 c8 99 20 22 4f 53 5f 53 70 |./ .. "OS_Sp|
00002860 72 69 74 65 4f 70 22 2c 26 31 30 38 2c 73 70 72 |riteOp",&108,spr|
00002870 69 74 65 73 25 20 b8 20 2c 2c 2c 6e 25 0d 0d f2 |ites% . ,,,n%...|
00002880 0d 20 20 20 20 20 6a 25 3d 30 0d 0d fc 12 20 20 |. j%=0.... |
00002890 20 20 20 f5 20 3a 20 6a 25 2b 3d 31 0d 0e 06 3d | . : j%+=1...=|
000028a0 20 20 20 20 20 20 c8 99 20 22 4f 53 5f 53 70 72 | .. "OS_Spr|
000028b0 69 74 65 4f 70 22 2c 26 31 30 44 2c 73 70 72 69 |iteOp",&10D,spri|
000028c0 74 65 73 25 2c 70 6f 69 6e 74 65 72 5f 62 6c 6f |tes%,pointer_blo|
000028d0 63 6b 25 2c 32 30 2c 6a 25 0d 0e 10 37 20 20 20 |ck%,20,j%...7 |
000028e0 20 20 20 73 70 32 24 3d a4 57 69 6d 70 5f 47 65 | sp2$=.Wimp_Ge|
000028f0 74 53 74 72 69 6e 67 41 74 41 64 64 72 65 73 73 |tStringAtAddress|
00002900 28 70 6f 69 6e 74 65 72 5f 62 6c 6f 63 6b 25 29 |(pointer_block%)|
00002910 0d 0e 1a 1b 20 20 20 20 20 fd 20 6a 25 3d 6e 25 |.... . j%=n%|
00002920 20 84 20 73 70 24 3d 73 70 32 24 0d 0e 24 34 20 | . sp$=sp2$..$4 |
00002930 20 20 20 20 e7 20 73 70 24 3d 73 70 32 24 20 8c | . sp$=sp2$ .|
00002940 20 77 69 6d 70 25 21 33 32 3d 73 70 72 69 74 65 | wimp%!32=sprite|
00002950 73 25 20 8b 20 77 69 6d 70 25 21 33 32 3d 31 0d |s% . wimp%!32=1.|
00002960 0e 2e 08 20 20 20 cb 0d 0e 38 11 20 20 20 77 69 |... ...8. wi|
00002970 6d 70 25 21 34 3d 63 25 0d 0e 42 2e 20 20 20 c8 |mp%!4=c%..B. .|
00002980 99 20 22 57 69 6d 70 5f 43 72 65 61 74 65 49 63 |. "Wimp_CreateIc|
00002990 6f 6e 22 2c 2c 77 69 6d 70 25 2b 34 20 b8 20 68 |on",,wimp%+4 . h|
000029a0 61 6e 64 6c 65 25 0d 0e 4c 0c 20 20 20 69 25 2b |andle%..L. i%+|
000029b0 3d 34 0d 0e 56 14 20 fd 20 28 77 69 6d 70 25 21 |=4..V. . (wimp%!|
000029c0 69 25 29 3d 2d 31 0d 0e 60 05 cb 0d 0e 6a 07 3d |i%)=-1..`....j.=|
000029d0 63 25 0d 0e 74 05 3a 0d 0e 7e 25 dd 20 f2 57 69 |c%..t.:..~%. .Wi|
000029e0 6d 70 5f 57 69 6e 64 6f 77 42 72 69 6e 67 54 6f |mp_WindowBringTo|
000029f0 54 6f 70 28 77 69 6e 64 6f 77 25 29 0d 0e 88 12 |Top(window%)....|
00002a00 21 77 69 6d 70 25 3d 77 69 6e 64 6f 77 25 0d 0e |!wimp%=window%..|
00002a10 92 23 c8 99 20 22 57 69 6d 70 5f 47 65 74 57 69 |.#.. "Wimp_GetWi|
00002a20 6e 64 6f 77 53 74 61 74 65 22 2c 2c 77 69 6d 70 |ndowState",,wimp|
00002a30 25 0d 0e 9c 0f 77 69 6d 70 25 21 32 38 3d 2d 31 |%....wimp%!28=-1|
00002a40 0d 0e a6 1f c8 99 20 22 57 69 6d 70 5f 4f 70 65 |...... "Wimp_Ope|
00002a50 6e 57 69 6e 64 6f 77 22 2c 2c 77 69 6d 70 25 0d |nWindow",,wimp%.|
00002a60 0e b0 05 e1 0d 0e ba 05 3a 0d 0e c4 20 dd 20 f2 |........:... . .|
00002a70 57 69 6d 70 5f 57 69 6e 64 6f 77 43 6c 6f 73 65 |Wimp_WindowClose|
00002a80 28 77 69 6e 64 6f 77 25 29 0d 0e ce 12 21 77 69 |(window%)....!wi|
00002a90 6d 70 25 3d 77 69 6e 64 6f 77 25 0d 0e d8 20 c8 |mp%=window%... .|
00002aa0 99 20 22 57 69 6d 70 5f 43 6c 6f 73 65 57 69 6e |. "Wimp_CloseWin|
00002ab0 64 6f 77 22 2c 2c 77 69 6d 70 25 0d 0e e2 05 e1 |dow",,wimp%.....|
00002ac0 0d 0e ec 05 3a 0d 0e f6 24 dd 20 f2 57 69 6d 70 |....:...$. .Wimp|
00002ad0 5f 57 69 6e 64 6f 77 46 6f 72 63 65 44 72 61 77 |_WindowForceDraw|
00002ae0 28 77 69 6e 64 6f 77 25 29 0d 0f 00 10 c8 8e 20 |(window%)...... |
00002af0 77 69 6e 64 6f 77 25 20 ca 0d 0f 0a 38 20 c9 20 |window% ....8 . |
00002b00 2d 31 20 20 20 3a 20 c8 99 20 22 57 69 6d 70 5f |-1 : .. "Wimp_|
00002b10 46 6f 72 63 65 52 65 64 72 61 77 22 2c 2d 31 2c |ForceRedraw",-1,|
00002b20 30 2c 30 2c 32 2a 31 32 38 30 2c 32 2a 31 30 32 |0,0,2*1280,2*102|
00002b30 34 0d 0f 14 39 20 7f 20 3a 20 c8 99 20 22 57 69 |4...9 . : .. "Wi|
00002b40 6d 70 5f 46 6f 72 63 65 52 65 64 72 61 77 22 2c |mp_ForceRedraw",|
00002b50 77 69 6e 64 6f 77 25 2c 30 2c 2d 32 2a 31 30 32 |window%,0,-2*102|
00002b60 34 2c 32 2a 31 32 38 30 2c 30 0d 0f 1e 05 cb 0d |4,2*1280,0......|
00002b70 0f 28 05 e1 0d 0f 32 05 3a 0d 0f 3c 1f dd 20 f2 |.(....2.:..<.. .|
00002b80 57 69 6d 70 5f 57 69 6e 64 6f 77 4f 70 65 6e 28 |Wimp_WindowOpen(|
00002b90 77 69 6e 64 6f 77 25 29 0d 0f 46 12 21 77 69 6d |window%)..F.!wim|
00002ba0 70 25 3d 77 69 6e 64 6f 77 25 0d 0f 50 23 c8 99 |p%=window%..P#..|
00002bb0 20 22 57 69 6d 70 5f 47 65 74 57 69 6e 64 6f 77 | "Wimp_GetWindow|
00002bc0 53 74 61 74 65 22 2c 2c 77 69 6d 70 25 0d 0f 5a |State",,wimp%..Z|
00002bd0 1f c8 99 20 22 57 69 6d 70 5f 4f 70 65 6e 57 69 |... "Wimp_OpenWi|
00002be0 6e 64 6f 77 22 2c 2c 77 69 6d 70 25 0d 0f 64 05 |ndow",,wimp%..d.|
00002bf0 e1 0d 0f 6e 05 3a 0d 0f 78 19 f2 57 69 6d 70 5f |...n.:..x..Wimp_|
00002c00 57 69 6e 64 6f 77 49 6e 74 65 72 66 61 63 65 0d |WindowInterface.|
00002c10 0f 82 20 c8 99 22 57 69 6d 70 5f 42 6f 72 64 65 |.. .."Wimp_Borde|
00002c20 72 57 69 6e 64 6f 77 22 2c 2c 77 69 6d 70 25 0d |rWindow",,wimp%.|
00002c30 0f 8c 05 e1 0d 0f 96 06 f4 7c 0d 0f a0 06 f4 7c |.........|.....||
00002c40 0d 0f aa 06 f4 7c 0d 0f b4 31 f4 7c 20 20 20 20 |.....|...1.| |
00002c50 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2d 2d | --|
00002c60 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------|
00002c70 2d 2d 2d 2d 2d 2d 2d 0d 0f be 28 f4 7c 20 20 20 |-------...(.| |
00002c80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002c90 20 20 20 20 20 20 20 32 2e a0 49 63 6f 6e 73 0d | 2..Icons.|
00002ca0 0f c8 31 f4 7c 20 20 20 20 20 20 20 20 20 20 20 |..1.| |
00002cb0 20 20 20 20 20 20 20 2d 2d 2d 2d 2d 2d 2d 2d 2d | ---------|
00002cc0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------|
00002cd0 0d 0f d2 06 f4 7c 0d 0f dc 06 f4 7c 0d 0f e6 3d |.....|.....|...=|
00002ce0 f4 7c 20 20 20 20 20 20 20 20 20 20 20 20 20 2d |.| -|
00002cf0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------|
*
00002d10 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0f f0 06 f4 7c 0d |---------.....|.|
00002d20 0f fa 28 f4 7c 20 20 20 20 20 20 20 20 20 20 20 |..(.| |
00002d30 20 20 20 20 20 20 20 20 20 20 20 50 72 6f 63 65 | Proce|
00002d40 64 75 72 65 73 20 3a 0d 10 04 06 f4 7c 0d 10 0e |dures :.....|...|
00002d50 2b f4 7c 20 20 20 20 20 20 20 20 20 20 20 20 20 |+.| |
00002d60 20 46 4e 57 69 6d 70 5f 49 63 6f 6e 42 61 72 28 | FNWimp_IconBar(|
00002d70 53 70 72 69 74 65 24 29 0d 10 18 3c f4 7c 20 20 |Sprite$)...<.| |
00002d80 20 20 20 20 20 20 20 20 20 20 20 20 50 52 4f 43 | PROC|
00002d90 57 69 6d 70 5f 49 63 6f 6e 43 61 72 65 74 28 77 |Wimp_IconCaret(w|
00002da0 69 6e 64 6f 77 25 2c 69 63 6f 6e 25 2c 63 68 61 |indow%,icon%,cha|
00002db0 72 73 25 29 0d 10 22 32 f4 7c 20 20 20 20 20 20 |rs%).."2.| |
00002dc0 20 20 20 20 20 20 20 20 46 4e 57 69 6d 70 5f 49 | FNWimp_I|
00002dd0 63 6f 6e 54 65 78 74 28 77 69 6e 64 6f 77 25 2c |conText(window%,|
00002de0 69 63 6f 6e 25 29 0d 10 2c 38 f4 7c 20 20 20 20 |icon%)..,8.| |
00002df0 20 20 20 20 20 20 20 20 20 20 46 4e 57 69 6d 70 | FNWimp|
00002e00 5f 49 63 6f 6e 56 61 6c 69 64 61 74 69 6f 6e 28 |_IconValidation(|
00002e10 77 69 6e 64 6f 77 25 2c 69 63 6f 6e 25 29 0d 10 |window%,icon%)..|
00002e20 36 37 f4 7c 20 20 20 20 20 20 20 20 20 20 20 20 |67.| |
00002e30 20 20 50 52 4f 43 57 69 6d 70 5f 49 63 6f 6e 44 | PROCWimp_IconD|
00002e40 69 73 61 62 6c 65 28 77 69 6e 64 6f 77 25 2c 69 |isable(window%,i|
00002e50 63 6f 6e 25 29 0d 10 40 36 f4 7c 20 20 20 20 20 |con%)..@6.| |
00002e60 20 20 20 20 20 20 20 20 20 50 52 4f 43 57 69 6d | PROCWim|
00002e70 70 5f 49 63 6f 6e 45 6e 61 62 6c 65 28 77 69 6e |p_IconEnable(win|
00002e80 64 6f 77 25 2c 69 63 6f 6e 25 29 0d 10 4a 3f f4 |dow%,icon%)..J?.|
00002e90 7c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 46 || F|
00002ea0 4e 57 69 6d 70 5f 49 63 6f 6e 50 75 74 53 70 72 |NWimp_IconPutSpr|
00002eb0 69 74 65 28 77 69 6e 64 6f 77 25 2c 69 63 6f 6e |ite(window%,icon|
00002ec0 25 2c 73 70 72 69 74 65 24 29 0d 10 54 3d f4 7c |%,sprite$)..T=.||
00002ed0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 52 | PR|
00002ee0 4f 43 57 69 6d 70 5f 49 63 6f 6e 50 75 74 54 65 |OCWimp_IconPutTe|
00002ef0 78 74 28 77 69 6e 64 6f 77 25 2c 69 63 6f 6e 25 |xt(window%,icon%|
00002f00 2c 74 65 78 74 24 29 0d 10 5e 2f f4 7c 20 20 20 |,text$)..^/.| |
00002f10 20 20 20 20 20 20 20 20 20 20 20 50 52 4f 43 57 | PROCW|
00002f20 69 6d 70 5f 49 63 6f 6e 49 6e 74 65 72 66 61 63 |imp_IconInterfac|
00002f30 65 53 74 61 72 74 0d 10 68 30 f4 7c 20 20 20 20 |eStart..h0.| |
00002f40 20 20 20 20 20 20 20 20 20 20 50 52 4f 43 57 69 | PROCWi|
00002f50 6d 70 5f 49 63 6f 6e 49 6e 74 65 72 66 61 63 65 |mp_IconInterface|
00002f60 46 69 6e 69 73 68 0d 10 72 06 f4 7c 0d 10 7c 3d |Finish..r..|..|=|
00002f70 f4 7c 20 20 20 20 20 20 20 20 20 20 20 20 20 2d |.| -|
00002f80 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------|
*
00002fa0 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 10 86 06 f4 7c 0d |---------.....|.|
00002fb0 10 90 05 3a 0d 10 9a 1c dd 20 a4 57 69 6d 70 5f |...:..... .Wimp_|
00002fc0 49 63 6f 6e 42 61 72 28 53 70 72 69 74 65 24 29 |IconBar(Sprite$)|
00002fd0 0d 10 a4 0b ea 20 69 63 6f 6e 25 0d 10 ae 0e 77 |..... icon%....w|
00002fe0 69 6d 70 25 21 30 3d 2d 31 0d 10 b8 1d 77 69 6d |imp%!0=-1....wim|
00002ff0 70 25 21 34 3d 30 20 20 20 20 20 3a 20 77 69 6d |p%!4=0 : wim|
00003000 70 25 21 38 3d 30 0d 10 c2 1d 77 69 6d 70 25 21 |p%!8=0....wimp%!|
00003010 31 32 3d 36 38 20 3a 20 77 69 6d 70 25 21 31 36 |12=68 : wimp%!16|
00003020 3d 36 38 0d 10 cc 12 77 69 6d 70 25 21 32 30 3d |=68....wimp%!20=|
00003030 26 33 30 30 32 0d 10 d6 17 24 28 77 69 6d 70 25 |&3002....$(wimp%|
00003040 2b 32 34 29 3d 53 70 72 69 74 65 24 0d 10 e0 27 |+24)=Sprite$...'|
00003050 c8 99 20 22 57 69 6d 70 5f 43 72 65 61 74 65 49 |.. "Wimp_CreateI|
00003060 63 6f 6e 22 2c 2c 77 69 6d 70 25 20 b8 20 69 63 |con",,wimp% . ic|
00003070 6f 6e 25 0d 10 ea 0a 3d 69 63 6f 6e 25 0d 10 f4 |on%....=icon%...|
00003080 05 3a 0d 10 fe 2b dd 20 f2 57 69 6d 70 5f 49 63 |.:...+. .Wimp_Ic|
00003090 6f 6e 43 61 72 65 74 28 77 69 6e 64 6f 77 25 2c |onCaret(window%,|
000030a0 69 63 6f 6e 25 2c 63 68 61 72 73 25 29 0d 11 08 |icon%,chars%)...|
000030b0 38 c8 99 20 22 57 69 6d 70 5f 53 65 74 43 61 72 |8.. "Wimp_SetCar|
000030c0 65 74 50 6f 73 69 74 69 6f 6e 22 2c 77 69 6e 64 |etPosition",wind|
000030d0 6f 77 25 2c 69 63 6f 6e 25 2c 2c 2c 2d 31 2c 63 |ow%,icon%,,,-1,c|
000030e0 68 61 72 73 25 0d 11 12 05 e1 0d 11 1c 05 3a 0d |hars%.........:.|
000030f0 11 26 23 dd 20 a4 57 69 6d 70 5f 49 63 6f 6e 54 |.&#. .Wimp_IconT|
00003100 65 78 74 28 77 69 6e 64 6f 77 25 2c 69 63 6f 6e |ext(window%,icon|
00003110 25 29 0d 11 30 23 77 69 6d 70 25 21 30 3d 77 69 |%)..0#wimp%!0=wi|
00003120 6e 64 6f 77 25 20 3a 20 77 69 6d 70 25 21 34 3d |ndow% : wimp%!4=|
00003130 69 63 6f 6e 25 0d 11 3a 21 c8 99 20 22 57 69 6d |icon%..:!.. "Wim|
00003140 70 5f 47 65 74 49 63 6f 6e 53 74 61 74 65 22 2c |p_GetIconState",|
00003150 2c 77 69 6d 70 25 0d 11 44 37 e7 20 28 28 77 69 |,wimp%..D7. ((wi|
00003160 6d 70 25 21 32 34 29 20 80 20 26 31 30 30 29 3d |mp%!24) . &100)=|
00003170 30 20 85 20 31 2c 22 49 63 6f 6e 20 69 73 6e 27 |0 . 1,"Icon isn'|
00003180 74 20 69 6e 64 69 72 65 63 74 65 64 22 0d 11 4e |t indirected"..N|
00003190 10 3d 24 28 77 69 6d 70 25 21 32 38 29 0d 11 58 |.=$(wimp%!28)..X|
000031a0 05 3a 0d 11 62 29 dd 20 a4 57 69 6d 70 5f 49 63 |.:..b). .Wimp_Ic|
000031b0 6f 6e 56 61 6c 69 64 61 74 69 6f 6e 28 77 69 6e |onValidation(win|
000031c0 64 6f 77 25 2c 69 63 6f 6e 25 29 0d 11 6c 23 77 |dow%,icon%)..l#w|
000031d0 69 6d 70 25 21 30 3d 77 69 6e 64 6f 77 25 20 3a |imp%!0=window% :|
000031e0 20 77 69 6d 70 25 21 34 3d 69 63 6f 6e 25 0d 11 | wimp%!4=icon%..|
000031f0 76 21 c8 99 20 22 57 69 6d 70 5f 47 65 74 49 63 |v!.. "Wimp_GetIc|
00003200 6f 6e 53 74 61 74 65 22 2c 2c 77 69 6d 70 25 0d |onState",,wimp%.|
00003210 11 80 37 e7 20 28 28 77 69 6d 70 25 21 32 34 29 |..7. ((wimp%!24)|
00003220 20 80 20 26 31 30 30 29 3d 30 20 85 20 31 2c 22 | . &100)=0 . 1,"|
00003230 49 63 6f 6e 20 69 73 6e 27 74 20 69 6e 64 69 72 |Icon isn't indir|
00003240 65 63 74 65 64 22 0d 11 8a 10 3d 24 28 77 69 6d |ected"....=$(wim|
00003250 70 25 21 33 32 29 0d 11 94 05 3a 0d 11 9e 26 dd |p%!32)....:...&.|
00003260 20 f2 57 69 6d 70 5f 49 63 6f 6e 44 69 73 61 62 | .Wimp_IconDisab|
00003270 6c 65 28 77 69 6e 64 6f 77 25 2c 69 63 6f 6e 25 |le(window%,icon%|
00003280 29 0d 11 a8 23 77 69 6d 70 25 21 30 3d 77 69 6e |)...#wimp%!0=win|
00003290 64 6f 77 25 20 3a 20 77 69 6d 70 25 21 34 3d 69 |dow% : wimp%!4=i|
000032a0 63 6f 6e 25 0d 11 b2 24 77 69 6d 70 25 21 38 3d |con%...$wimp%!8=|
000032b0 31 3c 3c 32 32 20 20 20 3a 20 77 69 6d 70 25 21 |1<<22 : wimp%!|
000032c0 31 32 3d 31 3c 3c 32 32 0d 11 bc 21 c8 99 20 22 |12=1<<22...!.. "|
000032d0 57 69 6d 70 5f 53 65 74 49 63 6f 6e 53 74 61 74 |Wimp_SetIconStat|
000032e0 65 22 2c 2c 77 69 6d 70 25 0d 11 c6 05 e1 0d 11 |e",,wimp%.......|
000032f0 d0 05 3a 0d 11 da 25 dd 20 f2 57 69 6d 70 5f 49 |..:...%. .Wimp_I|
00003300 63 6f 6e 45 6e 61 62 6c 65 28 77 69 6e 64 6f 77 |conEnable(window|
00003310 25 2c 69 63 6f 6e 25 29 0d 11 e4 23 77 69 6d 70 |%,icon%)...#wimp|
00003320 25 21 30 3d 77 69 6e 64 6f 77 25 20 3a 20 77 69 |%!0=window% : wi|
00003330 6d 70 25 21 34 3d 69 63 6f 6e 25 0d 11 ee 24 77 |mp%!4=icon%...$w|
00003340 69 6d 70 25 21 38 3d 30 20 20 20 20 20 20 20 3a |imp%!8=0 :|
00003350 20 77 69 6d 70 25 21 31 32 3d 31 3c 3c 32 32 0d | wimp%!12=1<<22.|
00003360 11 f8 21 c8 99 20 22 57 69 6d 70 5f 53 65 74 49 |..!.. "Wimp_SetI|
00003370 63 6f 6e 53 74 61 74 65 22 2c 2c 77 69 6d 70 25 |conState",,wimp%|
00003380 0d 12 02 05 e1 0d 12 0c 05 3a 0d 12 16 30 dd 20 |.........:...0. |
00003390 a4 57 69 6d 70 5f 49 63 6f 6e 50 75 74 53 70 72 |.Wimp_IconPutSpr|
000033a0 69 74 65 28 77 69 6e 64 6f 77 25 2c 69 63 6f 6e |ite(window%,icon|
000033b0 25 2c 73 70 72 69 74 65 24 29 0d 12 20 21 77 69 |%,sprite$).. !wi|
000033c0 6d 70 25 21 30 3d 77 69 6e 64 6f 77 25 3a 77 69 |mp%!0=window%:wi|
000033d0 6d 70 25 21 34 3d 69 63 6f 6e 25 0d 12 2a 21 c8 |mp%!4=icon%..*!.|
000033e0 99 20 22 57 69 6d 70 5f 47 65 74 49 63 6f 6e 53 |. "Wimp_GetIconS|
000033f0 74 61 74 65 22 2c 2c 77 69 6d 70 25 0d 12 34 1f |tate",,wimp%..4.|
00003400 c8 99 20 22 57 69 6d 70 5f 44 65 6c 65 74 65 49 |.. "Wimp_DeleteI|
00003410 63 6f 6e 22 2c 2c 77 69 6d 70 25 0d 12 3e 3d 77 |con",,wimp%..>=w|
00003420 69 6d 70 25 21 34 3d 77 69 6d 70 25 21 38 20 20 |imp%!4=wimp%!8 |
00003430 20 3a 20 77 69 6d 70 25 21 38 3d 77 69 6d 70 25 | : wimp%!8=wimp%|
00003440 21 31 32 20 20 3a 20 77 69 6d 70 25 21 31 32 3d |!12 : wimp%!12=|
00003450 77 69 6d 70 25 21 31 36 0d 12 48 3f 77 69 6d 70 |wimp%!16..H?wimp|
00003460 25 21 31 36 3d 77 69 6d 70 25 21 32 30 20 3a 20 |%!16=wimp%!20 : |
00003470 77 69 6d 70 25 21 32 30 3d 77 69 6d 70 25 21 32 |wimp%!20=wimp%!2|
00003480 34 20 3a 20 24 28 77 69 6d 70 25 2b 32 34 29 3d |4 : $(wimp%+24)=|
00003490 73 70 72 69 74 65 24 0d 12 52 27 c8 99 20 22 57 |sprite$..R'.. "W|
000034a0 69 6d 70 5f 43 72 65 61 74 65 49 63 6f 6e 22 2c |imp_CreateIcon",|
000034b0 2c 77 69 6d 70 25 20 b8 20 69 63 6f 6e 25 0d 12 |,wimp% . icon%..|
000034c0 5c 0a 3d 69 63 6f 6e 25 0d 12 66 05 3a 0d 12 70 |\.=icon%..f.:..p|
000034d0 2c dd 20 f2 57 69 6d 70 5f 49 63 6f 6e 50 75 74 |,. .Wimp_IconPut|
000034e0 54 65 78 74 28 77 69 6e 64 6f 77 25 2c 69 63 6f |Text(window%,ico|
000034f0 6e 25 2c 74 65 78 74 24 29 0d 12 7a 23 77 69 6d |n%,text$)..z#wim|
00003500 70 25 21 30 3d 77 69 6e 64 6f 77 25 20 3a 20 77 |p%!0=window% : w|
00003510 69 6d 70 25 21 34 3d 69 63 6f 6e 25 0d 12 84 21 |imp%!4=icon%...!|
00003520 c8 99 20 22 57 69 6d 70 5f 47 65 74 49 63 6f 6e |.. "Wimp_GetIcon|
00003530 53 74 61 74 65 22 2c 2c 77 69 6d 70 25 0d 12 8e |State",,wimp%...|
00003540 37 e7 20 28 28 77 69 6d 70 25 21 32 34 29 20 80 |7. ((wimp%!24) .|
00003550 20 26 31 30 30 29 3d 30 20 85 20 31 2c 22 49 63 | &100)=0 . 1,"Ic|
00003560 6f 6e 20 69 73 6e 27 74 20 69 6e 64 69 72 65 63 |on isn't indirec|
00003570 74 65 64 22 0d 12 98 15 24 28 77 69 6d 70 25 21 |ted"....$(wimp%!|
00003580 32 38 29 3d 74 65 78 74 24 0d 12 a2 23 77 69 6d |28)=text$...#wim|
00003590 70 25 21 30 3d 77 69 6e 64 6f 77 25 20 3a 20 77 |p%!0=window% : w|
000035a0 69 6d 70 25 21 34 3d 69 63 6f 6e 25 0d 12 ac 1a |imp%!4=icon%....|
000035b0 77 69 6d 70 25 21 38 3d 30 20 3a 20 77 69 6d 70 |wimp%!8=0 : wimp|
000035c0 25 21 31 32 3d 30 0d 12 b6 21 c8 99 20 22 57 69 |%!12=0...!.. "Wi|
000035d0 6d 70 5f 53 65 74 49 63 6f 6e 53 74 61 74 65 22 |mp_SetIconState"|
000035e0 2c 2c 77 69 6d 70 25 0d 12 c0 05 e1 0d 12 ca 05 |,,wimp%.........|
000035f0 3a 0d 12 d4 1e dd 20 f2 57 69 6d 70 5f 49 63 6f |:..... .Wimp_Ico|
00003600 6e 49 6e 74 65 72 66 61 63 65 53 74 61 72 74 0d |nInterfaceStart.|
00003610 12 de 1e c8 99 22 57 69 6d 70 5f 42 6f 72 64 65 |....."Wimp_Borde|
00003620 72 49 63 6f 6e 22 2c 2c 77 69 6d 70 25 0d 12 e8 |rIcon",,wimp%...|
00003630 05 e1 0d 12 f2 05 3a 0d 12 fc 1f dd 20 f2 57 69 |......:..... .Wi|
00003640 6d 70 5f 49 63 6f 6e 49 6e 74 65 72 66 61 63 65 |mp_IconInterface|
00003650 46 69 6e 69 73 68 0d 13 06 0d 77 69 6d 70 25 21 |Finish....wimp%!|
00003660 38 3d 30 0d 13 10 1e c8 99 22 57 69 6d 70 5f 42 |8=0......"Wimp_B|
00003670 6f 72 64 65 72 49 63 6f 6e 22 2c 2c 77 69 6d 70 |orderIcon",,wimp|
00003680 25 0d 13 1a 05 e1 0d 13 24 05 3a 0d 13 2e 06 f4 |%.......$.:.....|
00003690 7c 0d 13 38 06 f4 7c 0d 13 42 06 f4 7c 0d 13 4c ||..8..|..B..|..L|
000036a0 31 f4 7c 20 20 20 20 20 20 20 20 20 20 20 20 20 |1.| |
000036b0 20 20 20 20 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d | -----------|
000036c0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 13 |--------------..|
000036d0 56 28 f4 7c 20 20 20 20 20 20 20 20 20 20 20 20 |V(.| |
000036e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 33 2e | 3.|
000036f0 a0 4d 65 6e 75 73 0d 13 60 31 f4 7c 20 20 20 20 |.Menus..`1.| |
00003700 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2d 2d | --|
00003710 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------|
00003720 2d 2d 2d 2d 2d 2d 2d 0d 13 6a 06 f4 7c 0d 13 74 |-------..j..|..t|
00003730 06 f4 7c 0d 13 7e 3f f4 7c 20 20 20 20 20 20 20 |..|..~?.| |
00003740 20 20 20 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d | ------------|
00003750 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------|
*
00003770 2d 2d 0d 13 88 06 f4 7c 0d 13 92 28 f4 7c 20 20 |--.....|...(.| |
00003780 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00003790 20 20 20 20 50 72 6f 63 65 64 75 72 65 73 20 3a | Procedures :|
000037a0 0d 13 9c 06 f4 7c 0d 13 a6 06 f4 7c 0d 13 b0 2e |.....|.....|....|
000037b0 f4 7c 20 20 20 20 20 20 20 20 20 20 20 20 50 52 |.| PR|
000037c0 4f 43 57 69 6d 70 5f 4d 65 6e 75 41 64 6a 75 73 |OCWimp_MenuAdjus|
000037d0 74 4f 6e 28 6d 65 6e 75 25 29 0d 13 ba 2b f4 7c |tOn(menu%)...+.||
000037e0 20 20 20 20 20 20 20 20 20 20 20 20 46 4e 57 69 | FNWi|
000037f0 6d 70 5f 4d 65 6e 75 43 68 6f 69 63 65 28 6c 65 |mp_MenuChoice(le|
00003800 76 65 6c 25 29 0d 13 c4 2a f4 7c 20 20 20 20 20 |vel%)...*.| |
00003810 20 20 20 20 20 20 20 46 4e 57 69 6d 70 5f 4d 65 | FNWimp_Me|
00003820 6e 75 43 72 65 61 74 65 28 6d 65 6e 75 24 29 0d |nuCreate(menu$).|
00003830 13 ce 24 f4 7c 20 20 20 20 20 20 20 20 20 20 20 |..$.| |
00003840 20 46 4e 57 69 6d 70 5f 4d 65 6e 75 43 6f 6c 6f | FNWimp_MenuColo|
00003850 75 72 73 0d 13 d8 32 f4 7c 20 20 20 20 20 20 20 |urs...2.| |
00003860 20 20 20 20 20 46 4e 57 69 6d 70 5f 4d 65 6e 75 | FNWimp_Menu|
00003870 43 72 65 61 74 65 43 6f 6c 6f 75 72 73 28 74 69 |CreateColours(ti|
00003880 74 6c 65 24 29 0d 13 e2 2f f4 7c 20 20 20 20 20 |tle$).../.| |
00003890 20 20 20 20 20 20 20 46 4e 57 69 6d 70 5f 4d 65 | FNWimp_Me|
000038a0 6e 75 4e 6f 4f 66 45 6e 74 72 69 65 73 28 6d 65 |nuNoOfEntries(me|
000038b0 6e 75 24 29 0d 13 ec 44 f4 7c 20 20 20 20 20 20 |nu$)...D.| |
000038c0 20 20 20 20 20 20 50 52 4f 43 57 69 6d 70 5f 4d | PROCWimp_M|
000038d0 65 6e 75 42 61 63 6b 47 72 6f 75 6e 64 43 6f 6c |enuBackGroundCol|
000038e0 6f 75 72 28 6d 65 6e 75 25 2c 69 74 65 6d 25 2c |our(menu%,item%,|
000038f0 63 6f 6c 6f 75 72 25 29 0d 13 f6 32 f4 7c 20 20 |colour%)...2.| |
00003900 20 20 20 20 20 20 20 20 20 20 50 52 4f 43 57 69 | PROCWi|
00003910 6d 70 5f 4d 65 6e 75 43 65 6e 74 72 65 28 6d 65 |mp_MenuCentre(me|
00003920 6e 75 25 2c 69 74 65 6d 25 29 0d 14 00 24 f4 7c |nu%,item%)...$.||
00003930 20 20 20 20 20 20 20 20 20 20 20 20 50 52 4f 43 | PROC|
00003940 57 69 6d 70 5f 4d 65 6e 75 43 6c 6f 73 65 0d 14 |Wimp_MenuClose..|
00003950 0a 33 f4 7c 20 20 20 20 20 20 20 20 20 20 20 20 |.3.| |
00003960 50 52 4f 43 57 69 6d 70 5f 4d 65 6e 75 44 69 73 |PROCWimp_MenuDis|
00003970 61 62 6c 65 28 6d 65 6e 75 25 2c 69 74 65 6d 25 |able(menu%,item%|
00003980 29 0d 14 14 36 f4 7c 20 20 20 20 20 20 20 20 20 |)...6.| |
00003990 20 20 20 50 52 4f 43 57 69 6d 70 5f 4d 65 6e 75 | PROCWimp_Menu|
000039a0 44 6f 74 74 65 64 4c 69 6e 65 28 6d 65 6e 75 25 |DottedLine(menu%|
000039b0 2c 69 74 65 6d 25 29 0d 14 1e 32 f4 7c 20 20 20 |,item%)...2.| |
000039c0 20 20 20 20 20 20 20 20 20 50 52 4f 43 57 69 6d | PROCWim|
000039d0 70 5f 4d 65 6e 75 45 6e 61 62 6c 65 28 6d 65 6e |p_MenuEnable(men|
000039e0 75 25 2c 69 74 65 6d 25 29 0d 14 28 44 f4 7c 20 |u%,item%)..(D.| |
000039f0 20 20 20 20 20 20 20 20 20 20 20 50 52 4f 43 57 | PROCW|
00003a00 69 6d 70 5f 4d 65 6e 75 46 6f 72 65 67 72 6f 75 |imp_MenuForegrou|
00003a10 6e 64 43 6f 6c 6f 75 72 28 6d 65 6e 75 25 2c 69 |ndColour(menu%,i|
00003a20 74 65 6d 25 2c 63 6f 6c 6f 75 72 25 29 0d 14 32 |tem%,colour%)..2|
00003a30 38 f4 7c 20 20 20 20 20 20 20 20 20 20 20 20 50 |8.| P|
00003a40 52 4f 43 57 69 6d 70 5f 4d 65 6e 75 47 6c 75 65 |ROCWimp_MenuGlue|
00003a50 28 6d 65 6e 75 31 25 2c 69 74 65 6d 25 2c 6d 65 |(menu1%,item%,me|
00003a60 6e 75 32 25 29 0d 14 3c 36 f4 7c 20 20 20 20 20 |nu2%)..<6.| |
00003a70 20 20 20 20 20 20 20 50 52 4f 43 57 69 6d 70 5f | PROCWimp_|
00003a80 4d 65 6e 75 49 74 65 6d 28 6d 65 6e 75 25 2c 69 |MenuItem(menu%,i|
00003a90 74 65 6d 25 2c 69 74 65 6d 24 29 0d 14 46 33 f4 |tem%,item$)..F3.|
00003aa0 7c 20 20 20 20 20 20 20 20 20 20 20 20 50 52 4f || PRO|
00003ab0 43 57 69 6d 70 5f 4d 65 6e 75 4d 65 73 73 61 67 |CWimp_MenuMessag|
00003ac0 65 28 6d 65 6e 75 25 2c 69 74 65 6d 25 29 0d 14 |e(menu%,item%)..|
00003ad0 50 31 f4 7c 20 20 20 20 20 20 20 20 20 20 20 20 |P1.| |
00003ae0 50 52 4f 43 57 69 6d 70 5f 4d 65 6e 75 50 6f 70 |PROCWimp_MenuPop|
00003af0 55 70 28 4d 65 6e 75 25 2c 78 25 2c 79 25 29 0d |Up(Menu%,x%,y%).|
00003b00 14 5a 2e f4 7c 20 20 20 20 20 20 20 20 20 20 20 |.Z..| |
00003b10 20 50 52 4f 43 57 69 6d 70 5f 4d 65 6e 75 50 6f | PROCWimp_MenuPo|
00003b20 70 55 70 42 61 72 28 78 25 2c 79 25 29 0d 14 64 |pUpBar(x%,y%)..d|
00003b30 30 f4 7c 20 20 20 20 20 20 20 20 20 20 20 20 50 |0.| P|
00003b40 52 4f 43 57 69 6d 70 5f 4d 65 6e 75 54 69 63 6b |ROCWimp_MenuTick|
00003b50 28 6d 65 6e 75 25 2c 69 74 65 6d 25 29 0d 14 6e |(menu%,item%)..n|
00003b60 32 f4 7c 20 20 20 20 20 20 20 20 20 20 20 20 50 |2.| P|
00003b70 52 4f 43 57 69 6d 70 5f 4d 65 6e 75 54 69 74 6c |ROCWimp_MenuTitl|
00003b80 65 28 6d 65 6e 75 25 2c 74 69 74 6c 65 24 29 0d |e(menu%,title$).|
00003b90 14 78 4c f4 7c 20 20 20 20 20 20 20 20 20 20 20 |.xL.| |
00003ba0 20 50 52 4f 43 57 69 6d 70 5f 4d 65 6e 75 57 72 | PROCWimp_MenuWr|
00003bb0 69 74 65 28 6d 65 6e 75 25 2c 69 74 65 6d 25 2c |ite(menu%,item%,|
00003bc0 62 75 66 66 65 72 25 2c 76 61 6c 25 2c 42 75 66 |buffer%,val%,Buf|
00003bd0 66 65 72 4c 65 6e 67 74 68 25 29 0d 14 82 06 f4 |ferLength%).....|
00003be0 7c 0d 14 8c 3f f4 7c 20 20 20 20 20 20 20 20 20 ||...?.| |
00003bf0 20 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d | --------------|
00003c00 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------|
*
00003c20 0d 14 96 06 f4 7c 0d 14 a0 05 3a 0d 14 aa 1f dd |.....|....:.....|
00003c30 20 f2 57 69 6d 70 5f 4d 65 6e 75 41 64 6a 75 73 | .Wimp_MenuAdjus|
00003c40 74 4f 6e 28 6d 65 6e 75 25 29 0d 14 b4 2c c8 99 |tOn(menu%)...,..|
00003c50 20 22 57 69 6d 70 5f 47 65 74 50 6f 69 6e 74 65 | "Wimp_GetPointe|
00003c60 72 49 6e 66 6f 22 2c 2c 70 6f 69 6e 74 65 72 5f |rInfo",,pointer_|
00003c70 62 6c 6f 63 6b 25 0d 14 be 5e e7 20 28 28 70 6f |block%...^. ((po|
00003c80 69 6e 74 65 72 5f 62 6c 6f 63 6b 25 21 38 29 80 |inter_block%!8).|
00003c90 31 29 3d 31 20 8c 20 c8 99 20 22 57 69 6d 70 5f |1)=1 . .. "Wimp_|
00003ca0 43 72 65 61 74 65 4d 65 6e 75 22 2c 2c 6d 65 6e |CreateMenu",,men|
00003cb0 75 25 2c 70 6f 69 6e 74 65 72 5f 62 6c 6f 63 6b |u%,pointer_block|
00003cc0 25 21 30 2c 70 6f 69 6e 74 65 72 5f 62 6c 6f 63 |%!0,pointer_bloc|
00003cd0 6b 25 21 34 0d 14 c8 05 e1 0d 14 d2 05 3a 0d 14 |k%!4.........:..|
00003ce0 dc 1e dd 20 a4 57 69 6d 70 5f 4d 65 6e 75 43 68 |... .Wimp_MenuCh|
00003cf0 6f 69 63 65 28 6c 65 76 65 6c 25 29 0d 14 e6 19 |oice(level%)....|
00003d00 3d 28 77 69 6d 70 25 21 28 34 2a 6c 65 76 65 6c |=(wimp%!(4*level|
00003d10 25 29 29 2b 31 0d 14 f0 05 3a 0d 14 fa 1d dd 20 |%))+1....:..... |
00003d20 a4 57 69 6d 70 5f 4d 65 6e 75 43 72 65 61 74 65 |.Wimp_MenuCreate|
00003d30 28 6d 65 6e 75 24 29 0d 15 04 29 e7 20 6d 65 6e |(menu$)...). men|
00003d40 75 24 3d 22 43 6f 6c 6f 75 72 73 22 20 8c 3d a4 |u$="Colours" .=.|
00003d50 57 69 6d 70 5f 4d 65 6e 75 43 6f 6c 6f 75 72 73 |Wimp_MenuColours|
00003d60 0d 15 0e 27 ea 20 6d 65 6e 75 25 2c 69 6e 64 65 |...'. menu%,inde|
00003d70 78 25 2c 77 69 64 74 68 25 2c 6c 65 6e 67 74 68 |x%,width%,length|
00003d80 25 2c 6b 25 2c 73 25 0d 15 18 2e de 20 6d 65 6e |%,k%,s%..... men|
00003d90 75 25 20 32 38 2b a4 57 69 6d 70 5f 4d 65 6e 75 |u% 28+.Wimp_Menu|
00003da0 4e 6f 4f 66 45 6e 74 72 69 65 73 28 6d 65 6e 75 |NoOfEntries(menu|
00003db0 24 29 2a 32 34 0d 15 22 37 6d 65 6e 75 25 3f 31 |$)*24.."7menu%?1|
00003dc0 32 3d 37 20 20 20 3a 20 6d 65 6e 75 25 3f 31 33 |2=7 : menu%?13|
00003dd0 3d 32 20 20 3a 20 6d 65 6e 75 25 3f 31 34 3d 37 |=2 : menu%?14=7|
00003de0 20 3a 6d 65 6e 75 25 3f 31 35 3d 30 0d 15 2c 2b | :menu%?15=0..,+|
00003df0 6d 65 6e 75 25 21 31 36 3d 31 34 30 20 3a 20 6d |menu%!16=140 : m|
00003e00 65 6e 75 25 21 32 30 3d 34 34 20 3a 20 6d 65 6e |enu%!20=44 : men|
00003e10 75 25 21 32 34 3d 30 0d 15 36 13 69 6e 64 65 78 |u%!24=0..6.index|
00003e20 25 3d 6d 65 6e 75 25 2b 32 38 0d 15 40 20 24 6d |%=menu%+28..@ $m|
00003e30 65 6e 75 25 3d c0 6d 65 6e 75 24 2c a7 6d 65 6e |enu%=.menu$,.men|
00003e40 75 24 2c 22 5c 22 29 2d 31 29 0d 15 4a 23 77 69 |u$,"\")-1)..J#wi|
00003e50 64 74 68 25 3d a9 28 c0 6d 65 6e 75 24 2c a7 6d |dth%=.(.menu$,.m|
00003e60 65 6e 75 24 2c 22 5c 22 29 2d 31 29 29 0d 15 54 |enu$,"\")-1))..T|
00003e70 24 6d 65 6e 75 24 2b 3d 22 5c 22 20 3a 20 4d 65 |$menu$+="\" : Me|
00003e80 6e 75 5f 4e 6f 4f 66 45 6e 74 72 69 65 73 25 3d |nu_NoOfEntries%=|
00003e90 30 0d 15 5e 10 c8 95 20 6d 65 6e 75 24 3c 3e 22 |0..^... menu$<>"|
00003ea0 22 0d 15 68 1f 6d 65 6e 75 24 3d c1 6d 65 6e 75 |"..h.menu$=.menu|
00003eb0 24 2c a7 6d 65 6e 75 24 2c 22 5c 22 29 2b 31 29 |$,.menu$,"\")+1)|
00003ec0 0d 15 72 0e c8 8e 20 6d 65 6e 75 24 20 ca 0d 15 |..r... menu$ ...|
00003ed0 7c 09 20 c9 20 22 22 0d 15 86 08 20 7f 20 3a 0d ||. . "".... . :.|
00003ee0 15 90 31 20 20 21 69 6e 64 65 78 25 3d 30 20 3a |..1 !index%=0 :|
00003ef0 20 69 6e 64 65 78 25 21 34 3d 2d 31 20 3a 20 69 | index%!4=-1 : i|
00003f00 6e 64 65 78 25 21 38 3d 26 37 30 30 30 30 32 31 |ndex%!8=&7000021|
00003f10 0d 15 9a 1b 20 20 6c 65 6e 67 74 68 25 3d a7 6d |.... length%=.m|
00003f20 65 6e 75 24 2c 22 5c 22 29 2d 31 0d 15 a4 1e 20 |enu$,"\")-1.... |
00003f30 20 6b 25 3d a7 c0 6d 65 6e 75 24 2c 6c 65 6e 67 | k%=..menu$,leng|
00003f40 74 68 25 29 2c 22 3e 22 29 0d 15 ae 0d 20 20 c8 |th%),">").... .|
00003f50 8e 20 6b 25 20 ca 0d 15 b8 0a 20 20 20 c9 20 30 |. k% ..... . 0|
00003f60 0d 15 c2 08 20 20 20 7f 0d 15 cc 25 20 20 20 20 |.... ....% |
00003f70 73 25 3d a0 28 c1 6d 65 6e 75 24 2c 6b 25 2b 31 |s%=.(.menu$,k%+1|
00003f80 2c 6c 65 6e 67 74 68 25 2d 6b 25 29 29 0d 15 d6 |,length%-k%))...|
00003f90 13 20 20 20 20 69 6e 64 65 78 25 21 34 3d 73 25 |. index%!4=s%|
00003fa0 0d 15 e0 14 20 20 20 20 6c 65 6e 67 74 68 25 3d |.... length%=|
00003fb0 6b 25 2d 31 0d 15 ea 07 20 20 cb 0d 15 f4 22 20 |k%-1.... ...." |
00003fc0 20 24 28 69 6e 64 65 78 25 2b 31 32 29 3d c0 6d | $(index%+12)=.m|
00003fd0 65 6e 75 24 2c 6c 65 6e 67 74 68 25 29 0d 15 fe |enu$,length%)...|
00003fe0 27 20 20 e7 20 6c 65 6e 67 74 68 25 3e 77 69 64 |' . length%>wid|
00003ff0 74 68 25 20 8c 20 77 69 64 74 68 25 3d 6c 65 6e |th% . width%=len|
00004000 67 74 68 25 0d 16 08 10 20 20 69 6e 64 65 78 25 |gth%.... index%|
00004010 2b 3d 32 34 0d 16 12 05 cb 0d 16 1c 05 ce 0d 16 |+=24............|
00004020 26 1a 6d 65 6e 75 25 21 31 36 3d 31 36 2a 28 77 |&.menu%!16=16*(w|
00004030 69 64 74 68 25 2b 31 29 0d 16 30 28 69 6e 64 65 |idth%+1)..0(inde|
00004040 78 25 21 2d 32 34 3d 69 6e 64 65 78 25 21 2d 32 |x%!-24=index%!-2|
00004050 34 20 84 20 26 38 30 20 3a 20 3d 6d 65 6e 75 25 |4 . &80 : =menu%|
00004060 0d 16 3a 05 3a 0d 16 44 17 dd 20 a4 57 69 6d 70 |..:.:..D.. .Wimp|
00004070 5f 4d 65 6e 75 43 6f 6c 6f 75 72 73 0d 16 4e 21 |_MenuColours..N!|
00004080 3d a4 57 69 6d 70 5f 4d 65 6e 75 43 72 65 61 74 |=.Wimp_MenuCreat|
00004090 65 43 6f 6c 6f 75 72 73 28 22 20 22 29 0d 16 58 |eColours(" ")..X|
000040a0 05 3a 0d 16 62 25 dd 20 a4 57 69 6d 70 5f 4d 65 |.:..b%. .Wimp_Me|
000040b0 6e 75 43 72 65 61 74 65 43 6f 6c 6f 75 72 73 28 |nuCreateColours(|
000040c0 74 69 74 6c 65 24 29 0d 16 6c 13 ea 20 78 24 2c |title$)..l.. x$,|
000040d0 6d 65 6e 25 2c 6a 25 2c 69 25 0d 16 76 36 78 24 |men%,j%,i%..v6x$|
000040e0 3d 74 69 74 6c 65 24 2b 22 5c 30 5c 31 5c 32 5c |=title$+"\0\1\2\|
000040f0 33 5c 34 5c 35 5c 36 5c 37 5c 38 5c 39 5c 31 30 |3\4\5\6\7\8\9\10|
00004100 5c 31 31 5c 31 32 5c 31 33 5c 31 34 5c 31 35 22 |\11\12\13\14\15"|
00004110 0d 16 80 1d 6d 65 6e 25 3d a4 57 69 6d 70 5f 4d |....men%=.Wimp_M|
00004120 65 6e 75 43 72 65 61 74 65 28 78 24 29 0d 16 8a |enuCreate(x$)...|
00004130 0f e3 20 69 25 3d 30 20 b8 20 31 35 0d 16 94 0a |.. i%=0 . 15....|
00004140 c8 8e 20 b9 20 ca 0d 16 9e 28 c9 20 69 25 3c 34 |.. . ....(. i%<4|
00004150 2c 69 25 3d 39 2c 69 25 3d 31 32 2c 69 25 3d 31 |,i%=9,i%=12,i%=1|
00004160 34 2c 69 25 3d 31 35 20 3a 20 6a 25 3d 37 0d 16 |4,i%=15 : j%=7..|
00004170 a8 0c 7f 20 3a 20 6a 25 3d 30 0d 16 b2 05 cb 0d |... : j%=0......|
00004180 16 bc 1c 6d 65 6e 25 3f 28 33 39 2b 69 25 2a 32 |...men%?(39+i%*2|
00004190 34 29 3d 69 25 2a 31 36 2b 6a 25 0d 16 c6 1f f2 |4)=i%*16+j%.....|
000041a0 57 69 6d 70 5f 4d 65 6e 75 43 65 6e 74 72 65 28 |Wimp_MenuCentre(|
000041b0 6d 65 6e 25 2c 69 25 2b 31 29 0d 16 d0 05 ed 0d |men%,i%+1)......|
000041c0 16 da 09 3d 6d 65 6e 25 0d 16 e4 05 3a 0d 16 ee |...=men%....:...|
000041d0 22 dd 20 a4 57 69 6d 70 5f 4d 65 6e 75 4e 6f 4f |". .Wimp_MenuNoO|
000041e0 66 45 6e 74 72 69 65 73 28 6d 65 6e 75 24 29 0d |fEntries(menu$).|
000041f0 16 f8 1a ea 20 6e 25 20 2c 6a 25 20 3a 20 6e 25 |.... n% ,j% : n%|
00004200 3d 30 20 3a 20 6a 25 3d 30 0d 17 02 05 f5 0d 17 |=0 : j%=0.......|
00004210 0c 17 6a 25 3d a7 6d 65 6e 75 24 2c 22 5c 22 2c |..j%=.menu$,"\",|
00004220 6a 25 2b 31 29 0d 17 16 13 e7 20 6a 25 3c 3e 30 |j%+1)..... j%<>0|
00004230 20 8c 20 6e 25 2b 3d 31 0d 17 20 0a fd 20 6a 25 | . n%+=1.. .. j%|
00004240 3d 30 0d 17 2a 07 3d 6e 25 0d 17 34 05 3a 0d 17 |=0..*.=n%..4.:..|
00004250 3e 35 dd 20 f2 57 69 6d 70 5f 4d 65 6e 75 42 61 |>5. .Wimp_MenuBa|
00004260 63 6b 47 72 6f 75 6e 64 43 6f 6c 6f 75 72 28 6d |ckGroundColour(m|
00004270 65 6e 75 25 2c 69 74 65 6d 25 2c 63 6f 6c 6f 75 |enu%,item%,colou|
00004280 72 25 29 0d 17 48 0e ea 20 66 6f 72 65 25 2c 69 |r%)..H.. fore%,i|
00004290 25 0d 17 52 26 66 6f 72 65 25 3d 28 6d 65 6e 75 |%..R&fore%=(menu|
000042a0 25 3f 28 33 39 2b 28 69 74 65 6d 25 2d 31 29 2a |%?(39+(item%-1)*|
000042b0 32 34 29 29 83 31 36 0d 17 5c 28 69 25 3d 28 28 |24)).16..\(i%=((|
000042c0 6d 65 6e 75 25 3f 28 33 39 2b 28 69 74 65 6d 25 |menu%?(39+(item%|
000042d0 2d 31 29 2a 32 34 29 29 81 31 36 29 83 31 36 0d |-1)*24)).16).16.|
000042e0 17 66 2f 6d 65 6e 75 25 3f 28 33 39 2b 28 69 74 |.f/menu%?(39+(it|
000042f0 65 6d 25 2d 31 29 2a 32 34 29 3d 66 6f 72 65 25 |em%-1)*24)=fore%|
00004300 2b 31 36 2a 63 6f 6c 6f 75 72 25 2b 69 25 0d 17 |+16*colour%+i%..|
00004310 70 05 e1 0d 17 7a 05 3a 0d 17 84 23 dd 20 f2 57 |p....z.:...#. .W|
00004320 69 6d 70 5f 4d 65 6e 75 43 65 6e 74 72 65 28 6d |imp_MenuCentre(m|
00004330 65 6e 75 25 2c 69 74 65 6d 25 29 0d 17 8e 3a 6d |enu%,item%)...:m|
00004340 65 6e 75 25 21 28 33 36 2b 28 69 74 65 6d 25 2d |enu%!(36+(item%-|
00004350 31 29 2a 32 34 29 3d 6d 65 6e 75 25 21 28 33 36 |1)*24)=menu%!(36|
00004360 2b 28 69 74 65 6d 25 2d 31 29 2a 32 34 29 84 28 |+(item%-1)*24).(|
00004370 31 3c 3c 33 29 0d 17 98 05 e1 0d 17 a2 05 3a 0d |1<<3).........:.|
00004380 17 ac 15 dd 20 f2 57 69 6d 70 5f 4d 65 6e 75 43 |.... .Wimp_MenuC|
00004390 6c 6f 73 65 0d 17 b6 1b c8 99 20 22 57 69 6d 70 |lose...... "Wimp|
000043a0 5f 43 72 65 61 74 65 4d 65 6e 75 22 2c 2d 31 0d |_CreateMenu",-1.|
000043b0 17 c0 05 e1 0d 17 ca 05 3a 0d 17 d4 24 dd 20 f2 |........:...$. .|
000043c0 57 69 6d 70 5f 4d 65 6e 75 44 69 73 61 62 6c 65 |Wimp_MenuDisable|
000043d0 28 6d 65 6e 75 25 2c 69 74 65 6d 25 29 0d 17 de |(menu%,item%)...|
000043e0 3b 6d 65 6e 75 25 21 28 33 36 2b 28 69 74 65 6d |;menu%!(36+(item|
000043f0 25 2d 31 29 2a 32 34 29 3d 6d 65 6e 75 25 21 28 |%-1)*24)=menu%!(|
00004400 33 36 2b 28 69 74 65 6d 25 2d 31 29 2a 32 34 29 |36+(item%-1)*24)|
00004410 84 28 31 3c 3c 32 32 29 0d 17 e8 05 e1 0d 17 f2 |.(1<<22)........|
00004420 05 3a 0d 17 fc 27 dd 20 f2 57 69 6d 70 5f 4d 65 |.:...'. .Wimp_Me|
00004430 6e 75 44 6f 74 74 65 64 4c 69 6e 65 28 6d 65 6e |nuDottedLine(men|
00004440 75 25 2c 69 74 65 6d 25 29 0d 18 06 37 6d 65 6e |u%,item%)...7men|
00004450 75 25 21 28 32 38 2b 28 69 74 65 6d 25 2d 31 29 |u%!(28+(item%-1)|
00004460 2a 32 34 29 3d 28 6d 65 6e 75 25 21 28 32 38 2b |*24)=(menu%!(28+|
00004470 28 69 74 65 6d 25 2d 31 29 2a 32 34 29 29 84 32 |(item%-1)*24)).2|
00004480 0d 18 10 05 e1 0d 18 1a 05 3a 0d 18 24 23 dd 20 |.........:..$#. |
00004490 f2 57 69 6d 70 5f 4d 65 6e 75 45 6e 61 62 6c 65 |.Wimp_MenuEnable|
000044a0 28 6d 65 6e 75 25 2c 69 74 65 6d 25 29 0d 18 2e |(menu%,item%)...|
000044b0 22 f2 57 69 6d 70 5f 4d 65 6e 75 44 69 73 61 62 |".Wimp_MenuDisab|
000044c0 6c 65 28 6d 65 6e 75 25 2c 69 74 65 6d 25 29 0d |le(menu%,item%).|
000044d0 18 38 3b 6d 65 6e 75 25 21 28 33 36 2b 28 69 74 |.8;menu%!(36+(it|
000044e0 65 6d 25 2d 31 29 2a 32 34 29 3d 6d 65 6e 75 25 |em%-1)*24)=menu%|
000044f0 21 28 33 36 2b 28 69 74 65 6d 25 2d 31 29 2a 32 |!(36+(item%-1)*2|
00004500 34 29 82 28 31 3c 3c 32 32 29 0d 18 42 05 e1 0d |4).(1<<22)..B...|
00004510 18 4c 05 3a 0d 18 56 35 dd 20 f2 57 69 6d 70 5f |.L.:..V5. .Wimp_|
00004520 4d 65 6e 75 46 6f 72 65 67 72 6f 75 6e 64 43 6f |MenuForegroundCo|
00004530 6c 6f 75 72 28 6d 65 6e 75 25 2c 69 74 65 6d 25 |lour(menu%,item%|
00004540 2c 63 6f 6c 6f 75 72 25 29 0d 18 60 45 6d 65 6e |,colour%)..`Emen|
00004550 75 25 3f 28 33 39 2b 28 69 74 65 6d 25 2d 31 29 |u%?(39+(item%-1)|
00004560 2a 32 34 29 3d 63 6f 6c 6f 75 72 25 2b 31 36 2a |*24)=colour%+16*|
00004570 28 28 6d 65 6e 75 25 3f 28 33 39 2b 28 69 74 65 |((menu%?(39+(ite|
00004580 6d 25 2d 31 29 2a 32 34 29 29 81 31 36 29 0d 18 |m%-1)*24)).16)..|
00004590 6a 05 e1 0d 18 74 05 3a 0d 18 7e 29 dd 20 f2 57 |j....t.:..~). .W|
000045a0 69 6d 70 5f 4d 65 6e 75 47 6c 75 65 28 6d 65 6e |imp_MenuGlue(men|
000045b0 75 31 25 2c 69 74 65 6d 25 2c 6d 65 6e 75 32 25 |u1%,item%,menu2%|
000045c0 29 0d 18 88 1e 6d 65 6e 75 31 25 21 28 38 2b 69 |)....menu1%!(8+i|
000045d0 74 65 6d 25 2a 32 34 29 3d 6d 65 6e 75 32 25 0d |tem%*24)=menu2%.|
000045e0 18 92 05 e1 0d 18 9c 05 3a 0d 18 a6 27 dd 20 f2 |........:...'. .|
000045f0 57 69 6d 70 5f 4d 65 6e 75 49 74 65 6d 28 6d 65 |Wimp_MenuItem(me|
00004600 6e 75 25 2c 69 74 65 6d 25 2c 69 74 65 6d 24 29 |nu%,item%,item$)|
00004610 0d 18 b0 2c 24 28 6d 65 6e 75 25 2b 28 34 30 2b |...,$(menu%+(40+|
00004620 28 69 74 65 6d 25 2d 31 29 2a 32 34 29 29 3d c0 |(item%-1)*24))=.|
00004630 69 74 65 6d 24 2c 31 32 29 2b bd 30 0d 18 ba 05 |item$,12)+.0....|
00004640 e1 0d 18 c4 05 3a 0d 18 ce 24 dd 20 f2 57 69 6d |.....:...$. .Wim|
00004650 70 5f 4d 65 6e 75 4d 65 73 73 61 67 65 28 6d 65 |p_MenuMessage(me|
00004660 6e 75 25 2c 69 74 65 6d 25 29 0d 18 d8 3c 6d 65 |nu%,item%)...<me|
00004670 6e 75 25 21 28 32 38 2b 28 69 74 65 6d 25 2d 31 |nu%!(28+(item%-1|
00004680 29 2a 32 34 29 3d 28 6d 65 6e 75 25 21 28 32 38 |)*24)=(menu%!(28|
00004690 2b 28 69 74 65 6d 25 2d 31 29 2a 32 34 29 29 82 |+(item%-1)*24)).|
000046a0 28 31 3c 3c 33 29 0d 18 e2 05 e1 0d 18 ec 05 3a |(1<<3).........:|
000046b0 0d 18 f6 22 dd 20 f2 57 69 6d 70 5f 4d 65 6e 75 |...". .Wimp_Menu|
000046c0 50 6f 70 55 70 28 4d 65 6e 75 25 2c 78 25 2c 79 |PopUp(Menu%,x%,y|
000046d0 25 29 0d 19 00 0f 6d 65 6e 75 25 3d 4d 65 6e 75 |%)....menu%=Menu|
000046e0 25 0d 19 0a 2b c8 99 20 22 57 69 6d 70 5f 43 72 |%...+.. "Wimp_Cr|
000046f0 65 61 74 65 4d 65 6e 75 22 2c 2c 6d 65 6e 75 25 |eateMenu",,menu%|
00004700 2c 78 25 2d 36 34 2c 79 25 2b 32 30 0d 19 14 05 |,x%-64,y%+20....|
00004710 e1 0d 19 1e 05 3a 0d 19 28 1f dd 20 f2 57 69 6d |.....:..(.. .Wim|
00004720 70 5f 4d 65 6e 75 50 6f 70 55 70 42 61 72 28 78 |p_MenuPopUpBar(x|
00004730 25 2c 79 25 29 0d 19 32 0f ea 20 6e 25 20 3a 20 |%,y%)..2.. n% : |
00004740 6e 25 3d 30 0d 19 3c 2b c8 95 20 28 28 42 61 72 |n%=0..<+.. ((Bar|
00004750 5f 4d 65 6e 75 25 21 28 32 38 2b 6e 25 2a 32 34 |_Menu%!(28+n%*24|
00004760 29 29 80 25 31 30 30 30 30 30 30 30 29 3d 30 0d |)).%10000000)=0.|
00004770 19 46 09 6e 25 2b 3d 31 0d 19 50 05 ce 0d 19 5a |.F.n%+=1..P....Z|
00004780 32 c8 99 20 22 57 69 6d 70 5f 43 72 65 61 74 65 |2.. "Wimp_Create|
00004790 4d 65 6e 75 22 2c 2c 42 61 72 5f 4d 65 6e 75 25 |Menu",,Bar_Menu%|
000047a0 2c 78 25 2d 36 34 2c 39 36 2b 6e 25 2a 34 34 0d |,x%-64,96+n%*44.|
000047b0 19 64 13 6d 65 6e 75 25 3d 42 61 72 5f 4d 65 6e |.d.menu%=Bar_Men|
000047c0 75 25 0d 19 6e 05 e1 0d 19 78 05 3a 0d 19 82 21 |u%..n....x.:...!|
000047d0 dd 20 f2 57 69 6d 70 5f 4d 65 6e 75 54 69 63 6b |. .Wimp_MenuTick|
000047e0 28 6d 65 6e 75 25 2c 69 74 65 6d 25 29 0d 19 8c |(menu%,item%)...|
000047f0 37 6d 65 6e 75 25 21 28 32 38 2b 28 69 74 65 6d |7menu%!(28+(item|
00004800 25 2d 31 29 2a 32 34 29 3d 28 6d 65 6e 75 25 21 |%-1)*24)=(menu%!|
00004810 28 32 38 2b 28 69 74 65 6d 25 2d 31 29 2a 32 34 |(28+(item%-1)*24|
00004820 29 29 82 31 0d 19 96 05 e1 0d 19 a0 05 3a 0d 19 |)).1.........:..|
00004830 aa 23 dd 20 f2 57 69 6d 70 5f 4d 65 6e 75 54 69 |.#. .Wimp_MenuTi|
00004840 74 6c 65 28 6d 65 6e 75 25 2c 74 69 74 6c 65 24 |tle(menu%,title$|
00004850 29 0d 19 b4 19 24 6d 65 6e 75 25 3d c0 74 69 74 |)....$menu%=.tit|
00004860 6c 65 24 2c 31 32 29 2b bd 30 0d 19 be 05 e1 0d |le$,12)+.0......|
00004870 19 c8 05 3a 0d 19 d2 3d dd 20 f2 57 69 6d 70 5f |...:...=. .Wimp_|
00004880 4d 65 6e 75 57 72 69 74 65 28 6d 65 6e 75 25 2c |MenuWrite(menu%,|
00004890 69 74 65 6d 25 2c 62 75 66 66 65 72 25 2c 76 61 |item%,buffer%,va|
000048a0 6c 25 2c 42 75 66 66 65 72 4c 65 6e 67 74 68 25 |l%,BufferLength%|
000048b0 29 0d 19 dc 37 6d 65 6e 75 25 21 28 32 38 2b 28 |)...7menu%!(28+(|
000048c0 69 74 65 6d 25 2d 31 29 2a 32 34 29 3d 28 6d 65 |item%-1)*24)=(me|
000048d0 6e 75 25 21 28 32 38 2b 28 69 74 65 6d 25 2d 31 |nu%!(28+(item%-1|
000048e0 29 2a 32 34 29 29 84 34 0d 19 e6 38 6d 65 6e 75 |)*24)).4...8menu|
000048f0 25 21 28 33 36 2b 28 69 74 65 6d 25 2d 31 29 2a |%!(36+(item%-1)*|
00004900 32 34 29 3d 6d 65 6e 75 25 21 28 33 36 2b 28 69 |24)=menu%!(36+(i|
00004910 74 65 6d 25 2d 31 29 2a 32 34 29 84 26 31 30 30 |tem%-1)*24).&100|
00004920 0d 19 f0 23 6d 65 6e 75 25 21 28 34 30 2b 28 69 |...#menu%!(40+(i|
00004930 74 65 6d 25 2d 31 29 2a 32 34 29 3d 62 75 66 66 |tem%-1)*24)=buff|
00004940 65 72 25 0d 19 fa 20 6d 65 6e 75 25 21 28 34 34 |er%... menu%!(44|
00004950 2b 28 69 74 65 6d 25 2d 31 29 2a 32 34 29 3d 76 |+(item%-1)*24)=v|
00004960 61 6c 25 0d 1a 04 29 6d 65 6e 75 25 21 28 34 38 |al%...)menu%!(48|
00004970 2b 28 69 74 65 6d 25 2d 31 29 2a 32 34 29 3d 42 |+(item%-1)*24)=B|
00004980 75 66 66 65 72 4c 65 6e 67 74 68 25 0d 1a 0e 05 |ufferLength%....|
00004990 e1 0d 1a 18 05 3a 0d 1a 22 06 f4 7c 0d 1a 2c 06 |.....:.."..|..,.|
000049a0 f4 7c 0d 1a 36 06 f4 7c 0d 1a 40 31 f4 7c 20 20 |.|..6..|..@1.| |
000049b0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000049c0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------|
000049d0 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 1a 4a 2a f4 7c 20 |---------..J*.| |
000049e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000049f0 20 20 20 20 20 20 20 20 20 34 2e a0 53 70 72 69 | 4..Spri|
00004a00 74 65 73 0d 1a 54 31 f4 7c 20 20 20 20 20 20 20 |tes..T1.| |
00004a10 20 20 20 20 20 20 20 20 20 20 20 2d 2d 2d 2d 2d | -----|
00004a20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------|
00004a30 2d 2d 2d 2d 0d 1a 5e 06 f4 7c 0d 1a 68 06 f4 7c |----..^..|..h..||
00004a40 0d 1a 72 3a f4 7c 20 20 20 20 20 20 20 20 20 20 |..r:.| |
00004a50 20 20 20 20 20 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d | ----------|
00004a60 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------|
00004a70 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 1a 7c 06 f4 7c |----------..|..||
00004a80 0d 1a 86 28 f4 7c 20 20 20 20 20 20 20 20 20 20 |...(.| |
00004a90 20 20 20 20 20 20 20 20 20 20 20 20 50 72 6f 63 | Proc|
00004aa0 65 64 75 72 65 73 20 3a 0d 1a 90 06 f4 7c 0d 1a |edures :.....|..|
00004ab0 9a 06 f4 7c 0d 1a a4 2c f4 7c 20 20 20 20 20 20 |...|...,.| |
00004ac0 20 20 20 20 20 20 20 20 20 20 20 20 50 52 4f 43 | PROC|
00004ad0 57 69 6d 70 5f 53 70 72 69 74 65 73 4c 6f 61 64 |Wimp_SpritesLoad|
00004ae0 0d 1a ae 3a f4 7c 20 20 20 20 20 20 20 20 20 20 |...:.| |
00004af0 20 20 20 20 20 20 20 20 50 52 4f 43 57 69 6d 70 | PROCWimp|
00004b00 5f 53 70 72 69 74 65 73 50 61 74 68 4c 6f 61 64 |_SpritesPathLoad|
00004b10 28 70 61 74 68 6e 61 6d 65 24 0d 1a b8 06 f4 7c |(pathname$.....||
00004b20 0d 1a c2 06 f4 7c 0d 1a cc 06 f4 7c 0d 1a d6 3a |.....|.....|...:|
00004b30 f4 7c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |.| |
00004b40 20 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d | --------------|
00004b50 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------|
00004b60 2d 2d 2d 2d 2d 2d 0d 1a e0 06 f4 7c 0d 1a ea 05 |------.....|....|
00004b70 3a 0d 1a f4 17 dd 20 f2 57 69 6d 70 5f 53 70 72 |:..... .Wimp_Spr|
00004b80 69 74 65 73 4c 6f 61 64 0d 1a fe 2f f2 57 69 6d |itesLoad.../.Wim|
00004b90 70 5f 53 70 72 69 74 65 73 50 61 74 68 4c 6f 61 |p_SpritesPathLoa|
00004ba0 64 28 22 3c 4f 62 65 79 24 44 69 72 3e 2e 53 70 |d("<Obey$Dir>.Sp|
00004bb0 72 69 74 65 73 22 29 0d 1b 08 1c 64 69 72 65 63 |rites")....direc|
00004bc0 74 5f 73 70 72 69 74 65 73 25 3d 73 70 72 69 74 |t_sprites%=sprit|
00004bd0 65 73 25 0d 1b 12 05 e1 0d 1b 1c 05 3a 0d 1b 26 |es%.........:..&|
00004be0 26 dd 20 f2 57 69 6d 70 5f 53 70 72 69 74 65 73 |&. .Wimp_Sprites|
00004bf0 50 61 74 68 4c 6f 61 64 28 70 61 74 68 6e 61 6d |PathLoad(pathnam|
00004c00 65 24 29 0d 1b 30 0a ea 53 25 2c 54 25 0d 1b 3a |e$)..0..S%,T%..:|
00004c10 2c 53 25 3d 8e 22 3c 4f 62 65 79 24 44 69 72 3e |,S%=."<Obey$Dir>|
00004c20 2e 53 70 72 69 74 65 73 22 3a 54 25 3d a2 23 53 |.Sprites":T%=.#S|
00004c30 25 2b 31 36 3a d9 23 53 25 0d 1b 44 19 de 73 70 |%+16:.#S%..D..sp|
00004c40 72 69 74 65 73 25 54 25 2c 73 70 6e 61 6d 65 25 |rites%T%,spname%|
00004c50 31 32 0d 1b 4e 1d 21 73 70 72 69 74 65 73 25 3d |12..N.!sprites%=|
00004c60 54 25 3a 73 70 72 69 74 65 73 25 21 38 3d 30 0d |T%:sprites%!8=0.|
00004c70 1b 58 21 c8 99 22 4f 53 5f 53 70 72 69 74 65 4f |.X!.."OS_SpriteO|
00004c80 70 22 2c 26 31 30 39 2c 73 70 72 69 74 65 73 25 |p",&109,sprites%|
00004c90 0d 1b 62 2b c8 99 22 4f 53 5f 53 70 72 69 74 65 |..b+.."OS_Sprite|
00004ca0 4f 70 22 2c 26 31 30 41 2c 73 70 72 69 74 65 73 |Op",&10A,sprites|
00004cb0 25 2c 70 61 74 68 6e 61 6d 65 24 0d 1b 6c 05 e1 |%,pathname$..l..|
00004cc0 0d 1b 76 05 3a 0d 1b 80 06 f4 7c 0d 1b 8a 06 f4 |..v.:.....|.....|
00004cd0 7c 0d 1b 94 06 f4 7c 0d 1b 9e 31 f4 7c 20 20 20 ||.....|...1.| |
00004ce0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2d | -|
00004cf0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------|
00004d00 2d 2d 2d 2d 2d 2d 2d 2d 0d 1b a8 28 f4 7c 20 20 |--------...(.| |
00004d10 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00004d20 20 20 20 20 20 20 20 20 35 2e a0 46 69 6c 65 73 | 5..Files|
00004d30 0d 1b b2 31 f4 7c 20 20 20 20 20 20 20 20 20 20 |...1.| |
00004d40 20 20 20 20 20 20 20 20 2d 2d 2d 2d 2d 2d 2d 2d | --------|
00004d50 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------|
00004d60 2d 0d 1b bc 06 f4 7c 0d 1b c6 06 f4 7c 0d 1b d0 |-.....|.....|...|
00004d70 35 f4 7c 20 20 20 20 20 20 20 20 20 20 20 20 20 |5.| |
00004d80 20 20 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d | -------------|
00004d90 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------|
00004da0 2d 2d 0d 1b da 06 f4 7c 0d 1b e4 28 f4 7c 20 20 |--.....|...(.| |
00004db0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00004dc0 20 20 20 20 50 72 6f 63 65 64 75 72 65 73 20 3a | Procedures :|
00004dd0 0d 1b ee 06 f4 7c 0d 1b f8 06 f4 7c 0d 1c 02 2e |.....|.....|....|
00004de0 f4 7c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |.| |
00004df0 20 20 20 20 46 4e 57 69 6d 70 5f 46 69 6c 65 54 | FNWimp_FileT|
00004e00 79 70 65 28 74 79 70 65 25 29 0d 1c 0c 2e f4 7c |ype(type%).....||
00004e10 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00004e20 20 20 46 4e 57 69 6d 70 5f 47 65 74 46 69 6c 65 | FNWimp_GetFile|
00004e30 50 61 74 68 4e 61 6d 65 0d 1c 16 32 f4 7c 20 20 |PathName...2.| |
00004e40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00004e50 46 4e 57 69 6d 70 5f 46 69 6c 65 4c 6f 61 64 28 |FNWimp_FileLoad(|
00004e60 70 61 74 68 6e 61 6d 65 24 29 0d 1c 20 39 f4 7c |pathname$).. 9.||
00004e70 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00004e80 20 20 46 4e 57 69 6d 70 5f 47 65 74 53 74 72 69 | FNWimp_GetStri|
00004e90 6e 67 41 74 41 64 64 72 65 73 73 28 61 72 72 61 |ngAtAddress(arra|
00004ea0 79 25 29 0d 1c 2a 36 f4 7c 20 20 20 20 20 20 20 |y%)..*6.| |
00004eb0 20 20 20 20 20 20 20 20 20 20 20 46 4e 57 69 6d | FNWim|
00004ec0 70 5f 47 65 74 46 69 6c 65 46 72 6f 6d 50 61 74 |p_GetFileFromPat|
00004ed0 68 6e 61 6d 65 28 66 24 29 0d 1c 34 32 f4 7c 20 |hname(f$)..42.| |
00004ee0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00004ef0 20 50 52 4f 43 57 69 6d 70 5f 53 65 6e 64 54 6f | PROCWimp_SendTo|
00004f00 45 64 69 74 28 66 69 6c 65 24 29 0d 1c 3e 06 f4 |Edit(file$)..>..|
00004f10 7c 0d 1c 48 35 f4 7c 20 20 20 20 20 20 20 20 20 ||..H5.| |
00004f20 20 20 20 20 20 20 20 2d 2d 2d 2d 2d 2d 2d 2d 2d | ---------|
00004f30 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------|
00004f40 2d 2d 2d 2d 2d 2d 0d 1c 52 06 f4 7c 0d 1c 5c 06 |------..R..|..\.|
00004f50 f4 7c 0d 1c 66 06 f4 7c 0d 1c 70 05 3a 0d 1c 7a |.|..f..|..p.:..z|
00004f60 1b dd 20 a4 57 69 6d 70 5f 46 69 6c 65 54 79 70 |.. .Wimp_FileTyp|
00004f70 65 28 74 79 70 65 25 29 0d 1c 84 0c c8 8e 74 79 |e(type%)......ty|
00004f80 70 65 25 ca 0d 1c 8e 11 c9 26 46 46 46 3a 3d 22 |pe%......&FFF:="|
00004f90 54 65 78 74 22 0d 1c 98 11 c9 26 46 46 44 3a 3d |Text".....&FFD:=|
00004fa0 22 44 61 74 61 22 0d 1c a2 12 c9 26 46 46 42 3a |"Data".....&FFB:|
00004fb0 3d 22 42 61 73 69 63 22 0d 1c ac 13 c9 26 46 46 |="Basic".....&FF|
00004fc0 39 3a 3d 22 53 70 72 69 74 65 22 0d 1c b6 14 c9 |9:="Sprite".....|
00004fd0 26 46 45 44 3a 3d 22 50 61 6c 65 74 74 65 22 0d |&FED:="Palette".|
00004fe0 1c c0 15 c9 26 46 45 43 3a 3d 22 54 65 6d 70 6c |....&FEC:="Templ|
00004ff0 61 74 65 22 0d 1c ca 11 c9 26 41 46 46 3a 3d 22 |ate".....&AFF:="|
00005000 44 72 61 77 22 0d 1c d4 14 c9 26 31 30 30 30 3a |Draw".....&1000:|
00005010 3d 22 46 6f 6c 64 65 72 22 0d 1c de 19 c9 26 32 |="Folder".....&2|
00005020 30 30 30 3a 3d 22 41 70 70 6c 69 63 61 74 69 6f |000:="Applicatio|
00005030 6e 22 0d 1c e8 0f 7f 3d c3 7e 28 74 79 70 65 25 |n".....=.~(type%|
00005040 29 0d 1c f2 05 cb 0d 1c fc 05 3a 0d 1d 06 1b dd |).........:.....|
00005050 20 a4 57 69 6d 70 5f 47 65 74 46 69 6c 65 50 61 | .Wimp_GetFilePa|
00005060 74 68 4e 61 6d 65 0d 1d 10 27 3d a4 57 69 6d 70 |thName...'=.Wimp|
00005070 5f 47 65 74 53 74 72 69 6e 67 41 74 41 64 64 72 |_GetStringAtAddr|
00005080 65 73 73 28 77 69 6d 70 25 2b 34 34 29 0d 1d 1a |ess(wimp%+44)...|
00005090 05 3a 0d 1d 24 1f dd 20 a4 57 69 6d 70 5f 46 69 |.:..$.. .Wimp_Fi|
000050a0 6c 65 4c 6f 61 64 28 70 61 74 68 6e 61 6d 65 24 |leLoad(pathname$|
000050b0 29 0d 1d 2e 10 ea 53 25 2c 54 25 2c 66 69 6c 65 |).....S%,T%,file|
000050c0 25 0d 1d 38 11 53 25 3d 8e 70 61 74 68 6e 61 6d |%..8.S%=.pathnam|
000050d0 65 24 0d 1d 42 0e 54 25 3d a2 23 53 25 2b 31 36 |e$..B.T%=.#S%+16|
000050e0 0d 1d 4c 08 d9 23 53 25 0d 1d 56 0c de 66 69 6c |..L..#S%..V..fil|
000050f0 65 25 54 25 0d 1d 60 22 ff 28 22 4c 4f 41 44 22 |e%T%..`".("LOAD"|
00005100 2b 70 61 74 68 6e 61 6d 65 24 2b 22 22 2b c3 7e |+pathname$+""+.~|
00005110 66 69 6c 65 25 29 0d 1d 6a 0a 3d 66 69 6c 65 25 |file%)..j.=file%|
00005120 0d 1d 74 05 3b 0d 1d 7e 26 dd 20 a4 57 69 6d 70 |..t.;..~&. .Wimp|
00005130 5f 47 65 74 53 74 72 69 6e 67 41 74 41 64 64 72 |_GetStringAtAddr|
00005140 65 73 73 28 61 72 72 61 79 25 29 0d 1d 88 0d ea |ess(array%).....|
00005150 73 24 3a 73 24 3d 22 22 0d 1d 92 3c c8 95 28 3f |s$:s$=""...<..(?|
00005160 61 72 72 61 79 25 3c 3e 31 33 29 80 28 3f 61 72 |array%<>13).(?ar|
00005170 72 61 79 25 3c 3e 30 29 3a 73 24 2b 3d bd 28 3f |ray%<>0):s$+=.(?|
00005180 61 72 72 61 79 25 29 3a 61 72 72 61 79 25 2b 3d |array%):array%+=|
00005190 31 3a ce 3a 0d 1d 9c 07 3d 73 24 0d 1d a6 05 3a |1:.:....=s$....:|
000051a0 0d 1d b0 23 dd 20 a4 57 69 6d 70 5f 47 65 74 46 |...#. .Wimp_GetF|
000051b0 69 6c 65 46 72 6f 6d 50 61 74 68 6e 61 6d 65 28 |ileFromPathname(|
000051c0 66 24 29 0d 1d ba 11 c8 8e 20 a7 66 24 2c 22 2e |f$)...... .f$,".|
000051d0 22 29 20 ca 0d 1d c4 10 20 c9 20 30 20 20 20 20 |") ..... . 0 |
000051e0 3a 3d 66 24 0d 1d ce 37 20 7f 20 3a 3d a4 57 69 |:=f$...7 . :=.Wi|
000051f0 6d 70 5f 47 65 74 46 69 6c 65 46 72 6f 6d 50 61 |mp_GetFileFromPa|
00005200 74 68 6e 61 6d 65 28 c2 66 24 2c a9 28 66 24 29 |thname(.f$,.(f$)|
00005210 2d a7 66 24 2c 22 2e 22 29 29 29 0d 1d d8 05 cb |-.f$,"."))).....|
00005220 0d 1d e2 05 3a 0d 1d ec 1d dd 20 f2 57 69 6d 70 |....:..... .Wimp|
00005230 5f 53 65 6e 64 54 6f 45 64 69 74 28 66 69 6c 65 |_SendToEdit(file|
00005240 24 29 0d 1d f6 08 ea 20 6e 25 0d 1e 00 15 77 69 |$)..... n%....wi|
00005250 6d 70 25 21 34 3d 26 36 43 43 30 31 43 30 43 0d |mp%!4=&6CC01C0C.|
00005260 1e 0a 0e 77 69 6d 70 25 21 31 36 3d 35 0d 1e 14 |...wimp%!16=5...|
00005270 0e 77 69 6d 70 25 21 33 36 3d 30 0d 1e 1e 11 77 |.wimp%!36=0....w|
00005280 69 6d 70 25 21 34 30 3d 26 46 46 46 0d 1e 28 18 |imp%!40=&FFF..(.|
00005290 24 28 77 69 6d 70 25 2b 34 34 29 3d 66 69 6c 65 |$(wimp%+44)=file|
000052a0 24 2b bd 30 0d 1e 32 10 6e 25 3d a9 66 69 6c 65 |$+.0..2.n%=.file|
000052b0 24 2b 34 35 0d 1e 3c 2c e7 20 6e 25 83 34 20 8c |$+45..<,. n%.4 .|
000052c0 20 21 77 69 6d 70 25 3d 34 2b 28 6e 25 3e 3e 32 | !wimp%=4+(n%>>2|
000052d0 29 3c 3c 32 20 8b 20 21 77 69 6d 70 25 3d 6e 25 |)<<2 . !wimp%=n%|
000052e0 0d 1e 46 24 c8 99 20 22 57 69 6d 70 5f 53 65 6e |..F$.. "Wimp_Sen|
000052f0 64 4d 65 73 73 61 67 65 22 2c 31 37 2c 77 69 6d |dMessage",17,wim|
00005300 70 25 2c 30 0d 1e 50 05 e1 0d 1e 5a 05 3a 0d 1e |p%,0..P....Z.:..|
00005310 64 06 f4 7c 0d 1e 6e 06 f4 7c 0d 1e 78 06 f4 7c |d..|..n..|..x..||
00005320 0d 1e 82 31 f4 7c 20 20 20 20 20 20 20 20 20 20 |...1.| |
00005330 20 20 20 20 20 20 20 20 2d 2d 2d 2d 2d 2d 2d 2d | --------|
00005340 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------|
00005350 2d 0d 1e 8c 2c f4 7c 20 20 20 20 20 20 20 20 20 |-...,.| |
00005360 20 20 20 20 20 20 20 20 20 20 20 20 20 35 2e a0 | 5..|
00005370 4d 69 73 63 65 6c 6c 61 6e 65 6f 75 73 0d 1e 96 |Miscellaneous...|
00005380 31 f4 7c 20 20 20 20 20 20 20 20 20 20 20 20 20 |1.| |
00005390 20 20 20 20 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d | -----------|
000053a0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 1e |--------------..|
000053b0 a0 06 f4 7c 0d 1e aa 06 f4 7c 0d 1e b4 35 f4 7c |...|.....|...5.||
000053c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000053d0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------|
000053e0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d |---------------.|
000053f0 1e be 06 f4 7c 0d 1e c8 28 f4 7c 20 20 20 20 20 |....|...(.| |
00005400 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00005410 20 50 72 6f 63 65 64 75 72 65 73 20 3a 0d 1e d2 | Procedures :...|
00005420 06 f4 7c 0d 1e dc 06 f4 7c 0d 1e e6 31 f4 7c 20 |..|.....|...1.| |
00005430 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00005440 20 50 52 4f 43 57 69 6d 70 5f 53 74 61 72 74 28 | PROCWimp_Start(|
00005450 54 61 73 6b 4e 61 6d 65 24 29 0d 1e f0 2e f4 7c |TaskName$).....||
00005460 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00005470 20 20 46 4e 57 69 6d 70 5f 42 41 53 49 43 50 61 | FNWimp_BASICPa|
00005480 72 61 6d 65 74 65 72 73 0d 1e fa 32 f4 7c 20 20 |rameters...2.| |
00005490 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000054a0 50 52 4f 43 57 69 6d 70 5f 53 65 74 45 76 65 6e |PROCWimp_SetEven|
000054b0 74 56 61 72 69 61 62 6c 65 73 0d 1f 04 37 f4 7c |tVariables...7.||
000054c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000054d0 20 20 50 52 4f 43 57 69 6d 70 5f 45 72 72 6f 72 | PROCWimp_Error|
000054e0 28 74 61 73 6b 25 2c 54 61 73 6b 4e 61 6d 65 24 |(task%,TaskName$|
000054f0 29 0d 1f 0e 2a f4 7c 20 20 20 20 20 20 20 20 20 |)...*.| |
00005500 20 20 20 20 20 20 20 20 20 50 52 4f 43 57 69 6d | PROCWim|
00005510 70 5f 43 6c 6f 73 65 44 6f 77 6e 0d 1f 18 25 f4 |p_CloseDown...%.|
00005520 7c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 || |
00005530 20 20 20 50 52 4f 43 57 69 6d 70 5f 51 75 69 74 | PROCWimp_Quit|
00005540 0d 1f 22 36 f4 7c 20 20 20 20 20 20 20 20 20 20 |.."6.| |
00005550 20 20 20 20 20 20 20 20 46 4e 57 69 6d 70 5f 52 | FNWimp_R|
00005560 65 61 64 56 61 72 69 61 62 6c 65 28 56 61 72 69 |eadVariable(Vari|
00005570 61 62 6c 65 24 29 0d 1f 2c 06 f4 7c 0d 1f 36 06 |able$)..,..|..6.|
00005580 f4 7c 0d 1f 40 35 f4 7c 20 20 20 20 20 20 20 20 |.|..@5.| |
00005590 20 20 20 20 20 20 20 20 2d 2d 2d 2d 2d 2d 2d 2d | --------|
000055a0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------|
000055b0 2d 2d 2d 2d 2d 2d 2d 0d 1f 4a 06 f4 7c 0d 1f 54 |-------..J..|..T|
000055c0 05 3a 0d 1f 5e 2f dd 20 f2 57 69 6d 70 5f 53 74 |.:..^/. .Wimp_St|
000055d0 61 72 74 28 54 61 73 6b 4e 61 6d 65 24 2c 77 69 |art(TaskName$,wi|
000055e0 6d 70 5f 6d 65 6d 6f 72 79 25 2c 69 63 6f 6e 25 |mp_memory%,icon%|
000055f0 29 0d 1f 68 25 de 20 77 69 6d 70 25 20 77 69 6d |)..h%. wimp% wim|
00005600 70 5f 6d 65 6d 6f 72 79 25 2c 69 63 6f 6e 73 25 |p_memory%,icons%|
00005610 20 69 63 6f 6e 25 0d 1f 72 29 e7 20 77 69 6d 70 | icon%..r). wimp|
00005620 5f 6d 65 6d 6f 72 79 25 3c 32 35 36 20 8c 20 77 |_memory%<256 . w|
00005630 69 6d 70 5f 6d 65 6d 6f 72 79 25 3d 32 35 36 0d |imp_memory%=256.|
00005640 1f 7c 1d 69 63 6f 6e 5f 6d 65 6d 6f 72 79 25 3d |.|.icon_memory%=|
00005650 69 63 6f 6e 73 25 2b 69 63 6f 6e 25 0d 1f 86 13 |icons%+icon%....|
00005660 74 61 73 6b 24 3d 54 61 73 6b 4e 61 6d 65 24 0d |task$=TaskName$.|
00005670 1f 90 2b 69 6e 64 69 72 65 63 74 5f 73 70 72 69 |..+indirect_spri|
00005680 74 65 73 25 3d 31 20 3a 20 64 69 72 65 63 74 5f |tes%=1 : direct_|
00005690 73 70 72 69 74 65 73 25 3d 31 0d 1f 9a 1b f2 57 |sprites%=1.....W|
000056a0 69 6d 70 5f 53 65 74 45 76 65 6e 74 56 61 72 69 |imp_SetEventVari|
000056b0 61 62 6c 65 73 0d 1f a4 15 ee 20 85 20 f2 57 69 |ables..... . .Wi|
000056c0 6d 70 5f 45 72 72 6f 72 3a e0 0d 1f ae 40 c8 99 |mp_Error:....@..|
000056d0 22 57 69 6d 70 5f 49 6e 69 74 69 61 6c 69 73 65 |"Wimp_Initialise|
000056e0 22 2c 32 30 30 2c 26 34 42 35 33 34 31 35 34 2c |",200,&4B534154,|
000056f0 54 61 73 6b 4e 61 6d 65 24 20 b8 20 76 65 72 73 |TaskName$ . vers|
00005700 69 6f 6e 25 2c 74 61 73 6b 25 0d 1f b8 05 e1 0d |ion%,task%......|
00005710 1f c2 05 3a 0d 1f cc 1b dd 20 a4 57 69 6d 70 5f |...:..... .Wimp_|
00005720 42 41 53 49 43 50 61 72 61 6d 65 74 65 72 73 0d |BASICParameters.|
00005730 1f d6 15 20 ea 20 63 6f 6d 24 2c 70 61 72 61 6d |... . com$,param|
00005740 24 2c 49 25 0d 1f e0 1a 20 c8 99 20 22 4f 53 5f |$,I%.... .. "OS_|
00005750 47 65 74 45 6e 76 22 20 b8 20 63 6f 6d 24 0d 1f |GetEnv" . com$..|
00005760 ea 0f 20 70 61 72 61 6d 73 24 3d 22 22 0d 1f f4 |.. params$=""...|
00005770 18 20 49 25 3d a7 63 6f 6d 24 2c 22 20 2d 71 75 |. I%=.com$," -qu|
00005780 69 74 20 22 29 0d 1f fe 35 20 e7 20 49 25 20 8c |it ")...5 . I% .|
00005790 20 70 61 72 61 6d 73 24 3d c1 63 6f 6d 24 2c a7 | params$=.com$,.|
000057a0 63 6f 6d 24 2c 22 20 22 2c 49 25 2b a9 22 20 2d |com$," ",I%+." -|
000057b0 71 75 69 74 20 22 29 2b 31 29 0d 20 08 0c 3d 70 |quit ")+1). ..=p|
000057c0 61 72 61 6d 73 24 0d 20 12 05 3a 0d 20 1c 1d dd |arams$. ..:. ...|
000057d0 20 f2 57 69 6d 70 5f 53 65 74 45 76 65 6e 74 56 | .Wimp_SetEventV|
000057e0 61 72 69 61 62 6c 65 73 0d 20 26 17 de 20 70 6f |ariables. &.. po|
000057f0 69 6e 74 65 72 5f 62 6c 6f 63 6b 25 20 32 30 0d |inter_block% 20.|
00005800 20 30 10 69 6e 74 65 72 66 61 63 65 25 3d a3 0d | 0.interface%=..|
00005810 20 3a 2e 6e 75 6c 6c 25 3d 31 20 20 3a 64 72 61 | :.null%=1 :dra|
00005820 77 25 3d 32 20 3a 20 20 70 6f 69 6e 74 65 72 5f |w%=2 : pointer_|
00005830 6c 65 61 76 69 6e 67 25 3d 31 3c 3c 34 0d 20 44 |leaving%=1<<4. D|
00005840 31 70 6f 69 6e 74 65 72 5f 65 6e 74 65 72 69 6e |1pointer_enterin|
00005850 67 25 3d 31 3c 3c 35 3a 6d 6f 75 73 65 25 3d 31 |g%=1<<5:mouse%=1|
00005860 3c 3c 36 3a 64 72 61 67 25 3d 31 3c 3c 37 0d 20 |<<6:drag%=1<<7. |
00005870 4e 26 6b 65 79 25 3d 31 3c 3c 38 3a 6d 65 6e 75 |N&key%=1<<8:menu|
00005880 25 3d 31 3c 3c 39 3a 73 63 72 6f 6c 6c 25 3d 31 |%=1<<9:scroll%=1|
00005890 3c 3c 31 30 0d 20 58 40 6c 6f 73 65 5f 63 61 72 |<<10. X@lose_car|
000058a0 65 74 25 3d 31 3c 3c 31 31 3a 67 61 69 6e 5f 63 |et%=1<<11:gain_c|
000058b0 61 72 65 74 25 3d 31 3c 3c 31 32 3a 6d 65 73 73 |aret%=1<<12:mess|
000058c0 61 67 65 25 3d 28 31 3c 3c 31 37 29 2b 28 31 3c |age%=(1<<17)+(1<|
000058d0 3c 31 38 29 0d 20 62 30 72 65 63 6f 72 64 65 72 |<18). b0recorder|
000058e0 25 3d 31 3c 3c 31 38 3a 61 63 6b 6e 6f 77 6c 65 |%=1<<18:acknowle|
000058f0 64 67 65 25 3d 31 3c 3c 31 39 3a 77 69 6e 64 6f |dge%=1<<19:windo|
00005900 77 25 3d 30 0d 20 6c 21 73 70 72 69 74 65 73 25 |w%=0. l!sprites%|
00005910 3d 31 3a 76 65 72 73 69 6f 6e 25 3d 30 3a 74 61 |=1:version%=0:ta|
00005920 73 6b 25 3d 30 0d 20 76 2a 42 61 72 5f 57 69 6e |sk%=0. v*Bar_Win|
00005930 64 6f 77 25 3d 2d 32 3a 42 61 72 5f 49 63 6f 6e |dow%=-2:Bar_Icon|
00005940 25 3d 30 3a 42 61 72 5f 4d 65 6e 75 25 3d 30 0d |%=0:Bar_Menu%=0.|
00005950 20 80 2a 78 5f 6f 72 69 67 69 6e 25 3d 30 3a 79 | .*x_origin%=0:y|
00005960 5f 6f 72 69 67 69 6e 25 3d 30 3a 53 61 76 65 57 |_origin%=0:SaveW|
00005970 69 6e 64 6f 77 25 3d 2d 33 0d 20 8a 33 6d 65 73 |indow%=-3. .3mes|
00005980 73 61 67 65 5f 71 75 69 74 25 3d 30 3a 6d 65 73 |sage_quit%=0:mes|
00005990 73 61 67 65 5f 73 61 76 65 25 3d 32 3a 6d 65 73 |sage_save%=2:mes|
000059a0 73 61 67 65 5f 6c 6f 61 64 25 3d 33 0d 20 94 21 |sage_load%=3. .!|
000059b0 6d 6f 75 73 65 5f 62 75 74 74 6f 6e 25 3d 32 3a |mouse_button%=2:|
000059c0 73 61 76 65 5f 65 76 65 6e 74 25 3d 30 0d 20 9e |save_event%=0. .|
000059d0 20 74 6f 70 5f 6c 69 6e 65 25 3d 30 20 3a 20 62 | top_line%=0 : b|
000059e0 6f 74 74 6f 6d 5f 6c 69 6e 65 25 3d 30 0d 20 a8 |ottom_line%=0. .|
000059f0 05 e1 0d 20 b2 05 3a 0d 20 bc 11 dd 20 f2 57 69 |... ..:. ... .Wi|
00005a00 6d 70 5f 45 72 72 6f 72 0d 20 c6 0a ea 58 24 2c |mp_Error. ...X$,|
00005a10 78 25 0d 20 d0 09 ee 20 85 20 87 0d 20 da 08 78 |x%. ... . .. ..x|
00005a20 25 3d 9e 0d 20 e4 1b 58 24 3d f6 24 2b 22 61 74 |%=.. ..X$=.$+"at|
00005a30 6c 69 6e 65 22 2b c3 28 78 25 81 31 30 29 0d 20 |line"+.(x%.10). |
00005a40 ee 10 de 45 72 72 6f 72 4d 73 67 25 33 36 0d 20 |...ErrorMsg%36. |
00005a50 f8 45 45 72 72 6f 72 4d 73 67 25 21 30 3d 33 36 |.EErrorMsg%!0=36|
00005a60 3a 45 72 72 6f 72 4d 73 67 25 21 31 32 3d 30 3a |:ErrorMsg%!12=0:|
00005a70 45 72 72 6f 72 4d 73 67 25 21 31 36 3d 26 38 31 |ErrorMsg%!16=&81|
00005a80 30 38 30 3a 45 72 72 6f 72 4d 73 67 25 21 32 30 |080:ErrorMsg%!20|
00005a90 3d 78 25 0d 21 02 1f 24 28 45 72 72 6f 72 4d 73 |=x%.!..$(ErrorMs|
00005aa0 67 25 2b 32 34 29 3d 22 21 52 75 6e 49 6d 61 67 |g%+24)="!RunImag|
00005ab0 65 22 0d 21 0c 25 c8 99 22 57 69 6d 70 5f 53 65 |e".!.%.."Wimp_Se|
00005ac0 6e 64 4d 65 73 73 61 67 65 22 2c 31 37 2c 45 72 |ndMessage",17,Er|
00005ad0 72 6f 72 4d 73 67 25 0d 21 16 1f f2 57 69 6d 70 |rorMsg%.!...Wimp|
00005ae0 5f 57 69 6e 64 6f 77 41 6c 65 72 74 28 74 61 73 |_WindowAlert(tas|
00005af0 6b 24 2c 58 24 29 0d 21 20 13 f2 57 69 6d 70 5f |k$,X$).! ..Wimp_|
00005b00 43 6c 6f 73 65 44 6f 77 6e 0d 21 2a 05 e1 0d 21 |CloseDown.!*...!|
00005b10 34 05 3a 0d 21 3e 15 dd 20 f2 57 69 6d 70 5f 43 |4.:.!>.. .Wimp_C|
00005b20 6c 6f 73 65 44 6f 77 6e 0d 21 48 23 c8 99 22 57 |loseDown.!H#.."W|
00005b30 69 6d 70 5f 43 6c 6f 73 65 44 6f 77 6e 22 2c 74 |imp_CloseDown",t|
00005b40 61 73 6b 25 2c 22 54 41 53 4b 22 0d 21 52 05 e1 |ask%,"TASK".!R..|
00005b50 0d 21 5c 05 3a 0d 21 66 10 dd 20 f2 57 69 6d 70 |.!\.:.!f.. .Wimp|
00005b60 5f 51 75 69 74 0d 21 70 0f 66 69 6e 69 73 68 65 |_Quit.!p.finishe|
00005b70 64 25 3d b9 0d 21 7a 05 e1 0d 21 84 05 3a 0d 21 |d%=..!z...!..:.!|
00005b80 8e 23 dd 20 a4 57 69 6d 70 5f 52 65 61 64 56 61 |.#. .Wimp_ReadVa|
00005b90 72 69 61 62 6c 65 28 56 61 72 69 61 62 6c 65 24 |riable(Variable$|
00005ba0 29 0d 21 98 1b ea 6c 65 6e 25 2c 72 65 73 75 6c |).!...len%,resul|
00005bb0 74 25 2c 76 61 72 69 61 62 6c 65 25 0d 21 a2 14 |t%,variable%.!..|
00005bc0 24 77 69 6d 70 25 3d 56 61 72 69 61 62 6c 65 24 |$wimp%=Variable$|
00005bd0 0d 21 ac 33 c8 99 22 4f 53 5f 52 65 61 64 56 61 |.!.3.."OS_ReadVa|
00005be0 72 56 61 6c 22 2c 77 69 6d 70 25 2c 77 69 6d 70 |rVal",wimp%,wimp|
00005bf0 25 2b 32 35 35 2c 32 35 35 2c 2c 33 b8 2c 2c 6c |%+255,255,,3.,,l|
00005c00 65 6e 25 0d 21 b6 17 77 69 6d 70 25 3f 28 6c 65 |en%.!..wimp%?(le|
00005c10 6e 25 2b 32 35 35 29 3d 31 33 0d 21 c0 11 3d 24 |n%+255)=13.!..=$|
00005c20 28 77 69 6d 70 25 2b 32 35 35 29 0d 21 ca 05 3a |(wimp%+255).!..:|
00005c30 0d 21 d4 05 3a 0d 21 de 06 f4 7c 0d 21 e8 06 f4 |.!..:.!...|.!...|
00005c40 7c 0d 21 f2 06 f4 7c 0d 21 fc 06 f4 7c 0d 22 06 ||.!...|.!...|.".|
00005c50 29 f4 7c 20 20 20 20 20 20 20 20 20 20 20 20 20 |).| |
00005c60 20 20 20 20 20 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d | ----------|
00005c70 2d 2d 2d 2d 2d 2d 0d 22 10 27 f4 7c 20 20 20 20 |------.".'.| |
00005c80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00005c90 20 57 69 6d 70 20 50 6f 6c 6c 69 6e 67 0d 22 1a | Wimp Polling.".|
00005ca0 29 f4 7c 20 20 20 20 20 20 20 20 20 20 20 20 20 |).| |
00005cb0 20 20 20 20 20 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d | ----------|
00005cc0 2d 2d 2d 2d 2d 2d 0d 22 24 06 f4 7c 0d 22 2e 06 |------."$..|."..|
00005cd0 f4 7c 0d 22 38 05 3a 0d 22 42 18 dd 20 f2 57 69 |.|."8.:."B.. .Wi|
00005ce0 6d 70 5f 57 61 69 74 46 6f 72 45 76 65 6e 74 0d |mp_WaitForEvent.|
00005cf0 22 4c 16 ea 20 6d 61 73 6b 25 2c 65 76 65 6e 74 |"L.. mask%,event|
00005d00 25 2c 58 2c 59 0d 22 56 0f 66 69 6e 69 73 68 65 |%,X,Y."V.finishe|
00005d10 64 25 3d a3 0d 22 60 17 6d 61 73 6b 25 3d 25 31 |d%=.."`.mask%=%1|
00005d20 31 31 30 30 30 30 31 31 30 30 31 0d 22 6a 05 f5 |11000011001."j..|
00005d30 0d 22 74 1a e7 20 91 3e 54 25 20 80 20 46 6c 61 |."t.. .>T% . Fla|
00005d40 73 68 69 6e 67 25 3d b9 20 8c 0d 22 7e 0f 54 25 |shing%=. .."~.T%|
00005d50 3d 91 2b 44 65 6c 61 79 25 0d 22 88 1b 46 61 64 |=.+Delay%."..Fad|
00005d60 65 43 6f 75 6e 74 25 3d 46 61 64 65 43 6f 75 6e |eCount%=FadeCoun|
00005d70 74 25 2b 31 0d 22 92 0f e3 20 59 3d 31 30 20 b8 |t%+1."... Y=10 .|
00005d80 20 31 32 0d 22 9c 0d e3 20 58 3d 31 20 b8 20 33 | 12."... X=1 . 3|
00005d90 0d 22 a6 23 43 6f 6c 25 28 59 2c 58 29 3d 43 6f |.".#Col%(Y,X)=Co|
00005da0 6c 25 28 59 2d 33 2c 58 29 2b 43 6f 6c 25 28 59 |l%(Y-3,X)+Col%(Y|
00005db0 2c 58 29 0d 22 b0 07 ed 20 58 0d 22 ba 07 ed 20 |,X)."... X."... |
00005dc0 59 0d 22 c4 1e e7 20 46 61 64 65 43 6f 75 6e 74 |Y."... FadeCount|
00005dd0 25 3e 46 61 64 65 53 74 65 70 25 2d 31 20 8c 0d |%>FadeStep%-1 ..|
00005de0 22 ce 11 20 46 61 64 65 43 6f 75 6e 74 25 3d 31 |".. FadeCount%=1|
00005df0 0d 22 d8 0e 20 e3 20 59 3d 37 20 b8 20 39 0d 22 |.".. . Y=7 . 9."|
00005e00 e2 0e 20 e3 20 58 3d 31 20 b8 20 33 0d 22 ec 1b |.. . X=1 . 3."..|
00005e10 20 43 6f 6c 25 28 59 2c 58 29 3d 43 6f 6c 25 28 | Col%(Y,X)=Col%(|
00005e20 59 2c 58 29 2a 2d 31 0d 22 f6 08 20 ed 20 58 0d |Y,X)*-1.".. . X.|
00005e30 23 00 08 20 ed 20 59 0d 23 0a 05 cd 0d 23 14 2b |#.. . Y.#....#.+|
00005e40 c8 97 20 fb 20 31 2c 43 6f 6c 25 28 31 30 2c 31 |.. . 1,Col%(10,1|
00005e50 29 2c 43 6f 6c 25 28 31 30 2c 32 29 2c 43 6f 6c |),Col%(10,2),Col|
00005e60 25 28 31 30 2c 33 29 0d 23 1e 2b c8 97 20 fb 20 |%(10,3).#.+.. . |
00005e70 32 2c 43 6f 6c 25 28 31 31 2c 31 29 2c 43 6f 6c |2,Col%(11,1),Col|
00005e80 25 28 31 31 2c 32 29 2c 43 6f 6c 25 28 31 31 2c |%(11,2),Col%(11,|
00005e90 33 29 0d 23 28 2b c8 97 20 fb 20 33 2c 43 6f 6c |3).#(+.. . 3,Col|
00005ea0 25 28 31 32 2c 31 29 2c 43 6f 6c 25 28 31 32 2c |%(12,1),Col%(12,|
00005eb0 32 29 2c 43 6f 6c 25 28 31 32 2c 33 29 0d 23 32 |2),Col%(12,3).#2|
00005ec0 05 cd 0d 23 3c 2c 20 c8 99 22 57 69 6d 70 5f 50 |...#<, .."Wimp_P|
00005ed0 6f 6c 6c 49 64 6c 65 22 2c 26 38 31 39 33 32 2c |ollIdle",&81932,|
00005ee0 77 69 6d 70 25 20 b8 20 65 76 65 6e 74 25 0d 23 |wimp% . event%.#|
00005ef0 46 10 20 c8 8e 20 65 76 65 6e 74 25 20 ca 0d 23 |F. .. event% ..#|
00005f00 50 0a 20 20 c9 30 20 3a 0d 23 5a 1f 20 20 c9 31 |P. .0 :.#Z. .1|
00005f10 20 3a 20 f2 57 69 6d 70 5f 50 6f 6c 6c 44 72 61 | : .Wimp_PollDra|
00005f20 77 57 69 6e 64 6f 77 0d 23 64 26 20 20 c9 32 20 |wWindow.#d& .2 |
00005f30 3a 20 c8 99 20 22 57 69 6d 70 5f 4f 70 65 6e 57 |: .. "Wimp_OpenW|
00005f40 69 6e 64 6f 77 22 2c 2c 77 69 6d 70 25 0d 23 6e |indow",,wimp%.#n|
00005f50 20 20 20 c9 33 20 3a 20 f2 57 69 6d 70 5f 50 6f | .3 : .Wimp_Po|
00005f60 6c 6c 43 6c 6f 73 65 57 69 6e 64 6f 77 0d 23 78 |llCloseWindow.#x|
00005f70 0a 20 20 c9 34 20 3a 0d 23 82 0a 20 20 c9 35 20 |. .4 :.#.. .5 |
00005f80 3a 0d 23 8c 1f 20 20 c9 36 20 3a 20 f2 57 69 6d |:.#.. .6 : .Wim|
00005f90 70 5f 50 6f 6c 6c 4d 6f 75 73 65 43 6c 69 63 6b |p_PollMouseClick|
00005fa0 0d 23 96 20 20 20 c9 37 20 3a 20 f2 57 69 6d 70 |.#. .7 : .Wimp|
00005fb0 5f 50 6f 6c 6c 53 61 76 65 4d 65 73 73 61 67 65 |_PollSaveMessage|
00005fc0 0d 23 a0 1d 20 20 c9 38 20 3a 20 f2 57 69 6d 70 |.#.. .8 : .Wimp|
00005fd0 5f 50 6f 6c 6c 4b 65 79 50 72 65 73 73 0d 23 aa |_PollKeyPress.#.|
00005fe0 23 20 20 c9 39 20 3a 20 f2 45 76 65 6e 74 5f 4d |# .9 : .Event_M|
00005ff0 65 6e 75 43 68 6f 69 63 65 28 6d 65 6e 75 25 29 |enuChoice(menu%)|
00006000 0d 23 b4 0a 20 20 c9 31 30 3a 0d 23 be 0a 20 20 |.#.. .10:.#.. |
00006010 c9 31 31 3a 0d 23 c8 0a 20 20 c9 31 32 3a 0d 23 |.11:.#.. .12:.#|
00006020 d2 20 20 20 c9 31 37 2c 31 38 3a 20 f2 57 69 6d |. .17,18: .Wim|
00006030 70 5f 50 6f 6c 6c 4d 65 73 73 61 67 65 73 0d 23 |p_PollMessages.#|
00006040 dc 0a 20 20 c9 31 39 3a 0d 23 e6 06 20 cb 0d 23 |.. .19:.#.. ..#|
00006050 f0 0f fd 20 66 69 6e 69 73 68 65 64 25 0d 23 fa |... finished%.#.|
00006060 05 e1 0d 24 04 05 3a 0d 24 0e 1a dd 20 f2 57 69 |...$..:.$... .Wi|
00006070 6d 70 5f 50 6f 6c 6c 44 72 61 77 57 69 6e 64 6f |mp_PollDrawWindo|
00006080 77 0d 24 18 0b ea 20 6d 6f 72 65 25 0d 24 22 26 |w.$... more%.$"&|
00006090 c8 99 22 57 69 6d 70 5f 52 65 64 72 61 77 57 69 |.."Wimp_RedrawWi|
000060a0 6e 64 6f 77 22 2c 2c 77 69 6d 70 25 b8 6d 6f 72 |ndow",,wimp%.mor|
000060b0 65 25 0d 24 2c 13 77 69 6e 64 6f 77 25 3d 77 69 |e%.$,.window%=wi|
000060c0 6d 70 25 21 30 0d 24 36 41 78 5f 6f 72 69 67 69 |mp%!0.$6Ax_origi|
000060d0 6e 25 3d 31 36 2b 77 69 6d 70 25 21 34 2d 77 69 |n%=16+wimp%!4-wi|
000060e0 6d 70 25 21 32 30 3a 79 5f 6f 72 69 67 69 6e 25 |mp%!20:y_origin%|
000060f0 3d 2d 31 36 2b 77 69 6d 70 25 21 31 36 2d 77 69 |=-16+wimp%!16-wi|
00006100 6d 70 25 21 32 34 0d 24 40 0b c8 95 6d 6f 72 65 |mp%!24.$@...more|
00006110 25 0d 24 4a 30 20 e7 20 69 6e 74 65 72 66 61 63 |%.$J0 . interfac|
00006120 65 25 20 8c 20 c8 99 22 57 69 6d 70 5f 42 6f 72 |e% . .."Wimp_Bor|
00006130 64 65 72 57 69 6e 64 6f 77 22 2c 2c 77 69 6d 70 |derWindow",,wimp|
00006140 25 0d 24 54 2d 20 f2 45 76 65 6e 74 5f 44 72 61 |%.$T- .Event_Dra|
00006150 77 28 77 69 6e 64 6f 77 25 2c 78 5f 6f 72 69 67 |w(window%,x_orig|
00006160 69 6e 25 2c 79 5f 6f 72 69 67 69 6e 25 29 0d 24 |in%,y_origin%).$|
00006170 5e 27 20 c8 99 22 57 69 6d 70 5f 47 65 74 52 65 |^' .."Wimp_GetRe|
00006180 63 74 61 6e 67 6c 65 22 2c 2c 77 69 6d 70 25 b8 |ctangle",,wimp%.|
00006190 6d 6f 72 65 25 0d 24 68 05 ce 0d 24 72 05 e1 0d |more%.$h...$r...|
000061a0 24 7c 05 3a 0d 24 86 1b dd 20 f2 57 69 6d 70 5f |$|.:.$... .Wimp_|
000061b0 50 6f 6c 6c 43 6c 6f 73 65 57 69 6e 64 6f 77 0d |PollCloseWindow.|
000061c0 24 90 25 20 20 c8 99 20 22 57 69 6d 70 5f 47 65 |$.% .. "Wimp_Ge|
000061d0 74 50 6f 69 6e 74 65 72 49 6e 66 6f 22 2c 2c 77 |tPointerInfo",,w|
000061e0 69 6d 70 25 0d 24 9a 29 20 20 77 69 6e 64 6f 77 |imp%.$.) window|
000061f0 25 3d 77 69 6d 70 25 21 31 32 20 3a 20 62 75 74 |%=wimp%!12 : but|
00006200 74 6f 6e 73 25 3d 77 69 6d 70 25 21 38 0d 24 a4 |tons%=wimp%!8.$.|
00006210 29 20 f2 45 76 65 6e 74 5f 57 69 6e 64 6f 77 43 |) .Event_WindowC|
00006220 6c 6f 73 65 28 77 69 6e 64 6f 77 25 2c 62 75 74 |lose(window%,but|
00006230 74 6f 6e 73 25 29 0d 24 ae 32 20 21 77 69 6d 70 |tons%).$.2 !wimp|
00006240 25 3d 77 69 6e 64 6f 77 25 20 3a 20 c8 99 20 22 |%=window% : .. "|
00006250 57 69 6d 70 5f 43 6c 6f 73 65 57 69 6e 64 6f 77 |Wimp_CloseWindow|
00006260 22 2c 2c 77 69 6d 70 25 0d 24 b8 05 e1 0d 24 c2 |",,wimp%.$....$.|
00006270 05 3a 0d 24 cc 1a dd 20 f2 57 69 6d 70 5f 50 6f |.:.$... .Wimp_Po|
00006280 6c 6c 4d 6f 75 73 65 43 6c 69 63 6b 0d 24 d6 4a |llMouseClick.$.J|
00006290 20 62 75 74 74 6f 6e 25 3d 77 69 6d 70 25 21 38 | button%=wimp%!8|
000062a0 3a 77 69 6e 64 6f 77 25 3d 77 69 6d 70 25 21 31 |:window%=wimp%!1|
000062b0 32 3a 69 63 6f 6e 25 3d 77 69 6d 70 25 21 31 36 |2:icon%=wimp%!16|
000062c0 3a 78 25 3d 77 69 6d 70 25 21 30 3a 79 25 3d 77 |:x%=wimp%!0:y%=w|
000062d0 69 6d 70 25 21 34 0d 24 e0 11 20 c8 8e 20 62 75 |imp%!4.$.. .. bu|
000062e0 74 74 6f 6e 25 20 ca 0d 24 ea 22 20 20 20 c9 32 |tton% ..$." .2|
000062f0 20 20 20 20 3a 20 f2 57 69 6d 70 5f 50 6f 6c 6c | : .Wimp_Poll|
00006300 4d 65 6e 75 50 6f 70 55 70 0d 24 f4 23 20 20 20 |MenuPopUp.$.# |
00006310 7f 3a 20 c8 8e 20 a4 45 76 65 6e 74 5f 53 61 76 |.: .. .Event_Sav|
00006320 65 28 77 69 6e 64 6f 77 25 29 20 ca 0d 24 fe 2c |e(window%) ..$.,|
00006330 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 c9 | .|
00006340 20 b9 20 3a 20 f2 57 69 6d 70 5f 50 6f 6c 6c 4d | . : .Wimp_PollM|
00006350 6f 75 73 65 53 61 76 65 0d 25 08 31 20 20 20 20 |ouseSave.%.1 |
00006360 20 20 20 20 20 20 20 20 20 20 20 c9 20 a3 3a 20 | . .: |
00006370 f2 57 69 6d 70 5f 50 6f 6c 6c 45 76 65 6e 74 4d |.Wimp_PollEventM|
00006380 6f 75 73 65 43 6c 69 63 6b 0d 25 12 13 20 20 20 |ouseClick.%.. |
00006390 20 20 20 20 20 20 20 20 20 20 20 cb 0d 25 1c 06 | ..%..|
000063a0 20 cb 0d 25 26 05 e1 0d 25 30 05 3a 0d 25 3a 19 | ..%&...%0.:.%:.|
000063b0 dd 20 f2 57 69 6d 70 5f 50 6f 6c 6c 4d 65 6e 75 |. .Wimp_PollMenu|
000063c0 50 6f 70 55 70 0d 25 44 1e 6d 65 6e 75 25 3d a4 |PopUp.%D.menu%=.|
000063d0 45 76 65 6e 74 5f 4d 65 6e 75 28 77 69 6e 64 6f |Event_Menu(windo|
000063e0 77 25 29 0d 25 4e 11 20 20 c8 8e 20 6d 65 6e 75 |w%).%N. .. menu|
000063f0 25 20 20 ca 0d 25 58 0b 20 20 20 c9 20 a3 3a 0d |% ..%X. . .:.|
00006400 25 62 0a 20 20 20 7f 20 3a 0d 25 6c 15 20 20 20 |%b. . :.%l. |
00006410 20 20 c8 8e 20 77 69 6e 64 6f 77 25 20 ca 0d 25 | .. window% ..%|
00006420 76 17 20 20 20 20 20 20 c9 20 2d 32 20 20 20 3a |v. . -2 :|
00006430 20 6e 25 3d 30 0d 25 80 33 20 20 20 20 20 20 20 | n%=0.%.3 |
00006440 20 c8 95 20 28 28 42 61 72 5f 4d 65 6e 75 25 21 | .. ((Bar_Menu%!|
00006450 28 32 38 2b 6e 25 2a 32 34 29 29 80 25 31 30 30 |(28+n%*24)).%100|
00006460 30 30 30 30 30 29 3d 30 0d 25 8a 12 20 20 20 20 |00000)=0.%.. |
00006470 20 20 20 20 20 6e 25 2b 3d 31 0d 25 94 0d 20 20 | n%+=1.%.. |
00006480 20 20 20 20 20 20 ce 0d 25 9e 3a 20 20 20 20 20 | ..%.: |
00006490 20 20 20 c8 99 20 22 57 69 6d 70 5f 43 72 65 61 | .. "Wimp_Crea|
000064a0 74 65 4d 65 6e 75 22 2c 2c 42 61 72 5f 4d 65 6e |teMenu",,Bar_Men|
000064b0 75 25 2c 78 25 2d 36 34 2c 39 36 2b 6e 25 2a 34 |u%,x%-64,96+n%*4|
000064c0 34 0d 25 a8 34 20 20 20 20 20 20 7f 20 3a 20 c8 |4.%.4 . : .|
000064d0 99 22 57 69 6d 70 5f 43 72 65 61 74 65 4d 65 6e |."Wimp_CreateMen|
000064e0 75 22 2c 2c 6d 65 6e 75 25 2c 78 25 2d 36 34 2c |u",,menu%,x%-64,|
000064f0 79 25 2b 32 30 0d 25 b2 0a 20 20 20 20 20 cb 0d |y%+20.%.. ..|
00006500 25 bc 07 20 20 cb 0d 25 c6 05 e1 0d 25 d0 05 3a |%.. ..%....%..:|
00006510 0d 25 da 19 dd 20 f2 57 69 6d 70 5f 50 6f 6c 6c |.%... .Wimp_Poll|
00006520 4d 6f 75 73 65 53 61 76 65 0d 25 e4 0f 20 c8 8e |MouseSave.%.. ..|
00006530 20 69 63 6f 6e 25 20 ca 0d 25 ee 38 20 20 c9 20 | icon% ..%.8 . |
00006540 30 20 3a 20 e7 20 62 75 74 74 6f 6e 25 20 80 20 |0 : . button% . |
00006550 26 35 30 20 8c 20 f2 57 69 6d 70 5f 50 6f 6c 6c |&50 . .Wimp_Poll|
00006560 44 72 61 67 42 6f 78 28 77 69 6e 64 6f 77 25 29 |DragBox(window%)|
00006570 0d 25 f8 38 20 20 c9 20 32 20 3a 20 e7 20 62 75 |.%.8 . 2 : . bu|
00006580 74 74 6f 6e 25 20 80 20 35 20 8c 20 20 f2 57 69 |tton% . 5 . .Wi|
00006590 6d 70 5f 50 6f 6c 6c 53 61 76 65 46 69 6c 65 28 |mp_PollSaveFile(|
000065a0 77 69 6e 64 6f 77 25 29 0d 26 02 06 20 cb 0d 26 |window%).&.. ..&|
000065b0 0c 05 e1 0d 26 16 05 3a 0d 26 20 1f dd 20 f2 57 |....&..:.& .. .W|
000065c0 69 6d 70 5f 50 6f 6c 6c 45 76 65 6e 74 4d 6f 75 |imp_PollEventMou|
000065d0 73 65 43 6c 69 63 6b 0d 26 2a 2e 20 e7 20 69 6e |seClick.&*. . in|
000065e0 74 65 72 66 61 63 65 25 20 8c 20 c8 99 22 57 69 |terface% . .."Wi|
000065f0 6d 70 5f 42 6f 72 64 65 72 49 63 6f 6e 22 2c 2c |mp_BorderIcon",,|
00006600 77 69 6d 70 25 0d 26 34 33 20 f2 45 76 65 6e 74 |wimp%.&43 .Event|
00006610 5f 4d 6f 75 73 65 43 6c 69 63 6b 28 77 69 6e 64 |_MouseClick(wind|
00006620 6f 77 25 2c 69 63 6f 6e 25 2c 62 75 74 74 6f 6e |ow%,icon%,button|
00006630 25 2c 78 25 2c 79 25 29 0d 26 3e 15 20 c8 8e 20 |%,x%,y%).&>. .. |
00006640 20 69 6e 74 65 72 66 61 63 65 25 20 ca 0d 26 48 | interface% ..&H|
00006650 0b 20 20 c9 20 b9 20 3a 0d 26 52 28 20 20 20 77 |. . . :.&R( w|
00006660 69 6d 70 25 21 30 3d 78 25 3a 77 69 6d 70 25 21 |imp%!0=x%:wimp%!|
00006670 34 3d 79 25 20 3a 20 77 69 6d 70 25 21 38 3d 30 |4=y% : wimp%!8=0|
00006680 0d 26 5c 28 20 20 20 77 69 6d 70 25 21 31 32 3d |.&\( wimp%!12=|
00006690 77 69 6e 64 6f 77 25 20 3a 20 77 69 6d 70 25 21 |window% : wimp%!|
000066a0 31 36 3d 69 63 6f 6e 25 0d 26 66 21 20 20 20 c8 |16=icon%.&f! .|
000066b0 99 22 57 69 6d 70 5f 42 6f 72 64 65 72 49 63 6f |."Wimp_BorderIco|
000066c0 6e 22 2c 2c 77 69 6d 70 25 0d 26 70 06 20 cb 0d |n",,wimp%.&p. ..|
000066d0 26 7a 05 e1 0d 26 84 05 3a 0d 26 8e 21 dd 20 f2 |&z...&..:.&.!. .|
000066e0 57 69 6d 70 5f 50 6f 6c 6c 53 61 76 65 46 69 6c |Wimp_PollSaveFil|
000066f0 65 28 77 69 6e 64 6f 77 25 29 0d 26 98 0a ea 66 |e(window%).&...f|
00006700 69 6c 65 24 0d 26 a2 40 20 77 69 6d 70 25 21 30 |ile$.&.@ wimp%!0|
00006710 3d 77 69 6e 64 6f 77 25 20 3a 20 77 69 6d 70 25 |=window% : wimp%|
00006720 21 34 3d 31 20 3a 20 c8 99 20 22 57 69 6d 70 5f |!4=1 : .. "Wimp_|
00006730 47 65 74 49 63 6f 6e 53 74 61 74 65 22 2c 2c 77 |GetIconState",,w|
00006740 69 6d 70 25 0d 26 ac 16 20 66 69 6c 65 24 3d 24 |imp%.&.. file$=$|
00006750 28 77 69 6d 70 25 21 32 38 29 0d 26 b6 15 20 c8 |(wimp%!28).&.. .|
00006760 8e 20 a7 66 69 6c 65 24 2c 22 2e 22 29 20 ca 0d |. .file$,".") ..|
00006770 26 c0 0d 20 20 c9 20 30 20 20 20 3a 0d 26 ca 40 |&.. . 0 :.&.@|
00006780 20 20 20 24 28 77 69 6d 70 25 2b 34 29 3d 22 54 | $(wimp%+4)="T|
00006790 6f 20 73 61 76 65 2c 20 64 72 61 67 20 74 68 65 |o save, drag the|
000067a0 20 69 63 6f 6e 20 74 6f 20 61 20 64 69 72 65 63 | icon to a direc|
000067b0 74 6f 72 79 20 77 69 6e 64 6f 77 22 0d 26 d4 2b |tory window".&.+|
000067c0 20 20 20 c8 99 20 22 57 69 6d 70 5f 52 65 70 6f | .. "Wimp_Repo|
000067d0 72 74 45 72 72 6f 72 22 2c 77 69 6d 70 25 2c 31 |rtError",wimp%,1|
000067e0 36 2c 74 61 73 6b 24 0d 26 de 08 20 20 7f 3a 0d |6,task$.&.. .:.|
000067f0 26 e8 25 20 20 20 f2 45 76 65 6e 74 5f 53 61 76 |&.% .Event_Sav|
00006800 65 46 69 6c 65 28 66 69 6c 65 24 2c 77 69 6e 64 |eFile(file$,wind|
00006810 6f 77 25 29 0d 26 f2 06 20 cb 0d 26 fc 1b 20 c8 |ow%).&.. ..&.. .|
00006820 99 22 57 69 6d 70 5f 43 72 65 61 74 65 4d 65 6e |."Wimp_CreateMen|
00006830 75 22 2c 2d 31 0d 27 06 05 e1 0d 27 10 05 3a 0d |u",-1.'....'..:.|
00006840 27 1a 20 dd 20 f2 57 69 6d 70 5f 50 6f 6c 6c 44 |'. . .Wimp_PollD|
00006850 72 61 67 42 6f 78 28 77 69 6e 64 6f 77 25 29 0d |ragBox(window%).|
00006860 27 24 0a ea 78 25 2c 79 25 0d 27 2e 12 20 73 61 |'$..x%,y%.'.. sa|
00006870 76 65 25 3d 77 69 6e 64 6f 77 25 0d 27 38 13 20 |ve%=window%.'8. |
00006880 21 77 69 6d 70 25 3d 77 69 6e 64 6f 77 25 0d 27 |!wimp%=window%.'|
00006890 42 23 20 c8 99 22 57 69 6d 70 5f 47 65 74 57 69 |B# .."Wimp_GetWi|
000068a0 6e 64 6f 77 53 74 61 74 65 22 2c 2c 77 69 6d 70 |ndowState",,wimp|
000068b0 25 0d 27 4c 2d 20 78 25 3d 77 69 6d 70 25 21 34 |%.'L- x%=wimp%!4|
000068c0 2d 77 69 6d 70 25 21 32 30 3a 79 25 3d 77 69 6d |-wimp%!20:y%=wim|
000068d0 70 25 21 31 36 2d 77 69 6d 70 25 21 32 34 0d 27 |p%!16-wimp%!24.'|
000068e0 56 0e 20 77 69 6d 70 25 21 34 3d 30 0d 27 60 21 |V. wimp%!4=0.'`!|
000068f0 20 c8 99 22 57 69 6d 70 5f 47 65 74 49 63 6f 6e | .."Wimp_GetIcon|
00006900 53 74 61 74 65 22 2c 2c 77 69 6d 70 25 0d 27 6a |State",,wimp%.'j|
00006910 13 20 21 77 69 6d 70 25 3d 77 69 6e 64 6f 77 25 |. !wimp%=window%|
00006920 0d 27 74 0e 20 77 69 6d 70 25 21 34 3d 35 0d 27 |.'t. wimp%!4=5.'|
00006930 7e 2c 20 77 69 6d 70 25 21 38 3d 78 25 2b 77 69 |~, wimp%!8=x%+wi|
00006940 6d 70 25 21 38 3a 77 69 6d 70 25 21 31 32 3d 79 |mp%!8:wimp%!12=y|
00006950 25 2b 77 69 6d 70 25 21 31 32 0d 27 88 2e 20 77 |%+wimp%!12.'.. w|
00006960 69 6d 70 25 21 31 36 3d 78 25 2b 77 69 6d 70 25 |imp%!16=x%+wimp%|
00006970 21 31 36 3a 77 69 6d 70 25 21 32 30 3d 79 25 2b |!16:wimp%!20=y%+|
00006980 77 69 6d 70 25 21 32 30 0d 27 92 1a 20 77 69 6d |wimp%!20.'.. wim|
00006990 70 25 21 32 34 3d 30 3a 77 69 6d 70 25 21 32 38 |p%!24=0:wimp%!28|
000069a0 3d 30 0d 27 9c 2a 20 77 69 6d 70 25 21 33 32 3d |=0.'.* wimp%!32=|
000069b0 26 37 46 46 46 46 46 46 46 3a 77 69 6d 70 25 21 |&7FFFFFFF:wimp%!|
000069c0 33 36 3d 26 37 46 46 46 46 46 46 46 0d 27 a6 1c |36=&7FFFFFFF.'..|
000069d0 20 c8 99 22 57 69 6d 70 5f 44 72 61 67 42 6f 78 | .."Wimp_DragBox|
000069e0 22 2c 2c 77 69 6d 70 25 0d 27 b0 05 e1 0d 27 ba |",,wimp%.'....'.|
000069f0 05 3a 0d 27 c4 18 dd 20 f2 57 69 6d 70 5f 50 6f |.:.'... .Wimp_Po|
00006a00 6c 6c 4b 65 79 50 72 65 73 73 0d 27 ce 31 20 20 |llKeyPress.'.1 |
00006a10 77 69 6e 64 6f 77 25 3d 77 69 6d 70 25 21 30 3a |window%=wimp%!0:|
00006a20 69 63 6f 6e 25 3d 77 69 6d 70 25 21 34 3a 6b 65 |icon%=wimp%!4:ke|
00006a30 79 25 3d 77 69 6d 70 25 21 32 34 0d 27 d8 1f 20 |y%=wimp%!24.'.. |
00006a40 20 c8 8e 20 a4 45 76 65 6e 74 5f 53 61 76 65 28 | .. .Event_Save(|
00006a50 77 69 6e 64 6f 77 25 29 20 ca 0d 27 e2 28 20 20 |window%) ..'.( |
00006a60 20 c9 20 b9 20 3a 20 f2 57 69 6d 70 50 6f 6c 6c | . . : .WimpPoll|
00006a70 5f 53 61 76 65 46 69 6c 65 28 77 69 6e 64 6f 77 |_SaveFile(window|
00006a80 25 29 0d 27 ec 2f 20 20 20 c9 20 a3 3a 20 f2 45 |%).'./ . .: .E|
00006a90 76 65 6e 74 5f 4b 65 79 50 72 65 73 73 28 77 69 |vent_KeyPress(wi|
00006aa0 6e 64 6f 77 25 2c 69 63 6f 6e 25 2c 6b 65 79 25 |ndow%,icon%,key%|
00006ab0 29 0d 27 f6 07 20 20 cb 0d 28 00 05 e1 0d 28 0a |).'.. ..(....(.|
00006ac0 05 3a 0d 28 14 1b dd 20 f2 57 69 6d 70 5f 50 6f |.:.(... .Wimp_Po|
00006ad0 6c 6c 53 61 76 65 4d 65 73 73 61 67 65 0d 28 1e |llSaveMessage.(.|
00006ae0 1e ea 66 69 6c 65 24 2c 77 69 6e 64 6f 77 25 2c |..file$,window%,|
00006af0 69 63 6f 6e 25 2c 78 25 2c 79 25 0d 28 28 23 20 |icon%,x%,y%.((# |
00006b00 c8 99 22 57 69 6d 70 5f 47 65 74 50 6f 69 6e 74 |.."Wimp_GetPoint|
00006b10 65 72 49 6e 66 6f 22 2c 2c 77 69 6d 70 25 0d 28 |erInfo",,wimp%.(|
00006b20 32 3a 20 77 69 6e 64 6f 77 25 3d 77 69 6d 70 25 |2: window%=wimp%|
00006b30 21 31 32 3a 69 63 6f 6e 25 3d 77 69 6d 70 25 21 |!12:icon%=wimp%!|
00006b40 31 36 3a 78 25 3d 77 69 6d 70 25 21 30 3a 79 25 |16:x%=wimp%!0:y%|
00006b50 3d 77 69 6d 70 25 21 34 0d 28 3c 3e 20 77 69 6d |=wimp%!4.(<> wim|
00006b60 70 25 21 30 3d 73 61 76 65 25 20 3a 20 77 69 6d |p%!0=save% : wim|
00006b70 70 25 21 34 3d 31 20 3a 20 c8 99 20 22 57 69 6d |p%!4=1 : .. "Wim|
00006b80 70 5f 47 65 74 49 63 6f 6e 53 74 61 74 65 22 2c |p_GetIconState",|
00006b90 2c 77 69 6d 70 25 0d 28 46 16 20 66 69 6c 65 24 |,wimp%.(F. file$|
00006ba0 3d 24 28 77 69 6d 70 25 21 32 38 29 0d 28 50 2b |=$(wimp%!28).(P+|
00006bb0 20 66 69 6c 65 24 3d a4 57 69 6d 70 5f 47 65 74 | file$=.Wimp_Get|
00006bc0 46 69 6c 65 46 72 6f 6d 50 61 74 68 6e 61 6d 65 |FileFromPathname|
00006bd0 28 66 69 6c 65 24 29 0d 28 5a 15 20 77 69 6d 70 |(file$).(Z. wimp|
00006be0 25 21 32 30 3d 77 69 6e 64 6f 77 25 0d 28 64 13 |%!20=window%.(d.|
00006bf0 20 77 69 6d 70 25 21 32 34 3d 69 63 6f 6e 25 0d | wimp%!24=icon%.|
00006c00 28 6e 1c 20 77 69 6d 70 25 21 32 38 3d 78 25 3a |(n. wimp%!28=x%:|
00006c10 77 69 6d 70 25 21 33 32 3d 79 25 0d 28 78 15 20 |wimp%!32=y%.(x. |
00006c20 77 69 6d 70 25 21 33 36 3d 6c 65 6e 67 74 68 25 |wimp%!36=length%|
00006c30 0d 28 82 0f 20 77 69 6d 70 25 21 30 3d 36 34 0d |.(.. wimp%!0=64.|
00006c40 28 8c 0f 20 77 69 6d 70 25 21 31 32 3d 30 0d 28 |(.. wimp%!12=0.(|
00006c50 96 0f 20 77 69 6d 70 25 21 31 36 3d 31 0d 28 a0 |.. wimp%!16=1.(.|
00006c60 12 20 77 69 6d 70 25 21 34 30 3d 26 46 46 46 0d |. wimp%!40=&FFF.|
00006c70 28 aa 16 20 24 28 77 69 6d 70 25 2b 34 34 29 3d |(.. $(wimp%+44)=|
00006c80 66 69 6c 65 24 0d 28 b4 34 20 c8 99 22 57 69 6d |file$.(.4 .."Wim|
00006c90 70 5f 53 65 6e 64 4d 65 73 73 61 67 65 22 2c 31 |p_SendMessage",1|
00006ca0 37 2c 77 69 6d 70 25 2c 77 69 6d 70 25 21 32 30 |7,wimp%,wimp%!20|
00006cb0 2c 77 69 6d 70 25 21 32 34 0d 28 be 05 e1 0d 28 |,wimp%!24.(....(|
00006cc0 c8 05 3a 0d 28 d2 18 dd 20 f2 57 69 6d 70 5f 50 |..:.(... .Wimp_P|
00006cd0 6f 6c 6c 4d 65 73 73 61 67 65 73 0d 28 dc 0b ea |ollMessages.(...|
00006ce0 20 66 69 6c 65 24 0d 28 e6 2c 66 69 6c 65 24 3d | file$.(.,file$=|
00006cf0 a4 57 69 6d 70 5f 47 65 74 53 74 72 69 6e 67 41 |.Wimp_GetStringA|
00006d00 74 41 64 64 72 65 73 73 28 77 69 6d 70 25 2b 34 |tAddress(wimp%+4|
00006d10 34 29 0d 28 f0 15 20 20 20 20 c8 8e 20 77 69 6d |4).(.. .. wim|
00006d20 70 25 21 31 36 20 ca 0d 28 fa 1a 20 20 20 20 20 |p%!16 ..(.. |
00006d30 c9 20 30 20 3a 20 66 69 6e 69 73 68 65 64 25 3d |. 0 : finished%=|
00006d40 b9 0d 29 04 0e 20 20 20 20 20 c9 20 31 20 3a 0d |..).. . 1 :.|
00006d50 29 0e 0e 20 20 20 20 20 c9 20 32 20 3a 0d 29 18 |).. . 2 :.).|
00006d60 2f 20 20 20 20 20 20 f4 20 50 52 4f 43 57 69 6d |/ . PROCWim|
00006d70 70 5f 49 63 6f 6e 50 75 74 54 65 78 74 28 73 61 |p_IconPutText(sa|
00006d80 76 65 25 2c 31 2c 66 69 6c 65 24 29 0d 29 22 43 |ve%,1,file$).)"C|
00006d90 20 20 20 20 20 20 77 69 6d 70 25 21 30 3d 73 61 | wimp%!0=sa|
00006da0 76 65 25 20 3a 20 77 69 6d 70 25 21 34 3d 31 20 |ve% : wimp%!4=1 |
00006db0 3a 20 c8 99 20 22 57 69 6d 70 5f 47 65 74 49 63 |: .. "Wimp_GetIc|
00006dc0 6f 6e 53 74 61 74 65 22 2c 2c 77 69 6d 70 25 0d |onState",,wimp%.|
00006dd0 29 2c 1b 20 20 20 20 20 20 24 28 77 69 6d 70 25 |),. $(wimp%|
00006de0 21 32 38 29 3d 66 69 6c 65 24 0d 29 36 3c 20 20 |!28)=file$.)6< |
00006df0 20 20 20 20 77 69 6d 70 25 21 30 3d 73 61 76 65 | wimp%!0=save|
00006e00 25 20 3a 20 77 69 6d 70 25 21 34 3d 31 20 3a 20 |% : wimp%!4=1 : |
00006e10 77 69 6d 70 25 21 38 3d 30 20 3a 20 77 69 6d 70 |wimp%!8=0 : wimp|
00006e20 25 21 31 32 3d 30 0d 29 40 27 20 20 20 20 20 20 |%!12=0.)@' |
00006e30 c8 99 20 22 57 69 6d 70 5f 53 65 74 49 63 6f 6e |.. "Wimp_SetIcon|
00006e40 53 74 61 74 65 22 2c 2c 77 69 6d 70 25 0d 29 4a |State",,wimp%.)J|
00006e50 30 20 20 20 20 20 20 f4 20 50 52 4f 43 57 69 6d |0 . PROCWim|
00006e60 70 5f 49 63 6f 6e 43 61 72 65 74 28 73 61 76 65 |p_IconCaret(save|
00006e70 25 2c 31 2c 4c 45 4e 66 69 6c 65 24 29 0d 29 54 |%,1,LENfile$).)T|
00006e80 38 20 20 20 20 20 20 c8 99 20 22 57 69 6d 70 5f |8 .. "Wimp_|
00006e90 53 65 74 43 61 72 65 74 50 6f 73 69 74 69 6f 6e |SetCaretPosition|
00006ea0 22 2c 73 61 76 65 25 2c 31 2c 2c 2c 2d 31 2c a9 |",save%,1,,,-1,.|
00006eb0 66 69 6c 65 24 0d 29 5e 26 20 20 20 20 20 20 f2 |file$.)^& .|
00006ec0 45 76 65 6e 74 5f 53 61 76 65 46 69 6c 65 28 66 |Event_SaveFile(f|
00006ed0 69 6c 65 24 2c 73 61 76 65 25 29 0d 29 68 0c 20 |ile$,save%).)h. |
00006ee0 20 20 20 20 c9 20 33 0d 29 72 47 20 20 20 20 20 | . 3.)rG |
00006ef0 20 74 79 70 65 24 3d a4 57 69 6d 70 5f 46 69 6c | type$=.Wimp_Fil|
00006f00 65 54 79 70 65 28 77 69 6d 70 25 21 34 30 29 20 |eType(wimp%!40) |
00006f10 3a 20 f2 45 76 65 6e 74 5f 4c 6f 61 64 46 69 6c |: .Event_LoadFil|
00006f20 65 28 66 69 6c 65 24 2c 74 79 70 65 24 29 0d 29 |e(file$,type$).)|
00006f30 7c 09 20 20 20 20 cb 0d 29 86 05 e1 0d 29 90 05 ||. ..)....)..|
00006f40 3a 0d 29 9a 26 dd 20 a4 57 69 6d 70 5f 47 65 74 |:.).&. .Wimp_Get|
00006f50 53 74 72 69 6e 67 41 74 41 64 64 72 65 73 73 28 |StringAtAddress(|
00006f60 61 72 72 61 79 25 29 0d 29 a4 0d ea 73 24 3a 73 |array%).)...s$:s|
00006f70 24 3d 22 22 0d 29 ae 3c c8 95 28 3f 61 72 72 61 |$="".).<..(?arra|
00006f80 79 25 3c 3e 31 33 29 80 28 3f 61 72 72 61 79 25 |y%<>13).(?array%|
00006f90 3c 3e 30 29 3a 73 24 2b 3d bd 28 3f 61 72 72 61 |<>0):s$+=.(?arra|
00006fa0 79 25 29 3a 61 72 72 61 79 25 2b 3d 31 3a ce 3a |y%):array%+=1:.:|
00006fb0 0d 29 b8 07 3d 73 24 0d 29 c2 05 3a 0d 29 cc 23 |.)..=s$.)..:.).#|
00006fc0 dd 20 a4 57 69 6d 70 5f 47 65 74 46 69 6c 65 46 |. .Wimp_GetFileF|
00006fd0 72 6f 6d 50 61 74 68 6e 61 6d 65 28 66 24 29 0d |romPathname(f$).|
00006fe0 29 d6 11 c8 8e 20 a7 66 24 2c 22 2e 22 29 20 ca |).... .f$,".") .|
00006ff0 0d 29 e0 10 20 c9 20 30 20 20 20 20 3a 3d 66 24 |.).. . 0 :=f$|
00007000 0d 29 ea 37 20 7f 20 3a 3d a4 57 69 6d 70 5f 47 |.).7 . :=.Wimp_G|
00007010 65 74 46 69 6c 65 46 72 6f 6d 50 61 74 68 6e 61 |etFileFromPathna|
00007020 6d 65 28 c2 66 24 2c a9 28 66 24 29 2d a7 66 24 |me(.f$,.(f$)-.f$|
00007030 2c 22 2e 22 29 29 29 0d 29 f4 05 cb 0d 29 fe 05 |,"."))).)....)..|
00007040 3a 0d 2a 08 1b dd 20 a4 57 69 6d 70 5f 46 69 6c |:.*... .Wimp_Fil|
00007050 65 54 79 70 65 28 74 79 70 65 25 29 0d 2a 12 0c |eType(type%).*..|
00007060 c8 8e 74 79 70 65 25 ca 0d 2a 1c 11 c9 26 46 46 |..type%..*...&FF|
00007070 46 3a 3d 22 54 65 78 74 22 0d 2a 26 11 c9 26 46 |F:="Text".*&..&F|
00007080 46 44 3a 3d 22 44 61 74 61 22 0d 2a 30 12 c9 26 |FD:="Data".*0..&|
00007090 46 46 42 3a 3d 22 42 61 73 69 63 22 0d 2a 3a 13 |FFB:="Basic".*:.|
000070a0 c9 26 46 46 39 3a 3d 22 53 70 72 69 74 65 22 0d |.&FF9:="Sprite".|
000070b0 2a 44 14 c9 26 46 45 44 3a 3d 22 50 61 6c 65 74 |*D..&FED:="Palet|
000070c0 74 65 22 0d 2a 4e 15 c9 26 46 45 43 3a 3d 22 54 |te".*N..&FEC:="T|
000070d0 65 6d 70 6c 61 74 65 22 0d 2a 58 11 c9 26 41 46 |emplate".*X..&AF|
000070e0 46 3a 3d 22 44 72 61 77 22 0d 2a 62 14 c9 26 31 |F:="Draw".*b..&1|
000070f0 30 30 30 3a 3d 22 46 6f 6c 64 65 72 22 0d 2a 6c |000:="Folder".*l|
00007100 19 c9 26 32 30 30 30 3a 3d 22 41 70 70 6c 69 63 |..&2000:="Applic|
00007110 61 74 69 6f 6e 22 0d 2a 76 0f 7f 3d c3 7e 28 74 |ation".*v..=.~(t|
00007120 79 70 65 25 29 0d 2a 80 05 cb 0d 2a 8a 05 3a 0d |ype%).*....*..:.|
00007130 2a 94 04 0d ff |*....|
00007135 
.