Home » Archimedes archive » Archimedes World » AW-1991-11.adf » November91 » !AWNov91/Goodies/PD/!ModeUtil/!RunImage
!AWNov91/Goodies/PD/!ModeUtil/!RunImage
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
| Tape/disk: | Home » Archimedes archive » Archimedes World » AW-1991-11.adf » November91 |
| Filename: | !AWNov91/Goodies/PD/!ModeUtil/!RunImage |
| Read OK: | ✔ |
| File size: | 4093 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10REM > $.!ModeUtil.!RunImage v0.11 <
20REM v0.05 Allow changing of modes using names instead of numbers
30REM v0.06 Now includes a multitasking screen saver
40REM v0.07 Now works better, a few bugs fixed
50REM v0.09 Added reading of mode variables
60REM -Now won't let you select bad modes
70REM v0.10 Screen saver uses Mode 12 sprite icon(s) for it's display
80REM v0.11 Screen saver with proper clock
90REM LEN Copyright '89 Jason Williams
100
110codedun%=FALSE
120ONERROR PROCrelease:VDU26,4:REPORT:PRINT" at ";ERL;" ":IFGET:END:REMGOTO90
130
140PROCinit
150PROCautorun
160
170PROCgetscreenbounds
180
190REPEAT
200 SYS "Wimp_Poll",0,z% TO R%
210 CASE R% OF
220 WHEN 0: PROCchk
230 WHEN 2: SYS "Wimp_OpenWindow",,z%
240 WHEN 3: SYS "Wimp_CloseWindow",,z%
250 WHEN 6: PROCmouseclick
260 WHEN 8: PROCkeypress:lasttime%=-42
270 WHEN 9: PROCchoice
280 WHEN 17,18:
290 CASE z%!16 OF
300 WHEN &400C1: PROCmodechange:lasttime%=-42
310 WHEN 0: quit%=TRUE
320 ENDCASE
330 ENDCASE
340UNTIL quit%<>FALSE
350
360ONERROR OFF
370PROCsavedefaults
380SYS "Wimp_CloseDown"
390END
400:
410DEF PROCgetscreenbounds
420LOCAL M%
430M%=MODE
440xeig%=FNreadmodevar(M%,4)
450yeig%=FNreadmodevar(M%,5)
460
470maxx%=FNreadmodevar(M%,11)<<xeig%
480maxy%=FNreadmodevar(M%,12)<<yeig%
490ENDPROC
500:
510DEF PROCmouseclick
520CASE z%!12 OF
530 WHEN -2: PROCbutton
540 WHEN dloghand%:
550 CASE z%!16 OF
560 WHEN 3: VDU7:PROCsetmode
570 WHEN 4: PROCtrymode
580 WHEN 5: VDU7:PROCremovemode
590 ENDCASE
600ENDCASE
610ENDPROC
620:
630DEF PROCkeypress
640LOCAL K%
650
660K%=z%!24
670IF !z%=dloghand% THEN
680 CASE K% OF
690 WHEN 13: :REM RETURN
700 K%=0
710 IF z%!4=2 THEN
720 z%!12=dloghand%:z%!16=3:PROCmouseclick
730 ELSE
740 PROCsetcaret((z%!4+1)MOD3)
750 ENDIF
760
770 WHEN 27: :REM Escape
780 K%=0
790 !z%=dloghand%:SYS "Wimp_CloseWindow",,z%
800
810 WHEN 394,398: :REM TAB, TAB(
820 K%=0:PROCsetcaret((z%!4+1)MOD3)
830
840 WHEN 399: :REM ELSE
850 K%=z%!4-1:IF K%<0 THEN K%=2
860 PROCsetcaret(K%):K%=0
870 ENDCASE
880ENDIF
890IF K%<>0 THEN SYS "Wimp_ProcessKey",K%
900ENDPROC
910:
920DEF PROCsetcaret(I%)
930SYS "Wimp_SetCaretPosition",dloghand%,I%,999,0,&1000024,-1
940ENDPROC
950:
960DEF PROCbutton
970LOCAL p%
980IF z%!8<>2 PROCopenwindow(dloghand%):ENDPROC :REM Not MENU button
990
1000$m%="Mode Util"+CHR$0:m%!12=&00070207
1010m%!16=200:m%!20=40:m%!24=0
1020
1030nummains%=3
1040p%=m%+28:p%!0=0 :p%!4=handle%:p%!8=&7000021:$(p%+12)="Info"
1050p%+=24 :p%!0=2 :p%!4=-1 :p%!8=&7000021:$(p%+12)="Clear"
1060PROCmodemenus(p%,nummains%)
1070p%+=24 :p%!0=&80:p%!4=-1 :p%!8=&7000021:$(p%+12)="Quit"
1080
1090lastmenux%=!z%-64
1100lastmenuy%=0
1110lastmenufrom%=z%!12 :REM Handle of owner window
1120SYS "Wimp_CreateMenu",,m%,lastmenux%,120+nummains%*40
1130ENDPROC
1140:
1150DEF PROCchoice
1160LOCAL I$
1170I$=STRING$(255," "):SYS "Wimp_DecodeMenu",,m%,z%,I$ TO ,,,I$
1180
1190CASE I$ OF
1200 WHEN "Info": REM Do nothing
1210 WHEN "Clear": menu$()="":mode%()=12 :REM defaultsaved%=FALSE
1220 WHEN "Quit": quit%=TRUE
1230 OTHERWISE: PROCselectmode(I$)
1240ENDCASE
1250
1260SYS "Wimp_GetPointerInfo",,z%
1270IF z%!8=1 THEN z%!8=2:!z%=lastmenux%:PROCbutton
1280ENDPROC
1290:
1300DEF PROCmodemenus(RETURN p%,RETURN nummains%)
1310LOCAL M%,P%,M$,S$
1320
1330submenu$()="":submenu%()=(-1):M%=0
1340submenu%=data%
1350
1360WHILE menu$(M%)<>"" AND M%<100
1370 P%=INSTR(menu$(M%),".")
1380 IF P%>0 THEN
1390 M$=LEFT$(menu$(M%),P%-1)
1400 S$=MID$(menu$(M%),P%+1)
1410 IF FNsubmenu(submenu%,M$,nummains%,P%) THEN
1420 p%+=24:p%!0=0:p%!4=P%:p%!8=&7000021:$(p%+12)=M$
1430 ENDIF
1440
1450 P%+=28:WHILE !P%<&80:P%+=24:ENDWHILE
1460 IF $(P%+12)<>"" THEN
1470 !P%=(!P% AND &7F):P%+=24:!P%=&80:P%!4=-1:P%!8=&7000021
1480 ENDIF
1490 IF mode%(M%)>&FF THEN !P%=(!P% OR 1) :REM ticked
1500 IF NOT FNmodevalid(mode%(M%)) THEN !P%=(!P% OR &400000):P%!8=(P%!8 OR &400000) :REM Shaded
1510 $(P%+12)=S$
1520 ELSE
1530 p%+=24:!p%=0:p%!4=-1:p%!8=&7000021:$(p%+12)=menu$(M%):nummains%+=1
1540 IF mode%(M%)>&FF THEN !p%=1 :REM ticked
1550 ENDIF
1560
1570 M%+=1
1580ENDWHILE
1590ENDPROC
1600:
1610DEF FNmodevalid(M%)
1620LOCAL V%
1630M%=M% AND &FF
1640IF M%=MODE THEN =TRUE
1650SYS vmode%,M% TO V%
1660=(V%<>-1)
1670:
1680DEF FNsubmenu(submenu%,M$,RETURN nummains%,RETURN P%)
1690LOCAL A%,F%
1700
1710P%=-1:A%=0:F%=FALSE
1720WHILE submenu$(A%)<>"" AND NOTF%
1730 IF submenu$(A%)=M$ THEN F%=TRUE ELSE A%+=1
1740ENDWHILE
1750IF F% THEN P%=submenu%(A%):=FALSE
1760
1770IF A%>0 THEN F%=submenu%(A%-1)+512 ELSE F%=submenu%
1780IF F%<submenu% OR F%>submenu%+10000 THEN PROCerror("Too many mode definitions"):=FALSE
1790submenu%(A%)=F%:submenu$(A%)=M$
1800
1810$F%=M$+CHR$0:F%!12=&00070207
1820F%!16=200:F%!20=40:F%!24=0
1830F%=F%+28:F%!0=&80:F%!4=-1:F%!8=&7000021:$(F%+12)=""
1840nummains%+=1
1850P%=submenu%(A%)
1860=TRUE
1870:
1880DEF PROCinit
1890DIM data% 10240,z% 1024,temp% 512,ws% 12,m% 512
1900SYS "Wimp_Initialise",200,&4B534154,"Mode Util"
1910
1920PROCveccheck :REM Place code on INSV vector
1930
1940$ws%="!ModeUtil"+CHR$0
1950!z%=-1:z%!4=0:z%!8=0:z%!12=68:z%!16=68
1960z%!20=&3102:z%!24=ws%:z%!28=1
1970z%!32=LEN($ws%)+1:SYS "Wimp_CreateIcon",,z% TO taskicon%
1980
1990SYS "Wimp_BaseOfSprites" TO ,spr%
2000SYS "OS_SWINumberFromString",,"OS_ReadMonotonicTime" TO time%
2010SYS "OS_SWINumberFromString",,"XOS_ReadModeVariable" TO rmode%
2020SYS "OS_SWINumberFromString",,"XOS_CheckModeValid" TO vmode%
2030SYS "OS_SWINumberFromString",,"XOS_SpriteOp" TO sprop%
2040lasttime%=-42
2050newtime%=lasttime%
2060MOUSE X%,Y%,B%
2070offtime%=6000:tick%=2 :REM 60 secs (1 min)
2080DIM write% 20 :REM Room for writeable menu item
2090$write%="10 m"+STRING$(12,CHR$0)
2100PROCloadicons
2110
2120ptr%=temp%
2130SYS "Wimp_OpenTemplate",,"<ModeUtil$Dir>.Templates"
2140 SYS "Wimp_LoadTemplate",,z%,ptr%,temp%+512,-1,"progInfo",0 TO ,,ptr%
2150 z%!24=-1:SYS "Wimp_CreateWindow",,z% TO handle%
2160
2170 SYS "Wimp_LoadTemplate",,z%,ptr%,temp%+512,-1,"dlog",0 TO ,,ptr%
2180 z%!24=-1:SYS "Wimp_CreateWindow",,z% TO dloghand%
2190 SYS "Wimp_LoadTemplate",,z%,ptr%,temp%+512,-1,"blank",0 TO ,,ptr%
2200 z%!24=-1
2210 z%!0=-32000:z%!4=-32000 :REM Window covers entire screen
2220 z%!8= 32000:z%!12=32000 :REM (And largeness area!)
2230 z%!40=-32000:z%!44=-32000 :REM Large logical workspace
2240 z%!48= 32000:z%!52= 32000
2250 z%!64=userspr% :REM Use user sprite area
2260 SYS "Wimp_CreateWindow",,z% TO blankhand%
2270SYS "Wimp_CloseTemplate"
2280
2290DIM menu$(100),mode%(100),submenu$(100),submenu%(100)
2300menu$()="":mode%()=12:submenu$()="":submenu%()=-1
2310PROCloaddefaults
2320PROCautoload
2330
2340lastmenux%=0:lastmenuy%=0:lastmenufrom%=-2
2350quit%=FALSE
2360ENDPROC
2370:
2380DEF PROCloadicons
2390LOCAL F%
2400F%=OPENIN("<ModeUtil$Dir>.Icons")
2410IF F%=0 THEN ERROR 0,"Who stole my Icons file?!"
2420
2430L%=EXT#F%+1024
2440CLOSE#F%
2450
2460DIM userspr% L%
2470!userspr%=L%-1:userspr%!4=0
2480userspr%!8=16:userspr%!12=16
2490SYS sprop%,256+10,userspr%,"<ModeUtil$Dir>.Icons"
2500
2510SYS sprop%,256+40,userspr%,"base" TO ,,,saveiconwidth%,saveiconheight%
2520ENDPROC
2530:
2540DEF PROCerror($(z%+4)) :REM Trap and report errors
2550ON ERROR OFF
2560PROCrelease
2570SYS "Wimp_ReportError",z%,1,"Mode Util"
2580SYS "Wimp_CloseDown"
2590END
2600:
2610DEF PROCmodechange :REM Find that mode and tick it on menu
2620LOCAL M%,P%,Z%,S%,A%,B%,C%,D%,M$
2630M%=MODE
2640PROCgetscreenbounds
2650P%=0:S%=FALSE
2660WHILE menu$(P%)<>"" AND P%<100
2670 Z%=mode%(P%)AND&FF
2680 IF Z%=M% THEN
2690 mode%(P%)=(Z% OR &100)
2700 PROCseticons(P%)
2710 S%=TRUE
2720 ELSE
2730 mode%(P%)=Z%
2740 ENDIF
2750 P%+=1
2760ENDWHILE
2770IF NOTS% THEN PROCseticons(-1)
2780SYS "Wimp_BaseOfSprites" TO ,spr% :REM This address seems to change sometimes
2790SYS sprop%,256+25,spr%,"!modeutil"
2800SYS sprop%,256+27,spr%,"!modeutil2","!modeutil"
2810SYS sprop%,256+60,spr%,"!modeutil" TO A%,B%,C%,D%
2820 M$=STR$(M%)
2830 GCOL3,14:VDU5:MOVE 34-LENM$*8,52:PRINTM$
2840SYS sprop%,A%,B%,C%,D%
2850!z%=-2:z%!4=taskicon%:z%!8=0:z%!12=0:SYS "Wimp_SetIconState",,z%
2860ENDPROC
2870:
2880DEF PROCseticons(P%)
2890LOCAL M$,S%
2900IF P%>=0 THEN
2910 M$=menu$(P%)
2920 PROCseticon(2,STR$(mode%(P%)AND&FF))
2930ELSE
2940 S%=MODE
2950 IF FNmodevalid(S%) THEN M$="Unknown" ELSE M$="Invalid"
2960 M$+="."+STR$(FNreadmodevar(S%,3)+1)+" colours"
2970 PROCseticon(2,STR$S%)
2980ENDIF
2990
3000S%=INSTR(M$,".")
3010PROCseticon(0,LEFT$(M$,S%-1))
3020PROCseticon(1,MID$(M$,S%+1))
3030ENDPROC
3040:
3050DEF FNreadmodevar(M%,N%)
3060LOCAL R%
3070IF FNmodevalid(M%) THEN
3080 SYS rmode%,M%,N% TO ,,R%
3090ELSE
3100 R%=0
3110ENDIF
3120=R%
3130:
3140DEF PROCselectmode(I$)
3150LOCAL M%:M%=0
3160WHILE menu$(M%)<>"" AND M%<100
3170 IF menu$(M%)=I$ THEN PROCwimp_setmode((mode%(M%)AND &FF)):M%=99
3180 M%+=1
3190ENDWHILE
3200ENDPROC
3210:
3220DEF PROCwimp_setmode(M%) :REM Change Wimp to this Screen mode.
3230IF FNmodevalid(M%) THEN SYS "Wimp_SetMode",M%
3240ENDPROC
3250:
3260DEF PROCloaddefaults
3270LOCAL F%,M%
3280F%=OPENIN("<ModeUtil$Dir>.Settings")
3290IF F%=0 THEN ENDPROC
3300
3310WHILE NOT EOF#F%
3320 M$=GET$#F%
3330 mode%(M%)=VAL(M$)
3340 menu$(M%)=MID$(M$,5)
3350 M%+=1
3360ENDWHILE
3370CLOSE#F%
3380
3390defaultsaved%=TRUE
3400
3410PROCmodechange
3420ENDPROC
3430:
3440DEF PROCsavedefaults
3450LOCAL F%,M%,M$
3460IF defaultsaved% THEN ENDPROC
3470
3480F%=OPENOUT("<ModeUtil$Dir>.Settings")
3490IF F%=0 THEN ENDPROC
3500
3510M%=0
3520WHILE menu$(M%)<>"" AND M%<100
3530 M$=STR$(mode%(M%)AND &FF):M$+=STRING$(4-LENM$," ")
3540 BPUT#F%,M$+menu$(M%)
3550 M%+=1
3560ENDWHILE
3570CLOSE#F%
3580
3590OSCLI("Settype <ModeUtil$Dir>.Settings Text")
3600ENDPROC
3610:
3620DEF PROCautoload
3630ENDPROC
3640:
3650DEF PROCopenwindow(!z%)
3660SYS "Wimp_GetWindowState",,z%
3670z%!28=-1:SYS "Wimp_OpenWindow",,z%
3680ENDPROC
3690:
3700DEF PROCsetmode
3710LOCAL M%,M$,S$,F%
3720
3730M$=FNicontext(0):S$=FNicontext(1)
3740IF S$<>"" THEN M$+="."+S$
3750
3760M%=0:F%=FALSE
3770WHILE menu$(M%)<>"" AND M%<100 AND NOTF%
3780 IF menu$(M%)=M$ THEN VDU7:F%=TRUE
3790 M%+=1
3800ENDWHILE
3810
3820IF NOTF% THEN
3830 menu$(M%)=M$
3840 mode%(M%)=VALFNicontext(2)
3850 defaultsaved%=FALSE
3860ENDIF
3870PROCmodechange
3880ENDPROC
3890:
3900DEF PROCtrymode
3910PROCwimp_setmode(VALFNicontext(2))
3920ENDPROC
3930:
3940DEF PROCremovemode
3950LOCAL M%,M$,S$,F%
3960
3970M$=FNicontext(0):S$=FNicontext(1)
3980IF S$<>"" THEN M$+="."+S$
3990
4000M%=0:F%=FALSE
4010WHILE menu$(M%)<>"" AND M%<100 AND NOTF%
4020 IF menu$(M%)=M$ THEN
4030 FOR F%=M% TO 99
4040 menu$(F%)=menu$(F%+1)
4050 NEXT
4060 menu$(100)=""
4070 F%=TRUE
4080 defaultsaved%=FALSE
4090 ENDIF
4100 M%+=1
4110ENDWHILE
4120PROCmodechange
4130ENDPROC
4140:
4150DEF FNicontext(I%)
4160LOCAL M$
4170
4180!z%=dloghand%:z%!4=I%
4190SYS "Wimp_GetIconState",,z%
4200IF z%!28<temp% OR z%!28>temp%+512 THEN =""
4210
4220M$=FNzerostring(z%!28)
4230WHILE RIGHT$(M$,1)=" ":M$=LEFT$(M$,LENM$-1):ENDWHILE
4240=M$
4250:
4260DEF PROCseticon(I%,M$)
4270!z%=dloghand%:z%!4=I%
4280SYS "Wimp_GetIconState",,z%
4290IF z%!28<temp% OR z%!28>temp%+512 THEN ENDPROC
4300
4310$(z%!28)=LEFT$(M$,12)
4320
4330!z%=dloghand%:z%!4=I%:z%!8=0:z%!12=0
4340SYS "Wimp_SetIconState",,z% :REM Force redraw
4350ENDPROC
4360:
4370DEF PROCautorun :REM Auto-Run all fies in AutoRun dir.
4380LOCAL O%,f$
4390
4400O%=0
4410REPEAT
4420 SYS "OS_GBPB",10,"<ModeUtil$Dir>.AutoRun",z%,1,O%,1024,"*" TO ,,,,O%
4430 f$=FNzerostring(z%+&14)
4440
4450 IF O%<>-1 THEN
4460 SYS "Wimp_StartTask","<ModeUtil$Dir>.AutoRun."+f$
4470 ENDIF
4480UNTIL O%=-1
4490ENDPROC
4500:
4510DEF FNzerostring(A%)
4520LOCAL M$:M$=""
4530WHILE ?A%>31
4540 M$+=CHR$?A%:A%+=1
4550ENDWHILE
4560=M$
4570:
4580DEF PROCchk :REM Check if time to Blank
4590MOUSE x%,y%,b%
4600IF x%=0 AND y%>=maxy% AND b%=0 THEN PROCblank
4610IF offtime%=-1 THEN ENDPROC
4620IF X%=x%:IF Y%=y%:IF B%=b% THEN PROCadd ELSE lasttime%=-42
4630IF !veccheck<>0 THEN !veccheck=0:lasttime%=-42
4640MOUSE X%,Y%,B%
4650ENDPROC
4660:
4670DEF PROCadd :REM Keep time, if time up, blank
4680SYS time% TO newtime%
4690IF lasttime%=-42 THEN
4700 lasttime%=newtime%
4710ELSE
4720 IF newtime%-lasttime%>=offtime% THENPROCblank
4730ENDIF
4740ENDPROC
4750:
4760DEF PROCblank :REM Blank the screen
4770LOCAL T%,X%,Y%,B%
4780!z%=blankhand%:z%!4=0:SYS "XWimp_DeleteIcon",,z%
4790PROCopenwindow(blankhand%)
4800PROCsavepal
4810PROCsavesetup:PROCredraw
4820
4830MOUSE OFF:menupending%=0:endsave%=FALSE
4840X%=maxx%DIV2:Y%=maxy%DIV2:B%=0:MOUSE TO X%,Y%
4850
4860WHILE B%=0 AND NOTquit% AND NOTendsave%
4870 SYS time% TO T%:T%+=100:SYS "Wimp_PollIdle",0,z%,T% TO R%
4880
4890 CASE R% OF
4900 WHEN 0: PROCredraw
4910 WHEN 2: SYS "Wimp_OpenWindow",,z%
4920
4930 WHEN 6: MOUSE X%,Y%,B%:IF B%>0 AND menupending%>1 THENmenupending%=1
4940 IF B%=2 THEN menupending%=9:MOUSE ON 1:PROCsavemenu(X%,Y%)
4950
4960 WHEN 8: endsave%=TRUE:SYS "Wimp_ProcessKey",z%!24
4970
4980 WHEN 9: PROCsavechoice:MOUSE X%,Y%,B%
4990 IF B%<>1 THEN menupending%=1
5000 B%=0
5010 ENDCASE
5020
5030 IF menupending%>0 AND NOTendsave% THEN
5040 IF menupending%=1 THEN
5050 REPEAT:MOUSE X%,Y%,B%:UNTIL B%=0
5060 menupending%=0
5070 MOUSE OFF
5080 ENDIF
5090 !veccheck=0
5100 B%=0 :REM Can't un-save while menu pending
5110 ELSE
5120 IF !veccheck<>0 THEN !veccheck=0:endsave%=TRUE
5130 ENDIF
5140ENDWHILE
5150
5160lasttime%=-42:!veccheck=0
5170MOUSE ON 1
5180
5190!z%=blankhand%:SYS "Wimp_CloseWindow",,z%
5200PROCrestorepal
5210ENDPROC
5220:
5230DEF PROCsavemenu(X%,Y%):LOCAL p%
5240$m%="Mode Util"+CHR$0:m%!12=&00070207
5250m%!16=144:m%!20=40:m%!24=0
5260p%=m%+28:p%!0=0 :p%!4=handle% :p%!8=&7000021:$(p%+12)="Info"
5270p%+=24 :p%!0=ABS(tick%<>5):p%!4=m%+128 :p%!8=&7000021:$(p%+12)="Time out"
5280p%+=24 :p%!0=ABS(tick%=5) :p%!4=-1 :p%!8=&7000021:$(p%+12)="Off"
5290p%+=24 :p%!0=&80 :p%!4=-1 :p%!8=&7000021:$(p%+12)="Quit"
5300
5310p%=m%+128
5320$p%="after"+CHR$0:p%!12=&00070207
5330p%!16=144:p%!20=40:p%!24=0
5340p%+=28 :p%!0=ABS(tick%=1) :p%!4=-1 :p%!8=&7000021 :$(p%+12)="30 secs"
5350p%+=24 :p%!0=ABS(tick%=2) :p%!4=-1 :p%!8=&7000021 :$(p%+12)="1 min"
5360p%+=24 :p%!0=ABS(tick%=3) :p%!4=-1 :p%!8=&7000021 :$(p%+12)="5 min"
5370p%+=24 :p%!0=&84-(tick%=4):p%!4=-1 :p%!8=&7000121 :p%!12=write%
5380 p%!16=-1:p%!20=5
5390lastmenux%=X%-64:lastmenuy%=Y%
5400SYS "Wimp_CreateMenu",,m%,X%-64,Y%
5410ENDPROC
5420:
5430DEF PROCsavechoice :REM Menu Item chosen
5440IF z%!0<0 OR z%!0>5 ENDPROC
5450
5460CASE z%!0 OF
5470 WHEN 1:
5480 CASE z%!4 OF
5490 WHEN 0: offtime%=3000:tick%=1 :REM 30 secs
5500 WHEN 1: offtime%=6000:tick%=2 :REM 60 secs (1 min)
5510 WHEN 2: offtime%=5*6000:tick%=3:REM 5 mins
5520 WHEN 3: PROCwrite:tick%=4 :REM User-writeable time
5530 ENDCASE
5540 WHEN 2: offtime%=-1:lasttime%=-42:tick%=5 :REM Saver Off
5550 WHEN 3: quit%=TRUE :REM quit
5560ENDCASE
5570
5580SYS "Wimp_GetPointerInfo",,z%
5590IF z%!8=1 THEN z%!8=2:PROCsavemenu(lastmenux%,lastmenuy%)
5600ENDPROC
5610:
5620DEF PROCwrite :REM User-Writeable time chosen
5630LOCAL A$,mult%,newot%
5640A$=FNzerostring(write%)
5650WHILE RIGHT$(A$,1)<=" ":A$=LEFT$(A$,LENA$-1):ENDWHILE
5660CASE RIGHT$(A$,1) OF
5670 WHEN "M","m":
5680 mult%=6000
5690 WHEN "S","s":
5700 mult%=100
5710 WHEN "0","1","2","3","4","5","6","7","8","9":
5720 mult%=6000 :REM Default is minutes
5730 OTHERWISE:
5740 VDU7:$write%="10 m"+STRING$(10,CHR$0):mult%=0
5750ENDCASE
5760IF mult%<1 THEN ENDPROC
5770IF VALA$>999 THEN A$="999"
5780newot%=mult%*VALA$
5790IF newot%>0 THEN offtime%=newot%
5800IF mult%=100 THEN $write%=STR$(VALA$)+" s"
5810IF mult%=6000 THEN $write%=STR$(VALA$)+" m"
5820ENDPROC
5830:
5840DEF PROCassemble :REM Assemble code to watch serial port
5850REM Must put vector code in RMA, or it DIES when another prog paged in!
5860SYS "OS_Module",6,,,16 TO ,,code%
5870IF code%<&1800000 THEN PROCerror("No room in RMA"+CHR$0)
5880
5890FOR pass%=0 TO 2 STEP 2
5900P%=code%
5910[OPT pass%
5920.vectorcode:CMP R1,#0:STREQ R0,veccheck:MOV PC,R14
5930.veccheck :EQUD 0
5940]
5950NEXT
5960
5970SYS "OS_Claim",&14,vectorcode,0
5980codedun%=TRUE
5990ENDPROC
6000:
6010DEF PROCsavesetup
6020REPEAT:movex%=RND(48)-24:UNTIL ABS(movex%)>8
6030REPEAT:movey%=RND(48)-24:UNTIL ABS(movey%)>8
6040savex%=RND(maxx%-256-movex%*2)+movex%
6050savey%=RND(maxy%-32-movey%*2)+movey%
6060ENDPROC
6070:
6080DEF PROCredraw :REM Force save-screen redraw
6090REMSYS "Wimp_ForceRedraw",blankhand%,savex%-48,savey%-48,savex%+300,savey%+80
6100
6110!z%=blankhand%:SYS"Wimp_GetWindowState",,z%
6120x0%=ABS(z%!4-z%!20) :REM Dist from window origin to screen origin
6130y0%=ABS(z%!16-z%!24)
6140
6150!z%=blankhand%:z%!4=0:SYS "XWimp_DeleteIcon",,z%
6160
6170z%!4=x0%+savex%:z%!8=y0%+savey%
6180z%!12=z%!4+(saveiconwidth%<<xeig%)
6190z%!16=z%!8+(saveiconheight%<<yeig%)
6200z%!20=&7000001A:$(z%+24)="base"
6210SYS "XWimp_CreateIcon",,z%
6220
6230PROCupdatespr :REM Redraw clock
6240
6250SYS "Wimp_ForceRedraw",blankhand%,z%!4-32,z%!8-32,z%!12+32,z%!16+32
6260
6270savex%+=movex%:savey%+=movey%
6280IF savex%<=ABS(movex%) THEN movex%=ABSmovex%:savex%+=movex%
6290IF savex%>=maxx%-movex%-256 THEN movex%=-ABSmovex%:savex%+=movex%
6300IF savey%<=ABS(movey%) THEN movey%=ABSmovey%:savey%+=movey%
6310IF savey%>=maxy%-movey%-32 THEN movey%=-ABSmovey%:savey%+=movey%
6320ENDPROC
6330:
6340DEF PROCupdatespr
6350LOCAL A%,B%,C%,D%,T$
6360LOCAL ERROR
6370T$=RIGHT$(TIME$,8)
6380SYS sprop%,256+60,userspr%,"base" TO A%,B%,C%,D%
6390ONERROR LOCAL SYS sprop%,A%,B%,C%,D%:ENDPROC
6400 SYS sprop%,256+34,userspr%,LEFT$(T$,1),0,0
6410 SYS sprop%,256+34,userspr%,MID$(T$,2,1),34,0
6420 SYS sprop%,256+34,userspr%,MID$(T$,4,1),80,0
6430 SYS sprop%,256+34,userspr%,MID$(T$,5,1),114,0
6440 SYS sprop%,256+34,userspr%,MID$(T$,7,1),160,0
6450 SYS sprop%,256+34,userspr%,MID$(T$,8,1),194,0
6460SYS sprop%,A%,B%,C%,D%
6470ENDPROC
6480:
6490DEF PROCsavepal :REM Save border palette value
6500SYS "OS_ReadPalette",1,24 TO ,,borderpal%
6510VDU19,1,24,0,0,0|
6520ENDPROC
6530:
6540DEF PROCrestorepal
6550VDU19,1,24,borderpal%>>8,borderpal%>>16,borderpal%>>24,0|
6560ENDPROC
6570:
6580DEF PROCrelease
6590IF codedun% THEN
6600 SYS "OS_Release",&14,vectorcode,0
6610 SYS "OS_Module",7,,code%
6620ENDIF
6630END
6640:
6650DEF PROCveccheck
6660REM Code to notify us of any traffic from keyboard (can't rely on WIMP)
6670REM Must put vector code in RMA, or it DIES when another prog paged in!
6680SYS "OS_Module",6,,,16 TO ,,code%
6690IF code%<&1800000 THEN PROCerror("No room in RMA"+CHR$0)
6700
6710FOR pass%=0 TO 2 STEP 2
6720P%=code%
6730[OPT pass%
6740.vectorcode:CMP R1,#0:STREQ R0,veccheck:MOV PC,R14
6750.veccheck :EQUD 0
6760]
6770NEXT
6780
6790SYS "OS_Claim",&14,vectorcode,0
6800codedun%=TRUE
6810ENDPROC
%� > $.!ModeUtil.!RunImage v0.11 <
B� v0.05 Allow changing of modes using names instead of numbers
4� v0.06 Now includes a multitasking screen saver
(.� v0.07 Now works better, a few bugs fixed
2+� v0.09 Added reading of mode variables
</� -Now won't let you select bad modes
FE� v0.10 Screen saver uses Mode 12 sprite icon(s) for it's display
P*� v0.11 Screen saver with proper clock
Z$� � Copyright '89 Jason Williams
d
ncodedun%=�
x3� �release:�26,4:�:�" at ";�;" ":�:�:�GOTO90
�
� �init
� �autorun
�
��getscreenbounds
�
��
� ș "Wimp_Poll",0,z% � R%
�
Ȏ R% �
� � 0: �chk
�% � 2: ș "Wimp_OpenWindow",,z%
�& � 3: ș "Wimp_CloseWindow",,z%
� � 6: �mouseclick
$ � 8: �keypress:lasttime%=-42
� 9: �choice
� 17,18:
" Ȏ z%!16 �
,1 � &400C1: �modechange:lasttime%=-42
6 � 0: quit%=�
@
�
J �
T� quit%<>�
^
h� �
r�savedefaults
|ș "Wimp_CloseDown"
��
�:
�� �getscreenbounds
�� M%
�M%=�
� xeig%=�readmodevar(M%,4)
� yeig%=�readmodevar(M%,5)
�
�$maxx%=�readmodevar(M%,11)<<xeig%
�$maxy%=�readmodevar(M%,12)<<yeig%
��
�:
�� �mouseclick
Ȏ z%!12 �
� -2: �button
� dloghand%:
& Ȏ z%!16 �
0 � 3: �7:�setmode
: � 4: �trymode
D � 5: �7:�removemode
N �
X�
b�
l:
v� �keypress
�� K%
�
� K%=z%!24
�� !z%=dloghand% �
�
Ȏ K% �
�- � 13: :� RETURN
� K%=0
� � z%!4=2 �
�1 z%!12=dloghand%:z%!16=3:�mouseclick
�
�
�# �setcaret((z%!4+1)�3)
�
�
�
- � 27: :� Escape
K%=0
3 !z%=dloghand%:ș "Wimp_CloseWindow",,z%
*- � 394,398: :� TAB, �
4& K%=0:�setcaret((z%!4+1)�3)
>
H( � 399: :� �
R# K%=z%!4-1:� K%<0 � K%=2
\ �setcaret(K%):K%=0
f �
p�
z%� K%<>0 � ș "Wimp_ProcessKey",K%
��
�:
�� �setcaret(I%)
�=ș "Wimp_SetCaretPosition",dloghand%,I%,999,0,&1000024,-1
��
�:
�
� �button
�� p%
�<� z%!8<>2 �openwindow(dloghand%):� :� Not MENU button
�
�&$m%="Mode Util"+�0:m%!12=&00070207
� m%!16=200:m%!20=40:m%!24=0
�
nummains%=3
@p%=m%+28:p%!0=0 :p%!4=handle%:p%!8=&7000021:$(p%+12)="Info"
Ap%+=24 :p%!0=2 :p%!4=-1 :p%!8=&7000021:$(p%+12)="Clear"
$ �modemenus(p%,nummains%)
.@p%+=24 :p%!0=&80:p%!4=-1 :p%!8=&7000021:$(p%+12)="Quit"
8
Blastmenux%=!z%-64
Llastmenuy%=0
VOlastmenufrom%=z%!12 :� Handle of owner window
`8ș "Wimp_CreateMenu",,m%,lastmenux%,120+nummains%*40
j�
t:
~
� �choice
�� I$
�7I$=�255," "):ș "Wimp_DecodeMenu",,m%,z%,I$ � ,,,I$
�
� Ȏ I$ �
� � "Info": � Do nothing
�= � "Clear": menu$()="":mode%()=12 :� defaultsaved%=FALSE
� � "Quit": quit%=�
� : �selectmode(I$)
��
�
� ș "Wimp_GetPointerInfo",,z%
�,� z%!8=1 � z%!8=2:!z%=lastmenux%:�button
�
:
"� �modemenus(� p%,� nummains%)
� M%,P%,M$,S$
(
2&submenu$()="":submenu%()=(-1):M%=0
<submenu%=data%
F
P ȕ menu$(M%)<>"" � M%<100
Z P%=�menu$(M%),".")
d � P%>0 �
n M$=�menu$(M%),P%-1)
x S$=�menu$(M%),P%+1)
�. � �submenu(submenu%,M$,nummains%,P%) �
�9 p%+=24:p%!0=0:p%!4=P%:p%!8=&7000021:$(p%+12)=M$
� �
�
�" P%+=28:ȕ !P%<&80:P%+=24:�
� � $(P%+12)<>"" �
�> !P%=(!P% � &7F):P%+=24:!P%=&80:P%!4=-1:P%!8=&7000021
� �
�: � mode%(M%)>&FF � !P%=(!P% � 1) :� ticked
�W � � �modevalid(mode%(M%)) � !P%=(!P% � &400000):P%!8=(P%!8 � &400000) :� Shaded
� $(P%+12)=S$
� �
�J p%+=24:!p%=0:p%!4=-1:p%!8=&7000021:$(p%+12)=menu$(M%):nummains%+=1
, � mode%(M%)>&FF � !p%=1 :� ticked
�
" M%+=1
,�
6�
@:
J� �modevalid(M%)
T� V%
^M%=M% � &FF
h� M%=� � =�
rș vmode%,M% � V%
|
=(V%<>-1)
�:
�,� �submenu(submenu%,M$,� nummains%,� P%)
� � A%,F%
�
�P%=-1:A%=0:F%=�
� ȕ submenu$(A%)<>"" � �F%
�& � submenu$(A%)=M$ � F%=� � A%+=1
��
� � F% � P%=submenu%(A%):=�
�
�0� A%>0 � F%=submenu%(A%-1)+512 � F%=submenu%
�N� F%<submenu% � F%>submenu%+10000 � �error("Too many mode definitions"):=�
�#submenu%(A%)=F%:submenu$(A%)=M$
$F%=M$+�0:F%!12=&00070207
F%!16=200:F%!20=40:F%!24=0
&7F%=F%+28:F%!0=&80:F%!4=-1:F%!8=&7000021:$(F%+12)=""
0nummains%+=1
:P%=submenu%(A%)
D=�
N:
X � �init
b1� data% 10240,z% 1024,temp% 512,ws% 12,m% 512
l2ș "Wimp_Initialise",200,&4B534154,"Mode Util"
v
�@�veccheck :� Place code on INSV vector
�
�$ws%="!ModeUtil"+�0
�*!z%=-1:z%!4=0:z%!8=0:z%!12=68:z%!16=68
�!z%!20=&3102:z%!24=ws%:z%!28=1
�8z%!32=�($ws%)+1:ș "Wimp_CreateIcon",,z% � taskicon%
�
�#ș "Wimp_BaseOfSprites" � ,spr%
�?ș "OS_SWINumberFromString",,"OS_ReadMonotonicTime" � time%
�@ș "OS_SWINumberFromString",,"XOS_ReadModeVariable" � rmode%
�>ș "OS_SWINumberFromString",,"XOS_CheckModeValid" � vmode%
�8ș "OS_SWINumberFromString",,"XOS_SpriteOp" � sprop%
�lasttime%=-42
newtime%=lasttime%
ȗ X%,Y%,B%
-offtime%=6000:tick%=2 :� 60 secs (1 min)
8� write% 20 :� Room for writeable menu item
*$write%="10 m"+�12,�0)
4�loadicons
>
Hptr%=temp%
R6ș "Wimp_OpenTemplate",,"<ModeUtil$Dir>.Templates"
\H ș "Wimp_LoadTemplate",,z%,ptr%,temp%+512,-1,"progInfo",0 � ,,ptr%
f3 z%!24=-1:ș "Wimp_CreateWindow",,z% � handle%
p
zD ș "Wimp_LoadTemplate",,z%,ptr%,temp%+512,-1,"dlog",0 � ,,ptr%
�5 z%!24=-1:ș "Wimp_CreateWindow",,z% � dloghand%
�E ș "Wimp_LoadTemplate",,z%,ptr%,temp%+512,-1,"blank",0 � ,,ptr%
� z%!24=-1
�E z%!0=-32000:z%!4=-32000 :� Window covers entire screen
�? z%!8= 32000:z%!12=32000 :� (And largeness area!)
�A z%!40=-32000:z%!44=-32000 :� Large logical workspace
� z%!48= 32000:z%!52= 32000
�> z%!64=userspr% :� Use user sprite area
�- ș "Wimp_CreateWindow",,z% � blankhand%
�ș "Wimp_CloseTemplate"
�
�7� menu$(100),mode%(100),submenu$(100),submenu%(100)
�5menu$()="":mode%()=12:submenu$()="":submenu%()=-1
�loaddefaults
�autoload
$.lastmenux%=0:lastmenuy%=0:lastmenufrom%=-2
. quit%=�
8�
B:
L� �loadicons
V� F%
` F%=�("<ModeUtil$Dir>.Icons")
j,� F%=0 � � 0,"Who stole my Icons file?!"
t
~L%=�#F%+1024
��#F%
�
�� userspr% L%
� !userspr%=L%-1:userspr%!4=0
� userspr%!8=16:userspr%!12=16
�4ș sprop%,256+10,userspr%,"<ModeUtil$Dir>.Icons"
�
�Hș sprop%,256+40,userspr%,"base" � ,,,saveiconwidth%,saveiconheight%
��
�:
�9� �error($(z%+4)) :� Trap and report errors
� � � �
�release
*ș "Wimp_ReportError",z%,1,"Mode Util"
ș "Wimp_CloseDown"
�
(:
2G� �modechange :� Find that mode and tick it on menu
< � M%,P%,Z%,S%,A%,B%,C%,D%,M$
FM%=�
P�getscreenbounds
Z
P%=0:S%=�
d ȕ menu$(P%)<>"" � P%<100
n Z%=mode%(P%)�&FF
x � Z%=M% �
� mode%(P%)=(Z% � &100)
� �seticons(P%)
� S%=�
� �
� mode%(P%)=Z%
� �
� P%+=1
��
�� �S% � �seticons(-1)
�Nș "Wimp_BaseOfSprites" � ,spr% :� This address seems to change sometimes
�%ș sprop%,256+25,spr%,"!modeutil"
�2ș sprop%,256+27,spr%,"!modeutil2","!modeutil"
�3ș sprop%,256+60,spr%,"!modeutil" � A%,B%,C%,D%
M$=�(M%)
�3,14:�5:� 34-�M$*8,52:�M$
ș sprop%,A%,B%,C%,D%
"C!z%=-2:z%!4=taskicon%:z%!8=0:z%!12=0:ș "Wimp_SetIconState",,z%
,�
6:
@� �seticons(P%)
J � M$,S%
T
� P%>=0 �
^ M$=menu$(P%)
h" �seticon(2,�(mode%(P%)�&FF))
r�
|
S%=�
�4 � �modevalid(S%) � M$="Unknown" � M$="Invalid"
�0 M$+="."+�(�readmodevar(S%,3)+1)+" colours"
� �seticon(2,�S%)
��
�
�S%=�M$,".")
��seticon(0,�M$,S%-1))
��seticon(1,�M$,S%+1))
��
�:
�� �readmodevar(M%,N%)
�� R%
�� �modevalid(M%) �
ș rmode%,M%,N% � ,,R%
�
R%=0
&�
0=R%
::
D� �selectmode(I$)
N
� M%:M%=0
X ȕ menu$(M%)<>"" � M%<100
b< � menu$(M%)=I$ � �wimp_setmode((mode%(M%)� &FF)):M%=99
l M%+=1
v�
��
�:
�T� �wimp_setmode(M%) :� Change Wimp to this Screen mode.
�+� �modevalid(M%) � ș "Wimp_SetMode",M%
��
�:
�� �loaddefaults
� � F%,M%
�#F%=�("<ModeUtil$Dir>.Settings")
�� F%=0 � �
�
�
ȕ � �#F%
�
M$=�#F%
mode%(M%)=�(M$)
menu$(M%)=�M$,5)
M%+=1
�
*�#F%
4
>defaultsaved%=�
H
R�modechange
\�
f:
p� �savedefaults
z� F%,M%,M$
�� defaultsaved% � �
�
�#F%=�("<ModeUtil$Dir>.Settings")
�� F%=0 � �
�
�M%=0
� ȕ menu$(M%)<>"" � M%<100
�* M$=�(mode%(M%)� &FF):M$+=�4-�M$," ")
� �#F%,M$+menu$(M%)
� M%+=1
��
��#F%
�
-�("Settype <ModeUtil$Dir>.Settings Text")
�
:
$� �autoload
.�
8:
B� �openwindow(!z%)
L ș "Wimp_GetWindowState",,z%
V%z%!28=-1:ș "Wimp_OpenWindow",,z%
`�
j:
t� �setmode
~� M%,M$,S$,F%
�
�#M$=�icontext(0):S$=�icontext(1)
�� S$<>"" � M$+="."+S$
�
�
M%=0:F%=�
�#ȕ menu$(M%)<>"" � M%<100 � �F%
� � menu$(M%)=M$ � �7:F%=�
� M%+=1
��
�
� � �F% �
� menu$(M%)=M$
mode%(M%)=��icontext(2)
defaultsaved%=�
�
�modechange
(�
2:
<� �trymode
F �wimp_setmode(��icontext(2))
P�
Z:
d� �removemode
n� M%,M$,S$,F%
x
�#M$=�icontext(0):S$=�icontext(1)
�� S$<>"" � M$+="."+S$
�
�
M%=0:F%=�
�#ȕ menu$(M%)<>"" � M%<100 � �F%
� � menu$(M%)=M$ �
� � F%=M% � 99
� menu$(F%)=menu$(F%+1)
� �
� menu$(100)=""
� F%=�
� defaultsaved%=�
� �
M%+=1
�
�modechange
"�
,:
6� �icontext(I%)
@� M$
J
T!z%=dloghand%:z%!4=I%
^ ș "Wimp_GetIconState",,z%
h)� z%!28<temp% � z%!28>temp%+512 � =""
r
|M$=�zerostring(z%!28)
�!ȕ �M$,1)=" ":M$=�M$,�M$-1):�
�=M$
�:
�� �seticon(I%,M$)
�!z%=dloghand%:z%!4=I%
� ș "Wimp_GetIconState",,z%
�'� z%!28<temp% � z%!28>temp%+512 � �
�
�$(z%!28)=�M$,12)
�
�(!z%=dloghand%:z%!4=I%:z%!8=0:z%!12=0
�5ș "Wimp_SetIconState",,z% :� Force redraw
��
:
D� �autorun :� Auto-Run all fies in AutoRun dir.
� O%,f$
&
0O%=0
:�
DH ș "OS_GBPB",10,"<ModeUtil$Dir>.AutoRun",z%,1,O%,1024,"*" � ,,,,O%
N f$=�zerostring(z%+&14)
X
b � O%<>-1 �
l8 ș "Wimp_StartTask","<ModeUtil$Dir>.AutoRun."+f$
v �
� � O%=-1
��
�:
�� �zerostring(A%)
�� M$:M$=""
�
ȕ ?A%>31
� M$+=�?A%:A%+=1
��
�=M$
�:
�9� �chk :� Check if time to Blank
�ȗ x%,y%,b%
�&� x%=0 � y%>=maxy% � b%=0 � �blank
� offtime%=-1 � �
2� X%=x%:� Y%=y%:� B%=b% � �add � lasttime%=-42
.� !veccheck<>0 � !veccheck=0:lasttime%=-42
ȗ X%,Y%,B%
*�
4:
>?� �add :� Keep time, if time up, blank
Hș time% � newtime%
R� lasttime%=-42 �
\ lasttime%=newtime%
f�
p, � newtime%-lasttime%>=offtime% ��blank
z�
��
�:
�3� �blank :� Blank the screen
�� T%,X%,Y%,B%
�3!z%=blankhand%:z%!4=0:ș "XWimp_DeleteIcon",,z%
��openwindow(blankhand%)
� �savepal
��savesetup:�redraw
�
�"ȗ �:menupending%=0:endsave%=�
�)X%=maxx%�2:Y%=maxy%�2:B%=0:ȗ � X%,Y%
�
� ȕ B%=0 � �quit% � �endsave%
; ș time% � T%:T%+=100:ș "Wimp_PollIdle",0,z%,T% � R%
Ȏ R% �
$ � 0: �redraw
.% � 2: ș "Wimp_OpenWindow",,z%
8
B@ � 6: ȗ X%,Y%,B%:� B%>0 � menupending%>1 �menupending%=1
L? � B%=2 � menupending%=9:ȗ � 1:�savemenu(X%,Y%)
V
`2 � 8: endsave%=�:ș "Wimp_ProcessKey",z%!24
j
t$ � 9: �savechoice:ȗ X%,Y%,B%
~( � B%<>1 � menupending%=1
� B%=0
� �
�
�$ � menupending%>0 � �endsave% �
� � menupending%=1 �
� �:ȗ X%,Y%,B%:� B%=0
� menupending%=0
� ȗ �
� �
� !veccheck=0
�8 B%=0 :� Can't un-save while menu pending
� �
/ � !veccheck<>0 � !veccheck=0:endsave%=�
�
�
( lasttime%=-42:!veccheck=0
2
ȗ � 1
<
F,!z%=blankhand%:ș "Wimp_CloseWindow",,z%
P�restorepal
Z�
d:
n� �savemenu(X%,Y%):� p%
x&$m%="Mode Util"+�0:m%!12=&00070207
� m%!16=144:m%!20=40:m%!24=0
�Jp%=m%+28:p%!0=0 :p%!4=handle% :p%!8=&7000021:$(p%+12)="Info"
�Lp%+=24 :p%!0=�(tick%<>5):p%!4=m%+128 :p%!8=&7000021:$(p%+12)="Time out"
�Gp%+=24 :p%!0=�(tick%=5) :p%!4=-1 :p%!8=&7000021:$(p%+12)="Off"
�Jp%+=24 :p%!0=&80 :p%!4=-1 :p%!8=&7000021:$(p%+12)="Quit"
�
�
p%=m%+128
�"$p%="after"+�0:p%!12=&00070207
� p%!16=144:p%!20=40:p%!24=0
�Gp%+=28 :p%!0=�(tick%=1) :p%!4=-1 :p%!8=&7000021 :$(p%+12)="30 secs"
�Ep%+=24 :p%!0=�(tick%=2) :p%!4=-1 :p%!8=&7000021 :$(p%+12)="1 min"
�Ep%+=24 :p%!0=�(tick%=3) :p%!4=-1 :p%!8=&7000021 :$(p%+12)="5 min"
�Cp%+=24 :p%!0=&84-(tick%=4):p%!4=-1 :p%!8=&7000121 :p%!12=write%
p%!16=-1:p%!20=5
"lastmenux%=X%-64:lastmenuy%=Y%
%ș "Wimp_CreateMenu",,m%,X%-64,Y%
"�
,:
65� �savechoice :� Menu Item chosen
@� z%!0<0 � z%!0>5 �
J
T
Ȏ z%!0 �
^
� 1:
h Ȏ z%!4 �
r0 � 0: offtime%=3000:tick%=1 :� 30 secs
|8 � 1: offtime%=6000:tick%=2 :� 60 secs (1 min)
�/ � 2: offtime%=5*6000:tick%=3:� 5 mins
�9 � 3: �write:tick%=4 :� User-writeable time
� �
�: � 2: offtime%=-1:lasttime%=-42:tick%=5 :� Saver Off
�* � 3: quit%=� :� quit
��
�
� ș "Wimp_GetPointerInfo",,z%
�6� z%!8=1 � z%!8=2:�savemenu(lastmenux%,lastmenuy%)
��
�:
�=� �write :� User-Writeable time chosen
�� A$,mult%,newot%
A$=�zerostring(write%)
"ȕ �A$,1)<=" ":A$=�A$,�A$-1):�
Ȏ �A$,1) �
& � "M","m":
0 mult%=6000
: � "S","s":
D mult%=100
N0 � "0","1","2","3","4","5","6","7","8","9":
X: mult%=6000 :� Default is minutes
b :
l) �7:$write%="10 m"+�10,�0):mult%=0
v�
�� mult%<1 � �
�� �A$>999 � A$="999"
�newot%=mult%*�A$
� � newot%>0 � offtime%=newot%
�%� mult%=100 � $write%=�(�A$)+" s"
�&� mult%=6000 � $write%=�(�A$)+" m"
��
�:
�5� �assemble :� Assemble code to watch serial port
�I� Must put vector code in RMA, or it DIES when another prog paged in!
�#ș "OS_Module",6,,,16 � ,,code%
�2� code%<&1800000 � �error("No room in RMA"+�0)
�
� pass%=0 � 2 � 2
P%=code%
[OPT pass%
6.vectorcode:CMP R1,#0:STREQ R0,veccheck:MOV PC,R14
*.veccheck :EQUD 0
4]
>�
H
R"ș "OS_Claim",&14,vectorcode,0
\codedun%=�
f�
p:
z� �savesetup
�#�:movex%=�(48)-24:� �(movex%)>8
�#�:movey%=�(48)-24:� �(movey%)>8
�'savex%=�(maxx%-256-movex%*2)+movex%
�&savey%=�(maxy%-32-movey%*2)+movey%
��
�:
�;� �redraw :� Force save-screen redraw
�O�SYS "Wimp_ForceRedraw",blankhand%,savex%-48,savey%-48,savex%+300,savey%+80
�
�.!z%=blankhand%:ș"Wimp_GetWindowState",,z%
�Ax0%=�(z%!4-z%!20) :� Dist from window origin to screen origin
�y0%=�(z%!16-z%!24)
�
3!z%=blankhand%:z%!4=0:ș "XWimp_DeleteIcon",,z%
#z%!4=x0%+savex%:z%!8=y0%+savey%
$&z%!12=z%!4+(saveiconwidth%<<xeig%)
.'z%!16=z%!8+(saveiconheight%<<yeig%)
8#z%!20=&7000001A:$(z%+24)="base"
B ș "XWimp_CreateIcon",,z%
L
V �updatespr :� Redraw clock
`
jFș "Wimp_ForceRedraw",blankhand%,z%!4-32,z%!8-32,z%!12+32,z%!16+32
t
~!savex%+=movex%:savey%+=movey%
�7� savex%<=�(movex%) � movex%=�movex%:savex%+=movex%
�?� savex%>=maxx%-movex%-256 � movex%=-�movex%:savex%+=movex%
�7� savey%<=�(movey%) � movey%=�movey%:savey%+=movey%
�>� savey%>=maxy%-movey%-32 � movey%=-�movey%:savey%+=movey%
��
�:
�� �updatespr
�� A%,B%,C%,D%,T$
�� �
�
T$=$,8)
�2ș sprop%,256+60,userspr%,"base" � A%,B%,C%,D%
� � � ș sprop%,A%,B%,C%,D%:�
* ș sprop%,256+34,userspr%,�T$,1),0,0
- ș sprop%,256+34,userspr%,�T$,2,1),34,0
- ș sprop%,256+34,userspr%,�T$,4,1),80,0
. ș sprop%,256+34,userspr%,�T$,5,1),114,0
(. ș sprop%,256+34,userspr%,�T$,7,1),160,0
2. ș sprop%,256+34,userspr%,�T$,8,1),194,0
<ș sprop%,A%,B%,C%,D%
F�
P:
Z+� �savepal :� Save border palette value
d+ș "OS_ReadPalette",1,24 � ,,borderpal%
n�19,1,24,0,0,0|
x�
�:
�� �restorepal
�;�19,1,24,borderpal%>>8,borderpal%>>16,borderpal%>>24,0|
��
�:
�� �release
�� codedun% �
�& ș "OS_Release",&14,vectorcode,0
� ș "OS_Module",7,,code%
��
��
�:
�� �veccheck
I� Code to notify us of any traffic from keyboard (can't rely on WIMP)
I� Must put vector code in RMA, or it DIES when another prog paged in!
#ș "OS_Module",6,,,16 � ,,code%
"2� code%<&1800000 � �error("No room in RMA"+�0)
,
6� pass%=0 � 2 � 2
@ P%=code%
J[OPT pass%
T6.vectorcode:CMP R1,#0:STREQ R0,veccheck:MOV PC,R14
^.veccheck :EQUD 0
h]
r�
|
�"ș "OS_Claim",&14,vectorcode,0
�codedun%=�
��
� 00000000 0d 00 0a 25 f4 20 3e 20 24 2e 21 4d 6f 64 65 55 |...%. > $.!ModeU|
00000010 74 69 6c 2e 21 52 75 6e 49 6d 61 67 65 20 76 30 |til.!RunImage v0|
00000020 2e 31 31 20 3c 0d 00 14 42 f4 20 76 30 2e 30 35 |.11 <...B. v0.05|
00000030 20 41 6c 6c 6f 77 20 63 68 61 6e 67 69 6e 67 20 | Allow changing |
00000040 6f 66 20 6d 6f 64 65 73 20 75 73 69 6e 67 20 6e |of modes using n|
00000050 61 6d 65 73 20 69 6e 73 74 65 61 64 20 6f 66 20 |ames instead of |
00000060 6e 75 6d 62 65 72 73 0d 00 1e 34 f4 20 76 30 2e |numbers...4. v0.|
00000070 30 36 20 4e 6f 77 20 69 6e 63 6c 75 64 65 73 20 |06 Now includes |
00000080 61 20 6d 75 6c 74 69 74 61 73 6b 69 6e 67 20 73 |a multitasking s|
00000090 63 72 65 65 6e 20 73 61 76 65 72 0d 00 28 2e f4 |creen saver..(..|
000000a0 20 76 30 2e 30 37 20 4e 6f 77 20 77 6f 72 6b 73 | v0.07 Now works|
000000b0 20 62 65 74 74 65 72 2c 20 61 20 66 65 77 20 62 | better, a few b|
000000c0 75 67 73 20 66 69 78 65 64 0d 00 32 2b f4 20 76 |ugs fixed..2+. v|
000000d0 30 2e 30 39 20 41 64 64 65 64 20 72 65 61 64 69 |0.09 Added readi|
000000e0 6e 67 20 6f 66 20 6d 6f 64 65 20 76 61 72 69 61 |ng of mode varia|
000000f0 62 6c 65 73 0d 00 3c 2f f4 20 20 20 20 20 20 20 |bles..</. |
00000100 2d 4e 6f 77 20 77 6f 6e 27 74 20 6c 65 74 20 79 |-Now won't let y|
00000110 6f 75 20 73 65 6c 65 63 74 20 62 61 64 20 6d 6f |ou select bad mo|
00000120 64 65 73 0d 00 46 45 f4 20 76 30 2e 31 30 20 53 |des..FE. v0.10 S|
00000130 63 72 65 65 6e 20 73 61 76 65 72 20 75 73 65 73 |creen saver uses|
00000140 20 4d 6f 64 65 20 31 32 20 73 70 72 69 74 65 20 | Mode 12 sprite |
00000150 69 63 6f 6e 28 73 29 20 66 6f 72 20 69 74 27 73 |icon(s) for it's|
00000160 20 64 69 73 70 6c 61 79 0d 00 50 2a f4 20 76 30 | display..P*. v0|
00000170 2e 31 31 20 53 63 72 65 65 6e 20 73 61 76 65 72 |.11 Screen saver|
00000180 20 77 69 74 68 20 70 72 6f 70 65 72 20 63 6c 6f | with proper clo|
00000190 63 6b 0d 00 5a 24 f4 20 a9 20 43 6f 70 79 72 69 |ck..Z$. . Copyri|
000001a0 67 68 74 20 27 38 39 20 4a 61 73 6f 6e 20 57 69 |ght '89 Jason Wi|
000001b0 6c 6c 69 61 6d 73 0d 00 64 04 0d 00 6e 0e 63 6f |lliams..d...n.co|
000001c0 64 65 64 75 6e 25 3d a3 0d 00 78 33 ee 85 20 f2 |dedun%=...x3.. .|
000001d0 72 65 6c 65 61 73 65 3a ef 32 36 2c 34 3a f6 3a |release:.26,4:.:|
000001e0 f1 22 20 61 74 20 22 3b 9e 3b 22 20 20 22 3a e7 |." at ";.;" ":.|
000001f0 a5 3a e0 3a f4 47 4f 54 4f 39 30 0d 00 82 04 0d |.:.:.GOTO90.....|
00000200 00 8c 09 f2 69 6e 69 74 0d 00 96 0c f2 61 75 74 |....init.....aut|
00000210 6f 72 75 6e 0d 00 a0 04 0d 00 aa 14 f2 67 65 74 |orun.........get|
00000220 73 63 72 65 65 6e 62 6f 75 6e 64 73 0d 00 b4 04 |screenbounds....|
00000230 0d 00 be 05 f5 0d 00 c8 1e 20 20 c8 99 20 22 57 |......... .. "W|
00000240 69 6d 70 5f 50 6f 6c 6c 22 2c 30 2c 7a 25 20 b8 |imp_Poll",0,z% .|
00000250 20 52 25 0d 00 d2 0d 20 20 c8 8e 20 52 25 20 ca | R%.... .. R% .|
00000260 0d 00 dc 11 20 20 20 20 c9 20 30 3a 20 f2 63 68 |.... . 0: .ch|
00000270 6b 0d 00 e6 25 20 20 20 20 c9 20 32 3a 20 c8 99 |k...% . 2: ..|
00000280 20 22 57 69 6d 70 5f 4f 70 65 6e 57 69 6e 64 6f | "Wimp_OpenWindo|
00000290 77 22 2c 2c 7a 25 0d 00 f0 26 20 20 20 20 c9 20 |w",,z%...& . |
000002a0 33 3a 20 c8 99 20 22 57 69 6d 70 5f 43 6c 6f 73 |3: .. "Wimp_Clos|
000002b0 65 57 69 6e 64 6f 77 22 2c 2c 7a 25 0d 00 fa 18 |eWindow",,z%....|
000002c0 20 20 20 20 c9 20 36 3a 20 f2 6d 6f 75 73 65 63 | . 6: .mousec|
000002d0 6c 69 63 6b 0d 01 04 24 20 20 20 20 c9 20 38 3a |lick...$ . 8:|
000002e0 20 f2 6b 65 79 70 72 65 73 73 3a 6c 61 73 74 74 | .keypress:lastt|
000002f0 69 6d 65 25 3d 2d 34 32 0d 01 0e 14 20 20 20 20 |ime%=-42.... |
00000300 c9 20 39 3a 20 f2 63 68 6f 69 63 65 0d 01 18 10 |. 9: .choice....|
00000310 20 20 20 20 c9 20 31 37 2c 31 38 3a 0d 01 22 16 | . 17,18:..".|
00000320 20 20 20 20 20 20 20 20 c8 8e 20 7a 25 21 31 36 | .. z%!16|
00000330 20 ca 0d 01 2c 31 20 20 20 20 20 20 20 20 20 20 | ...,1 |
00000340 c9 20 26 34 30 30 43 31 3a 20 f2 6d 6f 64 65 63 |. &400C1: .modec|
00000350 68 61 6e 67 65 3a 6c 61 73 74 74 69 6d 65 25 3d |hange:lasttime%=|
00000360 2d 34 32 0d 01 36 1f 20 20 20 20 20 20 20 20 20 |-42..6. |
00000370 20 c9 20 30 3a 20 20 20 20 20 20 71 75 69 74 25 | . 0: quit%|
00000380 3d b9 0d 01 40 0d 20 20 20 20 20 20 20 20 cb 0d |=...@. ..|
00000390 01 4a 07 20 20 cb 0d 01 54 0e fd 20 71 75 69 74 |.J. ...T.. quit|
000003a0 25 3c 3e a3 0d 01 5e 04 0d 01 68 08 ee 85 20 87 |%<>...^...h... .|
000003b0 0d 01 72 11 f2 73 61 76 65 64 65 66 61 75 6c 74 |..r..savedefault|
000003c0 73 0d 01 7c 17 c8 99 20 22 57 69 6d 70 5f 43 6c |s..|... "Wimp_Cl|
000003d0 6f 73 65 44 6f 77 6e 22 0d 01 86 05 e0 0d 01 90 |oseDown"........|
000003e0 05 3a 0d 01 9a 16 dd 20 f2 67 65 74 73 63 72 65 |.:..... .getscre|
000003f0 65 6e 62 6f 75 6e 64 73 0d 01 a4 08 ea 20 4d 25 |enbounds..... M%|
00000400 0d 01 ae 08 4d 25 3d eb 0d 01 b8 1c 78 65 69 67 |....M%=.....xeig|
00000410 25 3d a4 72 65 61 64 6d 6f 64 65 76 61 72 28 4d |%=.readmodevar(M|
00000420 25 2c 34 29 0d 01 c2 1c 79 65 69 67 25 3d a4 72 |%,4)....yeig%=.r|
00000430 65 61 64 6d 6f 64 65 76 61 72 28 4d 25 2c 35 29 |eadmodevar(M%,5)|
00000440 0d 01 cc 04 0d 01 d6 24 6d 61 78 78 25 3d a4 72 |.......$maxx%=.r|
00000450 65 61 64 6d 6f 64 65 76 61 72 28 4d 25 2c 31 31 |eadmodevar(M%,11|
00000460 29 3c 3c 78 65 69 67 25 0d 01 e0 24 6d 61 78 79 |)<<xeig%...$maxy|
00000470 25 3d a4 72 65 61 64 6d 6f 64 65 76 61 72 28 4d |%=.readmodevar(M|
00000480 25 2c 31 32 29 3c 3c 79 65 69 67 25 0d 01 ea 05 |%,12)<<yeig%....|
00000490 e1 0d 01 f4 05 3a 0d 01 fe 11 dd 20 f2 6d 6f 75 |.....:..... .mou|
000004a0 73 65 63 6c 69 63 6b 0d 02 08 0e c8 8e 20 7a 25 |seclick...... z%|
000004b0 21 31 32 20 ca 0d 02 12 13 20 20 c9 20 2d 32 3a |!12 ..... . -2:|
000004c0 20 f2 62 75 74 74 6f 6e 0d 02 1c 12 20 20 c9 20 | .button.... . |
000004d0 64 6c 6f 67 68 61 6e 64 25 3a 0d 02 26 14 20 20 |dloghand%:..&. |
000004e0 20 20 20 20 c8 8e 20 7a 25 21 31 36 20 ca 0d 02 | .. z%!16 ...|
000004f0 30 1c 20 20 20 20 20 20 20 20 c9 20 33 3a 20 ef |0. . 3: .|
00000500 37 3a f2 73 65 74 6d 6f 64 65 0d 02 3a 19 20 20 |7:.setmode..:. |
00000510 20 20 20 20 20 20 c9 20 34 3a 20 f2 74 72 79 6d | . 4: .trym|
00000520 6f 64 65 0d 02 44 1f 20 20 20 20 20 20 20 20 c9 |ode..D. .|
00000530 20 35 3a 20 ef 37 3a f2 72 65 6d 6f 76 65 6d 6f | 5: .7:.removemo|
00000540 64 65 0d 02 4e 0b 20 20 20 20 20 20 cb 0d 02 58 |de..N. ...X|
00000550 05 cb 0d 02 62 05 e1 0d 02 6c 05 3a 0d 02 76 0f |....b....l.:..v.|
00000560 dd 20 f2 6b 65 79 70 72 65 73 73 0d 02 80 08 ea |. .keypress.....|
00000570 20 4b 25 0d 02 8a 04 0d 02 94 0c 4b 25 3d 7a 25 | K%........K%=z%|
00000580 21 32 34 0d 02 9e 15 e7 20 21 7a 25 3d 64 6c 6f |!24..... !z%=dlo|
00000590 67 68 61 6e 64 25 20 8c 0d 02 a8 0d 20 20 c8 8e |ghand% ..... ..|
000005a0 20 4b 25 20 ca 0d 02 b2 2d 20 20 20 20 c9 20 31 | K% ....- . 1|
000005b0 33 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |3: |
000005c0 20 20 20 20 20 20 20 20 20 3a f4 20 52 45 54 55 | :. RETU|
000005d0 52 4e 0d 02 bc 10 20 20 20 20 20 20 20 20 4b 25 |RN.... K%|
000005e0 3d 30 0d 02 c6 16 20 20 20 20 20 20 20 20 e7 20 |=0.... . |
000005f0 7a 25 21 34 3d 32 20 8c 0d 02 d0 31 20 20 20 20 |z%!4=2 ....1 |
00000600 20 20 20 20 20 20 7a 25 21 31 32 3d 64 6c 6f 67 | z%!12=dlog|
00000610 68 61 6e 64 25 3a 7a 25 21 31 36 3d 33 3a f2 6d |hand%:z%!16=3:.m|
00000620 6f 75 73 65 63 6c 69 63 6b 0d 02 da 0d 20 20 20 |ouseclick.... |
00000630 20 20 20 20 20 cc 0d 02 e4 23 20 20 20 20 20 20 | ....# |
00000640 20 20 20 20 f2 73 65 74 63 61 72 65 74 28 28 7a | .setcaret((z|
00000650 25 21 34 2b 31 29 83 33 29 0d 02 ee 0d 20 20 20 |%!4+1).3).... |
00000660 20 20 20 20 20 cd 0d 02 f8 04 0d 03 02 2d 20 20 | ........- |
00000670 20 20 c9 20 32 37 3a 20 20 20 20 20 20 20 20 20 | . 27: |
00000680 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a f4 | :.|
00000690 20 45 73 63 61 70 65 0d 03 0c 10 20 20 20 20 20 | Escape.... |
000006a0 20 20 20 4b 25 3d 30 0d 03 16 33 20 20 20 20 20 | K%=0...3 |
000006b0 20 20 20 21 7a 25 3d 64 6c 6f 67 68 61 6e 64 25 | !z%=dloghand%|
000006c0 3a c8 99 20 22 57 69 6d 70 5f 43 6c 6f 73 65 57 |:.. "Wimp_CloseW|
000006d0 69 6e 64 6f 77 22 2c 2c 7a 25 0d 03 20 04 0d 03 |indow",,z%.. ...|
000006e0 2a 2d 20 20 20 20 c9 20 33 39 34 2c 33 39 38 3a |*- . 394,398:|
000006f0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000700 20 20 3a f4 20 54 41 42 2c 20 8a 0d 03 34 26 20 | :. TAB, ...4& |
00000710 20 20 20 20 20 20 20 4b 25 3d 30 3a f2 73 65 74 | K%=0:.set|
00000720 63 61 72 65 74 28 28 7a 25 21 34 2b 31 29 83 33 |caret((z%!4+1).3|
00000730 29 0d 03 3e 04 0d 03 48 28 20 20 20 20 c9 20 33 |)..>...H( . 3|
00000740 39 39 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 |99: |
00000750 20 20 20 20 20 20 20 20 20 3a f4 20 8b 0d 03 52 | :. ...R|
00000760 23 20 20 20 20 20 20 20 20 4b 25 3d 7a 25 21 34 |# K%=z%!4|
00000770 2d 31 3a e7 20 4b 25 3c 30 20 8c 20 4b 25 3d 32 |-1:. K%<0 . K%=2|
00000780 0d 03 5c 1e 20 20 20 20 20 20 20 20 f2 73 65 74 |..\. .set|
00000790 63 61 72 65 74 28 4b 25 29 3a 4b 25 3d 30 0d 03 |caret(K%):K%=0..|
000007a0 66 07 20 20 cb 0d 03 70 05 cd 0d 03 7a 25 e7 20 |f. ...p....z%. |
000007b0 4b 25 3c 3e 30 20 8c 20 c8 99 20 22 57 69 6d 70 |K%<>0 . .. "Wimp|
000007c0 5f 50 72 6f 63 65 73 73 4b 65 79 22 2c 4b 25 0d |_ProcessKey",K%.|
000007d0 03 84 05 e1 0d 03 8e 05 3a 0d 03 98 13 dd 20 f2 |........:..... .|
000007e0 73 65 74 63 61 72 65 74 28 49 25 29 0d 03 a2 3d |setcaret(I%)...=|
000007f0 c8 99 20 22 57 69 6d 70 5f 53 65 74 43 61 72 65 |.. "Wimp_SetCare|
00000800 74 50 6f 73 69 74 69 6f 6e 22 2c 64 6c 6f 67 68 |tPosition",dlogh|
00000810 61 6e 64 25 2c 49 25 2c 39 39 39 2c 30 2c 26 31 |and%,I%,999,0,&1|
00000820 30 30 30 30 32 34 2c 2d 31 0d 03 ac 05 e1 0d 03 |000024,-1.......|
00000830 b6 05 3a 0d 03 c0 0d dd 20 f2 62 75 74 74 6f 6e |..:..... .button|
00000840 0d 03 ca 08 ea 20 70 25 0d 03 d4 3c e7 20 7a 25 |..... p%...<. z%|
00000850 21 38 3c 3e 32 20 f2 6f 70 65 6e 77 69 6e 64 6f |!8<>2 .openwindo|
00000860 77 28 64 6c 6f 67 68 61 6e 64 25 29 3a e1 20 20 |w(dloghand%):. |
00000870 20 20 3a f4 20 4e 6f 74 20 4d 45 4e 55 20 62 75 | :. Not MENU bu|
00000880 74 74 6f 6e 0d 03 de 04 0d 03 e8 26 24 6d 25 3d |tton.......&$m%=|
00000890 22 4d 6f 64 65 20 55 74 69 6c 22 2b bd 30 3a 6d |"Mode Util"+.0:m|
000008a0 25 21 31 32 3d 26 30 30 30 37 30 32 30 37 0d 03 |%!12=&00070207..|
000008b0 f2 1e 6d 25 21 31 36 3d 32 30 30 3a 6d 25 21 32 |..m%!16=200:m%!2|
000008c0 30 3d 34 30 3a 6d 25 21 32 34 3d 30 0d 03 fc 04 |0=40:m%!24=0....|
000008d0 0d 04 06 0f 6e 75 6d 6d 61 69 6e 73 25 3d 33 0d |....nummains%=3.|
000008e0 04 10 40 70 25 3d 6d 25 2b 32 38 3a 70 25 21 30 |..@p%=m%+28:p%!0|
000008f0 3d 30 20 20 3a 70 25 21 34 3d 68 61 6e 64 6c 65 |=0 :p%!4=handle|
00000900 25 3a 70 25 21 38 3d 26 37 30 30 30 30 32 31 3a |%:p%!8=&7000021:|
00000910 24 28 70 25 2b 31 32 29 3d 22 49 6e 66 6f 22 0d |$(p%+12)="Info".|
00000920 04 1a 41 70 25 2b 3d 32 34 20 20 3a 70 25 21 30 |..Ap%+=24 :p%!0|
00000930 3d 32 20 20 3a 70 25 21 34 3d 2d 31 20 20 20 20 |=2 :p%!4=-1 |
00000940 20 3a 70 25 21 38 3d 26 37 30 30 30 30 32 31 3a | :p%!8=&7000021:|
00000950 24 28 70 25 2b 31 32 29 3d 22 43 6c 65 61 72 22 |$(p%+12)="Clear"|
00000960 0d 04 24 1c f2 6d 6f 64 65 6d 65 6e 75 73 28 70 |..$..modemenus(p|
00000970 25 2c 6e 75 6d 6d 61 69 6e 73 25 29 0d 04 2e 40 |%,nummains%)...@|
00000980 70 25 2b 3d 32 34 20 20 3a 70 25 21 30 3d 26 38 |p%+=24 :p%!0=&8|
00000990 30 3a 70 25 21 34 3d 2d 31 20 20 20 20 20 3a 70 |0:p%!4=-1 :p|
000009a0 25 21 38 3d 26 37 30 30 30 30 32 31 3a 24 28 70 |%!8=&7000021:$(p|
000009b0 25 2b 31 32 29 3d 22 51 75 69 74 22 0d 04 38 04 |%+12)="Quit"..8.|
000009c0 0d 04 42 15 6c 61 73 74 6d 65 6e 75 78 25 3d 21 |..B.lastmenux%=!|
000009d0 7a 25 2d 36 34 0d 04 4c 10 6c 61 73 74 6d 65 6e |z%-64..L.lastmen|
000009e0 75 79 25 3d 30 0d 04 56 4f 6c 61 73 74 6d 65 6e |uy%=0..VOlastmen|
000009f0 75 66 72 6f 6d 25 3d 7a 25 21 31 32 20 20 20 20 |ufrom%=z%!12 |
00000a00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000a10 20 20 20 20 20 20 20 20 20 20 20 3a f4 20 48 61 | :. Ha|
00000a20 6e 64 6c 65 20 6f 66 20 6f 77 6e 65 72 20 77 69 |ndle of owner wi|
00000a30 6e 64 6f 77 0d 04 60 38 c8 99 20 22 57 69 6d 70 |ndow..`8.. "Wimp|
00000a40 5f 43 72 65 61 74 65 4d 65 6e 75 22 2c 2c 6d 25 |_CreateMenu",,m%|
00000a50 2c 6c 61 73 74 6d 65 6e 75 78 25 2c 31 32 30 2b |,lastmenux%,120+|
00000a60 6e 75 6d 6d 61 69 6e 73 25 2a 34 30 0d 04 6a 05 |nummains%*40..j.|
00000a70 e1 0d 04 74 05 3a 0d 04 7e 0d dd 20 f2 63 68 6f |...t.:..~.. .cho|
00000a80 69 63 65 0d 04 88 08 ea 20 49 24 0d 04 92 37 49 |ice..... I$...7I|
00000a90 24 3d c4 32 35 35 2c 22 20 22 29 3a c8 99 20 22 |$=.255," "):.. "|
00000aa0 57 69 6d 70 5f 44 65 63 6f 64 65 4d 65 6e 75 22 |Wimp_DecodeMenu"|
00000ab0 2c 2c 6d 25 2c 7a 25 2c 49 24 20 b8 20 2c 2c 2c |,,m%,z%,I$ . ,,,|
00000ac0 49 24 0d 04 9c 04 0d 04 a6 0b c8 8e 20 49 24 20 |I$.......... I$ |
00000ad0 ca 0d 04 b0 1d 20 20 c9 20 22 49 6e 66 6f 22 3a |..... . "Info":|
00000ae0 20 20 f4 20 44 6f 20 6e 6f 74 68 69 6e 67 0d 04 | . Do nothing..|
00000af0 ba 3d 20 20 c9 20 22 43 6c 65 61 72 22 3a 20 6d |.= . "Clear": m|
00000b00 65 6e 75 24 28 29 3d 22 22 3a 6d 6f 64 65 25 28 |enu$()="":mode%(|
00000b10 29 3d 31 32 20 3a f4 20 64 65 66 61 75 6c 74 73 |)=12 :. defaults|
00000b20 61 76 65 64 25 3d 46 41 4c 53 45 0d 04 c4 18 20 |aved%=FALSE.... |
00000b30 20 c9 20 22 51 75 69 74 22 3a 20 20 71 75 69 74 | . "Quit": quit|
00000b40 25 3d b9 0d 04 ce 1b 20 20 7f 3a 20 20 20 20 f2 |%=..... .: .|
00000b50 73 65 6c 65 63 74 6d 6f 64 65 28 49 24 29 0d 04 |selectmode(I$)..|
00000b60 d8 05 cb 0d 04 e2 04 0d 04 ec 20 c8 99 20 22 57 |.......... .. "W|
00000b70 69 6d 70 5f 47 65 74 50 6f 69 6e 74 65 72 49 6e |imp_GetPointerIn|
00000b80 66 6f 22 2c 2c 7a 25 0d 04 f6 2c e7 20 7a 25 21 |fo",,z%...,. z%!|
00000b90 38 3d 31 20 8c 20 7a 25 21 38 3d 32 3a 21 7a 25 |8=1 . z%!8=2:!z%|
00000ba0 3d 6c 61 73 74 6d 65 6e 75 78 25 3a f2 62 75 74 |=lastmenux%:.but|
00000bb0 74 6f 6e 0d 05 00 05 e1 0d 05 0a 05 3a 0d 05 14 |ton.........:...|
00000bc0 22 dd 20 f2 6d 6f 64 65 6d 65 6e 75 73 28 f8 20 |". .modemenus(. |
00000bd0 70 25 2c f8 20 6e 75 6d 6d 61 69 6e 73 25 29 0d |p%,. nummains%).|
00000be0 05 1e 11 ea 20 4d 25 2c 50 25 2c 4d 24 2c 53 24 |.... M%,P%,M$,S$|
00000bf0 0d 05 28 04 0d 05 32 26 73 75 62 6d 65 6e 75 24 |..(...2&submenu$|
00000c00 28 29 3d 22 22 3a 73 75 62 6d 65 6e 75 25 28 29 |()="":submenu%()|
00000c10 3d 28 2d 31 29 3a 4d 25 3d 30 0d 05 3c 12 73 75 |=(-1):M%=0..<.su|
00000c20 62 6d 65 6e 75 25 3d 64 61 74 61 25 0d 05 46 04 |bmenu%=data%..F.|
00000c30 0d 05 50 1d c8 95 20 6d 65 6e 75 24 28 4d 25 29 |..P... menu$(M%)|
00000c40 3c 3e 22 22 20 80 20 4d 25 3c 31 30 30 0d 05 5a |<>"" . M%<100..Z|
00000c50 18 20 20 50 25 3d a7 6d 65 6e 75 24 28 4d 25 29 |. P%=.menu$(M%)|
00000c60 2c 22 2e 22 29 0d 05 64 0e 20 20 e7 20 50 25 3e |,".")..d. . P%>|
00000c70 30 20 8c 0d 05 6e 1b 20 20 20 20 4d 24 3d c0 6d |0 ...n. M$=.m|
00000c80 65 6e 75 24 28 4d 25 29 2c 50 25 2d 31 29 0d 05 |enu$(M%),P%-1)..|
00000c90 78 1b 20 20 20 20 53 24 3d c1 6d 65 6e 75 24 28 |x. S$=.menu$(|
00000ca0 4d 25 29 2c 50 25 2b 31 29 0d 05 82 2e 20 20 20 |M%),P%+1).... |
00000cb0 20 e7 20 a4 73 75 62 6d 65 6e 75 28 73 75 62 6d | . .submenu(subm|
00000cc0 65 6e 75 25 2c 4d 24 2c 6e 75 6d 6d 61 69 6e 73 |enu%,M$,nummains|
00000cd0 25 2c 50 25 29 20 8c 0d 05 8c 39 20 20 20 20 20 |%,P%) ....9 |
00000ce0 20 70 25 2b 3d 32 34 3a 70 25 21 30 3d 30 3a 70 | p%+=24:p%!0=0:p|
00000cf0 25 21 34 3d 50 25 3a 70 25 21 38 3d 26 37 30 30 |%!4=P%:p%!8=&700|
00000d00 30 30 32 31 3a 24 28 70 25 2b 31 32 29 3d 4d 24 |0021:$(p%+12)=M$|
00000d10 0d 05 96 09 20 20 20 20 cd 0d 05 a0 04 0d 05 aa |.... ........|
00000d20 22 20 20 20 20 50 25 2b 3d 32 38 3a c8 95 20 21 |" P%+=28:.. !|
00000d30 50 25 3c 26 38 30 3a 50 25 2b 3d 32 34 3a ce 0d |P%<&80:P%+=24:..|
00000d40 05 b4 18 20 20 20 20 e7 20 24 28 50 25 2b 31 32 |... . $(P%+12|
00000d50 29 3c 3e 22 22 20 8c 0d 05 be 3e 20 20 20 20 20 |)<>"" ....> |
00000d60 20 21 50 25 3d 28 21 50 25 20 80 20 26 37 46 29 | !P%=(!P% . &7F)|
00000d70 3a 50 25 2b 3d 32 34 3a 21 50 25 3d 26 38 30 3a |:P%+=24:!P%=&80:|
00000d80 50 25 21 34 3d 2d 31 3a 50 25 21 38 3d 26 37 30 |P%!4=-1:P%!8=&70|
00000d90 30 30 30 32 31 0d 05 c8 09 20 20 20 20 cd 0d 05 |00021.... ...|
00000da0 d2 3a 20 20 20 20 e7 20 6d 6f 64 65 25 28 4d 25 |.: . mode%(M%|
00000db0 29 3e 26 46 46 20 8c 20 21 50 25 3d 28 21 50 25 |)>&FF . !P%=(!P%|
00000dc0 20 84 20 31 29 20 20 20 20 20 20 20 20 20 20 3a | . 1) :|
00000dd0 f4 20 74 69 63 6b 65 64 0d 05 dc 57 20 20 20 20 |. ticked...W |
00000de0 e7 20 ac 20 a4 6d 6f 64 65 76 61 6c 69 64 28 6d |. . .modevalid(m|
00000df0 6f 64 65 25 28 4d 25 29 29 20 8c 20 21 50 25 3d |ode%(M%)) . !P%=|
00000e00 28 21 50 25 20 84 20 26 34 30 30 30 30 30 29 3a |(!P% . &400000):|
00000e10 50 25 21 38 3d 28 50 25 21 38 20 84 20 26 34 30 |P%!8=(P%!8 . &40|
00000e20 30 30 30 30 29 20 3a f4 20 53 68 61 64 65 64 0d |0000) :. Shaded.|
00000e30 05 e6 13 20 20 20 20 24 28 50 25 2b 31 32 29 3d |... $(P%+12)=|
00000e40 53 24 0d 05 f0 07 20 20 cc 0d 05 fa 4a 20 20 20 |S$.... ....J |
00000e50 20 70 25 2b 3d 32 34 3a 21 70 25 3d 30 3a 70 25 | p%+=24:!p%=0:p%|
00000e60 21 34 3d 2d 31 3a 70 25 21 38 3d 26 37 30 30 30 |!4=-1:p%!8=&7000|
00000e70 30 32 31 3a 24 28 70 25 2b 31 32 29 3d 6d 65 6e |021:$(p%+12)=men|
00000e80 75 24 28 4d 25 29 3a 6e 75 6d 6d 61 69 6e 73 25 |u$(M%):nummains%|
00000e90 2b 3d 31 0d 06 04 2c 20 20 20 20 e7 20 6d 6f 64 |+=1..., . mod|
00000ea0 65 25 28 4d 25 29 3e 26 46 46 20 8c 20 21 70 25 |e%(M%)>&FF . !p%|
00000eb0 3d 31 20 20 20 20 3a f4 20 74 69 63 6b 65 64 0d |=1 :. ticked.|
00000ec0 06 0e 07 20 20 cd 0d 06 18 04 0d 06 22 0b 20 20 |... .......". |
00000ed0 4d 25 2b 3d 31 0d 06 2c 05 ce 0d 06 36 05 e1 0d |M%+=1..,....6...|
00000ee0 06 40 05 3a 0d 06 4a 14 dd 20 a4 6d 6f 64 65 76 |.@.:..J.. .modev|
00000ef0 61 6c 69 64 28 4d 25 29 0d 06 54 08 ea 20 56 25 |alid(M%)..T.. V%|
00000f00 0d 06 5e 0f 4d 25 3d 4d 25 20 80 20 26 46 46 0d |..^.M%=M% . &FF.|
00000f10 06 68 0f e7 20 4d 25 3d eb 20 8c 20 3d b9 0d 06 |.h.. M%=. . =...|
00000f20 72 15 c8 99 20 76 6d 6f 64 65 25 2c 4d 25 20 b8 |r... vmode%,M% .|
00000f30 20 56 25 0d 06 7c 0d 3d 28 56 25 3c 3e 2d 31 29 | V%..|.=(V%<>-1)|
00000f40 0d 06 86 05 3a 0d 06 90 2c dd 20 a4 73 75 62 6d |....:...,. .subm|
00000f50 65 6e 75 28 73 75 62 6d 65 6e 75 25 2c 4d 24 2c |enu(submenu%,M$,|
00000f60 f8 20 6e 75 6d 6d 61 69 6e 73 25 2c f8 20 50 25 |. nummains%,. P%|
00000f70 29 0d 06 9a 0b ea 20 41 25 2c 46 25 0d 06 a4 04 |)..... A%,F%....|
00000f80 0d 06 ae 13 50 25 3d 2d 31 3a 41 25 3d 30 3a 46 |....P%=-1:A%=0:F|
00000f90 25 3d a3 0d 06 b8 1d c8 95 20 73 75 62 6d 65 6e |%=....... submen|
00000fa0 75 24 28 41 25 29 3c 3e 22 22 20 80 20 ac 46 25 |u$(A%)<>"" . .F%|
00000fb0 0d 06 c2 26 20 20 e7 20 73 75 62 6d 65 6e 75 24 |...& . submenu$|
00000fc0 28 41 25 29 3d 4d 24 20 8c 20 46 25 3d b9 20 8b |(A%)=M$ . F%=. .|
00000fd0 20 41 25 2b 3d 31 0d 06 cc 05 ce 0d 06 d6 1d e7 | A%+=1..........|
00000fe0 20 46 25 20 8c 20 50 25 3d 73 75 62 6d 65 6e 75 | F% . P%=submenu|
00000ff0 25 28 41 25 29 3a 3d a3 0d 06 e0 04 0d 06 ea 30 |%(A%):=........0|
00001000 e7 20 41 25 3e 30 20 8c 20 46 25 3d 73 75 62 6d |. A%>0 . F%=subm|
00001010 65 6e 75 25 28 41 25 2d 31 29 2b 35 31 32 20 8b |enu%(A%-1)+512 .|
00001020 20 46 25 3d 73 75 62 6d 65 6e 75 25 0d 06 f4 4e | F%=submenu%...N|
00001030 e7 20 46 25 3c 73 75 62 6d 65 6e 75 25 20 84 20 |. F%<submenu% . |
00001040 46 25 3e 73 75 62 6d 65 6e 75 25 2b 31 30 30 30 |F%>submenu%+1000|
00001050 30 20 8c 20 f2 65 72 72 6f 72 28 22 54 6f 6f 20 |0 . .error("Too |
00001060 6d 61 6e 79 20 6d 6f 64 65 20 64 65 66 69 6e 69 |many mode defini|
00001070 74 69 6f 6e 73 22 29 3a 3d a3 0d 06 fe 23 73 75 |tions"):=....#su|
00001080 62 6d 65 6e 75 25 28 41 25 29 3d 46 25 3a 73 75 |bmenu%(A%)=F%:su|
00001090 62 6d 65 6e 75 24 28 41 25 29 3d 4d 24 0d 07 08 |bmenu$(A%)=M$...|
000010a0 04 0d 07 12 1d 24 46 25 3d 4d 24 2b bd 30 3a 46 |.....$F%=M$+.0:F|
000010b0 25 21 31 32 3d 26 30 30 30 37 30 32 30 37 0d 07 |%!12=&00070207..|
000010c0 1c 1e 46 25 21 31 36 3d 32 30 30 3a 46 25 21 32 |..F%!16=200:F%!2|
000010d0 30 3d 34 30 3a 46 25 21 32 34 3d 30 0d 07 26 37 |0=40:F%!24=0..&7|
000010e0 46 25 3d 46 25 2b 32 38 3a 46 25 21 30 3d 26 38 |F%=F%+28:F%!0=&8|
000010f0 30 3a 46 25 21 34 3d 2d 31 3a 46 25 21 38 3d 26 |0:F%!4=-1:F%!8=&|
00001100 37 30 30 30 30 32 31 3a 24 28 46 25 2b 31 32 29 |7000021:$(F%+12)|
00001110 3d 22 22 0d 07 30 10 6e 75 6d 6d 61 69 6e 73 25 |=""..0.nummains%|
00001120 2b 3d 31 0d 07 3a 13 50 25 3d 73 75 62 6d 65 6e |+=1..:.P%=submen|
00001130 75 25 28 41 25 29 0d 07 44 06 3d b9 0d 07 4e 05 |u%(A%)..D.=...N.|
00001140 3a 0d 07 58 0b dd 20 f2 69 6e 69 74 0d 07 62 31 |:..X.. .init..b1|
00001150 de 20 64 61 74 61 25 20 31 30 32 34 30 2c 7a 25 |. data% 10240,z%|
00001160 20 31 30 32 34 2c 74 65 6d 70 25 20 35 31 32 2c | 1024,temp% 512,|
00001170 77 73 25 20 31 32 2c 6d 25 20 35 31 32 0d 07 6c |ws% 12,m% 512..l|
00001180 32 c8 99 20 22 57 69 6d 70 5f 49 6e 69 74 69 61 |2.. "Wimp_Initia|
00001190 6c 69 73 65 22 2c 32 30 30 2c 26 34 42 35 33 34 |lise",200,&4B534|
000011a0 31 35 34 2c 22 4d 6f 64 65 20 55 74 69 6c 22 0d |154,"Mode Util".|
000011b0 07 76 04 0d 07 80 40 f2 76 65 63 63 68 65 63 6b |.v....@.veccheck|
000011c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000011d0 20 20 20 20 20 20 20 3a f4 20 50 6c 61 63 65 20 | :. Place |
000011e0 63 6f 64 65 20 6f 6e 20 49 4e 53 56 20 76 65 63 |code on INSV vec|
000011f0 74 6f 72 0d 07 8a 04 0d 07 94 17 24 77 73 25 3d |tor........$ws%=|
00001200 22 21 4d 6f 64 65 55 74 69 6c 22 2b bd 30 0d 07 |"!ModeUtil"+.0..|
00001210 9e 2a 21 7a 25 3d 2d 31 3a 7a 25 21 34 3d 30 3a |.*!z%=-1:z%!4=0:|
00001220 7a 25 21 38 3d 30 3a 7a 25 21 31 32 3d 36 38 3a |z%!8=0:z%!12=68:|
00001230 7a 25 21 31 36 3d 36 38 0d 07 a8 21 7a 25 21 32 |z%!16=68...!z%!2|
00001240 30 3d 26 33 31 30 32 3a 7a 25 21 32 34 3d 77 73 |0=&3102:z%!24=ws|
00001250 25 3a 7a 25 21 32 38 3d 31 0d 07 b2 38 7a 25 21 |%:z%!28=1...8z%!|
00001260 33 32 3d a9 28 24 77 73 25 29 2b 31 3a c8 99 20 |32=.($ws%)+1:.. |
00001270 22 57 69 6d 70 5f 43 72 65 61 74 65 49 63 6f 6e |"Wimp_CreateIcon|
00001280 22 2c 2c 7a 25 20 b8 20 74 61 73 6b 69 63 6f 6e |",,z% . taskicon|
00001290 25 0d 07 bc 04 0d 07 c6 23 c8 99 20 22 57 69 6d |%.......#.. "Wim|
000012a0 70 5f 42 61 73 65 4f 66 53 70 72 69 74 65 73 22 |p_BaseOfSprites"|
000012b0 20 b8 20 2c 73 70 72 25 0d 07 d0 3f c8 99 20 22 | . ,spr%...?.. "|
000012c0 4f 53 5f 53 57 49 4e 75 6d 62 65 72 46 72 6f 6d |OS_SWINumberFrom|
000012d0 53 74 72 69 6e 67 22 2c 2c 22 4f 53 5f 52 65 61 |String",,"OS_Rea|
000012e0 64 4d 6f 6e 6f 74 6f 6e 69 63 54 69 6d 65 22 20 |dMonotonicTime" |
000012f0 b8 20 74 69 6d 65 25 0d 07 da 40 c8 99 20 22 4f |. time%...@.. "O|
00001300 53 5f 53 57 49 4e 75 6d 62 65 72 46 72 6f 6d 53 |S_SWINumberFromS|
00001310 74 72 69 6e 67 22 2c 2c 22 58 4f 53 5f 52 65 61 |tring",,"XOS_Rea|
00001320 64 4d 6f 64 65 56 61 72 69 61 62 6c 65 22 20 b8 |dModeVariable" .|
00001330 20 72 6d 6f 64 65 25 0d 07 e4 3e c8 99 20 22 4f | rmode%...>.. "O|
00001340 53 5f 53 57 49 4e 75 6d 62 65 72 46 72 6f 6d 53 |S_SWINumberFromS|
00001350 74 72 69 6e 67 22 2c 2c 22 58 4f 53 5f 43 68 65 |tring",,"XOS_Che|
00001360 63 6b 4d 6f 64 65 56 61 6c 69 64 22 20 b8 20 76 |ckModeValid" . v|
00001370 6d 6f 64 65 25 0d 07 ee 38 c8 99 20 22 4f 53 5f |mode%...8.. "OS_|
00001380 53 57 49 4e 75 6d 62 65 72 46 72 6f 6d 53 74 72 |SWINumberFromStr|
00001390 69 6e 67 22 2c 2c 22 58 4f 53 5f 53 70 72 69 74 |ing",,"XOS_Sprit|
000013a0 65 4f 70 22 20 b8 20 73 70 72 6f 70 25 0d 07 f8 |eOp" . sprop%...|
000013b0 11 6c 61 73 74 74 69 6d 65 25 3d 2d 34 32 0d 08 |.lasttime%=-42..|
000013c0 02 16 6e 65 77 74 69 6d 65 25 3d 6c 61 73 74 74 |..newtime%=lastt|
000013d0 69 6d 65 25 0d 08 0c 0f c8 97 20 58 25 2c 59 25 |ime%...... X%,Y%|
000013e0 2c 42 25 0d 08 16 2d 6f 66 66 74 69 6d 65 25 3d |,B%...-offtime%=|
000013f0 36 30 30 30 3a 74 69 63 6b 25 3d 32 20 20 3a f4 |6000:tick%=2 :.|
00001400 20 36 30 20 73 65 63 73 20 28 31 20 6d 69 6e 29 | 60 secs (1 min)|
00001410 0d 08 20 38 de 20 77 72 69 74 65 25 20 32 30 20 |.. 8. write% 20 |
00001420 20 20 20 20 20 20 20 20 20 3a f4 20 52 6f 6f 6d | :. Room|
00001430 20 66 6f 72 20 77 72 69 74 65 61 62 6c 65 20 6d | for writeable m|
00001440 65 6e 75 20 69 74 65 6d 0d 08 2a 1a 24 77 72 69 |enu item..*.$wri|
00001450 74 65 25 3d 22 31 30 20 6d 22 2b c4 31 32 2c bd |te%="10 m"+.12,.|
00001460 30 29 0d 08 34 0e f2 6c 6f 61 64 69 63 6f 6e 73 |0)..4..loadicons|
00001470 0d 08 3e 04 0d 08 48 0e 70 74 72 25 3d 74 65 6d |..>...H.ptr%=tem|
00001480 70 25 0d 08 52 36 c8 99 20 22 57 69 6d 70 5f 4f |p%..R6.. "Wimp_O|
00001490 70 65 6e 54 65 6d 70 6c 61 74 65 22 2c 2c 22 3c |penTemplate",,"<|
000014a0 4d 6f 64 65 55 74 69 6c 24 44 69 72 3e 2e 54 65 |ModeUtil$Dir>.Te|
000014b0 6d 70 6c 61 74 65 73 22 0d 08 5c 48 20 20 c8 99 |mplates"..\H ..|
000014c0 20 22 57 69 6d 70 5f 4c 6f 61 64 54 65 6d 70 6c | "Wimp_LoadTempl|
000014d0 61 74 65 22 2c 2c 7a 25 2c 70 74 72 25 2c 74 65 |ate",,z%,ptr%,te|
000014e0 6d 70 25 2b 35 31 32 2c 2d 31 2c 22 70 72 6f 67 |mp%+512,-1,"prog|
000014f0 49 6e 66 6f 22 2c 30 20 b8 20 2c 2c 70 74 72 25 |Info",0 . ,,ptr%|
00001500 0d 08 66 33 20 20 7a 25 21 32 34 3d 2d 31 3a c8 |..f3 z%!24=-1:.|
00001510 99 20 22 57 69 6d 70 5f 43 72 65 61 74 65 57 69 |. "Wimp_CreateWi|
00001520 6e 64 6f 77 22 2c 2c 7a 25 20 b8 20 68 61 6e 64 |ndow",,z% . hand|
00001530 6c 65 25 0d 08 70 04 0d 08 7a 44 20 20 c8 99 20 |le%..p...zD .. |
00001540 22 57 69 6d 70 5f 4c 6f 61 64 54 65 6d 70 6c 61 |"Wimp_LoadTempla|
00001550 74 65 22 2c 2c 7a 25 2c 70 74 72 25 2c 74 65 6d |te",,z%,ptr%,tem|
00001560 70 25 2b 35 31 32 2c 2d 31 2c 22 64 6c 6f 67 22 |p%+512,-1,"dlog"|
00001570 2c 30 20 b8 20 2c 2c 70 74 72 25 0d 08 84 35 20 |,0 . ,,ptr%...5 |
00001580 20 7a 25 21 32 34 3d 2d 31 3a c8 99 20 22 57 69 | z%!24=-1:.. "Wi|
00001590 6d 70 5f 43 72 65 61 74 65 57 69 6e 64 6f 77 22 |mp_CreateWindow"|
000015a0 2c 2c 7a 25 20 b8 20 64 6c 6f 67 68 61 6e 64 25 |,,z% . dloghand%|
000015b0 0d 08 8e 45 20 20 c8 99 20 22 57 69 6d 70 5f 4c |...E .. "Wimp_L|
000015c0 6f 61 64 54 65 6d 70 6c 61 74 65 22 2c 2c 7a 25 |oadTemplate",,z%|
000015d0 2c 70 74 72 25 2c 74 65 6d 70 25 2b 35 31 32 2c |,ptr%,temp%+512,|
000015e0 2d 31 2c 22 62 6c 61 6e 6b 22 2c 30 20 b8 20 2c |-1,"blank",0 . ,|
000015f0 2c 70 74 72 25 0d 08 98 0e 20 20 7a 25 21 32 34 |,ptr%.... z%!24|
00001600 3d 2d 31 0d 08 a2 45 20 20 7a 25 21 30 3d 2d 33 |=-1...E z%!0=-3|
00001610 32 30 30 30 3a 7a 25 21 34 3d 2d 33 32 30 30 30 |2000:z%!4=-32000|
00001620 20 20 20 20 20 20 20 20 20 20 3a f4 20 57 69 6e | :. Win|
00001630 64 6f 77 20 63 6f 76 65 72 73 20 65 6e 74 69 72 |dow covers entir|
00001640 65 20 73 63 72 65 65 6e 0d 08 ac 3f 20 20 7a 25 |e screen...? z%|
00001650 21 38 3d 20 33 32 30 30 30 3a 7a 25 21 31 32 3d |!8= 32000:z%!12=|
00001660 33 32 30 30 30 20 20 20 20 20 20 20 20 20 20 3a |32000 :|
00001670 f4 20 28 41 6e 64 20 6c 61 72 67 65 6e 65 73 73 |. (And largeness|
00001680 20 61 72 65 61 21 29 0d 08 b6 41 20 20 7a 25 21 | area!)...A z%!|
00001690 34 30 3d 2d 33 32 30 30 30 3a 7a 25 21 34 34 3d |40=-32000:z%!44=|
000016a0 2d 33 32 30 30 30 20 20 20 20 20 20 20 20 3a f4 |-32000 :.|
000016b0 20 4c 61 72 67 65 20 6c 6f 67 69 63 61 6c 20 77 | Large logical w|
000016c0 6f 72 6b 73 70 61 63 65 0d 08 c0 1f 20 20 7a 25 |orkspace.... z%|
000016d0 21 34 38 3d 20 33 32 30 30 30 3a 7a 25 21 35 32 |!48= 32000:z%!52|
000016e0 3d 20 33 32 30 30 30 0d 08 ca 3e 20 20 7a 25 21 |= 32000...> z%!|
000016f0 36 34 3d 75 73 65 72 73 70 72 25 20 20 20 20 20 |64=userspr% |
00001700 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a f4 | :.|
00001710 20 55 73 65 20 75 73 65 72 20 73 70 72 69 74 65 | Use user sprite|
00001720 20 61 72 65 61 0d 08 d4 2d 20 20 c8 99 20 22 57 | area...- .. "W|
00001730 69 6d 70 5f 43 72 65 61 74 65 57 69 6e 64 6f 77 |imp_CreateWindow|
00001740 22 2c 2c 7a 25 20 b8 20 62 6c 61 6e 6b 68 61 6e |",,z% . blankhan|
00001750 64 25 0d 08 de 1b c8 99 20 22 57 69 6d 70 5f 43 |d%...... "Wimp_C|
00001760 6c 6f 73 65 54 65 6d 70 6c 61 74 65 22 0d 08 e8 |loseTemplate"...|
00001770 04 0d 08 f2 37 de 20 6d 65 6e 75 24 28 31 30 30 |....7. menu$(100|
00001780 29 2c 6d 6f 64 65 25 28 31 30 30 29 2c 73 75 62 |),mode%(100),sub|
00001790 6d 65 6e 75 24 28 31 30 30 29 2c 73 75 62 6d 65 |menu$(100),subme|
000017a0 6e 75 25 28 31 30 30 29 0d 08 fc 35 6d 65 6e 75 |nu%(100)...5menu|
000017b0 24 28 29 3d 22 22 3a 6d 6f 64 65 25 28 29 3d 31 |$()="":mode%()=1|
000017c0 32 3a 73 75 62 6d 65 6e 75 24 28 29 3d 22 22 3a |2:submenu$()="":|
000017d0 73 75 62 6d 65 6e 75 25 28 29 3d 2d 31 0d 09 06 |submenu%()=-1...|
000017e0 11 f2 6c 6f 61 64 64 65 66 61 75 6c 74 73 0d 09 |..loaddefaults..|
000017f0 10 0d f2 61 75 74 6f 6c 6f 61 64 0d 09 1a 04 0d |...autoload.....|
00001800 09 24 2e 6c 61 73 74 6d 65 6e 75 78 25 3d 30 3a |.$.lastmenux%=0:|
00001810 6c 61 73 74 6d 65 6e 75 79 25 3d 30 3a 6c 61 73 |lastmenuy%=0:las|
00001820 74 6d 65 6e 75 66 72 6f 6d 25 3d 2d 32 0d 09 2e |tmenufrom%=-2...|
00001830 0b 71 75 69 74 25 3d a3 0d 09 38 05 e1 0d 09 42 |.quit%=...8....B|
00001840 05 3a 0d 09 4c 10 dd 20 f2 6c 6f 61 64 69 63 6f |.:..L.. .loadico|
00001850 6e 73 0d 09 56 08 ea 20 46 25 0d 09 60 20 46 25 |ns..V.. F%..` F%|
00001860 3d 8e 28 22 3c 4d 6f 64 65 55 74 69 6c 24 44 69 |=.("<ModeUtil$Di|
00001870 72 3e 2e 49 63 6f 6e 73 22 29 0d 09 6a 2c e7 20 |r>.Icons")..j,. |
00001880 46 25 3d 30 20 8c 20 85 20 30 2c 22 57 68 6f 20 |F%=0 . . 0,"Who |
00001890 73 74 6f 6c 65 20 6d 79 20 49 63 6f 6e 73 20 66 |stole my Icons f|
000018a0 69 6c 65 3f 21 22 0d 09 74 04 0d 09 7e 10 4c 25 |ile?!"..t...~.L%|
000018b0 3d a2 23 46 25 2b 31 30 32 34 0d 09 88 08 d9 23 |=.#F%+1024.....#|
000018c0 46 25 0d 09 92 04 0d 09 9c 11 de 20 75 73 65 72 |F%......... user|
000018d0 73 70 72 25 20 4c 25 0d 09 a6 1f 21 75 73 65 72 |spr% L%....!user|
000018e0 73 70 72 25 3d 4c 25 2d 31 3a 75 73 65 72 73 70 |spr%=L%-1:usersp|
000018f0 72 25 21 34 3d 30 0d 09 b0 20 75 73 65 72 73 70 |r%!4=0... usersp|
00001900 72 25 21 38 3d 31 36 3a 75 73 65 72 73 70 72 25 |r%!8=16:userspr%|
00001910 21 31 32 3d 31 36 0d 09 ba 34 c8 99 20 73 70 72 |!12=16...4.. spr|
00001920 6f 70 25 2c 32 35 36 2b 31 30 2c 75 73 65 72 73 |op%,256+10,users|
00001930 70 72 25 2c 22 3c 4d 6f 64 65 55 74 69 6c 24 44 |pr%,"<ModeUtil$D|
00001940 69 72 3e 2e 49 63 6f 6e 73 22 0d 09 c4 04 0d 09 |ir>.Icons"......|
00001950 ce 48 c8 99 20 73 70 72 6f 70 25 2c 32 35 36 2b |.H.. sprop%,256+|
00001960 34 30 2c 75 73 65 72 73 70 72 25 2c 22 62 61 73 |40,userspr%,"bas|
00001970 65 22 20 b8 20 2c 2c 2c 73 61 76 65 69 63 6f 6e |e" . ,,,saveicon|
00001980 77 69 64 74 68 25 2c 73 61 76 65 69 63 6f 6e 68 |width%,saveiconh|
00001990 65 69 67 68 74 25 0d 09 d8 05 e1 0d 09 e2 05 3a |eight%.........:|
000019a0 0d 09 ec 39 dd 20 f2 65 72 72 6f 72 28 24 28 7a |...9. .error($(z|
000019b0 25 2b 34 29 29 20 20 20 20 20 20 20 20 20 20 20 |%+4)) |
000019c0 3a f4 20 54 72 61 70 20 61 6e 64 20 72 65 70 6f |:. Trap and repo|
000019d0 72 74 20 65 72 72 6f 72 73 0d 09 f6 09 ee 20 85 |rt errors..... .|
000019e0 20 87 0d 0a 00 0c f2 72 65 6c 65 61 73 65 0d 0a | ......release..|
000019f0 0a 2a c8 99 20 22 57 69 6d 70 5f 52 65 70 6f 72 |.*.. "Wimp_Repor|
00001a00 74 45 72 72 6f 72 22 2c 7a 25 2c 31 2c 22 4d 6f |tError",z%,1,"Mo|
00001a10 64 65 20 55 74 69 6c 22 0d 0a 14 17 c8 99 20 22 |de Util"...... "|
00001a20 57 69 6d 70 5f 43 6c 6f 73 65 44 6f 77 6e 22 0d |Wimp_CloseDown".|
00001a30 0a 1e 05 e0 0d 0a 28 05 3a 0d 0a 32 47 dd 20 f2 |......(.:..2G. .|
00001a40 6d 6f 64 65 63 68 61 6e 67 65 20 20 20 20 20 20 |modechange |
00001a50 20 20 20 20 20 20 20 20 20 20 20 3a f4 20 46 69 | :. Fi|
00001a60 6e 64 20 74 68 61 74 20 6d 6f 64 65 20 61 6e 64 |nd that mode and|
00001a70 20 74 69 63 6b 20 69 74 20 6f 6e 20 6d 65 6e 75 | tick it on menu|
00001a80 0d 0a 3c 20 ea 20 4d 25 2c 50 25 2c 5a 25 2c 53 |..< . M%,P%,Z%,S|
00001a90 25 2c 41 25 2c 42 25 2c 43 25 2c 44 25 2c 4d 24 |%,A%,B%,C%,D%,M$|
00001aa0 0d 0a 46 08 4d 25 3d eb 0d 0a 50 14 f2 67 65 74 |..F.M%=...P..get|
00001ab0 73 63 72 65 65 6e 62 6f 75 6e 64 73 0d 0a 5a 0d |screenbounds..Z.|
00001ac0 50 25 3d 30 3a 53 25 3d a3 0d 0a 64 1d c8 95 20 |P%=0:S%=...d... |
00001ad0 6d 65 6e 75 24 28 50 25 29 3c 3e 22 22 20 80 20 |menu$(P%)<>"" . |
00001ae0 50 25 3c 31 30 30 0d 0a 6e 16 20 20 5a 25 3d 6d |P%<100..n. Z%=m|
00001af0 6f 64 65 25 28 50 25 29 80 26 46 46 0d 0a 78 0f |ode%(P%).&FF..x.|
00001b00 20 20 e7 20 5a 25 3d 4d 25 20 8c 0d 0a 82 1d 20 | . Z%=M% ..... |
00001b10 20 20 20 6d 6f 64 65 25 28 50 25 29 3d 28 5a 25 | mode%(P%)=(Z%|
00001b20 20 84 20 26 31 30 30 29 0d 0a 8c 15 20 20 20 20 | . &100).... |
00001b30 f2 73 65 74 69 63 6f 6e 73 28 50 25 29 0d 0a 96 |.seticons(P%)...|
00001b40 0c 20 20 20 20 53 25 3d b9 0d 0a a0 07 20 20 cc |. S%=..... .|
00001b50 0d 0a aa 14 20 20 20 20 6d 6f 64 65 25 28 50 25 |.... mode%(P%|
00001b60 29 3d 5a 25 0d 0a b4 07 20 20 cd 0d 0a be 0b 20 |)=Z%.... ..... |
00001b70 20 50 25 2b 3d 31 0d 0a c8 05 ce 0d 0a d2 19 e7 | P%+=1..........|
00001b80 20 ac 53 25 20 8c 20 f2 73 65 74 69 63 6f 6e 73 | .S% . .seticons|
00001b90 28 2d 31 29 0d 0a dc 4e c8 99 20 22 57 69 6d 70 |(-1)...N.. "Wimp|
00001ba0 5f 42 61 73 65 4f 66 53 70 72 69 74 65 73 22 20 |_BaseOfSprites" |
00001bb0 b8 20 2c 73 70 72 25 20 20 3a f4 20 54 68 69 73 |. ,spr% :. This|
00001bc0 20 61 64 64 72 65 73 73 20 73 65 65 6d 73 20 74 | address seems t|
00001bd0 6f 20 63 68 61 6e 67 65 20 73 6f 6d 65 74 69 6d |o change sometim|
00001be0 65 73 0d 0a e6 25 c8 99 20 73 70 72 6f 70 25 2c |es...%.. sprop%,|
00001bf0 32 35 36 2b 32 35 2c 73 70 72 25 2c 22 21 6d 6f |256+25,spr%,"!mo|
00001c00 64 65 75 74 69 6c 22 0d 0a f0 32 c8 99 20 73 70 |deutil"...2.. sp|
00001c10 72 6f 70 25 2c 32 35 36 2b 32 37 2c 73 70 72 25 |rop%,256+27,spr%|
00001c20 2c 22 21 6d 6f 64 65 75 74 69 6c 32 22 2c 22 21 |,"!modeutil2","!|
00001c30 6d 6f 64 65 75 74 69 6c 22 0d 0a fa 33 c8 99 20 |modeutil"...3.. |
00001c40 73 70 72 6f 70 25 2c 32 35 36 2b 36 30 2c 73 70 |sprop%,256+60,sp|
00001c50 72 25 2c 22 21 6d 6f 64 65 75 74 69 6c 22 20 b8 |r%,"!modeutil" .|
00001c60 20 41 25 2c 42 25 2c 43 25 2c 44 25 0d 0b 04 0e | A%,B%,C%,D%....|
00001c70 20 20 4d 24 3d c3 28 4d 25 29 0d 0b 0e 20 20 20 | M$=.(M%)... |
00001c80 e6 33 2c 31 34 3a ef 35 3a ec 20 33 34 2d a9 4d |.3,14:.5:. 34-.M|
00001c90 24 2a 38 2c 35 32 3a f1 4d 24 0d 0b 18 19 c8 99 |$*8,52:.M$......|
00001ca0 20 73 70 72 6f 70 25 2c 41 25 2c 42 25 2c 43 25 | sprop%,A%,B%,C%|
00001cb0 2c 44 25 0d 0b 22 43 21 7a 25 3d 2d 32 3a 7a 25 |,D%.."C!z%=-2:z%|
00001cc0 21 34 3d 74 61 73 6b 69 63 6f 6e 25 3a 7a 25 21 |!4=taskicon%:z%!|
00001cd0 38 3d 30 3a 7a 25 21 31 32 3d 30 3a c8 99 20 22 |8=0:z%!12=0:.. "|
00001ce0 57 69 6d 70 5f 53 65 74 49 63 6f 6e 53 74 61 74 |Wimp_SetIconStat|
00001cf0 65 22 2c 2c 7a 25 0d 0b 2c 05 e1 0d 0b 36 05 3a |e",,z%..,....6.:|
00001d00 0d 0b 40 13 dd 20 f2 73 65 74 69 63 6f 6e 73 28 |..@.. .seticons(|
00001d10 50 25 29 0d 0b 4a 0b ea 20 4d 24 2c 53 25 0d 0b |P%)..J.. M$,S%..|
00001d20 54 0d e7 20 50 25 3e 3d 30 20 8c 0d 0b 5e 12 20 |T.. P%>=0 ...^. |
00001d30 20 4d 24 3d 6d 65 6e 75 24 28 50 25 29 0d 0b 68 | M$=menu$(P%)..h|
00001d40 22 20 20 f2 73 65 74 69 63 6f 6e 28 32 2c c3 28 |" .seticon(2,.(|
00001d50 6d 6f 64 65 25 28 50 25 29 80 26 46 46 29 29 0d |mode%(P%).&FF)).|
00001d60 0b 72 05 cc 0d 0b 7c 0a 20 20 53 25 3d eb 0d 0b |.r....|. S%=...|
00001d70 86 34 20 20 e7 20 a4 6d 6f 64 65 76 61 6c 69 64 |.4 . .modevalid|
00001d80 28 53 25 29 20 8c 20 4d 24 3d 22 55 6e 6b 6e 6f |(S%) . M$="Unkno|
00001d90 77 6e 22 20 8b 20 4d 24 3d 22 49 6e 76 61 6c 69 |wn" . M$="Invali|
00001da0 64 22 0d 0b 90 30 20 20 4d 24 2b 3d 22 2e 22 2b |d"...0 M$+="."+|
00001db0 c3 28 a4 72 65 61 64 6d 6f 64 65 76 61 72 28 53 |.(.readmodevar(S|
00001dc0 25 2c 33 29 2b 31 29 2b 22 20 63 6f 6c 6f 75 72 |%,3)+1)+" colour|
00001dd0 73 22 0d 0b 9a 15 20 20 f2 73 65 74 69 63 6f 6e |s".... .seticon|
00001de0 28 32 2c c3 53 25 29 0d 0b a4 05 cd 0d 0b ae 04 |(2,.S%).........|
00001df0 0d 0b b8 0f 53 25 3d a7 4d 24 2c 22 2e 22 29 0d |....S%=.M$,".").|
00001e00 0b c2 19 f2 73 65 74 69 63 6f 6e 28 30 2c c0 4d |....seticon(0,.M|
00001e10 24 2c 53 25 2d 31 29 29 0d 0b cc 19 f2 73 65 74 |$,S%-1)).....set|
00001e20 69 63 6f 6e 28 31 2c c1 4d 24 2c 53 25 2b 31 29 |icon(1,.M$,S%+1)|
00001e30 29 0d 0b d6 05 e1 0d 0b e0 05 3a 0d 0b ea 19 dd |).........:.....|
00001e40 20 a4 72 65 61 64 6d 6f 64 65 76 61 72 28 4d 25 | .readmodevar(M%|
00001e50 2c 4e 25 29 0d 0b f4 08 ea 20 52 25 0d 0b fe 16 |,N%)..... R%....|
00001e60 e7 20 a4 6d 6f 64 65 76 61 6c 69 64 28 4d 25 29 |. .modevalid(M%)|
00001e70 20 8c 0d 0c 08 1c 20 20 c8 99 20 72 6d 6f 64 65 | ..... .. rmode|
00001e80 25 2c 4d 25 2c 4e 25 20 b8 20 2c 2c 52 25 0d 0c |%,M%,N% . ,,R%..|
00001e90 12 05 cc 0d 0c 1c 0a 20 20 52 25 3d 30 0d 0c 26 |....... R%=0..&|
00001ea0 05 cd 0d 0c 30 07 3d 52 25 0d 0c 3a 05 3a 0d 0c |....0.=R%..:.:..|
00001eb0 44 15 dd 20 f2 73 65 6c 65 63 74 6d 6f 64 65 28 |D.. .selectmode(|
00001ec0 49 24 29 0d 0c 4e 0d ea 20 4d 25 3a 4d 25 3d 30 |I$)..N.. M%:M%=0|
00001ed0 0d 0c 58 1d c8 95 20 6d 65 6e 75 24 28 4d 25 29 |..X... menu$(M%)|
00001ee0 3c 3e 22 22 20 80 20 4d 25 3c 31 30 30 0d 0c 62 |<>"" . M%<100..b|
00001ef0 3c 20 20 e7 20 6d 65 6e 75 24 28 4d 25 29 3d 49 |< . menu$(M%)=I|
00001f00 24 20 8c 20 f2 77 69 6d 70 5f 73 65 74 6d 6f 64 |$ . .wimp_setmod|
00001f10 65 28 28 6d 6f 64 65 25 28 4d 25 29 80 20 26 46 |e((mode%(M%). &F|
00001f20 46 29 29 3a 4d 25 3d 39 39 0d 0c 6c 0b 20 20 4d |F)):M%=99..l. M|
00001f30 25 2b 3d 31 0d 0c 76 05 ce 0d 0c 80 05 e1 0d 0c |%+=1..v.........|
00001f40 8a 05 3a 0d 0c 94 54 dd 20 f2 77 69 6d 70 5f 73 |..:...T. .wimp_s|
00001f50 65 74 6d 6f 64 65 28 4d 25 29 20 20 20 20 20 20 |etmode(M%) |
00001f60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001f70 20 20 20 20 3a f4 20 43 68 61 6e 67 65 20 57 69 | :. Change Wi|
00001f80 6d 70 20 74 6f 20 74 68 69 73 20 53 63 72 65 65 |mp to this Scree|
00001f90 6e 20 6d 6f 64 65 2e 0d 0c 9e 2b e7 20 a4 6d 6f |n mode....+. .mo|
00001fa0 64 65 76 61 6c 69 64 28 4d 25 29 20 8c 20 c8 99 |devalid(M%) . ..|
00001fb0 20 22 57 69 6d 70 5f 53 65 74 4d 6f 64 65 22 2c | "Wimp_SetMode",|
00001fc0 4d 25 0d 0c a8 05 e1 0d 0c b2 05 3a 0d 0c bc 13 |M%.........:....|
00001fd0 dd 20 f2 6c 6f 61 64 64 65 66 61 75 6c 74 73 0d |. .loaddefaults.|
00001fe0 0c c6 0b ea 20 46 25 2c 4d 25 0d 0c d0 23 46 25 |.... F%,M%...#F%|
00001ff0 3d 8e 28 22 3c 4d 6f 64 65 55 74 69 6c 24 44 69 |=.("<ModeUtil$Di|
00002000 72 3e 2e 53 65 74 74 69 6e 67 73 22 29 0d 0c da |r>.Settings")...|
00002010 0e e7 20 46 25 3d 30 20 8c 20 e1 0d 0c e4 04 0d |.. F%=0 . ......|
00002020 0c ee 0d c8 95 20 ac 20 c5 23 46 25 0d 0c f8 0d |..... . .#F%....|
00002030 20 20 4d 24 3d be 23 46 25 0d 0d 02 15 20 20 6d | M$=.#F%.... m|
00002040 6f 64 65 25 28 4d 25 29 3d bb 28 4d 24 29 0d 0d |ode%(M%)=.(M$)..|
00002050 0c 16 20 20 6d 65 6e 75 24 28 4d 25 29 3d c1 4d |.. menu$(M%)=.M|
00002060 24 2c 35 29 0d 0d 16 0b 20 20 4d 25 2b 3d 31 0d |$,5).... M%+=1.|
00002070 0d 20 05 ce 0d 0d 2a 08 d9 23 46 25 0d 0d 34 04 |. ....*..#F%..4.|
00002080 0d 0d 3e 13 64 65 66 61 75 6c 74 73 61 76 65 64 |..>.defaultsaved|
00002090 25 3d b9 0d 0d 48 04 0d 0d 52 0f f2 6d 6f 64 65 |%=...H...R..mode|
000020a0 63 68 61 6e 67 65 0d 0d 5c 05 e1 0d 0d 66 05 3a |change..\....f.:|
000020b0 0d 0d 70 13 dd 20 f2 73 61 76 65 64 65 66 61 75 |..p.. .savedefau|
000020c0 6c 74 73 0d 0d 7a 0e ea 20 46 25 2c 4d 25 2c 4d |lts..z.. F%,M%,M|
000020d0 24 0d 0d 84 17 e7 20 64 65 66 61 75 6c 74 73 61 |$..... defaultsa|
000020e0 76 65 64 25 20 8c 20 e1 0d 0d 8e 04 0d 0d 98 23 |ved% . ........#|
000020f0 46 25 3d ae 28 22 3c 4d 6f 64 65 55 74 69 6c 24 |F%=.("<ModeUtil$|
00002100 44 69 72 3e 2e 53 65 74 74 69 6e 67 73 22 29 0d |Dir>.Settings").|
00002110 0d a2 0e e7 20 46 25 3d 30 20 8c 20 e1 0d 0d ac |.... F%=0 . ....|
00002120 04 0d 0d b6 08 4d 25 3d 30 0d 0d c0 1d c8 95 20 |.....M%=0...... |
00002130 6d 65 6e 75 24 28 4d 25 29 3c 3e 22 22 20 80 20 |menu$(M%)<>"" . |
00002140 4d 25 3c 31 30 30 0d 0d ca 2a 20 20 4d 24 3d c3 |M%<100...* M$=.|
00002150 28 6d 6f 64 65 25 28 4d 25 29 80 20 26 46 46 29 |(mode%(M%). &FF)|
00002160 3a 4d 24 2b 3d c4 34 2d a9 4d 24 2c 22 20 22 29 |:M$+=.4-.M$," ")|
00002170 0d 0d d4 17 20 20 d5 23 46 25 2c 4d 24 2b 6d 65 |.... .#F%,M$+me|
00002180 6e 75 24 28 4d 25 29 0d 0d de 0b 20 20 4d 25 2b |nu$(M%).... M%+|
00002190 3d 31 0d 0d e8 05 ce 0d 0d f2 08 d9 23 46 25 0d |=1..........#F%.|
000021a0 0d fc 04 0d 0e 06 2d ff 28 22 53 65 74 74 79 70 |......-.("Settyp|
000021b0 65 20 3c 4d 6f 64 65 55 74 69 6c 24 44 69 72 3e |e <ModeUtil$Dir>|
000021c0 2e 53 65 74 74 69 6e 67 73 20 54 65 78 74 22 29 |.Settings Text")|
000021d0 0d 0e 10 05 e1 0d 0e 1a 05 3a 0d 0e 24 0f dd 20 |.........:..$.. |
000021e0 f2 61 75 74 6f 6c 6f 61 64 0d 0e 2e 05 e1 0d 0e |.autoload.......|
000021f0 38 05 3a 0d 0e 42 16 dd 20 f2 6f 70 65 6e 77 69 |8.:..B.. .openwi|
00002200 6e 64 6f 77 28 21 7a 25 29 0d 0e 4c 20 c8 99 20 |ndow(!z%)..L .. |
00002210 22 57 69 6d 70 5f 47 65 74 57 69 6e 64 6f 77 53 |"Wimp_GetWindowS|
00002220 74 61 74 65 22 2c 2c 7a 25 0d 0e 56 25 7a 25 21 |tate",,z%..V%z%!|
00002230 32 38 3d 2d 31 3a c8 99 20 22 57 69 6d 70 5f 4f |28=-1:.. "Wimp_O|
00002240 70 65 6e 57 69 6e 64 6f 77 22 2c 2c 7a 25 0d 0e |penWindow",,z%..|
00002250 60 05 e1 0d 0e 6a 05 3a 0d 0e 74 0e dd 20 f2 73 |`....j.:..t.. .s|
00002260 65 74 6d 6f 64 65 0d 0e 7e 11 ea 20 4d 25 2c 4d |etmode..~.. M%,M|
00002270 24 2c 53 24 2c 46 25 0d 0e 88 04 0d 0e 92 23 4d |$,S$,F%.......#M|
00002280 24 3d a4 69 63 6f 6e 74 65 78 74 28 30 29 3a 53 |$=.icontext(0):S|
00002290 24 3d a4 69 63 6f 6e 74 65 78 74 28 31 29 0d 0e |$=.icontext(1)..|
000022a0 9c 19 e7 20 53 24 3c 3e 22 22 20 8c 20 4d 24 2b |... S$<>"" . M$+|
000022b0 3d 22 2e 22 2b 53 24 0d 0e a6 04 0d 0e b0 0d 4d |="."+S$........M|
000022c0 25 3d 30 3a 46 25 3d a3 0d 0e ba 23 c8 95 20 6d |%=0:F%=....#.. m|
000022d0 65 6e 75 24 28 4d 25 29 3c 3e 22 22 20 80 20 4d |enu$(M%)<>"" . M|
000022e0 25 3c 31 30 30 20 80 20 ac 46 25 0d 0e c4 1e 20 |%<100 . .F%.... |
000022f0 20 e7 20 6d 65 6e 75 24 28 4d 25 29 3d 4d 24 20 | . menu$(M%)=M$ |
00002300 8c 20 ef 37 3a 46 25 3d b9 0d 0e ce 0b 20 20 4d |. .7:F%=..... M|
00002310 25 2b 3d 31 0d 0e d8 05 ce 0d 0e e2 04 0d 0e ec |%+=1............|
00002320 0b e7 20 ac 46 25 20 8c 0d 0e f6 12 20 20 6d 65 |.. .F% ..... me|
00002330 6e 75 24 28 4d 25 29 3d 4d 24 0d 0f 00 1d 20 20 |nu$(M%)=M$.... |
00002340 6d 6f 64 65 25 28 4d 25 29 3d bb a4 69 63 6f 6e |mode%(M%)=..icon|
00002350 74 65 78 74 28 32 29 0d 0f 0a 15 20 20 64 65 66 |text(2).... def|
00002360 61 75 6c 74 73 61 76 65 64 25 3d a3 0d 0f 14 05 |aultsaved%=.....|
00002370 cd 0d 0f 1e 0f f2 6d 6f 64 65 63 68 61 6e 67 65 |......modechange|
00002380 0d 0f 28 05 e1 0d 0f 32 05 3a 0d 0f 3c 0e dd 20 |..(....2.:..<.. |
00002390 f2 74 72 79 6d 6f 64 65 0d 0f 46 20 f2 77 69 6d |.trymode..F .wim|
000023a0 70 5f 73 65 74 6d 6f 64 65 28 bb a4 69 63 6f 6e |p_setmode(..icon|
000023b0 74 65 78 74 28 32 29 29 0d 0f 50 05 e1 0d 0f 5a |text(2))..P....Z|
000023c0 05 3a 0d 0f 64 11 dd 20 f2 72 65 6d 6f 76 65 6d |.:..d.. .removem|
000023d0 6f 64 65 0d 0f 6e 11 ea 20 4d 25 2c 4d 24 2c 53 |ode..n.. M%,M$,S|
000023e0 24 2c 46 25 0d 0f 78 04 0d 0f 82 23 4d 24 3d a4 |$,F%..x....#M$=.|
000023f0 69 63 6f 6e 74 65 78 74 28 30 29 3a 53 24 3d a4 |icontext(0):S$=.|
00002400 69 63 6f 6e 74 65 78 74 28 31 29 0d 0f 8c 19 e7 |icontext(1).....|
00002410 20 53 24 3c 3e 22 22 20 8c 20 4d 24 2b 3d 22 2e | S$<>"" . M$+=".|
00002420 22 2b 53 24 0d 0f 96 04 0d 0f a0 0d 4d 25 3d 30 |"+S$........M%=0|
00002430 3a 46 25 3d a3 0d 0f aa 23 c8 95 20 6d 65 6e 75 |:F%=....#.. menu|
00002440 24 28 4d 25 29 3c 3e 22 22 20 80 20 4d 25 3c 31 |$(M%)<>"" . M%<1|
00002450 30 30 20 80 20 ac 46 25 0d 0f b4 16 20 20 e7 20 |00 . .F%.... . |
00002460 6d 65 6e 75 24 28 4d 25 29 3d 4d 24 20 8c 0d 0f |menu$(M%)=M$ ...|
00002470 be 14 20 20 20 20 e3 20 46 25 3d 4d 25 20 b8 20 |.. . F%=M% . |
00002480 39 39 0d 0f c8 1f 20 20 20 20 20 20 6d 65 6e 75 |99.... menu|
00002490 24 28 46 25 29 3d 6d 65 6e 75 24 28 46 25 2b 31 |$(F%)=menu$(F%+1|
000024a0 29 0d 0f d2 09 20 20 20 20 ed 0d 0f dc 15 20 20 |).... ..... |
000024b0 20 20 6d 65 6e 75 24 28 31 30 30 29 3d 22 22 0d | menu$(100)="".|
000024c0 0f e6 0c 20 20 20 20 46 25 3d b9 0d 0f f0 17 20 |... F%=..... |
000024d0 20 20 20 64 65 66 61 75 6c 74 73 61 76 65 64 25 | defaultsaved%|
000024e0 3d a3 0d 0f fa 07 20 20 cd 0d 10 04 0b 20 20 4d |=..... ..... M|
000024f0 25 2b 3d 31 0d 10 0e 05 ce 0d 10 18 0f f2 6d 6f |%+=1..........mo|
00002500 64 65 63 68 61 6e 67 65 0d 10 22 05 e1 0d 10 2c |dechange.."....,|
00002510 05 3a 0d 10 36 13 dd 20 a4 69 63 6f 6e 74 65 78 |.:..6.. .icontex|
00002520 74 28 49 25 29 0d 10 40 08 ea 20 4d 24 0d 10 4a |t(I%)..@.. M$..J|
00002530 04 0d 10 54 19 21 7a 25 3d 64 6c 6f 67 68 61 6e |...T.!z%=dloghan|
00002540 64 25 3a 7a 25 21 34 3d 49 25 0d 10 5e 1e c8 99 |d%:z%!4=I%..^...|
00002550 20 22 57 69 6d 70 5f 47 65 74 49 63 6f 6e 53 74 | "Wimp_GetIconSt|
00002560 61 74 65 22 2c 2c 7a 25 0d 10 68 29 e7 20 7a 25 |ate",,z%..h). z%|
00002570 21 32 38 3c 74 65 6d 70 25 20 84 20 7a 25 21 32 |!28<temp% . z%!2|
00002580 38 3e 74 65 6d 70 25 2b 35 31 32 20 8c 20 3d 22 |8>temp%+512 . ="|
00002590 22 0d 10 72 04 0d 10 7c 19 4d 24 3d a4 7a 65 72 |"..r...|.M$=.zer|
000025a0 6f 73 74 72 69 6e 67 28 7a 25 21 32 38 29 0d 10 |ostring(z%!28)..|
000025b0 86 21 c8 95 20 c2 4d 24 2c 31 29 3d 22 20 22 3a |.!.. .M$,1)=" ":|
000025c0 4d 24 3d c0 4d 24 2c a9 4d 24 2d 31 29 3a ce 0d |M$=.M$,.M$-1):..|
000025d0 10 90 07 3d 4d 24 0d 10 9a 05 3a 0d 10 a4 15 dd |...=M$....:.....|
000025e0 20 f2 73 65 74 69 63 6f 6e 28 49 25 2c 4d 24 29 | .seticon(I%,M$)|
000025f0 0d 10 ae 19 21 7a 25 3d 64 6c 6f 67 68 61 6e 64 |....!z%=dloghand|
00002600 25 3a 7a 25 21 34 3d 49 25 0d 10 b8 1e c8 99 20 |%:z%!4=I%...... |
00002610 22 57 69 6d 70 5f 47 65 74 49 63 6f 6e 53 74 61 |"Wimp_GetIconSta|
00002620 74 65 22 2c 2c 7a 25 0d 10 c2 27 e7 20 7a 25 21 |te",,z%...'. z%!|
00002630 32 38 3c 74 65 6d 70 25 20 84 20 7a 25 21 32 38 |28<temp% . z%!28|
00002640 3e 74 65 6d 70 25 2b 35 31 32 20 8c 20 e1 0d 10 |>temp%+512 . ...|
00002650 cc 04 0d 10 d6 14 24 28 7a 25 21 32 38 29 3d c0 |......$(z%!28)=.|
00002660 4d 24 2c 31 32 29 0d 10 e0 04 0d 10 ea 28 21 7a |M$,12).......(!z|
00002670 25 3d 64 6c 6f 67 68 61 6e 64 25 3a 7a 25 21 34 |%=dloghand%:z%!4|
00002680 3d 49 25 3a 7a 25 21 38 3d 30 3a 7a 25 21 31 32 |=I%:z%!8=0:z%!12|
00002690 3d 30 0d 10 f4 35 c8 99 20 22 57 69 6d 70 5f 53 |=0...5.. "Wimp_S|
000026a0 65 74 49 63 6f 6e 53 74 61 74 65 22 2c 2c 7a 25 |etIconState",,z%|
000026b0 20 20 20 20 20 20 20 20 3a f4 20 46 6f 72 63 65 | :. Force|
000026c0 20 72 65 64 72 61 77 0d 10 fe 05 e1 0d 11 08 05 | redraw.........|
000026d0 3a 0d 11 12 44 dd 20 f2 61 75 74 6f 72 75 6e 20 |:...D. .autorun |
000026e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000026f0 20 3a f4 20 41 75 74 6f 2d 52 75 6e 20 61 6c 6c | :. Auto-Run all|
00002700 20 66 69 65 73 20 69 6e 20 41 75 74 6f 52 75 6e | fies in AutoRun|
00002710 20 64 69 72 2e 0d 11 1c 0b ea 20 4f 25 2c 66 24 | dir...... O%,f$|
00002720 0d 11 26 04 0d 11 30 08 4f 25 3d 30 0d 11 3a 05 |..&...0.O%=0..:.|
00002730 f5 0d 11 44 48 20 20 c8 99 20 22 4f 53 5f 47 42 |...DH .. "OS_GB|
00002740 50 42 22 2c 31 30 2c 22 3c 4d 6f 64 65 55 74 69 |PB",10,"<ModeUti|
00002750 6c 24 44 69 72 3e 2e 41 75 74 6f 52 75 6e 22 2c |l$Dir>.AutoRun",|
00002760 7a 25 2c 31 2c 4f 25 2c 31 30 32 34 2c 22 2a 22 |z%,1,O%,1024,"*"|
00002770 20 b8 20 2c 2c 2c 2c 4f 25 0d 11 4e 1c 20 20 66 | . ,,,,O%..N. f|
00002780 24 3d a4 7a 65 72 6f 73 74 72 69 6e 67 28 7a 25 |$=.zerostring(z%|
00002790 2b 26 31 34 29 0d 11 58 04 0d 11 62 10 20 20 e7 |+&14)..X...b. .|
000027a0 20 4f 25 3c 3e 2d 31 20 8c 0d 11 6c 38 20 20 20 | O%<>-1 ...l8 |
000027b0 20 c8 99 20 22 57 69 6d 70 5f 53 74 61 72 74 54 | .. "Wimp_StartT|
000027c0 61 73 6b 22 2c 22 3c 4d 6f 64 65 55 74 69 6c 24 |ask","<ModeUtil$|
000027d0 44 69 72 3e 2e 41 75 74 6f 52 75 6e 2e 22 2b 66 |Dir>.AutoRun."+f|
000027e0 24 0d 11 76 07 20 20 cd 0d 11 80 0b fd 20 4f 25 |$..v. ...... O%|
000027f0 3d 2d 31 0d 11 8a 05 e1 0d 11 94 05 3a 0d 11 9e |=-1.........:...|
00002800 15 dd 20 a4 7a 65 72 6f 73 74 72 69 6e 67 28 41 |.. .zerostring(A|
00002810 25 29 0d 11 a8 0e ea 20 4d 24 3a 4d 24 3d 22 22 |%)..... M$:M$=""|
00002820 0d 11 b2 0d c8 95 20 3f 41 25 3e 33 31 0d 11 bc |...... ?A%>31...|
00002830 14 20 20 4d 24 2b 3d bd 3f 41 25 3a 41 25 2b 3d |. M$+=.?A%:A%+=|
00002840 31 0d 11 c6 05 ce 0d 11 d0 07 3d 4d 24 0d 11 da |1.........=M$...|
00002850 05 3a 0d 11 e4 39 dd 20 f2 63 68 6b 20 20 20 20 |.:...9. .chk |
00002860 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002870 20 20 3a f4 20 43 68 65 63 6b 20 69 66 20 74 69 | :. Check if ti|
00002880 6d 65 20 74 6f 20 42 6c 61 6e 6b 0d 11 ee 0f c8 |me to Blank.....|
00002890 97 20 78 25 2c 79 25 2c 62 25 0d 11 f8 26 e7 20 |. x%,y%,b%...&. |
000028a0 78 25 3d 30 20 80 20 79 25 3e 3d 6d 61 78 79 25 |x%=0 . y%>=maxy%|
000028b0 20 80 20 62 25 3d 30 20 8c 20 f2 62 6c 61 6e 6b | . b%=0 . .blank|
000028c0 0d 12 02 15 e7 20 6f 66 66 74 69 6d 65 25 3d 2d |..... offtime%=-|
000028d0 31 20 8c 20 e1 0d 12 0c 32 e7 20 58 25 3d 78 25 |1 . ....2. X%=x%|
000028e0 3a e7 20 59 25 3d 79 25 3a e7 20 42 25 3d 62 25 |:. Y%=y%:. B%=b%|
000028f0 20 8c 20 f2 61 64 64 20 8b 20 6c 61 73 74 74 69 | . .add . lastti|
00002900 6d 65 25 3d 2d 34 32 0d 12 16 2e e7 20 21 76 65 |me%=-42..... !ve|
00002910 63 63 68 65 63 6b 3c 3e 30 20 8c 20 21 76 65 63 |ccheck<>0 . !vec|
00002920 63 68 65 63 6b 3d 30 3a 6c 61 73 74 74 69 6d 65 |check=0:lasttime|
00002930 25 3d 2d 34 32 0d 12 20 0f c8 97 20 58 25 2c 59 |%=-42.. ... X%,Y|
00002940 25 2c 42 25 0d 12 2a 05 e1 0d 12 34 05 3a 0d 12 |%,B%..*....4.:..|
00002950 3e 3f dd 20 f2 61 64 64 20 20 20 20 20 20 20 20 |>?. .add |
00002960 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a f4 | :.|
00002970 20 4b 65 65 70 20 74 69 6d 65 2c 20 69 66 20 74 | Keep time, if t|
00002980 69 6d 65 20 75 70 2c 20 62 6c 61 6e 6b 0d 12 48 |ime up, blank..H|
00002990 17 c8 99 20 74 69 6d 65 25 20 b8 20 6e 65 77 74 |... time% . newt|
000029a0 69 6d 65 25 0d 12 52 15 e7 20 6c 61 73 74 74 69 |ime%..R.. lastti|
000029b0 6d 65 25 3d 2d 34 32 20 8c 0d 12 5c 18 20 20 6c |me%=-42 ...\. l|
000029c0 61 73 74 74 69 6d 65 25 3d 6e 65 77 74 69 6d 65 |asttime%=newtime|
000029d0 25 0d 12 66 05 cc 0d 12 70 2c 20 20 e7 20 6e 65 |%..f....p, . ne|
000029e0 77 74 69 6d 65 25 2d 6c 61 73 74 74 69 6d 65 25 |wtime%-lasttime%|
000029f0 3e 3d 6f 66 66 74 69 6d 65 25 20 8c f2 62 6c 61 |>=offtime% ..bla|
00002a00 6e 6b 0d 12 7a 05 cd 0d 12 84 05 e1 0d 12 8e 05 |nk..z...........|
00002a10 3a 0d 12 98 33 dd 20 f2 62 6c 61 6e 6b 20 20 20 |:...3. .blank |
00002a20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002a30 20 3a f4 20 42 6c 61 6e 6b 20 74 68 65 20 73 63 | :. Blank the sc|
00002a40 72 65 65 6e 0d 12 a2 11 ea 20 54 25 2c 58 25 2c |reen..... T%,X%,|
00002a50 59 25 2c 42 25 0d 12 ac 33 21 7a 25 3d 62 6c 61 |Y%,B%...3!z%=bla|
00002a60 6e 6b 68 61 6e 64 25 3a 7a 25 21 34 3d 30 3a c8 |nkhand%:z%!4=0:.|
00002a70 99 20 22 58 57 69 6d 70 5f 44 65 6c 65 74 65 49 |. "XWimp_DeleteI|
00002a80 63 6f 6e 22 2c 2c 7a 25 0d 12 b6 1b f2 6f 70 65 |con",,z%.....ope|
00002a90 6e 77 69 6e 64 6f 77 28 62 6c 61 6e 6b 68 61 6e |nwindow(blankhan|
00002aa0 64 25 29 0d 12 c0 0c f2 73 61 76 65 70 61 6c 0d |d%).....savepal.|
00002ab0 12 ca 16 f2 73 61 76 65 73 65 74 75 70 3a f2 72 |....savesetup:.r|
00002ac0 65 64 72 61 77 0d 12 d4 04 0d 12 de 22 c8 97 20 |edraw.......".. |
00002ad0 87 3a 6d 65 6e 75 70 65 6e 64 69 6e 67 25 3d 30 |.:menupending%=0|
00002ae0 3a 65 6e 64 73 61 76 65 25 3d a3 0d 12 e8 29 58 |:endsave%=....)X|
00002af0 25 3d 6d 61 78 78 25 81 32 3a 59 25 3d 6d 61 78 |%=maxx%.2:Y%=max|
00002b00 79 25 81 32 3a 42 25 3d 30 3a c8 97 20 b8 20 58 |y%.2:B%=0:.. . X|
00002b10 25 2c 59 25 0d 12 f2 04 0d 12 fc 20 c8 95 20 42 |%,Y%....... .. B|
00002b20 25 3d 30 20 80 20 ac 71 75 69 74 25 20 80 20 ac |%=0 . .quit% . .|
00002b30 65 6e 64 73 61 76 65 25 0d 13 06 3b 20 20 c8 99 |endsave%...; ..|
00002b40 20 74 69 6d 65 25 20 b8 20 54 25 3a 54 25 2b 3d | time% . T%:T%+=|
00002b50 31 30 30 3a c8 99 20 22 57 69 6d 70 5f 50 6f 6c |100:.. "Wimp_Pol|
00002b60 6c 49 64 6c 65 22 2c 30 2c 7a 25 2c 54 25 20 b8 |lIdle",0,z%,T% .|
00002b70 20 52 25 0d 13 10 04 0d 13 1a 0d 20 20 c8 8e 20 | R%........ .. |
00002b80 52 25 20 ca 0d 13 24 14 20 20 20 20 c9 20 30 3a |R% ...$. . 0:|
00002b90 20 f2 72 65 64 72 61 77 0d 13 2e 25 20 20 20 20 | .redraw...% |
00002ba0 c9 20 32 3a 20 c8 99 20 22 57 69 6d 70 5f 4f 70 |. 2: .. "Wimp_Op|
00002bb0 65 6e 57 69 6e 64 6f 77 22 2c 2c 7a 25 0d 13 38 |enWindow",,z%..8|
00002bc0 04 0d 13 42 40 20 20 20 20 c9 20 36 3a 20 c8 97 |...B@ . 6: ..|
00002bd0 20 58 25 2c 59 25 2c 42 25 3a e7 20 42 25 3e 30 | X%,Y%,B%:. B%>0|
00002be0 20 80 20 6d 65 6e 75 70 65 6e 64 69 6e 67 25 3e | . menupending%>|
00002bf0 31 20 8c 6d 65 6e 75 70 65 6e 64 69 6e 67 25 3d |1 .menupending%=|
00002c00 31 0d 13 4c 3f 20 20 20 20 20 20 20 20 20 20 20 |1..L? |
00002c10 20 e7 20 42 25 3d 32 20 8c 20 6d 65 6e 75 70 65 | . B%=2 . menupe|
00002c20 6e 64 69 6e 67 25 3d 39 3a c8 97 20 ee 20 31 3a |nding%=9:.. . 1:|
00002c30 f2 73 61 76 65 6d 65 6e 75 28 58 25 2c 59 25 29 |.savemenu(X%,Y%)|
00002c40 0d 13 56 04 0d 13 60 32 20 20 20 20 c9 20 38 3a |..V...`2 . 8:|
00002c50 20 65 6e 64 73 61 76 65 25 3d b9 3a c8 99 20 22 | endsave%=.:.. "|
00002c60 57 69 6d 70 5f 50 72 6f 63 65 73 73 4b 65 79 22 |Wimp_ProcessKey"|
00002c70 2c 7a 25 21 32 34 0d 13 6a 04 0d 13 74 24 20 20 |,z%!24..j...t$ |
00002c80 20 20 c9 20 39 3a 20 f2 73 61 76 65 63 68 6f 69 | . 9: .savechoi|
00002c90 63 65 3a c8 97 20 58 25 2c 59 25 2c 42 25 0d 13 |ce:.. X%,Y%,B%..|
00002ca0 7e 28 20 20 20 20 20 20 20 20 20 20 20 20 e7 20 |~( . |
00002cb0 42 25 3c 3e 31 20 8c 20 6d 65 6e 75 70 65 6e 64 |B%<>1 . menupend|
00002cc0 69 6e 67 25 3d 31 0d 13 88 14 20 20 20 20 20 20 |ing%=1.... |
00002cd0 20 20 20 20 20 20 42 25 3d 30 0d 13 92 07 20 20 | B%=0.... |
00002ce0 cb 0d 13 9c 04 0d 13 a6 24 20 20 e7 20 6d 65 6e |........$ . men|
00002cf0 75 70 65 6e 64 69 6e 67 25 3e 30 20 80 20 ac 65 |upending%>0 . .e|
00002d00 6e 64 73 61 76 65 25 20 8c 0d 13 b0 1a 20 20 20 |ndsave% ..... |
00002d10 20 e7 20 6d 65 6e 75 70 65 6e 64 69 6e 67 25 3d | . menupending%=|
00002d20 31 20 8c 0d 13 ba 1e 20 20 20 20 20 20 f5 3a c8 |1 ..... .:.|
00002d30 97 20 58 25 2c 59 25 2c 42 25 3a fd 20 42 25 3d |. X%,Y%,B%:. B%=|
00002d40 30 0d 13 c4 18 20 20 20 20 20 20 6d 65 6e 75 70 |0.... menup|
00002d50 65 6e 64 69 6e 67 25 3d 30 0d 13 ce 0e 20 20 20 |ending%=0.... |
00002d60 20 20 20 c8 97 20 87 0d 13 d8 09 20 20 20 20 cd | .. ..... .|
00002d70 0d 13 e2 13 20 20 20 20 21 76 65 63 63 68 65 63 |.... !vecchec|
00002d80 6b 3d 30 0d 13 ec 38 20 20 20 20 42 25 3d 30 20 |k=0...8 B%=0 |
00002d90 20 20 20 20 20 20 20 20 3a f4 20 43 61 6e 27 74 | :. Can't|
00002da0 20 75 6e 2d 73 61 76 65 20 77 68 69 6c 65 20 6d | un-save while m|
00002db0 65 6e 75 20 70 65 6e 64 69 6e 67 0d 13 f6 07 20 |enu pending.... |
00002dc0 20 cc 0d 14 00 2f 20 20 20 20 e7 20 21 76 65 63 | ..../ . !vec|
00002dd0 63 68 65 63 6b 3c 3e 30 20 8c 20 21 76 65 63 63 |check<>0 . !vecc|
00002de0 68 65 63 6b 3d 30 3a 65 6e 64 73 61 76 65 25 3d |heck=0:endsave%=|
00002df0 b9 0d 14 0a 07 20 20 cd 0d 14 14 05 ce 0d 14 1e |..... .........|
00002e00 05 20 0d 14 28 1d 6c 61 73 74 74 69 6d 65 25 3d |. ..(.lasttime%=|
00002e10 2d 34 32 3a 21 76 65 63 63 68 65 63 6b 3d 30 0d |-42:!veccheck=0.|
00002e20 14 32 0a c8 97 20 ee 20 31 0d 14 3c 04 0d 14 46 |.2... . 1..<...F|
00002e30 2c 21 7a 25 3d 62 6c 61 6e 6b 68 61 6e 64 25 3a |,!z%=blankhand%:|
00002e40 c8 99 20 22 57 69 6d 70 5f 43 6c 6f 73 65 57 69 |.. "Wimp_CloseWi|
00002e50 6e 64 6f 77 22 2c 2c 7a 25 0d 14 50 0f f2 72 65 |ndow",,z%..P..re|
00002e60 73 74 6f 72 65 70 61 6c 0d 14 5a 05 e1 0d 14 64 |storepal..Z....d|
00002e70 05 3a 0d 14 6e 1b dd 20 f2 73 61 76 65 6d 65 6e |.:..n.. .savemen|
00002e80 75 28 58 25 2c 59 25 29 3a ea 20 70 25 0d 14 78 |u(X%,Y%):. p%..x|
00002e90 26 24 6d 25 3d 22 4d 6f 64 65 20 55 74 69 6c 22 |&$m%="Mode Util"|
00002ea0 2b bd 30 3a 6d 25 21 31 32 3d 26 30 30 30 37 30 |+.0:m%!12=&00070|
00002eb0 32 30 37 0d 14 82 1e 6d 25 21 31 36 3d 31 34 34 |207....m%!16=144|
00002ec0 3a 6d 25 21 32 30 3d 34 30 3a 6d 25 21 32 34 3d |:m%!20=40:m%!24=|
00002ed0 30 0d 14 8c 4a 70 25 3d 6d 25 2b 32 38 3a 70 25 |0...Jp%=m%+28:p%|
00002ee0 21 30 3d 30 20 20 20 20 20 20 20 20 20 20 20 3a |!0=0 :|
00002ef0 70 25 21 34 3d 68 61 6e 64 6c 65 25 20 3a 70 25 |p%!4=handle% :p%|
00002f00 21 38 3d 26 37 30 30 30 30 32 31 3a 24 28 70 25 |!8=&7000021:$(p%|
00002f10 2b 31 32 29 3d 22 49 6e 66 6f 22 0d 14 96 4c 70 |+12)="Info"...Lp|
00002f20 25 2b 3d 32 34 20 20 3a 70 25 21 30 3d 94 28 74 |%+=24 :p%!0=.(t|
00002f30 69 63 6b 25 3c 3e 35 29 3a 70 25 21 34 3d 6d 25 |ick%<>5):p%!4=m%|
00002f40 2b 31 32 38 20 3a 70 25 21 38 3d 26 37 30 30 30 |+128 :p%!8=&7000|
00002f50 30 32 31 3a 24 28 70 25 2b 31 32 29 3d 22 54 69 |021:$(p%+12)="Ti|
00002f60 6d 65 20 6f 75 74 22 0d 14 a0 47 70 25 2b 3d 32 |me out"...Gp%+=2|
00002f70 34 20 20 3a 70 25 21 30 3d 94 28 74 69 63 6b 25 |4 :p%!0=.(tick%|
00002f80 3d 35 29 20 3a 70 25 21 34 3d 2d 31 20 20 20 20 |=5) :p%!4=-1 |
00002f90 20 3a 70 25 21 38 3d 26 37 30 30 30 30 32 31 3a | :p%!8=&7000021:|
00002fa0 24 28 70 25 2b 31 32 29 3d 22 4f 66 66 22 0d 14 |$(p%+12)="Off"..|
00002fb0 aa 4a 70 25 2b 3d 32 34 20 20 3a 70 25 21 30 3d |.Jp%+=24 :p%!0=|
00002fc0 26 38 30 20 20 20 20 20 20 20 20 20 20 3a 70 25 |&80 :p%|
00002fd0 21 34 3d 2d 31 20 20 20 20 20 3a 70 25 21 38 3d |!4=-1 :p%!8=|
00002fe0 26 37 30 30 30 30 32 31 3a 24 28 70 25 2b 31 32 |&7000021:$(p%+12|
00002ff0 29 3d 22 51 75 69 74 22 0d 14 b4 04 0d 14 be 0d |)="Quit"........|
00003000 70 25 3d 6d 25 2b 31 32 38 0d 14 c8 22 24 70 25 |p%=m%+128..."$p%|
00003010 3d 22 61 66 74 65 72 22 2b bd 30 3a 70 25 21 31 |="after"+.0:p%!1|
00003020 32 3d 26 30 30 30 37 30 32 30 37 0d 14 d2 1e 70 |2=&00070207....p|
00003030 25 21 31 36 3d 31 34 34 3a 70 25 21 32 30 3d 34 |%!16=144:p%!20=4|
00003040 30 3a 70 25 21 32 34 3d 30 0d 14 dc 47 70 25 2b |0:p%!24=0...Gp%+|
00003050 3d 32 38 20 3a 70 25 21 30 3d 94 28 74 69 63 6b |=28 :p%!0=.(tick|
00003060 25 3d 31 29 20 3a 70 25 21 34 3d 2d 31 20 3a 70 |%=1) :p%!4=-1 :p|
00003070 25 21 38 3d 26 37 30 30 30 30 32 31 20 3a 24 28 |%!8=&7000021 :$(|
00003080 70 25 2b 31 32 29 3d 22 33 30 20 73 65 63 73 22 |p%+12)="30 secs"|
00003090 0d 14 e6 45 70 25 2b 3d 32 34 20 3a 70 25 21 30 |...Ep%+=24 :p%!0|
000030a0 3d 94 28 74 69 63 6b 25 3d 32 29 20 3a 70 25 21 |=.(tick%=2) :p%!|
000030b0 34 3d 2d 31 20 3a 70 25 21 38 3d 26 37 30 30 30 |4=-1 :p%!8=&7000|
000030c0 30 32 31 20 3a 24 28 70 25 2b 31 32 29 3d 22 31 |021 :$(p%+12)="1|
000030d0 20 6d 69 6e 22 0d 14 f0 45 70 25 2b 3d 32 34 20 | min"...Ep%+=24 |
000030e0 3a 70 25 21 30 3d 94 28 74 69 63 6b 25 3d 33 29 |:p%!0=.(tick%=3)|
000030f0 20 3a 70 25 21 34 3d 2d 31 20 3a 70 25 21 38 3d | :p%!4=-1 :p%!8=|
00003100 26 37 30 30 30 30 32 31 20 3a 24 28 70 25 2b 31 |&7000021 :$(p%+1|
00003110 32 29 3d 22 35 20 6d 69 6e 22 0d 14 fa 43 70 25 |2)="5 min"...Cp%|
00003120 2b 3d 32 34 20 3a 70 25 21 30 3d 26 38 34 2d 28 |+=24 :p%!0=&84-(|
00003130 74 69 63 6b 25 3d 34 29 3a 70 25 21 34 3d 2d 31 |tick%=4):p%!4=-1|
00003140 20 3a 70 25 21 38 3d 26 37 30 30 30 31 32 31 20 | :p%!8=&7000121 |
00003150 3a 70 25 21 31 32 3d 77 72 69 74 65 25 0d 15 04 |:p%!12=write%...|
00003160 1c 20 20 20 20 20 20 20 20 70 25 21 31 36 3d 2d |. p%!16=-|
00003170 31 3a 70 25 21 32 30 3d 35 0d 15 0e 22 6c 61 73 |1:p%!20=5..."las|
00003180 74 6d 65 6e 75 78 25 3d 58 25 2d 36 34 3a 6c 61 |tmenux%=X%-64:la|
00003190 73 74 6d 65 6e 75 79 25 3d 59 25 0d 15 18 25 c8 |stmenuy%=Y%...%.|
000031a0 99 20 22 57 69 6d 70 5f 43 72 65 61 74 65 4d 65 |. "Wimp_CreateMe|
000031b0 6e 75 22 2c 2c 6d 25 2c 58 25 2d 36 34 2c 59 25 |nu",,m%,X%-64,Y%|
000031c0 0d 15 22 05 e1 0d 15 2c 05 3a 0d 15 36 35 dd 20 |.."....,.:..65. |
000031d0 f2 73 61 76 65 63 68 6f 69 63 65 20 20 20 20 20 |.savechoice |
000031e0 20 20 20 20 20 20 20 20 20 20 20 20 3a f4 20 4d | :. M|
000031f0 65 6e 75 20 49 74 65 6d 20 63 68 6f 73 65 6e 0d |enu Item chosen.|
00003200 15 40 17 e7 20 7a 25 21 30 3c 30 20 84 20 7a 25 |.@.. z%!0<0 . z%|
00003210 21 30 3e 35 20 e1 0d 15 4a 04 0d 15 54 0d c8 8e |!0>5 ...J...T...|
00003220 20 7a 25 21 30 20 ca 0d 15 5e 0a 20 20 c9 20 31 | z%!0 ...^. . 1|
00003230 3a 0d 15 68 11 20 20 20 20 c8 8e 20 7a 25 21 34 |:..h. .. z%!4|
00003240 20 ca 0d 15 72 30 20 20 20 20 20 20 c9 20 30 3a | ...r0 . 0:|
00003250 20 6f 66 66 74 69 6d 65 25 3d 33 30 30 30 3a 74 | offtime%=3000:t|
00003260 69 63 6b 25 3d 31 20 20 3a f4 20 33 30 20 73 65 |ick%=1 :. 30 se|
00003270 63 73 0d 15 7c 38 20 20 20 20 20 20 c9 20 31 3a |cs..|8 . 1:|
00003280 20 6f 66 66 74 69 6d 65 25 3d 36 30 30 30 3a 74 | offtime%=6000:t|
00003290 69 63 6b 25 3d 32 20 20 3a f4 20 36 30 20 73 65 |ick%=2 :. 60 se|
000032a0 63 73 20 28 31 20 6d 69 6e 29 0d 15 86 2f 20 20 |cs (1 min).../ |
000032b0 20 20 20 20 c9 20 32 3a 20 6f 66 66 74 69 6d 65 | . 2: offtime|
000032c0 25 3d 35 2a 36 30 30 30 3a 74 69 63 6b 25 3d 33 |%=5*6000:tick%=3|
000032d0 3a f4 20 35 20 6d 69 6e 73 0d 15 90 39 20 20 20 |:. 5 mins...9 |
000032e0 20 20 20 c9 20 33 3a 20 f2 77 72 69 74 65 3a 74 | . 3: .write:t|
000032f0 69 63 6b 25 3d 34 20 20 20 20 20 20 3a f4 20 55 |ick%=4 :. U|
00003300 73 65 72 2d 77 72 69 74 65 61 62 6c 65 20 74 69 |ser-writeable ti|
00003310 6d 65 0d 15 9a 09 20 20 20 20 cb 0d 15 a4 3a 20 |me.... ....: |
00003320 20 c9 20 32 3a 20 6f 66 66 74 69 6d 65 25 3d 2d | . 2: offtime%=-|
00003330 31 3a 6c 61 73 74 74 69 6d 65 25 3d 2d 34 32 3a |1:lasttime%=-42:|
00003340 74 69 63 6b 25 3d 35 20 20 3a f4 20 53 61 76 65 |tick%=5 :. Save|
00003350 72 20 4f 66 66 0d 15 ae 2a 20 20 c9 20 33 3a 20 |r Off...* . 3: |
00003360 71 75 69 74 25 3d b9 20 20 20 20 20 20 20 20 20 |quit%=. |
00003370 20 20 20 20 20 20 20 20 3a f4 20 71 75 69 74 0d | :. quit.|
00003380 15 b8 05 cb 0d 15 c2 04 0d 15 cc 20 c8 99 20 22 |........... .. "|
00003390 57 69 6d 70 5f 47 65 74 50 6f 69 6e 74 65 72 49 |Wimp_GetPointerI|
000033a0 6e 66 6f 22 2c 2c 7a 25 0d 15 d6 36 e7 20 7a 25 |nfo",,z%...6. z%|
000033b0 21 38 3d 31 20 8c 20 7a 25 21 38 3d 32 3a f2 73 |!8=1 . z%!8=2:.s|
000033c0 61 76 65 6d 65 6e 75 28 6c 61 73 74 6d 65 6e 75 |avemenu(lastmenu|
000033d0 78 25 2c 6c 61 73 74 6d 65 6e 75 79 25 29 0d 15 |x%,lastmenuy%)..|
000033e0 e0 05 e1 0d 15 ea 05 3a 0d 15 f4 3d dd 20 f2 77 |.......:...=. .w|
000033f0 72 69 74 65 20 20 20 20 20 20 20 20 20 20 20 20 |rite |
00003400 20 20 20 20 20 20 20 20 3a f4 20 55 73 65 72 2d | :. User-|
00003410 57 72 69 74 65 61 62 6c 65 20 74 69 6d 65 20 63 |Writeable time c|
00003420 68 6f 73 65 6e 0d 15 fe 15 ea 20 41 24 2c 6d 75 |hosen..... A$,mu|
00003430 6c 74 25 2c 6e 65 77 6f 74 25 0d 16 08 1a 41 24 |lt%,newot%....A$|
00003440 3d a4 7a 65 72 6f 73 74 72 69 6e 67 28 77 72 69 |=.zerostring(wri|
00003450 74 65 25 29 0d 16 12 22 c8 95 20 c2 41 24 2c 31 |te%)...".. .A$,1|
00003460 29 3c 3d 22 20 22 3a 41 24 3d c0 41 24 2c a9 41 |)<=" ":A$=.A$,.A|
00003470 24 2d 31 29 3a ce 0d 16 1c 0f c8 8e 20 c2 41 24 |$-1):....... .A$|
00003480 2c 31 29 20 ca 0d 16 26 10 20 20 c9 20 22 4d 22 |,1) ...&. . "M"|
00003490 2c 22 6d 22 3a 0d 16 30 12 20 20 20 20 6d 75 6c |,"m":..0. mul|
000034a0 74 25 3d 36 30 30 30 0d 16 3a 10 20 20 c9 20 22 |t%=6000..:. . "|
000034b0 53 22 2c 22 73 22 3a 0d 16 44 11 20 20 20 20 6d |S","s":..D. m|
000034c0 75 6c 74 25 3d 31 30 30 0d 16 4e 30 20 20 c9 20 |ult%=100..N0 . |
000034d0 22 30 22 2c 22 31 22 2c 22 32 22 2c 22 33 22 2c |"0","1","2","3",|
000034e0 22 34 22 2c 22 35 22 2c 22 36 22 2c 22 37 22 2c |"4","5","6","7",|
000034f0 22 38 22 2c 22 39 22 3a 0d 16 58 3a 20 20 20 20 |"8","9":..X: |
00003500 6d 75 6c 74 25 3d 36 30 30 30 20 20 20 20 20 20 |mult%=6000 |
00003510 20 20 20 20 20 20 20 20 20 20 20 20 20 3a f4 20 | :. |
00003520 44 65 66 61 75 6c 74 20 69 73 20 6d 69 6e 75 74 |Default is minut|
00003530 65 73 0d 16 62 08 20 20 7f 3a 0d 16 6c 29 20 20 |es..b. .:..l) |
00003540 20 20 ef 37 3a 24 77 72 69 74 65 25 3d 22 31 30 | .7:$write%="10|
00003550 20 6d 22 2b c4 31 30 2c bd 30 29 3a 6d 75 6c 74 | m"+.10,.0):mult|
00003560 25 3d 30 0d 16 76 05 cb 0d 16 80 11 e7 20 6d 75 |%=0..v....... mu|
00003570 6c 74 25 3c 31 20 8c 20 e1 0d 16 8a 18 e7 20 bb |lt%<1 . ...... .|
00003580 41 24 3e 39 39 39 20 8c 20 41 24 3d 22 39 39 39 |A$>999 . A$="999|
00003590 22 0d 16 94 14 6e 65 77 6f 74 25 3d 6d 75 6c 74 |"....newot%=mult|
000035a0 25 2a bb 41 24 0d 16 9e 20 e7 20 6e 65 77 6f 74 |%*.A$... . newot|
000035b0 25 3e 30 20 8c 20 6f 66 66 74 69 6d 65 25 3d 6e |%>0 . offtime%=n|
000035c0 65 77 6f 74 25 0d 16 a8 25 e7 20 6d 75 6c 74 25 |ewot%...%. mult%|
000035d0 3d 31 30 30 20 8c 20 24 77 72 69 74 65 25 3d c3 |=100 . $write%=.|
000035e0 28 bb 41 24 29 2b 22 20 73 22 0d 16 b2 26 e7 20 |(.A$)+" s"...&. |
000035f0 6d 75 6c 74 25 3d 36 30 30 30 20 8c 20 24 77 72 |mult%=6000 . $wr|
00003600 69 74 65 25 3d c3 28 bb 41 24 29 2b 22 20 6d 22 |ite%=.(.A$)+" m"|
00003610 0d 16 bc 05 e1 0d 16 c6 05 3a 0d 16 d0 35 dd 20 |.........:...5. |
00003620 f2 61 73 73 65 6d 62 6c 65 20 3a f4 20 41 73 73 |.assemble :. Ass|
00003630 65 6d 62 6c 65 20 63 6f 64 65 20 74 6f 20 77 61 |emble code to wa|
00003640 74 63 68 20 73 65 72 69 61 6c 20 70 6f 72 74 0d |tch serial port.|
00003650 16 da 49 f4 20 4d 75 73 74 20 70 75 74 20 76 65 |..I. Must put ve|
00003660 63 74 6f 72 20 63 6f 64 65 20 69 6e 20 52 4d 41 |ctor code in RMA|
00003670 2c 20 6f 72 20 69 74 20 44 49 45 53 20 77 68 65 |, or it DIES whe|
00003680 6e 20 61 6e 6f 74 68 65 72 20 70 72 6f 67 20 70 |n another prog p|
00003690 61 67 65 64 20 69 6e 21 0d 16 e4 23 c8 99 20 22 |aged in!...#.. "|
000036a0 4f 53 5f 4d 6f 64 75 6c 65 22 2c 36 2c 2c 2c 31 |OS_Module",6,,,1|
000036b0 36 20 b8 20 2c 2c 63 6f 64 65 25 0d 16 ee 32 e7 |6 . ,,code%...2.|
000036c0 20 63 6f 64 65 25 3c 26 31 38 30 30 30 30 30 20 | code%<&1800000 |
000036d0 8c 20 f2 65 72 72 6f 72 28 22 4e 6f 20 72 6f 6f |. .error("No roo|
000036e0 6d 20 69 6e 20 52 4d 41 22 2b bd 30 29 0d 16 f8 |m in RMA"+.0)...|
000036f0 04 0d 17 02 15 e3 20 70 61 73 73 25 3d 30 20 b8 |...... pass%=0 .|
00003700 20 32 20 88 20 32 0d 17 0c 0c 50 25 3d 63 6f 64 | 2 . 2....P%=cod|
00003710 65 25 0d 17 16 0e 5b 4f 50 54 20 70 61 73 73 25 |e%....[OPT pass%|
00003720 0d 17 20 36 2e 76 65 63 74 6f 72 63 6f 64 65 3a |.. 6.vectorcode:|
00003730 43 4d 50 20 52 31 2c 23 30 3a 53 54 52 45 51 20 |CMP R1,#0:STREQ |
00003740 52 30 2c 76 65 63 63 68 65 63 6b 3a 4d 4f 56 20 |R0,veccheck:MOV |
00003750 50 43 2c 52 31 34 0d 17 2a 16 2e 76 65 63 63 68 |PC,R14..*..vecch|
00003760 65 63 6b 20 20 3a 45 51 55 44 20 30 0d 17 34 05 |eck :EQUD 0..4.|
00003770 5d 0d 17 3e 05 ed 0d 17 48 04 0d 17 52 22 c8 99 |]..>....H...R"..|
00003780 20 22 4f 53 5f 43 6c 61 69 6d 22 2c 26 31 34 2c | "OS_Claim",&14,|
00003790 76 65 63 74 6f 72 63 6f 64 65 2c 30 0d 17 5c 0e |vectorcode,0..\.|
000037a0 63 6f 64 65 64 75 6e 25 3d b9 0d 17 66 05 e1 0d |codedun%=...f...|
000037b0 17 70 05 3a 0d 17 7a 10 dd 20 f2 73 61 76 65 73 |.p.:..z.. .saves|
000037c0 65 74 75 70 0d 17 84 23 f5 3a 6d 6f 76 65 78 25 |etup...#.:movex%|
000037d0 3d b3 28 34 38 29 2d 32 34 3a fd 20 94 28 6d 6f |=.(48)-24:. .(mo|
000037e0 76 65 78 25 29 3e 38 0d 17 8e 23 f5 3a 6d 6f 76 |vex%)>8...#.:mov|
000037f0 65 79 25 3d b3 28 34 38 29 2d 32 34 3a fd 20 94 |ey%=.(48)-24:. .|
00003800 28 6d 6f 76 65 79 25 29 3e 38 0d 17 98 27 73 61 |(movey%)>8...'sa|
00003810 76 65 78 25 3d b3 28 6d 61 78 78 25 2d 32 35 36 |vex%=.(maxx%-256|
00003820 2d 6d 6f 76 65 78 25 2a 32 29 2b 6d 6f 76 65 78 |-movex%*2)+movex|
00003830 25 0d 17 a2 26 73 61 76 65 79 25 3d b3 28 6d 61 |%...&savey%=.(ma|
00003840 78 79 25 2d 33 32 2d 6d 6f 76 65 79 25 2a 32 29 |xy%-32-movey%*2)|
00003850 2b 6d 6f 76 65 79 25 0d 17 ac 05 e1 0d 17 b6 05 |+movey%.........|
00003860 3a 0d 17 c0 3b dd 20 f2 72 65 64 72 61 77 20 20 |:...;. .redraw |
00003870 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00003880 20 3a f4 20 46 6f 72 63 65 20 73 61 76 65 2d 73 | :. Force save-s|
00003890 63 72 65 65 6e 20 72 65 64 72 61 77 0d 17 ca 4f |creen redraw...O|
000038a0 f4 53 59 53 20 22 57 69 6d 70 5f 46 6f 72 63 65 |.SYS "Wimp_Force|
000038b0 52 65 64 72 61 77 22 2c 62 6c 61 6e 6b 68 61 6e |Redraw",blankhan|
000038c0 64 25 2c 73 61 76 65 78 25 2d 34 38 2c 73 61 76 |d%,savex%-48,sav|
000038d0 65 79 25 2d 34 38 2c 73 61 76 65 78 25 2b 33 30 |ey%-48,savex%+30|
000038e0 30 2c 73 61 76 65 79 25 2b 38 30 0d 17 d4 04 0d |0,savey%+80.....|
000038f0 17 de 2e 21 7a 25 3d 62 6c 61 6e 6b 68 61 6e 64 |...!z%=blankhand|
00003900 25 3a c8 99 22 57 69 6d 70 5f 47 65 74 57 69 6e |%:.."Wimp_GetWin|
00003910 64 6f 77 53 74 61 74 65 22 2c 2c 7a 25 0d 17 e8 |dowState",,z%...|
00003920 41 78 30 25 3d 94 28 7a 25 21 34 2d 7a 25 21 32 |Ax0%=.(z%!4-z%!2|
00003930 30 29 20 3a f4 20 44 69 73 74 20 66 72 6f 6d 20 |0) :. Dist from |
00003940 77 69 6e 64 6f 77 20 6f 72 69 67 69 6e 20 74 6f |window origin to|
00003950 20 73 63 72 65 65 6e 20 6f 72 69 67 69 6e 0d 17 | screen origin..|
00003960 f2 16 79 30 25 3d 94 28 7a 25 21 31 36 2d 7a 25 |..y0%=.(z%!16-z%|
00003970 21 32 34 29 0d 17 fc 04 0d 18 06 33 21 7a 25 3d |!24).......3!z%=|
00003980 62 6c 61 6e 6b 68 61 6e 64 25 3a 7a 25 21 34 3d |blankhand%:z%!4=|
00003990 30 3a c8 99 20 22 58 57 69 6d 70 5f 44 65 6c 65 |0:.. "XWimp_Dele|
000039a0 74 65 49 63 6f 6e 22 2c 2c 7a 25 0d 18 10 04 0d |teIcon",,z%.....|
000039b0 18 1a 23 7a 25 21 34 3d 78 30 25 2b 73 61 76 65 |..#z%!4=x0%+save|
000039c0 78 25 3a 7a 25 21 38 3d 79 30 25 2b 73 61 76 65 |x%:z%!8=y0%+save|
000039d0 79 25 0d 18 24 26 7a 25 21 31 32 3d 7a 25 21 34 |y%..$&z%!12=z%!4|
000039e0 2b 28 73 61 76 65 69 63 6f 6e 77 69 64 74 68 25 |+(saveiconwidth%|
000039f0 3c 3c 78 65 69 67 25 29 0d 18 2e 27 7a 25 21 31 |<<xeig%)...'z%!1|
00003a00 36 3d 7a 25 21 38 2b 28 73 61 76 65 69 63 6f 6e |6=z%!8+(saveicon|
00003a10 68 65 69 67 68 74 25 3c 3c 79 65 69 67 25 29 0d |height%<<yeig%).|
00003a20 18 38 23 7a 25 21 32 30 3d 26 37 30 30 30 30 30 |.8#z%!20=&700000|
00003a30 31 41 3a 24 28 7a 25 2b 32 34 29 3d 22 62 61 73 |1A:$(z%+24)="bas|
00003a40 65 22 0d 18 42 1d c8 99 20 22 58 57 69 6d 70 5f |e"..B... "XWimp_|
00003a50 43 72 65 61 74 65 49 63 6f 6e 22 2c 2c 7a 25 0d |CreateIcon",,z%.|
00003a60 18 4c 04 0d 18 56 1e f2 75 70 64 61 74 65 73 70 |.L...V..updatesp|
00003a70 72 20 3a f4 20 52 65 64 72 61 77 20 63 6c 6f 63 |r :. Redraw cloc|
00003a80 6b 0d 18 60 04 0d 18 6a 46 c8 99 20 22 57 69 6d |k..`...jF.. "Wim|
00003a90 70 5f 46 6f 72 63 65 52 65 64 72 61 77 22 2c 62 |p_ForceRedraw",b|
00003aa0 6c 61 6e 6b 68 61 6e 64 25 2c 7a 25 21 34 2d 33 |lankhand%,z%!4-3|
00003ab0 32 2c 7a 25 21 38 2d 33 32 2c 7a 25 21 31 32 2b |2,z%!8-32,z%!12+|
00003ac0 33 32 2c 7a 25 21 31 36 2b 33 32 0d 18 74 04 0d |32,z%!16+32..t..|
00003ad0 18 7e 21 73 61 76 65 78 25 2b 3d 6d 6f 76 65 78 |.~!savex%+=movex|
00003ae0 25 3a 73 61 76 65 79 25 2b 3d 6d 6f 76 65 79 25 |%:savey%+=movey%|
00003af0 0d 18 88 37 e7 20 73 61 76 65 78 25 3c 3d 94 28 |...7. savex%<=.(|
00003b00 6d 6f 76 65 78 25 29 20 8c 20 6d 6f 76 65 78 25 |movex%) . movex%|
00003b10 3d 94 6d 6f 76 65 78 25 3a 73 61 76 65 78 25 2b |=.movex%:savex%+|
00003b20 3d 6d 6f 76 65 78 25 0d 18 92 3f e7 20 73 61 76 |=movex%...?. sav|
00003b30 65 78 25 3e 3d 6d 61 78 78 25 2d 6d 6f 76 65 78 |ex%>=maxx%-movex|
00003b40 25 2d 32 35 36 20 8c 20 6d 6f 76 65 78 25 3d 2d |%-256 . movex%=-|
00003b50 94 6d 6f 76 65 78 25 3a 73 61 76 65 78 25 2b 3d |.movex%:savex%+=|
00003b60 6d 6f 76 65 78 25 0d 18 9c 37 e7 20 73 61 76 65 |movex%...7. save|
00003b70 79 25 3c 3d 94 28 6d 6f 76 65 79 25 29 20 8c 20 |y%<=.(movey%) . |
00003b80 6d 6f 76 65 79 25 3d 94 6d 6f 76 65 79 25 3a 73 |movey%=.movey%:s|
00003b90 61 76 65 79 25 2b 3d 6d 6f 76 65 79 25 0d 18 a6 |avey%+=movey%...|
00003ba0 3e e7 20 73 61 76 65 79 25 3e 3d 6d 61 78 79 25 |>. savey%>=maxy%|
00003bb0 2d 6d 6f 76 65 79 25 2d 33 32 20 8c 20 6d 6f 76 |-movey%-32 . mov|
00003bc0 65 79 25 3d 2d 94 6d 6f 76 65 79 25 3a 73 61 76 |ey%=-.movey%:sav|
00003bd0 65 79 25 2b 3d 6d 6f 76 65 79 25 0d 18 b0 05 e1 |ey%+=movey%.....|
00003be0 0d 18 ba 05 3a 0d 18 c4 10 dd 20 f2 75 70 64 61 |....:..... .upda|
00003bf0 74 65 73 70 72 0d 18 ce 14 ea 20 41 25 2c 42 25 |tespr..... A%,B%|
00003c00 2c 43 25 2c 44 25 2c 54 24 0d 18 d8 07 ea 20 85 |,C%,D%,T$..... .|
00003c10 0d 18 e2 0d 54 24 3d c2 91 24 2c 38 29 0d 18 ec |....T$=..$,8)...|
00003c20 32 c8 99 20 73 70 72 6f 70 25 2c 32 35 36 2b 36 |2.. sprop%,256+6|
00003c30 30 2c 75 73 65 72 73 70 72 25 2c 22 62 61 73 65 |0,userspr%,"base|
00003c40 22 20 b8 20 41 25 2c 42 25 2c 43 25 2c 44 25 0d |" . A%,B%,C%,D%.|
00003c50 18 f6 20 ee 85 20 ea 20 c8 99 20 73 70 72 6f 70 |.. .. . .. sprop|
00003c60 25 2c 41 25 2c 42 25 2c 43 25 2c 44 25 3a e1 0d |%,A%,B%,C%,D%:..|
00003c70 19 00 2a 20 20 c8 99 20 73 70 72 6f 70 25 2c 32 |..* .. sprop%,2|
00003c80 35 36 2b 33 34 2c 75 73 65 72 73 70 72 25 2c c0 |56+34,userspr%,.|
00003c90 54 24 2c 31 29 2c 30 2c 30 0d 19 0a 2d 20 20 c8 |T$,1),0,0...- .|
00003ca0 99 20 73 70 72 6f 70 25 2c 32 35 36 2b 33 34 2c |. sprop%,256+34,|
00003cb0 75 73 65 72 73 70 72 25 2c c1 54 24 2c 32 2c 31 |userspr%,.T$,2,1|
00003cc0 29 2c 33 34 2c 30 0d 19 14 2d 20 20 c8 99 20 73 |),34,0...- .. s|
00003cd0 70 72 6f 70 25 2c 32 35 36 2b 33 34 2c 75 73 65 |prop%,256+34,use|
00003ce0 72 73 70 72 25 2c c1 54 24 2c 34 2c 31 29 2c 38 |rspr%,.T$,4,1),8|
00003cf0 30 2c 30 0d 19 1e 2e 20 20 c8 99 20 73 70 72 6f |0,0.... .. spro|
00003d00 70 25 2c 32 35 36 2b 33 34 2c 75 73 65 72 73 70 |p%,256+34,usersp|
00003d10 72 25 2c c1 54 24 2c 35 2c 31 29 2c 31 31 34 2c |r%,.T$,5,1),114,|
00003d20 30 0d 19 28 2e 20 20 c8 99 20 73 70 72 6f 70 25 |0..(. .. sprop%|
00003d30 2c 32 35 36 2b 33 34 2c 75 73 65 72 73 70 72 25 |,256+34,userspr%|
00003d40 2c c1 54 24 2c 37 2c 31 29 2c 31 36 30 2c 30 0d |,.T$,7,1),160,0.|
00003d50 19 32 2e 20 20 c8 99 20 73 70 72 6f 70 25 2c 32 |.2. .. sprop%,2|
00003d60 35 36 2b 33 34 2c 75 73 65 72 73 70 72 25 2c c1 |56+34,userspr%,.|
00003d70 54 24 2c 38 2c 31 29 2c 31 39 34 2c 30 0d 19 3c |T$,8,1),194,0..<|
00003d80 19 c8 99 20 73 70 72 6f 70 25 2c 41 25 2c 42 25 |... sprop%,A%,B%|
00003d90 2c 43 25 2c 44 25 0d 19 46 05 e1 0d 19 50 05 3a |,C%,D%..F....P.:|
00003da0 0d 19 5a 2b dd 20 f2 73 61 76 65 70 61 6c 20 3a |..Z+. .savepal :|
00003db0 f4 20 53 61 76 65 20 62 6f 72 64 65 72 20 70 61 |. Save border pa|
00003dc0 6c 65 74 74 65 20 76 61 6c 75 65 0d 19 64 2b c8 |lette value..d+.|
00003dd0 99 20 22 4f 53 5f 52 65 61 64 50 61 6c 65 74 74 |. "OS_ReadPalett|
00003de0 65 22 2c 31 2c 32 34 20 b8 20 2c 2c 62 6f 72 64 |e",1,24 . ,,bord|
00003df0 65 72 70 61 6c 25 0d 19 6e 13 ef 31 39 2c 31 2c |erpal%..n..19,1,|
00003e00 32 34 2c 30 2c 30 2c 30 7c 0d 19 78 05 e1 0d 19 |24,0,0,0|..x....|
00003e10 82 05 3a 0d 19 8c 11 dd 20 f2 72 65 73 74 6f 72 |..:..... .restor|
00003e20 65 70 61 6c 0d 19 96 3b ef 31 39 2c 31 2c 32 34 |epal...;.19,1,24|
00003e30 2c 62 6f 72 64 65 72 70 61 6c 25 3e 3e 38 2c 62 |,borderpal%>>8,b|
00003e40 6f 72 64 65 72 70 61 6c 25 3e 3e 31 36 2c 62 6f |orderpal%>>16,bo|
00003e50 72 64 65 72 70 61 6c 25 3e 3e 32 34 2c 30 7c 0d |rderpal%>>24,0|.|
00003e60 19 a0 05 e1 0d 19 aa 05 3a 0d 19 b4 0e dd 20 f2 |........:..... .|
00003e70 72 65 6c 65 61 73 65 0d 19 be 10 e7 20 63 6f 64 |release..... cod|
00003e80 65 64 75 6e 25 20 8c 0d 19 c8 26 20 20 c8 99 20 |edun% ....& .. |
00003e90 22 4f 53 5f 52 65 6c 65 61 73 65 22 2c 26 31 34 |"OS_Release",&14|
00003ea0 2c 76 65 63 74 6f 72 63 6f 64 65 2c 30 0d 19 d2 |,vectorcode,0...|
00003eb0 1d 20 20 c8 99 20 22 4f 53 5f 4d 6f 64 75 6c 65 |. .. "OS_Module|
00003ec0 22 2c 37 2c 2c 63 6f 64 65 25 0d 19 dc 05 cd 0d |",7,,code%......|
00003ed0 19 e6 05 e0 0d 19 f0 05 3a 0d 19 fa 0f dd 20 f2 |........:..... .|
00003ee0 76 65 63 63 68 65 63 6b 0d 1a 04 49 f4 20 43 6f |veccheck...I. Co|
00003ef0 64 65 20 74 6f 20 6e 6f 74 69 66 79 20 75 73 20 |de to notify us |
00003f00 6f 66 20 61 6e 79 20 74 72 61 66 66 69 63 20 66 |of any traffic f|
00003f10 72 6f 6d 20 6b 65 79 62 6f 61 72 64 20 28 63 61 |rom keyboard (ca|
00003f20 6e 27 74 20 72 65 6c 79 20 6f 6e 20 57 49 4d 50 |n't rely on WIMP|
00003f30 29 0d 1a 0e 49 f4 20 4d 75 73 74 20 70 75 74 20 |)...I. Must put |
00003f40 76 65 63 74 6f 72 20 63 6f 64 65 20 69 6e 20 52 |vector code in R|
00003f50 4d 41 2c 20 6f 72 20 69 74 20 44 49 45 53 20 77 |MA, or it DIES w|
00003f60 68 65 6e 20 61 6e 6f 74 68 65 72 20 70 72 6f 67 |hen another prog|
00003f70 20 70 61 67 65 64 20 69 6e 21 0d 1a 18 23 c8 99 | paged in!...#..|
00003f80 20 22 4f 53 5f 4d 6f 64 75 6c 65 22 2c 36 2c 2c | "OS_Module",6,,|
00003f90 2c 31 36 20 b8 20 2c 2c 63 6f 64 65 25 0d 1a 22 |,16 . ,,code%.."|
00003fa0 32 e7 20 63 6f 64 65 25 3c 26 31 38 30 30 30 30 |2. code%<&180000|
00003fb0 30 20 8c 20 f2 65 72 72 6f 72 28 22 4e 6f 20 72 |0 . .error("No r|
00003fc0 6f 6f 6d 20 69 6e 20 52 4d 41 22 2b bd 30 29 0d |oom in RMA"+.0).|
00003fd0 1a 2c 04 0d 1a 36 15 e3 20 70 61 73 73 25 3d 30 |.,...6.. pass%=0|
00003fe0 20 b8 20 32 20 88 20 32 0d 1a 40 0c 50 25 3d 63 | . 2 . 2..@.P%=c|
00003ff0 6f 64 65 25 0d 1a 4a 0e 5b 4f 50 54 20 70 61 73 |ode%..J.[OPT pas|
00004000 73 25 0d 1a 54 36 2e 76 65 63 74 6f 72 63 6f 64 |s%..T6.vectorcod|
00004010 65 3a 43 4d 50 20 52 31 2c 23 30 3a 53 54 52 45 |e:CMP R1,#0:STRE|
00004020 51 20 52 30 2c 76 65 63 63 68 65 63 6b 3a 4d 4f |Q R0,veccheck:MO|
00004030 56 20 50 43 2c 52 31 34 0d 1a 5e 16 2e 76 65 63 |V PC,R14..^..vec|
00004040 63 68 65 63 6b 20 20 3a 45 51 55 44 20 30 0d 1a |check :EQUD 0..|
00004050 68 05 5d 0d 1a 72 05 ed 0d 1a 7c 04 0d 1a 86 22 |h.]..r....|...."|
00004060 c8 99 20 22 4f 53 5f 43 6c 61 69 6d 22 2c 26 31 |.. "OS_Claim",&1|
00004070 34 2c 76 65 63 74 6f 72 63 6f 64 65 2c 30 0d 1a |4,vectorcode,0..|
00004080 90 0e 63 6f 64 65 64 75 6e 25 3d b9 0d 1a 9a 05 |..codedun%=.....|
00004090 e1 0d ff |...|
00004093 
.