Home » Archimedes archive » Acorn User » AU 1998-10.adf » Regulars » StarInfo/Mellor/!WhakAmole/!RunImage
StarInfo/Mellor/!WhakAmole/!RunImage
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
| Tape/disk: | Home » Archimedes archive » Acorn User » AU 1998-10.adf » Regulars |
| Filename: | StarInfo/Mellor/!WhakAmole/!RunImage |
| Read OK: | ✔ |
| File size: | 2D84 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10REM !RunImage
20REM By Philip Mellor
30:
40AppName$="Whack-A-Mole"
50version$="1.00 (23rd March 1998)"
60:
70ON ERROR VDU4:REPORT:PRINT" - ";ERL:END
80:
90SYS "Wimp_Initialise",200,&4B534154,AppName$ TO ,task%
100
110PROCinit
120PROCcreateiconbar
130:
140DIM mt%(9),mb%(9),mc%(9)
150:
160pausetime%=0
170PROCset_gameover
180PROCset_icon_string(whack%,19,"Whack - A - Mole")
190PROCopen_centre(whack%)
200playing%=FALSE
210
220dummy=RND(-TIME)
230:
240ON ERROR IF FNerror THEN PROCclose:END
250:
260REPEAT
270PROCpoll
280UNTIL quit%
290REM MOUSE STEP 2,2
300PROCclose
310END
320:
330REM =====================================================
340REM MODIFIED WIMP LIBRARY ROUTINES
350REM =====================================================
360:
370DEF PROCcreateiconbar
380!b%=-1:b%!4=0:b%!8=0:b%!12=100:b%!16=68:b%!20=&3002
390$(b%+24)="!whakamole":SYS "Wimp_CreateIcon",,b% TO i%
400ENDPROC
410:
420DEF PROCmouseclick
430window%=b%!12
440icon%=b%!16
450button%=b%!8
460CASE window% OF
470
480 WHEN -2
490 CASE button% OF
500 WHEN 2:PROCshowmenu(mainmenu%,!b%-64,96+2*44)
510 WHEN 4:PROCopen_centre(whack%)
520 ENDCASE
530
540 WHEN whack%
550 CASE button% OF
560 WHEN 2:PROCshowmenu(mainmenu%,!b%-64,b%!4)
570 OTHERWISE
580 CASE icon% OF
590 WHEN 2,3,4,5,6,7,8,9,10:IF playing% PROCclick_mole(icon%-1)
600 WHEN 20:SYS "OS_ReadMonotonicTime" TO pausetime2%
610 IF pausetime2%-pausetime%>50 PROCset_game:PROCstart
620 ENDCASE
630 ENDCASE
640
650ENDCASE
660ENDPROC
670:
680DEF PROCstart
690playing%=TRUE:hits%=0:miss%=0:total%=0
700FOR mole%=1 TO 9
710mt%(mole%)=0
720REM PROCset_icon_string2(whack%,mole%+1,"mole"+STR$mt%(mole%))
730NEXT
740REM PROCupdate_icon(whack%,0)
750PROCtotal
760PROChits
770PROCmiss
780SYS "OS_ReadMonotonicTime" TO oldtime1%
790oldtime%=-1
800starttime%=oldtime1%
810oldtime2%=oldtime1%+25
820nexttime%=RND(50)+50
830REM MOUSE STEP 1,1
840ENDPROC
850:
860DEF PROCtotal
870PROCset_icon_string(whack%,13,STR$ total%)
880ENDPROC
890:
900DEF PROChits
910PROCset_icon_string(whack%,15,STR$ hits%)
920ENDPROC
930:
940DEF PROCmiss
950PROCset_icon_string(whack%,17,STR$ miss%)
960ENDPROC
970:
980DEF PROCclick_mole(mole%)
990SYS "OS_ReadMonotonicTime" TO newtime2%
1000IF mt%(mole%)=0 OR mt%(mole%)=2 THEN miss%+=1:total%-=3:PROCmiss:PROCtotal
1010IF mt%(mole%)=1 THEN mt%(mole%)=2:PROCset_icon_string(whack%,mole%+1,"mole2"):mc%(mole%)=50:mb%(mole%)=newtime2%:hits%+=1:total%+=5:PROChits:PROCtotal
1020ENDPROC
1030:
1040DEF PROCplay_loop
1050SYS "OS_ReadMonotonicTime" TO newtime1%
1060SYS "OS_ReadMonotonicTime" TO newtime2%
1070SYS "OS_ReadMonotonicTime" TO newtime3%
1080time%=16-((newtime3%-starttime%)/100)
1090IF time%<0 time%=0:playing%=FALSE:PROCset_gameover:pausetime%=newtime3%:PROCset_icon_string(whack%,19,"T I M E U P !")
1100IF time%<>oldtime% THEN PROCset_icon_string(whack%,11,STR$ time%):oldtime%=time%
1110IF newtime1%-oldtime1%>nexttime% THEN
1120oldtime1%=newtime1%
1130nexttime%=RND(60)+10+(time%*3)
1140IF RND(6)=1 nexttime%=RND(80)+50
1150mole%=RND(9)
1160IF mt%(mole%)=0 THEN mt%(mole%)=1:PROCset_icon_string(whack%,mole%+1,"mole1"):mc%(mole%)=60+RND(100):mb%(mole%)=newtime2%
1170ENDIF
1180FOR mole%=1 TO 9
1190IF mt%(mole%)>0 THEN
1200IF newtime2%>mb%(mole%)+mc%(mole%) THEN
1210IF mt%(mole%)=1 total%-=2:PROCtotal
1220mt%(mole%)=0:PROCset_icon_string(whack%,mole%+1,"mole0")
1230ENDIF
1240ENDIF
1250NEXT
1260ENDPROC
1270:
1280DEF PROCset_game
1290PROCset_icon_bit(whack%,19,TRUE,23)
1300PROCset_icon_bit(whack%,20,TRUE,23)
1310FOR a=2 TO 10
1320PROCset_icon_bit(whack%,a,FALSE,23)
1330PROCset_icon_string(whack%,a,"mole0")
1340NEXT
1350REM PROCupdate_icon(whack%,0)
1360ENDPROC
1370:
1380DEF PROCset_gameover
1390FOR a=2 TO 10
1400PROCset_icon_bit(whack%,a,TRUE,23)
1410NEXT
1420PROCset_icon_bit(whack%,19,FALSE,23)
1430PROCset_icon_bit(whack%,20,FALSE,23)
1440REM PROCupdate_icon(whack%,0)
1450ENDPROC
1460:
1470DEF PROCprocesskey
1480key=b%!24:win%=!b%:ic%=b%!4
1490process=TRUE
1500IF process SYS "Wimp_ProcessKey",key
1510ENDPROC
1520:
1530DEF PROCinit
1540DIM b% 2000,ws% 2000,menspc% 1000, temp% 32, chappy% 64
1550wsend%=ws%+2000
1560quit%=FALSE
1570PROCload_templates
1580PROCmain_menu
1590PROCattach(mainmenu%,0,info%)
1600PROCset_icon_string(info%,7,version$)
1610ENDPROC
1620:
1630DEF PROCload_templates
1640SYS "Wimp_OpenTemplate",,"<Obey$Dir>.Templates"
1650SYS "Wimp_LoadTemplate",,b%,ws%,wsend%,-1,"whack",0 TO ,,ws%
1660SYS "Wimp_CreateWindow",,b% TO whack%
1670SYS "Wimp_LoadTemplate",,b%,ws%,wsend%,-1,"options",0 TO ,,ws%
1680SYS "Wimp_CreateWindow",,b% TO options%
1690SYS "Wimp_LoadTemplate",,b%,ws%,wsend%,-1,"score",0 TO ,,ws%
1700SYS "Wimp_CreateWindow",,b% TO score%
1710SYS "Wimp_LoadTemplate",,b%,ws%,wsend%,-1,"info",0 TO ,,ws%
1720SYS "Wimp_CreateWindow",,b% TO info%
1730SYS "Wimp_CloseTemplate"
1740ENDPROC
1750:
1760DEF PROCmain_menu
1770RESTORE +1
1780DATA Whack-A-Mole,Info,Quit,*
1790mainmenu%=FNmake_menu
1800ENDPROC
1810:
1820DEF PROCmenuclick
1830LOCAL c%
1840c%=b%+900
1850SYS "Wimp_GetPointerInfo",,c%
1860adj%=(c%!8 AND 1)
1870SYS "Wimp_DecodeMenu",,topmenu%,b%,c%
1880CASE $c% OF
1890 WHEN "Quit":quit%=TRUE
1900ENDCASE
1910IF adj% PROCshowmenu(topmenu%,topx%,topy%)
1920ENDPROC
1930:
1940DEF PROCmenu_warning
1950submenu_ptr=b%!20
1960win_x=b%!24
1970win_y=b%!28
1980SYS "Wimp_CreateSubMenu",,b%!20,b%!24,b%!28
1990ENDPROC
2000:
2010DEF PROCsave_data(filename$)
2020PROCset_icon_string(saveas%,2,filename$)
2030REM *** SAVE DATA HERE ***
2040PROCsaved_message
2050ENDPROC
2060:
2070DEF PROCload_data(window,icon,filename$,filetype)
2080REM *** CHECK/LOAD DATA HERE ***
2090PROCset_icon_string(saveas%,2,filename$)
2100ENDPROC
2110:
2120DEF PROChelpme
2130window%=b%!32
2140icon%=b%!36
2150help$="This is the "+AppName$+" application."
2160
2170CASE window% OF
2180 WHEN -2
2190 help$="This is the "+AppName$+" icon."
2200
2210 WHEN info%
2220 help$=""
2230 CASE icon% OF
2240 WHEN 0,1:help$="This is the name of the program."
2250 WHEN 2,3:help$="This is the purpose of the program."
2260 WHEN 4,5:help$="This is the author of the program."
2270 WHEN 6,7:help$="This is the version number of the program."
2280 ENDCASE
2290
2300ENDCASE
2310:
2320b%!00 = 256
2330b%!12 = b%!8
2340b%!16 = &0503
2350$(b%+20)= help$
2360SYS "Wimp_SendMessage",17,b%,b%!4
2370ENDPROC
2380
2390:
2400REM =====================================================
2410REM STANDARD WIMP LIBRARY ROUTINES
2420REM =====================================================
2430:
2440DEF PROCclose
2450REM MOUSE STEP 2,2
2460SYS "Wimp_CloseDown",task%,&4B534154
2470ENDPROC
2480:
2490DEF PROCpoll
2500SYS "Wimp_Poll",,b% TO r%
2510CASE r% OF
2520WHEN 0:IF playing% PROCplay_loop
2530WHEN 2:SYS "Wimp_OpenWindow",,b%
2540WHEN 3:SYS "Wimp_CloseWindow",,b%
2550WHEN 6:PROCmouseclick
2560WHEN 7:PROCdragend
2570WHEN 8:PROCprocesskey
2580WHEN 9:PROCmenuclick
2590WHEN 17,18:PROCreceive
2600ENDCASE
2610ENDPROC
2620:
2630DEF PROCreceive
2640CASE b%!16 OF
2650WHEN 0:quit%=TRUE
2660WHEN 1:PROCdatasave
2670WHEN 2:PROCsave
2680WHEN 3:PROCload
2690WHEN &502:PROChelpme
2700WHEN &400C0:PROCmenu_warning
2710ENDCASE
2720ENDPROC
2730:
2740DEF PROCdatasave
2750PROCterm(b%+44)
2760name$=$(b%+44)
2770$(b%+44)="<Wimp$Scrap>"+CHR$0
2780b%!36=-1 : REM saved file is "unsafe"
2790b%!0=256
2800b%!12=b%!8
2810b%!16=2
2820SYS "Wimp_SendMessage",17,b%,b%!4
2830ENDPROC
2840:
2850DEF PROCupdate_icon(window%,icon%)
2860b%!0=window%
2870 b%!4=icon%
2880 b%!8=0
2890 b%!12=0
2900 SYS "Wimp_SetIconState",,b%
2910ENDPROC
2920:
2930DEF PROCget_origin(handle%,RETURN xorig%,RETURN yorig%)
2940LOCAL c%
2950c%=b%+800
2960!c%=handle%
2970SYS "Wimp_GetWindowState",,c%
2980xorig%=c%!4-c%!20
2990yorig%=c%!16-c%!24
3000ENDPROC
3010
3020DEF PROCset_icon_bit(!b%,b%!4,tf%,stbit%)
3030state%=0
3040IF tf% state%=1
3050b%!8=state%<<stbit%
3060b%!12=1<<stbit%
3070SYS "Wimp_SetIconState",,b%
3080ENDPROC
3090:
3100DEF PROCattach(menu%,item%,sub%)
3110!(menu%+28+item%*24+4)=sub%
3120ENDPROC
3130:
3140DEF FNmake_menu
3150start%=menspc%
3160READ title$
3170$(start%)=title$
3180start%?12=7
3190start%?13=2
3200start%?14=7
3210start%?15=0
3220start%!20=44
3230start%!24=0
3240REM start%!16=160
3250width%=LEN(title$)-3
3260menspc%+=28
3270REPEAT
3280READ item$
3290IF item$<>"*" THEN
3300!menspc%=0
3310writeable%=FALSE
3320ul%=INSTR(item$,"_")
3330IF ul% THEN
3340tail$=RIGHT$(item$,LEN(item$)-ul%)
3350IF INSTR(tail$,"T") !menspc%=!menspc% OR 1:REM tick
3360IF INSTR(tail$,"D") !menspc%=!menspc% OR 2:REM dotted line
3370IF INSTR(tail$,"W") !menspc%=!menspc% OR 4:writeable%=TRUE:READ buffer%:READ buflen%:REM writable icon
3380IF INSTR(tail$,"M") !menspc%=!menspc% OR 8:REM generate message
3390item$=LEFT$(item$,ul%-1)
3400ENDIF
3410IF LEN item$>width% width%=LEN item$
3420menspc%!4=-1
3430IF writeable% THEN
3440menspc%!8=&0700F121:menspc%!12=buffer%:menspc%!16=-1:menspc%!20=buflen%:$buffer%=item$
3450ELSE
3460IF LEN item$<12 THEN
3470menspc%!8=&07000021:$(menspc%+12)=item$
3480ELSE
3490menspc%!8=&07000121:menspc%!12=ws%:menspc%!16=-1:menspc%!20=LEN item$+1
3500$ws%=item$:ws%+=LEN item$+1
3510ENDIF
3520ENDIF
3530menspc%+=24
3540ENDIF
3550UNTIL item$="*"
3560start%!16=width%*16+32
3570!(menspc%-24)=!(menspc%-24) OR &80
3580mptr%=menspc%
3590=start%
3600:
3610DEF PROCshowmenu(menu%,x%,y%)
3620topmenu%=menu%:topx%=x%:topy%=y%
3630SYS "Wimp_CreateMenu",,menu%,x%,y%
3640ENDPROC
3650:
3660DEF PROCungrey(menu%,item%)
3670menu%!(28+item%*24+8)=(menu%!(28+item%*24+8)) AND (NOT (1<<22))
3680ENDPROC
3690:
3700DEF PROCgrey(menu%,item%)
3710menu%!(28+item%*24+8)=(menu%!(28+item%*24+8)) OR (1<<22)
3720ENDPROC
3730:
3740DEF FNicon_state(window%,icon%)
3750LOCAL c%
3760c%=b%+900
3770!c%=window%
3780c%!4=icon%
3790SYS "Wimp_GetIconState",,c%
3800=((c%!24) AND (1<<21))<>0
3810:
3820DEF FNstring_addr(window%,icon%)
3830!chappy%=window%
3840chappy%!4=icon%
3850SYS "Wimp_GetIconState",,chappy%
3860=chappy%!28
3870:
3880DEF FNicon_string(window%,icon%)
3890PROCterm(FNstring_addr(window%,icon%))
3900=$FNstring_addr(window%,icon%)
3910ENDPROC
3920:
3930DEF PROCset_icon_string(window%,icon%,a$)
3940$FNstring_addr(window%,icon%)=a$
3950PROCupdate_icon(window%,icon%)
3960ENDPROC
3970:
3980DEF PROCset_icon_string2(window%,icon%,a$)
3990$FNstring_addr(window%,icon%)=a$
4000ENDPROC
4010:
4020DEF PROCterm(a%)
4030LOCAL n%
4040WHILE a%?n%>31
4050n%+=1
4060ENDWHILE
4070a%?n%=13
4080ENDPROC
4090:
4100DEF PROCopen_window(win%)
4110!b%=win%
4120SYS "Wimp_GetWindowState",,b%
4130b%!28=-1
4140SYS "Wimp_OpenWindow",,b%
4150ENDPROC
4160:
4170DEF PROCopen_centre(win%)
4180PROCget_screen_size
4190!b%=win%
4200SYS "Wimp_GetWindowState",,b%
4210width%=(b%!12)-(b%!4)
4220height%=(b%!16)-(b%!8)
4230b%!4=(X2-width%) DIV 2
4240b%!8=(Y2-height%) DIV 2
4250b%!12=(b%!4)+width%
4260b%!16=(b%!8)+height%
4270b%!28=-1
4280SYS "Wimp_OpenWindow",,b%
4290ENDPROC
4300:
4310DEF PROCclose_window(win%)
4320!b%=win%
4330SYS "Wimp_GetWindowState",,b%:SYS "Wimp_CloseWindow",,b%
4340ENDPROC
4350:
4360DEF FNerror
4370!b%=ERR
4380CASE !b% OF
4390WHEN 1<<30:err_str$="":box%=%1001
4400OTHERWISE:err_str$=" at line "+STR$ ERL:box%=%1001
4410ENDCASE
4420$(b%+4)=REPORT$+err_str$+CHR$0
4430SYS "Wimp_ReportError",b%,box%,AppName$ TO ,response%
4440=(response%=2)
4450:
4460DEF PROCget_screen_size
4470SYS"OS_ReadModeVariable",-1,4 TO ,,Xfact%
4480SYS"OS_ReadModeVariable",-1,5 TO ,,Yfact%
4490SYS"OS_ReadModeVariable",-1,11 TO ,,XLim%
4500SYS"OS_ReadModeVariable",-1,12 TO ,,YLim%
4510X2=XLim%<<Xfact%
4520Y2=YLim%<<Yfact%
4530ENDPROC
4540:
4550DEF FNcapitals(t$)
4560REM *** Converts all text to lower case ***
4570LOCAL I,l$
4580nt$=""
4590FOR I=1 TO LEN t$
4600l$=MID$(t$,I,1)
4610IF ASC(l$)>=ASC("A") AND ASC(l$)<=ASC("Z") l$=CHR$(ASC(l$)+32)
4620nt$+=l$
4630NEXT
4640=nt$
4650:
4660DEF FNevaluate(ev$)
4670SYS "XOS_EvaluateExpression",ev$,b%,256 TO ,b%,len
4680PROCterm(b%)
4690=LEFT$($b%,len)
4700:
4710DEF PROCdrag_a_spr(window%,icon%,spr$)
4720LOCAL c%
4730c%=b%+900
4740PROCget_origin(window%,xorig%,yorig%)
4750!c%=window%:c%!4=icon%
4760SYS "Wimp_GetIconState",,c%
4770xmin%=xorig%+c%!8:ymin%=yorig%+c%!12
4780xmax%=xorig%+c%!16:ymax%=yorig%+c%!20
4790!c%=xmin%:c%!4=ymin%
4800c%!8=xmax%:c%!12=ymax%
4810SYS "DragASprite_Start",%10000101,1,spr$,c%
4820ENDPROC
4830:
4840DEF PROCdragend
4850a$=FNicon_string(saveas%,2)
4860SYS "Wimp_GetPointerInfo",,b%
4870b%!20=b%!12
4880b%!24=b%!16
4890b%!28=b%!0
4900b%!32=b%!4
4910b%!36=(filepos%-readsize%)
4920b%!40=save_type%
4930WHILE INSTR(a$,".")<>0
4940n%=INSTR(a$,".")
4950a$=MID$(a$,n%+1)
4960ENDWHILE
4970$(b%+44)=a$
4980!b%=44+((LEN a$+1) DIV 4)*4
4990IF ((LEN a$+1) MOD 4)<>0 !b%+=4
5000b%!12=0
5010b%!16=1
5020SYS "Wimp_SendMessage",18,b%,b%!20,b%!24
5030ENDPROC
5040:
5050DEF PROCsave
5060PROCterm(b%+44)
5070file$=$(b%+44)
5080PROCsave_data(file$)
5090SYS "Wimp_CreateMenu",,-1
5100ENDPROC
5110:
5120DEF PROCsaved_message
5130b%!12=b%!8
5140b%!16=3
5150!b%=256
5160SYS "Wimp_SendMessage",18,b%,b%!20,b%!24
5170ENDPROC
5180:
5190DEF PROCcheck_save
5200IF INSTR(file$,":")=0 OR INSTR(file$,".")=0 THEN
5210 !b%=%1
5220 $(b%+4)="To save, drag the icon to a directory display."+CHR$0
5230 box%=%11001
5240 SYS "Wimp_ReportError",b%,box%,"Error from "+AppName$ TO ,response%
5250 saved%=FALSE
5260ELSE
5270 saved%=TRUE
5280ENDIF
5290ENDPROC
5300:
5310DEF PROCload
5320filetype=b%!40
5330window=b%!20
5340icon=b%!24
5350PROCterm(b%+44)
5360filename$=$(b%+44)
5370PROCload_data(window,icon,filename$,filetype)
5380ENDPROC
5390:
5400REM =====================================================
5410REM INSERT WIMPHEAP/MESSAGETRANS ROUTINES BELOW...
5420REM =====================================================
� !RunImage
� By Philip Mellor
:
(AppName$="Whack-A-Mole"
2%version$="1.00 (23rd March 1998)"
<:
F� � �4:�:�" - ";�:�
P:
Z8ș "Wimp_Initialise",200,&4B534154,AppName$ � ,task%
d
n �init
x�createiconbar
�:
�� mt%(9),mb%(9),mc%(9)
�:
�pausetime%=0
��set_gameover
�2�set_icon_string(whack%,19,"Whack - A - Mole")
��open_centre(whack%)
�playing%=�
�
�dummy=�(-�)
�:
�� � � �error � �close:�
�:
�
�poll
� quit%
"� MOUSE STEP 2,2
,
�close
6�
@:
J;� =====================================================
T&� MODIFIED WIMP LIBRARY ROUTINES
^;� =====================================================
h:
r� �createiconbar
|7!b%=-1:b%!4=0:b%!8=0:b%!12=100:b%!16=68:b%!20=&3002
�7$(b%+24)="!whakamole":ș "Wimp_CreateIcon",,b% � i%
��
�:
�� �mouseclick
�window%=b%!12
�icon%=b%!16
�button%=b%!8
�Ȏ window% �
�
� � -2
� Ȏ button% �
�. � 2:�showmenu(mainmenu%,!b%-64,96+2*44)
� � 4:�open_centre(whack%)
�
� whack%
& Ȏ button% �
0+ � 2:�showmenu(mainmenu%,!b%-64,b%!4)
:
D Ȏ icon% �
N< � 2,3,4,5,6,7,8,9,10:� playing% �click_mole(icon%-1)
X4 � 20:ș "OS_ReadMonotonicTime" � pausetime2%
b< � pausetime2%-pausetime%>50 �set_game:�start
l �
v �
�
��
��
�:
� � �start
�'playing%=�:hits%=0:miss%=0:total%=0
�� mole%=1 � 9
�mt%(mole%)=0
�@� PROCset_icon_string2(whack%,mole%+1,"mole"+STR$mt%(mole%))
��
� � PROCupdate_icon(whack%,0)
�
�total
� �hits
�miss
)ș "OS_ReadMonotonicTime" � oldtime1%
oldtime%=-1
starttime%=oldtime1%
*oldtime2%=oldtime1%+25
4nexttime%=�(50)+50
>� MOUSE STEP 1,1
H�
R:
\ � �total
f(�set_icon_string(whack%,13,� total%)
p�
z:
� � �hits
�'�set_icon_string(whack%,15,� hits%)
��
�:
� � �miss
�'�set_icon_string(whack%,17,� miss%)
��
�:
�� �click_mole(mole%)
�)ș "OS_ReadMonotonicTime" � newtime2%
�C� mt%(mole%)=0 � mt%(mole%)=2 � miss%+=1:total%-=3:�miss:�total
�� mt%(mole%)=1 � mt%(mole%)=2:�set_icon_string(whack%,mole%+1,"mole2"):mc%(mole%)=50:mb%(mole%)=newtime2%:hits%+=1:total%+=5:�hits:�total
��
:
� �play_loop
)ș "OS_ReadMonotonicTime" � newtime1%
$)ș "OS_ReadMonotonicTime" � newtime2%
.)ș "OS_ReadMonotonicTime" � newtime3%
8)time%=16-((newtime3%-starttime%)/100)
Br� time%<0 time%=0:playing%=�:�set_gameover:pausetime%=newtime3%:�set_icon_string(whack%,19,"T I M E U P !")
LJ� time%<>oldtime% � �set_icon_string(whack%,11,� time%):oldtime%=time%
V%� newtime1%-oldtime1%>nexttime% �
`oldtime1%=newtime1%
j nexttime%=�(60)+10+(time%*3)
t � �(6)=1 nexttime%=�(80)+50
~mole%=�(9)
�t� mt%(mole%)=0 � mt%(mole%)=1:�set_icon_string(whack%,mole%+1,"mole1"):mc%(mole%)=60+�(100):mb%(mole%)=newtime2%
��
�� mole%=1 � 9
�� mt%(mole%)>0 �
�'� newtime2%>mb%(mole%)+mc%(mole%) �
�#� mt%(mole%)=1 total%-=2:�total
�9mt%(mole%)=0:�set_icon_string(whack%,mole%+1,"mole0")
��
��
��
��
�:
� �set_game
!�set_icon_bit(whack%,19,�,23)
!�set_icon_bit(whack%,20,�,23)
� a=2 � 10
( �set_icon_bit(whack%,a,�,23)
2&�set_icon_string(whack%,a,"mole0")
<�
F � PROCupdate_icon(whack%,0)
P�
Z:
d� �set_gameover
n� a=2 � 10
x �set_icon_bit(whack%,a,�,23)
��
�!�set_icon_bit(whack%,19,�,23)
�!�set_icon_bit(whack%,20,�,23)
� � PROCupdate_icon(whack%,0)
��
�:
�� �processkey
� key=b%!24:win%=!b%:ic%=b%!4
�
process=�
�&� process ș "Wimp_ProcessKey",key
��
�:
� � �init
9� b% 2000,ws% 2000,menspc% 1000, temp% 32, chappy% 64
wsend%=ws%+2000
quit%=�
"�load_templates
,�main_menu
6 �attach(mainmenu%,0,info%)
@&�set_icon_string(info%,7,version$)
J�
T:
^� �load_templates
h2ș "Wimp_OpenTemplate",,"<Obey$Dir>.Templates"
r>ș "Wimp_LoadTemplate",,b%,ws%,wsend%,-1,"whack",0 � ,,ws%
|'ș "Wimp_CreateWindow",,b% � whack%
�@ș "Wimp_LoadTemplate",,b%,ws%,wsend%,-1,"options",0 � ,,ws%
�)ș "Wimp_CreateWindow",,b% � options%
�>ș "Wimp_LoadTemplate",,b%,ws%,wsend%,-1,"score",0 � ,,ws%
�'ș "Wimp_CreateWindow",,b% � score%
�=ș "Wimp_LoadTemplate",,b%,ws%,wsend%,-1,"info",0 � ,,ws%
�&ș "Wimp_CreateWindow",,b% � info%
�ș "Wimp_CloseTemplate"
��
�:
�� �main_menu
�� +1
� � Whack-A-Mole,Info,Quit,*
�mainmenu%=�make_menu
�
:
� �menuclick
&� c%
0
c%=b%+900
: ș "Wimp_GetPointerInfo",,c%
Dadj%=(c%!8 � 1)
N(ș "Wimp_DecodeMenu",,topmenu%,b%,c%
X Ȏ $c% �
b � "Quit":quit%=�
l�
v*� adj% �showmenu(topmenu%,topx%,topy%)
��
�:
�� �menu_warning
�submenu_ptr=b%!20
�win_x=b%!24
�win_y=b%!28
�.ș "Wimp_CreateSubMenu",,b%!20,b%!24,b%!28
��
�:
�� �save_data(filename$)
�)�set_icon_string(saveas%,2,filename$)
� � *** SAVE DATA HERE ***
��saved_message
�
:
0� �load_data(window,icon,filename$,filetype)
"� *** CHECK/LOAD DATA HERE ***
*)�set_icon_string(saveas%,2,filename$)
4�
>:
H
� �helpme
Rwindow%=b%!32
\icon%=b%!36
f1help$="This is the "+AppName$+" application."
p
zȎ window% �
� � -2
�, help$="This is the "+AppName$+" icon."
�
� � info%
� help$=""
� Ȏ icon% �
�5 � 0,1:help$="This is the name of the program."
�8 � 2,3:help$="This is the purpose of the program."
�7 � 4,5:help$="This is the author of the program."
�? � 6,7:help$="This is the version number of the program."
� �
�
��
:
b%!00 = 256
b%!12 = b%!8
$b%!16 = &0503
.$(b%+20)= help$
8$ș "Wimp_SendMessage",17,b%,b%!4
B�
L
V:
`;� =====================================================
j&� STANDARD WIMP LIBRARY ROUTINES
t;� =====================================================
~:
� � �close
�� MOUSE STEP 2,2
�'ș "Wimp_CloseDown",task%,&4B534154
��
�:
� � �poll
�ș "Wimp_Poll",,b% � r%
� Ȏ r% �
� � 0:� playing% �play_loop
� � 2:ș "Wimp_OpenWindow",,b%
�!� 3:ș "Wimp_CloseWindow",,b%
�� 6:�mouseclick
� 7:�dragend
� 8:�processkey
� 9:�menuclick
� 17,18:�receive
(�
2�
<:
F� �receive
PȎ b%!16 �
Z� 0:quit%=�
d� 1:�datasave
n
� 2:�save
x
� 3:�load
�� &502:�helpme
�� &400C0:�menu_warning
��
��
�:
�� �datasave
��term(b%+44)
�name$=$(b%+44)
� $(b%+44)="<Wimp$Scrap>"+�0
�'b%!36=-1 : � saved file is "unsafe"
� b%!0=256
�b%!12=b%!8
� b%!16=2
$ș "Wimp_SendMessage",17,b%,b%!4
�
:
"!� �update_icon(window%,icon%)
,b%!0=window%
6 b%!4=icon%
@
b%!8=0
J b%!12=0
T! ș "Wimp_SetIconState",,b%
^�
h:
r,� �get_origin(handle%,� xorig%,� yorig%)
|� c%
�
c%=b%+800
�!c%=handle%
� ș "Wimp_GetWindowState",,c%
�xorig%=c%!4-c%!20
�yorig%=c%!16-c%!24
��
�
�(� �set_icon_bit(!b%,b%!4,tf%,stbit%)
� state%=0
�� tf% state%=1
�b%!8=state%<<stbit%
�b%!12=1<<stbit%
� ș "Wimp_SetIconState",,b%
�
:
� �attach(menu%,item%,sub%)
& !(menu%+28+item%*24+4)=sub%
0�
::
D� �make_menu
Nstart%=menspc%
X � title$
b$(start%)=title$
lstart%?12=7
vstart%?13=2
�start%?14=7
�start%?15=0
�start%!20=44
�start%!24=0
�� start%!16=160
�width%=�(title$)-3
�menspc%+=28
��
� � item$
�� item$<>"*" �
�!menspc%=0
�writeable%=�
�ul%=�item$,"_")
� ul% �
tail$=�item$,�(item$)-ul%)
.� �tail$,"T") !menspc%=!menspc% � 1:� tick
5� �tail$,"D") !menspc%=!menspc% � 2:� dotted line
*X� �tail$,"W") !menspc%=!menspc% � 4:writeable%=�:� buffer%:� buflen%:� writable icon
4:� �tail$,"M") !menspc%=!menspc% � 8:� generate message
>item$=�item$,ul%-1)
H�
R#� � item$>width% width%=� item$
\menspc%!4=-1
f� writeable% �
pZmenspc%!8=&0700F121:menspc%!12=buffer%:menspc%!16=-1:menspc%!20=buflen%:$buffer%=item$
z�
�� � item$<12 �
�+menspc%!8=&07000021:$(menspc%+12)=item$
��
�Imenspc%!8=&07000121:menspc%!12=ws%:menspc%!16=-1:menspc%!20=� item$+1
� $ws%=item$:ws%+=� item$+1
��
��
�menspc%+=24
��
�� item$="*"
�start%!16=width%*16+32
�%!(menspc%-24)=!(menspc%-24) � &80
�mptr%=menspc%
=start%
:
� �showmenu(menu%,x%,y%)
$$topmenu%=menu%:topx%=x%:topy%=y%
.%ș "Wimp_CreateMenu",,menu%,x%,y%
8�
B:
L� �ungrey(menu%,item%)
V?menu%!(28+item%*24+8)=(menu%!(28+item%*24+8)) � (� (1<<22))
`�
j:
t� �grey(menu%,item%)
~;menu%!(28+item%*24+8)=(menu%!(28+item%*24+8)) � (1<<22)
��
�:
� � �icon_state(window%,icon%)
�� c%
�
c%=b%+900
�!c%=window%
�c%!4=icon%
� ș "Wimp_GetIconState",,c%
�=((c%!24) � (1<<21))<>0
�:
�!� �string_addr(window%,icon%)
�!chappy%=window%
chappy%!4=icon%
#ș "Wimp_GetIconState",,chappy%
=chappy%!28
:
(!� �icon_string(window%,icon%)
2&�term(�string_addr(window%,icon%))
<!=$�string_addr(window%,icon%)
F�
P:
Z(� �set_icon_string(window%,icon%,a$)
d#$�string_addr(window%,icon%)=a$
n �update_icon(window%,icon%)
x�
�:
�)� �set_icon_string2(window%,icon%,a$)
�#$�string_addr(window%,icon%)=a$
��
�:
�� �term(a%)
�� n%
�ȕ a%?n%>31
� n%+=1
��
� a%?n%=13
��
�:
� �open_window(win%)
!b%=win%
ș "Wimp_GetWindowState",,b%
" b%!28=-1
, ș "Wimp_OpenWindow",,b%
6�
@:
J� �open_centre(win%)
T�get_screen_size
^ !b%=win%
h ș "Wimp_GetWindowState",,b%
rwidth%=(b%!12)-(b%!4)
|height%=(b%!16)-(b%!8)
�b%!4=(X2-width%) � 2
�b%!8=(Y2-height%) � 2
�b%!12=(b%!4)+width%
�b%!16=(b%!8)+height%
� b%!28=-1
� ș "Wimp_OpenWindow",,b%
��
�:
�� �close_window(win%)
� !b%=win%
�:ș "Wimp_GetWindowState",,b%:ș "Wimp_CloseWindow",,b%
��
�:
� �error
!b%=�
Ȏ !b% �
&"� 1<<30:err_str$="":box%=%1001
0):err_str$=" at line "+� �:box%=%1001
:�
D$(b%+4)=�$+err_str$+�0
N7ș "Wimp_ReportError",b%,box%,AppName$ � ,response%
X=(response%=2)
b:
l� �get_screen_size
v+ș"OS_ReadModeVariable",-1,4 � ,,Xfact%
�+ș"OS_ReadModeVariable",-1,5 � ,,Yfact%
�+ș"OS_ReadModeVariable",-1,11 � ,,XLim%
�+ș"OS_ReadModeVariable",-1,12 � ,,YLim%
�X2=XLim%<<Xfact%
�Y2=YLim%<<Yfact%
��
�:
�� �capitals(t$)
�-� *** Converts all text to lower case ***
�
� I,l$
�
nt$=""
�� I=1 � � t$
�l$=�t$,I,1)
2� �(l$)>=�("A") � �(l$)<=�("Z") l$=�(�(l$)+32)
nt$+=l$
�
=nt$
*:
4� �evaluate(ev$)
>4ș "XOS_EvaluateExpression",ev$,b%,256 � ,b%,len
H
�term(b%)
R=�$b%,len)
\:
f%� �drag_a_spr(window%,icon%,spr$)
p� c%
z
c%=b%+900
�&�get_origin(window%,xorig%,yorig%)
�!c%=window%:c%!4=icon%
� ș "Wimp_GetIconState",,c%
�(xmin%=xorig%+c%!8:ymin%=yorig%+c%!12
�)xmax%=xorig%+c%!16:ymax%=yorig%+c%!20
�!c%=xmin%:c%!4=ymin%
�c%!8=xmax%:c%!12=ymax%
�.ș "DragASprite_Start",%10000101,1,spr$,c%
��
�:
�� �dragend
� a$=�icon_string(saveas%,2)
� ș "Wimp_GetPointerInfo",,b%
b%!20=b%!12
b%!24=b%!16
b%!28=b%!0
$b%!32=b%!4
. b%!36=(filepos%-readsize%)
8b%!40=save_type%
Bȕ �a$,".")<>0
Ln%=�a$,".")
Va$=�a$,n%+1)
`�
j$(b%+44)=a$
t!b%=44+((� a$+1) � 4)*4
~ � ((� a$+1) � 4)<>0 !b%+=4
� b%!12=0
� b%!16=1
�+ș "Wimp_SendMessage",18,b%,b%!20,b%!24
��
�:
� � �save
��term(b%+44)
�file$=$(b%+44)
��save_data(file$)
� ș "Wimp_CreateMenu",,-1
��
�:
� �saved_message
b%!12=b%!8
b%!16=3
!b%=256
(+ș "Wimp_SendMessage",18,b%,b%!20,b%!24
2�
<:
F� �check_save
P%� �file$,":")=0 � �file$,".")=0 �
Z !b%=%1
d@ $(b%+4)="To save, drag the icon to a directory display."+�0
n box%=%11001
xF ș "Wimp_ReportError",b%,box%,"Error from "+AppName$ � ,response%
�
saved%=�
��
�
saved%=�
��
��
�:
� � �load
�filetype=b%!40
�window=b%!20
�icon=b%!24
��term(b%+44)
�filename$=$(b%+44)
�.�load_data(window,icon,filename$,filetype)
�
:
;� =====================================================
"6� INSERT WIMPHEAP/MESSAGETRANS ROUTINES BELOW...
,;� =====================================================
� 00000000 0d 00 0a 0f f4 20 21 52 75 6e 49 6d 61 67 65 0d |..... !RunImage.|
00000010 00 14 16 f4 20 42 79 20 50 68 69 6c 69 70 20 4d |.... By Philip M|
00000020 65 6c 6c 6f 72 0d 00 1e 05 3a 0d 00 28 1b 41 70 |ellor....:..(.Ap|
00000030 70 4e 61 6d 65 24 3d 22 57 68 61 63 6b 2d 41 2d |pName$="Whack-A-|
00000040 4d 6f 6c 65 22 0d 00 32 25 76 65 72 73 69 6f 6e |Mole"..2%version|
00000050 24 3d 22 31 2e 30 30 20 28 32 33 72 64 20 4d 61 |$="1.00 (23rd Ma|
00000060 72 63 68 20 31 39 39 38 29 22 0d 00 3c 05 3a 0d |rch 1998)"..<.:.|
00000070 00 46 17 ee 20 85 20 ef 34 3a f6 3a f1 22 20 2d |.F.. . .4:.:." -|
00000080 20 22 3b 9e 3a e0 0d 00 50 05 3a 0d 00 5a 38 c8 | ";.:...P.:..Z8.|
00000090 99 20 22 57 69 6d 70 5f 49 6e 69 74 69 61 6c 69 |. "Wimp_Initiali|
000000a0 73 65 22 2c 32 30 30 2c 26 34 42 35 33 34 31 35 |se",200,&4B53415|
000000b0 34 2c 41 70 70 4e 61 6d 65 24 20 b8 20 2c 74 61 |4,AppName$ . ,ta|
000000c0 73 6b 25 0d 00 64 04 0d 00 6e 09 f2 69 6e 69 74 |sk%..d...n..init|
000000d0 0d 00 78 12 f2 63 72 65 61 74 65 69 63 6f 6e 62 |..x..createiconb|
000000e0 61 72 0d 00 82 05 3a 0d 00 8c 1a de 20 6d 74 25 |ar....:..... mt%|
000000f0 28 39 29 2c 6d 62 25 28 39 29 2c 6d 63 25 28 39 |(9),mb%(9),mc%(9|
00000100 29 0d 00 96 05 3a 0d 00 a0 10 70 61 75 73 65 74 |)....:....pauset|
00000110 69 6d 65 25 3d 30 0d 00 aa 11 f2 73 65 74 5f 67 |ime%=0.....set_g|
00000120 61 6d 65 6f 76 65 72 0d 00 b4 32 f2 73 65 74 5f |ameover...2.set_|
00000130 69 63 6f 6e 5f 73 74 72 69 6e 67 28 77 68 61 63 |icon_string(whac|
00000140 6b 25 2c 31 39 2c 22 57 68 61 63 6b 20 2d 20 41 |k%,19,"Whack - A|
00000150 20 2d 20 4d 6f 6c 65 22 29 0d 00 be 18 f2 6f 70 | - Mole").....op|
00000160 65 6e 5f 63 65 6e 74 72 65 28 77 68 61 63 6b 25 |en_centre(whack%|
00000170 29 0d 00 c8 0e 70 6c 61 79 69 6e 67 25 3d a3 0d |)....playing%=..|
00000180 00 d2 04 0d 00 dc 0f 64 75 6d 6d 79 3d b3 28 2d |.......dummy=.(-|
00000190 91 29 0d 00 e6 05 3a 0d 00 f0 1b ee 20 85 20 e7 |.)....:..... . .|
000001a0 20 a4 65 72 72 6f 72 20 8c 20 f2 63 6c 6f 73 65 | .error . .close|
000001b0 3a e0 0d 00 fa 05 3a 0d 01 04 05 f5 0d 01 0e 09 |:.....:.........|
000001c0 f2 70 6f 6c 6c 0d 01 18 0b fd 20 71 75 69 74 25 |.poll..... quit%|
000001d0 0d 01 22 14 f4 20 4d 4f 55 53 45 20 53 54 45 50 |..".. MOUSE STEP|
000001e0 20 32 2c 32 0d 01 2c 0a f2 63 6c 6f 73 65 0d 01 | 2,2..,..close..|
000001f0 36 05 e0 0d 01 40 05 3a 0d 01 4a 3b f4 20 3d 3d |6....@.:..J;. ==|
00000200 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d |================|
*
00000230 3d 3d 3d 0d 01 54 26 f4 20 20 20 4d 4f 44 49 46 |===..T&. MODIF|
00000240 49 45 44 20 57 49 4d 50 20 4c 49 42 52 41 52 59 |IED WIMP LIBRARY|
00000250 20 52 4f 55 54 49 4e 45 53 0d 01 5e 3b f4 20 3d | ROUTINES..^;. =|
00000260 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d |================|
*
00000290 3d 3d 3d 3d 0d 01 68 05 3a 0d 01 72 14 dd 20 f2 |====..h.:..r.. .|
000002a0 63 72 65 61 74 65 69 63 6f 6e 62 61 72 0d 01 7c |createiconbar..||
000002b0 37 21 62 25 3d 2d 31 3a 62 25 21 34 3d 30 3a 62 |7!b%=-1:b%!4=0:b|
000002c0 25 21 38 3d 30 3a 62 25 21 31 32 3d 31 30 30 3a |%!8=0:b%!12=100:|
000002d0 62 25 21 31 36 3d 36 38 3a 62 25 21 32 30 3d 26 |b%!16=68:b%!20=&|
000002e0 33 30 30 32 0d 01 86 37 24 28 62 25 2b 32 34 29 |3002...7$(b%+24)|
000002f0 3d 22 21 77 68 61 6b 61 6d 6f 6c 65 22 3a c8 99 |="!whakamole":..|
00000300 20 22 57 69 6d 70 5f 43 72 65 61 74 65 49 63 6f | "Wimp_CreateIco|
00000310 6e 22 2c 2c 62 25 20 b8 20 69 25 0d 01 90 05 e1 |n",,b% . i%.....|
00000320 0d 01 9a 05 3a 0d 01 a4 11 dd 20 f2 6d 6f 75 73 |....:..... .mous|
00000330 65 63 6c 69 63 6b 0d 01 ae 11 77 69 6e 64 6f 77 |eclick....window|
00000340 25 3d 62 25 21 31 32 0d 01 b8 0f 69 63 6f 6e 25 |%=b%!12....icon%|
00000350 3d 62 25 21 31 36 0d 01 c2 10 62 75 74 74 6f 6e |=b%!16....button|
00000360 25 3d 62 25 21 38 0d 01 cc 10 c8 8e 20 77 69 6e |%=b%!8...... win|
00000370 64 6f 77 25 20 ca 0d 01 d6 04 0d 01 e0 09 20 c9 |dow% ......... .|
00000380 20 2d 32 0d 01 ea 12 20 20 c8 8e 20 62 75 74 74 | -2.... .. butt|
00000390 6f 6e 25 20 ca 0d 01 f4 2e 20 20 20 c9 20 32 3a |on% ..... . 2:|
000003a0 f2 73 68 6f 77 6d 65 6e 75 28 6d 61 69 6e 6d 65 |.showmenu(mainme|
000003b0 6e 75 25 2c 21 62 25 2d 36 34 2c 39 36 2b 32 2a |nu%,!b%-64,96+2*|
000003c0 34 34 29 0d 01 fe 1f 20 20 20 c9 20 34 3a f2 6f |44).... . 4:.o|
000003d0 70 65 6e 5f 63 65 6e 74 72 65 28 77 68 61 63 6b |pen_centre(whack|
000003e0 25 29 0d 02 08 08 20 20 20 cb 0d 02 12 04 0d 02 |%).... .......|
000003f0 1c 0d 20 c9 20 77 68 61 63 6b 25 0d 02 26 12 20 |.. . whack%..&. |
00000400 20 c8 8e 20 62 75 74 74 6f 6e 25 20 ca 0d 02 30 | .. button% ...0|
00000410 2b 20 20 20 c9 20 32 3a f2 73 68 6f 77 6d 65 6e |+ . 2:.showmen|
00000420 75 28 6d 61 69 6e 6d 65 6e 75 25 2c 21 62 25 2d |u(mainmenu%,!b%-|
00000430 36 34 2c 62 25 21 34 29 0d 02 3a 07 20 20 7f 0d |64,b%!4)..:. ..|
00000440 02 44 11 20 20 20 c8 8e 20 69 63 6f 6e 25 20 ca |.D. .. icon% .|
00000450 0d 02 4e 3c 20 20 20 20 c9 20 32 2c 33 2c 34 2c |..N< . 2,3,4,|
00000460 35 2c 36 2c 37 2c 38 2c 39 2c 31 30 3a e7 20 70 |5,6,7,8,9,10:. p|
00000470 6c 61 79 69 6e 67 25 20 f2 63 6c 69 63 6b 5f 6d |laying% .click_m|
00000480 6f 6c 65 28 69 63 6f 6e 25 2d 31 29 0d 02 58 34 |ole(icon%-1)..X4|
00000490 20 20 20 20 c9 20 32 30 3a c8 99 20 22 4f 53 5f | . 20:.. "OS_|
000004a0 52 65 61 64 4d 6f 6e 6f 74 6f 6e 69 63 54 69 6d |ReadMonotonicTim|
000004b0 65 22 20 b8 20 70 61 75 73 65 74 69 6d 65 32 25 |e" . pausetime2%|
000004c0 0d 02 62 3c 20 20 20 20 20 20 20 20 20 20 20 20 |..b< |
000004d0 e7 20 70 61 75 73 65 74 69 6d 65 32 25 2d 70 61 |. pausetime2%-pa|
000004e0 75 73 65 74 69 6d 65 25 3e 35 30 20 f2 73 65 74 |usetime%>50 .set|
000004f0 5f 67 61 6d 65 3a f2 73 74 61 72 74 0d 02 6c 08 |_game:.start..l.|
00000500 20 20 20 cb 0d 02 76 07 20 20 cb 0d 02 80 04 0d | ...v. ......|
00000510 02 8a 05 cb 0d 02 94 05 e1 0d 02 9e 05 3a 0d 02 |.............:..|
00000520 a8 0c dd 20 f2 73 74 61 72 74 0d 02 b2 27 70 6c |... .start...'pl|
00000530 61 79 69 6e 67 25 3d b9 3a 68 69 74 73 25 3d 30 |aying%=.:hits%=0|
00000540 3a 6d 69 73 73 25 3d 30 3a 74 6f 74 61 6c 25 3d |:miss%=0:total%=|
00000550 30 0d 02 bc 11 e3 20 6d 6f 6c 65 25 3d 31 20 b8 |0..... mole%=1 .|
00000560 20 39 0d 02 c6 10 6d 74 25 28 6d 6f 6c 65 25 29 | 9....mt%(mole%)|
00000570 3d 30 0d 02 d0 40 f4 20 50 52 4f 43 73 65 74 5f |=0...@. PROCset_|
00000580 69 63 6f 6e 5f 73 74 72 69 6e 67 32 28 77 68 61 |icon_string2(wha|
00000590 63 6b 25 2c 6d 6f 6c 65 25 2b 31 2c 22 6d 6f 6c |ck%,mole%+1,"mol|
000005a0 65 22 2b 53 54 52 24 6d 74 25 28 6d 6f 6c 65 25 |e"+STR$mt%(mole%|
000005b0 29 29 0d 02 da 05 ed 0d 02 e4 1f f4 20 50 52 4f |)).......... PRO|
000005c0 43 75 70 64 61 74 65 5f 69 63 6f 6e 28 77 68 61 |Cupdate_icon(wha|
000005d0 63 6b 25 2c 30 29 0d 02 ee 0a f2 74 6f 74 61 6c |ck%,0).....total|
000005e0 0d 02 f8 09 f2 68 69 74 73 0d 03 02 09 f2 6d 69 |.....hits.....mi|
000005f0 73 73 0d 03 0c 29 c8 99 20 22 4f 53 5f 52 65 61 |ss...).. "OS_Rea|
00000600 64 4d 6f 6e 6f 74 6f 6e 69 63 54 69 6d 65 22 20 |dMonotonicTime" |
00000610 b8 20 6f 6c 64 74 69 6d 65 31 25 0d 03 16 0f 6f |. oldtime1%....o|
00000620 6c 64 74 69 6d 65 25 3d 2d 31 0d 03 20 18 73 74 |ldtime%=-1.. .st|
00000630 61 72 74 74 69 6d 65 25 3d 6f 6c 64 74 69 6d 65 |arttime%=oldtime|
00000640 31 25 0d 03 2a 1a 6f 6c 64 74 69 6d 65 32 25 3d |1%..*.oldtime2%=|
00000650 6f 6c 64 74 69 6d 65 31 25 2b 32 35 0d 03 34 16 |oldtime1%+25..4.|
00000660 6e 65 78 74 74 69 6d 65 25 3d b3 28 35 30 29 2b |nexttime%=.(50)+|
00000670 35 30 0d 03 3e 14 f4 20 4d 4f 55 53 45 20 53 54 |50..>.. MOUSE ST|
00000680 45 50 20 31 2c 31 0d 03 48 05 e1 0d 03 52 05 3a |EP 1,1..H....R.:|
00000690 0d 03 5c 0c dd 20 f2 74 6f 74 61 6c 0d 03 66 28 |..\.. .total..f(|
000006a0 f2 73 65 74 5f 69 63 6f 6e 5f 73 74 72 69 6e 67 |.set_icon_string|
000006b0 28 77 68 61 63 6b 25 2c 31 33 2c c3 20 74 6f 74 |(whack%,13,. tot|
000006c0 61 6c 25 29 0d 03 70 05 e1 0d 03 7a 05 3a 0d 03 |al%)..p....z.:..|
000006d0 84 0b dd 20 f2 68 69 74 73 0d 03 8e 27 f2 73 65 |... .hits...'.se|
000006e0 74 5f 69 63 6f 6e 5f 73 74 72 69 6e 67 28 77 68 |t_icon_string(wh|
000006f0 61 63 6b 25 2c 31 35 2c c3 20 68 69 74 73 25 29 |ack%,15,. hits%)|
00000700 0d 03 98 05 e1 0d 03 a2 05 3a 0d 03 ac 0b dd 20 |.........:..... |
00000710 f2 6d 69 73 73 0d 03 b6 27 f2 73 65 74 5f 69 63 |.miss...'.set_ic|
00000720 6f 6e 5f 73 74 72 69 6e 67 28 77 68 61 63 6b 25 |on_string(whack%|
00000730 2c 31 37 2c c3 20 6d 69 73 73 25 29 0d 03 c0 05 |,17,. miss%)....|
00000740 e1 0d 03 ca 05 3a 0d 03 d4 18 dd 20 f2 63 6c 69 |.....:..... .cli|
00000750 63 6b 5f 6d 6f 6c 65 28 6d 6f 6c 65 25 29 0d 03 |ck_mole(mole%)..|
00000760 de 29 c8 99 20 22 4f 53 5f 52 65 61 64 4d 6f 6e |.).. "OS_ReadMon|
00000770 6f 74 6f 6e 69 63 54 69 6d 65 22 20 b8 20 6e 65 |otonicTime" . ne|
00000780 77 74 69 6d 65 32 25 0d 03 e8 43 e7 20 6d 74 25 |wtime2%...C. mt%|
00000790 28 6d 6f 6c 65 25 29 3d 30 20 84 20 6d 74 25 28 |(mole%)=0 . mt%(|
000007a0 6d 6f 6c 65 25 29 3d 32 20 8c 20 6d 69 73 73 25 |mole%)=2 . miss%|
000007b0 2b 3d 31 3a 74 6f 74 61 6c 25 2d 3d 33 3a f2 6d |+=1:total%-=3:.m|
000007c0 69 73 73 3a f2 74 6f 74 61 6c 0d 03 f2 8d e7 20 |iss:.total..... |
000007d0 6d 74 25 28 6d 6f 6c 65 25 29 3d 31 20 8c 20 6d |mt%(mole%)=1 . m|
000007e0 74 25 28 6d 6f 6c 65 25 29 3d 32 3a f2 73 65 74 |t%(mole%)=2:.set|
000007f0 5f 69 63 6f 6e 5f 73 74 72 69 6e 67 28 77 68 61 |_icon_string(wha|
00000800 63 6b 25 2c 6d 6f 6c 65 25 2b 31 2c 22 6d 6f 6c |ck%,mole%+1,"mol|
00000810 65 32 22 29 3a 6d 63 25 28 6d 6f 6c 65 25 29 3d |e2"):mc%(mole%)=|
00000820 35 30 3a 6d 62 25 28 6d 6f 6c 65 25 29 3d 6e 65 |50:mb%(mole%)=ne|
00000830 77 74 69 6d 65 32 25 3a 68 69 74 73 25 2b 3d 31 |wtime2%:hits%+=1|
00000840 3a 74 6f 74 61 6c 25 2b 3d 35 3a f2 68 69 74 73 |:total%+=5:.hits|
00000850 3a f2 74 6f 74 61 6c 0d 03 fc 05 e1 0d 04 06 05 |:.total.........|
00000860 3a 0d 04 10 10 dd 20 f2 70 6c 61 79 5f 6c 6f 6f |:..... .play_loo|
00000870 70 0d 04 1a 29 c8 99 20 22 4f 53 5f 52 65 61 64 |p...).. "OS_Read|
00000880 4d 6f 6e 6f 74 6f 6e 69 63 54 69 6d 65 22 20 b8 |MonotonicTime" .|
00000890 20 6e 65 77 74 69 6d 65 31 25 0d 04 24 29 c8 99 | newtime1%..$)..|
000008a0 20 22 4f 53 5f 52 65 61 64 4d 6f 6e 6f 74 6f 6e | "OS_ReadMonoton|
000008b0 69 63 54 69 6d 65 22 20 b8 20 6e 65 77 74 69 6d |icTime" . newtim|
000008c0 65 32 25 0d 04 2e 29 c8 99 20 22 4f 53 5f 52 65 |e2%...).. "OS_Re|
000008d0 61 64 4d 6f 6e 6f 74 6f 6e 69 63 54 69 6d 65 22 |adMonotonicTime"|
000008e0 20 b8 20 6e 65 77 74 69 6d 65 33 25 0d 04 38 29 | . newtime3%..8)|
000008f0 74 69 6d 65 25 3d 31 36 2d 28 28 6e 65 77 74 69 |time%=16-((newti|
00000900 6d 65 33 25 2d 73 74 61 72 74 74 69 6d 65 25 29 |me3%-starttime%)|
00000910 2f 31 30 30 29 0d 04 42 72 e7 20 74 69 6d 65 25 |/100)..Br. time%|
00000920 3c 30 20 74 69 6d 65 25 3d 30 3a 70 6c 61 79 69 |<0 time%=0:playi|
00000930 6e 67 25 3d a3 3a f2 73 65 74 5f 67 61 6d 65 6f |ng%=.:.set_gameo|
00000940 76 65 72 3a 70 61 75 73 65 74 69 6d 65 25 3d 6e |ver:pausetime%=n|
00000950 65 77 74 69 6d 65 33 25 3a f2 73 65 74 5f 69 63 |ewtime3%:.set_ic|
00000960 6f 6e 5f 73 74 72 69 6e 67 28 77 68 61 63 6b 25 |on_string(whack%|
00000970 2c 31 39 2c 22 54 20 49 20 4d 20 45 20 20 20 20 |,19,"T I M E |
00000980 55 20 50 20 21 22 29 0d 04 4c 4a e7 20 74 69 6d |U P !")..LJ. tim|
00000990 65 25 3c 3e 6f 6c 64 74 69 6d 65 25 20 8c 20 f2 |e%<>oldtime% . .|
000009a0 73 65 74 5f 69 63 6f 6e 5f 73 74 72 69 6e 67 28 |set_icon_string(|
000009b0 77 68 61 63 6b 25 2c 31 31 2c c3 20 74 69 6d 65 |whack%,11,. time|
000009c0 25 29 3a 6f 6c 64 74 69 6d 65 25 3d 74 69 6d 65 |%):oldtime%=time|
000009d0 25 0d 04 56 25 e7 20 6e 65 77 74 69 6d 65 31 25 |%..V%. newtime1%|
000009e0 2d 6f 6c 64 74 69 6d 65 31 25 3e 6e 65 78 74 74 |-oldtime1%>nextt|
000009f0 69 6d 65 25 20 8c 0d 04 60 17 6f 6c 64 74 69 6d |ime% ...`.oldtim|
00000a00 65 31 25 3d 6e 65 77 74 69 6d 65 31 25 0d 04 6a |e1%=newtime1%..j|
00000a10 20 6e 65 78 74 74 69 6d 65 25 3d b3 28 36 30 29 | nexttime%=.(60)|
00000a20 2b 31 30 2b 28 74 69 6d 65 25 2a 33 29 0d 04 74 |+10+(time%*3)..t|
00000a30 1f e7 20 b3 28 36 29 3d 31 20 6e 65 78 74 74 69 |.. .(6)=1 nextti|
00000a40 6d 65 25 3d b3 28 38 30 29 2b 35 30 0d 04 7e 0e |me%=.(80)+50..~.|
00000a50 6d 6f 6c 65 25 3d b3 28 39 29 0d 04 88 74 e7 20 |mole%=.(9)...t. |
00000a60 6d 74 25 28 6d 6f 6c 65 25 29 3d 30 20 8c 20 6d |mt%(mole%)=0 . m|
00000a70 74 25 28 6d 6f 6c 65 25 29 3d 31 3a f2 73 65 74 |t%(mole%)=1:.set|
00000a80 5f 69 63 6f 6e 5f 73 74 72 69 6e 67 28 77 68 61 |_icon_string(wha|
00000a90 63 6b 25 2c 6d 6f 6c 65 25 2b 31 2c 22 6d 6f 6c |ck%,mole%+1,"mol|
00000aa0 65 31 22 29 3a 6d 63 25 28 6d 6f 6c 65 25 29 3d |e1"):mc%(mole%)=|
00000ab0 36 30 2b b3 28 31 30 30 29 3a 6d 62 25 28 6d 6f |60+.(100):mb%(mo|
00000ac0 6c 65 25 29 3d 6e 65 77 74 69 6d 65 32 25 0d 04 |le%)=newtime2%..|
00000ad0 92 05 cd 0d 04 9c 11 e3 20 6d 6f 6c 65 25 3d 31 |........ mole%=1|
00000ae0 20 b8 20 39 0d 04 a6 14 e7 20 6d 74 25 28 6d 6f | . 9..... mt%(mo|
00000af0 6c 65 25 29 3e 30 20 8c 0d 04 b0 27 e7 20 6e 65 |le%)>0 ....'. ne|
00000b00 77 74 69 6d 65 32 25 3e 6d 62 25 28 6d 6f 6c 65 |wtime2%>mb%(mole|
00000b10 25 29 2b 6d 63 25 28 6d 6f 6c 65 25 29 20 8c 0d |%)+mc%(mole%) ..|
00000b20 04 ba 23 e7 20 6d 74 25 28 6d 6f 6c 65 25 29 3d |..#. mt%(mole%)=|
00000b30 31 20 74 6f 74 61 6c 25 2d 3d 32 3a f2 74 6f 74 |1 total%-=2:.tot|
00000b40 61 6c 0d 04 c4 39 6d 74 25 28 6d 6f 6c 65 25 29 |al...9mt%(mole%)|
00000b50 3d 30 3a f2 73 65 74 5f 69 63 6f 6e 5f 73 74 72 |=0:.set_icon_str|
00000b60 69 6e 67 28 77 68 61 63 6b 25 2c 6d 6f 6c 65 25 |ing(whack%,mole%|
00000b70 2b 31 2c 22 6d 6f 6c 65 30 22 29 0d 04 ce 05 cd |+1,"mole0").....|
00000b80 0d 04 d8 05 cd 0d 04 e2 05 ed 0d 04 ec 05 e1 0d |................|
00000b90 04 f6 05 3a 0d 05 00 0f dd 20 f2 73 65 74 5f 67 |...:..... .set_g|
00000ba0 61 6d 65 0d 05 0a 21 f2 73 65 74 5f 69 63 6f 6e |ame...!.set_icon|
00000bb0 5f 62 69 74 28 77 68 61 63 6b 25 2c 31 39 2c b9 |_bit(whack%,19,.|
00000bc0 2c 32 33 29 0d 05 14 21 f2 73 65 74 5f 69 63 6f |,23)...!.set_ico|
00000bd0 6e 5f 62 69 74 28 77 68 61 63 6b 25 2c 32 30 2c |n_bit(whack%,20,|
00000be0 b9 2c 32 33 29 0d 05 1e 0e e3 20 61 3d 32 20 b8 |.,23)..... a=2 .|
00000bf0 20 31 30 0d 05 28 20 f2 73 65 74 5f 69 63 6f 6e | 10..( .set_icon|
00000c00 5f 62 69 74 28 77 68 61 63 6b 25 2c 61 2c a3 2c |_bit(whack%,a,.,|
00000c10 32 33 29 0d 05 32 26 f2 73 65 74 5f 69 63 6f 6e |23)..2&.set_icon|
00000c20 5f 73 74 72 69 6e 67 28 77 68 61 63 6b 25 2c 61 |_string(whack%,a|
00000c30 2c 22 6d 6f 6c 65 30 22 29 0d 05 3c 05 ed 0d 05 |,"mole0")..<....|
00000c40 46 1f f4 20 50 52 4f 43 75 70 64 61 74 65 5f 69 |F.. PROCupdate_i|
00000c50 63 6f 6e 28 77 68 61 63 6b 25 2c 30 29 0d 05 50 |con(whack%,0)..P|
00000c60 05 e1 0d 05 5a 05 3a 0d 05 64 13 dd 20 f2 73 65 |....Z.:..d.. .se|
00000c70 74 5f 67 61 6d 65 6f 76 65 72 0d 05 6e 0e e3 20 |t_gameover..n.. |
00000c80 61 3d 32 20 b8 20 31 30 0d 05 78 20 f2 73 65 74 |a=2 . 10..x .set|
00000c90 5f 69 63 6f 6e 5f 62 69 74 28 77 68 61 63 6b 25 |_icon_bit(whack%|
00000ca0 2c 61 2c b9 2c 32 33 29 0d 05 82 05 ed 0d 05 8c |,a,.,23)........|
00000cb0 21 f2 73 65 74 5f 69 63 6f 6e 5f 62 69 74 28 77 |!.set_icon_bit(w|
00000cc0 68 61 63 6b 25 2c 31 39 2c a3 2c 32 33 29 0d 05 |hack%,19,.,23)..|
00000cd0 96 21 f2 73 65 74 5f 69 63 6f 6e 5f 62 69 74 28 |.!.set_icon_bit(|
00000ce0 77 68 61 63 6b 25 2c 32 30 2c a3 2c 32 33 29 0d |whack%,20,.,23).|
00000cf0 05 a0 1f f4 20 50 52 4f 43 75 70 64 61 74 65 5f |.... PROCupdate_|
00000d00 69 63 6f 6e 28 77 68 61 63 6b 25 2c 30 29 0d 05 |icon(whack%,0)..|
00000d10 aa 05 e1 0d 05 b4 05 3a 0d 05 be 11 dd 20 f2 70 |.......:..... .p|
00000d20 72 6f 63 65 73 73 6b 65 79 0d 05 c8 1f 6b 65 79 |rocesskey....key|
00000d30 3d 62 25 21 32 34 3a 77 69 6e 25 3d 21 62 25 3a |=b%!24:win%=!b%:|
00000d40 69 63 25 3d 62 25 21 34 0d 05 d2 0d 70 72 6f 63 |ic%=b%!4....proc|
00000d50 65 73 73 3d b9 0d 05 dc 26 e7 20 70 72 6f 63 65 |ess=....&. proce|
00000d60 73 73 20 c8 99 20 22 57 69 6d 70 5f 50 72 6f 63 |ss .. "Wimp_Proc|
00000d70 65 73 73 4b 65 79 22 2c 6b 65 79 0d 05 e6 05 e1 |essKey",key.....|
00000d80 0d 05 f0 05 3a 0d 05 fa 0b dd 20 f2 69 6e 69 74 |....:..... .init|
00000d90 0d 06 04 39 de 20 62 25 20 32 30 30 30 2c 77 73 |...9. b% 2000,ws|
00000da0 25 20 32 30 30 30 2c 6d 65 6e 73 70 63 25 20 31 |% 2000,menspc% 1|
00000db0 30 30 30 2c 20 74 65 6d 70 25 20 33 32 2c 20 63 |000, temp% 32, c|
00000dc0 68 61 70 70 79 25 20 36 34 0d 06 0e 13 77 73 65 |happy% 64....wse|
00000dd0 6e 64 25 3d 77 73 25 2b 32 30 30 30 0d 06 18 0b |nd%=ws%+2000....|
00000de0 71 75 69 74 25 3d a3 0d 06 22 13 f2 6c 6f 61 64 |quit%=..."..load|
00000df0 5f 74 65 6d 70 6c 61 74 65 73 0d 06 2c 0e f2 6d |_templates..,..m|
00000e00 61 69 6e 5f 6d 65 6e 75 0d 06 36 1e f2 61 74 74 |ain_menu..6..att|
00000e10 61 63 68 28 6d 61 69 6e 6d 65 6e 75 25 2c 30 2c |ach(mainmenu%,0,|
00000e20 69 6e 66 6f 25 29 0d 06 40 26 f2 73 65 74 5f 69 |info%)..@&.set_i|
00000e30 63 6f 6e 5f 73 74 72 69 6e 67 28 69 6e 66 6f 25 |con_string(info%|
00000e40 2c 37 2c 76 65 72 73 69 6f 6e 24 29 0d 06 4a 05 |,7,version$)..J.|
00000e50 e1 0d 06 54 05 3a 0d 06 5e 15 dd 20 f2 6c 6f 61 |...T.:..^.. .loa|
00000e60 64 5f 74 65 6d 70 6c 61 74 65 73 0d 06 68 32 c8 |d_templates..h2.|
00000e70 99 20 22 57 69 6d 70 5f 4f 70 65 6e 54 65 6d 70 |. "Wimp_OpenTemp|
00000e80 6c 61 74 65 22 2c 2c 22 3c 4f 62 65 79 24 44 69 |late",,"<Obey$Di|
00000e90 72 3e 2e 54 65 6d 70 6c 61 74 65 73 22 0d 06 72 |r>.Templates"..r|
00000ea0 3e c8 99 20 22 57 69 6d 70 5f 4c 6f 61 64 54 65 |>.. "Wimp_LoadTe|
00000eb0 6d 70 6c 61 74 65 22 2c 2c 62 25 2c 77 73 25 2c |mplate",,b%,ws%,|
00000ec0 77 73 65 6e 64 25 2c 2d 31 2c 22 77 68 61 63 6b |wsend%,-1,"whack|
00000ed0 22 2c 30 20 b8 20 2c 2c 77 73 25 0d 06 7c 27 c8 |",0 . ,,ws%..|'.|
00000ee0 99 20 22 57 69 6d 70 5f 43 72 65 61 74 65 57 69 |. "Wimp_CreateWi|
00000ef0 6e 64 6f 77 22 2c 2c 62 25 20 b8 20 77 68 61 63 |ndow",,b% . whac|
00000f00 6b 25 0d 06 86 40 c8 99 20 22 57 69 6d 70 5f 4c |k%...@.. "Wimp_L|
00000f10 6f 61 64 54 65 6d 70 6c 61 74 65 22 2c 2c 62 25 |oadTemplate",,b%|
00000f20 2c 77 73 25 2c 77 73 65 6e 64 25 2c 2d 31 2c 22 |,ws%,wsend%,-1,"|
00000f30 6f 70 74 69 6f 6e 73 22 2c 30 20 b8 20 2c 2c 77 |options",0 . ,,w|
00000f40 73 25 0d 06 90 29 c8 99 20 22 57 69 6d 70 5f 43 |s%...).. "Wimp_C|
00000f50 72 65 61 74 65 57 69 6e 64 6f 77 22 2c 2c 62 25 |reateWindow",,b%|
00000f60 20 b8 20 6f 70 74 69 6f 6e 73 25 0d 06 9a 3e c8 | . options%...>.|
00000f70 99 20 22 57 69 6d 70 5f 4c 6f 61 64 54 65 6d 70 |. "Wimp_LoadTemp|
00000f80 6c 61 74 65 22 2c 2c 62 25 2c 77 73 25 2c 77 73 |late",,b%,ws%,ws|
00000f90 65 6e 64 25 2c 2d 31 2c 22 73 63 6f 72 65 22 2c |end%,-1,"score",|
00000fa0 30 20 b8 20 2c 2c 77 73 25 0d 06 a4 27 c8 99 20 |0 . ,,ws%...'.. |
00000fb0 22 57 69 6d 70 5f 43 72 65 61 74 65 57 69 6e 64 |"Wimp_CreateWind|
00000fc0 6f 77 22 2c 2c 62 25 20 b8 20 73 63 6f 72 65 25 |ow",,b% . score%|
00000fd0 0d 06 ae 3d c8 99 20 22 57 69 6d 70 5f 4c 6f 61 |...=.. "Wimp_Loa|
00000fe0 64 54 65 6d 70 6c 61 74 65 22 2c 2c 62 25 2c 77 |dTemplate",,b%,w|
00000ff0 73 25 2c 77 73 65 6e 64 25 2c 2d 31 2c 22 69 6e |s%,wsend%,-1,"in|
00001000 66 6f 22 2c 30 20 b8 20 2c 2c 77 73 25 0d 06 b8 |fo",0 . ,,ws%...|
00001010 26 c8 99 20 22 57 69 6d 70 5f 43 72 65 61 74 65 |&.. "Wimp_Create|
00001020 57 69 6e 64 6f 77 22 2c 2c 62 25 20 b8 20 69 6e |Window",,b% . in|
00001030 66 6f 25 0d 06 c2 1b c8 99 20 22 57 69 6d 70 5f |fo%...... "Wimp_|
00001040 43 6c 6f 73 65 54 65 6d 70 6c 61 74 65 22 0d 06 |CloseTemplate"..|
00001050 cc 05 e1 0d 06 d6 05 3a 0d 06 e0 10 dd 20 f2 6d |.......:..... .m|
00001060 61 69 6e 5f 6d 65 6e 75 0d 06 ea 08 f7 20 2b 31 |ain_menu..... +1|
00001070 0d 06 f4 1e dc 20 57 68 61 63 6b 2d 41 2d 4d 6f |..... Whack-A-Mo|
00001080 6c 65 2c 49 6e 66 6f 2c 51 75 69 74 2c 2a 0d 06 |le,Info,Quit,*..|
00001090 fe 18 6d 61 69 6e 6d 65 6e 75 25 3d a4 6d 61 6b |..mainmenu%=.mak|
000010a0 65 5f 6d 65 6e 75 0d 07 08 05 e1 0d 07 12 05 3a |e_menu.........:|
000010b0 0d 07 1c 10 dd 20 f2 6d 65 6e 75 63 6c 69 63 6b |..... .menuclick|
000010c0 0d 07 26 08 ea 20 63 25 0d 07 30 0d 63 25 3d 62 |..&.. c%..0.c%=b|
000010d0 25 2b 39 30 30 0d 07 3a 20 c8 99 20 22 57 69 6d |%+900..: .. "Wim|
000010e0 70 5f 47 65 74 50 6f 69 6e 74 65 72 49 6e 66 6f |p_GetPointerInfo|
000010f0 22 2c 2c 63 25 0d 07 44 13 61 64 6a 25 3d 28 63 |",,c%..D.adj%=(c|
00001100 25 21 38 20 80 20 31 29 0d 07 4e 28 c8 99 20 22 |%!8 . 1)..N(.. "|
00001110 57 69 6d 70 5f 44 65 63 6f 64 65 4d 65 6e 75 22 |Wimp_DecodeMenu"|
00001120 2c 2c 74 6f 70 6d 65 6e 75 25 2c 62 25 2c 63 25 |,,topmenu%,b%,c%|
00001130 0d 07 58 0c c8 8e 20 24 63 25 20 ca 0d 07 62 15 |..X... $c% ...b.|
00001140 20 c9 20 22 51 75 69 74 22 3a 71 75 69 74 25 3d | . "Quit":quit%=|
00001150 b9 0d 07 6c 05 cb 0d 07 76 2a e7 20 61 64 6a 25 |...l....v*. adj%|
00001160 20 f2 73 68 6f 77 6d 65 6e 75 28 74 6f 70 6d 65 | .showmenu(topme|
00001170 6e 75 25 2c 74 6f 70 78 25 2c 74 6f 70 79 25 29 |nu%,topx%,topy%)|
00001180 0d 07 80 05 e1 0d 07 8a 05 3a 0d 07 94 13 dd 20 |.........:..... |
00001190 f2 6d 65 6e 75 5f 77 61 72 6e 69 6e 67 0d 07 9e |.menu_warning...|
000011a0 15 73 75 62 6d 65 6e 75 5f 70 74 72 3d 62 25 21 |.submenu_ptr=b%!|
000011b0 32 30 0d 07 a8 0f 77 69 6e 5f 78 3d 62 25 21 32 |20....win_x=b%!2|
000011c0 34 0d 07 b2 0f 77 69 6e 5f 79 3d 62 25 21 32 38 |4....win_y=b%!28|
000011d0 0d 07 bc 2e c8 99 20 22 57 69 6d 70 5f 43 72 65 |...... "Wimp_Cre|
000011e0 61 74 65 53 75 62 4d 65 6e 75 22 2c 2c 62 25 21 |ateSubMenu",,b%!|
000011f0 32 30 2c 62 25 21 32 34 2c 62 25 21 32 38 0d 07 |20,b%!24,b%!28..|
00001200 c6 05 e1 0d 07 d0 05 3a 0d 07 da 1b dd 20 f2 73 |.......:..... .s|
00001210 61 76 65 5f 64 61 74 61 28 66 69 6c 65 6e 61 6d |ave_data(filenam|
00001220 65 24 29 0d 07 e4 29 f2 73 65 74 5f 69 63 6f 6e |e$)...).set_icon|
00001230 5f 73 74 72 69 6e 67 28 73 61 76 65 61 73 25 2c |_string(saveas%,|
00001240 32 2c 66 69 6c 65 6e 61 6d 65 24 29 0d 07 ee 1c |2,filename$)....|
00001250 f4 20 2a 2a 2a 20 53 41 56 45 20 44 41 54 41 20 |. *** SAVE DATA |
00001260 48 45 52 45 20 2a 2a 2a 0d 07 f8 12 f2 73 61 76 |HERE ***.....sav|
00001270 65 64 5f 6d 65 73 73 61 67 65 0d 08 02 05 e1 0d |ed_message......|
00001280 08 0c 05 3a 0d 08 16 30 dd 20 f2 6c 6f 61 64 5f |...:...0. .load_|
00001290 64 61 74 61 28 77 69 6e 64 6f 77 2c 69 63 6f 6e |data(window,icon|
000012a0 2c 66 69 6c 65 6e 61 6d 65 24 2c 66 69 6c 65 74 |,filename$,filet|
000012b0 79 70 65 29 0d 08 20 22 f4 20 2a 2a 2a 20 43 48 |ype).. ". *** CH|
000012c0 45 43 4b 2f 4c 4f 41 44 20 44 41 54 41 20 48 45 |ECK/LOAD DATA HE|
000012d0 52 45 20 2a 2a 2a 0d 08 2a 29 f2 73 65 74 5f 69 |RE ***..*).set_i|
000012e0 63 6f 6e 5f 73 74 72 69 6e 67 28 73 61 76 65 61 |con_string(savea|
000012f0 73 25 2c 32 2c 66 69 6c 65 6e 61 6d 65 24 29 0d |s%,2,filename$).|
00001300 08 34 05 e1 0d 08 3e 05 3a 0d 08 48 0d dd 20 f2 |.4....>.:..H.. .|
00001310 68 65 6c 70 6d 65 0d 08 52 11 77 69 6e 64 6f 77 |helpme..R.window|
00001320 25 3d 62 25 21 33 32 0d 08 5c 0f 69 63 6f 6e 25 |%=b%!32..\.icon%|
00001330 3d 62 25 21 33 36 0d 08 66 31 68 65 6c 70 24 3d |=b%!36..f1help$=|
00001340 22 54 68 69 73 20 69 73 20 74 68 65 20 22 2b 41 |"This is the "+A|
00001350 70 70 4e 61 6d 65 24 2b 22 20 61 70 70 6c 69 63 |ppName$+" applic|
00001360 61 74 69 6f 6e 2e 22 0d 08 70 04 0d 08 7a 10 c8 |ation."..p...z..|
00001370 8e 20 77 69 6e 64 6f 77 25 20 ca 0d 08 84 09 20 |. window% ..... |
00001380 c9 20 2d 32 0d 08 8e 2c 20 20 68 65 6c 70 24 3d |. -2..., help$=|
00001390 22 54 68 69 73 20 69 73 20 74 68 65 20 22 2b 41 |"This is the "+A|
000013a0 70 70 4e 61 6d 65 24 2b 22 20 69 63 6f 6e 2e 22 |ppName$+" icon."|
000013b0 0d 08 98 04 0d 08 a2 0c 20 c9 20 69 6e 66 6f 25 |........ . info%|
000013c0 0d 08 ac 0e 20 20 68 65 6c 70 24 3d 22 22 0d 08 |.... help$=""..|
000013d0 b6 10 20 20 c8 8e 20 69 63 6f 6e 25 20 ca 0d 08 |.. .. icon% ...|
000013e0 c0 35 20 20 20 c9 20 30 2c 31 3a 68 65 6c 70 24 |.5 . 0,1:help$|
000013f0 3d 22 54 68 69 73 20 69 73 20 74 68 65 20 6e 61 |="This is the na|
00001400 6d 65 20 6f 66 20 74 68 65 20 70 72 6f 67 72 61 |me of the progra|
00001410 6d 2e 22 0d 08 ca 38 20 20 20 c9 20 32 2c 33 3a |m."...8 . 2,3:|
00001420 68 65 6c 70 24 3d 22 54 68 69 73 20 69 73 20 74 |help$="This is t|
00001430 68 65 20 70 75 72 70 6f 73 65 20 6f 66 20 74 68 |he purpose of th|
00001440 65 20 70 72 6f 67 72 61 6d 2e 22 0d 08 d4 37 20 |e program."...7 |
00001450 20 20 c9 20 34 2c 35 3a 68 65 6c 70 24 3d 22 54 | . 4,5:help$="T|
00001460 68 69 73 20 69 73 20 74 68 65 20 61 75 74 68 6f |his is the autho|
00001470 72 20 6f 66 20 74 68 65 20 70 72 6f 67 72 61 6d |r of the program|
00001480 2e 22 0d 08 de 3f 20 20 20 c9 20 36 2c 37 3a 68 |."...? . 6,7:h|
00001490 65 6c 70 24 3d 22 54 68 69 73 20 69 73 20 74 68 |elp$="This is th|
000014a0 65 20 76 65 72 73 69 6f 6e 20 6e 75 6d 62 65 72 |e version number|
000014b0 20 6f 66 20 74 68 65 20 70 72 6f 67 72 61 6d 2e | of the program.|
000014c0 22 0d 08 e8 07 20 20 cb 0d 08 f2 04 0d 08 fc 05 |".... .........|
000014d0 cb 0d 09 06 05 3a 0d 09 10 0f 62 25 21 30 30 20 |.....:....b%!00 |
000014e0 3d 20 32 35 36 0d 09 1a 10 62 25 21 31 32 20 3d |= 256....b%!12 =|
000014f0 20 62 25 21 38 0d 09 24 11 62 25 21 31 36 20 3d | b%!8..$.b%!16 =|
00001500 20 26 30 35 30 33 0d 09 2e 13 24 28 62 25 2b 32 | &0503....$(b%+2|
00001510 30 29 3d 20 68 65 6c 70 24 0d 09 38 24 c8 99 20 |0)= help$..8$.. |
00001520 22 57 69 6d 70 5f 53 65 6e 64 4d 65 73 73 61 67 |"Wimp_SendMessag|
00001530 65 22 2c 31 37 2c 62 25 2c 62 25 21 34 0d 09 42 |e",17,b%,b%!4..B|
00001540 05 e1 0d 09 4c 04 0d 09 56 05 3a 0d 09 60 3b f4 |....L...V.:..`;.|
00001550 20 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d | ===============|
00001560 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d |================|
*
00001580 3d 3d 3d 3d 3d 3d 0d 09 6a 26 f4 20 20 20 53 54 |======..j&. ST|
00001590 41 4e 44 41 52 44 20 57 49 4d 50 20 4c 49 42 52 |ANDARD WIMP LIBR|
000015a0 41 52 59 20 52 4f 55 54 49 4e 45 53 0d 09 74 3b |ARY ROUTINES..t;|
000015b0 f4 20 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d |. ==============|
000015c0 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d |================|
*
000015e0 3d 3d 3d 3d 3d 3d 3d 0d 09 7e 05 3a 0d 09 88 0c |=======..~.:....|
000015f0 dd 20 f2 63 6c 6f 73 65 0d 09 92 14 f4 20 4d 4f |. .close..... MO|
00001600 55 53 45 20 53 54 45 50 20 32 2c 32 0d 09 9c 27 |USE STEP 2,2...'|
00001610 c8 99 20 22 57 69 6d 70 5f 43 6c 6f 73 65 44 6f |.. "Wimp_CloseDo|
00001620 77 6e 22 2c 74 61 73 6b 25 2c 26 34 42 35 33 34 |wn",task%,&4B534|
00001630 31 35 34 0d 09 a6 05 e1 0d 09 b0 05 3a 0d 09 ba |154.........:...|
00001640 0b dd 20 f2 70 6f 6c 6c 0d 09 c4 1b c8 99 20 22 |.. .poll...... "|
00001650 57 69 6d 70 5f 50 6f 6c 6c 22 2c 2c 62 25 20 b8 |Wimp_Poll",,b% .|
00001660 20 72 25 0d 09 ce 0b c8 8e 20 72 25 20 ca 0d 09 | r%...... r% ...|
00001670 d8 1d c9 20 30 3a e7 20 70 6c 61 79 69 6e 67 25 |... 0:. playing%|
00001680 20 f2 70 6c 61 79 5f 6c 6f 6f 70 0d 09 e2 20 c9 | .play_loop... .|
00001690 20 32 3a c8 99 20 22 57 69 6d 70 5f 4f 70 65 6e | 2:.. "Wimp_Open|
000016a0 57 69 6e 64 6f 77 22 2c 2c 62 25 0d 09 ec 21 c9 |Window",,b%...!.|
000016b0 20 33 3a c8 99 20 22 57 69 6d 70 5f 43 6c 6f 73 | 3:.. "Wimp_Clos|
000016c0 65 57 69 6e 64 6f 77 22 2c 2c 62 25 0d 09 f6 13 |eWindow",,b%....|
000016d0 c9 20 36 3a f2 6d 6f 75 73 65 63 6c 69 63 6b 0d |. 6:.mouseclick.|
000016e0 0a 00 10 c9 20 37 3a f2 64 72 61 67 65 6e 64 0d |.... 7:.dragend.|
000016f0 0a 0a 13 c9 20 38 3a f2 70 72 6f 63 65 73 73 6b |.... 8:.processk|
00001700 65 79 0d 0a 14 12 c9 20 39 3a f2 6d 65 6e 75 63 |ey..... 9:.menuc|
00001710 6c 69 63 6b 0d 0a 1e 14 c9 20 31 37 2c 31 38 3a |lick..... 17,18:|
00001720 f2 72 65 63 65 69 76 65 0d 0a 28 05 cb 0d 0a 32 |.receive..(....2|
00001730 05 e1 0d 0a 3c 05 3a 0d 0a 46 0e dd 20 f2 72 65 |....<.:..F.. .re|
00001740 63 65 69 76 65 0d 0a 50 0e c8 8e 20 62 25 21 31 |ceive..P... b%!1|
00001750 36 20 ca 0d 0a 5a 0f c9 20 30 3a 71 75 69 74 25 |6 ...Z.. 0:quit%|
00001760 3d b9 0d 0a 64 11 c9 20 31 3a f2 64 61 74 61 73 |=...d.. 1:.datas|
00001770 61 76 65 0d 0a 6e 0d c9 20 32 3a f2 73 61 76 65 |ave..n.. 2:.save|
00001780 0d 0a 78 0d c9 20 33 3a f2 6c 6f 61 64 0d 0a 82 |..x.. 3:.load...|
00001790 12 c9 20 26 35 30 32 3a f2 68 65 6c 70 6d 65 0d |.. &502:.helpme.|
000017a0 0a 8c 1a c9 20 26 34 30 30 43 30 3a f2 6d 65 6e |.... &400C0:.men|
000017b0 75 5f 77 61 72 6e 69 6e 67 0d 0a 96 05 cb 0d 0a |u_warning.......|
000017c0 a0 05 e1 0d 0a aa 05 3a 0d 0a b4 0f dd 20 f2 64 |.......:..... .d|
000017d0 61 74 61 73 61 76 65 0d 0a be 10 f2 74 65 72 6d |atasave.....term|
000017e0 28 62 25 2b 34 34 29 0d 0a c8 12 6e 61 6d 65 24 |(b%+44)....name$|
000017f0 3d 24 28 62 25 2b 34 34 29 0d 0a d2 1e 24 28 62 |=$(b%+44)....$(b|
00001800 25 2b 34 34 29 3d 22 3c 57 69 6d 70 24 53 63 72 |%+44)="<Wimp$Scr|
00001810 61 70 3e 22 2b bd 30 0d 0a dc 27 62 25 21 33 36 |ap>"+.0...'b%!36|
00001820 3d 2d 31 20 3a 20 f4 20 73 61 76 65 64 20 66 69 |=-1 : . saved fi|
00001830 6c 65 20 69 73 20 22 75 6e 73 61 66 65 22 0d 0a |le is "unsafe"..|
00001840 e6 0c 62 25 21 30 3d 32 35 36 0d 0a f0 0e 62 25 |..b%!0=256....b%|
00001850 21 31 32 3d 62 25 21 38 0d 0a fa 0b 62 25 21 31 |!12=b%!8....b%!1|
00001860 36 3d 32 0d 0b 04 24 c8 99 20 22 57 69 6d 70 5f |6=2...$.. "Wimp_|
00001870 53 65 6e 64 4d 65 73 73 61 67 65 22 2c 31 37 2c |SendMessage",17,|
00001880 62 25 2c 62 25 21 34 0d 0b 0e 05 e1 0d 0b 18 05 |b%,b%!4.........|
00001890 3a 0d 0b 22 21 dd 20 f2 75 70 64 61 74 65 5f 69 |:.."!. .update_i|
000018a0 63 6f 6e 28 77 69 6e 64 6f 77 25 2c 69 63 6f 6e |con(window%,icon|
000018b0 25 29 0d 0b 2c 10 62 25 21 30 3d 77 69 6e 64 6f |%)..,.b%!0=windo|
000018c0 77 25 0d 0b 36 11 20 20 20 62 25 21 34 3d 69 63 |w%..6. b%!4=ic|
000018d0 6f 6e 25 0d 0b 40 0d 20 20 20 62 25 21 38 3d 30 |on%..@. b%!8=0|
000018e0 0d 0b 4a 0e 20 20 20 62 25 21 31 32 3d 30 0d 0b |..J. b%!12=0..|
000018f0 54 21 20 20 20 c8 99 20 22 57 69 6d 70 5f 53 65 |T! .. "Wimp_Se|
00001900 74 49 63 6f 6e 53 74 61 74 65 22 2c 2c 62 25 0d |tIconState",,b%.|
00001910 0b 5e 05 e1 0d 0b 68 05 3a 0d 0b 72 2c dd 20 f2 |.^....h.:..r,. .|
00001920 67 65 74 5f 6f 72 69 67 69 6e 28 68 61 6e 64 6c |get_origin(handl|
00001930 65 25 2c f8 20 78 6f 72 69 67 25 2c f8 20 79 6f |e%,. xorig%,. yo|
00001940 72 69 67 25 29 0d 0b 7c 08 ea 20 63 25 0d 0b 86 |rig%)..|.. c%...|
00001950 0d 63 25 3d 62 25 2b 38 30 30 0d 0b 90 0f 21 63 |.c%=b%+800....!c|
00001960 25 3d 68 61 6e 64 6c 65 25 0d 0b 9a 20 c8 99 20 |%=handle%... .. |
00001970 22 57 69 6d 70 5f 47 65 74 57 69 6e 64 6f 77 53 |"Wimp_GetWindowS|
00001980 74 61 74 65 22 2c 2c 63 25 0d 0b a4 15 78 6f 72 |tate",,c%....xor|
00001990 69 67 25 3d 63 25 21 34 2d 63 25 21 32 30 0d 0b |ig%=c%!4-c%!20..|
000019a0 ae 16 79 6f 72 69 67 25 3d 63 25 21 31 36 2d 63 |..yorig%=c%!16-c|
000019b0 25 21 32 34 0d 0b b8 05 e1 0d 0b c2 04 0d 0b cc |%!24............|
000019c0 28 dd 20 f2 73 65 74 5f 69 63 6f 6e 5f 62 69 74 |(. .set_icon_bit|
000019d0 28 21 62 25 2c 62 25 21 34 2c 74 66 25 2c 73 74 |(!b%,b%!4,tf%,st|
000019e0 62 69 74 25 29 0d 0b d6 0c 73 74 61 74 65 25 3d |bit%)....state%=|
000019f0 30 0d 0b e0 12 e7 20 74 66 25 20 73 74 61 74 65 |0..... tf% state|
00001a00 25 3d 31 0d 0b ea 17 62 25 21 38 3d 73 74 61 74 |%=1....b%!8=stat|
00001a10 65 25 3c 3c 73 74 62 69 74 25 0d 0b f4 13 62 25 |e%<<stbit%....b%|
00001a20 21 31 32 3d 31 3c 3c 73 74 62 69 74 25 0d 0b fe |!12=1<<stbit%...|
00001a30 1e c8 99 20 22 57 69 6d 70 5f 53 65 74 49 63 6f |... "Wimp_SetIco|
00001a40 6e 53 74 61 74 65 22 2c 2c 62 25 0d 0c 08 05 e1 |nState",,b%.....|
00001a50 0d 0c 12 05 3a 0d 0c 1c 1f dd 20 f2 61 74 74 61 |....:..... .atta|
00001a60 63 68 28 6d 65 6e 75 25 2c 69 74 65 6d 25 2c 73 |ch(menu%,item%,s|
00001a70 75 62 25 29 0d 0c 26 1f 21 28 6d 65 6e 75 25 2b |ub%)..&.!(menu%+|
00001a80 32 38 2b 69 74 65 6d 25 2a 32 34 2b 34 29 3d 73 |28+item%*24+4)=s|
00001a90 75 62 25 0d 0c 30 05 e1 0d 0c 3a 05 3a 0d 0c 44 |ub%..0....:.:..D|
00001aa0 10 dd 20 a4 6d 61 6b 65 5f 6d 65 6e 75 0d 0c 4e |.. .make_menu..N|
00001ab0 12 73 74 61 72 74 25 3d 6d 65 6e 73 70 63 25 0d |.start%=menspc%.|
00001ac0 0c 58 0c f3 20 74 69 74 6c 65 24 0d 0c 62 14 24 |.X.. title$..b.$|
00001ad0 28 73 74 61 72 74 25 29 3d 74 69 74 6c 65 24 0d |(start%)=title$.|
00001ae0 0c 6c 0f 73 74 61 72 74 25 3f 31 32 3d 37 0d 0c |.l.start%?12=7..|
00001af0 76 0f 73 74 61 72 74 25 3f 31 33 3d 32 0d 0c 80 |v.start%?13=2...|
00001b00 0f 73 74 61 72 74 25 3f 31 34 3d 37 0d 0c 8a 0f |.start%?14=7....|
00001b10 73 74 61 72 74 25 3f 31 35 3d 30 0d 0c 94 10 73 |start%?15=0....s|
00001b20 74 61 72 74 25 21 32 30 3d 34 34 0d 0c 9e 0f 73 |tart%!20=44....s|
00001b30 74 61 72 74 25 21 32 34 3d 30 0d 0c a8 13 f4 20 |tart%!24=0..... |
00001b40 73 74 61 72 74 25 21 31 36 3d 31 36 30 0d 0c b2 |start%!16=160...|
00001b50 16 77 69 64 74 68 25 3d a9 28 74 69 74 6c 65 24 |.width%=.(title$|
00001b60 29 2d 33 0d 0c bc 0f 6d 65 6e 73 70 63 25 2b 3d |)-3....menspc%+=|
00001b70 32 38 0d 0c c6 05 f5 0d 0c d0 0b f3 20 69 74 65 |28.......... ite|
00001b80 6d 24 0d 0c da 12 e7 20 69 74 65 6d 24 3c 3e 22 |m$..... item$<>"|
00001b90 2a 22 20 8c 0d 0c e4 0e 21 6d 65 6e 73 70 63 25 |*" .....!menspc%|
00001ba0 3d 30 0d 0c ee 10 77 72 69 74 65 61 62 6c 65 25 |=0....writeable%|
00001bb0 3d a3 0d 0c f8 13 75 6c 25 3d a7 69 74 65 6d 24 |=.....ul%=.item$|
00001bc0 2c 22 5f 22 29 0d 0d 02 0b e7 20 75 6c 25 20 8c |,"_")..... ul% .|
00001bd0 0d 0d 0c 1e 74 61 69 6c 24 3d c2 69 74 65 6d 24 |....tail$=.item$|
00001be0 2c a9 28 69 74 65 6d 24 29 2d 75 6c 25 29 0d 0d |,.(item$)-ul%)..|
00001bf0 16 2e e7 20 a7 74 61 69 6c 24 2c 22 54 22 29 20 |... .tail$,"T") |
00001c00 21 6d 65 6e 73 70 63 25 3d 21 6d 65 6e 73 70 63 |!menspc%=!menspc|
00001c10 25 20 84 20 31 3a f4 20 74 69 63 6b 0d 0d 20 35 |% . 1:. tick.. 5|
00001c20 e7 20 a7 74 61 69 6c 24 2c 22 44 22 29 20 21 6d |. .tail$,"D") !m|
00001c30 65 6e 73 70 63 25 3d 21 6d 65 6e 73 70 63 25 20 |enspc%=!menspc% |
00001c40 84 20 32 3a f4 20 64 6f 74 74 65 64 20 6c 69 6e |. 2:. dotted lin|
00001c50 65 0d 0d 2a 58 e7 20 a7 74 61 69 6c 24 2c 22 57 |e..*X. .tail$,"W|
00001c60 22 29 20 21 6d 65 6e 73 70 63 25 3d 21 6d 65 6e |") !menspc%=!men|
00001c70 73 70 63 25 20 84 20 34 3a 77 72 69 74 65 61 62 |spc% . 4:writeab|
00001c80 6c 65 25 3d b9 3a f3 20 62 75 66 66 65 72 25 3a |le%=.:. buffer%:|
00001c90 f3 20 62 75 66 6c 65 6e 25 3a f4 20 77 72 69 74 |. buflen%:. writ|
00001ca0 61 62 6c 65 20 69 63 6f 6e 0d 0d 34 3a e7 20 a7 |able icon..4:. .|
00001cb0 74 61 69 6c 24 2c 22 4d 22 29 20 21 6d 65 6e 73 |tail$,"M") !mens|
00001cc0 70 63 25 3d 21 6d 65 6e 73 70 63 25 20 84 20 38 |pc%=!menspc% . 8|
00001cd0 3a f4 20 67 65 6e 65 72 61 74 65 20 6d 65 73 73 |:. generate mess|
00001ce0 61 67 65 0d 0d 3e 17 69 74 65 6d 24 3d c0 69 74 |age..>.item$=.it|
00001cf0 65 6d 24 2c 75 6c 25 2d 31 29 0d 0d 48 05 cd 0d |em$,ul%-1)..H...|
00001d00 0d 52 23 e7 20 a9 20 69 74 65 6d 24 3e 77 69 64 |.R#. . item$>wid|
00001d10 74 68 25 20 77 69 64 74 68 25 3d a9 20 69 74 65 |th% width%=. ite|
00001d20 6d 24 0d 0d 5c 10 6d 65 6e 73 70 63 25 21 34 3d |m$..\.menspc%!4=|
00001d30 2d 31 0d 0d 66 12 e7 20 77 72 69 74 65 61 62 6c |-1..f.. writeabl|
00001d40 65 25 20 8c 0d 0d 70 5a 6d 65 6e 73 70 63 25 21 |e% ...pZmenspc%!|
00001d50 38 3d 26 30 37 30 30 46 31 32 31 3a 6d 65 6e 73 |8=&0700F121:mens|
00001d60 70 63 25 21 31 32 3d 62 75 66 66 65 72 25 3a 6d |pc%!12=buffer%:m|
00001d70 65 6e 73 70 63 25 21 31 36 3d 2d 31 3a 6d 65 6e |enspc%!16=-1:men|
00001d80 73 70 63 25 21 32 30 3d 62 75 66 6c 65 6e 25 3a |spc%!20=buflen%:|
00001d90 24 62 75 66 66 65 72 25 3d 69 74 65 6d 24 0d 0d |$buffer%=item$..|
00001da0 7a 05 cc 0d 0d 84 12 e7 20 a9 20 69 74 65 6d 24 |z....... . item$|
00001db0 3c 31 32 20 8c 0d 0d 8e 2b 6d 65 6e 73 70 63 25 |<12 ....+menspc%|
00001dc0 21 38 3d 26 30 37 30 30 30 30 32 31 3a 24 28 6d |!8=&07000021:$(m|
00001dd0 65 6e 73 70 63 25 2b 31 32 29 3d 69 74 65 6d 24 |enspc%+12)=item$|
00001de0 0d 0d 98 05 cc 0d 0d a2 49 6d 65 6e 73 70 63 25 |........Imenspc%|
00001df0 21 38 3d 26 30 37 30 30 30 31 32 31 3a 6d 65 6e |!8=&07000121:men|
00001e00 73 70 63 25 21 31 32 3d 77 73 25 3a 6d 65 6e 73 |spc%!12=ws%:mens|
00001e10 70 63 25 21 31 36 3d 2d 31 3a 6d 65 6e 73 70 63 |pc%!16=-1:menspc|
00001e20 25 21 32 30 3d a9 20 69 74 65 6d 24 2b 31 0d 0d |%!20=. item$+1..|
00001e30 ac 1d 24 77 73 25 3d 69 74 65 6d 24 3a 77 73 25 |..$ws%=item$:ws%|
00001e40 2b 3d a9 20 69 74 65 6d 24 2b 31 0d 0d b6 05 cd |+=. item$+1.....|
00001e50 0d 0d c0 05 cd 0d 0d ca 0f 6d 65 6e 73 70 63 25 |.........menspc%|
00001e60 2b 3d 32 34 0d 0d d4 05 cd 0d 0d de 0f fd 20 69 |+=24.......... i|
00001e70 74 65 6d 24 3d 22 2a 22 0d 0d e8 1a 73 74 61 72 |tem$="*"....star|
00001e80 74 25 21 31 36 3d 77 69 64 74 68 25 2a 31 36 2b |t%!16=width%*16+|
00001e90 33 32 0d 0d f2 25 21 28 6d 65 6e 73 70 63 25 2d |32...%!(menspc%-|
00001ea0 32 34 29 3d 21 28 6d 65 6e 73 70 63 25 2d 32 34 |24)=!(menspc%-24|
00001eb0 29 20 84 20 26 38 30 0d 0d fc 11 6d 70 74 72 25 |) . &80....mptr%|
00001ec0 3d 6d 65 6e 73 70 63 25 0d 0e 06 0b 3d 73 74 61 |=menspc%....=sta|
00001ed0 72 74 25 0d 0e 10 05 3a 0d 0e 1a 1c dd 20 f2 73 |rt%....:..... .s|
00001ee0 68 6f 77 6d 65 6e 75 28 6d 65 6e 75 25 2c 78 25 |howmenu(menu%,x%|
00001ef0 2c 79 25 29 0d 0e 24 24 74 6f 70 6d 65 6e 75 25 |,y%)..$$topmenu%|
00001f00 3d 6d 65 6e 75 25 3a 74 6f 70 78 25 3d 78 25 3a |=menu%:topx%=x%:|
00001f10 74 6f 70 79 25 3d 79 25 0d 0e 2e 25 c8 99 20 22 |topy%=y%...%.. "|
00001f20 57 69 6d 70 5f 43 72 65 61 74 65 4d 65 6e 75 22 |Wimp_CreateMenu"|
00001f30 2c 2c 6d 65 6e 75 25 2c 78 25 2c 79 25 0d 0e 38 |,,menu%,x%,y%..8|
00001f40 05 e1 0d 0e 42 05 3a 0d 0e 4c 1a dd 20 f2 75 6e |....B.:..L.. .un|
00001f50 67 72 65 79 28 6d 65 6e 75 25 2c 69 74 65 6d 25 |grey(menu%,item%|
00001f60 29 0d 0e 56 3f 6d 65 6e 75 25 21 28 32 38 2b 69 |)..V?menu%!(28+i|
00001f70 74 65 6d 25 2a 32 34 2b 38 29 3d 28 6d 65 6e 75 |tem%*24+8)=(menu|
00001f80 25 21 28 32 38 2b 69 74 65 6d 25 2a 32 34 2b 38 |%!(28+item%*24+8|
00001f90 29 29 20 80 20 28 ac 20 28 31 3c 3c 32 32 29 29 |)) . (. (1<<22))|
00001fa0 0d 0e 60 05 e1 0d 0e 6a 05 3a 0d 0e 74 18 dd 20 |..`....j.:..t.. |
00001fb0 f2 67 72 65 79 28 6d 65 6e 75 25 2c 69 74 65 6d |.grey(menu%,item|
00001fc0 25 29 0d 0e 7e 3b 6d 65 6e 75 25 21 28 32 38 2b |%)..~;menu%!(28+|
00001fd0 69 74 65 6d 25 2a 32 34 2b 38 29 3d 28 6d 65 6e |item%*24+8)=(men|
00001fe0 75 25 21 28 32 38 2b 69 74 65 6d 25 2a 32 34 2b |u%!(28+item%*24+|
00001ff0 38 29 29 20 84 20 28 31 3c 3c 32 32 29 0d 0e 88 |8)) . (1<<22)...|
00002000 05 e1 0d 0e 92 05 3a 0d 0e 9c 20 dd 20 a4 69 63 |......:... . .ic|
00002010 6f 6e 5f 73 74 61 74 65 28 77 69 6e 64 6f 77 25 |on_state(window%|
00002020 2c 69 63 6f 6e 25 29 0d 0e a6 08 ea 20 63 25 0d |,icon%)..... c%.|
00002030 0e b0 0d 63 25 3d 62 25 2b 39 30 30 0d 0e ba 0f |...c%=b%+900....|
00002040 21 63 25 3d 77 69 6e 64 6f 77 25 0d 0e c4 0e 63 |!c%=window%....c|
00002050 25 21 34 3d 69 63 6f 6e 25 0d 0e ce 1e c8 99 20 |%!4=icon%...... |
00002060 22 57 69 6d 70 5f 47 65 74 49 63 6f 6e 53 74 61 |"Wimp_GetIconSta|
00002070 74 65 22 2c 2c 63 25 0d 0e d8 1b 3d 28 28 63 25 |te",,c%....=((c%|
00002080 21 32 34 29 20 80 20 28 31 3c 3c 32 31 29 29 3c |!24) . (1<<21))<|
00002090 3e 30 0d 0e e2 05 3a 0d 0e ec 21 dd 20 a4 73 74 |>0....:...!. .st|
000020a0 72 69 6e 67 5f 61 64 64 72 28 77 69 6e 64 6f 77 |ring_addr(window|
000020b0 25 2c 69 63 6f 6e 25 29 0d 0e f6 14 21 63 68 61 |%,icon%)....!cha|
000020c0 70 70 79 25 3d 77 69 6e 64 6f 77 25 0d 0f 00 13 |ppy%=window%....|
000020d0 63 68 61 70 70 79 25 21 34 3d 69 63 6f 6e 25 0d |chappy%!4=icon%.|
000020e0 0f 0a 23 c8 99 20 22 57 69 6d 70 5f 47 65 74 49 |..#.. "Wimp_GetI|
000020f0 63 6f 6e 53 74 61 74 65 22 2c 2c 63 68 61 70 70 |conState",,chapp|
00002100 79 25 0d 0f 14 0f 3d 63 68 61 70 70 79 25 21 32 |y%....=chappy%!2|
00002110 38 0d 0f 1e 05 3a 0d 0f 28 21 dd 20 a4 69 63 6f |8....:..(!. .ico|
00002120 6e 5f 73 74 72 69 6e 67 28 77 69 6e 64 6f 77 25 |n_string(window%|
00002130 2c 69 63 6f 6e 25 29 0d 0f 32 26 f2 74 65 72 6d |,icon%)..2&.term|
00002140 28 a4 73 74 72 69 6e 67 5f 61 64 64 72 28 77 69 |(.string_addr(wi|
00002150 6e 64 6f 77 25 2c 69 63 6f 6e 25 29 29 0d 0f 3c |ndow%,icon%))..<|
00002160 21 3d 24 a4 73 74 72 69 6e 67 5f 61 64 64 72 28 |!=$.string_addr(|
00002170 77 69 6e 64 6f 77 25 2c 69 63 6f 6e 25 29 0d 0f |window%,icon%)..|
00002180 46 05 e1 0d 0f 50 05 3a 0d 0f 5a 28 dd 20 f2 73 |F....P.:..Z(. .s|
00002190 65 74 5f 69 63 6f 6e 5f 73 74 72 69 6e 67 28 77 |et_icon_string(w|
000021a0 69 6e 64 6f 77 25 2c 69 63 6f 6e 25 2c 61 24 29 |indow%,icon%,a$)|
000021b0 0d 0f 64 23 24 a4 73 74 72 69 6e 67 5f 61 64 64 |..d#$.string_add|
000021c0 72 28 77 69 6e 64 6f 77 25 2c 69 63 6f 6e 25 29 |r(window%,icon%)|
000021d0 3d 61 24 0d 0f 6e 1f f2 75 70 64 61 74 65 5f 69 |=a$..n..update_i|
000021e0 63 6f 6e 28 77 69 6e 64 6f 77 25 2c 69 63 6f 6e |con(window%,icon|
000021f0 25 29 0d 0f 78 05 e1 0d 0f 82 05 3a 0d 0f 8c 29 |%)..x......:...)|
00002200 dd 20 f2 73 65 74 5f 69 63 6f 6e 5f 73 74 72 69 |. .set_icon_stri|
00002210 6e 67 32 28 77 69 6e 64 6f 77 25 2c 69 63 6f 6e |ng2(window%,icon|
00002220 25 2c 61 24 29 0d 0f 96 23 24 a4 73 74 72 69 6e |%,a$)...#$.strin|
00002230 67 5f 61 64 64 72 28 77 69 6e 64 6f 77 25 2c 69 |g_addr(window%,i|
00002240 63 6f 6e 25 29 3d 61 24 0d 0f a0 05 e1 0d 0f aa |con%)=a$........|
00002250 05 3a 0d 0f b4 0f dd 20 f2 74 65 72 6d 28 61 25 |.:..... .term(a%|
00002260 29 0d 0f be 08 ea 20 6e 25 0d 0f c8 0f c8 95 20 |)..... n%...... |
00002270 61 25 3f 6e 25 3e 33 31 0d 0f d2 09 6e 25 2b 3d |a%?n%>31....n%+=|
00002280 31 0d 0f dc 05 ce 0d 0f e6 0c 61 25 3f 6e 25 3d |1.........a%?n%=|
00002290 31 33 0d 0f f0 05 e1 0d 0f fa 05 3a 0d 10 04 18 |13.........:....|
000022a0 dd 20 f2 6f 70 65 6e 5f 77 69 6e 64 6f 77 28 77 |. .open_window(w|
000022b0 69 6e 25 29 0d 10 0e 0c 21 62 25 3d 77 69 6e 25 |in%)....!b%=win%|
000022c0 0d 10 18 20 c8 99 20 22 57 69 6d 70 5f 47 65 74 |... .. "Wimp_Get|
000022d0 57 69 6e 64 6f 77 53 74 61 74 65 22 2c 2c 62 25 |WindowState",,b%|
000022e0 0d 10 22 0c 62 25 21 32 38 3d 2d 31 0d 10 2c 1c |..".b%!28=-1..,.|
000022f0 c8 99 20 22 57 69 6d 70 5f 4f 70 65 6e 57 69 6e |.. "Wimp_OpenWin|
00002300 64 6f 77 22 2c 2c 62 25 0d 10 36 05 e1 0d 10 40 |dow",,b%..6....@|
00002310 05 3a 0d 10 4a 18 dd 20 f2 6f 70 65 6e 5f 63 65 |.:..J.. .open_ce|
00002320 6e 74 72 65 28 77 69 6e 25 29 0d 10 54 14 f2 67 |ntre(win%)..T..g|
00002330 65 74 5f 73 63 72 65 65 6e 5f 73 69 7a 65 0d 10 |et_screen_size..|
00002340 5e 0c 21 62 25 3d 77 69 6e 25 0d 10 68 20 c8 99 |^.!b%=win%..h ..|
00002350 20 22 57 69 6d 70 5f 47 65 74 57 69 6e 64 6f 77 | "Wimp_GetWindow|
00002360 53 74 61 74 65 22 2c 2c 62 25 0d 10 72 19 77 69 |State",,b%..r.wi|
00002370 64 74 68 25 3d 28 62 25 21 31 32 29 2d 28 62 25 |dth%=(b%!12)-(b%|
00002380 21 34 29 0d 10 7c 1a 68 65 69 67 68 74 25 3d 28 |!4)..|.height%=(|
00002390 62 25 21 31 36 29 2d 28 62 25 21 38 29 0d 10 86 |b%!16)-(b%!8)...|
000023a0 18 62 25 21 34 3d 28 58 32 2d 77 69 64 74 68 25 |.b%!4=(X2-width%|
000023b0 29 20 81 20 32 0d 10 90 19 62 25 21 38 3d 28 59 |) . 2....b%!8=(Y|
000023c0 32 2d 68 65 69 67 68 74 25 29 20 81 20 32 0d 10 |2-height%) . 2..|
000023d0 9a 17 62 25 21 31 32 3d 28 62 25 21 34 29 2b 77 |..b%!12=(b%!4)+w|
000023e0 69 64 74 68 25 0d 10 a4 18 62 25 21 31 36 3d 28 |idth%....b%!16=(|
000023f0 62 25 21 38 29 2b 68 65 69 67 68 74 25 0d 10 ae |b%!8)+height%...|
00002400 0c 62 25 21 32 38 3d 2d 31 0d 10 b8 1c c8 99 20 |.b%!28=-1...... |
00002410 22 57 69 6d 70 5f 4f 70 65 6e 57 69 6e 64 6f 77 |"Wimp_OpenWindow|
00002420 22 2c 2c 62 25 0d 10 c2 05 e1 0d 10 cc 05 3a 0d |",,b%.........:.|
00002430 10 d6 19 dd 20 f2 63 6c 6f 73 65 5f 77 69 6e 64 |.... .close_wind|
00002440 6f 77 28 77 69 6e 25 29 0d 10 e0 0c 21 62 25 3d |ow(win%)....!b%=|
00002450 77 69 6e 25 0d 10 ea 3a c8 99 20 22 57 69 6d 70 |win%...:.. "Wimp|
00002460 5f 47 65 74 57 69 6e 64 6f 77 53 74 61 74 65 22 |_GetWindowState"|
00002470 2c 2c 62 25 3a c8 99 20 22 57 69 6d 70 5f 43 6c |,,b%:.. "Wimp_Cl|
00002480 6f 73 65 57 69 6e 64 6f 77 22 2c 2c 62 25 0d 10 |oseWindow",,b%..|
00002490 f4 05 e1 0d 10 fe 05 3a 0d 11 08 0c dd 20 a4 65 |.......:..... .e|
000024a0 72 72 6f 72 0d 11 12 09 21 62 25 3d 9f 0d 11 1c |rror....!b%=....|
000024b0 0c c8 8e 20 21 62 25 20 ca 0d 11 26 22 c9 20 31 |... !b% ...&". 1|
000024c0 3c 3c 33 30 3a 65 72 72 5f 73 74 72 24 3d 22 22 |<<30:err_str$=""|
000024d0 3a 62 6f 78 25 3d 25 31 30 30 31 0d 11 30 29 7f |:box%=%1001..0).|
000024e0 3a 65 72 72 5f 73 74 72 24 3d 22 20 61 74 20 6c |:err_str$=" at l|
000024f0 69 6e 65 20 22 2b c3 20 9e 3a 62 6f 78 25 3d 25 |ine "+. .:box%=%|
00002500 31 30 30 31 0d 11 3a 05 cb 0d 11 44 1a 24 28 62 |1001..:....D.$(b|
00002510 25 2b 34 29 3d f6 24 2b 65 72 72 5f 73 74 72 24 |%+4)=.$+err_str$|
00002520 2b bd 30 0d 11 4e 37 c8 99 20 22 57 69 6d 70 5f |+.0..N7.. "Wimp_|
00002530 52 65 70 6f 72 74 45 72 72 6f 72 22 2c 62 25 2c |ReportError",b%,|
00002540 62 6f 78 25 2c 41 70 70 4e 61 6d 65 24 20 b8 20 |box%,AppName$ . |
00002550 2c 72 65 73 70 6f 6e 73 65 25 0d 11 58 12 3d 28 |,response%..X.=(|
00002560 72 65 73 70 6f 6e 73 65 25 3d 32 29 0d 11 62 05 |response%=2)..b.|
00002570 3a 0d 11 6c 16 dd 20 f2 67 65 74 5f 73 63 72 65 |:..l.. .get_scre|
00002580 65 6e 5f 73 69 7a 65 0d 11 76 2b c8 99 22 4f 53 |en_size..v+.."OS|
00002590 5f 52 65 61 64 4d 6f 64 65 56 61 72 69 61 62 6c |_ReadModeVariabl|
000025a0 65 22 2c 2d 31 2c 34 20 b8 20 2c 2c 58 66 61 63 |e",-1,4 . ,,Xfac|
000025b0 74 25 0d 11 80 2b c8 99 22 4f 53 5f 52 65 61 64 |t%...+.."OS_Read|
000025c0 4d 6f 64 65 56 61 72 69 61 62 6c 65 22 2c 2d 31 |ModeVariable",-1|
000025d0 2c 35 20 b8 20 2c 2c 59 66 61 63 74 25 0d 11 8a |,5 . ,,Yfact%...|
000025e0 2b c8 99 22 4f 53 5f 52 65 61 64 4d 6f 64 65 56 |+.."OS_ReadModeV|
000025f0 61 72 69 61 62 6c 65 22 2c 2d 31 2c 31 31 20 b8 |ariable",-1,11 .|
00002600 20 2c 2c 58 4c 69 6d 25 0d 11 94 2b c8 99 22 4f | ,,XLim%...+.."O|
00002610 53 5f 52 65 61 64 4d 6f 64 65 56 61 72 69 61 62 |S_ReadModeVariab|
00002620 6c 65 22 2c 2d 31 2c 31 32 20 b8 20 2c 2c 59 4c |le",-1,12 . ,,YL|
00002630 69 6d 25 0d 11 9e 14 58 32 3d 58 4c 69 6d 25 3c |im%....X2=XLim%<|
00002640 3c 58 66 61 63 74 25 0d 11 a8 14 59 32 3d 59 4c |<Xfact%....Y2=YL|
00002650 69 6d 25 3c 3c 59 66 61 63 74 25 0d 11 b2 05 e1 |im%<<Yfact%.....|
00002660 0d 11 bc 05 3a 0d 11 c6 13 dd 20 a4 63 61 70 69 |....:..... .capi|
00002670 74 61 6c 73 28 74 24 29 0d 11 d0 2d f4 20 2a 2a |tals(t$)...-. **|
00002680 2a 20 43 6f 6e 76 65 72 74 73 20 61 6c 6c 20 74 |* Converts all t|
00002690 65 78 74 20 74 6f 20 6c 6f 77 65 72 20 63 61 73 |ext to lower cas|
000026a0 65 20 2a 2a 2a 0d 11 da 0a ea 20 49 2c 6c 24 0d |e ***..... I,l$.|
000026b0 11 e4 0a 6e 74 24 3d 22 22 0d 11 ee 10 e3 20 49 |...nt$=""..... I|
000026c0 3d 31 20 b8 20 a9 20 74 24 0d 11 f8 0f 6c 24 3d |=1 . . t$....l$=|
000026d0 c1 74 24 2c 49 2c 31 29 0d 12 02 32 e7 20 97 28 |.t$,I,1)...2. .(|
000026e0 6c 24 29 3e 3d 97 28 22 41 22 29 20 80 20 97 28 |l$)>=.("A") . .(|
000026f0 6c 24 29 3c 3d 97 28 22 5a 22 29 20 6c 24 3d bd |l$)<=.("Z") l$=.|
00002700 28 97 28 6c 24 29 2b 33 32 29 0d 12 0c 0b 6e 74 |(.(l$)+32)....nt|
00002710 24 2b 3d 6c 24 0d 12 16 05 ed 0d 12 20 08 3d 6e |$+=l$....... .=n|
00002720 74 24 0d 12 2a 05 3a 0d 12 34 14 dd 20 a4 65 76 |t$..*.:..4.. .ev|
00002730 61 6c 75 61 74 65 28 65 76 24 29 0d 12 3e 34 c8 |aluate(ev$)..>4.|
00002740 99 20 22 58 4f 53 5f 45 76 61 6c 75 61 74 65 45 |. "XOS_EvaluateE|
00002750 78 70 72 65 73 73 69 6f 6e 22 2c 65 76 24 2c 62 |xpression",ev$,b|
00002760 25 2c 32 35 36 20 b8 20 2c 62 25 2c 6c 65 6e 0d |%,256 . ,b%,len.|
00002770 12 48 0d f2 74 65 72 6d 28 62 25 29 0d 12 52 0e |.H..term(b%)..R.|
00002780 3d c0 24 62 25 2c 6c 65 6e 29 0d 12 5c 05 3a 0d |=.$b%,len)..\.:.|
00002790 12 66 25 dd 20 f2 64 72 61 67 5f 61 5f 73 70 72 |.f%. .drag_a_spr|
000027a0 28 77 69 6e 64 6f 77 25 2c 69 63 6f 6e 25 2c 73 |(window%,icon%,s|
000027b0 70 72 24 29 0d 12 70 08 ea 20 63 25 0d 12 7a 0d |pr$)..p.. c%..z.|
000027c0 63 25 3d 62 25 2b 39 30 30 0d 12 84 26 f2 67 65 |c%=b%+900...&.ge|
000027d0 74 5f 6f 72 69 67 69 6e 28 77 69 6e 64 6f 77 25 |t_origin(window%|
000027e0 2c 78 6f 72 69 67 25 2c 79 6f 72 69 67 25 29 0d |,xorig%,yorig%).|
000027f0 12 8e 1a 21 63 25 3d 77 69 6e 64 6f 77 25 3a 63 |...!c%=window%:c|
00002800 25 21 34 3d 69 63 6f 6e 25 0d 12 98 1e c8 99 20 |%!4=icon%...... |
00002810 22 57 69 6d 70 5f 47 65 74 49 63 6f 6e 53 74 61 |"Wimp_GetIconSta|
00002820 74 65 22 2c 2c 63 25 0d 12 a2 28 78 6d 69 6e 25 |te",,c%...(xmin%|
00002830 3d 78 6f 72 69 67 25 2b 63 25 21 38 3a 79 6d 69 |=xorig%+c%!8:ymi|
00002840 6e 25 3d 79 6f 72 69 67 25 2b 63 25 21 31 32 0d |n%=yorig%+c%!12.|
00002850 12 ac 29 78 6d 61 78 25 3d 78 6f 72 69 67 25 2b |..)xmax%=xorig%+|
00002860 63 25 21 31 36 3a 79 6d 61 78 25 3d 79 6f 72 69 |c%!16:ymax%=yori|
00002870 67 25 2b 63 25 21 32 30 0d 12 b6 18 21 63 25 3d |g%+c%!20....!c%=|
00002880 78 6d 69 6e 25 3a 63 25 21 34 3d 79 6d 69 6e 25 |xmin%:c%!4=ymin%|
00002890 0d 12 c0 1a 63 25 21 38 3d 78 6d 61 78 25 3a 63 |....c%!8=xmax%:c|
000028a0 25 21 31 32 3d 79 6d 61 78 25 0d 12 ca 2e c8 99 |%!12=ymax%......|
000028b0 20 22 44 72 61 67 41 53 70 72 69 74 65 5f 53 74 | "DragASprite_St|
000028c0 61 72 74 22 2c 25 31 30 30 30 30 31 30 31 2c 31 |art",%10000101,1|
000028d0 2c 73 70 72 24 2c 63 25 0d 12 d4 05 e1 0d 12 de |,spr$,c%........|
000028e0 05 3a 0d 12 e8 0e dd 20 f2 64 72 61 67 65 6e 64 |.:..... .dragend|
000028f0 0d 12 f2 1e 61 24 3d a4 69 63 6f 6e 5f 73 74 72 |....a$=.icon_str|
00002900 69 6e 67 28 73 61 76 65 61 73 25 2c 32 29 0d 12 |ing(saveas%,2)..|
00002910 fc 20 c8 99 20 22 57 69 6d 70 5f 47 65 74 50 6f |. .. "Wimp_GetPo|
00002920 69 6e 74 65 72 49 6e 66 6f 22 2c 2c 62 25 0d 13 |interInfo",,b%..|
00002930 06 0f 62 25 21 32 30 3d 62 25 21 31 32 0d 13 10 |..b%!20=b%!12...|
00002940 0f 62 25 21 32 34 3d 62 25 21 31 36 0d 13 1a 0e |.b%!24=b%!16....|
00002950 62 25 21 32 38 3d 62 25 21 30 0d 13 24 0e 62 25 |b%!28=b%!0..$.b%|
00002960 21 33 32 3d 62 25 21 34 0d 13 2e 1e 62 25 21 33 |!32=b%!4....b%!3|
00002970 36 3d 28 66 69 6c 65 70 6f 73 25 2d 72 65 61 64 |6=(filepos%-read|
00002980 73 69 7a 65 25 29 0d 13 38 14 62 25 21 34 30 3d |size%)..8.b%!40=|
00002990 73 61 76 65 5f 74 79 70 65 25 0d 13 42 12 c8 95 |save_type%..B...|
000029a0 20 a7 61 24 2c 22 2e 22 29 3c 3e 30 0d 13 4c 0f | .a$,".")<>0..L.|
000029b0 6e 25 3d a7 61 24 2c 22 2e 22 29 0d 13 56 10 61 |n%=.a$,".")..V.a|
000029c0 24 3d c1 61 24 2c 6e 25 2b 31 29 0d 13 60 05 ce |$=.a$,n%+1)..`..|
000029d0 0d 13 6a 0f 24 28 62 25 2b 34 34 29 3d 61 24 0d |..j.$(b%+44)=a$.|
000029e0 13 74 1b 21 62 25 3d 34 34 2b 28 28 a9 20 61 24 |.t.!b%=44+((. a$|
000029f0 2b 31 29 20 81 20 34 29 2a 34 0d 13 7e 1e e7 20 |+1) . 4)*4..~.. |
00002a00 28 28 a9 20 61 24 2b 31 29 20 83 20 34 29 3c 3e |((. a$+1) . 4)<>|
00002a10 30 20 21 62 25 2b 3d 34 0d 13 88 0b 62 25 21 31 |0 !b%+=4....b%!1|
00002a20 32 3d 30 0d 13 92 0b 62 25 21 31 36 3d 31 0d 13 |2=0....b%!16=1..|
00002a30 9c 2b c8 99 20 22 57 69 6d 70 5f 53 65 6e 64 4d |.+.. "Wimp_SendM|
00002a40 65 73 73 61 67 65 22 2c 31 38 2c 62 25 2c 62 25 |essage",18,b%,b%|
00002a50 21 32 30 2c 62 25 21 32 34 0d 13 a6 05 e1 0d 13 |!20,b%!24.......|
00002a60 b0 05 3a 0d 13 ba 0b dd 20 f2 73 61 76 65 0d 13 |..:..... .save..|
00002a70 c4 10 f2 74 65 72 6d 28 62 25 2b 34 34 29 0d 13 |...term(b%+44)..|
00002a80 ce 12 66 69 6c 65 24 3d 24 28 62 25 2b 34 34 29 |..file$=$(b%+44)|
00002a90 0d 13 d8 15 f2 73 61 76 65 5f 64 61 74 61 28 66 |.....save_data(f|
00002aa0 69 6c 65 24 29 0d 13 e2 1c c8 99 20 22 57 69 6d |ile$)...... "Wim|
00002ab0 70 5f 43 72 65 61 74 65 4d 65 6e 75 22 2c 2c 2d |p_CreateMenu",,-|
00002ac0 31 0d 13 ec 05 e1 0d 13 f6 05 3a 0d 14 00 14 dd |1.........:.....|
00002ad0 20 f2 73 61 76 65 64 5f 6d 65 73 73 61 67 65 0d | .saved_message.|
00002ae0 14 0a 0e 62 25 21 31 32 3d 62 25 21 38 0d 14 14 |...b%!12=b%!8...|
00002af0 0b 62 25 21 31 36 3d 33 0d 14 1e 0b 21 62 25 3d |.b%!16=3....!b%=|
00002b00 32 35 36 0d 14 28 2b c8 99 20 22 57 69 6d 70 5f |256..(+.. "Wimp_|
00002b10 53 65 6e 64 4d 65 73 73 61 67 65 22 2c 31 38 2c |SendMessage",18,|
00002b20 62 25 2c 62 25 21 32 30 2c 62 25 21 32 34 0d 14 |b%,b%!20,b%!24..|
00002b30 32 05 e1 0d 14 3c 05 3a 0d 14 46 11 dd 20 f2 63 |2....<.:..F.. .c|
00002b40 68 65 63 6b 5f 73 61 76 65 0d 14 50 25 e7 20 a7 |heck_save..P%. .|
00002b50 66 69 6c 65 24 2c 22 3a 22 29 3d 30 20 84 20 a7 |file$,":")=0 . .|
00002b60 66 69 6c 65 24 2c 22 2e 22 29 3d 30 20 8c 0d 14 |file$,".")=0 ...|
00002b70 5a 0b 20 21 62 25 3d 25 31 0d 14 64 40 20 24 28 |Z. !b%=%1..d@ $(|
00002b80 62 25 2b 34 29 3d 22 54 6f 20 73 61 76 65 2c 20 |b%+4)="To save, |
00002b90 64 72 61 67 20 74 68 65 20 69 63 6f 6e 20 74 6f |drag the icon to|
00002ba0 20 61 20 64 69 72 65 63 74 6f 72 79 20 64 69 73 | a directory dis|
00002bb0 70 6c 61 79 2e 22 2b bd 30 0d 14 6e 10 20 62 6f |play."+.0..n. bo|
00002bc0 78 25 3d 25 31 31 30 30 31 0d 14 78 46 20 c8 99 |x%=%11001..xF ..|
00002bd0 20 22 57 69 6d 70 5f 52 65 70 6f 72 74 45 72 72 | "Wimp_ReportErr|
00002be0 6f 72 22 2c 62 25 2c 62 6f 78 25 2c 22 45 72 72 |or",b%,box%,"Err|
00002bf0 6f 72 20 66 72 6f 6d 20 22 2b 41 70 70 4e 61 6d |or from "+AppNam|
00002c00 65 24 20 b8 20 2c 72 65 73 70 6f 6e 73 65 25 0d |e$ . ,response%.|
00002c10 14 82 0d 20 73 61 76 65 64 25 3d a3 0d 14 8c 05 |... saved%=.....|
00002c20 cc 0d 14 96 0d 20 73 61 76 65 64 25 3d b9 0d 14 |..... saved%=...|
00002c30 a0 05 cd 0d 14 aa 05 e1 0d 14 b4 05 3a 0d 14 be |............:...|
00002c40 0b dd 20 f2 6c 6f 61 64 0d 14 c8 12 66 69 6c 65 |.. .load....file|
00002c50 74 79 70 65 3d 62 25 21 34 30 0d 14 d2 10 77 69 |type=b%!40....wi|
00002c60 6e 64 6f 77 3d 62 25 21 32 30 0d 14 dc 0e 69 63 |ndow=b%!20....ic|
00002c70 6f 6e 3d 62 25 21 32 34 0d 14 e6 10 f2 74 65 72 |on=b%!24.....ter|
00002c80 6d 28 62 25 2b 34 34 29 0d 14 f0 16 66 69 6c 65 |m(b%+44)....file|
00002c90 6e 61 6d 65 24 3d 24 28 62 25 2b 34 34 29 0d 14 |name$=$(b%+44)..|
00002ca0 fa 2e f2 6c 6f 61 64 5f 64 61 74 61 28 77 69 6e |...load_data(win|
00002cb0 64 6f 77 2c 69 63 6f 6e 2c 66 69 6c 65 6e 61 6d |dow,icon,filenam|
00002cc0 65 24 2c 66 69 6c 65 74 79 70 65 29 0d 15 04 05 |e$,filetype)....|
00002cd0 e1 0d 15 0e 05 3a 0d 15 18 3b f4 20 3d 3d 3d 3d |.....:...;. ====|
00002ce0 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d |================|
*
00002d10 3d 0d 15 22 36 f4 20 20 20 49 4e 53 45 52 54 20 |=.."6. INSERT |
00002d20 57 49 4d 50 48 45 41 50 2f 4d 45 53 53 41 47 45 |WIMPHEAP/MESSAGE|
00002d30 54 52 41 4e 53 20 52 4f 55 54 49 4e 45 53 20 42 |TRANS ROUTINES B|
00002d40 45 4c 4f 57 2e 2e 2e 0d 15 2c 3b f4 20 3d 3d 3d |ELOW.....,;. ===|
00002d50 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d |================|
*
00002d80 3d 3d 0d ff |==..|
00002d84 
.