!AWJan94/Goodies/Swap/!Swapper/!RunImage

Home » Archimedes archive » Archimedes World » AW-1994-01.adf » AWJan94 » !AWJan94/Goodies/Swap/!Swapper/!RunImage

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk:	Home » Archimedes archive » Archimedes World » AW-1994-01.adf » AWJan94
Filename:	!AWJan94/Goodies/Swap/!Swapper/!RunImage
Read OK:	✔
File size:	7BF9 bytes
Load address:	0000
Exec address:	0000

File contents

   10OpSys%=0
   20SYS "OS_Byte",129,0,&FF TO OpSys%
   30IF OpSys%=&A1 THEN OSCLI"ERROR Swapper will not work with RISC OS 2. Sorry!!":END
   40SYS "OS_GetEnv" TO env$
   50IF INSTR(env$," -quit ") THEN
   60fileload$=MID$(env$,INSTR(env$,CHR$(34),INSTR(env$,CHR$(34))+1)+1)
   70ENDIF
   80                           PROCWimp_Start("Swapper",6576,2849)
   90                           PROCUser_SetInitialData
  100                           PROCCreate_Windows
  110                           PROCCreate_Menus
  120IF fileload$<>" " THEN
  130PROCEvent_LoadFile(fileload$,"Swapper")
  140ENDIF
  150                           PROCWimp_WaitForEvent
  160                           PROCWimp_CloseDown
  170                           END
  180       :
  190       DEF PROCUser_SetInitialData
  200DOSAVE%=TRUE
  210open%=FALSE
  220       interface%=FALSE
  230X%=OPENIN("<Swapper$Dir>.Data.Options")
  240INPUT #X%,remove%
  250CLOSE #X%
  260pa%=1
  270cpa%=1
  280DIM name$(99)
  290DIM type%(99)
  300DIM time%(99)
  310cur%=1
  320name$()=""
  330type%()=1
  340time%()=10
  350select=5
  360tot%=0
  370start%=FALSE
  380timer%=0
  390oldtime%=-1
  400del%=0
  410seldel=0
  420SA%=FALSE
  430UPDATE%=FALSE
  440CD%=FALSE
  450       ENDPROC
  460       :
  470       DEF PROCCreate_Windows
  480         PROCWimp_SpritesLoad
  490                  Info_Window%=FNWimp_WindowLoad("Info")
  500                  Main_Window%=FNWimp_WindowLoad("Main")
  510                  Save_Window%=FNWimp_WindowLoad("Save")
  520                 Timer_Window%=FNWimp_WindowLoad("Timer")
  530               Options_Window%=FNWimp_WindowLoad("Options")
  540                Close_Window%=FNWimp_WindowLoad("Close")
  550PROCWimp_IconPutText(Main_Window%,70,STR$(cpa%))
  560FOR A=55 TO 64
  570PROCWimp_IconPutText(Main_Window%,A,STR$(time%(0)))
  580NEXT A
  590PROCWimp_SetIconSprite(Main_Window%,select,";R2")
  600PROCWimp_IconPutText(Timer_Window%,0,"Stopped")
  610IF remove%=TRUE THEN PROCWimp_SelectIcon(Options_Window%,0)
  620       Bar_Icon%=FNWimp_IconBar("!Swapper")
  630       ENDPROC
  640        :
  650        DEF FNEvent_Save(window%)
  660          CASE window% OF
  670            WHEN Save_Window% :=TRUE
  680            OTHERWISE :=FALSE
  690          ENDCASE
  700        :
  710        DEF FNEvent_Sprites(window%)=sprites%
  720       :
  730       DEF PROCCreate_Menus
  740         menu$="Swapper\Info>Info_Window%\Quit"
  750         Bar_Menu%=FNWimp_MenuCreate(menu$)
  760         Main_Menu%=FNWimp_MenuCreate("Main\Save>Save_Window%\Options>Options_Window%\Timer\Clear")
  770         PROCWimp_MenuDisable(Main_Menu%,1)
  780         PROCWimp_MenuDisable(Main_Menu%,3)
  790         PROCWimp_MenuDisable(Main_Menu%,4)
  800         PROCWimp_MenuDottedLine(Main_Menu%,3)
  810       ENDPROC
  820        :
  830        DEF FNEvent_Menu(window%)
  840        CASE window% OF
  850         WHEN Bar_Window%        : =Bar_Menu%
  860         WHEN Main_Window%       : =Main_Menu%
  870         OTHERWISE               : =FALSE
  880        ENDCASE
  890       :
  900       DEF PROCEvent_WindowClose(window%,buttons%)
  910       CASE window% OF
  920       WHEN Main_Window% : open%=FALSE
  930       ENDCASE
  940       ENDPROC
  950       :
  960       DEF PROCEvent_Draw(window%,x_origin%,y_origin%)
  970       CASE window% OF
  980        WHEN Info_Window%        : PROCUser_DrawInfoWindow
  990        WHEN Save_Window%        : PROCUser_DrawSaveWindow
 1000       ENDCASE
 1010       ENDPROC
 1020             :
 1030             DEF PROCUser_DrawInfoWindow
 1040             ENDPROC
 1050             :
 1060             DEF PROCUser_DrawSaveWindow
 1070             ENDPROC
 1080       :
 1090       DEF PROCEvent_MouseClick(window%,icon%,button%,x%,y%)
 1100       CASE window% OF
 1110        WHEN Bar_Window%        : PROCUser_MouseBar
 1120        WHEN Info_Window%       : PROCUser_MouseInfo( button%,icon%)
 1130        WHEN Main_Window%       : PROCUser_MouseMain( button%,icon%)
 1140        WHEN Timer_Window%      : PROCUser_MouseTimer( button%,icon%)
 1150        WHEN Options_Window%    : PROCUser_MouseOptions( button%,icon%)
 1160        WHEN Close_Window%      : PROCUser_MouseClose( button%,icon%)
 1170       ENDCASE
 1180       ENDPROC
 1190         :
 1200         DEF PROCUser_MouseClose( button%,icon%)
 1210         IF icon%=1 THEN
 1220SA%=TRUE
 1230PROCunbox
 1240PROCWimp_WindowClose(Close_Window%)
 1250UPDATE%=FALSE
 1260PROCWimp_WindowBringToTop(Save_Window%)
 1270A$=FNWimp_IconText(Save_Window%,1)
 1280PROCWimp_IconCaret(Save_Window%,1,LEN(A$))
 1290ENDIF
 1300         IF icon%=2 THEN
 1310PROCunbox
 1320UPDATE%=FALSE
 1330PROCWimp_WindowClose(Close_Window%)
 1340CD%=TRUE
 1350ENDIF
 1360         IF icon%=3 THEN
 1370PROCunbox
 1380PROCWimp_WindowClose(Close_Window%)
 1390ENDIF
 1400IF CD%=TRUE THEN PROCWimp_CloseDown
 1410ENDPROC
 1420         :
 1430         DEF PROCUser_MouseBar
 1440PROCWimp_WindowBringToTop(Main_Window%)
 1450open%=TRUE
 1460         ENDPROC
 1470         :
 1480         DEF PROCUser_MouseTimer( button%,icon%)
 1490         IF icon%=1 THEN PROCresettime
 1500         ENDPROC
 1510         :
 1520         DEF PROCUser_MouseOptions( button%,icon%)
 1530         IF icon%=0 THEN
 1540         remove%=NOT remove%
 1550         IF remove%=TRUE THEN PROCWimp_SelectIcon(Options_Window%,0)
 1560         IF remove%=FALSE THEN PROCWimp_UnselectIcon(Options_Window%,0)
 1570         ENDIF
 1580         IF icon%=1 THEN
 1590X%=OPENOUT("<Swapper$Dir>.Data.Options")
 1600PRINT #X%,remove%
 1610CLOSE #X%
 1620PROCWimp_MenuClose
 1630ENDIF
 1640         ENDPROC
 1650         :
 1660         DEF PROCUser_MouseInfo( button%,icon%)
 1670         ENDPROC
 1680         :
 1690         DEF PROCUser_MouseMain( button%,icon%)
 1700IF icon%=73 THEN
 1710IF tot%>0 THEN
 1720ANS%=FNWimp_WindowCancel("!Swapper","Are you sure you want to clear the sequence?")
 1730IF ANS%=TRUE THEN
 1740UPDATE%=TRUE
 1750PROCWimp_SetIconSprite(Main_Window%,select,";R1")
 1760PROCresetdata
 1770PROCredrawmain
 1780a$=FNWimp_GetFileFromPathname(name$(cur%-1))
 1790PROCWimp_IconPutText(Timer_Window%,3,a$)
 1800ENDIF
 1810ENDIF
 1820ENDIF
 1830
 1840IF icon%=65 THEN *Filer_OpenDir <Swapper$Dir>.Storage
 1850
 1860IF icon%=72 THEN
 1870IF tot%>1 THEN
 1880start%=NOT start%
 1890PROCresettime
 1900IF start%=TRUE THEN PROCinputmain:SYS "OS_ReadMonotonicTime" TO oldtime%:oldtime%=oldtime%/100:PROCWimp_IconPutText(Main_Window%,72,"Stop"):PROCWimp_IconPutText(Timer_Window%,0,STR$(INT(timer%-oldtime%))):PROCbackupdate
 1910IF start%=FALSE THEN PROCWimp_IconPutText(Main_Window%,72,"Start"):PROCWimp_IconPutText(Timer_Window%,0,"Stopped")
 1920ELSE
 1930PROCWimp_WindowAlert("Swapper","Please load two or more pictures")
 1940ENDIF
 1950ENDIF
 1960
 1970
 1980IF icon%>14 AND icon%<25 AND (icon%+((cpa%-1)*10))-14<>cur% AND (icon%+((cpa%-1)*10))-14<tot%+1 THEN
 1990PROCWimp_SetIconSprite(Main_Window%,select,";R1")
 2000select=icon%-10
 2010PROCWimp_SetIconSprite(Main_Window%,select,";R2")
 2020cur%=(select-4)+((cpa%-1)*10)
 2030PROCbackupdate
 2040PROCresettime
 2050ENDIF
 2060
 2070
 2080
 2090IF icon%>24 AND icon%<35 THEN
 2100PROCWimp_SelectIcon(Main_Window%,icon%)
 2110type%((icon%-25)+((cpa%-1)*10))=1
 2120IF (icon%-24)+((cpa%-1)*10)=cur% AND tot%>1 THEN PROCbackupdate
 2130ENDIF
 2140IF icon%>34 AND icon%<45 THEN
 2150PROCWimp_SelectIcon(Main_Window%,icon%)
 2160type%((icon%-35)+((cpa%-1)*10))=2
 2170IF (icon%-34)+((cpa%-1)*10)=cur% AND tot%>1 THEN PROCbackupdate
 2180ENDIF
 2190IF icon%>44 AND icon%<55 THEN
 2200PROCWimp_SelectIcon(Main_Window%,icon%)
 2210type%((icon%-45)+((cpa%-1)*10))=3
 2220IF (icon%-44)+((cpa%-1)*10)=cur% AND tot%>1 THEN PROCbackupdate
 2230ENDIF
 2240
 2250
 2260IF icon%=66 THEN
 2270IF tot%>1 THEN
 2280A$=FNWimp_IconText(Main_Window%,55)
 2290FOR A=55 TO 63
 2300IF name$((A-54)+((cpa%-1)*10))<>"" THEN
 2310time%((A-54)+((cpa%-1)*10))=VAL(A$)
 2320PROCWimp_IconPutText(Main_Window%,A+1,A$)
 2330ENDIF
 2340NEXT A
 2350PROCWimp_IconCaret(Main_Window%,55,LEN(A$))
 2360ELSE
 2370PROCWimp_WindowAlert("Swapper","Please load two or more pictures")
 2380ENDIF
 2390ENDIF
 2400
 2410
 2420IF icon%=67 AND cpa%>1 THEN
 2430PROCinputmain
 2440cpa%-=1
 2450PROCredrawmain
 2460ENDIF
 2470IF icon%=71 AND cpa%<pa% THEN
 2480PROCinputmain
 2490cpa%+=1
 2500PROCredrawmain
 2510ENDIF
 2520         ENDPROC
 2530       :
 2540       DEF PROCEvent_KeyPress(window%,icon%,key%)
 2550          CASE window% OF
 2560           WHEN Main_Window%       : PROCUser_KeyPressMain( icon%,key%)
 2570          ENDCASE
 2580       ENDPROC
 2590         :
 2600         DEF PROCUser_KeyPressMain( icon%,key%)
 2610IF key%=13 AND icon%<64 OR key%=398 AND icon%<64 THEN
 2620A$=FNWimp_IconText(Main_Window%,icon%)
 2630time%((icon%-55)+((cpa%-1)*10))=VAL(A$)
 2640a$=FNWimp_IconText(Main_Window%,icon%+1)
 2650PROCWimp_IconCaret(Main_Window%,icon%+1,LEN(a$))
 2660ENDIF
 2670
 2680IF key%=13 AND icon%=64 OR key%=398 AND icon%=64 THEN
 2690A$=FNWimp_IconText(Main_Window%,64)
 2700time%(9+(cpa%-1)*10)=VAL(A$)
 2710a$=FNWimp_IconText(Main_Window%,55)
 2720PROCWimp_IconCaret(Main_Window%,55,LEN(a$))
 2730ENDIF
 2740
 2750IF key%=399 AND icon%>55 THEN
 2760A$=FNWimp_IconText(Main_Window%,icon%)
 2770time%((icon%-55)+((cpa%-1)*10))=VAL(A$)
 2780a$=FNWimp_IconText(Main_Window%,icon%-1)
 2790PROCWimp_IconCaret(Main_Window%,icon%-1,LEN(a$))
 2800ENDIF
 2810
 2820IF key%=399 AND icon%=55 THEN
 2830A$=FNWimp_IconText(Main_Window%,55)
 2840time%((cpa%-1)*10)=VAL(A$)
 2850a$=FNWimp_IconText(Main_Window%,64)
 2860PROCWimp_IconCaret(Main_Window%,64,LEN(a$))
 2870ENDIF
 2880         ENDPROC
 2890       :
 2900       DEF PROCEvent_MenuChoice(menu%)
 2910        CASE menu% OF
 2920              WHEN Bar_Menu%          : PROCUser_MenuChoiceBar
 2930              WHEN Main_Menu%         : PROCUser_MenuChoiceMain
 2940        ENDCASE
 2950       ENDPROC
 2960       :
 2970       DEF PROCUser_MenuChoiceBar
 2980        CASE FNWimp_MenuChoice(0) OF
 2990         WHEN 1 :
 3000         WHEN 2
 3010IF UPDATE%=TRUE THEN
 3020PROCWimp_IconPutText(Close_Window%,0,"This file has been modified")
 3030PROCWimp_WindowBringToTop(Close_Window%)
 3040PROCmousebox(Close_Window%)
 3050ENDIF
 3060IF UPDATE%=FALSE THEN finished%=TRUE:IF remove%=TRUE THEN OSCLI("Backdrop -T <Swapper$Dir>.Data.Blank")
 3070        ENDCASE
 3080       ENDPROC
 3090       :
 3100       DEF PROCUser_MenuChoiceMain
 3110        CASE FNWimp_MenuChoice(0) OF
 3120         WHEN 3 : PROCWimp_WindowBringToTop(Timer_Window%)
 3130         WHEN 4
 3140ANS%=FNWimp_WindowCancel("!Swapper","Are you sure you want to clear the sequence?")
 3150IF ANS%=TRUE THEN
 3160IF tot%>0 THEN PROCWimp_SetIconSprite(Main_Window%,select,";R1"):PROCresetdata:PROCredrawmain:a$=FNWimp_GetFileFromPathname(name$(cur%-1)):PROCWimp_IconPutText(Timer_Window%,3,a$):UPDATE%=TRUE
 3170ENDIF
 3180        ENDCASE
 3190       ENDPROC
 3200       :
 3210       DEF PROCEvent_LoadFile(file$,type$)
 3220IF type$="Sprite" THEN
 3230UPDATE%=TRUE
 3240LOCAL ERROR
 3250ON ERROR LOCAL PROCerror
 3260IF tot%<99 THEN
 3270IF open%=FALSE THEN PROCWimp_WindowBringToTop(Main_Window%):open%=TRUE
 3280IF cpa%<>pa% THEN PROCinputmain:cpa%=pa%:PROCredrawmain
 3290IF (tot%)/10<pa% THEN
 3300name$(tot%)=file$
 3310a$=FNWimp_GetFileFromPathname(file$)
 3320AA%=FNnacheck(file$)
 3330IF AA%=TRUE THEN name$(tot%)="<Swapper$Dir>.Storage."+FNWimp_GetFileFromPathname(file$)
 3340PROCWimp_IconPutText(Main_Window%,(tot%-((pa%-1)*10)+15),a$)
 3350tot%+=1
 3360ELSE
 3370PROCinputmain
 3380pa%+=1
 3390cpa%=pa%
 3400PROCredrawmain
 3410PROCWimp_IconPutText(Main_Window%,70,STR$(cpa%))
 3420name$(tot%)=file$
 3430a$=FNWimp_GetFileFromPathname(file$)
 3440AA%=FNnacheck(file$)
 3450IF AA%=TRUE THEN name$(tot%)="<Swapper$Dir>.Storage."+FNWimp_GetFileFromPathname(file$)
 3460PROCWimp_IconPutText(Main_Window%,(tot%-((pa%-1)*10)+15),a$)
 3470tot%+=1
 3480ENDIF
 3490IF tot%>1 THEN
 3500PROCWimp_MenuEnable(Main_Menu%,1)
 3510PROCWimp_MenuEnable(Main_Menu%,3)
 3520PROCWimp_MenuEnable(Main_Menu%,4)
 3530ENDIF
 3540a$=FNWimp_GetFileFromPathname(name$(cur%-1))
 3550PROCWimp_IconPutText(Timer_Window%,3,a$)
 3560ENDIF
 3570ENDIF
 3580IF type$="Swapper" THEN
 3590UPDATE%=FALSE
 3600LOCAL ERROR
 3610ON ERROR LOCAL PROCerror
 3620IF open%=FALSE THEN PROCWimp_WindowBringToTop(Main_Window%):open%=TRUE
 3630PROCresetdata
 3640X%=OPENIN(file$)
 3650INPUT #X%,pa%
 3660INPUT #X%,tot%
 3670FOR A=0 TO tot%
 3680INPUT #X%,name$(A)
 3690INPUT #X%,type%(A)
 3700INPUT #X%,time%(A)
 3710NEXT A
 3720CLOSE #X%
 3730PROCredrawmain
 3740PROCWimp_IconPutText(Save_Window%,1,file$)
 3750IF tot%>1 THEN
 3760PROCWimp_MenuEnable(Main_Menu%,1)
 3770PROCWimp_MenuEnable(Main_Menu%,3)
 3780PROCWimp_MenuEnable(Main_Menu%,4)
 3790a$=FNWimp_GetFileFromPathname(name$(cur%-1))
 3800PROCWimp_IconPutText(Timer_Window%,3,a$)
 3810ENDIF
 3820ENDIF
 3830       ENDPROC
 3840       :
 3850       DEF PROCEvent_SaveFile(file$,window%)
 3860         CASE window% OF
 3870WHEN Save_Window%
 3880LOCAL ERROR
 3890ON ERROR LOCAL PROCerror
 3900IF DOSAVE%=TRUE THEN
 3910UPDATE%=FALSE
 3920PROCinputmain
 3930X%=OPENOUT(file$)
 3940PRINT #X%,pa%
 3950PRINT #X%,tot%
 3960FOR A=0 TO tot%
 3970PRINT #X%,name$(A)
 3980PRINT #X%,type%(A)
 3990PRINT #X%,time%(A)
 4000NEXT A
 4010CLOSE #X%
 4020OSCLI ("SETTYPE "+file$+" ACC")
 4030PROCWimp_MenuClose
 4040ENDIF
 4050IF DOSAVE%=FALSE THEN DOSAVE%=TRUE
 4060         ENDCASE
 4070       ENDPROC
 4080:
 4090REM ************************************************************************
 4100:
 4110DEF PROCWimp_WindowAlert(title$,message$)
 4120PROCWimp_WindowAlertBox(title$,message$,0)
 4130ENDPROC
 4140:
 4150DEF PROCWimp_WindowAlertBox(title$,message$,button%)
 4160LOCAL response%
 4170$(wimp%+4)=message$
 4180CASE button% OF
 4190 WHEN 2    : response%=1
 4200 WHEN 1    : response%=15
 4210 WHEN 3    : response%=(1<<5)+16
 4220 WHEN 4    : response%=(1<<6)+16
 4230OTHERWISE : response%=16
 4240ENDCASE
 4250SYS "Wimp_ReportError",wimp%,response%,title$ TO ,response%
 4260ENDPROC
 4270:
 4280DEF FNWimp_WindowCancel(title$,message$)
 4290$(wimp%+4)=message$
 4300response%=23
 4310SYS "Wimp_ReportError",wimp%,response%,title$ TO ,response%
 4320=response%-2
 4330:
 4340DEF PROCWimp_WindowErrorBox(title$,message$)
 4350PROCWimp_WindowAlertBox(title$,message$,2)
 4360ENDPROC
 4370:
 4380DEF FNWimp_WindowTitle(window%)
 4390wimp%!0=window%
 4400SYS "Wimp_GetWindInfo",,wimp%
 4410IF ((wimp%!60)AND&100)=0 ERROR 1,"Title isn't indirected"
 4420=$(wimp%!76)
 4430:
 4440DEF FNWimp_WindowLoad(window$)
 4450=FNWimp_WindowLoadFrom(window$,"<Obey$Dir>.Templates")
 4460:
 4470DEF FNWimp_WindowLoadFrom(window$,template$)
 4480LOCAL c%,i%,n%,j%,sp$,sp2$
 4490SYS "Wimp_OpenTemplate",,template$
 4500SYS "Wimp_LoadTemplate",,wimp%,icons%,icon_memory%,-1,window$,0 TO ,,icons%
 4510CASE sprites% OF
 4520 WHEN 1    : wimp%!64=sprites%
 4530 OTHERWISE : wimp%!64=FNEvent_Sprites(window%)
 4540ENDCASE
 4550SYS "Wimp_CreateWindow",,wimp% TO c%
 4560SYS "Wimp_CloseTemplate"
 4570SYS "Wimp_WhichIcon",c%,wimp%+40,1+2+(1<<8),2+(1<<8)
 4580CASE wimp%!40 OF
 4590 WHEN -1   :
 4600 OTHERWISE : i%=40
 4610 REPEAT
 4620   wimp%!4=wimp%!i% : wimp%!0=c%
 4630   SYS "Wimp_GetIconState",,wimp%
 4640   sp$=FNWimp_GetStringAtAddress(wimp%!28)
 4650   SYS "Wimp_DeleteIcon",,wimp%
 4660   CASE sprites% OF
 4670    WHEN 1    : wimp%!32=1
 4680    OTHERWISE :
 4690     SYS "OS_SpriteOp",&108,sprites% TO ,,,n%
 4700     j%=0
 4710     REPEAT : j%+=1
 4720      SYS "OS_SpriteOp",&10D,sprites%,pointer_block%,20,j%
 4730      sp2$=FNWimp_GetStringAtAddress(pointer_block%)
 4740     UNTIL j%=n% OR sp$=sp2$
 4750     IF sp$=sp2$ THEN wimp%!32=sprites% ELSE wimp%!32=1
 4760   ENDCASE
 4770   wimp%!4=c%
 4780   SYS "Wimp_CreateIcon",,wimp%+4 TO handle%
 4790   i%+=4
 4800 UNTIL (wimp%!i%)=-1
 4810ENDCASE
 4820=c%
 4830:
 4840DEF PROCWimp_WindowBringToTop(window%)
 4850!wimp%=window%
 4860SYS "Wimp_GetWindowState",,wimp%
 4870wimp%!28=-1
 4880SYS "Wimp_OpenWindow",,wimp%
 4890ENDPROC
 4900:
 4910DEF PROCWimp_WindowClose(window%)
 4920!wimp%=window%
 4930IF window%=Main_Window% THEN open%=FALSE
 4940SYS "Wimp_CloseWindow",,wimp%
 4950ENDPROC
 4960:
 4970DEF PROCWimp_WindowForceDraw(window%)
 4980CASE window% OF
 4990 WHEN -1   : SYS "Wimp_ForceRedraw",-1,0,0,2*1280,2*1024
 5000 OTHERWISE : SYS "Wimp_ForceRedraw",window%,0,-2*1024,2*1280,0
 5010ENDCASE
 5020ENDPROC
 5030:
 5040DEF PROCWimp_WindowOpen(window%)
 5050!wimp%=window%
 5060SYS "Wimp_GetWindowState",,wimp%
 5070SYS "Wimp_OpenWindow",,wimp%
 5080ENDPROC
 5090:
 5100PROCWimp_WindowInterface
 5110SYS"Wimp_BorderWindow",,wimp%
 5120ENDPROC
 5130:
 5140REM ************************************************************************
 5150:
 5160DEF PROCWimp_SetIconSprite(window%,icon%,sprite$)
 5170wimp%!0=window%
 5180wimp%!4=icon%
 5190SYS "Wimp_GetIconState",,wimp%
 5200$wimp%!32="S"+sprite$
 5210wimp%!0=window%
 5220wimp%!8=0
 5230wimp%!12=0
 5240SYS "Wimp_SetIconState",,wimp%
 5250ENDPROC
 5260:
 5270DEF FNWimp_IconBar(Sprite$)
 5280LOCAL icon%
 5290wimp%!0=-1
 5300wimp%!4=0     : wimp%!8=0
 5310wimp%!12=68 : wimp%!16=68
 5320wimp%!20=&3002
 5330$(wimp%+24)=Sprite$
 5340SYS "Wimp_CreateIcon",,wimp% TO icon%
 5350=icon%
 5360:
 5370DEF PROCWimp_IconCaret(window%,icon%,chars%)
 5380SYS "Wimp_SetCaretPosition",window%,icon%,,,-1,chars%
 5390ENDPROC
 5400:
 5410DEF FNWimp_IconText(window%,icon%)
 5420wimp%!0=window% : wimp%!4=icon%
 5430SYS "Wimp_GetIconState",,wimp%
 5440IF ((wimp%!24) AND &100)=0 ERROR 1,"Icon isn't indirected"
 5450=$(wimp%!28)
 5460:
 5470DEF FNWimp_IconValidation(window%,icon%)
 5480wimp%!0=window% : wimp%!4=icon%
 5490SYS "Wimp_GetIconState",,wimp%
 5500IF ((wimp%!24) AND &100)=0 ERROR 1,"Icon isn't indirected"
 5510=$(wimp%!32)
 5520:
 5530DEF PROCWimp_IconDisable(window%,icon%)
 5540wimp%!0=window% : wimp%!4=icon%
 5550wimp%!8=1<<22   : wimp%!12=1<<22
 5560SYS "Wimp_SetIconState",,wimp%
 5570ENDPROC
 5580:
 5590DEF PROCWimp_IconEnable(window%,icon%)
 5600wimp%!0=window% : wimp%!4=icon%
 5610wimp%!8=0       : wimp%!12=1<<22
 5620SYS "Wimp_SetIconState",,wimp%
 5630ENDPROC
 5640:
 5650DEF FNWimp_IconPutSprite(window%,icon%,sprite$)
 5660wimp%!0=window%:wimp%!4=icon%
 5670SYS "Wimp_GetIconState",,wimp%
 5680SYS "Wimp_DeleteIcon",,wimp%
 5690wimp%!4=wimp%!8   : wimp%!8=wimp%!12  : wimp%!12=wimp%!16
 5700wimp%!16=wimp%!20 : wimp%!20=wimp%!24 : $(wimp%+24)=sprite$
 5710SYS "Wimp_CreateIcon",,wimp% TO icon%
 5720=icon%
 5730:
 5740DEF PROCWimp_IconPutText(window%,icon%,text$)
 5750wimp%!0=window% : wimp%!4=icon%
 5760SYS "Wimp_GetIconState",,wimp%
 5770IF ((wimp%!24) AND &100)=0 ERROR 1,"Icon isn't indirected"
 5780$(wimp%!28)=text$
 5790wimp%!0=window% : wimp%!4=icon%
 5800wimp%!8=0 : wimp%!12=0
 5810SYS "Wimp_SetIconState",,wimp%
 5820ENDPROC
 5830:
 5840DEF PROCWimp_IconInterfaceStart
 5850SYS"Wimp_BorderIcon",,wimp%
 5860ENDPROC
 5870:
 5880DEF PROCWimp_IconInterfaceFinish
 5890wimp%!8=0
 5900SYS"Wimp_BorderIcon",,wimp%
 5910ENDPROC
 5920:
 5930REM ************************************************************************
 5940:
 5950DEF PROCWimp_MenuAdjustOn(menu%)
 5960SYS "Wimp_GetPointerInfo",,pointer_block%
 5970IF ((pointer_block%!8)AND1)=1 THEN SYS "Wimp_CreateMenu",,menu%,pointer_block%!0,pointer_block%!4
 5980ENDPROC
 5990:
 6000DEF FNWimp_MenuChoice(level%)
 6010=(wimp%!(4*level%))+1
 6020:
 6030DEF FNWimp_MenuCreate(menu$)
 6040IF menu$="Colours" THEN=FNWimp_MenuColours
 6050LOCAL menu%,index%,width%,length%,k%,s%
 6060DIM menu% 28+FNWimp_MenuNoOfEntries(menu$)*24
 6070menu%?12=7   : menu%?13=2  : menu%?14=7 :menu%?15=0
 6080menu%!16=140 : menu%!20=44 : menu%!24=0
 6090index%=menu%+28
 6100$menu%=LEFT$(menu$,INSTR(menu$,"\")-1)
 6110width%=LEN(LEFT$(menu$,INSTR(menu$,"\")-1))
 6120menu$+="\" : Menu_NoOfEntries%=0
 6130WHILE menu$<>""
 6140menu$=MID$(menu$,INSTR(menu$,"\")+1)
 6150CASE menu$ OF
 6160 WHEN ""
 6170 OTHERWISE :
 6180  !index%=0 : index%!4=-1 : index%!8=&7000021
 6190  length%=INSTR(menu$,"\")-1
 6200  k%=INSTR(LEFT$(menu$,length%),">")
 6210  CASE k% OF
 6220   WHEN 0
 6230   OTHERWISE
 6240    s%=EVAL(MID$(menu$,k%+1,length%-k%))
 6250    index%!4=s%
 6260    length%=k%-1
 6270  ENDCASE
 6280  $(index%+12)=LEFT$(menu$,length%)
 6290  IF length%>width% THEN width%=length%
 6300  index%+=24
 6310ENDCASE
 6320ENDWHILE
 6330menu%!16=16*(width%+1)
 6340index%!-24=index%!-24 OR &80 : =menu%
 6350:
 6360DEF FNWimp_MenuColours
 6370=FNWimp_MenuCreateColours(" ")
 6380:
 6390DEF FNWimp_MenuCreateColours(title$)
 6400LOCAL x$,men%,j%,i%
 6410x$=title$+"\0\1\2\3\4\5\6\7\8\9\10\11\12\13\14\15"
 6420men%=FNWimp_MenuCreate(x$)
 6430FOR i%=0 TO 15
 6440CASE TRUE OF
 6450WHEN i%<4,i%=9,i%=12,i%=14,i%=15 : j%=7
 6460OTHERWISE : j%=0
 6470ENDCASE
 6480men%?(39+i%*24)=i%*16+j%
 6490PROCWimp_MenuCentre(men%,i%+1)
 6500NEXT
 6510=men%
 6520:
 6530DEF FNWimp_MenuNoOfEntries(menu$)
 6540LOCAL n% ,j% : n%=0 : j%=0
 6550REPEAT
 6560j%=INSTR(menu$,"\",j%+1)
 6570IF j%<>0 THEN n%+=1
 6580UNTIL j%=0
 6590=n%
 6600:
 6610DEF PROCWimp_MenuBackGroundColour(menu%,item%,colour%)
 6620LOCAL fore%,i%
 6630fore%=(menu%?(39+(item%-1)*24))MOD16
 6640i%=((menu%?(39+(item%-1)*24))DIV16)MOD16
 6650menu%?(39+(item%-1)*24)=fore%+16*colour%+i%
 6660ENDPROC
 6670:
 6680DEF PROCWimp_MenuCentre(menu%,item%)
 6690menu%!(36+(item%-1)*24)=menu%!(36+(item%-1)*24)OR(1<<3)
 6700ENDPROC
 6710:
 6720DEF PROCWimp_MenuClose
 6730SYS "Wimp_CreateMenu",-1
 6740ENDPROC
 6750:
 6760DEF PROCWimp_MenuDisable(menu%,item%)
 6770menu%!(36+(item%-1)*24)=menu%!(36+(item%-1)*24)OR(1<<22)
 6780ENDPROC
 6790:
 6800DEF PROCWimp_MenuDottedLine(menu%,item%)
 6810menu%!(28+(item%-1)*24)=(menu%!(28+(item%-1)*24))OR2
 6820ENDPROC
 6830:
 6840DEF PROCWimp_MenuEnable(menu%,item%)
 6850PROCWimp_MenuDisable(menu%,item%)
 6860menu%!(36+(item%-1)*24)=menu%!(36+(item%-1)*24)EOR(1<<22)
 6870ENDPROC
 6880:
 6890DEF PROCWimp_MenuForegroundColour(menu%,item%,colour%)
 6900menu%?(39+(item%-1)*24)=colour%+16*((menu%?(39+(item%-1)*24))DIV16)
 6910ENDPROC
 6920:
 6930DEF PROCWimp_MenuGlue(menu1%,item%,menu2%)
 6940menu1%!(8+item%*24)=menu2%
 6950ENDPROC
 6960:
 6970DEF PROCWimp_MenuItem(menu%,item%,item$)
 6980$(menu%+(40+(item%-1)*24))=LEFT$(item$,12)+CHR$0
 6990ENDPROC
 7000:
 7010DEF PROCWimp_MenuMessage(menu%,item%)
 7020menu%!(28+(item%-1)*24)=(menu%!(28+(item%-1)*24))EOR(1<<3)
 7030ENDPROC
 7040:
 7050DEF PROCWimp_MenuPopUp(Menu%,x%,y%)
 7060IF SA%=FALSE THEN
 7070menu%=Menu%
 7080SYS "Wimp_CreateMenu",,menu%,x%-64,y%+20
 7090ENDIF
 7100ENDPROC
 7110:
 7120DEF PROCWimp_MenuPopUpBar(x%,y%)
 7130LOCAL n% : n%=0
 7140WHILE ((Bar_Menu%!(28+n%*24))AND%10000000)=0
 7150n%+=1
 7160ENDWHILE
 7170SYS "Wimp_CreateMenu",,Bar_Menu%,x%-64,96+n%*44
 7180menu%=Bar_Menu%
 7190ENDPROC
 7200:
 7210DEF PROCWimp_MenuTick(menu%,item%)
 7220menu%!(28+(item%-1)*24)=(menu%!(28+(item%-1)*24))EOR1
 7230ENDPROC
 7240:
 7250DEF PROCWimp_MenuTitle(menu%,title$)
 7260$menu%=LEFT$(title$,12)+CHR$0
 7270ENDPROC
 7280:
 7290DEF PROCWimp_MenuWrite(menu%,item%,buffer%,val%,BufferLength%)
 7300menu%!(28+(item%-1)*24)=(menu%!(28+(item%-1)*24))OR4
 7310menu%!(36+(item%-1)*24)=menu%!(36+(item%-1)*24)OR&100
 7320menu%!(40+(item%-1)*24)=buffer%
 7330menu%!(44+(item%-1)*24)=val%
 7340menu%!(48+(item%-1)*24)=BufferLength%
 7350ENDPROC
 7360:
 7370REM ************************************************************************
 7380:
 7390DEF PROCWimp_SelectIcon(window%,icon%)
 7400wimp%!0=window%
 7410wimp%!4=icon%
 7420wimp%!8=%1000000000000000000000
 7430wimp%!12=%1000000000000000000000
 7440SYS&400CD,,wimp%
 7450ENDPROC
 7460:
 7470DEF PROCWimp_UnselectIcon(window%,icon%)
 7480wimp%!0=window%
 7490wimp%!4=icon%
 7500wimp%!8=0
 7510wimp%!12=%1000000000000000000000
 7520SYS&400CD,,wimp%
 7530ENDPROC
 7540:
 7550DEF PROCWimp_SpritesLoad
 7560PROCWimp_SpritesPathLoad("<Obey$Dir>.Sprites")
 7570direct_sprites%=sprites%
 7580ENDPROC
 7590:
 7600DEF PROCWimp_SpritesPathLoad(pathname$)
 7610LOCALS%,T%
 7620S%=OPENIN"<Obey$Dir>.Sprites":T%=EXT#S%+16:CLOSE#S%
 7630DIMsprites%T%,spname%12
 7640!sprites%=T%:sprites%!8=0
 7650SYS"OS_SpriteOp",&109,sprites%
 7660SYS"OS_SpriteOp",&10A,sprites%,pathname$
 7670ENDPROC
 7680:
 7690REM ************************************************************************
 7700:
 7710DEF FNWimp_FileType(type%)
 7720CASEtype%OF
 7730WHEN&FFF:="Text"
 7740WHEN&FFD:="Data"
 7750WHEN&FFB:="Basic"
 7760WHEN&FF9:="Sprite"
 7770WHEN&FED:="Palette"
 7780WHEN&FEC:="Template"
 7790WHEN&AFF:="Draw"
 7800WHEN&1000:="Folder"
 7810WHEN&2000:="Application"
 7820WHEN&ACC:="Swapper"
 7830OTHERWISE=STR$~(type%)
 7840ENDCASE
 7850:
 7860DEF FNWimp_GetFilePathName
 7870=FNWimp_GetStringAtAddress(wimp%+44)
 7880:
 7890DEF FNWimp_FileLoad(pathname$)
 7900LOCALS%,T%,file%
 7910S%=OPENINpathname$
 7920T%=EXT#S%+16
 7930CLOSE#S%
 7940DIMfile%T%
 7950OSCLI("LOAD"+pathname$+""+STR$~file%)
 7960=file%
 7970;
 7980DEF FNWimp_GetStringAtAddress(array%)
 7990LOCALs$:s$=""
 8000WHILE(?array%<>13)AND(?array%<>0):s$+=CHR$(?array%):array%+=1:ENDWHILE:
 8010=s$
 8020:
 8030DEF FNWimp_GetFileFromPathname(f$)
 8040CASE INSTR(f$,".") OF
 8050 WHEN 0    :=f$
 8060 OTHERWISE :=FNWimp_GetFileFromPathname(RIGHT$(f$,LEN(f$)-INSTR(f$,".")))
 8070ENDCASE
 8080:
 8090DEF PROCWimp_SendToEdit(file$)
 8100LOCAL n%
 8110wimp%!4=&6CC01C0C
 8120wimp%!16=5
 8130wimp%!36=0
 8140wimp%!40=&FFF
 8150$(wimp%+44)=file$+CHR$0
 8160n%=LENfile$+45
 8170IF n%MOD4 THEN !wimp%=4+(n%>>2)<<2 ELSE !wimp%=n%
 8180SYS "Wimp_SendMessage",17,wimp%,0
 8190ENDPROC
 8200:
 8210REM ************************************************************************
 8220:
 8230DEF PROCWimp_Start(TaskName$,wimp_memory%,icon%)
 8240DIM wimp% wimp_memory%,icons% icon%
 8250IF wimp_memory%<256 THEN wimp_memory%=256
 8260icon_memory%=icons%+icon%
 8270task$=TaskName$
 8280indirect_sprites%=1 : direct_sprites%=1
 8290PROCWimp_SetEventVariables
 8300ON ERROR PROCWimp_Error:END
 8310SYS"Wimp_Initialise",200,&4B534154,TaskName$ TO version%,task%
 8320ENDPROC
 8330:
 8340DEF FNWimp_BASICParameters
 8350 LOCAL com$,param$,I%
 8360 SYS "OS_GetEnv" TO com$
 8370 params$=""
 8380 I%=INSTR(com$," -quit ")
 8390 IF I% THEN params$=MID$(com$,INSTR(com$," ",I%+LEN" -quit ")+1)
 8400=params$
 8410:
 8420DEF PROCWimp_SetEventVariables
 8430DIM pointer_block% 20
 8440interface%=FALSE
 8450null%=1  :draw%=2 :  pointer_leaving%=1<<4
 8460pointer_entering%=1<<5:mouse%=1<<6:drag%=1<<7
 8470key%=1<<8:menu%=1<<9:scroll%=1<<10
 8480lose_caret%=1<<11:gain_caret%=1<<12:message%=(1<<17)+(1<<18)
 8490recorder%=1<<18:acknowledge%=1<<19:window%=0
 8500sprites%=1:version%=0:task%=0
 8510Bar_Window%=-2:Bar_Icon%=0:Bar_Menu%=0
 8520x_origin%=0:y_origin%=0:SaveWindow%=-3
 8530message_quit%=0:message_save%=2:message_load%=3
 8540mouse_button%=2:save_event%=0
 8550top_line%=0 : bottom_line%=0
 8560ENDPROC
 8570:
 8580DEF PROCWimp_Error
 8590LOCALX$,x%
 8600ON ERROR OFF
 8610x%=ERL
 8620X$=REPORT$+"atline"+STR$(x%DIV10)
 8630DIMErrorMsg%36
 8640ErrorMsg%!0=36:ErrorMsg%!12=0:ErrorMsg%!16=&81080:ErrorMsg%!20=x%
 8650$(ErrorMsg%+24)="!RunImage"
 8660SYS"Wimp_SendMessage",17,ErrorMsg%
 8670PROCWimp_WindowAlert(task$,X$)
 8680PROCWimp_CloseDown
 8690ENDPROC
 8700:
 8710DEF PROCWimp_CloseDown
 8720SYS"Wimp_CloseDown",task%,"TASK"
 8730ENDPROC
 8740:
 8750DEF PROCWimp_Quit
 8760finished%=TRUE
 8770ENDPROC
 8780:
 8790DEF FNWimp_ReadVariable(Variable$)
 8800LOCALlen%,result%,variable%
 8810$wimp%=Variable$
 8820SYS"OS_ReadVarVal",wimp%,wimp%+255,255,,3TO,,len%
 8830wimp%?(len%+255)=13
 8840=$(wimp%+255)
 8850:
 8860REM ************************************************************************
 8870:
 8880DEF PROCWimp_WaitForEvent
 8890AABB%=-1
 8900LOCAL mask%,event%
 8910finished%=FALSE
 8920gap%=100
 8930SYS"OS_ReadMonotonicTime" TO oldtime
 8940REPEAT
 8950SYS"OS_ReadMonotonicTime" TO newtime
 8960WHILE (newtime - oldtime) > 0
 8970oldtime = oldtime + gap%
 8980ENDWHILE
 8990IF start%=TRUE THEN
 9000PROCnext
 9010IF AABB%<timer%-oldtime% THEN PROCWimp_IconPutText(Timer_Window%,0,STR$(INT(timer%-oldtime%))):AABB%=timer%-oldtime%
 9020ENDIF
 9030mask%=%111000011001
 9040SYS "Wimp_Poll",0,wimp%,oldtime% TO event%,wimp%
 9050 CASE event% OF
 9060  WHEN0 :
 9070  WHEN1 : PROCWimp_PollDrawWindow
 9080  WHEN2 : SYS "Wimp_OpenWindow",,wimp%
 9090  WHEN3 : PROCWimp_PollCloseWindow
 9100  WHEN4 :
 9110  WHEN5 :
 9120  WHEN6 : PROCWimp_PollMouseClick
 9130  WHEN7 : PROCWimp_PollSaveMessage
 9140  WHEN8 : PROCWimp_PollKeyPress
 9150  WHEN9 : PROCEvent_MenuChoice(menu%)
 9160  WHEN10:
 9170  WHEN11:
 9180  WHEN12:
 9190  WHEN17,18: PROCWimp_PollMessages
 9200  WHEN19:
 9210 ENDCASE
 9220UNTIL finished%
 9230ENDPROC
 9240:
 9250DEF PROCWimp_PollDrawWindow
 9260LOCAL more%
 9270SYS"Wimp_RedrawWindow",,wimp%TOmore%
 9280window%=wimp%!0
 9290x_origin%=16+wimp%!4-wimp%!20:y_origin%=-16+wimp%!16-wimp%!24
 9300WHILEmore%
 9310 IF interface% THEN SYS"Wimp_BorderWindow",,wimp%
 9320 PROCEvent_Draw(window%,x_origin%,y_origin%)
 9330 SYS"Wimp_GetRectangle",,wimp%TOmore%
 9340ENDWHILE
 9350ENDPROC
 9360:
 9370DEF PROCWimp_PollCloseWindow
 9380  SYS "Wimp_GetPointerInfo",,wimp%
 9390  window%=wimp%!12 : buttons%=wimp%!8
 9400 PROCEvent_WindowClose(window%,buttons%)
 9410 !wimp%=window% : SYS "Wimp_CloseWindow",,wimp%
 9420ENDPROC
 9430:
 9440DEF PROCWimp_PollMouseClick
 9450 button%=wimp%!8:window%=wimp%!12:icon%=wimp%!16:x%=wimp%!0:y%=wimp%!4
 9460 CASE button% OF
 9470   WHEN2    : PROCWimp_PollMenuPopUp
 9480   OTHERWISE: CASE FNEvent_Save(window%) OF
 9490               WHEN TRUE : PROCWimp_PollMouseSave
 9500               WHEN FALSE: PROCWimp_PollEventMouseClick
 9510              ENDCASE
 9520 ENDCASE
 9530ENDPROC
 9540:
 9550DEF PROCWimp_PollMenuPopUp
 9560IF SA%=FALSE THEN
 9570menu%=FNEvent_Menu(window%)
 9580  CASE menu%  OF
 9590   WHEN FALSE:
 9600   OTHERWISE :
 9610     CASE window% OF
 9620      WHEN -2   : n%=0
 9630        WHILE ((Bar_Menu%!(28+n%*24))AND%10000000)=0
 9640         n%+=1
 9650        ENDWHILE
 9660        SYS "Wimp_CreateMenu",,Bar_Menu%,x%-64,96+n%*89
 9670      OTHERWISE : SYS"Wimp_CreateMenu",,menu%,x%-64,y%+20
 9680     ENDCASE
 9690  ENDCASE
 9700ENDIF
 9710ENDPROC
 9720:
 9730DEF PROCWimp_PollMouseSave
 9740 CASE icon% OF
 9750  WHEN 0 : IF button% AND &50 THEN PROCWimp_PollDragBox(window%)
 9760  WHEN 2 : IF button% AND 5 THEN  PROCWimp_PollSaveFile(window%)
 9770 ENDCASE
 9780ENDPROC
 9790:
 9800DEF PROCWimp_PollEventMouseClick
 9810 IF interface% THEN SYS"Wimp_BorderIcon",,wimp%
 9820 PROCEvent_MouseClick(window%,icon%,button%,x%,y%)
 9830 CASE  interface% OF
 9840  WHEN TRUE :
 9850   wimp%!0=x%:wimp%!4=y% : wimp%!8=0
 9860   wimp%!12=window% : wimp%!16=icon%
 9870   SYS"Wimp_BorderIcon",,wimp%
 9880 ENDCASE
 9890ENDPROC
 9900:
 9910DEF PROCWimp_PollSaveFile(window%)
 9920LOCALfile$
 9930 wimp%!0=window% : wimp%!4=1 : SYS "Wimp_GetIconState",,wimp%
 9940 file$=$(wimp%!28)
 9950 CASE INSTR(file$,".") OF
 9960  WHEN 0   :
 9970IF key%=13 THEN
 9980   $(wimp%+4)="To save, drag the icon to a directory window"
 9990   SYS "Wimp_ReportError",wimp%,16,task$
10000ENDIF
10010  OTHERWISE:
10020   IF key%=13 THEN PROCEvent_SaveFile(file$,window%)
10030 ENDCASE
10040 IF key%=13 THEN SYS"Wimp_CreateMenu",-1
10050IF SA%=TRUE THEN PROCWimp_CloseDown:IF remove%=TRUE THEN OSCLI("Backdrop -T <Swapper$Dir>.Data.Blank")
10060ENDPROC
10070:
10080DEF PROCWimp_PollDragBox(window%)
10090LOCALx%,y%
10100 save%=window%
10110 !wimp%=window%
10120 SYS"Wimp_GetWindowState",,wimp%
10130 x%=wimp%!4-wimp%!20:y%=wimp%!16-wimp%!24
10140 wimp%!4=0
10150 SYS"Wimp_GetIconState",,wimp%
10160 !wimp%=window%
10170 wimp%!4=5
10180 wimp%!8=x%+wimp%!8:wimp%!12=y%+wimp%!12
10190 wimp%!16=x%+wimp%!16:wimp%!20=y%+wimp%!20
10200 wimp%!24=0:wimp%!28=0
10210 wimp%!32=&7FFFFFFF:wimp%!36=&7FFFFFFF
10220 SYS"Wimp_DragBox",,wimp%
10230ENDPROC
10240:
10250DEF PROCWimp_PollKeyPress
10260  window%=wimp%!0:icon%=wimp%!4:key%=wimp%!24
10270  CASE FNEvent_Save(window%) OF
10280   WHEN TRUE : PROCWimp_PollSaveFile(window%)
10290   WHEN FALSE: PROCEvent_KeyPress(window%,icon%,key%)
10300  ENDCASE
10310ENDPROC
10320:
10330DEF PROCWimp_PollSaveMessage
10340LOCALfile$,window%,icon%,x%,y%
10350 SYS"Wimp_GetPointerInfo",,wimp%
10360 window%=wimp%!12:icon%=wimp%!16:x%=wimp%!0:y%=wimp%!4
10370 wimp%!0=save% : wimp%!4=1 : SYS "Wimp_GetIconState",,wimp%
10380 file$=$(wimp%!28)
10390 file$=FNWimp_GetFileFromPathname(file$)
10400 wimp%!20=window%
10410 wimp%!24=icon%
10420 wimp%!28=x%:wimp%!32=y%
10430 wimp%!36=length%
10440 wimp%!0=64
10450 wimp%!12=0
10460 wimp%!16=1
10470 wimp%!40=&FFF
10480 $(wimp%+44)=file$
10490 SYS"Wimp_SendMessage",17,wimp%,wimp%!20,wimp%!24
10500ENDPROC
10510:
10520DEF PROCWimp_PollMessages
10530LOCAL file$
10540file$=FNWimp_GetStringAtAddress(wimp%+44)
10550    CASE wimp%!16 OF
10560     WHEN 0 : finished%=TRUE
10570     WHEN 1 :
10580     WHEN 2 :
10590REM      PROCWimp_IconPutText(save%,1,file$)
10600      wimp%!0=save% : wimp%!4=1 : SYS "Wimp_GetIconState",,wimp%
10610      $(wimp%!28)=file$
10620      wimp%!0=save% : wimp%!4=1 : wimp%!8=0 : wimp%!12=0
10630      SYS "Wimp_SetIconState",,wimp%
10640      REM PROCWimp_IconCaret(save%,1,LENfile$)
10650      SYS "Wimp_SetCaretPosition",save%,1,,,-1,LENfile$
10660      PROCEvent_SaveFile(file$,save%)
10670     WHEN 3
10680      type$=FNWimp_FileType(wimp%!40) : PROCEvent_LoadFile(file$,type$)
10690WHEN 5
10700type$=FNWimp_FileType(wimp%!40)
10710IF type$="Swapper" AND event%=18 THEN
10720wimp%!12=wimp%!8
10730SYS"XWimp_SendMessage",17,wimp%,wimp%!20
10740file$=FNWimp_GetFilePathName
10750PROCEvent_LoadFile(file$,type$)
10760ENDIF
10770    ENDCASE
10780ENDPROC
10790:
10800DEF FNWimp_GetStringAtAddress(array%)
10810LOCALs$:s$=""
10820WHILE(?array%<>13)AND(?array%<>0):s$+=CHR$(?array%):array%+=1:ENDWHILE:
10830=s$
10840:
10850DEF FNWimp_GetFileFromPathname(f$)
10860CASE INSTR(f$,".") OF
10870 WHEN 0    :=f$
10880 OTHERWISE :=FNWimp_GetFileFromPathname(RIGHT$(f$,LEN(f$)-INSTR(f$,".")))
10890ENDCASE
10900:
10910DEF FNWimp_FileType(type%)
10920CASEtype%OF
10930WHEN&FFF:="Text"
10940WHEN&FFD:="Data"
10950WHEN&FFB:="Basic"
10960WHEN&FF9:="Sprite"
10970WHEN&FED:="Palette"
10980WHEN&FEC:="Template"
10990WHEN&AFF:="Draw"
11000WHEN&1000:="Folder"
11010WHEN&2000:="Application"
11020WHEN&ACC:="Swapper"
11030OTHERWISE=STR$~(type%)
11040ENDCASE
11050:
11060DEF PROCinputmain
11070FOR A=0 TO 9
11080A$=FNWimp_IconText(Main_Window%,A+55)
11090time%(A+((cpa%-1)*10))=VAL(A$)
11100NEXT A
11110ENDPROC
11120:
11130DEF PROCredrawmain
11140FOR A=0 TO 9
11150a$=FNWimp_GetFileFromPathname(name$(A+((cpa%-1)*10)))
11160PROCWimp_IconPutText(Main_Window%,A+15,a$)
11170NEXT A
11180PROCWimp_SetIconSprite(Main_Window%,select,";R1")
11190IF ((cur%-1) DIV 10)+1=cpa% THEN
11200PROCWimp_SetIconSprite(Main_Window%,select,";R2")
11210ENDIF
11220FOR A=0 TO 9
11230PROCWimp_IconPutText(Main_Window%,A+55,STR$(time%(A+((cpa%-1)*10))))
11240NEXT A
11250a$=STR$(time%((cpa%-1)*10))
11260PROCWimp_IconCaret(Main_Window%,55,LEN(a$))
11270PROCupdateradio
11280PROCWimp_IconPutText(Main_Window%,70,STR$(cpa%))
11290ENDPROC
11300:
11310DEF PROCnext
11320
11330SYS "OS_ReadMonotonicTime" TO timer%
11340timer%=timer%/100
11350IF INT(time%(cur%-1))=timer%-oldtime% OR timer%-oldtime%>INT(time%(cur%)) THEN
11360
11370IF ((cur%-1) DIV 10)+1=cpa% THEN
11380PROCWimp_SetIconSprite(Main_Window%,select,";R1")
11390ENDIF
11400IF cur%<tot% THEN
11410cur%+=1
11420select+=1
11430IF select>14 THEN select=5
11440ELSE
11450cur%=1
11460select=5
11470ENDIF
11480IF ((cur%-1) DIV 10)+1=cpa% THEN
11490PROCWimp_SetIconSprite(Main_Window%,select,";R2")
11500ENDIF
11510PROCbackupdate
11520PROCresettime
11530a$=FNWimp_GetFileFromPathname(name$(cur%-1))
11540PROCWimp_IconPutText(Timer_Window%,3,a$)
11550ENDIF
11560ENDPROC
11570:
11580DEF PROCresettime
11590AABB%=-1
11600a$=FNWimp_GetFileFromPathname(name$(cur%-1))
11610PROCWimp_IconPutText(Timer_Window%,3,a$)
11620PROCWimp_IconPutText(Timer_Window%,0,"Reset")
11630oldtime%=timer%
11640ENDPROC
11650:
11660DEF PROCbackupdate
11670LOCAL ERROR
11680ON ERROR LOCAL PROCerror
11690X%=OPENIN(name$(cur%-1))
11700CLOSE#X%
11710IF X%<>0 THEN
11720IF type%(cur%-1)=1 THEN OSCLI("Backdrop -C "+name$(cur%-1))
11730IF type%(cur%-1)=2 THEN OSCLI("Backdrop -T "+name$(cur%-1))
11740IF type%(cur%-1)=3 THEN OSCLI("Backdrop -S "+name$(cur%-1))
11750ELSE
11760PROCWimp_WindowAlert("!Swapper","File "+name$(cur%-1)+" does not exist. This file will not be displayed.")
11770ENDIF
11780ENDPROC
11790:
11800DEF PROCupdateradio
11810FOR A=0 TO 9
11820IF type%(A+((cpa%-1)*10))=1 THEN PROCWimp_SelectIcon(Main_Window%,A+25) ELSE PROCWimp_UnselectIcon(Main_Window%,A+25)
11830IF type%(A+((cpa%-1)*10))=2 THEN PROCWimp_SelectIcon(Main_Window%,A+35) ELSE PROCWimp_UnselectIcon(Main_Window%,A+35)
11840IF type%(A+((cpa%-1)*10))=3 THEN PROCWimp_SelectIcon(Main_Window%,A+45) ELSE PROCWimp_UnselectIcon(Main_Window%,A+45)
11850NEXT A
11860ENDPROC
11870:
11880DEF PROCresetdata
11890PROCWimp_WindowClose(Timer_Window%)
11900car%=55
11910pa%=1
11920cpa%=1
11930cur%=1
11940name$()=""
11950type%()=1
11960time%()=10
11970select=5
11980tot%=0
11990start%=FALSE
12000timer%=0
12010oldtime%=-1
12020PROCWimp_MenuDisable(Main_Menu%,1)
12030PROCWimp_MenuDisable(Main_Menu%,3)
12040PROCWimp_MenuDisable(Main_Menu%,4)
12050PROCWimp_IconPutText(Main_Window%,72,"Start"):PROCWimp_IconPutText(Timer_Window%,0,"Stopped")
12060ENDPROC
12070:
12080DEF FNnacheck(A$)
12090IF INSTR(A$,"Storage")<>0 THEN =TRUE ELSE =FALSE
12100:
12110DEF PROCerror
12120IF ERR=67785 OR ERR=67795 THEN
12130IF ERR=67785 THEN PROCWimp_WindowErrorBox("!Swapper","Please write enable the disk"):CLOSE #X%:ENDPROC
12140IF ERR=67795 THEN PROCWimp_WindowErrorBox("!Swapper","Please insert a disk."):ENDPROC
12150ELSE
12160PROCWimp_WindowErrorBox("!Swapper",REPORT$)
12170DOSAVE%=FALSE
12180ENDIF
12190ENDPROC
12200:
12210DEF PROCmousebox(w%)
12220wimp%!0=w%
12230SYS"Wimp_GetWindowOutline",,wimp%
12240MOUSE RECTANGLE wimp%!4+2,wimp%!8+2,wimp%!12-wimp%!4-4,wimp%!16-wimp%!8-4
12250ENDPROC
12260:
12270DEF PROCunbox
12280SYS "OS_ReadModeVariable",-1,11 TO ,,xpic
12290SYS "OS_ReadModeVariable",-1,12 TO ,,ypic
12300SYS "OS_ReadModeVariable",-1,4 TO ,,xfact
12310SYS "OS_ReadModeVariable",-1,5 TO ,,yfact
12320MOUSE RECTANGLE 0,0,xpic<<xfact,ypic<<yfact
12330ENDPROC


OpSys%=0
#ș "OS_Byte",129,0,&FF � OpSys%
K� OpSys%=&A1 � �"ERROR Swapper will not work with RISC OS 2. Sorry!!":�
(ș "OS_GetEnv" � env$
2� �env$," -quit ") �
<2fileload$=�env$,�env$,�(34),�env$,�(34))+1)+1)
F�
P?                           �Wimp_Start("Swapper",6576,2849)
Z3                           �User_SetInitialData
d.                           �Create_Windows
n,                           �Create_Menus
x� fileload$<>" " �
�(�Event_LoadFile(fileload$,"Swapper")
��
�1                           �Wimp_WaitForEvent
�.                           �Wimp_CloseDown
�                            �
�       :
�!       � �User_SetInitialData
�
DOSAVE%=�
�open%=�
�       interface%=�
�&X%=�("<Swapper$Dir>.Data.Options")
�� #X%,remove%
�	� #X%
	pa%=1

cpa%=1
� name$(99)
"� type%(99)
,� time%(99)
6
cur%=1
@name$()=""
J
type%()=1
Ttime%()=10
^select=5
h
tot%=0
rstart%=�
|timer%=0
�oldtime%=-1
�
del%=0
�seldel=0
�	SA%=�
�
UPDATE%=�
�	CD%=�
�       �
�       :
�       � �Create_Windows
�         �Wimp_SpritesLoad
�;                  Info_Window%=�Wimp_WindowLoad("Info")
�;                  Main_Window%=�Wimp_WindowLoad("Main")
�;                  Save_Window%=�Wimp_WindowLoad("Save")
<                 Timer_Window%=�Wimp_WindowLoad("Timer")
>               Options_Window%=�Wimp_WindowLoad("Options")
;                Close_Window%=�Wimp_WindowLoad("Close")
&.�Wimp_IconPutText(Main_Window%,70,�(cpa%))
0� A=55 � 64
:1�Wimp_IconPutText(Main_Window%,A,�(time%(0)))
D� A
N2�Wimp_SetIconSprite(Main_Window%,select,";R2")
X0�Wimp_IconPutText(Timer_Window%,0,"Stopped")
b5� remove%=� � �Wimp_SelectIcon(Options_Window%,0)
l.       Bar_Icon%=�Wimp_IconBar("!Swapper")
v       �
�
        :
�"        � �Event_Save(window%)
�          Ȏ window% �
�"            � Save_Window% :=�
�             :=�
�          �
�
        :
�.        � �Event_Sprites(window%)=sprites%
�       :
�       � �Create_Menus
�3         menu$="Swapper\Info>Info_Window%\Quit"
�.         Bar_Menu%=�Wimp_MenuCreate(menu$)
�f         Main_Menu%=�Wimp_MenuCreate("Main\Save>Save_Window%\Options>Options_Window%\Timer\Clear")
,         �Wimp_MenuDisable(Main_Menu%,1)
,         �Wimp_MenuDisable(Main_Menu%,3)
,         �Wimp_MenuDisable(Main_Menu%,4)
 /         �Wimp_MenuDottedLine(Main_Menu%,3)
*       �
4
        :
>"        � �Event_Menu(window%)
H        Ȏ window% �
R.         � Bar_Window%        : =Bar_Menu%
\/         � Main_Window%       : =Main_Menu%
f!                        : =�
p
        �
z       :
�1       � �Event_WindowClose(window%,buttons%)
�       Ȏ window% �
�#       � Main_Window% : open%=�
�       �
�       �
�       :
�5       � �Event_Draw(window%,x_origin%,y_origin%)
�       Ȏ window% �
�8        � Info_Window%        : �User_DrawInfoWindow
�8        � Save_Window%        : �User_DrawSaveWindow
�       �
�       �
�             :
'             � �User_DrawInfoWindow
             �
             :
$'             � �User_DrawSaveWindow
.             �
8       :
B;       � �Event_MouseClick(window%,icon%,button%,x%,y%)
L       Ȏ window% �
V1        � Bar_Window%        : �User_MouseBar
`B        � Info_Window%       : �User_MouseInfo( button%,icon%)
jB        � Main_Window%       : �User_MouseMain( button%,icon%)
tC        � Timer_Window%      : �User_MouseTimer( button%,icon%)
~E        � Options_Window%    : �User_MouseOptions( button%,icon%)
�C        � Close_Window%      : �User_MouseClose( button%,icon%)
�       �
�       �
�         :
�/         � �User_MouseClose( button%,icon%)
�         � icon%=1 �
�	SA%=�
�
�unbox
�$�Wimp_WindowClose(Close_Window%)
�
UPDATE%=�
�(�Wimp_WindowBringToTop(Save_Window%)
�%A$=�Wimp_IconText(Save_Window%,1)
)�Wimp_IconCaret(Save_Window%,1,�(A$))

�
         � icon%=2 �

�unbox
(
UPDATE%=�
2$�Wimp_WindowClose(Close_Window%)
<	CD%=�
F�
P         � icon%=3 �
Z
�unbox
d$�Wimp_WindowClose(Close_Window%)
n�
x� CD%=� � �Wimp_CloseDown
��
�         :
�         � �User_MouseBar
�(�Wimp_WindowBringToTop(Main_Window%)
�open%=�
�         �
�         :
�/         � �User_MouseTimer( button%,icon%)
�#         � icon%=1 � �resettime
�         �
�         :
�1         � �User_MouseOptions( button%,icon%)
�         � icon%=0 �
         remove%=� remove%
>         � remove%=� � �Wimp_SelectIcon(Options_Window%,0)
@         � remove%=� � �Wimp_UnselectIcon(Options_Window%,0)
"         �
,         � icon%=1 �
6&X%=�("<Swapper$Dir>.Data.Options")
@� #X%,remove%
J	� #X%
T�Wimp_MenuClose
^�
h         �
r         :
|.         � �User_MouseInfo( button%,icon%)
�         �
�         :
�.         � �User_MouseMain( button%,icon%)
�� icon%=73 �
�� tot%>0 �
�VANS%=�Wimp_WindowCancel("!Swapper","Are you sure you want to clear the sequence?")
�� ANS%=� �
�
UPDATE%=�
�2�Wimp_SetIconSprite(Main_Window%,select,";R1")
��resetdata
��redrawmain
�/a$=�Wimp_GetFileFromPathname(name$(cur%-1))
�)�Wimp_IconPutText(Timer_Window%,3,a$)
�
�
�
&
05� icon%=65 � *Filer_OpenDir <Swapper$Dir>.Storage
:
D� icon%=72 �
N� tot%>1 �
Xstart%=� start%
b�resettime
l�� start%=� � �inputmain:ș "OS_ReadMonotonicTime" � oldtime%:oldtime%=oldtime%/100:�Wimp_IconPutText(Main_Window%,72,"Stop"):�Wimp_IconPutText(Timer_Window%,0,�(�(timer%-oldtime%))):�backupdate
vh� start%=� � �Wimp_IconPutText(Main_Window%,72,"Start"):�Wimp_IconPutText(Timer_Window%,0,"Stopped")
��
�C�Wimp_WindowAlert("Swapper","Please load two or more pictures")
��
��
�
�
�^� icon%>14 � icon%<25 � (icon%+((cpa%-1)*10))-14<>cur% � (icon%+((cpa%-1)*10))-14<tot%+1 �
�2�Wimp_SetIconSprite(Main_Window%,select,";R1")
�select=icon%-10
�2�Wimp_SetIconSprite(Main_Window%,select,";R2")
�!cur%=(select-4)+((cpa%-1)*10)
��backupdate
��resettime
�


 
*� icon%>24 � icon%<35 �
4(�Wimp_SelectIcon(Main_Window%,icon%)
>%type%((icon%-25)+((cpa%-1)*10))=1
H:� (icon%-24)+((cpa%-1)*10)=cur% � tot%>1 � �backupdate
R�
\� icon%>34 � icon%<45 �
f(�Wimp_SelectIcon(Main_Window%,icon%)
p%type%((icon%-35)+((cpa%-1)*10))=2
z:� (icon%-34)+((cpa%-1)*10)=cur% � tot%>1 � �backupdate
��
�� icon%>44 � icon%<55 �
�(�Wimp_SelectIcon(Main_Window%,icon%)
�%type%((icon%-45)+((cpa%-1)*10))=3
�:� (icon%-44)+((cpa%-1)*10)=cur% � tot%>1 � �backupdate
��
�
�
�� icon%=66 �
�� tot%>1 �
�&A$=�Wimp_IconText(Main_Window%,55)
�� A=55 � 63
�'� name$((A-54)+((cpa%-1)*10))<>"" �
	%time%((A-54)+((cpa%-1)*10))=�(A$)
	*�Wimp_IconPutText(Main_Window%,A+1,A$)
	�
	$� A
	.*�Wimp_IconCaret(Main_Window%,55,�(A$))
	8�
	BC�Wimp_WindowAlert("Swapper","Please load two or more pictures")
	L�
	V�
	`
	j
	t� icon%=67 � cpa%>1 �
	~�inputmain
	�cpa%-=1
	��redrawmain
	��
	�� icon%=71 � cpa%<pa% �
	��inputmain
	�cpa%+=1
	��redrawmain
	��
	�         �
	�       :
	�0       � �Event_KeyPress(window%,icon%,key%)
	�          Ȏ window% �
E           � Main_Window%       : �User_KeyPressMain( icon%,key%)

          �
       �
         :
(.         � �User_KeyPressMain( icon%,key%)
20� key%=13 � icon%<64 � key%=398 � icon%<64 �
<)A$=�Wimp_IconText(Main_Window%,icon%)
F)time%((icon%-55)+((cpa%-1)*10))=�(A$)
P+a$=�Wimp_IconText(Main_Window%,icon%+1)
Z/�Wimp_IconCaret(Main_Window%,icon%+1,�(a$))
d�
n
x0� key%=13 � icon%=64 � key%=398 � icon%=64 �
�&A$=�Wimp_IconText(Main_Window%,64)
�time%(9+(cpa%-1)*10)=�(A$)
�&a$=�Wimp_IconText(Main_Window%,55)
�*�Wimp_IconCaret(Main_Window%,55,�(a$))
��
�
�� key%=399 � icon%>55 �
�)A$=�Wimp_IconText(Main_Window%,icon%)
�)time%((icon%-55)+((cpa%-1)*10))=�(A$)
�+a$=�Wimp_IconText(Main_Window%,icon%-1)
�/�Wimp_IconCaret(Main_Window%,icon%-1,�(a$))
��
�
� key%=399 � icon%=55 �
&A$=�Wimp_IconText(Main_Window%,55)
time%((cpa%-1)*10)=�(A$)
"&a$=�Wimp_IconText(Main_Window%,64)
,*�Wimp_IconCaret(Main_Window%,64,�(a$))
6�
@         �
J       :
T%       � �Event_MenuChoice(menu%)
^        Ȏ menu% �
h<              � Bar_Menu%          : �User_MenuChoiceBar
r=              � Main_Menu%         : �User_MenuChoiceMain
|
        �
�       �
�       :
�        � �User_MenuChoiceBar
�$        Ȏ �Wimp_MenuChoice(0) �
�         � 1 :
�         � 2
�� UPDATE%=� �
�D�Wimp_IconPutText(Close_Window%,0,"This file has been modified")
�)�Wimp_WindowBringToTop(Close_Window%)
��mousebox(Close_Window%)
��
�U� UPDATE%=� � finished%=�:� remove%=� � �("Backdrop -T <Swapper$Dir>.Data.Blank")
�
        �
       �
       :
!       � �User_MenuChoiceMain
&$        Ȏ �Wimp_MenuChoice(0) �
08         � 3 : �Wimp_WindowBringToTop(Timer_Window%)
:         � 4
DVANS%=�Wimp_WindowCancel("!Swapper","Are you sure you want to clear the sequence?")
N� ANS%=� �
X�� tot%>0 � �Wimp_SetIconSprite(Main_Window%,select,";R1"):�resetdata:�redrawmain:a$=�Wimp_GetFileFromPathname(name$(cur%-1)):�Wimp_IconPutText(Timer_Window%,3,a$):UPDATE%=�
b�
l
        �
v       �
�       :
�)       � �Event_LoadFile(file$,type$)
�� type$="Sprite" �
�
UPDATE%=�
�� �
�� � � �error
�� tot%<99 �
�<� open%=� � �Wimp_WindowBringToTop(Main_Window%):open%=�
�1� cpa%<>pa% � �inputmain:cpa%=pa%:�redrawmain
�� (tot%)/10<pa% �
�name$(tot%)=file$
�'a$=�Wimp_GetFileFromPathname(file$)
�AA%=�nacheck(file$)

S� AA%=� � name$(tot%)="<Swapper$Dir>.Storage."+�Wimp_GetFileFromPathname(file$)

=�Wimp_IconPutText(Main_Window%,(tot%-((pa%-1)*10)+15),a$)

tot%+=1

 �

*�inputmain

4
pa%+=1

>cpa%=pa%

H�redrawmain

R.�Wimp_IconPutText(Main_Window%,70,�(cpa%))

\name$(tot%)=file$

f'a$=�Wimp_GetFileFromPathname(file$)

pAA%=�nacheck(file$)

zS� AA%=� � name$(tot%)="<Swapper$Dir>.Storage."+�Wimp_GetFileFromPathname(file$)

�=�Wimp_IconPutText(Main_Window%,(tot%-((pa%-1)*10)+15),a$)

�tot%+=1

��

�� tot%>1 �

�"�Wimp_MenuEnable(Main_Menu%,1)

�"�Wimp_MenuEnable(Main_Menu%,3)

�"�Wimp_MenuEnable(Main_Menu%,4)

��

�/a$=�Wimp_GetFileFromPathname(name$(cur%-1))

�)�Wimp_IconPutText(Timer_Window%,3,a$)

��

��

�� type$="Swapper" �

UPDATE%=�
� �
� � � �error
$<� open%=� � �Wimp_WindowBringToTop(Main_Window%):open%=�
.�resetdata
8X%=�(file$)
B
� #X%,pa%
L� #X%,tot%
V� A=0 � tot%
`� #X%,name$(A)
j� #X%,type%(A)
t� #X%,time%(A)
~� A
�	� #X%
��redrawmain
�+�Wimp_IconPutText(Save_Window%,1,file$)
�� tot%>1 �
�"�Wimp_MenuEnable(Main_Menu%,1)
�"�Wimp_MenuEnable(Main_Menu%,3)
�"�Wimp_MenuEnable(Main_Menu%,4)
�/a$=�Wimp_GetFileFromPathname(name$(cur%-1))
�)�Wimp_IconPutText(Timer_Window%,3,a$)
��
��
�       �
       :

+       � �Event_SaveFile(file$,window%)
         Ȏ window% �
� Save_Window%
(� �
2� � � �error
<� DOSAVE%=� �
F
UPDATE%=�
P�inputmain
ZX%=�(file$)
d
� #X%,pa%
n� #X%,tot%
x� A=0 � tot%
�� #X%,name$(A)
�� #X%,type%(A)
�� #X%,time%(A)
�� A
�	� #X%
�� ("SETTYPE "+file$+" ACC")
��Wimp_MenuClose
��
�� DOSAVE%=� � DOSAVE%=�
�         �
�       �
�:
�N� ************************************************************************
:
(� �Wimp_WindowAlert(title$,message$)
+�Wimp_WindowAlertBox(title$,message$,0)
"�
,:
63� �Wimp_WindowAlertBox(title$,message$,button%)
@� response%
J$(wimp%+4)=message$
TȎ button% �
^ � 2    : response%=1
h � 1    : response%=15
r! � 3    : response%=(1<<5)+16
|! � 4    : response%=(1<<6)+16
� : response%=16
��
�=ș "Wimp_ReportError",wimp%,response%,title$ � ,response%
��
�:
�)� �Wimp_WindowCancel(title$,message$)
�$(wimp%+4)=message$
�response%=23
�=ș "Wimp_ReportError",wimp%,response%,title$ � ,response%
�=response%-2
�:
�+� �Wimp_WindowErrorBox(title$,message$)
�+�Wimp_WindowAlertBox(title$,message$,2)
�
:
 � �Wimp_WindowTitle(window%)
&wimp%!0=window%
0 ș "Wimp_GetWindInfo",,wimp%
:6� ((wimp%!60)�&100)=0 � 1,"Title isn't indirected"
D=$(wimp%!76)
N:
X� �Wimp_WindowLoad(window$)
b9=�Wimp_WindowLoadFrom(window$,"<Obey$Dir>.Templates")
l:
v-� �Wimp_WindowLoadFrom(window$,template$)
�� c%,i%,n%,j%,sp$,sp2$
�%ș "Wimp_OpenTemplate",,template$
�Mș "Wimp_LoadTemplate",,wimp%,icons%,icon_memory%,-1,window$,0 � ,,icons%
�Ȏ sprites% �
� � 1    : wimp%!64=sprites%
�)  : wimp%!64=�Event_Sprites(window%)
��
�&ș "Wimp_CreateWindow",,wimp% � c%
�ș "Wimp_CloseTemplate"
�7ș "Wimp_WhichIcon",c%,wimp%+40,1+2+(1<<8),2+(1<<8)
�Ȏ wimp%!40 �
�
 � -1   :
�  : i%=40
 �
$   wimp%!4=wimp%!i% : wimp%!0=c%
$   ș "Wimp_GetIconState",,wimp%
 -   sp$=�Wimp_GetStringAtAddress(wimp%!28)
*"   ș "Wimp_DeleteIcon",,wimp%
4   Ȏ sprites% �
>    � 1    : wimp%!32=1
H     :
R/     ș "OS_SpriteOp",&108,sprites% � ,,,n%
\
     j%=0
f     � : j%+=1
p=      ș "OS_SpriteOp",&10D,sprites%,pointer_block%,20,j%
z7      sp2$=�Wimp_GetStringAtAddress(pointer_block%)
�     � j%=n% � sp$=sp2$
�4     � sp$=sp2$ � wimp%!32=sprites% � wimp%!32=1
�   �
�   wimp%!4=c%
�.   ș "Wimp_CreateIcon",,wimp%+4 � handle%
�   i%+=4
� � (wimp%!i%)=-1
��
�=c%
�:
�%� �Wimp_WindowBringToTop(window%)
�!wimp%=window%
�#ș "Wimp_GetWindowState",,wimp%
wimp%!28=-1
ș "Wimp_OpenWindow",,wimp%
�
$:
. � �Wimp_WindowClose(window%)
8!wimp%=window%
B$� window%=Main_Window% � open%=�
L ș "Wimp_CloseWindow",,wimp%
V�
`:
j$� �Wimp_WindowForceDraw(window%)
tȎ window% �
~8 � -1   : ș "Wimp_ForceRedraw",-1,0,0,2*1280,2*1024
�9  : ș "Wimp_ForceRedraw",window%,0,-2*1024,2*1280,0
��
��
�:
�� �Wimp_WindowOpen(window%)
�!wimp%=window%
�#ș "Wimp_GetWindowState",,wimp%
�ș "Wimp_OpenWindow",,wimp%
��
�:
��Wimp_WindowInterface
� ș"Wimp_BorderWindow",,wimp%
�

:
N� ************************************************************************
:
(0� �Wimp_SetIconSprite(window%,icon%,sprite$)
2wimp%!0=window%
<wimp%!4=icon%
F!ș "Wimp_GetIconState",,wimp%
P$wimp%!32="S"+sprite$
Zwimp%!0=window%
d
wimp%!8=0
nwimp%!12=0
x!ș "Wimp_SetIconState",,wimp%
��
�:
�� �Wimp_IconBar(Sprite$)
�� icon%
�wimp%!0=-1
�wimp%!4=0     : wimp%!8=0
�wimp%!12=68 : wimp%!16=68
�wimp%!20=&3002
�$(wimp%+24)=Sprite$
�'ș "Wimp_CreateIcon",,wimp% � icon%
�
=icon%
�:
�+� �Wimp_IconCaret(window%,icon%,chars%)
8ș "Wimp_SetCaretPosition",window%,icon%,,,-1,chars%
�
:
"#� �Wimp_IconText(window%,icon%)
,#wimp%!0=window% : wimp%!4=icon%
6!ș "Wimp_GetIconState",,wimp%
@7� ((wimp%!24) � &100)=0 � 1,"Icon isn't indirected"
J=$(wimp%!28)
T:
^)� �Wimp_IconValidation(window%,icon%)
h#wimp%!0=window% : wimp%!4=icon%
r!ș "Wimp_GetIconState",,wimp%
|7� ((wimp%!24) � &100)=0 � 1,"Icon isn't indirected"
�=$(wimp%!32)
�:
�&� �Wimp_IconDisable(window%,icon%)
�#wimp%!0=window% : wimp%!4=icon%
�$wimp%!8=1<<22   : wimp%!12=1<<22
�!ș "Wimp_SetIconState",,wimp%
��
�:
�%� �Wimp_IconEnable(window%,icon%)
�#wimp%!0=window% : wimp%!4=icon%
�$wimp%!8=0       : wimp%!12=1<<22
�!ș "Wimp_SetIconState",,wimp%
��
:
0� �Wimp_IconPutSprite(window%,icon%,sprite$)
!wimp%!0=window%:wimp%!4=icon%
&!ș "Wimp_GetIconState",,wimp%
0ș "Wimp_DeleteIcon",,wimp%
:=wimp%!4=wimp%!8   : wimp%!8=wimp%!12  : wimp%!12=wimp%!16
D?wimp%!16=wimp%!20 : wimp%!20=wimp%!24 : $(wimp%+24)=sprite$
N'ș "Wimp_CreateIcon",,wimp% � icon%
X
=icon%
b:
l,� �Wimp_IconPutText(window%,icon%,text$)
v#wimp%!0=window% : wimp%!4=icon%
�!ș "Wimp_GetIconState",,wimp%
�7� ((wimp%!24) � &100)=0 � 1,"Icon isn't indirected"
�$(wimp%!28)=text$
�#wimp%!0=window% : wimp%!4=icon%
�wimp%!8=0 : wimp%!12=0
�!ș "Wimp_SetIconState",,wimp%
��
�:
�� �Wimp_IconInterfaceStart
�ș"Wimp_BorderIcon",,wimp%
��
�:
�� �Wimp_IconInterfaceFinish

wimp%!8=0
ș"Wimp_BorderIcon",,wimp%
�
 :
*N� ************************************************************************
4:
>� �Wimp_MenuAdjustOn(menu%)
H,ș "Wimp_GetPointerInfo",,pointer_block%
R^� ((pointer_block%!8)�1)=1 � ș "Wimp_CreateMenu",,menu%,pointer_block%!0,pointer_block%!4
\�
f:
p� �Wimp_MenuChoice(level%)
z=(wimp%!(4*level%))+1
�:
�� �Wimp_MenuCreate(menu$)
�)� menu$="Colours" �=�Wimp_MenuColours
�'� menu%,index%,width%,length%,k%,s%
�.� menu% 28+�Wimp_MenuNoOfEntries(menu$)*24
�7menu%?12=7   : menu%?13=2  : menu%?14=7 :menu%?15=0
�+menu%!16=140 : menu%!20=44 : menu%!24=0
�index%=menu%+28
� $menu%=�menu$,�menu$,"\")-1)
�#width%=�(�menu$,�menu$,"\")-1))
�$menu$+="\" : Menu_NoOfEntries%=0
�ȕ menu$<>""
�menu$=�menu$,�menu$,"\")+1)
Ȏ menu$ �
	 � ""
  :
$1  !index%=0 : index%!4=-1 : index%!8=&7000021
.  length%=�menu$,"\")-1
8  k%=��menu$,length%),">")
B
  Ȏ k% �
L
   � 0
V   
`%    s%=�(�menu$,k%+1,length%-k%))
j    index%!4=s%
t    length%=k%-1
~  �
�"  $(index%+12)=�menu$,length%)
�'  � length%>width% � width%=length%
�  index%+=24
��
��
�menu%!16=16*(width%+1)
�(index%!-24=index%!-24 � &80 : =menu%
�:
�� �Wimp_MenuColours
�!=�Wimp_MenuCreateColours(" ")
�:
�%� �Wimp_MenuCreateColours(title$)
� x$,men%,j%,i%

6x$=title$+"\0\1\2\3\4\5\6\7\8\9\10\11\12\13\14\15"
men%=�Wimp_MenuCreate(x$)
� i%=0 � 15
(
Ȏ � �
2(� i%<4,i%=9,i%=12,i%=14,i%=15 : j%=7
< : j%=0
F�
Pmen%?(39+i%*24)=i%*16+j%
Z�Wimp_MenuCentre(men%,i%+1)
d�
n	=men%
x:
�"� �Wimp_MenuNoOfEntries(menu$)
�� n% ,j% : n%=0 : j%=0
��
�j%=�menu$,"\",j%+1)
�� j%<>0 � n%+=1
�
� j%=0
�=n%
�:
�5� �Wimp_MenuBackGroundColour(menu%,item%,colour%)
�� fore%,i%
�&fore%=(menu%?(39+(item%-1)*24))�16
�(i%=((menu%?(39+(item%-1)*24))�16)�16
�/menu%?(39+(item%-1)*24)=fore%+16*colour%+i%
�
:
#� �Wimp_MenuCentre(menu%,item%)
":menu%!(36+(item%-1)*24)=menu%!(36+(item%-1)*24)�(1<<3)
,�
6:
@� �Wimp_MenuClose
Jș "Wimp_CreateMenu",-1
T�
^:
h$� �Wimp_MenuDisable(menu%,item%)
r;menu%!(36+(item%-1)*24)=menu%!(36+(item%-1)*24)�(1<<22)
|�
�:
�'� �Wimp_MenuDottedLine(menu%,item%)
�7menu%!(28+(item%-1)*24)=(menu%!(28+(item%-1)*24))�2
��
�:
�#� �Wimp_MenuEnable(menu%,item%)
�"�Wimp_MenuDisable(menu%,item%)
�;menu%!(36+(item%-1)*24)=menu%!(36+(item%-1)*24)�(1<<22)
��
�:
�5� �Wimp_MenuForegroundColour(menu%,item%,colour%)
�Emenu%?(39+(item%-1)*24)=colour%+16*((menu%?(39+(item%-1)*24))�16)
��
:
)� �Wimp_MenuGlue(menu1%,item%,menu2%)
menu1%!(8+item%*24)=menu2%
&�
0:
:'� �Wimp_MenuItem(menu%,item%,item$)
D,$(menu%+(40+(item%-1)*24))=�item$,12)+�0
N�
X:
b$� �Wimp_MenuMessage(menu%,item%)
l<menu%!(28+(item%-1)*24)=(menu%!(28+(item%-1)*24))�(1<<3)
v�
�:
�"� �Wimp_MenuPopUp(Menu%,x%,y%)
�
� SA%=� �
�menu%=Menu%
�+ș "Wimp_CreateMenu",,menu%,x%-64,y%+20
��
��
�:
�� �Wimp_MenuPopUpBar(x%,y%)
�� n% : n%=0
�+ȕ ((Bar_Menu%!(28+n%*24))�%10000000)=0
�	n%+=1
��
2ș "Wimp_CreateMenu",,Bar_Menu%,x%-64,96+n%*44
menu%=Bar_Menu%
�
 :
*!� �Wimp_MenuTick(menu%,item%)
47menu%!(28+(item%-1)*24)=(menu%!(28+(item%-1)*24))�1
>�
H:
R#� �Wimp_MenuTitle(menu%,title$)
\$menu%=�title$,12)+�0
f�
p:
z=� �Wimp_MenuWrite(menu%,item%,buffer%,val%,BufferLength%)
�7menu%!(28+(item%-1)*24)=(menu%!(28+(item%-1)*24))�4
�8menu%!(36+(item%-1)*24)=menu%!(36+(item%-1)*24)�&100
�#menu%!(40+(item%-1)*24)=buffer%
� menu%!(44+(item%-1)*24)=val%
�)menu%!(48+(item%-1)*24)=BufferLength%
��
�:
�N� ************************************************************************
�:
�%� �Wimp_SelectIcon(window%,icon%)
�wimp%!0=window%
�wimp%!4=icon%
�#wimp%!8=%1000000000000000000000
$wimp%!12=%1000000000000000000000
ș&400CD,,wimp%
�
$:
.'� �Wimp_UnselectIcon(window%,icon%)
8wimp%!0=window%
Bwimp%!4=icon%
L
wimp%!8=0
V$wimp%!12=%1000000000000000000000
`ș&400CD,,wimp%
j�
t:
~� �Wimp_SpritesLoad
�/�Wimp_SpritesPathLoad("<Obey$Dir>.Sprites")
�direct_sprites%=sprites%
��
�:
�&� �Wimp_SpritesPathLoad(pathname$)
�
�S%,T%
�,S%=�"<Obey$Dir>.Sprites":T%=�#S%+16:�#S%
��sprites%T%,spname%12
�!sprites%=T%:sprites%!8=0
�!ș"OS_SpriteOp",&109,sprites%
�+ș"OS_SpriteOp",&10A,sprites%,pathname$
��
:

N� ************************************************************************
:
� �Wimp_FileType(type%)
(Ȏtype%�
2�&FFF:="Text"
<�&FFD:="Data"
F�&FFB:="Basic"
P�&FF9:="Sprite"
Z�&FED:="Palette"
d�&FEC:="Template"
n�&AFF:="Draw"
x�&1000:="Folder"
��&2000:="Application"
��&ACC:="Swapper"
�=�~(type%)
��
�:
�� �Wimp_GetFilePathName
�'=�Wimp_GetStringAtAddress(wimp%+44)
�:
�� �Wimp_FileLoad(pathname$)
��S%,T%,file%
�S%=�pathname$
�T%=�#S%+16
��#S%
�file%T%
"�("LOAD"+pathname$+""+�~file%)

=file%
";
,&� �Wimp_GetStringAtAddress(array%)
6
�s$:s$=""
@<ȕ(?array%<>13)�(?array%<>0):s$+=�(?array%):array%+=1:�:
J=s$
T:
^#� �Wimp_GetFileFromPathname(f$)
hȎ �f$,".") �
r � 0    :=f$
|7  :=�Wimp_GetFileFromPathname(�f$,�(f$)-�f$,".")))
��
�:
�� �Wimp_SendToEdit(file$)
�� n%
�wimp%!4=&6CC01C0C
�wimp%!16=5
�wimp%!36=0
�wimp%!40=&FFF
�$(wimp%+44)=file$+�0
�n%=�file$+45
�,� n%�4 � !wimp%=4+(n%>>2)<<2 � !wimp%=n%
�$ș "Wimp_SendMessage",17,wimp%,0
��
 :
 N� ************************************************************************
 :
 &/� �Wimp_Start(TaskName$,wimp_memory%,icon%)
 0%� wimp% wimp_memory%,icons% icon%
 :)� wimp_memory%<256 � wimp_memory%=256
 Dicon_memory%=icons%+icon%
 Ntask$=TaskName$
 X+indirect_sprites%=1 : direct_sprites%=1
 b�Wimp_SetEventVariables
 l� � �Wimp_Error:�
 v@ș"Wimp_Initialise",200,&4B534154,TaskName$ � version%,task%
 ��
 �:
 �� �Wimp_BASICParameters
 � � com$,param$,I%
 � ș "OS_GetEnv" � com$
 � params$=""
 � I%=�com$," -quit ")
 �5 � I% � params$=�com$,�com$," ",I%+�" -quit ")+1)
 �=params$
 �:
 �� �Wimp_SetEventVariables
 �� pointer_block% 20
 �interface%=�
!.null%=1  :draw%=2 :  pointer_leaving%=1<<4
!1pointer_entering%=1<<5:mouse%=1<<6:drag%=1<<7
!&key%=1<<8:menu%=1<<9:scroll%=1<<10
! @lose_caret%=1<<11:gain_caret%=1<<12:message%=(1<<17)+(1<<18)
!*0recorder%=1<<18:acknowledge%=1<<19:window%=0
!4!sprites%=1:version%=0:task%=0
!>*Bar_Window%=-2:Bar_Icon%=0:Bar_Menu%=0
!H*x_origin%=0:y_origin%=0:SaveWindow%=-3
!R3message_quit%=0:message_save%=2:message_load%=3
!\!mouse_button%=2:save_event%=0
!f top_line%=0 : bottom_line%=0
!p�
!z:
!�� �Wimp_Error
!�
�X$,x%
!�	� � �
!�x%=�
!�X$=�$+"atline"+�(x%�10)
!��ErrorMsg%36
!�EErrorMsg%!0=36:ErrorMsg%!12=0:ErrorMsg%!16=&81080:ErrorMsg%!20=x%
!�$(ErrorMsg%+24)="!RunImage"
!�%ș"Wimp_SendMessage",17,ErrorMsg%
!��Wimp_WindowAlert(task$,X$)
!��Wimp_CloseDown
!��
!�:
"� �Wimp_CloseDown
"#ș"Wimp_CloseDown",task%,"TASK"
"�
"$:
".� �Wimp_Quit
"8finished%=�
"B�
"L:
"V#� �Wimp_ReadVariable(Variable$)
"`�len%,result%,variable%
"j$wimp%=Variable$
"t3ș"OS_ReadVarVal",wimp%,wimp%+255,255,,3�,,len%
"~wimp%?(len%+255)=13
"�=$(wimp%+255)
"�:
"�N� ************************************************************************
"�:
"�� �Wimp_WaitForEvent
"�AABB%=-1
"�� mask%,event%
"�finished%=�
"�gap%=100
"�&ș"OS_ReadMonotonicTime" � oldtime
"��
"�&ș"OS_ReadMonotonicTime" � newtime
#ȕ (newtime - oldtime) > 0
#
oldtime = oldtime + gap%
#�
#� start%=� �
#(	�next
#2l� AABB%<timer%-oldtime% � �Wimp_IconPutText(Timer_Window%,0,�(�(timer%-oldtime%))):AABB%=timer%-oldtime%
#<�
#Fmask%=%111000011001
#P2ș "Wimp_Poll",0,wimp%,oldtime% � event%,wimp%
#Z Ȏ event% �
#d
  �0 :
#n  �1 : �Wimp_PollDrawWindow
#x&  �2 : ș "Wimp_OpenWindow",,wimp%
#�   �3 : �Wimp_PollCloseWindow
#�
  �4 :
#�
  �5 :
#�  �6 : �Wimp_PollMouseClick
#�   �7 : �Wimp_PollSaveMessage
#�  �8 : �Wimp_PollKeyPress
#�#  �9 : �Event_MenuChoice(menu%)
#�
  �10:
#�
  �11:
#�
  �12:
#�   �17,18: �Wimp_PollMessages
#�
  �19:
#� �
$� finished%
$�
$:
$"� �Wimp_PollDrawWindow
$,� more%
$6&ș"Wimp_RedrawWindow",,wimp%�more%
$@window%=wimp%!0
$JAx_origin%=16+wimp%!4-wimp%!20:y_origin%=-16+wimp%!16-wimp%!24
$Tȕmore%
$^0 � interface% � ș"Wimp_BorderWindow",,wimp%
$h- �Event_Draw(window%,x_origin%,y_origin%)
$r' ș"Wimp_GetRectangle",,wimp%�more%
$|�
$��
$�:
$�� �Wimp_PollCloseWindow
$�%  ș "Wimp_GetPointerInfo",,wimp%
$�)  window%=wimp%!12 : buttons%=wimp%!8
$�) �Event_WindowClose(window%,buttons%)
$�2 !wimp%=window% : ș "Wimp_CloseWindow",,wimp%
$��
$�:
$�� �Wimp_PollMouseClick
$�J button%=wimp%!8:window%=wimp%!12:icon%=wimp%!16:x%=wimp%!0:y%=wimp%!4
$� Ȏ button% �
$�"   �2    : �Wimp_PollMenuPopUp
%#   : Ȏ �Event_Save(window%) �
%,               � � : �Wimp_PollMouseSave
%1               � �: �Wimp_PollEventMouseClick
%&              �
%0 �
%:�
%D:
%N� �Wimp_PollMenuPopUp
%X
� SA%=� �
%bmenu%=�Event_Menu(window%)
%l  Ȏ menu%  �
%v   � �:
%�
    :
%�     Ȏ window% �
%�      � -2   : n%=0
%�3        ȕ ((Bar_Menu%!(28+n%*24))�%10000000)=0
%�         n%+=1
%�
        �
%�:        ș "Wimp_CreateMenu",,Bar_Menu%,x%-64,96+n%*89
%�4       : ș"Wimp_CreateMenu",,menu%,x%-64,y%+20
%�
     �
%�  �
%��
%��
%�:
&� �Wimp_PollMouseSave
& Ȏ icon% �
&8  � 0 : � button% � &50 � �Wimp_PollDragBox(window%)
& 8  � 2 : � button% � 5 �  �Wimp_PollSaveFile(window%)
&* �
&4�
&>:
&H� �Wimp_PollEventMouseClick
&R. � interface% � ș"Wimp_BorderIcon",,wimp%
&\3 �Event_MouseClick(window%,icon%,button%,x%,y%)
&f Ȏ  interface% �
&p  � � :
&z(   wimp%!0=x%:wimp%!4=y% : wimp%!8=0
&�(   wimp%!12=window% : wimp%!16=icon%
&�!   ș"Wimp_BorderIcon",,wimp%
&� �
&��
&�:
&�!� �Wimp_PollSaveFile(window%)
&�
�file$
&�@ wimp%!0=window% : wimp%!4=1 : ș "Wimp_GetIconState",,wimp%
&� file$=$(wimp%!28)
&� Ȏ �file$,".") �
&�
  � 0   :
&�� key%=13 �
&�@   $(wimp%+4)="To save, drag the icon to a directory window"
'+   ș "Wimp_ReportError",wimp%,16,task$
'�
'  :
'$1   � key%=13 � �Event_SaveFile(file$,window%)
'. �
'8' � key%=13 � ș"Wimp_CreateMenu",-1
'BU� SA%=� � �Wimp_CloseDown:� remove%=� � �("Backdrop -T <Swapper$Dir>.Data.Blank")
'L�
'V:
'` � �Wimp_PollDragBox(window%)
'j
�x%,y%
't save%=window%
'~ !wimp%=window%
'�# ș"Wimp_GetWindowState",,wimp%
'�- x%=wimp%!4-wimp%!20:y%=wimp%!16-wimp%!24
'� wimp%!4=0
'�! ș"Wimp_GetIconState",,wimp%
'� !wimp%=window%
'� wimp%!4=5
'�, wimp%!8=x%+wimp%!8:wimp%!12=y%+wimp%!12
'�. wimp%!16=x%+wimp%!16:wimp%!20=y%+wimp%!20
'� wimp%!24=0:wimp%!28=0
'�* wimp%!32=&7FFFFFFF:wimp%!36=&7FFFFFFF
'� ș"Wimp_DragBox",,wimp%
'��
(:
(
� �Wimp_PollKeyPress
(1  window%=wimp%!0:icon%=wimp%!4:key%=wimp%!24
(  Ȏ �Event_Save(window%) �
(((   � � : �Wimp_PollSaveFile(window%)
(2/   � �: �Event_KeyPress(window%,icon%,key%)
(<  �
(F�
(P:
(Z� �Wimp_PollSaveMessage
(d�file$,window%,icon%,x%,y%
(n# ș"Wimp_GetPointerInfo",,wimp%
(x: window%=wimp%!12:icon%=wimp%!16:x%=wimp%!0:y%=wimp%!4
(�> wimp%!0=save% : wimp%!4=1 : ș "Wimp_GetIconState",,wimp%
(� file$=$(wimp%!28)
(�+ file$=�Wimp_GetFileFromPathname(file$)
(� wimp%!20=window%
(� wimp%!24=icon%
(� wimp%!28=x%:wimp%!32=y%
(� wimp%!36=length%
(� wimp%!0=64
(� wimp%!12=0
(� wimp%!16=1
(� wimp%!40=&FFF
(� $(wimp%+44)=file$
(�4 ș"Wimp_SendMessage",17,wimp%,wimp%!20,wimp%!24
)�
):
)� �Wimp_PollMessages
)"� file$
),,file$=�Wimp_GetStringAtAddress(wimp%+44)
)6    Ȏ wimp%!16 �
)@     � 0 : finished%=�
)J     � 1 :
)T     � 2 :
)^.�      PROCWimp_IconPutText(save%,1,file$)
)hC      wimp%!0=save% : wimp%!4=1 : ș "Wimp_GetIconState",,wimp%
)r      $(wimp%!28)=file$
)|<      wimp%!0=save% : wimp%!4=1 : wimp%!8=0 : wimp%!12=0
)�'      ș "Wimp_SetIconState",,wimp%
)�0      � PROCWimp_IconCaret(save%,1,LENfile$)
)�8      ș "Wimp_SetCaretPosition",save%,1,,,-1,�file$
)�&      �Event_SaveFile(file$,save%)
)�     � 3
)�G      type$=�Wimp_FileType(wimp%!40) : �Event_LoadFile(file$,type$)
)�� 5
)�"type$=�Wimp_FileType(wimp%!40)
)�#� type$="Swapper" � event%=18 �
)�wimp%!12=wimp%!8
)�+ș"XWimp_SendMessage",17,wimp%,wimp%!20
)�file$=�Wimp_GetFilePathName
)� �Event_LoadFile(file$,type$)
*�
*	    �
*�
*&:
*0&� �Wimp_GetStringAtAddress(array%)
*:
�s$:s$=""
*D<ȕ(?array%<>13)�(?array%<>0):s$+=�(?array%):array%+=1:�:
*N=s$
*X:
*b#� �Wimp_GetFileFromPathname(f$)
*lȎ �f$,".") �
*v � 0    :=f$
*�7  :=�Wimp_GetFileFromPathname(�f$,�(f$)-�f$,".")))
*��
*�:
*�� �Wimp_FileType(type%)
*�Ȏtype%�
*��&FFF:="Text"
*��&FFD:="Data"
*��&FFB:="Basic"
*��&FF9:="Sprite"
*��&FED:="Palette"
*��&FEC:="Template"
*��&AFF:="Draw"
*��&1000:="Folder"
+�&2000:="Application"
+�&ACC:="Swapper"
+=�~(type%)
+ �
+*:
+4� �inputmain
+>
� A=0 � 9
+H(A$=�Wimp_IconText(Main_Window%,A+55)
+R time%(A+((cpa%-1)*10))=�(A$)
+\� A
+f�
+p:
+z� �redrawmain
+�
� A=0 � 9
+�8a$=�Wimp_GetFileFromPathname(name$(A+((cpa%-1)*10)))
+�+�Wimp_IconPutText(Main_Window%,A+15,a$)
+�� A
+�2�Wimp_SetIconSprite(Main_Window%,select,";R1")
+�� ((cur%-1) � 10)+1=cpa% �
+�2�Wimp_SetIconSprite(Main_Window%,select,";R2")
+��
+�
� A=0 � 9
+�B�Wimp_IconPutText(Main_Window%,A+55,�(time%(A+((cpa%-1)*10))))
+�� A
+�a$=�(time%((cpa%-1)*10))
+�*�Wimp_IconCaret(Main_Window%,55,�(a$))
,�updateradio
,.�Wimp_IconPutText(Main_Window%,70,�(cpa%))
,�
,$:
,.� �next
,8
,B&ș "OS_ReadMonotonicTime" � timer%
,Ltimer%=timer%/100
,VI� �(time%(cur%-1))=timer%-oldtime% � timer%-oldtime%>�(time%(cur%)) �
,`
,j� ((cur%-1) � 10)+1=cpa% �
,t2�Wimp_SetIconSprite(Main_Window%,select,";R1")
,~�
,�� cur%<tot% �
,�cur%+=1
,�
select+=1
,�� select>14 � select=5
,��
,�
cur%=1
,�select=5
,��
,�� ((cur%-1) � 10)+1=cpa% �
,�2�Wimp_SetIconSprite(Main_Window%,select,";R2")
,��
,��backupdate
-�resettime
-
/a$=�Wimp_GetFileFromPathname(name$(cur%-1))
-)�Wimp_IconPutText(Timer_Window%,3,a$)
-�
-(�
-2:
-<� �resettime
-FAABB%=-1
-P/a$=�Wimp_GetFileFromPathname(name$(cur%-1))
-Z)�Wimp_IconPutText(Timer_Window%,3,a$)
-d.�Wimp_IconPutText(Timer_Window%,0,"Reset")
-noldtime%=timer%
-x�
-�:
-�� �backupdate
-�� �
-�� � � �error
-�X%=�(name$(cur%-1))
-��#X%
-�
� X%<>0 �
-�7� type%(cur%-1)=1 � �("Backdrop -C "+name$(cur%-1))
-�7� type%(cur%-1)=2 � �("Backdrop -T "+name$(cur%-1))
-�7� type%(cur%-1)=3 � �("Backdrop -S "+name$(cur%-1))
-��
-�k�Wimp_WindowAlert("!Swapper","File "+name$(cur%-1)+" does not exist. This file will not be displayed.")
-��
.�
.:
.� �updateradio
."
� A=0 � 9
.,l� type%(A+((cpa%-1)*10))=1 � �Wimp_SelectIcon(Main_Window%,A+25) � �Wimp_UnselectIcon(Main_Window%,A+25)
.6l� type%(A+((cpa%-1)*10))=2 � �Wimp_SelectIcon(Main_Window%,A+35) � �Wimp_UnselectIcon(Main_Window%,A+35)
.@l� type%(A+((cpa%-1)*10))=3 � �Wimp_SelectIcon(Main_Window%,A+45) � �Wimp_UnselectIcon(Main_Window%,A+45)
.J� A
.T�
.^:
.h� �resetdata
.r$�Wimp_WindowClose(Timer_Window%)
.|car%=55
.�	pa%=1
.�
cpa%=1
.�
cur%=1
.�name$()=""
.�
type%()=1
.�time%()=10
.�select=5
.�
tot%=0
.�start%=�
.�timer%=0
.�oldtime%=-1
.�#�Wimp_MenuDisable(Main_Menu%,1)
.�#�Wimp_MenuDisable(Main_Menu%,3)
/#�Wimp_MenuDisable(Main_Menu%,4)
/[�Wimp_IconPutText(Main_Window%,72,"Start"):�Wimp_IconPutText(Timer_Window%,0,"Stopped")
/�
/&:
/0� �nacheck(A$)
/:!� �A$,"Storage")<>0 � =� � =�
/D:
/N� �error
/X� �=67785 � �=67795 �
/bW� �=67785 � �Wimp_WindowErrorBox("!Swapper","Please write enable the disk"):� #X%:�
/lJ� �=67795 � �Wimp_WindowErrorBox("!Swapper","Please insert a disk."):�
/v�
/�'�Wimp_WindowErrorBox("!Swapper",�$)
/�
DOSAVE%=�
/��
/��
/�:
/�� �mousebox(w%)
/�wimp%!0=w%
/�$ș"Wimp_GetWindowOutline",,wimp%
/�Cȗ ȓ wimp%!4+2,wimp%!8+2,wimp%!12-wimp%!4-4,wimp%!16-wimp%!8-4
/��
/�:
/�� �unbox
/�+ș "OS_ReadModeVariable",-1,11 � ,,xpic
0+ș "OS_ReadModeVariable",-1,12 � ,,ypic
0+ș "OS_ReadModeVariable",-1,4 � ,,xfact
0+ș "OS_ReadModeVariable",-1,5 � ,,yfact
0 %ȗ ȓ 0,0,xpic<<xfact,ypic<<yfact
0*�
�

00000000  0d 00 0a 0c 4f 70 53 79  73 25 3d 30 0d 00 14 23  |....OpSys%=0...#|
00000010  c8 99 20 22 4f 53 5f 42  79 74 65 22 2c 31 32 39  |.. "OS_Byte",129|
00000020  2c 30 2c 26 46 46 20 b8  20 4f 70 53 79 73 25 0d  |,0,&FF . OpSys%.|
00000030  00 1e 4b e7 20 4f 70 53  79 73 25 3d 26 41 31 20  |..K. OpSys%=&A1 |
00000040  8c 20 ff 22 45 52 52 4f  52 20 53 77 61 70 70 65  |. ."ERROR Swappe|
00000050  72 20 77 69 6c 6c 20 6e  6f 74 20 77 6f 72 6b 20  |r will not work |
00000060  77 69 74 68 20 52 49 53  43 20 4f 53 20 32 2e 20  |with RISC OS 2. |
00000070  53 6f 72 72 79 21 21 22  3a e0 0d 00 28 19 c8 99  |Sorry!!":...(...|
00000080  20 22 4f 53 5f 47 65 74  45 6e 76 22 20 b8 20 65  | "OS_GetEnv" . e|
00000090  6e 76 24 0d 00 32 18 e7  20 a7 65 6e 76 24 2c 22  |nv$..2.. .env$,"|
000000a0  20 2d 71 75 69 74 20 22  29 20 8c 0d 00 3c 32 66  | -quit ") ...<2f|
000000b0  69 6c 65 6c 6f 61 64 24  3d c1 65 6e 76 24 2c a7  |ileload$=.env$,.|
000000c0  65 6e 76 24 2c bd 28 33  34 29 2c a7 65 6e 76 24  |env$,.(34),.env$|
000000d0  2c bd 28 33 34 29 29 2b  31 29 2b 31 29 0d 00 46  |,.(34))+1)+1)..F|
000000e0  05 cd 0d 00 50 3f 20 20  20 20 20 20 20 20 20 20  |....P?          |
000000f0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000100  20 f2 57 69 6d 70 5f 53  74 61 72 74 28 22 53 77  | .Wimp_Start("Sw|
00000110  61 70 70 65 72 22 2c 36  35 37 36 2c 32 38 34 39  |apper",6576,2849|
00000120  29 0d 00 5a 33 20 20 20  20 20 20 20 20 20 20 20  |)..Z3           |
00000130  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000140  f2 55 73 65 72 5f 53 65  74 49 6e 69 74 69 61 6c  |.User_SetInitial|
00000150  44 61 74 61 0d 00 64 2e  20 20 20 20 20 20 20 20  |Data..d.        |
00000160  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000170  20 20 20 f2 43 72 65 61  74 65 5f 57 69 6e 64 6f  |   .Create_Windo|
00000180  77 73 0d 00 6e 2c 20 20  20 20 20 20 20 20 20 20  |ws..n,          |
00000190  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000001a0  20 f2 43 72 65 61 74 65  5f 4d 65 6e 75 73 0d 00  | .Create_Menus..|
000001b0  78 16 e7 20 66 69 6c 65  6c 6f 61 64 24 3c 3e 22  |x.. fileload$<>"|
000001c0  20 22 20 8c 0d 00 82 28  f2 45 76 65 6e 74 5f 4c  | " ....(.Event_L|
000001d0  6f 61 64 46 69 6c 65 28  66 69 6c 65 6c 6f 61 64  |oadFile(fileload|
000001e0  24 2c 22 53 77 61 70 70  65 72 22 29 0d 00 8c 05  |$,"Swapper")....|
000001f0  cd 0d 00 96 31 20 20 20  20 20 20 20 20 20 20 20  |....1           |
00000200  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000210  f2 57 69 6d 70 5f 57 61  69 74 46 6f 72 45 76 65  |.Wimp_WaitForEve|
00000220  6e 74 0d 00 a0 2e 20 20  20 20 20 20 20 20 20 20  |nt....          |
00000230  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000240  20 f2 57 69 6d 70 5f 43  6c 6f 73 65 44 6f 77 6e  | .Wimp_CloseDown|
00000250  0d 00 aa 20 20 20 20 20  20 20 20 20 20 20 20 20  |...             |
00000260  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 e0  |               .|
00000270  0d 00 b4 0c 20 20 20 20  20 20 20 3a 0d 00 be 21  |....       :...!|
00000280  20 20 20 20 20 20 20 dd  20 f2 55 73 65 72 5f 53  |       . .User_S|
00000290  65 74 49 6e 69 74 69 61  6c 44 61 74 61 0d 00 c8  |etInitialData...|
000002a0  0d 44 4f 53 41 56 45 25  3d b9 0d 00 d2 0b 6f 70  |.DOSAVE%=.....op|
000002b0  65 6e 25 3d a3 0d 00 dc  17 20 20 20 20 20 20 20  |en%=.....       |
000002c0  69 6e 74 65 72 66 61 63  65 25 3d a3 0d 00 e6 26  |interface%=....&|
000002d0  58 25 3d 8e 28 22 3c 53  77 61 70 70 65 72 24 44  |X%=.("<Swapper$D|
000002e0  69 72 3e 2e 44 61 74 61  2e 4f 70 74 69 6f 6e 73  |ir>.Data.Options|
000002f0  22 29 0d 00 f0 11 e8 20  23 58 25 2c 72 65 6d 6f  |")..... #X%,remo|
00000300  76 65 25 0d 00 fa 09 d9  20 23 58 25 0d 01 04 09  |ve%..... #X%....|
00000310  70 61 25 3d 31 0d 01 0e  0a 63 70 61 25 3d 31 0d  |pa%=1....cpa%=1.|
00000320  01 18 0f de 20 6e 61 6d  65 24 28 39 39 29 0d 01  |.... name$(99)..|
00000330  22 0f de 20 74 79 70 65  25 28 39 39 29 0d 01 2c  |".. type%(99)..,|
00000340  0f de 20 74 69 6d 65 25  28 39 39 29 0d 01 36 0a  |.. time%(99)..6.|
00000350  63 75 72 25 3d 31 0d 01  40 0e 6e 61 6d 65 24 28  |cur%=1..@.name$(|
00000360  29 3d 22 22 0d 01 4a 0d  74 79 70 65 25 28 29 3d  |)=""..J.type%()=|
00000370  31 0d 01 54 0e 74 69 6d  65 25 28 29 3d 31 30 0d  |1..T.time%()=10.|
00000380  01 5e 0c 73 65 6c 65 63  74 3d 35 0d 01 68 0a 74  |.^.select=5..h.t|
00000390  6f 74 25 3d 30 0d 01 72  0c 73 74 61 72 74 25 3d  |ot%=0..r.start%=|
000003a0  a3 0d 01 7c 0c 74 69 6d  65 72 25 3d 30 0d 01 86  |...|.timer%=0...|
000003b0  0f 6f 6c 64 74 69 6d 65  25 3d 2d 31 0d 01 90 0a  |.oldtime%=-1....|
000003c0  64 65 6c 25 3d 30 0d 01  9a 0c 73 65 6c 64 65 6c  |del%=0....seldel|
000003d0  3d 30 0d 01 a4 09 53 41  25 3d a3 0d 01 ae 0d 55  |=0....SA%=.....U|
000003e0  50 44 41 54 45 25 3d a3  0d 01 b8 09 43 44 25 3d  |PDATE%=.....CD%=|
000003f0  a3 0d 01 c2 0c 20 20 20  20 20 20 20 e1 0d 01 cc  |.....       ....|
00000400  0c 20 20 20 20 20 20 20  3a 0d 01 d6 1c 20 20 20  |.       :....   |
00000410  20 20 20 20 dd 20 f2 43  72 65 61 74 65 5f 57 69  |    . .Create_Wi|
00000420  6e 64 6f 77 73 0d 01 e0  1e 20 20 20 20 20 20 20  |ndows....       |
00000430  20 20 f2 57 69 6d 70 5f  53 70 72 69 74 65 73 4c  |  .Wimp_SpritesL|
00000440  6f 61 64 0d 01 ea 3b 20  20 20 20 20 20 20 20 20  |oad...;         |
00000450  20 20 20 20 20 20 20 20  20 49 6e 66 6f 5f 57 69  |         Info_Wi|
00000460  6e 64 6f 77 25 3d a4 57  69 6d 70 5f 57 69 6e 64  |ndow%=.Wimp_Wind|
00000470  6f 77 4c 6f 61 64 28 22  49 6e 66 6f 22 29 0d 01  |owLoad("Info")..|
00000480  f4 3b 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |.;              |
00000490  20 20 20 20 4d 61 69 6e  5f 57 69 6e 64 6f 77 25  |    Main_Window%|
000004a0  3d a4 57 69 6d 70 5f 57  69 6e 64 6f 77 4c 6f 61  |=.Wimp_WindowLoa|
000004b0  64 28 22 4d 61 69 6e 22  29 0d 01 fe 3b 20 20 20  |d("Main")...;   |
000004c0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 53  |               S|
000004d0  61 76 65 5f 57 69 6e 64  6f 77 25 3d a4 57 69 6d  |ave_Window%=.Wim|
000004e0  70 5f 57 69 6e 64 6f 77  4c 6f 61 64 28 22 53 61  |p_WindowLoad("Sa|
000004f0  76 65 22 29 0d 02 08 3c  20 20 20 20 20 20 20 20  |ve")...<        |
00000500  20 20 20 20 20 20 20 20  20 54 69 6d 65 72 5f 57  |         Timer_W|
00000510  69 6e 64 6f 77 25 3d a4  57 69 6d 70 5f 57 69 6e  |indow%=.Wimp_Win|
00000520  64 6f 77 4c 6f 61 64 28  22 54 69 6d 65 72 22 29  |dowLoad("Timer")|
00000530  0d 02 12 3e 20 20 20 20  20 20 20 20 20 20 20 20  |...>            |
00000540  20 20 20 4f 70 74 69 6f  6e 73 5f 57 69 6e 64 6f  |   Options_Windo|
00000550  77 25 3d a4 57 69 6d 70  5f 57 69 6e 64 6f 77 4c  |w%=.Wimp_WindowL|
00000560  6f 61 64 28 22 4f 70 74  69 6f 6e 73 22 29 0d 02  |oad("Options")..|
00000570  1c 3b 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |.;              |
00000580  20 20 43 6c 6f 73 65 5f  57 69 6e 64 6f 77 25 3d  |  Close_Window%=|
00000590  a4 57 69 6d 70 5f 57 69  6e 64 6f 77 4c 6f 61 64  |.Wimp_WindowLoad|
000005a0  28 22 43 6c 6f 73 65 22  29 0d 02 26 2e f2 57 69  |("Close")..&..Wi|
000005b0  6d 70 5f 49 63 6f 6e 50  75 74 54 65 78 74 28 4d  |mp_IconPutText(M|
000005c0  61 69 6e 5f 57 69 6e 64  6f 77 25 2c 37 30 2c c3  |ain_Window%,70,.|
000005d0  28 63 70 61 25 29 29 0d  02 30 0f e3 20 41 3d 35  |(cpa%))..0.. A=5|
000005e0  35 20 b8 20 36 34 0d 02  3a 31 f2 57 69 6d 70 5f  |5 . 64..:1.Wimp_|
000005f0  49 63 6f 6e 50 75 74 54  65 78 74 28 4d 61 69 6e  |IconPutText(Main|
00000600  5f 57 69 6e 64 6f 77 25  2c 41 2c c3 28 74 69 6d  |_Window%,A,.(tim|
00000610  65 25 28 30 29 29 29 0d  02 44 07 ed 20 41 0d 02  |e%(0)))..D.. A..|
00000620  4e 32 f2 57 69 6d 70 5f  53 65 74 49 63 6f 6e 53  |N2.Wimp_SetIconS|
00000630  70 72 69 74 65 28 4d 61  69 6e 5f 57 69 6e 64 6f  |prite(Main_Windo|
00000640  77 25 2c 73 65 6c 65 63  74 2c 22 3b 52 32 22 29  |w%,select,";R2")|
00000650  0d 02 58 30 f2 57 69 6d  70 5f 49 63 6f 6e 50 75  |..X0.Wimp_IconPu|
00000660  74 54 65 78 74 28 54 69  6d 65 72 5f 57 69 6e 64  |tText(Timer_Wind|
00000670  6f 77 25 2c 30 2c 22 53  74 6f 70 70 65 64 22 29  |ow%,0,"Stopped")|
00000680  0d 02 62 35 e7 20 72 65  6d 6f 76 65 25 3d b9 20  |..b5. remove%=. |
00000690  8c 20 f2 57 69 6d 70 5f  53 65 6c 65 63 74 49 63  |. .Wimp_SelectIc|
000006a0  6f 6e 28 4f 70 74 69 6f  6e 73 5f 57 69 6e 64 6f  |on(Options_Windo|
000006b0  77 25 2c 30 29 0d 02 6c  2e 20 20 20 20 20 20 20  |w%,0)..l.       |
000006c0  42 61 72 5f 49 63 6f 6e  25 3d a4 57 69 6d 70 5f  |Bar_Icon%=.Wimp_|
000006d0  49 63 6f 6e 42 61 72 28  22 21 53 77 61 70 70 65  |IconBar("!Swappe|
000006e0  72 22 29 0d 02 76 0c 20  20 20 20 20 20 20 e1 0d  |r")..v.       ..|
000006f0  02 80 0d 20 20 20 20 20  20 20 20 3a 0d 02 8a 22  |...        :..."|
00000700  20 20 20 20 20 20 20 20  dd 20 a4 45 76 65 6e 74  |        . .Event|
00000710  5f 53 61 76 65 28 77 69  6e 64 6f 77 25 29 0d 02  |_Save(window%)..|
00000720  94 1a 20 20 20 20 20 20  20 20 20 20 c8 8e 20 77  |..          .. w|
00000730  69 6e 64 6f 77 25 20 ca  0d 02 9e 22 20 20 20 20  |indow% ...."    |
00000740  20 20 20 20 20 20 20 20  c9 20 53 61 76 65 5f 57  |        . Save_W|
00000750  69 6e 64 6f 77 25 20 3a  3d b9 0d 02 a8 15 20 20  |indow% :=.....  |
00000760  20 20 20 20 20 20 20 20  20 20 7f 20 3a 3d a3 0d  |          . :=..|
00000770  02 b2 0f 20 20 20 20 20  20 20 20 20 20 cb 0d 02  |...          ...|
00000780  bc 0d 20 20 20 20 20 20  20 20 3a 0d 02 c6 2e 20  |..        :.... |
00000790  20 20 20 20 20 20 20 dd  20 a4 45 76 65 6e 74 5f  |       . .Event_|
000007a0  53 70 72 69 74 65 73 28  77 69 6e 64 6f 77 25 29  |Sprites(window%)|
000007b0  3d 73 70 72 69 74 65 73  25 0d 02 d0 0c 20 20 20  |=sprites%....   |
000007c0  20 20 20 20 3a 0d 02 da  1a 20 20 20 20 20 20 20  |    :....       |
000007d0  dd 20 f2 43 72 65 61 74  65 5f 4d 65 6e 75 73 0d  |. .Create_Menus.|
000007e0  02 e4 33 20 20 20 20 20  20 20 20 20 6d 65 6e 75  |..3         menu|
000007f0  24 3d 22 53 77 61 70 70  65 72 5c 49 6e 66 6f 3e  |$="Swapper\Info>|
00000800  49 6e 66 6f 5f 57 69 6e  64 6f 77 25 5c 51 75 69  |Info_Window%\Qui|
00000810  74 22 0d 02 ee 2e 20 20  20 20 20 20 20 20 20 42  |t"....         B|
00000820  61 72 5f 4d 65 6e 75 25  3d a4 57 69 6d 70 5f 4d  |ar_Menu%=.Wimp_M|
00000830  65 6e 75 43 72 65 61 74  65 28 6d 65 6e 75 24 29  |enuCreate(menu$)|
00000840  0d 02 f8 66 20 20 20 20  20 20 20 20 20 4d 61 69  |...f         Mai|
00000850  6e 5f 4d 65 6e 75 25 3d  a4 57 69 6d 70 5f 4d 65  |n_Menu%=.Wimp_Me|
00000860  6e 75 43 72 65 61 74 65  28 22 4d 61 69 6e 5c 53  |nuCreate("Main\S|
00000870  61 76 65 3e 53 61 76 65  5f 57 69 6e 64 6f 77 25  |ave>Save_Window%|
00000880  5c 4f 70 74 69 6f 6e 73  3e 4f 70 74 69 6f 6e 73  |\Options>Options|
00000890  5f 57 69 6e 64 6f 77 25  5c 54 69 6d 65 72 5c 43  |_Window%\Timer\C|
000008a0  6c 65 61 72 22 29 0d 03  02 2c 20 20 20 20 20 20  |lear")...,      |
000008b0  20 20 20 f2 57 69 6d 70  5f 4d 65 6e 75 44 69 73  |   .Wimp_MenuDis|
000008c0  61 62 6c 65 28 4d 61 69  6e 5f 4d 65 6e 75 25 2c  |able(Main_Menu%,|
000008d0  31 29 0d 03 0c 2c 20 20  20 20 20 20 20 20 20 f2  |1)...,         .|
000008e0  57 69 6d 70 5f 4d 65 6e  75 44 69 73 61 62 6c 65  |Wimp_MenuDisable|
000008f0  28 4d 61 69 6e 5f 4d 65  6e 75 25 2c 33 29 0d 03  |(Main_Menu%,3)..|
00000900  16 2c 20 20 20 20 20 20  20 20 20 f2 57 69 6d 70  |.,         .Wimp|
00000910  5f 4d 65 6e 75 44 69 73  61 62 6c 65 28 4d 61 69  |_MenuDisable(Mai|
00000920  6e 5f 4d 65 6e 75 25 2c  34 29 0d 03 20 2f 20 20  |n_Menu%,4).. /  |
00000930  20 20 20 20 20 20 20 f2  57 69 6d 70 5f 4d 65 6e  |       .Wimp_Men|
00000940  75 44 6f 74 74 65 64 4c  69 6e 65 28 4d 61 69 6e  |uDottedLine(Main|
00000950  5f 4d 65 6e 75 25 2c 33  29 0d 03 2a 0c 20 20 20  |_Menu%,3)..*.   |
00000960  20 20 20 20 e1 0d 03 34  0d 20 20 20 20 20 20 20  |    ...4.       |
00000970  20 3a 0d 03 3e 22 20 20  20 20 20 20 20 20 dd 20  | :..>"        . |
00000980  a4 45 76 65 6e 74 5f 4d  65 6e 75 28 77 69 6e 64  |.Event_Menu(wind|
00000990  6f 77 25 29 0d 03 48 18  20 20 20 20 20 20 20 20  |ow%)..H.        |
000009a0  c8 8e 20 77 69 6e 64 6f  77 25 20 ca 0d 03 52 2e  |.. window% ...R.|
000009b0  20 20 20 20 20 20 20 20  20 c9 20 42 61 72 5f 57  |         . Bar_W|
000009c0  69 6e 64 6f 77 25 20 20  20 20 20 20 20 20 3a 20  |indow%        : |
000009d0  3d 42 61 72 5f 4d 65 6e  75 25 0d 03 5c 2f 20 20  |=Bar_Menu%..\/  |
000009e0  20 20 20 20 20 20 20 c9  20 4d 61 69 6e 5f 57 69  |       . Main_Wi|
000009f0  6e 64 6f 77 25 20 20 20  20 20 20 20 3a 20 3d 4d  |ndow%       : =M|
00000a00  61 69 6e 5f 4d 65 6e 75  25 0d 03 66 21 20 20 20  |ain_Menu%..f!   |
00000a10  20 20 20 20 20 20 7f 20  20 20 20 20 20 20 20 20  |      .         |
00000a20  20 20 20 20 20 20 3a 20  3d a3 0d 03 70 0d 20 20  |      : =...p.  |
00000a30  20 20 20 20 20 20 cb 0d  03 7a 0c 20 20 20 20 20  |      ...z.     |
00000a40  20 20 3a 0d 03 84 31 20  20 20 20 20 20 20 dd 20  |  :...1       . |
00000a50  f2 45 76 65 6e 74 5f 57  69 6e 64 6f 77 43 6c 6f  |.Event_WindowClo|
00000a60  73 65 28 77 69 6e 64 6f  77 25 2c 62 75 74 74 6f  |se(window%,butto|
00000a70  6e 73 25 29 0d 03 8e 17  20 20 20 20 20 20 20 c8  |ns%)....       .|
00000a80  8e 20 77 69 6e 64 6f 77  25 20 ca 0d 03 98 23 20  |. window% ....# |
00000a90  20 20 20 20 20 20 c9 20  4d 61 69 6e 5f 57 69 6e  |      . Main_Win|
00000aa0  64 6f 77 25 20 3a 20 6f  70 65 6e 25 3d a3 0d 03  |dow% : open%=...|
00000ab0  a2 0c 20 20 20 20 20 20  20 cb 0d 03 ac 0c 20 20  |..       .....  |
00000ac0  20 20 20 20 20 e1 0d 03  b6 0c 20 20 20 20 20 20  |     .....      |
00000ad0  20 3a 0d 03 c0 35 20 20  20 20 20 20 20 dd 20 f2  | :...5       . .|
00000ae0  45 76 65 6e 74 5f 44 72  61 77 28 77 69 6e 64 6f  |Event_Draw(windo|
00000af0  77 25 2c 78 5f 6f 72 69  67 69 6e 25 2c 79 5f 6f  |w%,x_origin%,y_o|
00000b00  72 69 67 69 6e 25 29 0d  03 ca 17 20 20 20 20 20  |rigin%)....     |
00000b10  20 20 c8 8e 20 77 69 6e  64 6f 77 25 20 ca 0d 03  |  .. window% ...|
00000b20  d4 38 20 20 20 20 20 20  20 20 c9 20 49 6e 66 6f  |.8        . Info|
00000b30  5f 57 69 6e 64 6f 77 25  20 20 20 20 20 20 20 20  |_Window%        |
00000b40  3a 20 f2 55 73 65 72 5f  44 72 61 77 49 6e 66 6f  |: .User_DrawInfo|
00000b50  57 69 6e 64 6f 77 0d 03  de 38 20 20 20 20 20 20  |Window...8      |
00000b60  20 20 c9 20 53 61 76 65  5f 57 69 6e 64 6f 77 25  |  . Save_Window%|
00000b70  20 20 20 20 20 20 20 20  3a 20 f2 55 73 65 72 5f  |        : .User_|
00000b80  44 72 61 77 53 61 76 65  57 69 6e 64 6f 77 0d 03  |DrawSaveWindow..|
00000b90  e8 0c 20 20 20 20 20 20  20 cb 0d 03 f2 0c 20 20  |..       .....  |
00000ba0  20 20 20 20 20 e1 0d 03  fc 12 20 20 20 20 20 20  |     .....      |
00000bb0  20 20 20 20 20 20 20 3a  0d 04 06 27 20 20 20 20  |       :...'    |
00000bc0  20 20 20 20 20 20 20 20  20 dd 20 f2 55 73 65 72  |         . .User|
00000bd0  5f 44 72 61 77 49 6e 66  6f 57 69 6e 64 6f 77 0d  |_DrawInfoWindow.|
00000be0  04 10 12 20 20 20 20 20  20 20 20 20 20 20 20 20  |...             |
00000bf0  e1 0d 04 1a 12 20 20 20  20 20 20 20 20 20 20 20  |.....           |
00000c00  20 20 3a 0d 04 24 27 20  20 20 20 20 20 20 20 20  |  :..$'         |
00000c10  20 20 20 20 dd 20 f2 55  73 65 72 5f 44 72 61 77  |    . .User_Draw|
00000c20  53 61 76 65 57 69 6e 64  6f 77 0d 04 2e 12 20 20  |SaveWindow....  |
00000c30  20 20 20 20 20 20 20 20  20 20 20 e1 0d 04 38 0c  |           ...8.|
00000c40  20 20 20 20 20 20 20 3a  0d 04 42 3b 20 20 20 20  |       :..B;    |
00000c50  20 20 20 dd 20 f2 45 76  65 6e 74 5f 4d 6f 75 73  |   . .Event_Mous|
00000c60  65 43 6c 69 63 6b 28 77  69 6e 64 6f 77 25 2c 69  |eClick(window%,i|
00000c70  63 6f 6e 25 2c 62 75 74  74 6f 6e 25 2c 78 25 2c  |con%,button%,x%,|
00000c80  79 25 29 0d 04 4c 17 20  20 20 20 20 20 20 c8 8e  |y%)..L.       ..|
00000c90  20 77 69 6e 64 6f 77 25  20 ca 0d 04 56 31 20 20  | window% ...V1  |
00000ca0  20 20 20 20 20 20 c9 20  42 61 72 5f 57 69 6e 64  |      . Bar_Wind|
00000cb0  6f 77 25 20 20 20 20 20  20 20 20 3a 20 f2 55 73  |ow%        : .Us|
00000cc0  65 72 5f 4d 6f 75 73 65  42 61 72 0d 04 60 42 20  |er_MouseBar..`B |
00000cd0  20 20 20 20 20 20 20 c9  20 49 6e 66 6f 5f 57 69  |       . Info_Wi|
00000ce0  6e 64 6f 77 25 20 20 20  20 20 20 20 3a 20 f2 55  |ndow%       : .U|
00000cf0  73 65 72 5f 4d 6f 75 73  65 49 6e 66 6f 28 20 62  |ser_MouseInfo( b|
00000d00  75 74 74 6f 6e 25 2c 69  63 6f 6e 25 29 0d 04 6a  |utton%,icon%)..j|
00000d10  42 20 20 20 20 20 20 20  20 c9 20 4d 61 69 6e 5f  |B        . Main_|
00000d20  57 69 6e 64 6f 77 25 20  20 20 20 20 20 20 3a 20  |Window%       : |
00000d30  f2 55 73 65 72 5f 4d 6f  75 73 65 4d 61 69 6e 28  |.User_MouseMain(|
00000d40  20 62 75 74 74 6f 6e 25  2c 69 63 6f 6e 25 29 0d  | button%,icon%).|
00000d50  04 74 43 20 20 20 20 20  20 20 20 c9 20 54 69 6d  |.tC        . Tim|
00000d60  65 72 5f 57 69 6e 64 6f  77 25 20 20 20 20 20 20  |er_Window%      |
00000d70  3a 20 f2 55 73 65 72 5f  4d 6f 75 73 65 54 69 6d  |: .User_MouseTim|
00000d80  65 72 28 20 62 75 74 74  6f 6e 25 2c 69 63 6f 6e  |er( button%,icon|
00000d90  25 29 0d 04 7e 45 20 20  20 20 20 20 20 20 c9 20  |%)..~E        . |
00000da0  4f 70 74 69 6f 6e 73 5f  57 69 6e 64 6f 77 25 20  |Options_Window% |
00000db0  20 20 20 3a 20 f2 55 73  65 72 5f 4d 6f 75 73 65  |   : .User_Mouse|
00000dc0  4f 70 74 69 6f 6e 73 28  20 62 75 74 74 6f 6e 25  |Options( button%|
00000dd0  2c 69 63 6f 6e 25 29 0d  04 88 43 20 20 20 20 20  |,icon%)...C     |
00000de0  20 20 20 c9 20 43 6c 6f  73 65 5f 57 69 6e 64 6f  |   . Close_Windo|
00000df0  77 25 20 20 20 20 20 20  3a 20 f2 55 73 65 72 5f  |w%      : .User_|
00000e00  4d 6f 75 73 65 43 6c 6f  73 65 28 20 62 75 74 74  |MouseClose( butt|
00000e10  6f 6e 25 2c 69 63 6f 6e  25 29 0d 04 92 0c 20 20  |on%,icon%)....  |
00000e20  20 20 20 20 20 cb 0d 04  9c 0c 20 20 20 20 20 20  |     .....      |
00000e30  20 e1 0d 04 a6 0e 20 20  20 20 20 20 20 20 20 3a  | .....         :|
00000e40  0d 04 b0 2f 20 20 20 20  20 20 20 20 20 dd 20 f2  |.../         . .|
00000e50  55 73 65 72 5f 4d 6f 75  73 65 43 6c 6f 73 65 28  |User_MouseClose(|
00000e60  20 62 75 74 74 6f 6e 25  2c 69 63 6f 6e 25 29 0d  | button%,icon%).|
00000e70  04 ba 18 20 20 20 20 20  20 20 20 20 e7 20 69 63  |...         . ic|
00000e80  6f 6e 25 3d 31 20 8c 0d  04 c4 09 53 41 25 3d b9  |on%=1 .....SA%=.|
00000e90  0d 04 ce 0a f2 75 6e 62  6f 78 0d 04 d8 24 f2 57  |.....unbox...$.W|
00000ea0  69 6d 70 5f 57 69 6e 64  6f 77 43 6c 6f 73 65 28  |imp_WindowClose(|
00000eb0  43 6c 6f 73 65 5f 57 69  6e 64 6f 77 25 29 0d 04  |Close_Window%)..|
00000ec0  e2 0d 55 50 44 41 54 45  25 3d a3 0d 04 ec 28 f2  |..UPDATE%=....(.|
00000ed0  57 69 6d 70 5f 57 69 6e  64 6f 77 42 72 69 6e 67  |Wimp_WindowBring|
00000ee0  54 6f 54 6f 70 28 53 61  76 65 5f 57 69 6e 64 6f  |ToTop(Save_Windo|
00000ef0  77 25 29 0d 04 f6 25 41  24 3d a4 57 69 6d 70 5f  |w%)...%A$=.Wimp_|
00000f00  49 63 6f 6e 54 65 78 74  28 53 61 76 65 5f 57 69  |IconText(Save_Wi|
00000f10  6e 64 6f 77 25 2c 31 29  0d 05 00 29 f2 57 69 6d  |ndow%,1)...).Wim|
00000f20  70 5f 49 63 6f 6e 43 61  72 65 74 28 53 61 76 65  |p_IconCaret(Save|
00000f30  5f 57 69 6e 64 6f 77 25  2c 31 2c a9 28 41 24 29  |_Window%,1,.(A$)|
00000f40  29 0d 05 0a 05 cd 0d 05  14 18 20 20 20 20 20 20  |).........      |
00000f50  20 20 20 e7 20 69 63 6f  6e 25 3d 32 20 8c 0d 05  |   . icon%=2 ...|
00000f60  1e 0a f2 75 6e 62 6f 78  0d 05 28 0d 55 50 44 41  |...unbox..(.UPDA|
00000f70  54 45 25 3d a3 0d 05 32  24 f2 57 69 6d 70 5f 57  |TE%=...2$.Wimp_W|
00000f80  69 6e 64 6f 77 43 6c 6f  73 65 28 43 6c 6f 73 65  |indowClose(Close|
00000f90  5f 57 69 6e 64 6f 77 25  29 0d 05 3c 09 43 44 25  |_Window%)..<.CD%|
00000fa0  3d b9 0d 05 46 05 cd 0d  05 50 18 20 20 20 20 20  |=...F....P.     |
00000fb0  20 20 20 20 e7 20 69 63  6f 6e 25 3d 33 20 8c 0d  |    . icon%=3 ..|
00000fc0  05 5a 0a f2 75 6e 62 6f  78 0d 05 64 24 f2 57 69  |.Z..unbox..d$.Wi|
00000fd0  6d 70 5f 57 69 6e 64 6f  77 43 6c 6f 73 65 28 43  |mp_WindowClose(C|
00000fe0  6c 6f 73 65 5f 57 69 6e  64 6f 77 25 29 0d 05 6e  |lose_Window%)..n|
00000ff0  05 cd 0d 05 78 1d e7 20  43 44 25 3d b9 20 8c 20  |....x.. CD%=. . |
00001000  f2 57 69 6d 70 5f 43 6c  6f 73 65 44 6f 77 6e 0d  |.Wimp_CloseDown.|
00001010  05 82 05 e1 0d 05 8c 0e  20 20 20 20 20 20 20 20  |........        |
00001020  20 3a 0d 05 96 1d 20 20  20 20 20 20 20 20 20 dd  | :....         .|
00001030  20 f2 55 73 65 72 5f 4d  6f 75 73 65 42 61 72 0d  | .User_MouseBar.|
00001040  05 a0 28 f2 57 69 6d 70  5f 57 69 6e 64 6f 77 42  |..(.Wimp_WindowB|
00001050  72 69 6e 67 54 6f 54 6f  70 28 4d 61 69 6e 5f 57  |ringToTop(Main_W|
00001060  69 6e 64 6f 77 25 29 0d  05 aa 0b 6f 70 65 6e 25  |indow%)....open%|
00001070  3d b9 0d 05 b4 0e 20 20  20 20 20 20 20 20 20 e1  |=.....         .|
00001080  0d 05 be 0e 20 20 20 20  20 20 20 20 20 3a 0d 05  |....         :..|
00001090  c8 2f 20 20 20 20 20 20  20 20 20 dd 20 f2 55 73  |./         . .Us|
000010a0  65 72 5f 4d 6f 75 73 65  54 69 6d 65 72 28 20 62  |er_MouseTimer( b|
000010b0  75 74 74 6f 6e 25 2c 69  63 6f 6e 25 29 0d 05 d2  |utton%,icon%)...|
000010c0  23 20 20 20 20 20 20 20  20 20 e7 20 69 63 6f 6e  |#         . icon|
000010d0  25 3d 31 20 8c 20 f2 72  65 73 65 74 74 69 6d 65  |%=1 . .resettime|
000010e0  0d 05 dc 0e 20 20 20 20  20 20 20 20 20 e1 0d 05  |....         ...|
000010f0  e6 0e 20 20 20 20 20 20  20 20 20 3a 0d 05 f0 31  |..         :...1|
00001100  20 20 20 20 20 20 20 20  20 dd 20 f2 55 73 65 72  |         . .User|
00001110  5f 4d 6f 75 73 65 4f 70  74 69 6f 6e 73 28 20 62  |_MouseOptions( b|
00001120  75 74 74 6f 6e 25 2c 69  63 6f 6e 25 29 0d 05 fa  |utton%,icon%)...|
00001130  18 20 20 20 20 20 20 20  20 20 e7 20 69 63 6f 6e  |.         . icon|
00001140  25 3d 30 20 8c 0d 06 04  1e 20 20 20 20 20 20 20  |%=0 .....       |
00001150  20 20 72 65 6d 6f 76 65  25 3d ac 20 72 65 6d 6f  |  remove%=. remo|
00001160  76 65 25 0d 06 0e 3e 20  20 20 20 20 20 20 20 20  |ve%...>         |
00001170  e7 20 72 65 6d 6f 76 65  25 3d b9 20 8c 20 f2 57  |. remove%=. . .W|
00001180  69 6d 70 5f 53 65 6c 65  63 74 49 63 6f 6e 28 4f  |imp_SelectIcon(O|
00001190  70 74 69 6f 6e 73 5f 57  69 6e 64 6f 77 25 2c 30  |ptions_Window%,0|
000011a0  29 0d 06 18 40 20 20 20  20 20 20 20 20 20 e7 20  |)...@         . |
000011b0  72 65 6d 6f 76 65 25 3d  a3 20 8c 20 f2 57 69 6d  |remove%=. . .Wim|
000011c0  70 5f 55 6e 73 65 6c 65  63 74 49 63 6f 6e 28 4f  |p_UnselectIcon(O|
000011d0  70 74 69 6f 6e 73 5f 57  69 6e 64 6f 77 25 2c 30  |ptions_Window%,0|
000011e0  29 0d 06 22 0e 20 20 20  20 20 20 20 20 20 cd 0d  |)..".         ..|
000011f0  06 2c 18 20 20 20 20 20  20 20 20 20 e7 20 69 63  |.,.         . ic|
00001200  6f 6e 25 3d 31 20 8c 0d  06 36 26 58 25 3d ae 28  |on%=1 ...6&X%=.(|
00001210  22 3c 53 77 61 70 70 65  72 24 44 69 72 3e 2e 44  |"<Swapper$Dir>.D|
00001220  61 74 61 2e 4f 70 74 69  6f 6e 73 22 29 0d 06 40  |ata.Options")..@|
00001230  11 f1 20 23 58 25 2c 72  65 6d 6f 76 65 25 0d 06  |.. #X%,remove%..|
00001240  4a 09 d9 20 23 58 25 0d  06 54 13 f2 57 69 6d 70  |J.. #X%..T..Wimp|
00001250  5f 4d 65 6e 75 43 6c 6f  73 65 0d 06 5e 05 cd 0d  |_MenuClose..^...|
00001260  06 68 0e 20 20 20 20 20  20 20 20 20 e1 0d 06 72  |.h.         ...r|
00001270  0e 20 20 20 20 20 20 20  20 20 3a 0d 06 7c 2e 20  |.         :..|. |
00001280  20 20 20 20 20 20 20 20  dd 20 f2 55 73 65 72 5f  |        . .User_|
00001290  4d 6f 75 73 65 49 6e 66  6f 28 20 62 75 74 74 6f  |MouseInfo( butto|
000012a0  6e 25 2c 69 63 6f 6e 25  29 0d 06 86 0e 20 20 20  |n%,icon%)....   |
000012b0  20 20 20 20 20 20 e1 0d  06 90 0e 20 20 20 20 20  |      .....     |
000012c0  20 20 20 20 3a 0d 06 9a  2e 20 20 20 20 20 20 20  |    :....       |
000012d0  20 20 dd 20 f2 55 73 65  72 5f 4d 6f 75 73 65 4d  |  . .User_MouseM|
000012e0  61 69 6e 28 20 62 75 74  74 6f 6e 25 2c 69 63 6f  |ain( button%,ico|
000012f0  6e 25 29 0d 06 a4 10 e7  20 69 63 6f 6e 25 3d 37  |n%)..... icon%=7|
00001300  33 20 8c 0d 06 ae 0e e7  20 74 6f 74 25 3e 30 20  |3 ...... tot%>0 |
00001310  8c 0d 06 b8 56 41 4e 53  25 3d a4 57 69 6d 70 5f  |....VANS%=.Wimp_|
00001320  57 69 6e 64 6f 77 43 61  6e 63 65 6c 28 22 21 53  |WindowCancel("!S|
00001330  77 61 70 70 65 72 22 2c  22 41 72 65 20 79 6f 75  |wapper","Are you|
00001340  20 73 75 72 65 20 79 6f  75 20 77 61 6e 74 20 74  | sure you want t|
00001350  6f 20 63 6c 65 61 72 20  74 68 65 20 73 65 71 75  |o clear the sequ|
00001360  65 6e 63 65 3f 22 29 0d  06 c2 0e e7 20 41 4e 53  |ence?")..... ANS|
00001370  25 3d b9 20 8c 0d 06 cc  0d 55 50 44 41 54 45 25  |%=. .....UPDATE%|
00001380  3d b9 0d 06 d6 32 f2 57  69 6d 70 5f 53 65 74 49  |=....2.Wimp_SetI|
00001390  63 6f 6e 53 70 72 69 74  65 28 4d 61 69 6e 5f 57  |conSprite(Main_W|
000013a0  69 6e 64 6f 77 25 2c 73  65 6c 65 63 74 2c 22 3b  |indow%,select,";|
000013b0  52 31 22 29 0d 06 e0 0e  f2 72 65 73 65 74 64 61  |R1").....resetda|
000013c0  74 61 0d 06 ea 0f f2 72  65 64 72 61 77 6d 61 69  |ta.....redrawmai|
000013d0  6e 0d 06 f4 2f 61 24 3d  a4 57 69 6d 70 5f 47 65  |n.../a$=.Wimp_Ge|
000013e0  74 46 69 6c 65 46 72 6f  6d 50 61 74 68 6e 61 6d  |tFileFromPathnam|
000013f0  65 28 6e 61 6d 65 24 28  63 75 72 25 2d 31 29 29  |e(name$(cur%-1))|
00001400  0d 06 fe 29 f2 57 69 6d  70 5f 49 63 6f 6e 50 75  |...).Wimp_IconPu|
00001410  74 54 65 78 74 28 54 69  6d 65 72 5f 57 69 6e 64  |tText(Timer_Wind|
00001420  6f 77 25 2c 33 2c 61 24  29 0d 07 08 05 cd 0d 07  |ow%,3,a$).......|
00001430  12 05 cd 0d 07 1c 05 cd  0d 07 26 04 0d 07 30 35  |..........&...05|
00001440  e7 20 69 63 6f 6e 25 3d  36 35 20 8c 20 2a 46 69  |. icon%=65 . *Fi|
00001450  6c 65 72 5f 4f 70 65 6e  44 69 72 20 3c 53 77 61  |ler_OpenDir <Swa|
00001460  70 70 65 72 24 44 69 72  3e 2e 53 74 6f 72 61 67  |pper$Dir>.Storag|
00001470  65 0d 07 3a 04 0d 07 44  10 e7 20 69 63 6f 6e 25  |e..:...D.. icon%|
00001480  3d 37 32 20 8c 0d 07 4e  0e e7 20 74 6f 74 25 3e  |=72 ...N.. tot%>|
00001490  31 20 8c 0d 07 58 13 73  74 61 72 74 25 3d ac 20  |1 ...X.start%=. |
000014a0  73 74 61 72 74 25 0d 07  62 0e f2 72 65 73 65 74  |start%..b..reset|
000014b0  74 69 6d 65 0d 07 6c c5  e7 20 73 74 61 72 74 25  |time..l.. start%|
000014c0  3d b9 20 8c 20 f2 69 6e  70 75 74 6d 61 69 6e 3a  |=. . .inputmain:|
000014d0  c8 99 20 22 4f 53 5f 52  65 61 64 4d 6f 6e 6f 74  |.. "OS_ReadMonot|
000014e0  6f 6e 69 63 54 69 6d 65  22 20 b8 20 6f 6c 64 74  |onicTime" . oldt|
000014f0  69 6d 65 25 3a 6f 6c 64  74 69 6d 65 25 3d 6f 6c  |ime%:oldtime%=ol|
00001500  64 74 69 6d 65 25 2f 31  30 30 3a f2 57 69 6d 70  |dtime%/100:.Wimp|
00001510  5f 49 63 6f 6e 50 75 74  54 65 78 74 28 4d 61 69  |_IconPutText(Mai|
00001520  6e 5f 57 69 6e 64 6f 77  25 2c 37 32 2c 22 53 74  |n_Window%,72,"St|
00001530  6f 70 22 29 3a f2 57 69  6d 70 5f 49 63 6f 6e 50  |op"):.Wimp_IconP|
00001540  75 74 54 65 78 74 28 54  69 6d 65 72 5f 57 69 6e  |utText(Timer_Win|
00001550  64 6f 77 25 2c 30 2c c3  28 a8 28 74 69 6d 65 72  |dow%,0,.(.(timer|
00001560  25 2d 6f 6c 64 74 69 6d  65 25 29 29 29 3a f2 62  |%-oldtime%))):.b|
00001570  61 63 6b 75 70 64 61 74  65 0d 07 76 68 e7 20 73  |ackupdate..vh. s|
00001580  74 61 72 74 25 3d a3 20  8c 20 f2 57 69 6d 70 5f  |tart%=. . .Wimp_|
00001590  49 63 6f 6e 50 75 74 54  65 78 74 28 4d 61 69 6e  |IconPutText(Main|
000015a0  5f 57 69 6e 64 6f 77 25  2c 37 32 2c 22 53 74 61  |_Window%,72,"Sta|
000015b0  72 74 22 29 3a f2 57 69  6d 70 5f 49 63 6f 6e 50  |rt"):.Wimp_IconP|
000015c0  75 74 54 65 78 74 28 54  69 6d 65 72 5f 57 69 6e  |utText(Timer_Win|
000015d0  64 6f 77 25 2c 30 2c 22  53 74 6f 70 70 65 64 22  |dow%,0,"Stopped"|
000015e0  29 0d 07 80 05 cc 0d 07  8a 43 f2 57 69 6d 70 5f  |)........C.Wimp_|
000015f0  57 69 6e 64 6f 77 41 6c  65 72 74 28 22 53 77 61  |WindowAlert("Swa|
00001600  70 70 65 72 22 2c 22 50  6c 65 61 73 65 20 6c 6f  |pper","Please lo|
00001610  61 64 20 74 77 6f 20 6f  72 20 6d 6f 72 65 20 70  |ad two or more p|
00001620  69 63 74 75 72 65 73 22  29 0d 07 94 05 cd 0d 07  |ictures").......|
00001630  9e 05 cd 0d 07 a8 04 0d  07 b2 04 0d 07 bc 5e e7  |..............^.|
00001640  20 69 63 6f 6e 25 3e 31  34 20 80 20 69 63 6f 6e  | icon%>14 . icon|
00001650  25 3c 32 35 20 80 20 28  69 63 6f 6e 25 2b 28 28  |%<25 . (icon%+((|
00001660  63 70 61 25 2d 31 29 2a  31 30 29 29 2d 31 34 3c  |cpa%-1)*10))-14<|
00001670  3e 63 75 72 25 20 80 20  28 69 63 6f 6e 25 2b 28  |>cur% . (icon%+(|
00001680  28 63 70 61 25 2d 31 29  2a 31 30 29 29 2d 31 34  |(cpa%-1)*10))-14|
00001690  3c 74 6f 74 25 2b 31 20  8c 0d 07 c6 32 f2 57 69  |<tot%+1 ....2.Wi|
000016a0  6d 70 5f 53 65 74 49 63  6f 6e 53 70 72 69 74 65  |mp_SetIconSprite|
000016b0  28 4d 61 69 6e 5f 57 69  6e 64 6f 77 25 2c 73 65  |(Main_Window%,se|
000016c0  6c 65 63 74 2c 22 3b 52  31 22 29 0d 07 d0 13 73  |lect,";R1")....s|
000016d0  65 6c 65 63 74 3d 69 63  6f 6e 25 2d 31 30 0d 07  |elect=icon%-10..|
000016e0  da 32 f2 57 69 6d 70 5f  53 65 74 49 63 6f 6e 53  |.2.Wimp_SetIconS|
000016f0  70 72 69 74 65 28 4d 61  69 6e 5f 57 69 6e 64 6f  |prite(Main_Windo|
00001700  77 25 2c 73 65 6c 65 63  74 2c 22 3b 52 32 22 29  |w%,select,";R2")|
00001710  0d 07 e4 21 63 75 72 25  3d 28 73 65 6c 65 63 74  |...!cur%=(select|
00001720  2d 34 29 2b 28 28 63 70  61 25 2d 31 29 2a 31 30  |-4)+((cpa%-1)*10|
00001730  29 0d 07 ee 0f f2 62 61  63 6b 75 70 64 61 74 65  |).....backupdate|
00001740  0d 07 f8 0e f2 72 65 73  65 74 74 69 6d 65 0d 08  |.....resettime..|
00001750  02 05 cd 0d 08 0c 04 0d  08 16 04 0d 08 20 04 0d  |............. ..|
00001760  08 2a 1b e7 20 69 63 6f  6e 25 3e 32 34 20 80 20  |.*.. icon%>24 . |
00001770  69 63 6f 6e 25 3c 33 35  20 8c 0d 08 34 28 f2 57  |icon%<35 ...4(.W|
00001780  69 6d 70 5f 53 65 6c 65  63 74 49 63 6f 6e 28 4d  |imp_SelectIcon(M|
00001790  61 69 6e 5f 57 69 6e 64  6f 77 25 2c 69 63 6f 6e  |ain_Window%,icon|
000017a0  25 29 0d 08 3e 25 74 79  70 65 25 28 28 69 63 6f  |%)..>%type%((ico|
000017b0  6e 25 2d 32 35 29 2b 28  28 63 70 61 25 2d 31 29  |n%-25)+((cpa%-1)|
000017c0  2a 31 30 29 29 3d 31 0d  08 48 3a e7 20 28 69 63  |*10))=1..H:. (ic|
000017d0  6f 6e 25 2d 32 34 29 2b  28 28 63 70 61 25 2d 31  |on%-24)+((cpa%-1|
000017e0  29 2a 31 30 29 3d 63 75  72 25 20 80 20 74 6f 74  |)*10)=cur% . tot|
000017f0  25 3e 31 20 8c 20 f2 62  61 63 6b 75 70 64 61 74  |%>1 . .backupdat|
00001800  65 0d 08 52 05 cd 0d 08  5c 1b e7 20 69 63 6f 6e  |e..R....\.. icon|
00001810  25 3e 33 34 20 80 20 69  63 6f 6e 25 3c 34 35 20  |%>34 . icon%<45 |
00001820  8c 0d 08 66 28 f2 57 69  6d 70 5f 53 65 6c 65 63  |...f(.Wimp_Selec|
00001830  74 49 63 6f 6e 28 4d 61  69 6e 5f 57 69 6e 64 6f  |tIcon(Main_Windo|
00001840  77 25 2c 69 63 6f 6e 25  29 0d 08 70 25 74 79 70  |w%,icon%)..p%typ|
00001850  65 25 28 28 69 63 6f 6e  25 2d 33 35 29 2b 28 28  |e%((icon%-35)+((|
00001860  63 70 61 25 2d 31 29 2a  31 30 29 29 3d 32 0d 08  |cpa%-1)*10))=2..|
00001870  7a 3a e7 20 28 69 63 6f  6e 25 2d 33 34 29 2b 28  |z:. (icon%-34)+(|
00001880  28 63 70 61 25 2d 31 29  2a 31 30 29 3d 63 75 72  |(cpa%-1)*10)=cur|
00001890  25 20 80 20 74 6f 74 25  3e 31 20 8c 20 f2 62 61  |% . tot%>1 . .ba|
000018a0  63 6b 75 70 64 61 74 65  0d 08 84 05 cd 0d 08 8e  |ckupdate........|
000018b0  1b e7 20 69 63 6f 6e 25  3e 34 34 20 80 20 69 63  |.. icon%>44 . ic|
000018c0  6f 6e 25 3c 35 35 20 8c  0d 08 98 28 f2 57 69 6d  |on%<55 ....(.Wim|
000018d0  70 5f 53 65 6c 65 63 74  49 63 6f 6e 28 4d 61 69  |p_SelectIcon(Mai|
000018e0  6e 5f 57 69 6e 64 6f 77  25 2c 69 63 6f 6e 25 29  |n_Window%,icon%)|
000018f0  0d 08 a2 25 74 79 70 65  25 28 28 69 63 6f 6e 25  |...%type%((icon%|
00001900  2d 34 35 29 2b 28 28 63  70 61 25 2d 31 29 2a 31  |-45)+((cpa%-1)*1|
00001910  30 29 29 3d 33 0d 08 ac  3a e7 20 28 69 63 6f 6e  |0))=3...:. (icon|
00001920  25 2d 34 34 29 2b 28 28  63 70 61 25 2d 31 29 2a  |%-44)+((cpa%-1)*|
00001930  31 30 29 3d 63 75 72 25  20 80 20 74 6f 74 25 3e  |10)=cur% . tot%>|
00001940  31 20 8c 20 f2 62 61 63  6b 75 70 64 61 74 65 0d  |1 . .backupdate.|
00001950  08 b6 05 cd 0d 08 c0 04  0d 08 ca 04 0d 08 d4 10  |................|
00001960  e7 20 69 63 6f 6e 25 3d  36 36 20 8c 0d 08 de 0e  |. icon%=66 .....|
00001970  e7 20 74 6f 74 25 3e 31  20 8c 0d 08 e8 26 41 24  |. tot%>1 ....&A$|
00001980  3d a4 57 69 6d 70 5f 49  63 6f 6e 54 65 78 74 28  |=.Wimp_IconText(|
00001990  4d 61 69 6e 5f 57 69 6e  64 6f 77 25 2c 35 35 29  |Main_Window%,55)|
000019a0  0d 08 f2 0f e3 20 41 3d  35 35 20 b8 20 36 33 0d  |..... A=55 . 63.|
000019b0  08 fc 27 e7 20 6e 61 6d  65 24 28 28 41 2d 35 34  |..'. name$((A-54|
000019c0  29 2b 28 28 63 70 61 25  2d 31 29 2a 31 30 29 29  |)+((cpa%-1)*10))|
000019d0  3c 3e 22 22 20 8c 0d 09  06 25 74 69 6d 65 25 28  |<>"" ....%time%(|
000019e0  28 41 2d 35 34 29 2b 28  28 63 70 61 25 2d 31 29  |(A-54)+((cpa%-1)|
000019f0  2a 31 30 29 29 3d bb 28  41 24 29 0d 09 10 2a f2  |*10))=.(A$)...*.|
00001a00  57 69 6d 70 5f 49 63 6f  6e 50 75 74 54 65 78 74  |Wimp_IconPutText|
00001a10  28 4d 61 69 6e 5f 57 69  6e 64 6f 77 25 2c 41 2b  |(Main_Window%,A+|
00001a20  31 2c 41 24 29 0d 09 1a  05 cd 0d 09 24 07 ed 20  |1,A$).......$.. |
00001a30  41 0d 09 2e 2a f2 57 69  6d 70 5f 49 63 6f 6e 43  |A...*.Wimp_IconC|
00001a40  61 72 65 74 28 4d 61 69  6e 5f 57 69 6e 64 6f 77  |aret(Main_Window|
00001a50  25 2c 35 35 2c a9 28 41  24 29 29 0d 09 38 05 cc  |%,55,.(A$))..8..|
00001a60  0d 09 42 43 f2 57 69 6d  70 5f 57 69 6e 64 6f 77  |..BC.Wimp_Window|
00001a70  41 6c 65 72 74 28 22 53  77 61 70 70 65 72 22 2c  |Alert("Swapper",|
00001a80  22 50 6c 65 61 73 65 20  6c 6f 61 64 20 74 77 6f  |"Please load two|
00001a90  20 6f 72 20 6d 6f 72 65  20 70 69 63 74 75 72 65  | or more picture|
00001aa0  73 22 29 0d 09 4c 05 cd  0d 09 56 05 cd 0d 09 60  |s")..L....V....`|
00001ab0  04 0d 09 6a 04 0d 09 74  19 e7 20 69 63 6f 6e 25  |...j...t.. icon%|
00001ac0  3d 36 37 20 80 20 63 70  61 25 3e 31 20 8c 0d 09  |=67 . cpa%>1 ...|
00001ad0  7e 0e f2 69 6e 70 75 74  6d 61 69 6e 0d 09 88 0b  |~..inputmain....|
00001ae0  63 70 61 25 2d 3d 31 0d  09 92 0f f2 72 65 64 72  |cpa%-=1.....redr|
00001af0  61 77 6d 61 69 6e 0d 09  9c 05 cd 0d 09 a6 1b e7  |awmain..........|
00001b00  20 69 63 6f 6e 25 3d 37  31 20 80 20 63 70 61 25  | icon%=71 . cpa%|
00001b10  3c 70 61 25 20 8c 0d 09  b0 0e f2 69 6e 70 75 74  |<pa% ......input|
00001b20  6d 61 69 6e 0d 09 ba 0b  63 70 61 25 2b 3d 31 0d  |main....cpa%+=1.|
00001b30  09 c4 0f f2 72 65 64 72  61 77 6d 61 69 6e 0d 09  |....redrawmain..|
00001b40  ce 05 cd 0d 09 d8 0e 20  20 20 20 20 20 20 20 20  |.......         |
00001b50  e1 0d 09 e2 0c 20 20 20  20 20 20 20 3a 0d 09 ec  |.....       :...|
00001b60  30 20 20 20 20 20 20 20  dd 20 f2 45 76 65 6e 74  |0       . .Event|
00001b70  5f 4b 65 79 50 72 65 73  73 28 77 69 6e 64 6f 77  |_KeyPress(window|
00001b80  25 2c 69 63 6f 6e 25 2c  6b 65 79 25 29 0d 09 f6  |%,icon%,key%)...|
00001b90  1a 20 20 20 20 20 20 20  20 20 20 c8 8e 20 77 69  |.          .. wi|
00001ba0  6e 64 6f 77 25 20 ca 0d  0a 00 45 20 20 20 20 20  |ndow% ....E     |
00001bb0  20 20 20 20 20 20 c9 20  4d 61 69 6e 5f 57 69 6e  |      . Main_Win|
00001bc0  64 6f 77 25 20 20 20 20  20 20 20 3a 20 f2 55 73  |dow%       : .Us|
00001bd0  65 72 5f 4b 65 79 50 72  65 73 73 4d 61 69 6e 28  |er_KeyPressMain(|
00001be0  20 69 63 6f 6e 25 2c 6b  65 79 25 29 0d 0a 0a 0f  | icon%,key%)....|
00001bf0  20 20 20 20 20 20 20 20  20 20 cb 0d 0a 14 0c 20  |          ..... |
00001c00  20 20 20 20 20 20 e1 0d  0a 1e 0e 20 20 20 20 20  |      .....     |
00001c10  20 20 20 20 3a 0d 0a 28  2e 20 20 20 20 20 20 20  |    :..(.       |
00001c20  20 20 dd 20 f2 55 73 65  72 5f 4b 65 79 50 72 65  |  . .User_KeyPre|
00001c30  73 73 4d 61 69 6e 28 20  69 63 6f 6e 25 2c 6b 65  |ssMain( icon%,ke|
00001c40  79 25 29 0d 0a 32 30 e7  20 6b 65 79 25 3d 31 33  |y%)..20. key%=13|
00001c50  20 80 20 69 63 6f 6e 25  3c 36 34 20 84 20 6b 65  | . icon%<64 . ke|
00001c60  79 25 3d 33 39 38 20 80  20 69 63 6f 6e 25 3c 36  |y%=398 . icon%<6|
00001c70  34 20 8c 0d 0a 3c 29 41  24 3d a4 57 69 6d 70 5f  |4 ...<)A$=.Wimp_|
00001c80  49 63 6f 6e 54 65 78 74  28 4d 61 69 6e 5f 57 69  |IconText(Main_Wi|
00001c90  6e 64 6f 77 25 2c 69 63  6f 6e 25 29 0d 0a 46 29  |ndow%,icon%)..F)|
00001ca0  74 69 6d 65 25 28 28 69  63 6f 6e 25 2d 35 35 29  |time%((icon%-55)|
00001cb0  2b 28 28 63 70 61 25 2d  31 29 2a 31 30 29 29 3d  |+((cpa%-1)*10))=|
00001cc0  bb 28 41 24 29 0d 0a 50  2b 61 24 3d a4 57 69 6d  |.(A$)..P+a$=.Wim|
00001cd0  70 5f 49 63 6f 6e 54 65  78 74 28 4d 61 69 6e 5f  |p_IconText(Main_|
00001ce0  57 69 6e 64 6f 77 25 2c  69 63 6f 6e 25 2b 31 29  |Window%,icon%+1)|
00001cf0  0d 0a 5a 2f f2 57 69 6d  70 5f 49 63 6f 6e 43 61  |..Z/.Wimp_IconCa|
00001d00  72 65 74 28 4d 61 69 6e  5f 57 69 6e 64 6f 77 25  |ret(Main_Window%|
00001d10  2c 69 63 6f 6e 25 2b 31  2c a9 28 61 24 29 29 0d  |,icon%+1,.(a$)).|
00001d20  0a 64 05 cd 0d 0a 6e 04  0d 0a 78 30 e7 20 6b 65  |.d....n...x0. ke|
00001d30  79 25 3d 31 33 20 80 20  69 63 6f 6e 25 3d 36 34  |y%=13 . icon%=64|
00001d40  20 84 20 6b 65 79 25 3d  33 39 38 20 80 20 69 63  | . key%=398 . ic|
00001d50  6f 6e 25 3d 36 34 20 8c  0d 0a 82 26 41 24 3d a4  |on%=64 ....&A$=.|
00001d60  57 69 6d 70 5f 49 63 6f  6e 54 65 78 74 28 4d 61  |Wimp_IconText(Ma|
00001d70  69 6e 5f 57 69 6e 64 6f  77 25 2c 36 34 29 0d 0a  |in_Window%,64)..|
00001d80  8c 1e 74 69 6d 65 25 28  39 2b 28 63 70 61 25 2d  |..time%(9+(cpa%-|
00001d90  31 29 2a 31 30 29 3d bb  28 41 24 29 0d 0a 96 26  |1)*10)=.(A$)...&|
00001da0  61 24 3d a4 57 69 6d 70  5f 49 63 6f 6e 54 65 78  |a$=.Wimp_IconTex|
00001db0  74 28 4d 61 69 6e 5f 57  69 6e 64 6f 77 25 2c 35  |t(Main_Window%,5|
00001dc0  35 29 0d 0a a0 2a f2 57  69 6d 70 5f 49 63 6f 6e  |5)...*.Wimp_Icon|
00001dd0  43 61 72 65 74 28 4d 61  69 6e 5f 57 69 6e 64 6f  |Caret(Main_Windo|
00001de0  77 25 2c 35 35 2c a9 28  61 24 29 29 0d 0a aa 05  |w%,55,.(a$))....|
00001df0  cd 0d 0a b4 04 0d 0a be  1b e7 20 6b 65 79 25 3d  |.......... key%=|
00001e00  33 39 39 20 80 20 69 63  6f 6e 25 3e 35 35 20 8c  |399 . icon%>55 .|
00001e10  0d 0a c8 29 41 24 3d a4  57 69 6d 70 5f 49 63 6f  |...)A$=.Wimp_Ico|
00001e20  6e 54 65 78 74 28 4d 61  69 6e 5f 57 69 6e 64 6f  |nText(Main_Windo|
00001e30  77 25 2c 69 63 6f 6e 25  29 0d 0a d2 29 74 69 6d  |w%,icon%)...)tim|
00001e40  65 25 28 28 69 63 6f 6e  25 2d 35 35 29 2b 28 28  |e%((icon%-55)+((|
00001e50  63 70 61 25 2d 31 29 2a  31 30 29 29 3d bb 28 41  |cpa%-1)*10))=.(A|
00001e60  24 29 0d 0a dc 2b 61 24  3d a4 57 69 6d 70 5f 49  |$)...+a$=.Wimp_I|
00001e70  63 6f 6e 54 65 78 74 28  4d 61 69 6e 5f 57 69 6e  |conText(Main_Win|
00001e80  64 6f 77 25 2c 69 63 6f  6e 25 2d 31 29 0d 0a e6  |dow%,icon%-1)...|
00001e90  2f f2 57 69 6d 70 5f 49  63 6f 6e 43 61 72 65 74  |/.Wimp_IconCaret|
00001ea0  28 4d 61 69 6e 5f 57 69  6e 64 6f 77 25 2c 69 63  |(Main_Window%,ic|
00001eb0  6f 6e 25 2d 31 2c a9 28  61 24 29 29 0d 0a f0 05  |on%-1,.(a$))....|
00001ec0  cd 0d 0a fa 04 0d 0b 04  1b e7 20 6b 65 79 25 3d  |.......... key%=|
00001ed0  33 39 39 20 80 20 69 63  6f 6e 25 3d 35 35 20 8c  |399 . icon%=55 .|
00001ee0  0d 0b 0e 26 41 24 3d a4  57 69 6d 70 5f 49 63 6f  |...&A$=.Wimp_Ico|
00001ef0  6e 54 65 78 74 28 4d 61  69 6e 5f 57 69 6e 64 6f  |nText(Main_Windo|
00001f00  77 25 2c 35 35 29 0d 0b  18 1c 74 69 6d 65 25 28  |w%,55)....time%(|
00001f10  28 63 70 61 25 2d 31 29  2a 31 30 29 3d bb 28 41  |(cpa%-1)*10)=.(A|
00001f20  24 29 0d 0b 22 26 61 24  3d a4 57 69 6d 70 5f 49  |$).."&a$=.Wimp_I|
00001f30  63 6f 6e 54 65 78 74 28  4d 61 69 6e 5f 57 69 6e  |conText(Main_Win|
00001f40  64 6f 77 25 2c 36 34 29  0d 0b 2c 2a f2 57 69 6d  |dow%,64)..,*.Wim|
00001f50  70 5f 49 63 6f 6e 43 61  72 65 74 28 4d 61 69 6e  |p_IconCaret(Main|
00001f60  5f 57 69 6e 64 6f 77 25  2c 36 34 2c a9 28 61 24  |_Window%,64,.(a$|
00001f70  29 29 0d 0b 36 05 cd 0d  0b 40 0e 20 20 20 20 20  |))..6....@.     |
00001f80  20 20 20 20 e1 0d 0b 4a  0c 20 20 20 20 20 20 20  |    ...J.       |
00001f90  3a 0d 0b 54 25 20 20 20  20 20 20 20 dd 20 f2 45  |:..T%       . .E|
00001fa0  76 65 6e 74 5f 4d 65 6e  75 43 68 6f 69 63 65 28  |vent_MenuChoice(|
00001fb0  6d 65 6e 75 25 29 0d 0b  5e 16 20 20 20 20 20 20  |menu%)..^.      |
00001fc0  20 20 c8 8e 20 6d 65 6e  75 25 20 ca 0d 0b 68 3c  |  .. menu% ...h<|
00001fd0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 c9 20  |              . |
00001fe0  42 61 72 5f 4d 65 6e 75  25 20 20 20 20 20 20 20  |Bar_Menu%       |
00001ff0  20 20 20 3a 20 f2 55 73  65 72 5f 4d 65 6e 75 43  |   : .User_MenuC|
00002000  68 6f 69 63 65 42 61 72  0d 0b 72 3d 20 20 20 20  |hoiceBar..r=    |
00002010  20 20 20 20 20 20 20 20  20 20 c9 20 4d 61 69 6e  |          . Main|
00002020  5f 4d 65 6e 75 25 20 20  20 20 20 20 20 20 20 3a  |_Menu%         :|
00002030  20 f2 55 73 65 72 5f 4d  65 6e 75 43 68 6f 69 63  | .User_MenuChoic|
00002040  65 4d 61 69 6e 0d 0b 7c  0d 20 20 20 20 20 20 20  |eMain..|.       |
00002050  20 cb 0d 0b 86 0c 20 20  20 20 20 20 20 e1 0d 0b  | .....       ...|
00002060  90 0c 20 20 20 20 20 20  20 3a 0d 0b 9a 20 20 20  |..       :...   |
00002070  20 20 20 20 20 dd 20 f2  55 73 65 72 5f 4d 65 6e  |     . .User_Men|
00002080  75 43 68 6f 69 63 65 42  61 72 0d 0b a4 24 20 20  |uChoiceBar...$  |
00002090  20 20 20 20 20 20 c8 8e  20 a4 57 69 6d 70 5f 4d  |      .. .Wimp_M|
000020a0  65 6e 75 43 68 6f 69 63  65 28 30 29 20 ca 0d 0b  |enuChoice(0) ...|
000020b0  ae 12 20 20 20 20 20 20  20 20 20 c9 20 31 20 3a  |..         . 1 :|
000020c0  0d 0b b8 10 20 20 20 20  20 20 20 20 20 c9 20 32  |....         . 2|
000020d0  0d 0b c2 11 e7 20 55 50  44 41 54 45 25 3d b9 20  |..... UPDATE%=. |
000020e0  8c 0d 0b cc 44 f2 57 69  6d 70 5f 49 63 6f 6e 50  |....D.Wimp_IconP|
000020f0  75 74 54 65 78 74 28 43  6c 6f 73 65 5f 57 69 6e  |utText(Close_Win|
00002100  64 6f 77 25 2c 30 2c 22  54 68 69 73 20 66 69 6c  |dow%,0,"This fil|
00002110  65 20 68 61 73 20 62 65  65 6e 20 6d 6f 64 69 66  |e has been modif|
00002120  69 65 64 22 29 0d 0b d6  29 f2 57 69 6d 70 5f 57  |ied")...).Wimp_W|
00002130  69 6e 64 6f 77 42 72 69  6e 67 54 6f 54 6f 70 28  |indowBringToTop(|
00002140  43 6c 6f 73 65 5f 57 69  6e 64 6f 77 25 29 0d 0b  |Close_Window%)..|
00002150  e0 1c f2 6d 6f 75 73 65  62 6f 78 28 43 6c 6f 73  |...mousebox(Clos|
00002160  65 5f 57 69 6e 64 6f 77  25 29 0d 0b ea 05 cd 0d  |e_Window%)......|
00002170  0b f4 55 e7 20 55 50 44  41 54 45 25 3d a3 20 8c  |..U. UPDATE%=. .|
00002180  20 66 69 6e 69 73 68 65  64 25 3d b9 3a e7 20 72  | finished%=.:. r|
00002190  65 6d 6f 76 65 25 3d b9  20 8c 20 ff 28 22 42 61  |emove%=. . .("Ba|
000021a0  63 6b 64 72 6f 70 20 2d  54 20 3c 53 77 61 70 70  |ckdrop -T <Swapp|
000021b0  65 72 24 44 69 72 3e 2e  44 61 74 61 2e 42 6c 61  |er$Dir>.Data.Bla|
000021c0  6e 6b 22 29 0d 0b fe 0d  20 20 20 20 20 20 20 20  |nk")....        |
000021d0  cb 0d 0c 08 0c 20 20 20  20 20 20 20 e1 0d 0c 12  |.....       ....|
000021e0  0c 20 20 20 20 20 20 20  3a 0d 0c 1c 21 20 20 20  |.       :...!   |
000021f0  20 20 20 20 dd 20 f2 55  73 65 72 5f 4d 65 6e 75  |    . .User_Menu|
00002200  43 68 6f 69 63 65 4d 61  69 6e 0d 0c 26 24 20 20  |ChoiceMain..&$  |
00002210  20 20 20 20 20 20 c8 8e  20 a4 57 69 6d 70 5f 4d  |      .. .Wimp_M|
00002220  65 6e 75 43 68 6f 69 63  65 28 30 29 20 ca 0d 0c  |enuChoice(0) ...|
00002230  30 38 20 20 20 20 20 20  20 20 20 c9 20 33 20 3a  |08         . 3 :|
00002240  20 f2 57 69 6d 70 5f 57  69 6e 64 6f 77 42 72 69  | .Wimp_WindowBri|
00002250  6e 67 54 6f 54 6f 70 28  54 69 6d 65 72 5f 57 69  |ngToTop(Timer_Wi|
00002260  6e 64 6f 77 25 29 0d 0c  3a 10 20 20 20 20 20 20  |ndow%)..:.      |
00002270  20 20 20 c9 20 34 0d 0c  44 56 41 4e 53 25 3d a4  |   . 4..DVANS%=.|
00002280  57 69 6d 70 5f 57 69 6e  64 6f 77 43 61 6e 63 65  |Wimp_WindowCance|
00002290  6c 28 22 21 53 77 61 70  70 65 72 22 2c 22 41 72  |l("!Swapper","Ar|
000022a0  65 20 79 6f 75 20 73 75  72 65 20 79 6f 75 20 77  |e you sure you w|
000022b0  61 6e 74 20 74 6f 20 63  6c 65 61 72 20 74 68 65  |ant to clear the|
000022c0  20 73 65 71 75 65 6e 63  65 3f 22 29 0d 0c 4e 0e  | sequence?")..N.|
000022d0  e7 20 41 4e 53 25 3d b9  20 8c 0d 0c 58 b0 e7 20  |. ANS%=. ...X.. |
000022e0  74 6f 74 25 3e 30 20 8c  20 f2 57 69 6d 70 5f 53  |tot%>0 . .Wimp_S|
000022f0  65 74 49 63 6f 6e 53 70  72 69 74 65 28 4d 61 69  |etIconSprite(Mai|
00002300  6e 5f 57 69 6e 64 6f 77  25 2c 73 65 6c 65 63 74  |n_Window%,select|
00002310  2c 22 3b 52 31 22 29 3a  f2 72 65 73 65 74 64 61  |,";R1"):.resetda|
00002320  74 61 3a f2 72 65 64 72  61 77 6d 61 69 6e 3a 61  |ta:.redrawmain:a|
00002330  24 3d a4 57 69 6d 70 5f  47 65 74 46 69 6c 65 46  |$=.Wimp_GetFileF|
00002340  72 6f 6d 50 61 74 68 6e  61 6d 65 28 6e 61 6d 65  |romPathname(name|
00002350  24 28 63 75 72 25 2d 31  29 29 3a f2 57 69 6d 70  |$(cur%-1)):.Wimp|
00002360  5f 49 63 6f 6e 50 75 74  54 65 78 74 28 54 69 6d  |_IconPutText(Tim|
00002370  65 72 5f 57 69 6e 64 6f  77 25 2c 33 2c 61 24 29  |er_Window%,3,a$)|
00002380  3a 55 50 44 41 54 45 25  3d b9 0d 0c 62 05 cd 0d  |:UPDATE%=...b...|
00002390  0c 6c 0d 20 20 20 20 20  20 20 20 cb 0d 0c 76 0c  |.l.        ...v.|
000023a0  20 20 20 20 20 20 20 e1  0d 0c 80 0c 20 20 20 20  |       .....    |
000023b0  20 20 20 3a 0d 0c 8a 29  20 20 20 20 20 20 20 dd  |   :...)       .|
000023c0  20 f2 45 76 65 6e 74 5f  4c 6f 61 64 46 69 6c 65  | .Event_LoadFile|
000023d0  28 66 69 6c 65 24 2c 74  79 70 65 24 29 0d 0c 94  |(file$,type$)...|
000023e0  16 e7 20 74 79 70 65 24  3d 22 53 70 72 69 74 65  |.. type$="Sprite|
000023f0  22 20 8c 0d 0c 9e 0d 55  50 44 41 54 45 25 3d b9  |" .....UPDATE%=.|
00002400  0d 0c a8 07 ea 20 85 0d  0c b2 10 ee 20 85 20 ea  |..... ...... . .|
00002410  20 f2 65 72 72 6f 72 0d  0c bc 0f e7 20 74 6f 74  | .error..... tot|
00002420  25 3c 39 39 20 8c 0d 0c  c6 3c e7 20 6f 70 65 6e  |%<99 ....<. open|
00002430  25 3d a3 20 8c 20 f2 57  69 6d 70 5f 57 69 6e 64  |%=. . .Wimp_Wind|
00002440  6f 77 42 72 69 6e 67 54  6f 54 6f 70 28 4d 61 69  |owBringToTop(Mai|
00002450  6e 5f 57 69 6e 64 6f 77  25 29 3a 6f 70 65 6e 25  |n_Window%):open%|
00002460  3d b9 0d 0c d0 31 e7 20  63 70 61 25 3c 3e 70 61  |=....1. cpa%<>pa|
00002470  25 20 8c 20 f2 69 6e 70  75 74 6d 61 69 6e 3a 63  |% . .inputmain:c|
00002480  70 61 25 3d 70 61 25 3a  f2 72 65 64 72 61 77 6d  |pa%=pa%:.redrawm|
00002490  61 69 6e 0d 0c da 15 e7  20 28 74 6f 74 25 29 2f  |ain..... (tot%)/|
000024a0  31 30 3c 70 61 25 20 8c  0d 0c e4 15 6e 61 6d 65  |10<pa% .....name|
000024b0  24 28 74 6f 74 25 29 3d  66 69 6c 65 24 0d 0c ee  |$(tot%)=file$...|
000024c0  27 61 24 3d a4 57 69 6d  70 5f 47 65 74 46 69 6c  |'a$=.Wimp_GetFil|
000024d0  65 46 72 6f 6d 50 61 74  68 6e 61 6d 65 28 66 69  |eFromPathname(fi|
000024e0  6c 65 24 29 0d 0c f8 17  41 41 25 3d a4 6e 61 63  |le$)....AA%=.nac|
000024f0  68 65 63 6b 28 66 69 6c  65 24 29 0d 0d 02 53 e7  |heck(file$)...S.|
00002500  20 41 41 25 3d b9 20 8c  20 6e 61 6d 65 24 28 74  | AA%=. . name$(t|
00002510  6f 74 25 29 3d 22 3c 53  77 61 70 70 65 72 24 44  |ot%)="<Swapper$D|
00002520  69 72 3e 2e 53 74 6f 72  61 67 65 2e 22 2b a4 57  |ir>.Storage."+.W|
00002530  69 6d 70 5f 47 65 74 46  69 6c 65 46 72 6f 6d 50  |imp_GetFileFromP|
00002540  61 74 68 6e 61 6d 65 28  66 69 6c 65 24 29 0d 0d  |athname(file$)..|
00002550  0c 3d f2 57 69 6d 70 5f  49 63 6f 6e 50 75 74 54  |.=.Wimp_IconPutT|
00002560  65 78 74 28 4d 61 69 6e  5f 57 69 6e 64 6f 77 25  |ext(Main_Window%|
00002570  2c 28 74 6f 74 25 2d 28  28 70 61 25 2d 31 29 2a  |,(tot%-((pa%-1)*|
00002580  31 30 29 2b 31 35 29 2c  61 24 29 0d 0d 16 0b 74  |10)+15),a$)....t|
00002590  6f 74 25 2b 3d 31 0d 0d  20 05 cc 0d 0d 2a 0e f2  |ot%+=1.. ....*..|
000025a0  69 6e 70 75 74 6d 61 69  6e 0d 0d 34 0a 70 61 25  |inputmain..4.pa%|
000025b0  2b 3d 31 0d 0d 3e 0c 63  70 61 25 3d 70 61 25 0d  |+=1..>.cpa%=pa%.|
000025c0  0d 48 0f f2 72 65 64 72  61 77 6d 61 69 6e 0d 0d  |.H..redrawmain..|
000025d0  52 2e f2 57 69 6d 70 5f  49 63 6f 6e 50 75 74 54  |R..Wimp_IconPutT|
000025e0  65 78 74 28 4d 61 69 6e  5f 57 69 6e 64 6f 77 25  |ext(Main_Window%|
000025f0  2c 37 30 2c c3 28 63 70  61 25 29 29 0d 0d 5c 15  |,70,.(cpa%))..\.|
00002600  6e 61 6d 65 24 28 74 6f  74 25 29 3d 66 69 6c 65  |name$(tot%)=file|
00002610  24 0d 0d 66 27 61 24 3d  a4 57 69 6d 70 5f 47 65  |$..f'a$=.Wimp_Ge|
00002620  74 46 69 6c 65 46 72 6f  6d 50 61 74 68 6e 61 6d  |tFileFromPathnam|
00002630  65 28 66 69 6c 65 24 29  0d 0d 70 17 41 41 25 3d  |e(file$)..p.AA%=|
00002640  a4 6e 61 63 68 65 63 6b  28 66 69 6c 65 24 29 0d  |.nacheck(file$).|
00002650  0d 7a 53 e7 20 41 41 25  3d b9 20 8c 20 6e 61 6d  |.zS. AA%=. . nam|
00002660  65 24 28 74 6f 74 25 29  3d 22 3c 53 77 61 70 70  |e$(tot%)="<Swapp|
00002670  65 72 24 44 69 72 3e 2e  53 74 6f 72 61 67 65 2e  |er$Dir>.Storage.|
00002680  22 2b a4 57 69 6d 70 5f  47 65 74 46 69 6c 65 46  |"+.Wimp_GetFileF|
00002690  72 6f 6d 50 61 74 68 6e  61 6d 65 28 66 69 6c 65  |romPathname(file|
000026a0  24 29 0d 0d 84 3d f2 57  69 6d 70 5f 49 63 6f 6e  |$)...=.Wimp_Icon|
000026b0  50 75 74 54 65 78 74 28  4d 61 69 6e 5f 57 69 6e  |PutText(Main_Win|
000026c0  64 6f 77 25 2c 28 74 6f  74 25 2d 28 28 70 61 25  |dow%,(tot%-((pa%|
000026d0  2d 31 29 2a 31 30 29 2b  31 35 29 2c 61 24 29 0d  |-1)*10)+15),a$).|
000026e0  0d 8e 0b 74 6f 74 25 2b  3d 31 0d 0d 98 05 cd 0d  |...tot%+=1......|
000026f0  0d a2 0e e7 20 74 6f 74  25 3e 31 20 8c 0d 0d ac  |.... tot%>1 ....|
00002700  22 f2 57 69 6d 70 5f 4d  65 6e 75 45 6e 61 62 6c  |".Wimp_MenuEnabl|
00002710  65 28 4d 61 69 6e 5f 4d  65 6e 75 25 2c 31 29 0d  |e(Main_Menu%,1).|
00002720  0d b6 22 f2 57 69 6d 70  5f 4d 65 6e 75 45 6e 61  |..".Wimp_MenuEna|
00002730  62 6c 65 28 4d 61 69 6e  5f 4d 65 6e 75 25 2c 33  |ble(Main_Menu%,3|
00002740  29 0d 0d c0 22 f2 57 69  6d 70 5f 4d 65 6e 75 45  |)...".Wimp_MenuE|
00002750  6e 61 62 6c 65 28 4d 61  69 6e 5f 4d 65 6e 75 25  |nable(Main_Menu%|
00002760  2c 34 29 0d 0d ca 05 cd  0d 0d d4 2f 61 24 3d a4  |,4)......../a$=.|
00002770  57 69 6d 70 5f 47 65 74  46 69 6c 65 46 72 6f 6d  |Wimp_GetFileFrom|
00002780  50 61 74 68 6e 61 6d 65  28 6e 61 6d 65 24 28 63  |Pathname(name$(c|
00002790  75 72 25 2d 31 29 29 0d  0d de 29 f2 57 69 6d 70  |ur%-1))...).Wimp|
000027a0  5f 49 63 6f 6e 50 75 74  54 65 78 74 28 54 69 6d  |_IconPutText(Tim|
000027b0  65 72 5f 57 69 6e 64 6f  77 25 2c 33 2c 61 24 29  |er_Window%,3,a$)|
000027c0  0d 0d e8 05 cd 0d 0d f2  05 cd 0d 0d fc 17 e7 20  |............... |
000027d0  74 79 70 65 24 3d 22 53  77 61 70 70 65 72 22 20  |type$="Swapper" |
000027e0  8c 0d 0e 06 0d 55 50 44  41 54 45 25 3d a3 0d 0e  |.....UPDATE%=...|
000027f0  10 07 ea 20 85 0d 0e 1a  10 ee 20 85 20 ea 20 f2  |... ...... . . .|
00002800  65 72 72 6f 72 0d 0e 24  3c e7 20 6f 70 65 6e 25  |error..$<. open%|
00002810  3d a3 20 8c 20 f2 57 69  6d 70 5f 57 69 6e 64 6f  |=. . .Wimp_Windo|
00002820  77 42 72 69 6e 67 54 6f  54 6f 70 28 4d 61 69 6e  |wBringToTop(Main|
00002830  5f 57 69 6e 64 6f 77 25  29 3a 6f 70 65 6e 25 3d  |_Window%):open%=|
00002840  b9 0d 0e 2e 0e f2 72 65  73 65 74 64 61 74 61 0d  |......resetdata.|
00002850  0e 38 0f 58 25 3d 8e 28  66 69 6c 65 24 29 0d 0e  |.8.X%=.(file$)..|
00002860  42 0d e8 20 23 58 25 2c  70 61 25 0d 0e 4c 0e e8  |B.. #X%,pa%..L..|
00002870  20 23 58 25 2c 74 6f 74  25 0d 0e 56 10 e3 20 41  | #X%,tot%..V.. A|
00002880  3d 30 20 b8 20 74 6f 74  25 0d 0e 60 12 e8 20 23  |=0 . tot%..`.. #|
00002890  58 25 2c 6e 61 6d 65 24  28 41 29 0d 0e 6a 12 e8  |X%,name$(A)..j..|
000028a0  20 23 58 25 2c 74 79 70  65 25 28 41 29 0d 0e 74  | #X%,type%(A)..t|
000028b0  12 e8 20 23 58 25 2c 74  69 6d 65 25 28 41 29 0d  |.. #X%,time%(A).|
000028c0  0e 7e 07 ed 20 41 0d 0e  88 09 d9 20 23 58 25 0d  |.~.. A..... #X%.|
000028d0  0e 92 0f f2 72 65 64 72  61 77 6d 61 69 6e 0d 0e  |....redrawmain..|
000028e0  9c 2b f2 57 69 6d 70 5f  49 63 6f 6e 50 75 74 54  |.+.Wimp_IconPutT|
000028f0  65 78 74 28 53 61 76 65  5f 57 69 6e 64 6f 77 25  |ext(Save_Window%|
00002900  2c 31 2c 66 69 6c 65 24  29 0d 0e a6 0e e7 20 74  |,1,file$)..... t|
00002910  6f 74 25 3e 31 20 8c 0d  0e b0 22 f2 57 69 6d 70  |ot%>1 ....".Wimp|
00002920  5f 4d 65 6e 75 45 6e 61  62 6c 65 28 4d 61 69 6e  |_MenuEnable(Main|
00002930  5f 4d 65 6e 75 25 2c 31  29 0d 0e ba 22 f2 57 69  |_Menu%,1)...".Wi|
00002940  6d 70 5f 4d 65 6e 75 45  6e 61 62 6c 65 28 4d 61  |mp_MenuEnable(Ma|
00002950  69 6e 5f 4d 65 6e 75 25  2c 33 29 0d 0e c4 22 f2  |in_Menu%,3)...".|
00002960  57 69 6d 70 5f 4d 65 6e  75 45 6e 61 62 6c 65 28  |Wimp_MenuEnable(|
00002970  4d 61 69 6e 5f 4d 65 6e  75 25 2c 34 29 0d 0e ce  |Main_Menu%,4)...|
00002980  2f 61 24 3d a4 57 69 6d  70 5f 47 65 74 46 69 6c  |/a$=.Wimp_GetFil|
00002990  65 46 72 6f 6d 50 61 74  68 6e 61 6d 65 28 6e 61  |eFromPathname(na|
000029a0  6d 65 24 28 63 75 72 25  2d 31 29 29 0d 0e d8 29  |me$(cur%-1))...)|
000029b0  f2 57 69 6d 70 5f 49 63  6f 6e 50 75 74 54 65 78  |.Wimp_IconPutTex|
000029c0  74 28 54 69 6d 65 72 5f  57 69 6e 64 6f 77 25 2c  |t(Timer_Window%,|
000029d0  33 2c 61 24 29 0d 0e e2  05 cd 0d 0e ec 05 cd 0d  |3,a$)...........|
000029e0  0e f6 0c 20 20 20 20 20  20 20 e1 0d 0f 00 0c 20  |...       ..... |
000029f0  20 20 20 20 20 20 3a 0d  0f 0a 2b 20 20 20 20 20  |      :...+     |
00002a00  20 20 dd 20 f2 45 76 65  6e 74 5f 53 61 76 65 46  |  . .Event_SaveF|
00002a10  69 6c 65 28 66 69 6c 65  24 2c 77 69 6e 64 6f 77  |ile(file$,window|
00002a20  25 29 0d 0f 14 19 20 20  20 20 20 20 20 20 20 c8  |%)....         .|
00002a30  8e 20 77 69 6e 64 6f 77  25 20 ca 0d 0f 1e 12 c9  |. window% ......|
00002a40  20 53 61 76 65 5f 57 69  6e 64 6f 77 25 0d 0f 28  | Save_Window%..(|
00002a50  07 ea 20 85 0d 0f 32 10  ee 20 85 20 ea 20 f2 65  |.. ...2.. . . .e|
00002a60  72 72 6f 72 0d 0f 3c 11  e7 20 44 4f 53 41 56 45  |rror..<.. DOSAVE|
00002a70  25 3d b9 20 8c 0d 0f 46  0d 55 50 44 41 54 45 25  |%=. ...F.UPDATE%|
00002a80  3d a3 0d 0f 50 0e f2 69  6e 70 75 74 6d 61 69 6e  |=...P..inputmain|
00002a90  0d 0f 5a 0f 58 25 3d ae  28 66 69 6c 65 24 29 0d  |..Z.X%=.(file$).|
00002aa0  0f 64 0d f1 20 23 58 25  2c 70 61 25 0d 0f 6e 0e  |.d.. #X%,pa%..n.|
00002ab0  f1 20 23 58 25 2c 74 6f  74 25 0d 0f 78 10 e3 20  |. #X%,tot%..x.. |
00002ac0  41 3d 30 20 b8 20 74 6f  74 25 0d 0f 82 12 f1 20  |A=0 . tot%..... |
00002ad0  23 58 25 2c 6e 61 6d 65  24 28 41 29 0d 0f 8c 12  |#X%,name$(A)....|
00002ae0  f1 20 23 58 25 2c 74 79  70 65 25 28 41 29 0d 0f  |. #X%,type%(A)..|
00002af0  96 12 f1 20 23 58 25 2c  74 69 6d 65 25 28 41 29  |... #X%,time%(A)|
00002b00  0d 0f a0 07 ed 20 41 0d  0f aa 09 d9 20 23 58 25  |..... A..... #X%|
00002b10  0d 0f b4 1f ff 20 28 22  53 45 54 54 59 50 45 20  |..... ("SETTYPE |
00002b20  22 2b 66 69 6c 65 24 2b  22 20 41 43 43 22 29 0d  |"+file$+" ACC").|
00002b30  0f be 13 f2 57 69 6d 70  5f 4d 65 6e 75 43 6c 6f  |....Wimp_MenuClo|
00002b40  73 65 0d 0f c8 05 cd 0d  0f d2 1b e7 20 44 4f 53  |se.......... DOS|
00002b50  41 56 45 25 3d a3 20 8c  20 44 4f 53 41 56 45 25  |AVE%=. . DOSAVE%|
00002b60  3d b9 0d 0f dc 0e 20 20  20 20 20 20 20 20 20 cb  |=.....         .|
00002b70  0d 0f e6 0c 20 20 20 20  20 20 20 e1 0d 0f f0 05  |....       .....|
00002b80  3a 0d 0f fa 4e f4 20 2a  2a 2a 2a 2a 2a 2a 2a 2a  |:...N. *********|
00002b90  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00002bc0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 0d  |***************.|
00002bd0  10 04 05 3a 0d 10 0e 28  dd 20 f2 57 69 6d 70 5f  |...:...(. .Wimp_|
00002be0  57 69 6e 64 6f 77 41 6c  65 72 74 28 74 69 74 6c  |WindowAlert(titl|
00002bf0  65 24 2c 6d 65 73 73 61  67 65 24 29 0d 10 18 2b  |e$,message$)...+|
00002c00  f2 57 69 6d 70 5f 57 69  6e 64 6f 77 41 6c 65 72  |.Wimp_WindowAler|
00002c10  74 42 6f 78 28 74 69 74  6c 65 24 2c 6d 65 73 73  |tBox(title$,mess|
00002c20  61 67 65 24 2c 30 29 0d  10 22 05 e1 0d 10 2c 05  |age$,0).."....,.|
00002c30  3a 0d 10 36 33 dd 20 f2  57 69 6d 70 5f 57 69 6e  |:..63. .Wimp_Win|
00002c40  64 6f 77 41 6c 65 72 74  42 6f 78 28 74 69 74 6c  |dowAlertBox(titl|
00002c50  65 24 2c 6d 65 73 73 61  67 65 24 2c 62 75 74 74  |e$,message$,butt|
00002c60  6f 6e 25 29 0d 10 40 0f  ea 20 72 65 73 70 6f 6e  |on%)..@.. respon|
00002c70  73 65 25 0d 10 4a 17 24  28 77 69 6d 70 25 2b 34  |se%..J.$(wimp%+4|
00002c80  29 3d 6d 65 73 73 61 67  65 24 0d 10 54 10 c8 8e  |)=message$..T...|
00002c90  20 62 75 74 74 6f 6e 25  20 ca 0d 10 5e 19 20 c9  | button% ...^. .|
00002ca0  20 32 20 20 20 20 3a 20  72 65 73 70 6f 6e 73 65  | 2    : response|
00002cb0  25 3d 31 0d 10 68 1a 20  c9 20 31 20 20 20 20 3a  |%=1..h. . 1    :|
00002cc0  20 72 65 73 70 6f 6e 73  65 25 3d 31 35 0d 10 72  | response%=15..r|
00002cd0  21 20 c9 20 33 20 20 20  20 3a 20 72 65 73 70 6f  |! . 3    : respo|
00002ce0  6e 73 65 25 3d 28 31 3c  3c 35 29 2b 31 36 0d 10  |nse%=(1<<5)+16..|
00002cf0  7c 21 20 c9 20 34 20 20  20 20 3a 20 72 65 73 70  ||! . 4    : resp|
00002d00  6f 6e 73 65 25 3d 28 31  3c 3c 36 29 2b 31 36 0d  |onse%=(1<<6)+16.|
00002d10  10 86 14 7f 20 3a 20 72  65 73 70 6f 6e 73 65 25  |.... : response%|
00002d20  3d 31 36 0d 10 90 05 cb  0d 10 9a 3d c8 99 20 22  |=16........=.. "|
00002d30  57 69 6d 70 5f 52 65 70  6f 72 74 45 72 72 6f 72  |Wimp_ReportError|
00002d40  22 2c 77 69 6d 70 25 2c  72 65 73 70 6f 6e 73 65  |",wimp%,response|
00002d50  25 2c 74 69 74 6c 65 24  20 b8 20 2c 72 65 73 70  |%,title$ . ,resp|
00002d60  6f 6e 73 65 25 0d 10 a4  05 e1 0d 10 ae 05 3a 0d  |onse%.........:.|
00002d70  10 b8 29 dd 20 a4 57 69  6d 70 5f 57 69 6e 64 6f  |..). .Wimp_Windo|
00002d80  77 43 61 6e 63 65 6c 28  74 69 74 6c 65 24 2c 6d  |wCancel(title$,m|
00002d90  65 73 73 61 67 65 24 29  0d 10 c2 17 24 28 77 69  |essage$)....$(wi|
00002da0  6d 70 25 2b 34 29 3d 6d  65 73 73 61 67 65 24 0d  |mp%+4)=message$.|
00002db0  10 cc 10 72 65 73 70 6f  6e 73 65 25 3d 32 33 0d  |...response%=23.|
00002dc0  10 d6 3d c8 99 20 22 57  69 6d 70 5f 52 65 70 6f  |..=.. "Wimp_Repo|
00002dd0  72 74 45 72 72 6f 72 22  2c 77 69 6d 70 25 2c 72  |rtError",wimp%,r|
00002de0  65 73 70 6f 6e 73 65 25  2c 74 69 74 6c 65 24 20  |esponse%,title$ |
00002df0  b8 20 2c 72 65 73 70 6f  6e 73 65 25 0d 10 e0 10  |. ,response%....|
00002e00  3d 72 65 73 70 6f 6e 73  65 25 2d 32 0d 10 ea 05  |=response%-2....|
00002e10  3a 0d 10 f4 2b dd 20 f2  57 69 6d 70 5f 57 69 6e  |:...+. .Wimp_Win|
00002e20  64 6f 77 45 72 72 6f 72  42 6f 78 28 74 69 74 6c  |dowErrorBox(titl|
00002e30  65 24 2c 6d 65 73 73 61  67 65 24 29 0d 10 fe 2b  |e$,message$)...+|
00002e40  f2 57 69 6d 70 5f 57 69  6e 64 6f 77 41 6c 65 72  |.Wimp_WindowAler|
00002e50  74 42 6f 78 28 74 69 74  6c 65 24 2c 6d 65 73 73  |tBox(title$,mess|
00002e60  61 67 65 24 2c 32 29 0d  11 08 05 e1 0d 11 12 05  |age$,2).........|
00002e70  3a 0d 11 1c 20 dd 20 a4  57 69 6d 70 5f 57 69 6e  |:... . .Wimp_Win|
00002e80  64 6f 77 54 69 74 6c 65  28 77 69 6e 64 6f 77 25  |dowTitle(window%|
00002e90  29 0d 11 26 13 77 69 6d  70 25 21 30 3d 77 69 6e  |)..&.wimp%!0=win|
00002ea0  64 6f 77 25 0d 11 30 20  c8 99 20 22 57 69 6d 70  |dow%..0 .. "Wimp|
00002eb0  5f 47 65 74 57 69 6e 64  49 6e 66 6f 22 2c 2c 77  |_GetWindInfo",,w|
00002ec0  69 6d 70 25 0d 11 3a 36  e7 20 28 28 77 69 6d 70  |imp%..:6. ((wimp|
00002ed0  25 21 36 30 29 80 26 31  30 30 29 3d 30 20 85 20  |%!60).&100)=0 . |
00002ee0  31 2c 22 54 69 74 6c 65  20 69 73 6e 27 74 20 69  |1,"Title isn't i|
00002ef0  6e 64 69 72 65 63 74 65  64 22 0d 11 44 10 3d 24  |ndirected"..D.=$|
00002f00  28 77 69 6d 70 25 21 37  36 29 0d 11 4e 05 3a 0d  |(wimp%!76)..N.:.|
00002f10  11 58 1f dd 20 a4 57 69  6d 70 5f 57 69 6e 64 6f  |.X.. .Wimp_Windo|
00002f20  77 4c 6f 61 64 28 77 69  6e 64 6f 77 24 29 0d 11  |wLoad(window$)..|
00002f30  62 39 3d a4 57 69 6d 70  5f 57 69 6e 64 6f 77 4c  |b9=.Wimp_WindowL|
00002f40  6f 61 64 46 72 6f 6d 28  77 69 6e 64 6f 77 24 2c  |oadFrom(window$,|
00002f50  22 3c 4f 62 65 79 24 44  69 72 3e 2e 54 65 6d 70  |"<Obey$Dir>.Temp|
00002f60  6c 61 74 65 73 22 29 0d  11 6c 05 3a 0d 11 76 2d  |lates")..l.:..v-|
00002f70  dd 20 a4 57 69 6d 70 5f  57 69 6e 64 6f 77 4c 6f  |. .Wimp_WindowLo|
00002f80  61 64 46 72 6f 6d 28 77  69 6e 64 6f 77 24 2c 74  |adFrom(window$,t|
00002f90  65 6d 70 6c 61 74 65 24  29 0d 11 80 1a ea 20 63  |emplate$)..... c|
00002fa0  25 2c 69 25 2c 6e 25 2c  6a 25 2c 73 70 24 2c 73  |%,i%,n%,j%,sp$,s|
00002fb0  70 32 24 0d 11 8a 25 c8  99 20 22 57 69 6d 70 5f  |p2$...%.. "Wimp_|
00002fc0  4f 70 65 6e 54 65 6d 70  6c 61 74 65 22 2c 2c 74  |OpenTemplate",,t|
00002fd0  65 6d 70 6c 61 74 65 24  0d 11 94 4d c8 99 20 22  |emplate$...M.. "|
00002fe0  57 69 6d 70 5f 4c 6f 61  64 54 65 6d 70 6c 61 74  |Wimp_LoadTemplat|
00002ff0  65 22 2c 2c 77 69 6d 70  25 2c 69 63 6f 6e 73 25  |e",,wimp%,icons%|
00003000  2c 69 63 6f 6e 5f 6d 65  6d 6f 72 79 25 2c 2d 31  |,icon_memory%,-1|
00003010  2c 77 69 6e 64 6f 77 24  2c 30 20 b8 20 2c 2c 69  |,window$,0 . ,,i|
00003020  63 6f 6e 73 25 0d 11 9e  11 c8 8e 20 73 70 72 69  |cons%...... spri|
00003030  74 65 73 25 20 ca 0d 11  a8 1f 20 c9 20 31 20 20  |tes% ..... . 1  |
00003040  20 20 3a 20 77 69 6d 70  25 21 36 34 3d 73 70 72  |  : wimp%!64=spr|
00003050  69 74 65 73 25 0d 11 b2  29 20 7f 20 3a 20 77 69  |ites%...) . : wi|
00003060  6d 70 25 21 36 34 3d a4  45 76 65 6e 74 5f 53 70  |mp%!64=.Event_Sp|
00003070  72 69 74 65 73 28 77 69  6e 64 6f 77 25 29 0d 11  |rites(window%)..|
00003080  bc 05 cb 0d 11 c6 26 c8  99 20 22 57 69 6d 70 5f  |......&.. "Wimp_|
00003090  43 72 65 61 74 65 57 69  6e 64 6f 77 22 2c 2c 77  |CreateWindow",,w|
000030a0  69 6d 70 25 20 b8 20 63  25 0d 11 d0 1b c8 99 20  |imp% . c%...... |
000030b0  22 57 69 6d 70 5f 43 6c  6f 73 65 54 65 6d 70 6c  |"Wimp_CloseTempl|
000030c0  61 74 65 22 0d 11 da 37  c8 99 20 22 57 69 6d 70  |ate"...7.. "Wimp|
000030d0  5f 57 68 69 63 68 49 63  6f 6e 22 2c 63 25 2c 77  |_WhichIcon",c%,w|
000030e0  69 6d 70 25 2b 34 30 2c  31 2b 32 2b 28 31 3c 3c  |imp%+40,1+2+(1<<|
000030f0  38 29 2c 32 2b 28 31 3c  3c 38 29 0d 11 e4 11 c8  |8),2+(1<<8).....|
00003100  8e 20 77 69 6d 70 25 21  34 30 20 ca 0d 11 ee 0d  |. wimp%!40 .....|
00003110  20 c9 20 2d 31 20 20 20  3a 0d 11 f8 0e 20 7f 20  | . -1   :.... . |
00003120  3a 20 69 25 3d 34 30 0d  12 02 06 20 f5 0d 12 0c  |: i%=40.... ....|
00003130  24 20 20 20 77 69 6d 70  25 21 34 3d 77 69 6d 70  |$   wimp%!4=wimp|
00003140  25 21 69 25 20 3a 20 77  69 6d 70 25 21 30 3d 63  |%!i% : wimp%!0=c|
00003150  25 0d 12 16 24 20 20 20  c8 99 20 22 57 69 6d 70  |%...$   .. "Wimp|
00003160  5f 47 65 74 49 63 6f 6e  53 74 61 74 65 22 2c 2c  |_GetIconState",,|
00003170  77 69 6d 70 25 0d 12 20  2d 20 20 20 73 70 24 3d  |wimp%.. -   sp$=|
00003180  a4 57 69 6d 70 5f 47 65  74 53 74 72 69 6e 67 41  |.Wimp_GetStringA|
00003190  74 41 64 64 72 65 73 73  28 77 69 6d 70 25 21 32  |tAddress(wimp%!2|
000031a0  38 29 0d 12 2a 22 20 20  20 c8 99 20 22 57 69 6d  |8)..*"   .. "Wim|
000031b0  70 5f 44 65 6c 65 74 65  49 63 6f 6e 22 2c 2c 77  |p_DeleteIcon",,w|
000031c0  69 6d 70 25 0d 12 34 14  20 20 20 c8 8e 20 73 70  |imp%..4.   .. sp|
000031d0  72 69 74 65 73 25 20 ca  0d 12 3e 1b 20 20 20 20  |rites% ...>.    |
000031e0  c9 20 31 20 20 20 20 3a  20 77 69 6d 70 25 21 33  |. 1    : wimp%!3|
000031f0  32 3d 31 0d 12 48 0b 20  20 20 20 7f 20 3a 0d 12  |2=1..H.    . :..|
00003200  52 2f 20 20 20 20 20 c8  99 20 22 4f 53 5f 53 70  |R/     .. "OS_Sp|
00003210  72 69 74 65 4f 70 22 2c  26 31 30 38 2c 73 70 72  |riteOp",&108,spr|
00003220  69 74 65 73 25 20 b8 20  2c 2c 2c 6e 25 0d 12 5c  |ites% . ,,,n%..\|
00003230  0d 20 20 20 20 20 6a 25  3d 30 0d 12 66 12 20 20  |.     j%=0..f.  |
00003240  20 20 20 f5 20 3a 20 6a  25 2b 3d 31 0d 12 70 3d  |   . : j%+=1..p=|
00003250  20 20 20 20 20 20 c8 99  20 22 4f 53 5f 53 70 72  |      .. "OS_Spr|
00003260  69 74 65 4f 70 22 2c 26  31 30 44 2c 73 70 72 69  |iteOp",&10D,spri|
00003270  74 65 73 25 2c 70 6f 69  6e 74 65 72 5f 62 6c 6f  |tes%,pointer_blo|
00003280  63 6b 25 2c 32 30 2c 6a  25 0d 12 7a 37 20 20 20  |ck%,20,j%..z7   |
00003290  20 20 20 73 70 32 24 3d  a4 57 69 6d 70 5f 47 65  |   sp2$=.Wimp_Ge|
000032a0  74 53 74 72 69 6e 67 41  74 41 64 64 72 65 73 73  |tStringAtAddress|
000032b0  28 70 6f 69 6e 74 65 72  5f 62 6c 6f 63 6b 25 29  |(pointer_block%)|
000032c0  0d 12 84 1b 20 20 20 20  20 fd 20 6a 25 3d 6e 25  |....     . j%=n%|
000032d0  20 84 20 73 70 24 3d 73  70 32 24 0d 12 8e 34 20  | . sp$=sp2$...4 |
000032e0  20 20 20 20 e7 20 73 70  24 3d 73 70 32 24 20 8c  |    . sp$=sp2$ .|
000032f0  20 77 69 6d 70 25 21 33  32 3d 73 70 72 69 74 65  | wimp%!32=sprite|
00003300  73 25 20 8b 20 77 69 6d  70 25 21 33 32 3d 31 0d  |s% . wimp%!32=1.|
00003310  12 98 08 20 20 20 cb 0d  12 a2 11 20 20 20 77 69  |...   .....   wi|
00003320  6d 70 25 21 34 3d 63 25  0d 12 ac 2e 20 20 20 c8  |mp%!4=c%....   .|
00003330  99 20 22 57 69 6d 70 5f  43 72 65 61 74 65 49 63  |. "Wimp_CreateIc|
00003340  6f 6e 22 2c 2c 77 69 6d  70 25 2b 34 20 b8 20 68  |on",,wimp%+4 . h|
00003350  61 6e 64 6c 65 25 0d 12  b6 0c 20 20 20 69 25 2b  |andle%....   i%+|
00003360  3d 34 0d 12 c0 14 20 fd  20 28 77 69 6d 70 25 21  |=4.... . (wimp%!|
00003370  69 25 29 3d 2d 31 0d 12  ca 05 cb 0d 12 d4 07 3d  |i%)=-1.........=|
00003380  63 25 0d 12 de 05 3a 0d  12 e8 25 dd 20 f2 57 69  |c%....:...%. .Wi|
00003390  6d 70 5f 57 69 6e 64 6f  77 42 72 69 6e 67 54 6f  |mp_WindowBringTo|
000033a0  54 6f 70 28 77 69 6e 64  6f 77 25 29 0d 12 f2 12  |Top(window%)....|
000033b0  21 77 69 6d 70 25 3d 77  69 6e 64 6f 77 25 0d 12  |!wimp%=window%..|
000033c0  fc 23 c8 99 20 22 57 69  6d 70 5f 47 65 74 57 69  |.#.. "Wimp_GetWi|
000033d0  6e 64 6f 77 53 74 61 74  65 22 2c 2c 77 69 6d 70  |ndowState",,wimp|
000033e0  25 0d 13 06 0f 77 69 6d  70 25 21 32 38 3d 2d 31  |%....wimp%!28=-1|
000033f0  0d 13 10 1f c8 99 20 22  57 69 6d 70 5f 4f 70 65  |...... "Wimp_Ope|
00003400  6e 57 69 6e 64 6f 77 22  2c 2c 77 69 6d 70 25 0d  |nWindow",,wimp%.|
00003410  13 1a 05 e1 0d 13 24 05  3a 0d 13 2e 20 dd 20 f2  |......$.:... . .|
00003420  57 69 6d 70 5f 57 69 6e  64 6f 77 43 6c 6f 73 65  |Wimp_WindowClose|
00003430  28 77 69 6e 64 6f 77 25  29 0d 13 38 12 21 77 69  |(window%)..8.!wi|
00003440  6d 70 25 3d 77 69 6e 64  6f 77 25 0d 13 42 24 e7  |mp%=window%..B$.|
00003450  20 77 69 6e 64 6f 77 25  3d 4d 61 69 6e 5f 57 69  | window%=Main_Wi|
00003460  6e 64 6f 77 25 20 8c 20  6f 70 65 6e 25 3d a3 0d  |ndow% . open%=..|
00003470  13 4c 20 c8 99 20 22 57  69 6d 70 5f 43 6c 6f 73  |.L .. "Wimp_Clos|
00003480  65 57 69 6e 64 6f 77 22  2c 2c 77 69 6d 70 25 0d  |eWindow",,wimp%.|
00003490  13 56 05 e1 0d 13 60 05  3a 0d 13 6a 24 dd 20 f2  |.V....`.:..j$. .|
000034a0  57 69 6d 70 5f 57 69 6e  64 6f 77 46 6f 72 63 65  |Wimp_WindowForce|
000034b0  44 72 61 77 28 77 69 6e  64 6f 77 25 29 0d 13 74  |Draw(window%)..t|
000034c0  10 c8 8e 20 77 69 6e 64  6f 77 25 20 ca 0d 13 7e  |... window% ...~|
000034d0  38 20 c9 20 2d 31 20 20  20 3a 20 c8 99 20 22 57  |8 . -1   : .. "W|
000034e0  69 6d 70 5f 46 6f 72 63  65 52 65 64 72 61 77 22  |imp_ForceRedraw"|
000034f0  2c 2d 31 2c 30 2c 30 2c  32 2a 31 32 38 30 2c 32  |,-1,0,0,2*1280,2|
00003500  2a 31 30 32 34 0d 13 88  39 20 7f 20 3a 20 c8 99  |*1024...9 . : ..|
00003510  20 22 57 69 6d 70 5f 46  6f 72 63 65 52 65 64 72  | "Wimp_ForceRedr|
00003520  61 77 22 2c 77 69 6e 64  6f 77 25 2c 30 2c 2d 32  |aw",window%,0,-2|
00003530  2a 31 30 32 34 2c 32 2a  31 32 38 30 2c 30 0d 13  |*1024,2*1280,0..|
00003540  92 05 cb 0d 13 9c 05 e1  0d 13 a6 05 3a 0d 13 b0  |............:...|
00003550  1f dd 20 f2 57 69 6d 70  5f 57 69 6e 64 6f 77 4f  |.. .Wimp_WindowO|
00003560  70 65 6e 28 77 69 6e 64  6f 77 25 29 0d 13 ba 12  |pen(window%)....|
00003570  21 77 69 6d 70 25 3d 77  69 6e 64 6f 77 25 0d 13  |!wimp%=window%..|
00003580  c4 23 c8 99 20 22 57 69  6d 70 5f 47 65 74 57 69  |.#.. "Wimp_GetWi|
00003590  6e 64 6f 77 53 74 61 74  65 22 2c 2c 77 69 6d 70  |ndowState",,wimp|
000035a0  25 0d 13 ce 1f c8 99 20  22 57 69 6d 70 5f 4f 70  |%...... "Wimp_Op|
000035b0  65 6e 57 69 6e 64 6f 77  22 2c 2c 77 69 6d 70 25  |enWindow",,wimp%|
000035c0  0d 13 d8 05 e1 0d 13 e2  05 3a 0d 13 ec 19 f2 57  |.........:.....W|
000035d0  69 6d 70 5f 57 69 6e 64  6f 77 49 6e 74 65 72 66  |imp_WindowInterf|
000035e0  61 63 65 0d 13 f6 20 c8  99 22 57 69 6d 70 5f 42  |ace... .."Wimp_B|
000035f0  6f 72 64 65 72 57 69 6e  64 6f 77 22 2c 2c 77 69  |orderWindow",,wi|
00003600  6d 70 25 0d 14 00 05 e1  0d 14 0a 05 3a 0d 14 14  |mp%.........:...|
00003610  4e f4 20 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |N. *************|
00003620  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00003650  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 0d 14 1e 05 3a  |***********....:|
00003660  0d 14 28 30 dd 20 f2 57  69 6d 70 5f 53 65 74 49  |..(0. .Wimp_SetI|
00003670  63 6f 6e 53 70 72 69 74  65 28 77 69 6e 64 6f 77  |conSprite(window|
00003680  25 2c 69 63 6f 6e 25 2c  73 70 72 69 74 65 24 29  |%,icon%,sprite$)|
00003690  0d 14 32 13 77 69 6d 70  25 21 30 3d 77 69 6e 64  |..2.wimp%!0=wind|
000036a0  6f 77 25 0d 14 3c 11 77  69 6d 70 25 21 34 3d 69  |ow%..<.wimp%!4=i|
000036b0  63 6f 6e 25 0d 14 46 21  c8 99 20 22 57 69 6d 70  |con%..F!.. "Wimp|
000036c0  5f 47 65 74 49 63 6f 6e  53 74 61 74 65 22 2c 2c  |_GetIconState",,|
000036d0  77 69 6d 70 25 0d 14 50  19 24 77 69 6d 70 25 21  |wimp%..P.$wimp%!|
000036e0  33 32 3d 22 53 22 2b 73  70 72 69 74 65 24 0d 14  |32="S"+sprite$..|
000036f0  5a 13 77 69 6d 70 25 21  30 3d 77 69 6e 64 6f 77  |Z.wimp%!0=window|
00003700  25 0d 14 64 0d 77 69 6d  70 25 21 38 3d 30 0d 14  |%..d.wimp%!8=0..|
00003710  6e 0e 77 69 6d 70 25 21  31 32 3d 30 0d 14 78 21  |n.wimp%!12=0..x!|
00003720  c8 99 20 22 57 69 6d 70  5f 53 65 74 49 63 6f 6e  |.. "Wimp_SetIcon|
00003730  53 74 61 74 65 22 2c 2c  77 69 6d 70 25 0d 14 82  |State",,wimp%...|
00003740  05 e1 0d 14 8c 05 3a 0d  14 96 1c dd 20 a4 57 69  |......:..... .Wi|
00003750  6d 70 5f 49 63 6f 6e 42  61 72 28 53 70 72 69 74  |mp_IconBar(Sprit|
00003760  65 24 29 0d 14 a0 0b ea  20 69 63 6f 6e 25 0d 14  |e$)..... icon%..|
00003770  aa 0e 77 69 6d 70 25 21  30 3d 2d 31 0d 14 b4 1d  |..wimp%!0=-1....|
00003780  77 69 6d 70 25 21 34 3d  30 20 20 20 20 20 3a 20  |wimp%!4=0     : |
00003790  77 69 6d 70 25 21 38 3d  30 0d 14 be 1d 77 69 6d  |wimp%!8=0....wim|
000037a0  70 25 21 31 32 3d 36 38  20 3a 20 77 69 6d 70 25  |p%!12=68 : wimp%|
000037b0  21 31 36 3d 36 38 0d 14  c8 12 77 69 6d 70 25 21  |!16=68....wimp%!|
000037c0  32 30 3d 26 33 30 30 32  0d 14 d2 17 24 28 77 69  |20=&3002....$(wi|
000037d0  6d 70 25 2b 32 34 29 3d  53 70 72 69 74 65 24 0d  |mp%+24)=Sprite$.|
000037e0  14 dc 27 c8 99 20 22 57  69 6d 70 5f 43 72 65 61  |..'.. "Wimp_Crea|
000037f0  74 65 49 63 6f 6e 22 2c  2c 77 69 6d 70 25 20 b8  |teIcon",,wimp% .|
00003800  20 69 63 6f 6e 25 0d 14  e6 0a 3d 69 63 6f 6e 25  | icon%....=icon%|
00003810  0d 14 f0 05 3a 0d 14 fa  2b dd 20 f2 57 69 6d 70  |....:...+. .Wimp|
00003820  5f 49 63 6f 6e 43 61 72  65 74 28 77 69 6e 64 6f  |_IconCaret(windo|
00003830  77 25 2c 69 63 6f 6e 25  2c 63 68 61 72 73 25 29  |w%,icon%,chars%)|
00003840  0d 15 04 38 c8 99 20 22  57 69 6d 70 5f 53 65 74  |...8.. "Wimp_Set|
00003850  43 61 72 65 74 50 6f 73  69 74 69 6f 6e 22 2c 77  |CaretPosition",w|
00003860  69 6e 64 6f 77 25 2c 69  63 6f 6e 25 2c 2c 2c 2d  |indow%,icon%,,,-|
00003870  31 2c 63 68 61 72 73 25  0d 15 0e 05 e1 0d 15 18  |1,chars%........|
00003880  05 3a 0d 15 22 23 dd 20  a4 57 69 6d 70 5f 49 63  |.:.."#. .Wimp_Ic|
00003890  6f 6e 54 65 78 74 28 77  69 6e 64 6f 77 25 2c 69  |onText(window%,i|
000038a0  63 6f 6e 25 29 0d 15 2c  23 77 69 6d 70 25 21 30  |con%)..,#wimp%!0|
000038b0  3d 77 69 6e 64 6f 77 25  20 3a 20 77 69 6d 70 25  |=window% : wimp%|
000038c0  21 34 3d 69 63 6f 6e 25  0d 15 36 21 c8 99 20 22  |!4=icon%..6!.. "|
000038d0  57 69 6d 70 5f 47 65 74  49 63 6f 6e 53 74 61 74  |Wimp_GetIconStat|
000038e0  65 22 2c 2c 77 69 6d 70  25 0d 15 40 37 e7 20 28  |e",,wimp%..@7. (|
000038f0  28 77 69 6d 70 25 21 32  34 29 20 80 20 26 31 30  |(wimp%!24) . &10|
00003900  30 29 3d 30 20 85 20 31  2c 22 49 63 6f 6e 20 69  |0)=0 . 1,"Icon i|
00003910  73 6e 27 74 20 69 6e 64  69 72 65 63 74 65 64 22  |sn't indirected"|
00003920  0d 15 4a 10 3d 24 28 77  69 6d 70 25 21 32 38 29  |..J.=$(wimp%!28)|
00003930  0d 15 54 05 3a 0d 15 5e  29 dd 20 a4 57 69 6d 70  |..T.:..^). .Wimp|
00003940  5f 49 63 6f 6e 56 61 6c  69 64 61 74 69 6f 6e 28  |_IconValidation(|
00003950  77 69 6e 64 6f 77 25 2c  69 63 6f 6e 25 29 0d 15  |window%,icon%)..|
00003960  68 23 77 69 6d 70 25 21  30 3d 77 69 6e 64 6f 77  |h#wimp%!0=window|
00003970  25 20 3a 20 77 69 6d 70  25 21 34 3d 69 63 6f 6e  |% : wimp%!4=icon|
00003980  25 0d 15 72 21 c8 99 20  22 57 69 6d 70 5f 47 65  |%..r!.. "Wimp_Ge|
00003990  74 49 63 6f 6e 53 74 61  74 65 22 2c 2c 77 69 6d  |tIconState",,wim|
000039a0  70 25 0d 15 7c 37 e7 20  28 28 77 69 6d 70 25 21  |p%..|7. ((wimp%!|
000039b0  32 34 29 20 80 20 26 31  30 30 29 3d 30 20 85 20  |24) . &100)=0 . |
000039c0  31 2c 22 49 63 6f 6e 20  69 73 6e 27 74 20 69 6e  |1,"Icon isn't in|
000039d0  64 69 72 65 63 74 65 64  22 0d 15 86 10 3d 24 28  |directed"....=$(|
000039e0  77 69 6d 70 25 21 33 32  29 0d 15 90 05 3a 0d 15  |wimp%!32)....:..|
000039f0  9a 26 dd 20 f2 57 69 6d  70 5f 49 63 6f 6e 44 69  |.&. .Wimp_IconDi|
00003a00  73 61 62 6c 65 28 77 69  6e 64 6f 77 25 2c 69 63  |sable(window%,ic|
00003a10  6f 6e 25 29 0d 15 a4 23  77 69 6d 70 25 21 30 3d  |on%)...#wimp%!0=|
00003a20  77 69 6e 64 6f 77 25 20  3a 20 77 69 6d 70 25 21  |window% : wimp%!|
00003a30  34 3d 69 63 6f 6e 25 0d  15 ae 24 77 69 6d 70 25  |4=icon%...$wimp%|
00003a40  21 38 3d 31 3c 3c 32 32  20 20 20 3a 20 77 69 6d  |!8=1<<22   : wim|
00003a50  70 25 21 31 32 3d 31 3c  3c 32 32 0d 15 b8 21 c8  |p%!12=1<<22...!.|
00003a60  99 20 22 57 69 6d 70 5f  53 65 74 49 63 6f 6e 53  |. "Wimp_SetIconS|
00003a70  74 61 74 65 22 2c 2c 77  69 6d 70 25 0d 15 c2 05  |tate",,wimp%....|
00003a80  e1 0d 15 cc 05 3a 0d 15  d6 25 dd 20 f2 57 69 6d  |.....:...%. .Wim|
00003a90  70 5f 49 63 6f 6e 45 6e  61 62 6c 65 28 77 69 6e  |p_IconEnable(win|
00003aa0  64 6f 77 25 2c 69 63 6f  6e 25 29 0d 15 e0 23 77  |dow%,icon%)...#w|
00003ab0  69 6d 70 25 21 30 3d 77  69 6e 64 6f 77 25 20 3a  |imp%!0=window% :|
00003ac0  20 77 69 6d 70 25 21 34  3d 69 63 6f 6e 25 0d 15  | wimp%!4=icon%..|
00003ad0  ea 24 77 69 6d 70 25 21  38 3d 30 20 20 20 20 20  |.$wimp%!8=0     |
00003ae0  20 20 3a 20 77 69 6d 70  25 21 31 32 3d 31 3c 3c  |  : wimp%!12=1<<|
00003af0  32 32 0d 15 f4 21 c8 99  20 22 57 69 6d 70 5f 53  |22...!.. "Wimp_S|
00003b00  65 74 49 63 6f 6e 53 74  61 74 65 22 2c 2c 77 69  |etIconState",,wi|
00003b10  6d 70 25 0d 15 fe 05 e1  0d 16 08 05 3a 0d 16 12  |mp%.........:...|
00003b20  30 dd 20 a4 57 69 6d 70  5f 49 63 6f 6e 50 75 74  |0. .Wimp_IconPut|
00003b30  53 70 72 69 74 65 28 77  69 6e 64 6f 77 25 2c 69  |Sprite(window%,i|
00003b40  63 6f 6e 25 2c 73 70 72  69 74 65 24 29 0d 16 1c  |con%,sprite$)...|
00003b50  21 77 69 6d 70 25 21 30  3d 77 69 6e 64 6f 77 25  |!wimp%!0=window%|
00003b60  3a 77 69 6d 70 25 21 34  3d 69 63 6f 6e 25 0d 16  |:wimp%!4=icon%..|
00003b70  26 21 c8 99 20 22 57 69  6d 70 5f 47 65 74 49 63  |&!.. "Wimp_GetIc|
00003b80  6f 6e 53 74 61 74 65 22  2c 2c 77 69 6d 70 25 0d  |onState",,wimp%.|
00003b90  16 30 1f c8 99 20 22 57  69 6d 70 5f 44 65 6c 65  |.0... "Wimp_Dele|
00003ba0  74 65 49 63 6f 6e 22 2c  2c 77 69 6d 70 25 0d 16  |teIcon",,wimp%..|
00003bb0  3a 3d 77 69 6d 70 25 21  34 3d 77 69 6d 70 25 21  |:=wimp%!4=wimp%!|
00003bc0  38 20 20 20 3a 20 77 69  6d 70 25 21 38 3d 77 69  |8   : wimp%!8=wi|
00003bd0  6d 70 25 21 31 32 20 20  3a 20 77 69 6d 70 25 21  |mp%!12  : wimp%!|
00003be0  31 32 3d 77 69 6d 70 25  21 31 36 0d 16 44 3f 77  |12=wimp%!16..D?w|
00003bf0  69 6d 70 25 21 31 36 3d  77 69 6d 70 25 21 32 30  |imp%!16=wimp%!20|
00003c00  20 3a 20 77 69 6d 70 25  21 32 30 3d 77 69 6d 70  | : wimp%!20=wimp|
00003c10  25 21 32 34 20 3a 20 24  28 77 69 6d 70 25 2b 32  |%!24 : $(wimp%+2|
00003c20  34 29 3d 73 70 72 69 74  65 24 0d 16 4e 27 c8 99  |4)=sprite$..N'..|
00003c30  20 22 57 69 6d 70 5f 43  72 65 61 74 65 49 63 6f  | "Wimp_CreateIco|
00003c40  6e 22 2c 2c 77 69 6d 70  25 20 b8 20 69 63 6f 6e  |n",,wimp% . icon|
00003c50  25 0d 16 58 0a 3d 69 63  6f 6e 25 0d 16 62 05 3a  |%..X.=icon%..b.:|
00003c60  0d 16 6c 2c dd 20 f2 57  69 6d 70 5f 49 63 6f 6e  |..l,. .Wimp_Icon|
00003c70  50 75 74 54 65 78 74 28  77 69 6e 64 6f 77 25 2c  |PutText(window%,|
00003c80  69 63 6f 6e 25 2c 74 65  78 74 24 29 0d 16 76 23  |icon%,text$)..v#|
00003c90  77 69 6d 70 25 21 30 3d  77 69 6e 64 6f 77 25 20  |wimp%!0=window% |
00003ca0  3a 20 77 69 6d 70 25 21  34 3d 69 63 6f 6e 25 0d  |: wimp%!4=icon%.|
00003cb0  16 80 21 c8 99 20 22 57  69 6d 70 5f 47 65 74 49  |..!.. "Wimp_GetI|
00003cc0  63 6f 6e 53 74 61 74 65  22 2c 2c 77 69 6d 70 25  |conState",,wimp%|
00003cd0  0d 16 8a 37 e7 20 28 28  77 69 6d 70 25 21 32 34  |...7. ((wimp%!24|
00003ce0  29 20 80 20 26 31 30 30  29 3d 30 20 85 20 31 2c  |) . &100)=0 . 1,|
00003cf0  22 49 63 6f 6e 20 69 73  6e 27 74 20 69 6e 64 69  |"Icon isn't indi|
00003d00  72 65 63 74 65 64 22 0d  16 94 15 24 28 77 69 6d  |rected"....$(wim|
00003d10  70 25 21 32 38 29 3d 74  65 78 74 24 0d 16 9e 23  |p%!28)=text$...#|
00003d20  77 69 6d 70 25 21 30 3d  77 69 6e 64 6f 77 25 20  |wimp%!0=window% |
00003d30  3a 20 77 69 6d 70 25 21  34 3d 69 63 6f 6e 25 0d  |: wimp%!4=icon%.|
00003d40  16 a8 1a 77 69 6d 70 25  21 38 3d 30 20 3a 20 77  |...wimp%!8=0 : w|
00003d50  69 6d 70 25 21 31 32 3d  30 0d 16 b2 21 c8 99 20  |imp%!12=0...!.. |
00003d60  22 57 69 6d 70 5f 53 65  74 49 63 6f 6e 53 74 61  |"Wimp_SetIconSta|
00003d70  74 65 22 2c 2c 77 69 6d  70 25 0d 16 bc 05 e1 0d  |te",,wimp%......|
00003d80  16 c6 05 3a 0d 16 d0 1e  dd 20 f2 57 69 6d 70 5f  |...:..... .Wimp_|
00003d90  49 63 6f 6e 49 6e 74 65  72 66 61 63 65 53 74 61  |IconInterfaceSta|
00003da0  72 74 0d 16 da 1e c8 99  22 57 69 6d 70 5f 42 6f  |rt......"Wimp_Bo|
00003db0  72 64 65 72 49 63 6f 6e  22 2c 2c 77 69 6d 70 25  |rderIcon",,wimp%|
00003dc0  0d 16 e4 05 e1 0d 16 ee  05 3a 0d 16 f8 1f dd 20  |.........:..... |
00003dd0  f2 57 69 6d 70 5f 49 63  6f 6e 49 6e 74 65 72 66  |.Wimp_IconInterf|
00003de0  61 63 65 46 69 6e 69 73  68 0d 17 02 0d 77 69 6d  |aceFinish....wim|
00003df0  70 25 21 38 3d 30 0d 17  0c 1e c8 99 22 57 69 6d  |p%!8=0......"Wim|
00003e00  70 5f 42 6f 72 64 65 72  49 63 6f 6e 22 2c 2c 77  |p_BorderIcon",,w|
00003e10  69 6d 70 25 0d 17 16 05  e1 0d 17 20 05 3a 0d 17  |imp%....... .:..|
00003e20  2a 4e f4 20 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |*N. ************|
00003e30  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00003e60  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 0d 17 34 05  |************..4.|
00003e70  3a 0d 17 3e 1f dd 20 f2  57 69 6d 70 5f 4d 65 6e  |:..>.. .Wimp_Men|
00003e80  75 41 64 6a 75 73 74 4f  6e 28 6d 65 6e 75 25 29  |uAdjustOn(menu%)|
00003e90  0d 17 48 2c c8 99 20 22  57 69 6d 70 5f 47 65 74  |..H,.. "Wimp_Get|
00003ea0  50 6f 69 6e 74 65 72 49  6e 66 6f 22 2c 2c 70 6f  |PointerInfo",,po|
00003eb0  69 6e 74 65 72 5f 62 6c  6f 63 6b 25 0d 17 52 5e  |inter_block%..R^|
00003ec0  e7 20 28 28 70 6f 69 6e  74 65 72 5f 62 6c 6f 63  |. ((pointer_bloc|
00003ed0  6b 25 21 38 29 80 31 29  3d 31 20 8c 20 c8 99 20  |k%!8).1)=1 . .. |
00003ee0  22 57 69 6d 70 5f 43 72  65 61 74 65 4d 65 6e 75  |"Wimp_CreateMenu|
00003ef0  22 2c 2c 6d 65 6e 75 25  2c 70 6f 69 6e 74 65 72  |",,menu%,pointer|
00003f00  5f 62 6c 6f 63 6b 25 21  30 2c 70 6f 69 6e 74 65  |_block%!0,pointe|
00003f10  72 5f 62 6c 6f 63 6b 25  21 34 0d 17 5c 05 e1 0d  |r_block%!4..\...|
00003f20  17 66 05 3a 0d 17 70 1e  dd 20 a4 57 69 6d 70 5f  |.f.:..p.. .Wimp_|
00003f30  4d 65 6e 75 43 68 6f 69  63 65 28 6c 65 76 65 6c  |MenuChoice(level|
00003f40  25 29 0d 17 7a 19 3d 28  77 69 6d 70 25 21 28 34  |%)..z.=(wimp%!(4|
00003f50  2a 6c 65 76 65 6c 25 29  29 2b 31 0d 17 84 05 3a  |*level%))+1....:|
00003f60  0d 17 8e 1d dd 20 a4 57  69 6d 70 5f 4d 65 6e 75  |..... .Wimp_Menu|
00003f70  43 72 65 61 74 65 28 6d  65 6e 75 24 29 0d 17 98  |Create(menu$)...|
00003f80  29 e7 20 6d 65 6e 75 24  3d 22 43 6f 6c 6f 75 72  |). menu$="Colour|
00003f90  73 22 20 8c 3d a4 57 69  6d 70 5f 4d 65 6e 75 43  |s" .=.Wimp_MenuC|
00003fa0  6f 6c 6f 75 72 73 0d 17  a2 27 ea 20 6d 65 6e 75  |olours...'. menu|
00003fb0  25 2c 69 6e 64 65 78 25  2c 77 69 64 74 68 25 2c  |%,index%,width%,|
00003fc0  6c 65 6e 67 74 68 25 2c  6b 25 2c 73 25 0d 17 ac  |length%,k%,s%...|
00003fd0  2e de 20 6d 65 6e 75 25  20 32 38 2b a4 57 69 6d  |.. menu% 28+.Wim|
00003fe0  70 5f 4d 65 6e 75 4e 6f  4f 66 45 6e 74 72 69 65  |p_MenuNoOfEntrie|
00003ff0  73 28 6d 65 6e 75 24 29  2a 32 34 0d 17 b6 37 6d  |s(menu$)*24...7m|
00004000  65 6e 75 25 3f 31 32 3d  37 20 20 20 3a 20 6d 65  |enu%?12=7   : me|
00004010  6e 75 25 3f 31 33 3d 32  20 20 3a 20 6d 65 6e 75  |nu%?13=2  : menu|
00004020  25 3f 31 34 3d 37 20 3a  6d 65 6e 75 25 3f 31 35  |%?14=7 :menu%?15|
00004030  3d 30 0d 17 c0 2b 6d 65  6e 75 25 21 31 36 3d 31  |=0...+menu%!16=1|
00004040  34 30 20 3a 20 6d 65 6e  75 25 21 32 30 3d 34 34  |40 : menu%!20=44|
00004050  20 3a 20 6d 65 6e 75 25  21 32 34 3d 30 0d 17 ca  | : menu%!24=0...|
00004060  13 69 6e 64 65 78 25 3d  6d 65 6e 75 25 2b 32 38  |.index%=menu%+28|
00004070  0d 17 d4 20 24 6d 65 6e  75 25 3d c0 6d 65 6e 75  |... $menu%=.menu|
00004080  24 2c a7 6d 65 6e 75 24  2c 22 5c 22 29 2d 31 29  |$,.menu$,"\")-1)|
00004090  0d 17 de 23 77 69 64 74  68 25 3d a9 28 c0 6d 65  |...#width%=.(.me|
000040a0  6e 75 24 2c a7 6d 65 6e  75 24 2c 22 5c 22 29 2d  |nu$,.menu$,"\")-|
000040b0  31 29 29 0d 17 e8 24 6d  65 6e 75 24 2b 3d 22 5c  |1))...$menu$+="\|
000040c0  22 20 3a 20 4d 65 6e 75  5f 4e 6f 4f 66 45 6e 74  |" : Menu_NoOfEnt|
000040d0  72 69 65 73 25 3d 30 0d  17 f2 10 c8 95 20 6d 65  |ries%=0...... me|
000040e0  6e 75 24 3c 3e 22 22 0d  17 fc 1f 6d 65 6e 75 24  |nu$<>""....menu$|
000040f0  3d c1 6d 65 6e 75 24 2c  a7 6d 65 6e 75 24 2c 22  |=.menu$,.menu$,"|
00004100  5c 22 29 2b 31 29 0d 18  06 0e c8 8e 20 6d 65 6e  |\")+1)...... men|
00004110  75 24 20 ca 0d 18 10 09  20 c9 20 22 22 0d 18 1a  |u$ ..... . ""...|
00004120  08 20 7f 20 3a 0d 18 24  31 20 20 21 69 6e 64 65  |. . :..$1  !inde|
00004130  78 25 3d 30 20 3a 20 69  6e 64 65 78 25 21 34 3d  |x%=0 : index%!4=|
00004140  2d 31 20 3a 20 69 6e 64  65 78 25 21 38 3d 26 37  |-1 : index%!8=&7|
00004150  30 30 30 30 32 31 0d 18  2e 1b 20 20 6c 65 6e 67  |000021....  leng|
00004160  74 68 25 3d a7 6d 65 6e  75 24 2c 22 5c 22 29 2d  |th%=.menu$,"\")-|
00004170  31 0d 18 38 1e 20 20 6b  25 3d a7 c0 6d 65 6e 75  |1..8.  k%=..menu|
00004180  24 2c 6c 65 6e 67 74 68  25 29 2c 22 3e 22 29 0d  |$,length%),">").|
00004190  18 42 0d 20 20 c8 8e 20  6b 25 20 ca 0d 18 4c 0a  |.B.  .. k% ...L.|
000041a0  20 20 20 c9 20 30 0d 18  56 08 20 20 20 7f 0d 18  |   . 0..V.   ...|
000041b0  60 25 20 20 20 20 73 25  3d a0 28 c1 6d 65 6e 75  |`%    s%=.(.menu|
000041c0  24 2c 6b 25 2b 31 2c 6c  65 6e 67 74 68 25 2d 6b  |$,k%+1,length%-k|
000041d0  25 29 29 0d 18 6a 13 20  20 20 20 69 6e 64 65 78  |%))..j.    index|
000041e0  25 21 34 3d 73 25 0d 18  74 14 20 20 20 20 6c 65  |%!4=s%..t.    le|
000041f0  6e 67 74 68 25 3d 6b 25  2d 31 0d 18 7e 07 20 20  |ngth%=k%-1..~.  |
00004200  cb 0d 18 88 22 20 20 24  28 69 6e 64 65 78 25 2b  |...."  $(index%+|
00004210  31 32 29 3d c0 6d 65 6e  75 24 2c 6c 65 6e 67 74  |12)=.menu$,lengt|
00004220  68 25 29 0d 18 92 27 20  20 e7 20 6c 65 6e 67 74  |h%)...'  . lengt|
00004230  68 25 3e 77 69 64 74 68  25 20 8c 20 77 69 64 74  |h%>width% . widt|
00004240  68 25 3d 6c 65 6e 67 74  68 25 0d 18 9c 10 20 20  |h%=length%....  |
00004250  69 6e 64 65 78 25 2b 3d  32 34 0d 18 a6 05 cb 0d  |index%+=24......|
00004260  18 b0 05 ce 0d 18 ba 1a  6d 65 6e 75 25 21 31 36  |........menu%!16|
00004270  3d 31 36 2a 28 77 69 64  74 68 25 2b 31 29 0d 18  |=16*(width%+1)..|
00004280  c4 28 69 6e 64 65 78 25  21 2d 32 34 3d 69 6e 64  |.(index%!-24=ind|
00004290  65 78 25 21 2d 32 34 20  84 20 26 38 30 20 3a 20  |ex%!-24 . &80 : |
000042a0  3d 6d 65 6e 75 25 0d 18  ce 05 3a 0d 18 d8 17 dd  |=menu%....:.....|
000042b0  20 a4 57 69 6d 70 5f 4d  65 6e 75 43 6f 6c 6f 75  | .Wimp_MenuColou|
000042c0  72 73 0d 18 e2 21 3d a4  57 69 6d 70 5f 4d 65 6e  |rs...!=.Wimp_Men|
000042d0  75 43 72 65 61 74 65 43  6f 6c 6f 75 72 73 28 22  |uCreateColours("|
000042e0  20 22 29 0d 18 ec 05 3a  0d 18 f6 25 dd 20 a4 57  | ")....:...%. .W|
000042f0  69 6d 70 5f 4d 65 6e 75  43 72 65 61 74 65 43 6f  |imp_MenuCreateCo|
00004300  6c 6f 75 72 73 28 74 69  74 6c 65 24 29 0d 19 00  |lours(title$)...|
00004310  13 ea 20 78 24 2c 6d 65  6e 25 2c 6a 25 2c 69 25  |.. x$,men%,j%,i%|
00004320  0d 19 0a 36 78 24 3d 74  69 74 6c 65 24 2b 22 5c  |...6x$=title$+"\|
00004330  30 5c 31 5c 32 5c 33 5c  34 5c 35 5c 36 5c 37 5c  |0\1\2\3\4\5\6\7\|
00004340  38 5c 39 5c 31 30 5c 31  31 5c 31 32 5c 31 33 5c  |8\9\10\11\12\13\|
00004350  31 34 5c 31 35 22 0d 19  14 1d 6d 65 6e 25 3d a4  |14\15"....men%=.|
00004360  57 69 6d 70 5f 4d 65 6e  75 43 72 65 61 74 65 28  |Wimp_MenuCreate(|
00004370  78 24 29 0d 19 1e 0f e3  20 69 25 3d 30 20 b8 20  |x$)..... i%=0 . |
00004380  31 35 0d 19 28 0a c8 8e  20 b9 20 ca 0d 19 32 28  |15..(... . ...2(|
00004390  c9 20 69 25 3c 34 2c 69  25 3d 39 2c 69 25 3d 31  |. i%<4,i%=9,i%=1|
000043a0  32 2c 69 25 3d 31 34 2c  69 25 3d 31 35 20 3a 20  |2,i%=14,i%=15 : |
000043b0  6a 25 3d 37 0d 19 3c 0c  7f 20 3a 20 6a 25 3d 30  |j%=7..<.. : j%=0|
000043c0  0d 19 46 05 cb 0d 19 50  1c 6d 65 6e 25 3f 28 33  |..F....P.men%?(3|
000043d0  39 2b 69 25 2a 32 34 29  3d 69 25 2a 31 36 2b 6a  |9+i%*24)=i%*16+j|
000043e0  25 0d 19 5a 1f f2 57 69  6d 70 5f 4d 65 6e 75 43  |%..Z..Wimp_MenuC|
000043f0  65 6e 74 72 65 28 6d 65  6e 25 2c 69 25 2b 31 29  |entre(men%,i%+1)|
00004400  0d 19 64 05 ed 0d 19 6e  09 3d 6d 65 6e 25 0d 19  |..d....n.=men%..|
00004410  78 05 3a 0d 19 82 22 dd  20 a4 57 69 6d 70 5f 4d  |x.:...". .Wimp_M|
00004420  65 6e 75 4e 6f 4f 66 45  6e 74 72 69 65 73 28 6d  |enuNoOfEntries(m|
00004430  65 6e 75 24 29 0d 19 8c  1a ea 20 6e 25 20 2c 6a  |enu$)..... n% ,j|
00004440  25 20 3a 20 6e 25 3d 30  20 3a 20 6a 25 3d 30 0d  |% : n%=0 : j%=0.|
00004450  19 96 05 f5 0d 19 a0 17  6a 25 3d a7 6d 65 6e 75  |........j%=.menu|
00004460  24 2c 22 5c 22 2c 6a 25  2b 31 29 0d 19 aa 13 e7  |$,"\",j%+1).....|
00004470  20 6a 25 3c 3e 30 20 8c  20 6e 25 2b 3d 31 0d 19  | j%<>0 . n%+=1..|
00004480  b4 0a fd 20 6a 25 3d 30  0d 19 be 07 3d 6e 25 0d  |... j%=0....=n%.|
00004490  19 c8 05 3a 0d 19 d2 35  dd 20 f2 57 69 6d 70 5f  |...:...5. .Wimp_|
000044a0  4d 65 6e 75 42 61 63 6b  47 72 6f 75 6e 64 43 6f  |MenuBackGroundCo|
000044b0  6c 6f 75 72 28 6d 65 6e  75 25 2c 69 74 65 6d 25  |lour(menu%,item%|
000044c0  2c 63 6f 6c 6f 75 72 25  29 0d 19 dc 0e ea 20 66  |,colour%)..... f|
000044d0  6f 72 65 25 2c 69 25 0d  19 e6 26 66 6f 72 65 25  |ore%,i%...&fore%|
000044e0  3d 28 6d 65 6e 75 25 3f  28 33 39 2b 28 69 74 65  |=(menu%?(39+(ite|
000044f0  6d 25 2d 31 29 2a 32 34  29 29 83 31 36 0d 19 f0  |m%-1)*24)).16...|
00004500  28 69 25 3d 28 28 6d 65  6e 75 25 3f 28 33 39 2b  |(i%=((menu%?(39+|
00004510  28 69 74 65 6d 25 2d 31  29 2a 32 34 29 29 81 31  |(item%-1)*24)).1|
00004520  36 29 83 31 36 0d 19 fa  2f 6d 65 6e 75 25 3f 28  |6).16.../menu%?(|
00004530  33 39 2b 28 69 74 65 6d  25 2d 31 29 2a 32 34 29  |39+(item%-1)*24)|
00004540  3d 66 6f 72 65 25 2b 31  36 2a 63 6f 6c 6f 75 72  |=fore%+16*colour|
00004550  25 2b 69 25 0d 1a 04 05  e1 0d 1a 0e 05 3a 0d 1a  |%+i%.........:..|
00004560  18 23 dd 20 f2 57 69 6d  70 5f 4d 65 6e 75 43 65  |.#. .Wimp_MenuCe|
00004570  6e 74 72 65 28 6d 65 6e  75 25 2c 69 74 65 6d 25  |ntre(menu%,item%|
00004580  29 0d 1a 22 3a 6d 65 6e  75 25 21 28 33 36 2b 28  |)..":menu%!(36+(|
00004590  69 74 65 6d 25 2d 31 29  2a 32 34 29 3d 6d 65 6e  |item%-1)*24)=men|
000045a0  75 25 21 28 33 36 2b 28  69 74 65 6d 25 2d 31 29  |u%!(36+(item%-1)|
000045b0  2a 32 34 29 84 28 31 3c  3c 33 29 0d 1a 2c 05 e1  |*24).(1<<3)..,..|
000045c0  0d 1a 36 05 3a 0d 1a 40  15 dd 20 f2 57 69 6d 70  |..6.:..@.. .Wimp|
000045d0  5f 4d 65 6e 75 43 6c 6f  73 65 0d 1a 4a 1b c8 99  |_MenuClose..J...|
000045e0  20 22 57 69 6d 70 5f 43  72 65 61 74 65 4d 65 6e  | "Wimp_CreateMen|
000045f0  75 22 2c 2d 31 0d 1a 54  05 e1 0d 1a 5e 05 3a 0d  |u",-1..T....^.:.|
00004600  1a 68 24 dd 20 f2 57 69  6d 70 5f 4d 65 6e 75 44  |.h$. .Wimp_MenuD|
00004610  69 73 61 62 6c 65 28 6d  65 6e 75 25 2c 69 74 65  |isable(menu%,ite|
00004620  6d 25 29 0d 1a 72 3b 6d  65 6e 75 25 21 28 33 36  |m%)..r;menu%!(36|
00004630  2b 28 69 74 65 6d 25 2d  31 29 2a 32 34 29 3d 6d  |+(item%-1)*24)=m|
00004640  65 6e 75 25 21 28 33 36  2b 28 69 74 65 6d 25 2d  |enu%!(36+(item%-|
00004650  31 29 2a 32 34 29 84 28  31 3c 3c 32 32 29 0d 1a  |1)*24).(1<<22)..|
00004660  7c 05 e1 0d 1a 86 05 3a  0d 1a 90 27 dd 20 f2 57  ||......:...'. .W|
00004670  69 6d 70 5f 4d 65 6e 75  44 6f 74 74 65 64 4c 69  |imp_MenuDottedLi|
00004680  6e 65 28 6d 65 6e 75 25  2c 69 74 65 6d 25 29 0d  |ne(menu%,item%).|
00004690  1a 9a 37 6d 65 6e 75 25  21 28 32 38 2b 28 69 74  |..7menu%!(28+(it|
000046a0  65 6d 25 2d 31 29 2a 32  34 29 3d 28 6d 65 6e 75  |em%-1)*24)=(menu|
000046b0  25 21 28 32 38 2b 28 69  74 65 6d 25 2d 31 29 2a  |%!(28+(item%-1)*|
000046c0  32 34 29 29 84 32 0d 1a  a4 05 e1 0d 1a ae 05 3a  |24)).2.........:|
000046d0  0d 1a b8 23 dd 20 f2 57  69 6d 70 5f 4d 65 6e 75  |...#. .Wimp_Menu|
000046e0  45 6e 61 62 6c 65 28 6d  65 6e 75 25 2c 69 74 65  |Enable(menu%,ite|
000046f0  6d 25 29 0d 1a c2 22 f2  57 69 6d 70 5f 4d 65 6e  |m%)...".Wimp_Men|
00004700  75 44 69 73 61 62 6c 65  28 6d 65 6e 75 25 2c 69  |uDisable(menu%,i|
00004710  74 65 6d 25 29 0d 1a cc  3b 6d 65 6e 75 25 21 28  |tem%)...;menu%!(|
00004720  33 36 2b 28 69 74 65 6d  25 2d 31 29 2a 32 34 29  |36+(item%-1)*24)|
00004730  3d 6d 65 6e 75 25 21 28  33 36 2b 28 69 74 65 6d  |=menu%!(36+(item|
00004740  25 2d 31 29 2a 32 34 29  82 28 31 3c 3c 32 32 29  |%-1)*24).(1<<22)|
00004750  0d 1a d6 05 e1 0d 1a e0  05 3a 0d 1a ea 35 dd 20  |.........:...5. |
00004760  f2 57 69 6d 70 5f 4d 65  6e 75 46 6f 72 65 67 72  |.Wimp_MenuForegr|
00004770  6f 75 6e 64 43 6f 6c 6f  75 72 28 6d 65 6e 75 25  |oundColour(menu%|
00004780  2c 69 74 65 6d 25 2c 63  6f 6c 6f 75 72 25 29 0d  |,item%,colour%).|
00004790  1a f4 45 6d 65 6e 75 25  3f 28 33 39 2b 28 69 74  |..Emenu%?(39+(it|
000047a0  65 6d 25 2d 31 29 2a 32  34 29 3d 63 6f 6c 6f 75  |em%-1)*24)=colou|
000047b0  72 25 2b 31 36 2a 28 28  6d 65 6e 75 25 3f 28 33  |r%+16*((menu%?(3|
000047c0  39 2b 28 69 74 65 6d 25  2d 31 29 2a 32 34 29 29  |9+(item%-1)*24))|
000047d0  81 31 36 29 0d 1a fe 05  e1 0d 1b 08 05 3a 0d 1b  |.16).........:..|
000047e0  12 29 dd 20 f2 57 69 6d  70 5f 4d 65 6e 75 47 6c  |.). .Wimp_MenuGl|
000047f0  75 65 28 6d 65 6e 75 31  25 2c 69 74 65 6d 25 2c  |ue(menu1%,item%,|
00004800  6d 65 6e 75 32 25 29 0d  1b 1c 1e 6d 65 6e 75 31  |menu2%)....menu1|
00004810  25 21 28 38 2b 69 74 65  6d 25 2a 32 34 29 3d 6d  |%!(8+item%*24)=m|
00004820  65 6e 75 32 25 0d 1b 26  05 e1 0d 1b 30 05 3a 0d  |enu2%..&....0.:.|
00004830  1b 3a 27 dd 20 f2 57 69  6d 70 5f 4d 65 6e 75 49  |.:'. .Wimp_MenuI|
00004840  74 65 6d 28 6d 65 6e 75  25 2c 69 74 65 6d 25 2c  |tem(menu%,item%,|
00004850  69 74 65 6d 24 29 0d 1b  44 2c 24 28 6d 65 6e 75  |item$)..D,$(menu|
00004860  25 2b 28 34 30 2b 28 69  74 65 6d 25 2d 31 29 2a  |%+(40+(item%-1)*|
00004870  32 34 29 29 3d c0 69 74  65 6d 24 2c 31 32 29 2b  |24))=.item$,12)+|
00004880  bd 30 0d 1b 4e 05 e1 0d  1b 58 05 3a 0d 1b 62 24  |.0..N....X.:..b$|
00004890  dd 20 f2 57 69 6d 70 5f  4d 65 6e 75 4d 65 73 73  |. .Wimp_MenuMess|
000048a0  61 67 65 28 6d 65 6e 75  25 2c 69 74 65 6d 25 29  |age(menu%,item%)|
000048b0  0d 1b 6c 3c 6d 65 6e 75  25 21 28 32 38 2b 28 69  |..l<menu%!(28+(i|
000048c0  74 65 6d 25 2d 31 29 2a  32 34 29 3d 28 6d 65 6e  |tem%-1)*24)=(men|
000048d0  75 25 21 28 32 38 2b 28  69 74 65 6d 25 2d 31 29  |u%!(28+(item%-1)|
000048e0  2a 32 34 29 29 82 28 31  3c 3c 33 29 0d 1b 76 05  |*24)).(1<<3)..v.|
000048f0  e1 0d 1b 80 05 3a 0d 1b  8a 22 dd 20 f2 57 69 6d  |.....:...". .Wim|
00004900  70 5f 4d 65 6e 75 50 6f  70 55 70 28 4d 65 6e 75  |p_MenuPopUp(Menu|
00004910  25 2c 78 25 2c 79 25 29  0d 1b 94 0d e7 20 53 41  |%,x%,y%)..... SA|
00004920  25 3d a3 20 8c 0d 1b 9e  0f 6d 65 6e 75 25 3d 4d  |%=. .....menu%=M|
00004930  65 6e 75 25 0d 1b a8 2b  c8 99 20 22 57 69 6d 70  |enu%...+.. "Wimp|
00004940  5f 43 72 65 61 74 65 4d  65 6e 75 22 2c 2c 6d 65  |_CreateMenu",,me|
00004950  6e 75 25 2c 78 25 2d 36  34 2c 79 25 2b 32 30 0d  |nu%,x%-64,y%+20.|
00004960  1b b2 05 cd 0d 1b bc 05  e1 0d 1b c6 05 3a 0d 1b  |.............:..|
00004970  d0 1f dd 20 f2 57 69 6d  70 5f 4d 65 6e 75 50 6f  |... .Wimp_MenuPo|
00004980  70 55 70 42 61 72 28 78  25 2c 79 25 29 0d 1b da  |pUpBar(x%,y%)...|
00004990  0f ea 20 6e 25 20 3a 20  6e 25 3d 30 0d 1b e4 2b  |.. n% : n%=0...+|
000049a0  c8 95 20 28 28 42 61 72  5f 4d 65 6e 75 25 21 28  |.. ((Bar_Menu%!(|
000049b0  32 38 2b 6e 25 2a 32 34  29 29 80 25 31 30 30 30  |28+n%*24)).%1000|
000049c0  30 30 30 30 29 3d 30 0d  1b ee 09 6e 25 2b 3d 31  |0000)=0....n%+=1|
000049d0  0d 1b f8 05 ce 0d 1c 02  32 c8 99 20 22 57 69 6d  |........2.. "Wim|
000049e0  70 5f 43 72 65 61 74 65  4d 65 6e 75 22 2c 2c 42  |p_CreateMenu",,B|
000049f0  61 72 5f 4d 65 6e 75 25  2c 78 25 2d 36 34 2c 39  |ar_Menu%,x%-64,9|
00004a00  36 2b 6e 25 2a 34 34 0d  1c 0c 13 6d 65 6e 75 25  |6+n%*44....menu%|
00004a10  3d 42 61 72 5f 4d 65 6e  75 25 0d 1c 16 05 e1 0d  |=Bar_Menu%......|
00004a20  1c 20 05 3a 0d 1c 2a 21  dd 20 f2 57 69 6d 70 5f  |. .:..*!. .Wimp_|
00004a30  4d 65 6e 75 54 69 63 6b  28 6d 65 6e 75 25 2c 69  |MenuTick(menu%,i|
00004a40  74 65 6d 25 29 0d 1c 34  37 6d 65 6e 75 25 21 28  |tem%)..47menu%!(|
00004a50  32 38 2b 28 69 74 65 6d  25 2d 31 29 2a 32 34 29  |28+(item%-1)*24)|
00004a60  3d 28 6d 65 6e 75 25 21  28 32 38 2b 28 69 74 65  |=(menu%!(28+(ite|
00004a70  6d 25 2d 31 29 2a 32 34  29 29 82 31 0d 1c 3e 05  |m%-1)*24)).1..>.|
00004a80  e1 0d 1c 48 05 3a 0d 1c  52 23 dd 20 f2 57 69 6d  |...H.:..R#. .Wim|
00004a90  70 5f 4d 65 6e 75 54 69  74 6c 65 28 6d 65 6e 75  |p_MenuTitle(menu|
00004aa0  25 2c 74 69 74 6c 65 24  29 0d 1c 5c 19 24 6d 65  |%,title$)..\.$me|
00004ab0  6e 75 25 3d c0 74 69 74  6c 65 24 2c 31 32 29 2b  |nu%=.title$,12)+|
00004ac0  bd 30 0d 1c 66 05 e1 0d  1c 70 05 3a 0d 1c 7a 3d  |.0..f....p.:..z=|
00004ad0  dd 20 f2 57 69 6d 70 5f  4d 65 6e 75 57 72 69 74  |. .Wimp_MenuWrit|
00004ae0  65 28 6d 65 6e 75 25 2c  69 74 65 6d 25 2c 62 75  |e(menu%,item%,bu|
00004af0  66 66 65 72 25 2c 76 61  6c 25 2c 42 75 66 66 65  |ffer%,val%,Buffe|
00004b00  72 4c 65 6e 67 74 68 25  29 0d 1c 84 37 6d 65 6e  |rLength%)...7men|
00004b10  75 25 21 28 32 38 2b 28  69 74 65 6d 25 2d 31 29  |u%!(28+(item%-1)|
00004b20  2a 32 34 29 3d 28 6d 65  6e 75 25 21 28 32 38 2b  |*24)=(menu%!(28+|
00004b30  28 69 74 65 6d 25 2d 31  29 2a 32 34 29 29 84 34  |(item%-1)*24)).4|
00004b40  0d 1c 8e 38 6d 65 6e 75  25 21 28 33 36 2b 28 69  |...8menu%!(36+(i|
00004b50  74 65 6d 25 2d 31 29 2a  32 34 29 3d 6d 65 6e 75  |tem%-1)*24)=menu|
00004b60  25 21 28 33 36 2b 28 69  74 65 6d 25 2d 31 29 2a  |%!(36+(item%-1)*|
00004b70  32 34 29 84 26 31 30 30  0d 1c 98 23 6d 65 6e 75  |24).&100...#menu|
00004b80  25 21 28 34 30 2b 28 69  74 65 6d 25 2d 31 29 2a  |%!(40+(item%-1)*|
00004b90  32 34 29 3d 62 75 66 66  65 72 25 0d 1c a2 20 6d  |24)=buffer%... m|
00004ba0  65 6e 75 25 21 28 34 34  2b 28 69 74 65 6d 25 2d  |enu%!(44+(item%-|
00004bb0  31 29 2a 32 34 29 3d 76  61 6c 25 0d 1c ac 29 6d  |1)*24)=val%...)m|
00004bc0  65 6e 75 25 21 28 34 38  2b 28 69 74 65 6d 25 2d  |enu%!(48+(item%-|
00004bd0  31 29 2a 32 34 29 3d 42  75 66 66 65 72 4c 65 6e  |1)*24)=BufferLen|
00004be0  67 74 68 25 0d 1c b6 05  e1 0d 1c c0 05 3a 0d 1c  |gth%.........:..|
00004bf0  ca 4e f4 20 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |.N. ************|
00004c00  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00004c30  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 0d 1c d4 05  |************....|
00004c40  3a 0d 1c de 25 dd 20 f2  57 69 6d 70 5f 53 65 6c  |:...%. .Wimp_Sel|
00004c50  65 63 74 49 63 6f 6e 28  77 69 6e 64 6f 77 25 2c  |ectIcon(window%,|
00004c60  69 63 6f 6e 25 29 0d 1c  e8 13 77 69 6d 70 25 21  |icon%)....wimp%!|
00004c70  30 3d 77 69 6e 64 6f 77  25 0d 1c f2 11 77 69 6d  |0=window%....wim|
00004c80  70 25 21 34 3d 69 63 6f  6e 25 0d 1c fc 23 77 69  |p%!4=icon%...#wi|
00004c90  6d 70 25 21 38 3d 25 31  30 30 30 30 30 30 30 30  |mp%!8=%100000000|
00004ca0  30 30 30 30 30 30 30 30  30 30 30 30 30 0d 1d 06  |0000000000000...|
00004cb0  24 77 69 6d 70 25 21 31  32 3d 25 31 30 30 30 30  |$wimp%!12=%10000|
00004cc0  30 30 30 30 30 30 30 30  30 30 30 30 30 30 30 30  |0000000000000000|
00004cd0  30 0d 1d 10 13 c8 99 26  34 30 30 43 44 2c 2c 77  |0......&400CD,,w|
00004ce0  69 6d 70 25 0d 1d 1a 05  e1 0d 1d 24 05 3a 0d 1d  |imp%.......$.:..|
00004cf0  2e 27 dd 20 f2 57 69 6d  70 5f 55 6e 73 65 6c 65  |.'. .Wimp_Unsele|
00004d00  63 74 49 63 6f 6e 28 77  69 6e 64 6f 77 25 2c 69  |ctIcon(window%,i|
00004d10  63 6f 6e 25 29 0d 1d 38  13 77 69 6d 70 25 21 30  |con%)..8.wimp%!0|
00004d20  3d 77 69 6e 64 6f 77 25  0d 1d 42 11 77 69 6d 70  |=window%..B.wimp|
00004d30  25 21 34 3d 69 63 6f 6e  25 0d 1d 4c 0d 77 69 6d  |%!4=icon%..L.wim|
00004d40  70 25 21 38 3d 30 0d 1d  56 24 77 69 6d 70 25 21  |p%!8=0..V$wimp%!|
00004d50  31 32 3d 25 31 30 30 30  30 30 30 30 30 30 30 30  |12=%100000000000|
00004d60  30 30 30 30 30 30 30 30  30 30 0d 1d 60 13 c8 99  |0000000000..`...|
00004d70  26 34 30 30 43 44 2c 2c  77 69 6d 70 25 0d 1d 6a  |&400CD,,wimp%..j|
00004d80  05 e1 0d 1d 74 05 3a 0d  1d 7e 17 dd 20 f2 57 69  |....t.:..~.. .Wi|
00004d90  6d 70 5f 53 70 72 69 74  65 73 4c 6f 61 64 0d 1d  |mp_SpritesLoad..|
00004da0  88 2f f2 57 69 6d 70 5f  53 70 72 69 74 65 73 50  |./.Wimp_SpritesP|
00004db0  61 74 68 4c 6f 61 64 28  22 3c 4f 62 65 79 24 44  |athLoad("<Obey$D|
00004dc0  69 72 3e 2e 53 70 72 69  74 65 73 22 29 0d 1d 92  |ir>.Sprites")...|
00004dd0  1c 64 69 72 65 63 74 5f  73 70 72 69 74 65 73 25  |.direct_sprites%|
00004de0  3d 73 70 72 69 74 65 73  25 0d 1d 9c 05 e1 0d 1d  |=sprites%.......|
00004df0  a6 05 3a 0d 1d b0 26 dd  20 f2 57 69 6d 70 5f 53  |..:...&. .Wimp_S|
00004e00  70 72 69 74 65 73 50 61  74 68 4c 6f 61 64 28 70  |pritesPathLoad(p|
00004e10  61 74 68 6e 61 6d 65 24  29 0d 1d ba 0a ea 53 25  |athname$).....S%|
00004e20  2c 54 25 0d 1d c4 2c 53  25 3d 8e 22 3c 4f 62 65  |,T%...,S%=."<Obe|
00004e30  79 24 44 69 72 3e 2e 53  70 72 69 74 65 73 22 3a  |y$Dir>.Sprites":|
00004e40  54 25 3d a2 23 53 25 2b  31 36 3a d9 23 53 25 0d  |T%=.#S%+16:.#S%.|
00004e50  1d ce 19 de 73 70 72 69  74 65 73 25 54 25 2c 73  |....sprites%T%,s|
00004e60  70 6e 61 6d 65 25 31 32  0d 1d d8 1d 21 73 70 72  |pname%12....!spr|
00004e70  69 74 65 73 25 3d 54 25  3a 73 70 72 69 74 65 73  |ites%=T%:sprites|
00004e80  25 21 38 3d 30 0d 1d e2  21 c8 99 22 4f 53 5f 53  |%!8=0...!.."OS_S|
00004e90  70 72 69 74 65 4f 70 22  2c 26 31 30 39 2c 73 70  |priteOp",&109,sp|
00004ea0  72 69 74 65 73 25 0d 1d  ec 2b c8 99 22 4f 53 5f  |rites%...+.."OS_|
00004eb0  53 70 72 69 74 65 4f 70  22 2c 26 31 30 41 2c 73  |SpriteOp",&10A,s|
00004ec0  70 72 69 74 65 73 25 2c  70 61 74 68 6e 61 6d 65  |prites%,pathname|
00004ed0  24 0d 1d f6 05 e1 0d 1e  00 05 3a 0d 1e 0a 4e f4  |$.........:...N.|
00004ee0  20 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  | ***************|
00004ef0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00004f20  2a 2a 2a 2a 2a 2a 2a 2a  2a 0d 1e 14 05 3a 0d 1e  |*********....:..|
00004f30  1e 1b dd 20 a4 57 69 6d  70 5f 46 69 6c 65 54 79  |... .Wimp_FileTy|
00004f40  70 65 28 74 79 70 65 25  29 0d 1e 28 0c c8 8e 74  |pe(type%)..(...t|
00004f50  79 70 65 25 ca 0d 1e 32  11 c9 26 46 46 46 3a 3d  |ype%...2..&FFF:=|
00004f60  22 54 65 78 74 22 0d 1e  3c 11 c9 26 46 46 44 3a  |"Text"..<..&FFD:|
00004f70  3d 22 44 61 74 61 22 0d  1e 46 12 c9 26 46 46 42  |="Data"..F..&FFB|
00004f80  3a 3d 22 42 61 73 69 63  22 0d 1e 50 13 c9 26 46  |:="Basic"..P..&F|
00004f90  46 39 3a 3d 22 53 70 72  69 74 65 22 0d 1e 5a 14  |F9:="Sprite"..Z.|
00004fa0  c9 26 46 45 44 3a 3d 22  50 61 6c 65 74 74 65 22  |.&FED:="Palette"|
00004fb0  0d 1e 64 15 c9 26 46 45  43 3a 3d 22 54 65 6d 70  |..d..&FEC:="Temp|
00004fc0  6c 61 74 65 22 0d 1e 6e  11 c9 26 41 46 46 3a 3d  |late"..n..&AFF:=|
00004fd0  22 44 72 61 77 22 0d 1e  78 14 c9 26 31 30 30 30  |"Draw"..x..&1000|
00004fe0  3a 3d 22 46 6f 6c 64 65  72 22 0d 1e 82 19 c9 26  |:="Folder".....&|
00004ff0  32 30 30 30 3a 3d 22 41  70 70 6c 69 63 61 74 69  |2000:="Applicati|
00005000  6f 6e 22 0d 1e 8c 14 c9  26 41 43 43 3a 3d 22 53  |on".....&ACC:="S|
00005010  77 61 70 70 65 72 22 0d  1e 96 0f 7f 3d c3 7e 28  |wapper".....=.~(|
00005020  74 79 70 65 25 29 0d 1e  a0 05 cb 0d 1e aa 05 3a  |type%).........:|
00005030  0d 1e b4 1b dd 20 a4 57  69 6d 70 5f 47 65 74 46  |..... .Wimp_GetF|
00005040  69 6c 65 50 61 74 68 4e  61 6d 65 0d 1e be 27 3d  |ilePathName...'=|
00005050  a4 57 69 6d 70 5f 47 65  74 53 74 72 69 6e 67 41  |.Wimp_GetStringA|
00005060  74 41 64 64 72 65 73 73  28 77 69 6d 70 25 2b 34  |tAddress(wimp%+4|
00005070  34 29 0d 1e c8 05 3a 0d  1e d2 1f dd 20 a4 57 69  |4)....:..... .Wi|
00005080  6d 70 5f 46 69 6c 65 4c  6f 61 64 28 70 61 74 68  |mp_FileLoad(path|
00005090  6e 61 6d 65 24 29 0d 1e  dc 10 ea 53 25 2c 54 25  |name$).....S%,T%|
000050a0  2c 66 69 6c 65 25 0d 1e  e6 11 53 25 3d 8e 70 61  |,file%....S%=.pa|
000050b0  74 68 6e 61 6d 65 24 0d  1e f0 0e 54 25 3d a2 23  |thname$....T%=.#|
000050c0  53 25 2b 31 36 0d 1e fa  08 d9 23 53 25 0d 1f 04  |S%+16.....#S%...|
000050d0  0c de 66 69 6c 65 25 54  25 0d 1f 0e 22 ff 28 22  |..file%T%...".("|
000050e0  4c 4f 41 44 22 2b 70 61  74 68 6e 61 6d 65 24 2b  |LOAD"+pathname$+|
000050f0  22 22 2b c3 7e 66 69 6c  65 25 29 0d 1f 18 0a 3d  |""+.~file%)....=|
00005100  66 69 6c 65 25 0d 1f 22  05 3b 0d 1f 2c 26 dd 20  |file%..".;..,&. |
00005110  a4 57 69 6d 70 5f 47 65  74 53 74 72 69 6e 67 41  |.Wimp_GetStringA|
00005120  74 41 64 64 72 65 73 73  28 61 72 72 61 79 25 29  |tAddress(array%)|
00005130  0d 1f 36 0d ea 73 24 3a  73 24 3d 22 22 0d 1f 40  |..6..s$:s$=""..@|
00005140  3c c8 95 28 3f 61 72 72  61 79 25 3c 3e 31 33 29  |<..(?array%<>13)|
00005150  80 28 3f 61 72 72 61 79  25 3c 3e 30 29 3a 73 24  |.(?array%<>0):s$|
00005160  2b 3d bd 28 3f 61 72 72  61 79 25 29 3a 61 72 72  |+=.(?array%):arr|
00005170  61 79 25 2b 3d 31 3a ce  3a 0d 1f 4a 07 3d 73 24  |ay%+=1:.:..J.=s$|
00005180  0d 1f 54 05 3a 0d 1f 5e  23 dd 20 a4 57 69 6d 70  |..T.:..^#. .Wimp|
00005190  5f 47 65 74 46 69 6c 65  46 72 6f 6d 50 61 74 68  |_GetFileFromPath|
000051a0  6e 61 6d 65 28 66 24 29  0d 1f 68 11 c8 8e 20 a7  |name(f$)..h... .|
000051b0  66 24 2c 22 2e 22 29 20  ca 0d 1f 72 10 20 c9 20  |f$,".") ...r. . |
000051c0  30 20 20 20 20 3a 3d 66  24 0d 1f 7c 37 20 7f 20  |0    :=f$..|7 . |
000051d0  3a 3d a4 57 69 6d 70 5f  47 65 74 46 69 6c 65 46  |:=.Wimp_GetFileF|
000051e0  72 6f 6d 50 61 74 68 6e  61 6d 65 28 c2 66 24 2c  |romPathname(.f$,|
000051f0  a9 28 66 24 29 2d a7 66  24 2c 22 2e 22 29 29 29  |.(f$)-.f$,".")))|
00005200  0d 1f 86 05 cb 0d 1f 90  05 3a 0d 1f 9a 1d dd 20  |.........:..... |
00005210  f2 57 69 6d 70 5f 53 65  6e 64 54 6f 45 64 69 74  |.Wimp_SendToEdit|
00005220  28 66 69 6c 65 24 29 0d  1f a4 08 ea 20 6e 25 0d  |(file$)..... n%.|
00005230  1f ae 15 77 69 6d 70 25  21 34 3d 26 36 43 43 30  |...wimp%!4=&6CC0|
00005240  31 43 30 43 0d 1f b8 0e  77 69 6d 70 25 21 31 36  |1C0C....wimp%!16|
00005250  3d 35 0d 1f c2 0e 77 69  6d 70 25 21 33 36 3d 30  |=5....wimp%!36=0|
00005260  0d 1f cc 11 77 69 6d 70  25 21 34 30 3d 26 46 46  |....wimp%!40=&FF|
00005270  46 0d 1f d6 18 24 28 77  69 6d 70 25 2b 34 34 29  |F....$(wimp%+44)|
00005280  3d 66 69 6c 65 24 2b bd  30 0d 1f e0 10 6e 25 3d  |=file$+.0....n%=|
00005290  a9 66 69 6c 65 24 2b 34  35 0d 1f ea 2c e7 20 6e  |.file$+45...,. n|
000052a0  25 83 34 20 8c 20 21 77  69 6d 70 25 3d 34 2b 28  |%.4 . !wimp%=4+(|
000052b0  6e 25 3e 3e 32 29 3c 3c  32 20 8b 20 21 77 69 6d  |n%>>2)<<2 . !wim|
000052c0  70 25 3d 6e 25 0d 1f f4  24 c8 99 20 22 57 69 6d  |p%=n%...$.. "Wim|
000052d0  70 5f 53 65 6e 64 4d 65  73 73 61 67 65 22 2c 31  |p_SendMessage",1|
000052e0  37 2c 77 69 6d 70 25 2c  30 0d 1f fe 05 e1 0d 20  |7,wimp%,0...... |
000052f0  08 05 3a 0d 20 12 4e f4  20 2a 2a 2a 2a 2a 2a 2a  |..:. .N. *******|
00005300  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00005340  2a 0d 20 1c 05 3a 0d 20  26 2f dd 20 f2 57 69 6d  |*. ..:. &/. .Wim|
00005350  70 5f 53 74 61 72 74 28  54 61 73 6b 4e 61 6d 65  |p_Start(TaskName|
00005360  24 2c 77 69 6d 70 5f 6d  65 6d 6f 72 79 25 2c 69  |$,wimp_memory%,i|
00005370  63 6f 6e 25 29 0d 20 30  25 de 20 77 69 6d 70 25  |con%). 0%. wimp%|
00005380  20 77 69 6d 70 5f 6d 65  6d 6f 72 79 25 2c 69 63  | wimp_memory%,ic|
00005390  6f 6e 73 25 20 69 63 6f  6e 25 0d 20 3a 29 e7 20  |ons% icon%. :). |
000053a0  77 69 6d 70 5f 6d 65 6d  6f 72 79 25 3c 32 35 36  |wimp_memory%<256|
000053b0  20 8c 20 77 69 6d 70 5f  6d 65 6d 6f 72 79 25 3d  | . wimp_memory%=|
000053c0  32 35 36 0d 20 44 1d 69  63 6f 6e 5f 6d 65 6d 6f  |256. D.icon_memo|
000053d0  72 79 25 3d 69 63 6f 6e  73 25 2b 69 63 6f 6e 25  |ry%=icons%+icon%|
000053e0  0d 20 4e 13 74 61 73 6b  24 3d 54 61 73 6b 4e 61  |. N.task$=TaskNa|
000053f0  6d 65 24 0d 20 58 2b 69  6e 64 69 72 65 63 74 5f  |me$. X+indirect_|
00005400  73 70 72 69 74 65 73 25  3d 31 20 3a 20 64 69 72  |sprites%=1 : dir|
00005410  65 63 74 5f 73 70 72 69  74 65 73 25 3d 31 0d 20  |ect_sprites%=1. |
00005420  62 1b f2 57 69 6d 70 5f  53 65 74 45 76 65 6e 74  |b..Wimp_SetEvent|
00005430  56 61 72 69 61 62 6c 65  73 0d 20 6c 15 ee 20 85  |Variables. l.. .|
00005440  20 f2 57 69 6d 70 5f 45  72 72 6f 72 3a e0 0d 20  | .Wimp_Error:.. |
00005450  76 40 c8 99 22 57 69 6d  70 5f 49 6e 69 74 69 61  |v@.."Wimp_Initia|
00005460  6c 69 73 65 22 2c 32 30  30 2c 26 34 42 35 33 34  |lise",200,&4B534|
00005470  31 35 34 2c 54 61 73 6b  4e 61 6d 65 24 20 b8 20  |154,TaskName$ . |
00005480  76 65 72 73 69 6f 6e 25  2c 74 61 73 6b 25 0d 20  |version%,task%. |
00005490  80 05 e1 0d 20 8a 05 3a  0d 20 94 1b dd 20 a4 57  |.... ..:. ... .W|
000054a0  69 6d 70 5f 42 41 53 49  43 50 61 72 61 6d 65 74  |imp_BASICParamet|
000054b0  65 72 73 0d 20 9e 15 20  ea 20 63 6f 6d 24 2c 70  |ers. .. . com$,p|
000054c0  61 72 61 6d 24 2c 49 25  0d 20 a8 1a 20 c8 99 20  |aram$,I%. .. .. |
000054d0  22 4f 53 5f 47 65 74 45  6e 76 22 20 b8 20 63 6f  |"OS_GetEnv" . co|
000054e0  6d 24 0d 20 b2 0f 20 70  61 72 61 6d 73 24 3d 22  |m$. .. params$="|
000054f0  22 0d 20 bc 18 20 49 25  3d a7 63 6f 6d 24 2c 22  |". .. I%=.com$,"|
00005500  20 2d 71 75 69 74 20 22  29 0d 20 c6 35 20 e7 20  | -quit "). .5 . |
00005510  49 25 20 8c 20 70 61 72  61 6d 73 24 3d c1 63 6f  |I% . params$=.co|
00005520  6d 24 2c a7 63 6f 6d 24  2c 22 20 22 2c 49 25 2b  |m$,.com$," ",I%+|
00005530  a9 22 20 2d 71 75 69 74  20 22 29 2b 31 29 0d 20  |." -quit ")+1). |
00005540  d0 0c 3d 70 61 72 61 6d  73 24 0d 20 da 05 3a 0d  |..=params$. ..:.|
00005550  20 e4 1d dd 20 f2 57 69  6d 70 5f 53 65 74 45 76  | ... .Wimp_SetEv|
00005560  65 6e 74 56 61 72 69 61  62 6c 65 73 0d 20 ee 17  |entVariables. ..|
00005570  de 20 70 6f 69 6e 74 65  72 5f 62 6c 6f 63 6b 25  |. pointer_block%|
00005580  20 32 30 0d 20 f8 10 69  6e 74 65 72 66 61 63 65  | 20. ..interface|
00005590  25 3d a3 0d 21 02 2e 6e  75 6c 6c 25 3d 31 20 20  |%=..!..null%=1  |
000055a0  3a 64 72 61 77 25 3d 32  20 3a 20 20 70 6f 69 6e  |:draw%=2 :  poin|
000055b0  74 65 72 5f 6c 65 61 76  69 6e 67 25 3d 31 3c 3c  |ter_leaving%=1<<|
000055c0  34 0d 21 0c 31 70 6f 69  6e 74 65 72 5f 65 6e 74  |4.!.1pointer_ent|
000055d0  65 72 69 6e 67 25 3d 31  3c 3c 35 3a 6d 6f 75 73  |ering%=1<<5:mous|
000055e0  65 25 3d 31 3c 3c 36 3a  64 72 61 67 25 3d 31 3c  |e%=1<<6:drag%=1<|
000055f0  3c 37 0d 21 16 26 6b 65  79 25 3d 31 3c 3c 38 3a  |<7.!.&key%=1<<8:|
00005600  6d 65 6e 75 25 3d 31 3c  3c 39 3a 73 63 72 6f 6c  |menu%=1<<9:scrol|
00005610  6c 25 3d 31 3c 3c 31 30  0d 21 20 40 6c 6f 73 65  |l%=1<<10.! @lose|
00005620  5f 63 61 72 65 74 25 3d  31 3c 3c 31 31 3a 67 61  |_caret%=1<<11:ga|
00005630  69 6e 5f 63 61 72 65 74  25 3d 31 3c 3c 31 32 3a  |in_caret%=1<<12:|
00005640  6d 65 73 73 61 67 65 25  3d 28 31 3c 3c 31 37 29  |message%=(1<<17)|
00005650  2b 28 31 3c 3c 31 38 29  0d 21 2a 30 72 65 63 6f  |+(1<<18).!*0reco|
00005660  72 64 65 72 25 3d 31 3c  3c 31 38 3a 61 63 6b 6e  |rder%=1<<18:ackn|
00005670  6f 77 6c 65 64 67 65 25  3d 31 3c 3c 31 39 3a 77  |owledge%=1<<19:w|
00005680  69 6e 64 6f 77 25 3d 30  0d 21 34 21 73 70 72 69  |indow%=0.!4!spri|
00005690  74 65 73 25 3d 31 3a 76  65 72 73 69 6f 6e 25 3d  |tes%=1:version%=|
000056a0  30 3a 74 61 73 6b 25 3d  30 0d 21 3e 2a 42 61 72  |0:task%=0.!>*Bar|
000056b0  5f 57 69 6e 64 6f 77 25  3d 2d 32 3a 42 61 72 5f  |_Window%=-2:Bar_|
000056c0  49 63 6f 6e 25 3d 30 3a  42 61 72 5f 4d 65 6e 75  |Icon%=0:Bar_Menu|
000056d0  25 3d 30 0d 21 48 2a 78  5f 6f 72 69 67 69 6e 25  |%=0.!H*x_origin%|
000056e0  3d 30 3a 79 5f 6f 72 69  67 69 6e 25 3d 30 3a 53  |=0:y_origin%=0:S|
000056f0  61 76 65 57 69 6e 64 6f  77 25 3d 2d 33 0d 21 52  |aveWindow%=-3.!R|
00005700  33 6d 65 73 73 61 67 65  5f 71 75 69 74 25 3d 30  |3message_quit%=0|
00005710  3a 6d 65 73 73 61 67 65  5f 73 61 76 65 25 3d 32  |:message_save%=2|
00005720  3a 6d 65 73 73 61 67 65  5f 6c 6f 61 64 25 3d 33  |:message_load%=3|
00005730  0d 21 5c 21 6d 6f 75 73  65 5f 62 75 74 74 6f 6e  |.!\!mouse_button|
00005740  25 3d 32 3a 73 61 76 65  5f 65 76 65 6e 74 25 3d  |%=2:save_event%=|
00005750  30 0d 21 66 20 74 6f 70  5f 6c 69 6e 65 25 3d 30  |0.!f top_line%=0|
00005760  20 3a 20 62 6f 74 74 6f  6d 5f 6c 69 6e 65 25 3d  | : bottom_line%=|
00005770  30 0d 21 70 05 e1 0d 21  7a 05 3a 0d 21 84 11 dd  |0.!p...!z.:.!...|
00005780  20 f2 57 69 6d 70 5f 45  72 72 6f 72 0d 21 8e 0a  | .Wimp_Error.!..|
00005790  ea 58 24 2c 78 25 0d 21  98 09 ee 20 85 20 87 0d  |.X$,x%.!... . ..|
000057a0  21 a2 08 78 25 3d 9e 0d  21 ac 1b 58 24 3d f6 24  |!..x%=..!..X$=.$|
000057b0  2b 22 61 74 6c 69 6e 65  22 2b c3 28 78 25 81 31  |+"atline"+.(x%.1|
000057c0  30 29 0d 21 b6 10 de 45  72 72 6f 72 4d 73 67 25  |0).!...ErrorMsg%|
000057d0  33 36 0d 21 c0 45 45 72  72 6f 72 4d 73 67 25 21  |36.!.EErrorMsg%!|
000057e0  30 3d 33 36 3a 45 72 72  6f 72 4d 73 67 25 21 31  |0=36:ErrorMsg%!1|
000057f0  32 3d 30 3a 45 72 72 6f  72 4d 73 67 25 21 31 36  |2=0:ErrorMsg%!16|
00005800  3d 26 38 31 30 38 30 3a  45 72 72 6f 72 4d 73 67  |=&81080:ErrorMsg|
00005810  25 21 32 30 3d 78 25 0d  21 ca 1f 24 28 45 72 72  |%!20=x%.!..$(Err|
00005820  6f 72 4d 73 67 25 2b 32  34 29 3d 22 21 52 75 6e  |orMsg%+24)="!Run|
00005830  49 6d 61 67 65 22 0d 21  d4 25 c8 99 22 57 69 6d  |Image".!.%.."Wim|
00005840  70 5f 53 65 6e 64 4d 65  73 73 61 67 65 22 2c 31  |p_SendMessage",1|
00005850  37 2c 45 72 72 6f 72 4d  73 67 25 0d 21 de 1f f2  |7,ErrorMsg%.!...|
00005860  57 69 6d 70 5f 57 69 6e  64 6f 77 41 6c 65 72 74  |Wimp_WindowAlert|
00005870  28 74 61 73 6b 24 2c 58  24 29 0d 21 e8 13 f2 57  |(task$,X$).!...W|
00005880  69 6d 70 5f 43 6c 6f 73  65 44 6f 77 6e 0d 21 f2  |imp_CloseDown.!.|
00005890  05 e1 0d 21 fc 05 3a 0d  22 06 15 dd 20 f2 57 69  |...!..:."... .Wi|
000058a0  6d 70 5f 43 6c 6f 73 65  44 6f 77 6e 0d 22 10 23  |mp_CloseDown.".#|
000058b0  c8 99 22 57 69 6d 70 5f  43 6c 6f 73 65 44 6f 77  |.."Wimp_CloseDow|
000058c0  6e 22 2c 74 61 73 6b 25  2c 22 54 41 53 4b 22 0d  |n",task%,"TASK".|
000058d0  22 1a 05 e1 0d 22 24 05  3a 0d 22 2e 10 dd 20 f2  |"...."$.:."... .|
000058e0  57 69 6d 70 5f 51 75 69  74 0d 22 38 0f 66 69 6e  |Wimp_Quit."8.fin|
000058f0  69 73 68 65 64 25 3d b9  0d 22 42 05 e1 0d 22 4c  |ished%=.."B..."L|
00005900  05 3a 0d 22 56 23 dd 20  a4 57 69 6d 70 5f 52 65  |.:."V#. .Wimp_Re|
00005910  61 64 56 61 72 69 61 62  6c 65 28 56 61 72 69 61  |adVariable(Varia|
00005920  62 6c 65 24 29 0d 22 60  1b ea 6c 65 6e 25 2c 72  |ble$)."`..len%,r|
00005930  65 73 75 6c 74 25 2c 76  61 72 69 61 62 6c 65 25  |esult%,variable%|
00005940  0d 22 6a 14 24 77 69 6d  70 25 3d 56 61 72 69 61  |."j.$wimp%=Varia|
00005950  62 6c 65 24 0d 22 74 33  c8 99 22 4f 53 5f 52 65  |ble$."t3.."OS_Re|
00005960  61 64 56 61 72 56 61 6c  22 2c 77 69 6d 70 25 2c  |adVarVal",wimp%,|
00005970  77 69 6d 70 25 2b 32 35  35 2c 32 35 35 2c 2c 33  |wimp%+255,255,,3|
00005980  b8 2c 2c 6c 65 6e 25 0d  22 7e 17 77 69 6d 70 25  |.,,len%."~.wimp%|
00005990  3f 28 6c 65 6e 25 2b 32  35 35 29 3d 31 33 0d 22  |?(len%+255)=13."|
000059a0  88 11 3d 24 28 77 69 6d  70 25 2b 32 35 35 29 0d  |..=$(wimp%+255).|
000059b0  22 92 05 3a 0d 22 9c 4e  f4 20 2a 2a 2a 2a 2a 2a  |"..:.".N. ******|
000059c0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00005a00  2a 2a 0d 22 a6 05 3a 0d  22 b0 18 dd 20 f2 57 69  |**."..:."... .Wi|
00005a10  6d 70 5f 57 61 69 74 46  6f 72 45 76 65 6e 74 0d  |mp_WaitForEvent.|
00005a20  22 ba 0c 41 41 42 42 25  3d 2d 31 0d 22 c4 12 ea  |"..AABB%=-1."...|
00005a30  20 6d 61 73 6b 25 2c 65  76 65 6e 74 25 0d 22 ce  | mask%,event%.".|
00005a40  0f 66 69 6e 69 73 68 65  64 25 3d a3 0d 22 d8 0c  |.finished%=.."..|
00005a50  67 61 70 25 3d 31 30 30  0d 22 e2 26 c8 99 22 4f  |gap%=100.".&.."O|
00005a60  53 5f 52 65 61 64 4d 6f  6e 6f 74 6f 6e 69 63 54  |S_ReadMonotonicT|
00005a70  69 6d 65 22 20 b8 20 6f  6c 64 74 69 6d 65 0d 22  |ime" . oldtime."|
00005a80  ec 05 f5 0d 22 f6 26 c8  99 22 4f 53 5f 52 65 61  |....".&.."OS_Rea|
00005a90  64 4d 6f 6e 6f 74 6f 6e  69 63 54 69 6d 65 22 20  |dMonotonicTime" |
00005aa0  b8 20 6e 65 77 74 69 6d  65 0d 23 00 1e c8 95 20  |. newtime.#.... |
00005ab0  28 6e 65 77 74 69 6d 65  20 2d 20 6f 6c 64 74 69  |(newtime - oldti|
00005ac0  6d 65 29 20 3e 20 30 0d  23 0a 1c 6f 6c 64 74 69  |me) > 0.#..oldti|
00005ad0  6d 65 20 3d 20 6f 6c 64  74 69 6d 65 20 2b 20 67  |me = oldtime + g|
00005ae0  61 70 25 0d 23 14 05 ce  0d 23 1e 10 e7 20 73 74  |ap%.#....#... st|
00005af0  61 72 74 25 3d b9 20 8c  0d 23 28 09 f2 6e 65 78  |art%=. ..#(..nex|
00005b00  74 0d 23 32 6c e7 20 41  41 42 42 25 3c 74 69 6d  |t.#2l. AABB%<tim|
00005b10  65 72 25 2d 6f 6c 64 74  69 6d 65 25 20 8c 20 f2  |er%-oldtime% . .|
00005b20  57 69 6d 70 5f 49 63 6f  6e 50 75 74 54 65 78 74  |Wimp_IconPutText|
00005b30  28 54 69 6d 65 72 5f 57  69 6e 64 6f 77 25 2c 30  |(Timer_Window%,0|
00005b40  2c c3 28 a8 28 74 69 6d  65 72 25 2d 6f 6c 64 74  |,.(.(timer%-oldt|
00005b50  69 6d 65 25 29 29 29 3a  41 41 42 42 25 3d 74 69  |ime%))):AABB%=ti|
00005b60  6d 65 72 25 2d 6f 6c 64  74 69 6d 65 25 0d 23 3c  |mer%-oldtime%.#<|
00005b70  05 cd 0d 23 46 17 6d 61  73 6b 25 3d 25 31 31 31  |...#F.mask%=%111|
00005b80  30 30 30 30 31 31 30 30  31 0d 23 50 32 c8 99 20  |000011001.#P2.. |
00005b90  22 57 69 6d 70 5f 50 6f  6c 6c 22 2c 30 2c 77 69  |"Wimp_Poll",0,wi|
00005ba0  6d 70 25 2c 6f 6c 64 74  69 6d 65 25 20 b8 20 65  |mp%,oldtime% . e|
00005bb0  76 65 6e 74 25 2c 77 69  6d 70 25 0d 23 5a 10 20  |vent%,wimp%.#Z. |
00005bc0  c8 8e 20 65 76 65 6e 74  25 20 ca 0d 23 64 0a 20  |.. event% ..#d. |
00005bd0  20 c9 30 20 3a 0d 23 6e  1f 20 20 c9 31 20 3a 20  | .0 :.#n.  .1 : |
00005be0  f2 57 69 6d 70 5f 50 6f  6c 6c 44 72 61 77 57 69  |.Wimp_PollDrawWi|
00005bf0  6e 64 6f 77 0d 23 78 26  20 20 c9 32 20 3a 20 c8  |ndow.#x&  .2 : .|
00005c00  99 20 22 57 69 6d 70 5f  4f 70 65 6e 57 69 6e 64  |. "Wimp_OpenWind|
00005c10  6f 77 22 2c 2c 77 69 6d  70 25 0d 23 82 20 20 20  |ow",,wimp%.#.   |
00005c20  c9 33 20 3a 20 f2 57 69  6d 70 5f 50 6f 6c 6c 43  |.3 : .Wimp_PollC|
00005c30  6c 6f 73 65 57 69 6e 64  6f 77 0d 23 8c 0a 20 20  |loseWindow.#..  |
00005c40  c9 34 20 3a 0d 23 96 0a  20 20 c9 35 20 3a 0d 23  |.4 :.#..  .5 :.#|
00005c50  a0 1f 20 20 c9 36 20 3a  20 f2 57 69 6d 70 5f 50  |..  .6 : .Wimp_P|
00005c60  6f 6c 6c 4d 6f 75 73 65  43 6c 69 63 6b 0d 23 aa  |ollMouseClick.#.|
00005c70  20 20 20 c9 37 20 3a 20  f2 57 69 6d 70 5f 50 6f  |   .7 : .Wimp_Po|
00005c80  6c 6c 53 61 76 65 4d 65  73 73 61 67 65 0d 23 b4  |llSaveMessage.#.|
00005c90  1d 20 20 c9 38 20 3a 20  f2 57 69 6d 70 5f 50 6f  |.  .8 : .Wimp_Po|
00005ca0  6c 6c 4b 65 79 50 72 65  73 73 0d 23 be 23 20 20  |llKeyPress.#.#  |
00005cb0  c9 39 20 3a 20 f2 45 76  65 6e 74 5f 4d 65 6e 75  |.9 : .Event_Menu|
00005cc0  43 68 6f 69 63 65 28 6d  65 6e 75 25 29 0d 23 c8  |Choice(menu%).#.|
00005cd0  0a 20 20 c9 31 30 3a 0d  23 d2 0a 20 20 c9 31 31  |.  .10:.#..  .11|
00005ce0  3a 0d 23 dc 0a 20 20 c9  31 32 3a 0d 23 e6 20 20  |:.#..  .12:.#.  |
00005cf0  20 c9 31 37 2c 31 38 3a  20 f2 57 69 6d 70 5f 50  | .17,18: .Wimp_P|
00005d00  6f 6c 6c 4d 65 73 73 61  67 65 73 0d 23 f0 0a 20  |ollMessages.#.. |
00005d10  20 c9 31 39 3a 0d 23 fa  06 20 cb 0d 24 04 0f fd  | .19:.#.. ..$...|
00005d20  20 66 69 6e 69 73 68 65  64 25 0d 24 0e 05 e1 0d  | finished%.$....|
00005d30  24 18 05 3a 0d 24 22 1a  dd 20 f2 57 69 6d 70 5f  |$..:.$".. .Wimp_|
00005d40  50 6f 6c 6c 44 72 61 77  57 69 6e 64 6f 77 0d 24  |PollDrawWindow.$|
00005d50  2c 0b ea 20 6d 6f 72 65  25 0d 24 36 26 c8 99 22  |,.. more%.$6&.."|
00005d60  57 69 6d 70 5f 52 65 64  72 61 77 57 69 6e 64 6f  |Wimp_RedrawWindo|
00005d70  77 22 2c 2c 77 69 6d 70  25 b8 6d 6f 72 65 25 0d  |w",,wimp%.more%.|
00005d80  24 40 13 77 69 6e 64 6f  77 25 3d 77 69 6d 70 25  |$@.window%=wimp%|
00005d90  21 30 0d 24 4a 41 78 5f  6f 72 69 67 69 6e 25 3d  |!0.$JAx_origin%=|
00005da0  31 36 2b 77 69 6d 70 25  21 34 2d 77 69 6d 70 25  |16+wimp%!4-wimp%|
00005db0  21 32 30 3a 79 5f 6f 72  69 67 69 6e 25 3d 2d 31  |!20:y_origin%=-1|
00005dc0  36 2b 77 69 6d 70 25 21  31 36 2d 77 69 6d 70 25  |6+wimp%!16-wimp%|
00005dd0  21 32 34 0d 24 54 0b c8  95 6d 6f 72 65 25 0d 24  |!24.$T...more%.$|
00005de0  5e 30 20 e7 20 69 6e 74  65 72 66 61 63 65 25 20  |^0 . interface% |
00005df0  8c 20 c8 99 22 57 69 6d  70 5f 42 6f 72 64 65 72  |. .."Wimp_Border|
00005e00  57 69 6e 64 6f 77 22 2c  2c 77 69 6d 70 25 0d 24  |Window",,wimp%.$|
00005e10  68 2d 20 f2 45 76 65 6e  74 5f 44 72 61 77 28 77  |h- .Event_Draw(w|
00005e20  69 6e 64 6f 77 25 2c 78  5f 6f 72 69 67 69 6e 25  |indow%,x_origin%|
00005e30  2c 79 5f 6f 72 69 67 69  6e 25 29 0d 24 72 27 20  |,y_origin%).$r' |
00005e40  c8 99 22 57 69 6d 70 5f  47 65 74 52 65 63 74 61  |.."Wimp_GetRecta|
00005e50  6e 67 6c 65 22 2c 2c 77  69 6d 70 25 b8 6d 6f 72  |ngle",,wimp%.mor|
00005e60  65 25 0d 24 7c 05 ce 0d  24 86 05 e1 0d 24 90 05  |e%.$|...$....$..|
00005e70  3a 0d 24 9a 1b dd 20 f2  57 69 6d 70 5f 50 6f 6c  |:.$... .Wimp_Pol|
00005e80  6c 43 6c 6f 73 65 57 69  6e 64 6f 77 0d 24 a4 25  |lCloseWindow.$.%|
00005e90  20 20 c8 99 20 22 57 69  6d 70 5f 47 65 74 50 6f  |  .. "Wimp_GetPo|
00005ea0  69 6e 74 65 72 49 6e 66  6f 22 2c 2c 77 69 6d 70  |interInfo",,wimp|
00005eb0  25 0d 24 ae 29 20 20 77  69 6e 64 6f 77 25 3d 77  |%.$.)  window%=w|
00005ec0  69 6d 70 25 21 31 32 20  3a 20 62 75 74 74 6f 6e  |imp%!12 : button|
00005ed0  73 25 3d 77 69 6d 70 25  21 38 0d 24 b8 29 20 f2  |s%=wimp%!8.$.) .|
00005ee0  45 76 65 6e 74 5f 57 69  6e 64 6f 77 43 6c 6f 73  |Event_WindowClos|
00005ef0  65 28 77 69 6e 64 6f 77  25 2c 62 75 74 74 6f 6e  |e(window%,button|
00005f00  73 25 29 0d 24 c2 32 20  21 77 69 6d 70 25 3d 77  |s%).$.2 !wimp%=w|
00005f10  69 6e 64 6f 77 25 20 3a  20 c8 99 20 22 57 69 6d  |indow% : .. "Wim|
00005f20  70 5f 43 6c 6f 73 65 57  69 6e 64 6f 77 22 2c 2c  |p_CloseWindow",,|
00005f30  77 69 6d 70 25 0d 24 cc  05 e1 0d 24 d6 05 3a 0d  |wimp%.$....$..:.|
00005f40  24 e0 1a dd 20 f2 57 69  6d 70 5f 50 6f 6c 6c 4d  |$... .Wimp_PollM|
00005f50  6f 75 73 65 43 6c 69 63  6b 0d 24 ea 4a 20 62 75  |ouseClick.$.J bu|
00005f60  74 74 6f 6e 25 3d 77 69  6d 70 25 21 38 3a 77 69  |tton%=wimp%!8:wi|
00005f70  6e 64 6f 77 25 3d 77 69  6d 70 25 21 31 32 3a 69  |ndow%=wimp%!12:i|
00005f80  63 6f 6e 25 3d 77 69 6d  70 25 21 31 36 3a 78 25  |con%=wimp%!16:x%|
00005f90  3d 77 69 6d 70 25 21 30  3a 79 25 3d 77 69 6d 70  |=wimp%!0:y%=wimp|
00005fa0  25 21 34 0d 24 f4 11 20  c8 8e 20 62 75 74 74 6f  |%!4.$.. .. butto|
00005fb0  6e 25 20 ca 0d 24 fe 22  20 20 20 c9 32 20 20 20  |n% ..$."   .2   |
00005fc0  20 3a 20 f2 57 69 6d 70  5f 50 6f 6c 6c 4d 65 6e  | : .Wimp_PollMen|
00005fd0  75 50 6f 70 55 70 0d 25  08 23 20 20 20 7f 3a 20  |uPopUp.%.#   .: |
00005fe0  c8 8e 20 a4 45 76 65 6e  74 5f 53 61 76 65 28 77  |.. .Event_Save(w|
00005ff0  69 6e 64 6f 77 25 29 20  ca 0d 25 12 2c 20 20 20  |indow%) ..%.,   |
00006000  20 20 20 20 20 20 20 20  20 20 20 20 c9 20 b9 20  |            . . |
00006010  3a 20 f2 57 69 6d 70 5f  50 6f 6c 6c 4d 6f 75 73  |: .Wimp_PollMous|
00006020  65 53 61 76 65 0d 25 1c  31 20 20 20 20 20 20 20  |eSave.%.1       |
00006030  20 20 20 20 20 20 20 20  c9 20 a3 3a 20 f2 57 69  |        . .: .Wi|
00006040  6d 70 5f 50 6f 6c 6c 45  76 65 6e 74 4d 6f 75 73  |mp_PollEventMous|
00006050  65 43 6c 69 63 6b 0d 25  26 13 20 20 20 20 20 20  |eClick.%&.      |
00006060  20 20 20 20 20 20 20 20  cb 0d 25 30 06 20 cb 0d  |        ..%0. ..|
00006070  25 3a 05 e1 0d 25 44 05  3a 0d 25 4e 19 dd 20 f2  |%:...%D.:.%N.. .|
00006080  57 69 6d 70 5f 50 6f 6c  6c 4d 65 6e 75 50 6f 70  |Wimp_PollMenuPop|
00006090  55 70 0d 25 58 0d e7 20  53 41 25 3d a3 20 8c 0d  |Up.%X.. SA%=. ..|
000060a0  25 62 1e 6d 65 6e 75 25  3d a4 45 76 65 6e 74 5f  |%b.menu%=.Event_|
000060b0  4d 65 6e 75 28 77 69 6e  64 6f 77 25 29 0d 25 6c  |Menu(window%).%l|
000060c0  11 20 20 c8 8e 20 6d 65  6e 75 25 20 20 ca 0d 25  |.  .. menu%  ..%|
000060d0  76 0b 20 20 20 c9 20 a3  3a 0d 25 80 0a 20 20 20  |v.   . .:.%..   |
000060e0  7f 20 3a 0d 25 8a 15 20  20 20 20 20 c8 8e 20 77  |. :.%..     .. w|
000060f0  69 6e 64 6f 77 25 20 ca  0d 25 94 17 20 20 20 20  |indow% ..%..    |
00006100  20 20 c9 20 2d 32 20 20  20 3a 20 6e 25 3d 30 0d  |  . -2   : n%=0.|
00006110  25 9e 33 20 20 20 20 20  20 20 20 c8 95 20 28 28  |%.3        .. ((|
00006120  42 61 72 5f 4d 65 6e 75  25 21 28 32 38 2b 6e 25  |Bar_Menu%!(28+n%|
00006130  2a 32 34 29 29 80 25 31  30 30 30 30 30 30 30 29  |*24)).%10000000)|
00006140  3d 30 0d 25 a8 12 20 20  20 20 20 20 20 20 20 6e  |=0.%..         n|
00006150  25 2b 3d 31 0d 25 b2 0d  20 20 20 20 20 20 20 20  |%+=1.%..        |
00006160  ce 0d 25 bc 3a 20 20 20  20 20 20 20 20 c8 99 20  |..%.:        .. |
00006170  22 57 69 6d 70 5f 43 72  65 61 74 65 4d 65 6e 75  |"Wimp_CreateMenu|
00006180  22 2c 2c 42 61 72 5f 4d  65 6e 75 25 2c 78 25 2d  |",,Bar_Menu%,x%-|
00006190  36 34 2c 39 36 2b 6e 25  2a 38 39 0d 25 c6 34 20  |64,96+n%*89.%.4 |
000061a0  20 20 20 20 20 7f 20 3a  20 c8 99 22 57 69 6d 70  |     . : .."Wimp|
000061b0  5f 43 72 65 61 74 65 4d  65 6e 75 22 2c 2c 6d 65  |_CreateMenu",,me|
000061c0  6e 75 25 2c 78 25 2d 36  34 2c 79 25 2b 32 30 0d  |nu%,x%-64,y%+20.|
000061d0  25 d0 0a 20 20 20 20 20  cb 0d 25 da 07 20 20 cb  |%..     ..%..  .|
000061e0  0d 25 e4 05 cd 0d 25 ee  05 e1 0d 25 f8 05 3a 0d  |.%....%....%..:.|
000061f0  26 02 19 dd 20 f2 57 69  6d 70 5f 50 6f 6c 6c 4d  |&... .Wimp_PollM|
00006200  6f 75 73 65 53 61 76 65  0d 26 0c 0f 20 c8 8e 20  |ouseSave.&.. .. |
00006210  69 63 6f 6e 25 20 ca 0d  26 16 38 20 20 c9 20 30  |icon% ..&.8  . 0|
00006220  20 3a 20 e7 20 62 75 74  74 6f 6e 25 20 80 20 26  | : . button% . &|
00006230  35 30 20 8c 20 f2 57 69  6d 70 5f 50 6f 6c 6c 44  |50 . .Wimp_PollD|
00006240  72 61 67 42 6f 78 28 77  69 6e 64 6f 77 25 29 0d  |ragBox(window%).|
00006250  26 20 38 20 20 c9 20 32  20 3a 20 e7 20 62 75 74  |& 8  . 2 : . but|
00006260  74 6f 6e 25 20 80 20 35  20 8c 20 20 f2 57 69 6d  |ton% . 5 .  .Wim|
00006270  70 5f 50 6f 6c 6c 53 61  76 65 46 69 6c 65 28 77  |p_PollSaveFile(w|
00006280  69 6e 64 6f 77 25 29 0d  26 2a 06 20 cb 0d 26 34  |indow%).&*. ..&4|
00006290  05 e1 0d 26 3e 05 3a 0d  26 48 1f dd 20 f2 57 69  |...&>.:.&H.. .Wi|
000062a0  6d 70 5f 50 6f 6c 6c 45  76 65 6e 74 4d 6f 75 73  |mp_PollEventMous|
000062b0  65 43 6c 69 63 6b 0d 26  52 2e 20 e7 20 69 6e 74  |eClick.&R. . int|
000062c0  65 72 66 61 63 65 25 20  8c 20 c8 99 22 57 69 6d  |erface% . .."Wim|
000062d0  70 5f 42 6f 72 64 65 72  49 63 6f 6e 22 2c 2c 77  |p_BorderIcon",,w|
000062e0  69 6d 70 25 0d 26 5c 33  20 f2 45 76 65 6e 74 5f  |imp%.&\3 .Event_|
000062f0  4d 6f 75 73 65 43 6c 69  63 6b 28 77 69 6e 64 6f  |MouseClick(windo|
00006300  77 25 2c 69 63 6f 6e 25  2c 62 75 74 74 6f 6e 25  |w%,icon%,button%|
00006310  2c 78 25 2c 79 25 29 0d  26 66 15 20 c8 8e 20 20  |,x%,y%).&f. ..  |
00006320  69 6e 74 65 72 66 61 63  65 25 20 ca 0d 26 70 0b  |interface% ..&p.|
00006330  20 20 c9 20 b9 20 3a 0d  26 7a 28 20 20 20 77 69  |  . . :.&z(   wi|
00006340  6d 70 25 21 30 3d 78 25  3a 77 69 6d 70 25 21 34  |mp%!0=x%:wimp%!4|
00006350  3d 79 25 20 3a 20 77 69  6d 70 25 21 38 3d 30 0d  |=y% : wimp%!8=0.|
00006360  26 84 28 20 20 20 77 69  6d 70 25 21 31 32 3d 77  |&.(   wimp%!12=w|
00006370  69 6e 64 6f 77 25 20 3a  20 77 69 6d 70 25 21 31  |indow% : wimp%!1|
00006380  36 3d 69 63 6f 6e 25 0d  26 8e 21 20 20 20 c8 99  |6=icon%.&.!   ..|
00006390  22 57 69 6d 70 5f 42 6f  72 64 65 72 49 63 6f 6e  |"Wimp_BorderIcon|
000063a0  22 2c 2c 77 69 6d 70 25  0d 26 98 06 20 cb 0d 26  |",,wimp%.&.. ..&|
000063b0  a2 05 e1 0d 26 ac 05 3a  0d 26 b6 21 dd 20 f2 57  |....&..:.&.!. .W|
000063c0  69 6d 70 5f 50 6f 6c 6c  53 61 76 65 46 69 6c 65  |imp_PollSaveFile|
000063d0  28 77 69 6e 64 6f 77 25  29 0d 26 c0 0a ea 66 69  |(window%).&...fi|
000063e0  6c 65 24 0d 26 ca 40 20  77 69 6d 70 25 21 30 3d  |le$.&.@ wimp%!0=|
000063f0  77 69 6e 64 6f 77 25 20  3a 20 77 69 6d 70 25 21  |window% : wimp%!|
00006400  34 3d 31 20 3a 20 c8 99  20 22 57 69 6d 70 5f 47  |4=1 : .. "Wimp_G|
00006410  65 74 49 63 6f 6e 53 74  61 74 65 22 2c 2c 77 69  |etIconState",,wi|
00006420  6d 70 25 0d 26 d4 16 20  66 69 6c 65 24 3d 24 28  |mp%.&.. file$=$(|
00006430  77 69 6d 70 25 21 32 38  29 0d 26 de 15 20 c8 8e  |wimp%!28).&.. ..|
00006440  20 a7 66 69 6c 65 24 2c  22 2e 22 29 20 ca 0d 26  | .file$,".") ..&|
00006450  e8 0d 20 20 c9 20 30 20  20 20 3a 0d 26 f2 0f e7  |..  . 0   :.&...|
00006460  20 6b 65 79 25 3d 31 33  20 8c 0d 26 fc 40 20 20  | key%=13 ..&.@  |
00006470  20 24 28 77 69 6d 70 25  2b 34 29 3d 22 54 6f 20  | $(wimp%+4)="To |
00006480  73 61 76 65 2c 20 64 72  61 67 20 74 68 65 20 69  |save, drag the i|
00006490  63 6f 6e 20 74 6f 20 61  20 64 69 72 65 63 74 6f  |con to a directo|
000064a0  72 79 20 77 69 6e 64 6f  77 22 0d 27 06 2b 20 20  |ry window".'.+  |
000064b0  20 c8 99 20 22 57 69 6d  70 5f 52 65 70 6f 72 74  | .. "Wimp_Report|
000064c0  45 72 72 6f 72 22 2c 77  69 6d 70 25 2c 31 36 2c  |Error",wimp%,16,|
000064d0  74 61 73 6b 24 0d 27 10  05 cd 0d 27 1a 08 20 20  |task$.'....'..  |
000064e0  7f 3a 0d 27 24 31 20 20  20 e7 20 6b 65 79 25 3d  |.:.'$1   . key%=|
000064f0  31 33 20 8c 20 f2 45 76  65 6e 74 5f 53 61 76 65  |13 . .Event_Save|
00006500  46 69 6c 65 28 66 69 6c  65 24 2c 77 69 6e 64 6f  |File(file$,windo|
00006510  77 25 29 0d 27 2e 06 20  cb 0d 27 38 27 20 e7 20  |w%).'.. ..'8' . |
00006520  6b 65 79 25 3d 31 33 20  8c 20 c8 99 22 57 69 6d  |key%=13 . .."Wim|
00006530  70 5f 43 72 65 61 74 65  4d 65 6e 75 22 2c 2d 31  |p_CreateMenu",-1|
00006540  0d 27 42 55 e7 20 53 41  25 3d b9 20 8c 20 f2 57  |.'BU. SA%=. . .W|
00006550  69 6d 70 5f 43 6c 6f 73  65 44 6f 77 6e 3a e7 20  |imp_CloseDown:. |
00006560  72 65 6d 6f 76 65 25 3d  b9 20 8c 20 ff 28 22 42  |remove%=. . .("B|
00006570  61 63 6b 64 72 6f 70 20  2d 54 20 3c 53 77 61 70  |ackdrop -T <Swap|
00006580  70 65 72 24 44 69 72 3e  2e 44 61 74 61 2e 42 6c  |per$Dir>.Data.Bl|
00006590  61 6e 6b 22 29 0d 27 4c  05 e1 0d 27 56 05 3a 0d  |ank").'L...'V.:.|
000065a0  27 60 20 dd 20 f2 57 69  6d 70 5f 50 6f 6c 6c 44  |'` . .Wimp_PollD|
000065b0  72 61 67 42 6f 78 28 77  69 6e 64 6f 77 25 29 0d  |ragBox(window%).|
000065c0  27 6a 0a ea 78 25 2c 79  25 0d 27 74 12 20 73 61  |'j..x%,y%.'t. sa|
000065d0  76 65 25 3d 77 69 6e 64  6f 77 25 0d 27 7e 13 20  |ve%=window%.'~. |
000065e0  21 77 69 6d 70 25 3d 77  69 6e 64 6f 77 25 0d 27  |!wimp%=window%.'|
000065f0  88 23 20 c8 99 22 57 69  6d 70 5f 47 65 74 57 69  |.# .."Wimp_GetWi|
00006600  6e 64 6f 77 53 74 61 74  65 22 2c 2c 77 69 6d 70  |ndowState",,wimp|
00006610  25 0d 27 92 2d 20 78 25  3d 77 69 6d 70 25 21 34  |%.'.- x%=wimp%!4|
00006620  2d 77 69 6d 70 25 21 32  30 3a 79 25 3d 77 69 6d  |-wimp%!20:y%=wim|
00006630  70 25 21 31 36 2d 77 69  6d 70 25 21 32 34 0d 27  |p%!16-wimp%!24.'|
00006640  9c 0e 20 77 69 6d 70 25  21 34 3d 30 0d 27 a6 21  |.. wimp%!4=0.'.!|
00006650  20 c8 99 22 57 69 6d 70  5f 47 65 74 49 63 6f 6e  | .."Wimp_GetIcon|
00006660  53 74 61 74 65 22 2c 2c  77 69 6d 70 25 0d 27 b0  |State",,wimp%.'.|
00006670  13 20 21 77 69 6d 70 25  3d 77 69 6e 64 6f 77 25  |. !wimp%=window%|
00006680  0d 27 ba 0e 20 77 69 6d  70 25 21 34 3d 35 0d 27  |.'.. wimp%!4=5.'|
00006690  c4 2c 20 77 69 6d 70 25  21 38 3d 78 25 2b 77 69  |., wimp%!8=x%+wi|
000066a0  6d 70 25 21 38 3a 77 69  6d 70 25 21 31 32 3d 79  |mp%!8:wimp%!12=y|
000066b0  25 2b 77 69 6d 70 25 21  31 32 0d 27 ce 2e 20 77  |%+wimp%!12.'.. w|
000066c0  69 6d 70 25 21 31 36 3d  78 25 2b 77 69 6d 70 25  |imp%!16=x%+wimp%|
000066d0  21 31 36 3a 77 69 6d 70  25 21 32 30 3d 79 25 2b  |!16:wimp%!20=y%+|
000066e0  77 69 6d 70 25 21 32 30  0d 27 d8 1a 20 77 69 6d  |wimp%!20.'.. wim|
000066f0  70 25 21 32 34 3d 30 3a  77 69 6d 70 25 21 32 38  |p%!24=0:wimp%!28|
00006700  3d 30 0d 27 e2 2a 20 77  69 6d 70 25 21 33 32 3d  |=0.'.* wimp%!32=|
00006710  26 37 46 46 46 46 46 46  46 3a 77 69 6d 70 25 21  |&7FFFFFFF:wimp%!|
00006720  33 36 3d 26 37 46 46 46  46 46 46 46 0d 27 ec 1c  |36=&7FFFFFFF.'..|
00006730  20 c8 99 22 57 69 6d 70  5f 44 72 61 67 42 6f 78  | .."Wimp_DragBox|
00006740  22 2c 2c 77 69 6d 70 25  0d 27 f6 05 e1 0d 28 00  |",,wimp%.'....(.|
00006750  05 3a 0d 28 0a 18 dd 20  f2 57 69 6d 70 5f 50 6f  |.:.(... .Wimp_Po|
00006760  6c 6c 4b 65 79 50 72 65  73 73 0d 28 14 31 20 20  |llKeyPress.(.1  |
00006770  77 69 6e 64 6f 77 25 3d  77 69 6d 70 25 21 30 3a  |window%=wimp%!0:|
00006780  69 63 6f 6e 25 3d 77 69  6d 70 25 21 34 3a 6b 65  |icon%=wimp%!4:ke|
00006790  79 25 3d 77 69 6d 70 25  21 32 34 0d 28 1e 1f 20  |y%=wimp%!24.(.. |
000067a0  20 c8 8e 20 a4 45 76 65  6e 74 5f 53 61 76 65 28  | .. .Event_Save(|
000067b0  77 69 6e 64 6f 77 25 29  20 ca 0d 28 28 28 20 20  |window%) ..(((  |
000067c0  20 c9 20 b9 20 3a 20 f2  57 69 6d 70 5f 50 6f 6c  | . . : .Wimp_Pol|
000067d0  6c 53 61 76 65 46 69 6c  65 28 77 69 6e 64 6f 77  |lSaveFile(window|
000067e0  25 29 0d 28 32 2f 20 20  20 c9 20 a3 3a 20 f2 45  |%).(2/   . .: .E|
000067f0  76 65 6e 74 5f 4b 65 79  50 72 65 73 73 28 77 69  |vent_KeyPress(wi|
00006800  6e 64 6f 77 25 2c 69 63  6f 6e 25 2c 6b 65 79 25  |ndow%,icon%,key%|
00006810  29 0d 28 3c 07 20 20 cb  0d 28 46 05 e1 0d 28 50  |).(<.  ..(F...(P|
00006820  05 3a 0d 28 5a 1b dd 20  f2 57 69 6d 70 5f 50 6f  |.:.(Z.. .Wimp_Po|
00006830  6c 6c 53 61 76 65 4d 65  73 73 61 67 65 0d 28 64  |llSaveMessage.(d|
00006840  1e ea 66 69 6c 65 24 2c  77 69 6e 64 6f 77 25 2c  |..file$,window%,|
00006850  69 63 6f 6e 25 2c 78 25  2c 79 25 0d 28 6e 23 20  |icon%,x%,y%.(n# |
00006860  c8 99 22 57 69 6d 70 5f  47 65 74 50 6f 69 6e 74  |.."Wimp_GetPoint|
00006870  65 72 49 6e 66 6f 22 2c  2c 77 69 6d 70 25 0d 28  |erInfo",,wimp%.(|
00006880  78 3a 20 77 69 6e 64 6f  77 25 3d 77 69 6d 70 25  |x: window%=wimp%|
00006890  21 31 32 3a 69 63 6f 6e  25 3d 77 69 6d 70 25 21  |!12:icon%=wimp%!|
000068a0  31 36 3a 78 25 3d 77 69  6d 70 25 21 30 3a 79 25  |16:x%=wimp%!0:y%|
000068b0  3d 77 69 6d 70 25 21 34  0d 28 82 3e 20 77 69 6d  |=wimp%!4.(.> wim|
000068c0  70 25 21 30 3d 73 61 76  65 25 20 3a 20 77 69 6d  |p%!0=save% : wim|
000068d0  70 25 21 34 3d 31 20 3a  20 c8 99 20 22 57 69 6d  |p%!4=1 : .. "Wim|
000068e0  70 5f 47 65 74 49 63 6f  6e 53 74 61 74 65 22 2c  |p_GetIconState",|
000068f0  2c 77 69 6d 70 25 0d 28  8c 16 20 66 69 6c 65 24  |,wimp%.(.. file$|
00006900  3d 24 28 77 69 6d 70 25  21 32 38 29 0d 28 96 2b  |=$(wimp%!28).(.+|
00006910  20 66 69 6c 65 24 3d a4  57 69 6d 70 5f 47 65 74  | file$=.Wimp_Get|
00006920  46 69 6c 65 46 72 6f 6d  50 61 74 68 6e 61 6d 65  |FileFromPathname|
00006930  28 66 69 6c 65 24 29 0d  28 a0 15 20 77 69 6d 70  |(file$).(.. wimp|
00006940  25 21 32 30 3d 77 69 6e  64 6f 77 25 0d 28 aa 13  |%!20=window%.(..|
00006950  20 77 69 6d 70 25 21 32  34 3d 69 63 6f 6e 25 0d  | wimp%!24=icon%.|
00006960  28 b4 1c 20 77 69 6d 70  25 21 32 38 3d 78 25 3a  |(.. wimp%!28=x%:|
00006970  77 69 6d 70 25 21 33 32  3d 79 25 0d 28 be 15 20  |wimp%!32=y%.(.. |
00006980  77 69 6d 70 25 21 33 36  3d 6c 65 6e 67 74 68 25  |wimp%!36=length%|
00006990  0d 28 c8 0f 20 77 69 6d  70 25 21 30 3d 36 34 0d  |.(.. wimp%!0=64.|
000069a0  28 d2 0f 20 77 69 6d 70  25 21 31 32 3d 30 0d 28  |(.. wimp%!12=0.(|
000069b0  dc 0f 20 77 69 6d 70 25  21 31 36 3d 31 0d 28 e6  |.. wimp%!16=1.(.|
000069c0  12 20 77 69 6d 70 25 21  34 30 3d 26 46 46 46 0d  |. wimp%!40=&FFF.|
000069d0  28 f0 16 20 24 28 77 69  6d 70 25 2b 34 34 29 3d  |(.. $(wimp%+44)=|
000069e0  66 69 6c 65 24 0d 28 fa  34 20 c8 99 22 57 69 6d  |file$.(.4 .."Wim|
000069f0  70 5f 53 65 6e 64 4d 65  73 73 61 67 65 22 2c 31  |p_SendMessage",1|
00006a00  37 2c 77 69 6d 70 25 2c  77 69 6d 70 25 21 32 30  |7,wimp%,wimp%!20|
00006a10  2c 77 69 6d 70 25 21 32  34 0d 29 04 05 e1 0d 29  |,wimp%!24.)....)|
00006a20  0e 05 3a 0d 29 18 18 dd  20 f2 57 69 6d 70 5f 50  |..:.)... .Wimp_P|
00006a30  6f 6c 6c 4d 65 73 73 61  67 65 73 0d 29 22 0b ea  |ollMessages.)"..|
00006a40  20 66 69 6c 65 24 0d 29  2c 2c 66 69 6c 65 24 3d  | file$.),,file$=|
00006a50  a4 57 69 6d 70 5f 47 65  74 53 74 72 69 6e 67 41  |.Wimp_GetStringA|
00006a60  74 41 64 64 72 65 73 73  28 77 69 6d 70 25 2b 34  |tAddress(wimp%+4|
00006a70  34 29 0d 29 36 15 20 20  20 20 c8 8e 20 77 69 6d  |4).)6.    .. wim|
00006a80  70 25 21 31 36 20 ca 0d  29 40 1a 20 20 20 20 20  |p%!16 ..)@.     |
00006a90  c9 20 30 20 3a 20 66 69  6e 69 73 68 65 64 25 3d  |. 0 : finished%=|
00006aa0  b9 0d 29 4a 0e 20 20 20  20 20 c9 20 31 20 3a 0d  |..)J.     . 1 :.|
00006ab0  29 54 0e 20 20 20 20 20  c9 20 32 20 3a 0d 29 5e  |)T.     . 2 :.)^|
00006ac0  2e f4 20 20 20 20 20 20  50 52 4f 43 57 69 6d 70  |..      PROCWimp|
00006ad0  5f 49 63 6f 6e 50 75 74  54 65 78 74 28 73 61 76  |_IconPutText(sav|
00006ae0  65 25 2c 31 2c 66 69 6c  65 24 29 0d 29 68 43 20  |e%,1,file$).)hC |
00006af0  20 20 20 20 20 77 69 6d  70 25 21 30 3d 73 61 76  |     wimp%!0=sav|
00006b00  65 25 20 3a 20 77 69 6d  70 25 21 34 3d 31 20 3a  |e% : wimp%!4=1 :|
00006b10  20 c8 99 20 22 57 69 6d  70 5f 47 65 74 49 63 6f  | .. "Wimp_GetIco|
00006b20  6e 53 74 61 74 65 22 2c  2c 77 69 6d 70 25 0d 29  |nState",,wimp%.)|
00006b30  72 1b 20 20 20 20 20 20  24 28 77 69 6d 70 25 21  |r.      $(wimp%!|
00006b40  32 38 29 3d 66 69 6c 65  24 0d 29 7c 3c 20 20 20  |28)=file$.)|<   |
00006b50  20 20 20 77 69 6d 70 25  21 30 3d 73 61 76 65 25  |   wimp%!0=save%|
00006b60  20 3a 20 77 69 6d 70 25  21 34 3d 31 20 3a 20 77  | : wimp%!4=1 : w|
00006b70  69 6d 70 25 21 38 3d 30  20 3a 20 77 69 6d 70 25  |imp%!8=0 : wimp%|
00006b80  21 31 32 3d 30 0d 29 86  27 20 20 20 20 20 20 c8  |!12=0.).'      .|
00006b90  99 20 22 57 69 6d 70 5f  53 65 74 49 63 6f 6e 53  |. "Wimp_SetIconS|
00006ba0  74 61 74 65 22 2c 2c 77  69 6d 70 25 0d 29 90 30  |tate",,wimp%.).0|
00006bb0  20 20 20 20 20 20 f4 20  50 52 4f 43 57 69 6d 70  |      . PROCWimp|
00006bc0  5f 49 63 6f 6e 43 61 72  65 74 28 73 61 76 65 25  |_IconCaret(save%|
00006bd0  2c 31 2c 4c 45 4e 66 69  6c 65 24 29 0d 29 9a 38  |,1,LENfile$).).8|
00006be0  20 20 20 20 20 20 c8 99  20 22 57 69 6d 70 5f 53  |      .. "Wimp_S|
00006bf0  65 74 43 61 72 65 74 50  6f 73 69 74 69 6f 6e 22  |etCaretPosition"|
00006c00  2c 73 61 76 65 25 2c 31  2c 2c 2c 2d 31 2c a9 66  |,save%,1,,,-1,.f|
00006c10  69 6c 65 24 0d 29 a4 26  20 20 20 20 20 20 f2 45  |ile$.).&      .E|
00006c20  76 65 6e 74 5f 53 61 76  65 46 69 6c 65 28 66 69  |vent_SaveFile(fi|
00006c30  6c 65 24 2c 73 61 76 65  25 29 0d 29 ae 0c 20 20  |le$,save%).)..  |
00006c40  20 20 20 c9 20 33 0d 29  b8 47 20 20 20 20 20 20  |   . 3.).G      |
00006c50  74 79 70 65 24 3d a4 57  69 6d 70 5f 46 69 6c 65  |type$=.Wimp_File|
00006c60  54 79 70 65 28 77 69 6d  70 25 21 34 30 29 20 3a  |Type(wimp%!40) :|
00006c70  20 f2 45 76 65 6e 74 5f  4c 6f 61 64 46 69 6c 65  | .Event_LoadFile|
00006c80  28 66 69 6c 65 24 2c 74  79 70 65 24 29 0d 29 c2  |(file$,type$).).|
00006c90  07 c9 20 35 0d 29 cc 22  74 79 70 65 24 3d a4 57  |.. 5.)."type$=.W|
00006ca0  69 6d 70 5f 46 69 6c 65  54 79 70 65 28 77 69 6d  |imp_FileType(wim|
00006cb0  70 25 21 34 30 29 0d 29  d6 23 e7 20 74 79 70 65  |p%!40).).#. type|
00006cc0  24 3d 22 53 77 61 70 70  65 72 22 20 80 20 65 76  |$="Swapper" . ev|
00006cd0  65 6e 74 25 3d 31 38 20  8c 0d 29 e0 14 77 69 6d  |ent%=18 ..)..wim|
00006ce0  70 25 21 31 32 3d 77 69  6d 70 25 21 38 0d 29 ea  |p%!12=wimp%!8.).|
00006cf0  2b c8 99 22 58 57 69 6d  70 5f 53 65 6e 64 4d 65  |+.."XWimp_SendMe|
00006d00  73 73 61 67 65 22 2c 31  37 2c 77 69 6d 70 25 2c  |ssage",17,wimp%,|
00006d10  77 69 6d 70 25 21 32 30  0d 29 f4 1f 66 69 6c 65  |wimp%!20.)..file|
00006d20  24 3d a4 57 69 6d 70 5f  47 65 74 46 69 6c 65 50  |$=.Wimp_GetFileP|
00006d30  61 74 68 4e 61 6d 65 0d  29 fe 20 f2 45 76 65 6e  |athName.). .Even|
00006d40  74 5f 4c 6f 61 64 46 69  6c 65 28 66 69 6c 65 24  |t_LoadFile(file$|
00006d50  2c 74 79 70 65 24 29 0d  2a 08 05 cd 0d 2a 12 09  |,type$).*....*..|
00006d60  20 20 20 20 cb 0d 2a 1c  05 e1 0d 2a 26 05 3a 0d  |    ..*....*&.:.|
00006d70  2a 30 26 dd 20 a4 57 69  6d 70 5f 47 65 74 53 74  |*0&. .Wimp_GetSt|
00006d80  72 69 6e 67 41 74 41 64  64 72 65 73 73 28 61 72  |ringAtAddress(ar|
00006d90  72 61 79 25 29 0d 2a 3a  0d ea 73 24 3a 73 24 3d  |ray%).*:..s$:s$=|
00006da0  22 22 0d 2a 44 3c c8 95  28 3f 61 72 72 61 79 25  |"".*D<..(?array%|
00006db0  3c 3e 31 33 29 80 28 3f  61 72 72 61 79 25 3c 3e  |<>13).(?array%<>|
00006dc0  30 29 3a 73 24 2b 3d bd  28 3f 61 72 72 61 79 25  |0):s$+=.(?array%|
00006dd0  29 3a 61 72 72 61 79 25  2b 3d 31 3a ce 3a 0d 2a  |):array%+=1:.:.*|
00006de0  4e 07 3d 73 24 0d 2a 58  05 3a 0d 2a 62 23 dd 20  |N.=s$.*X.:.*b#. |
00006df0  a4 57 69 6d 70 5f 47 65  74 46 69 6c 65 46 72 6f  |.Wimp_GetFileFro|
00006e00  6d 50 61 74 68 6e 61 6d  65 28 66 24 29 0d 2a 6c  |mPathname(f$).*l|
00006e10  11 c8 8e 20 a7 66 24 2c  22 2e 22 29 20 ca 0d 2a  |... .f$,".") ..*|
00006e20  76 10 20 c9 20 30 20 20  20 20 3a 3d 66 24 0d 2a  |v. . 0    :=f$.*|
00006e30  80 37 20 7f 20 3a 3d a4  57 69 6d 70 5f 47 65 74  |.7 . :=.Wimp_Get|
00006e40  46 69 6c 65 46 72 6f 6d  50 61 74 68 6e 61 6d 65  |FileFromPathname|
00006e50  28 c2 66 24 2c a9 28 66  24 29 2d a7 66 24 2c 22  |(.f$,.(f$)-.f$,"|
00006e60  2e 22 29 29 29 0d 2a 8a  05 cb 0d 2a 94 05 3a 0d  |."))).*....*..:.|
00006e70  2a 9e 1b dd 20 a4 57 69  6d 70 5f 46 69 6c 65 54  |*... .Wimp_FileT|
00006e80  79 70 65 28 74 79 70 65  25 29 0d 2a a8 0c c8 8e  |ype(type%).*....|
00006e90  74 79 70 65 25 ca 0d 2a  b2 11 c9 26 46 46 46 3a  |type%..*...&FFF:|
00006ea0  3d 22 54 65 78 74 22 0d  2a bc 11 c9 26 46 46 44  |="Text".*...&FFD|
00006eb0  3a 3d 22 44 61 74 61 22  0d 2a c6 12 c9 26 46 46  |:="Data".*...&FF|
00006ec0  42 3a 3d 22 42 61 73 69  63 22 0d 2a d0 13 c9 26  |B:="Basic".*...&|
00006ed0  46 46 39 3a 3d 22 53 70  72 69 74 65 22 0d 2a da  |FF9:="Sprite".*.|
00006ee0  14 c9 26 46 45 44 3a 3d  22 50 61 6c 65 74 74 65  |..&FED:="Palette|
00006ef0  22 0d 2a e4 15 c9 26 46  45 43 3a 3d 22 54 65 6d  |".*...&FEC:="Tem|
00006f00  70 6c 61 74 65 22 0d 2a  ee 11 c9 26 41 46 46 3a  |plate".*...&AFF:|
00006f10  3d 22 44 72 61 77 22 0d  2a f8 14 c9 26 31 30 30  |="Draw".*...&100|
00006f20  30 3a 3d 22 46 6f 6c 64  65 72 22 0d 2b 02 19 c9  |0:="Folder".+...|
00006f30  26 32 30 30 30 3a 3d 22  41 70 70 6c 69 63 61 74  |&2000:="Applicat|
00006f40  69 6f 6e 22 0d 2b 0c 14  c9 26 41 43 43 3a 3d 22  |ion".+...&ACC:="|
00006f50  53 77 61 70 70 65 72 22  0d 2b 16 0f 7f 3d c3 7e  |Swapper".+...=.~|
00006f60  28 74 79 70 65 25 29 0d  2b 20 05 cb 0d 2b 2a 05  |(type%).+ ...+*.|
00006f70  3a 0d 2b 34 10 dd 20 f2  69 6e 70 75 74 6d 61 69  |:.+4.. .inputmai|
00006f80  6e 0d 2b 3e 0d e3 20 41  3d 30 20 b8 20 39 0d 2b  |n.+>.. A=0 . 9.+|
00006f90  48 28 41 24 3d a4 57 69  6d 70 5f 49 63 6f 6e 54  |H(A$=.Wimp_IconT|
00006fa0  65 78 74 28 4d 61 69 6e  5f 57 69 6e 64 6f 77 25  |ext(Main_Window%|
00006fb0  2c 41 2b 35 35 29 0d 2b  52 20 74 69 6d 65 25 28  |,A+55).+R time%(|
00006fc0  41 2b 28 28 63 70 61 25  2d 31 29 2a 31 30 29 29  |A+((cpa%-1)*10))|
00006fd0  3d bb 28 41 24 29 0d 2b  5c 07 ed 20 41 0d 2b 66  |=.(A$).+\.. A.+f|
00006fe0  05 e1 0d 2b 70 05 3a 0d  2b 7a 11 dd 20 f2 72 65  |...+p.:.+z.. .re|
00006ff0  64 72 61 77 6d 61 69 6e  0d 2b 84 0d e3 20 41 3d  |drawmain.+... A=|
00007000  30 20 b8 20 39 0d 2b 8e  38 61 24 3d a4 57 69 6d  |0 . 9.+.8a$=.Wim|
00007010  70 5f 47 65 74 46 69 6c  65 46 72 6f 6d 50 61 74  |p_GetFileFromPat|
00007020  68 6e 61 6d 65 28 6e 61  6d 65 24 28 41 2b 28 28  |hname(name$(A+((|
00007030  63 70 61 25 2d 31 29 2a  31 30 29 29 29 0d 2b 98  |cpa%-1)*10))).+.|
00007040  2b f2 57 69 6d 70 5f 49  63 6f 6e 50 75 74 54 65  |+.Wimp_IconPutTe|
00007050  78 74 28 4d 61 69 6e 5f  57 69 6e 64 6f 77 25 2c  |xt(Main_Window%,|
00007060  41 2b 31 35 2c 61 24 29  0d 2b a2 07 ed 20 41 0d  |A+15,a$).+... A.|
00007070  2b ac 32 f2 57 69 6d 70  5f 53 65 74 49 63 6f 6e  |+.2.Wimp_SetIcon|
00007080  53 70 72 69 74 65 28 4d  61 69 6e 5f 57 69 6e 64  |Sprite(Main_Wind|
00007090  6f 77 25 2c 73 65 6c 65  63 74 2c 22 3b 52 31 22  |ow%,select,";R1"|
000070a0  29 0d 2b b6 1e e7 20 28  28 63 75 72 25 2d 31 29  |).+... ((cur%-1)|
000070b0  20 81 20 31 30 29 2b 31  3d 63 70 61 25 20 8c 0d  | . 10)+1=cpa% ..|
000070c0  2b c0 32 f2 57 69 6d 70  5f 53 65 74 49 63 6f 6e  |+.2.Wimp_SetIcon|
000070d0  53 70 72 69 74 65 28 4d  61 69 6e 5f 57 69 6e 64  |Sprite(Main_Wind|
000070e0  6f 77 25 2c 73 65 6c 65  63 74 2c 22 3b 52 32 22  |ow%,select,";R2"|
000070f0  29 0d 2b ca 05 cd 0d 2b  d4 0d e3 20 41 3d 30 20  |).+....+... A=0 |
00007100  b8 20 39 0d 2b de 42 f2  57 69 6d 70 5f 49 63 6f  |. 9.+.B.Wimp_Ico|
00007110  6e 50 75 74 54 65 78 74  28 4d 61 69 6e 5f 57 69  |nPutText(Main_Wi|
00007120  6e 64 6f 77 25 2c 41 2b  35 35 2c c3 28 74 69 6d  |ndow%,A+55,.(tim|
00007130  65 25 28 41 2b 28 28 63  70 61 25 2d 31 29 2a 31  |e%(A+((cpa%-1)*1|
00007140  30 29 29 29 29 0d 2b e8  07 ed 20 41 0d 2b f2 1c  |0)))).+... A.+..|
00007150  61 24 3d c3 28 74 69 6d  65 25 28 28 63 70 61 25  |a$=.(time%((cpa%|
00007160  2d 31 29 2a 31 30 29 29  0d 2b fc 2a f2 57 69 6d  |-1)*10)).+.*.Wim|
00007170  70 5f 49 63 6f 6e 43 61  72 65 74 28 4d 61 69 6e  |p_IconCaret(Main|
00007180  5f 57 69 6e 64 6f 77 25  2c 35 35 2c a9 28 61 24  |_Window%,55,.(a$|
00007190  29 29 0d 2c 06 10 f2 75  70 64 61 74 65 72 61 64  |)).,...updaterad|
000071a0  69 6f 0d 2c 10 2e f2 57  69 6d 70 5f 49 63 6f 6e  |io.,...Wimp_Icon|
000071b0  50 75 74 54 65 78 74 28  4d 61 69 6e 5f 57 69 6e  |PutText(Main_Win|
000071c0  64 6f 77 25 2c 37 30 2c  c3 28 63 70 61 25 29 29  |dow%,70,.(cpa%))|
000071d0  0d 2c 1a 05 e1 0d 2c 24  05 3a 0d 2c 2e 0b dd 20  |.,....,$.:.,... |
000071e0  f2 6e 65 78 74 0d 2c 38  04 0d 2c 42 26 c8 99 20  |.next.,8..,B&.. |
000071f0  22 4f 53 5f 52 65 61 64  4d 6f 6e 6f 74 6f 6e 69  |"OS_ReadMonotoni|
00007200  63 54 69 6d 65 22 20 b8  20 74 69 6d 65 72 25 0d  |cTime" . timer%.|
00007210  2c 4c 15 74 69 6d 65 72  25 3d 74 69 6d 65 72 25  |,L.timer%=timer%|
00007220  2f 31 30 30 0d 2c 56 49  e7 20 a8 28 74 69 6d 65  |/100.,VI. .(time|
00007230  25 28 63 75 72 25 2d 31  29 29 3d 74 69 6d 65 72  |%(cur%-1))=timer|
00007240  25 2d 6f 6c 64 74 69 6d  65 25 20 84 20 74 69 6d  |%-oldtime% . tim|
00007250  65 72 25 2d 6f 6c 64 74  69 6d 65 25 3e a8 28 74  |er%-oldtime%>.(t|
00007260  69 6d 65 25 28 63 75 72  25 29 29 20 8c 0d 2c 60  |ime%(cur%)) ..,`|
00007270  04 0d 2c 6a 1e e7 20 28  28 63 75 72 25 2d 31 29  |..,j.. ((cur%-1)|
00007280  20 81 20 31 30 29 2b 31  3d 63 70 61 25 20 8c 0d  | . 10)+1=cpa% ..|
00007290  2c 74 32 f2 57 69 6d 70  5f 53 65 74 49 63 6f 6e  |,t2.Wimp_SetIcon|
000072a0  53 70 72 69 74 65 28 4d  61 69 6e 5f 57 69 6e 64  |Sprite(Main_Wind|
000072b0  6f 77 25 2c 73 65 6c 65  63 74 2c 22 3b 52 31 22  |ow%,select,";R1"|
000072c0  29 0d 2c 7e 05 cd 0d 2c  88 11 e7 20 63 75 72 25  |).,~...,... cur%|
000072d0  3c 74 6f 74 25 20 8c 0d  2c 92 0b 63 75 72 25 2b  |<tot% ..,..cur%+|
000072e0  3d 31 0d 2c 9c 0d 73 65  6c 65 63 74 2b 3d 31 0d  |=1.,..select+=1.|
000072f0  2c a6 1a e7 20 73 65 6c  65 63 74 3e 31 34 20 8c  |,... select>14 .|
00007300  20 73 65 6c 65 63 74 3d  35 0d 2c b0 05 cc 0d 2c  | select=5.,....,|
00007310  ba 0a 63 75 72 25 3d 31  0d 2c c4 0c 73 65 6c 65  |..cur%=1.,..sele|
00007320  63 74 3d 35 0d 2c ce 05  cd 0d 2c d8 1e e7 20 28  |ct=5.,....,... (|
00007330  28 63 75 72 25 2d 31 29  20 81 20 31 30 29 2b 31  |(cur%-1) . 10)+1|
00007340  3d 63 70 61 25 20 8c 0d  2c e2 32 f2 57 69 6d 70  |=cpa% ..,.2.Wimp|
00007350  5f 53 65 74 49 63 6f 6e  53 70 72 69 74 65 28 4d  |_SetIconSprite(M|
00007360  61 69 6e 5f 57 69 6e 64  6f 77 25 2c 73 65 6c 65  |ain_Window%,sele|
00007370  63 74 2c 22 3b 52 32 22  29 0d 2c ec 05 cd 0d 2c  |ct,";R2").,....,|
00007380  f6 0f f2 62 61 63 6b 75  70 64 61 74 65 0d 2d 00  |...backupdate.-.|
00007390  0e f2 72 65 73 65 74 74  69 6d 65 0d 2d 0a 2f 61  |..resettime.-./a|
000073a0  24 3d a4 57 69 6d 70 5f  47 65 74 46 69 6c 65 46  |$=.Wimp_GetFileF|
000073b0  72 6f 6d 50 61 74 68 6e  61 6d 65 28 6e 61 6d 65  |romPathname(name|
000073c0  24 28 63 75 72 25 2d 31  29 29 0d 2d 14 29 f2 57  |$(cur%-1)).-.).W|
000073d0  69 6d 70 5f 49 63 6f 6e  50 75 74 54 65 78 74 28  |imp_IconPutText(|
000073e0  54 69 6d 65 72 5f 57 69  6e 64 6f 77 25 2c 33 2c  |Timer_Window%,3,|
000073f0  61 24 29 0d 2d 1e 05 cd  0d 2d 28 05 e1 0d 2d 32  |a$).-....-(...-2|
00007400  05 3a 0d 2d 3c 10 dd 20  f2 72 65 73 65 74 74 69  |.:.-<.. .resetti|
00007410  6d 65 0d 2d 46 0c 41 41  42 42 25 3d 2d 31 0d 2d  |me.-F.AABB%=-1.-|
00007420  50 2f 61 24 3d a4 57 69  6d 70 5f 47 65 74 46 69  |P/a$=.Wimp_GetFi|
00007430  6c 65 46 72 6f 6d 50 61  74 68 6e 61 6d 65 28 6e  |leFromPathname(n|
00007440  61 6d 65 24 28 63 75 72  25 2d 31 29 29 0d 2d 5a  |ame$(cur%-1)).-Z|
00007450  29 f2 57 69 6d 70 5f 49  63 6f 6e 50 75 74 54 65  |).Wimp_IconPutTe|
00007460  78 74 28 54 69 6d 65 72  5f 57 69 6e 64 6f 77 25  |xt(Timer_Window%|
00007470  2c 33 2c 61 24 29 0d 2d  64 2e f2 57 69 6d 70 5f  |,3,a$).-d..Wimp_|
00007480  49 63 6f 6e 50 75 74 54  65 78 74 28 54 69 6d 65  |IconPutText(Time|
00007490  72 5f 57 69 6e 64 6f 77  25 2c 30 2c 22 52 65 73  |r_Window%,0,"Res|
000074a0  65 74 22 29 0d 2d 6e 13  6f 6c 64 74 69 6d 65 25  |et").-n.oldtime%|
000074b0  3d 74 69 6d 65 72 25 0d  2d 78 05 e1 0d 2d 82 05  |=timer%.-x...-..|
000074c0  3a 0d 2d 8c 11 dd 20 f2  62 61 63 6b 75 70 64 61  |:.-... .backupda|
000074d0  74 65 0d 2d 96 07 ea 20  85 0d 2d a0 10 ee 20 85  |te.-... ..-... .|
000074e0  20 ea 20 f2 65 72 72 6f  72 0d 2d aa 17 58 25 3d  | . .error.-..X%=|
000074f0  8e 28 6e 61 6d 65 24 28  63 75 72 25 2d 31 29 29  |.(name$(cur%-1))|
00007500  0d 2d b4 08 d9 23 58 25  0d 2d be 0d e7 20 58 25  |.-...#X%.-... X%|
00007510  3c 3e 30 20 8c 0d 2d c8  37 e7 20 74 79 70 65 25  |<>0 ..-.7. type%|
00007520  28 63 75 72 25 2d 31 29  3d 31 20 8c 20 ff 28 22  |(cur%-1)=1 . .("|
00007530  42 61 63 6b 64 72 6f 70  20 2d 43 20 22 2b 6e 61  |Backdrop -C "+na|
00007540  6d 65 24 28 63 75 72 25  2d 31 29 29 0d 2d d2 37  |me$(cur%-1)).-.7|
00007550  e7 20 74 79 70 65 25 28  63 75 72 25 2d 31 29 3d  |. type%(cur%-1)=|
00007560  32 20 8c 20 ff 28 22 42  61 63 6b 64 72 6f 70 20  |2 . .("Backdrop |
00007570  2d 54 20 22 2b 6e 61 6d  65 24 28 63 75 72 25 2d  |-T "+name$(cur%-|
00007580  31 29 29 0d 2d dc 37 e7  20 74 79 70 65 25 28 63  |1)).-.7. type%(c|
00007590  75 72 25 2d 31 29 3d 33  20 8c 20 ff 28 22 42 61  |ur%-1)=3 . .("Ba|
000075a0  63 6b 64 72 6f 70 20 2d  53 20 22 2b 6e 61 6d 65  |ckdrop -S "+name|
000075b0  24 28 63 75 72 25 2d 31  29 29 0d 2d e6 05 cc 0d  |$(cur%-1)).-....|
000075c0  2d f0 6b f2 57 69 6d 70  5f 57 69 6e 64 6f 77 41  |-.k.Wimp_WindowA|
000075d0  6c 65 72 74 28 22 21 53  77 61 70 70 65 72 22 2c  |lert("!Swapper",|
000075e0  22 46 69 6c 65 20 22 2b  6e 61 6d 65 24 28 63 75  |"File "+name$(cu|
000075f0  72 25 2d 31 29 2b 22 20  64 6f 65 73 20 6e 6f 74  |r%-1)+" does not|
00007600  20 65 78 69 73 74 2e 20  54 68 69 73 20 66 69 6c  | exist. This fil|
00007610  65 20 77 69 6c 6c 20 6e  6f 74 20 62 65 20 64 69  |e will not be di|
00007620  73 70 6c 61 79 65 64 2e  22 29 0d 2d fa 05 cd 0d  |splayed.").-....|
00007630  2e 04 05 e1 0d 2e 0e 05  3a 0d 2e 18 12 dd 20 f2  |........:..... .|
00007640  75 70 64 61 74 65 72 61  64 69 6f 0d 2e 22 0d e3  |updateradio.."..|
00007650  20 41 3d 30 20 b8 20 39  0d 2e 2c 6c e7 20 74 79  | A=0 . 9..,l. ty|
00007660  70 65 25 28 41 2b 28 28  63 70 61 25 2d 31 29 2a  |pe%(A+((cpa%-1)*|
00007670  31 30 29 29 3d 31 20 8c  20 f2 57 69 6d 70 5f 53  |10))=1 . .Wimp_S|
00007680  65 6c 65 63 74 49 63 6f  6e 28 4d 61 69 6e 5f 57  |electIcon(Main_W|
00007690  69 6e 64 6f 77 25 2c 41  2b 32 35 29 20 8b 20 f2  |indow%,A+25) . .|
000076a0  57 69 6d 70 5f 55 6e 73  65 6c 65 63 74 49 63 6f  |Wimp_UnselectIco|
000076b0  6e 28 4d 61 69 6e 5f 57  69 6e 64 6f 77 25 2c 41  |n(Main_Window%,A|
000076c0  2b 32 35 29 0d 2e 36 6c  e7 20 74 79 70 65 25 28  |+25)..6l. type%(|
000076d0  41 2b 28 28 63 70 61 25  2d 31 29 2a 31 30 29 29  |A+((cpa%-1)*10))|
000076e0  3d 32 20 8c 20 f2 57 69  6d 70 5f 53 65 6c 65 63  |=2 . .Wimp_Selec|
000076f0  74 49 63 6f 6e 28 4d 61  69 6e 5f 57 69 6e 64 6f  |tIcon(Main_Windo|
00007700  77 25 2c 41 2b 33 35 29  20 8b 20 f2 57 69 6d 70  |w%,A+35) . .Wimp|
00007710  5f 55 6e 73 65 6c 65 63  74 49 63 6f 6e 28 4d 61  |_UnselectIcon(Ma|
00007720  69 6e 5f 57 69 6e 64 6f  77 25 2c 41 2b 33 35 29  |in_Window%,A+35)|
00007730  0d 2e 40 6c e7 20 74 79  70 65 25 28 41 2b 28 28  |..@l. type%(A+((|
00007740  63 70 61 25 2d 31 29 2a  31 30 29 29 3d 33 20 8c  |cpa%-1)*10))=3 .|
00007750  20 f2 57 69 6d 70 5f 53  65 6c 65 63 74 49 63 6f  | .Wimp_SelectIco|
00007760  6e 28 4d 61 69 6e 5f 57  69 6e 64 6f 77 25 2c 41  |n(Main_Window%,A|
00007770  2b 34 35 29 20 8b 20 f2  57 69 6d 70 5f 55 6e 73  |+45) . .Wimp_Uns|
00007780  65 6c 65 63 74 49 63 6f  6e 28 4d 61 69 6e 5f 57  |electIcon(Main_W|
00007790  69 6e 64 6f 77 25 2c 41  2b 34 35 29 0d 2e 4a 07  |indow%,A+45)..J.|
000077a0  ed 20 41 0d 2e 54 05 e1  0d 2e 5e 05 3a 0d 2e 68  |. A..T....^.:..h|
000077b0  10 dd 20 f2 72 65 73 65  74 64 61 74 61 0d 2e 72  |.. .resetdata..r|
000077c0  24 f2 57 69 6d 70 5f 57  69 6e 64 6f 77 43 6c 6f  |$.Wimp_WindowClo|
000077d0  73 65 28 54 69 6d 65 72  5f 57 69 6e 64 6f 77 25  |se(Timer_Window%|
000077e0  29 0d 2e 7c 0b 63 61 72  25 3d 35 35 0d 2e 86 09  |)..|.car%=55....|
000077f0  70 61 25 3d 31 0d 2e 90  0a 63 70 61 25 3d 31 0d  |pa%=1....cpa%=1.|
00007800  2e 9a 0a 63 75 72 25 3d  31 0d 2e a4 0e 6e 61 6d  |...cur%=1....nam|
00007810  65 24 28 29 3d 22 22 0d  2e ae 0d 74 79 70 65 25  |e$()=""....type%|
00007820  28 29 3d 31 0d 2e b8 0e  74 69 6d 65 25 28 29 3d  |()=1....time%()=|
00007830  31 30 0d 2e c2 0c 73 65  6c 65 63 74 3d 35 0d 2e  |10....select=5..|
00007840  cc 0a 74 6f 74 25 3d 30  0d 2e d6 0c 73 74 61 72  |..tot%=0....star|
00007850  74 25 3d a3 0d 2e e0 0c  74 69 6d 65 72 25 3d 30  |t%=.....timer%=0|
00007860  0d 2e ea 0f 6f 6c 64 74  69 6d 65 25 3d 2d 31 0d  |....oldtime%=-1.|
00007870  2e f4 23 f2 57 69 6d 70  5f 4d 65 6e 75 44 69 73  |..#.Wimp_MenuDis|
00007880  61 62 6c 65 28 4d 61 69  6e 5f 4d 65 6e 75 25 2c  |able(Main_Menu%,|
00007890  31 29 0d 2e fe 23 f2 57  69 6d 70 5f 4d 65 6e 75  |1)...#.Wimp_Menu|
000078a0  44 69 73 61 62 6c 65 28  4d 61 69 6e 5f 4d 65 6e  |Disable(Main_Men|
000078b0  75 25 2c 33 29 0d 2f 08  23 f2 57 69 6d 70 5f 4d  |u%,3)./.#.Wimp_M|
000078c0  65 6e 75 44 69 73 61 62  6c 65 28 4d 61 69 6e 5f  |enuDisable(Main_|
000078d0  4d 65 6e 75 25 2c 34 29  0d 2f 12 5b f2 57 69 6d  |Menu%,4)./.[.Wim|
000078e0  70 5f 49 63 6f 6e 50 75  74 54 65 78 74 28 4d 61  |p_IconPutText(Ma|
000078f0  69 6e 5f 57 69 6e 64 6f  77 25 2c 37 32 2c 22 53  |in_Window%,72,"S|
00007900  74 61 72 74 22 29 3a f2  57 69 6d 70 5f 49 63 6f  |tart"):.Wimp_Ico|
00007910  6e 50 75 74 54 65 78 74  28 54 69 6d 65 72 5f 57  |nPutText(Timer_W|
00007920  69 6e 64 6f 77 25 2c 30  2c 22 53 74 6f 70 70 65  |indow%,0,"Stoppe|
00007930  64 22 29 0d 2f 1c 05 e1  0d 2f 26 05 3a 0d 2f 30  |d")./..../&.:./0|
00007940  12 dd 20 a4 6e 61 63 68  65 63 6b 28 41 24 29 0d  |.. .nacheck(A$).|
00007950  2f 3a 21 e7 20 a7 41 24  2c 22 53 74 6f 72 61 67  |/:!. .A$,"Storag|
00007960  65 22 29 3c 3e 30 20 8c  20 3d b9 20 8b 20 3d a3  |e")<>0 . =. . =.|
00007970  0d 2f 44 05 3a 0d 2f 4e  0c dd 20 f2 65 72 72 6f  |./D.:./N.. .erro|
00007980  72 0d 2f 58 19 e7 20 9f  3d 36 37 37 38 35 20 84  |r./X.. .=67785 .|
00007990  20 9f 3d 36 37 37 39 35  20 8c 0d 2f 62 57 e7 20  | .=67795 ../bW. |
000079a0  9f 3d 36 37 37 38 35 20  8c 20 f2 57 69 6d 70 5f  |.=67785 . .Wimp_|
000079b0  57 69 6e 64 6f 77 45 72  72 6f 72 42 6f 78 28 22  |WindowErrorBox("|
000079c0  21 53 77 61 70 70 65 72  22 2c 22 50 6c 65 61 73  |!Swapper","Pleas|
000079d0  65 20 77 72 69 74 65 20  65 6e 61 62 6c 65 20 74  |e write enable t|
000079e0  68 65 20 64 69 73 6b 22  29 3a d9 20 23 58 25 3a  |he disk"):. #X%:|
000079f0  e1 0d 2f 6c 4a e7 20 9f  3d 36 37 37 39 35 20 8c  |../lJ. .=67795 .|
00007a00  20 f2 57 69 6d 70 5f 57  69 6e 64 6f 77 45 72 72  | .Wimp_WindowErr|
00007a10  6f 72 42 6f 78 28 22 21  53 77 61 70 70 65 72 22  |orBox("!Swapper"|
00007a20  2c 22 50 6c 65 61 73 65  20 69 6e 73 65 72 74 20  |,"Please insert |
00007a30  61 20 64 69 73 6b 2e 22  29 3a e1 0d 2f 76 05 cc  |a disk."):../v..|
00007a40  0d 2f 80 27 f2 57 69 6d  70 5f 57 69 6e 64 6f 77  |./.'.Wimp_Window|
00007a50  45 72 72 6f 72 42 6f 78  28 22 21 53 77 61 70 70  |ErrorBox("!Swapp|
00007a60  65 72 22 2c f6 24 29 0d  2f 8a 0d 44 4f 53 41 56  |er",.$)./..DOSAV|
00007a70  45 25 3d a3 0d 2f 94 05  cd 0d 2f 9e 05 e1 0d 2f  |E%=../..../..../|
00007a80  a8 05 3a 0d 2f b2 13 dd  20 f2 6d 6f 75 73 65 62  |..:./... .mouseb|
00007a90  6f 78 28 77 25 29 0d 2f  bc 0e 77 69 6d 70 25 21  |ox(w%)./..wimp%!|
00007aa0  30 3d 77 25 0d 2f c6 24  c8 99 22 57 69 6d 70 5f  |0=w%./.$.."Wimp_|
00007ab0  47 65 74 57 69 6e 64 6f  77 4f 75 74 6c 69 6e 65  |GetWindowOutline|
00007ac0  22 2c 2c 77 69 6d 70 25  0d 2f d0 43 c8 97 20 c8  |",,wimp%./.C.. .|
00007ad0  93 20 77 69 6d 70 25 21  34 2b 32 2c 77 69 6d 70  |. wimp%!4+2,wimp|
00007ae0  25 21 38 2b 32 2c 77 69  6d 70 25 21 31 32 2d 77  |%!8+2,wimp%!12-w|
00007af0  69 6d 70 25 21 34 2d 34  2c 77 69 6d 70 25 21 31  |imp%!4-4,wimp%!1|
00007b00  36 2d 77 69 6d 70 25 21  38 2d 34 0d 2f da 05 e1  |6-wimp%!8-4./...|
00007b10  0d 2f e4 05 3a 0d 2f ee  0c dd 20 f2 75 6e 62 6f  |./..:./... .unbo|
00007b20  78 0d 2f f8 2b c8 99 20  22 4f 53 5f 52 65 61 64  |x./.+.. "OS_Read|
00007b30  4d 6f 64 65 56 61 72 69  61 62 6c 65 22 2c 2d 31  |ModeVariable",-1|
00007b40  2c 31 31 20 b8 20 2c 2c  78 70 69 63 0d 30 02 2b  |,11 . ,,xpic.0.+|
00007b50  c8 99 20 22 4f 53 5f 52  65 61 64 4d 6f 64 65 56  |.. "OS_ReadModeV|
00007b60  61 72 69 61 62 6c 65 22  2c 2d 31 2c 31 32 20 b8  |ariable",-1,12 .|
00007b70  20 2c 2c 79 70 69 63 0d  30 0c 2b c8 99 20 22 4f  | ,,ypic.0.+.. "O|
00007b80  53 5f 52 65 61 64 4d 6f  64 65 56 61 72 69 61 62  |S_ReadModeVariab|
00007b90  6c 65 22 2c 2d 31 2c 34  20 b8 20 2c 2c 78 66 61  |le",-1,4 . ,,xfa|
00007ba0  63 74 0d 30 16 2b c8 99  20 22 4f 53 5f 52 65 61  |ct.0.+.. "OS_Rea|
00007bb0  64 4d 6f 64 65 56 61 72  69 61 62 6c 65 22 2c 2d  |dModeVariable",-|
00007bc0  31 2c 35 20 b8 20 2c 2c  79 66 61 63 74 0d 30 20  |1,5 . ,,yfact.0 |
00007bd0  25 c8 97 20 c8 93 20 30  2c 30 2c 78 70 69 63 3c  |%.. .. 0,0,xpic<|
00007be0  3c 78 66 61 63 74 2c 79  70 69 63 3c 3c 79 66 61  |<xfact,ypic<<yfa|
00007bf0  63 74 0d 30 2a 05 e1 0d  ff                       |ct.0*....|
00007bf9

Our privacy policy is here.
Last updated: 01 May 2025, 21:49 UTC
Website designed by .