Home » Archimedes archive » Acorn User » AU 1995-10.adf » !Regulars » Regulars/StarInfo/Salt/!Mindtrap/Mindtrap
Regulars/StarInfo/Salt/!Mindtrap/Mindtrap
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
| Tape/disk: | Home » Archimedes archive » Acorn User » AU 1995-10.adf » !Regulars |
| Filename: | Regulars/StarInfo/Salt/!Mindtrap/Mindtrap |
| Read OK: | ✔ |
| File size: | 2931 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10REM > !RunImage (!Mindtrap)
20ON ERROR PROCerror
30PROCinit
40REPEAT
50 SYS "Wimp_Poll",1,q% TO r%
60 IF rst%:q%!900=quitw%:SYS "Wimp_GetWindowState",,q%+900:rst%=q%?934 AND 1
70 CASE r% OF
80 WHEN 2:SYS "Wimp_OpenWindow",,q%
90 WHEN 3:SYS "Wimp_CloseWindow",,q%
100 IF !q%=mindtrap% THEN
110 close%=0:IF changed%:SYS "OS_ReadMonotonicTime" TO close%:close%-=mtime%
120 ENDIF
130 WHEN 6:PROCmouse(!q%,q%!4,q%!8,q%!12,q%!16)
140 WHEN 8:PROCkey
150 WHEN 9:PROCmenu
160 WHEN 17,18:PROCmessage
170 ENDCASE
180 IF exit%=TRUE AND moved% THEN
190 exit%=FALSE:SYS "Wimp_CreateMenu",,quitw%,316,580
200 ENDIF
210UNTIL exit%
220IF rst%:SYS "Wimp_ProcessKey",508
230SYS "XWimp_CloseDown"
240END
250
260DEF PROCinit
270A%=310:*%RMEnsure UtilityModule 3.10 MemoryA 8604 10_200 { > Null: }
280A%=200:B%=0:IF A%=310:B%=&860C:C%=8:D%=&400C0:E%=0
290SYS "Wimp_Initialise",A%,&4B534154,"Mindtrap Game",B% TO ver%,task%
300SYS "OS_ReadModeVariable",-1,5 TO ,,A%:IF A%<2:a$="22":ELSE a$=""
310SYS "OS_File",5,"<Obey$Dir>.Sprites"+a$ TO ,,,,x%
320DIM q% 2000,spr% x%+4,menu% 124,map$(31):!spr%=x%+4
330SYS "OS_SpriteOp",256+9,spr%
340SYS "OS_SpriteOp",256+10,spr%,"<Obey$Dir>.Sprites"+a$
350LOCAL ERROR
360ON ERROR LOCAL SYS "XWimp_CloseTemplate":SYS "XWimp_CloseDown":ERROR EXT ERR,REPORT$+" at line "+STR$ ERL
370A%=TRUE:*RMEnsure UtilityModule 3.12 MemoryA 8604 0 { > Null: }
380IF A% ELSE A%=TRUE:*RMEnsure ROMApps3D 0 MemoryA 8604 0 { > Null: }
390IF A%:a$="3d":ELSE a$="s"
400SYS "Wimp_OpenTemplate",,"<Obey$Dir>.Template"+a$
410PROCloadt("Info"):SYS "Wimp_CreateWindow",,q% TO info%:PROCloadt("Mindtrap")
420q%!64=spr%:dice%=q%!108:movstr%=q%!1388:lyrstr%=q%!1452:lcode%=q%!1580
430FOR n%=q%+112 TO q%+848 STEP 32:!n%=spr%:NEXT
440SYS "Wimp_CreateWindow",,q% TO mindtrap%:PROCloadt("Quit")
450SYS "Wimp_CreateWindow",,q% TO quitw%:PROCloadt("StartGame"):`title%=q%!72
460name%=q%!172:code%=q%!204:q%!200=q%!200 OR 1<<22
470SYS "Wimp_CreateWindow",,q% TO startgame%:wd%=q%!8-!q%:ht%=q%!12-q%!4
480PROCloadt("Stats"):tmovstr%=q%!172:ttmestr%=q%!204
490SYS "Wimp_CreateWindow",,q% TO stats%:SYS "Wimp_CloseTemplate":RESTORE ERROR
500menux%=100:menuy%=272:$menu%="Mindtrap":menu%!12=&70207:menu%!16=136
510menu%!20=44:menu%!24=0:menu%!28=0:menu%!32=info%:menu%!36=&7000021
520$(menu%+40)="Info":menu%!52=8:menu%!56=1:menu%!60=&7000021
530$(menu%+64)="New game":menu%!76=8:menu%!80=1:menu%!84=&7000021
540$(menu%+88)="Old game":menu%!100=128:menu%!104=-1:menu%!108=&7000021
550$(menu%+112)="Quit":!q%=-1:q%!4=0:q%!8=0:q%!12=84:q%!16=68:q%!20=&301A
560$(q%+24)="!mindtrap":SYS "Wimp_CreateIcon",,q% TO baricon%
570exit%=FALSE:rst%=FALSE:RESTORE +0:FOR n%=0 TO 31:READ map$(n%):NEXT:PROCmcode
580moved%=FALSE:changed%=FALSE:name$="":sgame%=1:lcode$=STRING$(20," ")
590ENDPROC
600
610DATA 001001111100100,001100111001100,001000111000100,011100111001110
620DATA 111000010000111,011111110101011,110001100011111,111010011100111
630DATA 110001111100011,010101111101010,100011111100100,110001111111000
640DATA 111110110100011,011001111001100,001111110100111,101011111110101
650DATA 010000111100011,011101111111000,110101111000111,011101101111011
660DATA 110110111011011,111110010011111,111110101011111,110110101001110
670DATA 110111101111111,110011111111001,110001111101111,001111110001110
680DATA 001111111000111,011101101101101,111111010111111,111110111011111
690
700DEF PROCloadt(a$)
710LOCAL A%,B%:SYS "Wimp_LoadTemplate",,-1,,,-1,a$ TO ,,B%,,,,A%
720IF A% ELSE ERROR 1,"Template '"+a$+"' not found"
730DIM A% B%:SYS "Wimp_LoadTemplate",,q%,A%,A%+B%,-1,a$
740ENDPROC
750
760DEF PROCmessage
770CASE q%!16 OF
780WHEN 0:exit%=TRUE
790WHEN 8:exit%=TRUE:rst%=q%!20=0
800 IF moved% THEN
810 !q%=20:q%!12=q%!8:q%!16=0:SYS "Wimp_SendMessage",19,q%
820 SYS "Wimp_CreateMenu",,quitw%,316,580
830 ENDIF
840WHEN &400C0:PROCsgame(q%!32):SYS "Wimp_CreateSubMenu",,startgame%,q%!24,q%!28
850ENDCASE
860ENDPROC
870
880DEF PROCopensgame(A%,X%,Y%)
890PROCsgame(A%):SYS "Wimp_CreateMenu",,startgame%,X%,Y%
900ENDPROC
910
920DEF PROCsgame(A%)
930sgame%=A%:!q%=startgame%:q%!4=3:q%!8=1<<22 AND sgame%=1
940q%!12=1<<22:SYS "Wimp_SetIconState",,q%:$name%=name$:$code%=""
950IF sgame%=1:$`title%="New game":ELSE $`title%="Old game"
960ENDPROC
970
980DEF PROCmenu
990mx%=ADVAL 7-64:my%=ADVAL 8+64
1000CASE !q% OF
1010WHEN 0:SYS "Wimp_CreateMenu",,info%,mx%,my%
1020WHEN 1:IF name$>"":PROCnewgame:ELSE PROCopensgame(1,mx%,my%)
1030WHEN 2:PROCopensgame(2,mx%,my%)
1040WHEN 3:exit%=TRUE
1050ENDCASE
1060ENDPROC
1070
1080DEF PROCkey
1090IF !q%<>startgame%:SYS "Wimp_ProcessKey",q%!24:ENDPROC
1100A%=q%!24
1110IF A%>96 AND A%<123 AND q%!4=3 THEN
1120 A%-=32:SYS "Wimp_ProcessKey",127:SYS "Wimp_ProcessKey",A%
1130ENDIF
1140IF A%=13 AND q%!4=1+sgame% THEN
1150 ON sgame% PROCnewgame,PROColdgame ELSE:A%=-1
1160ELSE
1170 IF sgame%=2 AND (A%=13 OR A%=398 OR A%=399 OR A%=394 OR A%=410) THEN
1180 A%=-1:IF q%!4=3:SYS "Wimp_SetCaretPosition",!q%,2,,,-1,LEN $name%
1190 IF q%!4=2:SYS "Wimp_SetCaretPosition",!q%,3,,,-1,LEN $code%
1200 ENDIF
1210ENDIF
1220IF A%>-1:SYS "Wimp_ProcessKey",A%
1230ENDPROC
1240
1250DEF PROCmouse(x%,y%,b%,window%,icon%)
1260z%=b% AND 1
1270IF b% AND 2 THEN
1280 CASE window% OF
1290 WHEN -2:mx%=x%-menux%:my%=menuy%:PROCmkmenu(menu%,mx%,my%)
1300 WHEN mindtrap%:$tmovstr%=STR$ totmvs%:A%=0:B%=0
1310 IF changed%:SYS "OS_ReadMonotonicTime" TO A%:A%-=mtime%
1320 A%+=tottme%:$ttmestr%=RIGHT$("0"+STR$(A% DIV 36E4),2)+":"+RIGHT$("0"+STR$((A% MOD 36E4) DIV 6E3),2)+":"+RIGHT$("0"+STR$((A% MOD 6E3) DIV 100),2)+"."+RIGHT$("0"+STR$(A% DIV 100),2)
1330 SYS "Wimp_CreateMenu",,stats%,x%-32,y%+32
1340 ENDCASE
1350ELSE
1360 CASE window% OF
1370 WHEN -2
1380 IF name$="" THEN
1390 PROCopensgame(1+z%,x%-wd%/2,96+ht%)
1400 ELSE !q%=mindtrap%:SYS "Wimp_GetWindowState",,q%:SYS "Wimp_OpenWindow",,q%
1410 SYS "OS_ReadMonotonicTime" TO mtime%:mtime%-=close%
1420 ENDIF
1430 WHEN mindtrap%:PROCmove(icon%-24,z%)
1440 WHEN quitw%:IF icon%:rst%=FALSE:ELSE exit%=1
1450 SYS "Wimp_CreateMenu",,-1
1460 WHEN startgame%:ON sgame% PROCnewgame,PROColdgame ELSE
1470 WHEN stats%:SYS "Wimp_CreateMenu",,-1
1480 ENDCASE
1490ENDIF
1500ENDPROC
1510
1520DEF PROCnewgame
1530IF $name%="":PROCbadname:ENDPROC
1540SYS "Hourglass_On":name$=$name%:totmvs%=0:tottme%=0:layers%=1:map%=0
1550moved%=FALSE:lptr%=HIMEM:layer%=0:PROCinitlevel
1560!q%=mindtrap%:SYS "Wimp_GetWindowState",,q%:q%!28=-1
1570SYS "Wimp_OpenWindow",,q%:!q%=startgame%:SYS "Wimp_CloseWindow",,q%:close%=0
1580SYS "Hourglass_Off"
1590ENDPROC
1600
1610DEF PROColdgame
1620IF $name%="":PROCbadname:ENDPROC
1630IF $code%="":PROCnewgame:ENDPROC
1640IF LEN $code%<>20:PROCmsg("Code must be 20 characters long"):ENDPROC
1650Z%=TRUE
1660FOR n%=0 TO 19
1670 A%=code%?n%:IF A%<48 OR (A%>57 AND A%<65) OR A%>90:Z%=FALSE
1680NEXT
1690IF Z% ELSE PROCmsg("Invalid character found in code"):ENDPROC
1700SYS "Hourglass_On":a$=$name%:$q%=$code%
1710LOCAL ERROR
1720ON ERROR LOCAL RESTORE ERROR:PROCmsg("Invalid code"):ENDPROC
1730$(q%+21)=a$:WHILE LEN $(q%+21)<20:$(q%+21)+=a$:ENDWHILE
1740FOR n%=0 TO 19:q%?n%-=48-7*(q%?n%>57):NEXT
1750FOR n%=0 TO 19:q%?n%=(q%?n%+288-(q%?(n%+21) EOR ?(PAGE+n%))) MOD 36:NEXT
1760A%=?q%:B%=FNval(1,3):C%=FNval(4,6):D%=FNval(10,6):RESTORE ERROR
1770IF A%>31 OR B%>999:PROCmsg("Invalid code"):ENDPROC
1780IF (A%+B%+C%+D%) MOD 1679616<>FNval(16,4):PROCmsg("Invalid code"):ENDPROC
1790map%=A%:layers%=B%:totmvs%=C%:tottme%=D%:name$=a$
1800moved%=FALSE:lptr%=HIMEM:layer%=0:PROCinitlevel:!q%=mindtrap%
1810SYS "Wimp_GetWindowState",,q%:q%!28=-1:SYS "Wimp_OpenWindow",,q%:close%=0
1820SYS "Wimp_CreateMenu",,-1:SYS "Hourglass_Off"
1830ENDPROC
1840
1850DEF FNval(P%,L%)
1860LOCAL R%,v%:v%=36^(L%-1):P%+=q%
1870REPEAT R%+=?P%*v%:P%+=1:v%=v%/36:L%-=1:UNTIL L%=0
1880=R%
1890
1900DEF PROCbadname
1910PROCmsg("Have you no name?")
1920ENDPROC
1930
1940DEF PROCmsg($(q%+4))
1950LOCAL !q%:SYS "Wimp_ReportError",q%,1,"Mindtrap"
1960ENDPROC
1970
1980DEF PROCinitlevel
1990PROCclaim(24*layers%):FOR n%=0 TO 23 STEP 4:!(HIMEM+n%)=0:NEXT
2000!q%=mindtrap%:q%!4=24:q%!12=1<<23:n%=HIMEM:changed%=FALSE
2010FOR y%=0 TO 2
2020 FOR x%=0 TO 4
2030 IF ASC MID$(map$(map%),y%*5+x%+1) AND 1 THEN
2040 ?n%=x%+1:n%?1=x%+2:n%?6=x%+1:n%?7=x%+2:q%!8=0
2050 ELSE q%!8=1<<23
2060 ENDIF
2070 SYS "Wimp_SetIconState",,q%:q%!4+=1:n%+=1
2080 NEXT
2090 n%+=1
2100NEXT
2110A%=RND(-TIME):A%=HIMEM:S%=0:FOR n%=0 TO 23:S%-=(A%?n%>0):NEXT
2120IF layers%>1:FOR n%=HIMEM TO HIMEM+layers%*24-25 STEP 4:n%!24=!n%:NEXT
2130FOR n%=0 TO layers%*24-1
2140 IF A%?n% THEN
2150 REPEAT B%=RND(S%)-1:UNTIL A%?B%:SWAP A%?n%,A%?B%
2160 ENDIF
2170NEXT
2180IF map% OR layers%>1 THEN
2190 $q%=FN36(map%,1)+FN36(layers%,3)+FN36(totmvs%,6)+FN36(tottme%,6)+FN36((map%+layers%+totmvs%+tottme%) MOD 1679616,4)
2200 $(q%+21)=name$:WHILE LEN $(q%+21)<20:$(q%+21)+=name$:ENDWHILE
2210 FOR n%=0 TO 19:q%?n%=(q%?n%+(q%?(n%+21) EOR ?(PAGE+n%))) MOD 36:NEXT
2220 FOR n%=0 TO 19:q%?n%+=48-7*(q%?n%>9):NEXT:lcode$=""
2230 FOR n%=0 TO 19:lcode$+=CHR$ q%?n%:NEXT
2240ELSE lcode$="<None>"
2250ENDIF
2260moves%=S%*5*layers%:PROCdrawlayer:$movstr%=STR$ moves%:$lcode%=lcode$
2270!q%=mindtrap%:q%!4=40:q%!8=0:q%!12=0:SYS "Wimp_SetIconState",,q%:q%!4=46
2280SYS "Wimp_SetIconState",,q%:q%!8=1<<22 AND layers%=1:q%!12=1<<22
2290q%!4=43:SYS "Wimp_SetIconState",,q%:q%!4=44:SYS "Wimp_SetIconState",,q%
2300SYS "OS_ReadMonotonicTime" TO mtime%
2310ENDPROC
2320
2330DEF FN36(n%,p%)
2340LOCAL a$,v%:v%=36^(p%-1)
2350REPEAT a$+=CHR$ (n% DIV v%):n%=n% MOD v%:v%=v%/36:p%-=1:UNTIL p%=0
2360=a$
2370
2380DEF PROCdrawlayer
2390FOR n%=0 TO 23:$(dice%+n%*2)=STR$ n%?lptr%:NEXT:$lyrstr%=STR$ layer%
2400!q%=mindtrap%:q%!4=42:q%!8=0:q%!12=0:SYS "Wimp_SetIconState",,q%
2410SYS "Wimp_ForceRedraw",mindtrap%,0,-360,1E6,0
2420ENDPROC
2430
2440DEF PROCredraw(icon%,v%)
2450IF icon%<24:$(dice%+icon%*2)=STR$ v%
2460!q%=mindtrap%:q%!4=icon%:q%!8=0:q%!12=0:SYS "Wimp_SetIconState",,q%
2470ENDPROC
2480
2490DEF PROCclaim(X%)
2500SYS "Wimp_SlotSize",HIMEM+X%-&8000,-1
2510ENDPROC
2520
2530DEF PROCerror
2540SYS "XWimp_CloseDown"
2550ERROR EXT ERR,REPORT$+" at line "+STR$ ERL
2560ENDPROC
2570
2580DEF PROCmove(I%,D%)
2590IF moves% ELSE ENDPROC
2600CASE TRUE OF
2610WHEN I%<15
2620 x%=I% MOD 5:y%=I% DIV 5:z%=lptr%+x%+y%*6
2630 IF INKEY-1 THEN
2640 IF layers%>1 THEN
2650 IF D% THEN
2660 l%=layer%-1:IF l%<0:l%=layers%-1
2670 ELSE l%=layer%+1:IF l%>=layers%:l%=0
2680 ENDIF
2690 A%=HIMEM+l%*24+x%+y%*6:SWAP ?z%,?A%:SWAP z%?1,A%?1:SWAP z%?6,A%?6
2700 SWAP z%?7,A%?7:x%+=y%*6:PROCredraw(x%,?z%):PROCredraw(x%+1,z%?1)
2710 PROCredraw(x%+6,z%?6):PROCredraw(x%+7,z%?7):PROCmoved
2720 ENDIF
2730 ELSE
2740 IF D% THEN
2750 A%=?z%:?z%=z%?6:z%?6=z%?7:z%?7=z%?1:z%?1=A%
2760 ELSE A%=?z%:?z%=z%?1:z%?1=z%?7:z%?7=z%?6:z%?6=A%
2770 ENDIF
2780 x%=z%-lptr%
2790 PROCredraw(x%,?z%):PROCredraw(x%+1,z%?1)
2800 PROCredraw(x%+6,z%?6):PROCredraw(x%+7,z%?7):PROCmoved
2810 ENDIF
2820 B%=HIMEM:C%=layers%
2830 IF USR completed THEN
2840 SYS "OS_ReadMonotonicTime" TO A%:tottme%+=A%-mtime%
2850 map%=map%+1 AND 31:IF map% ELSE IF layers%<999:layers%+=1
2860 PROCinitlevel
2870 ENDIF
2880WHEN I%=19+D%:layer%+=1:IF layer%>=layers%:layer%=0
2890 lptr%=HIMEM+layer%*24:PROCdrawlayer
2900WHEN I%=20-D%:layer%-=1:IF layer%<0:layer%=layers%-1
2910 lptr%=HIMEM+layer%*24:PROCdrawlayer
2920ENDCASE
2930ENDPROC
2940
2950DEF PROCmoved
2960IF changed% ELSE SYS "OS_ReadMonotonicTime" TO mtime%
2970moves%-=1:totmvs%+=1:$movstr%=STR$ moves%:!q%=mindtrap%:q%!4=40:q%!8=0
2980q%!12=0:SYS "Wimp_SetIconState",,q%:moved%=TRUE:changed%=TRUE
2990ENDPROC
3000
3010DEF PROCmcode
3020DIM mc% 64,L% -1
3030FOR p%=8 TO 10 STEP 2
3040P%=mc%:[OPT p%
3050.completed MOV 0,#0:MOV 2,2,LSL #2
3060.row MOV 3,#1
3070.column LDRB 4,[1],#1:TEQ 4,#0:TEQNE 4,3:MOVNE PC,14:ADD 3,3,#1:CMP 3,#7
3080BNE column:SUBS 2,2,#1:BNE row:MOV 0,#1:MOV PC,14
3090]NEXT
3100ENDPROC
3110
3120DEF PROCmkmenu(M%,X%,Y%)
3130IF ver%>=350 THEN PROCmenuwidth(M%)
3140SYS "Wimp_CreateMenu",,M%,X%,Y%
3150ENDPROC
3160
3170DEF PROCmenuwidth(M%)
3180LOCAL P%,W%,X%:P%=M%+28
3190IF M%!28 AND &100 THEN X%=!M%:ELSE X%=M%
3200IF M%!28 AND &200 ELSE SYS "Wimp_TextOp",1,X% TO W%
3210IF W% THEN W%-=16
3220REPEAT
3230 IF !P% AND 4 THEN
3240 X%=M%!16-16
3250 ELSE IF P%!8 AND 256 THEN X%=P%!12:ELSE X%=P%+12
3260 SYS "Wimp_TextOp",1,X% TO X%
3270 ENDIF
3280 IF X%>W% THEN W%=X%
3290 IF P%!4>&8000 AND P%!4<HIMEM THEN PROCmenuwidth(P%!4 AND -4)
3300 P%+=24
3310UNTIL P%!-24 AND 128
3320M%!16=W%+16
3330ENDPROC
� > !RunImage (!Mindtrap)
� � �error
�init
(�
2 ș "Wimp_Poll",1,q% � r%
<J � rst%:q%!900=quitw%:ș "Wimp_GetWindowState",,q%+900:rst%=q%?934 � 1
F Ȏ r% �
P! � 2:ș "Wimp_OpenWindow",,q%
Z" � 3:ș "Wimp_CloseWindow",,q%
d � !q%=mindtrap% �
nL close%=0:� changed%:ș "OS_ReadMonotonicTime" � close%:close%-=mtime%
x �
�* � 6:�mouse(!q%,q%!4,q%!8,q%!12,q%!16)
�
� 8:�key
� � 9:�menu
� � 17,18:�message
� �
� � exit%=� � moved% �
�2 exit%=�:ș "Wimp_CreateMenu",,quitw%,316,580
� �
� � exit%
�#� rst%:ș "Wimp_ProcessKey",508
�ș "XWimp_CloseDown"
��
�
� �init
HA%=310:*%RMEnsure UtilityModule 3.10 MemoryA 8604 10_200 { > Null: }
5A%=200:B%=0:� A%=310:B%=&860C:C%=8:D%=&400C0:E%=0
"Eș "Wimp_Initialise",A%,&4B534154,"Mindtrap Game",B% � ver%,task%
,?ș "OS_ReadModeVariable",-1,5 � ,,A%:� A%<2:a$="22":� a$=""
63ș "OS_File",5,"<Obey$Dir>.Sprites"+a$ � ,,,,x%
@5� q% 2000,spr% x%+4,menu% 124,map$(31):!spr%=x%+4
J ș "OS_SpriteOp",256+9,spr%
T8ș "OS_SpriteOp",256+10,spr%,"<Obey$Dir>.Sprites"+a$
^� �
hP� � � ș "XWimp_CloseTemplate":ș "XWimp_CloseDown":� � �,�$+" at line "+� �
r@A%=�:*RMEnsure UtilityModule 3.12 MemoryA 8604 0 { > Null: }
|@� A% � A%=�:*RMEnsure ROMApps3D 0 MemoryA 8604 0 { > Null: }
�� A%:a$="3d":� a$="s"
�4ș "Wimp_OpenTemplate",,"<Obey$Dir>.Template"+a$
�H�loadt("Info"):ș "Wimp_CreateWindow",,q% � info%:�loadt("Mindtrap")
�Jq%!64=spr%:dice%=q%!108:movstr%=q%!1388:lyrstr%=q%!1452:lcode%=q%!1580
�(� n%=q%+112 � q%+848 � 32:!n%=spr%:�
�9ș "Wimp_CreateWindow",,q% � mindtrap%:�loadt("Quit")
�Iș "Wimp_CreateWindow",,q% � quitw%:�loadt("StartGame"):`title%=q%!72
�3name%=q%!172:code%=q%!204:q%!200=q%!200 � 1<<22
�Gș "Wimp_CreateWindow",,q% � startgame%:wd%=q%!8-!q%:ht%=q%!12-q%!4
�3�loadt("Stats"):tmovstr%=q%!172:ttmestr%=q%!204
�Cș "Wimp_CreateWindow",,q% � stats%:ș "Wimp_CloseTemplate":� �
�Hmenux%=100:menuy%=272:$menu%="Mindtrap":menu%!12=&70207:menu%!16=136
�Fmenu%!20=44:menu%!24=0:menu%!28=0:menu%!32=info%:menu%!36=&7000021
>$(menu%+40)="Info":menu%!52=8:menu%!56=1:menu%!60=&7000021
B$(menu%+64)="New game":menu%!76=8:menu%!80=1:menu%!84=&7000021
H$(menu%+88)="Old game":menu%!100=128:menu%!104=-1:menu%!108=&7000021
&J$(menu%+112)="Quit":!q%=-1:q%!4=0:q%!8=0:q%!12=84:q%!16=68:q%!20=&301A
0<$(q%+24)="!mindtrap":ș "Wimp_CreateIcon",,q% � baricon%
:7exit%=�:rst%=�:� +0:� n%=0 � 31:� map$(n%):�:�mcode
D9moved%=�:changed%=�:name$="":sgame%=1:lcode$=�20," ")
N�
X
bE� 001001111100100,001100111001100,001000111000100,011100111001110
lE� 111000010000111,011111110101011,110001100011111,111010011100111
vE� 110001111100011,010101111101010,100011111100100,110001111111000
�E� 111110110100011,011001111001100,001111110100111,101011111110101
�E� 010000111100011,011101111111000,110101111000111,011101101111011
�E� 110110111011011,111110010011111,111110101011111,110110101001110
�E� 110111101111111,110011111111001,110001111101111,001111110001110
�E� 001111111000111,011101101101101,111111010111111,111110111011111
�
�� �loadt(a$)
�;� A%,B%:ș "Wimp_LoadTemplate",,-1,,,-1,a$ � ,,B%,,,,A%
�,� A% � � 1,"Template '"+a$+"' not found"
�5� A% B%:ș "Wimp_LoadTemplate",,q%,A%,A%+B%,-1,a$
��
�
�� �message
Ȏ q%!16 �
� 0:exit%=�
� 8:exit%=�:rst%=q%!20=0
� moved% �
*; !q%=20:q%!12=q%!8:q%!16=0:ș "Wimp_SendMessage",19,q%
4* ș "Wimp_CreateMenu",,quitw%,316,580
> �
HJ� &400C0:�sgame(q%!32):ș "Wimp_CreateSubMenu",,startgame%,q%!24,q%!28
R�
\�
f
p� �opensgame(A%,X%,Y%)
z5�sgame(A%):ș "Wimp_CreateMenu",,startgame%,X%,Y%
��
�
�� �sgame(A%)
�9sgame%=A%:!q%=startgame%:q%!4=3:q%!8=1<<22 � sgame%=1
�Aq%!12=1<<22:ș "Wimp_SetIconState",,q%:$name%=name$:$code%=""
�8� sgame%=1:$`title%="New game":� $`title%="Old game"
��
�
� � �menu
�mx%=� 7-64:my%=� 8+64
� Ȏ !q% �
�+� 0:ș "Wimp_CreateMenu",,info%,mx%,my%
�3� 1:� name$>"":�newgame:� �opensgame(1,mx%,my%)
� 2:�opensgame(2,mx%,my%)
� 3:exit%=�
�
$�
.
8
� �key
B2� !q%<>startgame%:ș "Wimp_ProcessKey",q%!24:�
L A%=q%!24
V � A%>96 � A%<123 � q%!4=3 �
`< A%-=32:ș "Wimp_ProcessKey",127:ș "Wimp_ProcessKey",A%
j�
t � A%=13 � q%!4=1+sgame% �
~' � sgame% �newgame,�oldgame �:A%=-1
��
�? � sgame%=2 � (A%=13 � A%=398 � A%=399 � A%=394 � A%=410) �
�C A%=-1:� q%!4=3:ș "Wimp_SetCaretPosition",!q%,2,,,-1,� $name%
�= � q%!4=2:ș "Wimp_SetCaretPosition",!q%,3,,,-1,� $code%
� �
��
�#� A%>-1:ș "Wimp_ProcessKey",A%
��
�
�$� �mouse(x%,y%,b%,window%,icon%)
�
z%=b% � 1
�� b% � 2 �
Ȏ window% �
9 � -2:mx%=x%-menux%:my%=menuy%:�mkmenu(menu%,mx%,my%)
. � mindtrap%:$tmovstr%=� totmvs%:A%=0:B%=0
: � changed%:ș "OS_ReadMonotonicTime" � A%:A%-=mtime%
(� A%+=tottme%:$ttmestr%=�"0"+�(A% � 36E4),2)+":"+�"0"+�((A% � 36E4) � 6E3),2)+":"+�"0"+�((A% � 6E3) � 100),2)+"."+�"0"+�(A% � 100),2)
2. ș "Wimp_CreateMenu",,stats%,x%-32,y%+32
< �
F�
P Ȏ window% �
Z � -2
d � name$="" �
n' �opensgame(1+z%,x%-wd%/2,96+ht%)
xK � !q%=mindtrap%:ș "Wimp_GetWindowState",,q%:ș "Wimp_OpenWindow",,q%
�8 ș "OS_ReadMonotonicTime" � mtime%:mtime%-=close%
� �
�# � mindtrap%:�move(icon%-24,z%)
�& � quitw%:� icon%:rst%=�:� exit%=1
� ș "Wimp_CreateMenu",,-1
�. � startgame%:� sgame% �newgame,�oldgame �
�& � stats%:ș "Wimp_CreateMenu",,-1
� �
��
��
�
�� �newgame
�� $name%="":�badname:�
Gș "Hourglass_On":name$=$name%:totmvs%=0:tottme%=0:layers%=1:map%=0
(moved%=�:lptr%=�:layer%=0:�initlevel
7!q%=mindtrap%:ș "Wimp_GetWindowState",,q%:q%!28=-1
"Nș "Wimp_OpenWindow",,q%:!q%=startgame%:ș "Wimp_CloseWindow",,q%:close%=0
,ș "Hourglass_Off"
6�
@
J� �oldgame
T� $name%="":�badname:�
^� $code%="":�newgame:�
h<� � $code%<>20:�msg("Code must be 20 characters long"):�
rZ%=�
|� n%=0 � 19
�7 A%=code%?n%:� A%<48 � (A%>57 � A%<65) � A%>90:Z%=�
��
�4� Z% � �msg("Invalid character found in code"):�
�*ș "Hourglass_On":a$=$name%:$q%=$code%
�� �
�$� � � � �:�msg("Invalid code"):�
�/$(q%+21)=a$:ȕ � $(q%+21)<20:$(q%+21)+=a$:�
�(� n%=0 � 19:q%?n%-=48-7*(q%?n%>57):�
�?� n%=0 � 19:q%?n%=(q%?n%+288-(q%?(n%+21) � ?(�+n%))) � 36:�
�6A%=?q%:B%=�val(1,3):C%=�val(4,6):D%=�val(10,6):� �
�+� A%>31 � B%>999:�msg("Invalid code"):�
�@� (A%+B%+C%+D%) � 1679616<>�val(16,4):�msg("Invalid code"):�
�5map%=A%:layers%=B%:totmvs%=C%:tottme%=D%:name$=a$
6moved%=�:lptr%=�:layer%=0:�initlevel:!q%=mindtrap%
Kș "Wimp_GetWindowState",,q%:q%!28=-1:ș "Wimp_OpenWindow",,q%:close%=0
/ș "Wimp_CreateMenu",,-1:ș "Hourglass_Off"
&�
0
:� �val(P%,L%)
D � R%,v%:v%=36^(L%-1):P%+=q%
N,� R%+=?P%*v%:P%+=1:v%=v%/36:L%-=1:� L%=0
X=R%
b
l� �badname
v �msg("Have you no name?")
��
�
�� �msg($(q%+4))
�/� !q%:ș "Wimp_ReportError",q%,1,"Mindtrap"
��
�
�� �initlevel
�2�claim(24*layers%):� n%=0 � 23 � 4:!(�+n%)=0:�
�5!q%=mindtrap%:q%!4=24:q%!12=1<<23:n%=�:changed%=�
�� y%=0 � 2
� � x%=0 � 4
�& � � �map$(map%),y%*5+x%+1) � 1 �
�4 ?n%=x%+1:n%?1=x%+2:n%?6=x%+1:n%?7=x%+2:q%!8=0
� q%!8=1<<23
�
. ș "Wimp_SetIconState",,q%:q%!4+=1:n%+=1
�
*
n%+=1
4�
>2A%=�(-�):A%=�:S%=0:� n%=0 � 23:S%-=(A%?n%>0):�
H8� layers%>1:� n%=� � �+layers%*24-25 � 4:n%!24=!n%:�
R� n%=0 � layers%*24-1
\ � A%?n% �
f) � B%=�(S%)-1:� A%?B%:Ȕ A%?n%,A%?B%
p �
z�
�� map% � layers%>1 �
�q $q%=�36(map%,1)+�36(layers%,3)+�36(totmvs%,6)+�36(tottme%,6)+�36((map%+layers%+totmvs%+tottme%) � 1679616,4)
�6 $(q%+21)=name$:ȕ � $(q%+21)<20:$(q%+21)+=name$:�
�< � n%=0 � 19:q%?n%=(q%?n%+(q%?(n%+21) � ?(�+n%))) � 36:�
�2 � n%=0 � 19:q%?n%+=48-7*(q%?n%>9):�:lcode$=""
�" � n%=0 � 19:lcode$+=� q%?n%:�
�� lcode$="<None>"
��
�Cmoves%=S%*5*layers%:�drawlayer:$movstr%=� moves%:$lcode%=lcode$
�K!q%=mindtrap%:q%!4=40:q%!8=0:q%!12=0:ș "Wimp_SetIconState",,q%:q%!4=46
�Aș "Wimp_SetIconState",,q%:q%!8=1<<22 � layers%=1:q%!12=1<<22
�Iq%!4=43:ș "Wimp_SetIconState",,q%:q%!4=44:ș "Wimp_SetIconState",,q%
�&ș "OS_ReadMonotonicTime" � mtime%
�
� �36(n%,p%)
$� a$,v%:v%=36^(p%-1)
.6� a$+=� (n% � v%):n%=n% � v%:v%=v%/36:p%-=1:� p%=0
8=a$
B
L� �drawlayer
V<� n%=0 � 23:$(dice%+n%*2)=� n%?lptr%:�:$lyrstr%=� layer%
`C!q%=mindtrap%:q%!4=42:q%!8=0:q%!12=0:ș "Wimp_SetIconState",,q%
j0ș "Wimp_ForceRedraw",mindtrap%,0,-360,1E6,0
t�
~
�� �redraw(icon%,v%)
�$� icon%<24:$(dice%+icon%*2)=� v%
�F!q%=mindtrap%:q%!4=icon%:q%!8=0:q%!12=0:ș "Wimp_SetIconState",,q%
��
�
�� �claim(X%)
�$ș "Wimp_SlotSize",�+X%-&8000,-1
��
�
� � �error
�ș "XWimp_CloseDown"
� � � �,�$+" at line "+� �
�
� �move(I%,D%)
� moves% � �
(
Ȏ � �
2 � I%<15
<) x%=I% � 5:y%=I% � 5:z%=lptr%+x%+y%*6
F � �-1 �
P � layers%>1 �
Z
� D% �
d' l%=layer%-1:� l%<0:l%=layers%-1
n' � l%=layer%+1:� l%>=layers%:l%=0
x �
�> A%=�+l%*24+x%+y%*6:Ȕ ?z%,?A%:Ȕ z%?1,A%?1:Ȕ z%?6,A%?6
�? Ȕ z%?7,A%?7:x%+=y%*6:�redraw(x%,?z%):�redraw(x%+1,z%?1)
�3 �redraw(x%+6,z%?6):�redraw(x%+7,z%?7):�moved
� �
� �
� � D% �
�2 A%=?z%:?z%=z%?6:z%?6=z%?7:z%?7=z%?1:z%?1=A%
�3 � A%=?z%:?z%=z%?1:z%?1=z%?7:z%?7=z%?6:z%?6=A%
� �
� x%=z%-lptr%
�( �redraw(x%,?z%):�redraw(x%+1,z%?1)
�2 �redraw(x%+6,z%?6):�redraw(x%+7,z%?7):�moved
� �
B%=�:C%=layers%
� � completed �
7 ș "OS_ReadMonotonicTime" � A%:tottme%+=A%-mtime%
"8 map%=map%+1 � 31:� map% � � layers%<999:layers%+=1
, �initlevel
6 �
@3� I%=19+D%:layer%+=1:� layer%>=layers%:layer%=0
J! lptr%=�+layer%*24:�drawlayer
T4� I%=20-D%:layer%-=1:� layer%<0:layer%=layers%-1
^! lptr%=�+layer%*24:�drawlayer
h�
r�
|
� � �moved
�3� changed% � ș "OS_ReadMonotonicTime" � mtime%
�Gmoves%-=1:totmvs%+=1:$movstr%=� moves%:!q%=mindtrap%:q%!4=40:q%!8=0
�:q%!12=0:ș "Wimp_SetIconState",,q%:moved%=�:changed%=�
��
�
� � �mcode
�� mc% 64,L% -1
�� p%=8 � 10 � 2
�P%=mc%:[OPT p%
�&.completed MOV 0,#0:MOV 2,2,LSL #2
�.row MOV 3,#1
�L.column LDRB 4,[1],#1:TEQ 4,#0:TEQNE 4,3:MOVNE PC,14:ADD 3,3,#1:CMP 3,#7
5BNE column:SUBS 2,2,#1:BNE row:MOV 0,#1:MOV PC,14
]�
�
&
0� �mkmenu(M%,X%,Y%)
: � ver%>=350 � �menuwidth(M%)
D"ș "Wimp_CreateMenu",,M%,X%,Y%
N�
X
b� �menuwidth(M%)
l� P%,W%,X%:P%=M%+28
v#� M%!28 � &100 � X%=!M%:� X%=M%
�/� M%!28 � &200 � ș "Wimp_TextOp",1,X% � W%
�� W% � W%-=16
��
� � !P% � 4 �
� X%=M%!16-16
�) � � P%!8 � 256 � X%=P%!12:� X%=P%+12
� ș "Wimp_TextOp",1,X% � X%
� �
� � X%>W% � W%=X%
�2 � P%!4>&8000 � P%!4<� � �menuwidth(P%!4 � -4)
� P%+=24
�� P%!-24 � 128
�M%!16=W%+16
�
� 00000000 0d 00 0a 1d f4 20 3e 20 21 52 75 6e 49 6d 61 67 |..... > !RunImag|
00000010 65 20 28 21 4d 69 6e 64 74 72 61 70 29 0d 00 14 |e (!Mindtrap)...|
00000020 0e ee 20 85 20 f2 65 72 72 6f 72 0d 00 1e 09 f2 |.. . .error.....|
00000030 69 6e 69 74 0d 00 28 05 f5 0d 00 32 1d 20 c8 99 |init..(....2. ..|
00000040 20 22 57 69 6d 70 5f 50 6f 6c 6c 22 2c 31 2c 71 | "Wimp_Poll",1,q|
00000050 25 20 b8 20 72 25 0d 00 3c 4a 20 e7 20 72 73 74 |% . r%..<J . rst|
00000060 25 3a 71 25 21 39 30 30 3d 71 75 69 74 77 25 3a |%:q%!900=quitw%:|
00000070 c8 99 20 22 57 69 6d 70 5f 47 65 74 57 69 6e 64 |.. "Wimp_GetWind|
00000080 6f 77 53 74 61 74 65 22 2c 2c 71 25 2b 39 30 30 |owState",,q%+900|
00000090 3a 72 73 74 25 3d 71 25 3f 39 33 34 20 80 20 31 |:rst%=q%?934 . 1|
000000a0 0d 00 46 0c 20 c8 8e 20 72 25 20 ca 0d 00 50 21 |..F. .. r% ...P!|
000000b0 20 c9 20 32 3a c8 99 20 22 57 69 6d 70 5f 4f 70 | . 2:.. "Wimp_Op|
000000c0 65 6e 57 69 6e 64 6f 77 22 2c 2c 71 25 0d 00 5a |enWindow",,q%..Z|
000000d0 22 20 c9 20 33 3a c8 99 20 22 57 69 6d 70 5f 43 |" . 3:.. "Wimp_C|
000000e0 6c 6f 73 65 57 69 6e 64 6f 77 22 2c 2c 71 25 0d |loseWindow",,q%.|
000000f0 00 64 17 20 20 e7 20 21 71 25 3d 6d 69 6e 64 74 |.d. . !q%=mindt|
00000100 72 61 70 25 20 8c 0d 00 6e 4c 20 20 20 63 6c 6f |rap% ...nL clo|
00000110 73 65 25 3d 30 3a e7 20 63 68 61 6e 67 65 64 25 |se%=0:. changed%|
00000120 3a c8 99 20 22 4f 53 5f 52 65 61 64 4d 6f 6e 6f |:.. "OS_ReadMono|
00000130 74 6f 6e 69 63 54 69 6d 65 22 20 b8 20 63 6c 6f |tonicTime" . clo|
00000140 73 65 25 3a 63 6c 6f 73 65 25 2d 3d 6d 74 69 6d |se%:close%-=mtim|
00000150 65 25 0d 00 78 07 20 20 cd 0d 00 82 2a 20 c9 20 |e%..x. ....* . |
00000160 36 3a f2 6d 6f 75 73 65 28 21 71 25 2c 71 25 21 |6:.mouse(!q%,q%!|
00000170 34 2c 71 25 21 38 2c 71 25 21 31 32 2c 71 25 21 |4,q%!8,q%!12,q%!|
00000180 31 36 29 0d 00 8c 0d 20 c9 20 38 3a f2 6b 65 79 |16).... . 8:.key|
00000190 0d 00 96 0e 20 c9 20 39 3a f2 6d 65 6e 75 0d 00 |.... . 9:.menu..|
000001a0 a0 15 20 c9 20 31 37 2c 31 38 3a f2 6d 65 73 73 |.. . 17,18:.mess|
000001b0 61 67 65 0d 00 aa 06 20 cb 0d 00 b4 19 20 e7 20 |age.... ..... . |
000001c0 65 78 69 74 25 3d b9 20 80 20 6d 6f 76 65 64 25 |exit%=. . moved%|
000001d0 20 8c 0d 00 be 32 20 20 65 78 69 74 25 3d a3 3a | ....2 exit%=.:|
000001e0 c8 99 20 22 57 69 6d 70 5f 43 72 65 61 74 65 4d |.. "Wimp_CreateM|
000001f0 65 6e 75 22 2c 2c 71 75 69 74 77 25 2c 33 31 36 |enu",,quitw%,316|
00000200 2c 35 38 30 0d 00 c8 06 20 cd 0d 00 d2 0b fd 20 |,580.... ...... |
00000210 65 78 69 74 25 0d 00 dc 23 e7 20 72 73 74 25 3a |exit%...#. rst%:|
00000220 c8 99 20 22 57 69 6d 70 5f 50 72 6f 63 65 73 73 |.. "Wimp_Process|
00000230 4b 65 79 22 2c 35 30 38 0d 00 e6 18 c8 99 20 22 |Key",508...... "|
00000240 58 57 69 6d 70 5f 43 6c 6f 73 65 44 6f 77 6e 22 |XWimp_CloseDown"|
00000250 0d 00 f0 05 e0 0d 00 fa 04 0d 01 04 0b dd 20 f2 |.............. .|
00000260 69 6e 69 74 0d 01 0e 48 41 25 3d 33 31 30 3a 2a |init...HA%=310:*|
00000270 25 52 4d 45 6e 73 75 72 65 20 55 74 69 6c 69 74 |%RMEnsure Utilit|
00000280 79 4d 6f 64 75 6c 65 20 33 2e 31 30 20 4d 65 6d |yModule 3.10 Mem|
00000290 6f 72 79 41 20 38 36 30 34 20 31 30 5f 32 30 30 |oryA 8604 10_200|
000002a0 20 7b 20 3e 20 4e 75 6c 6c 3a 20 7d 0d 01 18 35 | { > Null: }...5|
000002b0 41 25 3d 32 30 30 3a 42 25 3d 30 3a e7 20 41 25 |A%=200:B%=0:. A%|
000002c0 3d 33 31 30 3a 42 25 3d 26 38 36 30 43 3a 43 25 |=310:B%=&860C:C%|
000002d0 3d 38 3a 44 25 3d 26 34 30 30 43 30 3a 45 25 3d |=8:D%=&400C0:E%=|
000002e0 30 0d 01 22 45 c8 99 20 22 57 69 6d 70 5f 49 6e |0.."E.. "Wimp_In|
000002f0 69 74 69 61 6c 69 73 65 22 2c 41 25 2c 26 34 42 |itialise",A%,&4B|
00000300 35 33 34 31 35 34 2c 22 4d 69 6e 64 74 72 61 70 |534154,"Mindtrap|
00000310 20 47 61 6d 65 22 2c 42 25 20 b8 20 76 65 72 25 | Game",B% . ver%|
00000320 2c 74 61 73 6b 25 0d 01 2c 3f c8 99 20 22 4f 53 |,task%..,?.. "OS|
00000330 5f 52 65 61 64 4d 6f 64 65 56 61 72 69 61 62 6c |_ReadModeVariabl|
00000340 65 22 2c 2d 31 2c 35 20 b8 20 2c 2c 41 25 3a e7 |e",-1,5 . ,,A%:.|
00000350 20 41 25 3c 32 3a 61 24 3d 22 32 32 22 3a 8b 20 | A%<2:a$="22":. |
00000360 61 24 3d 22 22 0d 01 36 33 c8 99 20 22 4f 53 5f |a$=""..63.. "OS_|
00000370 46 69 6c 65 22 2c 35 2c 22 3c 4f 62 65 79 24 44 |File",5,"<Obey$D|
00000380 69 72 3e 2e 53 70 72 69 74 65 73 22 2b 61 24 20 |ir>.Sprites"+a$ |
00000390 b8 20 2c 2c 2c 2c 78 25 0d 01 40 35 de 20 71 25 |. ,,,,x%..@5. q%|
000003a0 20 32 30 30 30 2c 73 70 72 25 20 78 25 2b 34 2c | 2000,spr% x%+4,|
000003b0 6d 65 6e 75 25 20 31 32 34 2c 6d 61 70 24 28 33 |menu% 124,map$(3|
000003c0 31 29 3a 21 73 70 72 25 3d 78 25 2b 34 0d 01 4a |1):!spr%=x%+4..J|
000003d0 1f c8 99 20 22 4f 53 5f 53 70 72 69 74 65 4f 70 |... "OS_SpriteOp|
000003e0 22 2c 32 35 36 2b 39 2c 73 70 72 25 0d 01 54 38 |",256+9,spr%..T8|
000003f0 c8 99 20 22 4f 53 5f 53 70 72 69 74 65 4f 70 22 |.. "OS_SpriteOp"|
00000400 2c 32 35 36 2b 31 30 2c 73 70 72 25 2c 22 3c 4f |,256+10,spr%,"<O|
00000410 62 65 79 24 44 69 72 3e 2e 53 70 72 69 74 65 73 |bey$Dir>.Sprites|
00000420 22 2b 61 24 0d 01 5e 07 ea 20 85 0d 01 68 50 ee |"+a$..^.. ...hP.|
00000430 20 85 20 ea 20 c8 99 20 22 58 57 69 6d 70 5f 43 | . . .. "XWimp_C|
00000440 6c 6f 73 65 54 65 6d 70 6c 61 74 65 22 3a c8 99 |loseTemplate":..|
00000450 20 22 58 57 69 6d 70 5f 43 6c 6f 73 65 44 6f 77 | "XWimp_CloseDow|
00000460 6e 22 3a 85 20 a2 20 9f 2c f6 24 2b 22 20 61 74 |n":. . .,.$+" at|
00000470 20 6c 69 6e 65 20 22 2b c3 20 9e 0d 01 72 40 41 | line "+. ...r@A|
00000480 25 3d b9 3a 2a 52 4d 45 6e 73 75 72 65 20 55 74 |%=.:*RMEnsure Ut|
00000490 69 6c 69 74 79 4d 6f 64 75 6c 65 20 33 2e 31 32 |ilityModule 3.12|
000004a0 20 4d 65 6d 6f 72 79 41 20 38 36 30 34 20 30 20 | MemoryA 8604 0 |
000004b0 7b 20 3e 20 4e 75 6c 6c 3a 20 7d 0d 01 7c 40 e7 |{ > Null: }..|@.|
000004c0 20 41 25 20 8b 20 41 25 3d b9 3a 2a 52 4d 45 6e | A% . A%=.:*RMEn|
000004d0 73 75 72 65 20 52 4f 4d 41 70 70 73 33 44 20 30 |sure ROMApps3D 0|
000004e0 20 4d 65 6d 6f 72 79 41 20 38 36 30 34 20 30 20 | MemoryA 8604 0 |
000004f0 7b 20 3e 20 4e 75 6c 6c 3a 20 7d 0d 01 86 19 e7 |{ > Null: }.....|
00000500 20 41 25 3a 61 24 3d 22 33 64 22 3a 8b 20 61 24 | A%:a$="3d":. a$|
00000510 3d 22 73 22 0d 01 90 34 c8 99 20 22 57 69 6d 70 |="s"...4.. "Wimp|
00000520 5f 4f 70 65 6e 54 65 6d 70 6c 61 74 65 22 2c 2c |_OpenTemplate",,|
00000530 22 3c 4f 62 65 79 24 44 69 72 3e 2e 54 65 6d 70 |"<Obey$Dir>.Temp|
00000540 6c 61 74 65 22 2b 61 24 0d 01 9a 48 f2 6c 6f 61 |late"+a$...H.loa|
00000550 64 74 28 22 49 6e 66 6f 22 29 3a c8 99 20 22 57 |dt("Info"):.. "W|
00000560 69 6d 70 5f 43 72 65 61 74 65 57 69 6e 64 6f 77 |imp_CreateWindow|
00000570 22 2c 2c 71 25 20 b8 20 69 6e 66 6f 25 3a f2 6c |",,q% . info%:.l|
00000580 6f 61 64 74 28 22 4d 69 6e 64 74 72 61 70 22 29 |oadt("Mindtrap")|
00000590 0d 01 a4 4a 71 25 21 36 34 3d 73 70 72 25 3a 64 |...Jq%!64=spr%:d|
000005a0 69 63 65 25 3d 71 25 21 31 30 38 3a 6d 6f 76 73 |ice%=q%!108:movs|
000005b0 74 72 25 3d 71 25 21 31 33 38 38 3a 6c 79 72 73 |tr%=q%!1388:lyrs|
000005c0 74 72 25 3d 71 25 21 31 34 35 32 3a 6c 63 6f 64 |tr%=q%!1452:lcod|
000005d0 65 25 3d 71 25 21 31 35 38 30 0d 01 ae 28 e3 20 |e%=q%!1580...(. |
000005e0 6e 25 3d 71 25 2b 31 31 32 20 b8 20 71 25 2b 38 |n%=q%+112 . q%+8|
000005f0 34 38 20 88 20 33 32 3a 21 6e 25 3d 73 70 72 25 |48 . 32:!n%=spr%|
00000600 3a ed 0d 01 b8 39 c8 99 20 22 57 69 6d 70 5f 43 |:....9.. "Wimp_C|
00000610 72 65 61 74 65 57 69 6e 64 6f 77 22 2c 2c 71 25 |reateWindow",,q%|
00000620 20 b8 20 6d 69 6e 64 74 72 61 70 25 3a f2 6c 6f | . mindtrap%:.lo|
00000630 61 64 74 28 22 51 75 69 74 22 29 0d 01 c2 49 c8 |adt("Quit")...I.|
00000640 99 20 22 57 69 6d 70 5f 43 72 65 61 74 65 57 69 |. "Wimp_CreateWi|
00000650 6e 64 6f 77 22 2c 2c 71 25 20 b8 20 71 75 69 74 |ndow",,q% . quit|
00000660 77 25 3a f2 6c 6f 61 64 74 28 22 53 74 61 72 74 |w%:.loadt("Start|
00000670 47 61 6d 65 22 29 3a 60 74 69 74 6c 65 25 3d 71 |Game"):`title%=q|
00000680 25 21 37 32 0d 01 cc 33 6e 61 6d 65 25 3d 71 25 |%!72...3name%=q%|
00000690 21 31 37 32 3a 63 6f 64 65 25 3d 71 25 21 32 30 |!172:code%=q%!20|
000006a0 34 3a 71 25 21 32 30 30 3d 71 25 21 32 30 30 20 |4:q%!200=q%!200 |
000006b0 84 20 31 3c 3c 32 32 0d 01 d6 47 c8 99 20 22 57 |. 1<<22...G.. "W|
000006c0 69 6d 70 5f 43 72 65 61 74 65 57 69 6e 64 6f 77 |imp_CreateWindow|
000006d0 22 2c 2c 71 25 20 b8 20 73 74 61 72 74 67 61 6d |",,q% . startgam|
000006e0 65 25 3a 77 64 25 3d 71 25 21 38 2d 21 71 25 3a |e%:wd%=q%!8-!q%:|
000006f0 68 74 25 3d 71 25 21 31 32 2d 71 25 21 34 0d 01 |ht%=q%!12-q%!4..|
00000700 e0 33 f2 6c 6f 61 64 74 28 22 53 74 61 74 73 22 |.3.loadt("Stats"|
00000710 29 3a 74 6d 6f 76 73 74 72 25 3d 71 25 21 31 37 |):tmovstr%=q%!17|
00000720 32 3a 74 74 6d 65 73 74 72 25 3d 71 25 21 32 30 |2:ttmestr%=q%!20|
00000730 34 0d 01 ea 43 c8 99 20 22 57 69 6d 70 5f 43 72 |4...C.. "Wimp_Cr|
00000740 65 61 74 65 57 69 6e 64 6f 77 22 2c 2c 71 25 20 |eateWindow",,q% |
00000750 b8 20 73 74 61 74 73 25 3a c8 99 20 22 57 69 6d |. stats%:.. "Wim|
00000760 70 5f 43 6c 6f 73 65 54 65 6d 70 6c 61 74 65 22 |p_CloseTemplate"|
00000770 3a f7 20 85 0d 01 f4 48 6d 65 6e 75 78 25 3d 31 |:. ....Hmenux%=1|
00000780 30 30 3a 6d 65 6e 75 79 25 3d 32 37 32 3a 24 6d |00:menuy%=272:$m|
00000790 65 6e 75 25 3d 22 4d 69 6e 64 74 72 61 70 22 3a |enu%="Mindtrap":|
000007a0 6d 65 6e 75 25 21 31 32 3d 26 37 30 32 30 37 3a |menu%!12=&70207:|
000007b0 6d 65 6e 75 25 21 31 36 3d 31 33 36 0d 01 fe 46 |menu%!16=136...F|
000007c0 6d 65 6e 75 25 21 32 30 3d 34 34 3a 6d 65 6e 75 |menu%!20=44:menu|
000007d0 25 21 32 34 3d 30 3a 6d 65 6e 75 25 21 32 38 3d |%!24=0:menu%!28=|
000007e0 30 3a 6d 65 6e 75 25 21 33 32 3d 69 6e 66 6f 25 |0:menu%!32=info%|
000007f0 3a 6d 65 6e 75 25 21 33 36 3d 26 37 30 30 30 30 |:menu%!36=&70000|
00000800 32 31 0d 02 08 3e 24 28 6d 65 6e 75 25 2b 34 30 |21...>$(menu%+40|
00000810 29 3d 22 49 6e 66 6f 22 3a 6d 65 6e 75 25 21 35 |)="Info":menu%!5|
00000820 32 3d 38 3a 6d 65 6e 75 25 21 35 36 3d 31 3a 6d |2=8:menu%!56=1:m|
00000830 65 6e 75 25 21 36 30 3d 26 37 30 30 30 30 32 31 |enu%!60=&7000021|
00000840 0d 02 12 42 24 28 6d 65 6e 75 25 2b 36 34 29 3d |...B$(menu%+64)=|
00000850 22 4e 65 77 20 67 61 6d 65 22 3a 6d 65 6e 75 25 |"New game":menu%|
00000860 21 37 36 3d 38 3a 6d 65 6e 75 25 21 38 30 3d 31 |!76=8:menu%!80=1|
00000870 3a 6d 65 6e 75 25 21 38 34 3d 26 37 30 30 30 30 |:menu%!84=&70000|
00000880 32 31 0d 02 1c 48 24 28 6d 65 6e 75 25 2b 38 38 |21...H$(menu%+88|
00000890 29 3d 22 4f 6c 64 20 67 61 6d 65 22 3a 6d 65 6e |)="Old game":men|
000008a0 75 25 21 31 30 30 3d 31 32 38 3a 6d 65 6e 75 25 |u%!100=128:menu%|
000008b0 21 31 30 34 3d 2d 31 3a 6d 65 6e 75 25 21 31 30 |!104=-1:menu%!10|
000008c0 38 3d 26 37 30 30 30 30 32 31 0d 02 26 4a 24 28 |8=&7000021..&J$(|
000008d0 6d 65 6e 75 25 2b 31 31 32 29 3d 22 51 75 69 74 |menu%+112)="Quit|
000008e0 22 3a 21 71 25 3d 2d 31 3a 71 25 21 34 3d 30 3a |":!q%=-1:q%!4=0:|
000008f0 71 25 21 38 3d 30 3a 71 25 21 31 32 3d 38 34 3a |q%!8=0:q%!12=84:|
00000900 71 25 21 31 36 3d 36 38 3a 71 25 21 32 30 3d 26 |q%!16=68:q%!20=&|
00000910 33 30 31 41 0d 02 30 3c 24 28 71 25 2b 32 34 29 |301A..0<$(q%+24)|
00000920 3d 22 21 6d 69 6e 64 74 72 61 70 22 3a c8 99 20 |="!mindtrap":.. |
00000930 22 57 69 6d 70 5f 43 72 65 61 74 65 49 63 6f 6e |"Wimp_CreateIcon|
00000940 22 2c 2c 71 25 20 b8 20 62 61 72 69 63 6f 6e 25 |",,q% . baricon%|
00000950 0d 02 3a 37 65 78 69 74 25 3d a3 3a 72 73 74 25 |..:7exit%=.:rst%|
00000960 3d a3 3a f7 20 2b 30 3a e3 20 6e 25 3d 30 20 b8 |=.:. +0:. n%=0 .|
00000970 20 33 31 3a f3 20 6d 61 70 24 28 6e 25 29 3a ed | 31:. map$(n%):.|
00000980 3a f2 6d 63 6f 64 65 0d 02 44 39 6d 6f 76 65 64 |:.mcode..D9moved|
00000990 25 3d a3 3a 63 68 61 6e 67 65 64 25 3d a3 3a 6e |%=.:changed%=.:n|
000009a0 61 6d 65 24 3d 22 22 3a 73 67 61 6d 65 25 3d 31 |ame$="":sgame%=1|
000009b0 3a 6c 63 6f 64 65 24 3d c4 32 30 2c 22 20 22 29 |:lcode$=.20," ")|
000009c0 0d 02 4e 05 e1 0d 02 58 04 0d 02 62 45 dc 20 30 |..N....X...bE. 0|
000009d0 30 31 30 30 31 31 31 31 31 30 30 31 30 30 2c 30 |01001111100100,0|
000009e0 30 31 31 30 30 31 31 31 30 30 31 31 30 30 2c 30 |01100111001100,0|
000009f0 30 31 30 30 30 31 31 31 30 30 30 31 30 30 2c 30 |01000111000100,0|
00000a00 31 31 31 30 30 31 31 31 30 30 31 31 31 30 0d 02 |11100111001110..|
00000a10 6c 45 dc 20 31 31 31 30 30 30 30 31 30 30 30 30 |lE. 111000010000|
00000a20 31 31 31 2c 30 31 31 31 31 31 31 31 30 31 30 31 |111,011111110101|
00000a30 30 31 31 2c 31 31 30 30 30 31 31 30 30 30 31 31 |011,110001100011|
00000a40 31 31 31 2c 31 31 31 30 31 30 30 31 31 31 30 30 |111,111010011100|
00000a50 31 31 31 0d 02 76 45 dc 20 31 31 30 30 30 31 31 |111..vE. 1100011|
00000a60 31 31 31 30 30 30 31 31 2c 30 31 30 31 30 31 31 |11100011,0101011|
00000a70 31 31 31 30 31 30 31 30 2c 31 30 30 30 31 31 31 |11101010,1000111|
00000a80 31 31 31 30 30 31 30 30 2c 31 31 30 30 30 31 31 |11100100,1100011|
00000a90 31 31 31 31 31 30 30 30 0d 02 80 45 dc 20 31 31 |11111000...E. 11|
00000aa0 31 31 31 30 31 31 30 31 30 30 30 31 31 2c 30 31 |1110110100011,01|
00000ab0 31 30 30 31 31 31 31 30 30 31 31 30 30 2c 30 30 |1001111001100,00|
00000ac0 31 31 31 31 31 31 30 31 30 30 31 31 31 2c 31 30 |1111110100111,10|
00000ad0 31 30 31 31 31 31 31 31 31 30 31 30 31 0d 02 8a |1011111110101...|
00000ae0 45 dc 20 30 31 30 30 30 30 31 31 31 31 30 30 30 |E. 0100001111000|
00000af0 31 31 2c 30 31 31 31 30 31 31 31 31 31 31 31 30 |11,0111011111110|
00000b00 30 30 2c 31 31 30 31 30 31 31 31 31 30 30 30 31 |00,1101011110001|
00000b10 31 31 2c 30 31 31 31 30 31 31 30 31 31 31 31 30 |11,0111011011110|
00000b20 31 31 0d 02 94 45 dc 20 31 31 30 31 31 30 31 31 |11...E. 11011011|
00000b30 31 30 31 31 30 31 31 2c 31 31 31 31 31 30 30 31 |1011011,11111001|
00000b40 30 30 31 31 31 31 31 2c 31 31 31 31 31 30 31 30 |0011111,11111010|
00000b50 31 30 31 31 31 31 31 2c 31 31 30 31 31 30 31 30 |1011111,11011010|
00000b60 31 30 30 31 31 31 30 0d 02 9e 45 dc 20 31 31 30 |1001110...E. 110|
00000b70 31 31 31 31 30 31 31 31 31 31 31 31 2c 31 31 30 |111101111111,110|
00000b80 30 31 31 31 31 31 31 31 31 30 30 31 2c 31 31 30 |011111111001,110|
00000b90 30 30 31 31 31 31 31 30 31 31 31 31 2c 30 30 31 |001111101111,001|
00000ba0 31 31 31 31 31 30 30 30 31 31 31 30 0d 02 a8 45 |111110001110...E|
00000bb0 dc 20 30 30 31 31 31 31 31 31 31 30 30 30 31 31 |. 00111111100011|
00000bc0 31 2c 30 31 31 31 30 31 31 30 31 31 30 31 31 30 |1,01110110110110|
00000bd0 31 2c 31 31 31 31 31 31 30 31 30 31 31 31 31 31 |1,11111101011111|
00000be0 31 2c 31 31 31 31 31 30 31 31 31 30 31 31 31 31 |1,11111011101111|
00000bf0 31 0d 02 b2 04 0d 02 bc 10 dd 20 f2 6c 6f 61 64 |1......... .load|
00000c00 74 28 61 24 29 0d 02 c6 3b ea 20 41 25 2c 42 25 |t(a$)...;. A%,B%|
00000c10 3a c8 99 20 22 57 69 6d 70 5f 4c 6f 61 64 54 65 |:.. "Wimp_LoadTe|
00000c20 6d 70 6c 61 74 65 22 2c 2c 2d 31 2c 2c 2c 2d 31 |mplate",,-1,,,-1|
00000c30 2c 61 24 20 b8 20 2c 2c 42 25 2c 2c 2c 2c 41 25 |,a$ . ,,B%,,,,A%|
00000c40 0d 02 d0 2c e7 20 41 25 20 8b 20 85 20 31 2c 22 |...,. A% . . 1,"|
00000c50 54 65 6d 70 6c 61 74 65 20 27 22 2b 61 24 2b 22 |Template '"+a$+"|
00000c60 27 20 6e 6f 74 20 66 6f 75 6e 64 22 0d 02 da 35 |' not found"...5|
00000c70 de 20 41 25 20 42 25 3a c8 99 20 22 57 69 6d 70 |. A% B%:.. "Wimp|
00000c80 5f 4c 6f 61 64 54 65 6d 70 6c 61 74 65 22 2c 2c |_LoadTemplate",,|
00000c90 71 25 2c 41 25 2c 41 25 2b 42 25 2c 2d 31 2c 61 |q%,A%,A%+B%,-1,a|
00000ca0 24 0d 02 e4 05 e1 0d 02 ee 04 0d 02 f8 0e dd 20 |$.............. |
00000cb0 f2 6d 65 73 73 61 67 65 0d 03 02 0e c8 8e 20 71 |.message...... q|
00000cc0 25 21 31 36 20 ca 0d 03 0c 0f c9 20 30 3a 65 78 |%!16 ...... 0:ex|
00000cd0 69 74 25 3d b9 0d 03 16 1c c9 20 38 3a 65 78 69 |it%=...... 8:exi|
00000ce0 74 25 3d b9 3a 72 73 74 25 3d 71 25 21 32 30 3d |t%=.:rst%=q%!20=|
00000cf0 30 0d 03 20 0f 20 e7 20 6d 6f 76 65 64 25 20 8c |0.. . . moved% .|
00000d00 0d 03 2a 3b 20 20 21 71 25 3d 32 30 3a 71 25 21 |..*; !q%=20:q%!|
00000d10 31 32 3d 71 25 21 38 3a 71 25 21 31 36 3d 30 3a |12=q%!8:q%!16=0:|
00000d20 c8 99 20 22 57 69 6d 70 5f 53 65 6e 64 4d 65 73 |.. "Wimp_SendMes|
00000d30 73 61 67 65 22 2c 31 39 2c 71 25 0d 03 34 2a 20 |sage",19,q%..4* |
00000d40 20 c8 99 20 22 57 69 6d 70 5f 43 72 65 61 74 65 | .. "Wimp_Create|
00000d50 4d 65 6e 75 22 2c 2c 71 75 69 74 77 25 2c 33 31 |Menu",,quitw%,31|
00000d60 36 2c 35 38 30 0d 03 3e 06 20 cd 0d 03 48 4a c9 |6,580..>. ...HJ.|
00000d70 20 26 34 30 30 43 30 3a f2 73 67 61 6d 65 28 71 | &400C0:.sgame(q|
00000d80 25 21 33 32 29 3a c8 99 20 22 57 69 6d 70 5f 43 |%!32):.. "Wimp_C|
00000d90 72 65 61 74 65 53 75 62 4d 65 6e 75 22 2c 2c 73 |reateSubMenu",,s|
00000da0 74 61 72 74 67 61 6d 65 25 2c 71 25 21 32 34 2c |tartgame%,q%!24,|
00000db0 71 25 21 32 38 0d 03 52 05 cb 0d 03 5c 05 e1 0d |q%!28..R....\...|
00000dc0 03 66 04 0d 03 70 1a dd 20 f2 6f 70 65 6e 73 67 |.f...p.. .opensg|
00000dd0 61 6d 65 28 41 25 2c 58 25 2c 59 25 29 0d 03 7a |ame(A%,X%,Y%)..z|
00000de0 35 f2 73 67 61 6d 65 28 41 25 29 3a c8 99 20 22 |5.sgame(A%):.. "|
00000df0 57 69 6d 70 5f 43 72 65 61 74 65 4d 65 6e 75 22 |Wimp_CreateMenu"|
00000e00 2c 2c 73 74 61 72 74 67 61 6d 65 25 2c 58 25 2c |,,startgame%,X%,|
00000e10 59 25 0d 03 84 05 e1 0d 03 8e 04 0d 03 98 10 dd |Y%..............|
00000e20 20 f2 73 67 61 6d 65 28 41 25 29 0d 03 a2 39 73 | .sgame(A%)...9s|
00000e30 67 61 6d 65 25 3d 41 25 3a 21 71 25 3d 73 74 61 |game%=A%:!q%=sta|
00000e40 72 74 67 61 6d 65 25 3a 71 25 21 34 3d 33 3a 71 |rtgame%:q%!4=3:q|
00000e50 25 21 38 3d 31 3c 3c 32 32 20 80 20 73 67 61 6d |%!8=1<<22 . sgam|
00000e60 65 25 3d 31 0d 03 ac 41 71 25 21 31 32 3d 31 3c |e%=1...Aq%!12=1<|
00000e70 3c 32 32 3a c8 99 20 22 57 69 6d 70 5f 53 65 74 |<22:.. "Wimp_Set|
00000e80 49 63 6f 6e 53 74 61 74 65 22 2c 2c 71 25 3a 24 |IconState",,q%:$|
00000e90 6e 61 6d 65 25 3d 6e 61 6d 65 24 3a 24 63 6f 64 |name%=name$:$cod|
00000ea0 65 25 3d 22 22 0d 03 b6 38 e7 20 73 67 61 6d 65 |e%=""...8. sgame|
00000eb0 25 3d 31 3a 24 60 74 69 74 6c 65 25 3d 22 4e 65 |%=1:$`title%="Ne|
00000ec0 77 20 67 61 6d 65 22 3a 8b 20 24 60 74 69 74 6c |w game":. $`titl|
00000ed0 65 25 3d 22 4f 6c 64 20 67 61 6d 65 22 0d 03 c0 |e%="Old game"...|
00000ee0 05 e1 0d 03 ca 04 0d 03 d4 0b dd 20 f2 6d 65 6e |........... .men|
00000ef0 75 0d 03 de 19 6d 78 25 3d 96 20 37 2d 36 34 3a |u....mx%=. 7-64:|
00000f00 6d 79 25 3d 96 20 38 2b 36 34 0d 03 e8 0c c8 8e |my%=. 8+64......|
00000f10 20 21 71 25 20 ca 0d 03 f2 2b c9 20 30 3a c8 99 | !q% ....+. 0:..|
00000f20 20 22 57 69 6d 70 5f 43 72 65 61 74 65 4d 65 6e | "Wimp_CreateMen|
00000f30 75 22 2c 2c 69 6e 66 6f 25 2c 6d 78 25 2c 6d 79 |u",,info%,mx%,my|
00000f40 25 0d 03 fc 33 c9 20 31 3a e7 20 6e 61 6d 65 24 |%...3. 1:. name$|
00000f50 3e 22 22 3a f2 6e 65 77 67 61 6d 65 3a 8b 20 f2 |>"":.newgame:. .|
00000f60 6f 70 65 6e 73 67 61 6d 65 28 31 2c 6d 78 25 2c |opensgame(1,mx%,|
00000f70 6d 79 25 29 0d 04 06 1d c9 20 32 3a f2 6f 70 65 |my%)..... 2:.ope|
00000f80 6e 73 67 61 6d 65 28 32 2c 6d 78 25 2c 6d 79 25 |nsgame(2,mx%,my%|
00000f90 29 0d 04 10 0f c9 20 33 3a 65 78 69 74 25 3d b9 |)..... 3:exit%=.|
00000fa0 0d 04 1a 05 cb 0d 04 24 05 e1 0d 04 2e 04 0d 04 |.......$........|
00000fb0 38 0a dd 20 f2 6b 65 79 0d 04 42 32 e7 20 21 71 |8.. .key..B2. !q|
00000fc0 25 3c 3e 73 74 61 72 74 67 61 6d 65 25 3a c8 99 |%<>startgame%:..|
00000fd0 20 22 57 69 6d 70 5f 50 72 6f 63 65 73 73 4b 65 | "Wimp_ProcessKe|
00000fe0 79 22 2c 71 25 21 32 34 3a e1 0d 04 4c 0c 41 25 |y",q%!24:...L.A%|
00000ff0 3d 71 25 21 32 34 0d 04 56 1f e7 20 41 25 3e 39 |=q%!24..V.. A%>9|
00001000 36 20 80 20 41 25 3c 31 32 33 20 80 20 71 25 21 |6 . A%<123 . q%!|
00001010 34 3d 33 20 8c 0d 04 60 3c 20 41 25 2d 3d 33 32 |4=3 ...`< A%-=32|
00001020 3a c8 99 20 22 57 69 6d 70 5f 50 72 6f 63 65 73 |:.. "Wimp_Proces|
00001030 73 4b 65 79 22 2c 31 32 37 3a c8 99 20 22 57 69 |sKey",127:.. "Wi|
00001040 6d 70 5f 50 72 6f 63 65 73 73 4b 65 79 22 2c 41 |mp_ProcessKey",A|
00001050 25 0d 04 6a 05 cd 0d 04 74 1d e7 20 41 25 3d 31 |%..j....t.. A%=1|
00001060 33 20 80 20 71 25 21 34 3d 31 2b 73 67 61 6d 65 |3 . q%!4=1+sgame|
00001070 25 20 8c 0d 04 7e 27 20 ee 20 73 67 61 6d 65 25 |% ...~' . sgame%|
00001080 20 f2 6e 65 77 67 61 6d 65 2c f2 6f 6c 64 67 61 | .newgame,.oldga|
00001090 6d 65 20 8b 3a 41 25 3d 2d 31 0d 04 88 05 cc 0d |me .:A%=-1......|
000010a0 04 92 3f 20 e7 20 73 67 61 6d 65 25 3d 32 20 80 |..? . sgame%=2 .|
000010b0 20 28 41 25 3d 31 33 20 84 20 41 25 3d 33 39 38 | (A%=13 . A%=398|
000010c0 20 84 20 41 25 3d 33 39 39 20 84 20 41 25 3d 33 | . A%=399 . A%=3|
000010d0 39 34 20 84 20 41 25 3d 34 31 30 29 20 8c 0d 04 |94 . A%=410) ...|
000010e0 9c 43 20 20 41 25 3d 2d 31 3a e7 20 71 25 21 34 |.C A%=-1:. q%!4|
000010f0 3d 33 3a c8 99 20 22 57 69 6d 70 5f 53 65 74 43 |=3:.. "Wimp_SetC|
00001100 61 72 65 74 50 6f 73 69 74 69 6f 6e 22 2c 21 71 |aretPosition",!q|
00001110 25 2c 32 2c 2c 2c 2d 31 2c a9 20 24 6e 61 6d 65 |%,2,,,-1,. $name|
00001120 25 0d 04 a6 3d 20 20 e7 20 71 25 21 34 3d 32 3a |%...= . q%!4=2:|
00001130 c8 99 20 22 57 69 6d 70 5f 53 65 74 43 61 72 65 |.. "Wimp_SetCare|
00001140 74 50 6f 73 69 74 69 6f 6e 22 2c 21 71 25 2c 33 |tPosition",!q%,3|
00001150 2c 2c 2c 2d 31 2c a9 20 24 63 6f 64 65 25 0d 04 |,,,-1,. $code%..|
00001160 b0 06 20 cd 0d 04 ba 05 cd 0d 04 c4 23 e7 20 41 |.. .........#. A|
00001170 25 3e 2d 31 3a c8 99 20 22 57 69 6d 70 5f 50 72 |%>-1:.. "Wimp_Pr|
00001180 6f 63 65 73 73 4b 65 79 22 2c 41 25 0d 04 ce 05 |ocessKey",A%....|
00001190 e1 0d 04 d8 04 0d 04 e2 24 dd 20 f2 6d 6f 75 73 |........$. .mous|
000011a0 65 28 78 25 2c 79 25 2c 62 25 2c 77 69 6e 64 6f |e(x%,y%,b%,windo|
000011b0 77 25 2c 69 63 6f 6e 25 29 0d 04 ec 0d 7a 25 3d |w%,icon%)....z%=|
000011c0 62 25 20 80 20 31 0d 04 f6 0e e7 20 62 25 20 80 |b% . 1..... b% .|
000011d0 20 32 20 8c 0d 05 00 11 20 c8 8e 20 77 69 6e 64 | 2 ..... .. wind|
000011e0 6f 77 25 20 ca 0d 05 0a 39 20 c9 20 2d 32 3a 6d |ow% ....9 . -2:m|
000011f0 78 25 3d 78 25 2d 6d 65 6e 75 78 25 3a 6d 79 25 |x%=x%-menux%:my%|
00001200 3d 6d 65 6e 75 79 25 3a f2 6d 6b 6d 65 6e 75 28 |=menuy%:.mkmenu(|
00001210 6d 65 6e 75 25 2c 6d 78 25 2c 6d 79 25 29 0d 05 |menu%,mx%,my%)..|
00001220 14 2e 20 c9 20 6d 69 6e 64 74 72 61 70 25 3a 24 |.. . mindtrap%:$|
00001230 74 6d 6f 76 73 74 72 25 3d c3 20 74 6f 74 6d 76 |tmovstr%=. totmv|
00001240 73 25 3a 41 25 3d 30 3a 42 25 3d 30 0d 05 1e 3a |s%:A%=0:B%=0...:|
00001250 20 20 e7 20 63 68 61 6e 67 65 64 25 3a c8 99 20 | . changed%:.. |
00001260 22 4f 53 5f 52 65 61 64 4d 6f 6e 6f 74 6f 6e 69 |"OS_ReadMonotoni|
00001270 63 54 69 6d 65 22 20 b8 20 41 25 3a 41 25 2d 3d |cTime" . A%:A%-=|
00001280 6d 74 69 6d 65 25 0d 05 28 89 20 20 41 25 2b 3d |mtime%..(. A%+=|
00001290 74 6f 74 74 6d 65 25 3a 24 74 74 6d 65 73 74 72 |tottme%:$ttmestr|
000012a0 25 3d c2 22 30 22 2b c3 28 41 25 20 81 20 33 36 |%=."0"+.(A% . 36|
000012b0 45 34 29 2c 32 29 2b 22 3a 22 2b c2 22 30 22 2b |E4),2)+":"+."0"+|
000012c0 c3 28 28 41 25 20 83 20 33 36 45 34 29 20 81 20 |.((A% . 36E4) . |
000012d0 36 45 33 29 2c 32 29 2b 22 3a 22 2b c2 22 30 22 |6E3),2)+":"+."0"|
000012e0 2b c3 28 28 41 25 20 83 20 36 45 33 29 20 81 20 |+.((A% . 6E3) . |
000012f0 31 30 30 29 2c 32 29 2b 22 2e 22 2b c2 22 30 22 |100),2)+"."+."0"|
00001300 2b c3 28 41 25 20 81 20 31 30 30 29 2c 32 29 0d |+.(A% . 100),2).|
00001310 05 32 2e 20 20 c8 99 20 22 57 69 6d 70 5f 43 72 |.2. .. "Wimp_Cr|
00001320 65 61 74 65 4d 65 6e 75 22 2c 2c 73 74 61 74 73 |eateMenu",,stats|
00001330 25 2c 78 25 2d 33 32 2c 79 25 2b 33 32 0d 05 3c |%,x%-32,y%+32..<|
00001340 06 20 cb 0d 05 46 05 cc 0d 05 50 11 20 c8 8e 20 |. ...F....P. .. |
00001350 77 69 6e 64 6f 77 25 20 ca 0d 05 5a 09 20 c9 20 |window% ...Z. . |
00001360 2d 32 0d 05 64 12 20 20 e7 20 6e 61 6d 65 24 3d |-2..d. . name$=|
00001370 22 22 20 8c 0d 05 6e 27 20 20 20 f2 6f 70 65 6e |"" ...n' .open|
00001380 73 67 61 6d 65 28 31 2b 7a 25 2c 78 25 2d 77 64 |sgame(1+z%,x%-wd|
00001390 25 2f 32 2c 39 36 2b 68 74 25 29 0d 05 78 4b 20 |%/2,96+ht%)..xK |
000013a0 20 cc 20 21 71 25 3d 6d 69 6e 64 74 72 61 70 25 | . !q%=mindtrap%|
000013b0 3a c8 99 20 22 57 69 6d 70 5f 47 65 74 57 69 6e |:.. "Wimp_GetWin|
000013c0 64 6f 77 53 74 61 74 65 22 2c 2c 71 25 3a c8 99 |dowState",,q%:..|
000013d0 20 22 57 69 6d 70 5f 4f 70 65 6e 57 69 6e 64 6f | "Wimp_OpenWindo|
000013e0 77 22 2c 2c 71 25 0d 05 82 38 20 20 20 c8 99 20 |w",,q%...8 .. |
000013f0 22 4f 53 5f 52 65 61 64 4d 6f 6e 6f 74 6f 6e 69 |"OS_ReadMonotoni|
00001400 63 54 69 6d 65 22 20 b8 20 6d 74 69 6d 65 25 3a |cTime" . mtime%:|
00001410 6d 74 69 6d 65 25 2d 3d 63 6c 6f 73 65 25 0d 05 |mtime%-=close%..|
00001420 8c 07 20 20 cd 0d 05 96 23 20 c9 20 6d 69 6e 64 |.. ....# . mind|
00001430 74 72 61 70 25 3a f2 6d 6f 76 65 28 69 63 6f 6e |trap%:.move(icon|
00001440 25 2d 32 34 2c 7a 25 29 0d 05 a0 26 20 c9 20 71 |%-24,z%)...& . q|
00001450 75 69 74 77 25 3a e7 20 69 63 6f 6e 25 3a 72 73 |uitw%:. icon%:rs|
00001460 74 25 3d a3 3a 8b 20 65 78 69 74 25 3d 31 0d 05 |t%=.:. exit%=1..|
00001470 aa 1e 20 20 c8 99 20 22 57 69 6d 70 5f 43 72 65 |.. .. "Wimp_Cre|
00001480 61 74 65 4d 65 6e 75 22 2c 2c 2d 31 0d 05 b4 2e |ateMenu",,-1....|
00001490 20 c9 20 73 74 61 72 74 67 61 6d 65 25 3a ee 20 | . startgame%:. |
000014a0 73 67 61 6d 65 25 20 f2 6e 65 77 67 61 6d 65 2c |sgame% .newgame,|
000014b0 f2 6f 6c 64 67 61 6d 65 20 8b 0d 05 be 26 20 c9 |.oldgame ....& .|
000014c0 20 73 74 61 74 73 25 3a c8 99 20 22 57 69 6d 70 | stats%:.. "Wimp|
000014d0 5f 43 72 65 61 74 65 4d 65 6e 75 22 2c 2c 2d 31 |_CreateMenu",,-1|
000014e0 0d 05 c8 06 20 cb 0d 05 d2 05 cd 0d 05 dc 05 e1 |.... ...........|
000014f0 0d 05 e6 04 0d 05 f0 0e dd 20 f2 6e 65 77 67 61 |......... .newga|
00001500 6d 65 0d 05 fa 1a e7 20 24 6e 61 6d 65 25 3d 22 |me..... $name%="|
00001510 22 3a f2 62 61 64 6e 61 6d 65 3a e1 0d 06 04 47 |":.badname:....G|
00001520 c8 99 20 22 48 6f 75 72 67 6c 61 73 73 5f 4f 6e |.. "Hourglass_On|
00001530 22 3a 6e 61 6d 65 24 3d 24 6e 61 6d 65 25 3a 74 |":name$=$name%:t|
00001540 6f 74 6d 76 73 25 3d 30 3a 74 6f 74 74 6d 65 25 |otmvs%=0:tottme%|
00001550 3d 30 3a 6c 61 79 65 72 73 25 3d 31 3a 6d 61 70 |=0:layers%=1:map|
00001560 25 3d 30 0d 06 0e 28 6d 6f 76 65 64 25 3d a3 3a |%=0...(moved%=.:|
00001570 6c 70 74 72 25 3d 93 3a 6c 61 79 65 72 25 3d 30 |lptr%=.:layer%=0|
00001580 3a f2 69 6e 69 74 6c 65 76 65 6c 0d 06 18 37 21 |:.initlevel...7!|
00001590 71 25 3d 6d 69 6e 64 74 72 61 70 25 3a c8 99 20 |q%=mindtrap%:.. |
000015a0 22 57 69 6d 70 5f 47 65 74 57 69 6e 64 6f 77 53 |"Wimp_GetWindowS|
000015b0 74 61 74 65 22 2c 2c 71 25 3a 71 25 21 32 38 3d |tate",,q%:q%!28=|
000015c0 2d 31 0d 06 22 4e c8 99 20 22 57 69 6d 70 5f 4f |-1.."N.. "Wimp_O|
000015d0 70 65 6e 57 69 6e 64 6f 77 22 2c 2c 71 25 3a 21 |penWindow",,q%:!|
000015e0 71 25 3d 73 74 61 72 74 67 61 6d 65 25 3a c8 99 |q%=startgame%:..|
000015f0 20 22 57 69 6d 70 5f 43 6c 6f 73 65 57 69 6e 64 | "Wimp_CloseWind|
00001600 6f 77 22 2c 2c 71 25 3a 63 6c 6f 73 65 25 3d 30 |ow",,q%:close%=0|
00001610 0d 06 2c 16 c8 99 20 22 48 6f 75 72 67 6c 61 73 |..,... "Hourglas|
00001620 73 5f 4f 66 66 22 0d 06 36 05 e1 0d 06 40 04 0d |s_Off"..6....@..|
00001630 06 4a 0e dd 20 f2 6f 6c 64 67 61 6d 65 0d 06 54 |.J.. .oldgame..T|
00001640 1a e7 20 24 6e 61 6d 65 25 3d 22 22 3a f2 62 61 |.. $name%="":.ba|
00001650 64 6e 61 6d 65 3a e1 0d 06 5e 1a e7 20 24 63 6f |dname:...^.. $co|
00001660 64 65 25 3d 22 22 3a f2 6e 65 77 67 61 6d 65 3a |de%="":.newgame:|
00001670 e1 0d 06 68 3c e7 20 a9 20 24 63 6f 64 65 25 3c |...h<. . $code%<|
00001680 3e 32 30 3a f2 6d 73 67 28 22 43 6f 64 65 20 6d |>20:.msg("Code m|
00001690 75 73 74 20 62 65 20 32 30 20 63 68 61 72 61 63 |ust be 20 charac|
000016a0 74 65 72 73 20 6c 6f 6e 67 22 29 3a e1 0d 06 72 |ters long"):...r|
000016b0 08 5a 25 3d b9 0d 06 7c 0f e3 20 6e 25 3d 30 20 |.Z%=...|.. n%=0 |
000016c0 b8 20 31 39 0d 06 86 37 20 41 25 3d 63 6f 64 65 |. 19...7 A%=code|
000016d0 25 3f 6e 25 3a e7 20 41 25 3c 34 38 20 84 20 28 |%?n%:. A%<48 . (|
000016e0 41 25 3e 35 37 20 80 20 41 25 3c 36 35 29 20 84 |A%>57 . A%<65) .|
000016f0 20 41 25 3e 39 30 3a 5a 25 3d a3 0d 06 90 05 ed | A%>90:Z%=......|
00001700 0d 06 9a 34 e7 20 5a 25 20 8b 20 f2 6d 73 67 28 |...4. Z% . .msg(|
00001710 22 49 6e 76 61 6c 69 64 20 63 68 61 72 61 63 74 |"Invalid charact|
00001720 65 72 20 66 6f 75 6e 64 20 69 6e 20 63 6f 64 65 |er found in code|
00001730 22 29 3a e1 0d 06 a4 2a c8 99 20 22 48 6f 75 72 |"):....*.. "Hour|
00001740 67 6c 61 73 73 5f 4f 6e 22 3a 61 24 3d 24 6e 61 |glass_On":a$=$na|
00001750 6d 65 25 3a 24 71 25 3d 24 63 6f 64 65 25 0d 06 |me%:$q%=$code%..|
00001760 ae 07 ea 20 85 0d 06 b8 24 ee 20 85 20 ea 20 f7 |... ....$. . . .|
00001770 20 85 3a f2 6d 73 67 28 22 49 6e 76 61 6c 69 64 | .:.msg("Invalid|
00001780 20 63 6f 64 65 22 29 3a e1 0d 06 c2 2f 24 28 71 | code"):..../$(q|
00001790 25 2b 32 31 29 3d 61 24 3a c8 95 20 a9 20 24 28 |%+21)=a$:.. . $(|
000017a0 71 25 2b 32 31 29 3c 32 30 3a 24 28 71 25 2b 32 |q%+21)<20:$(q%+2|
000017b0 31 29 2b 3d 61 24 3a ce 0d 06 cc 28 e3 20 6e 25 |1)+=a$:....(. n%|
000017c0 3d 30 20 b8 20 31 39 3a 71 25 3f 6e 25 2d 3d 34 |=0 . 19:q%?n%-=4|
000017d0 38 2d 37 2a 28 71 25 3f 6e 25 3e 35 37 29 3a ed |8-7*(q%?n%>57):.|
000017e0 0d 06 d6 3f e3 20 6e 25 3d 30 20 b8 20 31 39 3a |...?. n%=0 . 19:|
000017f0 71 25 3f 6e 25 3d 28 71 25 3f 6e 25 2b 32 38 38 |q%?n%=(q%?n%+288|
00001800 2d 28 71 25 3f 28 6e 25 2b 32 31 29 20 82 20 3f |-(q%?(n%+21) . ?|
00001810 28 90 2b 6e 25 29 29 29 20 83 20 33 36 3a ed 0d |(.+n%))) . 36:..|
00001820 06 e0 36 41 25 3d 3f 71 25 3a 42 25 3d a4 76 61 |..6A%=?q%:B%=.va|
00001830 6c 28 31 2c 33 29 3a 43 25 3d a4 76 61 6c 28 34 |l(1,3):C%=.val(4|
00001840 2c 36 29 3a 44 25 3d a4 76 61 6c 28 31 30 2c 36 |,6):D%=.val(10,6|
00001850 29 3a f7 20 85 0d 06 ea 2b e7 20 41 25 3e 33 31 |):. ....+. A%>31|
00001860 20 84 20 42 25 3e 39 39 39 3a f2 6d 73 67 28 22 | . B%>999:.msg("|
00001870 49 6e 76 61 6c 69 64 20 63 6f 64 65 22 29 3a e1 |Invalid code"):.|
00001880 0d 06 f4 40 e7 20 28 41 25 2b 42 25 2b 43 25 2b |...@. (A%+B%+C%+|
00001890 44 25 29 20 83 20 31 36 37 39 36 31 36 3c 3e a4 |D%) . 1679616<>.|
000018a0 76 61 6c 28 31 36 2c 34 29 3a f2 6d 73 67 28 22 |val(16,4):.msg("|
000018b0 49 6e 76 61 6c 69 64 20 63 6f 64 65 22 29 3a e1 |Invalid code"):.|
000018c0 0d 06 fe 35 6d 61 70 25 3d 41 25 3a 6c 61 79 65 |...5map%=A%:laye|
000018d0 72 73 25 3d 42 25 3a 74 6f 74 6d 76 73 25 3d 43 |rs%=B%:totmvs%=C|
000018e0 25 3a 74 6f 74 74 6d 65 25 3d 44 25 3a 6e 61 6d |%:tottme%=D%:nam|
000018f0 65 24 3d 61 24 0d 07 08 36 6d 6f 76 65 64 25 3d |e$=a$...6moved%=|
00001900 a3 3a 6c 70 74 72 25 3d 93 3a 6c 61 79 65 72 25 |.:lptr%=.:layer%|
00001910 3d 30 3a f2 69 6e 69 74 6c 65 76 65 6c 3a 21 71 |=0:.initlevel:!q|
00001920 25 3d 6d 69 6e 64 74 72 61 70 25 0d 07 12 4b c8 |%=mindtrap%...K.|
00001930 99 20 22 57 69 6d 70 5f 47 65 74 57 69 6e 64 6f |. "Wimp_GetWindo|
00001940 77 53 74 61 74 65 22 2c 2c 71 25 3a 71 25 21 32 |wState",,q%:q%!2|
00001950 38 3d 2d 31 3a c8 99 20 22 57 69 6d 70 5f 4f 70 |8=-1:.. "Wimp_Op|
00001960 65 6e 57 69 6e 64 6f 77 22 2c 2c 71 25 3a 63 6c |enWindow",,q%:cl|
00001970 6f 73 65 25 3d 30 0d 07 1c 2f c8 99 20 22 57 69 |ose%=0.../.. "Wi|
00001980 6d 70 5f 43 72 65 61 74 65 4d 65 6e 75 22 2c 2c |mp_CreateMenu",,|
00001990 2d 31 3a c8 99 20 22 48 6f 75 72 67 6c 61 73 73 |-1:.. "Hourglass|
000019a0 5f 4f 66 66 22 0d 07 26 05 e1 0d 07 30 04 0d 07 |_Off"..&....0...|
000019b0 3a 11 dd 20 a4 76 61 6c 28 50 25 2c 4c 25 29 0d |:.. .val(P%,L%).|
000019c0 07 44 1f ea 20 52 25 2c 76 25 3a 76 25 3d 33 36 |.D.. R%,v%:v%=36|
000019d0 5e 28 4c 25 2d 31 29 3a 50 25 2b 3d 71 25 0d 07 |^(L%-1):P%+=q%..|
000019e0 4e 2c f5 20 52 25 2b 3d 3f 50 25 2a 76 25 3a 50 |N,. R%+=?P%*v%:P|
000019f0 25 2b 3d 31 3a 76 25 3d 76 25 2f 33 36 3a 4c 25 |%+=1:v%=v%/36:L%|
00001a00 2d 3d 31 3a fd 20 4c 25 3d 30 0d 07 58 07 3d 52 |-=1:. L%=0..X.=R|
00001a10 25 0d 07 62 04 0d 07 6c 0e dd 20 f2 62 61 64 6e |%..b...l.. .badn|
00001a20 61 6d 65 0d 07 76 1d f2 6d 73 67 28 22 48 61 76 |ame..v..msg("Hav|
00001a30 65 20 79 6f 75 20 6e 6f 20 6e 61 6d 65 3f 22 29 |e you no name?")|
00001a40 0d 07 80 05 e1 0d 07 8a 04 0d 07 94 13 dd 20 f2 |.............. .|
00001a50 6d 73 67 28 24 28 71 25 2b 34 29 29 0d 07 9e 2f |msg($(q%+4)).../|
00001a60 ea 20 21 71 25 3a c8 99 20 22 57 69 6d 70 5f 52 |. !q%:.. "Wimp_R|
00001a70 65 70 6f 72 74 45 72 72 6f 72 22 2c 71 25 2c 31 |eportError",q%,1|
00001a80 2c 22 4d 69 6e 64 74 72 61 70 22 0d 07 a8 05 e1 |,"Mindtrap".....|
00001a90 0d 07 b2 04 0d 07 bc 10 dd 20 f2 69 6e 69 74 6c |......... .initl|
00001aa0 65 76 65 6c 0d 07 c6 32 f2 63 6c 61 69 6d 28 32 |evel...2.claim(2|
00001ab0 34 2a 6c 61 79 65 72 73 25 29 3a e3 20 6e 25 3d |4*layers%):. n%=|
00001ac0 30 20 b8 20 32 33 20 88 20 34 3a 21 28 93 2b 6e |0 . 23 . 4:!(.+n|
00001ad0 25 29 3d 30 3a ed 0d 07 d0 35 21 71 25 3d 6d 69 |%)=0:....5!q%=mi|
00001ae0 6e 64 74 72 61 70 25 3a 71 25 21 34 3d 32 34 3a |ndtrap%:q%!4=24:|
00001af0 71 25 21 31 32 3d 31 3c 3c 32 33 3a 6e 25 3d 93 |q%!12=1<<23:n%=.|
00001b00 3a 63 68 61 6e 67 65 64 25 3d a3 0d 07 da 0e e3 |:changed%=......|
00001b10 20 79 25 3d 30 20 b8 20 32 0d 07 e4 0f 20 e3 20 | y%=0 . 2.... . |
00001b20 78 25 3d 30 20 b8 20 34 0d 07 ee 26 20 20 e7 20 |x%=0 . 4...& . |
00001b30 97 20 c1 6d 61 70 24 28 6d 61 70 25 29 2c 79 25 |. .map$(map%),y%|
00001b40 2a 35 2b 78 25 2b 31 29 20 80 20 31 20 8c 0d 07 |*5+x%+1) . 1 ...|
00001b50 f8 34 20 20 20 3f 6e 25 3d 78 25 2b 31 3a 6e 25 |.4 ?n%=x%+1:n%|
00001b60 3f 31 3d 78 25 2b 32 3a 6e 25 3f 36 3d 78 25 2b |?1=x%+2:n%?6=x%+|
00001b70 31 3a 6e 25 3f 37 3d 78 25 2b 32 3a 71 25 21 38 |1:n%?7=x%+2:q%!8|
00001b80 3d 30 0d 08 02 12 20 20 cc 20 71 25 21 38 3d 31 |=0.... . q%!8=1|
00001b90 3c 3c 32 33 0d 08 0c 07 20 20 cd 0d 08 16 2e 20 |<<23.... ..... |
00001ba0 20 c8 99 20 22 57 69 6d 70 5f 53 65 74 49 63 6f | .. "Wimp_SetIco|
00001bb0 6e 53 74 61 74 65 22 2c 2c 71 25 3a 71 25 21 34 |nState",,q%:q%!4|
00001bc0 2b 3d 31 3a 6e 25 2b 3d 31 0d 08 20 06 20 ed 0d |+=1:n%+=1.. . ..|
00001bd0 08 2a 0a 20 6e 25 2b 3d 31 0d 08 34 05 ed 0d 08 |.*. n%+=1..4....|
00001be0 3e 32 41 25 3d b3 28 2d 91 29 3a 41 25 3d 93 3a |>2A%=.(-.):A%=.:|
00001bf0 53 25 3d 30 3a e3 20 6e 25 3d 30 20 b8 20 32 33 |S%=0:. n%=0 . 23|
00001c00 3a 53 25 2d 3d 28 41 25 3f 6e 25 3e 30 29 3a ed |:S%-=(A%?n%>0):.|
00001c10 0d 08 48 38 e7 20 6c 61 79 65 72 73 25 3e 31 3a |..H8. layers%>1:|
00001c20 e3 20 6e 25 3d 93 20 b8 20 93 2b 6c 61 79 65 72 |. n%=. . .+layer|
00001c30 73 25 2a 32 34 2d 32 35 20 88 20 34 3a 6e 25 21 |s%*24-25 . 4:n%!|
00001c40 32 34 3d 21 6e 25 3a ed 0d 08 52 19 e3 20 6e 25 |24=!n%:...R.. n%|
00001c50 3d 30 20 b8 20 6c 61 79 65 72 73 25 2a 32 34 2d |=0 . layers%*24-|
00001c60 31 0d 08 5c 0e 20 e7 20 41 25 3f 6e 25 20 8c 0d |1..\. . A%?n% ..|
00001c70 08 66 29 20 20 f5 20 42 25 3d b3 28 53 25 29 2d |.f) . B%=.(S%)-|
00001c80 31 3a fd 20 41 25 3f 42 25 3a c8 94 20 41 25 3f |1:. A%?B%:.. A%?|
00001c90 6e 25 2c 41 25 3f 42 25 0d 08 70 06 20 cd 0d 08 |n%,A%?B%..p. ...|
00001ca0 7a 05 ed 0d 08 84 18 e7 20 6d 61 70 25 20 84 20 |z....... map% . |
00001cb0 6c 61 79 65 72 73 25 3e 31 20 8c 0d 08 8e 71 20 |layers%>1 ....q |
00001cc0 24 71 25 3d a4 33 36 28 6d 61 70 25 2c 31 29 2b |$q%=.36(map%,1)+|
00001cd0 a4 33 36 28 6c 61 79 65 72 73 25 2c 33 29 2b a4 |.36(layers%,3)+.|
00001ce0 33 36 28 74 6f 74 6d 76 73 25 2c 36 29 2b a4 33 |36(totmvs%,6)+.3|
00001cf0 36 28 74 6f 74 74 6d 65 25 2c 36 29 2b a4 33 36 |6(tottme%,6)+.36|
00001d00 28 28 6d 61 70 25 2b 6c 61 79 65 72 73 25 2b 74 |((map%+layers%+t|
00001d10 6f 74 6d 76 73 25 2b 74 6f 74 74 6d 65 25 29 20 |otmvs%+tottme%) |
00001d20 83 20 31 36 37 39 36 31 36 2c 34 29 0d 08 98 36 |. 1679616,4)...6|
00001d30 20 24 28 71 25 2b 32 31 29 3d 6e 61 6d 65 24 3a | $(q%+21)=name$:|
00001d40 c8 95 20 a9 20 24 28 71 25 2b 32 31 29 3c 32 30 |.. . $(q%+21)<20|
00001d50 3a 24 28 71 25 2b 32 31 29 2b 3d 6e 61 6d 65 24 |:$(q%+21)+=name$|
00001d60 3a ce 0d 08 a2 3c 20 e3 20 6e 25 3d 30 20 b8 20 |:....< . n%=0 . |
00001d70 31 39 3a 71 25 3f 6e 25 3d 28 71 25 3f 6e 25 2b |19:q%?n%=(q%?n%+|
00001d80 28 71 25 3f 28 6e 25 2b 32 31 29 20 82 20 3f 28 |(q%?(n%+21) . ?(|
00001d90 90 2b 6e 25 29 29 29 20 83 20 33 36 3a ed 0d 08 |.+n%))) . 36:...|
00001da0 ac 32 20 e3 20 6e 25 3d 30 20 b8 20 31 39 3a 71 |.2 . n%=0 . 19:q|
00001db0 25 3f 6e 25 2b 3d 34 38 2d 37 2a 28 71 25 3f 6e |%?n%+=48-7*(q%?n|
00001dc0 25 3e 39 29 3a ed 3a 6c 63 6f 64 65 24 3d 22 22 |%>9):.:lcode$=""|
00001dd0 0d 08 b6 22 20 e3 20 6e 25 3d 30 20 b8 20 31 39 |..." . n%=0 . 19|
00001de0 3a 6c 63 6f 64 65 24 2b 3d bd 20 71 25 3f 6e 25 |:lcode$+=. q%?n%|
00001df0 3a ed 0d 08 c0 15 cc 20 6c 63 6f 64 65 24 3d 22 |:...... lcode$="|
00001e00 3c 4e 6f 6e 65 3e 22 0d 08 ca 05 cd 0d 08 d4 43 |<None>"........C|
00001e10 6d 6f 76 65 73 25 3d 53 25 2a 35 2a 6c 61 79 65 |moves%=S%*5*laye|
00001e20 72 73 25 3a f2 64 72 61 77 6c 61 79 65 72 3a 24 |rs%:.drawlayer:$|
00001e30 6d 6f 76 73 74 72 25 3d c3 20 6d 6f 76 65 73 25 |movstr%=. moves%|
00001e40 3a 24 6c 63 6f 64 65 25 3d 6c 63 6f 64 65 24 0d |:$lcode%=lcode$.|
00001e50 08 de 4b 21 71 25 3d 6d 69 6e 64 74 72 61 70 25 |..K!q%=mindtrap%|
00001e60 3a 71 25 21 34 3d 34 30 3a 71 25 21 38 3d 30 3a |:q%!4=40:q%!8=0:|
00001e70 71 25 21 31 32 3d 30 3a c8 99 20 22 57 69 6d 70 |q%!12=0:.. "Wimp|
00001e80 5f 53 65 74 49 63 6f 6e 53 74 61 74 65 22 2c 2c |_SetIconState",,|
00001e90 71 25 3a 71 25 21 34 3d 34 36 0d 08 e8 41 c8 99 |q%:q%!4=46...A..|
00001ea0 20 22 57 69 6d 70 5f 53 65 74 49 63 6f 6e 53 74 | "Wimp_SetIconSt|
00001eb0 61 74 65 22 2c 2c 71 25 3a 71 25 21 38 3d 31 3c |ate",,q%:q%!8=1<|
00001ec0 3c 32 32 20 80 20 6c 61 79 65 72 73 25 3d 31 3a |<22 . layers%=1:|
00001ed0 71 25 21 31 32 3d 31 3c 3c 32 32 0d 08 f2 49 71 |q%!12=1<<22...Iq|
00001ee0 25 21 34 3d 34 33 3a c8 99 20 22 57 69 6d 70 5f |%!4=43:.. "Wimp_|
00001ef0 53 65 74 49 63 6f 6e 53 74 61 74 65 22 2c 2c 71 |SetIconState",,q|
00001f00 25 3a 71 25 21 34 3d 34 34 3a c8 99 20 22 57 69 |%:q%!4=44:.. "Wi|
00001f10 6d 70 5f 53 65 74 49 63 6f 6e 53 74 61 74 65 22 |mp_SetIconState"|
00001f20 2c 2c 71 25 0d 08 fc 26 c8 99 20 22 4f 53 5f 52 |,,q%...&.. "OS_R|
00001f30 65 61 64 4d 6f 6e 6f 74 6f 6e 69 63 54 69 6d 65 |eadMonotonicTime|
00001f40 22 20 b8 20 6d 74 69 6d 65 25 0d 09 06 05 e1 0d |" . mtime%......|
00001f50 09 10 04 0d 09 1a 10 dd 20 a4 33 36 28 6e 25 2c |........ .36(n%,|
00001f60 70 25 29 0d 09 24 18 ea 20 61 24 2c 76 25 3a 76 |p%)..$.. a$,v%:v|
00001f70 25 3d 33 36 5e 28 70 25 2d 31 29 0d 09 2e 36 f5 |%=36^(p%-1)...6.|
00001f80 20 61 24 2b 3d bd 20 28 6e 25 20 81 20 76 25 29 | a$+=. (n% . v%)|
00001f90 3a 6e 25 3d 6e 25 20 83 20 76 25 3a 76 25 3d 76 |:n%=n% . v%:v%=v|
00001fa0 25 2f 33 36 3a 70 25 2d 3d 31 3a fd 20 70 25 3d |%/36:p%-=1:. p%=|
00001fb0 30 0d 09 38 07 3d 61 24 0d 09 42 04 0d 09 4c 10 |0..8.=a$..B...L.|
00001fc0 dd 20 f2 64 72 61 77 6c 61 79 65 72 0d 09 56 3c |. .drawlayer..V<|
00001fd0 e3 20 6e 25 3d 30 20 b8 20 32 33 3a 24 28 64 69 |. n%=0 . 23:$(di|
00001fe0 63 65 25 2b 6e 25 2a 32 29 3d c3 20 6e 25 3f 6c |ce%+n%*2)=. n%?l|
00001ff0 70 74 72 25 3a ed 3a 24 6c 79 72 73 74 72 25 3d |ptr%:.:$lyrstr%=|
00002000 c3 20 6c 61 79 65 72 25 0d 09 60 43 21 71 25 3d |. layer%..`C!q%=|
00002010 6d 69 6e 64 74 72 61 70 25 3a 71 25 21 34 3d 34 |mindtrap%:q%!4=4|
00002020 32 3a 71 25 21 38 3d 30 3a 71 25 21 31 32 3d 30 |2:q%!8=0:q%!12=0|
00002030 3a c8 99 20 22 57 69 6d 70 5f 53 65 74 49 63 6f |:.. "Wimp_SetIco|
00002040 6e 53 74 61 74 65 22 2c 2c 71 25 0d 09 6a 30 c8 |nState",,q%..j0.|
00002050 99 20 22 57 69 6d 70 5f 46 6f 72 63 65 52 65 64 |. "Wimp_ForceRed|
00002060 72 61 77 22 2c 6d 69 6e 64 74 72 61 70 25 2c 30 |raw",mindtrap%,0|
00002070 2c 2d 33 36 30 2c 31 45 36 2c 30 0d 09 74 05 e1 |,-360,1E6,0..t..|
00002080 0d 09 7e 04 0d 09 88 17 dd 20 f2 72 65 64 72 61 |..~...... .redra|
00002090 77 28 69 63 6f 6e 25 2c 76 25 29 0d 09 92 24 e7 |w(icon%,v%)...$.|
000020a0 20 69 63 6f 6e 25 3c 32 34 3a 24 28 64 69 63 65 | icon%<24:$(dice|
000020b0 25 2b 69 63 6f 6e 25 2a 32 29 3d c3 20 76 25 0d |%+icon%*2)=. v%.|
000020c0 09 9c 46 21 71 25 3d 6d 69 6e 64 74 72 61 70 25 |..F!q%=mindtrap%|
000020d0 3a 71 25 21 34 3d 69 63 6f 6e 25 3a 71 25 21 38 |:q%!4=icon%:q%!8|
000020e0 3d 30 3a 71 25 21 31 32 3d 30 3a c8 99 20 22 57 |=0:q%!12=0:.. "W|
000020f0 69 6d 70 5f 53 65 74 49 63 6f 6e 53 74 61 74 65 |imp_SetIconState|
00002100 22 2c 2c 71 25 0d 09 a6 05 e1 0d 09 b0 04 0d 09 |",,q%...........|
00002110 ba 10 dd 20 f2 63 6c 61 69 6d 28 58 25 29 0d 09 |... .claim(X%)..|
00002120 c4 24 c8 99 20 22 57 69 6d 70 5f 53 6c 6f 74 53 |.$.. "Wimp_SlotS|
00002130 69 7a 65 22 2c 93 2b 58 25 2d 26 38 30 30 30 2c |ize",.+X%-&8000,|
00002140 2d 31 0d 09 ce 05 e1 0d 09 d8 04 0d 09 e2 0c dd |-1..............|
00002150 20 f2 65 72 72 6f 72 0d 09 ec 18 c8 99 20 22 58 | .error...... "X|
00002160 57 69 6d 70 5f 43 6c 6f 73 65 44 6f 77 6e 22 0d |Wimp_CloseDown".|
00002170 09 f6 1c 85 20 a2 20 9f 2c f6 24 2b 22 20 61 74 |.... . .,.$+" at|
00002180 20 6c 69 6e 65 20 22 2b c3 20 9e 0d 0a 00 05 e1 | line "+. ......|
00002190 0d 0a 0a 04 0d 0a 14 12 dd 20 f2 6d 6f 76 65 28 |......... .move(|
000021a0 49 25 2c 44 25 29 0d 0a 1e 10 e7 20 6d 6f 76 65 |I%,D%)..... move|
000021b0 73 25 20 8b 20 e1 0d 0a 28 0a c8 8e 20 b9 20 ca |s% . ...(... . .|
000021c0 0d 0a 32 0b c9 20 49 25 3c 31 35 0d 0a 3c 29 20 |..2.. I%<15..<) |
000021d0 78 25 3d 49 25 20 83 20 35 3a 79 25 3d 49 25 20 |x%=I% . 5:y%=I% |
000021e0 81 20 35 3a 7a 25 3d 6c 70 74 72 25 2b 78 25 2b |. 5:z%=lptr%+x%+|
000021f0 79 25 2a 36 0d 0a 46 0c 20 e7 20 a6 2d 31 20 8c |y%*6..F. . .-1 .|
00002200 0d 0a 50 13 20 20 e7 20 6c 61 79 65 72 73 25 3e |..P. . layers%>|
00002210 31 20 8c 0d 0a 5a 0d 20 20 20 e7 20 44 25 20 8c |1 ...Z. . D% .|
00002220 0d 0a 64 27 20 20 20 20 6c 25 3d 6c 61 79 65 72 |..d' l%=layer|
00002230 25 2d 31 3a e7 20 6c 25 3c 30 3a 6c 25 3d 6c 61 |%-1:. l%<0:l%=la|
00002240 79 65 72 73 25 2d 31 0d 0a 6e 27 20 20 20 cc 20 |yers%-1..n' . |
00002250 6c 25 3d 6c 61 79 65 72 25 2b 31 3a e7 20 6c 25 |l%=layer%+1:. l%|
00002260 3e 3d 6c 61 79 65 72 73 25 3a 6c 25 3d 30 0d 0a |>=layers%:l%=0..|
00002270 78 08 20 20 20 cd 0d 0a 82 3e 20 20 20 41 25 3d |x. ....> A%=|
00002280 93 2b 6c 25 2a 32 34 2b 78 25 2b 79 25 2a 36 3a |.+l%*24+x%+y%*6:|
00002290 c8 94 20 3f 7a 25 2c 3f 41 25 3a c8 94 20 7a 25 |.. ?z%,?A%:.. z%|
000022a0 3f 31 2c 41 25 3f 31 3a c8 94 20 7a 25 3f 36 2c |?1,A%?1:.. z%?6,|
000022b0 41 25 3f 36 0d 0a 8c 3f 20 20 20 c8 94 20 7a 25 |A%?6...? .. z%|
000022c0 3f 37 2c 41 25 3f 37 3a 78 25 2b 3d 79 25 2a 36 |?7,A%?7:x%+=y%*6|
000022d0 3a f2 72 65 64 72 61 77 28 78 25 2c 3f 7a 25 29 |:.redraw(x%,?z%)|
000022e0 3a f2 72 65 64 72 61 77 28 78 25 2b 31 2c 7a 25 |:.redraw(x%+1,z%|
000022f0 3f 31 29 0d 0a 96 33 20 20 20 f2 72 65 64 72 61 |?1)...3 .redra|
00002300 77 28 78 25 2b 36 2c 7a 25 3f 36 29 3a f2 72 65 |w(x%+6,z%?6):.re|
00002310 64 72 61 77 28 78 25 2b 37 2c 7a 25 3f 37 29 3a |draw(x%+7,z%?7):|
00002320 f2 6d 6f 76 65 64 0d 0a a0 07 20 20 cd 0d 0a aa |.moved.... ....|
00002330 06 20 cc 0d 0a b4 0c 20 20 e7 20 44 25 20 8c 0d |. ..... . D% ..|
00002340 0a be 32 20 20 20 41 25 3d 3f 7a 25 3a 3f 7a 25 |..2 A%=?z%:?z%|
00002350 3d 7a 25 3f 36 3a 7a 25 3f 36 3d 7a 25 3f 37 3a |=z%?6:z%?6=z%?7:|
00002360 7a 25 3f 37 3d 7a 25 3f 31 3a 7a 25 3f 31 3d 41 |z%?7=z%?1:z%?1=A|
00002370 25 0d 0a c8 33 20 20 cc 20 41 25 3d 3f 7a 25 3a |%...3 . A%=?z%:|
00002380 3f 7a 25 3d 7a 25 3f 31 3a 7a 25 3f 31 3d 7a 25 |?z%=z%?1:z%?1=z%|
00002390 3f 37 3a 7a 25 3f 37 3d 7a 25 3f 36 3a 7a 25 3f |?7:z%?7=z%?6:z%?|
000023a0 36 3d 41 25 0d 0a d2 07 20 20 cd 0d 0a dc 11 20 |6=A%.... ..... |
000023b0 20 78 25 3d 7a 25 2d 6c 70 74 72 25 0d 0a e6 28 | x%=z%-lptr%...(|
000023c0 20 20 f2 72 65 64 72 61 77 28 78 25 2c 3f 7a 25 | .redraw(x%,?z%|
000023d0 29 3a f2 72 65 64 72 61 77 28 78 25 2b 31 2c 7a |):.redraw(x%+1,z|
000023e0 25 3f 31 29 0d 0a f0 32 20 20 f2 72 65 64 72 61 |%?1)...2 .redra|
000023f0 77 28 78 25 2b 36 2c 7a 25 3f 36 29 3a f2 72 65 |w(x%+6,z%?6):.re|
00002400 64 72 61 77 28 78 25 2b 37 2c 7a 25 3f 37 29 3a |draw(x%+7,z%?7):|
00002410 f2 6d 6f 76 65 64 0d 0a fa 06 20 cd 0d 0b 04 14 |.moved.... .....|
00002420 20 42 25 3d 93 3a 43 25 3d 6c 61 79 65 72 73 25 | B%=.:C%=layers%|
00002430 0d 0b 0e 14 20 e7 20 ba 20 63 6f 6d 70 6c 65 74 |.... . . complet|
00002440 65 64 20 8c 0d 0b 18 37 20 20 c8 99 20 22 4f 53 |ed ....7 .. "OS|
00002450 5f 52 65 61 64 4d 6f 6e 6f 74 6f 6e 69 63 54 69 |_ReadMonotonicTi|
00002460 6d 65 22 20 b8 20 41 25 3a 74 6f 74 74 6d 65 25 |me" . A%:tottme%|
00002470 2b 3d 41 25 2d 6d 74 69 6d 65 25 0d 0b 22 38 20 |+=A%-mtime%.."8 |
00002480 20 6d 61 70 25 3d 6d 61 70 25 2b 31 20 80 20 33 | map%=map%+1 . 3|
00002490 31 3a e7 20 6d 61 70 25 20 8b 20 e7 20 6c 61 79 |1:. map% . . lay|
000024a0 65 72 73 25 3c 39 39 39 3a 6c 61 79 65 72 73 25 |ers%<999:layers%|
000024b0 2b 3d 31 0d 0b 2c 10 20 20 f2 69 6e 69 74 6c 65 |+=1..,. .initle|
000024c0 76 65 6c 0d 0b 36 06 20 cd 0d 0b 40 33 c9 20 49 |vel..6. ...@3. I|
000024d0 25 3d 31 39 2b 44 25 3a 6c 61 79 65 72 25 2b 3d |%=19+D%:layer%+=|
000024e0 31 3a e7 20 6c 61 79 65 72 25 3e 3d 6c 61 79 65 |1:. layer%>=laye|
000024f0 72 73 25 3a 6c 61 79 65 72 25 3d 30 0d 0b 4a 21 |rs%:layer%=0..J!|
00002500 20 6c 70 74 72 25 3d 93 2b 6c 61 79 65 72 25 2a | lptr%=.+layer%*|
00002510 32 34 3a f2 64 72 61 77 6c 61 79 65 72 0d 0b 54 |24:.drawlayer..T|
00002520 34 c9 20 49 25 3d 32 30 2d 44 25 3a 6c 61 79 65 |4. I%=20-D%:laye|
00002530 72 25 2d 3d 31 3a e7 20 6c 61 79 65 72 25 3c 30 |r%-=1:. layer%<0|
00002540 3a 6c 61 79 65 72 25 3d 6c 61 79 65 72 73 25 2d |:layer%=layers%-|
00002550 31 0d 0b 5e 21 20 6c 70 74 72 25 3d 93 2b 6c 61 |1..^! lptr%=.+la|
00002560 79 65 72 25 2a 32 34 3a f2 64 72 61 77 6c 61 79 |yer%*24:.drawlay|
00002570 65 72 0d 0b 68 05 cb 0d 0b 72 05 e1 0d 0b 7c 04 |er..h....r....|.|
00002580 0d 0b 86 0c dd 20 f2 6d 6f 76 65 64 0d 0b 90 33 |..... .moved...3|
00002590 e7 20 63 68 61 6e 67 65 64 25 20 8b 20 c8 99 20 |. changed% . .. |
000025a0 22 4f 53 5f 52 65 61 64 4d 6f 6e 6f 74 6f 6e 69 |"OS_ReadMonotoni|
000025b0 63 54 69 6d 65 22 20 b8 20 6d 74 69 6d 65 25 0d |cTime" . mtime%.|
000025c0 0b 9a 47 6d 6f 76 65 73 25 2d 3d 31 3a 74 6f 74 |..Gmoves%-=1:tot|
000025d0 6d 76 73 25 2b 3d 31 3a 24 6d 6f 76 73 74 72 25 |mvs%+=1:$movstr%|
000025e0 3d c3 20 6d 6f 76 65 73 25 3a 21 71 25 3d 6d 69 |=. moves%:!q%=mi|
000025f0 6e 64 74 72 61 70 25 3a 71 25 21 34 3d 34 30 3a |ndtrap%:q%!4=40:|
00002600 71 25 21 38 3d 30 0d 0b a4 3a 71 25 21 31 32 3d |q%!8=0...:q%!12=|
00002610 30 3a c8 99 20 22 57 69 6d 70 5f 53 65 74 49 63 |0:.. "Wimp_SetIc|
00002620 6f 6e 53 74 61 74 65 22 2c 2c 71 25 3a 6d 6f 76 |onState",,q%:mov|
00002630 65 64 25 3d b9 3a 63 68 61 6e 67 65 64 25 3d b9 |ed%=.:changed%=.|
00002640 0d 0b ae 05 e1 0d 0b b8 04 0d 0b c2 0c dd 20 f2 |.............. .|
00002650 6d 63 6f 64 65 0d 0b cc 12 de 20 6d 63 25 20 36 |mcode..... mc% 6|
00002660 34 2c 4c 25 20 2d 31 0d 0b d6 13 e3 20 70 25 3d |4,L% -1..... p%=|
00002670 38 20 b8 20 31 30 20 88 20 32 0d 0b e0 12 50 25 |8 . 10 . 2....P%|
00002680 3d 6d 63 25 3a 5b 4f 50 54 20 70 25 0d 0b ea 26 |=mc%:[OPT p%...&|
00002690 2e 63 6f 6d 70 6c 65 74 65 64 20 4d 4f 56 20 30 |.completed MOV 0|
000026a0 2c 23 30 3a 4d 4f 56 20 32 2c 32 2c 4c 53 4c 20 |,#0:MOV 2,2,LSL |
000026b0 23 32 0d 0b f4 11 2e 72 6f 77 20 4d 4f 56 20 33 |#2.....row MOV 3|
000026c0 2c 23 31 0d 0b fe 4c 2e 63 6f 6c 75 6d 6e 20 4c |,#1...L.column L|
000026d0 44 52 42 20 34 2c 5b 31 5d 2c 23 31 3a 54 45 51 |DRB 4,[1],#1:TEQ|
000026e0 20 34 2c 23 30 3a 54 45 51 4e 45 20 34 2c 33 3a | 4,#0:TEQNE 4,3:|
000026f0 4d 4f 56 4e 45 20 50 43 2c 31 34 3a 41 44 44 20 |MOVNE PC,14:ADD |
00002700 33 2c 33 2c 23 31 3a 43 4d 50 20 33 2c 23 37 0d |3,3,#1:CMP 3,#7.|
00002710 0c 08 35 42 4e 45 20 63 6f 6c 75 6d 6e 3a 53 55 |..5BNE column:SU|
00002720 42 53 20 32 2c 32 2c 23 31 3a 42 4e 45 20 72 6f |BS 2,2,#1:BNE ro|
00002730 77 3a 4d 4f 56 20 30 2c 23 31 3a 4d 4f 56 20 50 |w:MOV 0,#1:MOV P|
00002740 43 2c 31 34 0d 0c 12 06 5d ed 0d 0c 1c 05 e1 0d |C,14....].......|
00002750 0c 26 04 0d 0c 30 17 dd 20 f2 6d 6b 6d 65 6e 75 |.&...0.. .mkmenu|
00002760 28 4d 25 2c 58 25 2c 59 25 29 0d 0c 3a 20 e7 20 |(M%,X%,Y%)..: . |
00002770 76 65 72 25 3e 3d 33 35 30 20 8c 20 f2 6d 65 6e |ver%>=350 . .men|
00002780 75 77 69 64 74 68 28 4d 25 29 0d 0c 44 22 c8 99 |uwidth(M%)..D"..|
00002790 20 22 57 69 6d 70 5f 43 72 65 61 74 65 4d 65 6e | "Wimp_CreateMen|
000027a0 75 22 2c 2c 4d 25 2c 58 25 2c 59 25 0d 0c 4e 05 |u",,M%,X%,Y%..N.|
000027b0 e1 0d 0c 58 04 0d 0c 62 14 dd 20 f2 6d 65 6e 75 |...X...b.. .menu|
000027c0 77 69 64 74 68 28 4d 25 29 0d 0c 6c 17 ea 20 50 |width(M%)..l.. P|
000027d0 25 2c 57 25 2c 58 25 3a 50 25 3d 4d 25 2b 32 38 |%,W%,X%:P%=M%+28|
000027e0 0d 0c 76 23 e7 20 4d 25 21 32 38 20 80 20 26 31 |..v#. M%!28 . &1|
000027f0 30 30 20 8c 20 58 25 3d 21 4d 25 3a 8b 20 58 25 |00 . X%=!M%:. X%|
00002800 3d 4d 25 0d 0c 80 2f e7 20 4d 25 21 32 38 20 80 |=M%.../. M%!28 .|
00002810 20 26 32 30 30 20 8b 20 c8 99 20 22 57 69 6d 70 | &200 . .. "Wimp|
00002820 5f 54 65 78 74 4f 70 22 2c 31 2c 58 25 20 b8 20 |_TextOp",1,X% . |
00002830 57 25 0d 0c 8a 11 e7 20 57 25 20 8c 20 57 25 2d |W%..... W% . W%-|
00002840 3d 31 36 0d 0c 94 05 f5 0d 0c 9e 10 20 e7 20 21 |=16......... . !|
00002850 50 25 20 80 20 34 20 8c 0d 0c a8 11 20 20 58 25 |P% . 4 ..... X%|
00002860 3d 4d 25 21 31 36 2d 31 36 0d 0c b2 29 20 cc 20 |=M%!16-16...) . |
00002870 e7 20 50 25 21 38 20 80 20 32 35 36 20 8c 20 58 |. P%!8 . 256 . X|
00002880 25 3d 50 25 21 31 32 3a 8b 20 58 25 3d 50 25 2b |%=P%!12:. X%=P%+|
00002890 31 32 0d 0c bc 20 20 20 c8 99 20 22 57 69 6d 70 |12... .. "Wimp|
000028a0 5f 54 65 78 74 4f 70 22 2c 31 2c 58 25 20 b8 20 |_TextOp",1,X% . |
000028b0 58 25 0d 0c c6 06 20 cd 0d 0c d0 14 20 e7 20 58 |X%.... ..... . X|
000028c0 25 3e 57 25 20 8c 20 57 25 3d 58 25 0d 0c da 32 |%>W% . W%=X%...2|
000028d0 20 e7 20 50 25 21 34 3e 26 38 30 30 30 20 80 20 | . P%!4>&8000 . |
000028e0 50 25 21 34 3c 93 20 8c 20 f2 6d 65 6e 75 77 69 |P%!4<. . .menuwi|
000028f0 64 74 68 28 50 25 21 34 20 80 20 2d 34 29 0d 0c |dth(P%!4 . -4)..|
00002900 e4 0b 20 50 25 2b 3d 32 34 0d 0c ee 12 fd 20 50 |.. P%+=24..... P|
00002910 25 21 2d 32 34 20 80 20 31 32 38 0d 0c f8 0f 4d |%!-24 . 128....M|
00002920 25 21 31 36 3d 57 25 2b 31 36 0d 0d 02 05 e1 0d |%!16=W%+16......|
00002930 ff |.|
00002931 
.