Home » Archimedes archive » Archimedes World » AW-1994-06-Disc1.adf » Disk1Jun94 » !AWJune94/Goodies/Trickster/!Trickster/!RunImage
!AWJune94/Goodies/Trickster/!Trickster/!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-1994-06-Disc1.adf » Disk1Jun94 |
| Filename: | !AWJune94/Goodies/Trickster/!Trickster/!RunImage |
| Read OK: | ✔ |
| File size: | C9F1 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10fileload$=" "
20SYS "OS_GetEnv" TO env$
30IF INSTR(env$," -quit ") THEN
40fileload$=MID$(env$,INSTR(env$,CHR$(34),INSTR(env$,CHR$(34))+1)+1)
50ENDIF
60REM OpSys%=0
70REM SYS "OS_Byte",129,0,&FF TO OpSys%
80REM IF OpSys%=&A1 THEN OSCLI"ERROR Trickster will not work with RISC OS 2. Sorry!!":END
90SYS "OS_GetEnv" TO env$
100IF INSTR(env$," -quit ") THEN
110fileload$=MID$(env$,INSTR(env$,CHR$(34),INSTR(env$,CHR$(34))+1)+1)
120ENDIF
130SYS &00000006,129,0,&FF TO ,os_version%
140CASE os_version% OF
150WHEN &A3,&A4
160dragicons%=TRUE
170OTHERWISE
180dragicons%=FALSE
190ENDCASE
200 PROCWimp_Start("Trickster",3000,2537)
210 PROCUser_SetInitialData
220 PROCCreate_Windows
230 PROCCreate_Menus
240IF fileload$<>" " THEN
250PROCEvent_LoadFile(fileload$,"ACE")
260PROCWimp_IconPutText(Save_Window%,1,fileload$)
270ENDIF
280
290 PROCWimp_WaitForEvent
300 PROCWimp_CloseDown
310 END
320 :
330 DEF PROCUser_SetInitialData
340 DOSAVE%=TRUE
350 Z=0
360 PCHEAT%=TRUE
370 PMODULE%=TRUE
380 TYPE%=TRUE
390 STA%=FALSE
400 DRIVER%=FALSE
410 DIM title% 256
420 SNUM%=-2
430 num=0
440 AAA%=FALSE
450 pos%=0
460 WI$="NONE"
470 SCO%=0
480 dim=200
490 DIM pos%(dim)
500 DIM hacker$(dim,25)
510 DIM name$(dim)
520 DIM info$(dim,7)
530 DIM hack$(dim)
540 DIM hack%(dim)
550 hack%()=FALSE
560 hack$()=""
570 name$()=""
580 info$()=""
590 cur%=0
600 tot%=0
610SA%=FALSE
620UPDATE%=FALSE
630CD%=FALSE
640 ENDPROC
650 :
660 DEF PROCCreate_Windows
670 PROCWimp_SpritesLoad
680 Info_Window%=FNWimp_WindowLoad("Info")
690 Save_Window%=FNWimp_WindowLoad("Save")
700 Close_Window%=FNWimp_WindowLoad("Close")
710 Save2_Window%=FNWimp_WindowLoad("Save2")
720 Main_Window%=FNWimp_WindowLoad("Main")
730 Tools_Window%=FNWimp_WindowLoad("Tools")
740 Title_Window%=FNWimp_WindowLoad("Title")
750 Bot_Window%=FNWimp_WindowLoad("Bot")
760 Hacker_Window%=FNWimp_WindowLoad("Hacker")
770 Bar_Icon%=FNWimp_IconBar("!Trickster")
780 ENDPROC
790 :
800 DEF FNEvent_Save(window%)
810 CASE window% OF
820 WHEN Save_Window% :=TRUE
830 WHEN Save2_Window% :=TRUE
840 OTHERWISE :=FALSE
850 ENDCASE
860 =FALSE
870 :
880 DEF FNEvent_Sprites(window%)=sprites%
890 :
900 DEF PROCCreate_Menus
910 save%=FNWimp_MenuCreate("Save\Tricks>Save_Window%\Text>Save2_Window%")
920 menu$="Trickster\Info>Info_Window%\Save>save%\Quit"
930 Bar_Menu%=FNWimp_MenuCreate(menu$)
940 PROCWimp_MenuDisable(Bar_Menu%,2)
950 ENDPROC
960 :
970 DEF FNEvent_Menu(window%)
980 CASE window% OF
990 WHEN Bar_Window% : =Bar_Menu%
1000 WHEN Main_Window%,Tools_Window%,Bot_Window% : =Bar_Menu%
1010 WHEN Title_Window% : =Bar_Menu%
1020 OTHERWISE : =FALSE
1030 ENDCASE
1040 =FALSE
1050 :
1060 DEF PROCEvent_WindowClose(window%,buttons%)
1070 CASE window% OF
1080 WHEN Main_Window%
1090 PROCread
1100 PROCWimp_WindowClose(Bot_Window%)
1110 PROCWimp_WindowClose(Tools_Window%)
1120 WI$="TITLE"
1130 PROCWimp_WindowBringToTop(Title_Window%)
1140 WHEN Title_Window%
1150 WI$="NONE"
1160 ENDCASE
1170 ENDPROC
1180 :
1190 DEF PROCEvent_Draw(window%,x_origin%,y_origin%)
1200 CASE window% OF
1210 WHEN Info_Window% : PROCUser_DrawInfoWindow
1220 WHEN Save_Window% : PROCUser_DrawSaveWindow
1230 WHEN Close_Window% : PROCUser_DrawCloseWindow
1240 WHEN Save2_Window% : PROCUser_DrawSave2Window
1250 WHEN Main_Window% : PROCUser_DrawMainWindow
1260 WHEN Tools_Window% : PROCUser_DrawToolsWindow
1270 WHEN Title_Window% : PROCUser_DrawTitleWindow
1280 WHEN Bot_Window% : PROCUser_DrawBotWindow
1290 WHEN Hacker_Window% : PROCUser_DrawHackerWindow
1300 ENDCASE
1310 ENDPROC
1320 :
1330 DEF PROCUser_DrawInfoWindow
1340 ENDPROC
1350 :
1360 DEF PROCUser_DrawHackerWindow
1370 MOVE x_origin%-7,y_origin%-48
1380 PRINT LEFT$(hacker$(cur%,0),LEN(hacker$(cur%,0))-6)
1390 MOVE x_origin%-7,y_origin%-140
1400 PRINT MID$(hacker$(cur%,1),12,LEN(hacker$(cur%,1))-8)
1410 MOVE x_origin%-7,y_origin%-232
1420 PRINT MID$(hacker$(cur%,2),6,LEN(hacker$(cur%,2)))
1430 FOR A=0 TO pos%(cur%)-4
1440 MOVE x_origin%-7,(y_origin%-324)-(A*32)
1450 PRINT hacker$(cur%,A+3)
1460 NEXTA
1470 ENDPROC
1480 :
1490 DEF PROCUser_DrawSaveWindow
1500 ENDPROC
1510 :
1520 DEF PROCUser_DrawCloseWindow
1530 ENDPROC
1540 :
1550 DEF PROCUser_DrawSave2Window
1560 ENDPROC
1570 :
1580 DEF PROCUser_DrawMainWindow
1590 ENDPROC
1600 :
1610 DEF PROCUser_DrawToolsWindow
1620 ENDPROC
1630 :
1640 DEF PROCUser_DrawTitleWindow
1650 ENDPROC
1660 :
1670 DEF PROCUser_DrawBotWindow
1680 SYS"Wimp_SetColour",1
1690 RECTANGLE FILL (x_origin%+102),y_origin%-702,458,30
1700 SYS"Wimp_SetColour",11
1710 len=458/(tot%+1)
1720 poss=cur%*len
1730 RECTANGLE FILL (x_origin%+102)+poss,y_origin%-702,len,30
1740 ENDPROC
1750 :
1760 DEF PROCEvent_MouseClick(window%,icon%,button%,x%,y%)
1770 CASE window% OF
1780 WHEN Bar_Window% : PROCUser_MouseBar
1790 WHEN Info_Window% : PROCUser_MouseInfo( button%,icon%)
1800 WHEN Close_Window% : PROCUser_MouseClose( button%,icon%)
1810 WHEN Main_Window% : PROCUser_MouseMain( button%,icon%)
1820 WHEN Tools_Window% : PROCUser_MouseTools( button%,icon%)
1830 WHEN Title_Window% : PROCUser_MouseTitle( button%,icon%)
1840 WHEN Bot_Window% : PROCUser_MouseBot( button%,icon%)
1850 ENDCASE
1860 ENDPROC
1870 :
1880 DEF PROCUser_MouseBar
1890 IF WI$="MAIN" AND SA%=FALSE THEN PROCWimp_WindowBringToTop(Main_Window%):PROCWimp_WindowBringToTop(Main_Window%)
1900 IF WI$="TITLE" AND SA%=FALSE THEN PROCWimp_WindowBringToTop(Title_Window%)
1910 IF WI$="NONE" AND SA%=FALSE THEN PROCWimp_WindowBringToTop(Title_Window%):WI$="TITLE"
1920 ENDPROC
1930 :
1940 DEF PROCUser_MouseInfo( button%,icon%)
1950 ENDPROC
1960 :
1970 DEF PROCUser_MouseClose( button%,icon%)
1980 IF icon%=1 THEN
1990SA%=TRUE
2000PROCunbox
2010PROCWimp_WindowClose(Close_Window%)
2020UPDATE%=FALSE
2030PROCWimp_WindowBringToTop(Save_Window%)
2040A$=FNWimp_IconText(Save_Window%,1)
2050PROCWimp_IconCaret(Save_Window%,1,LEN(A$))
2060ENDIF
2070 IF icon%=2 THEN
2080PROCunbox
2090UPDATE%=FALSE
2100PROCWimp_WindowClose(Close_Window%)
2110CD%=TRUE
2120ENDIF
2130 IF icon%=3 THEN
2140PROCunbox
2150PROCWimp_WindowClose(Close_Window%)
2160ENDIF
2170IF CD%=TRUE THEN PROCWimp_CloseDown
2180 ENDPROC
2190 :
2200 DEF PROCUser_MouseMain( button%,icon%)
2210 ENDPROC
2220 :
2230 DEF PROCUser_MouseTools( button%,icon%)
2240 IF icon%=4 THEN
2250 UPDATE%=TRUE
2260 PROCread
2270 PROCsort
2280 PROCupdate
2290 ENDIF
2300 IF icon%=3 THEN
2310 check%=FNWimp_WindowCancel("!Trickster","Are you sure you want to delete this record ?")
2320 IF check%=TRUE THEN
2330 UPDATE%=TRUE
2340 FOR A=cur% TO tot%
2350 name$(A)=name$(A+1)
2360 FOR B=0 TO 7
2370 info$(A,B)=info$(A+1,B)
2380 NEXTB
2390 hack$(A)=hack$(A+1)
2400 hack%(A)=hack%(A+1)
2410 FOR B=0 TO 25
2420 hacker$(A,B)=hacker$(A+1,B)
2430 NEXTB
2440 pos%(A)=pos%(A+1)
2450 NEXTA
2460 tot%-=1
2470PROCWimp_IconPutText(Main_Window%,6,"")
2480FOR A=10 TO 17
2490PROCWimp_IconPutText(Main_Window%,A,"")
2500NEXTA
2510PROCWimp_IconPutText(Bot_Window%,4,"")
2520 PROCupdate
2530 IF cur%=tot% THEN
2540PROCWimp_IconEnable(Tools_Window%,2)
2550PROCWimp_IconDisable(Tools_Window%,8)
2560PROCWimp_IconDisable(Tools_Window%,9)
2570PROCWimp_IconDisable(Tools_Window%,3)
2580ENDIF
2590IF tot%<2 THEN PROCWimp_IconDisable(Tools_Window%,4)
2600IF tot%=0 THEN
2610 PROCWimp_IconDisable(Bot_Window%,12)
2620 PROCWimp_IconDisable(Bot_Window%,15)
2630 PROCWimp_IconDisable(Bot_Window%,18)
2640 PROCWimp_MenuDisable(Bar_Menu%,2)
2650ENDIF
2660 ENDIF
2670 ENDIF
2680 IF (icon%=8 AND button%=4) OR (icon%=11 AND button%=1 AND cur%<tot%) THEN
2690 UPDATE%=TRUE
2700PROCread
2710cur%+=1
2720PROCupdate
2730 IF cur%=tot% THEN
2740PROCWimp_IconEnable(Tools_Window%,2)
2750PROCWimp_IconDisable(Tools_Window%,8)
2760PROCWimp_IconDisable(Tools_Window%,9)
2770PROCWimp_IconDisable(Tools_Window%,3)
2780ENDIF
2790PROCWimp_IconEnable(Tools_Window%,10)
2800PROCWimp_IconEnable(Tools_Window%,11)
2810 ENDIF
2820 IF (icon%=9 AND button%=4) OR (icon%=10 AND button%=1) THEN
2830 UPDATE%=TRUE
2840PROCread
2850cur%=tot%
2860PROCupdate
2870 IF cur%=tot% THEN
2880PROCWimp_IconEnable(Tools_Window%,2)
2890PROCWimp_IconDisable(Tools_Window%,8)
2900PROCWimp_IconDisable(Tools_Window%,9)
2910PROCWimp_IconDisable(Tools_Window%,3)
2920ENDIF
2930PROCWimp_IconEnable(Tools_Window%,10)
2940PROCWimp_IconEnable(Tools_Window%,11)
2950 ENDIF
2960 IF (icon%=11 AND button%=4) OR (icon%=8 AND button%=1 AND cur%>0) THEN
2970 UPDATE%=TRUE
2980 PROCWimp_IconDisable(Tools_Window%,2)
2990 PROCWimp_IconEnable(Tools_Window%,8)
3000 PROCWimp_IconEnable(Tools_Window%,9)
3010 PROCWimp_IconEnable(Tools_Window%,3)
3020 IF cur%=tot% THEN
3030 PROCWimp_IconPutText(Main_Window%,6,"")
3040 FOR A=10 TO 17
3050 PROCWimp_IconPutText(Main_Window%,A,"")
3060 NEXTA
3070 PROCWimp_IconPutText(Bot_Window%,4,"")
3080 hack%(cur%)=FALSE
3090 ENDIF
3100 PROCread
3110 cur%-=1
3120 IF cur%=0 THEN
3130PROCWimp_IconDisable(Tools_Window%,10)
3140PROCWimp_IconDisable(Tools_Window%,11)
3150ENDIF
3160 PROCupdate
3170 ENDIF
3180 IF (icon%=10 AND button%=4) OR (icon%=9 AND button%=1) THEN
3190 UPDATE%=TRUE
3200 PROCWimp_IconDisable(Tools_Window%,2)
3210 PROCWimp_IconEnable(Tools_Window%,8)
3220 PROCWimp_IconEnable(Tools_Window%,9)
3230 PROCWimp_IconEnable(Tools_Window%,3)
3240 IF cur%=tot% THEN
3250 PROCWimp_IconPutText(Main_Window%,6,"")
3260 FOR A=10 TO 17
3270 PROCWimp_IconPutText(Main_Window%,A,"")
3280 NEXTA
3290 PROCWimp_IconPutText(Bot_Window%,4,"")
3300 hack%(cur%)=FALSE
3310 ENDIF
3320 PROCread
3330 cur%=0
3340 IF cur%=0 THEN
3350 PROCWimp_IconDisable(Tools_Window%,10)
3360 PROCWimp_IconDisable(Tools_Window%,11)
3370 ENDIF
3380
3390 PROCupdate
3400
3410 ENDIF
3420 IF icon%=2 THEN
3430 UPDATE%=TRUE
3440 IF FNWimp_IconText(Main_Window%,6)<>"" THEN
3450 PROCread
3460 tot%+=1
3470 cur%+=1
3480 IF tot%>0 THEN PROCWimp_MenuEnable(Bar_Menu%,2)
3490 IF tot%>1 THEN PROCWimp_IconEnable(Tools_Window%,4)
3500 PROCWimp_IconEnable(Tools_Window%,10)
3510 PROCWimp_IconEnable(Tools_Window%,11)
3520 IF DRIVER%=TRUE THEN PROCWimp_IconEnable(Bot_Window%,12)
3530 PROCWimp_IconEnable(Bot_Window%,15)
3540 PROCWimp_IconEnable(Bot_Window%,18)
3550 PROCupdate
3560 ELSE
3570 PROCWimp_WindowErrorBox("Trickster","Please enter some text into the game name icon and press 'ADD'.")
3580 ENDIF
3590 ENDIF
3600 IF icon%=5 THEN
3610 PROCWimp_SelectIcon(Tools_Window%,5)
3620 IF SCO%=-192 THEN PROCWimp_UnselectIcon(Tools_Window%,6)
3630 IF SCO%=-384 THEN PROCWimp_UnselectIcon(Tools_Window%,7)
3640 IF SCO%=-576 THEN PROCWimp_UnselectIcon(Tools_Window%,12)
3650 SCO%=0
3660 PROCscroll
3670 ENDIF
3680 IF icon%=6 THEN
3690 PROCWimp_SelectIcon(Tools_Window%,6)
3700 IF SCO%=0 THEN PROCWimp_UnselectIcon(Tools_Window%,5)
3710 IF SCO%=-384 THEN PROCWimp_UnselectIcon(Tools_Window%,7)
3720 IF SCO%=-576 THEN PROCWimp_UnselectIcon(Tools_Window%,12)
3730 SCO%=-192
3740 PROCscroll
3750 ENDIF
3760 IF icon%=7 THEN
3770 PROCWimp_SelectIcon(Tools_Window%,7)
3780 IF SCO%=-192 THEN PROCWimp_UnselectIcon(Tools_Window%,6)
3790 IF SCO%=0 THEN PROCWimp_UnselectIcon(Tools_Window%,5)
3800 IF SCO%=-576 THEN PROCWimp_UnselectIcon(Tools_Window%,12)
3810 SCO%=-384
3820 PROCscroll
3830 ENDIF
3840 IF icon%=12 THEN
3850 PROCWimp_SelectIcon(Tools_Window%,12)
3860 IF SCO%=-192 THEN PROCWimp_UnselectIcon(Tools_Window%,6)
3870 IF SCO%=0 THEN PROCWimp_UnselectIcon(Tools_Window%,5)
3880 IF SCO%=-384 THEN PROCWimp_UnselectIcon(Tools_Window%,7)
3890 SCO%=-576
3900 PROCscroll
3910 ENDIF
3920 IF icon%=8 OR icon%=9 OR icon%=10 OR icon%=11 THEN
3930IF FNisopen(Hacker_Window%) THEN
3940IF hack%(cur%)=TRUE THEN
3950PROCwinsiz
3960PROCWimp_WindowBringToTop(Hacker_Window%)
3970PROCWimp_WindowForceDraw(Hacker_Window%)
3980ENDIF
3990ELSE
4000PROCWimp_WindowClose(Hacker_Window%)
4010ENDIF
4020ENDIF
4030 ENDPROC
4040 :
4050 DEF PROCUser_MouseTitle( button%,icon%)
4060 IF icon%=8 OR icon%=9 THEN PROCWimp_WindowClose(Title_Window%)
4070 IF icon%=8 THEN WI$="NONE"
4080 IF icon%=9 THEN WI$="MAIN":PROCWimp_WindowBringToTop(Main_Window%):PROCWimp_WindowBringToTop(Main_Window%):PROCupdate
4090 ENDPROC
4100 :
4110 DEF PROCUser_MouseBot( button%,icon%)
4120 LOCAL ERROR
4130 ON ERROR LOCAL PROCerror:ENDPROC
4140IF icon%=34 THEN
4150PCHEAT% = NOT PCHEAT%
4160IF PCHEAT%=FALSE AND PMODULE%=FALSE THEN PCHEAT%=TRUE
4170IF PCHEAT%=TRUE THEN PROCWimp_SelectIcon(Bot_Window%,34) ELSE PROCWimp_UnselectIcon(Bot_Window%,34)
4180ENDIF
4190IF icon%=35 THEN
4200PMODULE% = NOT PMODULE%
4210IF PMODULE%=FALSE AND PCHEAT%=FALSE THEN PMODULE%=TRUE
4220IF PMODULE%=TRUE THEN PROCWimp_SelectIcon(Bot_Window%,35) ELSE PROCWimp_UnselectIcon(Bot_Window%,35)
4230ENDIF
4240 IF icon%=38 THEN OSCLI("Filer_OpenDir <Trickster$Dir>.TrickMods")
4250 IF icon%=12 THEN PROCprint
4260 IF icon%=23 THEN PROCWimp_SelectIcon(Bot_Window%,23):TYPE%=TRUE
4270 IF icon%=24 THEN PROCWimp_SelectIcon(Bot_Window%,24):TYPE%=FALSE
4280 IF icon%=15 THEN
4290 IF FNWimp_IconText(Bot_Window%,18)<>"" THEN
4300 PROCsearch
4310 ELSE
4320 PROCWimp_WindowErrorBox("!Trickster","Please enter a search string")
4330 ENDIF
4340 ENDIF
4350 IF icon%=39 THEN
4360 VDU21
4370 OSCLI ("RMLOAD "+hack$(cur%))
4380 VDU6
4390 ENDIF
4400 IF icon%=20 THEN
4410PROCwinsiz
4420PROCWimp_WindowBringToTop(Hacker_Window%)
4430ENDIF
4440 IF icon%=6 OR icon%=8 OR icon%=10 OR icon%=37 THEN
4450PROCread
4460PROCWimp_WindowClose(Bot_Window%)
4470PROCWimp_WindowClose(Tools_Window%)
4480PROCWimp_WindowClose(Main_Window%)
4490WI$="TITLE"
4500PROCWimp_WindowBringToTop(Title_Window%)
4510ENDIF
4520 IF icon%=5 OR icon%=2 AND hack$(cur%)<>"" THEN
4530 UPDATE%=TRUE
4540 hack%(cur%)=NOT hack%(cur%)
4550 IF hack%(cur%)=TRUE THEN
4560PROCWimp_SelectIcon(Bot_Window%,5)
4570PROCWimp_IconEnable(Bot_Window%,4)
4580PROCWimp_IconEnable(Bot_Window%,39)
4590PROCWimp_IconEnable(Bot_Window%,20)
4600ELSE
4610PROCWimp_UnselectIcon(Bot_Window%,5)
4620PROCWimp_IconDisable(Bot_Window%,4)
4630PROCWimp_IconDisable(Bot_Window%,39)
4640PROCWimp_IconDisable(Bot_Window%,20)
4650ENDIF
4660 ENDIF
4670 ENDPROC
4680 :
4690 DEF PROCEvent_KeyPress(window%,icon%,key%)
4700 CASE window% OF
4710 WHEN Main_Window% : PROCUser_KeyPressMain( icon%,key%)
4720 WHEN Bot_Window% : PROCUser_KeyPressBot( icon%,key%)
4730 ENDCASE
4740 ENDPROC
4750 :
4760 DEF PROCUser_KeyPressMain( icon%,key%)
4770 REM PROCWimp_WindowAlert("Main","Key pressed="+STR$key%+"icon="+STR$icon%)
4780 IF icon%=17 AND key%=13 AND cur%=tot% THEN PROCUser_MouseTools(4,2)
4790 IF icon%=17 AND key%=13 AND cur%<tot% THEN PROCUser_MouseTools(4,8)
4800 IF icon%=6 AND (key%=13 OR key%=398) THEN PROCWimp_IconCaret(Main_Window%,10,LEN(FNWimp_IconText(Main_Window%,10)))
4810 IF icon%=6 AND key%=399 THEN PROCWimp_IconCaret(Main_Window%,17,LEN(FNWimp_IconText(Main_Window%,17)))
4820 ENDPROC
4830 :
4840 DEF PROCUser_KeyPressBot( icon%,key%)
4850 ENDPROC
4860 :
4870 DEF PROCEvent_MenuChoice(menu%)
4880 CASE menu% OF
4890 WHEN Bar_Menu% : PROCUser_MenuChoiceBar
4900 ENDCASE
4910 ENDPROC
4920 :
4930 DEF PROCUser_MenuChoiceBar
4940 CASE FNWimp_MenuChoice(0) OF
4950 WHEN 1 :
4960 WHEN 3
4970IF UPDATE%=TRUE THEN
4980PROCWimp_IconPutText(Close_Window%,0,"This file has been modified")
4990PROCWimp_WindowBringToTop(Close_Window%)
5000PROCmousebox(Close_Window%)
5010ENDIF
5020IF UPDATE%=FALSE THEN finished%=TRUE
5030 ENDCASE
5040 ENDPROC
5050 :
5060 DEF PROCEvent_LoadFile(file$,type$)
5070 LOCAL ERROR
5080 ON ERROR LOCAL PROCerror:ENDPROC
5090IF type$="BBD" THEN
5100PROCWimp_WindowAlert("!Trickster","Can not accept 'CheatData' files, please convert using !Pad>Trick")
5110ENDIF
5120IF type$="ACE" THEN
5130IF UPDATE%=TRUE THEN
5140check%=FNWimp_WindowCancel("!Trickster","The current file has been modified, are you sure you want to load a new one ?")
5150IF check%=TRUE THEN UPDATE%=FALSE
5160ENDIF
5170IF UPDATE%=FALSE THEN
5180UPDATE%=FALSE
5190PROCWimp_IconPutText(Save_Window%,1,file$)
5200X%=OPENIN(file$)
5210IF X%<>0 THEN
5220INPUT #X%,tot%
5230FOR A=0 TO tot%
5240INPUT #X%,pos%(A)
5250FOR B=0 TO 25
5260INPUT #X%,hacker$(A,B)
5270NEXTB
5280INPUT #X%,name$(A)
5290FOR B=0 TO 7
5300INPUT #X%,info$(A,B)
5310NEXTB
5320INPUT #X%,hack$(A)
5330INPUT #X%,hack%(A)
5340ENDIF
5350NEXTA
5360CLOSE#X%
5370cur%=0
5380PROCWimp_IconDisable(Tools_Window%,10)
5390PROCWimp_IconDisable(Tools_Window%,11)
5400IF cur%<tot% THEN
5410PROCWimp_IconEnable(Tools_Window%,9)
5420PROCWimp_IconEnable(Tools_Window%,8)
5430PROCWimp_IconEnable(Tools_Window%,3)
5440PROCWimp_IconDisable(Tools_Window%,2)
5450ENDIF
5460IF tot%>0 THEN
5470PROCWimp_MenuEnable(Bar_Menu%,2)
5480ENDIF
5490IF tot%=0 THEN
5500PROCWimp_MenuDisable(Bar_Menu%,2)
5510PROCWimp_IconDisable(Tools_Window%,8)
5520PROCWimp_IconDisable(Tools_Window%,9)
5530PROCWimp_IconDisable(Tools_Window%,3)
5540PROCWimp_IconEnable(Tools_Window%,2)
5550ENDIF
5560IF tot%<2 THEN
5570 PROCWimp_IconDisable(Tools_Window%,4)
5580 PROCWimp_IconDisable(Bot_Window%,12)
5590 PROCWimp_IconDisable(Bot_Window%,15)
5600 PROCWimp_IconDisable(Bot_Window%,18)
5610ENDIF
5620IF tot%>1 THEN
5630 PROCWimp_IconEnable(Tools_Window%,4)
5640 IF DRIVER%=TRUE THEN PROCWimp_IconEnable(Bot_Window%,12)
5650 PROCWimp_IconEnable(Bot_Window%,15)
5660 PROCWimp_IconEnable(Bot_Window%,18)
5670ENDIF
5680PROCWimp_WindowBringToTop(Title_Window%)
5690PROCWimp_WindowClose(Hacker_Window%)
5700PROCWimp_WindowClose(Bot_Window%)
5710PROCWimp_WindowClose(Tools_Window%)
5720PROCWimp_WindowClose(Main_Window%)
5730PROCupdate
5740ENDIF
5750ENDIF
5760 SYS"Wimp_GetPointerInfo",,wimp%
5770 IF wimp%!16=3 AND wimp%!12=Bot_Window% THEN
5780 IF type$="FFA" THEN
5790REM LOCAL ERROR
5800REM ON ERROR LOCAL PROCerror2:ENDPROC
5810X%=OPENIN(file$)
5820IF X%<>0 THEN
5830CLOSE#X%
5840SYS"Hourglass_On"
5850 UPDATE%=TRUE
5860PROCcheckmodule(file$)
5870pos%(cur%)=pos%
5880IF DOSAVE%=TRUE THEN
5890IF LEFT$(hacker$(cur%,pos%(cur%)-1),1)<>CHR$(160) THEN
5900PROCcutlong(hacker$(cur%,pos%(cur%)-1),pos%-1)
5910pos%(cur%)=pos%(cur%)+(B%)
5920ENDIF
5930IF FNisopen(Hacker_Window%) THEN
5940PROCwinsiz
5950PROCWimp_WindowBringToTop(Hacker_Window%)
5960PROCWimp_WindowForceDraw(Hacker_Window%)
5970ENDIF
5980pos%=0
5990hack%(cur%)=TRUE
6000PROCWimp_IconEnable(Bot_Window%,4)
6010PROCWimp_SelectIcon(Bot_Window%,5)
6020PROCWimp_IconEnable(Bot_Window%,39)
6030PROCWimp_IconEnable(Bot_Window%,20)
6040PROCWimp_IconEnable(Bot_Window%,5)
6050REM hack$(cur%)=file$
6060a$=FNWimp_GetFileFromPathname(file$)
6070AA%=FNnacheck(file$)
6080IF AA%=TRUE THEN hack$(cur%)="<Trickster$Dir>.TrickMods."+FNWimp_GetFileFromPathname(file$) ELSE hack$(cur%)=file$
6090PROCWimp_IconPutText(Bot_Window%,4,FNWimp_GetFileFromPathname(hack$(cur%)))
6100ENDIF
6110SYS"Hourglass_Smash"
6120ENDIF
6130ENDIF
6140 ENDIF
6150 ENDPROC
6160 :
6170 DEF PROCEvent_SaveFile(file$,window%)
6180 LOCAL ERROR
6190 ON ERROR LOCAL PROCerror:ENDPROC
6200 CASE window% OF
6210 WHEN Save_Window%
6220X%=OPENIN(file$)
6230IF X%<>0 THEN
6240check%=FNWimp_WindowCancel("!Trickster","This file already exists, overwrite ?")
6250IF check%=TRUE THEN X%=0
6260CLOSE#X%
6270ENDIF
6280IF X%=0 THEN
6290IF DOSAVE%=TRUE THEN
6300 IF cur%=tot% THEN
6310 PROCWimp_IconPutText(Main_Window%,6,"")
6320 FOR A=10 TO 17
6330 PROCWimp_IconPutText(Main_Window%,A,"")
6340 NEXTA
6350 PROCWimp_IconPutText(Bot_Window%,4,"")
6360 hack%(cur%)=FALSE
6370 ENDIF
6380PROCread
6390X%=OPENOUT(file$)
6400IF X%<>0 THEN
6410PRINT #X%,tot%
6420FOR A=0 TO tot%
6430PRINT #X%,pos%(A)
6440FOR B=0 TO 25
6450PRINT #X%,hacker$(A,B)
6460NEXTB
6470PRINT #X%,name$(A)
6480FOR B=0 TO 7
6490PRINT #X%,info$(A,B)
6500NEXTB
6510PRINT #X%,hack$(A)
6520PRINT #X%,hack%(A)
6530NEXTA
6540ENDIF
6550CLOSE#X%
6560OSCLI ("SETTYPE "+file$+" ACE")
6570PROCWimp_MenuClose
6580ENDIF
6590UPDATE%=FALSE
6600ENDIF
6610 WHEN Save2_Window%
6620X%=OPENIN(file$)
6630IF X%<>0 THEN
6640check%=FNWimp_WindowCancel("!Trickster","This file already exists, overwrite ?")
6650IF check%=TRUE THEN X%=0:CLOSE#X%
6660ENDIF
6670IF X%=0 THEN
6680LOCAL ERROR
6690ON ERROR LOCAL PROCerror
6700IF DOSAVE%=TRUE THEN
6710 PROCWimp_MenuClose
6720 OSCLI("SPOOL "+file$)
6730FOR DD=0 TO tot%-1
6740 PRINT"Game Name - "+name$(DD)+CHR$(10);
6750 PRINTCHR$(10);
6760 PRINT"Tricks and Tactics"+CHR$(10);
6770 FOR A=0 TO 7
6780 IF info$(DD,A)<>"" THEN PRINTinfo$(DD,A)+CHR$(10);
6790 NEXTA
6800PRINTCHR$(10);
6810 IF hack%(DD)=TRUE THEN
6820 PRINT"Cheat Name - "+LEFT$(hacker$(DD,0),LEN(hacker$(DD,0))-6)+CHR$(10);
6830 PRINTCHR$(10);
6840 PRINT"Author of Cheat - "+MID$(hacker$(DD,1),12,LEN(hacker$(DD,1))-8)+CHR$(10);
6850 PRINTCHR$(10);
6860 PRINT"Cheated with - "+MID$(hacker$(DD,2),6,LEN(hacker$(DD,2)))+CHR$(10);
6870 PRINTCHR$(10);
6880 PRINT"Keys"+CHR$(10);
6890 FOR A=0 TO pos%(DD)-4
6900 IF ASC(LEFT$(hacker$(DD,A+3)))=160 THEN LEFT$(hacker$(DD,A+3))=" "
6910 IF ASC(LEFT$(hacker$(DD,A+3)))=&0d THEN LEFT$(hacker$(DD,A+3))=" "
6920 PRINThacker$(DD,A+3)+CHR$(10);
6930 NEXTA
6940PRINTCHR$(10);
6950 ENDIF
6960NEXTDD
6970ENDIF
6980 OSCLI("SPOOL")
6990 OSCLI("SETTYPE "+file$+" FFF")
7000 VDU6
7010 IF file$="<Wimp$Scrap>" THEN PROCWimp_SendToEdit(file$)
7020 ENDIF
7030 ENDCASE
7040IF DOSAVE%=FALSE THEN DOSAVE%=TRUE
7050 ENDPROC
7060:
7070REM *****************************************************************
7080:
7090DEF PROCWimp_WindowTitlePutText(window%,title$)
7100wimp%!0 = window%
7110SYS &000400CC,,wimp%
7120po% = !(wimp%+76)
7130$po% = title$+CHR$0
7140ENDPROC
7150:
7160DEF PROCWimp_WindowAlert(title$,message$)
7170PROCWimp_WindowAlertBox(title$,message$,0)
7180ENDPROC
7190:
7200DEF PROCWimp_WindowAlertBox(title$,message$,button%)
7210LOCAL response%
7220$(wimp%+4)=message$
7230CASE button% OF
7240 WHEN 2 : response%=1
7250 WHEN 1 : response%=15
7260 WHEN 3 : response%=(1<<5)+16
7270 WHEN 4 : response%=(1<<6)+16
7280OTHERWISE : response%=16
7290ENDCASE
7300SYS "Wimp_ReportError",wimp%,response%,title$ TO ,response%
7310ENDPROC
7320:
7330DEF FNWimp_WindowCancel(title$,message$)
7340$(wimp%+4)=message$
7350response%=23
7360SYS "Wimp_ReportError",wimp%,response%,title$ TO ,response%
7370=response%-2
7380:
7390DEF PROCWimp_WindowErrorBox(title$,message$)
7400PROCWimp_WindowAlertBox(title$,message$,2)
7410ENDPROC
7420:
7430DEF FNWimp_WindowTitle(window%)
7440wimp%!0=window%
7450SYS "Wimp_GetWindowInfo",,wimp%
7460IF ((wimp%!60)AND&100)=0 ERROR 1,"Title isn't indirected"
7470=$(wimp%!76)
7480:
7490DEF FNWimp_WindowLoad(window$)
7500=FNWimp_WindowLoadFrom(window$,"<Obey$Dir>.Templates")
7510:
7520DEF FNWimp_WindowLoadFrom(window$,template$)
7530LOCAL c%,i%,n%,j%,sp$,sp2$
7540SYS "Wimp_OpenTemplate",,template$
7550SYS "Wimp_LoadTemplate",,wimp%,icons%,icon_memory%,-1,window$,0 TO ,,icons%
7560CASE sprites% OF
7570 WHEN 1 : wimp%!64=sprites%
7580 OTHERWISE : wimp%!64=FNEvent_Sprites(window%)
7590ENDCASE
7600SYS "Wimp_CreateWindow",,wimp% TO c%
7610SYS "Wimp_CloseTemplate"
7620SYS "Wimp_WhichIcon",c%,wimp%+40,1+2+(1<<8),2+(1<<8)
7630CASE wimp%!40 OF
7640 WHEN -1 :
7650 OTHERWISE : i%=40
7660 REPEAT
7670 wimp%!4=wimp%!i% : wimp%!0=c%
7680 SYS "Wimp_GetIconState",,wimp%
7690 sp$=FNWimp_GetStringAtAddress(wimp%!28)
7700 SYS "Wimp_DeleteIcon",,wimp%
7710 CASE sprites% OF
7720 WHEN 1 : wimp%!32=1
7730 OTHERWISE :
7740 SYS "OS_SpriteOp",&108,sprites% TO ,,,n%
7750 j%=0
7760 REPEAT : j%+=1
7770 SYS "OS_SpriteOp",&10D,sprites%,pointer_block%,20,j%
7780 sp2$=FNWimp_GetStringAtAddress(pointer_block%)
7790 UNTIL j%=n% OR sp$=sp2$
7800 IF sp$=sp2$ THEN wimp%!32=sprites% ELSE wimp%!32=1
7810 ENDCASE
7820 wimp%!4=c%
7830 SYS "Wimp_CreateIcon",,wimp%+4 TO handle%
7840 i%+=4
7850 UNTIL (wimp%!i%)=-1
7860ENDCASE
7870=c%
7880:
7890DEF PROCWimp_WindowOpen(window%)
7900!wimp%=window%
7910SYS "Wimp_GetWindowState",,wimp%
7920PROCbotopen
7930SYS "Wimp_OpenWindow",,wimp%
7940ENDPROC
7950:
7960DEF PROCWimp_WindowBringToTop(window%)
7970!wimp%=window%
7980SYS "Wimp_GetWindowState",,wimp%
7990wimp%!28=-1
8000PROCbotopen
8010SYS "Wimp_OpenWindow",,wimp%
8020ENDPROC
8030:
8040DEF PROCWimp_WindowClose(window%)
8050!wimp%=window%
8060SYS "Wimp_CloseWindow",,wimp%
8070ENDPROC
8080:
8090DEF PROCWimp_WindowForceDraw(window%)
8100CASE window% OF
8110 WHEN -1 : SYS "Wimp_ForceRedraw",-1,0,0,2*1280,2*1024
8120 OTHERWISE : SYS "Wimp_ForceRedraw",window%,0,-2*1024,2*1280,0
8130ENDCASE
8140ENDPROC
8150:
8160PROCWimp_WindowInterface
8170SYS"Wimp_BorderWindow",,wimp%
8180ENDPROC
8190:
8200REM *****************************************************************
8210:
8220DEF PROCWimp_IconUpdate(window%,icon%)
8230wimp%!0=window%
8240wimp%!4=icon%
8250wimp%!8=0
8260wimp%!12=0
8270SYS "Wimp_SetIconState",,wimp%
8280ENDPROC
8290:
8300DEF PROCWimp_SetBar(win%,dragicon%,sizeicon%,range%,number%)
8310IF number%<0 THEN number%=0
8320IF number%>range% THEN number%=range%
8330wimp%!0=win%
8340wimp%!4=sizeicon%
8350SYS "Wimp_GetIconState",,wimp%
8360sizeminx%=wimp%!8
8370sizeminy%=wimp%!12
8380sizemaxx%=wimp%!16
8390sizemaxy%=wimp%!20
8400newx%=sizeminx%+(number%/(range%/(sizemaxx%-sizeminx%)))
8410IF newx%<>oldworkx% THEN
8420wimp%!0=win%
8430wimp%!4=dragicon%
8440SYS "Wimp_GetIconState",,wimp%
8450wimp%!16=newx%
8460wimp%!0=win%
8470wimp%!4=dragicon%
8480SYS "Wimp_DeleteIcon",,wimp%
8490wimp%!4=win%
8500SYS "Wimp_CreateIcon",,wimp%+4
8510newwimp%=wimp%+4
8520IF oldworkx%<newx% THEN
8530newwimp%!4=sizeminx%
8540ELSE
8550newwimp%!4=newx%
8560ENDIF
8570newwimp%!8=sizeminy%
8580IF oldworkx%<newx% THEN
8590newwimp%!12=newx%
8600ELSE
8610newwimp%!12=sizemaxx%
8620ENDIF
8630newwimp%!16=sizemaxy%
8640SYS "Wimp_UpdateWindow",,newwimp% TO flag
8650WHILE flag
8660SYS "Wimp_GetRectangle",,newwimp% TO flag
8670ENDWHILE
8680oldworkx%=newx%
8690ENDIF
8700ENDPROC
8710:
8720DEF FNWimp_IconGetBarValue(win%,dragicon%,sizeicon%,range%)
8730wimp%!0=win%
8740wimp%!4=sizeicon%
8750SYS "Wimp_GetIconState",,wimp%
8760sizeminx%=wimp%!8
8770sizemaxx%=wimp%!16
8780wimp%!0=win%
8790wimp%!4=dragicon%
8800SYS "Wimp_GetIconState",,wimp%
8810=(range%/(sizemaxx%-sizeminx%))*(wimp%!16-wimp%!8)
8820:
8830DEF PROCWimp_IconDragSliderIcon(win%,dragicon%,sizeicon%)
8840wimp%!0=win%
8850wimp%!4=sizeicon%
8860SYS "Wimp_GetIconState",,wimp%
8870sminx%=wimp%!8
8880sminy%=wimp%!12
8890smaxx%=wimp%!16
8900smaxy%=wimp%!20
8910SYS "Wimp_GetPointerInfo",,wimp%
8920mx%=wimp%!0
8930wimp%!0=win%
8940SYS "Wimp_GetWindowInfo",,wimp%
8950calcx%=(mx%-(wimp%!4-wimp%!20))+wimp%!44
8960iconminx%=sminx%+(wimp%!4-wimp%!20)
8970iconmaxx%=iconminx%+(smaxx%-sminx%)
8980iconminy%=sminy%+(wimp%!16-wimp%!24)
8990iconmaxy%=iconminy%+(smaxy%-sminy%)-4
9000wimp%!0=win%
9010wimp%!4=7
9020wimp%!8=iconminx%
9030wimp%!12=iconminy%
9040wimp%!16=iconmaxx%
9050wimp%!20=iconmaxy%
9060wimp%!24=wimp%!8
9070wimp%!28=wimp%!12
9080wimp%!32=wimp%!16
9090wimp%!36=wimp%!20
9100SYS "Wimp_DragBox",,wimp%
9110slidewindow%=win%
9120slideicon%=dragicon%
9130slidesize%=sizeicon%
9140wimp%!0=win%
9150wimp%!4=dragicon%
9160SYS "Wimp_GetIconState",,wimp%
9170oldworkx%=wimp%!16
9180ENDPROC
9190:
9200DEF PROCWimp_IconDoSlide(win%,dragicon%,sizeicon%,const%,range%)
9210wimp%!0=win%
9220wimp%!4=sizeicon%
9230SYS "Wimp_GetIconState",,wimp%
9240sizeminx%=wimp%!8
9250sizeminy%=wimp%!12
9260sizemaxx%=wimp%!16
9270sizemaxy%=wimp%!20
9280SYS "Wimp_GetPointerInfo",,wimp%
9290mx%=wimp%!0
9300wimp%!0=win%
9310SYS "Wimp_GetWindowInfo",,wimp%
9320minx%=wimp%!4
9330scrx%=wimp%!20
9340newx%=mx%+(scrx%-minx%)
9350IF newx%<>oldworkx% THEN
9360wimp%!0=win%
9370wimp%!4=dragicon%
9380SYS "Wimp_GetIconState",,wimp%
9390wimp%!16=newx%
9400wimp%!0=win%
9410wimp%!4=dragicon%
9420SYS "Wimp_DeleteIcon",,wimp%
9430wimp%!4=win%
9440SYS "Wimp_CreateIcon",,wimp%+4
9450newwimp%=wimp%+4
9460IF oldworkx%<newx% THEN
9470newwimp%!4=sizeminx%
9480ELSE
9490newwimp%!4=newx%
9500ENDIF
9510newwimp%!8=sizeminy%
9520IF oldworkx%<newx% THEN
9530newwimp%!12=newx%
9540ELSE
9550newwimp%!12=sizemaxx%
9560ENDIF
9570newwimp%!16=sizemaxy%
9580SYS "Wimp_UpdateWindow",,newwimp% TO flag
9590WHILE flag
9600SYS "Wimp_GetRectangle",,newwimp% TO flag
9610ENDWHILE
9620IF const% THEN
9630size%=sizemaxx%-sizeminx%
9640ppos%=(oldworkx%-sizeminx%)
9650number%=(range%/size%)*ppos%
9660:
9670CASE slideicon% OF
9680WHEN 2
9690REMPROCiconputtext(main%,3,STR$(number%)+"%")
9700ENDCASE
9710ENDIF
9720ENDIF
9730oldworkx%=newx%
9740rrange%=range%
9750ENDPROC
9760:
9770DEF PROCWimp_SetIconSprite(window%,icon%,sprite$)
9780wimp%!0=window%
9790wimp%!4=icon%
9800SYS "Wimp_GetIconState",,wimp%
9810$wimp%!32="S"+sprite$
9820wimp%!0=window%
9830wimp%!8=0
9840wimp%!12=0
9850SYS "Wimp_SetIconState",,wimp%
9860ENDPROC
9870:
9880DEF FNWimp_IconBar(Sprite$)
9890LOCAL icon%
9900wimp%!0=-1
9910wimp%!4=0 : wimp%!8=0
9920wimp%!12=88 : wimp%!16=72
9930wimp%!20=&3002
9940$(wimp%+24)=Sprite$
9950SYS "Wimp_CreateIcon",,wimp% TO icon%
9960=icon%
9970:
9980DEF PROCWimp_IconCaret(window%,icon%,chars%)
9990SYS "Wimp_SetCaretPosition",window%,icon%,,,-1,chars%
10000ENDPROC
10010:
10020DEF FNWimp_IconText(window%,icon%)
10030wimp%!0=window% : wimp%!4=icon%
10040SYS "Wimp_GetIconState",,wimp%
10050IF ((wimp%!24) AND &100)=0 ERROR 1,"Icon isn't indirected"
10060=$(wimp%!28)
10070:
10080DEF FNWimp_IconValidation(window%,icon%)
10090wimp%!0=window% : wimp%!4=icon%
10100SYS "Wimp_GetIconState",,wimp%
10110IF ((wimp%!24) AND &100)=0 ERROR 1,"Icon isn't indirected"
10120=$(wimp%!32)
10130:
10140DEF PROCWimp_IconDisable(window%,icon%)
10150wimp%!0=window% : wimp%!4=icon%
10160wimp%!8=1<<22 : wimp%!12=1<<22
10170SYS "Wimp_SetIconState",,wimp%
10180ENDPROC
10190:
10200DEF PROCWimp_IconEnable(window%,icon%)
10210wimp%!0=window% : wimp%!4=icon%
10220wimp%!8=0 : wimp%!12=1<<22
10230SYS "Wimp_SetIconState",,wimp%
10240ENDPROC
10250:
10260DEF FNWimp_IconPutSprite(window%,icon%,sprite$)
10270wimp%!0=window%:wimp%!4=icon%
10280SYS "Wimp_GetIconState",,wimp%
10290SYS "Wimp_DeleteIcon",,wimp%
10300wimp%!4=wimp%!8 : wimp%!8=wimp%!12 : wimp%!12=wimp%!16
10310wimp%!16=wimp%!20 : wimp%!20=wimp%!24 : $(wimp%+24)=sprite$
10320SYS "Wimp_CreateIcon",,wimp% TO icon%
10330=icon%
10340:
10350DEF PROCWimp_IconPutText(window%,icon%,text$)
10360wimp%!0=window% : wimp%!4=icon%
10370SYS "Wimp_GetIconState",,wimp%
10380IF ((wimp%!24) AND &100)=0 ERROR 1,"Icon isn't indirected"
10390$(wimp%!28)=text$
10400wimp%!0=window% : wimp%!4=icon%
10410wimp%!8=0 : wimp%!12=0
10420SYS "Wimp_SetIconState",,wimp%
10430ENDPROC
10440:
10450DEF PROCWimp_IconInterfaceStart
10460SYS"Wimp_BorderIcon",,wimp%
10470ENDPROC
10480:
10490DEF PROCWimp_IconInterfaceFinish
10500wimp%!8=0
10510SYS"Wimp_BorderIcon",,wimp%
10520ENDPROC
10530:
10540REM *****************************************************************
10550:
10560DEF PROCWimp_MenuAdjustOn(menu%)
10570SYS "Wimp_GetPointerInfo",,pointer_block%
10580IF ((pointer_block%!8)AND1)=1 THEN SYS "Wimp_CreateMenu",,menu%,pointer_block%!0,pointer_block%!4
10590ENDPROC
10600:
10610DEF FNWimp_MenuChoice(level%)
10620=(wimp%!(4*level%))+1
10630:
10640DEF FNWimp_MenuCreate(menu$)
10650IF menu$="Colours" THEN =FNWimp_MenuColours
10660LOCAL menu%,index%,width%,length%,k%,s%
10670DIM menu% 28+FNWimp_MenuNoOfEntries(menu$)*24
10680menu%?12=7 : menu%?13=2 : menu%?14=7 :menu%?15=0
10690menu%!16=140 : menu%!20=44 : menu%!24=0
10700index%=menu%+28
10710$menu%=LEFT$(menu$,INSTR(menu$,"\")-1)
10720width%=LEN(LEFT$(menu$,INSTR(menu$,"\")-1))
10730menu$+="\" : Menu_NoOfEntries%=0
10740WHILE menu$<>""
10750menu$=MID$(menu$,INSTR(menu$,"\")+1)
10760CASE menu$ OF
10770 WHEN ""
10780 OTHERWISE :
10790 !index%=0 : index%!4=-1 : index%!8=&7000021
10800 length%=INSTR(menu$,"\")-1
10810 k%=INSTR(LEFT$(menu$,length%),">")
10820 CASE k% OF
10830 WHEN 0
10840 OTHERWISE
10850 s%=EVAL(MID$(menu$,k%+1,length%-k%))
10860 index%!4=s%
10870 length%=k%-1
10880 ENDCASE
10890 $(index%+12)=LEFT$(menu$,length%)
10900 IF length%>width% THEN width%=length%
10910 index%+=24
10920ENDCASE
10930ENDWHILE
10940menu%!16=16*(width%+1)
10950index%!-24=index%!-24 OR &80 : =menu%
10960=FALSE
10970:
10980DEF FNWimp_MenuColours
10990=FNWimp_MenuCreateColours(" ")
11000:
11010DEF FNWimp_MenuCreateColours(title$)
11020LOCAL x$,men%,j%,i%
11030x$=title$+"\0\1\2\3\4\5\6\7\8\9\10\11\12\13\14\15"
11040men%=FNWimp_MenuCreate(x$)
11050FOR i%=0 TO 15
11060CASE TRUE OF
11070WHEN i%<4,i%=9,i%=12,i%=14,i%=15 : j%=7
11080OTHERWISE : j%=0
11090ENDCASE
11100men%?(39+i%*24)=i%*16+j%
11110PROCWimp_MenuCentre(men%,i%+1)
11120NEXT
11130=men%
11140:
11150DEF FNWimp_MenuNoOfEntries(menu$)
11160LOCAL n% ,j% : n%=0 : j%=0
11170REPEAT
11180j%=INSTR(menu$,"\",j%+1)
11190IF j%<>0 THEN n%+=1
11200UNTIL j%=0
11210=n%
11220:
11230DEF PROCWimp_MenuBackGroundColour(menu%,item%,colour%)
11240LOCAL fore%,i%
11250fore%=(menu%?(39+(item%-1)*24))MOD16
11260i%=((menu%?(39+(item%-1)*24))DIV16)MOD16
11270menu%?(39+(item%-1)*24)=fore%+16*colour%+i%
11280ENDPROC
11290:
11300DEF PROCWimp_MenuCentre(menu%,item%)
11310menu%!(36+(item%-1)*24)=menu%!(36+(item%-1)*24)OR(1<<3)
11320ENDPROC
11330:
11340DEF PROCWimp_MenuClose
11350SYS "Wimp_CreateMenu",-1
11360ENDPROC
11370:
11380DEF PROCWimp_MenuDisable(menu%,item%)
11390menu%!(36+(item%-1)*24)=menu%!(36+(item%-1)*24)OR(1<<22)
11400ENDPROC
11410:
11420DEF PROCWimp_MenuDottedLine(menu%,item%)
11430menu%!(28+(item%-1)*24)=(menu%!(28+(item%-1)*24))OR2
11440ENDPROC
11450:
11460DEF PROCWimp_MenuEnable(menu%,item%)
11470PROCWimp_MenuDisable(menu%,item%)
11480menu%!(36+(item%-1)*24)=menu%!(36+(item%-1)*24)EOR(1<<22)
11490ENDPROC
11500:
11510DEF PROCWimp_MenuForegroundColour(menu%,item%,colour%)
11520menu%?(39+(item%-1)*24)=colour%+16*((menu%?(39+(item%-1)*24))DIV16)
11530ENDPROC
11540:
11550DEF PROCWimp_MenuGlue(menu1%,item%,menu2%)
11560menu1%!(8+item%*24)=menu2%
11570ENDPROC
11580:
11590DEF PROCWimp_MenuItem(menu%,item%,item$)
11600$(menu%+(40+(item%-1)*24))=LEFT$(item$,12)+CHR$0
11610ENDPROC
11620:
11630DEF PROCWimp_MenuMessage(menu%,item%)
11640menu%!(28+(item%-1)*24)=(menu%!(28+(item%-1)*24))EOR(1<<3)
11650ENDPROC
11660:
11670DEF PROCWimp_MenuPopUp(Menu%,x%,y%)
11680IF SA%=FALSE THEN
11690menu%=Menu%
11700SYS "Wimp_CreateMenu",,menu%,x%-64,y%+20
11710ENDIF
11720ENDPROC
11730:
11740DEF PROCWimp_MenuPopUpBar(x%,y%)
11750LOCAL n% : n%=0
11760WHILE ((Bar_Menu%!(28+n%*24))AND%10000000)=0
11770n%+=1
11780ENDWHILE
11790SYS "Wimp_CreateMenu",,Bar_Menu%,x%-64,96+n%*44
11800menu%=Bar_Menu%
11810ENDPROC
11820:
11830DEF PROCWimp_MenuTick(menu%,item%)
11840menu%!(28+(item%-1)*24)=(menu%!(28+(item%-1)*24))EOR1
11850ENDPROC
11860:
11870DEF PROCWimp_MenuTitle(menu%,title$)
11880$menu%=LEFT$(title$,12)+CHR$0
11890ENDPROC
11900:
11910DEF PROCWimp_MenuWrite(menu%,item%,buffer%,val%,BufferLength%)
11920menu%!(28+(item%-1)*24)=(menu%!(28+(item%-1)*24))OR4
11930menu%!(36+(item%-1)*24)=menu%!(36+(item%-1)*24)OR&100
11940menu%!(40+(item%-1)*24)=buffer%
11950menu%!(44+(item%-1)*24)=val%
11960menu%!(48+(item%-1)*24)=BufferLength%
11970ENDPROC
11980:
11990REM *****************************************************************
12000:
12010DEF PROCWimp_SelectIcon(window%,icon%)
12020wimp%!0=window%
12030wimp%!4=icon%
12040wimp%!8=%1000000000000000000000
12050wimp%!12=%1000000000000000000000
12060SYS&400CD,,wimp%
12070ENDPROC
12080:
12090DEF PROCWimp_UnselectIcon(window%,icon%)
12100wimp%!0=window%
12110wimp%!4=icon%
12120wimp%!8=0
12130wimp%!12=%1000000000000000000000
12140SYS&400CD,,wimp%
12150ENDPROC
12160:
12170DEF PROCWimp_SpritesLoad
12180SYS"OS_ReadModeVariable",-1,5 TO ,,YEIG%
12190IF YEIG%<2 THEN SPR$="Sprites" ELSE SPR$="Sprites"
12200PROCWimp_SpritesPathLoad("<Obey$Dir>."+SPR$)
12210direct_sprites%=sprites%
12220ENDPROC
12230:
12240DEF PROCWimp_SpritesPathLoad(pathname$)
12250LOCALS%,T%
12260A$="<Obey$Dir>."+SPR$
12270S%=OPENIN A$:T%=EXT#S%+16:CLOSE#S%
12280DIMsprites%T%,spname%12
12290!sprites%=T%:sprites%!8=0
12300SYS"OS_SpriteOp",&109,sprites%
12310SYS"OS_SpriteOp",&10A,sprites%,pathname$
12320ENDPROC
12330:
12340REM *****************************************************************
12350:
12360DEF FNWimp_GetFilePathName
12370=FNWimp_GetStringAtAddress(wimp%+44)
12380:
12390DEF FNWimp_FileLoad(pathname$)
12400LOCALS%,T%,file%
12410S%=OPENINpathname$
12420T%=EXT#S%+16
12430CLOSE#S%
12440DIMfile%T%
12450OSCLI("LOAD"+pathname$+""+STR$~file%)
12460=file%
12470:
12480DEF PROCWimp_SendToEdit(file$)
12490LOCAL n%
12500wimp%!4=&6CC01C0C
12510wimp%!16=5
12520wimp%!36=0
12530wimp%!40=&FFF
12540$(wimp%+44)=file$+CHR$0
12550n%=LENfile$+45
12560IF n%MOD4 THEN !wimp%=4+(n%>>2)<<2 ELSE !wimp%=n%
12570SYS "Wimp_SendMessage",17,wimp%,0
12580ENDPROC
12590:
12600REM *****************************************************************
12610:
12620DEF PROCWimp_Start(TaskName$,wimp_memory%,icon%)
12630DIM wimp% wimp_memory%,icons% icon%
12640IF wimp_memory%<256 THEN wimp_memory%=256
12650icon_memory%=icons%+icon%
12660task$=TaskName$
12670indirect_sprites%=1 : direct_sprites%=1
12680PROCWimp_SetEventVariables
12690ON ERROR PROCWimp_Error:END
12700SYS"Wimp_Initialise",200,&4B534154,TaskName$ TO version%,task%
12710ENDPROC
12720:
12730DEF FNWimp_BASICParameters
12740 LOCAL com$,param$,I%
12750 SYS "OS_GetEnv" TO com$
12760 params$=""
12770 I%=INSTR(com$," -quit ")
12780 IF I% THEN params$=MID$(com$,INSTR(com$," ",I%+LEN" -quit ")+1)
12790=params$
12800:
12810DEF PROCWimp_SetEventVariables
12820DIM pointer_block% 20
12830interface%=FALSE
12840null%=1 :draw%=2 : pointer_leaving%=1<<4
12850pointer_entering%=1<<5:mouse%=1<<6:drag%=1<<7
12860key%=1<<8:menu%=1<<9:scroll%=1<<10
12870lose_caret%=1<<11:gain_caret%=1<<12:message%=(1<<17)+(1<<18)
12880recorder%=1<<18:acknowledge%=1<<19:window%=0
12890sprites%=1:version%=0:task%=0
12900Bar_Window%=-2:Bar_Icon%=0:Bar_Menu%=0
12910x_origin%=0:y_origin%=0:SaveWindow%=-3
12920message_quit%=0:message_save%=2:message_load%=3
12930mouse_button%=2:save_event%=0
12940top_line%=0 : bottom_line%=0
12950:
12960REM Dont mess about with below (or use them !) they are used in
12970REM the drag bar routines.
12980slidewindow%=-1
12990slideicon%=-1
13000slidesize%=-1
13010oldworkx%=-1
13020rrange%=-1
13030sizemaxx%=-1
13040sizeminx%=-1
13050ENDPROC
13060:
13070DEF PROCWimp_Error
13080LOCALX$,x%
13090ON ERROR OFF
13100x%=ERL
13110X$=REPORT$+"atline"+STR$(x%DIV10)
13120DIMErrorMsg%36
13130ErrorMsg%!0=36:ErrorMsg%!12=0:ErrorMsg%!16=&81080:ErrorMsg%!20=x%
13140$(ErrorMsg%+24)="!RunImage"
13150SYS"Wimp_SendMessage",17,ErrorMsg%
13160PROCWimp_WindowAlert(task$,X$)
13170PROCWimp_CloseDown
13180ENDPROC
13190:
13200DEF PROCWimp_CloseDown
13210SYS"Wimp_CloseDown",task%,"TASK"
13220ENDPROC
13230:
13240DEF PROCWimp_Quit
13250finished%=TRUE
13260ENDPROC
13270:
13280DEF FNWimp_ReadVariable(Variable$)
13290LOCALlen%,result%,variable%
13300$wimp%=Variable$
13310SYS"OS_ReadVarVal",wimp%,wimp%+255,255,,3TO,,len%
13320wimp%?(len%+255)=13
13330=$(wimp%+255)
13340:
13350REM *****************************************************************
13360:
13370DEF PROCWimp_WaitForEvent
13380LOCAL mask%,event%
13390finished%=FALSE
13400mask%=%111000011001
13410REPEAT
13420 SYS"Wimp_Poll",mask%,wimp% TO event%
13430 CASE event% OF
13440 WHEN0
13450 WHEN1 : PROCWimp_PollDrawWindow
13460 WHEN2
13470PROCbotopen
13480SYS "Wimp_OpenWindow",,wimp%
13490 WHEN3 : PROCWimp_PollCloseWindow
13500 WHEN4 :
13510 WHEN5 :
13520 WHEN6 : PROCWimp_PollMouseClick
13530 WHEN7 : PROCWimp_PollSaveMessage
13540 WHEN8 : PROCWimp_PollKeyPress
13550 WHEN9 : PROCEvent_MenuChoice(menu%)
13560 WHEN10:
13570 WHEN11:
13580 WHEN12:
13590 WHEN17,18: PROCWimp_PollMessages
13600 WHEN19:
13610 ENDCASE
13620UNTIL finished%
13630ENDPROC
13640:
13650DEF PROCWimp_PollDrawWindow
13660LOCAL more%
13670SYS"Wimp_RedrawWindow",,wimp%TOmore%
13680window%=wimp%!0
13690x_origin%=16+wimp%!4-wimp%!20:y_origin%=-16+wimp%!16-wimp%!24
13700WHILEmore%
13710 IF interface% THEN SYS"Wimp_BorderWindow",,wimp%
13720 PROCEvent_Draw(window%,x_origin%,y_origin%)
13730 SYS"Wimp_GetRectangle",,wimp%TOmore%
13740ENDWHILE
13750ENDPROC
13760:
13770DEF PROCWimp_PollCloseWindow
13780 SYS "Wimp_GetPointerInfo",,wimp%
13790 window%=wimp%!12 : buttons%=wimp%!8
13800 PROCEvent_WindowClose(window%,buttons%)
13810 !wimp%=window% : SYS "Wimp_CloseWindow",,wimp%
13820ENDPROC
13830:
13840DEF PROCWimp_PollMouseClick
13850 button%=wimp%!8:window%=wimp%!12:icon%=wimp%!16:x%=wimp%!0:y%=wimp%!4
13860 CASE button% OF
13870 WHEN2 : PROCWimp_PollMenuPopUp
13880 OTHERWISE: CASE FNEvent_Save(window%) OF
13890 WHEN TRUE : PROCWimp_PollMouseSave
13900 WHEN FALSE: PROCWimp_PollEventMouseClick
13910 ENDCASE
13920 ENDCASE
13930ENDPROC
13940:
13950DEF PROCWimp_PollMenuPopUp
13960IF SA%=FALSE THEN
13970menu%=FNEvent_Menu(window%)
13980 CASE menu% OF
13990 WHEN FALSE:
14000 OTHERWISE :
14010 CASE window% OF
14020 WHEN -2 : n%=0
14030 WHILE ((Bar_Menu%!(28+n%*24))AND%10000000)=0
14040 n%+=1
14050 ENDWHILE
14060 SYS "Wimp_CreateMenu",,Bar_Menu%,x%-64,96+n%*66
14070 OTHERWISE : SYS"Wimp_CreateMenu",,menu%,x%-64,y%+20
14080 ENDCASE
14090 ENDCASE
14100ENDIF
14110ENDPROC
14120:
14130DEF PROCWimp_PollMouseSave
14140 CASE icon% OF
14150 WHEN 3 : IF button% AND &50 THEN PROCWimp_PollDragBox(window%)
14160 WHEN 2 : IF button% AND 5 THEN PROCWimp_PollSaveFile(window%)
14170 ENDCASE
14180ENDPROC
14190:
14200DEF PROCWimp_PollEventMouseClick
14210 IF interface% THEN SYS"Wimp_BorderIcon",,wimp%
14220 PROCEvent_MouseClick(window%,icon%,button%,x%,y%)
14230 CASE interface% OF
14240 WHEN TRUE :
14250 wimp%!0=x%:wimp%!4=y% : wimp%!8=0
14260 wimp%!12=window% : wimp%!16=icon%
14270 SYS"Wimp_BorderIcon",,wimp%
14280 ENDCASE
14290ENDPROC
14300:
14310DEF PROCWimp_PollSaveFile(window%)
14320LOCALfile$
14330 wimp%!0=window% : wimp%!4=1 : SYS "Wimp_GetIconState",,wimp%
14340 file$=$(wimp%!28)
14350 CASE INSTR(file$,".") OF
14360 WHEN 0 :
14370IF key%=13 THEN
14380 $(wimp%+4)="To save, drag the icon to a directory window"
14390 SYS "Wimp_ReportError",wimp%,16,task$
14400ENDIF
14410 OTHERWISE:
14420PROCEvent_SaveFile(file$,window%)
14430PROCWimp_MenuClose
14440 ENDCASE
14450IF key%=13 THEN SYS"Wimp_CreateMenu",-1
14460IF SA%=TRUE THEN PROCWimp_CloseDown
14470ENDPROC
14480:
14490DEF PROCWimp_PollDragBox(window%)
14500LOCALx%,y%
14510IF window%=Save_Window% THEN
14520sn$="file_ace2"
14530ELSE
14540sn$="text2"
14550ENDIF
14560 save%=window%
14570 !wimp%=window%
14580 SYS"Wimp_GetWindowState",,wimp%
14590 x%=wimp%!4-wimp%!20:y%=wimp%!16-wimp%!24
14600 wimp%!4=3
14610 SYS"Wimp_GetIconState",,wimp%
14620 !wimp%=window%
14630 wimp%!4=5
14640 wimp%!8=x%+wimp%!8:wimp%!12=y%+wimp%!12
14650 wimp%!16=x%+wimp%!16:wimp%!20=y%+wimp%!20
14660 wimp%!24=0:wimp%!28=0
14670 wimp%!32=&7FFFFFFF:wimp%!36=&7FFFFFFF
14680IF sn$="" THEN
14690SYS&000400D0,,wimp%
14700ELSE
14710IF dragicons% THEN
14720SYS &00042400,%11000101,sprites%,sn$,wimp%+8
14730ELSE
14740SYS&000400D0,,wimp%
14750ENDIF
14760ENDIF
14770PROCunbox
14780ENDPROC
14790:
14800DEF PROCWimp_PollKeyPress
14810 window%=wimp%!0:icon%=wimp%!4:key%=wimp%!24
14820 CASE FNEvent_Save(window%) OF
14830 WHEN TRUE : PROCWimp_PollSaveFile(window%)
14840 WHEN FALSE: PROCEvent_KeyPress(window%,icon%,key%)
14850 ENDCASE
14860ENDPROC
14870:
14880DEF PROCWimp_PollSaveMessage
14890LOCALfile$,window%,icon%,x%,y%
14900 SYS"Wimp_GetPointerInfo",,wimp%
14910 window%=wimp%!12:icon%=wimp%!16:x%=wimp%!0:y%=wimp%!4
14920 wimp%!0=save% : wimp%!4=1 : SYS "Wimp_GetIconState",,wimp%
14930 file$=$(wimp%!28)
14940 file$=FNWimp_GetFileFromPathname(file$)
14950ACE$=file$
14960 wimp%!20=window%
14970 wimp%!24=icon%
14980 wimp%!28=x%:wimp%!32=y%
14990 wimp%!36=length%
15000 wimp%!0=64
15010 wimp%!12=0
15020 wimp%!16=1
15030 wimp%!40=&FFF
15040 $(wimp%+44)=file$
15050 SYS"Wimp_SendMessage",17,wimp%,wimp%!20,wimp%!24
15060ENDPROC
15070:
15080DEF PROCWimp_PollMessages
15090AA%=wimp%!16
15100AB%=wimp%!40
15110AC%=wimp%!12
15120AD%=wimp%!8
15130AE%=wimp%!20
15140PROCopenprinter
15150LOCAL file$
15160file$=FNWimp_GetStringAtAddress(wimp%+44)
15170 CASE AA% OF
15180 WHEN 0 : finished%=TRUE
15190 WHEN 1 :
15200 WHEN 2 :
15210 wimp%!0=save% : wimp%!4=1 : SYS "Wimp_GetIconState",,wimp%
15220 $(wimp%!28)=file$
15230 wimp%!0=save% : wimp%!4=1 : wimp%!8=0 : wimp%!12=0
15240 SYS "Wimp_SetIconState",,wimp%
15250 REM PROCWimp_IconCaret(save%,1,LENfile$)
15260 SYS "Wimp_SetCaretPosition",save%,1,,,-1,LENfile$
15270 PROCWimp_MenuClose
15280 PROCEvent_SaveFile(file$,save%)
15290 IF SA%=TRUE THEN PROCWimp_CloseDown
15300 WHEN 3
15310 type$=FNWimp_FileType(wimp%!40)
15320 PROCEvent_LoadFile(file$,type$)
15330 WHEN &400C1
15340 IF FNisopen(Main_Window%) THEN PROCWimp_WindowOpen(Main_Window%)
15350 WHEN 5
15360wimp%!40=AB%
15370wimp%!12=AC%
15380wimp%!8=AD%
15390wimp%!20=AE%
15400 IF wimp%!40=&ACE AND event%=18 THEN
15410 wimp%!12=wimp%!8
15420 SYS"XWimp_SendMessage",17,wimp%,wimp%!20
15430 file$=FNWimp_GetFilePathName
15440 type$=FNWimp_FileType(&ACE)
15450 PROCEvent_LoadFile(file$,type$)
15460 ENDIF
15470 ENDCASE
15480ENDPROC
15490:
15500DEF FNWimp_GetStringAtAddress(array%)
15510LOCALs$:s$=""
15520WHILE(?array%<>13)AND(?array%<>0):s$+=CHR$(?array%):array%+=1:ENDWHILE:
15530=s$
15540:
15550DEF FNWimp_GetFileFromPathname(f$)
15560CASE INSTR(f$,".") OF
15570 WHEN 0 :=f$
15580 OTHERWISE :=FNWimp_GetFileFromPathname(RIGHT$(f$,LEN(f$)-INSTR(f$,".")))
15590ENDCASE
15600=FALSE
15610:
15620DEF FNWimp_FileType(type%)
15630CASEtype%OF
15640WHEN&FFF:="Text"
15650WHEN&FFD:="Data"
15660WHEN&FFB:="Basic"
15670WHEN&FF9:="Sprite"
15680WHEN&FED:="Palette"
15690WHEN&FEC:="Template"
15700WHEN&AFF:="Draw"
15710WHEN&1000:="Folder"
15720WHEN&2000:="Application"
15730OTHERWISE:=STR$~(type%)
15740ENDCASE
15750=FALSE
15760:
15770DEF PROCbotopen
15780IF wimp%!0=Main_Window% THEN
15790mainminx%=wimp%!4
15800mainminy%=wimp%!8
15810mainmaxx%=wimp%!12
15820mainmaxy%=wimp%!16
15830mainscrollx%=wimp%!20
15840mainscrolly%=wimp%!24
15850
15860backhand%=wimp%!28
15870wimp%!0=Tools_Window%
15880SYS &400cb,,wimp%
15890wimp%!0=Tools_Window%
15900wimp%!4=mainminx%-78
15910wimp%!8=mainminy%
15920wimp%!12=mainmaxx%+wimp%!4
15930wimp%!16=mainmaxy%
15940wimp%!28=backhand%
15950SYS &400C5,,wimp%
15960
15970wimp%!0=Bot_Window%
15980SYS &400cb,,wimp%
15990wimp%!0=Bot_Window%
16000wimp%!4=mainminx%+6
16010wimp%!8=mainminy%+10
16020wimp%!12=mainmaxx%+wimp%!4
16030wimp%!16=mainmaxy%-718
16040wimp%!24=SCO%
16050wimp%!28=Tools_Window%
16060SYS &400C5,,wimp%
16070
16080wimp%!0=Main_Window%
16090wimp%!4=mainminx%
16100wimp%!8=mainminy%
16110wimp%!12=mainmaxx%
16120wimp%!16=mainmaxy%
16130wimp%!20=mainscrollx%
16140wimp%!24=mainscrolly%
16150wimp%!28=Bot_Window%
16160ENDIF
16170ENDPROC
16180:
16190DEF PROCscroll
16200wimp%!0=Bot_Window%
16210SYS &400CB,,wimp%
16220wimp%!24=SCO%
16230SYS &400C5,,wimp%
16240ENDPROC
16250:
16260DEF FNisopen(win%)
16270wimp%!0=win%
16280SYS "Wimp_GetWindowState",,wimp%
16290winflags%=wimp%!32
16300IF (winflags% AND %10000000000000000) = 65536 THEN
16310=TRUE
16320ELSE
16330=FALSE
16340ENDIF
16350=FALSE
16360:
16370DEF PROCread
16380name$(cur%)=FNWimp_IconText(Main_Window%,6)
16390IF cur%=tot% THEN PROCWimp_IconPutText(Main_Window%,6,"")
16400FOR A=10 TO 17
16410info$(cur%,A-10)=FNWimp_IconText(Main_Window%,A)
16420IF cur%=tot% AND info$(cur%,A-10)<>"" THEN PROCWimp_IconPutText(Main_Window%,A,"")
16430NEXTA
16440IF cur%=tot% AND hack$(cur%)<>"" THEN PROCWimp_IconPutText(Bot_Window%,4,"")
16450ENDPROC
16460:
16470DEF PROCupdate
16480PROCWimp_IconPutText(Bot_Window%,32,"Record Number - "+STR$(cur%+1)+" of "+STR$(tot%+1))
16490PROCWimp_IconUpdate(Bot_Window%,33)
16500PROCWimp_IconPutText(Main_Window%,6,name$(cur%))
16510FOR A=10 TO 17
16520PROCWimp_IconPutText(Main_Window%,A,info$(cur%,A-10))
16530NEXTA
16540IF hack$(cur%)="" THEN PROCWimp_IconDisable(Bot_Window%,5) ELSE PROCWimp_IconEnable(Bot_Window%,5)
16550IF hack%(cur%)=TRUE THEN
16560PROCWimp_SelectIcon(Bot_Window%,5)
16570PROCWimp_IconEnable(Bot_Window%,4)
16580PROCWimp_IconEnable(Bot_Window%,39)
16590PROCWimp_IconEnable(Bot_Window%,20)
16600ELSE
16610PROCWimp_UnselectIcon(Bot_Window%,5)
16620PROCWimp_IconDisable(Bot_Window%,4)
16630PROCWimp_IconDisable(Bot_Window%,39)
16640PROCWimp_IconDisable(Bot_Window%,20)
16650IF FNisopen(Hacker_Window%) AND hack%(cur%)=FALSE THEN PROCWimp_WindowClose(Hacker_Window%)
16660ENDIF
16670PROCWimp_IconPutText(Bot_Window%,4,FNWimp_GetFileFromPathname(hack$(cur%)))
16680IF FNisopen(Main_Window%) THEN PROCWimp_IconCaret(Main_Window%,6,LEN(FNWimp_IconText(Main_Window%,6)))
16690ENDPROC
16700:
16710DEF PROCcheckmodule(path$)
16720LOCAL ERROR
16730ON ERROR LOCAL PROCerror:ENDPROC
16740progend%=HIMEM+1
16750X%=OPENIN(path$)
16760length%=EXT#X%
16770CLOSE #X%
16780IF length%>FNcheckfreespace THEN
16790ERROR 0,"SORRY NO ROOM TO LOAD MODULE"
16800ELSE
16810SYS "Wimp_SlotSize",progend%+length%,-1
16820OSCLI("LOAD "+path$+" "+STR$~(progend%))
16830IF INSTR(FNWimp_MyGetStringAtAddress(progend%+(progend%!16)),"Cheat")>0 THEN
16840titlestring$=MID$(FNWimp_MyGetStringAtAddress(progend%+(progend%!20)),1,15)
16850found=FALSE
16860position=-1
16870FOR smeg%=progend%+(progend%!20)+4 TO progend%+length%
16880IF NOT found THEN
16890paf=TRUE
16900position=smeg%
16910FOR smeg2%=1 TO LEN(titlestring$)
16920 IF ?(smeg%+smeg2%)=ASC(MID$(titlestring$,smeg2%,1)) AND paf THEN
16930 found=TRUE
16940 ELSE
16950 found=FALSE
16960 paf=FALSE
16970 ENDIF
16980NEXT smeg2%
16990ENDIF
17000NEXT smeg%
17010IF found THEN
17020position+=1
17030finish=FALSE
17040str$=""
17050REPEAT
17060a=?(position)
17070IF a=&0d THEN
17080IF ASC(LEFT$(str$,1))<>-1 THEN
17090hacker$(cur%,pos%)=str$
17100pos%+=1
17110ENDIF
17120str$=""
17130position+=1
17140ELSE
17150IF a<>0 THEN str$+=CHR$(a)
17160ENDIF
17170position+=1
17180UNTILa=0
17190ENDIF
17200ELSE
17210ERROR 0,"THIS IS NOT A CHEATMOD"
17220ENDIF
17230SYS "Wimp_SlotSize",(256*1024),-1
17240ENDIF
17250ENDPROC
17260:
17270DEFFNcheckfreespace
17280SYS"Wimp_SlotSize",-1,-1 TO ,,freepool
17290=freepool
17300:
17310DEF FNWimp_MyGetStringAtAddress(array%)
17320LOCALs$:s$=""
17330WHILE(?array%<>13)AND(?array%<>0)AND(?array%<>9)AND(?array%<>&A0):s$+=CHR$(?array%):array%+=1:ENDWHILE:
17340=s$
17350:
17360DEF PROCerror
17370VDU6
17380IF ERR=67785 THEN PROCWimp_WindowErrorBox("!Trickster","Please write enable the disk"):CLOSE #X%:ENDPROC
17390IF ERR=214 THEN PROCWimp_WindowErrorBox("!Trickster","File "+hack$(cur%)+" can not be found"):ENDPROC
17400IF ERR=15 THEN PROCWimp_WindowErrorBox("!Trickster","Sorry I can not load this file (old file format)."):ENDPROC
17410IF ERR=168 THEN
17420PROCWimp_WindowErrorBox("!Trickster","Can't create "+file$+" as it already exists as a directory")
17430ENDPROC
17440ENDIF
17450PROCWimp_WindowErrorBox("!Trickster",REPORT$+": ERR :- "+STR$(ERR)+": ERL :- "+STR$(ERL)):DOSAVE%=FALSE
17460ENDPROC
17470:
17480DEF PROCerror2
17490PROCWimp_WindowErrorBox("!Trickster","Sorry I can not load this file (old file format)."):CLOSE #X%:DOSAVE%=FALSE:ENDPROC
17500:
17510DEF PROCwinsiz
17520wimp%!0=Hacker_Window%
17530SYS &400CC,,wimp%
17540y_origin%=-16+wimp%!16-wimp%!24
17550A%=(y_origin%-324)-((pos%(cur%)-1)*32)
17560A%+=40
17570wimp%!0=wimp%!44
17580wimp%!4=A%+(wimp%!24-wimp%!16)
17590wimp%!8=wimp%!52
17600wimp%!12=wimp%!56
17610SYS &400D7,Hacker_Window%,wimp%
17620ENDPROC
17630:
17640PROCcutlong(hacker$(20,10),10)
17650DEF PROCcutlong(v$,p%)
17660A$=v$
17670A%=LEN(v$)
17680B%=A%DIV47
17690C%=A%-(B%*47)
17700FOR A=0 TO B%
17710hacker$(cur%,p%+A)=MID$(A$,((A)*48),47)
17720NEXTA
17730hacker$(cur%,p%+A)=""
17740ENDPROC
17750:
17760DEF PROCsort
17770SYS"Hourglass_On"
17780FOR B=0 TO tot%-1
17790SYS"Hourglass_Percentage",(B/(tot%-1))*100
17800FOR A=0 TO tot%-2
17810IF name$(A)>name$(A+1) THEN
17820SWAP name$(A+1),name$(A)
17830FOR C=0 TO 7
17840SWAP info$(A+1,C),info$(A,C)
17850NEXT C
17860SWAP hack$(A+1),hack$(A)
17870SWAP hack%(A+1),hack%(A)
17880FOR C=0 TO 25
17890SWAP hacker$(A+1,C),hacker$(A,C)
17900NEXT C
17910SWAP pos%(A+1),pos%(A)
17920ENDIF
17930NEXTA
17940NEXTB
17950SYS"Hourglass_Smash"
17960ENDPROC
17970:
17980DEF PROCsearch
17990ST%=FALSE
18000found=FALSE
18010DONE%=0
18020A$=FNtolower(FNWimp_IconText(Bot_Window%,18))
18030C=LEN(A$)
18040cuv=FALSE
18050B$=""
18060IF SNUM%=-2 THEN SNUM%=cur%+1
18070WHILE B$<>A$ AND SNUM%<tot%+1 AND ST%=FALSE AND found=FALSE
18080B$=FNtolower(LEFT$(name$(SNUM%),C))
18090IF SNUM%>=tot% THEN
18100SNUM%=-1
18110DONE%+=1
18120ENDIF
18130SNUM%+=1
18140IF DONE%=2 THEN ST%=TRUE
18150ENDWHILE
18160IF ST%=FALSE THEN
18170PROCread
18180cur%=SNUM%-1
18190PROCupdate
18200IF cur%=0 THEN
18210PROCWimp_IconDisable(Tools_Window%,10)
18220PROCWimp_IconDisable(Tools_Window%,11)
18230PROCWimp_IconDisable(Tools_Window%,2)
18240PROCWimp_IconEnable(Tools_Window%,8)
18250PROCWimp_IconEnable(Tools_Window%,9)
18260PROCWimp_IconEnable(Tools_Window%,3)
18270ENDIF
18280IF cur%>0 AND cur%<tot% THEN
18290PROCWimp_IconEnable(Tools_Window%,8)
18300PROCWimp_IconEnable(Tools_Window%,9)
18310PROCWimp_IconEnable(Tools_Window%,10)
18320PROCWimp_IconEnable(Tools_Window%,11)
18330PROCWimp_IconEnable(Tools_Window%,3)
18340PROCWimp_IconDisable(Tools_Window%,2)
18350ENDIF
18360IF cur%=tot% THEN
18370PROCWimp_IconEnable(Tools_Window%,2)
18380PROCWimp_IconEnable(Tools_Window%,3)
18390PROCWimp_IconEnable(Tools_Window%,8)
18400PROCWimp_IconEnable(Tools_Window%,9)
18410PROCWimp_IconEnable(Tools_Window%,10)
18420PROCWimp_IconEnable(Tools_Window%,11)
18430ENDIF
18440ENDIF
18450IF ST%=TRUE THEN PROCWimp_WindowErrorBox("!Trickster","No match can be found with the name '"+FNWimp_IconText(Bot_Window%,18)+"'")
18460ENDPROC
18470:
18480DEFFNtolower(Q$)
18490FOR B=1 TO LEN(Q$)
18500IF MID$(Q$,B,1)>="A" AND MID$(Q$,B,1)<="Z" THEN
18510MID$(Q$,B,1)=CHR$(ASC(MID$(Q$,B,1))+(ASC("a")-ASC("A")))
18520ENDIF
18530NEXT B
18540=Q$
18550:
18560DEF FNgetstring(array%)
18570LOCAL path$,pointer%
18580path$=""
18590pointer%=array%
18600REPEAT
18610path$+=CHR$?pointer%
18620pointer%+=1
18630UNTIL ?pointer%=0 OR ?pointer%=13
18640=path$
18650:
18660DEFPROCopenprinter
18670SYS "XPDriver_Info" TO R0,R1,R2,R3,R4,R5,R6,R7
18680IF R1=0 AND R2=0 AND R3=0 AND R5=0 AND R6=0 AND R7=0 THEN
18690PROCWimp_IconPutText(Bot_Window%,13,"No driver loaded")
18700DRIVER%=FALSE
18710IF STA%=TRUE THEN PROCWimp_IconDisable(Bot_Window%,12):STA%=FALSE
18720ELSE
18730DRIVER%=TRUE
18740ENDIF
18750IF DRIVER%=TRUE THEN
18760printer$=FNgetstring(R4)
18770PROCWimp_IconPutText(Bot_Window%,13,printer$)
18780IF STA%=FALSE AND tot%>1 THEN PROCWimp_IconEnable(Bot_Window%,12):STA%=TRUE
18790ENDIF
18800ENDPROC
18810:
18820DEFPROCprint
18830:
18840printhand%=OPENOUT("PRINTER:$.Job1") : REM start a job !!!
18850$title%="Trickster file"
18860SYS &80145,printhand%,title%
18870BPUT#printhand%,13 : REM put head to left of paper to start!!!!
18880:
18890IF TYPE%=TRUE THEN
18900IF PCHEAT%=TRUE THEN
18910 PROCprintline("Game Name - "+name$(cur%)+CHR$(10))
18920 PROCprintline(CHR$(10))
18930 PROCprintline("Tricks and Tactics"+CHR$(10))
18940 FOR A=0 TO 7
18950 IF info$(cur%,A)<>"" THEN PROCprintline(info$(cur%,A)+CHR$(10))
18960 NEXTA
18970PROCprintline(CHR$(10))
18980ENDIF
18990IF PMODULE%=TRUE THEN
19000 IF hack%(cur%)=TRUE THEN
19010 PROCprintline("Cheat Name - "+LEFT$(hacker$(cur%,0),LEN(hacker$(cur%,0))-6)+CHR$(10))
19020 PROCprintline(CHR$(10))
19030 PROCprintline("Author of Cheat - "+MID$(hacker$(cur%,1),12,LEN(hacker$(cur%,1))-8)+CHR$(10))
19040 PROCprintline(CHR$(10))
19050 PROCprintline("Cheated with - "+MID$(hacker$(cur%,2),6,LEN(hacker$(cur%,2)))+CHR$(10))
19060 PROCprintline(CHR$(10))
19070 PROCprintline("Keys"+CHR$(10))
19080 FOR A=0 TO pos%(cur%)-4
19090 IF ASC(LEFT$(hacker$(cur%,A+3)))=160 THEN LEFT$(hacker$(cur%,A+3))=" "
19100 PROCprintline(hacker$(cur%,A+3)+CHR$(10))
19110 NEXTA
19120 PROCprintline(CHR$(10))
19130 ENDIF
19140ENDIF
19150ENDIF
19160IF TYPE%=FALSE THEN
19170FOR DD=0 TO tot%-1
19180IF PCHEAT%=TRUE THEN
19190 PROCprintline("Game Name - "+name$(DD)+CHR$(10))
19200 PROCprintline(CHR$(10))
19210 PROCprintline("Tricks and Tactics"+CHR$(10))
19220 FOR A=0 TO 7
19230 IF info$(DD,A)<>"" THEN PROCprintline(info$(DD,A)+CHR$(10))
19240 NEXTA
19250PROCprintline(CHR$(10))
19260ENDIF
19270IF PMODULE%=TRUE THEN
19280 IF hack%(DD)=TRUE THEN
19290 PROCprintline("Cheat Name - "+LEFT$(hacker$(DD,0),LEN(hacker$(DD,0))-6)+CHR$(10))
19300 PROCprintline(CHR$(10))
19310 PROCprintline("Author of Cheat - "+MID$(hacker$(DD,1),12,LEN(hacker$(DD,1))-8)+CHR$(10))
19320 PROCprintline(CHR$(10))
19330 PROCprintline("Cheated with - "+MID$(hacker$(DD,2),6,LEN(hacker$(DD,2)))+CHR$(10))
19340 PROCprintline(CHR$(10))
19350 PROCprintline("Keys"+CHR$(10))
19360 FOR A=0 TO pos%(DD)-4
19370 IF ASC(LEFT$(hacker$(DD,A+3)))=160 THEN LEFT$(hacker$(DD,A+3))=" "
19380 PROCprintline(hacker$(DD,A+3)+CHR$(10))
19390 NEXTA
19400PROCprintline(CHR$(10))
19410 ENDIF
19420ENDIF
19430NEXTDD
19440ENDIF
19450:
19460BPUT#printhand%,12 : REM do linefeed !!!!
19470SYS &80148,printhand%
19480CLOSE #printhand%
19490ENDPROC
19500:
19510DEFPROCprintline(line$)
19520FOR cco=1 TO LEN(line$)
19530byte=ASC(MID$(line$,cco,1))
19540BPUT#printhand%,byte
19550IF byte=10 OR byte=13 THEN BPUT#printhand%,13 : REM put head to left of paper
19560NEXT cco
19570ENDPROC
19580:
19590DEF PROCmousebox(w%)
19600wimp%!0=w%
19610SYS"Wimp_GetWindowOutline",,wimp%
19620MOUSE RECTANGLE wimp%!4+2,wimp%!8+2,wimp%!12-wimp%!4-4,wimp%!16-wimp%!8-4
19630ENDPROC
19640:
19650DEF PROCunbox
19660SYS "OS_ReadModeVariable",-1,11 TO ,,xpic
19670SYS "OS_ReadModeVariable",-1,12 TO ,,ypic
19680SYS "OS_ReadModeVariable",-1,4 TO ,,xfact
19690SYS "OS_ReadModeVariable",-1,5 TO ,,yfact
19700MOUSE RECTANGLE 0,0,xpic<<xfact,ypic<<yfact
19710ENDPROC
19720:
19730DEF FNnacheck(A$)
19740IF INSTR(A$,"TrickMods")<>0 THEN
19750=TRUE
19760ELSE
19770=FALSE
19780ENDIF
19790=FALSE
fileload$=" "
ș "OS_GetEnv" � env$
� �env$," -quit ") �
(2fileload$=�env$,�env$,�(34),�env$,�(34))+1)+1)
2�
<� OpSys%=0
F'� SYS "OS_Byte",129,0,&FF TO OpSys%
PY� IF OpSys%=&A1 THEN OSCLI"ERROR Trickster will not work with RISC OS 2. Sorry!!":END
Zș "OS_GetEnv" � env$
d� �env$," -quit ") �
n2fileload$=�env$,�env$,�(34),�env$,�(34))+1)+1)
x�
�)ș &00000006,129,0,&FF � ,os_version%
�Ȏ os_version% �
�
� &A3,&A4
�dragicons%=�
�
�dragicons%=�
��
�A �Wimp_Start("Trickster",3000,2537)
�3 �User_SetInitialData
�. �Create_Windows
�, �Create_Menus
�� fileload$<>" " �
�$�Event_LoadFile(fileload$,"ACE")
/�Wimp_IconPutText(Save_Window%,1,fileload$)
�
"1 �Wimp_WaitForEvent
,. �Wimp_CloseDown
6 �
@ :
J! � �User_SetInitialData
T DOSAVE%=�
^ Z=0
h PCHEAT%=�
r PMODULE%=�
| TYPE%=�
� STA%=�
� DRIVER%=�
� � title% 256
� SNUM%=-2
� num=0
� AAA%=�
� pos%=0
� WI$="NONE"
� SCO%=0
� dim=200
� � pos%(dim)
� � hacker$(dim,25)
� � name$(dim)
� info$(dim,7)
� hack$(dim)
� hack%(dim)
& hack%()=�
0 hack$()=""
: name$()=""
D info$()=""
N cur%=0
X tot%=0
b SA%=�
l
UPDATE%=�
v CD%=�
� �
� :
� � �Create_Windows
� �Wimp_SpritesLoad
�; Info_Window%=�Wimp_WindowLoad("Info")
�; Save_Window%=�Wimp_WindowLoad("Save")
�< Close_Window%=�Wimp_WindowLoad("Close")
�< Save2_Window%=�Wimp_WindowLoad("Save2")
�; Main_Window%=�Wimp_WindowLoad("Main")
�< Tools_Window%=�Wimp_WindowLoad("Tools")
�< Title_Window%=�Wimp_WindowLoad("Title")
�: Bot_Window%=�Wimp_WindowLoad("Bot")
�= Hacker_Window%=�Wimp_WindowLoad("Hacker")
0 Bar_Icon%=�Wimp_IconBar("!Trickster")
�
:
" � �Event_Save(window%)
* Ȏ window% �
4" � Save_Window% :=�
># � Save2_Window% :=�
H :=�
R
�
\ =�
f
:
p. � �Event_Sprites(window%)=sprites%
z :
� � �Create_Menus
�R save%=�Wimp_MenuCreate("Save\Tricks>Save_Window%\Text>Save2_Window%")
�@ menu$="Trickster\Info>Info_Window%\Save>save%\Quit"
�. Bar_Menu%=�Wimp_MenuCreate(menu$)
�+ �Wimp_MenuDisable(Bar_Menu%,2)
� �
�
:
�" � �Event_Menu(window%)
� Ȏ window% �
�. � Bar_Window% : =Bar_Menu%
�B � Main_Window%,Tools_Window%,Bot_Window% : =Bar_Menu%
�. � Title_Window% : =Bar_Menu%
�! : =�
�
=�
:
$1 � �Event_WindowClose(window%,buttons%)
. Ȏ window% �
8 � Main_Window%
B �read
L) �Wimp_WindowClose(Bot_Window%)
V+ �Wimp_WindowClose(Tools_Window%)
` WI$="TITLE"
j0 �Wimp_WindowBringToTop(Title_Window%)
t � Title_Window%
~ WI$="NONE"
� �
� �
� :
�5 � �Event_Draw(window%,x_origin%,y_origin%)
� Ȏ window% �
�8 � Info_Window% : �User_DrawInfoWindow
�8 � Save_Window% : �User_DrawSaveWindow
�9 � Close_Window% : �User_DrawCloseWindow
�9 � Save2_Window% : �User_DrawSave2Window
�8 � Main_Window% : �User_DrawMainWindow
�9 � Tools_Window% : �User_DrawToolsWindow
�9 � Title_Window% : �User_DrawTitleWindow
7 � Bot_Window% : �User_DrawBotWindow
: � Hacker_Window% : �User_DrawHackerWindow
�
�
( :
2' � �User_DrawInfoWindow
< �
F :
P) � �User_DrawHackerWindow
Z+ � x_origin%-7,y_origin%-48
d9 � �hacker$(cur%,0),�(hacker$(cur%,0))-6)
n, � x_origin%-7,y_origin%-140
x< � �hacker$(cur%,1),12,�(hacker$(cur%,1))-8)
�, � x_origin%-7,y_origin%-232
�9 � �hacker$(cur%,2),6,�(hacker$(cur%,2)))
�% � A=0 � pos%(cur%)-4
�5 � x_origin%-7,(y_origin%-324)-(A*32)
�$ � hacker$(cur%,A+3)
� �A
� �
� :
�' � �User_DrawSaveWindow
� �
� :
�( � �User_DrawCloseWindow
� �
:
( � �User_DrawSave2Window
�
" :
,' � �User_DrawMainWindow
6 �
@ :
J( � �User_DrawToolsWindow
T �
^ :
h( � �User_DrawTitleWindow
r �
| :
�& � �User_DrawBotWindow
�% ș"Wimp_SetColour",1
�; ȓ Ȑ (x_origin%+102),y_origin%-702,458,30
�& ș"Wimp_SetColour",11
�! len=458/(tot%+1)
� poss=cur%*len
�@ ȓ Ȑ (x_origin%+102)+poss,y_origin%-702,len,30
� �
� :
�; � �Event_MouseClick(window%,icon%,button%,x%,y%)
� Ȏ window% �
�1 � Bar_Window% : �User_MouseBar
�B � Info_Window% : �User_MouseInfo( button%,icon%)
C � Close_Window% : �User_MouseClose( button%,icon%)
B � Main_Window% : �User_MouseMain( button%,icon%)
C � Tools_Window% : �User_MouseTools( button%,icon%)
&C � Title_Window% : �User_MouseTitle( button%,icon%)
0A � Bot_Window% : �User_MouseBot( button%,icon%)
: �
D �
N :
X � �User_MouseBar
bm � WI$="MAIN" � SA%=� � �Wimp_WindowBringToTop(Main_Window%):�Wimp_WindowBringToTop(Main_Window%)
lJ � WI$="TITLE" � SA%=� � �Wimp_WindowBringToTop(Title_Window%)
vU � WI$="NONE" � SA%=� � �Wimp_WindowBringToTop(Title_Window%):WI$="TITLE"
� �
� :
�. � �User_MouseInfo( button%,icon%)
� �
� :
�/ � �User_MouseClose( button%,icon%)
� � icon%=1 �
� SA%=�
�
�unbox
�$�Wimp_WindowClose(Close_Window%)
�
UPDATE%=�
�(�Wimp_WindowBringToTop(Save_Window%)
�%A$=�Wimp_IconText(Save_Window%,1)
)�Wimp_IconCaret(Save_Window%,1,�(A$))
�
� icon%=2 �
�unbox
*
UPDATE%=�
4$�Wimp_WindowClose(Close_Window%)
> CD%=�
H�
R � icon%=3 �
\
�unbox
f$�Wimp_WindowClose(Close_Window%)
p�
z � CD%=� � �Wimp_CloseDown
� �
� :
�. � �User_MouseMain( button%,icon%)
� �
� :
�/ � �User_MouseTools( button%,icon%)
� � icon%=4 �
� UPDATE%=�
� �read
� �sort
� �update
� �
� � icon%=3 �
d check%=�Wimp_WindowCancel("!Trickster","Are you sure you want to delete this record ?")
� check%=� �
UPDATE%=�
$ � A=cur% � tot%
. name$(A)=name$(A+1)
8 � B=0 � 7
B$ info$(A,B)=info$(A+1,B)
L �B
V hack$(A)=hack$(A+1)
` hack%(A)=hack%(A+1)
j � B=0 � 25
t( hacker$(A,B)=hacker$(A+1,B)
~ �B
� pos%(A)=pos%(A+1)
� �A
� tot%-=1
�(�Wimp_IconPutText(Main_Window%,6,"")
�� A=10 � 17
�(�Wimp_IconPutText(Main_Window%,A,"")
��A
�'�Wimp_IconPutText(Bot_Window%,4,"")
� �update
� � cur%=tot% �
�%�Wimp_IconEnable(Tools_Window%,2)
�&�Wimp_IconDisable(Tools_Window%,8)
&�Wimp_IconDisable(Tools_Window%,9)
&�Wimp_IconDisable(Tools_Window%,3)
�
1� tot%<2 � �Wimp_IconDisable(Tools_Window%,4)
(� tot%=0 �
2. �Wimp_IconDisable(Bot_Window%,12)
<. �Wimp_IconDisable(Bot_Window%,15)
F. �Wimp_IconDisable(Bot_Window%,18)
P+ �Wimp_MenuDisable(Bar_Menu%,2)
Z�
d �
n �
xK � (icon%=8 � button%=4) � (icon%=11 � button%=1 � cur%<tot%) �
� UPDATE%=�
� �read
� cur%+=1
� �update
� � cur%=tot% �
�%�Wimp_IconEnable(Tools_Window%,2)
�&�Wimp_IconDisable(Tools_Window%,8)
�&�Wimp_IconDisable(Tools_Window%,9)
�&�Wimp_IconDisable(Tools_Window%,3)
��
�&�Wimp_IconEnable(Tools_Window%,10)
�&�Wimp_IconEnable(Tools_Window%,11)
� �
? � (icon%=9 � button%=4) � (icon%=10 � button%=1) �
UPDATE%=�
�read
"
cur%=tot%
, �update
6 � cur%=tot% �
@%�Wimp_IconEnable(Tools_Window%,2)
J&�Wimp_IconDisable(Tools_Window%,8)
T&�Wimp_IconDisable(Tools_Window%,9)
^&�Wimp_IconDisable(Tools_Window%,3)
h�
r&�Wimp_IconEnable(Tools_Window%,10)
|&�Wimp_IconEnable(Tools_Window%,11)
� �
�H � (icon%=11 � button%=4) � (icon%=8 � button%=1 � cur%>0) �
� UPDATE%=�
�/ �Wimp_IconDisable(Tools_Window%,2)
�. �Wimp_IconEnable(Tools_Window%,8)
�. �Wimp_IconEnable(Tools_Window%,9)
�. �Wimp_IconEnable(Tools_Window%,3)
� � cur%=tot% �
�1 �Wimp_IconPutText(Main_Window%,6,"")
� � A=10 � 17
�1 �Wimp_IconPutText(Main_Window%,A,"")
� �A
�0 �Wimp_IconPutText(Bot_Window%,4,"")
hack%(cur%)=�
�
�read
& cur%-=1
0 � cur%=0 �
:'�Wimp_IconDisable(Tools_Window%,10)
D'�Wimp_IconDisable(Tools_Window%,11)
N�
X �update
b �
l? � (icon%=10 � button%=4) � (icon%=9 � button%=1) �
v UPDATE%=�
�/ �Wimp_IconDisable(Tools_Window%,2)
�. �Wimp_IconEnable(Tools_Window%,8)
�. �Wimp_IconEnable(Tools_Window%,9)
�. �Wimp_IconEnable(Tools_Window%,3)
� � cur%=tot% �
�1 �Wimp_IconPutText(Main_Window%,6,"")
� � A=10 � 17
�1 �Wimp_IconPutText(Main_Window%,A,"")
� �A
�0 �Wimp_IconPutText(Bot_Window%,4,"")
� hack%(cur%)=�
� �
� �read
cur%=0
� cur%=0 �
0 �Wimp_IconDisable(Tools_Window%,10)
0 �Wimp_IconDisable(Tools_Window%,11)
* �
4
> �update
H
R �
\ � icon%=2 �
f UPDATE%=�
p3 � �Wimp_IconText(Main_Window%,6)<>"" �
z �read
� tot%+=1
� cur%+=1
�5 � tot%>0 � �Wimp_MenuEnable(Bar_Menu%,2)
�9 � tot%>1 � �Wimp_IconEnable(Tools_Window%,4)
�/ �Wimp_IconEnable(Tools_Window%,10)
�/ �Wimp_IconEnable(Tools_Window%,11)
�; � DRIVER%=� � �Wimp_IconEnable(Bot_Window%,12)
�- �Wimp_IconEnable(Bot_Window%,15)
�- �Wimp_IconEnable(Bot_Window%,18)
� �update
� �
�p �Wimp_WindowErrorBox("Trickster","Please enter some text into the game name icon and press 'ADD'.")
� �
�
� icon%=5 �
. �Wimp_SelectIcon(Tools_Window%,5)
$> � SCO%=-192 � �Wimp_UnselectIcon(Tools_Window%,6)
.> � SCO%=-384 � �Wimp_UnselectIcon(Tools_Window%,7)
8? � SCO%=-576 � �Wimp_UnselectIcon(Tools_Window%,12)
B SCO%=0
L �scroll
V �
` � icon%=6 �
j. �Wimp_SelectIcon(Tools_Window%,6)
t; � SCO%=0 � �Wimp_UnselectIcon(Tools_Window%,5)
~> � SCO%=-384 � �Wimp_UnselectIcon(Tools_Window%,7)
�? � SCO%=-576 � �Wimp_UnselectIcon(Tools_Window%,12)
� SCO%=-192
� �scroll
� �
� � icon%=7 �
�. �Wimp_SelectIcon(Tools_Window%,7)
�> � SCO%=-192 � �Wimp_UnselectIcon(Tools_Window%,6)
�; � SCO%=0 � �Wimp_UnselectIcon(Tools_Window%,5)
�? � SCO%=-576 � �Wimp_UnselectIcon(Tools_Window%,12)
� SCO%=-384
� �scroll
� �
� icon%=12 �
/ �Wimp_SelectIcon(Tools_Window%,12)
> � SCO%=-192 � �Wimp_UnselectIcon(Tools_Window%,6)
; � SCO%=0 � �Wimp_UnselectIcon(Tools_Window%,5)
(> � SCO%=-384 � �Wimp_UnselectIcon(Tools_Window%,7)
2 SCO%=-576
< �scroll
F �
P8 � icon%=8 � icon%=9 � icon%=10 � icon%=11 �
Z � �isopen(Hacker_Window%) �
d� hack%(cur%)=� �
n �winsiz
x*�Wimp_WindowBringToTop(Hacker_Window%)
�)�Wimp_WindowForceDraw(Hacker_Window%)
��
��
�%�Wimp_WindowClose(Hacker_Window%)
��
��
� �
� :
�/ � �User_MouseTitle( button%,icon%)
�C � icon%=8 � icon%=9 � �Wimp_WindowClose(Title_Window%)
�# � icon%=8 � WI$="NONE"
�u � icon%=9 � WI$="MAIN":�Wimp_WindowBringToTop(Main_Window%):�Wimp_WindowBringToTop(Main_Window%):�update
� �
:
- � �User_MouseBot( button%,icon%)
� �
" � � � �error:�
,� icon%=34 �
6PCHEAT% = � PCHEAT%
@(� PCHEAT%=� � PMODULE%=� � PCHEAT%=�
JW� PCHEAT%=� � �Wimp_SelectIcon(Bot_Window%,34) � �Wimp_UnselectIcon(Bot_Window%,34)
T�
^� icon%=35 �
hPMODULE% = � PMODULE%
r)� PMODULE%=� � PCHEAT%=� � PMODULE%=�
|X� PMODULE%=� � �Wimp_SelectIcon(Bot_Window%,35) � �Wimp_UnselectIcon(Bot_Window%,35)
��
�F � icon%=38 � �("Filer_OpenDir <Trickster$Dir>.TrickMods")
� � icon%=12 � �print
�B � icon%=23 � �Wimp_SelectIcon(Bot_Window%,23):TYPE%=�
�B � icon%=24 � �Wimp_SelectIcon(Bot_Window%,24):TYPE%=�
� � icon%=15 �
�3 � �Wimp_IconText(Bot_Window%,18)<>"" �
� �search
� �
�N �Wimp_WindowErrorBox("!Trickster","Please enter a search string")
� �
� �
� � icon%=39 �
�21
& � ("RMLOAD "+hack$(cur%))
�6
& �
0 � icon%=20 �
: �winsiz
D*�Wimp_WindowBringToTop(Hacker_Window%)
N�
X8 � icon%=6 � icon%=8 � icon%=10 � icon%=37 �
b �read
l"�Wimp_WindowClose(Bot_Window%)
v$�Wimp_WindowClose(Tools_Window%)
�#�Wimp_WindowClose(Main_Window%)
�WI$="TITLE"
�)�Wimp_WindowBringToTop(Title_Window%)
��
�4 � icon%=5 � icon%=2 � hack$(cur%)<>"" �
� UPDATE%=�
�& hack%(cur%)=� hack%(cur%)
� � hack%(cur%)=� �
�#�Wimp_SelectIcon(Bot_Window%,5)
�#�Wimp_IconEnable(Bot_Window%,4)
�$�Wimp_IconEnable(Bot_Window%,39)
�$�Wimp_IconEnable(Bot_Window%,20)
��
%�Wimp_UnselectIcon(Bot_Window%,5)
$�Wimp_IconDisable(Bot_Window%,4)
%�Wimp_IconDisable(Bot_Window%,39)
%�Wimp_IconDisable(Bot_Window%,20)
*�
4 �
> �
H :
R0 � �Event_KeyPress(window%,icon%,key%)
\ Ȏ window% �
fE � Main_Window% : �User_KeyPressMain( icon%,key%)
pD � Bot_Window% : �User_KeyPressBot( icon%,key%)
z �
� �
� :
�. � �User_KeyPressMain( icon%,key%)
�U � PROCWimp_WindowAlert("Main","Key pressed="+STR$key%+"icon="+STR$icon%)
�E � icon%=17 � key%=13 � cur%=tot% � �User_MouseTools(4,2)
�E � icon%=17 � key%=13 � cur%<tot% � �User_MouseTools(4,8)
�s � icon%=6 � (key%=13 � key%=398) � �Wimp_IconCaret(Main_Window%,10,�(�Wimp_IconText(Main_Window%,10)))
�g � icon%=6 � key%=399 � �Wimp_IconCaret(Main_Window%,17,�(�Wimp_IconText(Main_Window%,17)))
� �
� :
�- � �User_KeyPressBot( icon%,key%)
� �
� :
% � �Event_MenuChoice(menu%)
Ȏ menu% �
< � Bar_Menu% : �User_MenuChoiceBar
$
�
. �
8 :
B � �User_MenuChoiceBar
L$ Ȏ �Wimp_MenuChoice(0) �
V � 1 :
` � 3
j� UPDATE%=� �
tD�Wimp_IconPutText(Close_Window%,0,"This file has been modified")
~)�Wimp_WindowBringToTop(Close_Window%)
� �mousebox(Close_Window%)
��
� � UPDATE%=� � finished%=�
�
�
� �
� :
�) � �Event_LoadFile(file$,type$)
� � �
� � � � �error:�
�� type$="BBD" �
�g�Wimp_WindowAlert("!Trickster","Can not accept 'CheatData' files, please convert using !Pad>Trick")
��
� type$="ACE" �
� UPDATE%=� �
{check%=�Wimp_WindowCancel("!Trickster","The current file has been modified, are you sure you want to load a new one ?")
� check%=� � UPDATE%=�
(�
2� UPDATE%=� �
<
UPDATE%=�
F+�Wimp_IconPutText(Save_Window%,1,file$)
PX%=�(file$)
Z
� X%<>0 �
d� #X%,tot%
n� A=0 � tot%
x� #X%,pos%(A)
�� B=0 � 25
�� #X%,hacker$(A,B)
��B
�� #X%,name$(A)
�
� B=0 � 7
�� #X%,info$(A,B)
��B
�� #X%,hack$(A)
�� #X%,hack%(A)
��
��A
��#X%
�
cur%=0
'�Wimp_IconDisable(Tools_Window%,10)
'�Wimp_IconDisable(Tools_Window%,11)
� cur%<tot% �
"%�Wimp_IconEnable(Tools_Window%,9)
,%�Wimp_IconEnable(Tools_Window%,8)
6%�Wimp_IconEnable(Tools_Window%,3)
@&�Wimp_IconDisable(Tools_Window%,2)
J�
T� tot%>0 �
^!�Wimp_MenuEnable(Bar_Menu%,2)
h�
r� tot%=0 �
|"�Wimp_MenuDisable(Bar_Menu%,2)
�&�Wimp_IconDisable(Tools_Window%,8)
�&�Wimp_IconDisable(Tools_Window%,9)
�&�Wimp_IconDisable(Tools_Window%,3)
�%�Wimp_IconEnable(Tools_Window%,2)
��
�� tot%<2 �
�/ �Wimp_IconDisable(Tools_Window%,4)
�. �Wimp_IconDisable(Bot_Window%,12)
�. �Wimp_IconDisable(Bot_Window%,15)
�. �Wimp_IconDisable(Bot_Window%,18)
��
�� tot%>1 �
�. �Wimp_IconEnable(Tools_Window%,4)
; � DRIVER%=� � �Wimp_IconEnable(Bot_Window%,12)
- �Wimp_IconEnable(Bot_Window%,15)
- �Wimp_IconEnable(Bot_Window%,18)
&�
0)�Wimp_WindowBringToTop(Title_Window%)
:%�Wimp_WindowClose(Hacker_Window%)
D"�Wimp_WindowClose(Bot_Window%)
N$�Wimp_WindowClose(Tools_Window%)
X#�Wimp_WindowClose(Main_Window%)
b �update
l�
v�
�) ș"Wimp_GetPointerInfo",,wimp%
�0 � wimp%!16=3 � wimp%!12=Bot_Window% �
� � type$="FFA" �
�� LOCAL ERROR
�'� ON ERROR LOCAL PROCerror2:ENDPROC
�X%=�(file$)
�
� X%<>0 �
��#X%
�ș"Hourglass_On"
� UPDATE%=�
��checkmodule(file$)
�pos%(cur%)=pos%
�� DOSAVE%=� �
.� �hacker$(cur%,pos%(cur%)-1),1)<>�(160) �
/�cutlong(hacker$(cur%,pos%(cur%)-1),pos%-1)
pos%(cur%)=pos%(cur%)+(B%)
�
* � �isopen(Hacker_Window%) �
4 �winsiz
>*�Wimp_WindowBringToTop(Hacker_Window%)
H)�Wimp_WindowForceDraw(Hacker_Window%)
R�
\
pos%=0
fhack%(cur%)=�
p#�Wimp_IconEnable(Bot_Window%,4)
z#�Wimp_SelectIcon(Bot_Window%,5)
�$�Wimp_IconEnable(Bot_Window%,39)
�$�Wimp_IconEnable(Bot_Window%,20)
�#�Wimp_IconEnable(Bot_Window%,5)
�� hack$(cur%)=file$
�'a$=�Wimp_GetFileFromPathname(file$)
�AA%=�nacheck(file$)
�k� AA%=� � hack$(cur%)="<Trickster$Dir>.TrickMods."+�Wimp_GetFileFromPathname(file$) � hack$(cur%)=file$
�K�Wimp_IconPutText(Bot_Window%,4,�Wimp_GetFileFromPathname(hack$(cur%)))
��
�ș"Hourglass_Smash"
��
��
� �
�
:
+ � �Event_SaveFile(file$,window%)
$ � �
. � � � �error:�
8 Ȏ window% �
B � Save_Window%
LX%=�(file$)
V
� X%<>0 �
`Scheck%=�Wimp_WindowCancel("!Trickster","This file already exists, overwrite ?")
j� check%=� � X%=0
t�#X%
~�
� � X%=0 �
�� DOSAVE%=� �
� � cur%=tot% �
�1 �Wimp_IconPutText(Main_Window%,6,"")
� � A=10 � 17
�1 �Wimp_IconPutText(Main_Window%,A,"")
� �A
�0 �Wimp_IconPutText(Bot_Window%,4,"")
� hack%(cur%)=�
� �
� �read
�X%=�(file$)
� X%<>0 �
� #X%,tot%
� A=0 � tot%
� #X%,pos%(A)
(� B=0 � 25
2� #X%,hacker$(A,B)
<�B
F� #X%,name$(A)
P
� B=0 � 7
Z� #X%,info$(A,B)
d�B
n� #X%,hack$(A)
x� #X%,hack%(A)
��A
��
��#X%
� � ("SETTYPE "+file$+" ACE")
��Wimp_MenuClose
��
�
UPDATE%=�
��
� � Save2_Window%
�X%=�(file$)
�
� X%<>0 �
�Scheck%=�Wimp_WindowCancel("!Trickster","This file already exists, overwrite ?")
�� check%=� � X%=0:�#X%
�
� X%=0 �
� �
"� � � �error
,� DOSAVE%=� �
6 �Wimp_MenuClose
@ �("SPOOL "+file$)
J� DD=0 � tot%-1
T& �"Game Name - "+name$(DD)+�(10);
^
�(10);
h" �"Tricks and Tactics"+�(10);
r � A=0 � 7
|/ � info$(DD,A)<>"" � �info$(DD,A)+�(10);
� �A
� �(10);
� � hack%(DD)=� �
�B �"Cheat Name - "+�hacker$(DD,0),�(hacker$(DD,0))-6)+�(10);
� �(10);
�J �"Author of Cheat - "+�hacker$(DD,1),12,�(hacker$(DD,1))-8)+�(10);
� �(10);
�D �"Cheated with - "+�hacker$(DD,2),6,�(hacker$(DD,2)))+�(10);
� �(10);
� �"Keys"+�(10);
� � A=0 � pos%(DD)-4
�: � �(�hacker$(DD,A+3)))=160 � �hacker$(DD,A+3))=" "
�: � �(�hacker$(DD,A+3)))=&0d � �hacker$(DD,A+3))=" "
�hacker$(DD,A+3)+�(10);
�A
�(10);
& �
0�DD
:�
D �("SPOOL")
N �("SETTYPE "+file$+" FFF")
X �6
b6 � file$="<Wimp$Scrap>" � �Wimp_SendToEdit(file$)
l �
v �
�� DOSAVE%=� � DOSAVE%=�
� �
�:
�G� *****************************************************************
�:
�.� �Wimp_WindowTitlePutText(window%,title$)
�wimp%!0 = window%
�ș &000400CC,,wimp%
�po% = !(wimp%+76)
�$po% = title$+�0
��
�:
�(� �Wimp_WindowAlert(title$,message$)
+�Wimp_WindowAlertBox(title$,message$,0)
�
:
3� �Wimp_WindowAlertBox(title$,message$,button%)
*� response%
4$(wimp%+4)=message$
>Ȏ button% �
H � 2 : response%=1
R � 1 : response%=15
\! � 3 : response%=(1<<5)+16
f! � 4 : response%=(1<<6)+16
p : response%=16
z�
�=ș "Wimp_ReportError",wimp%,response%,title$ � ,response%
��
�:
�)� �Wimp_WindowCancel(title$,message$)
�$(wimp%+4)=message$
�response%=23
�=ș "Wimp_ReportError",wimp%,response%,title$ � ,response%
�=response%-2
�:
�+� �Wimp_WindowErrorBox(title$,message$)
�+�Wimp_WindowAlertBox(title$,message$,2)
��
�:
� �Wimp_WindowTitle(window%)
wimp%!0=window%
"ș "Wimp_GetWindowInfo",,wimp%
$6� ((wimp%!60)�&100)=0 � 1,"Title isn't indirected"
.=$(wimp%!76)
8:
B � �Wimp_WindowLoad(window$)
L9=�Wimp_WindowLoadFrom(window$,"<Obey$Dir>.Templates")
V:
`-� �Wimp_WindowLoadFrom(window$,template$)
j� c%,i%,n%,j%,sp$,sp2$
t%ș "Wimp_OpenTemplate",,template$
~Mș "Wimp_LoadTemplate",,wimp%,icons%,icon_memory%,-1,window$,0 � ,,icons%
�Ȏ sprites% �
� � 1 : wimp%!64=sprites%
�) : wimp%!64=�Event_Sprites(window%)
��
�&ș "Wimp_CreateWindow",,wimp% � c%
�ș "Wimp_CloseTemplate"
�7ș "Wimp_WhichIcon",c%,wimp%+40,1+2+(1<<8),2+(1<<8)
�Ȏ 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
2 :
</ ș "OS_SpriteOp",&108,sprites% � ,,,n%
F
j%=0
P � : j%+=1
Z= ș "OS_SpriteOp",&10D,sprites%,pointer_block%,20,j%
d7 sp2$=�Wimp_GetStringAtAddress(pointer_block%)
n � j%=n% � sp$=sp2$
x4 � sp$=sp2$ � wimp%!32=sprites% � wimp%!32=1
� �
� wimp%!4=c%
�. ș "Wimp_CreateIcon",,wimp%+4 � handle%
� i%+=4
� � (wimp%!i%)=-1
��
�=c%
�:
� � �Wimp_WindowOpen(window%)
�!wimp%=window%
�#ș "Wimp_GetWindowState",,wimp%
� �botopen
� ș "Wimp_OpenWindow",,wimp%
�
:
%� �Wimp_WindowBringToTop(window%)
"!wimp%=window%
,#ș "Wimp_GetWindowState",,wimp%
6wimp%!28=-1
@ �botopen
J ș "Wimp_OpenWindow",,wimp%
T�
^:
h � �Wimp_WindowClose(window%)
r!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
��
��
�:
��Wimp_WindowInterface
� ș"Wimp_BorderWindow",,wimp%
��
�:
G� *****************************************************************
:
%� �Wimp_IconUpdate(window%,icon%)
&wimp%!0=window%
0wimp%!4=icon%
:
wimp%!8=0
Dwimp%!12=0
N!ș "Wimp_SetIconState",,wimp%
X�
b:
l;� �Wimp_SetBar(win%,dragicon%,sizeicon%,range%,number%)
v� number%<0 � number%=0
�%� number%>range% � number%=range%
�wimp%!0=win%
�wimp%!4=sizeicon%
�!ș "Wimp_GetIconState",,wimp%
�sizeminx%=wimp%!8
�sizeminy%=wimp%!12
�sizemaxx%=wimp%!16
�sizemaxy%=wimp%!20
�<newx%=sizeminx%+(number%/(range%/(sizemaxx%-sizeminx%)))
�� newx%<>oldworkx% �
�wimp%!0=win%
�wimp%!4=dragicon%
�!ș "Wimp_GetIconState",,wimp%
!wimp%!16=newx%
! wimp%!0=win%
!wimp%!4=dragicon%
! ș "Wimp_DeleteIcon",,wimp%
!*wimp%!4=win%
!4!ș "Wimp_CreateIcon",,wimp%+4
!>newwimp%=wimp%+4
!H� oldworkx%<newx% �
!Rnewwimp%!4=sizeminx%
!\�
!fnewwimp%!4=newx%
!p�
!znewwimp%!8=sizeminy%
!�� oldworkx%<newx% �
!�newwimp%!12=newx%
!��
!�newwimp%!12=sizemaxx%
!��
!�newwimp%!16=sizemaxy%
!�+ș "Wimp_UpdateWindow",,newwimp% � flag
!� ȕ flag
!�+ș "Wimp_GetRectangle",,newwimp% � flag
!��
!�oldworkx%=newx%
!��
!��
":
"<� �Wimp_IconGetBarValue(win%,dragicon%,sizeicon%,range%)
"wimp%!0=win%
"$wimp%!4=sizeicon%
".!ș "Wimp_GetIconState",,wimp%
"8sizeminx%=wimp%!8
"Bsizemaxx%=wimp%!16
"Lwimp%!0=win%
"Vwimp%!4=dragicon%
"`!ș "Wimp_GetIconState",,wimp%
"j6=(range%/(sizemaxx%-sizeminx%))*(wimp%!16-wimp%!8)
"t:
"~8� �Wimp_IconDragSliderIcon(win%,dragicon%,sizeicon%)
"�wimp%!0=win%
"�wimp%!4=sizeicon%
"�!ș "Wimp_GetIconState",,wimp%
"�sminx%=wimp%!8
"�sminy%=wimp%!12
"�smaxx%=wimp%!16
"�smaxy%=wimp%!20
"�#ș "Wimp_GetPointerInfo",,wimp%
"�mx%=wimp%!0
"�wimp%!0=win%
"�"ș "Wimp_GetWindowInfo",,wimp%
"�,calcx%=(mx%-(wimp%!4-wimp%!20))+wimp%!44
# 'iconminx%=sminx%+(wimp%!4-wimp%!20)
#
'iconmaxx%=iconminx%+(smaxx%-sminx%)
#(iconminy%=sminy%+(wimp%!16-wimp%!24)
# )iconmaxy%=iconminy%+(smaxy%-sminy%)-4
#(wimp%!0=win%
#2
wimp%!4=7
#<wimp%!8=iconminx%
#Fwimp%!12=iconminy%
#Pwimp%!16=iconmaxx%
#Zwimp%!20=iconmaxy%
#dwimp%!24=wimp%!8
#nwimp%!28=wimp%!12
#xwimp%!32=wimp%!16
#�wimp%!36=wimp%!20
#� ș "Wimp_DragBox",,wimp%
#�slidewindow%=win%
#�slideicon%=dragicon%
#�slidesize%=sizeicon%
#�wimp%!0=win%
#�wimp%!4=dragicon%
#�!ș "Wimp_GetIconState",,wimp%
#�oldworkx%=wimp%!16
#��
#�:
#�?� �Wimp_IconDoSlide(win%,dragicon%,sizeicon%,const%,range%)
#�wimp%!0=win%
$wimp%!4=sizeicon%
$!ș "Wimp_GetIconState",,wimp%
$sizeminx%=wimp%!8
$"sizeminy%=wimp%!12
$,sizemaxx%=wimp%!16
$6sizemaxy%=wimp%!20
$@#ș "Wimp_GetPointerInfo",,wimp%
$Jmx%=wimp%!0
$Twimp%!0=win%
$^"ș "Wimp_GetWindowInfo",,wimp%
$hminx%=wimp%!4
$rscrx%=wimp%!20
$|newx%=mx%+(scrx%-minx%)
$�� newx%<>oldworkx% �
$�wimp%!0=win%
$�wimp%!4=dragicon%
$�!ș "Wimp_GetIconState",,wimp%
$�wimp%!16=newx%
$�wimp%!0=win%
$�wimp%!4=dragicon%
$� ș "Wimp_DeleteIcon",,wimp%
$�wimp%!4=win%
$�!ș "Wimp_CreateIcon",,wimp%+4
$�newwimp%=wimp%+4
$�� oldworkx%<newx% �
$�newwimp%!4=sizeminx%
%�
%newwimp%!4=newx%
% �
%&newwimp%!8=sizeminy%
%0� oldworkx%<newx% �
%:newwimp%!12=newx%
%D�
%Nnewwimp%!12=sizemaxx%
%X�
%bnewwimp%!16=sizemaxy%
%l+ș "Wimp_UpdateWindow",,newwimp% � flag
%v ȕ flag
%�+ș "Wimp_GetRectangle",,newwimp% � flag
%��
%�� const% �
%� size%=sizemaxx%-sizeminx%
%� ppos%=(oldworkx%-sizeminx%)
%� number%=(range%/size%)*ppos%
%�:
%�Ȏ slideicon% �
%�� 2
%�/�PROCiconputtext(main%,3,STR$(number%)+"%")
%��
%��
%��
&oldworkx%=newx%
& rrange%=range%
&�
& :
&*0� �Wimp_SetIconSprite(window%,icon%,sprite$)
&4wimp%!0=window%
&>wimp%!4=icon%
&H!ș "Wimp_GetIconState",,wimp%
&R$wimp%!32="S"+sprite$
&\wimp%!0=window%
&f
wimp%!8=0
&pwimp%!12=0
&z!ș "Wimp_SetIconState",,wimp%
&��
&�:
&� � �Wimp_IconBar(Sprite$)
&� � icon%
&�wimp%!0=-1
&� wimp%!4=0 : wimp%!8=0
&� wimp%!12=88 : wimp%!16=72
&�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%)
'.#wimp%!0=window% : wimp%!4=icon%
'8!ș "Wimp_GetIconState",,wimp%
'B7� ((wimp%!24) � &100)=0 � 1,"Icon isn't indirected"
'L=$(wimp%!28)
'V:
'`)� �Wimp_IconValidation(window%,icon%)
'j#wimp%!0=window% : wimp%!4=icon%
't!ș "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%
(2 ș "Wimp_DeleteIcon",,wimp%
(<=wimp%!4=wimp%!8 : wimp%!8=wimp%!12 : wimp%!12=wimp%!16
(F?wimp%!16=wimp%!20 : wimp%!20=wimp%!24 : $(wimp%+24)=sprite$
(P'ș "Wimp_CreateIcon",,wimp% � icon%
(Z
=icon%
(d:
(n,� �Wimp_IconPutText(window%,icon%,text$)
(x#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%
)�
)":
),G� *****************************************************************
)6:
)@ � �Wimp_MenuAdjustOn(menu%)
)J,ș "Wimp_GetPointerInfo",,pointer_block%
)T^� ((pointer_block%!8)�1)=1 � ș "Wimp_CreateMenu",,menu%,pointer_block%!0,pointer_block%!4
)^�
)h:
)r � �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
)�index%=menu%+28
)� $menu%=�menu$,�menu$,"\")-1)
)�#width%=�(�menu$,�menu$,"\")-1))
)�$menu$+="\" : Menu_NoOfEntries%=0
)�ȕ menu$<>""
)� menu$=�menu$,�menu$,"\")+1)
*Ȏ menu$ �
* � ""
* :
*&1 !index%=0 : index%!4=-1 : index%!8=&7000021
*0 length%=�menu$,"\")-1
*: k%=��menu$,length%),">")
*D
Ȏ k% �
*N
� 0
*X
*b% s%=�(�menu$,k%+1,length%-k%))
*l index%!4=s%
*v length%=k%-1
*� �
*�" $(index%+12)=�menu$,length%)
*�' � length%>width% � width%=length%
*� index%+=24
*��
*��
*�menu%!16=16*(width%+1)
*�(index%!-24=index%!-24 � &80 : =menu%
*�=�
*�:
*�� �Wimp_MenuColours
*�!=�Wimp_MenuCreateColours(" ")
*�:
+%� �Wimp_MenuCreateColours(title$)
+ � x$,men%,j%,i%
+6x$=title$+"\0\1\2\3\4\5\6\7\8\9\10\11\12\13\14\15"
+ men%=�Wimp_MenuCreate(x$)
+*� i%=0 � 15
+4
Ȏ � �
+>(� i%<4,i%=9,i%=12,i%=14,i%=15 : j%=7
+H : j%=0
+R�
+\ men%?(39+i%*24)=i%*16+j%
+f �Wimp_MenuCentre(men%,i%+1)
+p�
+z =men%
+�:
+�"� �Wimp_MenuNoOfEntries(menu$)
+�� n% ,j% : n%=0 : j%=0
+��
+�j%=�menu$,"\",j%+1)
+�� j%<>0 � n%+=1
+�
� j%=0
+�=n%
+�:
+�5� �Wimp_MenuBackGroundColour(menu%,item%,colour%)
+�� fore%,i%
+�&fore%=(menu%?(39+(item%-1)*24))�16
+�(i%=((menu%?(39+(item%-1)*24))�16)�16
,/menu%?(39+(item%-1)*24)=fore%+16*colour%+i%
,�
,:
,$#� �Wimp_MenuCentre(menu%,item%)
,.:menu%!(36+(item%-1)*24)=menu%!(36+(item%-1)*24)�(1<<3)
,8�
,B:
,L� �Wimp_MenuClose
,Vș "Wimp_CreateMenu",-1
,`�
,j:
,t$� �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%)
,�;menu%!(36+(item%-1)*24)=menu%!(36+(item%-1)*24)�(1<<22)
,��
,�:
,�5� �Wimp_MenuForegroundColour(menu%,item%,colour%)
- Emenu%?(39+(item%-1)*24)=colour%+16*((menu%?(39+(item%-1)*24))�16)
-
�
-:
- )� �Wimp_MenuGlue(menu1%,item%,menu2%)
-( menu1%!(8+item%*24)=menu2%
-2�
-<:
-F'� �Wimp_MenuItem(menu%,item%,item$)
-P,$(menu%+(40+(item%-1)*24))=�item$,12)+�0
-Z�
-d:
-n$� �Wimp_MenuMessage(menu%,item%)
-x<menu%!(28+(item%-1)*24)=(menu%!(28+(item%-1)*24))�(1<<3)
-��
-�:
-�"� �Wimp_MenuPopUp(Menu%,x%,y%)
-�
� SA%=� �
-�menu%=Menu%
-�+ș "Wimp_CreateMenu",,menu%,x%-64,y%+20
-��
-��
-�:
-� � �Wimp_MenuPopUpBar(x%,y%)
-�� n% : n%=0
-�+ȕ ((Bar_Menu%!(28+n%*24))�%10000000)=0
-� n%+=1
.�
.2ș "Wimp_CreateMenu",,Bar_Menu%,x%-64,96+n%*44
.menu%=Bar_Menu%
."�
.,:
.6!� �Wimp_MenuTick(menu%,item%)
.@7menu%!(28+(item%-1)*24)=(menu%!(28+(item%-1)*24))�1
.J�
.T:
.^#� �Wimp_MenuTitle(menu%,title$)
.h$menu%=�title$,12)+�0
.r�
.|:
.�=� �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%
.��
.�:
.�G� *****************************************************************
.�:
.�%� �Wimp_SelectIcon(window%,icon%)
.�wimp%!0=window%
.�wimp%!4=icon%
/#wimp%!8=%1000000000000000000000
/$wimp%!12=%1000000000000000000000
/ ș&400CD,,wimp%
/&�
/0:
/:'� �Wimp_UnselectIcon(window%,icon%)
/Dwimp%!0=window%
/Nwimp%!4=icon%
/X
wimp%!8=0
/b$wimp%!12=%1000000000000000000000
/lș&400CD,,wimp%
/v�
/�:
/�� �Wimp_SpritesLoad
/�*ș"OS_ReadModeVariable",-1,5 � ,,YEIG%
/�/� YEIG%<2 � SPR$="Sprites" � SPR$="Sprites"
/�-�Wimp_SpritesPathLoad("<Obey$Dir>."+SPR$)
/� direct_sprites%=sprites%
/��
/�:
/�&� �Wimp_SpritesPathLoad(pathname$)
/�
�S%,T%
/�A$="<Obey$Dir>."+SPR$
/�S%=� A$:T%=�#S%+16:�#S%
/��sprites%T%,spname%12
0 !sprites%=T%:sprites%!8=0
0 !ș"OS_SpriteOp",&109,sprites%
0+ș"OS_SpriteOp",&10A,sprites%,pathname$
0 �
0*:
04G� *****************************************************************
0>:
0H� �Wimp_GetFilePathName
0R'=�Wimp_GetStringAtAddress(wimp%+44)
0\:
0f � �Wimp_FileLoad(pathname$)
0p�S%,T%,file%
0zS%=�pathname$
0�T%=�#S%+16
0��#S%
0� �file%T%
0�"�("LOAD"+pathname$+""+�~file%)
0�
=file%
0�:
0� � �Wimp_SendToEdit(file$)
0�� n%
0�wimp%!4=&6CC01C0C
0�wimp%!16=5
0�wimp%!36=0
0�wimp%!40=&FFF
0�$(wimp%+44)=file$+�0
1n%=�file$+45
1,� n%�4 � !wimp%=4+(n%>>2)<<2 � !wimp%=n%
1$ș "Wimp_SendMessage",17,wimp%,0
1$�
1.:
18G� *****************************************************************
1B:
1L/� �Wimp_Start(TaskName$,wimp_memory%,icon%)
1V%� wimp% wimp_memory%,icons% icon%
1`)� wimp_memory%<256 � wimp_memory%=256
1j icon_memory%=icons%+icon%
1ttask$=TaskName$
1~+indirect_sprites%=1 : direct_sprites%=1
1��Wimp_SetEventVariables
1�� � �Wimp_Error:�
1�@ș"Wimp_Initialise",200,&4B534154,TaskName$ � version%,task%
1��
1�:
1�� �Wimp_BASICParameters
1� � com$,param$,I%
1� ș "OS_GetEnv" � com$
1� params$=""
1� I%=�com$," -quit ")
1�5 � I% � params$=�com$,�com$," ",I%+�" -quit ")+1)
1� =params$
2 :
2
� �Wimp_SetEventVariables
2� pointer_block% 20
2 interface%=�
2(.null%=1 :draw%=2 : pointer_leaving%=1<<4
221pointer_entering%=1<<5:mouse%=1<<6:drag%=1<<7
2<&key%=1<<8:menu%=1<<9:scroll%=1<<10
2F@lose_caret%=1<<11:gain_caret%=1<<12:message%=(1<<17)+(1<<18)
2P0recorder%=1<<18:acknowledge%=1<<19:window%=0
2Z!sprites%=1:version%=0:task%=0
2d*Bar_Window%=-2:Bar_Icon%=0:Bar_Menu%=0
2n*x_origin%=0:y_origin%=0:SaveWindow%=-3
2x3message_quit%=0:message_save%=2:message_load%=3
2�!mouse_button%=2:save_event%=0
2� top_line%=0 : bottom_line%=0
2�:
2�A� Dont mess about with below (or use them !) they are used in
2� � the drag bar routines.
2�slidewindow%=-1
2�slideicon%=-1
2�slidesize%=-1
2�oldworkx%=-1
2�rrange%=-1
2�sizemaxx%=-1
2�sizeminx%=-1
2��
3:
3� �Wimp_Error
3
�X$,x%
3" � � �
3,x%=�
36X$=�$+"atline"+�(x%�10)
3@�ErrorMsg%36
3JEErrorMsg%!0=36:ErrorMsg%!12=0:ErrorMsg%!16=&81080:ErrorMsg%!20=x%
3T $(ErrorMsg%+24)="!RunImage"
3^%ș"Wimp_SendMessage",17,ErrorMsg%
3h �Wimp_WindowAlert(task$,X$)
3r�Wimp_CloseDown
3|�
3�:
3�� �Wimp_CloseDown
3�#ș"Wimp_CloseDown",task%,"TASK"
3��
3�:
3�� �Wimp_Quit
3�finished%=�
3��
3�:
3�#� �Wimp_ReadVariable(Variable$)
3��len%,result%,variable%
3�$wimp%=Variable$
3�3ș"OS_ReadVarVal",wimp%,wimp%+255,255,,3�,,len%
4wimp%?(len%+255)=13
4=$(wimp%+255)
4 :
4&G� *****************************************************************
40:
4:� �Wimp_WaitForEvent
4D� mask%,event%
4Nfinished%=�
4Xmask%=%111000011001
4b�
4l' ș"Wimp_Poll",mask%,wimp% � event%
4v Ȏ event% �
4� �0
4� �1 : �Wimp_PollDrawWindow
4� �2
4� �botopen
4� ș "Wimp_OpenWindow",,wimp%
4� �3 : �Wimp_PollCloseWindow
4�
�4 :
4�
�5 :
4� �6 : �Wimp_PollMouseClick
4� �7 : �Wimp_PollSaveMessage
4� �8 : �Wimp_PollKeyPress
4�# �9 : �Event_MenuChoice(menu%)
4�
�10:
5
�11:
5
�12:
5 �17,18: �Wimp_PollMessages
5
�19:
5* �
54� finished%
5>�
5H:
5R� �Wimp_PollDrawWindow
5\ � more%
5f&ș"Wimp_RedrawWindow",,wimp%�more%
5pwindow%=wimp%!0
5zAx_origin%=16+wimp%!4-wimp%!20:y_origin%=-16+wimp%!16-wimp%!24
5� ȕmore%
5�0 � interface% � ș"Wimp_BorderWindow",,wimp%
5�- �Event_Draw(window%,x_origin%,y_origin%)
5�' ș"Wimp_GetRectangle",,wimp%�more%
5��
5��
5�:
5�� �Wimp_PollCloseWindow
5�% ș "Wimp_GetPointerInfo",,wimp%
5�) window%=wimp%!12 : buttons%=wimp%!8
5�) �Event_WindowClose(window%,buttons%)
5�2 !wimp%=window% : ș "Wimp_CloseWindow",,wimp%
5��
6:
6� �Wimp_PollMouseClick
6J button%=wimp%!8:window%=wimp%!12:icon%=wimp%!16:x%=wimp%!0:y%=wimp%!4
6$ Ȏ button% �
6." �2 : �Wimp_PollMenuPopUp
68# : Ȏ �Event_Save(window%) �
6B, � � : �Wimp_PollMouseSave
6L1 � �: �Wimp_PollEventMouseClick
6V �
6` �
6j�
6t:
6~� �Wimp_PollMenuPopUp
6�
� SA%=� �
6� menu%=�Event_Menu(window%)
6� Ȏ menu% �
6� � �:
6�
:
6� Ȏ window% �
6� � -2 : n%=0
6�3 ȕ ((Bar_Menu%!(28+n%*24))�%10000000)=0
6� n%+=1
6�
�
6�: ș "Wimp_CreateMenu",,Bar_Menu%,x%-64,96+n%*66
6�4 : ș"Wimp_CreateMenu",,menu%,x%-64,y%+20
7
�
7
�
7�
7 �
7(:
72� �Wimp_PollMouseSave
7< Ȏ icon% �
7F8 � 3 : � button% � &50 � �Wimp_PollDragBox(window%)
7P8 � 2 : � button% � 5 � �Wimp_PollSaveFile(window%)
7Z �
7d�
7n:
7x � �Wimp_PollEventMouseClick
7�. � interface% � ș"Wimp_BorderIcon",,wimp%
7�3 �Event_MouseClick(window%,icon%,button%,x%,y%)
7� Ȏ interface% �
7� � � :
7�( wimp%!0=x%:wimp%!4=y% : wimp%!8=0
7�( wimp%!12=window% : wimp%!16=icon%
7�! ș"Wimp_BorderIcon",,wimp%
7� �
7��
7�:
7�!� �Wimp_PollSaveFile(window%)
7�
�file$
7�@ wimp%!0=window% : wimp%!4=1 : ș "Wimp_GetIconState",,wimp%
8 file$=$(wimp%!28)
8 Ȏ �file$,".") �
8
� 0 :
8"� key%=13 �
8,@ $(wimp%+4)="To save, drag the icon to a directory window"
86+ ș "Wimp_ReportError",wimp%,16,task$
8@�
8J :
8T"�Event_SaveFile(file$,window%)
8^�Wimp_MenuClose
8h �
8r&� key%=13 � ș"Wimp_CreateMenu",-1
8| � SA%=� � �Wimp_CloseDown
8��
8�:
8� � �Wimp_PollDragBox(window%)
8�
�x%,y%
8� � window%=Save_Window% �
8�sn$="file_ace2"
8��
8�sn$="text2"
8��
8� save%=window%
8� !wimp%=window%
8�# ș"Wimp_GetWindowState",,wimp%
8�- x%=wimp%!4-wimp%!20:y%=wimp%!16-wimp%!24
9 wimp%!4=3
9! ș"Wimp_GetIconState",,wimp%
9 !wimp%=window%
9& wimp%!4=5
90, wimp%!8=x%+wimp%!8:wimp%!12=y%+wimp%!12
9:. wimp%!16=x%+wimp%!16:wimp%!20=y%+wimp%!20
9D wimp%!24=0:wimp%!28=0
9N* wimp%!32=&7FFFFFFF:wimp%!36=&7FFFFFFF
9X� sn$="" �
9bș&000400D0,,wimp%
9l�
9v� dragicons% �
9�/ș &00042400,%11000101,sprites%,sn$,wimp%+8
9��
9�ș&000400D0,,wimp%
9��
9��
9�
�unbox
9��
9�:
9�� �Wimp_PollKeyPress
9�1 window%=wimp%!0:icon%=wimp%!4:key%=wimp%!24
9� Ȏ �Event_Save(window%) �
9�( � � : �Wimp_PollSaveFile(window%)
9�/ � �: �Event_KeyPress(window%,icon%,key%)
: �
: �
::
: � �Wimp_PollSaveMessage
:* �file$,window%,icon%,x%,y%
:4# ș"Wimp_GetPointerInfo",,wimp%
:>: window%=wimp%!12:icon%=wimp%!16:x%=wimp%!0:y%=wimp%!4
:H> wimp%!0=save% : wimp%!4=1 : ș "Wimp_GetIconState",,wimp%
:R file$=$(wimp%!28)
:\+ file$=�Wimp_GetFileFromPathname(file$)
:fACE$=file$
:p wimp%!20=window%
:z wimp%!24=icon%
:� wimp%!28=x%:wimp%!32=y%
:� 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
:�AA%=wimp%!16
:�AB%=wimp%!40
;AC%=wimp%!12
;AD%=wimp%!8
;AE%=wimp%!20
;$�openprinter
;. � file$
;8,file$=�Wimp_GetStringAtAddress(wimp%+44)
;B Ȏ AA% �
;L � 0 : finished%=�
;V � 1 :
;` � 2 :
;jC wimp%!0=save% : wimp%!4=1 : ș "Wimp_GetIconState",,wimp%
;t $(wimp%!28)=file$
;~< wimp%!0=save% : wimp%!4=1 : wimp%!8=0 : wimp%!12=0
;�' ș "Wimp_SetIconState",,wimp%
;�0 � PROCWimp_IconCaret(save%,1,LENfile$)
;�8 ș "Wimp_SetCaretPosition",save%,1,,,-1,�file$
;� �Wimp_MenuClose
;�& �Event_SaveFile(file$,save%)
;�# � SA%=� � �Wimp_CloseDown
;� � 3
;�( type$=�Wimp_FileType(wimp%!40)
;�& �Event_LoadFile(file$,type$)
;� � &400C1
;�B � �isopen(Main_Window%) � �Wimp_WindowOpen(Main_Window%)
;� � 5
< wimp%!40=AB%
<
wimp%!12=AC%
<wimp%!8=AD%
< wimp%!20=AE%
<(' � wimp%!40=&ACE � event%=18 �
<2 wimp%!12=wimp%!8
<<2 ș"XWimp_SendMessage",17,wimp%,wimp%!20
<F& file$=�Wimp_GetFilePathName
<P% type$=�Wimp_FileType(&ACE)
<Z' �Event_LoadFile(file$,type$)
<d
�
<n �
<x�
<�:
<�&� �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"
=,�&FFB:="Basic"
=6�&FF9:="Sprite"
=@�&FED:="Palette"
=J�&FEC:="Template"
=T�&AFF:="Draw"
=^�&1000:="Folder"
=h�&2000:="Application"
=r:=�~(type%)
=|�
=�=�
=�:
=�� �botopen
=� � wimp%!0=Main_Window% �
=�mainminx%=wimp%!4
=�mainminy%=wimp%!8
=�mainmaxx%=wimp%!12
=�mainmaxy%=wimp%!16
=�mainscrollx%=wimp%!20
=�mainscrolly%=wimp%!24
=�
=�backhand%=wimp%!28
=�wimp%!0=Tools_Window%
>ș &400cb,,wimp%
>wimp%!0=Tools_Window%
> wimp%!4=mainminx%-78
>&wimp%!8=mainminy%
>0 wimp%!12=mainmaxx%+wimp%!4
>:wimp%!16=mainmaxy%
>Dwimp%!28=backhand%
>Nș &400C5,,wimp%
>X
>bwimp%!0=Bot_Window%
>lș &400cb,,wimp%
>vwimp%!0=Bot_Window%
>�wimp%!4=mainminx%+6
>�wimp%!8=mainminy%+10
>� wimp%!12=mainmaxx%+wimp%!4
>�wimp%!16=mainmaxy%-718
>�wimp%!24=SCO%
>�wimp%!28=Tools_Window%
>�ș &400C5,,wimp%
>�
>�wimp%!0=Main_Window%
>�wimp%!4=mainminx%
>�wimp%!8=mainminy%
>�wimp%!12=mainmaxx%
>�wimp%!16=mainmaxy%
?wimp%!20=mainscrollx%
? wimp%!24=mainscrolly%
?wimp%!28=Bot_Window%
? �
?*�
?4:
?>
� �scroll
?Hwimp%!0=Bot_Window%
?Rș &400CB,,wimp%
?\wimp%!24=SCO%
?fș &400C5,,wimp%
?p�
?z:
?�� �isopen(win%)
?�wimp%!0=win%
?�#ș "Wimp_GetWindowState",,wimp%
?�winflags%=wimp%!32
?�0� (winflags% � %10000000000000000) = 65536 �
?�=�
?��
?�=�
?��
?�=�
?�:
?� � �read
?�.name$(cur%)=�Wimp_IconText(Main_Window%,6)
@6� cur%=tot% � �Wimp_IconPutText(Main_Window%,6,"")
@� A=10 � 17
@3info$(cur%,A-10)=�Wimp_IconText(Main_Window%,A)
@$M� cur%=tot% � info$(cur%,A-10)<>"" � �Wimp_IconPutText(Main_Window%,A,"")
@.�A
@8G� cur%=tot% � hack$(cur%)<>"" � �Wimp_IconPutText(Bot_Window%,4,"")
@B�
@L:
@V
� �update
@`S�Wimp_IconPutText(Bot_Window%,32,"Record Number - "+�(cur%+1)+" of "+�(tot%+1))
@j$�Wimp_IconUpdate(Bot_Window%,33)
@t1�Wimp_IconPutText(Main_Window%,6,name$(cur%))
@~� A=10 � 17
@�6�Wimp_IconPutText(Main_Window%,A,info$(cur%,A-10))
@��A
@�Y� hack$(cur%)="" � �Wimp_IconDisable(Bot_Window%,5) � �Wimp_IconEnable(Bot_Window%,5)
@�� hack%(cur%)=� �
@�#�Wimp_SelectIcon(Bot_Window%,5)
@�#�Wimp_IconEnable(Bot_Window%,4)
@�$�Wimp_IconEnable(Bot_Window%,39)
@�$�Wimp_IconEnable(Bot_Window%,20)
@��
@�%�Wimp_UnselectIcon(Bot_Window%,5)
@�$�Wimp_IconDisable(Bot_Window%,4)
@�%�Wimp_IconDisable(Bot_Window%,39)
A %�Wimp_IconDisable(Bot_Window%,20)
A
Q� �isopen(Hacker_Window%) � hack%(cur%)=� � �Wimp_WindowClose(Hacker_Window%)
A�
A K�Wimp_IconPutText(Bot_Window%,4,�Wimp_GetFileFromPathname(hack$(cur%)))
A(_� �isopen(Main_Window%) � �Wimp_IconCaret(Main_Window%,6,�(�Wimp_IconText(Main_Window%,6)))
A2�
A<:
AF� �checkmodule(path$)
AP� �
AZ� � � �error:�
Adprogend%=�+1
AnX%=�(path$)
Axlength%=�#X%
A� � #X%
A� � length%>�checkfreespace �
A�&� 0,"SORRY NO ROOM TO LOAD MODULE"
A��
A�*ș "Wimp_SlotSize",progend%+length%,-1
A�%�("LOAD "+path$+" "+�~(progend%))
A�F� ��Wimp_MyGetStringAtAddress(progend%+(progend%!16)),"Cheat")>0 �
A�Jtitlestring$=��Wimp_MyGetStringAtAddress(progend%+(progend%!20)),1,15)
A� found=�
A�position=-1
A�7� smeg%=progend%+(progend%!20)+4 � progend%+length%
A�� � found �
A� paf=�
Bposition=smeg%
B � smeg2%=1 � �(titlestring$)
B: � ?(smeg%+smeg2%)=�(�titlestring$,smeg2%,1)) � paf �
B" found=�
B, �
B6 found=�
B@
paf=�
BJ �
BT � smeg2%
B^�
Bh � smeg%
Br
� found �
B|position+=1
B� finish=�
B� str$=""
B��
B�a=?(position)
B�
� a=&0d �
B�� �(�str$,1))<>-1 �
B�hacker$(cur%,pos%)=str$
B� pos%+=1
B��
B� str$=""
B�position+=1
B��
B�� a<>0 � str$+=�(a)
C�
Cposition+=1
C �a=0
C&�
C0�
C: � 0,"THIS IS NOT A CHEATMOD"
CD�
CN$ș "Wimp_SlotSize",(256*1024),-1
CX�
Cb�
Cl:
Cvݤcheckfreespace
C�(ș"Wimp_SlotSize",-1,-1 � ,,freepool
C�
=freepool
C�:
C�(� �Wimp_MyGetStringAtAddress(array%)
C�
�s$:s$=""
C�Xȕ(?array%<>13)�(?array%<>0)�(?array%<>9)�(?array%<>&A0):s$+=�(?array%):array%+=1:�:
C�=s$
C�:
C� � �error
C��6
C�Y� �=67785 � �Wimp_WindowErrorBox("!Trickster","Please write enable the disk"):� #X%:�
C�Z� �=214 � �Wimp_WindowErrorBox("!Trickster","File "+hack$(cur%)+" can not be found"):�
C�e� �=15 � �Wimp_WindowErrorBox("!Trickster","Sorry I can not load this file (old file format)."):�
D
� �=168 �
D c�Wimp_WindowErrorBox("!Trickster","Can't create "+file$+" as it already exists as a directory")
D�
D �
D*U�Wimp_WindowErrorBox("!Trickster",�$+": ERR :- "+�(�)+": ERL :- "+�(�)):DOSAVE%=�
D4�
D>:
DH
� �error2
DRl�Wimp_WindowErrorBox("!Trickster","Sorry I can not load this file (old file format)."):� #X%:DOSAVE%=�:�
D\:
Df
� �winsiz
Dpwimp%!0=Hacker_Window%
Dzș &400CC,,wimp%
D�#y_origin%=-16+wimp%!16-wimp%!24
D�*A%=(y_origin%-324)-((pos%(cur%)-1)*32)
D�
A%+=40
D�wimp%!0=wimp%!44
D�"wimp%!4=A%+(wimp%!24-wimp%!16)
D�wimp%!8=wimp%!52
D�wimp%!12=wimp%!56
D�"ș &400D7,Hacker_Window%,wimp%
D��
D�:
D� �cutlong(hacker$(20,10),10)
D�� �cutlong(v$,p%)
D� A$=v$
E A%=�(v$)
E B%=A%�47
EC%=A%-(B%*47)
E$� A=0 � B%
E.'hacker$(cur%,p%+A)=�A$,((A)*48),47)
E8�A
EBhacker$(cur%,p%+A)=""
EL�
EV:
E` � �sort
Ejș"Hourglass_On"
Et� B=0 � tot%-1
E~-ș"Hourglass_Percentage",(B/(tot%-1))*100
E�� A=0 � tot%-2
E�� name$(A)>name$(A+1) �
E�Ȕ name$(A+1),name$(A)
E�
� C=0 � 7
E� Ȕ info$(A+1,C),info$(A,C)
E�� C
E�Ȕ hack$(A+1),hack$(A)
E�Ȕ hack%(A+1),hack%(A)
E�� C=0 � 25
E�"Ȕ hacker$(A+1,C),hacker$(A,C)
E�� C
E�Ȕ pos%(A+1),pos%(A)
F �
F
�A
F�B
F ș"Hourglass_Smash"
F(�
F2:
F<
� �search
FF ST%=�
FP found=�
FZ DONE%=0
Fd/A$=�tolower(�Wimp_IconText(Bot_Window%,18))
Fn C=�(A$)
Fx cuv=�
F� B$=""
F� � SNUM%=-2 � SNUM%=cur%+1
F�.ȕ B$<>A$ � SNUM%<tot%+1 � ST%=� � found=�
F�!B$=�tolower(�name$(SNUM%),C))
F�� SNUM%>=tot% �
F� SNUM%=-1
F� DONE%+=1
F��
F� SNUM%+=1
F�� DONE%=2 � ST%=�
F��
F�
� ST%=� �
F� �read
Gcur%=SNUM%-1
G �update
G� cur%=0 �
G"'�Wimp_IconDisable(Tools_Window%,10)
G,'�Wimp_IconDisable(Tools_Window%,11)
G6&�Wimp_IconDisable(Tools_Window%,2)
G@%�Wimp_IconEnable(Tools_Window%,8)
GJ%�Wimp_IconEnable(Tools_Window%,9)
GT%�Wimp_IconEnable(Tools_Window%,3)
G^�
Gh� cur%>0 � cur%<tot% �
Gr%�Wimp_IconEnable(Tools_Window%,8)
G|%�Wimp_IconEnable(Tools_Window%,9)
G�&�Wimp_IconEnable(Tools_Window%,10)
G�&�Wimp_IconEnable(Tools_Window%,11)
G�%�Wimp_IconEnable(Tools_Window%,3)
G�&�Wimp_IconDisable(Tools_Window%,2)
G��
G�� cur%=tot% �
G�%�Wimp_IconEnable(Tools_Window%,2)
G�%�Wimp_IconEnable(Tools_Window%,3)
G�%�Wimp_IconEnable(Tools_Window%,8)
G�%�Wimp_IconEnable(Tools_Window%,9)
G�&�Wimp_IconEnable(Tools_Window%,10)
G�&�Wimp_IconEnable(Tools_Window%,11)
G��
H�
H{� ST%=� � �Wimp_WindowErrorBox("!Trickster","No match can be found with the name '"+�Wimp_IconText(Bot_Window%,18)+"'")
H �
H&:
H0ݤtolower(Q$)
H:� B=1 � �(Q$)
HD%� �Q$,B,1)>="A" � �Q$,B,1)<="Z" �
HN+�Q$,B,1)=�(�(�Q$,B,1))+(�("a")-�("A")))
HX�
Hb� B
Hl=Q$
Hv:
H�� �getstring(array%)
H�� path$,pointer%
H� path$=""
H�pointer%=array%
H��
H�path$+=�?pointer%
H�pointer%+=1
H� � ?pointer%=0 � ?pointer%=13
H�
=path$
H�:
H���openprinter
H�0ș "XPDriver_Info" � R0,R1,R2,R3,R4,R5,R6,R7
H�/� R1=0 � R2=0 � R3=0 � R5=0 � R6=0 � R7=0 �
I8�Wimp_IconPutText(Bot_Window%,13,"No driver loaded")
I
DRIVER%=�
I7� STA%=� � �Wimp_IconDisable(Bot_Window%,12):STA%=�
I �
I*
DRIVER%=�
I4�
I>� DRIVER%=� �
IHprinter$=�getstring(R4)
IR.�Wimp_IconPutText(Bot_Window%,13,printer$)
I\?� STA%=� � tot%>1 � �Wimp_IconEnable(Bot_Window%,12):STA%=�
If�
Ip�
Iz:
I� ��print
I�:
I�6printhand%=�("PRINTER:$.Job1") : � start a job !!!
I� $title%="Trickster file"
I� ș &80145,printhand%,title%
I�>�#printhand%,13 : � put head to left of paper to start!!!!
I�:
I�� TYPE%=� �
I�� PCHEAT%=� �
I�2 �printline("Game Name - "+name$(cur%)+�(10))
I� �printline(�(10))
I�, �printline("Tricks and Tactics"+�(10))
I� � A=0 � 7
J= � info$(cur%,A)<>"" � �printline(info$(cur%,A)+�(10))
J �A
J�printline(�(10))
J$�
J.� PMODULE%=� �
J8 � hack%(cur%)=� �
JBP �printline("Cheat Name - "+�hacker$(cur%,0),�(hacker$(cur%,0))-6)+�(10))
JL �printline(�(10))
JVX �printline("Author of Cheat - "+�hacker$(cur%,1),12,�(hacker$(cur%,1))-8)+�(10))
J` �printline(�(10))
JjR �printline("Cheated with - "+�hacker$(cur%,2),6,�(hacker$(cur%,2)))+�(10))
Jt �printline(�(10))
J~ �printline("Keys"+�(10))
J� � A=0 � pos%(cur%)-4
J�> � �(�hacker$(cur%,A+3)))=160 � �hacker$(cur%,A+3))=" "
J�+ �printline(hacker$(cur%,A+3)+�(10))
J�
�A
J� �printline(�(10))
J� �
J��
J��
J�� TYPE%=� �
J�� DD=0 � tot%-1
J�� PCHEAT%=� �
J�0 �printline("Game Name - "+name$(DD)+�(10))
K �printline(�(10))
K
, �printline("Tricks and Tactics"+�(10))
K � A=0 � 7
K 9 � info$(DD,A)<>"" � �printline(info$(DD,A)+�(10))
K( �A
K2�printline(�(10))
K<�
KF� PMODULE%=� �
KP � hack%(DD)=� �
KZL �printline("Cheat Name - "+�hacker$(DD,0),�(hacker$(DD,0))-6)+�(10))
Kd �printline(�(10))
KnT �printline("Author of Cheat - "+�hacker$(DD,1),12,�(hacker$(DD,1))-8)+�(10))
Kx �printline(�(10))
K�N �printline("Cheated with - "+�hacker$(DD,2),6,�(hacker$(DD,2)))+�(10))
K� �printline(�(10))
K� �printline("Keys"+�(10))
K� � A=0 � pos%(DD)-4
K�: � �(�hacker$(DD,A+3)))=160 � �hacker$(DD,A+3))=" "
K�) �printline(hacker$(DD,A+3)+�(10))
K�
�A
K��printline(�(10))
K� �
K��
K��DD
K��
K�:
L(�#printhand%,12 : � do linefeed !!!!
Lș &80148,printhand%
L� #printhand%
L"�
L,:
L6��printline(line$)
L@� cco=1 � �(line$)
LJbyte=�(�line$,cco,1))
LT�#printhand%,byte
L^G� byte=10 � byte=13 � �#printhand%,13 : � put head to left of paper
Lh � cco
Lr�
L|:
L�� �mousebox(w%)
L�wimp%!0=w%
L�$ș"Wimp_GetWindowOutline",,wimp%
L�Cȗ ȓ wimp%!4+2,wimp%!8+2,wimp%!12-wimp%!4-4,wimp%!16-wimp%!8-4
L��
L�:
L� � �unbox
L�+ș "OS_ReadModeVariable",-1,11 � ,,xpic
L�+ș "OS_ReadModeVariable",-1,12 � ,,ypic
L�+ș "OS_ReadModeVariable",-1,4 � ,,xfact
L�+ș "OS_ReadModeVariable",-1,5 � ,,yfact
L�%ȗ ȓ 0,0,xpic<<xfact,ypic<<yfact
L��
M:
M� �nacheck(A$)
M � �A$,"TrickMods")<>0 �
M&=�
M0�
M:=�
MD�
MN=�
� 00000000 0d 00 0a 11 66 69 6c 65 6c 6f 61 64 24 3d 22 20 |....fileload$=" |
00000010 22 0d 00 14 19 c8 99 20 22 4f 53 5f 47 65 74 45 |"...... "OS_GetE|
00000020 6e 76 22 20 b8 20 65 6e 76 24 0d 00 1e 18 e7 20 |nv" . env$..... |
00000030 a7 65 6e 76 24 2c 22 20 2d 71 75 69 74 20 22 29 |.env$," -quit ")|
00000040 20 8c 0d 00 28 32 66 69 6c 65 6c 6f 61 64 24 3d | ...(2fileload$=|
00000050 c1 65 6e 76 24 2c a7 65 6e 76 24 2c bd 28 33 34 |.env$,.env$,.(34|
00000060 29 2c a7 65 6e 76 24 2c bd 28 33 34 29 29 2b 31 |),.env$,.(34))+1|
00000070 29 2b 31 29 0d 00 32 05 cd 0d 00 3c 0e f4 20 4f |)+1)..2....<.. O|
00000080 70 53 79 73 25 3d 30 0d 00 46 27 f4 20 53 59 53 |pSys%=0..F'. SYS|
00000090 20 22 4f 53 5f 42 79 74 65 22 2c 31 32 39 2c 30 | "OS_Byte",129,0|
000000a0 2c 26 46 46 20 54 4f 20 4f 70 53 79 73 25 0d 00 |,&FF TO OpSys%..|
000000b0 50 59 f4 20 49 46 20 4f 70 53 79 73 25 3d 26 41 |PY. IF OpSys%=&A|
000000c0 31 20 54 48 45 4e 20 4f 53 43 4c 49 22 45 52 52 |1 THEN OSCLI"ERR|
000000d0 4f 52 20 54 72 69 63 6b 73 74 65 72 20 77 69 6c |OR Trickster wil|
000000e0 6c 20 6e 6f 74 20 77 6f 72 6b 20 77 69 74 68 20 |l not work with |
000000f0 52 49 53 43 20 4f 53 20 32 2e 20 53 6f 72 72 79 |RISC OS 2. Sorry|
00000100 21 21 22 3a 45 4e 44 0d 00 5a 19 c8 99 20 22 4f |!!":END..Z... "O|
00000110 53 5f 47 65 74 45 6e 76 22 20 b8 20 65 6e 76 24 |S_GetEnv" . env$|
00000120 0d 00 64 18 e7 20 a7 65 6e 76 24 2c 22 20 2d 71 |..d.. .env$," -q|
00000130 75 69 74 20 22 29 20 8c 0d 00 6e 32 66 69 6c 65 |uit ") ...n2file|
00000140 6c 6f 61 64 24 3d c1 65 6e 76 24 2c a7 65 6e 76 |load$=.env$,.env|
00000150 24 2c bd 28 33 34 29 2c a7 65 6e 76 24 2c bd 28 |$,.(34),.env$,.(|
00000160 33 34 29 29 2b 31 29 2b 31 29 0d 00 78 05 cd 0d |34))+1)+1)..x...|
00000170 00 82 29 c8 99 20 26 30 30 30 30 30 30 30 36 2c |..).. &00000006,|
00000180 31 32 39 2c 30 2c 26 46 46 20 b8 20 2c 6f 73 5f |129,0,&FF . ,os_|
00000190 76 65 72 73 69 6f 6e 25 0d 00 8c 14 c8 8e 20 6f |version%...... o|
000001a0 73 5f 76 65 72 73 69 6f 6e 25 20 ca 0d 00 96 0d |s_version% .....|
000001b0 c9 20 26 41 33 2c 26 41 34 0d 00 a0 10 64 72 61 |. &A3,&A4....dra|
000001c0 67 69 63 6f 6e 73 25 3d b9 0d 00 aa 05 7f 0d 00 |gicons%=........|
000001d0 b4 10 64 72 61 67 69 63 6f 6e 73 25 3d a3 0d 00 |..dragicons%=...|
000001e0 be 05 cb 0d 00 c8 41 20 20 20 20 20 20 20 20 20 |......A |
000001f0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000200 20 20 f2 57 69 6d 70 5f 53 74 61 72 74 28 22 54 | .Wimp_Start("T|
00000210 72 69 63 6b 73 74 65 72 22 2c 33 30 30 30 2c 32 |rickster",3000,2|
00000220 35 33 37 29 0d 00 d2 33 20 20 20 20 20 20 20 20 |537)...3 |
00000230 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000240 20 20 20 f2 55 73 65 72 5f 53 65 74 49 6e 69 74 | .User_SetInit|
00000250 69 61 6c 44 61 74 61 0d 00 dc 2e 20 20 20 20 20 |ialData.... |
00000260 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000270 20 20 20 20 20 20 f2 43 72 65 61 74 65 5f 57 69 | .Create_Wi|
00000280 6e 64 6f 77 73 0d 00 e6 2c 20 20 20 20 20 20 20 |ndows..., |
00000290 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000002a0 20 20 20 20 f2 43 72 65 61 74 65 5f 4d 65 6e 75 | .Create_Menu|
000002b0 73 0d 00 f0 16 e7 20 66 69 6c 65 6c 6f 61 64 24 |s..... fileload$|
000002c0 3c 3e 22 20 22 20 8c 0d 00 fa 24 f2 45 76 65 6e |<>" " ....$.Even|
000002d0 74 5f 4c 6f 61 64 46 69 6c 65 28 66 69 6c 65 6c |t_LoadFile(filel|
000002e0 6f 61 64 24 2c 22 41 43 45 22 29 0d 01 04 2f f2 |oad$,"ACE").../.|
000002f0 57 69 6d 70 5f 49 63 6f 6e 50 75 74 54 65 78 74 |Wimp_IconPutText|
00000300 28 53 61 76 65 5f 57 69 6e 64 6f 77 25 2c 31 2c |(Save_Window%,1,|
00000310 66 69 6c 65 6c 6f 61 64 24 29 0d 01 0e 05 cd 0d |fileload$)......|
00000320 01 18 04 0d 01 22 31 20 20 20 20 20 20 20 20 20 |....."1 |
00000330 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000340 20 20 f2 57 69 6d 70 5f 57 61 69 74 46 6f 72 45 | .Wimp_WaitForE|
00000350 76 65 6e 74 0d 01 2c 2e 20 20 20 20 20 20 20 20 |vent..,. |
00000360 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000370 20 20 20 f2 57 69 6d 70 5f 43 6c 6f 73 65 44 6f | .Wimp_CloseDo|
00000380 77 6e 0d 01 36 20 20 20 20 20 20 20 20 20 20 20 |wn..6 |
00000390 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000003a0 20 e0 0d 01 40 0c 20 20 20 20 20 20 20 3a 0d 01 | ...@. :..|
000003b0 4a 21 20 20 20 20 20 20 20 dd 20 f2 55 73 65 72 |J! . .User|
000003c0 5f 53 65 74 49 6e 69 74 69 61 6c 44 61 74 61 0d |_SetInitialData.|
000003d0 01 54 14 20 20 20 20 20 20 20 44 4f 53 41 56 45 |.T. DOSAVE|
000003e0 25 3d b9 0d 01 5e 0e 20 20 20 20 20 20 20 5a 3d |%=...^. Z=|
000003f0 30 0d 01 68 14 20 20 20 20 20 20 20 50 43 48 45 |0..h. PCHE|
00000400 41 54 25 3d b9 0d 01 72 15 20 20 20 20 20 20 20 |AT%=...r. |
00000410 50 4d 4f 44 55 4c 45 25 3d b9 0d 01 7c 12 20 20 |PMODULE%=...|. |
00000420 20 20 20 20 20 54 59 50 45 25 3d b9 0d 01 86 11 | TYPE%=.....|
00000430 20 20 20 20 20 20 20 53 54 41 25 3d a3 0d 01 90 | STA%=....|
00000440 14 20 20 20 20 20 20 20 44 52 49 56 45 52 25 3d |. DRIVER%=|
00000450 a3 0d 01 9a 17 20 20 20 20 20 20 20 de 20 74 69 |..... . ti|
00000460 74 6c 65 25 20 32 35 36 0d 01 a4 13 20 20 20 20 |tle% 256.... |
00000470 20 20 20 53 4e 55 4d 25 3d 2d 32 0d 01 ae 10 20 | SNUM%=-2.... |
00000480 20 20 20 20 20 20 6e 75 6d 3d 30 0d 01 b8 11 20 | num=0.... |
00000490 20 20 20 20 20 20 41 41 41 25 3d a3 0d 01 c2 11 | AAA%=.....|
000004a0 20 20 20 20 20 20 20 70 6f 73 25 3d 30 0d 01 cc | pos%=0...|
000004b0 15 20 20 20 20 20 20 20 57 49 24 3d 22 4e 4f 4e |. WI$="NON|
000004c0 45 22 0d 01 d6 11 20 20 20 20 20 20 20 53 43 4f |E".... SCO|
000004d0 25 3d 30 0d 01 e0 12 20 20 20 20 20 20 20 64 69 |%=0.... di|
000004e0 6d 3d 32 30 30 0d 01 ea 16 20 20 20 20 20 20 20 |m=200.... |
000004f0 de 20 70 6f 73 25 28 64 69 6d 29 0d 01 f4 1c 20 |. pos%(dim).... |
00000500 20 20 20 20 20 20 de 20 68 61 63 6b 65 72 24 28 | . hacker$(|
00000510 64 69 6d 2c 32 35 29 0d 01 fe 17 20 20 20 20 20 |dim,25).... |
00000520 20 20 de 20 6e 61 6d 65 24 28 64 69 6d 29 0d 02 | . name$(dim)..|
00000530 08 19 20 20 20 20 20 20 20 de 20 69 6e 66 6f 24 |.. . info$|
00000540 28 64 69 6d 2c 37 29 0d 02 12 17 20 20 20 20 20 |(dim,7).... |
00000550 20 20 de 20 68 61 63 6b 24 28 64 69 6d 29 0d 02 | . hack$(dim)..|
00000560 1c 17 20 20 20 20 20 20 20 de 20 68 61 63 6b 25 |.. . hack%|
00000570 28 64 69 6d 29 0d 02 26 14 20 20 20 20 20 20 20 |(dim)..&. |
00000580 68 61 63 6b 25 28 29 3d a3 0d 02 30 15 20 20 20 |hack%()=...0. |
00000590 20 20 20 20 68 61 63 6b 24 28 29 3d 22 22 0d 02 | hack$()=""..|
000005a0 3a 15 20 20 20 20 20 20 20 6e 61 6d 65 24 28 29 |:. name$()|
000005b0 3d 22 22 0d 02 44 15 20 20 20 20 20 20 20 69 6e |=""..D. in|
000005c0 66 6f 24 28 29 3d 22 22 0d 02 4e 11 20 20 20 20 |fo$()=""..N. |
000005d0 20 20 20 63 75 72 25 3d 30 0d 02 58 11 20 20 20 | cur%=0..X. |
000005e0 20 20 20 20 74 6f 74 25 3d 30 0d 02 62 09 53 41 | tot%=0..b.SA|
000005f0 25 3d a3 0d 02 6c 0d 55 50 44 41 54 45 25 3d a3 |%=...l.UPDATE%=.|
00000600 0d 02 76 09 43 44 25 3d a3 0d 02 80 0c 20 20 20 |..v.CD%=..... |
00000610 20 20 20 20 e1 0d 02 8a 0c 20 20 20 20 20 20 20 | ..... |
00000620 3a 0d 02 94 1c 20 20 20 20 20 20 20 dd 20 f2 43 |:.... . .C|
00000630 72 65 61 74 65 5f 57 69 6e 64 6f 77 73 0d 02 9e |reate_Windows...|
00000640 1e 20 20 20 20 20 20 20 20 20 f2 57 69 6d 70 5f |. .Wimp_|
00000650 53 70 72 69 74 65 73 4c 6f 61 64 0d 02 a8 3b 20 |SpritesLoad...; |
00000660 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000670 20 49 6e 66 6f 5f 57 69 6e 64 6f 77 25 3d a4 57 | Info_Window%=.W|
00000680 69 6d 70 5f 57 69 6e 64 6f 77 4c 6f 61 64 28 22 |imp_WindowLoad("|
00000690 49 6e 66 6f 22 29 0d 02 b2 3b 20 20 20 20 20 20 |Info")...; |
000006a0 20 20 20 20 20 20 20 20 20 20 20 20 53 61 76 65 | Save|
000006b0 5f 57 69 6e 64 6f 77 25 3d a4 57 69 6d 70 5f 57 |_Window%=.Wimp_W|
000006c0 69 6e 64 6f 77 4c 6f 61 64 28 22 53 61 76 65 22 |indowLoad("Save"|
000006d0 29 0d 02 bc 3c 20 20 20 20 20 20 20 20 20 20 20 |)...< |
000006e0 20 20 20 20 20 20 43 6c 6f 73 65 5f 57 69 6e 64 | Close_Wind|
000006f0 6f 77 25 3d a4 57 69 6d 70 5f 57 69 6e 64 6f 77 |ow%=.Wimp_Window|
00000700 4c 6f 61 64 28 22 43 6c 6f 73 65 22 29 0d 02 c6 |Load("Close")...|
00000710 3c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |< |
00000720 20 20 53 61 76 65 32 5f 57 69 6e 64 6f 77 25 3d | Save2_Window%=|
00000730 a4 57 69 6d 70 5f 57 69 6e 64 6f 77 4c 6f 61 64 |.Wimp_WindowLoad|
00000740 28 22 53 61 76 65 32 22 29 0d 02 d0 3b 20 20 20 |("Save2")...; |
00000750 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4d | M|
00000760 61 69 6e 5f 57 69 6e 64 6f 77 25 3d a4 57 69 6d |ain_Window%=.Wim|
00000770 70 5f 57 69 6e 64 6f 77 4c 6f 61 64 28 22 4d 61 |p_WindowLoad("Ma|
00000780 69 6e 22 29 0d 02 da 3c 20 20 20 20 20 20 20 20 |in")...< |
00000790 20 20 20 20 20 20 20 20 20 54 6f 6f 6c 73 5f 57 | Tools_W|
000007a0 69 6e 64 6f 77 25 3d a4 57 69 6d 70 5f 57 69 6e |indow%=.Wimp_Win|
000007b0 64 6f 77 4c 6f 61 64 28 22 54 6f 6f 6c 73 22 29 |dowLoad("Tools")|
000007c0 0d 02 e4 3c 20 20 20 20 20 20 20 20 20 20 20 20 |...< |
000007d0 20 20 20 20 20 54 69 74 6c 65 5f 57 69 6e 64 6f | Title_Windo|
000007e0 77 25 3d a4 57 69 6d 70 5f 57 69 6e 64 6f 77 4c |w%=.Wimp_WindowL|
000007f0 6f 61 64 28 22 54 69 74 6c 65 22 29 0d 02 ee 3a |oad("Title")...:|
00000800 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000810 20 20 20 42 6f 74 5f 57 69 6e 64 6f 77 25 3d a4 | Bot_Window%=.|
00000820 57 69 6d 70 5f 57 69 6e 64 6f 77 4c 6f 61 64 28 |Wimp_WindowLoad(|
00000830 22 42 6f 74 22 29 0d 02 f8 3d 20 20 20 20 20 20 |"Bot")...= |
00000840 20 20 20 20 20 20 20 20 20 20 48 61 63 6b 65 72 | Hacker|
00000850 5f 57 69 6e 64 6f 77 25 3d a4 57 69 6d 70 5f 57 |_Window%=.Wimp_W|
00000860 69 6e 64 6f 77 4c 6f 61 64 28 22 48 61 63 6b 65 |indowLoad("Hacke|
00000870 72 22 29 0d 03 02 30 20 20 20 20 20 20 20 42 61 |r")...0 Ba|
00000880 72 5f 49 63 6f 6e 25 3d a4 57 69 6d 70 5f 49 63 |r_Icon%=.Wimp_Ic|
00000890 6f 6e 42 61 72 28 22 21 54 72 69 63 6b 73 74 65 |onBar("!Trickste|
000008a0 72 22 29 0d 03 0c 0c 20 20 20 20 20 20 20 e1 0d |r").... ..|
000008b0 03 16 0d 20 20 20 20 20 20 20 20 3a 0d 03 20 22 |... :.. "|
000008c0 20 20 20 20 20 20 20 20 dd 20 a4 45 76 65 6e 74 | . .Event|
000008d0 5f 53 61 76 65 28 77 69 6e 64 6f 77 25 29 0d 03 |_Save(window%)..|
000008e0 2a 1c 20 20 20 20 20 20 20 20 20 20 20 20 c8 8e |*. ..|
000008f0 20 77 69 6e 64 6f 77 25 20 ca 0d 03 34 22 20 20 | window% ...4" |
00000900 20 20 20 20 20 20 20 20 20 20 c9 20 53 61 76 65 | . Save|
00000910 5f 57 69 6e 64 6f 77 25 20 3a 3d b9 0d 03 3e 23 |_Window% :=...>#|
00000920 20 20 20 20 20 20 20 20 20 20 20 20 c9 20 53 61 | . Sa|
00000930 76 65 32 5f 57 69 6e 64 6f 77 25 20 3a 3d b9 0d |ve2_Window% :=..|
00000940 03 48 15 20 20 20 20 20 20 20 20 20 20 20 20 7f |.H. .|
00000950 20 3a 3d a3 0d 03 52 0d 20 20 20 20 20 20 20 20 | :=...R. |
00000960 cb 0d 03 5c 0e 20 20 20 20 20 20 20 20 3d a3 0d |...\. =..|
00000970 03 66 0d 20 20 20 20 20 20 20 20 3a 0d 03 70 2e |.f. :..p.|
00000980 20 20 20 20 20 20 20 20 dd 20 a4 45 76 65 6e 74 | . .Event|
00000990 5f 53 70 72 69 74 65 73 28 77 69 6e 64 6f 77 25 |_Sprites(window%|
000009a0 29 3d 73 70 72 69 74 65 73 25 0d 03 7a 0c 20 20 |)=sprites%..z. |
000009b0 20 20 20 20 20 3a 0d 03 84 1a 20 20 20 20 20 20 | :.... |
000009c0 20 dd 20 f2 43 72 65 61 74 65 5f 4d 65 6e 75 73 | . .Create_Menus|
000009d0 0d 03 8e 52 20 20 20 20 20 20 20 20 20 73 61 76 |...R sav|
000009e0 65 25 3d a4 57 69 6d 70 5f 4d 65 6e 75 43 72 65 |e%=.Wimp_MenuCre|
000009f0 61 74 65 28 22 53 61 76 65 5c 54 72 69 63 6b 73 |ate("Save\Tricks|
00000a00 3e 53 61 76 65 5f 57 69 6e 64 6f 77 25 5c 54 65 |>Save_Window%\Te|
00000a10 78 74 3e 53 61 76 65 32 5f 57 69 6e 64 6f 77 25 |xt>Save2_Window%|
00000a20 22 29 0d 03 98 40 20 20 20 20 20 20 20 20 20 6d |")...@ m|
00000a30 65 6e 75 24 3d 22 54 72 69 63 6b 73 74 65 72 5c |enu$="Trickster\|
00000a40 49 6e 66 6f 3e 49 6e 66 6f 5f 57 69 6e 64 6f 77 |Info>Info_Window|
00000a50 25 5c 53 61 76 65 3e 73 61 76 65 25 5c 51 75 69 |%\Save>save%\Qui|
00000a60 74 22 0d 03 a2 2e 20 20 20 20 20 20 20 20 20 42 |t".... B|
00000a70 61 72 5f 4d 65 6e 75 25 3d a4 57 69 6d 70 5f 4d |ar_Menu%=.Wimp_M|
00000a80 65 6e 75 43 72 65 61 74 65 28 6d 65 6e 75 24 29 |enuCreate(menu$)|
00000a90 0d 03 ac 2b 20 20 20 20 20 20 20 20 20 f2 57 69 |...+ .Wi|
00000aa0 6d 70 5f 4d 65 6e 75 44 69 73 61 62 6c 65 28 42 |mp_MenuDisable(B|
00000ab0 61 72 5f 4d 65 6e 75 25 2c 32 29 0d 03 b6 0c 20 |ar_Menu%,2).... |
00000ac0 20 20 20 20 20 20 e1 0d 03 c0 0d 20 20 20 20 20 | ..... |
00000ad0 20 20 20 3a 0d 03 ca 22 20 20 20 20 20 20 20 20 | :..." |
00000ae0 dd 20 a4 45 76 65 6e 74 5f 4d 65 6e 75 28 77 69 |. .Event_Menu(wi|
00000af0 6e 64 6f 77 25 29 0d 03 d4 18 20 20 20 20 20 20 |ndow%).... |
00000b00 20 20 c8 8e 20 77 69 6e 64 6f 77 25 20 ca 0d 03 | .. window% ...|
00000b10 de 2e 20 20 20 20 20 20 20 20 20 c9 20 42 61 72 |.. . Bar|
00000b20 5f 57 69 6e 64 6f 77 25 20 20 20 20 20 20 20 20 |_Window% |
00000b30 3a 20 3d 42 61 72 5f 4d 65 6e 75 25 0d 03 e8 42 |: =Bar_Menu%...B|
00000b40 20 20 20 20 20 20 20 20 20 c9 20 4d 61 69 6e 5f | . Main_|
00000b50 57 69 6e 64 6f 77 25 2c 54 6f 6f 6c 73 5f 57 69 |Window%,Tools_Wi|
00000b60 6e 64 6f 77 25 2c 42 6f 74 5f 57 69 6e 64 6f 77 |ndow%,Bot_Window|
00000b70 25 20 3a 20 3d 42 61 72 5f 4d 65 6e 75 25 0d 03 |% : =Bar_Menu%..|
00000b80 f2 2e 20 20 20 20 20 20 20 20 20 c9 20 54 69 74 |.. . Tit|
00000b90 6c 65 5f 57 69 6e 64 6f 77 25 20 20 20 20 20 20 |le_Window% |
00000ba0 3a 20 3d 42 61 72 5f 4d 65 6e 75 25 0d 03 fc 21 |: =Bar_Menu%...!|
00000bb0 20 20 20 20 20 20 20 20 20 7f 20 20 20 20 20 20 | . |
00000bc0 20 20 20 20 20 20 20 20 20 3a 20 3d a3 0d 04 06 | : =....|
00000bd0 0d 20 20 20 20 20 20 20 20 cb 0d 04 10 0e 20 20 |. ..... |
00000be0 20 20 20 20 20 20 3d a3 0d 04 1a 0c 20 20 20 20 | =..... |
00000bf0 20 20 20 3a 0d 04 24 31 20 20 20 20 20 20 20 dd | :..$1 .|
00000c00 20 f2 45 76 65 6e 74 5f 57 69 6e 64 6f 77 43 6c | .Event_WindowCl|
00000c10 6f 73 65 28 77 69 6e 64 6f 77 25 2c 62 75 74 74 |ose(window%,butt|
00000c20 6f 6e 73 25 29 0d 04 2e 17 20 20 20 20 20 20 20 |ons%).... |
00000c30 c8 8e 20 77 69 6e 64 6f 77 25 20 ca 0d 04 38 19 |.. window% ...8.|
00000c40 20 20 20 20 20 20 20 c9 20 4d 61 69 6e 5f 57 69 | . Main_Wi|
00000c50 6e 64 6f 77 25 0d 04 42 10 20 20 20 20 20 20 20 |ndow%..B. |
00000c60 f2 72 65 61 64 0d 04 4c 29 20 20 20 20 20 20 20 |.read..L) |
00000c70 f2 57 69 6d 70 5f 57 69 6e 64 6f 77 43 6c 6f 73 |.Wimp_WindowClos|
00000c80 65 28 42 6f 74 5f 57 69 6e 64 6f 77 25 29 0d 04 |e(Bot_Window%)..|
00000c90 56 2b 20 20 20 20 20 20 20 f2 57 69 6d 70 5f 57 |V+ .Wimp_W|
00000ca0 69 6e 64 6f 77 43 6c 6f 73 65 28 54 6f 6f 6c 73 |indowClose(Tools|
00000cb0 5f 57 69 6e 64 6f 77 25 29 0d 04 60 16 20 20 20 |_Window%)..`. |
00000cc0 20 20 20 20 57 49 24 3d 22 54 49 54 4c 45 22 0d | WI$="TITLE".|
00000cd0 04 6a 30 20 20 20 20 20 20 20 f2 57 69 6d 70 5f |.j0 .Wimp_|
00000ce0 57 69 6e 64 6f 77 42 72 69 6e 67 54 6f 54 6f 70 |WindowBringToTop|
00000cf0 28 54 69 74 6c 65 5f 57 69 6e 64 6f 77 25 29 0d |(Title_Window%).|
00000d00 04 74 1a 20 20 20 20 20 20 20 c9 20 54 69 74 6c |.t. . Titl|
00000d10 65 5f 57 69 6e 64 6f 77 25 0d 04 7e 15 20 20 20 |e_Window%..~. |
00000d20 20 20 20 20 57 49 24 3d 22 4e 4f 4e 45 22 0d 04 | WI$="NONE"..|
00000d30 88 0c 20 20 20 20 20 20 20 cb 0d 04 92 0c 20 20 |.. ..... |
00000d40 20 20 20 20 20 e1 0d 04 9c 0c 20 20 20 20 20 20 | ..... |
00000d50 20 3a 0d 04 a6 35 20 20 20 20 20 20 20 dd 20 f2 | :...5 . .|
00000d60 45 76 65 6e 74 5f 44 72 61 77 28 77 69 6e 64 6f |Event_Draw(windo|
00000d70 77 25 2c 78 5f 6f 72 69 67 69 6e 25 2c 79 5f 6f |w%,x_origin%,y_o|
00000d80 72 69 67 69 6e 25 29 0d 04 b0 17 20 20 20 20 20 |rigin%).... |
00000d90 20 20 c8 8e 20 77 69 6e 64 6f 77 25 20 ca 0d 04 | .. window% ...|
00000da0 ba 38 20 20 20 20 20 20 20 20 c9 20 49 6e 66 6f |.8 . Info|
00000db0 5f 57 69 6e 64 6f 77 25 20 20 20 20 20 20 20 20 |_Window% |
00000dc0 3a 20 f2 55 73 65 72 5f 44 72 61 77 49 6e 66 6f |: .User_DrawInfo|
00000dd0 57 69 6e 64 6f 77 0d 04 c4 38 20 20 20 20 20 20 |Window...8 |
00000de0 20 20 c9 20 53 61 76 65 5f 57 69 6e 64 6f 77 25 | . Save_Window%|
00000df0 20 20 20 20 20 20 20 20 3a 20 f2 55 73 65 72 5f | : .User_|
00000e00 44 72 61 77 53 61 76 65 57 69 6e 64 6f 77 0d 04 |DrawSaveWindow..|
00000e10 ce 39 20 20 20 20 20 20 20 20 c9 20 43 6c 6f 73 |.9 . Clos|
00000e20 65 5f 57 69 6e 64 6f 77 25 20 20 20 20 20 20 20 |e_Window% |
00000e30 3a 20 f2 55 73 65 72 5f 44 72 61 77 43 6c 6f 73 |: .User_DrawClos|
00000e40 65 57 69 6e 64 6f 77 0d 04 d8 39 20 20 20 20 20 |eWindow...9 |
00000e50 20 20 20 c9 20 53 61 76 65 32 5f 57 69 6e 64 6f | . Save2_Windo|
00000e60 77 25 20 20 20 20 20 20 20 3a 20 f2 55 73 65 72 |w% : .User|
00000e70 5f 44 72 61 77 53 61 76 65 32 57 69 6e 64 6f 77 |_DrawSave2Window|
00000e80 0d 04 e2 38 20 20 20 20 20 20 20 20 c9 20 4d 61 |...8 . Ma|
00000e90 69 6e 5f 57 69 6e 64 6f 77 25 20 20 20 20 20 20 |in_Window% |
00000ea0 20 20 3a 20 f2 55 73 65 72 5f 44 72 61 77 4d 61 | : .User_DrawMa|
00000eb0 69 6e 57 69 6e 64 6f 77 0d 04 ec 39 20 20 20 20 |inWindow...9 |
00000ec0 20 20 20 20 c9 20 54 6f 6f 6c 73 5f 57 69 6e 64 | . Tools_Wind|
00000ed0 6f 77 25 20 20 20 20 20 20 20 3a 20 f2 55 73 65 |ow% : .Use|
00000ee0 72 5f 44 72 61 77 54 6f 6f 6c 73 57 69 6e 64 6f |r_DrawToolsWindo|
00000ef0 77 0d 04 f6 39 20 20 20 20 20 20 20 20 c9 20 54 |w...9 . T|
00000f00 69 74 6c 65 5f 57 69 6e 64 6f 77 25 20 20 20 20 |itle_Window% |
00000f10 20 20 20 3a 20 f2 55 73 65 72 5f 44 72 61 77 54 | : .User_DrawT|
00000f20 69 74 6c 65 57 69 6e 64 6f 77 0d 05 00 37 20 20 |itleWindow...7 |
00000f30 20 20 20 20 20 20 c9 20 42 6f 74 5f 57 69 6e 64 | . Bot_Wind|
00000f40 6f 77 25 20 20 20 20 20 20 20 20 20 3a 20 f2 55 |ow% : .U|
00000f50 73 65 72 5f 44 72 61 77 42 6f 74 57 69 6e 64 6f |ser_DrawBotWindo|
00000f60 77 0d 05 0a 3a 20 20 20 20 20 20 20 20 c9 20 48 |w...: . H|
00000f70 61 63 6b 65 72 5f 57 69 6e 64 6f 77 25 20 20 20 |acker_Window% |
00000f80 20 20 20 3a 20 f2 55 73 65 72 5f 44 72 61 77 48 | : .User_DrawH|
00000f90 61 63 6b 65 72 57 69 6e 64 6f 77 0d 05 14 0c 20 |ackerWindow.... |
00000fa0 20 20 20 20 20 20 cb 0d 05 1e 0c 20 20 20 20 20 | ..... |
00000fb0 20 20 e1 0d 05 28 12 20 20 20 20 20 20 20 20 20 | ...(. |
00000fc0 20 20 20 20 3a 0d 05 32 27 20 20 20 20 20 20 20 | :..2' |
00000fd0 20 20 20 20 20 20 dd 20 f2 55 73 65 72 5f 44 72 | . .User_Dr|
00000fe0 61 77 49 6e 66 6f 57 69 6e 64 6f 77 0d 05 3c 12 |awInfoWindow..<.|
00000ff0 20 20 20 20 20 20 20 20 20 20 20 20 20 e1 0d 05 | ...|
00001000 46 12 20 20 20 20 20 20 20 20 20 20 20 20 20 3a |F. :|
00001010 0d 05 50 29 20 20 20 20 20 20 20 20 20 20 20 20 |..P) |
00001020 20 dd 20 f2 55 73 65 72 5f 44 72 61 77 48 61 63 | . .User_DrawHac|
00001030 6b 65 72 57 69 6e 64 6f 77 0d 05 5a 2b 20 20 20 |kerWindow..Z+ |
00001040 20 20 20 20 20 20 20 20 20 20 ec 20 78 5f 6f 72 | . x_or|
00001050 69 67 69 6e 25 2d 37 2c 79 5f 6f 72 69 67 69 6e |igin%-7,y_origin|
00001060 25 2d 34 38 0d 05 64 39 20 20 20 20 20 20 20 20 |%-48..d9 |
00001070 20 20 20 20 20 f1 20 c0 68 61 63 6b 65 72 24 28 | . .hacker$(|
00001080 63 75 72 25 2c 30 29 2c a9 28 68 61 63 6b 65 72 |cur%,0),.(hacker|
00001090 24 28 63 75 72 25 2c 30 29 29 2d 36 29 0d 05 6e |$(cur%,0))-6)..n|
000010a0 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 ec 20 |, . |
000010b0 78 5f 6f 72 69 67 69 6e 25 2d 37 2c 79 5f 6f 72 |x_origin%-7,y_or|
000010c0 69 67 69 6e 25 2d 31 34 30 0d 05 78 3c 20 20 20 |igin%-140..x< |
000010d0 20 20 20 20 20 20 20 20 20 20 f1 20 c1 68 61 63 | . .hac|
000010e0 6b 65 72 24 28 63 75 72 25 2c 31 29 2c 31 32 2c |ker$(cur%,1),12,|
000010f0 a9 28 68 61 63 6b 65 72 24 28 63 75 72 25 2c 31 |.(hacker$(cur%,1|
00001100 29 29 2d 38 29 0d 05 82 2c 20 20 20 20 20 20 20 |))-8)..., |
00001110 20 20 20 20 20 20 ec 20 78 5f 6f 72 69 67 69 6e | . x_origin|
00001120 25 2d 37 2c 79 5f 6f 72 69 67 69 6e 25 2d 32 33 |%-7,y_origin%-23|
00001130 32 0d 05 8c 39 20 20 20 20 20 20 20 20 20 20 20 |2...9 |
00001140 20 20 f1 20 c1 68 61 63 6b 65 72 24 28 63 75 72 | . .hacker$(cur|
00001150 25 2c 32 29 2c 36 2c a9 28 68 61 63 6b 65 72 24 |%,2),6,.(hacker$|
00001160 28 63 75 72 25 2c 32 29 29 29 0d 05 96 25 20 20 |(cur%,2)))...% |
00001170 20 20 20 20 20 20 20 20 20 20 20 e3 20 41 3d 30 | . A=0|
00001180 20 b8 20 70 6f 73 25 28 63 75 72 25 29 2d 34 0d | . pos%(cur%)-4.|
00001190 05 a0 35 20 20 20 20 20 20 20 20 20 20 20 20 20 |..5 |
000011a0 ec 20 78 5f 6f 72 69 67 69 6e 25 2d 37 2c 28 79 |. x_origin%-7,(y|
000011b0 5f 6f 72 69 67 69 6e 25 2d 33 32 34 29 2d 28 41 |_origin%-324)-(A|
000011c0 2a 33 32 29 0d 05 aa 24 20 20 20 20 20 20 20 20 |*32)...$ |
000011d0 20 20 20 20 20 f1 20 68 61 63 6b 65 72 24 28 63 | . hacker$(c|
000011e0 75 72 25 2c 41 2b 33 29 0d 05 b4 13 20 20 20 20 |ur%,A+3).... |
000011f0 20 20 20 20 20 20 20 20 20 ed 41 0d 05 be 12 20 | .A.... |
00001200 20 20 20 20 20 20 20 20 20 20 20 20 e1 0d 05 c8 | ....|
00001210 12 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 0d |. :.|
00001220 05 d2 27 20 20 20 20 20 20 20 20 20 20 20 20 20 |..' |
00001230 dd 20 f2 55 73 65 72 5f 44 72 61 77 53 61 76 65 |. .User_DrawSave|
00001240 57 69 6e 64 6f 77 0d 05 dc 12 20 20 20 20 20 20 |Window.... |
00001250 20 20 20 20 20 20 20 e1 0d 05 e6 12 20 20 20 20 | ..... |
00001260 20 20 20 20 20 20 20 20 20 3a 0d 05 f0 28 20 20 | :...( |
00001270 20 20 20 20 20 20 20 20 20 20 20 dd 20 f2 55 73 | . .Us|
00001280 65 72 5f 44 72 61 77 43 6c 6f 73 65 57 69 6e 64 |er_DrawCloseWind|
00001290 6f 77 0d 05 fa 12 20 20 20 20 20 20 20 20 20 20 |ow.... |
000012a0 20 20 20 e1 0d 06 04 12 20 20 20 20 20 20 20 20 | ..... |
000012b0 20 20 20 20 20 3a 0d 06 0e 28 20 20 20 20 20 20 | :...( |
000012c0 20 20 20 20 20 20 20 dd 20 f2 55 73 65 72 5f 44 | . .User_D|
000012d0 72 61 77 53 61 76 65 32 57 69 6e 64 6f 77 0d 06 |rawSave2Window..|
000012e0 18 12 20 20 20 20 20 20 20 20 20 20 20 20 20 e1 |.. .|
000012f0 0d 06 22 12 20 20 20 20 20 20 20 20 20 20 20 20 |..". |
00001300 20 3a 0d 06 2c 27 20 20 20 20 20 20 20 20 20 20 | :..,' |
00001310 20 20 20 dd 20 f2 55 73 65 72 5f 44 72 61 77 4d | . .User_DrawM|
00001320 61 69 6e 57 69 6e 64 6f 77 0d 06 36 12 20 20 20 |ainWindow..6. |
00001330 20 20 20 20 20 20 20 20 20 20 e1 0d 06 40 12 20 | ...@. |
00001340 20 20 20 20 20 20 20 20 20 20 20 20 3a 0d 06 4a | :..J|
00001350 28 20 20 20 20 20 20 20 20 20 20 20 20 20 dd 20 |( . |
00001360 f2 55 73 65 72 5f 44 72 61 77 54 6f 6f 6c 73 57 |.User_DrawToolsW|
00001370 69 6e 64 6f 77 0d 06 54 12 20 20 20 20 20 20 20 |indow..T. |
00001380 20 20 20 20 20 20 e1 0d 06 5e 12 20 20 20 20 20 | ...^. |
00001390 20 20 20 20 20 20 20 20 3a 0d 06 68 28 20 20 20 | :..h( |
000013a0 20 20 20 20 20 20 20 20 20 20 dd 20 f2 55 73 65 | . .Use|
000013b0 72 5f 44 72 61 77 54 69 74 6c 65 57 69 6e 64 6f |r_DrawTitleWindo|
000013c0 77 0d 06 72 12 20 20 20 20 20 20 20 20 20 20 20 |w..r. |
000013d0 20 20 e1 0d 06 7c 12 20 20 20 20 20 20 20 20 20 | ...|. |
000013e0 20 20 20 20 3a 0d 06 86 26 20 20 20 20 20 20 20 | :...& |
000013f0 20 20 20 20 20 20 dd 20 f2 55 73 65 72 5f 44 72 | . .User_Dr|
00001400 61 77 42 6f 74 57 69 6e 64 6f 77 0d 06 90 25 20 |awBotWindow...% |
00001410 20 20 20 20 20 20 20 20 20 20 20 20 c8 99 22 57 | .."W|
00001420 69 6d 70 5f 53 65 74 43 6f 6c 6f 75 72 22 2c 31 |imp_SetColour",1|
00001430 0d 06 9a 3b 20 20 20 20 20 20 20 20 20 20 20 20 |...; |
00001440 20 c8 93 20 c8 90 20 28 78 5f 6f 72 69 67 69 6e | .. .. (x_origin|
00001450 25 2b 31 30 32 29 2c 79 5f 6f 72 69 67 69 6e 25 |%+102),y_origin%|
00001460 2d 37 30 32 2c 34 35 38 2c 33 30 0d 06 a4 26 20 |-702,458,30...& |
00001470 20 20 20 20 20 20 20 20 20 20 20 20 c8 99 22 57 | .."W|
00001480 69 6d 70 5f 53 65 74 43 6f 6c 6f 75 72 22 2c 31 |imp_SetColour",1|
00001490 31 0d 06 ae 21 20 20 20 20 20 20 20 20 20 20 20 |1...! |
000014a0 20 20 6c 65 6e 3d 34 35 38 2f 28 74 6f 74 25 2b | len=458/(tot%+|
000014b0 31 29 0d 06 b8 1e 20 20 20 20 20 20 20 20 20 20 |1).... |
000014c0 20 20 20 70 6f 73 73 3d 63 75 72 25 2a 6c 65 6e | poss=cur%*len|
000014d0 0d 06 c2 40 20 20 20 20 20 20 20 20 20 20 20 20 |...@ |
000014e0 20 c8 93 20 c8 90 20 28 78 5f 6f 72 69 67 69 6e | .. .. (x_origin|
000014f0 25 2b 31 30 32 29 2b 70 6f 73 73 2c 79 5f 6f 72 |%+102)+poss,y_or|
00001500 69 67 69 6e 25 2d 37 30 32 2c 6c 65 6e 2c 33 30 |igin%-702,len,30|
00001510 0d 06 cc 12 20 20 20 20 20 20 20 20 20 20 20 20 |.... |
00001520 20 e1 0d 06 d6 0c 20 20 20 20 20 20 20 3a 0d 06 | ..... :..|
00001530 e0 3b 20 20 20 20 20 20 20 dd 20 f2 45 76 65 6e |.; . .Even|
00001540 74 5f 4d 6f 75 73 65 43 6c 69 63 6b 28 77 69 6e |t_MouseClick(win|
00001550 64 6f 77 25 2c 69 63 6f 6e 25 2c 62 75 74 74 6f |dow%,icon%,butto|
00001560 6e 25 2c 78 25 2c 79 25 29 0d 06 ea 17 20 20 20 |n%,x%,y%).... |
00001570 20 20 20 20 c8 8e 20 77 69 6e 64 6f 77 25 20 ca | .. window% .|
00001580 0d 06 f4 31 20 20 20 20 20 20 20 20 c9 20 42 61 |...1 . Ba|
00001590 72 5f 57 69 6e 64 6f 77 25 20 20 20 20 20 20 20 |r_Window% |
000015a0 20 3a 20 f2 55 73 65 72 5f 4d 6f 75 73 65 42 61 | : .User_MouseBa|
000015b0 72 0d 06 fe 42 20 20 20 20 20 20 20 20 c9 20 49 |r...B . I|
000015c0 6e 66 6f 5f 57 69 6e 64 6f 77 25 20 20 20 20 20 |nfo_Window% |
000015d0 20 20 3a 20 f2 55 73 65 72 5f 4d 6f 75 73 65 49 | : .User_MouseI|
000015e0 6e 66 6f 28 20 62 75 74 74 6f 6e 25 2c 69 63 6f |nfo( button%,ico|
000015f0 6e 25 29 0d 07 08 43 20 20 20 20 20 20 20 20 c9 |n%)...C .|
00001600 20 43 6c 6f 73 65 5f 57 69 6e 64 6f 77 25 20 20 | Close_Window% |
00001610 20 20 20 20 3a 20 f2 55 73 65 72 5f 4d 6f 75 73 | : .User_Mous|
00001620 65 43 6c 6f 73 65 28 20 62 75 74 74 6f 6e 25 2c |eClose( button%,|
00001630 69 63 6f 6e 25 29 0d 07 12 42 20 20 20 20 20 20 |icon%)...B |
00001640 20 20 c9 20 4d 61 69 6e 5f 57 69 6e 64 6f 77 25 | . Main_Window%|
00001650 20 20 20 20 20 20 20 3a 20 f2 55 73 65 72 5f 4d | : .User_M|
00001660 6f 75 73 65 4d 61 69 6e 28 20 62 75 74 74 6f 6e |ouseMain( button|
00001670 25 2c 69 63 6f 6e 25 29 0d 07 1c 43 20 20 20 20 |%,icon%)...C |
00001680 20 20 20 20 c9 20 54 6f 6f 6c 73 5f 57 69 6e 64 | . Tools_Wind|
00001690 6f 77 25 20 20 20 20 20 20 3a 20 f2 55 73 65 72 |ow% : .User|
000016a0 5f 4d 6f 75 73 65 54 6f 6f 6c 73 28 20 62 75 74 |_MouseTools( but|
000016b0 74 6f 6e 25 2c 69 63 6f 6e 25 29 0d 07 26 43 20 |ton%,icon%)..&C |
000016c0 20 20 20 20 20 20 20 c9 20 54 69 74 6c 65 5f 57 | . Title_W|
000016d0 69 6e 64 6f 77 25 20 20 20 20 20 20 3a 20 f2 55 |indow% : .U|
000016e0 73 65 72 5f 4d 6f 75 73 65 54 69 74 6c 65 28 20 |ser_MouseTitle( |
000016f0 62 75 74 74 6f 6e 25 2c 69 63 6f 6e 25 29 0d 07 |button%,icon%)..|
00001700 30 41 20 20 20 20 20 20 20 20 c9 20 42 6f 74 5f |0A . Bot_|
00001710 57 69 6e 64 6f 77 25 20 20 20 20 20 20 20 20 3a |Window% :|
00001720 20 f2 55 73 65 72 5f 4d 6f 75 73 65 42 6f 74 28 | .User_MouseBot(|
00001730 20 62 75 74 74 6f 6e 25 2c 69 63 6f 6e 25 29 0d | button%,icon%).|
00001740 07 3a 0c 20 20 20 20 20 20 20 cb 0d 07 44 0c 20 |.:. ...D. |
00001750 20 20 20 20 20 20 e1 0d 07 4e 0e 20 20 20 20 20 | ...N. |
00001760 20 20 20 20 3a 0d 07 58 1d 20 20 20 20 20 20 20 | :..X. |
00001770 20 20 dd 20 f2 55 73 65 72 5f 4d 6f 75 73 65 42 | . .User_MouseB|
00001780 61 72 0d 07 62 6d 20 20 20 20 20 20 20 20 20 e7 |ar..bm .|
00001790 20 57 49 24 3d 22 4d 41 49 4e 22 20 80 20 53 41 | WI$="MAIN" . SA|
000017a0 25 3d a3 20 8c 20 f2 57 69 6d 70 5f 57 69 6e 64 |%=. . .Wimp_Wind|
000017b0 6f 77 42 72 69 6e 67 54 6f 54 6f 70 28 4d 61 69 |owBringToTop(Mai|
000017c0 6e 5f 57 69 6e 64 6f 77 25 29 3a f2 57 69 6d 70 |n_Window%):.Wimp|
000017d0 5f 57 69 6e 64 6f 77 42 72 69 6e 67 54 6f 54 6f |_WindowBringToTo|
000017e0 70 28 4d 61 69 6e 5f 57 69 6e 64 6f 77 25 29 0d |p(Main_Window%).|
000017f0 07 6c 4a 20 20 20 20 20 20 20 20 20 e7 20 57 49 |.lJ . WI|
00001800 24 3d 22 54 49 54 4c 45 22 20 80 20 53 41 25 3d |$="TITLE" . SA%=|
00001810 a3 20 8c 20 f2 57 69 6d 70 5f 57 69 6e 64 6f 77 |. . .Wimp_Window|
00001820 42 72 69 6e 67 54 6f 54 6f 70 28 54 69 74 6c 65 |BringToTop(Title|
00001830 5f 57 69 6e 64 6f 77 25 29 0d 07 76 55 20 20 20 |_Window%)..vU |
00001840 20 20 20 20 20 20 e7 20 57 49 24 3d 22 4e 4f 4e | . WI$="NON|
00001850 45 22 20 80 20 53 41 25 3d a3 20 8c 20 f2 57 69 |E" . SA%=. . .Wi|
00001860 6d 70 5f 57 69 6e 64 6f 77 42 72 69 6e 67 54 6f |mp_WindowBringTo|
00001870 54 6f 70 28 54 69 74 6c 65 5f 57 69 6e 64 6f 77 |Top(Title_Window|
00001880 25 29 3a 57 49 24 3d 22 54 49 54 4c 45 22 0d 07 |%):WI$="TITLE"..|
00001890 80 0e 20 20 20 20 20 20 20 20 20 e1 0d 07 8a 0e |.. .....|
000018a0 20 20 20 20 20 20 20 20 20 3a 0d 07 94 2e 20 20 | :.... |
000018b0 20 20 20 20 20 20 20 dd 20 f2 55 73 65 72 5f 4d | . .User_M|
000018c0 6f 75 73 65 49 6e 66 6f 28 20 62 75 74 74 6f 6e |ouseInfo( button|
000018d0 25 2c 69 63 6f 6e 25 29 0d 07 9e 0e 20 20 20 20 |%,icon%).... |
000018e0 20 20 20 20 20 e1 0d 07 a8 0e 20 20 20 20 20 20 | ..... |
000018f0 20 20 20 3a 0d 07 b2 2f 20 20 20 20 20 20 20 20 | :.../ |
00001900 20 dd 20 f2 55 73 65 72 5f 4d 6f 75 73 65 43 6c | . .User_MouseCl|
00001910 6f 73 65 28 20 62 75 74 74 6f 6e 25 2c 69 63 6f |ose( button%,ico|
00001920 6e 25 29 0d 07 bc 18 20 20 20 20 20 20 20 20 20 |n%).... |
00001930 e7 20 69 63 6f 6e 25 3d 31 20 8c 0d 07 c6 09 53 |. icon%=1 .....S|
00001940 41 25 3d b9 0d 07 d0 0a f2 75 6e 62 6f 78 0d 07 |A%=......unbox..|
00001950 da 24 f2 57 69 6d 70 5f 57 69 6e 64 6f 77 43 6c |.$.Wimp_WindowCl|
00001960 6f 73 65 28 43 6c 6f 73 65 5f 57 69 6e 64 6f 77 |ose(Close_Window|
00001970 25 29 0d 07 e4 0d 55 50 44 41 54 45 25 3d a3 0d |%)....UPDATE%=..|
00001980 07 ee 28 f2 57 69 6d 70 5f 57 69 6e 64 6f 77 42 |..(.Wimp_WindowB|
00001990 72 69 6e 67 54 6f 54 6f 70 28 53 61 76 65 5f 57 |ringToTop(Save_W|
000019a0 69 6e 64 6f 77 25 29 0d 07 f8 25 41 24 3d a4 57 |indow%)...%A$=.W|
000019b0 69 6d 70 5f 49 63 6f 6e 54 65 78 74 28 53 61 76 |imp_IconText(Sav|
000019c0 65 5f 57 69 6e 64 6f 77 25 2c 31 29 0d 08 02 29 |e_Window%,1)...)|
000019d0 f2 57 69 6d 70 5f 49 63 6f 6e 43 61 72 65 74 28 |.Wimp_IconCaret(|
000019e0 53 61 76 65 5f 57 69 6e 64 6f 77 25 2c 31 2c a9 |Save_Window%,1,.|
000019f0 28 41 24 29 29 0d 08 0c 05 cd 0d 08 16 18 20 20 |(A$))......... |
00001a00 20 20 20 20 20 20 20 e7 20 69 63 6f 6e 25 3d 32 | . icon%=2|
00001a10 20 8c 0d 08 20 0a f2 75 6e 62 6f 78 0d 08 2a 0d | ... ..unbox..*.|
00001a20 55 50 44 41 54 45 25 3d a3 0d 08 34 24 f2 57 69 |UPDATE%=...4$.Wi|
00001a30 6d 70 5f 57 69 6e 64 6f 77 43 6c 6f 73 65 28 43 |mp_WindowClose(C|
00001a40 6c 6f 73 65 5f 57 69 6e 64 6f 77 25 29 0d 08 3e |lose_Window%)..>|
00001a50 09 43 44 25 3d b9 0d 08 48 05 cd 0d 08 52 18 20 |.CD%=...H....R. |
00001a60 20 20 20 20 20 20 20 20 e7 20 69 63 6f 6e 25 3d | . icon%=|
00001a70 33 20 8c 0d 08 5c 0a f2 75 6e 62 6f 78 0d 08 66 |3 ...\..unbox..f|
00001a80 24 f2 57 69 6d 70 5f 57 69 6e 64 6f 77 43 6c 6f |$.Wimp_WindowClo|
00001a90 73 65 28 43 6c 6f 73 65 5f 57 69 6e 64 6f 77 25 |se(Close_Window%|
00001aa0 29 0d 08 70 05 cd 0d 08 7a 1d e7 20 43 44 25 3d |)..p....z.. CD%=|
00001ab0 b9 20 8c 20 f2 57 69 6d 70 5f 43 6c 6f 73 65 44 |. . .Wimp_CloseD|
00001ac0 6f 77 6e 0d 08 84 0e 20 20 20 20 20 20 20 20 20 |own.... |
00001ad0 e1 0d 08 8e 0e 20 20 20 20 20 20 20 20 20 3a 0d |..... :.|
00001ae0 08 98 2e 20 20 20 20 20 20 20 20 20 dd 20 f2 55 |... . .U|
00001af0 73 65 72 5f 4d 6f 75 73 65 4d 61 69 6e 28 20 62 |ser_MouseMain( b|
00001b00 75 74 74 6f 6e 25 2c 69 63 6f 6e 25 29 0d 08 a2 |utton%,icon%)...|
00001b10 0e 20 20 20 20 20 20 20 20 20 e1 0d 08 ac 0e 20 |. ..... |
00001b20 20 20 20 20 20 20 20 20 3a 0d 08 b6 2f 20 20 20 | :.../ |
00001b30 20 20 20 20 20 20 dd 20 f2 55 73 65 72 5f 4d 6f | . .User_Mo|
00001b40 75 73 65 54 6f 6f 6c 73 28 20 62 75 74 74 6f 6e |useTools( button|
00001b50 25 2c 69 63 6f 6e 25 29 0d 08 c0 18 20 20 20 20 |%,icon%).... |
00001b60 20 20 20 20 20 e7 20 69 63 6f 6e 25 3d 34 20 8c | . icon%=4 .|
00001b70 0d 08 ca 16 20 20 20 20 20 20 20 20 20 55 50 44 |.... UPD|
00001b80 41 54 45 25 3d b9 0d 08 d4 12 20 20 20 20 20 20 |ATE%=..... |
00001b90 20 20 20 f2 72 65 61 64 0d 08 de 12 20 20 20 20 | .read.... |
00001ba0 20 20 20 20 20 f2 73 6f 72 74 0d 08 e8 14 20 20 | .sort.... |
00001bb0 20 20 20 20 20 20 20 f2 75 70 64 61 74 65 0d 08 | .update..|
00001bc0 f2 0e 20 20 20 20 20 20 20 20 20 cd 0d 08 fc 18 |.. .....|
00001bd0 20 20 20 20 20 20 20 20 20 e7 20 69 63 6f 6e 25 | . icon%|
00001be0 3d 33 20 8c 0d 09 06 64 20 20 20 20 20 20 20 20 |=3 ....d |
00001bf0 20 63 68 65 63 6b 25 3d a4 57 69 6d 70 5f 57 69 | check%=.Wimp_Wi|
00001c00 6e 64 6f 77 43 61 6e 63 65 6c 28 22 21 54 72 69 |ndowCancel("!Tri|
00001c10 63 6b 73 74 65 72 22 2c 22 41 72 65 20 79 6f 75 |ckster","Are you|
00001c20 20 73 75 72 65 20 79 6f 75 20 77 61 6e 74 20 74 | sure you want t|
00001c30 6f 20 64 65 6c 65 74 65 20 74 68 69 73 20 72 65 |o delete this re|
00001c40 63 6f 72 64 20 3f 22 29 0d 09 10 19 20 20 20 20 |cord ?").... |
00001c50 20 20 20 20 20 e7 20 63 68 65 63 6b 25 3d b9 20 | . check%=. |
00001c60 8c 0d 09 1a 16 20 20 20 20 20 20 20 20 20 55 50 |..... UP|
00001c70 44 41 54 45 25 3d b9 0d 09 24 1c 20 20 20 20 20 |DATE%=...$. |
00001c80 20 20 20 20 e3 20 41 3d 63 75 72 25 20 b8 20 74 | . A=cur% . t|
00001c90 6f 74 25 0d 09 2e 20 20 20 20 20 20 20 20 20 20 |ot%... |
00001ca0 6e 61 6d 65 24 28 41 29 3d 6e 61 6d 65 24 28 41 |name$(A)=name$(A|
00001cb0 2b 31 29 0d 09 38 16 20 20 20 20 20 20 20 20 20 |+1)..8. |
00001cc0 e3 20 42 3d 30 20 b8 20 37 0d 09 42 24 20 20 20 |. B=0 . 7..B$ |
00001cd0 20 20 20 20 20 20 69 6e 66 6f 24 28 41 2c 42 29 | info$(A,B)|
00001ce0 3d 69 6e 66 6f 24 28 41 2b 31 2c 42 29 0d 09 4c |=info$(A+1,B)..L|
00001cf0 0f 20 20 20 20 20 20 20 20 20 ed 42 0d 09 56 20 |. .B..V |
00001d00 20 20 20 20 20 20 20 20 20 68 61 63 6b 24 28 41 | hack$(A|
00001d10 29 3d 68 61 63 6b 24 28 41 2b 31 29 0d 09 60 20 |)=hack$(A+1)..` |
00001d20 20 20 20 20 20 20 20 20 20 68 61 63 6b 25 28 41 | hack%(A|
00001d30 29 3d 68 61 63 6b 25 28 41 2b 31 29 0d 09 6a 17 |)=hack%(A+1)..j.|
00001d40 20 20 20 20 20 20 20 20 20 e3 20 42 3d 30 20 b8 | . B=0 .|
00001d50 20 32 35 0d 09 74 28 20 20 20 20 20 20 20 20 20 | 25..t( |
00001d60 68 61 63 6b 65 72 24 28 41 2c 42 29 3d 68 61 63 |hacker$(A,B)=hac|
00001d70 6b 65 72 24 28 41 2b 31 2c 42 29 0d 09 7e 0f 20 |ker$(A+1,B)..~. |
00001d80 20 20 20 20 20 20 20 20 ed 42 0d 09 88 1e 20 20 | .B.... |
00001d90 20 20 20 20 20 20 20 70 6f 73 25 28 41 29 3d 70 | pos%(A)=p|
00001da0 6f 73 25 28 41 2b 31 29 0d 09 92 0f 20 20 20 20 |os%(A+1).... |
00001db0 20 20 20 20 20 ed 41 0d 09 9c 14 20 20 20 20 20 | .A.... |
00001dc0 20 20 20 20 74 6f 74 25 2d 3d 31 0d 09 a6 28 f2 | tot%-=1...(.|
00001dd0 57 69 6d 70 5f 49 63 6f 6e 50 75 74 54 65 78 74 |Wimp_IconPutText|
00001de0 28 4d 61 69 6e 5f 57 69 6e 64 6f 77 25 2c 36 2c |(Main_Window%,6,|
00001df0 22 22 29 0d 09 b0 0f e3 20 41 3d 31 30 20 b8 20 |"")..... A=10 . |
00001e00 31 37 0d 09 ba 28 f2 57 69 6d 70 5f 49 63 6f 6e |17...(.Wimp_Icon|
00001e10 50 75 74 54 65 78 74 28 4d 61 69 6e 5f 57 69 6e |PutText(Main_Win|
00001e20 64 6f 77 25 2c 41 2c 22 22 29 0d 09 c4 06 ed 41 |dow%,A,"").....A|
00001e30 0d 09 ce 27 f2 57 69 6d 70 5f 49 63 6f 6e 50 75 |...'.Wimp_IconPu|
00001e40 74 54 65 78 74 28 42 6f 74 5f 57 69 6e 64 6f 77 |tText(Bot_Window|
00001e50 25 2c 34 2c 22 22 29 0d 09 d8 14 20 20 20 20 20 |%,4,"").... |
00001e60 20 20 20 20 f2 75 70 64 61 74 65 0d 09 e2 1a 20 | .update.... |
00001e70 20 20 20 20 20 20 20 20 e7 20 63 75 72 25 3d 74 | . cur%=t|
00001e80 6f 74 25 20 8c 0d 09 ec 25 f2 57 69 6d 70 5f 49 |ot% ....%.Wimp_I|
00001e90 63 6f 6e 45 6e 61 62 6c 65 28 54 6f 6f 6c 73 5f |conEnable(Tools_|
00001ea0 57 69 6e 64 6f 77 25 2c 32 29 0d 09 f6 26 f2 57 |Window%,2)...&.W|
00001eb0 69 6d 70 5f 49 63 6f 6e 44 69 73 61 62 6c 65 28 |imp_IconDisable(|
00001ec0 54 6f 6f 6c 73 5f 57 69 6e 64 6f 77 25 2c 38 29 |Tools_Window%,8)|
00001ed0 0d 0a 00 26 f2 57 69 6d 70 5f 49 63 6f 6e 44 69 |...&.Wimp_IconDi|
00001ee0 73 61 62 6c 65 28 54 6f 6f 6c 73 5f 57 69 6e 64 |sable(Tools_Wind|
00001ef0 6f 77 25 2c 39 29 0d 0a 0a 26 f2 57 69 6d 70 5f |ow%,9)...&.Wimp_|
00001f00 49 63 6f 6e 44 69 73 61 62 6c 65 28 54 6f 6f 6c |IconDisable(Tool|
00001f10 73 5f 57 69 6e 64 6f 77 25 2c 33 29 0d 0a 14 05 |s_Window%,3)....|
00001f20 cd 0d 0a 1e 31 e7 20 74 6f 74 25 3c 32 20 8c 20 |....1. tot%<2 . |
00001f30 f2 57 69 6d 70 5f 49 63 6f 6e 44 69 73 61 62 6c |.Wimp_IconDisabl|
00001f40 65 28 54 6f 6f 6c 73 5f 57 69 6e 64 6f 77 25 2c |e(Tools_Window%,|
00001f50 34 29 0d 0a 28 0e e7 20 74 6f 74 25 3d 30 20 8c |4)..(.. tot%=0 .|
00001f60 0d 0a 32 2e 20 20 20 20 20 20 20 20 20 f2 57 69 |..2. .Wi|
00001f70 6d 70 5f 49 63 6f 6e 44 69 73 61 62 6c 65 28 42 |mp_IconDisable(B|
00001f80 6f 74 5f 57 69 6e 64 6f 77 25 2c 31 32 29 0d 0a |ot_Window%,12)..|
00001f90 3c 2e 20 20 20 20 20 20 20 20 20 f2 57 69 6d 70 |<. .Wimp|
00001fa0 5f 49 63 6f 6e 44 69 73 61 62 6c 65 28 42 6f 74 |_IconDisable(Bot|
00001fb0 5f 57 69 6e 64 6f 77 25 2c 31 35 29 0d 0a 46 2e |_Window%,15)..F.|
00001fc0 20 20 20 20 20 20 20 20 20 f2 57 69 6d 70 5f 49 | .Wimp_I|
00001fd0 63 6f 6e 44 69 73 61 62 6c 65 28 42 6f 74 5f 57 |conDisable(Bot_W|
00001fe0 69 6e 64 6f 77 25 2c 31 38 29 0d 0a 50 2b 20 20 |indow%,18)..P+ |
00001ff0 20 20 20 20 20 20 20 f2 57 69 6d 70 5f 4d 65 6e | .Wimp_Men|
00002000 75 44 69 73 61 62 6c 65 28 42 61 72 5f 4d 65 6e |uDisable(Bar_Men|
00002010 75 25 2c 32 29 0d 0a 5a 05 cd 0d 0a 64 0e 20 20 |u%,2)..Z....d. |
00002020 20 20 20 20 20 20 20 cd 0d 0a 6e 0e 20 20 20 20 | ...n. |
00002030 20 20 20 20 20 cd 0d 0a 78 4b 20 20 20 20 20 20 | ...xK |
00002040 20 20 20 e7 20 28 69 63 6f 6e 25 3d 38 20 80 20 | . (icon%=8 . |
00002050 62 75 74 74 6f 6e 25 3d 34 29 20 84 20 28 69 63 |button%=4) . (ic|
00002060 6f 6e 25 3d 31 31 20 80 20 62 75 74 74 6f 6e 25 |on%=11 . button%|
00002070 3d 31 20 80 20 63 75 72 25 3c 74 6f 74 25 29 20 |=1 . cur%<tot%) |
00002080 8c 0d 0a 82 16 20 20 20 20 20 20 20 20 20 55 50 |..... UP|
00002090 44 41 54 45 25 3d b9 0d 0a 8c 09 f2 72 65 61 64 |DATE%=......read|
000020a0 0d 0a 96 0b 63 75 72 25 2b 3d 31 0d 0a a0 0b f2 |....cur%+=1.....|
000020b0 75 70 64 61 74 65 0d 0a aa 1a 20 20 20 20 20 20 |update.... |
000020c0 20 20 20 e7 20 63 75 72 25 3d 74 6f 74 25 20 8c | . cur%=tot% .|
000020d0 0d 0a b4 25 f2 57 69 6d 70 5f 49 63 6f 6e 45 6e |...%.Wimp_IconEn|
000020e0 61 62 6c 65 28 54 6f 6f 6c 73 5f 57 69 6e 64 6f |able(Tools_Windo|
000020f0 77 25 2c 32 29 0d 0a be 26 f2 57 69 6d 70 5f 49 |w%,2)...&.Wimp_I|
00002100 63 6f 6e 44 69 73 61 62 6c 65 28 54 6f 6f 6c 73 |conDisable(Tools|
00002110 5f 57 69 6e 64 6f 77 25 2c 38 29 0d 0a c8 26 f2 |_Window%,8)...&.|
00002120 57 69 6d 70 5f 49 63 6f 6e 44 69 73 61 62 6c 65 |Wimp_IconDisable|
00002130 28 54 6f 6f 6c 73 5f 57 69 6e 64 6f 77 25 2c 39 |(Tools_Window%,9|
00002140 29 0d 0a d2 26 f2 57 69 6d 70 5f 49 63 6f 6e 44 |)...&.Wimp_IconD|
00002150 69 73 61 62 6c 65 28 54 6f 6f 6c 73 5f 57 69 6e |isable(Tools_Win|
00002160 64 6f 77 25 2c 33 29 0d 0a dc 05 cd 0d 0a e6 26 |dow%,3)........&|
00002170 f2 57 69 6d 70 5f 49 63 6f 6e 45 6e 61 62 6c 65 |.Wimp_IconEnable|
00002180 28 54 6f 6f 6c 73 5f 57 69 6e 64 6f 77 25 2c 31 |(Tools_Window%,1|
00002190 30 29 0d 0a f0 26 f2 57 69 6d 70 5f 49 63 6f 6e |0)...&.Wimp_Icon|
000021a0 45 6e 61 62 6c 65 28 54 6f 6f 6c 73 5f 57 69 6e |Enable(Tools_Win|
000021b0 64 6f 77 25 2c 31 31 29 0d 0a fa 0e 20 20 20 20 |dow%,11).... |
000021c0 20 20 20 20 20 cd 0d 0b 04 3f 20 20 20 20 20 20 | ....? |
000021d0 20 20 20 e7 20 28 69 63 6f 6e 25 3d 39 20 80 20 | . (icon%=9 . |
000021e0 62 75 74 74 6f 6e 25 3d 34 29 20 84 20 28 69 63 |button%=4) . (ic|
000021f0 6f 6e 25 3d 31 30 20 80 20 62 75 74 74 6f 6e 25 |on%=10 . button%|
00002200 3d 31 29 20 8c 0d 0b 0e 16 20 20 20 20 20 20 20 |=1) ..... |
00002210 20 20 55 50 44 41 54 45 25 3d b9 0d 0b 18 09 f2 | UPDATE%=......|
00002220 72 65 61 64 0d 0b 22 0d 63 75 72 25 3d 74 6f 74 |read..".cur%=tot|
00002230 25 0d 0b 2c 0b f2 75 70 64 61 74 65 0d 0b 36 1a |%..,..update..6.|
00002240 20 20 20 20 20 20 20 20 20 e7 20 63 75 72 25 3d | . cur%=|
00002250 74 6f 74 25 20 8c 0d 0b 40 25 f2 57 69 6d 70 5f |tot% ...@%.Wimp_|
00002260 49 63 6f 6e 45 6e 61 62 6c 65 28 54 6f 6f 6c 73 |IconEnable(Tools|
00002270 5f 57 69 6e 64 6f 77 25 2c 32 29 0d 0b 4a 26 f2 |_Window%,2)..J&.|
00002280 57 69 6d 70 5f 49 63 6f 6e 44 69 73 61 62 6c 65 |Wimp_IconDisable|
00002290 28 54 6f 6f 6c 73 5f 57 69 6e 64 6f 77 25 2c 38 |(Tools_Window%,8|
000022a0 29 0d 0b 54 26 f2 57 69 6d 70 5f 49 63 6f 6e 44 |)..T&.Wimp_IconD|
000022b0 69 73 61 62 6c 65 28 54 6f 6f 6c 73 5f 57 69 6e |isable(Tools_Win|
000022c0 64 6f 77 25 2c 39 29 0d 0b 5e 26 f2 57 69 6d 70 |dow%,9)..^&.Wimp|
000022d0 5f 49 63 6f 6e 44 69 73 61 62 6c 65 28 54 6f 6f |_IconDisable(Too|
000022e0 6c 73 5f 57 69 6e 64 6f 77 25 2c 33 29 0d 0b 68 |ls_Window%,3)..h|
000022f0 05 cd 0d 0b 72 26 f2 57 69 6d 70 5f 49 63 6f 6e |....r&.Wimp_Icon|
00002300 45 6e 61 62 6c 65 28 54 6f 6f 6c 73 5f 57 69 6e |Enable(Tools_Win|
00002310 64 6f 77 25 2c 31 30 29 0d 0b 7c 26 f2 57 69 6d |dow%,10)..|&.Wim|
00002320 70 5f 49 63 6f 6e 45 6e 61 62 6c 65 28 54 6f 6f |p_IconEnable(Too|
00002330 6c 73 5f 57 69 6e 64 6f 77 25 2c 31 31 29 0d 0b |ls_Window%,11)..|
00002340 86 0e 20 20 20 20 20 20 20 20 20 cd 0d 0b 90 48 |.. ....H|
00002350 20 20 20 20 20 20 20 20 20 e7 20 28 69 63 6f 6e | . (icon|
00002360 25 3d 31 31 20 80 20 62 75 74 74 6f 6e 25 3d 34 |%=11 . button%=4|
00002370 29 20 84 20 28 69 63 6f 6e 25 3d 38 20 80 20 62 |) . (icon%=8 . b|
00002380 75 74 74 6f 6e 25 3d 31 20 80 20 63 75 72 25 3e |utton%=1 . cur%>|
00002390 30 29 20 8c 0d 0b 9a 16 20 20 20 20 20 20 20 20 |0) ..... |
000023a0 20 55 50 44 41 54 45 25 3d b9 0d 0b a4 2f 20 20 | UPDATE%=..../ |
000023b0 20 20 20 20 20 20 20 f2 57 69 6d 70 5f 49 63 6f | .Wimp_Ico|
000023c0 6e 44 69 73 61 62 6c 65 28 54 6f 6f 6c 73 5f 57 |nDisable(Tools_W|
000023d0 69 6e 64 6f 77 25 2c 32 29 0d 0b ae 2e 20 20 20 |indow%,2).... |
000023e0 20 20 20 20 20 20 f2 57 69 6d 70 5f 49 63 6f 6e | .Wimp_Icon|
000023f0 45 6e 61 62 6c 65 28 54 6f 6f 6c 73 5f 57 69 6e |Enable(Tools_Win|
00002400 64 6f 77 25 2c 38 29 0d 0b b8 2e 20 20 20 20 20 |dow%,8).... |
00002410 20 20 20 20 f2 57 69 6d 70 5f 49 63 6f 6e 45 6e | .Wimp_IconEn|
00002420 61 62 6c 65 28 54 6f 6f 6c 73 5f 57 69 6e 64 6f |able(Tools_Windo|
00002430 77 25 2c 39 29 0d 0b c2 2e 20 20 20 20 20 20 20 |w%,9).... |
00002440 20 20 f2 57 69 6d 70 5f 49 63 6f 6e 45 6e 61 62 | .Wimp_IconEnab|
00002450 6c 65 28 54 6f 6f 6c 73 5f 57 69 6e 64 6f 77 25 |le(Tools_Window%|
00002460 2c 33 29 0d 0b cc 1a 20 20 20 20 20 20 20 20 20 |,3).... |
00002470 e7 20 63 75 72 25 3d 74 6f 74 25 20 8c 0d 0b d6 |. cur%=tot% ....|
00002480 31 20 20 20 20 20 20 20 20 20 f2 57 69 6d 70 5f |1 .Wimp_|
00002490 49 63 6f 6e 50 75 74 54 65 78 74 28 4d 61 69 6e |IconPutText(Main|
000024a0 5f 57 69 6e 64 6f 77 25 2c 36 2c 22 22 29 0d 0b |_Window%,6,"")..|
000024b0 e0 18 20 20 20 20 20 20 20 20 20 e3 20 41 3d 31 |.. . A=1|
000024c0 30 20 b8 20 31 37 0d 0b ea 31 20 20 20 20 20 20 |0 . 17...1 |
000024d0 20 20 20 f2 57 69 6d 70 5f 49 63 6f 6e 50 75 74 | .Wimp_IconPut|
000024e0 54 65 78 74 28 4d 61 69 6e 5f 57 69 6e 64 6f 77 |Text(Main_Window|
000024f0 25 2c 41 2c 22 22 29 0d 0b f4 0f 20 20 20 20 20 |%,A,"").... |
00002500 20 20 20 20 ed 41 0d 0b fe 30 20 20 20 20 20 20 | .A...0 |
00002510 20 20 20 f2 57 69 6d 70 5f 49 63 6f 6e 50 75 74 | .Wimp_IconPut|
00002520 54 65 78 74 28 42 6f 74 5f 57 69 6e 64 6f 77 25 |Text(Bot_Window%|
00002530 2c 34 2c 22 22 29 0d 0c 08 1a 20 20 20 20 20 20 |,4,"").... |
00002540 20 20 20 68 61 63 6b 25 28 63 75 72 25 29 3d a3 | hack%(cur%)=.|
00002550 0d 0c 12 0e 20 20 20 20 20 20 20 20 20 cd 0d 0c |.... ...|
00002560 1c 12 20 20 20 20 20 20 20 20 20 f2 72 65 61 64 |.. .read|
00002570 0d 0c 26 14 20 20 20 20 20 20 20 20 20 63 75 72 |..&. cur|
00002580 25 2d 3d 31 0d 0c 30 17 20 20 20 20 20 20 20 20 |%-=1..0. |
00002590 20 e7 20 63 75 72 25 3d 30 20 8c 0d 0c 3a 27 f2 | . cur%=0 ...:'.|
000025a0 57 69 6d 70 5f 49 63 6f 6e 44 69 73 61 62 6c 65 |Wimp_IconDisable|
000025b0 28 54 6f 6f 6c 73 5f 57 69 6e 64 6f 77 25 2c 31 |(Tools_Window%,1|
000025c0 30 29 0d 0c 44 27 f2 57 69 6d 70 5f 49 63 6f 6e |0)..D'.Wimp_Icon|
000025d0 44 69 73 61 62 6c 65 28 54 6f 6f 6c 73 5f 57 69 |Disable(Tools_Wi|
000025e0 6e 64 6f 77 25 2c 31 31 29 0d 0c 4e 05 cd 0d 0c |ndow%,11)..N....|
000025f0 58 14 20 20 20 20 20 20 20 20 20 f2 75 70 64 61 |X. .upda|
00002600 74 65 0d 0c 62 0e 20 20 20 20 20 20 20 20 20 cd |te..b. .|
00002610 0d 0c 6c 3f 20 20 20 20 20 20 20 20 20 e7 20 28 |..l? . (|
00002620 69 63 6f 6e 25 3d 31 30 20 80 20 62 75 74 74 6f |icon%=10 . butto|
00002630 6e 25 3d 34 29 20 84 20 28 69 63 6f 6e 25 3d 39 |n%=4) . (icon%=9|
00002640 20 80 20 62 75 74 74 6f 6e 25 3d 31 29 20 8c 0d | . button%=1) ..|
00002650 0c 76 16 20 20 20 20 20 20 20 20 20 55 50 44 41 |.v. UPDA|
00002660 54 45 25 3d b9 0d 0c 80 2f 20 20 20 20 20 20 20 |TE%=..../ |
00002670 20 20 f2 57 69 6d 70 5f 49 63 6f 6e 44 69 73 61 | .Wimp_IconDisa|
00002680 62 6c 65 28 54 6f 6f 6c 73 5f 57 69 6e 64 6f 77 |ble(Tools_Window|
00002690 25 2c 32 29 0d 0c 8a 2e 20 20 20 20 20 20 20 20 |%,2).... |
000026a0 20 f2 57 69 6d 70 5f 49 63 6f 6e 45 6e 61 62 6c | .Wimp_IconEnabl|
000026b0 65 28 54 6f 6f 6c 73 5f 57 69 6e 64 6f 77 25 2c |e(Tools_Window%,|
000026c0 38 29 0d 0c 94 2e 20 20 20 20 20 20 20 20 20 f2 |8).... .|
000026d0 57 69 6d 70 5f 49 63 6f 6e 45 6e 61 62 6c 65 28 |Wimp_IconEnable(|
000026e0 54 6f 6f 6c 73 5f 57 69 6e 64 6f 77 25 2c 39 29 |Tools_Window%,9)|
000026f0 0d 0c 9e 2e 20 20 20 20 20 20 20 20 20 f2 57 69 |.... .Wi|
00002700 6d 70 5f 49 63 6f 6e 45 6e 61 62 6c 65 28 54 6f |mp_IconEnable(To|
00002710 6f 6c 73 5f 57 69 6e 64 6f 77 25 2c 33 29 0d 0c |ols_Window%,3)..|
00002720 a8 1a 20 20 20 20 20 20 20 20 20 e7 20 63 75 72 |.. . cur|
00002730 25 3d 74 6f 74 25 20 8c 0d 0c b2 31 20 20 20 20 |%=tot% ....1 |
00002740 20 20 20 20 20 f2 57 69 6d 70 5f 49 63 6f 6e 50 | .Wimp_IconP|
00002750 75 74 54 65 78 74 28 4d 61 69 6e 5f 57 69 6e 64 |utText(Main_Wind|
00002760 6f 77 25 2c 36 2c 22 22 29 0d 0c bc 18 20 20 20 |ow%,6,"").... |
00002770 20 20 20 20 20 20 e3 20 41 3d 31 30 20 b8 20 31 | . A=10 . 1|
00002780 37 0d 0c c6 31 20 20 20 20 20 20 20 20 20 f2 57 |7...1 .W|
00002790 69 6d 70 5f 49 63 6f 6e 50 75 74 54 65 78 74 28 |imp_IconPutText(|
000027a0 4d 61 69 6e 5f 57 69 6e 64 6f 77 25 2c 41 2c 22 |Main_Window%,A,"|
000027b0 22 29 0d 0c d0 0f 20 20 20 20 20 20 20 20 20 ed |").... .|
000027c0 41 0d 0c da 30 20 20 20 20 20 20 20 20 20 f2 57 |A...0 .W|
000027d0 69 6d 70 5f 49 63 6f 6e 50 75 74 54 65 78 74 28 |imp_IconPutText(|
000027e0 42 6f 74 5f 57 69 6e 64 6f 77 25 2c 34 2c 22 22 |Bot_Window%,4,""|
000027f0 29 0d 0c e4 1a 20 20 20 20 20 20 20 20 20 68 61 |).... ha|
00002800 63 6b 25 28 63 75 72 25 29 3d a3 0d 0c ee 0e 20 |ck%(cur%)=..... |
00002810 20 20 20 20 20 20 20 20 cd 0d 0c f8 12 20 20 20 | ..... |
00002820 20 20 20 20 20 20 f2 72 65 61 64 0d 0d 02 13 20 | .read.... |
00002830 20 20 20 20 20 20 20 20 63 75 72 25 3d 30 0d 0d | cur%=0..|
00002840 0c 17 20 20 20 20 20 20 20 20 20 e7 20 63 75 72 |.. . cur|
00002850 25 3d 30 20 8c 0d 0d 16 30 20 20 20 20 20 20 20 |%=0 ....0 |
00002860 20 20 f2 57 69 6d 70 5f 49 63 6f 6e 44 69 73 61 | .Wimp_IconDisa|
00002870 62 6c 65 28 54 6f 6f 6c 73 5f 57 69 6e 64 6f 77 |ble(Tools_Window|
00002880 25 2c 31 30 29 0d 0d 20 30 20 20 20 20 20 20 20 |%,10).. 0 |
00002890 20 20 f2 57 69 6d 70 5f 49 63 6f 6e 44 69 73 61 | .Wimp_IconDisa|
000028a0 62 6c 65 28 54 6f 6f 6c 73 5f 57 69 6e 64 6f 77 |ble(Tools_Window|
000028b0 25 2c 31 31 29 0d 0d 2a 0e 20 20 20 20 20 20 20 |%,11)..*. |
000028c0 20 20 cd 0d 0d 34 04 0d 0d 3e 14 20 20 20 20 20 | ...4...>. |
000028d0 20 20 20 20 f2 75 70 64 61 74 65 0d 0d 48 04 0d | .update..H..|
000028e0 0d 52 0e 20 20 20 20 20 20 20 20 20 cd 0d 0d 5c |.R. ...\|
000028f0 18 20 20 20 20 20 20 20 20 20 e7 20 69 63 6f 6e |. . icon|
00002900 25 3d 32 20 8c 0d 0d 66 16 20 20 20 20 20 20 20 |%=2 ...f. |
00002910 20 20 55 50 44 41 54 45 25 3d b9 0d 0d 70 33 20 | UPDATE%=...p3 |
00002920 20 20 20 20 20 20 20 20 e7 20 a4 57 69 6d 70 5f | . .Wimp_|
00002930 49 63 6f 6e 54 65 78 74 28 4d 61 69 6e 5f 57 69 |IconText(Main_Wi|
00002940 6e 64 6f 77 25 2c 36 29 3c 3e 22 22 20 8c 0d 0d |ndow%,6)<>"" ...|
00002950 7a 12 20 20 20 20 20 20 20 20 20 f2 72 65 61 64 |z. .read|
00002960 0d 0d 84 14 20 20 20 20 20 20 20 20 20 74 6f 74 |.... tot|
00002970 25 2b 3d 31 0d 0d 8e 14 20 20 20 20 20 20 20 20 |%+=1.... |
00002980 20 63 75 72 25 2b 3d 31 0d 0d 98 35 20 20 20 20 | cur%+=1...5 |
00002990 20 20 20 20 20 e7 20 74 6f 74 25 3e 30 20 8c 20 | . tot%>0 . |
000029a0 f2 57 69 6d 70 5f 4d 65 6e 75 45 6e 61 62 6c 65 |.Wimp_MenuEnable|
000029b0 28 42 61 72 5f 4d 65 6e 75 25 2c 32 29 0d 0d a2 |(Bar_Menu%,2)...|
000029c0 39 20 20 20 20 20 20 20 20 20 e7 20 74 6f 74 25 |9 . tot%|
000029d0 3e 31 20 8c 20 f2 57 69 6d 70 5f 49 63 6f 6e 45 |>1 . .Wimp_IconE|
000029e0 6e 61 62 6c 65 28 54 6f 6f 6c 73 5f 57 69 6e 64 |nable(Tools_Wind|
000029f0 6f 77 25 2c 34 29 0d 0d ac 2f 20 20 20 20 20 20 |ow%,4).../ |
00002a00 20 20 20 f2 57 69 6d 70 5f 49 63 6f 6e 45 6e 61 | .Wimp_IconEna|
00002a10 62 6c 65 28 54 6f 6f 6c 73 5f 57 69 6e 64 6f 77 |ble(Tools_Window|
00002a20 25 2c 31 30 29 0d 0d b6 2f 20 20 20 20 20 20 20 |%,10).../ |
00002a30 20 20 f2 57 69 6d 70 5f 49 63 6f 6e 45 6e 61 62 | .Wimp_IconEnab|
00002a40 6c 65 28 54 6f 6f 6c 73 5f 57 69 6e 64 6f 77 25 |le(Tools_Window%|
00002a50 2c 31 31 29 0d 0d c0 3b 20 20 20 20 20 20 20 20 |,11)...; |
00002a60 20 e7 20 44 52 49 56 45 52 25 3d b9 20 8c 20 f2 | . DRIVER%=. . .|
00002a70 57 69 6d 70 5f 49 63 6f 6e 45 6e 61 62 6c 65 28 |Wimp_IconEnable(|
00002a80 42 6f 74 5f 57 69 6e 64 6f 77 25 2c 31 32 29 0d |Bot_Window%,12).|
00002a90 0d ca 2d 20 20 20 20 20 20 20 20 20 f2 57 69 6d |..- .Wim|
00002aa0 70 5f 49 63 6f 6e 45 6e 61 62 6c 65 28 42 6f 74 |p_IconEnable(Bot|
00002ab0 5f 57 69 6e 64 6f 77 25 2c 31 35 29 0d 0d d4 2d |_Window%,15)...-|
00002ac0 20 20 20 20 20 20 20 20 20 f2 57 69 6d 70 5f 49 | .Wimp_I|
00002ad0 63 6f 6e 45 6e 61 62 6c 65 28 42 6f 74 5f 57 69 |conEnable(Bot_Wi|
00002ae0 6e 64 6f 77 25 2c 31 38 29 0d 0d de 14 20 20 20 |ndow%,18).... |
00002af0 20 20 20 20 20 20 f2 75 70 64 61 74 65 0d 0d e8 | .update...|
00002b00 0e 20 20 20 20 20 20 20 20 20 cc 0d 0d f2 70 20 |. ....p |
00002b10 20 20 20 20 20 20 20 20 f2 57 69 6d 70 5f 57 69 | .Wimp_Wi|
00002b20 6e 64 6f 77 45 72 72 6f 72 42 6f 78 28 22 54 72 |ndowErrorBox("Tr|
00002b30 69 63 6b 73 74 65 72 22 2c 22 50 6c 65 61 73 65 |ickster","Please|
00002b40 20 65 6e 74 65 72 20 73 6f 6d 65 20 74 65 78 74 | enter some text|
00002b50 20 69 6e 74 6f 20 74 68 65 20 67 61 6d 65 20 6e | into the game n|
00002b60 61 6d 65 20 69 63 6f 6e 20 61 6e 64 20 70 72 65 |ame icon and pre|
00002b70 73 73 20 27 41 44 44 27 2e 22 29 0d 0d fc 0e 20 |ss 'ADD'.").... |
00002b80 20 20 20 20 20 20 20 20 cd 0d 0e 06 0e 20 20 20 | ..... |
00002b90 20 20 20 20 20 20 cd 0d 0e 10 18 20 20 20 20 20 | ..... |
00002ba0 20 20 20 20 e7 20 69 63 6f 6e 25 3d 35 20 8c 0d | . icon%=5 ..|
00002bb0 0e 1a 2e 20 20 20 20 20 20 20 20 20 f2 57 69 6d |... .Wim|
00002bc0 70 5f 53 65 6c 65 63 74 49 63 6f 6e 28 54 6f 6f |p_SelectIcon(Too|
00002bd0 6c 73 5f 57 69 6e 64 6f 77 25 2c 35 29 0d 0e 24 |ls_Window%,5)..$|
00002be0 3e 20 20 20 20 20 20 20 20 20 e7 20 53 43 4f 25 |> . SCO%|
00002bf0 3d 2d 31 39 32 20 8c 20 f2 57 69 6d 70 5f 55 6e |=-192 . .Wimp_Un|
00002c00 73 65 6c 65 63 74 49 63 6f 6e 28 54 6f 6f 6c 73 |selectIcon(Tools|
00002c10 5f 57 69 6e 64 6f 77 25 2c 36 29 0d 0e 2e 3e 20 |_Window%,6)...> |
00002c20 20 20 20 20 20 20 20 20 e7 20 53 43 4f 25 3d 2d | . SCO%=-|
00002c30 33 38 34 20 8c 20 f2 57 69 6d 70 5f 55 6e 73 65 |384 . .Wimp_Unse|
00002c40 6c 65 63 74 49 63 6f 6e 28 54 6f 6f 6c 73 5f 57 |lectIcon(Tools_W|
00002c50 69 6e 64 6f 77 25 2c 37 29 0d 0e 38 3f 20 20 20 |indow%,7)..8? |
00002c60 20 20 20 20 20 20 e7 20 53 43 4f 25 3d 2d 35 37 | . SCO%=-57|
00002c70 36 20 8c 20 f2 57 69 6d 70 5f 55 6e 73 65 6c 65 |6 . .Wimp_Unsele|
00002c80 63 74 49 63 6f 6e 28 54 6f 6f 6c 73 5f 57 69 6e |ctIcon(Tools_Win|
00002c90 64 6f 77 25 2c 31 32 29 0d 0e 42 13 20 20 20 20 |dow%,12)..B. |
00002ca0 20 20 20 20 20 53 43 4f 25 3d 30 0d 0e 4c 14 20 | SCO%=0..L. |
00002cb0 20 20 20 20 20 20 20 20 f2 73 63 72 6f 6c 6c 0d | .scroll.|
00002cc0 0e 56 0e 20 20 20 20 20 20 20 20 20 cd 0d 0e 60 |.V. ...`|
00002cd0 18 20 20 20 20 20 20 20 20 20 e7 20 69 63 6f 6e |. . icon|
00002ce0 25 3d 36 20 8c 0d 0e 6a 2e 20 20 20 20 20 20 20 |%=6 ...j. |
00002cf0 20 20 f2 57 69 6d 70 5f 53 65 6c 65 63 74 49 63 | .Wimp_SelectIc|
00002d00 6f 6e 28 54 6f 6f 6c 73 5f 57 69 6e 64 6f 77 25 |on(Tools_Window%|
00002d10 2c 36 29 0d 0e 74 3b 20 20 20 20 20 20 20 20 20 |,6)..t; |
00002d20 e7 20 53 43 4f 25 3d 30 20 8c 20 f2 57 69 6d 70 |. SCO%=0 . .Wimp|
00002d30 5f 55 6e 73 65 6c 65 63 74 49 63 6f 6e 28 54 6f |_UnselectIcon(To|
00002d40 6f 6c 73 5f 57 69 6e 64 6f 77 25 2c 35 29 0d 0e |ols_Window%,5)..|
00002d50 7e 3e 20 20 20 20 20 20 20 20 20 e7 20 53 43 4f |~> . SCO|
00002d60 25 3d 2d 33 38 34 20 8c 20 f2 57 69 6d 70 5f 55 |%=-384 . .Wimp_U|
00002d70 6e 73 65 6c 65 63 74 49 63 6f 6e 28 54 6f 6f 6c |nselectIcon(Tool|
00002d80 73 5f 57 69 6e 64 6f 77 25 2c 37 29 0d 0e 88 3f |s_Window%,7)...?|
00002d90 20 20 20 20 20 20 20 20 20 e7 20 53 43 4f 25 3d | . SCO%=|
00002da0 2d 35 37 36 20 8c 20 f2 57 69 6d 70 5f 55 6e 73 |-576 . .Wimp_Uns|
00002db0 65 6c 65 63 74 49 63 6f 6e 28 54 6f 6f 6c 73 5f |electIcon(Tools_|
00002dc0 57 69 6e 64 6f 77 25 2c 31 32 29 0d 0e 92 16 20 |Window%,12).... |
00002dd0 20 20 20 20 20 20 20 20 53 43 4f 25 3d 2d 31 39 | SCO%=-19|
00002de0 32 0d 0e 9c 14 20 20 20 20 20 20 20 20 20 f2 73 |2.... .s|
00002df0 63 72 6f 6c 6c 0d 0e a6 0e 20 20 20 20 20 20 20 |croll.... |
00002e00 20 20 cd 0d 0e b0 18 20 20 20 20 20 20 20 20 20 | ..... |
00002e10 e7 20 69 63 6f 6e 25 3d 37 20 8c 0d 0e ba 2e 20 |. icon%=7 ..... |
00002e20 20 20 20 20 20 20 20 20 f2 57 69 6d 70 5f 53 65 | .Wimp_Se|
00002e30 6c 65 63 74 49 63 6f 6e 28 54 6f 6f 6c 73 5f 57 |lectIcon(Tools_W|
00002e40 69 6e 64 6f 77 25 2c 37 29 0d 0e c4 3e 20 20 20 |indow%,7)...> |
00002e50 20 20 20 20 20 20 e7 20 53 43 4f 25 3d 2d 31 39 | . SCO%=-19|
00002e60 32 20 8c 20 f2 57 69 6d 70 5f 55 6e 73 65 6c 65 |2 . .Wimp_Unsele|
00002e70 63 74 49 63 6f 6e 28 54 6f 6f 6c 73 5f 57 69 6e |ctIcon(Tools_Win|
00002e80 64 6f 77 25 2c 36 29 0d 0e ce 3b 20 20 20 20 20 |dow%,6)...; |
00002e90 20 20 20 20 e7 20 53 43 4f 25 3d 30 20 8c 20 f2 | . SCO%=0 . .|
00002ea0 57 69 6d 70 5f 55 6e 73 65 6c 65 63 74 49 63 6f |Wimp_UnselectIco|
00002eb0 6e 28 54 6f 6f 6c 73 5f 57 69 6e 64 6f 77 25 2c |n(Tools_Window%,|
00002ec0 35 29 0d 0e d8 3f 20 20 20 20 20 20 20 20 20 e7 |5)...? .|
00002ed0 20 53 43 4f 25 3d 2d 35 37 36 20 8c 20 f2 57 69 | SCO%=-576 . .Wi|
00002ee0 6d 70 5f 55 6e 73 65 6c 65 63 74 49 63 6f 6e 28 |mp_UnselectIcon(|
00002ef0 54 6f 6f 6c 73 5f 57 69 6e 64 6f 77 25 2c 31 32 |Tools_Window%,12|
00002f00 29 0d 0e e2 16 20 20 20 20 20 20 20 20 20 53 43 |).... SC|
00002f10 4f 25 3d 2d 33 38 34 0d 0e ec 14 20 20 20 20 20 |O%=-384.... |
00002f20 20 20 20 20 f2 73 63 72 6f 6c 6c 0d 0e f6 0e 20 | .scroll.... |
00002f30 20 20 20 20 20 20 20 20 cd 0d 0f 00 19 20 20 20 | ..... |
00002f40 20 20 20 20 20 20 e7 20 69 63 6f 6e 25 3d 31 32 | . icon%=12|
00002f50 20 8c 0d 0f 0a 2f 20 20 20 20 20 20 20 20 20 f2 | ..../ .|
00002f60 57 69 6d 70 5f 53 65 6c 65 63 74 49 63 6f 6e 28 |Wimp_SelectIcon(|
00002f70 54 6f 6f 6c 73 5f 57 69 6e 64 6f 77 25 2c 31 32 |Tools_Window%,12|
00002f80 29 0d 0f 14 3e 20 20 20 20 20 20 20 20 20 e7 20 |)...> . |
00002f90 53 43 4f 25 3d 2d 31 39 32 20 8c 20 f2 57 69 6d |SCO%=-192 . .Wim|
00002fa0 70 5f 55 6e 73 65 6c 65 63 74 49 63 6f 6e 28 54 |p_UnselectIcon(T|
00002fb0 6f 6f 6c 73 5f 57 69 6e 64 6f 77 25 2c 36 29 0d |ools_Window%,6).|
00002fc0 0f 1e 3b 20 20 20 20 20 20 20 20 20 e7 20 53 43 |..; . SC|
00002fd0 4f 25 3d 30 20 8c 20 f2 57 69 6d 70 5f 55 6e 73 |O%=0 . .Wimp_Uns|
00002fe0 65 6c 65 63 74 49 63 6f 6e 28 54 6f 6f 6c 73 5f |electIcon(Tools_|
00002ff0 57 69 6e 64 6f 77 25 2c 35 29 0d 0f 28 3e 20 20 |Window%,5)..(> |
00003000 20 20 20 20 20 20 20 e7 20 53 43 4f 25 3d 2d 33 | . SCO%=-3|
00003010 38 34 20 8c 20 f2 57 69 6d 70 5f 55 6e 73 65 6c |84 . .Wimp_Unsel|
00003020 65 63 74 49 63 6f 6e 28 54 6f 6f 6c 73 5f 57 69 |ectIcon(Tools_Wi|
00003030 6e 64 6f 77 25 2c 37 29 0d 0f 32 16 20 20 20 20 |ndow%,7)..2. |
00003040 20 20 20 20 20 53 43 4f 25 3d 2d 35 37 36 0d 0f | SCO%=-576..|
00003050 3c 14 20 20 20 20 20 20 20 20 20 f2 73 63 72 6f |<. .scro|
00003060 6c 6c 0d 0f 46 0e 20 20 20 20 20 20 20 20 20 cd |ll..F. .|
00003070 0d 0f 50 38 20 20 20 20 20 20 20 20 20 e7 20 69 |..P8 . i|
00003080 63 6f 6e 25 3d 38 20 84 20 69 63 6f 6e 25 3d 39 |con%=8 . icon%=9|
00003090 20 84 20 69 63 6f 6e 25 3d 31 30 20 84 20 69 63 | . icon%=10 . ic|
000030a0 6f 6e 25 3d 31 31 20 8c 0d 0f 5a 1f e7 20 a4 69 |on%=11 ...Z.. .i|
000030b0 73 6f 70 65 6e 28 48 61 63 6b 65 72 5f 57 69 6e |sopen(Hacker_Win|
000030c0 64 6f 77 25 29 20 8c 0d 0f 64 15 e7 20 68 61 63 |dow%) ...d.. hac|
000030d0 6b 25 28 63 75 72 25 29 3d b9 20 8c 0d 0f 6e 0b |k%(cur%)=. ...n.|
000030e0 f2 77 69 6e 73 69 7a 0d 0f 78 2a f2 57 69 6d 70 |.winsiz..x*.Wimp|
000030f0 5f 57 69 6e 64 6f 77 42 72 69 6e 67 54 6f 54 6f |_WindowBringToTo|
00003100 70 28 48 61 63 6b 65 72 5f 57 69 6e 64 6f 77 25 |p(Hacker_Window%|
00003110 29 0d 0f 82 29 f2 57 69 6d 70 5f 57 69 6e 64 6f |)...).Wimp_Windo|
00003120 77 46 6f 72 63 65 44 72 61 77 28 48 61 63 6b 65 |wForceDraw(Hacke|
00003130 72 5f 57 69 6e 64 6f 77 25 29 0d 0f 8c 05 cd 0d |r_Window%)......|
00003140 0f 96 05 cc 0d 0f a0 25 f2 57 69 6d 70 5f 57 69 |.......%.Wimp_Wi|
00003150 6e 64 6f 77 43 6c 6f 73 65 28 48 61 63 6b 65 72 |ndowClose(Hacker|
00003160 5f 57 69 6e 64 6f 77 25 29 0d 0f aa 05 cd 0d 0f |_Window%).......|
00003170 b4 05 cd 0d 0f be 0e 20 20 20 20 20 20 20 20 20 |....... |
00003180 e1 0d 0f c8 0e 20 20 20 20 20 20 20 20 20 3a 0d |..... :.|
00003190 0f d2 2f 20 20 20 20 20 20 20 20 20 dd 20 f2 55 |../ . .U|
000031a0 73 65 72 5f 4d 6f 75 73 65 54 69 74 6c 65 28 20 |ser_MouseTitle( |
000031b0 62 75 74 74 6f 6e 25 2c 69 63 6f 6e 25 29 0d 0f |button%,icon%)..|
000031c0 dc 43 20 20 20 20 20 20 20 20 20 e7 20 69 63 6f |.C . ico|
000031d0 6e 25 3d 38 20 84 20 69 63 6f 6e 25 3d 39 20 8c |n%=8 . icon%=9 .|
000031e0 20 f2 57 69 6d 70 5f 57 69 6e 64 6f 77 43 6c 6f | .Wimp_WindowClo|
000031f0 73 65 28 54 69 74 6c 65 5f 57 69 6e 64 6f 77 25 |se(Title_Window%|
00003200 29 0d 0f e6 23 20 20 20 20 20 20 20 20 20 e7 20 |)...# . |
00003210 69 63 6f 6e 25 3d 38 20 8c 20 57 49 24 3d 22 4e |icon%=8 . WI$="N|
00003220 4f 4e 45 22 0d 0f f0 75 20 20 20 20 20 20 20 20 |ONE"...u |
00003230 20 e7 20 69 63 6f 6e 25 3d 39 20 8c 20 57 49 24 | . icon%=9 . WI$|
00003240 3d 22 4d 41 49 4e 22 3a f2 57 69 6d 70 5f 57 69 |="MAIN":.Wimp_Wi|
00003250 6e 64 6f 77 42 72 69 6e 67 54 6f 54 6f 70 28 4d |ndowBringToTop(M|
00003260 61 69 6e 5f 57 69 6e 64 6f 77 25 29 3a f2 57 69 |ain_Window%):.Wi|
00003270 6d 70 5f 57 69 6e 64 6f 77 42 72 69 6e 67 54 6f |mp_WindowBringTo|
00003280 54 6f 70 28 4d 61 69 6e 5f 57 69 6e 64 6f 77 25 |Top(Main_Window%|
00003290 29 3a f2 75 70 64 61 74 65 0d 0f fa 0e 20 20 20 |):.update.... |
000032a0 20 20 20 20 20 20 e1 0d 10 04 0e 20 20 20 20 20 | ..... |
000032b0 20 20 20 20 3a 0d 10 0e 2d 20 20 20 20 20 20 20 | :...- |
000032c0 20 20 dd 20 f2 55 73 65 72 5f 4d 6f 75 73 65 42 | . .User_MouseB|
000032d0 6f 74 28 20 62 75 74 74 6f 6e 25 2c 69 63 6f 6e |ot( button%,icon|
000032e0 25 29 0d 10 18 10 20 20 20 20 20 20 20 20 20 ea |%).... .|
000032f0 20 85 0d 10 22 1b 20 20 20 20 20 20 20 20 20 ee | ...". .|
00003300 20 85 20 ea 20 f2 65 72 72 6f 72 3a e1 0d 10 2c | . . .error:...,|
00003310 10 e7 20 69 63 6f 6e 25 3d 33 34 20 8c 0d 10 36 |.. icon%=34 ...6|
00003320 17 50 43 48 45 41 54 25 20 3d 20 ac 20 50 43 48 |.PCHEAT% = . PCH|
00003330 45 41 54 25 0d 10 40 28 e7 20 50 43 48 45 41 54 |EAT%..@(. PCHEAT|
00003340 25 3d a3 20 80 20 50 4d 4f 44 55 4c 45 25 3d a3 |%=. . PMODULE%=.|
00003350 20 8c 20 50 43 48 45 41 54 25 3d b9 0d 10 4a 57 | . PCHEAT%=...JW|
00003360 e7 20 50 43 48 45 41 54 25 3d b9 20 8c 20 f2 57 |. PCHEAT%=. . .W|
00003370 69 6d 70 5f 53 65 6c 65 63 74 49 63 6f 6e 28 42 |imp_SelectIcon(B|
00003380 6f 74 5f 57 69 6e 64 6f 77 25 2c 33 34 29 20 8b |ot_Window%,34) .|
00003390 20 f2 57 69 6d 70 5f 55 6e 73 65 6c 65 63 74 49 | .Wimp_UnselectI|
000033a0 63 6f 6e 28 42 6f 74 5f 57 69 6e 64 6f 77 25 2c |con(Bot_Window%,|
000033b0 33 34 29 0d 10 54 05 cd 0d 10 5e 10 e7 20 69 63 |34)..T....^.. ic|
000033c0 6f 6e 25 3d 33 35 20 8c 0d 10 68 19 50 4d 4f 44 |on%=35 ...h.PMOD|
000033d0 55 4c 45 25 20 3d 20 ac 20 50 4d 4f 44 55 4c 45 |ULE% = . PMODULE|
000033e0 25 0d 10 72 29 e7 20 50 4d 4f 44 55 4c 45 25 3d |%..r). PMODULE%=|
000033f0 a3 20 80 20 50 43 48 45 41 54 25 3d a3 20 8c 20 |. . PCHEAT%=. . |
00003400 50 4d 4f 44 55 4c 45 25 3d b9 0d 10 7c 58 e7 20 |PMODULE%=...|X. |
00003410 50 4d 4f 44 55 4c 45 25 3d b9 20 8c 20 f2 57 69 |PMODULE%=. . .Wi|
00003420 6d 70 5f 53 65 6c 65 63 74 49 63 6f 6e 28 42 6f |mp_SelectIcon(Bo|
00003430 74 5f 57 69 6e 64 6f 77 25 2c 33 35 29 20 8b 20 |t_Window%,35) . |
00003440 f2 57 69 6d 70 5f 55 6e 73 65 6c 65 63 74 49 63 |.Wimp_UnselectIc|
00003450 6f 6e 28 42 6f 74 5f 57 69 6e 64 6f 77 25 2c 33 |on(Bot_Window%,3|
00003460 35 29 0d 10 86 05 cd 0d 10 90 46 20 20 20 20 20 |5)........F |
00003470 20 20 20 20 e7 20 69 63 6f 6e 25 3d 33 38 20 8c | . icon%=38 .|
00003480 20 ff 28 22 46 69 6c 65 72 5f 4f 70 65 6e 44 69 | .("Filer_OpenDi|
00003490 72 20 3c 54 72 69 63 6b 73 74 65 72 24 44 69 72 |r <Trickster$Dir|
000034a0 3e 2e 54 72 69 63 6b 4d 6f 64 73 22 29 0d 10 9a |>.TrickMods")...|
000034b0 20 20 20 20 20 20 20 20 20 20 e7 20 69 63 6f 6e | . icon|
000034c0 25 3d 31 32 20 8c 20 f2 70 72 69 6e 74 0d 10 a4 |%=12 . .print...|
000034d0 42 20 20 20 20 20 20 20 20 20 e7 20 69 63 6f 6e |B . icon|
000034e0 25 3d 32 33 20 8c 20 f2 57 69 6d 70 5f 53 65 6c |%=23 . .Wimp_Sel|
000034f0 65 63 74 49 63 6f 6e 28 42 6f 74 5f 57 69 6e 64 |ectIcon(Bot_Wind|
00003500 6f 77 25 2c 32 33 29 3a 54 59 50 45 25 3d b9 0d |ow%,23):TYPE%=..|
00003510 10 ae 42 20 20 20 20 20 20 20 20 20 e7 20 69 63 |..B . ic|
00003520 6f 6e 25 3d 32 34 20 8c 20 f2 57 69 6d 70 5f 53 |on%=24 . .Wimp_S|
00003530 65 6c 65 63 74 49 63 6f 6e 28 42 6f 74 5f 57 69 |electIcon(Bot_Wi|
00003540 6e 64 6f 77 25 2c 32 34 29 3a 54 59 50 45 25 3d |ndow%,24):TYPE%=|
00003550 a3 0d 10 b8 19 20 20 20 20 20 20 20 20 20 e7 20 |..... . |
00003560 69 63 6f 6e 25 3d 31 35 20 8c 0d 10 c2 33 20 20 |icon%=15 ....3 |
00003570 20 20 20 20 20 20 20 e7 20 a4 57 69 6d 70 5f 49 | . .Wimp_I|
00003580 63 6f 6e 54 65 78 74 28 42 6f 74 5f 57 69 6e 64 |conText(Bot_Wind|
00003590 6f 77 25 2c 31 38 29 3c 3e 22 22 20 8c 0d 10 cc |ow%,18)<>"" ....|
000035a0 14 20 20 20 20 20 20 20 20 20 f2 73 65 61 72 63 |. .searc|
000035b0 68 0d 10 d6 0e 20 20 20 20 20 20 20 20 20 cc 0d |h.... ..|
000035c0 10 e0 4e 20 20 20 20 20 20 20 20 20 f2 57 69 6d |..N .Wim|
000035d0 70 5f 57 69 6e 64 6f 77 45 72 72 6f 72 42 6f 78 |p_WindowErrorBox|
000035e0 28 22 21 54 72 69 63 6b 73 74 65 72 22 2c 22 50 |("!Trickster","P|
000035f0 6c 65 61 73 65 20 65 6e 74 65 72 20 61 20 73 65 |lease enter a se|
00003600 61 72 63 68 20 73 74 72 69 6e 67 22 29 0d 10 ea |arch string")...|
00003610 0e 20 20 20 20 20 20 20 20 20 cd 0d 10 f4 0e 20 |. ..... |
00003620 20 20 20 20 20 20 20 20 cd 0d 10 fe 19 20 20 20 | ..... |
00003630 20 20 20 20 20 20 e7 20 69 63 6f 6e 25 3d 33 39 | . icon%=39|
00003640 20 8c 0d 11 08 10 20 20 20 20 20 20 20 20 20 ef | ..... .|
00003650 32 31 0d 11 12 26 20 20 20 20 20 20 20 20 20 ff |21...& .|
00003660 20 28 22 52 4d 4c 4f 41 44 20 22 2b 68 61 63 6b | ("RMLOAD "+hack|
00003670 24 28 63 75 72 25 29 29 0d 11 1c 0f 20 20 20 20 |$(cur%)).... |
00003680 20 20 20 20 20 ef 36 0d 11 26 0e 20 20 20 20 20 | .6..&. |
00003690 20 20 20 20 cd 0d 11 30 19 20 20 20 20 20 20 20 | ...0. |
000036a0 20 20 e7 20 69 63 6f 6e 25 3d 32 30 20 8c 0d 11 | . icon%=20 ...|
000036b0 3a 0b f2 77 69 6e 73 69 7a 0d 11 44 2a f2 57 69 |:..winsiz..D*.Wi|
000036c0 6d 70 5f 57 69 6e 64 6f 77 42 72 69 6e 67 54 6f |mp_WindowBringTo|
000036d0 54 6f 70 28 48 61 63 6b 65 72 5f 57 69 6e 64 6f |Top(Hacker_Windo|
000036e0 77 25 29 0d 11 4e 05 cd 0d 11 58 38 20 20 20 20 |w%)..N....X8 |
000036f0 20 20 20 20 20 e7 20 69 63 6f 6e 25 3d 36 20 84 | . icon%=6 .|
00003700 20 69 63 6f 6e 25 3d 38 20 84 20 69 63 6f 6e 25 | icon%=8 . icon%|
00003710 3d 31 30 20 84 20 69 63 6f 6e 25 3d 33 37 20 8c |=10 . icon%=37 .|
00003720 0d 11 62 09 f2 72 65 61 64 0d 11 6c 22 f2 57 69 |..b..read..l".Wi|
00003730 6d 70 5f 57 69 6e 64 6f 77 43 6c 6f 73 65 28 42 |mp_WindowClose(B|
00003740 6f 74 5f 57 69 6e 64 6f 77 25 29 0d 11 76 24 f2 |ot_Window%)..v$.|
00003750 57 69 6d 70 5f 57 69 6e 64 6f 77 43 6c 6f 73 65 |Wimp_WindowClose|
00003760 28 54 6f 6f 6c 73 5f 57 69 6e 64 6f 77 25 29 0d |(Tools_Window%).|
00003770 11 80 23 f2 57 69 6d 70 5f 57 69 6e 64 6f 77 43 |..#.Wimp_WindowC|
00003780 6c 6f 73 65 28 4d 61 69 6e 5f 57 69 6e 64 6f 77 |lose(Main_Window|
00003790 25 29 0d 11 8a 0f 57 49 24 3d 22 54 49 54 4c 45 |%)....WI$="TITLE|
000037a0 22 0d 11 94 29 f2 57 69 6d 70 5f 57 69 6e 64 6f |"...).Wimp_Windo|
000037b0 77 42 72 69 6e 67 54 6f 54 6f 70 28 54 69 74 6c |wBringToTop(Titl|
000037c0 65 5f 57 69 6e 64 6f 77 25 29 0d 11 9e 05 cd 0d |e_Window%)......|
000037d0 11 a8 34 20 20 20 20 20 20 20 20 20 e7 20 69 63 |..4 . ic|
000037e0 6f 6e 25 3d 35 20 84 20 69 63 6f 6e 25 3d 32 20 |on%=5 . icon%=2 |
000037f0 80 20 68 61 63 6b 24 28 63 75 72 25 29 3c 3e 22 |. hack$(cur%)<>"|
00003800 22 20 8c 0d 11 b2 16 20 20 20 20 20 20 20 20 20 |" ..... |
00003810 55 50 44 41 54 45 25 3d b9 0d 11 bc 26 20 20 20 |UPDATE%=....& |
00003820 20 20 20 20 20 20 68 61 63 6b 25 28 63 75 72 25 | hack%(cur%|
00003830 29 3d ac 20 68 61 63 6b 25 28 63 75 72 25 29 0d |)=. hack%(cur%).|
00003840 11 c6 1e 20 20 20 20 20 20 20 20 20 e7 20 68 61 |... . ha|
00003850 63 6b 25 28 63 75 72 25 29 3d b9 20 8c 0d 11 d0 |ck%(cur%)=. ....|
00003860 23 f2 57 69 6d 70 5f 53 65 6c 65 63 74 49 63 6f |#.Wimp_SelectIco|
00003870 6e 28 42 6f 74 5f 57 69 6e 64 6f 77 25 2c 35 29 |n(Bot_Window%,5)|
00003880 0d 11 da 23 f2 57 69 6d 70 5f 49 63 6f 6e 45 6e |...#.Wimp_IconEn|
00003890 61 62 6c 65 28 42 6f 74 5f 57 69 6e 64 6f 77 25 |able(Bot_Window%|
000038a0 2c 34 29 0d 11 e4 24 f2 57 69 6d 70 5f 49 63 6f |,4)...$.Wimp_Ico|
000038b0 6e 45 6e 61 62 6c 65 28 42 6f 74 5f 57 69 6e 64 |nEnable(Bot_Wind|
000038c0 6f 77 25 2c 33 39 29 0d 11 ee 24 f2 57 69 6d 70 |ow%,39)...$.Wimp|
000038d0 5f 49 63 6f 6e 45 6e 61 62 6c 65 28 42 6f 74 5f |_IconEnable(Bot_|
000038e0 57 69 6e 64 6f 77 25 2c 32 30 29 0d 11 f8 05 cc |Window%,20).....|
000038f0 0d 12 02 25 f2 57 69 6d 70 5f 55 6e 73 65 6c 65 |...%.Wimp_Unsele|
00003900 63 74 49 63 6f 6e 28 42 6f 74 5f 57 69 6e 64 6f |ctIcon(Bot_Windo|
00003910 77 25 2c 35 29 0d 12 0c 24 f2 57 69 6d 70 5f 49 |w%,5)...$.Wimp_I|
00003920 63 6f 6e 44 69 73 61 62 6c 65 28 42 6f 74 5f 57 |conDisable(Bot_W|
00003930 69 6e 64 6f 77 25 2c 34 29 0d 12 16 25 f2 57 69 |indow%,4)...%.Wi|
00003940 6d 70 5f 49 63 6f 6e 44 69 73 61 62 6c 65 28 42 |mp_IconDisable(B|
00003950 6f 74 5f 57 69 6e 64 6f 77 25 2c 33 39 29 0d 12 |ot_Window%,39)..|
00003960 20 25 f2 57 69 6d 70 5f 49 63 6f 6e 44 69 73 61 | %.Wimp_IconDisa|
00003970 62 6c 65 28 42 6f 74 5f 57 69 6e 64 6f 77 25 2c |ble(Bot_Window%,|
00003980 32 30 29 0d 12 2a 05 cd 0d 12 34 0e 20 20 20 20 |20)..*....4. |
00003990 20 20 20 20 20 cd 0d 12 3e 0e 20 20 20 20 20 20 | ...>. |
000039a0 20 20 20 e1 0d 12 48 0c 20 20 20 20 20 20 20 3a | ...H. :|
000039b0 0d 12 52 30 20 20 20 20 20 20 20 dd 20 f2 45 76 |..R0 . .Ev|
000039c0 65 6e 74 5f 4b 65 79 50 72 65 73 73 28 77 69 6e |ent_KeyPress(win|
000039d0 64 6f 77 25 2c 69 63 6f 6e 25 2c 6b 65 79 25 29 |dow%,icon%,key%)|
000039e0 0d 12 5c 1a 20 20 20 20 20 20 20 20 20 20 c8 8e |..\. ..|
000039f0 20 77 69 6e 64 6f 77 25 20 ca 0d 12 66 45 20 20 | window% ...fE |
00003a00 20 20 20 20 20 20 20 20 20 c9 20 4d 61 69 6e 5f | . Main_|
00003a10 57 69 6e 64 6f 77 25 20 20 20 20 20 20 20 3a 20 |Window% : |
00003a20 f2 55 73 65 72 5f 4b 65 79 50 72 65 73 73 4d 61 |.User_KeyPressMa|
00003a30 69 6e 28 20 69 63 6f 6e 25 2c 6b 65 79 25 29 0d |in( icon%,key%).|
00003a40 12 70 44 20 20 20 20 20 20 20 20 20 20 20 c9 20 |.pD . |
00003a50 42 6f 74 5f 57 69 6e 64 6f 77 25 20 20 20 20 20 |Bot_Window% |
00003a60 20 20 20 3a 20 f2 55 73 65 72 5f 4b 65 79 50 72 | : .User_KeyPr|
00003a70 65 73 73 42 6f 74 28 20 69 63 6f 6e 25 2c 6b 65 |essBot( icon%,ke|
00003a80 79 25 29 0d 12 7a 0f 20 20 20 20 20 20 20 20 20 |y%)..z. |
00003a90 20 cb 0d 12 84 0c 20 20 20 20 20 20 20 e1 0d 12 | ..... ...|
00003aa0 8e 0e 20 20 20 20 20 20 20 20 20 3a 0d 12 98 2e |.. :....|
00003ab0 20 20 20 20 20 20 20 20 20 dd 20 f2 55 73 65 72 | . .User|
00003ac0 5f 4b 65 79 50 72 65 73 73 4d 61 69 6e 28 20 69 |_KeyPressMain( i|
00003ad0 63 6f 6e 25 2c 6b 65 79 25 29 0d 12 a2 55 20 20 |con%,key%)...U |
00003ae0 20 20 20 20 20 20 20 f4 20 50 52 4f 43 57 69 6d | . PROCWim|
00003af0 70 5f 57 69 6e 64 6f 77 41 6c 65 72 74 28 22 4d |p_WindowAlert("M|
00003b00 61 69 6e 22 2c 22 4b 65 79 20 70 72 65 73 73 65 |ain","Key presse|
00003b10 64 3d 22 2b 53 54 52 24 6b 65 79 25 2b 22 69 63 |d="+STR$key%+"ic|
00003b20 6f 6e 3d 22 2b 53 54 52 24 69 63 6f 6e 25 29 0d |on="+STR$icon%).|
00003b30 12 ac 45 20 20 20 20 20 20 20 20 20 e7 20 69 63 |..E . ic|
00003b40 6f 6e 25 3d 31 37 20 80 20 6b 65 79 25 3d 31 33 |on%=17 . key%=13|
00003b50 20 80 20 63 75 72 25 3d 74 6f 74 25 20 8c 20 f2 | . cur%=tot% . .|
00003b60 55 73 65 72 5f 4d 6f 75 73 65 54 6f 6f 6c 73 28 |User_MouseTools(|
00003b70 34 2c 32 29 0d 12 b6 45 20 20 20 20 20 20 20 20 |4,2)...E |
00003b80 20 e7 20 69 63 6f 6e 25 3d 31 37 20 80 20 6b 65 | . icon%=17 . ke|
00003b90 79 25 3d 31 33 20 80 20 63 75 72 25 3c 74 6f 74 |y%=13 . cur%<tot|
00003ba0 25 20 8c 20 f2 55 73 65 72 5f 4d 6f 75 73 65 54 |% . .User_MouseT|
00003bb0 6f 6f 6c 73 28 34 2c 38 29 0d 12 c0 73 20 20 20 |ools(4,8)...s |
00003bc0 20 20 20 20 20 20 e7 20 69 63 6f 6e 25 3d 36 20 | . icon%=6 |
00003bd0 80 20 28 6b 65 79 25 3d 31 33 20 84 20 6b 65 79 |. (key%=13 . key|
00003be0 25 3d 33 39 38 29 20 8c 20 f2 57 69 6d 70 5f 49 |%=398) . .Wimp_I|
00003bf0 63 6f 6e 43 61 72 65 74 28 4d 61 69 6e 5f 57 69 |conCaret(Main_Wi|
00003c00 6e 64 6f 77 25 2c 31 30 2c a9 28 a4 57 69 6d 70 |ndow%,10,.(.Wimp|
00003c10 5f 49 63 6f 6e 54 65 78 74 28 4d 61 69 6e 5f 57 |_IconText(Main_W|
00003c20 69 6e 64 6f 77 25 2c 31 30 29 29 29 0d 12 ca 67 |indow%,10)))...g|
00003c30 20 20 20 20 20 20 20 20 20 e7 20 69 63 6f 6e 25 | . icon%|
00003c40 3d 36 20 80 20 6b 65 79 25 3d 33 39 39 20 8c 20 |=6 . key%=399 . |
00003c50 f2 57 69 6d 70 5f 49 63 6f 6e 43 61 72 65 74 28 |.Wimp_IconCaret(|
00003c60 4d 61 69 6e 5f 57 69 6e 64 6f 77 25 2c 31 37 2c |Main_Window%,17,|
00003c70 a9 28 a4 57 69 6d 70 5f 49 63 6f 6e 54 65 78 74 |.(.Wimp_IconText|
00003c80 28 4d 61 69 6e 5f 57 69 6e 64 6f 77 25 2c 31 37 |(Main_Window%,17|
00003c90 29 29 29 0d 12 d4 0e 20 20 20 20 20 20 20 20 20 |))).... |
00003ca0 e1 0d 12 de 0e 20 20 20 20 20 20 20 20 20 3a 0d |..... :.|
00003cb0 12 e8 2d 20 20 20 20 20 20 20 20 20 dd 20 f2 55 |..- . .U|
00003cc0 73 65 72 5f 4b 65 79 50 72 65 73 73 42 6f 74 28 |ser_KeyPressBot(|
00003cd0 20 69 63 6f 6e 25 2c 6b 65 79 25 29 0d 12 f2 0e | icon%,key%)....|
00003ce0 20 20 20 20 20 20 20 20 20 e1 0d 12 fc 0c 20 20 | ..... |
00003cf0 20 20 20 20 20 3a 0d 13 06 25 20 20 20 20 20 20 | :...% |
00003d00 20 dd 20 f2 45 76 65 6e 74 5f 4d 65 6e 75 43 68 | . .Event_MenuCh|
00003d10 6f 69 63 65 28 6d 65 6e 75 25 29 0d 13 10 16 20 |oice(menu%).... |
00003d20 20 20 20 20 20 20 20 c8 8e 20 6d 65 6e 75 25 20 | .. menu% |
00003d30 ca 0d 13 1a 3c 20 20 20 20 20 20 20 20 20 20 20 |....< |
00003d40 20 20 20 c9 20 42 61 72 5f 4d 65 6e 75 25 20 20 | . Bar_Menu% |
00003d50 20 20 20 20 20 20 20 20 3a 20 f2 55 73 65 72 5f | : .User_|
00003d60 4d 65 6e 75 43 68 6f 69 63 65 42 61 72 0d 13 24 |MenuChoiceBar..$|
00003d70 0d 20 20 20 20 20 20 20 20 cb 0d 13 2e 0c 20 20 |. ..... |
00003d80 20 20 20 20 20 e1 0d 13 38 0c 20 20 20 20 20 20 | ...8. |
00003d90 20 3a 0d 13 42 20 20 20 20 20 20 20 20 dd 20 f2 | :..B . .|
00003da0 55 73 65 72 5f 4d 65 6e 75 43 68 6f 69 63 65 42 |User_MenuChoiceB|
00003db0 61 72 0d 13 4c 24 20 20 20 20 20 20 20 20 c8 8e |ar..L$ ..|
00003dc0 20 a4 57 69 6d 70 5f 4d 65 6e 75 43 68 6f 69 63 | .Wimp_MenuChoic|
00003dd0 65 28 30 29 20 ca 0d 13 56 12 20 20 20 20 20 20 |e(0) ...V. |
00003de0 20 20 20 c9 20 31 20 3a 0d 13 60 10 20 20 20 20 | . 1 :..`. |
00003df0 20 20 20 20 20 c9 20 33 0d 13 6a 11 e7 20 55 50 | . 3..j.. UP|
00003e00 44 41 54 45 25 3d b9 20 8c 0d 13 74 44 f2 57 69 |DATE%=. ...tD.Wi|
00003e10 6d 70 5f 49 63 6f 6e 50 75 74 54 65 78 74 28 43 |mp_IconPutText(C|
00003e20 6c 6f 73 65 5f 57 69 6e 64 6f 77 25 2c 30 2c 22 |lose_Window%,0,"|
00003e30 54 68 69 73 20 66 69 6c 65 20 68 61 73 20 62 65 |This file has be|
00003e40 65 6e 20 6d 6f 64 69 66 69 65 64 22 29 0d 13 7e |en modified")..~|
00003e50 29 f2 57 69 6d 70 5f 57 69 6e 64 6f 77 42 72 69 |).Wimp_WindowBri|
00003e60 6e 67 54 6f 54 6f 70 28 43 6c 6f 73 65 5f 57 69 |ngToTop(Close_Wi|
00003e70 6e 64 6f 77 25 29 0d 13 88 1c f2 6d 6f 75 73 65 |ndow%).....mouse|
00003e80 62 6f 78 28 43 6c 6f 73 65 5f 57 69 6e 64 6f 77 |box(Close_Window|
00003e90 25 29 0d 13 92 05 cd 0d 13 9c 1d e7 20 55 50 44 |%).......... UPD|
00003ea0 41 54 45 25 3d a3 20 8c 20 66 69 6e 69 73 68 65 |ATE%=. . finishe|
00003eb0 64 25 3d b9 0d 13 a6 0d 20 20 20 20 20 20 20 20 |d%=..... |
00003ec0 cb 0d 13 b0 0c 20 20 20 20 20 20 20 e1 0d 13 ba |..... ....|
00003ed0 0c 20 20 20 20 20 20 20 3a 0d 13 c4 29 20 20 20 |. :...) |
00003ee0 20 20 20 20 dd 20 f2 45 76 65 6e 74 5f 4c 6f 61 | . .Event_Loa|
00003ef0 64 46 69 6c 65 28 66 69 6c 65 24 2c 74 79 70 65 |dFile(file$,type|
00003f00 24 29 0d 13 ce 10 20 20 20 20 20 20 20 20 20 ea |$).... .|
00003f10 20 85 0d 13 d8 1b 20 20 20 20 20 20 20 20 20 ee | ..... .|
00003f20 20 85 20 ea 20 f2 65 72 72 6f 72 3a e1 0d 13 e2 | . . .error:....|
00003f30 13 e7 20 74 79 70 65 24 3d 22 42 42 44 22 20 8c |.. type$="BBD" .|
00003f40 0d 13 ec 67 f2 57 69 6d 70 5f 57 69 6e 64 6f 77 |...g.Wimp_Window|
00003f50 41 6c 65 72 74 28 22 21 54 72 69 63 6b 73 74 65 |Alert("!Trickste|
00003f60 72 22 2c 22 43 61 6e 20 6e 6f 74 20 61 63 63 65 |r","Can not acce|
00003f70 70 74 20 27 43 68 65 61 74 44 61 74 61 27 20 66 |pt 'CheatData' f|
00003f80 69 6c 65 73 2c 20 70 6c 65 61 73 65 20 63 6f 6e |iles, please con|
00003f90 76 65 72 74 20 75 73 69 6e 67 20 21 50 61 64 3e |vert using !Pad>|
00003fa0 54 72 69 63 6b 22 29 0d 13 f6 05 cd 0d 14 00 13 |Trick").........|
00003fb0 e7 20 74 79 70 65 24 3d 22 41 43 45 22 20 8c 0d |. type$="ACE" ..|
00003fc0 14 0a 11 e7 20 55 50 44 41 54 45 25 3d b9 20 8c |.... UPDATE%=. .|
00003fd0 0d 14 14 7b 63 68 65 63 6b 25 3d a4 57 69 6d 70 |...{check%=.Wimp|
00003fe0 5f 57 69 6e 64 6f 77 43 61 6e 63 65 6c 28 22 21 |_WindowCancel("!|
00003ff0 54 72 69 63 6b 73 74 65 72 22 2c 22 54 68 65 20 |Trickster","The |
00004000 63 75 72 72 65 6e 74 20 66 69 6c 65 20 68 61 73 |current file has|
00004010 20 62 65 65 6e 20 6d 6f 64 69 66 69 65 64 2c 20 | been modified, |
00004020 61 72 65 20 79 6f 75 20 73 75 72 65 20 79 6f 75 |are you sure you|
00004030 20 77 61 6e 74 20 74 6f 20 6c 6f 61 64 20 61 20 | want to load a |
00004040 6e 65 77 20 6f 6e 65 20 3f 22 29 0d 14 1e 1a e7 |new one ?").....|
00004050 20 63 68 65 63 6b 25 3d b9 20 8c 20 55 50 44 41 | check%=. . UPDA|
00004060 54 45 25 3d a3 0d 14 28 05 cd 0d 14 32 11 e7 20 |TE%=...(....2.. |
00004070 55 50 44 41 54 45 25 3d a3 20 8c 0d 14 3c 0d 55 |UPDATE%=. ...<.U|
00004080 50 44 41 54 45 25 3d a3 0d 14 46 2b f2 57 69 6d |PDATE%=...F+.Wim|
00004090 70 5f 49 63 6f 6e 50 75 74 54 65 78 74 28 53 61 |p_IconPutText(Sa|
000040a0 76 65 5f 57 69 6e 64 6f 77 25 2c 31 2c 66 69 6c |ve_Window%,1,fil|
000040b0 65 24 29 0d 14 50 0f 58 25 3d 8e 28 66 69 6c 65 |e$)..P.X%=.(file|
000040c0 24 29 0d 14 5a 0d e7 20 58 25 3c 3e 30 20 8c 0d |$)..Z.. X%<>0 ..|
000040d0 14 64 0e e8 20 23 58 25 2c 74 6f 74 25 0d 14 6e |.d.. #X%,tot%..n|
000040e0 10 e3 20 41 3d 30 20 b8 20 74 6f 74 25 0d 14 78 |.. A=0 . tot%..x|
000040f0 11 e8 20 23 58 25 2c 70 6f 73 25 28 41 29 0d 14 |.. #X%,pos%(A)..|
00004100 82 0e e3 20 42 3d 30 20 b8 20 32 35 0d 14 8c 16 |... B=0 . 25....|
00004110 e8 20 23 58 25 2c 68 61 63 6b 65 72 24 28 41 2c |. #X%,hacker$(A,|
00004120 42 29 0d 14 96 06 ed 42 0d 14 a0 12 e8 20 23 58 |B).....B..... #X|
00004130 25 2c 6e 61 6d 65 24 28 41 29 0d 14 aa 0d e3 20 |%,name$(A)..... |
00004140 42 3d 30 20 b8 20 37 0d 14 b4 14 e8 20 23 58 25 |B=0 . 7..... #X%|
00004150 2c 69 6e 66 6f 24 28 41 2c 42 29 0d 14 be 06 ed |,info$(A,B).....|
00004160 42 0d 14 c8 12 e8 20 23 58 25 2c 68 61 63 6b 24 |B..... #X%,hack$|
00004170 28 41 29 0d 14 d2 12 e8 20 23 58 25 2c 68 61 63 |(A)..... #X%,hac|
00004180 6b 25 28 41 29 0d 14 dc 05 cd 0d 14 e6 06 ed 41 |k%(A)..........A|
00004190 0d 14 f0 08 d9 23 58 25 0d 14 fa 0a 63 75 72 25 |.....#X%....cur%|
000041a0 3d 30 0d 15 04 27 f2 57 69 6d 70 5f 49 63 6f 6e |=0...'.Wimp_Icon|
000041b0 44 69 73 61 62 6c 65 28 54 6f 6f 6c 73 5f 57 69 |Disable(Tools_Wi|
000041c0 6e 64 6f 77 25 2c 31 30 29 0d 15 0e 27 f2 57 69 |ndow%,10)...'.Wi|
000041d0 6d 70 5f 49 63 6f 6e 44 69 73 61 62 6c 65 28 54 |mp_IconDisable(T|
000041e0 6f 6f 6c 73 5f 57 69 6e 64 6f 77 25 2c 31 31 29 |ools_Window%,11)|
000041f0 0d 15 18 11 e7 20 63 75 72 25 3c 74 6f 74 25 20 |..... cur%<tot% |
00004200 8c 0d 15 22 25 f2 57 69 6d 70 5f 49 63 6f 6e 45 |..."%.Wimp_IconE|
00004210 6e 61 62 6c 65 28 54 6f 6f 6c 73 5f 57 69 6e 64 |nable(Tools_Wind|
00004220 6f 77 25 2c 39 29 0d 15 2c 25 f2 57 69 6d 70 5f |ow%,9)..,%.Wimp_|
00004230 49 63 6f 6e 45 6e 61 62 6c 65 28 54 6f 6f 6c 73 |IconEnable(Tools|
00004240 5f 57 69 6e 64 6f 77 25 2c 38 29 0d 15 36 25 f2 |_Window%,8)..6%.|
00004250 57 69 6d 70 5f 49 63 6f 6e 45 6e 61 62 6c 65 28 |Wimp_IconEnable(|
00004260 54 6f 6f 6c 73 5f 57 69 6e 64 6f 77 25 2c 33 29 |Tools_Window%,3)|
00004270 0d 15 40 26 f2 57 69 6d 70 5f 49 63 6f 6e 44 69 |..@&.Wimp_IconDi|
00004280 73 61 62 6c 65 28 54 6f 6f 6c 73 5f 57 69 6e 64 |sable(Tools_Wind|
00004290 6f 77 25 2c 32 29 0d 15 4a 05 cd 0d 15 54 0e e7 |ow%,2)..J....T..|
000042a0 20 74 6f 74 25 3e 30 20 8c 0d 15 5e 21 f2 57 69 | tot%>0 ...^!.Wi|
000042b0 6d 70 5f 4d 65 6e 75 45 6e 61 62 6c 65 28 42 61 |mp_MenuEnable(Ba|
000042c0 72 5f 4d 65 6e 75 25 2c 32 29 0d 15 68 05 cd 0d |r_Menu%,2)..h...|
000042d0 15 72 0e e7 20 74 6f 74 25 3d 30 20 8c 0d 15 7c |.r.. tot%=0 ...||
000042e0 22 f2 57 69 6d 70 5f 4d 65 6e 75 44 69 73 61 62 |".Wimp_MenuDisab|
000042f0 6c 65 28 42 61 72 5f 4d 65 6e 75 25 2c 32 29 0d |le(Bar_Menu%,2).|
00004300 15 86 26 f2 57 69 6d 70 5f 49 63 6f 6e 44 69 73 |..&.Wimp_IconDis|
00004310 61 62 6c 65 28 54 6f 6f 6c 73 5f 57 69 6e 64 6f |able(Tools_Windo|
00004320 77 25 2c 38 29 0d 15 90 26 f2 57 69 6d 70 5f 49 |w%,8)...&.Wimp_I|
00004330 63 6f 6e 44 69 73 61 62 6c 65 28 54 6f 6f 6c 73 |conDisable(Tools|
00004340 5f 57 69 6e 64 6f 77 25 2c 39 29 0d 15 9a 26 f2 |_Window%,9)...&.|
00004350 57 69 6d 70 5f 49 63 6f 6e 44 69 73 61 62 6c 65 |Wimp_IconDisable|
00004360 28 54 6f 6f 6c 73 5f 57 69 6e 64 6f 77 25 2c 33 |(Tools_Window%,3|
00004370 29 0d 15 a4 25 f2 57 69 6d 70 5f 49 63 6f 6e 45 |)...%.Wimp_IconE|
00004380 6e 61 62 6c 65 28 54 6f 6f 6c 73 5f 57 69 6e 64 |nable(Tools_Wind|
00004390 6f 77 25 2c 32 29 0d 15 ae 05 cd 0d 15 b8 0e e7 |ow%,2)..........|
000043a0 20 74 6f 74 25 3c 32 20 8c 0d 15 c2 2f 20 20 20 | tot%<2 ..../ |
000043b0 20 20 20 20 20 20 f2 57 69 6d 70 5f 49 63 6f 6e | .Wimp_Icon|
000043c0 44 69 73 61 62 6c 65 28 54 6f 6f 6c 73 5f 57 69 |Disable(Tools_Wi|
000043d0 6e 64 6f 77 25 2c 34 29 0d 15 cc 2e 20 20 20 20 |ndow%,4).... |
000043e0 20 20 20 20 20 f2 57 69 6d 70 5f 49 63 6f 6e 44 | .Wimp_IconD|
000043f0 69 73 61 62 6c 65 28 42 6f 74 5f 57 69 6e 64 6f |isable(Bot_Windo|
00004400 77 25 2c 31 32 29 0d 15 d6 2e 20 20 20 20 20 20 |w%,12).... |
00004410 20 20 20 f2 57 69 6d 70 5f 49 63 6f 6e 44 69 73 | .Wimp_IconDis|
00004420 61 62 6c 65 28 42 6f 74 5f 57 69 6e 64 6f 77 25 |able(Bot_Window%|
00004430 2c 31 35 29 0d 15 e0 2e 20 20 20 20 20 20 20 20 |,15).... |
00004440 20 f2 57 69 6d 70 5f 49 63 6f 6e 44 69 73 61 62 | .Wimp_IconDisab|
00004450 6c 65 28 42 6f 74 5f 57 69 6e 64 6f 77 25 2c 31 |le(Bot_Window%,1|
00004460 38 29 0d 15 ea 05 cd 0d 15 f4 0e e7 20 74 6f 74 |8).......... tot|
00004470 25 3e 31 20 8c 0d 15 fe 2e 20 20 20 20 20 20 20 |%>1 ..... |
00004480 20 20 f2 57 69 6d 70 5f 49 63 6f 6e 45 6e 61 62 | .Wimp_IconEnab|
00004490 6c 65 28 54 6f 6f 6c 73 5f 57 69 6e 64 6f 77 25 |le(Tools_Window%|
000044a0 2c 34 29 0d 16 08 3b 20 20 20 20 20 20 20 20 20 |,4)...; |
000044b0 e7 20 44 52 49 56 45 52 25 3d b9 20 8c 20 f2 57 |. DRIVER%=. . .W|
000044c0 69 6d 70 5f 49 63 6f 6e 45 6e 61 62 6c 65 28 42 |imp_IconEnable(B|
000044d0 6f 74 5f 57 69 6e 64 6f 77 25 2c 31 32 29 0d 16 |ot_Window%,12)..|
000044e0 12 2d 20 20 20 20 20 20 20 20 20 f2 57 69 6d 70 |.- .Wimp|
000044f0 5f 49 63 6f 6e 45 6e 61 62 6c 65 28 42 6f 74 5f |_IconEnable(Bot_|
00004500 57 69 6e 64 6f 77 25 2c 31 35 29 0d 16 1c 2d 20 |Window%,15)...- |
00004510 20 20 20 20 20 20 20 20 f2 57 69 6d 70 5f 49 63 | .Wimp_Ic|
00004520 6f 6e 45 6e 61 62 6c 65 28 42 6f 74 5f 57 69 6e |onEnable(Bot_Win|
00004530 64 6f 77 25 2c 31 38 29 0d 16 26 05 cd 0d 16 30 |dow%,18)..&....0|
00004540 29 f2 57 69 6d 70 5f 57 69 6e 64 6f 77 42 72 69 |).Wimp_WindowBri|
00004550 6e 67 54 6f 54 6f 70 28 54 69 74 6c 65 5f 57 69 |ngToTop(Title_Wi|
00004560 6e 64 6f 77 25 29 0d 16 3a 25 f2 57 69 6d 70 5f |ndow%)..:%.Wimp_|
00004570 57 69 6e 64 6f 77 43 6c 6f 73 65 28 48 61 63 6b |WindowClose(Hack|
00004580 65 72 5f 57 69 6e 64 6f 77 25 29 0d 16 44 22 f2 |er_Window%)..D".|
00004590 57 69 6d 70 5f 57 69 6e 64 6f 77 43 6c 6f 73 65 |Wimp_WindowClose|
000045a0 28 42 6f 74 5f 57 69 6e 64 6f 77 25 29 0d 16 4e |(Bot_Window%)..N|
000045b0 24 f2 57 69 6d 70 5f 57 69 6e 64 6f 77 43 6c 6f |$.Wimp_WindowClo|
000045c0 73 65 28 54 6f 6f 6c 73 5f 57 69 6e 64 6f 77 25 |se(Tools_Window%|
000045d0 29 0d 16 58 23 f2 57 69 6d 70 5f 57 69 6e 64 6f |)..X#.Wimp_Windo|
000045e0 77 43 6c 6f 73 65 28 4d 61 69 6e 5f 57 69 6e 64 |wClose(Main_Wind|
000045f0 6f 77 25 29 0d 16 62 0b f2 75 70 64 61 74 65 0d |ow%)..b..update.|
00004600 16 6c 05 cd 0d 16 76 05 cd 0d 16 80 29 20 20 20 |.l....v.....) |
00004610 20 20 20 20 c8 99 22 57 69 6d 70 5f 47 65 74 50 | .."Wimp_GetP|
00004620 6f 69 6e 74 65 72 49 6e 66 6f 22 2c 2c 77 69 6d |ointerInfo",,wim|
00004630 70 25 0d 16 8a 30 20 20 20 20 20 20 20 e7 20 77 |p%...0 . w|
00004640 69 6d 70 25 21 31 36 3d 33 20 80 20 77 69 6d 70 |imp%!16=3 . wimp|
00004650 25 21 31 32 3d 42 6f 74 5f 57 69 6e 64 6f 77 25 |%!12=Bot_Window%|
00004660 20 8c 0d 16 94 1a 20 20 20 20 20 20 20 e7 20 74 | ..... . t|
00004670 79 70 65 24 3d 22 46 46 41 22 20 8c 0d 16 9e 11 |ype$="FFA" .....|
00004680 f4 20 4c 4f 43 41 4c 20 45 52 52 4f 52 0d 16 a8 |. LOCAL ERROR...|
00004690 27 f4 20 4f 4e 20 45 52 52 4f 52 20 4c 4f 43 41 |'. ON ERROR LOCA|
000046a0 4c 20 50 52 4f 43 65 72 72 6f 72 32 3a 45 4e 44 |L PROCerror2:END|
000046b0 50 52 4f 43 0d 16 b2 0f 58 25 3d 8e 28 66 69 6c |PROC....X%=.(fil|
000046c0 65 24 29 0d 16 bc 0d e7 20 58 25 3c 3e 30 20 8c |e$)..... X%<>0 .|
000046d0 0d 16 c6 08 d9 23 58 25 0d 16 d0 14 c8 99 22 48 |.....#X%......"H|
000046e0 6f 75 72 67 6c 61 73 73 5f 4f 6e 22 0d 16 da 16 |ourglass_On"....|
000046f0 20 20 20 20 20 20 20 20 20 55 50 44 41 54 45 25 | UPDATE%|
00004700 3d b9 0d 16 e4 17 f2 63 68 65 63 6b 6d 6f 64 75 |=......checkmodu|
00004710 6c 65 28 66 69 6c 65 24 29 0d 16 ee 13 70 6f 73 |le(file$)....pos|
00004720 25 28 63 75 72 25 29 3d 70 6f 73 25 0d 16 f8 11 |%(cur%)=pos%....|
00004730 e7 20 44 4f 53 41 56 45 25 3d b9 20 8c 0d 17 02 |. DOSAVE%=. ....|
00004740 2e e7 20 c0 68 61 63 6b 65 72 24 28 63 75 72 25 |.. .hacker$(cur%|
00004750 2c 70 6f 73 25 28 63 75 72 25 29 2d 31 29 2c 31 |,pos%(cur%)-1),1|
00004760 29 3c 3e bd 28 31 36 30 29 20 8c 0d 17 0c 2f f2 |)<>.(160) ..../.|
00004770 63 75 74 6c 6f 6e 67 28 68 61 63 6b 65 72 24 28 |cutlong(hacker$(|
00004780 63 75 72 25 2c 70 6f 73 25 28 63 75 72 25 29 2d |cur%,pos%(cur%)-|
00004790 31 29 2c 70 6f 73 25 2d 31 29 0d 17 16 1e 70 6f |1),pos%-1)....po|
000047a0 73 25 28 63 75 72 25 29 3d 70 6f 73 25 28 63 75 |s%(cur%)=pos%(cu|
000047b0 72 25 29 2b 28 42 25 29 0d 17 20 05 cd 0d 17 2a |r%)+(B%).. ....*|
000047c0 1f e7 20 a4 69 73 6f 70 65 6e 28 48 61 63 6b 65 |.. .isopen(Hacke|
000047d0 72 5f 57 69 6e 64 6f 77 25 29 20 8c 0d 17 34 0b |r_Window%) ...4.|
000047e0 f2 77 69 6e 73 69 7a 0d 17 3e 2a f2 57 69 6d 70 |.winsiz..>*.Wimp|
000047f0 5f 57 69 6e 64 6f 77 42 72 69 6e 67 54 6f 54 6f |_WindowBringToTo|
00004800 70 28 48 61 63 6b 65 72 5f 57 69 6e 64 6f 77 25 |p(Hacker_Window%|
00004810 29 0d 17 48 29 f2 57 69 6d 70 5f 57 69 6e 64 6f |)..H).Wimp_Windo|
00004820 77 46 6f 72 63 65 44 72 61 77 28 48 61 63 6b 65 |wForceDraw(Hacke|
00004830 72 5f 57 69 6e 64 6f 77 25 29 0d 17 52 05 cd 0d |r_Window%)..R...|
00004840 17 5c 0a 70 6f 73 25 3d 30 0d 17 66 11 68 61 63 |.\.pos%=0..f.hac|
00004850 6b 25 28 63 75 72 25 29 3d b9 0d 17 70 23 f2 57 |k%(cur%)=...p#.W|
00004860 69 6d 70 5f 49 63 6f 6e 45 6e 61 62 6c 65 28 42 |imp_IconEnable(B|
00004870 6f 74 5f 57 69 6e 64 6f 77 25 2c 34 29 0d 17 7a |ot_Window%,4)..z|
00004880 23 f2 57 69 6d 70 5f 53 65 6c 65 63 74 49 63 6f |#.Wimp_SelectIco|
00004890 6e 28 42 6f 74 5f 57 69 6e 64 6f 77 25 2c 35 29 |n(Bot_Window%,5)|
000048a0 0d 17 84 24 f2 57 69 6d 70 5f 49 63 6f 6e 45 6e |...$.Wimp_IconEn|
000048b0 61 62 6c 65 28 42 6f 74 5f 57 69 6e 64 6f 77 25 |able(Bot_Window%|
000048c0 2c 33 39 29 0d 17 8e 24 f2 57 69 6d 70 5f 49 63 |,39)...$.Wimp_Ic|
000048d0 6f 6e 45 6e 61 62 6c 65 28 42 6f 74 5f 57 69 6e |onEnable(Bot_Win|
000048e0 64 6f 77 25 2c 32 30 29 0d 17 98 23 f2 57 69 6d |dow%,20)...#.Wim|
000048f0 70 5f 49 63 6f 6e 45 6e 61 62 6c 65 28 42 6f 74 |p_IconEnable(Bot|
00004900 5f 57 69 6e 64 6f 77 25 2c 35 29 0d 17 a2 17 f4 |_Window%,5).....|
00004910 20 68 61 63 6b 24 28 63 75 72 25 29 3d 66 69 6c | hack$(cur%)=fil|
00004920 65 24 0d 17 ac 27 61 24 3d a4 57 69 6d 70 5f 47 |e$...'a$=.Wimp_G|
00004930 65 74 46 69 6c 65 46 72 6f 6d 50 61 74 68 6e 61 |etFileFromPathna|
00004940 6d 65 28 66 69 6c 65 24 29 0d 17 b6 17 41 41 25 |me(file$)....AA%|
00004950 3d a4 6e 61 63 68 65 63 6b 28 66 69 6c 65 24 29 |=.nacheck(file$)|
00004960 0d 17 c0 6b e7 20 41 41 25 3d b9 20 8c 20 68 61 |...k. AA%=. . ha|
00004970 63 6b 24 28 63 75 72 25 29 3d 22 3c 54 72 69 63 |ck$(cur%)="<Tric|
00004980 6b 73 74 65 72 24 44 69 72 3e 2e 54 72 69 63 6b |kster$Dir>.Trick|
00004990 4d 6f 64 73 2e 22 2b a4 57 69 6d 70 5f 47 65 74 |Mods."+.Wimp_Get|
000049a0 46 69 6c 65 46 72 6f 6d 50 61 74 68 6e 61 6d 65 |FileFromPathname|
000049b0 28 66 69 6c 65 24 29 20 8b 20 68 61 63 6b 24 28 |(file$) . hack$(|
000049c0 63 75 72 25 29 3d 66 69 6c 65 24 0d 17 ca 4b f2 |cur%)=file$...K.|
000049d0 57 69 6d 70 5f 49 63 6f 6e 50 75 74 54 65 78 74 |Wimp_IconPutText|
000049e0 28 42 6f 74 5f 57 69 6e 64 6f 77 25 2c 34 2c a4 |(Bot_Window%,4,.|
000049f0 57 69 6d 70 5f 47 65 74 46 69 6c 65 46 72 6f 6d |Wimp_GetFileFrom|
00004a00 50 61 74 68 6e 61 6d 65 28 68 61 63 6b 24 28 63 |Pathname(hack$(c|
00004a10 75 72 25 29 29 29 0d 17 d4 05 cd 0d 17 de 17 c8 |ur%)))..........|
00004a20 99 22 48 6f 75 72 67 6c 61 73 73 5f 53 6d 61 73 |."Hourglass_Smas|
00004a30 68 22 0d 17 e8 05 cd 0d 17 f2 05 cd 0d 17 fc 0c |h"..............|
00004a40 20 20 20 20 20 20 20 cd 0d 18 06 0c 20 20 20 20 | ..... |
00004a50 20 20 20 e1 0d 18 10 0c 20 20 20 20 20 20 20 3a | ..... :|
00004a60 0d 18 1a 2b 20 20 20 20 20 20 20 dd 20 f2 45 76 |...+ . .Ev|
00004a70 65 6e 74 5f 53 61 76 65 46 69 6c 65 28 66 69 6c |ent_SaveFile(fil|
00004a80 65 24 2c 77 69 6e 64 6f 77 25 29 0d 18 24 10 20 |e$,window%)..$. |
00004a90 20 20 20 20 20 20 20 20 ea 20 85 0d 18 2e 1b 20 | . ..... |
00004aa0 20 20 20 20 20 20 20 20 ee 20 85 20 ea 20 f2 65 | . . . .e|
00004ab0 72 72 6f 72 3a e1 0d 18 38 19 20 20 20 20 20 20 |rror:...8. |
00004ac0 20 20 20 c8 8e 20 77 69 6e 64 6f 77 25 20 ca 0d | .. window% ..|
00004ad0 18 42 1d 20 20 20 20 20 20 20 20 20 20 20 c9 20 |.B. . |
00004ae0 53 61 76 65 5f 57 69 6e 64 6f 77 25 0d 18 4c 0f |Save_Window%..L.|
00004af0 58 25 3d 8e 28 66 69 6c 65 24 29 0d 18 56 0d e7 |X%=.(file$)..V..|
00004b00 20 58 25 3c 3e 30 20 8c 0d 18 60 53 63 68 65 63 | X%<>0 ...`Schec|
00004b10 6b 25 3d a4 57 69 6d 70 5f 57 69 6e 64 6f 77 43 |k%=.Wimp_WindowC|
00004b20 61 6e 63 65 6c 28 22 21 54 72 69 63 6b 73 74 65 |ancel("!Trickste|
00004b30 72 22 2c 22 54 68 69 73 20 66 69 6c 65 20 61 6c |r","This file al|
00004b40 72 65 61 64 79 20 65 78 69 73 74 73 2c 20 6f 76 |ready exists, ov|
00004b50 65 72 77 72 69 74 65 20 3f 22 29 0d 18 6a 15 e7 |erwrite ?")..j..|
00004b60 20 63 68 65 63 6b 25 3d b9 20 8c 20 58 25 3d 30 | check%=. . X%=0|
00004b70 0d 18 74 08 d9 23 58 25 0d 18 7e 05 cd 0d 18 88 |..t..#X%..~.....|
00004b80 0c e7 20 58 25 3d 30 20 8c 0d 18 92 11 e7 20 44 |.. X%=0 ...... D|
00004b90 4f 53 41 56 45 25 3d b9 20 8c 0d 18 9c 1a 20 20 |OSAVE%=. ..... |
00004ba0 20 20 20 20 20 20 20 e7 20 63 75 72 25 3d 74 6f | . cur%=to|
00004bb0 74 25 20 8c 0d 18 a6 31 20 20 20 20 20 20 20 20 |t% ....1 |
00004bc0 20 f2 57 69 6d 70 5f 49 63 6f 6e 50 75 74 54 65 | .Wimp_IconPutTe|
00004bd0 78 74 28 4d 61 69 6e 5f 57 69 6e 64 6f 77 25 2c |xt(Main_Window%,|
00004be0 36 2c 22 22 29 0d 18 b0 18 20 20 20 20 20 20 20 |6,"").... |
00004bf0 20 20 e3 20 41 3d 31 30 20 b8 20 31 37 0d 18 ba | . A=10 . 17...|
00004c00 31 20 20 20 20 20 20 20 20 20 f2 57 69 6d 70 5f |1 .Wimp_|
00004c10 49 63 6f 6e 50 75 74 54 65 78 74 28 4d 61 69 6e |IconPutText(Main|
00004c20 5f 57 69 6e 64 6f 77 25 2c 41 2c 22 22 29 0d 18 |_Window%,A,"")..|
00004c30 c4 0f 20 20 20 20 20 20 20 20 20 ed 41 0d 18 ce |.. .A...|
00004c40 30 20 20 20 20 20 20 20 20 20 f2 57 69 6d 70 5f |0 .Wimp_|
00004c50 49 63 6f 6e 50 75 74 54 65 78 74 28 42 6f 74 5f |IconPutText(Bot_|
00004c60 57 69 6e 64 6f 77 25 2c 34 2c 22 22 29 0d 18 d8 |Window%,4,"")...|
00004c70 1a 20 20 20 20 20 20 20 20 20 68 61 63 6b 25 28 |. hack%(|
00004c80 63 75 72 25 29 3d a3 0d 18 e2 0e 20 20 20 20 20 |cur%)=..... |
00004c90 20 20 20 20 cd 0d 18 ec 09 f2 72 65 61 64 0d 18 | ......read..|
00004ca0 f6 0f 58 25 3d ae 28 66 69 6c 65 24 29 0d 19 00 |..X%=.(file$)...|
00004cb0 0d e7 20 58 25 3c 3e 30 20 8c 0d 19 0a 0e f1 20 |.. X%<>0 ...... |
00004cc0 23 58 25 2c 74 6f 74 25 0d 19 14 10 e3 20 41 3d |#X%,tot%..... A=|
00004cd0 30 20 b8 20 74 6f 74 25 0d 19 1e 11 f1 20 23 58 |0 . tot%..... #X|
00004ce0 25 2c 70 6f 73 25 28 41 29 0d 19 28 0e e3 20 42 |%,pos%(A)..(.. B|
00004cf0 3d 30 20 b8 20 32 35 0d 19 32 16 f1 20 23 58 25 |=0 . 25..2.. #X%|
00004d00 2c 68 61 63 6b 65 72 24 28 41 2c 42 29 0d 19 3c |,hacker$(A,B)..<|
00004d10 06 ed 42 0d 19 46 12 f1 20 23 58 25 2c 6e 61 6d |..B..F.. #X%,nam|
00004d20 65 24 28 41 29 0d 19 50 0d e3 20 42 3d 30 20 b8 |e$(A)..P.. B=0 .|
00004d30 20 37 0d 19 5a 14 f1 20 23 58 25 2c 69 6e 66 6f | 7..Z.. #X%,info|
00004d40 24 28 41 2c 42 29 0d 19 64 06 ed 42 0d 19 6e 12 |$(A,B)..d..B..n.|
00004d50 f1 20 23 58 25 2c 68 61 63 6b 24 28 41 29 0d 19 |. #X%,hack$(A)..|
00004d60 78 12 f1 20 23 58 25 2c 68 61 63 6b 25 28 41 29 |x.. #X%,hack%(A)|
00004d70 0d 19 82 06 ed 41 0d 19 8c 05 cd 0d 19 96 08 d9 |.....A..........|
00004d80 23 58 25 0d 19 a0 1f ff 20 28 22 53 45 54 54 59 |#X%..... ("SETTY|
00004d90 50 45 20 22 2b 66 69 6c 65 24 2b 22 20 41 43 45 |PE "+file$+" ACE|
00004da0 22 29 0d 19 aa 13 f2 57 69 6d 70 5f 4d 65 6e 75 |").....Wimp_Menu|
00004db0 43 6c 6f 73 65 0d 19 b4 05 cd 0d 19 be 0d 55 50 |Close.........UP|
00004dc0 44 41 54 45 25 3d a3 0d 19 c8 05 cd 0d 19 d2 1e |DATE%=..........|
00004dd0 20 20 20 20 20 20 20 20 20 20 20 c9 20 53 61 76 | . Sav|
00004de0 65 32 5f 57 69 6e 64 6f 77 25 0d 19 dc 0f 58 25 |e2_Window%....X%|
00004df0 3d 8e 28 66 69 6c 65 24 29 0d 19 e6 0d e7 20 58 |=.(file$)..... X|
00004e00 25 3c 3e 30 20 8c 0d 19 f0 53 63 68 65 63 6b 25 |%<>0 ....Scheck%|
00004e10 3d a4 57 69 6d 70 5f 57 69 6e 64 6f 77 43 61 6e |=.Wimp_WindowCan|
00004e20 63 65 6c 28 22 21 54 72 69 63 6b 73 74 65 72 22 |cel("!Trickster"|
00004e30 2c 22 54 68 69 73 20 66 69 6c 65 20 61 6c 72 65 |,"This file alre|
00004e40 61 64 79 20 65 78 69 73 74 73 2c 20 6f 76 65 72 |ady exists, over|
00004e50 77 72 69 74 65 20 3f 22 29 0d 19 fa 1a e7 20 63 |write ?")..... c|
00004e60 68 65 63 6b 25 3d b9 20 8c 20 58 25 3d 30 3a d9 |heck%=. . X%=0:.|
00004e70 23 58 25 0d 1a 04 05 cd 0d 1a 0e 0c e7 20 58 25 |#X%.......... X%|
00004e80 3d 30 20 8c 0d 1a 18 07 ea 20 85 0d 1a 22 10 ee |=0 ...... ..."..|
00004e90 20 85 20 ea 20 f2 65 72 72 6f 72 0d 1a 2c 11 e7 | . . .error..,..|
00004ea0 20 44 4f 53 41 56 45 25 3d b9 20 8c 0d 1a 36 15 | DOSAVE%=. ...6.|
00004eb0 20 20 f2 57 69 6d 70 5f 4d 65 6e 75 43 6c 6f 73 | .Wimp_MenuClos|
00004ec0 65 0d 1a 40 17 20 20 ff 28 22 53 50 4f 4f 4c 20 |e..@. .("SPOOL |
00004ed0 22 2b 66 69 6c 65 24 29 0d 1a 4a 13 e3 20 44 44 |"+file$)..J.. DD|
00004ee0 3d 30 20 b8 20 74 6f 74 25 2d 31 0d 1a 54 26 20 |=0 . tot%-1..T& |
00004ef0 20 f1 22 47 61 6d 65 20 4e 61 6d 65 20 2d 20 22 | ."Game Name - "|
00004f00 2b 6e 61 6d 65 24 28 44 44 29 2b bd 28 31 30 29 |+name$(DD)+.(10)|
00004f10 3b 0d 1a 5e 0d 20 20 f1 bd 28 31 30 29 3b 0d 1a |;..^. ..(10);..|
00004f20 68 22 20 20 f1 22 54 72 69 63 6b 73 20 61 6e 64 |h" ."Tricks and|
00004f30 20 54 61 63 74 69 63 73 22 2b bd 28 31 30 29 3b | Tactics"+.(10);|
00004f40 0d 1a 72 0f 20 20 e3 20 41 3d 30 20 b8 20 37 0d |..r. . A=0 . 7.|
00004f50 1a 7c 2f 20 20 20 20 e7 20 69 6e 66 6f 24 28 44 |.|/ . info$(D|
00004f60 44 2c 41 29 3c 3e 22 22 20 8c 20 f1 69 6e 66 6f |D,A)<>"" . .info|
00004f70 24 28 44 44 2c 41 29 2b bd 28 31 30 29 3b 0d 1a |$(DD,A)+.(10);..|
00004f80 86 08 20 20 ed 41 0d 1a 90 0b f1 bd 28 31 30 29 |.. .A......(10)|
00004f90 3b 0d 1a 9a 15 20 20 e7 20 68 61 63 6b 25 28 44 |;.... . hack%(D|
00004fa0 44 29 3d b9 20 8c 0d 1a a4 42 20 20 20 20 f1 22 |D)=. ....B ."|
00004fb0 43 68 65 61 74 20 4e 61 6d 65 20 2d 20 22 2b c0 |Cheat Name - "+.|
00004fc0 68 61 63 6b 65 72 24 28 44 44 2c 30 29 2c a9 28 |hacker$(DD,0),.(|
00004fd0 68 61 63 6b 65 72 24 28 44 44 2c 30 29 29 2d 36 |hacker$(DD,0))-6|
00004fe0 29 2b bd 28 31 30 29 3b 0d 1a ae 0f 20 20 20 20 |)+.(10);.... |
00004ff0 f1 bd 28 31 30 29 3b 0d 1a b8 4a 20 20 20 20 f1 |..(10);...J .|
00005000 22 41 75 74 68 6f 72 20 6f 66 20 43 68 65 61 74 |"Author of Cheat|
00005010 20 2d 20 22 2b c1 68 61 63 6b 65 72 24 28 44 44 | - "+.hacker$(DD|
00005020 2c 31 29 2c 31 32 2c a9 28 68 61 63 6b 65 72 24 |,1),12,.(hacker$|
00005030 28 44 44 2c 31 29 29 2d 38 29 2b bd 28 31 30 29 |(DD,1))-8)+.(10)|
00005040 3b 0d 1a c2 0f 20 20 20 20 f1 bd 28 31 30 29 3b |;.... ..(10);|
00005050 0d 1a cc 44 20 20 20 20 f1 22 43 68 65 61 74 65 |...D ."Cheate|
00005060 64 20 77 69 74 68 20 2d 20 22 2b c1 68 61 63 6b |d with - "+.hack|
00005070 65 72 24 28 44 44 2c 32 29 2c 36 2c a9 28 68 61 |er$(DD,2),6,.(ha|
00005080 63 6b 65 72 24 28 44 44 2c 32 29 29 29 2b bd 28 |cker$(DD,2)))+.(|
00005090 31 30 29 3b 0d 1a d6 0f 20 20 20 20 f1 bd 28 31 |10);.... ..(1|
000050a0 30 29 3b 0d 1a e0 16 20 20 20 20 f1 22 4b 65 79 |0);.... ."Key|
000050b0 73 22 2b bd 28 31 30 29 3b 0d 1a ea 1a 20 20 20 |s"+.(10);.... |
000050c0 20 e3 20 41 3d 30 20 b8 20 70 6f 73 25 28 44 44 | . A=0 . pos%(DD|
000050d0 29 2d 34 0d 1a f4 3a 20 20 20 20 e7 20 97 28 c0 |)-4...: . .(.|
000050e0 68 61 63 6b 65 72 24 28 44 44 2c 41 2b 33 29 29 |hacker$(DD,A+3))|
000050f0 29 3d 31 36 30 20 8c 20 c0 68 61 63 6b 65 72 24 |)=160 . .hacker$|
00005100 28 44 44 2c 41 2b 33 29 29 3d 22 20 22 0d 1a fe |(DD,A+3))=" "...|
00005110 3a 20 20 20 20 e7 20 97 28 c0 68 61 63 6b 65 72 |: . .(.hacker|
00005120 24 28 44 44 2c 41 2b 33 29 29 29 3d 26 30 64 20 |$(DD,A+3)))=&0d |
00005130 8c 20 c0 68 61 63 6b 65 72 24 28 44 44 2c 41 2b |. .hacker$(DD,A+|
00005140 33 29 29 3d 22 20 22 0d 1b 08 1f 20 20 20 20 f1 |3))=" ".... .|
00005150 68 61 63 6b 65 72 24 28 44 44 2c 41 2b 33 29 2b |hacker$(DD,A+3)+|
00005160 bd 28 31 30 29 3b 0d 1b 12 0a 20 20 20 20 ed 41 |.(10);.... .A|
00005170 0d 1b 1c 0b f1 bd 28 31 30 29 3b 0d 1b 26 07 20 |......(10);..&. |
00005180 20 cd 0d 1b 30 07 ed 44 44 0d 1b 3a 05 cd 0d 1b | ...0..DD..:....|
00005190 44 10 20 20 ff 28 22 53 50 4f 4f 4c 22 29 0d 1b |D. .("SPOOL")..|
000051a0 4e 20 20 20 ff 28 22 53 45 54 54 59 50 45 20 22 |N .("SETTYPE "|
000051b0 2b 66 69 6c 65 24 2b 22 20 46 46 46 22 29 0d 1b |+file$+" FFF")..|
000051c0 58 08 20 20 ef 36 0d 1b 62 36 20 20 e7 20 66 69 |X. .6..b6 . fi|
000051d0 6c 65 24 3d 22 3c 57 69 6d 70 24 53 63 72 61 70 |le$="<Wimp$Scrap|
000051e0 3e 22 20 8c 20 f2 57 69 6d 70 5f 53 65 6e 64 54 |>" . .Wimp_SendT|
000051f0 6f 45 64 69 74 28 66 69 6c 65 24 29 0d 1b 6c 07 |oEdit(file$)..l.|
00005200 20 20 cd 0d 1b 76 0e 20 20 20 20 20 20 20 20 20 | ...v. |
00005210 cb 0d 1b 80 1b e7 20 44 4f 53 41 56 45 25 3d a3 |...... DOSAVE%=.|
00005220 20 8c 20 44 4f 53 41 56 45 25 3d b9 0d 1b 8a 0c | . DOSAVE%=.....|
00005230 20 20 20 20 20 20 20 e1 0d 1b 94 05 3a 0d 1b 9e | .....:...|
00005240 47 f4 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |G. *************|
00005250 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
*
00005280 2a 2a 2a 2a 0d 1b a8 05 3a 0d 1b b2 2e dd 20 f2 |****....:..... .|
00005290 57 69 6d 70 5f 57 69 6e 64 6f 77 54 69 74 6c 65 |Wimp_WindowTitle|
000052a0 50 75 74 54 65 78 74 28 77 69 6e 64 6f 77 25 2c |PutText(window%,|
000052b0 74 69 74 6c 65 24 29 0d 1b bc 15 77 69 6d 70 25 |title$)....wimp%|
000052c0 21 30 20 3d 20 77 69 6e 64 6f 77 25 0d 1b c6 17 |!0 = window%....|
000052d0 c8 99 20 26 30 30 30 34 30 30 43 43 2c 2c 77 69 |.. &000400CC,,wi|
000052e0 6d 70 25 0d 1b d0 15 70 6f 25 20 3d 20 21 28 77 |mp%....po% = !(w|
000052f0 69 6d 70 25 2b 37 36 29 0d 1b da 14 24 70 6f 25 |imp%+76)....$po%|
00005300 20 3d 20 74 69 74 6c 65 24 2b bd 30 0d 1b e4 05 | = title$+.0....|
00005310 e1 0d 1b ee 05 3a 0d 1b f8 28 dd 20 f2 57 69 6d |.....:...(. .Wim|
00005320 70 5f 57 69 6e 64 6f 77 41 6c 65 72 74 28 74 69 |p_WindowAlert(ti|
00005330 74 6c 65 24 2c 6d 65 73 73 61 67 65 24 29 0d 1c |tle$,message$)..|
00005340 02 2b f2 57 69 6d 70 5f 57 69 6e 64 6f 77 41 6c |.+.Wimp_WindowAl|
00005350 65 72 74 42 6f 78 28 74 69 74 6c 65 24 2c 6d 65 |ertBox(title$,me|
00005360 73 73 61 67 65 24 2c 30 29 0d 1c 0c 05 e1 0d 1c |ssage$,0).......|
00005370 16 05 3a 0d 1c 20 33 dd 20 f2 57 69 6d 70 5f 57 |..:.. 3. .Wimp_W|
00005380 69 6e 64 6f 77 41 6c 65 72 74 42 6f 78 28 74 69 |indowAlertBox(ti|
00005390 74 6c 65 24 2c 6d 65 73 73 61 67 65 24 2c 62 75 |tle$,message$,bu|
000053a0 74 74 6f 6e 25 29 0d 1c 2a 0f ea 20 72 65 73 70 |tton%)..*.. resp|
000053b0 6f 6e 73 65 25 0d 1c 34 17 24 28 77 69 6d 70 25 |onse%..4.$(wimp%|
000053c0 2b 34 29 3d 6d 65 73 73 61 67 65 24 0d 1c 3e 10 |+4)=message$..>.|
000053d0 c8 8e 20 62 75 74 74 6f 6e 25 20 ca 0d 1c 48 19 |.. button% ...H.|
000053e0 20 c9 20 32 20 20 20 20 3a 20 72 65 73 70 6f 6e | . 2 : respon|
000053f0 73 65 25 3d 31 0d 1c 52 1a 20 c9 20 31 20 20 20 |se%=1..R. . 1 |
00005400 20 3a 20 72 65 73 70 6f 6e 73 65 25 3d 31 35 0d | : response%=15.|
00005410 1c 5c 21 20 c9 20 33 20 20 20 20 3a 20 72 65 73 |.\! . 3 : res|
00005420 70 6f 6e 73 65 25 3d 28 31 3c 3c 35 29 2b 31 36 |ponse%=(1<<5)+16|
00005430 0d 1c 66 21 20 c9 20 34 20 20 20 20 3a 20 72 65 |..f! . 4 : re|
00005440 73 70 6f 6e 73 65 25 3d 28 31 3c 3c 36 29 2b 31 |sponse%=(1<<6)+1|
00005450 36 0d 1c 70 14 7f 20 3a 20 72 65 73 70 6f 6e 73 |6..p.. : respons|
00005460 65 25 3d 31 36 0d 1c 7a 05 cb 0d 1c 84 3d c8 99 |e%=16..z.....=..|
00005470 20 22 57 69 6d 70 5f 52 65 70 6f 72 74 45 72 72 | "Wimp_ReportErr|
00005480 6f 72 22 2c 77 69 6d 70 25 2c 72 65 73 70 6f 6e |or",wimp%,respon|
00005490 73 65 25 2c 74 69 74 6c 65 24 20 b8 20 2c 72 65 |se%,title$ . ,re|
000054a0 73 70 6f 6e 73 65 25 0d 1c 8e 05 e1 0d 1c 98 05 |sponse%.........|
000054b0 3a 0d 1c a2 29 dd 20 a4 57 69 6d 70 5f 57 69 6e |:...). .Wimp_Win|
000054c0 64 6f 77 43 61 6e 63 65 6c 28 74 69 74 6c 65 24 |dowCancel(title$|
000054d0 2c 6d 65 73 73 61 67 65 24 29 0d 1c ac 17 24 28 |,message$)....$(|
000054e0 77 69 6d 70 25 2b 34 29 3d 6d 65 73 73 61 67 65 |wimp%+4)=message|
000054f0 24 0d 1c b6 10 72 65 73 70 6f 6e 73 65 25 3d 32 |$....response%=2|
00005500 33 0d 1c c0 3d c8 99 20 22 57 69 6d 70 5f 52 65 |3...=.. "Wimp_Re|
00005510 70 6f 72 74 45 72 72 6f 72 22 2c 77 69 6d 70 25 |portError",wimp%|
00005520 2c 72 65 73 70 6f 6e 73 65 25 2c 74 69 74 6c 65 |,response%,title|
00005530 24 20 b8 20 2c 72 65 73 70 6f 6e 73 65 25 0d 1c |$ . ,response%..|
00005540 ca 10 3d 72 65 73 70 6f 6e 73 65 25 2d 32 0d 1c |..=response%-2..|
00005550 d4 05 3a 0d 1c de 2b dd 20 f2 57 69 6d 70 5f 57 |..:...+. .Wimp_W|
00005560 69 6e 64 6f 77 45 72 72 6f 72 42 6f 78 28 74 69 |indowErrorBox(ti|
00005570 74 6c 65 24 2c 6d 65 73 73 61 67 65 24 29 0d 1c |tle$,message$)..|
00005580 e8 2b f2 57 69 6d 70 5f 57 69 6e 64 6f 77 41 6c |.+.Wimp_WindowAl|
00005590 65 72 74 42 6f 78 28 74 69 74 6c 65 24 2c 6d 65 |ertBox(title$,me|
000055a0 73 73 61 67 65 24 2c 32 29 0d 1c f2 05 e1 0d 1c |ssage$,2).......|
000055b0 fc 05 3a 0d 1d 06 20 dd 20 a4 57 69 6d 70 5f 57 |..:... . .Wimp_W|
000055c0 69 6e 64 6f 77 54 69 74 6c 65 28 77 69 6e 64 6f |indowTitle(windo|
000055d0 77 25 29 0d 1d 10 13 77 69 6d 70 25 21 30 3d 77 |w%)....wimp%!0=w|
000055e0 69 6e 64 6f 77 25 0d 1d 1a 22 c8 99 20 22 57 69 |indow%...".. "Wi|
000055f0 6d 70 5f 47 65 74 57 69 6e 64 6f 77 49 6e 66 6f |mp_GetWindowInfo|
00005600 22 2c 2c 77 69 6d 70 25 0d 1d 24 36 e7 20 28 28 |",,wimp%..$6. ((|
00005610 77 69 6d 70 25 21 36 30 29 80 26 31 30 30 29 3d |wimp%!60).&100)=|
00005620 30 20 85 20 31 2c 22 54 69 74 6c 65 20 69 73 6e |0 . 1,"Title isn|
00005630 27 74 20 69 6e 64 69 72 65 63 74 65 64 22 0d 1d |'t indirected"..|
00005640 2e 10 3d 24 28 77 69 6d 70 25 21 37 36 29 0d 1d |..=$(wimp%!76)..|
00005650 38 05 3a 0d 1d 42 1f dd 20 a4 57 69 6d 70 5f 57 |8.:..B.. .Wimp_W|
00005660 69 6e 64 6f 77 4c 6f 61 64 28 77 69 6e 64 6f 77 |indowLoad(window|
00005670 24 29 0d 1d 4c 39 3d a4 57 69 6d 70 5f 57 69 6e |$)..L9=.Wimp_Win|
00005680 64 6f 77 4c 6f 61 64 46 72 6f 6d 28 77 69 6e 64 |dowLoadFrom(wind|
00005690 6f 77 24 2c 22 3c 4f 62 65 79 24 44 69 72 3e 2e |ow$,"<Obey$Dir>.|
000056a0 54 65 6d 70 6c 61 74 65 73 22 29 0d 1d 56 05 3a |Templates")..V.:|
000056b0 0d 1d 60 2d dd 20 a4 57 69 6d 70 5f 57 69 6e 64 |..`-. .Wimp_Wind|
000056c0 6f 77 4c 6f 61 64 46 72 6f 6d 28 77 69 6e 64 6f |owLoadFrom(windo|
000056d0 77 24 2c 74 65 6d 70 6c 61 74 65 24 29 0d 1d 6a |w$,template$)..j|
000056e0 1a ea 20 63 25 2c 69 25 2c 6e 25 2c 6a 25 2c 73 |.. c%,i%,n%,j%,s|
000056f0 70 24 2c 73 70 32 24 0d 1d 74 25 c8 99 20 22 57 |p$,sp2$..t%.. "W|
00005700 69 6d 70 5f 4f 70 65 6e 54 65 6d 70 6c 61 74 65 |imp_OpenTemplate|
00005710 22 2c 2c 74 65 6d 70 6c 61 74 65 24 0d 1d 7e 4d |",,template$..~M|
00005720 c8 99 20 22 57 69 6d 70 5f 4c 6f 61 64 54 65 6d |.. "Wimp_LoadTem|
00005730 70 6c 61 74 65 22 2c 2c 77 69 6d 70 25 2c 69 63 |plate",,wimp%,ic|
00005740 6f 6e 73 25 2c 69 63 6f 6e 5f 6d 65 6d 6f 72 79 |ons%,icon_memory|
00005750 25 2c 2d 31 2c 77 69 6e 64 6f 77 24 2c 30 20 b8 |%,-1,window$,0 .|
00005760 20 2c 2c 69 63 6f 6e 73 25 0d 1d 88 11 c8 8e 20 | ,,icons%...... |
00005770 73 70 72 69 74 65 73 25 20 ca 0d 1d 92 1f 20 c9 |sprites% ..... .|
00005780 20 31 20 20 20 20 3a 20 77 69 6d 70 25 21 36 34 | 1 : wimp%!64|
00005790 3d 73 70 72 69 74 65 73 25 0d 1d 9c 29 20 7f 20 |=sprites%...) . |
000057a0 3a 20 77 69 6d 70 25 21 36 34 3d a4 45 76 65 6e |: wimp%!64=.Even|
000057b0 74 5f 53 70 72 69 74 65 73 28 77 69 6e 64 6f 77 |t_Sprites(window|
000057c0 25 29 0d 1d a6 05 cb 0d 1d b0 26 c8 99 20 22 57 |%)........&.. "W|
000057d0 69 6d 70 5f 43 72 65 61 74 65 57 69 6e 64 6f 77 |imp_CreateWindow|
000057e0 22 2c 2c 77 69 6d 70 25 20 b8 20 63 25 0d 1d ba |",,wimp% . c%...|
000057f0 1b c8 99 20 22 57 69 6d 70 5f 43 6c 6f 73 65 54 |... "Wimp_CloseT|
00005800 65 6d 70 6c 61 74 65 22 0d 1d c4 37 c8 99 20 22 |emplate"...7.. "|
00005810 57 69 6d 70 5f 57 68 69 63 68 49 63 6f 6e 22 2c |Wimp_WhichIcon",|
00005820 63 25 2c 77 69 6d 70 25 2b 34 30 2c 31 2b 32 2b |c%,wimp%+40,1+2+|
00005830 28 31 3c 3c 38 29 2c 32 2b 28 31 3c 3c 38 29 0d |(1<<8),2+(1<<8).|
00005840 1d ce 11 c8 8e 20 77 69 6d 70 25 21 34 30 20 ca |..... wimp%!40 .|
00005850 0d 1d d8 0d 20 c9 20 2d 31 20 20 20 3a 0d 1d e2 |.... . -1 :...|
00005860 0e 20 7f 20 3a 20 69 25 3d 34 30 0d 1d ec 06 20 |. . : i%=40.... |
00005870 f5 0d 1d f6 24 20 20 20 77 69 6d 70 25 21 34 3d |....$ wimp%!4=|
00005880 77 69 6d 70 25 21 69 25 20 3a 20 77 69 6d 70 25 |wimp%!i% : wimp%|
00005890 21 30 3d 63 25 0d 1e 00 24 20 20 20 c8 99 20 22 |!0=c%...$ .. "|
000058a0 57 69 6d 70 5f 47 65 74 49 63 6f 6e 53 74 61 74 |Wimp_GetIconStat|
000058b0 65 22 2c 2c 77 69 6d 70 25 0d 1e 0a 2d 20 20 20 |e",,wimp%...- |
000058c0 73 70 24 3d a4 57 69 6d 70 5f 47 65 74 53 74 72 |sp$=.Wimp_GetStr|
000058d0 69 6e 67 41 74 41 64 64 72 65 73 73 28 77 69 6d |ingAtAddress(wim|
000058e0 70 25 21 32 38 29 0d 1e 14 22 20 20 20 c8 99 20 |p%!28)..." .. |
000058f0 22 57 69 6d 70 5f 44 65 6c 65 74 65 49 63 6f 6e |"Wimp_DeleteIcon|
00005900 22 2c 2c 77 69 6d 70 25 0d 1e 1e 14 20 20 20 c8 |",,wimp%.... .|
00005910 8e 20 73 70 72 69 74 65 73 25 20 ca 0d 1e 28 1b |. sprites% ...(.|
00005920 20 20 20 20 c9 20 31 20 20 20 20 3a 20 77 69 6d | . 1 : wim|
00005930 70 25 21 33 32 3d 31 0d 1e 32 0b 20 20 20 20 7f |p%!32=1..2. .|
00005940 20 3a 0d 1e 3c 2f 20 20 20 20 20 c8 99 20 22 4f | :..</ .. "O|
00005950 53 5f 53 70 72 69 74 65 4f 70 22 2c 26 31 30 38 |S_SpriteOp",&108|
00005960 2c 73 70 72 69 74 65 73 25 20 b8 20 2c 2c 2c 6e |,sprites% . ,,,n|
00005970 25 0d 1e 46 0d 20 20 20 20 20 6a 25 3d 30 0d 1e |%..F. j%=0..|
00005980 50 12 20 20 20 20 20 f5 20 3a 20 6a 25 2b 3d 31 |P. . : j%+=1|
00005990 0d 1e 5a 3d 20 20 20 20 20 20 c8 99 20 22 4f 53 |..Z= .. "OS|
000059a0 5f 53 70 72 69 74 65 4f 70 22 2c 26 31 30 44 2c |_SpriteOp",&10D,|
000059b0 73 70 72 69 74 65 73 25 2c 70 6f 69 6e 74 65 72 |sprites%,pointer|
000059c0 5f 62 6c 6f 63 6b 25 2c 32 30 2c 6a 25 0d 1e 64 |_block%,20,j%..d|
000059d0 37 20 20 20 20 20 20 73 70 32 24 3d a4 57 69 6d |7 sp2$=.Wim|
000059e0 70 5f 47 65 74 53 74 72 69 6e 67 41 74 41 64 64 |p_GetStringAtAdd|
000059f0 72 65 73 73 28 70 6f 69 6e 74 65 72 5f 62 6c 6f |ress(pointer_blo|
00005a00 63 6b 25 29 0d 1e 6e 1b 20 20 20 20 20 fd 20 6a |ck%)..n. . j|
00005a10 25 3d 6e 25 20 84 20 73 70 24 3d 73 70 32 24 0d |%=n% . sp$=sp2$.|
00005a20 1e 78 34 20 20 20 20 20 e7 20 73 70 24 3d 73 70 |.x4 . sp$=sp|
00005a30 32 24 20 8c 20 77 69 6d 70 25 21 33 32 3d 73 70 |2$ . wimp%!32=sp|
00005a40 72 69 74 65 73 25 20 8b 20 77 69 6d 70 25 21 33 |rites% . wimp%!3|
00005a50 32 3d 31 0d 1e 82 08 20 20 20 cb 0d 1e 8c 11 20 |2=1.... ..... |
00005a60 20 20 77 69 6d 70 25 21 34 3d 63 25 0d 1e 96 2e | wimp%!4=c%....|
00005a70 20 20 20 c8 99 20 22 57 69 6d 70 5f 43 72 65 61 | .. "Wimp_Crea|
00005a80 74 65 49 63 6f 6e 22 2c 2c 77 69 6d 70 25 2b 34 |teIcon",,wimp%+4|
00005a90 20 b8 20 68 61 6e 64 6c 65 25 0d 1e a0 0c 20 20 | . handle%.... |
00005aa0 20 69 25 2b 3d 34 0d 1e aa 14 20 fd 20 28 77 69 | i%+=4.... . (wi|
00005ab0 6d 70 25 21 69 25 29 3d 2d 31 0d 1e b4 05 cb 0d |mp%!i%)=-1......|
00005ac0 1e be 07 3d 63 25 0d 1e c8 05 3a 0d 1e d2 1f dd |...=c%....:.....|
00005ad0 20 f2 57 69 6d 70 5f 57 69 6e 64 6f 77 4f 70 65 | .Wimp_WindowOpe|
00005ae0 6e 28 77 69 6e 64 6f 77 25 29 0d 1e dc 12 21 77 |n(window%)....!w|
00005af0 69 6d 70 25 3d 77 69 6e 64 6f 77 25 0d 1e e6 23 |imp%=window%...#|
00005b00 c8 99 20 22 57 69 6d 70 5f 47 65 74 57 69 6e 64 |.. "Wimp_GetWind|
00005b10 6f 77 53 74 61 74 65 22 2c 2c 77 69 6d 70 25 0d |owState",,wimp%.|
00005b20 1e f0 0c f2 62 6f 74 6f 70 65 6e 0d 1e fa 1f c8 |....botopen.....|
00005b30 99 20 22 57 69 6d 70 5f 4f 70 65 6e 57 69 6e 64 |. "Wimp_OpenWind|
00005b40 6f 77 22 2c 2c 77 69 6d 70 25 0d 1f 04 05 e1 0d |ow",,wimp%......|
00005b50 1f 0e 05 3a 0d 1f 18 25 dd 20 f2 57 69 6d 70 5f |...:...%. .Wimp_|
00005b60 57 69 6e 64 6f 77 42 72 69 6e 67 54 6f 54 6f 70 |WindowBringToTop|
00005b70 28 77 69 6e 64 6f 77 25 29 0d 1f 22 12 21 77 69 |(window%)..".!wi|
00005b80 6d 70 25 3d 77 69 6e 64 6f 77 25 0d 1f 2c 23 c8 |mp%=window%..,#.|
00005b90 99 20 22 57 69 6d 70 5f 47 65 74 57 69 6e 64 6f |. "Wimp_GetWindo|
00005ba0 77 53 74 61 74 65 22 2c 2c 77 69 6d 70 25 0d 1f |wState",,wimp%..|
00005bb0 36 0f 77 69 6d 70 25 21 32 38 3d 2d 31 0d 1f 40 |6.wimp%!28=-1..@|
00005bc0 0c f2 62 6f 74 6f 70 65 6e 0d 1f 4a 1f c8 99 20 |..botopen..J... |
00005bd0 22 57 69 6d 70 5f 4f 70 65 6e 57 69 6e 64 6f 77 |"Wimp_OpenWindow|
00005be0 22 2c 2c 77 69 6d 70 25 0d 1f 54 05 e1 0d 1f 5e |",,wimp%..T....^|
00005bf0 05 3a 0d 1f 68 20 dd 20 f2 57 69 6d 70 5f 57 69 |.:..h . .Wimp_Wi|
00005c00 6e 64 6f 77 43 6c 6f 73 65 28 77 69 6e 64 6f 77 |ndowClose(window|
00005c10 25 29 0d 1f 72 12 21 77 69 6d 70 25 3d 77 69 6e |%)..r.!wimp%=win|
00005c20 64 6f 77 25 0d 1f 7c 20 c8 99 20 22 57 69 6d 70 |dow%..| .. "Wimp|
00005c30 5f 43 6c 6f 73 65 57 69 6e 64 6f 77 22 2c 2c 77 |_CloseWindow",,w|
00005c40 69 6d 70 25 0d 1f 86 05 e1 0d 1f 90 05 3a 0d 1f |imp%.........:..|
00005c50 9a 24 dd 20 f2 57 69 6d 70 5f 57 69 6e 64 6f 77 |.$. .Wimp_Window|
00005c60 46 6f 72 63 65 44 72 61 77 28 77 69 6e 64 6f 77 |ForceDraw(window|
00005c70 25 29 0d 1f a4 10 c8 8e 20 77 69 6e 64 6f 77 25 |%)...... window%|
00005c80 20 ca 0d 1f ae 38 20 c9 20 2d 31 20 20 20 3a 20 | ....8 . -1 : |
00005c90 c8 99 20 22 57 69 6d 70 5f 46 6f 72 63 65 52 65 |.. "Wimp_ForceRe|
00005ca0 64 72 61 77 22 2c 2d 31 2c 30 2c 30 2c 32 2a 31 |draw",-1,0,0,2*1|
00005cb0 32 38 30 2c 32 2a 31 30 32 34 0d 1f b8 39 20 7f |280,2*1024...9 .|
00005cc0 20 3a 20 c8 99 20 22 57 69 6d 70 5f 46 6f 72 63 | : .. "Wimp_Forc|
00005cd0 65 52 65 64 72 61 77 22 2c 77 69 6e 64 6f 77 25 |eRedraw",window%|
00005ce0 2c 30 2c 2d 32 2a 31 30 32 34 2c 32 2a 31 32 38 |,0,-2*1024,2*128|
00005cf0 30 2c 30 0d 1f c2 05 cb 0d 1f cc 05 e1 0d 1f d6 |0,0.............|
00005d00 05 3a 0d 1f e0 19 f2 57 69 6d 70 5f 57 69 6e 64 |.:.....Wimp_Wind|
00005d10 6f 77 49 6e 74 65 72 66 61 63 65 0d 1f ea 20 c8 |owInterface... .|
00005d20 99 22 57 69 6d 70 5f 42 6f 72 64 65 72 57 69 6e |."Wimp_BorderWin|
00005d30 64 6f 77 22 2c 2c 77 69 6d 70 25 0d 1f f4 05 e1 |dow",,wimp%.....|
00005d40 0d 1f fe 05 3a 0d 20 08 47 f4 20 2a 2a 2a 2a 2a |....:. .G. *****|
00005d50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
*
00005d80 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 20 12 05 |************. ..|
00005d90 3a 0d 20 1c 25 dd 20 f2 57 69 6d 70 5f 49 63 6f |:. .%. .Wimp_Ico|
00005da0 6e 55 70 64 61 74 65 28 77 69 6e 64 6f 77 25 2c |nUpdate(window%,|
00005db0 69 63 6f 6e 25 29 0d 20 26 13 77 69 6d 70 25 21 |icon%). &.wimp%!|
00005dc0 30 3d 77 69 6e 64 6f 77 25 0d 20 30 11 77 69 6d |0=window%. 0.wim|
00005dd0 70 25 21 34 3d 69 63 6f 6e 25 0d 20 3a 0d 77 69 |p%!4=icon%. :.wi|
00005de0 6d 70 25 21 38 3d 30 0d 20 44 0e 77 69 6d 70 25 |mp%!8=0. D.wimp%|
00005df0 21 31 32 3d 30 0d 20 4e 21 c8 99 20 22 57 69 6d |!12=0. N!.. "Wim|
00005e00 70 5f 53 65 74 49 63 6f 6e 53 74 61 74 65 22 2c |p_SetIconState",|
00005e10 2c 77 69 6d 70 25 0d 20 58 05 e1 0d 20 62 05 3a |,wimp%. X... b.:|
00005e20 0d 20 6c 3b dd 20 f2 57 69 6d 70 5f 53 65 74 42 |. l;. .Wimp_SetB|
00005e30 61 72 28 77 69 6e 25 2c 64 72 61 67 69 63 6f 6e |ar(win%,dragicon|
00005e40 25 2c 73 69 7a 65 69 63 6f 6e 25 2c 72 61 6e 67 |%,sizeicon%,rang|
00005e50 65 25 2c 6e 75 6d 62 65 72 25 29 0d 20 76 1b e7 |e%,number%). v..|
00005e60 20 6e 75 6d 62 65 72 25 3c 30 20 8c 20 6e 75 6d | number%<0 . num|
00005e70 62 65 72 25 3d 30 0d 20 80 25 e7 20 6e 75 6d 62 |ber%=0. .%. numb|
00005e80 65 72 25 3e 72 61 6e 67 65 25 20 8c 20 6e 75 6d |er%>range% . num|
00005e90 62 65 72 25 3d 72 61 6e 67 65 25 0d 20 8a 10 77 |ber%=range%. ..w|
00005ea0 69 6d 70 25 21 30 3d 77 69 6e 25 0d 20 94 15 77 |imp%!0=win%. ..w|
00005eb0 69 6d 70 25 21 34 3d 73 69 7a 65 69 63 6f 6e 25 |imp%!4=sizeicon%|
00005ec0 0d 20 9e 21 c8 99 20 22 57 69 6d 70 5f 47 65 74 |. .!.. "Wimp_Get|
00005ed0 49 63 6f 6e 53 74 61 74 65 22 2c 2c 77 69 6d 70 |IconState",,wimp|
00005ee0 25 0d 20 a8 15 73 69 7a 65 6d 69 6e 78 25 3d 77 |%. ..sizeminx%=w|
00005ef0 69 6d 70 25 21 38 0d 20 b2 16 73 69 7a 65 6d 69 |imp%!8. ..sizemi|
00005f00 6e 79 25 3d 77 69 6d 70 25 21 31 32 0d 20 bc 16 |ny%=wimp%!12. ..|
00005f10 73 69 7a 65 6d 61 78 78 25 3d 77 69 6d 70 25 21 |sizemaxx%=wimp%!|
00005f20 31 36 0d 20 c6 16 73 69 7a 65 6d 61 78 79 25 3d |16. ..sizemaxy%=|
00005f30 77 69 6d 70 25 21 32 30 0d 20 d0 3c 6e 65 77 78 |wimp%!20. .<newx|
00005f40 25 3d 73 69 7a 65 6d 69 6e 78 25 2b 28 6e 75 6d |%=sizeminx%+(num|
00005f50 62 65 72 25 2f 28 72 61 6e 67 65 25 2f 28 73 69 |ber%/(range%/(si|
00005f60 7a 65 6d 61 78 78 25 2d 73 69 7a 65 6d 69 6e 78 |zemaxx%-sizeminx|
00005f70 25 29 29 29 0d 20 da 18 e7 20 6e 65 77 78 25 3c |%))). ... newx%<|
00005f80 3e 6f 6c 64 77 6f 72 6b 78 25 20 8c 0d 20 e4 10 |>oldworkx% .. ..|
00005f90 77 69 6d 70 25 21 30 3d 77 69 6e 25 0d 20 ee 15 |wimp%!0=win%. ..|
00005fa0 77 69 6d 70 25 21 34 3d 64 72 61 67 69 63 6f 6e |wimp%!4=dragicon|
00005fb0 25 0d 20 f8 21 c8 99 20 22 57 69 6d 70 5f 47 65 |%. .!.. "Wimp_Ge|
00005fc0 74 49 63 6f 6e 53 74 61 74 65 22 2c 2c 77 69 6d |tIconState",,wim|
00005fd0 70 25 0d 21 02 12 77 69 6d 70 25 21 31 36 3d 6e |p%.!..wimp%!16=n|
00005fe0 65 77 78 25 0d 21 0c 10 77 69 6d 70 25 21 30 3d |ewx%.!..wimp%!0=|
00005ff0 77 69 6e 25 0d 21 16 15 77 69 6d 70 25 21 34 3d |win%.!..wimp%!4=|
00006000 64 72 61 67 69 63 6f 6e 25 0d 21 20 1f c8 99 20 |dragicon%.! ... |
00006010 22 57 69 6d 70 5f 44 65 6c 65 74 65 49 63 6f 6e |"Wimp_DeleteIcon|
00006020 22 2c 2c 77 69 6d 70 25 0d 21 2a 10 77 69 6d 70 |",,wimp%.!*.wimp|
00006030 25 21 34 3d 77 69 6e 25 0d 21 34 21 c8 99 20 22 |%!4=win%.!4!.. "|
00006040 57 69 6d 70 5f 43 72 65 61 74 65 49 63 6f 6e 22 |Wimp_CreateIcon"|
00006050 2c 2c 77 69 6d 70 25 2b 34 0d 21 3e 14 6e 65 77 |,,wimp%+4.!>.new|
00006060 77 69 6d 70 25 3d 77 69 6d 70 25 2b 34 0d 21 48 |wimp%=wimp%+4.!H|
00006070 17 e7 20 6f 6c 64 77 6f 72 6b 78 25 3c 6e 65 77 |.. oldworkx%<new|
00006080 78 25 20 8c 0d 21 52 18 6e 65 77 77 69 6d 70 25 |x% ..!R.newwimp%|
00006090 21 34 3d 73 69 7a 65 6d 69 6e 78 25 0d 21 5c 05 |!4=sizeminx%.!\.|
000060a0 cc 0d 21 66 14 6e 65 77 77 69 6d 70 25 21 34 3d |..!f.newwimp%!4=|
000060b0 6e 65 77 78 25 0d 21 70 05 cd 0d 21 7a 18 6e 65 |newx%.!p...!z.ne|
000060c0 77 77 69 6d 70 25 21 38 3d 73 69 7a 65 6d 69 6e |wwimp%!8=sizemin|
000060d0 79 25 0d 21 84 17 e7 20 6f 6c 64 77 6f 72 6b 78 |y%.!... oldworkx|
000060e0 25 3c 6e 65 77 78 25 20 8c 0d 21 8e 15 6e 65 77 |%<newx% ..!..new|
000060f0 77 69 6d 70 25 21 31 32 3d 6e 65 77 78 25 0d 21 |wimp%!12=newx%.!|
00006100 98 05 cc 0d 21 a2 19 6e 65 77 77 69 6d 70 25 21 |....!..newwimp%!|
00006110 31 32 3d 73 69 7a 65 6d 61 78 78 25 0d 21 ac 05 |12=sizemaxx%.!..|
00006120 cd 0d 21 b6 19 6e 65 77 77 69 6d 70 25 21 31 36 |..!..newwimp%!16|
00006130 3d 73 69 7a 65 6d 61 78 79 25 0d 21 c0 2b c8 99 |=sizemaxy%.!.+..|
00006140 20 22 57 69 6d 70 5f 55 70 64 61 74 65 57 69 6e | "Wimp_UpdateWin|
00006150 64 6f 77 22 2c 2c 6e 65 77 77 69 6d 70 25 20 b8 |dow",,newwimp% .|
00006160 20 66 6c 61 67 0d 21 ca 0b c8 95 20 66 6c 61 67 | flag.!.... flag|
00006170 0d 21 d4 2b c8 99 20 22 57 69 6d 70 5f 47 65 74 |.!.+.. "Wimp_Get|
00006180 52 65 63 74 61 6e 67 6c 65 22 2c 2c 6e 65 77 77 |Rectangle",,neww|
00006190 69 6d 70 25 20 b8 20 66 6c 61 67 0d 21 de 05 ce |imp% . flag.!...|
000061a0 0d 21 e8 13 6f 6c 64 77 6f 72 6b 78 25 3d 6e 65 |.!..oldworkx%=ne|
000061b0 77 78 25 0d 21 f2 05 cd 0d 21 fc 05 e1 0d 22 06 |wx%.!....!....".|
000061c0 05 3a 0d 22 10 3c dd 20 a4 57 69 6d 70 5f 49 63 |.:.".<. .Wimp_Ic|
000061d0 6f 6e 47 65 74 42 61 72 56 61 6c 75 65 28 77 69 |onGetBarValue(wi|
000061e0 6e 25 2c 64 72 61 67 69 63 6f 6e 25 2c 73 69 7a |n%,dragicon%,siz|
000061f0 65 69 63 6f 6e 25 2c 72 61 6e 67 65 25 29 0d 22 |eicon%,range%)."|
00006200 1a 10 77 69 6d 70 25 21 30 3d 77 69 6e 25 0d 22 |..wimp%!0=win%."|
00006210 24 15 77 69 6d 70 25 21 34 3d 73 69 7a 65 69 63 |$.wimp%!4=sizeic|
00006220 6f 6e 25 0d 22 2e 21 c8 99 20 22 57 69 6d 70 5f |on%.".!.. "Wimp_|
00006230 47 65 74 49 63 6f 6e 53 74 61 74 65 22 2c 2c 77 |GetIconState",,w|
00006240 69 6d 70 25 0d 22 38 15 73 69 7a 65 6d 69 6e 78 |imp%."8.sizeminx|
00006250 25 3d 77 69 6d 70 25 21 38 0d 22 42 16 73 69 7a |%=wimp%!8."B.siz|
00006260 65 6d 61 78 78 25 3d 77 69 6d 70 25 21 31 36 0d |emaxx%=wimp%!16.|
00006270 22 4c 10 77 69 6d 70 25 21 30 3d 77 69 6e 25 0d |"L.wimp%!0=win%.|
00006280 22 56 15 77 69 6d 70 25 21 34 3d 64 72 61 67 69 |"V.wimp%!4=dragi|
00006290 63 6f 6e 25 0d 22 60 21 c8 99 20 22 57 69 6d 70 |con%."`!.. "Wimp|
000062a0 5f 47 65 74 49 63 6f 6e 53 74 61 74 65 22 2c 2c |_GetIconState",,|
000062b0 77 69 6d 70 25 0d 22 6a 36 3d 28 72 61 6e 67 65 |wimp%."j6=(range|
000062c0 25 2f 28 73 69 7a 65 6d 61 78 78 25 2d 73 69 7a |%/(sizemaxx%-siz|
000062d0 65 6d 69 6e 78 25 29 29 2a 28 77 69 6d 70 25 21 |eminx%))*(wimp%!|
000062e0 31 36 2d 77 69 6d 70 25 21 38 29 0d 22 74 05 3a |16-wimp%!8)."t.:|
000062f0 0d 22 7e 38 dd 20 f2 57 69 6d 70 5f 49 63 6f 6e |."~8. .Wimp_Icon|
00006300 44 72 61 67 53 6c 69 64 65 72 49 63 6f 6e 28 77 |DragSliderIcon(w|
00006310 69 6e 25 2c 64 72 61 67 69 63 6f 6e 25 2c 73 69 |in%,dragicon%,si|
00006320 7a 65 69 63 6f 6e 25 29 0d 22 88 10 77 69 6d 70 |zeicon%)."..wimp|
00006330 25 21 30 3d 77 69 6e 25 0d 22 92 15 77 69 6d 70 |%!0=win%."..wimp|
00006340 25 21 34 3d 73 69 7a 65 69 63 6f 6e 25 0d 22 9c |%!4=sizeicon%.".|
00006350 21 c8 99 20 22 57 69 6d 70 5f 47 65 74 49 63 6f |!.. "Wimp_GetIco|
00006360 6e 53 74 61 74 65 22 2c 2c 77 69 6d 70 25 0d 22 |nState",,wimp%."|
00006370 a6 12 73 6d 69 6e 78 25 3d 77 69 6d 70 25 21 38 |..sminx%=wimp%!8|
00006380 0d 22 b0 13 73 6d 69 6e 79 25 3d 77 69 6d 70 25 |."..sminy%=wimp%|
00006390 21 31 32 0d 22 ba 13 73 6d 61 78 78 25 3d 77 69 |!12."..smaxx%=wi|
000063a0 6d 70 25 21 31 36 0d 22 c4 13 73 6d 61 78 79 25 |mp%!16."..smaxy%|
000063b0 3d 77 69 6d 70 25 21 32 30 0d 22 ce 23 c8 99 20 |=wimp%!20.".#.. |
000063c0 22 57 69 6d 70 5f 47 65 74 50 6f 69 6e 74 65 72 |"Wimp_GetPointer|
000063d0 49 6e 66 6f 22 2c 2c 77 69 6d 70 25 0d 22 d8 0f |Info",,wimp%."..|
000063e0 6d 78 25 3d 77 69 6d 70 25 21 30 0d 22 e2 10 77 |mx%=wimp%!0."..w|
000063f0 69 6d 70 25 21 30 3d 77 69 6e 25 0d 22 ec 22 c8 |imp%!0=win%.".".|
00006400 99 20 22 57 69 6d 70 5f 47 65 74 57 69 6e 64 6f |. "Wimp_GetWindo|
00006410 77 49 6e 66 6f 22 2c 2c 77 69 6d 70 25 0d 22 f6 |wInfo",,wimp%.".|
00006420 2c 63 61 6c 63 78 25 3d 28 6d 78 25 2d 28 77 69 |,calcx%=(mx%-(wi|
00006430 6d 70 25 21 34 2d 77 69 6d 70 25 21 32 30 29 29 |mp%!4-wimp%!20))|
00006440 2b 77 69 6d 70 25 21 34 34 0d 23 00 27 69 63 6f |+wimp%!44.#.'ico|
00006450 6e 6d 69 6e 78 25 3d 73 6d 69 6e 78 25 2b 28 77 |nminx%=sminx%+(w|
00006460 69 6d 70 25 21 34 2d 77 69 6d 70 25 21 32 30 29 |imp%!4-wimp%!20)|
00006470 0d 23 0a 27 69 63 6f 6e 6d 61 78 78 25 3d 69 63 |.#.'iconmaxx%=ic|
00006480 6f 6e 6d 69 6e 78 25 2b 28 73 6d 61 78 78 25 2d |onminx%+(smaxx%-|
00006490 73 6d 69 6e 78 25 29 0d 23 14 28 69 63 6f 6e 6d |sminx%).#.(iconm|
000064a0 69 6e 79 25 3d 73 6d 69 6e 79 25 2b 28 77 69 6d |iny%=sminy%+(wim|
000064b0 70 25 21 31 36 2d 77 69 6d 70 25 21 32 34 29 0d |p%!16-wimp%!24).|
000064c0 23 1e 29 69 63 6f 6e 6d 61 78 79 25 3d 69 63 6f |#.)iconmaxy%=ico|
000064d0 6e 6d 69 6e 79 25 2b 28 73 6d 61 78 79 25 2d 73 |nminy%+(smaxy%-s|
000064e0 6d 69 6e 79 25 29 2d 34 0d 23 28 10 77 69 6d 70 |miny%)-4.#(.wimp|
000064f0 25 21 30 3d 77 69 6e 25 0d 23 32 0d 77 69 6d 70 |%!0=win%.#2.wimp|
00006500 25 21 34 3d 37 0d 23 3c 15 77 69 6d 70 25 21 38 |%!4=7.#<.wimp%!8|
00006510 3d 69 63 6f 6e 6d 69 6e 78 25 0d 23 46 16 77 69 |=iconminx%.#F.wi|
00006520 6d 70 25 21 31 32 3d 69 63 6f 6e 6d 69 6e 79 25 |mp%!12=iconminy%|
00006530 0d 23 50 16 77 69 6d 70 25 21 31 36 3d 69 63 6f |.#P.wimp%!16=ico|
00006540 6e 6d 61 78 78 25 0d 23 5a 16 77 69 6d 70 25 21 |nmaxx%.#Z.wimp%!|
00006550 32 30 3d 69 63 6f 6e 6d 61 78 79 25 0d 23 64 14 |20=iconmaxy%.#d.|
00006560 77 69 6d 70 25 21 32 34 3d 77 69 6d 70 25 21 38 |wimp%!24=wimp%!8|
00006570 0d 23 6e 15 77 69 6d 70 25 21 32 38 3d 77 69 6d |.#n.wimp%!28=wim|
00006580 70 25 21 31 32 0d 23 78 15 77 69 6d 70 25 21 33 |p%!12.#x.wimp%!3|
00006590 32 3d 77 69 6d 70 25 21 31 36 0d 23 82 15 77 69 |2=wimp%!16.#..wi|
000065a0 6d 70 25 21 33 36 3d 77 69 6d 70 25 21 32 30 0d |mp%!36=wimp%!20.|
000065b0 23 8c 1c c8 99 20 22 57 69 6d 70 5f 44 72 61 67 |#.... "Wimp_Drag|
000065c0 42 6f 78 22 2c 2c 77 69 6d 70 25 0d 23 96 15 73 |Box",,wimp%.#..s|
000065d0 6c 69 64 65 77 69 6e 64 6f 77 25 3d 77 69 6e 25 |lidewindow%=win%|
000065e0 0d 23 a0 18 73 6c 69 64 65 69 63 6f 6e 25 3d 64 |.#..slideicon%=d|
000065f0 72 61 67 69 63 6f 6e 25 0d 23 aa 18 73 6c 69 64 |ragicon%.#..slid|
00006600 65 73 69 7a 65 25 3d 73 69 7a 65 69 63 6f 6e 25 |esize%=sizeicon%|
00006610 0d 23 b4 10 77 69 6d 70 25 21 30 3d 77 69 6e 25 |.#..wimp%!0=win%|
00006620 0d 23 be 15 77 69 6d 70 25 21 34 3d 64 72 61 67 |.#..wimp%!4=drag|
00006630 69 63 6f 6e 25 0d 23 c8 21 c8 99 20 22 57 69 6d |icon%.#.!.. "Wim|
00006640 70 5f 47 65 74 49 63 6f 6e 53 74 61 74 65 22 2c |p_GetIconState",|
00006650 2c 77 69 6d 70 25 0d 23 d2 16 6f 6c 64 77 6f 72 |,wimp%.#..oldwor|
00006660 6b 78 25 3d 77 69 6d 70 25 21 31 36 0d 23 dc 05 |kx%=wimp%!16.#..|
00006670 e1 0d 23 e6 05 3a 0d 23 f0 3f dd 20 f2 57 69 6d |..#..:.#.?. .Wim|
00006680 70 5f 49 63 6f 6e 44 6f 53 6c 69 64 65 28 77 69 |p_IconDoSlide(wi|
00006690 6e 25 2c 64 72 61 67 69 63 6f 6e 25 2c 73 69 7a |n%,dragicon%,siz|
000066a0 65 69 63 6f 6e 25 2c 63 6f 6e 73 74 25 2c 72 61 |eicon%,const%,ra|
000066b0 6e 67 65 25 29 0d 23 fa 10 77 69 6d 70 25 21 30 |nge%).#..wimp%!0|
000066c0 3d 77 69 6e 25 0d 24 04 15 77 69 6d 70 25 21 34 |=win%.$..wimp%!4|
000066d0 3d 73 69 7a 65 69 63 6f 6e 25 0d 24 0e 21 c8 99 |=sizeicon%.$.!..|
000066e0 20 22 57 69 6d 70 5f 47 65 74 49 63 6f 6e 53 74 | "Wimp_GetIconSt|
000066f0 61 74 65 22 2c 2c 77 69 6d 70 25 0d 24 18 15 73 |ate",,wimp%.$..s|
00006700 69 7a 65 6d 69 6e 78 25 3d 77 69 6d 70 25 21 38 |izeminx%=wimp%!8|
00006710 0d 24 22 16 73 69 7a 65 6d 69 6e 79 25 3d 77 69 |.$".sizeminy%=wi|
00006720 6d 70 25 21 31 32 0d 24 2c 16 73 69 7a 65 6d 61 |mp%!12.$,.sizema|
00006730 78 78 25 3d 77 69 6d 70 25 21 31 36 0d 24 36 16 |xx%=wimp%!16.$6.|
00006740 73 69 7a 65 6d 61 78 79 25 3d 77 69 6d 70 25 21 |sizemaxy%=wimp%!|
00006750 32 30 0d 24 40 23 c8 99 20 22 57 69 6d 70 5f 47 |20.$@#.. "Wimp_G|
00006760 65 74 50 6f 69 6e 74 65 72 49 6e 66 6f 22 2c 2c |etPointerInfo",,|
00006770 77 69 6d 70 25 0d 24 4a 0f 6d 78 25 3d 77 69 6d |wimp%.$J.mx%=wim|
00006780 70 25 21 30 0d 24 54 10 77 69 6d 70 25 21 30 3d |p%!0.$T.wimp%!0=|
00006790 77 69 6e 25 0d 24 5e 22 c8 99 20 22 57 69 6d 70 |win%.$^".. "Wimp|
000067a0 5f 47 65 74 57 69 6e 64 6f 77 49 6e 66 6f 22 2c |_GetWindowInfo",|
000067b0 2c 77 69 6d 70 25 0d 24 68 11 6d 69 6e 78 25 3d |,wimp%.$h.minx%=|
000067c0 77 69 6d 70 25 21 34 0d 24 72 12 73 63 72 78 25 |wimp%!4.$r.scrx%|
000067d0 3d 77 69 6d 70 25 21 32 30 0d 24 7c 1b 6e 65 77 |=wimp%!20.$|.new|
000067e0 78 25 3d 6d 78 25 2b 28 73 63 72 78 25 2d 6d 69 |x%=mx%+(scrx%-mi|
000067f0 6e 78 25 29 0d 24 86 18 e7 20 6e 65 77 78 25 3c |nx%).$... newx%<|
00006800 3e 6f 6c 64 77 6f 72 6b 78 25 20 8c 0d 24 90 10 |>oldworkx% ..$..|
00006810 77 69 6d 70 25 21 30 3d 77 69 6e 25 0d 24 9a 15 |wimp%!0=win%.$..|
00006820 77 69 6d 70 25 21 34 3d 64 72 61 67 69 63 6f 6e |wimp%!4=dragicon|
00006830 25 0d 24 a4 21 c8 99 20 22 57 69 6d 70 5f 47 65 |%.$.!.. "Wimp_Ge|
00006840 74 49 63 6f 6e 53 74 61 74 65 22 2c 2c 77 69 6d |tIconState",,wim|
00006850 70 25 0d 24 ae 12 77 69 6d 70 25 21 31 36 3d 6e |p%.$..wimp%!16=n|
00006860 65 77 78 25 0d 24 b8 10 77 69 6d 70 25 21 30 3d |ewx%.$..wimp%!0=|
00006870 77 69 6e 25 0d 24 c2 15 77 69 6d 70 25 21 34 3d |win%.$..wimp%!4=|
00006880 64 72 61 67 69 63 6f 6e 25 0d 24 cc 1f c8 99 20 |dragicon%.$.... |
00006890 22 57 69 6d 70 5f 44 65 6c 65 74 65 49 63 6f 6e |"Wimp_DeleteIcon|
000068a0 22 2c 2c 77 69 6d 70 25 0d 24 d6 10 77 69 6d 70 |",,wimp%.$..wimp|
000068b0 25 21 34 3d 77 69 6e 25 0d 24 e0 21 c8 99 20 22 |%!4=win%.$.!.. "|
000068c0 57 69 6d 70 5f 43 72 65 61 74 65 49 63 6f 6e 22 |Wimp_CreateIcon"|
000068d0 2c 2c 77 69 6d 70 25 2b 34 0d 24 ea 14 6e 65 77 |,,wimp%+4.$..new|
000068e0 77 69 6d 70 25 3d 77 69 6d 70 25 2b 34 0d 24 f4 |wimp%=wimp%+4.$.|
000068f0 17 e7 20 6f 6c 64 77 6f 72 6b 78 25 3c 6e 65 77 |.. oldworkx%<new|
00006900 78 25 20 8c 0d 24 fe 18 6e 65 77 77 69 6d 70 25 |x% ..$..newwimp%|
00006910 21 34 3d 73 69 7a 65 6d 69 6e 78 25 0d 25 08 05 |!4=sizeminx%.%..|
00006920 cc 0d 25 12 14 6e 65 77 77 69 6d 70 25 21 34 3d |..%..newwimp%!4=|
00006930 6e 65 77 78 25 0d 25 1c 05 cd 0d 25 26 18 6e 65 |newx%.%....%&.ne|
00006940 77 77 69 6d 70 25 21 38 3d 73 69 7a 65 6d 69 6e |wwimp%!8=sizemin|
00006950 79 25 0d 25 30 17 e7 20 6f 6c 64 77 6f 72 6b 78 |y%.%0.. oldworkx|
00006960 25 3c 6e 65 77 78 25 20 8c 0d 25 3a 15 6e 65 77 |%<newx% ..%:.new|
00006970 77 69 6d 70 25 21 31 32 3d 6e 65 77 78 25 0d 25 |wimp%!12=newx%.%|
00006980 44 05 cc 0d 25 4e 19 6e 65 77 77 69 6d 70 25 21 |D...%N.newwimp%!|
00006990 31 32 3d 73 69 7a 65 6d 61 78 78 25 0d 25 58 05 |12=sizemaxx%.%X.|
000069a0 cd 0d 25 62 19 6e 65 77 77 69 6d 70 25 21 31 36 |..%b.newwimp%!16|
000069b0 3d 73 69 7a 65 6d 61 78 79 25 0d 25 6c 2b c8 99 |=sizemaxy%.%l+..|
000069c0 20 22 57 69 6d 70 5f 55 70 64 61 74 65 57 69 6e | "Wimp_UpdateWin|
000069d0 64 6f 77 22 2c 2c 6e 65 77 77 69 6d 70 25 20 b8 |dow",,newwimp% .|
000069e0 20 66 6c 61 67 0d 25 76 0b c8 95 20 66 6c 61 67 | flag.%v... flag|
000069f0 0d 25 80 2b c8 99 20 22 57 69 6d 70 5f 47 65 74 |.%.+.. "Wimp_Get|
00006a00 52 65 63 74 61 6e 67 6c 65 22 2c 2c 6e 65 77 77 |Rectangle",,neww|
00006a10 69 6d 70 25 20 b8 20 66 6c 61 67 0d 25 8a 05 ce |imp% . flag.%...|
00006a20 0d 25 94 0e e7 20 63 6f 6e 73 74 25 20 8c 0d 25 |.%... const% ..%|
00006a30 9e 1d 73 69 7a 65 25 3d 73 69 7a 65 6d 61 78 78 |..size%=sizemaxx|
00006a40 25 2d 73 69 7a 65 6d 69 6e 78 25 0d 25 a8 1f 70 |%-sizeminx%.%..p|
00006a50 70 6f 73 25 3d 28 6f 6c 64 77 6f 72 6b 78 25 2d |pos%=(oldworkx%-|
00006a60 73 69 7a 65 6d 69 6e 78 25 29 0d 25 b2 20 6e 75 |sizeminx%).%. nu|
00006a70 6d 62 65 72 25 3d 28 72 61 6e 67 65 25 2f 73 69 |mber%=(range%/si|
00006a80 7a 65 25 29 2a 70 70 6f 73 25 0d 25 bc 05 3a 0d |ze%)*ppos%.%..:.|
00006a90 25 c6 13 c8 8e 20 73 6c 69 64 65 69 63 6f 6e 25 |%.... slideicon%|
00006aa0 20 ca 0d 25 d0 07 c9 20 32 0d 25 da 2f f4 50 52 | ..%... 2.%./.PR|
00006ab0 4f 43 69 63 6f 6e 70 75 74 74 65 78 74 28 6d 61 |OCiconputtext(ma|
00006ac0 69 6e 25 2c 33 2c 53 54 52 24 28 6e 75 6d 62 65 |in%,3,STR$(numbe|
00006ad0 72 25 29 2b 22 25 22 29 0d 25 e4 05 cb 0d 25 ee |r%)+"%").%....%.|
00006ae0 05 cd 0d 25 f8 05 cd 0d 26 02 13 6f 6c 64 77 6f |...%....&..oldwo|
00006af0 72 6b 78 25 3d 6e 65 77 78 25 0d 26 0c 12 72 72 |rkx%=newx%.&..rr|
00006b00 61 6e 67 65 25 3d 72 61 6e 67 65 25 0d 26 16 05 |ange%=range%.&..|
00006b10 e1 0d 26 20 05 3a 0d 26 2a 30 dd 20 f2 57 69 6d |..& .:.&*0. .Wim|
00006b20 70 5f 53 65 74 49 63 6f 6e 53 70 72 69 74 65 28 |p_SetIconSprite(|
00006b30 77 69 6e 64 6f 77 25 2c 69 63 6f 6e 25 2c 73 70 |window%,icon%,sp|
00006b40 72 69 74 65 24 29 0d 26 34 13 77 69 6d 70 25 21 |rite$).&4.wimp%!|
00006b50 30 3d 77 69 6e 64 6f 77 25 0d 26 3e 11 77 69 6d |0=window%.&>.wim|
00006b60 70 25 21 34 3d 69 63 6f 6e 25 0d 26 48 21 c8 99 |p%!4=icon%.&H!..|
00006b70 20 22 57 69 6d 70 5f 47 65 74 49 63 6f 6e 53 74 | "Wimp_GetIconSt|
00006b80 61 74 65 22 2c 2c 77 69 6d 70 25 0d 26 52 19 24 |ate",,wimp%.&R.$|
00006b90 77 69 6d 70 25 21 33 32 3d 22 53 22 2b 73 70 72 |wimp%!32="S"+spr|
00006ba0 69 74 65 24 0d 26 5c 13 77 69 6d 70 25 21 30 3d |ite$.&\.wimp%!0=|
00006bb0 77 69 6e 64 6f 77 25 0d 26 66 0d 77 69 6d 70 25 |window%.&f.wimp%|
00006bc0 21 38 3d 30 0d 26 70 0e 77 69 6d 70 25 21 31 32 |!8=0.&p.wimp%!12|
00006bd0 3d 30 0d 26 7a 21 c8 99 20 22 57 69 6d 70 5f 53 |=0.&z!.. "Wimp_S|
00006be0 65 74 49 63 6f 6e 53 74 61 74 65 22 2c 2c 77 69 |etIconState",,wi|
00006bf0 6d 70 25 0d 26 84 05 e1 0d 26 8e 05 3a 0d 26 98 |mp%.&....&..:.&.|
00006c00 1c dd 20 a4 57 69 6d 70 5f 49 63 6f 6e 42 61 72 |.. .Wimp_IconBar|
00006c10 28 53 70 72 69 74 65 24 29 0d 26 a2 0b ea 20 69 |(Sprite$).&... i|
00006c20 63 6f 6e 25 0d 26 ac 0e 77 69 6d 70 25 21 30 3d |con%.&..wimp%!0=|
00006c30 2d 31 0d 26 b6 1d 77 69 6d 70 25 21 34 3d 30 20 |-1.&..wimp%!4=0 |
00006c40 20 20 20 20 3a 20 77 69 6d 70 25 21 38 3d 30 0d | : wimp%!8=0.|
00006c50 26 c0 1d 77 69 6d 70 25 21 31 32 3d 38 38 20 3a |&..wimp%!12=88 :|
00006c60 20 77 69 6d 70 25 21 31 36 3d 37 32 0d 26 ca 12 | wimp%!16=72.&..|
00006c70 77 69 6d 70 25 21 32 30 3d 26 33 30 30 32 0d 26 |wimp%!20=&3002.&|
00006c80 d4 17 24 28 77 69 6d 70 25 2b 32 34 29 3d 53 70 |..$(wimp%+24)=Sp|
00006c90 72 69 74 65 24 0d 26 de 27 c8 99 20 22 57 69 6d |rite$.&.'.. "Wim|
00006ca0 70 5f 43 72 65 61 74 65 49 63 6f 6e 22 2c 2c 77 |p_CreateIcon",,w|
00006cb0 69 6d 70 25 20 b8 20 69 63 6f 6e 25 0d 26 e8 0a |imp% . icon%.&..|
00006cc0 3d 69 63 6f 6e 25 0d 26 f2 05 3a 0d 26 fc 2b dd |=icon%.&..:.&.+.|
00006cd0 20 f2 57 69 6d 70 5f 49 63 6f 6e 43 61 72 65 74 | .Wimp_IconCaret|
00006ce0 28 77 69 6e 64 6f 77 25 2c 69 63 6f 6e 25 2c 63 |(window%,icon%,c|
00006cf0 68 61 72 73 25 29 0d 27 06 38 c8 99 20 22 57 69 |hars%).'.8.. "Wi|
00006d00 6d 70 5f 53 65 74 43 61 72 65 74 50 6f 73 69 74 |mp_SetCaretPosit|
00006d10 69 6f 6e 22 2c 77 69 6e 64 6f 77 25 2c 69 63 6f |ion",window%,ico|
00006d20 6e 25 2c 2c 2c 2d 31 2c 63 68 61 72 73 25 0d 27 |n%,,,-1,chars%.'|
00006d30 10 05 e1 0d 27 1a 05 3a 0d 27 24 23 dd 20 a4 57 |....'..:.'$#. .W|
00006d40 69 6d 70 5f 49 63 6f 6e 54 65 78 74 28 77 69 6e |imp_IconText(win|
00006d50 64 6f 77 25 2c 69 63 6f 6e 25 29 0d 27 2e 23 77 |dow%,icon%).'.#w|
00006d60 69 6d 70 25 21 30 3d 77 69 6e 64 6f 77 25 20 3a |imp%!0=window% :|
00006d70 20 77 69 6d 70 25 21 34 3d 69 63 6f 6e 25 0d 27 | wimp%!4=icon%.'|
00006d80 38 21 c8 99 20 22 57 69 6d 70 5f 47 65 74 49 63 |8!.. "Wimp_GetIc|
00006d90 6f 6e 53 74 61 74 65 22 2c 2c 77 69 6d 70 25 0d |onState",,wimp%.|
00006da0 27 42 37 e7 20 28 28 77 69 6d 70 25 21 32 34 29 |'B7. ((wimp%!24)|
00006db0 20 80 20 26 31 30 30 29 3d 30 20 85 20 31 2c 22 | . &100)=0 . 1,"|
00006dc0 49 63 6f 6e 20 69 73 6e 27 74 20 69 6e 64 69 72 |Icon isn't indir|
00006dd0 65 63 74 65 64 22 0d 27 4c 10 3d 24 28 77 69 6d |ected".'L.=$(wim|
00006de0 70 25 21 32 38 29 0d 27 56 05 3a 0d 27 60 29 dd |p%!28).'V.:.'`).|
00006df0 20 a4 57 69 6d 70 5f 49 63 6f 6e 56 61 6c 69 64 | .Wimp_IconValid|
00006e00 61 74 69 6f 6e 28 77 69 6e 64 6f 77 25 2c 69 63 |ation(window%,ic|
00006e10 6f 6e 25 29 0d 27 6a 23 77 69 6d 70 25 21 30 3d |on%).'j#wimp%!0=|
00006e20 77 69 6e 64 6f 77 25 20 3a 20 77 69 6d 70 25 21 |window% : wimp%!|
00006e30 34 3d 69 63 6f 6e 25 0d 27 74 21 c8 99 20 22 57 |4=icon%.'t!.. "W|
00006e40 69 6d 70 5f 47 65 74 49 63 6f 6e 53 74 61 74 65 |imp_GetIconState|
00006e50 22 2c 2c 77 69 6d 70 25 0d 27 7e 37 e7 20 28 28 |",,wimp%.'~7. ((|
00006e60 77 69 6d 70 25 21 32 34 29 20 80 20 26 31 30 30 |wimp%!24) . &100|
00006e70 29 3d 30 20 85 20 31 2c 22 49 63 6f 6e 20 69 73 |)=0 . 1,"Icon is|
00006e80 6e 27 74 20 69 6e 64 69 72 65 63 74 65 64 22 0d |n't indirected".|
00006e90 27 88 10 3d 24 28 77 69 6d 70 25 21 33 32 29 0d |'..=$(wimp%!32).|
00006ea0 27 92 05 3a 0d 27 9c 26 dd 20 f2 57 69 6d 70 5f |'..:.'.&. .Wimp_|
00006eb0 49 63 6f 6e 44 69 73 61 62 6c 65 28 77 69 6e 64 |IconDisable(wind|
00006ec0 6f 77 25 2c 69 63 6f 6e 25 29 0d 27 a6 23 77 69 |ow%,icon%).'.#wi|
00006ed0 6d 70 25 21 30 3d 77 69 6e 64 6f 77 25 20 3a 20 |mp%!0=window% : |
00006ee0 77 69 6d 70 25 21 34 3d 69 63 6f 6e 25 0d 27 b0 |wimp%!4=icon%.'.|
00006ef0 24 77 69 6d 70 25 21 38 3d 31 3c 3c 32 32 20 20 |$wimp%!8=1<<22 |
00006f00 20 3a 20 77 69 6d 70 25 21 31 32 3d 31 3c 3c 32 | : wimp%!12=1<<2|
00006f10 32 0d 27 ba 21 c8 99 20 22 57 69 6d 70 5f 53 65 |2.'.!.. "Wimp_Se|
00006f20 74 49 63 6f 6e 53 74 61 74 65 22 2c 2c 77 69 6d |tIconState",,wim|
00006f30 70 25 0d 27 c4 05 e1 0d 27 ce 05 3a 0d 27 d8 25 |p%.'....'..:.'.%|
00006f40 dd 20 f2 57 69 6d 70 5f 49 63 6f 6e 45 6e 61 62 |. .Wimp_IconEnab|
00006f50 6c 65 28 77 69 6e 64 6f 77 25 2c 69 63 6f 6e 25 |le(window%,icon%|
00006f60 29 0d 27 e2 23 77 69 6d 70 25 21 30 3d 77 69 6e |).'.#wimp%!0=win|
00006f70 64 6f 77 25 20 3a 20 77 69 6d 70 25 21 34 3d 69 |dow% : wimp%!4=i|
00006f80 63 6f 6e 25 0d 27 ec 24 77 69 6d 70 25 21 38 3d |con%.'.$wimp%!8=|
00006f90 30 20 20 20 20 20 20 20 3a 20 77 69 6d 70 25 21 |0 : wimp%!|
00006fa0 31 32 3d 31 3c 3c 32 32 0d 27 f6 21 c8 99 20 22 |12=1<<22.'.!.. "|
00006fb0 57 69 6d 70 5f 53 65 74 49 63 6f 6e 53 74 61 74 |Wimp_SetIconStat|
00006fc0 65 22 2c 2c 77 69 6d 70 25 0d 28 00 05 e1 0d 28 |e",,wimp%.(....(|
00006fd0 0a 05 3a 0d 28 14 30 dd 20 a4 57 69 6d 70 5f 49 |..:.(.0. .Wimp_I|
00006fe0 63 6f 6e 50 75 74 53 70 72 69 74 65 28 77 69 6e |conPutSprite(win|
00006ff0 64 6f 77 25 2c 69 63 6f 6e 25 2c 73 70 72 69 74 |dow%,icon%,sprit|
00007000 65 24 29 0d 28 1e 21 77 69 6d 70 25 21 30 3d 77 |e$).(.!wimp%!0=w|
00007010 69 6e 64 6f 77 25 3a 77 69 6d 70 25 21 34 3d 69 |indow%:wimp%!4=i|
00007020 63 6f 6e 25 0d 28 28 21 c8 99 20 22 57 69 6d 70 |con%.((!.. "Wimp|
00007030 5f 47 65 74 49 63 6f 6e 53 74 61 74 65 22 2c 2c |_GetIconState",,|
00007040 77 69 6d 70 25 0d 28 32 1f c8 99 20 22 57 69 6d |wimp%.(2... "Wim|
00007050 70 5f 44 65 6c 65 74 65 49 63 6f 6e 22 2c 2c 77 |p_DeleteIcon",,w|
00007060 69 6d 70 25 0d 28 3c 3d 77 69 6d 70 25 21 34 3d |imp%.(<=wimp%!4=|
00007070 77 69 6d 70 25 21 38 20 20 20 3a 20 77 69 6d 70 |wimp%!8 : wimp|
00007080 25 21 38 3d 77 69 6d 70 25 21 31 32 20 20 3a 20 |%!8=wimp%!12 : |
00007090 77 69 6d 70 25 21 31 32 3d 77 69 6d 70 25 21 31 |wimp%!12=wimp%!1|
000070a0 36 0d 28 46 3f 77 69 6d 70 25 21 31 36 3d 77 69 |6.(F?wimp%!16=wi|
000070b0 6d 70 25 21 32 30 20 3a 20 77 69 6d 70 25 21 32 |mp%!20 : wimp%!2|
000070c0 30 3d 77 69 6d 70 25 21 32 34 20 3a 20 24 28 77 |0=wimp%!24 : $(w|
000070d0 69 6d 70 25 2b 32 34 29 3d 73 70 72 69 74 65 24 |imp%+24)=sprite$|
000070e0 0d 28 50 27 c8 99 20 22 57 69 6d 70 5f 43 72 65 |.(P'.. "Wimp_Cre|
000070f0 61 74 65 49 63 6f 6e 22 2c 2c 77 69 6d 70 25 20 |ateIcon",,wimp% |
00007100 b8 20 69 63 6f 6e 25 0d 28 5a 0a 3d 69 63 6f 6e |. icon%.(Z.=icon|
00007110 25 0d 28 64 05 3a 0d 28 6e 2c dd 20 f2 57 69 6d |%.(d.:.(n,. .Wim|
00007120 70 5f 49 63 6f 6e 50 75 74 54 65 78 74 28 77 69 |p_IconPutText(wi|
00007130 6e 64 6f 77 25 2c 69 63 6f 6e 25 2c 74 65 78 74 |ndow%,icon%,text|
00007140 24 29 0d 28 78 23 77 69 6d 70 25 21 30 3d 77 69 |$).(x#wimp%!0=wi|
00007150 6e 64 6f 77 25 20 3a 20 77 69 6d 70 25 21 34 3d |ndow% : wimp%!4=|
00007160 69 63 6f 6e 25 0d 28 82 21 c8 99 20 22 57 69 6d |icon%.(.!.. "Wim|
00007170 70 5f 47 65 74 49 63 6f 6e 53 74 61 74 65 22 2c |p_GetIconState",|
00007180 2c 77 69 6d 70 25 0d 28 8c 37 e7 20 28 28 77 69 |,wimp%.(.7. ((wi|
00007190 6d 70 25 21 32 34 29 20 80 20 26 31 30 30 29 3d |mp%!24) . &100)=|
000071a0 30 20 85 20 31 2c 22 49 63 6f 6e 20 69 73 6e 27 |0 . 1,"Icon isn'|
000071b0 74 20 69 6e 64 69 72 65 63 74 65 64 22 0d 28 96 |t indirected".(.|
000071c0 15 24 28 77 69 6d 70 25 21 32 38 29 3d 74 65 78 |.$(wimp%!28)=tex|
000071d0 74 24 0d 28 a0 23 77 69 6d 70 25 21 30 3d 77 69 |t$.(.#wimp%!0=wi|
000071e0 6e 64 6f 77 25 20 3a 20 77 69 6d 70 25 21 34 3d |ndow% : wimp%!4=|
000071f0 69 63 6f 6e 25 0d 28 aa 1a 77 69 6d 70 25 21 38 |icon%.(..wimp%!8|
00007200 3d 30 20 3a 20 77 69 6d 70 25 21 31 32 3d 30 0d |=0 : wimp%!12=0.|
00007210 28 b4 21 c8 99 20 22 57 69 6d 70 5f 53 65 74 49 |(.!.. "Wimp_SetI|
00007220 63 6f 6e 53 74 61 74 65 22 2c 2c 77 69 6d 70 25 |conState",,wimp%|
00007230 0d 28 be 05 e1 0d 28 c8 05 3a 0d 28 d2 1e dd 20 |.(....(..:.(... |
00007240 f2 57 69 6d 70 5f 49 63 6f 6e 49 6e 74 65 72 66 |.Wimp_IconInterf|
00007250 61 63 65 53 74 61 72 74 0d 28 dc 1e c8 99 22 57 |aceStart.(...."W|
00007260 69 6d 70 5f 42 6f 72 64 65 72 49 63 6f 6e 22 2c |imp_BorderIcon",|
00007270 2c 77 69 6d 70 25 0d 28 e6 05 e1 0d 28 f0 05 3a |,wimp%.(....(..:|
00007280 0d 28 fa 1f dd 20 f2 57 69 6d 70 5f 49 63 6f 6e |.(... .Wimp_Icon|
00007290 49 6e 74 65 72 66 61 63 65 46 69 6e 69 73 68 0d |InterfaceFinish.|
000072a0 29 04 0d 77 69 6d 70 25 21 38 3d 30 0d 29 0e 1e |)..wimp%!8=0.)..|
000072b0 c8 99 22 57 69 6d 70 5f 42 6f 72 64 65 72 49 63 |.."Wimp_BorderIc|
000072c0 6f 6e 22 2c 2c 77 69 6d 70 25 0d 29 18 05 e1 0d |on",,wimp%.)....|
000072d0 29 22 05 3a 0d 29 2c 47 f4 20 2a 2a 2a 2a 2a 2a |)".:.),G. ******|
000072e0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
*
00007310 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 29 36 05 3a |***********.)6.:|
00007320 0d 29 40 1f dd 20 f2 57 69 6d 70 5f 4d 65 6e 75 |.)@.. .Wimp_Menu|
00007330 41 64 6a 75 73 74 4f 6e 28 6d 65 6e 75 25 29 0d |AdjustOn(menu%).|
00007340 29 4a 2c c8 99 20 22 57 69 6d 70 5f 47 65 74 50 |)J,.. "Wimp_GetP|
00007350 6f 69 6e 74 65 72 49 6e 66 6f 22 2c 2c 70 6f 69 |ointerInfo",,poi|
00007360 6e 74 65 72 5f 62 6c 6f 63 6b 25 0d 29 54 5e e7 |nter_block%.)T^.|
00007370 20 28 28 70 6f 69 6e 74 65 72 5f 62 6c 6f 63 6b | ((pointer_block|
00007380 25 21 38 29 80 31 29 3d 31 20 8c 20 c8 99 20 22 |%!8).1)=1 . .. "|
00007390 57 69 6d 70 5f 43 72 65 61 74 65 4d 65 6e 75 22 |Wimp_CreateMenu"|
000073a0 2c 2c 6d 65 6e 75 25 2c 70 6f 69 6e 74 65 72 5f |,,menu%,pointer_|
000073b0 62 6c 6f 63 6b 25 21 30 2c 70 6f 69 6e 74 65 72 |block%!0,pointer|
000073c0 5f 62 6c 6f 63 6b 25 21 34 0d 29 5e 05 e1 0d 29 |_block%!4.)^...)|
000073d0 68 05 3a 0d 29 72 1e dd 20 a4 57 69 6d 70 5f 4d |h.:.)r.. .Wimp_M|
000073e0 65 6e 75 43 68 6f 69 63 65 28 6c 65 76 65 6c 25 |enuChoice(level%|
000073f0 29 0d 29 7c 19 3d 28 77 69 6d 70 25 21 28 34 2a |).)|.=(wimp%!(4*|
00007400 6c 65 76 65 6c 25 29 29 2b 31 0d 29 86 05 3a 0d |level%))+1.)..:.|
00007410 29 90 1d dd 20 a4 57 69 6d 70 5f 4d 65 6e 75 43 |)... .Wimp_MenuC|
00007420 72 65 61 74 65 28 6d 65 6e 75 24 29 0d 29 9a 2a |reate(menu$).).*|
00007430 e7 20 6d 65 6e 75 24 3d 22 43 6f 6c 6f 75 72 73 |. menu$="Colours|
00007440 22 20 8c 20 3d a4 57 69 6d 70 5f 4d 65 6e 75 43 |" . =.Wimp_MenuC|
00007450 6f 6c 6f 75 72 73 0d 29 a4 27 ea 20 6d 65 6e 75 |olours.).'. menu|
00007460 25 2c 69 6e 64 65 78 25 2c 77 69 64 74 68 25 2c |%,index%,width%,|
00007470 6c 65 6e 67 74 68 25 2c 6b 25 2c 73 25 0d 29 ae |length%,k%,s%.).|
00007480 2e de 20 6d 65 6e 75 25 20 32 38 2b a4 57 69 6d |.. menu% 28+.Wim|
00007490 70 5f 4d 65 6e 75 4e 6f 4f 66 45 6e 74 72 69 65 |p_MenuNoOfEntrie|
000074a0 73 28 6d 65 6e 75 24 29 2a 32 34 0d 29 b8 37 6d |s(menu$)*24.).7m|
000074b0 65 6e 75 25 3f 31 32 3d 37 20 20 20 3a 20 6d 65 |enu%?12=7 : me|
000074c0 6e 75 25 3f 31 33 3d 32 20 20 3a 20 6d 65 6e 75 |nu%?13=2 : menu|
000074d0 25 3f 31 34 3d 37 20 3a 6d 65 6e 75 25 3f 31 35 |%?14=7 :menu%?15|
000074e0 3d 30 0d 29 c2 2b 6d 65 6e 75 25 21 31 36 3d 31 |=0.).+menu%!16=1|
000074f0 34 30 20 3a 20 6d 65 6e 75 25 21 32 30 3d 34 34 |40 : menu%!20=44|
00007500 20 3a 20 6d 65 6e 75 25 21 32 34 3d 30 0d 29 cc | : menu%!24=0.).|
00007510 13 69 6e 64 65 78 25 3d 6d 65 6e 75 25 2b 32 38 |.index%=menu%+28|
00007520 0d 29 d6 20 24 6d 65 6e 75 25 3d c0 6d 65 6e 75 |.). $menu%=.menu|
00007530 24 2c a7 6d 65 6e 75 24 2c 22 5c 22 29 2d 31 29 |$,.menu$,"\")-1)|
00007540 0d 29 e0 23 77 69 64 74 68 25 3d a9 28 c0 6d 65 |.).#width%=.(.me|
00007550 6e 75 24 2c a7 6d 65 6e 75 24 2c 22 5c 22 29 2d |nu$,.menu$,"\")-|
00007560 31 29 29 0d 29 ea 24 6d 65 6e 75 24 2b 3d 22 5c |1)).).$menu$+="\|
00007570 22 20 3a 20 4d 65 6e 75 5f 4e 6f 4f 66 45 6e 74 |" : Menu_NoOfEnt|
00007580 72 69 65 73 25 3d 30 0d 29 f4 10 c8 95 20 6d 65 |ries%=0.).... me|
00007590 6e 75 24 3c 3e 22 22 0d 29 fe 1f 6d 65 6e 75 24 |nu$<>"".)..menu$|
000075a0 3d c1 6d 65 6e 75 24 2c a7 6d 65 6e 75 24 2c 22 |=.menu$,.menu$,"|
000075b0 5c 22 29 2b 31 29 0d 2a 08 0e c8 8e 20 6d 65 6e |\")+1).*.... men|
000075c0 75 24 20 ca 0d 2a 12 09 20 c9 20 22 22 0d 2a 1c |u$ ..*.. . "".*.|
000075d0 08 20 7f 20 3a 0d 2a 26 31 20 20 21 69 6e 64 65 |. . :.*&1 !inde|
000075e0 78 25 3d 30 20 3a 20 69 6e 64 65 78 25 21 34 3d |x%=0 : index%!4=|
000075f0 2d 31 20 3a 20 69 6e 64 65 78 25 21 38 3d 26 37 |-1 : index%!8=&7|
00007600 30 30 30 30 32 31 0d 2a 30 1b 20 20 6c 65 6e 67 |000021.*0. leng|
00007610 74 68 25 3d a7 6d 65 6e 75 24 2c 22 5c 22 29 2d |th%=.menu$,"\")-|
00007620 31 0d 2a 3a 1e 20 20 6b 25 3d a7 c0 6d 65 6e 75 |1.*:. k%=..menu|
00007630 24 2c 6c 65 6e 67 74 68 25 29 2c 22 3e 22 29 0d |$,length%),">").|
00007640 2a 44 0d 20 20 c8 8e 20 6b 25 20 ca 0d 2a 4e 0a |*D. .. k% ..*N.|
00007650 20 20 20 c9 20 30 0d 2a 58 08 20 20 20 7f 0d 2a | . 0.*X. ..*|
00007660 62 25 20 20 20 20 73 25 3d a0 28 c1 6d 65 6e 75 |b% s%=.(.menu|
00007670 24 2c 6b 25 2b 31 2c 6c 65 6e 67 74 68 25 2d 6b |$,k%+1,length%-k|
00007680 25 29 29 0d 2a 6c 13 20 20 20 20 69 6e 64 65 78 |%)).*l. index|
00007690 25 21 34 3d 73 25 0d 2a 76 14 20 20 20 20 6c 65 |%!4=s%.*v. le|
000076a0 6e 67 74 68 25 3d 6b 25 2d 31 0d 2a 80 07 20 20 |ngth%=k%-1.*.. |
000076b0 cb 0d 2a 8a 22 20 20 24 28 69 6e 64 65 78 25 2b |..*." $(index%+|
000076c0 31 32 29 3d c0 6d 65 6e 75 24 2c 6c 65 6e 67 74 |12)=.menu$,lengt|
000076d0 68 25 29 0d 2a 94 27 20 20 e7 20 6c 65 6e 67 74 |h%).*.' . lengt|
000076e0 68 25 3e 77 69 64 74 68 25 20 8c 20 77 69 64 74 |h%>width% . widt|
000076f0 68 25 3d 6c 65 6e 67 74 68 25 0d 2a 9e 10 20 20 |h%=length%.*.. |
00007700 69 6e 64 65 78 25 2b 3d 32 34 0d 2a a8 05 cb 0d |index%+=24.*....|
00007710 2a b2 05 ce 0d 2a bc 1a 6d 65 6e 75 25 21 31 36 |*....*..menu%!16|
00007720 3d 31 36 2a 28 77 69 64 74 68 25 2b 31 29 0d 2a |=16*(width%+1).*|
00007730 c6 28 69 6e 64 65 78 25 21 2d 32 34 3d 69 6e 64 |.(index%!-24=ind|
00007740 65 78 25 21 2d 32 34 20 84 20 26 38 30 20 3a 20 |ex%!-24 . &80 : |
00007750 3d 6d 65 6e 75 25 0d 2a d0 06 3d a3 0d 2a da 05 |=menu%.*..=..*..|
00007760 3a 0d 2a e4 17 dd 20 a4 57 69 6d 70 5f 4d 65 6e |:.*... .Wimp_Men|
00007770 75 43 6f 6c 6f 75 72 73 0d 2a ee 21 3d a4 57 69 |uColours.*.!=.Wi|
00007780 6d 70 5f 4d 65 6e 75 43 72 65 61 74 65 43 6f 6c |mp_MenuCreateCol|
00007790 6f 75 72 73 28 22 20 22 29 0d 2a f8 05 3a 0d 2b |ours(" ").*..:.+|
000077a0 02 25 dd 20 a4 57 69 6d 70 5f 4d 65 6e 75 43 72 |.%. .Wimp_MenuCr|
000077b0 65 61 74 65 43 6f 6c 6f 75 72 73 28 74 69 74 6c |eateColours(titl|
000077c0 65 24 29 0d 2b 0c 13 ea 20 78 24 2c 6d 65 6e 25 |e$).+... x$,men%|
000077d0 2c 6a 25 2c 69 25 0d 2b 16 36 78 24 3d 74 69 74 |,j%,i%.+.6x$=tit|
000077e0 6c 65 24 2b 22 5c 30 5c 31 5c 32 5c 33 5c 34 5c |le$+"\0\1\2\3\4\|
000077f0 35 5c 36 5c 37 5c 38 5c 39 5c 31 30 5c 31 31 5c |5\6\7\8\9\10\11\|
00007800 31 32 5c 31 33 5c 31 34 5c 31 35 22 0d 2b 20 1d |12\13\14\15".+ .|
00007810 6d 65 6e 25 3d a4 57 69 6d 70 5f 4d 65 6e 75 43 |men%=.Wimp_MenuC|
00007820 72 65 61 74 65 28 78 24 29 0d 2b 2a 0f e3 20 69 |reate(x$).+*.. i|
00007830 25 3d 30 20 b8 20 31 35 0d 2b 34 0a c8 8e 20 b9 |%=0 . 15.+4... .|
00007840 20 ca 0d 2b 3e 28 c9 20 69 25 3c 34 2c 69 25 3d | ..+>(. i%<4,i%=|
00007850 39 2c 69 25 3d 31 32 2c 69 25 3d 31 34 2c 69 25 |9,i%=12,i%=14,i%|
00007860 3d 31 35 20 3a 20 6a 25 3d 37 0d 2b 48 0c 7f 20 |=15 : j%=7.+H.. |
00007870 3a 20 6a 25 3d 30 0d 2b 52 05 cb 0d 2b 5c 1c 6d |: j%=0.+R...+\.m|
00007880 65 6e 25 3f 28 33 39 2b 69 25 2a 32 34 29 3d 69 |en%?(39+i%*24)=i|
00007890 25 2a 31 36 2b 6a 25 0d 2b 66 1f f2 57 69 6d 70 |%*16+j%.+f..Wimp|
000078a0 5f 4d 65 6e 75 43 65 6e 74 72 65 28 6d 65 6e 25 |_MenuCentre(men%|
000078b0 2c 69 25 2b 31 29 0d 2b 70 05 ed 0d 2b 7a 09 3d |,i%+1).+p...+z.=|
000078c0 6d 65 6e 25 0d 2b 84 05 3a 0d 2b 8e 22 dd 20 a4 |men%.+..:.+.". .|
000078d0 57 69 6d 70 5f 4d 65 6e 75 4e 6f 4f 66 45 6e 74 |Wimp_MenuNoOfEnt|
000078e0 72 69 65 73 28 6d 65 6e 75 24 29 0d 2b 98 1a ea |ries(menu$).+...|
000078f0 20 6e 25 20 2c 6a 25 20 3a 20 6e 25 3d 30 20 3a | n% ,j% : n%=0 :|
00007900 20 6a 25 3d 30 0d 2b a2 05 f5 0d 2b ac 17 6a 25 | j%=0.+....+..j%|
00007910 3d a7 6d 65 6e 75 24 2c 22 5c 22 2c 6a 25 2b 31 |=.menu$,"\",j%+1|
00007920 29 0d 2b b6 13 e7 20 6a 25 3c 3e 30 20 8c 20 6e |).+... j%<>0 . n|
00007930 25 2b 3d 31 0d 2b c0 0a fd 20 6a 25 3d 30 0d 2b |%+=1.+... j%=0.+|
00007940 ca 07 3d 6e 25 0d 2b d4 05 3a 0d 2b de 35 dd 20 |..=n%.+..:.+.5. |
00007950 f2 57 69 6d 70 5f 4d 65 6e 75 42 61 63 6b 47 72 |.Wimp_MenuBackGr|
00007960 6f 75 6e 64 43 6f 6c 6f 75 72 28 6d 65 6e 75 25 |oundColour(menu%|
00007970 2c 69 74 65 6d 25 2c 63 6f 6c 6f 75 72 25 29 0d |,item%,colour%).|
00007980 2b e8 0e ea 20 66 6f 72 65 25 2c 69 25 0d 2b f2 |+... fore%,i%.+.|
00007990 26 66 6f 72 65 25 3d 28 6d 65 6e 75 25 3f 28 33 |&fore%=(menu%?(3|
000079a0 39 2b 28 69 74 65 6d 25 2d 31 29 2a 32 34 29 29 |9+(item%-1)*24))|
000079b0 83 31 36 0d 2b fc 28 69 25 3d 28 28 6d 65 6e 75 |.16.+.(i%=((menu|
000079c0 25 3f 28 33 39 2b 28 69 74 65 6d 25 2d 31 29 2a |%?(39+(item%-1)*|
000079d0 32 34 29 29 81 31 36 29 83 31 36 0d 2c 06 2f 6d |24)).16).16.,./m|
000079e0 65 6e 75 25 3f 28 33 39 2b 28 69 74 65 6d 25 2d |enu%?(39+(item%-|
000079f0 31 29 2a 32 34 29 3d 66 6f 72 65 25 2b 31 36 2a |1)*24)=fore%+16*|
00007a00 63 6f 6c 6f 75 72 25 2b 69 25 0d 2c 10 05 e1 0d |colour%+i%.,....|
00007a10 2c 1a 05 3a 0d 2c 24 23 dd 20 f2 57 69 6d 70 5f |,..:.,$#. .Wimp_|
00007a20 4d 65 6e 75 43 65 6e 74 72 65 28 6d 65 6e 75 25 |MenuCentre(menu%|
00007a30 2c 69 74 65 6d 25 29 0d 2c 2e 3a 6d 65 6e 75 25 |,item%).,.:menu%|
00007a40 21 28 33 36 2b 28 69 74 65 6d 25 2d 31 29 2a 32 |!(36+(item%-1)*2|
00007a50 34 29 3d 6d 65 6e 75 25 21 28 33 36 2b 28 69 74 |4)=menu%!(36+(it|
00007a60 65 6d 25 2d 31 29 2a 32 34 29 84 28 31 3c 3c 33 |em%-1)*24).(1<<3|
00007a70 29 0d 2c 38 05 e1 0d 2c 42 05 3a 0d 2c 4c 15 dd |).,8...,B.:.,L..|
00007a80 20 f2 57 69 6d 70 5f 4d 65 6e 75 43 6c 6f 73 65 | .Wimp_MenuClose|
00007a90 0d 2c 56 1b c8 99 20 22 57 69 6d 70 5f 43 72 65 |.,V... "Wimp_Cre|
00007aa0 61 74 65 4d 65 6e 75 22 2c 2d 31 0d 2c 60 05 e1 |ateMenu",-1.,`..|
00007ab0 0d 2c 6a 05 3a 0d 2c 74 24 dd 20 f2 57 69 6d 70 |.,j.:.,t$. .Wimp|
00007ac0 5f 4d 65 6e 75 44 69 73 61 62 6c 65 28 6d 65 6e |_MenuDisable(men|
00007ad0 75 25 2c 69 74 65 6d 25 29 0d 2c 7e 3b 6d 65 6e |u%,item%).,~;men|
00007ae0 75 25 21 28 33 36 2b 28 69 74 65 6d 25 2d 31 29 |u%!(36+(item%-1)|
00007af0 2a 32 34 29 3d 6d 65 6e 75 25 21 28 33 36 2b 28 |*24)=menu%!(36+(|
00007b00 69 74 65 6d 25 2d 31 29 2a 32 34 29 84 28 31 3c |item%-1)*24).(1<|
00007b10 3c 32 32 29 0d 2c 88 05 e1 0d 2c 92 05 3a 0d 2c |<22).,....,..:.,|
00007b20 9c 27 dd 20 f2 57 69 6d 70 5f 4d 65 6e 75 44 6f |.'. .Wimp_MenuDo|
00007b30 74 74 65 64 4c 69 6e 65 28 6d 65 6e 75 25 2c 69 |ttedLine(menu%,i|
00007b40 74 65 6d 25 29 0d 2c a6 37 6d 65 6e 75 25 21 28 |tem%).,.7menu%!(|
00007b50 32 38 2b 28 69 74 65 6d 25 2d 31 29 2a 32 34 29 |28+(item%-1)*24)|
00007b60 3d 28 6d 65 6e 75 25 21 28 32 38 2b 28 69 74 65 |=(menu%!(28+(ite|
00007b70 6d 25 2d 31 29 2a 32 34 29 29 84 32 0d 2c b0 05 |m%-1)*24)).2.,..|
00007b80 e1 0d 2c ba 05 3a 0d 2c c4 23 dd 20 f2 57 69 6d |..,..:.,.#. .Wim|
00007b90 70 5f 4d 65 6e 75 45 6e 61 62 6c 65 28 6d 65 6e |p_MenuEnable(men|
00007ba0 75 25 2c 69 74 65 6d 25 29 0d 2c ce 22 f2 57 69 |u%,item%).,.".Wi|
00007bb0 6d 70 5f 4d 65 6e 75 44 69 73 61 62 6c 65 28 6d |mp_MenuDisable(m|
00007bc0 65 6e 75 25 2c 69 74 65 6d 25 29 0d 2c d8 3b 6d |enu%,item%).,.;m|
00007bd0 65 6e 75 25 21 28 33 36 2b 28 69 74 65 6d 25 2d |enu%!(36+(item%-|
00007be0 31 29 2a 32 34 29 3d 6d 65 6e 75 25 21 28 33 36 |1)*24)=menu%!(36|
00007bf0 2b 28 69 74 65 6d 25 2d 31 29 2a 32 34 29 82 28 |+(item%-1)*24).(|
00007c00 31 3c 3c 32 32 29 0d 2c e2 05 e1 0d 2c ec 05 3a |1<<22).,....,..:|
00007c10 0d 2c f6 35 dd 20 f2 57 69 6d 70 5f 4d 65 6e 75 |.,.5. .Wimp_Menu|
00007c20 46 6f 72 65 67 72 6f 75 6e 64 43 6f 6c 6f 75 72 |ForegroundColour|
00007c30 28 6d 65 6e 75 25 2c 69 74 65 6d 25 2c 63 6f 6c |(menu%,item%,col|
00007c40 6f 75 72 25 29 0d 2d 00 45 6d 65 6e 75 25 3f 28 |our%).-.Emenu%?(|
00007c50 33 39 2b 28 69 74 65 6d 25 2d 31 29 2a 32 34 29 |39+(item%-1)*24)|
00007c60 3d 63 6f 6c 6f 75 72 25 2b 31 36 2a 28 28 6d 65 |=colour%+16*((me|
00007c70 6e 75 25 3f 28 33 39 2b 28 69 74 65 6d 25 2d 31 |nu%?(39+(item%-1|
00007c80 29 2a 32 34 29 29 81 31 36 29 0d 2d 0a 05 e1 0d |)*24)).16).-....|
00007c90 2d 14 05 3a 0d 2d 1e 29 dd 20 f2 57 69 6d 70 5f |-..:.-.). .Wimp_|
00007ca0 4d 65 6e 75 47 6c 75 65 28 6d 65 6e 75 31 25 2c |MenuGlue(menu1%,|
00007cb0 69 74 65 6d 25 2c 6d 65 6e 75 32 25 29 0d 2d 28 |item%,menu2%).-(|
00007cc0 1e 6d 65 6e 75 31 25 21 28 38 2b 69 74 65 6d 25 |.menu1%!(8+item%|
00007cd0 2a 32 34 29 3d 6d 65 6e 75 32 25 0d 2d 32 05 e1 |*24)=menu2%.-2..|
00007ce0 0d 2d 3c 05 3a 0d 2d 46 27 dd 20 f2 57 69 6d 70 |.-<.:.-F'. .Wimp|
00007cf0 5f 4d 65 6e 75 49 74 65 6d 28 6d 65 6e 75 25 2c |_MenuItem(menu%,|
00007d00 69 74 65 6d 25 2c 69 74 65 6d 24 29 0d 2d 50 2c |item%,item$).-P,|
00007d10 24 28 6d 65 6e 75 25 2b 28 34 30 2b 28 69 74 65 |$(menu%+(40+(ite|
00007d20 6d 25 2d 31 29 2a 32 34 29 29 3d c0 69 74 65 6d |m%-1)*24))=.item|
00007d30 24 2c 31 32 29 2b bd 30 0d 2d 5a 05 e1 0d 2d 64 |$,12)+.0.-Z...-d|
00007d40 05 3a 0d 2d 6e 24 dd 20 f2 57 69 6d 70 5f 4d 65 |.:.-n$. .Wimp_Me|
00007d50 6e 75 4d 65 73 73 61 67 65 28 6d 65 6e 75 25 2c |nuMessage(menu%,|
00007d60 69 74 65 6d 25 29 0d 2d 78 3c 6d 65 6e 75 25 21 |item%).-x<menu%!|
00007d70 28 32 38 2b 28 69 74 65 6d 25 2d 31 29 2a 32 34 |(28+(item%-1)*24|
00007d80 29 3d 28 6d 65 6e 75 25 21 28 32 38 2b 28 69 74 |)=(menu%!(28+(it|
00007d90 65 6d 25 2d 31 29 2a 32 34 29 29 82 28 31 3c 3c |em%-1)*24)).(1<<|
00007da0 33 29 0d 2d 82 05 e1 0d 2d 8c 05 3a 0d 2d 96 22 |3).-....-..:.-."|
00007db0 dd 20 f2 57 69 6d 70 5f 4d 65 6e 75 50 6f 70 55 |. .Wimp_MenuPopU|
00007dc0 70 28 4d 65 6e 75 25 2c 78 25 2c 79 25 29 0d 2d |p(Menu%,x%,y%).-|
00007dd0 a0 0d e7 20 53 41 25 3d a3 20 8c 0d 2d aa 0f 6d |... SA%=. ..-..m|
00007de0 65 6e 75 25 3d 4d 65 6e 75 25 0d 2d b4 2b c8 99 |enu%=Menu%.-.+..|
00007df0 20 22 57 69 6d 70 5f 43 72 65 61 74 65 4d 65 6e | "Wimp_CreateMen|
00007e00 75 22 2c 2c 6d 65 6e 75 25 2c 78 25 2d 36 34 2c |u",,menu%,x%-64,|
00007e10 79 25 2b 32 30 0d 2d be 05 cd 0d 2d c8 05 e1 0d |y%+20.-....-....|
00007e20 2d d2 05 3a 0d 2d dc 1f dd 20 f2 57 69 6d 70 5f |-..:.-... .Wimp_|
00007e30 4d 65 6e 75 50 6f 70 55 70 42 61 72 28 78 25 2c |MenuPopUpBar(x%,|
00007e40 79 25 29 0d 2d e6 0f ea 20 6e 25 20 3a 20 6e 25 |y%).-... n% : n%|
00007e50 3d 30 0d 2d f0 2b c8 95 20 28 28 42 61 72 5f 4d |=0.-.+.. ((Bar_M|
00007e60 65 6e 75 25 21 28 32 38 2b 6e 25 2a 32 34 29 29 |enu%!(28+n%*24))|
00007e70 80 25 31 30 30 30 30 30 30 30 29 3d 30 0d 2d fa |.%10000000)=0.-.|
00007e80 09 6e 25 2b 3d 31 0d 2e 04 05 ce 0d 2e 0e 32 c8 |.n%+=1........2.|
00007e90 99 20 22 57 69 6d 70 5f 43 72 65 61 74 65 4d 65 |. "Wimp_CreateMe|
00007ea0 6e 75 22 2c 2c 42 61 72 5f 4d 65 6e 75 25 2c 78 |nu",,Bar_Menu%,x|
00007eb0 25 2d 36 34 2c 39 36 2b 6e 25 2a 34 34 0d 2e 18 |%-64,96+n%*44...|
00007ec0 13 6d 65 6e 75 25 3d 42 61 72 5f 4d 65 6e 75 25 |.menu%=Bar_Menu%|
00007ed0 0d 2e 22 05 e1 0d 2e 2c 05 3a 0d 2e 36 21 dd 20 |.."....,.:..6!. |
00007ee0 f2 57 69 6d 70 5f 4d 65 6e 75 54 69 63 6b 28 6d |.Wimp_MenuTick(m|
00007ef0 65 6e 75 25 2c 69 74 65 6d 25 29 0d 2e 40 37 6d |enu%,item%)..@7m|
00007f00 65 6e 75 25 21 28 32 38 2b 28 69 74 65 6d 25 2d |enu%!(28+(item%-|
00007f10 31 29 2a 32 34 29 3d 28 6d 65 6e 75 25 21 28 32 |1)*24)=(menu%!(2|
00007f20 38 2b 28 69 74 65 6d 25 2d 31 29 2a 32 34 29 29 |8+(item%-1)*24))|
00007f30 82 31 0d 2e 4a 05 e1 0d 2e 54 05 3a 0d 2e 5e 23 |.1..J....T.:..^#|
00007f40 dd 20 f2 57 69 6d 70 5f 4d 65 6e 75 54 69 74 6c |. .Wimp_MenuTitl|
00007f50 65 28 6d 65 6e 75 25 2c 74 69 74 6c 65 24 29 0d |e(menu%,title$).|
00007f60 2e 68 19 24 6d 65 6e 75 25 3d c0 74 69 74 6c 65 |.h.$menu%=.title|
00007f70 24 2c 31 32 29 2b bd 30 0d 2e 72 05 e1 0d 2e 7c |$,12)+.0..r....||
00007f80 05 3a 0d 2e 86 3d dd 20 f2 57 69 6d 70 5f 4d 65 |.:...=. .Wimp_Me|
00007f90 6e 75 57 72 69 74 65 28 6d 65 6e 75 25 2c 69 74 |nuWrite(menu%,it|
00007fa0 65 6d 25 2c 62 75 66 66 65 72 25 2c 76 61 6c 25 |em%,buffer%,val%|
00007fb0 2c 42 75 66 66 65 72 4c 65 6e 67 74 68 25 29 0d |,BufferLength%).|
00007fc0 2e 90 37 6d 65 6e 75 25 21 28 32 38 2b 28 69 74 |..7menu%!(28+(it|
00007fd0 65 6d 25 2d 31 29 2a 32 34 29 3d 28 6d 65 6e 75 |em%-1)*24)=(menu|
00007fe0 25 21 28 32 38 2b 28 69 74 65 6d 25 2d 31 29 2a |%!(28+(item%-1)*|
00007ff0 32 34 29 29 84 34 0d 2e 9a 38 6d 65 6e 75 25 21 |24)).4...8menu%!|
00008000 28 33 36 2b 28 69 74 65 6d 25 2d 31 29 2a 32 34 |(36+(item%-1)*24|
00008010 29 3d 6d 65 6e 75 25 21 28 33 36 2b 28 69 74 65 |)=menu%!(36+(ite|
00008020 6d 25 2d 31 29 2a 32 34 29 84 26 31 30 30 0d 2e |m%-1)*24).&100..|
00008030 a4 23 6d 65 6e 75 25 21 28 34 30 2b 28 69 74 65 |.#menu%!(40+(ite|
00008040 6d 25 2d 31 29 2a 32 34 29 3d 62 75 66 66 65 72 |m%-1)*24)=buffer|
00008050 25 0d 2e ae 20 6d 65 6e 75 25 21 28 34 34 2b 28 |%... menu%!(44+(|
00008060 69 74 65 6d 25 2d 31 29 2a 32 34 29 3d 76 61 6c |item%-1)*24)=val|
00008070 25 0d 2e b8 29 6d 65 6e 75 25 21 28 34 38 2b 28 |%...)menu%!(48+(|
00008080 69 74 65 6d 25 2d 31 29 2a 32 34 29 3d 42 75 66 |item%-1)*24)=Buf|
00008090 66 65 72 4c 65 6e 67 74 68 25 0d 2e c2 05 e1 0d |ferLength%......|
000080a0 2e cc 05 3a 0d 2e d6 47 f4 20 2a 2a 2a 2a 2a 2a |...:...G. ******|
000080b0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
*
000080e0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 2e e0 05 3a |***********....:|
000080f0 0d 2e ea 25 dd 20 f2 57 69 6d 70 5f 53 65 6c 65 |...%. .Wimp_Sele|
00008100 63 74 49 63 6f 6e 28 77 69 6e 64 6f 77 25 2c 69 |ctIcon(window%,i|
00008110 63 6f 6e 25 29 0d 2e f4 13 77 69 6d 70 25 21 30 |con%)....wimp%!0|
00008120 3d 77 69 6e 64 6f 77 25 0d 2e fe 11 77 69 6d 70 |=window%....wimp|
00008130 25 21 34 3d 69 63 6f 6e 25 0d 2f 08 23 77 69 6d |%!4=icon%./.#wim|
00008140 70 25 21 38 3d 25 31 30 30 30 30 30 30 30 30 30 |p%!8=%1000000000|
00008150 30 30 30 30 30 30 30 30 30 30 30 30 0d 2f 12 24 |000000000000./.$|
00008160 77 69 6d 70 25 21 31 32 3d 25 31 30 30 30 30 30 |wimp%!12=%100000|
00008170 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 |0000000000000000|
00008180 0d 2f 1c 13 c8 99 26 34 30 30 43 44 2c 2c 77 69 |./....&400CD,,wi|
00008190 6d 70 25 0d 2f 26 05 e1 0d 2f 30 05 3a 0d 2f 3a |mp%./&.../0.:./:|
000081a0 27 dd 20 f2 57 69 6d 70 5f 55 6e 73 65 6c 65 63 |'. .Wimp_Unselec|
000081b0 74 49 63 6f 6e 28 77 69 6e 64 6f 77 25 2c 69 63 |tIcon(window%,ic|
000081c0 6f 6e 25 29 0d 2f 44 13 77 69 6d 70 25 21 30 3d |on%)./D.wimp%!0=|
000081d0 77 69 6e 64 6f 77 25 0d 2f 4e 11 77 69 6d 70 25 |window%./N.wimp%|
000081e0 21 34 3d 69 63 6f 6e 25 0d 2f 58 0d 77 69 6d 70 |!4=icon%./X.wimp|
000081f0 25 21 38 3d 30 0d 2f 62 24 77 69 6d 70 25 21 31 |%!8=0./b$wimp%!1|
00008200 32 3d 25 31 30 30 30 30 30 30 30 30 30 30 30 30 |2=%1000000000000|
00008210 30 30 30 30 30 30 30 30 30 0d 2f 6c 13 c8 99 26 |000000000./l...&|
00008220 34 30 30 43 44 2c 2c 77 69 6d 70 25 0d 2f 76 05 |400CD,,wimp%./v.|
00008230 e1 0d 2f 80 05 3a 0d 2f 8a 17 dd 20 f2 57 69 6d |../..:./... .Wim|
00008240 70 5f 53 70 72 69 74 65 73 4c 6f 61 64 0d 2f 94 |p_SpritesLoad./.|
00008250 2a c8 99 22 4f 53 5f 52 65 61 64 4d 6f 64 65 56 |*.."OS_ReadModeV|
00008260 61 72 69 61 62 6c 65 22 2c 2d 31 2c 35 20 b8 20 |ariable",-1,5 . |
00008270 2c 2c 59 45 49 47 25 0d 2f 9e 2f e7 20 59 45 49 |,,YEIG%././. YEI|
00008280 47 25 3c 32 20 8c 20 53 50 52 24 3d 22 53 70 72 |G%<2 . SPR$="Spr|
00008290 69 74 65 73 22 20 8b 20 53 50 52 24 3d 22 53 70 |ites" . SPR$="Sp|
000082a0 72 69 74 65 73 22 0d 2f a8 2d f2 57 69 6d 70 5f |rites"./.-.Wimp_|
000082b0 53 70 72 69 74 65 73 50 61 74 68 4c 6f 61 64 28 |SpritesPathLoad(|
000082c0 22 3c 4f 62 65 79 24 44 69 72 3e 2e 22 2b 53 50 |"<Obey$Dir>."+SP|
000082d0 52 24 29 0d 2f b2 1c 64 69 72 65 63 74 5f 73 70 |R$)./..direct_sp|
000082e0 72 69 74 65 73 25 3d 73 70 72 69 74 65 73 25 0d |rites%=sprites%.|
000082f0 2f bc 05 e1 0d 2f c6 05 3a 0d 2f d0 26 dd 20 f2 |/..../..:./.&. .|
00008300 57 69 6d 70 5f 53 70 72 69 74 65 73 50 61 74 68 |Wimp_SpritesPath|
00008310 4c 6f 61 64 28 70 61 74 68 6e 61 6d 65 24 29 0d |Load(pathname$).|
00008320 2f da 0a ea 53 25 2c 54 25 0d 2f e4 19 41 24 3d |/...S%,T%./..A$=|
00008330 22 3c 4f 62 65 79 24 44 69 72 3e 2e 22 2b 53 50 |"<Obey$Dir>."+SP|
00008340 52 24 0d 2f ee 1b 53 25 3d 8e 20 41 24 3a 54 25 |R$./..S%=. A$:T%|
00008350 3d a2 23 53 25 2b 31 36 3a d9 23 53 25 0d 2f f8 |=.#S%+16:.#S%./.|
00008360 19 de 73 70 72 69 74 65 73 25 54 25 2c 73 70 6e |..sprites%T%,spn|
00008370 61 6d 65 25 31 32 0d 30 02 1d 21 73 70 72 69 74 |ame%12.0..!sprit|
00008380 65 73 25 3d 54 25 3a 73 70 72 69 74 65 73 25 21 |es%=T%:sprites%!|
00008390 38 3d 30 0d 30 0c 21 c8 99 22 4f 53 5f 53 70 72 |8=0.0.!.."OS_Spr|
000083a0 69 74 65 4f 70 22 2c 26 31 30 39 2c 73 70 72 69 |iteOp",&109,spri|
000083b0 74 65 73 25 0d 30 16 2b c8 99 22 4f 53 5f 53 70 |tes%.0.+.."OS_Sp|
000083c0 72 69 74 65 4f 70 22 2c 26 31 30 41 2c 73 70 72 |riteOp",&10A,spr|
000083d0 69 74 65 73 25 2c 70 61 74 68 6e 61 6d 65 24 0d |ites%,pathname$.|
000083e0 30 20 05 e1 0d 30 2a 05 3a 0d 30 34 47 f4 20 2a |0 ...0*.:.04G. *|
000083f0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
*
00008430 0d 30 3e 05 3a 0d 30 48 1b dd 20 a4 57 69 6d 70 |.0>.:.0H.. .Wimp|
00008440 5f 47 65 74 46 69 6c 65 50 61 74 68 4e 61 6d 65 |_GetFilePathName|
00008450 0d 30 52 27 3d a4 57 69 6d 70 5f 47 65 74 53 74 |.0R'=.Wimp_GetSt|
00008460 72 69 6e 67 41 74 41 64 64 72 65 73 73 28 77 69 |ringAtAddress(wi|
00008470 6d 70 25 2b 34 34 29 0d 30 5c 05 3a 0d 30 66 1f |mp%+44).0\.:.0f.|
00008480 dd 20 a4 57 69 6d 70 5f 46 69 6c 65 4c 6f 61 64 |. .Wimp_FileLoad|
00008490 28 70 61 74 68 6e 61 6d 65 24 29 0d 30 70 10 ea |(pathname$).0p..|
000084a0 53 25 2c 54 25 2c 66 69 6c 65 25 0d 30 7a 11 53 |S%,T%,file%.0z.S|
000084b0 25 3d 8e 70 61 74 68 6e 61 6d 65 24 0d 30 84 0e |%=.pathname$.0..|
000084c0 54 25 3d a2 23 53 25 2b 31 36 0d 30 8e 08 d9 23 |T%=.#S%+16.0...#|
000084d0 53 25 0d 30 98 0c de 66 69 6c 65 25 54 25 0d 30 |S%.0...file%T%.0|
000084e0 a2 22 ff 28 22 4c 4f 41 44 22 2b 70 61 74 68 6e |.".("LOAD"+pathn|
000084f0 61 6d 65 24 2b 22 22 2b c3 7e 66 69 6c 65 25 29 |ame$+""+.~file%)|
00008500 0d 30 ac 0a 3d 66 69 6c 65 25 0d 30 b6 05 3a 0d |.0..=file%.0..:.|
00008510 30 c0 1d dd 20 f2 57 69 6d 70 5f 53 65 6e 64 54 |0... .Wimp_SendT|
00008520 6f 45 64 69 74 28 66 69 6c 65 24 29 0d 30 ca 08 |oEdit(file$).0..|
00008530 ea 20 6e 25 0d 30 d4 15 77 69 6d 70 25 21 34 3d |. n%.0..wimp%!4=|
00008540 26 36 43 43 30 31 43 30 43 0d 30 de 0e 77 69 6d |&6CC01C0C.0..wim|
00008550 70 25 21 31 36 3d 35 0d 30 e8 0e 77 69 6d 70 25 |p%!16=5.0..wimp%|
00008560 21 33 36 3d 30 0d 30 f2 11 77 69 6d 70 25 21 34 |!36=0.0..wimp%!4|
00008570 30 3d 26 46 46 46 0d 30 fc 18 24 28 77 69 6d 70 |0=&FFF.0..$(wimp|
00008580 25 2b 34 34 29 3d 66 69 6c 65 24 2b bd 30 0d 31 |%+44)=file$+.0.1|
00008590 06 10 6e 25 3d a9 66 69 6c 65 24 2b 34 35 0d 31 |..n%=.file$+45.1|
000085a0 10 2c e7 20 6e 25 83 34 20 8c 20 21 77 69 6d 70 |.,. n%.4 . !wimp|
000085b0 25 3d 34 2b 28 6e 25 3e 3e 32 29 3c 3c 32 20 8b |%=4+(n%>>2)<<2 .|
000085c0 20 21 77 69 6d 70 25 3d 6e 25 0d 31 1a 24 c8 99 | !wimp%=n%.1.$..|
000085d0 20 22 57 69 6d 70 5f 53 65 6e 64 4d 65 73 73 61 | "Wimp_SendMessa|
000085e0 67 65 22 2c 31 37 2c 77 69 6d 70 25 2c 30 0d 31 |ge",17,wimp%,0.1|
000085f0 24 05 e1 0d 31 2e 05 3a 0d 31 38 47 f4 20 2a 2a |$...1..:.18G. **|
00008600 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
*
00008630 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d |***************.|
00008640 31 42 05 3a 0d 31 4c 2f dd 20 f2 57 69 6d 70 5f |1B.:.1L/. .Wimp_|
00008650 53 74 61 72 74 28 54 61 73 6b 4e 61 6d 65 24 2c |Start(TaskName$,|
00008660 77 69 6d 70 5f 6d 65 6d 6f 72 79 25 2c 69 63 6f |wimp_memory%,ico|
00008670 6e 25 29 0d 31 56 25 de 20 77 69 6d 70 25 20 77 |n%).1V%. wimp% w|
00008680 69 6d 70 5f 6d 65 6d 6f 72 79 25 2c 69 63 6f 6e |imp_memory%,icon|
00008690 73 25 20 69 63 6f 6e 25 0d 31 60 29 e7 20 77 69 |s% icon%.1`). wi|
000086a0 6d 70 5f 6d 65 6d 6f 72 79 25 3c 32 35 36 20 8c |mp_memory%<256 .|
000086b0 20 77 69 6d 70 5f 6d 65 6d 6f 72 79 25 3d 32 35 | wimp_memory%=25|
000086c0 36 0d 31 6a 1d 69 63 6f 6e 5f 6d 65 6d 6f 72 79 |6.1j.icon_memory|
000086d0 25 3d 69 63 6f 6e 73 25 2b 69 63 6f 6e 25 0d 31 |%=icons%+icon%.1|
000086e0 74 13 74 61 73 6b 24 3d 54 61 73 6b 4e 61 6d 65 |t.task$=TaskName|
000086f0 24 0d 31 7e 2b 69 6e 64 69 72 65 63 74 5f 73 70 |$.1~+indirect_sp|
00008700 72 69 74 65 73 25 3d 31 20 3a 20 64 69 72 65 63 |rites%=1 : direc|
00008710 74 5f 73 70 72 69 74 65 73 25 3d 31 0d 31 88 1b |t_sprites%=1.1..|
00008720 f2 57 69 6d 70 5f 53 65 74 45 76 65 6e 74 56 61 |.Wimp_SetEventVa|
00008730 72 69 61 62 6c 65 73 0d 31 92 15 ee 20 85 20 f2 |riables.1... . .|
00008740 57 69 6d 70 5f 45 72 72 6f 72 3a e0 0d 31 9c 40 |Wimp_Error:..1.@|
00008750 c8 99 22 57 69 6d 70 5f 49 6e 69 74 69 61 6c 69 |.."Wimp_Initiali|
00008760 73 65 22 2c 32 30 30 2c 26 34 42 35 33 34 31 35 |se",200,&4B53415|
00008770 34 2c 54 61 73 6b 4e 61 6d 65 24 20 b8 20 76 65 |4,TaskName$ . ve|
00008780 72 73 69 6f 6e 25 2c 74 61 73 6b 25 0d 31 a6 05 |rsion%,task%.1..|
00008790 e1 0d 31 b0 05 3a 0d 31 ba 1b dd 20 a4 57 69 6d |..1..:.1... .Wim|
000087a0 70 5f 42 41 53 49 43 50 61 72 61 6d 65 74 65 72 |p_BASICParameter|
000087b0 73 0d 31 c4 15 20 ea 20 63 6f 6d 24 2c 70 61 72 |s.1.. . com$,par|
000087c0 61 6d 24 2c 49 25 0d 31 ce 1a 20 c8 99 20 22 4f |am$,I%.1.. .. "O|
000087d0 53 5f 47 65 74 45 6e 76 22 20 b8 20 63 6f 6d 24 |S_GetEnv" . com$|
000087e0 0d 31 d8 0f 20 70 61 72 61 6d 73 24 3d 22 22 0d |.1.. params$="".|
000087f0 31 e2 18 20 49 25 3d a7 63 6f 6d 24 2c 22 20 2d |1.. I%=.com$," -|
00008800 71 75 69 74 20 22 29 0d 31 ec 35 20 e7 20 49 25 |quit ").1.5 . I%|
00008810 20 8c 20 70 61 72 61 6d 73 24 3d c1 63 6f 6d 24 | . params$=.com$|
00008820 2c a7 63 6f 6d 24 2c 22 20 22 2c 49 25 2b a9 22 |,.com$," ",I%+."|
00008830 20 2d 71 75 69 74 20 22 29 2b 31 29 0d 31 f6 0c | -quit ")+1).1..|
00008840 3d 70 61 72 61 6d 73 24 0d 32 00 05 3a 0d 32 0a |=params$.2..:.2.|
00008850 1d dd 20 f2 57 69 6d 70 5f 53 65 74 45 76 65 6e |.. .Wimp_SetEven|
00008860 74 56 61 72 69 61 62 6c 65 73 0d 32 14 17 de 20 |tVariables.2... |
00008870 70 6f 69 6e 74 65 72 5f 62 6c 6f 63 6b 25 20 32 |pointer_block% 2|
00008880 30 0d 32 1e 10 69 6e 74 65 72 66 61 63 65 25 3d |0.2..interface%=|
00008890 a3 0d 32 28 2e 6e 75 6c 6c 25 3d 31 20 20 3a 64 |..2(.null%=1 :d|
000088a0 72 61 77 25 3d 32 20 3a 20 20 70 6f 69 6e 74 65 |raw%=2 : pointe|
000088b0 72 5f 6c 65 61 76 69 6e 67 25 3d 31 3c 3c 34 0d |r_leaving%=1<<4.|
000088c0 32 32 31 70 6f 69 6e 74 65 72 5f 65 6e 74 65 72 |221pointer_enter|
000088d0 69 6e 67 25 3d 31 3c 3c 35 3a 6d 6f 75 73 65 25 |ing%=1<<5:mouse%|
000088e0 3d 31 3c 3c 36 3a 64 72 61 67 25 3d 31 3c 3c 37 |=1<<6:drag%=1<<7|
000088f0 0d 32 3c 26 6b 65 79 25 3d 31 3c 3c 38 3a 6d 65 |.2<&key%=1<<8:me|
00008900 6e 75 25 3d 31 3c 3c 39 3a 73 63 72 6f 6c 6c 25 |nu%=1<<9:scroll%|
00008910 3d 31 3c 3c 31 30 0d 32 46 40 6c 6f 73 65 5f 63 |=1<<10.2F@lose_c|
00008920 61 72 65 74 25 3d 31 3c 3c 31 31 3a 67 61 69 6e |aret%=1<<11:gain|
00008930 5f 63 61 72 65 74 25 3d 31 3c 3c 31 32 3a 6d 65 |_caret%=1<<12:me|
00008940 73 73 61 67 65 25 3d 28 31 3c 3c 31 37 29 2b 28 |ssage%=(1<<17)+(|
00008950 31 3c 3c 31 38 29 0d 32 50 30 72 65 63 6f 72 64 |1<<18).2P0record|
00008960 65 72 25 3d 31 3c 3c 31 38 3a 61 63 6b 6e 6f 77 |er%=1<<18:acknow|
00008970 6c 65 64 67 65 25 3d 31 3c 3c 31 39 3a 77 69 6e |ledge%=1<<19:win|
00008980 64 6f 77 25 3d 30 0d 32 5a 21 73 70 72 69 74 65 |dow%=0.2Z!sprite|
00008990 73 25 3d 31 3a 76 65 72 73 69 6f 6e 25 3d 30 3a |s%=1:version%=0:|
000089a0 74 61 73 6b 25 3d 30 0d 32 64 2a 42 61 72 5f 57 |task%=0.2d*Bar_W|
000089b0 69 6e 64 6f 77 25 3d 2d 32 3a 42 61 72 5f 49 63 |indow%=-2:Bar_Ic|
000089c0 6f 6e 25 3d 30 3a 42 61 72 5f 4d 65 6e 75 25 3d |on%=0:Bar_Menu%=|
000089d0 30 0d 32 6e 2a 78 5f 6f 72 69 67 69 6e 25 3d 30 |0.2n*x_origin%=0|
000089e0 3a 79 5f 6f 72 69 67 69 6e 25 3d 30 3a 53 61 76 |:y_origin%=0:Sav|
000089f0 65 57 69 6e 64 6f 77 25 3d 2d 33 0d 32 78 33 6d |eWindow%=-3.2x3m|
00008a00 65 73 73 61 67 65 5f 71 75 69 74 25 3d 30 3a 6d |essage_quit%=0:m|
00008a10 65 73 73 61 67 65 5f 73 61 76 65 25 3d 32 3a 6d |essage_save%=2:m|
00008a20 65 73 73 61 67 65 5f 6c 6f 61 64 25 3d 33 0d 32 |essage_load%=3.2|
00008a30 82 21 6d 6f 75 73 65 5f 62 75 74 74 6f 6e 25 3d |.!mouse_button%=|
00008a40 32 3a 73 61 76 65 5f 65 76 65 6e 74 25 3d 30 0d |2:save_event%=0.|
00008a50 32 8c 20 74 6f 70 5f 6c 69 6e 65 25 3d 30 20 3a |2. top_line%=0 :|
00008a60 20 62 6f 74 74 6f 6d 5f 6c 69 6e 65 25 3d 30 0d | bottom_line%=0.|
00008a70 32 96 05 3a 0d 32 a0 41 f4 20 44 6f 6e 74 20 6d |2..:.2.A. Dont m|
00008a80 65 73 73 20 61 62 6f 75 74 20 77 69 74 68 20 62 |ess about with b|
00008a90 65 6c 6f 77 20 28 6f 72 20 75 73 65 20 74 68 65 |elow (or use the|
00008aa0 6d 20 21 29 20 74 68 65 79 20 61 72 65 20 75 73 |m !) they are us|
00008ab0 65 64 20 69 6e 0d 32 aa 1c f4 20 74 68 65 20 64 |ed in.2... the d|
00008ac0 72 61 67 20 62 61 72 20 72 6f 75 74 69 6e 65 73 |rag bar routines|
00008ad0 2e 0d 32 b4 13 73 6c 69 64 65 77 69 6e 64 6f 77 |..2..slidewindow|
00008ae0 25 3d 2d 31 0d 32 be 11 73 6c 69 64 65 69 63 6f |%=-1.2..slideico|
00008af0 6e 25 3d 2d 31 0d 32 c8 11 73 6c 69 64 65 73 69 |n%=-1.2..slidesi|
00008b00 7a 65 25 3d 2d 31 0d 32 d2 10 6f 6c 64 77 6f 72 |ze%=-1.2..oldwor|
00008b10 6b 78 25 3d 2d 31 0d 32 dc 0e 72 72 61 6e 67 65 |kx%=-1.2..rrange|
00008b20 25 3d 2d 31 0d 32 e6 10 73 69 7a 65 6d 61 78 78 |%=-1.2..sizemaxx|
00008b30 25 3d 2d 31 0d 32 f0 10 73 69 7a 65 6d 69 6e 78 |%=-1.2..sizeminx|
00008b40 25 3d 2d 31 0d 32 fa 05 e1 0d 33 04 05 3a 0d 33 |%=-1.2....3..:.3|
00008b50 0e 11 dd 20 f2 57 69 6d 70 5f 45 72 72 6f 72 0d |... .Wimp_Error.|
00008b60 33 18 0a ea 58 24 2c 78 25 0d 33 22 09 ee 20 85 |3...X$,x%.3".. .|
00008b70 20 87 0d 33 2c 08 78 25 3d 9e 0d 33 36 1b 58 24 | ..3,.x%=..36.X$|
00008b80 3d f6 24 2b 22 61 74 6c 69 6e 65 22 2b c3 28 78 |=.$+"atline"+.(x|
00008b90 25 81 31 30 29 0d 33 40 10 de 45 72 72 6f 72 4d |%.10).3@..ErrorM|
00008ba0 73 67 25 33 36 0d 33 4a 45 45 72 72 6f 72 4d 73 |sg%36.3JEErrorMs|
00008bb0 67 25 21 30 3d 33 36 3a 45 72 72 6f 72 4d 73 67 |g%!0=36:ErrorMsg|
00008bc0 25 21 31 32 3d 30 3a 45 72 72 6f 72 4d 73 67 25 |%!12=0:ErrorMsg%|
00008bd0 21 31 36 3d 26 38 31 30 38 30 3a 45 72 72 6f 72 |!16=&81080:Error|
00008be0 4d 73 67 25 21 32 30 3d 78 25 0d 33 54 1f 24 28 |Msg%!20=x%.3T.$(|
00008bf0 45 72 72 6f 72 4d 73 67 25 2b 32 34 29 3d 22 21 |ErrorMsg%+24)="!|
00008c00 52 75 6e 49 6d 61 67 65 22 0d 33 5e 25 c8 99 22 |RunImage".3^%.."|
00008c10 57 69 6d 70 5f 53 65 6e 64 4d 65 73 73 61 67 65 |Wimp_SendMessage|
00008c20 22 2c 31 37 2c 45 72 72 6f 72 4d 73 67 25 0d 33 |",17,ErrorMsg%.3|
00008c30 68 1f f2 57 69 6d 70 5f 57 69 6e 64 6f 77 41 6c |h..Wimp_WindowAl|
00008c40 65 72 74 28 74 61 73 6b 24 2c 58 24 29 0d 33 72 |ert(task$,X$).3r|
00008c50 13 f2 57 69 6d 70 5f 43 6c 6f 73 65 44 6f 77 6e |..Wimp_CloseDown|
00008c60 0d 33 7c 05 e1 0d 33 86 05 3a 0d 33 90 15 dd 20 |.3|...3..:.3... |
00008c70 f2 57 69 6d 70 5f 43 6c 6f 73 65 44 6f 77 6e 0d |.Wimp_CloseDown.|
00008c80 33 9a 23 c8 99 22 57 69 6d 70 5f 43 6c 6f 73 65 |3.#.."Wimp_Close|
00008c90 44 6f 77 6e 22 2c 74 61 73 6b 25 2c 22 54 41 53 |Down",task%,"TAS|
00008ca0 4b 22 0d 33 a4 05 e1 0d 33 ae 05 3a 0d 33 b8 10 |K".3....3..:.3..|
00008cb0 dd 20 f2 57 69 6d 70 5f 51 75 69 74 0d 33 c2 0f |. .Wimp_Quit.3..|
00008cc0 66 69 6e 69 73 68 65 64 25 3d b9 0d 33 cc 05 e1 |finished%=..3...|
00008cd0 0d 33 d6 05 3a 0d 33 e0 23 dd 20 a4 57 69 6d 70 |.3..:.3.#. .Wimp|
00008ce0 5f 52 65 61 64 56 61 72 69 61 62 6c 65 28 56 61 |_ReadVariable(Va|
00008cf0 72 69 61 62 6c 65 24 29 0d 33 ea 1b ea 6c 65 6e |riable$).3...len|
00008d00 25 2c 72 65 73 75 6c 74 25 2c 76 61 72 69 61 62 |%,result%,variab|
00008d10 6c 65 25 0d 33 f4 14 24 77 69 6d 70 25 3d 56 61 |le%.3..$wimp%=Va|
00008d20 72 69 61 62 6c 65 24 0d 33 fe 33 c8 99 22 4f 53 |riable$.3.3.."OS|
00008d30 5f 52 65 61 64 56 61 72 56 61 6c 22 2c 77 69 6d |_ReadVarVal",wim|
00008d40 70 25 2c 77 69 6d 70 25 2b 32 35 35 2c 32 35 35 |p%,wimp%+255,255|
00008d50 2c 2c 33 b8 2c 2c 6c 65 6e 25 0d 34 08 17 77 69 |,,3.,,len%.4..wi|
00008d60 6d 70 25 3f 28 6c 65 6e 25 2b 32 35 35 29 3d 31 |mp%?(len%+255)=1|
00008d70 33 0d 34 12 11 3d 24 28 77 69 6d 70 25 2b 32 35 |3.4..=$(wimp%+25|
00008d80 35 29 0d 34 1c 05 3a 0d 34 26 47 f4 20 2a 2a 2a |5).4..:.4&G. ***|
00008d90 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
*
00008dc0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 34 |**************.4|
00008dd0 30 05 3a 0d 34 3a 18 dd 20 f2 57 69 6d 70 5f 57 |0.:.4:.. .Wimp_W|
00008de0 61 69 74 46 6f 72 45 76 65 6e 74 0d 34 44 12 ea |aitForEvent.4D..|
00008df0 20 6d 61 73 6b 25 2c 65 76 65 6e 74 25 0d 34 4e | mask%,event%.4N|
00008e00 0f 66 69 6e 69 73 68 65 64 25 3d a3 0d 34 58 17 |.finished%=..4X.|
00008e10 6d 61 73 6b 25 3d 25 31 31 31 30 30 30 30 31 31 |mask%=%111000011|
00008e20 30 30 31 0d 34 62 05 f5 0d 34 6c 27 20 c8 99 22 |001.4b...4l' .."|
00008e30 57 69 6d 70 5f 50 6f 6c 6c 22 2c 6d 61 73 6b 25 |Wimp_Poll",mask%|
00008e40 2c 77 69 6d 70 25 20 b8 20 65 76 65 6e 74 25 0d |,wimp% . event%.|
00008e50 34 76 10 20 c8 8e 20 65 76 65 6e 74 25 20 ca 0d |4v. .. event% ..|
00008e60 34 80 08 20 20 c9 30 0d 34 8a 1f 20 20 c9 31 20 |4.. .0.4.. .1 |
00008e70 3a 20 f2 57 69 6d 70 5f 50 6f 6c 6c 44 72 61 77 |: .Wimp_PollDraw|
00008e80 57 69 6e 64 6f 77 0d 34 94 08 20 20 c9 32 0d 34 |Window.4.. .2.4|
00008e90 9e 0c f2 62 6f 74 6f 70 65 6e 0d 34 a8 1f c8 99 |...botopen.4....|
00008ea0 20 22 57 69 6d 70 5f 4f 70 65 6e 57 69 6e 64 6f | "Wimp_OpenWindo|
00008eb0 77 22 2c 2c 77 69 6d 70 25 0d 34 b2 20 20 20 c9 |w",,wimp%.4. .|
00008ec0 33 20 3a 20 f2 57 69 6d 70 5f 50 6f 6c 6c 43 6c |3 : .Wimp_PollCl|
00008ed0 6f 73 65 57 69 6e 64 6f 77 0d 34 bc 0a 20 20 c9 |oseWindow.4.. .|
00008ee0 34 20 3a 0d 34 c6 0a 20 20 c9 35 20 3a 0d 34 d0 |4 :.4.. .5 :.4.|
00008ef0 1f 20 20 c9 36 20 3a 20 f2 57 69 6d 70 5f 50 6f |. .6 : .Wimp_Po|
00008f00 6c 6c 4d 6f 75 73 65 43 6c 69 63 6b 0d 34 da 20 |llMouseClick.4. |
00008f10 20 20 c9 37 20 3a 20 f2 57 69 6d 70 5f 50 6f 6c | .7 : .Wimp_Pol|
00008f20 6c 53 61 76 65 4d 65 73 73 61 67 65 0d 34 e4 1d |lSaveMessage.4..|
00008f30 20 20 c9 38 20 3a 20 f2 57 69 6d 70 5f 50 6f 6c | .8 : .Wimp_Pol|
00008f40 6c 4b 65 79 50 72 65 73 73 0d 34 ee 23 20 20 c9 |lKeyPress.4.# .|
00008f50 39 20 3a 20 f2 45 76 65 6e 74 5f 4d 65 6e 75 43 |9 : .Event_MenuC|
00008f60 68 6f 69 63 65 28 6d 65 6e 75 25 29 0d 34 f8 0a |hoice(menu%).4..|
00008f70 20 20 c9 31 30 3a 0d 35 02 0a 20 20 c9 31 31 3a | .10:.5.. .11:|
00008f80 0d 35 0c 0a 20 20 c9 31 32 3a 0d 35 16 20 20 20 |.5.. .12:.5. |
00008f90 c9 31 37 2c 31 38 3a 20 f2 57 69 6d 70 5f 50 6f |.17,18: .Wimp_Po|
00008fa0 6c 6c 4d 65 73 73 61 67 65 73 0d 35 20 0a 20 20 |llMessages.5 . |
00008fb0 c9 31 39 3a 0d 35 2a 06 20 cb 0d 35 34 0f fd 20 |.19:.5*. ..54.. |
00008fc0 66 69 6e 69 73 68 65 64 25 0d 35 3e 05 e1 0d 35 |finished%.5>...5|
00008fd0 48 05 3a 0d 35 52 1a dd 20 f2 57 69 6d 70 5f 50 |H.:.5R.. .Wimp_P|
00008fe0 6f 6c 6c 44 72 61 77 57 69 6e 64 6f 77 0d 35 5c |ollDrawWindow.5\|
00008ff0 0b ea 20 6d 6f 72 65 25 0d 35 66 26 c8 99 22 57 |.. more%.5f&.."W|
00009000 69 6d 70 5f 52 65 64 72 61 77 57 69 6e 64 6f 77 |imp_RedrawWindow|
00009010 22 2c 2c 77 69 6d 70 25 b8 6d 6f 72 65 25 0d 35 |",,wimp%.more%.5|
00009020 70 13 77 69 6e 64 6f 77 25 3d 77 69 6d 70 25 21 |p.window%=wimp%!|
00009030 30 0d 35 7a 41 78 5f 6f 72 69 67 69 6e 25 3d 31 |0.5zAx_origin%=1|
00009040 36 2b 77 69 6d 70 25 21 34 2d 77 69 6d 70 25 21 |6+wimp%!4-wimp%!|
00009050 32 30 3a 79 5f 6f 72 69 67 69 6e 25 3d 2d 31 36 |20:y_origin%=-16|
00009060 2b 77 69 6d 70 25 21 31 36 2d 77 69 6d 70 25 21 |+wimp%!16-wimp%!|
00009070 32 34 0d 35 84 0b c8 95 6d 6f 72 65 25 0d 35 8e |24.5....more%.5.|
00009080 30 20 e7 20 69 6e 74 65 72 66 61 63 65 25 20 8c |0 . interface% .|
00009090 20 c8 99 22 57 69 6d 70 5f 42 6f 72 64 65 72 57 | .."Wimp_BorderW|
000090a0 69 6e 64 6f 77 22 2c 2c 77 69 6d 70 25 0d 35 98 |indow",,wimp%.5.|
000090b0 2d 20 f2 45 76 65 6e 74 5f 44 72 61 77 28 77 69 |- .Event_Draw(wi|
000090c0 6e 64 6f 77 25 2c 78 5f 6f 72 69 67 69 6e 25 2c |ndow%,x_origin%,|
000090d0 79 5f 6f 72 69 67 69 6e 25 29 0d 35 a2 27 20 c8 |y_origin%).5.' .|
000090e0 99 22 57 69 6d 70 5f 47 65 74 52 65 63 74 61 6e |."Wimp_GetRectan|
000090f0 67 6c 65 22 2c 2c 77 69 6d 70 25 b8 6d 6f 72 65 |gle",,wimp%.more|
00009100 25 0d 35 ac 05 ce 0d 35 b6 05 e1 0d 35 c0 05 3a |%.5....5....5..:|
00009110 0d 35 ca 1b dd 20 f2 57 69 6d 70 5f 50 6f 6c 6c |.5... .Wimp_Poll|
00009120 43 6c 6f 73 65 57 69 6e 64 6f 77 0d 35 d4 25 20 |CloseWindow.5.% |
00009130 20 c8 99 20 22 57 69 6d 70 5f 47 65 74 50 6f 69 | .. "Wimp_GetPoi|
00009140 6e 74 65 72 49 6e 66 6f 22 2c 2c 77 69 6d 70 25 |nterInfo",,wimp%|
00009150 0d 35 de 29 20 20 77 69 6e 64 6f 77 25 3d 77 69 |.5.) window%=wi|
00009160 6d 70 25 21 31 32 20 3a 20 62 75 74 74 6f 6e 73 |mp%!12 : buttons|
00009170 25 3d 77 69 6d 70 25 21 38 0d 35 e8 29 20 f2 45 |%=wimp%!8.5.) .E|
00009180 76 65 6e 74 5f 57 69 6e 64 6f 77 43 6c 6f 73 65 |vent_WindowClose|
00009190 28 77 69 6e 64 6f 77 25 2c 62 75 74 74 6f 6e 73 |(window%,buttons|
000091a0 25 29 0d 35 f2 32 20 21 77 69 6d 70 25 3d 77 69 |%).5.2 !wimp%=wi|
000091b0 6e 64 6f 77 25 20 3a 20 c8 99 20 22 57 69 6d 70 |ndow% : .. "Wimp|
000091c0 5f 43 6c 6f 73 65 57 69 6e 64 6f 77 22 2c 2c 77 |_CloseWindow",,w|
000091d0 69 6d 70 25 0d 35 fc 05 e1 0d 36 06 05 3a 0d 36 |imp%.5....6..:.6|
000091e0 10 1a dd 20 f2 57 69 6d 70 5f 50 6f 6c 6c 4d 6f |... .Wimp_PollMo|
000091f0 75 73 65 43 6c 69 63 6b 0d 36 1a 4a 20 62 75 74 |useClick.6.J but|
00009200 74 6f 6e 25 3d 77 69 6d 70 25 21 38 3a 77 69 6e |ton%=wimp%!8:win|
00009210 64 6f 77 25 3d 77 69 6d 70 25 21 31 32 3a 69 63 |dow%=wimp%!12:ic|
00009220 6f 6e 25 3d 77 69 6d 70 25 21 31 36 3a 78 25 3d |on%=wimp%!16:x%=|
00009230 77 69 6d 70 25 21 30 3a 79 25 3d 77 69 6d 70 25 |wimp%!0:y%=wimp%|
00009240 21 34 0d 36 24 11 20 c8 8e 20 62 75 74 74 6f 6e |!4.6$. .. button|
00009250 25 20 ca 0d 36 2e 22 20 20 20 c9 32 20 20 20 20 |% ..6." .2 |
00009260 3a 20 f2 57 69 6d 70 5f 50 6f 6c 6c 4d 65 6e 75 |: .Wimp_PollMenu|
00009270 50 6f 70 55 70 0d 36 38 23 20 20 20 7f 3a 20 c8 |PopUp.68# .: .|
00009280 8e 20 a4 45 76 65 6e 74 5f 53 61 76 65 28 77 69 |. .Event_Save(wi|
00009290 6e 64 6f 77 25 29 20 ca 0d 36 42 2c 20 20 20 20 |ndow%) ..6B, |
000092a0 20 20 20 20 20 20 20 20 20 20 20 c9 20 b9 20 3a | . . :|
000092b0 20 f2 57 69 6d 70 5f 50 6f 6c 6c 4d 6f 75 73 65 | .Wimp_PollMouse|
000092c0 53 61 76 65 0d 36 4c 31 20 20 20 20 20 20 20 20 |Save.6L1 |
000092d0 20 20 20 20 20 20 20 c9 20 a3 3a 20 f2 57 69 6d | . .: .Wim|
000092e0 70 5f 50 6f 6c 6c 45 76 65 6e 74 4d 6f 75 73 65 |p_PollEventMouse|
000092f0 43 6c 69 63 6b 0d 36 56 13 20 20 20 20 20 20 20 |Click.6V. |
00009300 20 20 20 20 20 20 20 cb 0d 36 60 06 20 cb 0d 36 | ..6`. ..6|
00009310 6a 05 e1 0d 36 74 05 3a 0d 36 7e 19 dd 20 f2 57 |j...6t.:.6~.. .W|
00009320 69 6d 70 5f 50 6f 6c 6c 4d 65 6e 75 50 6f 70 55 |imp_PollMenuPopU|
00009330 70 0d 36 88 0d e7 20 53 41 25 3d a3 20 8c 0d 36 |p.6... SA%=. ..6|
00009340 92 1e 6d 65 6e 75 25 3d a4 45 76 65 6e 74 5f 4d |..menu%=.Event_M|
00009350 65 6e 75 28 77 69 6e 64 6f 77 25 29 0d 36 9c 11 |enu(window%).6..|
00009360 20 20 c8 8e 20 6d 65 6e 75 25 20 20 ca 0d 36 a6 | .. menu% ..6.|
00009370 0b 20 20 20 c9 20 a3 3a 0d 36 b0 0a 20 20 20 7f |. . .:.6.. .|
00009380 20 3a 0d 36 ba 15 20 20 20 20 20 c8 8e 20 77 69 | :.6.. .. wi|
00009390 6e 64 6f 77 25 20 ca 0d 36 c4 17 20 20 20 20 20 |ndow% ..6.. |
000093a0 20 c9 20 2d 32 20 20 20 3a 20 6e 25 3d 30 0d 36 | . -2 : n%=0.6|
000093b0 ce 33 20 20 20 20 20 20 20 20 c8 95 20 28 28 42 |.3 .. ((B|
000093c0 61 72 5f 4d 65 6e 75 25 21 28 32 38 2b 6e 25 2a |ar_Menu%!(28+n%*|
000093d0 32 34 29 29 80 25 31 30 30 30 30 30 30 30 29 3d |24)).%10000000)=|
000093e0 30 0d 36 d8 12 20 20 20 20 20 20 20 20 20 6e 25 |0.6.. n%|
000093f0 2b 3d 31 0d 36 e2 0d 20 20 20 20 20 20 20 20 ce |+=1.6.. .|
00009400 0d 36 ec 3a 20 20 20 20 20 20 20 20 c8 99 20 22 |.6.: .. "|
00009410 57 69 6d 70 5f 43 72 65 61 74 65 4d 65 6e 75 22 |Wimp_CreateMenu"|
00009420 2c 2c 42 61 72 5f 4d 65 6e 75 25 2c 78 25 2d 36 |,,Bar_Menu%,x%-6|
00009430 34 2c 39 36 2b 6e 25 2a 36 36 0d 36 f6 34 20 20 |4,96+n%*66.6.4 |
00009440 20 20 20 20 7f 20 3a 20 c8 99 22 57 69 6d 70 5f | . : .."Wimp_|
00009450 43 72 65 61 74 65 4d 65 6e 75 22 2c 2c 6d 65 6e |CreateMenu",,men|
00009460 75 25 2c 78 25 2d 36 34 2c 79 25 2b 32 30 0d 37 |u%,x%-64,y%+20.7|
00009470 00 0a 20 20 20 20 20 cb 0d 37 0a 07 20 20 cb 0d |.. ..7.. ..|
00009480 37 14 05 cd 0d 37 1e 05 e1 0d 37 28 05 3a 0d 37 |7....7....7(.:.7|
00009490 32 19 dd 20 f2 57 69 6d 70 5f 50 6f 6c 6c 4d 6f |2.. .Wimp_PollMo|
000094a0 75 73 65 53 61 76 65 0d 37 3c 0f 20 c8 8e 20 69 |useSave.7<. .. i|
000094b0 63 6f 6e 25 20 ca 0d 37 46 38 20 20 c9 20 33 20 |con% ..7F8 . 3 |
000094c0 3a 20 e7 20 62 75 74 74 6f 6e 25 20 80 20 26 35 |: . button% . &5|
000094d0 30 20 8c 20 f2 57 69 6d 70 5f 50 6f 6c 6c 44 72 |0 . .Wimp_PollDr|
000094e0 61 67 42 6f 78 28 77 69 6e 64 6f 77 25 29 0d 37 |agBox(window%).7|
000094f0 50 38 20 20 c9 20 32 20 3a 20 e7 20 62 75 74 74 |P8 . 2 : . butt|
00009500 6f 6e 25 20 80 20 35 20 8c 20 20 f2 57 69 6d 70 |on% . 5 . .Wimp|
00009510 5f 50 6f 6c 6c 53 61 76 65 46 69 6c 65 28 77 69 |_PollSaveFile(wi|
00009520 6e 64 6f 77 25 29 0d 37 5a 06 20 cb 0d 37 64 05 |ndow%).7Z. ..7d.|
00009530 e1 0d 37 6e 05 3a 0d 37 78 1f dd 20 f2 57 69 6d |..7n.:.7x.. .Wim|
00009540 70 5f 50 6f 6c 6c 45 76 65 6e 74 4d 6f 75 73 65 |p_PollEventMouse|
00009550 43 6c 69 63 6b 0d 37 82 2e 20 e7 20 69 6e 74 65 |Click.7.. . inte|
00009560 72 66 61 63 65 25 20 8c 20 c8 99 22 57 69 6d 70 |rface% . .."Wimp|
00009570 5f 42 6f 72 64 65 72 49 63 6f 6e 22 2c 2c 77 69 |_BorderIcon",,wi|
00009580 6d 70 25 0d 37 8c 33 20 f2 45 76 65 6e 74 5f 4d |mp%.7.3 .Event_M|
00009590 6f 75 73 65 43 6c 69 63 6b 28 77 69 6e 64 6f 77 |ouseClick(window|
000095a0 25 2c 69 63 6f 6e 25 2c 62 75 74 74 6f 6e 25 2c |%,icon%,button%,|
000095b0 78 25 2c 79 25 29 0d 37 96 15 20 c8 8e 20 20 69 |x%,y%).7.. .. i|
000095c0 6e 74 65 72 66 61 63 65 25 20 ca 0d 37 a0 0b 20 |nterface% ..7.. |
000095d0 20 c9 20 b9 20 3a 0d 37 aa 28 20 20 20 77 69 6d | . . :.7.( wim|
000095e0 70 25 21 30 3d 78 25 3a 77 69 6d 70 25 21 34 3d |p%!0=x%:wimp%!4=|
000095f0 79 25 20 3a 20 77 69 6d 70 25 21 38 3d 30 0d 37 |y% : wimp%!8=0.7|
00009600 b4 28 20 20 20 77 69 6d 70 25 21 31 32 3d 77 69 |.( wimp%!12=wi|
00009610 6e 64 6f 77 25 20 3a 20 77 69 6d 70 25 21 31 36 |ndow% : wimp%!16|
00009620 3d 69 63 6f 6e 25 0d 37 be 21 20 20 20 c8 99 22 |=icon%.7.! .."|
00009630 57 69 6d 70 5f 42 6f 72 64 65 72 49 63 6f 6e 22 |Wimp_BorderIcon"|
00009640 2c 2c 77 69 6d 70 25 0d 37 c8 06 20 cb 0d 37 d2 |,,wimp%.7.. ..7.|
00009650 05 e1 0d 37 dc 05 3a 0d 37 e6 21 dd 20 f2 57 69 |...7..:.7.!. .Wi|
00009660 6d 70 5f 50 6f 6c 6c 53 61 76 65 46 69 6c 65 28 |mp_PollSaveFile(|
00009670 77 69 6e 64 6f 77 25 29 0d 37 f0 0a ea 66 69 6c |window%).7...fil|
00009680 65 24 0d 37 fa 40 20 77 69 6d 70 25 21 30 3d 77 |e$.7.@ wimp%!0=w|
00009690 69 6e 64 6f 77 25 20 3a 20 77 69 6d 70 25 21 34 |indow% : wimp%!4|
000096a0 3d 31 20 3a 20 c8 99 20 22 57 69 6d 70 5f 47 65 |=1 : .. "Wimp_Ge|
000096b0 74 49 63 6f 6e 53 74 61 74 65 22 2c 2c 77 69 6d |tIconState",,wim|
000096c0 70 25 0d 38 04 16 20 66 69 6c 65 24 3d 24 28 77 |p%.8.. file$=$(w|
000096d0 69 6d 70 25 21 32 38 29 0d 38 0e 15 20 c8 8e 20 |imp%!28).8.. .. |
000096e0 a7 66 69 6c 65 24 2c 22 2e 22 29 20 ca 0d 38 18 |.file$,".") ..8.|
000096f0 0d 20 20 c9 20 30 20 20 20 3a 0d 38 22 0f e7 20 |. . 0 :.8".. |
00009700 6b 65 79 25 3d 31 33 20 8c 0d 38 2c 40 20 20 20 |key%=13 ..8,@ |
00009710 24 28 77 69 6d 70 25 2b 34 29 3d 22 54 6f 20 73 |$(wimp%+4)="To s|
00009720 61 76 65 2c 20 64 72 61 67 20 74 68 65 20 69 63 |ave, drag the ic|
00009730 6f 6e 20 74 6f 20 61 20 64 69 72 65 63 74 6f 72 |on to a director|
00009740 79 20 77 69 6e 64 6f 77 22 0d 38 36 2b 20 20 20 |y window".86+ |
00009750 c8 99 20 22 57 69 6d 70 5f 52 65 70 6f 72 74 45 |.. "Wimp_ReportE|
00009760 72 72 6f 72 22 2c 77 69 6d 70 25 2c 31 36 2c 74 |rror",wimp%,16,t|
00009770 61 73 6b 24 0d 38 40 05 cd 0d 38 4a 08 20 20 7f |ask$.8@...8J. .|
00009780 3a 0d 38 54 22 f2 45 76 65 6e 74 5f 53 61 76 65 |:.8T".Event_Save|
00009790 46 69 6c 65 28 66 69 6c 65 24 2c 77 69 6e 64 6f |File(file$,windo|
000097a0 77 25 29 0d 38 5e 13 f2 57 69 6d 70 5f 4d 65 6e |w%).8^..Wimp_Men|
000097b0 75 43 6c 6f 73 65 0d 38 68 06 20 cb 0d 38 72 26 |uClose.8h. ..8r&|
000097c0 e7 20 6b 65 79 25 3d 31 33 20 8c 20 c8 99 22 57 |. key%=13 . .."W|
000097d0 69 6d 70 5f 43 72 65 61 74 65 4d 65 6e 75 22 2c |imp_CreateMenu",|
000097e0 2d 31 0d 38 7c 1d e7 20 53 41 25 3d b9 20 8c 20 |-1.8|.. SA%=. . |
000097f0 f2 57 69 6d 70 5f 43 6c 6f 73 65 44 6f 77 6e 0d |.Wimp_CloseDown.|
00009800 38 86 05 e1 0d 38 90 05 3a 0d 38 9a 20 dd 20 f2 |8....8..:.8. . .|
00009810 57 69 6d 70 5f 50 6f 6c 6c 44 72 61 67 42 6f 78 |Wimp_PollDragBox|
00009820 28 77 69 6e 64 6f 77 25 29 0d 38 a4 0a ea 78 25 |(window%).8...x%|
00009830 2c 79 25 0d 38 ae 1c e7 20 77 69 6e 64 6f 77 25 |,y%.8... window%|
00009840 3d 53 61 76 65 5f 57 69 6e 64 6f 77 25 20 8c 0d |=Save_Window% ..|
00009850 38 b8 13 73 6e 24 3d 22 66 69 6c 65 5f 61 63 65 |8..sn$="file_ace|
00009860 32 22 0d 38 c2 05 cc 0d 38 cc 0f 73 6e 24 3d 22 |2".8....8..sn$="|
00009870 74 65 78 74 32 22 0d 38 d6 05 cd 0d 38 e0 12 20 |text2".8....8.. |
00009880 73 61 76 65 25 3d 77 69 6e 64 6f 77 25 0d 38 ea |save%=window%.8.|
00009890 13 20 21 77 69 6d 70 25 3d 77 69 6e 64 6f 77 25 |. !wimp%=window%|
000098a0 0d 38 f4 23 20 c8 99 22 57 69 6d 70 5f 47 65 74 |.8.# .."Wimp_Get|
000098b0 57 69 6e 64 6f 77 53 74 61 74 65 22 2c 2c 77 69 |WindowState",,wi|
000098c0 6d 70 25 0d 38 fe 2d 20 78 25 3d 77 69 6d 70 25 |mp%.8.- x%=wimp%|
000098d0 21 34 2d 77 69 6d 70 25 21 32 30 3a 79 25 3d 77 |!4-wimp%!20:y%=w|
000098e0 69 6d 70 25 21 31 36 2d 77 69 6d 70 25 21 32 34 |imp%!16-wimp%!24|
000098f0 0d 39 08 0e 20 77 69 6d 70 25 21 34 3d 33 0d 39 |.9.. wimp%!4=3.9|
00009900 12 21 20 c8 99 22 57 69 6d 70 5f 47 65 74 49 63 |.! .."Wimp_GetIc|
00009910 6f 6e 53 74 61 74 65 22 2c 2c 77 69 6d 70 25 0d |onState",,wimp%.|
00009920 39 1c 13 20 21 77 69 6d 70 25 3d 77 69 6e 64 6f |9.. !wimp%=windo|
00009930 77 25 0d 39 26 0e 20 77 69 6d 70 25 21 34 3d 35 |w%.9&. wimp%!4=5|
00009940 0d 39 30 2c 20 77 69 6d 70 25 21 38 3d 78 25 2b |.90, wimp%!8=x%+|
00009950 77 69 6d 70 25 21 38 3a 77 69 6d 70 25 21 31 32 |wimp%!8:wimp%!12|
00009960 3d 79 25 2b 77 69 6d 70 25 21 31 32 0d 39 3a 2e |=y%+wimp%!12.9:.|
00009970 20 77 69 6d 70 25 21 31 36 3d 78 25 2b 77 69 6d | wimp%!16=x%+wim|
00009980 70 25 21 31 36 3a 77 69 6d 70 25 21 32 30 3d 79 |p%!16:wimp%!20=y|
00009990 25 2b 77 69 6d 70 25 21 32 30 0d 39 44 1a 20 77 |%+wimp%!20.9D. w|
000099a0 69 6d 70 25 21 32 34 3d 30 3a 77 69 6d 70 25 21 |imp%!24=0:wimp%!|
000099b0 32 38 3d 30 0d 39 4e 2a 20 77 69 6d 70 25 21 33 |28=0.9N* wimp%!3|
000099c0 32 3d 26 37 46 46 46 46 46 46 46 3a 77 69 6d 70 |2=&7FFFFFFF:wimp|
000099d0 25 21 33 36 3d 26 37 46 46 46 46 46 46 46 0d 39 |%!36=&7FFFFFFF.9|
000099e0 58 0e e7 20 73 6e 24 3d 22 22 20 8c 0d 39 62 16 |X.. sn$="" ..9b.|
000099f0 c8 99 26 30 30 30 34 30 30 44 30 2c 2c 77 69 6d |..&000400D0,,wim|
00009a00 70 25 0d 39 6c 05 cc 0d 39 76 12 e7 20 64 72 61 |p%.9l...9v.. dra|
00009a10 67 69 63 6f 6e 73 25 20 8c 0d 39 80 2f c8 99 20 |gicons% ..9./.. |
00009a20 26 30 30 30 34 32 34 30 30 2c 25 31 31 30 30 30 |&00042400,%11000|
00009a30 31 30 31 2c 73 70 72 69 74 65 73 25 2c 73 6e 24 |101,sprites%,sn$|
00009a40 2c 77 69 6d 70 25 2b 38 0d 39 8a 05 cc 0d 39 94 |,wimp%+8.9....9.|
00009a50 16 c8 99 26 30 30 30 34 30 30 44 30 2c 2c 77 69 |...&000400D0,,wi|
00009a60 6d 70 25 0d 39 9e 05 cd 0d 39 a8 05 cd 0d 39 b2 |mp%.9....9....9.|
00009a70 0a f2 75 6e 62 6f 78 0d 39 bc 05 e1 0d 39 c6 05 |..unbox.9....9..|
00009a80 3a 0d 39 d0 18 dd 20 f2 57 69 6d 70 5f 50 6f 6c |:.9... .Wimp_Pol|
00009a90 6c 4b 65 79 50 72 65 73 73 0d 39 da 31 20 20 77 |lKeyPress.9.1 w|
00009aa0 69 6e 64 6f 77 25 3d 77 69 6d 70 25 21 30 3a 69 |indow%=wimp%!0:i|
00009ab0 63 6f 6e 25 3d 77 69 6d 70 25 21 34 3a 6b 65 79 |con%=wimp%!4:key|
00009ac0 25 3d 77 69 6d 70 25 21 32 34 0d 39 e4 1f 20 20 |%=wimp%!24.9.. |
00009ad0 c8 8e 20 a4 45 76 65 6e 74 5f 53 61 76 65 28 77 |.. .Event_Save(w|
00009ae0 69 6e 64 6f 77 25 29 20 ca 0d 39 ee 28 20 20 20 |indow%) ..9.( |
00009af0 c9 20 b9 20 3a 20 f2 57 69 6d 70 5f 50 6f 6c 6c |. . : .Wimp_Poll|
00009b00 53 61 76 65 46 69 6c 65 28 77 69 6e 64 6f 77 25 |SaveFile(window%|
00009b10 29 0d 39 f8 2f 20 20 20 c9 20 a3 3a 20 f2 45 76 |).9./ . .: .Ev|
00009b20 65 6e 74 5f 4b 65 79 50 72 65 73 73 28 77 69 6e |ent_KeyPress(win|
00009b30 64 6f 77 25 2c 69 63 6f 6e 25 2c 6b 65 79 25 29 |dow%,icon%,key%)|
00009b40 0d 3a 02 07 20 20 cb 0d 3a 0c 05 e1 0d 3a 16 05 |.:.. ..:....:..|
00009b50 3a 0d 3a 20 1b dd 20 f2 57 69 6d 70 5f 50 6f 6c |:.: .. .Wimp_Pol|
00009b60 6c 53 61 76 65 4d 65 73 73 61 67 65 0d 3a 2a 1e |lSaveMessage.:*.|
00009b70 ea 66 69 6c 65 24 2c 77 69 6e 64 6f 77 25 2c 69 |.file$,window%,i|
00009b80 63 6f 6e 25 2c 78 25 2c 79 25 0d 3a 34 23 20 c8 |con%,x%,y%.:4# .|
00009b90 99 22 57 69 6d 70 5f 47 65 74 50 6f 69 6e 74 65 |."Wimp_GetPointe|
00009ba0 72 49 6e 66 6f 22 2c 2c 77 69 6d 70 25 0d 3a 3e |rInfo",,wimp%.:>|
00009bb0 3a 20 77 69 6e 64 6f 77 25 3d 77 69 6d 70 25 21 |: window%=wimp%!|
00009bc0 31 32 3a 69 63 6f 6e 25 3d 77 69 6d 70 25 21 31 |12:icon%=wimp%!1|
00009bd0 36 3a 78 25 3d 77 69 6d 70 25 21 30 3a 79 25 3d |6:x%=wimp%!0:y%=|
00009be0 77 69 6d 70 25 21 34 0d 3a 48 3e 20 77 69 6d 70 |wimp%!4.:H> wimp|
00009bf0 25 21 30 3d 73 61 76 65 25 20 3a 20 77 69 6d 70 |%!0=save% : wimp|
00009c00 25 21 34 3d 31 20 3a 20 c8 99 20 22 57 69 6d 70 |%!4=1 : .. "Wimp|
00009c10 5f 47 65 74 49 63 6f 6e 53 74 61 74 65 22 2c 2c |_GetIconState",,|
00009c20 77 69 6d 70 25 0d 3a 52 16 20 66 69 6c 65 24 3d |wimp%.:R. file$=|
00009c30 24 28 77 69 6d 70 25 21 32 38 29 0d 3a 5c 2b 20 |$(wimp%!28).:\+ |
00009c40 66 69 6c 65 24 3d a4 57 69 6d 70 5f 47 65 74 46 |file$=.Wimp_GetF|
00009c50 69 6c 65 46 72 6f 6d 50 61 74 68 6e 61 6d 65 28 |ileFromPathname(|
00009c60 66 69 6c 65 24 29 0d 3a 66 0e 41 43 45 24 3d 66 |file$).:f.ACE$=f|
00009c70 69 6c 65 24 0d 3a 70 15 20 77 69 6d 70 25 21 32 |ile$.:p. wimp%!2|
00009c80 30 3d 77 69 6e 64 6f 77 25 0d 3a 7a 13 20 77 69 |0=window%.:z. wi|
00009c90 6d 70 25 21 32 34 3d 69 63 6f 6e 25 0d 3a 84 1c |mp%!24=icon%.:..|
00009ca0 20 77 69 6d 70 25 21 32 38 3d 78 25 3a 77 69 6d | wimp%!28=x%:wim|
00009cb0 70 25 21 33 32 3d 79 25 0d 3a 8e 15 20 77 69 6d |p%!32=y%.:.. wim|
00009cc0 70 25 21 33 36 3d 6c 65 6e 67 74 68 25 0d 3a 98 |p%!36=length%.:.|
00009cd0 0f 20 77 69 6d 70 25 21 30 3d 36 34 0d 3a a2 0f |. wimp%!0=64.:..|
00009ce0 20 77 69 6d 70 25 21 31 32 3d 30 0d 3a ac 0f 20 | wimp%!12=0.:.. |
00009cf0 77 69 6d 70 25 21 31 36 3d 31 0d 3a b6 12 20 77 |wimp%!16=1.:.. w|
00009d00 69 6d 70 25 21 34 30 3d 26 46 46 46 0d 3a c0 16 |imp%!40=&FFF.:..|
00009d10 20 24 28 77 69 6d 70 25 2b 34 34 29 3d 66 69 6c | $(wimp%+44)=fil|
00009d20 65 24 0d 3a ca 34 20 c8 99 22 57 69 6d 70 5f 53 |e$.:.4 .."Wimp_S|
00009d30 65 6e 64 4d 65 73 73 61 67 65 22 2c 31 37 2c 77 |endMessage",17,w|
00009d40 69 6d 70 25 2c 77 69 6d 70 25 21 32 30 2c 77 69 |imp%,wimp%!20,wi|
00009d50 6d 70 25 21 32 34 0d 3a d4 05 e1 0d 3a de 05 3a |mp%!24.:....:..:|
00009d60 0d 3a e8 18 dd 20 f2 57 69 6d 70 5f 50 6f 6c 6c |.:... .Wimp_Poll|
00009d70 4d 65 73 73 61 67 65 73 0d 3a f2 10 41 41 25 3d |Messages.:..AA%=|
00009d80 77 69 6d 70 25 21 31 36 0d 3a fc 10 41 42 25 3d |wimp%!16.:..AB%=|
00009d90 77 69 6d 70 25 21 34 30 0d 3b 06 10 41 43 25 3d |wimp%!40.;..AC%=|
00009da0 77 69 6d 70 25 21 31 32 0d 3b 10 0f 41 44 25 3d |wimp%!12.;..AD%=|
00009db0 77 69 6d 70 25 21 38 0d 3b 1a 10 41 45 25 3d 77 |wimp%!8.;..AE%=w|
00009dc0 69 6d 70 25 21 32 30 0d 3b 24 10 f2 6f 70 65 6e |imp%!20.;$..open|
00009dd0 70 72 69 6e 74 65 72 0d 3b 2e 0b ea 20 66 69 6c |printer.;... fil|
00009de0 65 24 0d 3b 38 2c 66 69 6c 65 24 3d a4 57 69 6d |e$.;8,file$=.Wim|
00009df0 70 5f 47 65 74 53 74 72 69 6e 67 41 74 41 64 64 |p_GetStringAtAdd|
00009e00 72 65 73 73 28 77 69 6d 70 25 2b 34 34 29 0d 3b |ress(wimp%+44).;|
00009e10 42 10 20 20 20 20 c8 8e 20 41 41 25 20 ca 0d 3b |B. .. AA% ..;|
00009e20 4c 1a 20 20 20 20 20 c9 20 30 20 3a 20 66 69 6e |L. . 0 : fin|
00009e30 69 73 68 65 64 25 3d b9 0d 3b 56 0e 20 20 20 20 |ished%=..;V. |
00009e40 20 c9 20 31 20 3a 0d 3b 60 0e 20 20 20 20 20 c9 | . 1 :.;`. .|
00009e50 20 32 20 3a 0d 3b 6a 43 20 20 20 20 20 20 77 69 | 2 :.;jC wi|
00009e60 6d 70 25 21 30 3d 73 61 76 65 25 20 3a 20 77 69 |mp%!0=save% : wi|
00009e70 6d 70 25 21 34 3d 31 20 3a 20 c8 99 20 22 57 69 |mp%!4=1 : .. "Wi|
00009e80 6d 70 5f 47 65 74 49 63 6f 6e 53 74 61 74 65 22 |mp_GetIconState"|
00009e90 2c 2c 77 69 6d 70 25 0d 3b 74 1b 20 20 20 20 20 |,,wimp%.;t. |
00009ea0 20 24 28 77 69 6d 70 25 21 32 38 29 3d 66 69 6c | $(wimp%!28)=fil|
00009eb0 65 24 0d 3b 7e 3c 20 20 20 20 20 20 77 69 6d 70 |e$.;~< wimp|
00009ec0 25 21 30 3d 73 61 76 65 25 20 3a 20 77 69 6d 70 |%!0=save% : wimp|
00009ed0 25 21 34 3d 31 20 3a 20 77 69 6d 70 25 21 38 3d |%!4=1 : wimp%!8=|
00009ee0 30 20 3a 20 77 69 6d 70 25 21 31 32 3d 30 0d 3b |0 : wimp%!12=0.;|
00009ef0 88 27 20 20 20 20 20 20 c8 99 20 22 57 69 6d 70 |.' .. "Wimp|
00009f00 5f 53 65 74 49 63 6f 6e 53 74 61 74 65 22 2c 2c |_SetIconState",,|
00009f10 77 69 6d 70 25 0d 3b 92 30 20 20 20 20 20 20 f4 |wimp%.;.0 .|
00009f20 20 50 52 4f 43 57 69 6d 70 5f 49 63 6f 6e 43 61 | PROCWimp_IconCa|
00009f30 72 65 74 28 73 61 76 65 25 2c 31 2c 4c 45 4e 66 |ret(save%,1,LENf|
00009f40 69 6c 65 24 29 0d 3b 9c 38 20 20 20 20 20 20 c8 |ile$).;.8 .|
00009f50 99 20 22 57 69 6d 70 5f 53 65 74 43 61 72 65 74 |. "Wimp_SetCaret|
00009f60 50 6f 73 69 74 69 6f 6e 22 2c 73 61 76 65 25 2c |Position",save%,|
00009f70 31 2c 2c 2c 2d 31 2c a9 66 69 6c 65 24 0d 3b a6 |1,,,-1,.file$.;.|
00009f80 19 20 20 20 20 20 20 f2 57 69 6d 70 5f 4d 65 6e |. .Wimp_Men|
00009f90 75 43 6c 6f 73 65 0d 3b b0 26 20 20 20 20 20 20 |uClose.;.& |
00009fa0 f2 45 76 65 6e 74 5f 53 61 76 65 46 69 6c 65 28 |.Event_SaveFile(|
00009fb0 66 69 6c 65 24 2c 73 61 76 65 25 29 0d 3b ba 23 |file$,save%).;.#|
00009fc0 20 20 20 20 20 20 e7 20 53 41 25 3d b9 20 8c 20 | . SA%=. . |
00009fd0 f2 57 69 6d 70 5f 43 6c 6f 73 65 44 6f 77 6e 0d |.Wimp_CloseDown.|
00009fe0 3b c4 0c 20 20 20 20 20 c9 20 33 0d 3b ce 28 20 |;.. . 3.;.( |
00009ff0 20 20 20 20 20 74 79 70 65 24 3d a4 57 69 6d 70 | type$=.Wimp|
0000a000 5f 46 69 6c 65 54 79 70 65 28 77 69 6d 70 25 21 |_FileType(wimp%!|
0000a010 34 30 29 0d 3b d8 26 20 20 20 20 20 20 f2 45 76 |40).;.& .Ev|
0000a020 65 6e 74 5f 4c 6f 61 64 46 69 6c 65 28 66 69 6c |ent_LoadFile(fil|
0000a030 65 24 2c 74 79 70 65 24 29 0d 3b e2 11 20 20 20 |e$,type$).;.. |
0000a040 20 20 c9 20 26 34 30 30 43 31 0d 3b ec 42 20 20 | . &400C1.;.B |
0000a050 20 20 20 20 e7 20 a4 69 73 6f 70 65 6e 28 4d 61 | . .isopen(Ma|
0000a060 69 6e 5f 57 69 6e 64 6f 77 25 29 20 8c 20 f2 57 |in_Window%) . .W|
0000a070 69 6d 70 5f 57 69 6e 64 6f 77 4f 70 65 6e 28 4d |imp_WindowOpen(M|
0000a080 61 69 6e 5f 57 69 6e 64 6f 77 25 29 0d 3b f6 0c |ain_Window%).;..|
0000a090 20 20 20 20 20 c9 20 35 0d 3c 00 10 77 69 6d 70 | . 5.<..wimp|
0000a0a0 25 21 34 30 3d 41 42 25 0d 3c 0a 10 77 69 6d 70 |%!40=AB%.<..wimp|
0000a0b0 25 21 31 32 3d 41 43 25 0d 3c 14 0f 77 69 6d 70 |%!12=AC%.<..wimp|
0000a0c0 25 21 38 3d 41 44 25 0d 3c 1e 10 77 69 6d 70 25 |%!8=AD%.<..wimp%|
0000a0d0 21 32 30 3d 41 45 25 0d 3c 28 27 20 20 20 20 20 |!20=AE%.<(' |
0000a0e0 20 e7 20 77 69 6d 70 25 21 34 30 3d 26 41 43 45 | . wimp%!40=&ACE|
0000a0f0 20 80 20 65 76 65 6e 74 25 3d 31 38 20 8c 0d 3c | . event%=18 ..<|
0000a100 32 1b 20 20 20 20 20 20 20 77 69 6d 70 25 21 31 |2. wimp%!1|
0000a110 32 3d 77 69 6d 70 25 21 38 0d 3c 3c 32 20 20 20 |2=wimp%!8.<<2 |
0000a120 20 20 20 20 c8 99 22 58 57 69 6d 70 5f 53 65 6e | .."XWimp_Sen|
0000a130 64 4d 65 73 73 61 67 65 22 2c 31 37 2c 77 69 6d |dMessage",17,wim|
0000a140 70 25 2c 77 69 6d 70 25 21 32 30 0d 3c 46 26 20 |p%,wimp%!20.<F& |
0000a150 20 20 20 20 20 20 66 69 6c 65 24 3d a4 57 69 6d | file$=.Wim|
0000a160 70 5f 47 65 74 46 69 6c 65 50 61 74 68 4e 61 6d |p_GetFilePathNam|
0000a170 65 0d 3c 50 25 20 20 20 20 20 20 20 74 79 70 65 |e.<P% type|
0000a180 24 3d a4 57 69 6d 70 5f 46 69 6c 65 54 79 70 65 |$=.Wimp_FileType|
0000a190 28 26 41 43 45 29 0d 3c 5a 27 20 20 20 20 20 20 |(&ACE).<Z' |
0000a1a0 20 f2 45 76 65 6e 74 5f 4c 6f 61 64 46 69 6c 65 | .Event_LoadFile|
0000a1b0 28 66 69 6c 65 24 2c 74 79 70 65 24 29 0d 3c 64 |(file$,type$).<d|
0000a1c0 0a 20 20 20 20 20 cd 0d 3c 6e 09 20 20 20 20 cb |. ..<n. .|
0000a1d0 0d 3c 78 05 e1 0d 3c 82 05 3a 0d 3c 8c 26 dd 20 |.<x...<..:.<.&. |
0000a1e0 a4 57 69 6d 70 5f 47 65 74 53 74 72 69 6e 67 41 |.Wimp_GetStringA|
0000a1f0 74 41 64 64 72 65 73 73 28 61 72 72 61 79 25 29 |tAddress(array%)|
0000a200 0d 3c 96 0d ea 73 24 3a 73 24 3d 22 22 0d 3c a0 |.<...s$:s$="".<.|
0000a210 3c c8 95 28 3f 61 72 72 61 79 25 3c 3e 31 33 29 |<..(?array%<>13)|
0000a220 80 28 3f 61 72 72 61 79 25 3c 3e 30 29 3a 73 24 |.(?array%<>0):s$|
0000a230 2b 3d bd 28 3f 61 72 72 61 79 25 29 3a 61 72 72 |+=.(?array%):arr|
0000a240 61 79 25 2b 3d 31 3a ce 3a 0d 3c aa 07 3d 73 24 |ay%+=1:.:.<..=s$|
0000a250 0d 3c b4 05 3a 0d 3c be 23 dd 20 a4 57 69 6d 70 |.<..:.<.#. .Wimp|
0000a260 5f 47 65 74 46 69 6c 65 46 72 6f 6d 50 61 74 68 |_GetFileFromPath|
0000a270 6e 61 6d 65 28 66 24 29 0d 3c c8 11 c8 8e 20 a7 |name(f$).<.... .|
0000a280 66 24 2c 22 2e 22 29 20 ca 0d 3c d2 10 20 c9 20 |f$,".") ..<.. . |
0000a290 30 20 20 20 20 3a 3d 66 24 0d 3c dc 37 20 7f 20 |0 :=f$.<.7 . |
0000a2a0 3a 3d a4 57 69 6d 70 5f 47 65 74 46 69 6c 65 46 |:=.Wimp_GetFileF|
0000a2b0 72 6f 6d 50 61 74 68 6e 61 6d 65 28 c2 66 24 2c |romPathname(.f$,|
0000a2c0 a9 28 66 24 29 2d a7 66 24 2c 22 2e 22 29 29 29 |.(f$)-.f$,".")))|
0000a2d0 0d 3c e6 05 cb 0d 3c f0 06 3d a3 0d 3c fa 05 3a |.<....<..=..<..:|
0000a2e0 0d 3d 04 1b dd 20 a4 57 69 6d 70 5f 46 69 6c 65 |.=... .Wimp_File|
0000a2f0 54 79 70 65 28 74 79 70 65 25 29 0d 3d 0e 0c c8 |Type(type%).=...|
0000a300 8e 74 79 70 65 25 ca 0d 3d 18 11 c9 26 46 46 46 |.type%..=...&FFF|
0000a310 3a 3d 22 54 65 78 74 22 0d 3d 22 11 c9 26 46 46 |:="Text".="..&FF|
0000a320 44 3a 3d 22 44 61 74 61 22 0d 3d 2c 12 c9 26 46 |D:="Data".=,..&F|
0000a330 46 42 3a 3d 22 42 61 73 69 63 22 0d 3d 36 13 c9 |FB:="Basic".=6..|
0000a340 26 46 46 39 3a 3d 22 53 70 72 69 74 65 22 0d 3d |&FF9:="Sprite".=|
0000a350 40 14 c9 26 46 45 44 3a 3d 22 50 61 6c 65 74 74 |@..&FED:="Palett|
0000a360 65 22 0d 3d 4a 15 c9 26 46 45 43 3a 3d 22 54 65 |e".=J..&FEC:="Te|
0000a370 6d 70 6c 61 74 65 22 0d 3d 54 11 c9 26 41 46 46 |mplate".=T..&AFF|
0000a380 3a 3d 22 44 72 61 77 22 0d 3d 5e 14 c9 26 31 30 |:="Draw".=^..&10|
0000a390 30 30 3a 3d 22 46 6f 6c 64 65 72 22 0d 3d 68 19 |00:="Folder".=h.|
0000a3a0 c9 26 32 30 30 30 3a 3d 22 41 70 70 6c 69 63 61 |.&2000:="Applica|
0000a3b0 74 69 6f 6e 22 0d 3d 72 10 7f 3a 3d c3 7e 28 74 |tion".=r..:=.~(t|
0000a3c0 79 70 65 25 29 0d 3d 7c 05 cb 0d 3d 86 06 3d a3 |ype%).=|...=..=.|
0000a3d0 0d 3d 90 05 3a 0d 3d 9a 0e dd 20 f2 62 6f 74 6f |.=..:.=... .boto|
0000a3e0 70 65 6e 0d 3d a4 1c e7 20 77 69 6d 70 25 21 30 |pen.=... wimp%!0|
0000a3f0 3d 4d 61 69 6e 5f 57 69 6e 64 6f 77 25 20 8c 0d |=Main_Window% ..|
0000a400 3d ae 15 6d 61 69 6e 6d 69 6e 78 25 3d 77 69 6d |=..mainminx%=wim|
0000a410 70 25 21 34 0d 3d b8 15 6d 61 69 6e 6d 69 6e 79 |p%!4.=..mainminy|
0000a420 25 3d 77 69 6d 70 25 21 38 0d 3d c2 16 6d 61 69 |%=wimp%!8.=..mai|
0000a430 6e 6d 61 78 78 25 3d 77 69 6d 70 25 21 31 32 0d |nmaxx%=wimp%!12.|
0000a440 3d cc 16 6d 61 69 6e 6d 61 78 79 25 3d 77 69 6d |=..mainmaxy%=wim|
0000a450 70 25 21 31 36 0d 3d d6 19 6d 61 69 6e 73 63 72 |p%!16.=..mainscr|
0000a460 6f 6c 6c 78 25 3d 77 69 6d 70 25 21 32 30 0d 3d |ollx%=wimp%!20.=|
0000a470 e0 19 6d 61 69 6e 73 63 72 6f 6c 6c 79 25 3d 77 |..mainscrolly%=w|
0000a480 69 6d 70 25 21 32 34 0d 3d ea 04 0d 3d f4 16 62 |imp%!24.=...=..b|
0000a490 61 63 6b 68 61 6e 64 25 3d 77 69 6d 70 25 21 32 |ackhand%=wimp%!2|
0000a4a0 38 0d 3d fe 19 77 69 6d 70 25 21 30 3d 54 6f 6f |8.=..wimp%!0=Too|
0000a4b0 6c 73 5f 57 69 6e 64 6f 77 25 0d 3e 08 14 c8 99 |ls_Window%.>....|
0000a4c0 20 26 34 30 30 63 62 2c 2c 77 69 6d 70 25 0d 3e | &400cb,,wimp%.>|
0000a4d0 12 19 77 69 6d 70 25 21 30 3d 54 6f 6f 6c 73 5f |..wimp%!0=Tools_|
0000a4e0 57 69 6e 64 6f 77 25 0d 3e 1c 18 77 69 6d 70 25 |Window%.>..wimp%|
0000a4f0 21 34 3d 6d 61 69 6e 6d 69 6e 78 25 2d 37 38 0d |!4=mainminx%-78.|
0000a500 3e 26 15 77 69 6d 70 25 21 38 3d 6d 61 69 6e 6d |>&.wimp%!8=mainm|
0000a510 69 6e 79 25 0d 3e 30 1e 77 69 6d 70 25 21 31 32 |iny%.>0.wimp%!12|
0000a520 3d 6d 61 69 6e 6d 61 78 78 25 2b 77 69 6d 70 25 |=mainmaxx%+wimp%|
0000a530 21 34 0d 3e 3a 16 77 69 6d 70 25 21 31 36 3d 6d |!4.>:.wimp%!16=m|
0000a540 61 69 6e 6d 61 78 79 25 0d 3e 44 16 77 69 6d 70 |ainmaxy%.>D.wimp|
0000a550 25 21 32 38 3d 62 61 63 6b 68 61 6e 64 25 0d 3e |%!28=backhand%.>|
0000a560 4e 14 c8 99 20 26 34 30 30 43 35 2c 2c 77 69 6d |N... &400C5,,wim|
0000a570 70 25 0d 3e 58 04 0d 3e 62 17 77 69 6d 70 25 21 |p%.>X..>b.wimp%!|
0000a580 30 3d 42 6f 74 5f 57 69 6e 64 6f 77 25 0d 3e 6c |0=Bot_Window%.>l|
0000a590 14 c8 99 20 26 34 30 30 63 62 2c 2c 77 69 6d 70 |... &400cb,,wimp|
0000a5a0 25 0d 3e 76 17 77 69 6d 70 25 21 30 3d 42 6f 74 |%.>v.wimp%!0=Bot|
0000a5b0 5f 57 69 6e 64 6f 77 25 0d 3e 80 17 77 69 6d 70 |_Window%.>..wimp|
0000a5c0 25 21 34 3d 6d 61 69 6e 6d 69 6e 78 25 2b 36 0d |%!4=mainminx%+6.|
0000a5d0 3e 8a 18 77 69 6d 70 25 21 38 3d 6d 61 69 6e 6d |>..wimp%!8=mainm|
0000a5e0 69 6e 79 25 2b 31 30 0d 3e 94 1e 77 69 6d 70 25 |iny%+10.>..wimp%|
0000a5f0 21 31 32 3d 6d 61 69 6e 6d 61 78 78 25 2b 77 69 |!12=mainmaxx%+wi|
0000a600 6d 70 25 21 34 0d 3e 9e 1a 77 69 6d 70 25 21 31 |mp%!4.>..wimp%!1|
0000a610 36 3d 6d 61 69 6e 6d 61 78 79 25 2d 37 31 38 0d |6=mainmaxy%-718.|
0000a620 3e a8 11 77 69 6d 70 25 21 32 34 3d 53 43 4f 25 |>..wimp%!24=SCO%|
0000a630 0d 3e b2 1a 77 69 6d 70 25 21 32 38 3d 54 6f 6f |.>..wimp%!28=Too|
0000a640 6c 73 5f 57 69 6e 64 6f 77 25 0d 3e bc 14 c8 99 |ls_Window%.>....|
0000a650 20 26 34 30 30 43 35 2c 2c 77 69 6d 70 25 0d 3e | &400C5,,wimp%.>|
0000a660 c6 04 0d 3e d0 18 77 69 6d 70 25 21 30 3d 4d 61 |...>..wimp%!0=Ma|
0000a670 69 6e 5f 57 69 6e 64 6f 77 25 0d 3e da 15 77 69 |in_Window%.>..wi|
0000a680 6d 70 25 21 34 3d 6d 61 69 6e 6d 69 6e 78 25 0d |mp%!4=mainminx%.|
0000a690 3e e4 15 77 69 6d 70 25 21 38 3d 6d 61 69 6e 6d |>..wimp%!8=mainm|
0000a6a0 69 6e 79 25 0d 3e ee 16 77 69 6d 70 25 21 31 32 |iny%.>..wimp%!12|
0000a6b0 3d 6d 61 69 6e 6d 61 78 78 25 0d 3e f8 16 77 69 |=mainmaxx%.>..wi|
0000a6c0 6d 70 25 21 31 36 3d 6d 61 69 6e 6d 61 78 79 25 |mp%!16=mainmaxy%|
0000a6d0 0d 3f 02 19 77 69 6d 70 25 21 32 30 3d 6d 61 69 |.?..wimp%!20=mai|
0000a6e0 6e 73 63 72 6f 6c 6c 78 25 0d 3f 0c 19 77 69 6d |nscrollx%.?..wim|
0000a6f0 70 25 21 32 34 3d 6d 61 69 6e 73 63 72 6f 6c 6c |p%!24=mainscroll|
0000a700 79 25 0d 3f 16 18 77 69 6d 70 25 21 32 38 3d 42 |y%.?..wimp%!28=B|
0000a710 6f 74 5f 57 69 6e 64 6f 77 25 0d 3f 20 05 cd 0d |ot_Window%.? ...|
0000a720 3f 2a 05 e1 0d 3f 34 05 3a 0d 3f 3e 0d dd 20 f2 |?*...?4.:.?>.. .|
0000a730 73 63 72 6f 6c 6c 0d 3f 48 17 77 69 6d 70 25 21 |scroll.?H.wimp%!|
0000a740 30 3d 42 6f 74 5f 57 69 6e 64 6f 77 25 0d 3f 52 |0=Bot_Window%.?R|
0000a750 14 c8 99 20 26 34 30 30 43 42 2c 2c 77 69 6d 70 |... &400CB,,wimp|
0000a760 25 0d 3f 5c 11 77 69 6d 70 25 21 32 34 3d 53 43 |%.?\.wimp%!24=SC|
0000a770 4f 25 0d 3f 66 14 c8 99 20 26 34 30 30 43 35 2c |O%.?f... &400C5,|
0000a780 2c 77 69 6d 70 25 0d 3f 70 05 e1 0d 3f 7a 05 3a |,wimp%.?p...?z.:|
0000a790 0d 3f 84 13 dd 20 a4 69 73 6f 70 65 6e 28 77 69 |.?... .isopen(wi|
0000a7a0 6e 25 29 0d 3f 8e 10 77 69 6d 70 25 21 30 3d 77 |n%).?..wimp%!0=w|
0000a7b0 69 6e 25 0d 3f 98 23 c8 99 20 22 57 69 6d 70 5f |in%.?.#.. "Wimp_|
0000a7c0 47 65 74 57 69 6e 64 6f 77 53 74 61 74 65 22 2c |GetWindowState",|
0000a7d0 2c 77 69 6d 70 25 0d 3f a2 16 77 69 6e 66 6c 61 |,wimp%.?..winfla|
0000a7e0 67 73 25 3d 77 69 6d 70 25 21 33 32 0d 3f ac 30 |gs%=wimp%!32.?.0|
0000a7f0 e7 20 28 77 69 6e 66 6c 61 67 73 25 20 80 20 25 |. (winflags% . %|
0000a800 31 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 |1000000000000000|
0000a810 30 29 20 3d 20 36 35 35 33 36 20 8c 0d 3f b6 06 |0) = 65536 ..?..|
0000a820 3d b9 0d 3f c0 05 cc 0d 3f ca 06 3d a3 0d 3f d4 |=..?....?..=..?.|
0000a830 05 cd 0d 3f de 06 3d a3 0d 3f e8 05 3a 0d 3f f2 |...?..=..?..:.?.|
0000a840 0b dd 20 f2 72 65 61 64 0d 3f fc 2e 6e 61 6d 65 |.. .read.?..name|
0000a850 24 28 63 75 72 25 29 3d a4 57 69 6d 70 5f 49 63 |$(cur%)=.Wimp_Ic|
0000a860 6f 6e 54 65 78 74 28 4d 61 69 6e 5f 57 69 6e 64 |onText(Main_Wind|
0000a870 6f 77 25 2c 36 29 0d 40 06 36 e7 20 63 75 72 25 |ow%,6).@.6. cur%|
0000a880 3d 74 6f 74 25 20 8c 20 f2 57 69 6d 70 5f 49 63 |=tot% . .Wimp_Ic|
0000a890 6f 6e 50 75 74 54 65 78 74 28 4d 61 69 6e 5f 57 |onPutText(Main_W|
0000a8a0 69 6e 64 6f 77 25 2c 36 2c 22 22 29 0d 40 10 0f |indow%,6,"").@..|
0000a8b0 e3 20 41 3d 31 30 20 b8 20 31 37 0d 40 1a 33 69 |. A=10 . 17.@.3i|
0000a8c0 6e 66 6f 24 28 63 75 72 25 2c 41 2d 31 30 29 3d |nfo$(cur%,A-10)=|
0000a8d0 a4 57 69 6d 70 5f 49 63 6f 6e 54 65 78 74 28 4d |.Wimp_IconText(M|
0000a8e0 61 69 6e 5f 57 69 6e 64 6f 77 25 2c 41 29 0d 40 |ain_Window%,A).@|
0000a8f0 24 4d e7 20 63 75 72 25 3d 74 6f 74 25 20 80 20 |$M. cur%=tot% . |
0000a900 69 6e 66 6f 24 28 63 75 72 25 2c 41 2d 31 30 29 |info$(cur%,A-10)|
0000a910 3c 3e 22 22 20 8c 20 f2 57 69 6d 70 5f 49 63 6f |<>"" . .Wimp_Ico|
0000a920 6e 50 75 74 54 65 78 74 28 4d 61 69 6e 5f 57 69 |nPutText(Main_Wi|
0000a930 6e 64 6f 77 25 2c 41 2c 22 22 29 0d 40 2e 06 ed |ndow%,A,"").@...|
0000a940 41 0d 40 38 47 e7 20 63 75 72 25 3d 74 6f 74 25 |A.@8G. cur%=tot%|
0000a950 20 80 20 68 61 63 6b 24 28 63 75 72 25 29 3c 3e | . hack$(cur%)<>|
0000a960 22 22 20 8c 20 f2 57 69 6d 70 5f 49 63 6f 6e 50 |"" . .Wimp_IconP|
0000a970 75 74 54 65 78 74 28 42 6f 74 5f 57 69 6e 64 6f |utText(Bot_Windo|
0000a980 77 25 2c 34 2c 22 22 29 0d 40 42 05 e1 0d 40 4c |w%,4,"").@B...@L|
0000a990 05 3a 0d 40 56 0d dd 20 f2 75 70 64 61 74 65 0d |.:.@V.. .update.|
0000a9a0 40 60 53 f2 57 69 6d 70 5f 49 63 6f 6e 50 75 74 |@`S.Wimp_IconPut|
0000a9b0 54 65 78 74 28 42 6f 74 5f 57 69 6e 64 6f 77 25 |Text(Bot_Window%|
0000a9c0 2c 33 32 2c 22 52 65 63 6f 72 64 20 4e 75 6d 62 |,32,"Record Numb|
0000a9d0 65 72 20 2d 20 22 2b c3 28 63 75 72 25 2b 31 29 |er - "+.(cur%+1)|
0000a9e0 2b 22 20 6f 66 20 22 2b c3 28 74 6f 74 25 2b 31 |+" of "+.(tot%+1|
0000a9f0 29 29 0d 40 6a 24 f2 57 69 6d 70 5f 49 63 6f 6e |)).@j$.Wimp_Icon|
0000aa00 55 70 64 61 74 65 28 42 6f 74 5f 57 69 6e 64 6f |Update(Bot_Windo|
0000aa10 77 25 2c 33 33 29 0d 40 74 31 f2 57 69 6d 70 5f |w%,33).@t1.Wimp_|
0000aa20 49 63 6f 6e 50 75 74 54 65 78 74 28 4d 61 69 6e |IconPutText(Main|
0000aa30 5f 57 69 6e 64 6f 77 25 2c 36 2c 6e 61 6d 65 24 |_Window%,6,name$|
0000aa40 28 63 75 72 25 29 29 0d 40 7e 0f e3 20 41 3d 31 |(cur%)).@~.. A=1|
0000aa50 30 20 b8 20 31 37 0d 40 88 36 f2 57 69 6d 70 5f |0 . 17.@.6.Wimp_|
0000aa60 49 63 6f 6e 50 75 74 54 65 78 74 28 4d 61 69 6e |IconPutText(Main|
0000aa70 5f 57 69 6e 64 6f 77 25 2c 41 2c 69 6e 66 6f 24 |_Window%,A,info$|
0000aa80 28 63 75 72 25 2c 41 2d 31 30 29 29 0d 40 92 06 |(cur%,A-10)).@..|
0000aa90 ed 41 0d 40 9c 59 e7 20 68 61 63 6b 24 28 63 75 |.A.@.Y. hack$(cu|
0000aaa0 72 25 29 3d 22 22 20 8c 20 f2 57 69 6d 70 5f 49 |r%)="" . .Wimp_I|
0000aab0 63 6f 6e 44 69 73 61 62 6c 65 28 42 6f 74 5f 57 |conDisable(Bot_W|
0000aac0 69 6e 64 6f 77 25 2c 35 29 20 8b 20 f2 57 69 6d |indow%,5) . .Wim|
0000aad0 70 5f 49 63 6f 6e 45 6e 61 62 6c 65 28 42 6f 74 |p_IconEnable(Bot|
0000aae0 5f 57 69 6e 64 6f 77 25 2c 35 29 0d 40 a6 15 e7 |_Window%,5).@...|
0000aaf0 20 68 61 63 6b 25 28 63 75 72 25 29 3d b9 20 8c | hack%(cur%)=. .|
0000ab00 0d 40 b0 23 f2 57 69 6d 70 5f 53 65 6c 65 63 74 |.@.#.Wimp_Select|
0000ab10 49 63 6f 6e 28 42 6f 74 5f 57 69 6e 64 6f 77 25 |Icon(Bot_Window%|
0000ab20 2c 35 29 0d 40 ba 23 f2 57 69 6d 70 5f 49 63 6f |,5).@.#.Wimp_Ico|
0000ab30 6e 45 6e 61 62 6c 65 28 42 6f 74 5f 57 69 6e 64 |nEnable(Bot_Wind|
0000ab40 6f 77 25 2c 34 29 0d 40 c4 24 f2 57 69 6d 70 5f |ow%,4).@.$.Wimp_|
0000ab50 49 63 6f 6e 45 6e 61 62 6c 65 28 42 6f 74 5f 57 |IconEnable(Bot_W|
0000ab60 69 6e 64 6f 77 25 2c 33 39 29 0d 40 ce 24 f2 57 |indow%,39).@.$.W|
0000ab70 69 6d 70 5f 49 63 6f 6e 45 6e 61 62 6c 65 28 42 |imp_IconEnable(B|
0000ab80 6f 74 5f 57 69 6e 64 6f 77 25 2c 32 30 29 0d 40 |ot_Window%,20).@|
0000ab90 d8 05 cc 0d 40 e2 25 f2 57 69 6d 70 5f 55 6e 73 |....@.%.Wimp_Uns|
0000aba0 65 6c 65 63 74 49 63 6f 6e 28 42 6f 74 5f 57 69 |electIcon(Bot_Wi|
0000abb0 6e 64 6f 77 25 2c 35 29 0d 40 ec 24 f2 57 69 6d |ndow%,5).@.$.Wim|
0000abc0 70 5f 49 63 6f 6e 44 69 73 61 62 6c 65 28 42 6f |p_IconDisable(Bo|
0000abd0 74 5f 57 69 6e 64 6f 77 25 2c 34 29 0d 40 f6 25 |t_Window%,4).@.%|
0000abe0 f2 57 69 6d 70 5f 49 63 6f 6e 44 69 73 61 62 6c |.Wimp_IconDisabl|
0000abf0 65 28 42 6f 74 5f 57 69 6e 64 6f 77 25 2c 33 39 |e(Bot_Window%,39|
0000ac00 29 0d 41 00 25 f2 57 69 6d 70 5f 49 63 6f 6e 44 |).A.%.Wimp_IconD|
0000ac10 69 73 61 62 6c 65 28 42 6f 74 5f 57 69 6e 64 6f |isable(Bot_Windo|
0000ac20 77 25 2c 32 30 29 0d 41 0a 51 e7 20 a4 69 73 6f |w%,20).A.Q. .iso|
0000ac30 70 65 6e 28 48 61 63 6b 65 72 5f 57 69 6e 64 6f |pen(Hacker_Windo|
0000ac40 77 25 29 20 80 20 68 61 63 6b 25 28 63 75 72 25 |w%) . hack%(cur%|
0000ac50 29 3d a3 20 8c 20 f2 57 69 6d 70 5f 57 69 6e 64 |)=. . .Wimp_Wind|
0000ac60 6f 77 43 6c 6f 73 65 28 48 61 63 6b 65 72 5f 57 |owClose(Hacker_W|
0000ac70 69 6e 64 6f 77 25 29 0d 41 14 05 cd 0d 41 1e 4b |indow%).A....A.K|
0000ac80 f2 57 69 6d 70 5f 49 63 6f 6e 50 75 74 54 65 78 |.Wimp_IconPutTex|
0000ac90 74 28 42 6f 74 5f 57 69 6e 64 6f 77 25 2c 34 2c |t(Bot_Window%,4,|
0000aca0 a4 57 69 6d 70 5f 47 65 74 46 69 6c 65 46 72 6f |.Wimp_GetFileFro|
0000acb0 6d 50 61 74 68 6e 61 6d 65 28 68 61 63 6b 24 28 |mPathname(hack$(|
0000acc0 63 75 72 25 29 29 29 0d 41 28 5f e7 20 a4 69 73 |cur%))).A(_. .is|
0000acd0 6f 70 65 6e 28 4d 61 69 6e 5f 57 69 6e 64 6f 77 |open(Main_Window|
0000ace0 25 29 20 8c 20 f2 57 69 6d 70 5f 49 63 6f 6e 43 |%) . .Wimp_IconC|
0000acf0 61 72 65 74 28 4d 61 69 6e 5f 57 69 6e 64 6f 77 |aret(Main_Window|
0000ad00 25 2c 36 2c a9 28 a4 57 69 6d 70 5f 49 63 6f 6e |%,6,.(.Wimp_Icon|
0000ad10 54 65 78 74 28 4d 61 69 6e 5f 57 69 6e 64 6f 77 |Text(Main_Window|
0000ad20 25 2c 36 29 29 29 0d 41 32 05 e1 0d 41 3c 05 3a |%,6))).A2...A<.:|
0000ad30 0d 41 46 19 dd 20 f2 63 68 65 63 6b 6d 6f 64 75 |.AF.. .checkmodu|
0000ad40 6c 65 28 70 61 74 68 24 29 0d 41 50 07 ea 20 85 |le(path$).AP.. .|
0000ad50 0d 41 5a 12 ee 20 85 20 ea 20 f2 65 72 72 6f 72 |.AZ.. . . .error|
0000ad60 3a e1 0d 41 64 10 70 72 6f 67 65 6e 64 25 3d 93 |:..Ad.progend%=.|
0000ad70 2b 31 0d 41 6e 0f 58 25 3d 8e 28 70 61 74 68 24 |+1.An.X%=.(path$|
0000ad80 29 0d 41 78 10 6c 65 6e 67 74 68 25 3d a2 23 58 |).Ax.length%=.#X|
0000ad90 25 0d 41 82 09 d9 20 23 58 25 0d 41 8c 1f e7 20 |%.A... #X%.A... |
0000ada0 6c 65 6e 67 74 68 25 3e a4 63 68 65 63 6b 66 72 |length%>.checkfr|
0000adb0 65 65 73 70 61 63 65 20 8c 0d 41 96 26 85 20 30 |eespace ..A.&. 0|
0000adc0 2c 22 53 4f 52 52 59 20 4e 4f 20 52 4f 4f 4d 20 |,"SORRY NO ROOM |
0000add0 54 4f 20 4c 4f 41 44 20 4d 4f 44 55 4c 45 22 0d |TO LOAD MODULE".|
0000ade0 41 a0 05 cc 0d 41 aa 2a c8 99 20 22 57 69 6d 70 |A....A.*.. "Wimp|
0000adf0 5f 53 6c 6f 74 53 69 7a 65 22 2c 70 72 6f 67 65 |_SlotSize",proge|
0000ae00 6e 64 25 2b 6c 65 6e 67 74 68 25 2c 2d 31 0d 41 |nd%+length%,-1.A|
0000ae10 b4 25 ff 28 22 4c 4f 41 44 20 22 2b 70 61 74 68 |.%.("LOAD "+path|
0000ae20 24 2b 22 20 22 2b c3 7e 28 70 72 6f 67 65 6e 64 |$+" "+.~(progend|
0000ae30 25 29 29 0d 41 be 46 e7 20 a7 a4 57 69 6d 70 5f |%)).A.F. ..Wimp_|
0000ae40 4d 79 47 65 74 53 74 72 69 6e 67 41 74 41 64 64 |MyGetStringAtAdd|
0000ae50 72 65 73 73 28 70 72 6f 67 65 6e 64 25 2b 28 70 |ress(progend%+(p|
0000ae60 72 6f 67 65 6e 64 25 21 31 36 29 29 2c 22 43 68 |rogend%!16)),"Ch|
0000ae70 65 61 74 22 29 3e 30 20 8c 0d 41 c8 4a 74 69 74 |eat")>0 ..A.Jtit|
0000ae80 6c 65 73 74 72 69 6e 67 24 3d c1 a4 57 69 6d 70 |lestring$=..Wimp|
0000ae90 5f 4d 79 47 65 74 53 74 72 69 6e 67 41 74 41 64 |_MyGetStringAtAd|
0000aea0 64 72 65 73 73 28 70 72 6f 67 65 6e 64 25 2b 28 |dress(progend%+(|
0000aeb0 70 72 6f 67 65 6e 64 25 21 32 30 29 29 2c 31 2c |progend%!20)),1,|
0000aec0 31 35 29 0d 41 d2 0b 66 6f 75 6e 64 3d a3 0d 41 |15).A..found=..A|
0000aed0 dc 0f 70 6f 73 69 74 69 6f 6e 3d 2d 31 0d 41 e6 |..position=-1.A.|
0000aee0 37 e3 20 73 6d 65 67 25 3d 70 72 6f 67 65 6e 64 |7. smeg%=progend|
0000aef0 25 2b 28 70 72 6f 67 65 6e 64 25 21 32 30 29 2b |%+(progend%!20)+|
0000af00 34 20 b8 20 70 72 6f 67 65 6e 64 25 2b 6c 65 6e |4 . progend%+len|
0000af10 67 74 68 25 0d 41 f0 0f e7 20 ac 20 66 6f 75 6e |gth%.A... . foun|
0000af20 64 20 8c 0d 41 fa 09 70 61 66 3d b9 0d 42 04 12 |d ..A..paf=..B..|
0000af30 70 6f 73 69 74 69 6f 6e 3d 73 6d 65 67 25 0d 42 |position=smeg%.B|
0000af40 0e 20 e3 20 73 6d 65 67 32 25 3d 31 20 b8 20 a9 |. . smeg2%=1 . .|
0000af50 28 74 69 74 6c 65 73 74 72 69 6e 67 24 29 0d 42 |(titlestring$).B|
0000af60 18 3a 20 20 e7 20 3f 28 73 6d 65 67 25 2b 73 6d |.: . ?(smeg%+sm|
0000af70 65 67 32 25 29 3d 97 28 c1 74 69 74 6c 65 73 74 |eg2%)=.(.titlest|
0000af80 72 69 6e 67 24 2c 73 6d 65 67 32 25 2c 31 29 29 |ring$,smeg2%,1))|
0000af90 20 80 20 70 61 66 20 8c 0d 42 22 0f 20 20 20 20 | . paf ..B". |
0000afa0 66 6f 75 6e 64 3d b9 0d 42 2c 07 20 20 cc 0d 42 |found=..B,. ..B|
0000afb0 36 0f 20 20 20 20 66 6f 75 6e 64 3d a3 0d 42 40 |6. found=..B@|
0000afc0 0d 20 20 20 20 70 61 66 3d a3 0d 42 4a 07 20 20 |. paf=..BJ. |
0000afd0 cd 0d 42 54 0c ed 20 73 6d 65 67 32 25 0d 42 5e |..BT.. smeg2%.B^|
0000afe0 05 cd 0d 42 68 0b ed 20 73 6d 65 67 25 0d 42 72 |...Bh.. smeg%.Br|
0000aff0 0d e7 20 66 6f 75 6e 64 20 8c 0d 42 7c 0f 70 6f |.. found ..B|.po|
0000b000 73 69 74 69 6f 6e 2b 3d 31 0d 42 86 0c 66 69 6e |sition+=1.B..fin|
0000b010 69 73 68 3d a3 0d 42 90 0b 73 74 72 24 3d 22 22 |ish=..B..str$=""|
0000b020 0d 42 9a 05 f5 0d 42 a4 11 61 3d 3f 28 70 6f 73 |.B....B..a=?(pos|
0000b030 69 74 69 6f 6e 29 0d 42 ae 0d e7 20 61 3d 26 30 |ition).B... a=&0|
0000b040 64 20 8c 0d 42 b8 17 e7 20 97 28 c0 73 74 72 24 |d ..B... .(.str$|
0000b050 2c 31 29 29 3c 3e 2d 31 20 8c 0d 42 c2 1b 68 61 |,1))<>-1 ..B..ha|
0000b060 63 6b 65 72 24 28 63 75 72 25 2c 70 6f 73 25 29 |cker$(cur%,pos%)|
0000b070 3d 73 74 72 24 0d 42 cc 0b 70 6f 73 25 2b 3d 31 |=str$.B..pos%+=1|
0000b080 0d 42 d6 05 cd 0d 42 e0 0b 73 74 72 24 3d 22 22 |.B....B..str$=""|
0000b090 0d 42 ea 0f 70 6f 73 69 74 69 6f 6e 2b 3d 31 0d |.B..position+=1.|
0000b0a0 42 f4 05 cc 0d 42 fe 17 e7 20 61 3c 3e 30 20 8c |B....B... a<>0 .|
0000b0b0 20 73 74 72 24 2b 3d bd 28 61 29 0d 43 08 05 cd | str$+=.(a).C...|
0000b0c0 0d 43 12 0f 70 6f 73 69 74 69 6f 6e 2b 3d 31 0d |.C..position+=1.|
0000b0d0 43 1c 08 fd 61 3d 30 0d 43 26 05 cd 0d 43 30 05 |C...a=0.C&...C0.|
0000b0e0 cc 0d 43 3a 20 85 20 30 2c 22 54 48 49 53 20 49 |..C: . 0,"THIS I|
0000b0f0 53 20 4e 4f 54 20 41 20 43 48 45 41 54 4d 4f 44 |S NOT A CHEATMOD|
0000b100 22 0d 43 44 05 cd 0d 43 4e 24 c8 99 20 22 57 69 |".CD...CN$.. "Wi|
0000b110 6d 70 5f 53 6c 6f 74 53 69 7a 65 22 2c 28 32 35 |mp_SlotSize",(25|
0000b120 36 2a 31 30 32 34 29 2c 2d 31 0d 43 58 05 cd 0d |6*1024),-1.CX...|
0000b130 43 62 05 e1 0d 43 6c 05 3a 0d 43 76 14 dd a4 63 |Cb...Cl.:.Cv...c|
0000b140 68 65 63 6b 66 72 65 65 73 70 61 63 65 0d 43 80 |heckfreespace.C.|
0000b150 28 c8 99 22 57 69 6d 70 5f 53 6c 6f 74 53 69 7a |(.."Wimp_SlotSiz|
0000b160 65 22 2c 2d 31 2c 2d 31 20 b8 20 2c 2c 66 72 65 |e",-1,-1 . ,,fre|
0000b170 65 70 6f 6f 6c 0d 43 8a 0d 3d 66 72 65 65 70 6f |epool.C..=freepo|
0000b180 6f 6c 0d 43 94 05 3a 0d 43 9e 28 dd 20 a4 57 69 |ol.C..:.C.(. .Wi|
0000b190 6d 70 5f 4d 79 47 65 74 53 74 72 69 6e 67 41 74 |mp_MyGetStringAt|
0000b1a0 41 64 64 72 65 73 73 28 61 72 72 61 79 25 29 0d |Address(array%).|
0000b1b0 43 a8 0d ea 73 24 3a 73 24 3d 22 22 0d 43 b2 58 |C...s$:s$="".C.X|
0000b1c0 c8 95 28 3f 61 72 72 61 79 25 3c 3e 31 33 29 80 |..(?array%<>13).|
0000b1d0 28 3f 61 72 72 61 79 25 3c 3e 30 29 80 28 3f 61 |(?array%<>0).(?a|
0000b1e0 72 72 61 79 25 3c 3e 39 29 80 28 3f 61 72 72 61 |rray%<>9).(?arra|
0000b1f0 79 25 3c 3e 26 41 30 29 3a 73 24 2b 3d bd 28 3f |y%<>&A0):s$+=.(?|
0000b200 61 72 72 61 79 25 29 3a 61 72 72 61 79 25 2b 3d |array%):array%+=|
0000b210 31 3a ce 3a 0d 43 bc 07 3d 73 24 0d 43 c6 05 3a |1:.:.C..=s$.C..:|
0000b220 0d 43 d0 0c dd 20 f2 65 72 72 6f 72 0d 43 da 06 |.C... .error.C..|
0000b230 ef 36 0d 43 e4 59 e7 20 9f 3d 36 37 37 38 35 20 |.6.C.Y. .=67785 |
0000b240 8c 20 f2 57 69 6d 70 5f 57 69 6e 64 6f 77 45 72 |. .Wimp_WindowEr|
0000b250 72 6f 72 42 6f 78 28 22 21 54 72 69 63 6b 73 74 |rorBox("!Trickst|
0000b260 65 72 22 2c 22 50 6c 65 61 73 65 20 77 72 69 74 |er","Please writ|
0000b270 65 20 65 6e 61 62 6c 65 20 74 68 65 20 64 69 73 |e enable the dis|
0000b280 6b 22 29 3a d9 20 23 58 25 3a e1 0d 43 ee 5a e7 |k"):. #X%:..C.Z.|
0000b290 20 9f 3d 32 31 34 20 8c 20 f2 57 69 6d 70 5f 57 | .=214 . .Wimp_W|
0000b2a0 69 6e 64 6f 77 45 72 72 6f 72 42 6f 78 28 22 21 |indowErrorBox("!|
0000b2b0 54 72 69 63 6b 73 74 65 72 22 2c 22 46 69 6c 65 |Trickster","File|
0000b2c0 20 22 2b 68 61 63 6b 24 28 63 75 72 25 29 2b 22 | "+hack$(cur%)+"|
0000b2d0 20 63 61 6e 20 6e 6f 74 20 62 65 20 66 6f 75 6e | can not be foun|
0000b2e0 64 22 29 3a e1 0d 43 f8 65 e7 20 9f 3d 31 35 20 |d"):..C.e. .=15 |
0000b2f0 8c 20 f2 57 69 6d 70 5f 57 69 6e 64 6f 77 45 72 |. .Wimp_WindowEr|
0000b300 72 6f 72 42 6f 78 28 22 21 54 72 69 63 6b 73 74 |rorBox("!Trickst|
0000b310 65 72 22 2c 22 53 6f 72 72 79 20 49 20 63 61 6e |er","Sorry I can|
0000b320 20 6e 6f 74 20 6c 6f 61 64 20 74 68 69 73 20 66 | not load this f|
0000b330 69 6c 65 20 28 6f 6c 64 20 66 69 6c 65 20 66 6f |ile (old file fo|
0000b340 72 6d 61 74 29 2e 22 29 3a e1 0d 44 02 0d e7 20 |rmat)."):..D... |
0000b350 9f 3d 31 36 38 20 8c 0d 44 0c 63 f2 57 69 6d 70 |.=168 ..D.c.Wimp|
0000b360 5f 57 69 6e 64 6f 77 45 72 72 6f 72 42 6f 78 28 |_WindowErrorBox(|
0000b370 22 21 54 72 69 63 6b 73 74 65 72 22 2c 22 43 61 |"!Trickster","Ca|
0000b380 6e 27 74 20 63 72 65 61 74 65 20 22 2b 66 69 6c |n't create "+fil|
0000b390 65 24 2b 22 20 61 73 20 69 74 20 61 6c 72 65 61 |e$+" as it alrea|
0000b3a0 64 79 20 65 78 69 73 74 73 20 61 73 20 61 20 64 |dy exists as a d|
0000b3b0 69 72 65 63 74 6f 72 79 22 29 0d 44 16 05 e1 0d |irectory").D....|
0000b3c0 44 20 05 cd 0d 44 2a 55 f2 57 69 6d 70 5f 57 69 |D ...D*U.Wimp_Wi|
0000b3d0 6e 64 6f 77 45 72 72 6f 72 42 6f 78 28 22 21 54 |ndowErrorBox("!T|
0000b3e0 72 69 63 6b 73 74 65 72 22 2c f6 24 2b 22 3a 20 |rickster",.$+": |
0000b3f0 45 52 52 20 3a 2d 20 22 2b c3 28 9f 29 2b 22 3a |ERR :- "+.(.)+":|
0000b400 20 45 52 4c 20 3a 2d 20 22 2b c3 28 9e 29 29 3a | ERL :- "+.(.)):|
0000b410 44 4f 53 41 56 45 25 3d a3 0d 44 34 05 e1 0d 44 |DOSAVE%=..D4...D|
0000b420 3e 05 3a 0d 44 48 0d dd 20 f2 65 72 72 6f 72 32 |>.:.DH.. .error2|
0000b430 0d 44 52 6c f2 57 69 6d 70 5f 57 69 6e 64 6f 77 |.DRl.Wimp_Window|
0000b440 45 72 72 6f 72 42 6f 78 28 22 21 54 72 69 63 6b |ErrorBox("!Trick|
0000b450 73 74 65 72 22 2c 22 53 6f 72 72 79 20 49 20 63 |ster","Sorry I c|
0000b460 61 6e 20 6e 6f 74 20 6c 6f 61 64 20 74 68 69 73 |an not load this|
0000b470 20 66 69 6c 65 20 28 6f 6c 64 20 66 69 6c 65 20 | file (old file |
0000b480 66 6f 72 6d 61 74 29 2e 22 29 3a d9 20 23 58 25 |format)."):. #X%|
0000b490 3a 44 4f 53 41 56 45 25 3d a3 3a e1 0d 44 5c 05 |:DOSAVE%=.:..D\.|
0000b4a0 3a 0d 44 66 0d dd 20 f2 77 69 6e 73 69 7a 0d 44 |:.Df.. .winsiz.D|
0000b4b0 70 1a 77 69 6d 70 25 21 30 3d 48 61 63 6b 65 72 |p.wimp%!0=Hacker|
0000b4c0 5f 57 69 6e 64 6f 77 25 0d 44 7a 14 c8 99 20 26 |_Window%.Dz... &|
0000b4d0 34 30 30 43 43 2c 2c 77 69 6d 70 25 0d 44 84 23 |400CC,,wimp%.D.#|
0000b4e0 79 5f 6f 72 69 67 69 6e 25 3d 2d 31 36 2b 77 69 |y_origin%=-16+wi|
0000b4f0 6d 70 25 21 31 36 2d 77 69 6d 70 25 21 32 34 0d |mp%!16-wimp%!24.|
0000b500 44 8e 2a 41 25 3d 28 79 5f 6f 72 69 67 69 6e 25 |D.*A%=(y_origin%|
0000b510 2d 33 32 34 29 2d 28 28 70 6f 73 25 28 63 75 72 |-324)-((pos%(cur|
0000b520 25 29 2d 31 29 2a 33 32 29 0d 44 98 0a 41 25 2b |%)-1)*32).D..A%+|
0000b530 3d 34 30 0d 44 a2 14 77 69 6d 70 25 21 30 3d 77 |=40.D..wimp%!0=w|
0000b540 69 6d 70 25 21 34 34 0d 44 ac 22 77 69 6d 70 25 |imp%!44.D."wimp%|
0000b550 21 34 3d 41 25 2b 28 77 69 6d 70 25 21 32 34 2d |!4=A%+(wimp%!24-|
0000b560 77 69 6d 70 25 21 31 36 29 0d 44 b6 14 77 69 6d |wimp%!16).D..wim|
0000b570 70 25 21 38 3d 77 69 6d 70 25 21 35 32 0d 44 c0 |p%!8=wimp%!52.D.|
0000b580 15 77 69 6d 70 25 21 31 32 3d 77 69 6d 70 25 21 |.wimp%!12=wimp%!|
0000b590 35 36 0d 44 ca 22 c8 99 20 26 34 30 30 44 37 2c |56.D.".. &400D7,|
0000b5a0 48 61 63 6b 65 72 5f 57 69 6e 64 6f 77 25 2c 77 |Hacker_Window%,w|
0000b5b0 69 6d 70 25 0d 44 d4 05 e1 0d 44 de 05 3a 0d 44 |imp%.D....D..:.D|
0000b5c0 e8 1f f2 63 75 74 6c 6f 6e 67 28 68 61 63 6b 65 |...cutlong(hacke|
0000b5d0 72 24 28 32 30 2c 31 30 29 2c 31 30 29 0d 44 f2 |r$(20,10),10).D.|
0000b5e0 15 dd 20 f2 63 75 74 6c 6f 6e 67 28 76 24 2c 70 |.. .cutlong(v$,p|
0000b5f0 25 29 0d 44 fc 09 41 24 3d 76 24 0d 45 06 0c 41 |%).D..A$=v$.E..A|
0000b600 25 3d a9 28 76 24 29 0d 45 10 0c 42 25 3d 41 25 |%=.(v$).E..B%=A%|
0000b610 81 34 37 0d 45 1a 11 43 25 3d 41 25 2d 28 42 25 |.47.E..C%=A%-(B%|
0000b620 2a 34 37 29 0d 45 24 0e e3 20 41 3d 30 20 b8 20 |*47).E$.. A=0 . |
0000b630 42 25 0d 45 2e 27 68 61 63 6b 65 72 24 28 63 75 |B%.E.'hacker$(cu|
0000b640 72 25 2c 70 25 2b 41 29 3d c1 41 24 2c 28 28 41 |r%,p%+A)=.A$,((A|
0000b650 29 2a 34 38 29 2c 34 37 29 0d 45 38 06 ed 41 0d |)*48),47).E8..A.|
0000b660 45 42 19 68 61 63 6b 65 72 24 28 63 75 72 25 2c |EB.hacker$(cur%,|
0000b670 70 25 2b 41 29 3d 22 22 0d 45 4c 05 e1 0d 45 56 |p%+A)="".EL...EV|
0000b680 05 3a 0d 45 60 0b dd 20 f2 73 6f 72 74 0d 45 6a |.:.E`.. .sort.Ej|
0000b690 14 c8 99 22 48 6f 75 72 67 6c 61 73 73 5f 4f 6e |..."Hourglass_On|
0000b6a0 22 0d 45 74 12 e3 20 42 3d 30 20 b8 20 74 6f 74 |".Et.. B=0 . tot|
0000b6b0 25 2d 31 0d 45 7e 2d c8 99 22 48 6f 75 72 67 6c |%-1.E~-.."Hourgl|
0000b6c0 61 73 73 5f 50 65 72 63 65 6e 74 61 67 65 22 2c |ass_Percentage",|
0000b6d0 28 42 2f 28 74 6f 74 25 2d 31 29 29 2a 31 30 30 |(B/(tot%-1))*100|
0000b6e0 0d 45 88 12 e3 20 41 3d 30 20 b8 20 74 6f 74 25 |.E... A=0 . tot%|
0000b6f0 2d 32 0d 45 92 1b e7 20 6e 61 6d 65 24 28 41 29 |-2.E... name$(A)|
0000b700 3e 6e 61 6d 65 24 28 41 2b 31 29 20 8c 0d 45 9c |>name$(A+1) ..E.|
0000b710 1a c8 94 20 6e 61 6d 65 24 28 41 2b 31 29 2c 6e |... name$(A+1),n|
0000b720 61 6d 65 24 28 41 29 0d 45 a6 0d e3 20 43 3d 30 |ame$(A).E... C=0|
0000b730 20 b8 20 37 0d 45 b0 1e c8 94 20 69 6e 66 6f 24 | . 7.E.... info$|
0000b740 28 41 2b 31 2c 43 29 2c 69 6e 66 6f 24 28 41 2c |(A+1,C),info$(A,|
0000b750 43 29 0d 45 ba 07 ed 20 43 0d 45 c4 1a c8 94 20 |C).E... C.E.... |
0000b760 68 61 63 6b 24 28 41 2b 31 29 2c 68 61 63 6b 24 |hack$(A+1),hack$|
0000b770 28 41 29 0d 45 ce 1a c8 94 20 68 61 63 6b 25 28 |(A).E.... hack%(|
0000b780 41 2b 31 29 2c 68 61 63 6b 25 28 41 29 0d 45 d8 |A+1),hack%(A).E.|
0000b790 0e e3 20 43 3d 30 20 b8 20 32 35 0d 45 e2 22 c8 |.. C=0 . 25.E.".|
0000b7a0 94 20 68 61 63 6b 65 72 24 28 41 2b 31 2c 43 29 |. hacker$(A+1,C)|
0000b7b0 2c 68 61 63 6b 65 72 24 28 41 2c 43 29 0d 45 ec |,hacker$(A,C).E.|
0000b7c0 07 ed 20 43 0d 45 f6 18 c8 94 20 70 6f 73 25 28 |.. C.E.... pos%(|
0000b7d0 41 2b 31 29 2c 70 6f 73 25 28 41 29 0d 46 00 05 |A+1),pos%(A).F..|
0000b7e0 cd 0d 46 0a 06 ed 41 0d 46 14 06 ed 42 0d 46 1e |..F...A.F...B.F.|
0000b7f0 17 c8 99 22 48 6f 75 72 67 6c 61 73 73 5f 53 6d |..."Hourglass_Sm|
0000b800 61 73 68 22 0d 46 28 05 e1 0d 46 32 05 3a 0d 46 |ash".F(...F2.:.F|
0000b810 3c 0d dd 20 f2 73 65 61 72 63 68 0d 46 46 09 53 |<.. .search.FF.S|
0000b820 54 25 3d a3 0d 46 50 0b 66 6f 75 6e 64 3d a3 0d |T%=..FP.found=..|
0000b830 46 5a 0b 44 4f 4e 45 25 3d 30 0d 46 64 2f 41 24 |FZ.DONE%=0.Fd/A$|
0000b840 3d a4 74 6f 6c 6f 77 65 72 28 a4 57 69 6d 70 5f |=.tolower(.Wimp_|
0000b850 49 63 6f 6e 54 65 78 74 28 42 6f 74 5f 57 69 6e |IconText(Bot_Win|
0000b860 64 6f 77 25 2c 31 38 29 29 0d 46 6e 0b 43 3d a9 |dow%,18)).Fn.C=.|
0000b870 28 41 24 29 0d 46 78 09 63 75 76 3d a3 0d 46 82 |(A$).Fx.cuv=..F.|
0000b880 09 42 24 3d 22 22 0d 46 8c 1d e7 20 53 4e 55 4d |.B$="".F... SNUM|
0000b890 25 3d 2d 32 20 8c 20 53 4e 55 4d 25 3d 63 75 72 |%=-2 . SNUM%=cur|
0000b8a0 25 2b 31 0d 46 96 2e c8 95 20 42 24 3c 3e 41 24 |%+1.F.... B$<>A$|
0000b8b0 20 80 20 53 4e 55 4d 25 3c 74 6f 74 25 2b 31 20 | . SNUM%<tot%+1 |
0000b8c0 80 20 53 54 25 3d a3 20 80 20 66 6f 75 6e 64 3d |. ST%=. . found=|
0000b8d0 a3 0d 46 a0 21 42 24 3d a4 74 6f 6c 6f 77 65 72 |..F.!B$=.tolower|
0000b8e0 28 c0 6e 61 6d 65 24 28 53 4e 55 4d 25 29 2c 43 |(.name$(SNUM%),C|
0000b8f0 29 29 0d 46 aa 13 e7 20 53 4e 55 4d 25 3e 3d 74 |)).F... SNUM%>=t|
0000b900 6f 74 25 20 8c 0d 46 b4 0c 53 4e 55 4d 25 3d 2d |ot% ..F..SNUM%=-|
0000b910 31 0d 46 be 0c 44 4f 4e 45 25 2b 3d 31 0d 46 c8 |1.F..DONE%+=1.F.|
0000b920 05 cd 0d 46 d2 0c 53 4e 55 4d 25 2b 3d 31 0d 46 |...F..SNUM%+=1.F|
0000b930 dc 15 e7 20 44 4f 4e 45 25 3d 32 20 8c 20 53 54 |... DONE%=2 . ST|
0000b940 25 3d b9 0d 46 e6 05 ce 0d 46 f0 0d e7 20 53 54 |%=..F....F... ST|
0000b950 25 3d a3 20 8c 0d 46 fa 09 f2 72 65 61 64 0d 47 |%=. ..F...read.G|
0000b960 04 10 63 75 72 25 3d 53 4e 55 4d 25 2d 31 0d 47 |..cur%=SNUM%-1.G|
0000b970 0e 0b f2 75 70 64 61 74 65 0d 47 18 0e e7 20 63 |...update.G... c|
0000b980 75 72 25 3d 30 20 8c 0d 47 22 27 f2 57 69 6d 70 |ur%=0 ..G"'.Wimp|
0000b990 5f 49 63 6f 6e 44 69 73 61 62 6c 65 28 54 6f 6f |_IconDisable(Too|
0000b9a0 6c 73 5f 57 69 6e 64 6f 77 25 2c 31 30 29 0d 47 |ls_Window%,10).G|
0000b9b0 2c 27 f2 57 69 6d 70 5f 49 63 6f 6e 44 69 73 61 |,'.Wimp_IconDisa|
0000b9c0 62 6c 65 28 54 6f 6f 6c 73 5f 57 69 6e 64 6f 77 |ble(Tools_Window|
0000b9d0 25 2c 31 31 29 0d 47 36 26 f2 57 69 6d 70 5f 49 |%,11).G6&.Wimp_I|
0000b9e0 63 6f 6e 44 69 73 61 62 6c 65 28 54 6f 6f 6c 73 |conDisable(Tools|
0000b9f0 5f 57 69 6e 64 6f 77 25 2c 32 29 0d 47 40 25 f2 |_Window%,2).G@%.|
0000ba00 57 69 6d 70 5f 49 63 6f 6e 45 6e 61 62 6c 65 28 |Wimp_IconEnable(|
0000ba10 54 6f 6f 6c 73 5f 57 69 6e 64 6f 77 25 2c 38 29 |Tools_Window%,8)|
0000ba20 0d 47 4a 25 f2 57 69 6d 70 5f 49 63 6f 6e 45 6e |.GJ%.Wimp_IconEn|
0000ba30 61 62 6c 65 28 54 6f 6f 6c 73 5f 57 69 6e 64 6f |able(Tools_Windo|
0000ba40 77 25 2c 39 29 0d 47 54 25 f2 57 69 6d 70 5f 49 |w%,9).GT%.Wimp_I|
0000ba50 63 6f 6e 45 6e 61 62 6c 65 28 54 6f 6f 6c 73 5f |conEnable(Tools_|
0000ba60 57 69 6e 64 6f 77 25 2c 33 29 0d 47 5e 05 cd 0d |Window%,3).G^...|
0000ba70 47 68 1a e7 20 63 75 72 25 3e 30 20 80 20 63 75 |Gh.. cur%>0 . cu|
0000ba80 72 25 3c 74 6f 74 25 20 8c 0d 47 72 25 f2 57 69 |r%<tot% ..Gr%.Wi|
0000ba90 6d 70 5f 49 63 6f 6e 45 6e 61 62 6c 65 28 54 6f |mp_IconEnable(To|
0000baa0 6f 6c 73 5f 57 69 6e 64 6f 77 25 2c 38 29 0d 47 |ols_Window%,8).G|
0000bab0 7c 25 f2 57 69 6d 70 5f 49 63 6f 6e 45 6e 61 62 ||%.Wimp_IconEnab|
0000bac0 6c 65 28 54 6f 6f 6c 73 5f 57 69 6e 64 6f 77 25 |le(Tools_Window%|
0000bad0 2c 39 29 0d 47 86 26 f2 57 69 6d 70 5f 49 63 6f |,9).G.&.Wimp_Ico|
0000bae0 6e 45 6e 61 62 6c 65 28 54 6f 6f 6c 73 5f 57 69 |nEnable(Tools_Wi|
0000baf0 6e 64 6f 77 25 2c 31 30 29 0d 47 90 26 f2 57 69 |ndow%,10).G.&.Wi|
0000bb00 6d 70 5f 49 63 6f 6e 45 6e 61 62 6c 65 28 54 6f |mp_IconEnable(To|
0000bb10 6f 6c 73 5f 57 69 6e 64 6f 77 25 2c 31 31 29 0d |ols_Window%,11).|
0000bb20 47 9a 25 f2 57 69 6d 70 5f 49 63 6f 6e 45 6e 61 |G.%.Wimp_IconEna|
0000bb30 62 6c 65 28 54 6f 6f 6c 73 5f 57 69 6e 64 6f 77 |ble(Tools_Window|
0000bb40 25 2c 33 29 0d 47 a4 26 f2 57 69 6d 70 5f 49 63 |%,3).G.&.Wimp_Ic|
0000bb50 6f 6e 44 69 73 61 62 6c 65 28 54 6f 6f 6c 73 5f |onDisable(Tools_|
0000bb60 57 69 6e 64 6f 77 25 2c 32 29 0d 47 ae 05 cd 0d |Window%,2).G....|
0000bb70 47 b8 11 e7 20 63 75 72 25 3d 74 6f 74 25 20 8c |G... cur%=tot% .|
0000bb80 0d 47 c2 25 f2 57 69 6d 70 5f 49 63 6f 6e 45 6e |.G.%.Wimp_IconEn|
0000bb90 61 62 6c 65 28 54 6f 6f 6c 73 5f 57 69 6e 64 6f |able(Tools_Windo|
0000bba0 77 25 2c 32 29 0d 47 cc 25 f2 57 69 6d 70 5f 49 |w%,2).G.%.Wimp_I|
0000bbb0 63 6f 6e 45 6e 61 62 6c 65 28 54 6f 6f 6c 73 5f |conEnable(Tools_|
0000bbc0 57 69 6e 64 6f 77 25 2c 33 29 0d 47 d6 25 f2 57 |Window%,3).G.%.W|
0000bbd0 69 6d 70 5f 49 63 6f 6e 45 6e 61 62 6c 65 28 54 |imp_IconEnable(T|
0000bbe0 6f 6f 6c 73 5f 57 69 6e 64 6f 77 25 2c 38 29 0d |ools_Window%,8).|
0000bbf0 47 e0 25 f2 57 69 6d 70 5f 49 63 6f 6e 45 6e 61 |G.%.Wimp_IconEna|
0000bc00 62 6c 65 28 54 6f 6f 6c 73 5f 57 69 6e 64 6f 77 |ble(Tools_Window|
0000bc10 25 2c 39 29 0d 47 ea 26 f2 57 69 6d 70 5f 49 63 |%,9).G.&.Wimp_Ic|
0000bc20 6f 6e 45 6e 61 62 6c 65 28 54 6f 6f 6c 73 5f 57 |onEnable(Tools_W|
0000bc30 69 6e 64 6f 77 25 2c 31 30 29 0d 47 f4 26 f2 57 |indow%,10).G.&.W|
0000bc40 69 6d 70 5f 49 63 6f 6e 45 6e 61 62 6c 65 28 54 |imp_IconEnable(T|
0000bc50 6f 6f 6c 73 5f 57 69 6e 64 6f 77 25 2c 31 31 29 |ools_Window%,11)|
0000bc60 0d 47 fe 05 cd 0d 48 08 05 cd 0d 48 12 7b e7 20 |.G....H....H.{. |
0000bc70 53 54 25 3d b9 20 8c 20 f2 57 69 6d 70 5f 57 69 |ST%=. . .Wimp_Wi|
0000bc80 6e 64 6f 77 45 72 72 6f 72 42 6f 78 28 22 21 54 |ndowErrorBox("!T|
0000bc90 72 69 63 6b 73 74 65 72 22 2c 22 4e 6f 20 6d 61 |rickster","No ma|
0000bca0 74 63 68 20 63 61 6e 20 62 65 20 66 6f 75 6e 64 |tch can be found|
0000bcb0 20 77 69 74 68 20 74 68 65 20 6e 61 6d 65 20 27 | with the name '|
0000bcc0 22 2b a4 57 69 6d 70 5f 49 63 6f 6e 54 65 78 74 |"+.Wimp_IconText|
0000bcd0 28 42 6f 74 5f 57 69 6e 64 6f 77 25 2c 31 38 29 |(Bot_Window%,18)|
0000bce0 2b 22 27 22 29 0d 48 1c 05 e1 0d 48 26 05 3a 0d |+"'").H....H&.:.|
0000bcf0 48 30 11 dd a4 74 6f 6c 6f 77 65 72 28 51 24 29 |H0...tolower(Q$)|
0000bd00 0d 48 3a 11 e3 20 42 3d 31 20 b8 20 a9 28 51 24 |.H:.. B=1 . .(Q$|
0000bd10 29 0d 48 44 25 e7 20 c1 51 24 2c 42 2c 31 29 3e |).HD%. .Q$,B,1)>|
0000bd20 3d 22 41 22 20 80 20 c1 51 24 2c 42 2c 31 29 3c |="A" . .Q$,B,1)<|
0000bd30 3d 22 5a 22 20 8c 0d 48 4e 2b c1 51 24 2c 42 2c |="Z" ..HN+.Q$,B,|
0000bd40 31 29 3d bd 28 97 28 c1 51 24 2c 42 2c 31 29 29 |1)=.(.(.Q$,B,1))|
0000bd50 2b 28 97 28 22 61 22 29 2d 97 28 22 41 22 29 29 |+(.("a")-.("A"))|
0000bd60 29 0d 48 58 05 cd 0d 48 62 07 ed 20 42 0d 48 6c |).HX...Hb.. B.Hl|
0000bd70 07 3d 51 24 0d 48 76 05 3a 0d 48 80 18 dd 20 a4 |.=Q$.Hv.:.H... .|
0000bd80 67 65 74 73 74 72 69 6e 67 28 61 72 72 61 79 25 |getstring(array%|
0000bd90 29 0d 48 8a 14 ea 20 70 61 74 68 24 2c 70 6f 69 |).H... path$,poi|
0000bda0 6e 74 65 72 25 0d 48 94 0c 70 61 74 68 24 3d 22 |nter%.H..path$="|
0000bdb0 22 0d 48 9e 13 70 6f 69 6e 74 65 72 25 3d 61 72 |".H..pointer%=ar|
0000bdc0 72 61 79 25 0d 48 a8 05 f5 0d 48 b2 15 70 61 74 |ray%.H....H..pat|
0000bdd0 68 24 2b 3d bd 3f 70 6f 69 6e 74 65 72 25 0d 48 |h$+=.?pointer%.H|
0000bde0 bc 0f 70 6f 69 6e 74 65 72 25 2b 3d 31 0d 48 c6 |..pointer%+=1.H.|
0000bdf0 20 fd 20 3f 70 6f 69 6e 74 65 72 25 3d 30 20 84 | . ?pointer%=0 .|
0000be00 20 3f 70 6f 69 6e 74 65 72 25 3d 31 33 0d 48 d0 | ?pointer%=13.H.|
0000be10 0a 3d 70 61 74 68 24 0d 48 da 05 3a 0d 48 e4 11 |.=path$.H..:.H..|
0000be20 dd f2 6f 70 65 6e 70 72 69 6e 74 65 72 0d 48 ee |..openprinter.H.|
0000be30 30 c8 99 20 22 58 50 44 72 69 76 65 72 5f 49 6e |0.. "XPDriver_In|
0000be40 66 6f 22 20 b8 20 52 30 2c 52 31 2c 52 32 2c 52 |fo" . R0,R1,R2,R|
0000be50 33 2c 52 34 2c 52 35 2c 52 36 2c 52 37 0d 48 f8 |3,R4,R5,R6,R7.H.|
0000be60 2f e7 20 52 31 3d 30 20 80 20 52 32 3d 30 20 80 |/. R1=0 . R2=0 .|
0000be70 20 52 33 3d 30 20 80 20 52 35 3d 30 20 80 20 52 | R3=0 . R5=0 . R|
0000be80 36 3d 30 20 80 20 52 37 3d 30 20 8c 0d 49 02 38 |6=0 . R7=0 ..I.8|
0000be90 f2 57 69 6d 70 5f 49 63 6f 6e 50 75 74 54 65 78 |.Wimp_IconPutTex|
0000bea0 74 28 42 6f 74 5f 57 69 6e 64 6f 77 25 2c 31 33 |t(Bot_Window%,13|
0000beb0 2c 22 4e 6f 20 64 72 69 76 65 72 20 6c 6f 61 64 |,"No driver load|
0000bec0 65 64 22 29 0d 49 0c 0d 44 52 49 56 45 52 25 3d |ed").I..DRIVER%=|
0000bed0 a3 0d 49 16 37 e7 20 53 54 41 25 3d b9 20 8c 20 |..I.7. STA%=. . |
0000bee0 f2 57 69 6d 70 5f 49 63 6f 6e 44 69 73 61 62 6c |.Wimp_IconDisabl|
0000bef0 65 28 42 6f 74 5f 57 69 6e 64 6f 77 25 2c 31 32 |e(Bot_Window%,12|
0000bf00 29 3a 53 54 41 25 3d a3 0d 49 20 05 cc 0d 49 2a |):STA%=..I ...I*|
0000bf10 0d 44 52 49 56 45 52 25 3d b9 0d 49 34 05 cd 0d |.DRIVER%=..I4...|
0000bf20 49 3e 11 e7 20 44 52 49 56 45 52 25 3d b9 20 8c |I>.. DRIVER%=. .|
0000bf30 0d 49 48 1b 70 72 69 6e 74 65 72 24 3d a4 67 65 |.IH.printer$=.ge|
0000bf40 74 73 74 72 69 6e 67 28 52 34 29 0d 49 52 2e f2 |tstring(R4).IR..|
0000bf50 57 69 6d 70 5f 49 63 6f 6e 50 75 74 54 65 78 74 |Wimp_IconPutText|
0000bf60 28 42 6f 74 5f 57 69 6e 64 6f 77 25 2c 31 33 2c |(Bot_Window%,13,|
0000bf70 70 72 69 6e 74 65 72 24 29 0d 49 5c 3f e7 20 53 |printer$).I\?. S|
0000bf80 54 41 25 3d a3 20 80 20 74 6f 74 25 3e 31 20 8c |TA%=. . tot%>1 .|
0000bf90 20 f2 57 69 6d 70 5f 49 63 6f 6e 45 6e 61 62 6c | .Wimp_IconEnabl|
0000bfa0 65 28 42 6f 74 5f 57 69 6e 64 6f 77 25 2c 31 32 |e(Bot_Window%,12|
0000bfb0 29 3a 53 54 41 25 3d b9 0d 49 66 05 cd 0d 49 70 |):STA%=..If...Ip|
0000bfc0 05 e1 0d 49 7a 05 3a 0d 49 84 0b dd f2 70 72 69 |...Iz.:.I....pri|
0000bfd0 6e 74 0d 49 8e 05 3a 0d 49 98 36 70 72 69 6e 74 |nt.I..:.I.6print|
0000bfe0 68 61 6e 64 25 3d ae 28 22 50 52 49 4e 54 45 52 |hand%=.("PRINTER|
0000bff0 3a 24 2e 4a 6f 62 31 22 29 20 3a 20 f4 20 73 74 |:$.Job1") : . st|
0000c000 61 72 74 20 61 20 6a 6f 62 20 21 21 21 0d 49 a2 |art a job !!!.I.|
0000c010 1c 24 74 69 74 6c 65 25 3d 22 54 72 69 63 6b 73 |.$title%="Tricks|
0000c020 74 65 72 20 66 69 6c 65 22 0d 49 ac 1f c8 99 20 |ter file".I.... |
0000c030 26 38 30 31 34 35 2c 70 72 69 6e 74 68 61 6e 64 |&80145,printhand|
0000c040 25 2c 74 69 74 6c 65 25 0d 49 b6 3e d5 23 70 72 |%,title%.I.>.#pr|
0000c050 69 6e 74 68 61 6e 64 25 2c 31 33 20 3a 20 f4 20 |inthand%,13 : . |
0000c060 70 75 74 20 68 65 61 64 20 74 6f 20 6c 65 66 74 |put head to left|
0000c070 20 6f 66 20 70 61 70 65 72 20 74 6f 20 73 74 61 | of paper to sta|
0000c080 72 74 21 21 21 21 0d 49 c0 05 3a 0d 49 ca 0f e7 |rt!!!!.I..:.I...|
0000c090 20 54 59 50 45 25 3d b9 20 8c 0d 49 d4 11 e7 20 | TYPE%=. ..I... |
0000c0a0 50 43 48 45 41 54 25 3d b9 20 8c 0d 49 de 32 20 |PCHEAT%=. ..I.2 |
0000c0b0 20 f2 70 72 69 6e 74 6c 69 6e 65 28 22 47 61 6d | .printline("Gam|
0000c0c0 65 20 4e 61 6d 65 20 2d 20 22 2b 6e 61 6d 65 24 |e Name - "+name$|
0000c0d0 28 63 75 72 25 29 2b bd 28 31 30 29 29 0d 49 e8 |(cur%)+.(10)).I.|
0000c0e0 17 20 20 f2 70 72 69 6e 74 6c 69 6e 65 28 bd 28 |. .printline(.(|
0000c0f0 31 30 29 29 0d 49 f2 2c 20 20 f2 70 72 69 6e 74 |10)).I., .print|
0000c100 6c 69 6e 65 28 22 54 72 69 63 6b 73 20 61 6e 64 |line("Tricks and|
0000c110 20 54 61 63 74 69 63 73 22 2b bd 28 31 30 29 29 | Tactics"+.(10))|
0000c120 0d 49 fc 0f 20 20 e3 20 41 3d 30 20 b8 20 37 0d |.I.. . A=0 . 7.|
0000c130 4a 06 3d 20 20 20 20 e7 20 69 6e 66 6f 24 28 63 |J.= . info$(c|
0000c140 75 72 25 2c 41 29 3c 3e 22 22 20 8c 20 f2 70 72 |ur%,A)<>"" . .pr|
0000c150 69 6e 74 6c 69 6e 65 28 69 6e 66 6f 24 28 63 75 |intline(info$(cu|
0000c160 72 25 2c 41 29 2b bd 28 31 30 29 29 0d 4a 10 08 |r%,A)+.(10)).J..|
0000c170 20 20 ed 41 0d 4a 1a 15 f2 70 72 69 6e 74 6c 69 | .A.J...printli|
0000c180 6e 65 28 bd 28 31 30 29 29 0d 4a 24 05 cd 0d 4a |ne(.(10)).J$...J|
0000c190 2e 12 e7 20 50 4d 4f 44 55 4c 45 25 3d b9 20 8c |... PMODULE%=. .|
0000c1a0 0d 4a 38 17 20 20 e7 20 68 61 63 6b 25 28 63 75 |.J8. . hack%(cu|
0000c1b0 72 25 29 3d b9 20 8c 0d 4a 42 50 20 20 20 20 f2 |r%)=. ..JBP .|
0000c1c0 70 72 69 6e 74 6c 69 6e 65 28 22 43 68 65 61 74 |printline("Cheat|
0000c1d0 20 4e 61 6d 65 20 2d 20 22 2b c0 68 61 63 6b 65 | Name - "+.hacke|
0000c1e0 72 24 28 63 75 72 25 2c 30 29 2c a9 28 68 61 63 |r$(cur%,0),.(hac|
0000c1f0 6b 65 72 24 28 63 75 72 25 2c 30 29 29 2d 36 29 |ker$(cur%,0))-6)|
0000c200 2b bd 28 31 30 29 29 0d 4a 4c 19 20 20 20 20 f2 |+.(10)).JL. .|
0000c210 70 72 69 6e 74 6c 69 6e 65 28 bd 28 31 30 29 29 |printline(.(10))|
0000c220 0d 4a 56 58 20 20 20 20 f2 70 72 69 6e 74 6c 69 |.JVX .printli|
0000c230 6e 65 28 22 41 75 74 68 6f 72 20 6f 66 20 43 68 |ne("Author of Ch|
0000c240 65 61 74 20 2d 20 22 2b c1 68 61 63 6b 65 72 24 |eat - "+.hacker$|
0000c250 28 63 75 72 25 2c 31 29 2c 31 32 2c a9 28 68 61 |(cur%,1),12,.(ha|
0000c260 63 6b 65 72 24 28 63 75 72 25 2c 31 29 29 2d 38 |cker$(cur%,1))-8|
0000c270 29 2b bd 28 31 30 29 29 0d 4a 60 19 20 20 20 20 |)+.(10)).J`. |
0000c280 f2 70 72 69 6e 74 6c 69 6e 65 28 bd 28 31 30 29 |.printline(.(10)|
0000c290 29 0d 4a 6a 52 20 20 20 20 f2 70 72 69 6e 74 6c |).JjR .printl|
0000c2a0 69 6e 65 28 22 43 68 65 61 74 65 64 20 77 69 74 |ine("Cheated wit|
0000c2b0 68 20 2d 20 22 2b c1 68 61 63 6b 65 72 24 28 63 |h - "+.hacker$(c|
0000c2c0 75 72 25 2c 32 29 2c 36 2c a9 28 68 61 63 6b 65 |ur%,2),6,.(hacke|
0000c2d0 72 24 28 63 75 72 25 2c 32 29 29 29 2b bd 28 31 |r$(cur%,2)))+.(1|
0000c2e0 30 29 29 0d 4a 74 19 20 20 20 20 f2 70 72 69 6e |0)).Jt. .prin|
0000c2f0 74 6c 69 6e 65 28 bd 28 31 30 29 29 0d 4a 7e 20 |tline(.(10)).J~ |
0000c300 20 20 20 20 f2 70 72 69 6e 74 6c 69 6e 65 28 22 | .printline("|
0000c310 4b 65 79 73 22 2b bd 28 31 30 29 29 0d 4a 88 1c |Keys"+.(10)).J..|
0000c320 20 20 20 20 e3 20 41 3d 30 20 b8 20 70 6f 73 25 | . A=0 . pos%|
0000c330 28 63 75 72 25 29 2d 34 0d 4a 92 3e 20 20 20 20 |(cur%)-4.J.> |
0000c340 e7 20 97 28 c0 68 61 63 6b 65 72 24 28 63 75 72 |. .(.hacker$(cur|
0000c350 25 2c 41 2b 33 29 29 29 3d 31 36 30 20 8c 20 c0 |%,A+3)))=160 . .|
0000c360 68 61 63 6b 65 72 24 28 63 75 72 25 2c 41 2b 33 |hacker$(cur%,A+3|
0000c370 29 29 3d 22 20 22 0d 4a 9c 2b 20 20 20 20 f2 70 |))=" ".J.+ .p|
0000c380 72 69 6e 74 6c 69 6e 65 28 68 61 63 6b 65 72 24 |rintline(hacker$|
0000c390 28 63 75 72 25 2c 41 2b 33 29 2b bd 28 31 30 29 |(cur%,A+3)+.(10)|
0000c3a0 29 0d 4a a6 0a 20 20 20 20 ed 41 0d 4a b0 19 20 |).J.. .A.J.. |
0000c3b0 20 20 20 f2 70 72 69 6e 74 6c 69 6e 65 28 bd 28 | .printline(.(|
0000c3c0 31 30 29 29 0d 4a ba 07 20 20 cd 0d 4a c4 05 cd |10)).J.. ..J...|
0000c3d0 0d 4a ce 05 cd 0d 4a d8 0f e7 20 54 59 50 45 25 |.J....J... TYPE%|
0000c3e0 3d a3 20 8c 0d 4a e2 13 e3 20 44 44 3d 30 20 b8 |=. ..J... DD=0 .|
0000c3f0 20 74 6f 74 25 2d 31 0d 4a ec 11 e7 20 50 43 48 | tot%-1.J... PCH|
0000c400 45 41 54 25 3d b9 20 8c 0d 4a f6 30 20 20 f2 70 |EAT%=. ..J.0 .p|
0000c410 72 69 6e 74 6c 69 6e 65 28 22 47 61 6d 65 20 4e |rintline("Game N|
0000c420 61 6d 65 20 2d 20 22 2b 6e 61 6d 65 24 28 44 44 |ame - "+name$(DD|
0000c430 29 2b bd 28 31 30 29 29 0d 4b 00 17 20 20 f2 70 |)+.(10)).K.. .p|
0000c440 72 69 6e 74 6c 69 6e 65 28 bd 28 31 30 29 29 0d |rintline(.(10)).|
0000c450 4b 0a 2c 20 20 f2 70 72 69 6e 74 6c 69 6e 65 28 |K., .printline(|
0000c460 22 54 72 69 63 6b 73 20 61 6e 64 20 54 61 63 74 |"Tricks and Tact|
0000c470 69 63 73 22 2b bd 28 31 30 29 29 0d 4b 14 0f 20 |ics"+.(10)).K.. |
0000c480 20 e3 20 41 3d 30 20 b8 20 37 0d 4b 1e 39 20 20 | . A=0 . 7.K.9 |
0000c490 20 20 e7 20 69 6e 66 6f 24 28 44 44 2c 41 29 3c | . info$(DD,A)<|
0000c4a0 3e 22 22 20 8c 20 f2 70 72 69 6e 74 6c 69 6e 65 |>"" . .printline|
0000c4b0 28 69 6e 66 6f 24 28 44 44 2c 41 29 2b bd 28 31 |(info$(DD,A)+.(1|
0000c4c0 30 29 29 0d 4b 28 08 20 20 ed 41 0d 4b 32 15 f2 |0)).K(. .A.K2..|
0000c4d0 70 72 69 6e 74 6c 69 6e 65 28 bd 28 31 30 29 29 |printline(.(10))|
0000c4e0 0d 4b 3c 05 cd 0d 4b 46 12 e7 20 50 4d 4f 44 55 |.K<...KF.. PMODU|
0000c4f0 4c 45 25 3d b9 20 8c 0d 4b 50 15 20 20 e7 20 68 |LE%=. ..KP. . h|
0000c500 61 63 6b 25 28 44 44 29 3d b9 20 8c 0d 4b 5a 4c |ack%(DD)=. ..KZL|
0000c510 20 20 20 20 f2 70 72 69 6e 74 6c 69 6e 65 28 22 | .printline("|
0000c520 43 68 65 61 74 20 4e 61 6d 65 20 2d 20 22 2b c0 |Cheat Name - "+.|
0000c530 68 61 63 6b 65 72 24 28 44 44 2c 30 29 2c a9 28 |hacker$(DD,0),.(|
0000c540 68 61 63 6b 65 72 24 28 44 44 2c 30 29 29 2d 36 |hacker$(DD,0))-6|
0000c550 29 2b bd 28 31 30 29 29 0d 4b 64 19 20 20 20 20 |)+.(10)).Kd. |
0000c560 f2 70 72 69 6e 74 6c 69 6e 65 28 bd 28 31 30 29 |.printline(.(10)|
0000c570 29 0d 4b 6e 54 20 20 20 20 f2 70 72 69 6e 74 6c |).KnT .printl|
0000c580 69 6e 65 28 22 41 75 74 68 6f 72 20 6f 66 20 43 |ine("Author of C|
0000c590 68 65 61 74 20 2d 20 22 2b c1 68 61 63 6b 65 72 |heat - "+.hacker|
0000c5a0 24 28 44 44 2c 31 29 2c 31 32 2c a9 28 68 61 63 |$(DD,1),12,.(hac|
0000c5b0 6b 65 72 24 28 44 44 2c 31 29 29 2d 38 29 2b bd |ker$(DD,1))-8)+.|
0000c5c0 28 31 30 29 29 0d 4b 78 19 20 20 20 20 f2 70 72 |(10)).Kx. .pr|
0000c5d0 69 6e 74 6c 69 6e 65 28 bd 28 31 30 29 29 0d 4b |intline(.(10)).K|
0000c5e0 82 4e 20 20 20 20 f2 70 72 69 6e 74 6c 69 6e 65 |.N .printline|
0000c5f0 28 22 43 68 65 61 74 65 64 20 77 69 74 68 20 2d |("Cheated with -|
0000c600 20 22 2b c1 68 61 63 6b 65 72 24 28 44 44 2c 32 | "+.hacker$(DD,2|
0000c610 29 2c 36 2c a9 28 68 61 63 6b 65 72 24 28 44 44 |),6,.(hacker$(DD|
0000c620 2c 32 29 29 29 2b bd 28 31 30 29 29 0d 4b 8c 19 |,2)))+.(10)).K..|
0000c630 20 20 20 20 f2 70 72 69 6e 74 6c 69 6e 65 28 bd | .printline(.|
0000c640 28 31 30 29 29 0d 4b 96 20 20 20 20 20 f2 70 72 |(10)).K. .pr|
0000c650 69 6e 74 6c 69 6e 65 28 22 4b 65 79 73 22 2b bd |intline("Keys"+.|
0000c660 28 31 30 29 29 0d 4b a0 1a 20 20 20 20 e3 20 41 |(10)).K.. . A|
0000c670 3d 30 20 b8 20 70 6f 73 25 28 44 44 29 2d 34 0d |=0 . pos%(DD)-4.|
0000c680 4b aa 3a 20 20 20 20 e7 20 97 28 c0 68 61 63 6b |K.: . .(.hack|
0000c690 65 72 24 28 44 44 2c 41 2b 33 29 29 29 3d 31 36 |er$(DD,A+3)))=16|
0000c6a0 30 20 8c 20 c0 68 61 63 6b 65 72 24 28 44 44 2c |0 . .hacker$(DD,|
0000c6b0 41 2b 33 29 29 3d 22 20 22 0d 4b b4 29 20 20 20 |A+3))=" ".K.) |
0000c6c0 20 f2 70 72 69 6e 74 6c 69 6e 65 28 68 61 63 6b | .printline(hack|
0000c6d0 65 72 24 28 44 44 2c 41 2b 33 29 2b bd 28 31 30 |er$(DD,A+3)+.(10|
0000c6e0 29 29 0d 4b be 0a 20 20 20 20 ed 41 0d 4b c8 15 |)).K.. .A.K..|
0000c6f0 f2 70 72 69 6e 74 6c 69 6e 65 28 bd 28 31 30 29 |.printline(.(10)|
0000c700 29 0d 4b d2 07 20 20 cd 0d 4b dc 05 cd 0d 4b e6 |).K.. ..K....K.|
0000c710 07 ed 44 44 0d 4b f0 05 cd 0d 4b fa 05 3a 0d 4c |..DD.K....K..:.L|
0000c720 04 28 d5 23 70 72 69 6e 74 68 61 6e 64 25 2c 31 |.(.#printhand%,1|
0000c730 32 20 3a 20 f4 20 64 6f 20 6c 69 6e 65 66 65 65 |2 : . do linefee|
0000c740 64 20 21 21 21 21 0d 4c 0e 18 c8 99 20 26 38 30 |d !!!!.L.... &80|
0000c750 31 34 38 2c 70 72 69 6e 74 68 61 6e 64 25 0d 4c |148,printhand%.L|
0000c760 18 11 d9 20 23 70 72 69 6e 74 68 61 6e 64 25 0d |... #printhand%.|
0000c770 4c 22 05 e1 0d 4c 2c 05 3a 0d 4c 36 16 dd f2 70 |L"...L,.:.L6...p|
0000c780 72 69 6e 74 6c 69 6e 65 28 6c 69 6e 65 24 29 0d |rintline(line$).|
0000c790 4c 40 16 e3 20 63 63 6f 3d 31 20 b8 20 a9 28 6c |L@.. cco=1 . .(l|
0000c7a0 69 6e 65 24 29 0d 4c 4a 19 62 79 74 65 3d 97 28 |ine$).LJ.byte=.(|
0000c7b0 c1 6c 69 6e 65 24 2c 63 63 6f 2c 31 29 29 0d 4c |.line$,cco,1)).L|
0000c7c0 54 15 d5 23 70 72 69 6e 74 68 61 6e 64 25 2c 62 |T..#printhand%,b|
0000c7d0 79 74 65 0d 4c 5e 47 e7 20 62 79 74 65 3d 31 30 |yte.L^G. byte=10|
0000c7e0 20 84 20 62 79 74 65 3d 31 33 20 8c 20 d5 23 70 | . byte=13 . .#p|
0000c7f0 72 69 6e 74 68 61 6e 64 25 2c 31 33 20 3a 20 f4 |rinthand%,13 : .|
0000c800 20 70 75 74 20 68 65 61 64 20 74 6f 20 6c 65 66 | put head to lef|
0000c810 74 20 6f 66 20 70 61 70 65 72 0d 4c 68 09 ed 20 |t of paper.Lh.. |
0000c820 63 63 6f 0d 4c 72 05 e1 0d 4c 7c 05 3a 0d 4c 86 |cco.Lr...L|.:.L.|
0000c830 13 dd 20 f2 6d 6f 75 73 65 62 6f 78 28 77 25 29 |.. .mousebox(w%)|
0000c840 0d 4c 90 0e 77 69 6d 70 25 21 30 3d 77 25 0d 4c |.L..wimp%!0=w%.L|
0000c850 9a 24 c8 99 22 57 69 6d 70 5f 47 65 74 57 69 6e |.$.."Wimp_GetWin|
0000c860 64 6f 77 4f 75 74 6c 69 6e 65 22 2c 2c 77 69 6d |dowOutline",,wim|
0000c870 70 25 0d 4c a4 43 c8 97 20 c8 93 20 77 69 6d 70 |p%.L.C.. .. wimp|
0000c880 25 21 34 2b 32 2c 77 69 6d 70 25 21 38 2b 32 2c |%!4+2,wimp%!8+2,|
0000c890 77 69 6d 70 25 21 31 32 2d 77 69 6d 70 25 21 34 |wimp%!12-wimp%!4|
0000c8a0 2d 34 2c 77 69 6d 70 25 21 31 36 2d 77 69 6d 70 |-4,wimp%!16-wimp|
0000c8b0 25 21 38 2d 34 0d 4c ae 05 e1 0d 4c b8 05 3a 0d |%!8-4.L....L..:.|
0000c8c0 4c c2 0c dd 20 f2 75 6e 62 6f 78 0d 4c cc 2b c8 |L... .unbox.L.+.|
0000c8d0 99 20 22 4f 53 5f 52 65 61 64 4d 6f 64 65 56 61 |. "OS_ReadModeVa|
0000c8e0 72 69 61 62 6c 65 22 2c 2d 31 2c 31 31 20 b8 20 |riable",-1,11 . |
0000c8f0 2c 2c 78 70 69 63 0d 4c d6 2b c8 99 20 22 4f 53 |,,xpic.L.+.. "OS|
0000c900 5f 52 65 61 64 4d 6f 64 65 56 61 72 69 61 62 6c |_ReadModeVariabl|
0000c910 65 22 2c 2d 31 2c 31 32 20 b8 20 2c 2c 79 70 69 |e",-1,12 . ,,ypi|
0000c920 63 0d 4c e0 2b c8 99 20 22 4f 53 5f 52 65 61 64 |c.L.+.. "OS_Read|
0000c930 4d 6f 64 65 56 61 72 69 61 62 6c 65 22 2c 2d 31 |ModeVariable",-1|
0000c940 2c 34 20 b8 20 2c 2c 78 66 61 63 74 0d 4c ea 2b |,4 . ,,xfact.L.+|
0000c950 c8 99 20 22 4f 53 5f 52 65 61 64 4d 6f 64 65 56 |.. "OS_ReadModeV|
0000c960 61 72 69 61 62 6c 65 22 2c 2d 31 2c 35 20 b8 20 |ariable",-1,5 . |
0000c970 2c 2c 79 66 61 63 74 0d 4c f4 25 c8 97 20 c8 93 |,,yfact.L.%.. ..|
0000c980 20 30 2c 30 2c 78 70 69 63 3c 3c 78 66 61 63 74 | 0,0,xpic<<xfact|
0000c990 2c 79 70 69 63 3c 3c 79 66 61 63 74 0d 4c fe 05 |,ypic<<yfact.L..|
0000c9a0 e1 0d 4d 08 05 3a 0d 4d 12 12 dd 20 a4 6e 61 63 |..M..:.M... .nac|
0000c9b0 68 65 63 6b 28 41 24 29 0d 4d 1c 1b e7 20 a7 41 |heck(A$).M... .A|
0000c9c0 24 2c 22 54 72 69 63 6b 4d 6f 64 73 22 29 3c 3e |$,"TrickMods")<>|
0000c9d0 30 20 8c 0d 4d 26 06 3d b9 0d 4d 30 05 cc 0d 4d |0 ..M&.=..M0...M|
0000c9e0 3a 06 3d a3 0d 4d 44 05 cd 0d 4d 4e 06 3d a3 0d |:.=..MD...MN.=..|
0000c9f0 ff |.|
0000c9f1 
.