Home » Archimedes archive » Acorn User » AU 1994-11.adf » !StarInfo_StarInfo » Newcomb/!SmallTask/!RunImage

Newcomb/!SmallTask/!RunImage

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

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

Tape/disk: Home » Archimedes archive » Acorn User » AU 1994-11.adf » !StarInfo_StarInfo
Filename: Newcomb/!SmallTask/!RunImage
Read OK:
File size: 44A2 bytes
Load address: 0000
Exec address: 0000
File contents
   10REM>!RunImage
   20IL%=1000+257
   30DIMB%2000,I%IL%,M%500,MC%600:I2%=I%
   40SYS"OS_Module",6,,,1000TO,,V%
   50PROCASS
   60SYS"Wimp_Initialise",200,&4B534154,"!SmallTask"TO,TASKH%
   70SYS"Wimp_OpenTemplate",,"<Obey$Dir>.Templates"
   80MH%=FNLOADTEMP("Main")
   90IH%=FNLOADTEMP("Info")
  100SH%=FNLOADTEMP("Size")
  110VH%=FNLOADTEMP("Save")
  120SYS"Wimp_CloseTemplate",,"<Obey$Dir>.Templates"
  130$I2%=CHR$13+CHR$13
  140B%!0=-1:B%!4=0:B%!8=0:B%!12=68:B%!16=68:B%!20=&1700301A:$(B%+24)="!SmallTask":SYS"Wimp_CreateIcon",,B%
  150HIST%=-1:PAUSE%=FALSE:CARET%=FALSE:SPR%=0
  160PROCNEWSIZE
  170ONERRORSYS"Wimp_ReportError","ABCD"+REPORT$+" at line "+STR$ERL,1,"!SmallTask"
  180REPEAT
  190SYS"Wimp_Poll",,B%TOR%
  200CASER%OF
  210WHEN0:PROCNULL
  220WHEN1:PROCREDRAW
  230WHEN2:SYS"Wimp_OpenWindow",,B%
  240WHEN3:IFB%!0=MH%THENPROCKILLCHILD ELSESYS"Wimp_CloseWindow",,B%
  250WHEN6:PROCMOUSE
  260WHEN7:PROCDRAGFINISHED
  270WHEN8:PROCKEY
  280WHEN9:PROCMENUSELECT
  290WHEN17,18:PROCRECEIVE
  300ENDCASE
  310UNTILFALSE
  320
  330DEFPROCNULL
  340IFHIST%<>-1THEN
  350PROCUPDATECHANGE
  360SYS"Wimp_GetPointerInfo",,B%:IFB%!12=MH%THEN
  370IFB%!16=-1THEN
  380B%!300=MH%:SYS"Wimp_GetWindowState",,B%+300
  390WB%!0=1:WB%!4=B%!0-B%!304+B%!320:WB%!8=B%!4-B%!316+B%!324+RY%:WB%!12=B%!8
  400ELSE
  410IFB%!8AND2THENPROCMAKEMENU(B%!0-64,B%!4)
  420ENDIF
  430ENDIF
  440ENDIF
  450ENDPROC
  460
  470DEFPROCC
  480IFSPR%<>0THENSYS"OS_Module",7,,SPR%:SPR%=0
  490SYS"OS_Module",7,,V%
  500SYS"OS_Module",7,,RMA%
  510IFHIST%<>-1THENPROCKILLCHILD
  520SYS"XWimp_CloseDown"
  530END
  540
  550DEFPROCREDRAW
  560SYS"Wimp_RedrawWindow",,B%TOF%
  570WHILEF%
  580B%!300=0:B%!304=-RY%:B%!308=5000:B%!312=0:B%!316=&102:B%!320=B%+360:B%!324=SPR%:B%!328=10:$(B%+360)="TaskScreen":SYS"Wimp_PlotIcon",,B%+300
  590SYS"Wimp_GetRectangle",,B%TOF%
  600ENDWHILE
  610ENDPROC
  620
  630DEFPROCMOUSE
  640IFB%!12=-2THEN
  650IF(B%!8AND%101)THEN
  660IFHIST%=-1THENPROCTASK("")ELSEB%!300=MH%:SYS"Wimp_GetWindowState",,B%+300:B%!328=-1:SYS"Wimp_OpenWindow",,B%+300:PROCGAINCARET
  670ENDIF
  680IFB%!8=2THENPROCMAKEMENU(B%!0-64,492)
  690ENDIF
  700IFB%!12=MH%THEN
  710B%!300=MH%:SYS"Wimp_GetWindowState",,B%+300
  720PROCBUFFM
  730ENDIF
  740IFB%!12=VH%THEN
  750IF(B%!8AND%1010000)ANDB%!16=0THENPROCSAVEDRAG
  760IFB%!16=2AND(B%!8AND%101)THENSVEBUT%=B%!8*16:PROCSAVEITC(FNGNAME)
  770ENDIF
  780IFB%!12=SH%THEN
  790IFB%!8AND%101THEN
  800CASEB%!16OF
  810WHEN0,3,10,14:PROCDOWNARROW
  820WHEN1,4,11,15:PROCUPARROW
  830WHEN8:PROCNEWSIZE:IFB%!8<>1THENSYS"Wimp_CreateMenu",,-1
  840WHEN9:SYS"Wimp_CreateMenu",,-1
  850WHEN18:PROCSETTOSCREENSIZE
  860ENDCASE
  870ENDIF
  880ENDIF
  890ENDPROC
  900
  910DEFPROCDOWNARROW
  920LOCALNV%
  930NV%=VALFNGETI(SH%,B%!16+2)-1:IFNV%<0THENNV%=0
  940PROCSETI(SH%,B%!16+2,STR$NV%)
  950ENDPROC
  960
  970DEFPROCUPARROW
  980LOCALNV%
  990NV%=VALFNGETI(SH%,B%!16+1)+1
 1000CASEB%!16OF
 1010WHEN1,4:IFNV%>4095THENNV%=4095
 1020WHEN15:IFNV%>9999THENNV%=9999
 1030WHEN11:IFNV%>255THENNV%=255
 1040ENDCASE
 1050PROCSETI(SH%,B%!16+1,STR$NV%)
 1060ENDPROC
 1070
 1080DEFPROCKEY
 1090CASEB%!0OF
 1100WHENMH%:IFB%!24<256ANDNOTPAUSE%THENPROCSEND(CHR$B%!24)ELSESYS"Wimp_ProcessKey",B%!24
 1110WHENVH%:IFB%!24=13THENSVEBUT%=4:PROCSAVEITC(FNGNAME)ELSESYS"Wimp_ProcessKey",B%!24
 1120WHENSH%:IFB%!24=13THENPROCNEWSIZE:SYS"Wimp_CreateMenu",,-1:ELSESYS"Wimp_ProcessKey",B%!24
 1130ENDCASE
 1140ENDPROC
 1150
 1160DEFPROCRECEIVE
 1170CASEB%!16OF
 1180WHEN0:PROCC
 1190WHEN2:PROCDATASAVEACK
 1200WHEN3:PROCDATALOAD
 1210WHEN9:SYS"Wimp_ForceRedraw",MH%,-1E9,-1E9,1E9,1E9
 1220WHEN&808C1:PROCUPDATECHANGE
 1230WHEN&808C2:PROCEGO
 1240WHEN&808C3:PROCCHILDDYING
 1250ENDCASE
 1260ENDPROC
 1270
 1280DEFFNGETI(H%,I%)
 1290B%!300=H%:B%!304=I%:SYS"Wimp_GetIconState",,B%+300
 1300=$B%!328
 1310
 1320DEFFNLOADTEMP(A$)
 1330SYS"Wimp_LoadTemplate",,B%,I2%,I%+IL%,-1,A$TO,,I2%
 1340SYS"Wimp_CreateWindow",,B%TOH%
 1350=H%
 1360
 1370DEFPROCTASK(T$)
 1380IFHIST%<>-1THENIFFNCHECK THENENDPROC
 1390LOCALX%,Y%,SX%,SY%,SSIZE%,MM%
 1400Y%=RLY%:X%=RLX%:MM%=RLM%
 1410SYS"OS_ReadModeVariable",MM%,4TO,,S2X%:SYS"OS_ReadModeVariable",MM%,5TO,,S2Y%:SX%=X%>>S2X%:SY%=Y%>>S2Y%
 1420SYS"OS_ReadModeVariable",MM%,9TO,,BPP%:IFS2X%=3THENBPP%+=1
 1430SYS"OS_ReadModeVariable",MM%,3TO,,MAXC%
 1440B%!0=0:B%!4=-Y%:B%!8=X%:B%!12=0:SYS"Wimp_SetExtent",MH%,B%:RY%=Y%
 1450SSIZE%=300+SY%*(((SX%/8)*2^BPP%)DIV4+1)*4
 1460SYS"OS_Module",6,,,SSIZE%TO,,SPR%;F%:IFF%AND1THENERROR1,"Not enough free memory in RMA for task window of this size."
 1470!SPR%=SSIZE%-20:SPR%!8=16:SYS"OS_SpriteOp",&109,SPR%
 1480B%!0=SH%:B%!4=19:SYS"Wimp_GetIconState",,B%:PAL%=(B%!24AND(1<<21))<>FALSE
 1490SYS"OS_SpriteOp",&10F,SPR%,"TaskScreen",-(MAXC%<>63ANDPAL%),SX%,SY%,MM%:!V%=0:CM%=MM%
 1500!CHANGEDBX=-20:!REENTRANT=0:REM*-21
 1510IFPAL%THEN
 1520CASEMAXC%OF
 1530WHEN15:FORN%=0TO64STEP64:RESTORE+0:FORMM%=0TO63STEP8:READCCC%:SPR%!(&3C+N%+MM%)=CCC%:SPR%!(&3C+N%+MM%+4)=CCC%:NEXT,
 1540DATA&10,&FF10,&FF0010,&FFFF10,&FF000010,&FF00FF10,&FFFF0010,&FFFFFF10
 1550WHEN3:RESTORE+0:FORN%=0TO31STEP8:READCCC%:SPR%!(N%+&3C)=CCC%:SPR%!(N%+&40)=CCC%:NEXT
 1560DATA&10,&FF10,&FFFF10,&FFFFFF10
 1570WHEN1:SPR%!&3C=&10:SPR%!&40=&10:SPR%!&44=&FFFFFF10:SPR%!&48=&FFFFFF10
 1580ENDCASE
 1590ENDIF
 1600?STATUS=0:OVPOS%=-10:OPOS%=-10:!HSPR=SPR%:!HV=V%
 1610OSCLI"Wimptask %TaskWindow """" -wimpslot "+STR$RLS%+"K -name ""Small Task Window"" -ctrl -task &"+STR$~TASKH%+" -txt &30000000"
 1620GRAPHORIG!0=0:GRAPHORIG!4=0
 1630OSCLI"Set Alias$StartUpSMT Unset Alias$StartUpSMT|MEcho |<12>|<1>|M"+T$
 1640PROCSTARTUPFT
 1650HIST%=-2
 1660B%!0=MH%:SYS"Wimp_GetWindowInfo",,B%:$(B%!76)="SmallTask: "+T$
 1670B%!0=MH%:SYS"Wimp_GetWindowState",,B%:B%!28=-1:SYS"Wimp_OpenWindow",,B%
 1680PAUSE%=FALSE
 1690SYS"Wimp_ForceRedraw",MH%,-1E9,-1E9,1E9,1E9:PROCGAINCARET
 1700ENDPROC
 1710
 1720DEFFNCHECK
 1730SYS"Wimp_ReportError","1234A SmallTask is already active. Kill old one?",19,"Message from !SmallTask"TO,K%:IFK%=1THENPROCKILLCHILD:=FALSE
 1740=TRUE
 1750
 1760DEFPROCOUTPUT
 1770LOCALSB%
 1780SYS"OS_SpriteOp",&13C,SPR%,"TaskScreen",V%
 1790SYS"OS_ChangedBox",1:SYS"OS_ChangedBox",2
 1800D%=B%+24:C%=B%!20:CALLMC%
 1810SYS"OS_ChangedBox",-1TO,SB%
 1820IFSB%!4<>&7FFFFFFFTHEN
 1830B%!300=MH%:B%!304=SB%!4*(1<<S2X%):B%!308=SB%!8*(1<<S2Y%)-RY%:B%!312=SB%!12*(1<<S2X%)+(1<<S2X%):B%!316=SB%!16*(1<<S2Y%)-RY%+(1<<S2Y%)
 1840SYS"OS_Byte",117TO,STT%:OPOS%=POS*8:OVPOS%=VPOS*8+9
 1850SYS"OS_SpriteOp",&13C,SPR%,,1
 1860IFCARET%THEN
 1870SYS"Wimp_GetCaretPosition",,B%+700
 1880IFB%!700=MH%THEN
 1890SYS"Wimp_SetCaretPosition",MH%,-1,OPOS%<<S2X%,-(OVPOS%<<S2Y%),11<<S2Y%
 1900ENDIF
 1910ENDIF
 1920SYS"Wimp_UpdateWindow",,B%+300TOF%
 1930WHILEF%
 1940B%!600=0:B%!604=-RY%:B%!608=5000:B%!612=0:B%!616=&102:B%!620=B%+660:B%!624=SPR%:B%!628=10:$(B%+660)="TaskScreen":SYS"Wimp_PlotIcon",,B%+600
 1950SYS"Wimp_GetRectangle",,B%+300TOF%
 1960ENDWHILE
 1970ELSE
 1980SYS"OS_SpriteOp",&13C,SPR%,,1
 1990ENDIF
 2000ENDPROC
 2010
 2020DEFPROCUPDATECHANGE
 2030SB%=CHANGEDBX-4
 2040IFSB%!4<>-20ANDSB%!4<>&7FFFFFFFTHEN
 2050 B%!300=MH%:B%!304=SB%!4*(1<<S2X%):B%!308=SB%!8*(1<<S2Y%)-RY%:B%!312=SB%!12*(1<<S2X%)+(1<<S2X%):B%!316=SB%!16*(1<<S2Y%)-RY%+(1<<S2Y%)
 2060 SYS"OS_SpriteOp",&13C,SPR%,"TaskScreen",V%:SYS"OS_Byte",117TO,STT%:OPOS%=POS*8:OVPOS%=VPOS*8+9:SYS"OS_SpriteOp",&13C,SPR%,,1
 2070 IFCARET%THEN
 2080  SYS"Wimp_GetCaretPosition",,B%+700
 2090  IFB%!700=MH%THEN
 2100   SYS"Wimp_SetCaretPosition",MH%,-1,OPOS%<<S2X%,-(OVPOS%<<S2Y%),11<<S2Y%
 2110  ENDIF
 2120 ENDIF
 2130 SYS"Wimp_UpdateWindow",,B%+300TOF%
 2140 WHILEF%
 2150  B%!600=0:B%!604=-RY%:B%!608=5000:B%!612=0:B%!616=&102:B%!620=B%+660:B%!624=SPR%:B%!628=10:$(B%+660)="TaskScreen":SYS"Wimp_PlotIcon",,B%+600
 2160  SYS"Wimp_GetRectangle",,B%+300TOF%
 2170 ENDWHILE
 2180ENDIF
 2190!CHANGEDBX=-20
 2200ENDPROC
 2210
 2220DEFPROCSEND(S$)
 2230B%!0=256:B%!12=0:B%!16=&808C0:B%!20=LENS$:$(B%+24)=S$
 2240SYS"Wimp_SendMessage",17,B%,HIST%
 2250ENDPROC
 2260
 2270DEFPROCEGO
 2280HIST%=B%!4:PROCSTARTFT
 2290PROCSEND("StartUpSMT"+CHR$13)
 2300ENDPROC
 2310
 2320DEFPROCCHILDDYING
 2330IFB%!4<>HIST%THENENDPROC
 2340PROCFINISHFT
 2350B%!0=MH%:SYS"Wimp_CloseWindow",,B%:HIST%=-1
 2360PAUSE%=FALSE
 2370IFSPR%<>0THENSYS"OS_Module",7,,SPR%:SPR%=0
 2380ENDPROC
 2390
 2400DEFPROCKILLCHILD
 2410B%!0=256:B%!12=0:B%!16=&808C4:SYS"Wimp_SendMessage",17,B%,HIST%
 2420B%!4=HIST%:PROCCHILDDYING:PAUSE%=FALSE
 2430ENDPROC
 2440
 2450DEFPROCMAKEMENU(X%,Y%)
 2460LOCALS%
 2470S%=M%
 2480$S%="New task"
 2490S%!12=&70207:S%!16=204:S%!20=44:S%!24=0:S%+=28
 2500S%!0=128+4:S%!4=-1:S%!8=&7000131:S%!12=I2%+1:S%!16=240:S%!20=I2%:S%+=24
 2510$S%="!SmallTask":M2%=S%
 2520S%!12=&70207:S%!16=172:S%!20=44:S%!24=0:S%+=28
 2530S%!0=0:S%!4=IH%:S%!8=&7000031:$(S%+12)="Info":S%+=24
 2540S%!0=-PAUSE%:S%!4=-1:S%!8=&7000031-(1<<22)*NOT(HIST%<>-1):$(S%+12)="Pause":S%+=24
 2550S%!0=0:S%!4=VH%:S%!8=&7000031-(1<<22)*NOT(HIST%<>-1):$(S%+12)="Save":S%+=24
 2560S%!0=0:S%!4=-1:S%!8=&7000031-(1<<22)*NOT(HIST%<>-1):$(S%+12)="Kill task":S%+=24
 2570S%!0=-CARET%:S%!4=-1:S%!8=&7000031:$(S%+12)="Show caret":S%+=24
 2580B%!800=MH%:SYS"Wimp_GetWindowState",,B%+800
 2590S%!0=0:S%!4=-1:S%!8=&7000031-(1<<22)*NOT((B%!832AND(1<<16))<>0AND(B%!832AND(1<<20))=0):$(S%+12)="Gain caret":S%+=24
 2600S%!0=0:S%!4=M%:S%!8=&7000031:$(S%+12)="New task":S%+=24
 2610S%!0=0:S%!4=SH%:S%!8=&7000031:$(S%+12)="Next task":S%+=24
 2620S%!0=128:S%!4=-1:S%!8=&7000031:$(S%+12)="Quit":S%+=24
 2630PROCSETI(SH%,5,STR$RLY%):PROCSETI(SH%,2,STR$RLX%):PROCSETI(SH%,12,STR$RLM%):PROCSETI(SH%,16,STR$RLS%)
 2640SYS"Wimp_CreateMenu",,M2%,X%,Y%
 2650ENDPROC
 2660
 2670DEFPROCSETTOSCREENSIZE
 2680LOCALMM%,SF%,SSX%,SSY%
 2690MM%=VALFNGETI(SH%,12):SYS"OS_CheckModeValid",MM%TORR%:IFRR%=-1THENERROR1,"Invalid mode"
 2700SYS"OS_ReadModeVariable",MM%,4TO,,SF%:SYS"OS_ReadModeVariable",MM%,11TO,,SSX%:SSX%=(SSX%+1)<<SF%
 2710SYS"OS_ReadModeVariable",MM%,5TO,,SF%:SYS"OS_ReadModeVariable",MM%,12TO,,SSY%:SSY%=(SSY%+1)<<SF%
 2720PROCSETI(SH%,2,STR$SSX%):PROCSETI(SH%,5,STR$SSY%)
 2730ENDPROC
 2740
 2750DEFPROCNEWSIZE
 2760IFVALFNGETI(SH%,5)>4095ORVALFNGETI(SH%,2)>4095THENERROR1,"Coorinates must not exceed 4095"
 2770SYS"OS_CheckModeValid",VALFNGETI(SH%,12)TORR%:IFRR%=-1THENERROR1,"Invalid mode"
 2780RLY%=VALFNGETI(SH%,5)DIV4*4:RLX%=VALFNGETI(SH%,2)DIV2*2:RLM%=VALFNGETI(SH%,12):RLS%=VALFNGETI(SH%,16)
 2790ENDPROC
 2800
 2810DEFPROCMENUSELECT
 2820LOCALA$
 2830SYS"Wimp_GetPointerInfo",,B%+400
 2840SYS"Wimp_DecodeMenu",,M2%,B%,B%+100TO,,,A$
 2850RO%=B%!408=1
 2860CASEA$OF
 2870WHEN"Info":SYS"Wimp_CreateMenu",,IH%,B%!400-64,B%!404:RO%=FALSE
 2880WHEN"Pause":PROCPAUSE
 2890WHEN"Save":SYS"Wimp_CreateMenu",,VH%,B%!400-64,B%!404:RO%=FALSE
 2900WHEN"Kill task":PROCKILLCHILD
 2910WHEN"Show caret":CARET%=NOTCARET%:SYS"Wimp_GetCaretPosition",,B%+500:IFB%!500=MH%THENPROCGAINCARET
 2920WHEN"Gain caret":PROCGAINCARET
 2930WHEN"Next task":SYS"Wimp_CreateMenu",,SH%,B%!400-64,B%!404:RO%=FALSE
 2940WHEN"Quit":PROCC
 2950ENDCASE
 2960IFLEFT$(A$,9)="New task."THENPROCTASK($(I2%+1))
 2970IFRO%THENPROCMAKEMENU(0,0)
 2980ENDPROC
 2990
 3000DEFPROCPAUSE
 3010B%!0=256:B%!12=0:IFPAUSE%THENB%!16=&808C7 ELSEB%!16=&808C6
 3020SYS"Wimp_SendMessage",17,B%,HIST%
 3030PAUSE%=NOTPAUSE%
 3040IFPAUSE%THENPROCFINISHFT ELSEPROCSTARTFT
 3050ENDPROC
 3060
 3070DEFFNNULL(A%)
 3080SYS"OS_ReadEscapeState",A%TOA$
 3090=A$
 3100
 3110DEFPROCSAVEDRAG
 3120X%=B%!0:Y%=B%!4
 3130SVEBUT%=B%!8
 3140B%!104=5
 3150B%!160=VH%:SYS"Wimp_GetWindowState",,B%+160:B%!200=VH%:B%!204=0:SYS"Wimp_GetIconState",,B%+200
 3160B%!108=B%!164+B%!208:B%!112=B%!176+B%!220:B%!116=B%!164+B%!216:B%!120=B%!176+B%!212
 3170B%!0=4:B%!4=5:B%!8=11:B%!12=12:B%!16=-1:SYS"OS_ReadVduVariables",B%,B%+200
 3180B%!124=B%!108-X%:B%!128=B%!112-Y%:B%!132=(1<<B%!200)*(B%!208)+B%!124+B%!116-B%!108:B%!136=(1<<B%!204)*(B%!212)+B%!128+B%!120-B%!112
 3190SYS"Wimp_DragBox",,B%+100
 3200ENDPROC
 3210
 3220DEFPROCDRAGFINISHED
 3230SYS"Wimp_GetPointerInfo",,B%+28
 3240B%!20=B%!40:B%!24=B%!44
 3250B%!36=1:B%!40=&FF9
 3260N$="."+FNGNAME:N%=LENN$:NM$=""
 3270WHILENOT(MID$(N$,N%,1)="."ORMID$(N$,N%,1)=":")
 3280NM$=MID$(N$,N%,1)+NM$:N%-=1
 3290ENDWHILE
 3300$(B%+44)=NM$+CHR$0:B%!0=256:B%!12=0:B%!16=1
 3310SYS"Wimp_SendMessage",17,B%,B%!20,B%!24
 3320ENDPROC
 3330
 3340DEFPROCSAVEIT(N$)
 3350IFHIST%<>-1THENSYS"OS_SpriteOp",&10C,SPR%,N$
 3360IFSVEBUT%<>16THENSYS"Wimp_CreateMenu",,-1
 3370ENDPROC
 3380
 3390DEFPROCDATASAVEACK
 3400B%!12=B%!8:B%!16=3:SYS"Wimp_SendMessage",17,B%,B%!20,B%!24
 3410IFB%!36<>-1THENPROCSETI(VH%,1,FNNULL(B%+44))
 3420PROCSAVEIT(FNNULL(B%+44))
 3430ENDPROC
 3440
 3450DEFFNGNAME
 3460B%!200=VH%:B%!204=1:SYS"Wimp_GetIconState",,B%+200
 3470=FNNULL(B%!228)
 3480
 3490DEFPROCSAVEITC(N$)
 3500IFINSTR(N$,".")=0ANDINSTR(N$,":")=0THENERROR1,"To save, drag icon to directory viewer"
 3510PROCSAVEIT(N$)
 3520ENDPROC
 3530
 3540DEFPROCSETI(H%,I%,A$)
 3550B%!300=H%:B%!304=I%:SYS"Wimp_GetIconState",,B%+300
 3560$B%!328=A$
 3570B%!308=0:B%!312=0:SYS"Wimp_SetIconState",,B%+300
 3580ENDPROC
 3590
 3600DEFPROCGAINCARET
 3610IFCARET%THENSYS"Wimp_SetCaretPosition",MH%,-1,OPOS%<<S2X%,-(OVPOS%<<S2Y%),11<<S2Y%ELSESYS"Wimp_SetCaretPosition",MH%,-1,-100,-100,1<<25
 3620ENDPROC
 3630
 3640DEFPROCASS
 3650SYS"OS_Module",6,,,1024TO,,RMA%
 3660FORN%=0TO2STEP2
 3670P%=RMA%
 3680[OPT N%
 3690.FTENTRY   STMFD   R13!,{R0-R2,R14}
 3700           MOV     R0,#&13C
 3710           LDR     R1,HSPR
 3720           ADR     R2,HSPRNAME
 3730           LDR     R3,HV
 3740           SWI     "OS_SpriteOp"
 3750           MOV     R0,#&1A
 3760           ADR     R1,FTOSMOUSE
 3770           MOV     R2,#0
 3780           SWI     "OS_Claim"
 3790           MOV     R0,#6
 3800           ADR     R1,FTOSBYTE
 3810           MOV     R2,#0
 3820           SWI     "OS_Claim"
 3830           MOV     R0,#7
 3840           ADR     R1,FTOSWORD
 3850           MOV     R2,#0
 3860           SWI     "OS_Claim"
 3870           BL      CLAIMWC
 3880           LDR     R2,CHANGEDBX
 3890           CMN     R2,#NOT-21
 3900           MOVEQ   R0,#1
 3910           SWIEQ   "OS_ChangedBox"
 3920           CMN     R2,#NOT-20
 3930           CMNNE   R2,#NOT-21
 3940           MOVEQ   R0,#2
 3950           SWIEQ   "OS_ChangedBox"
 3960           LDMFD   R13!,{R0-R2,PC}^
 3970.HSPR      EQUD    0
 3980.HSPRNAME  EQUS    "TaskScreen"+CHR$0
 3990           ALIGN
 4000.HV        EQUD    0
 4010
 4020.FTOSWORD  STMFD   R13!,{R2,R14}
 4030           CMP     R0,#21
 4040           LDMNEFD R13!,{R2,PC}^
 4050           LDRB    R2,[R1]
 4060           CMP     R2,#4
 4070           CMPNE   R2,#6
 4080           LDMNEFD R13!,{R2,R14,PC}^
 4090           LDMFD   R13!,{R2,PC}^
 4100
 4110.FTOSBYTE  CMP     R0,#106
 4120           MOVNES  PC,R14
 4130           LDMFD   R13!,{PC}^
 4140
 4150.CHANGEDBX EQUD    -20
 4160           EQUD    0
 4170           EQUD    0
 4180           EQUD    0
 4190.FTEXIT    STMFD   R13!,{R0-R4,R14}
 4200           MVN     R0,#0 ;=-1
 4210           SWI     "OS_ChangedBox"
 4220           LDMIB   R1,{R1-R4}
 4230           ADR     R0,CHANGEDBX
 4240           STMIA   R0,{R1-R4}
 4250           MOV     R0,#&13C
 4260           LDR     R1,HSPR
 4270           MOV     R2,#0
 4280           MOV     R3,#1
 4290           SWI     "OS_SpriteOp"
 4300           MOV     R0,#7
 4310           ADR     R1,FTOSWORD
 4320           MOV     R2,#0
 4330           SWI     "OS_Release"
 4340           MOV     R0,#6
 4350           ADR     R1,FTOSBYTE
 4360           MOV     R2,#0
 4370           SWI     "OS_Release"
 4380           MOV     R0,#&1A
 4390           ADR     R1,FTOSMOUSE
 4400           MOV     R2,#0
 4410           SWI     "OS_Release"
 4420           BL      RELEASEWC
 4430           LDMFD   R13!,{R0-R4,PC}^
 4440
 4450.CLAIMWC   STMFD   R13!,{R0,R14}
 4460           MOV     R0,#&3
 4470           ADR     R1,FTOSWRTEC
 4480           MOV     R2,#0
 4490           SWI     "OS_Claim"
 4500           LDMFD   R13!,{R0,PC}^
 4510.RELEASEWC STMFD   R13!,{R0,R14}
 4520           MOV     R0,#&3
 4530           ADR     R1,FTOSWRTEC
 4540           MOV     R2,#0
 4550           SWI     "OS_Release"
 4560           LDMFD   R13!,{R0,PC}^
 4570
 4580.FTOSWRTEC STMFD   R13!,{R0-R4}
 4590           LDR     R1,REENTRANT
 4600           CMP     R1,#1
 4610           LDMEQFD R13!,{R0-R4}
 4620           STMEQFD R13!,{R14}
 4630           MOVEQS  PC,R14
 4640           MOV     R1,#1
 4650           STR     R1,REENTRANT
 4660           LDRB    R4,STATUS
 4670           CMP     R4,#0
 4680           BEQ     NEWCHAR
 4690           CMP     R4,#17
 4700           RSBGE   R1,R4,#20
 4710           BLGE    RIGBIT
 4720           SUB     R4,R4,#1
 4730.LOOPBACK  STR     R4,STATUS
 4740           MOV     R1,#0
 4750           STR     R1,REENTRANT
 4760           LDMFD   R13!,{R0-R4}
 4770           LDMFD   R13!,{PC}^
 4780.NEWCHAR   STMFD   R13!,{R0,R2}
 4790           MOV     R0,#218
 4800           MOV     R1,#0
 4810           MOV     R2,#255
 4820           SWI     "OS_Byte"
 4830           CMP     R1,#0
 4840           LDMFD   R13!,{R0,R2}
 4850           SWINE   "OS_WriteC"
 4860           BNE     LOOPBACK
 4870           CMP     R0,#29
 4880           MOVEQ   R4,#20
 4890           SWIEQ   "OS_WriteC"
 4900           BEQ     LOOPBACK
 4910           CMP     R0,#14
 4920           CMPNE   R0,#20
 4930           BEQ     LOOPBACK
 4940           CMP     R0,#19
 4950           MOVEQ   R4,#5
 4960           BEQ     LOOPBACK
 4970           CMP     R0,#22
 4980           SWIEQ   &100+12
 4990           MOVEQ   R4,#1
 5000           BEQ     LOOPBACK
 5010           SWI     "OS_WriteC"
 5020           B       LOOPBACK
 5030.RIGBIT    STMFD   R13!,{R14}
 5040           ADR     R2,TMPORIG
 5050           CMP     R1,#2
 5060           ADDGE   R1,R1,#2
 5070           ADD     R2,R2,R1
 5080           SWI     "OS_WriteC"
 5090           CMP     R4,#19
 5100           CMPNE   R4,#17
 5110           BLEQ    CHECKNEG
 5120           STRB    R0,[R2]
 5130           CMP     R4,#17
 5140           LDREQ   R1,TMPORIG
 5150           STREQ   R1,GRAPHORIG
 5160           LDREQ   R1,TMPORIG+4
 5170           STREQ   R1,GRAPHORIG+4
 5180           MOVEQ   R4,#1
 5190           LDMFD   R13!,{PC}^
 5200.CHECKNEG  TST     R0,#&80
 5210           MOVNE   R1,#&FF
 5220           MOVEQ   R1,#0
 5230           STRB    R1,[R2,#1]
 5240           STRB    R1,[R2,#2]
 5250           MOVS    PC,R14
 5260.STATUS    EQUD    0
 5270.REENTRANT EQUD    0
 5280.GRAPHORIG EQUD    0
 5290           EQUD    0
 5300.TMPORIG   EQUD    0
 5310           EQUD    0
 5320
 5330.FTOSMOUSE STMFD   R13!,{R3-R4}
 5340           SWI     "OS_ReadMonotonicTime"
 5350           MOV     R3,R0
 5360           LDR     R2,FTPBUFF
 5370           LDR     R1,[R2]
 5380           CMP     R1,#0
 5390           BLEQ    FTMOVEON
 5400           LDR     R0,[R2,#4]
 5410           LDR     R1,[R2,#8]
 5420           LDR     R2,[R2,#12]
 5430           LDR     R3,GRAPHORIG
 5440           SUB     R0,R0,R3
 5450           LDR     R3,GRAPHORIG+4
 5460           SUB     R1,R1,R3
 5470           LDMFD   R13!,{R3-R4,PC}^
 5480.FTMOVEON  ADD     R1,R2,#16
 5490           ADR     R0,FTBUFF
 5500           ADD     R0,R0,#128
 5510           CMP     R1,R0
 5520           ADREQ   R1,FTBUFF
 5530           STR     R1,FTPBUFF
 5540           MOVS    PC,R14
 5550.FTPBUFF   EQUD    FTBUFF
 5560.FTBUFF    EQUS    STRING$(128,CHR$0)
 5570.FTNAME    EQUS    "SmallTask"+CHR$0
 5580]:NEXT
 5590ENDPROC
 5600
 5610WB%!0=1:WB%!4=B%!0-B%!304+B%!320:WB%!8=B%!4-B%!316+B%!324+RY%:WB%!12=B%!8
 5620
 5630DEFPROCBUFFM
 5640IFWB%+16<>!FTPBUFF ANDWB%-112<>!FTPBUFF THEN
 5650B%!300=MH%:SYS"Wimp_GetWindowState",,B%+300
 5660WB%!0=0
 5670WB%!0=0:WB%!4=B%!0-B%!304+B%!320:WB%!8=B%!4-B%!316+B%!324+RY%:WB%!12=B%!8
 5680WB%+=16:IFWB%=FTBUFF+128THENWB%=FTBUFF
 5690ENDIF
 5700ENDPROC
 5710
 5720DEFPROCSTARTFT
 5730SYS"Filter_RegisterPreFilter",FTNAME,FTEXIT,0,HIST%
 5740SYS"Filter_RegisterPostFilter",FTNAME,FTENTRY,0,HIST%,0
 5750ENDPROC
 5760
 5770DEFPROCFINISHFT
 5780SYS"Filter_DeRegisterPreFilter",FTNAME,FTEXIT,0,HIST%
 5790SYS"Filter_DeRegisterPostFilter",FTNAME,FTENTRY,0,HIST%,0
 5800ENDPROC
 5810
 5820DEFPROCSTARTUPFT
 5830!FTPBUFF=FTBUFF:WB%=FTBUFF:FTBUFF!0=1:FTBUFF!4=512:FTBUFF!8=640:FTBUFF!12=0
 5840ENDPROC
 5850
 5860DEFPROCDATALOAD
 5870B%!12=B%!8:B%!16=4
 5880SYS"Wimp_SendMessage",17,B%,B%!4
 5890PROCTASK("Run "+FNNULL(B%+44))
 5900ENDPROC

�>!RunImage
IL%=1000+257
%�B%2000,I%IL%,M%500,MC%600:I2%=I%
(ș"OS_Module",6,,,1000�,,V%
2�ASS
<:ș"Wimp_Initialise",200,&4B534154,"!SmallTask"�,TASKH%
F1ș"Wimp_OpenTemplate",,"<Obey$Dir>.Templates"
PMH%=�LOADTEMP("Main")
ZIH%=�LOADTEMP("Info")
dSH%=�LOADTEMP("Size")
nVH%=�LOADTEMP("Save")
x2ș"Wimp_CloseTemplate",,"<Obey$Dir>.Templates"
�$I2%=�13+�13
�iB%!0=-1:B%!4=0:B%!8=0:B%!12=68:B%!16=68:B%!20=&1700301A:$(B%+24)="!SmallTask":ș"Wimp_CreateIcon",,B%
�%HIST%=-1:PAUSE%=�:CARET%=�:SPR%=0
��NEWSIZE
�B�ș"Wimp_ReportError","ABCD"+�$+" at line "+Þ,1,"!SmallTask"
��
�ș"Wimp_Poll",,B%�R%
�	ȎR%�
��0:�NULL
��1:�REDRAW
��2:ș"Wimp_OpenWindow",,B%
�5�3:�B%!0=MH%��KILLCHILD �ș"Wimp_CloseWindow",,B%
�
�6:�MOUSE
�7:�DRAGFINISHED
�8:�KEY
�9:�MENUSELECT
"�17,18:�RECEIVE
,�
6��
@
J
��NULL
T�HIST%<>-1�
^�UPDATECHANGE
h+ș"Wimp_GetPointerInfo",,B%:�B%!12=MH%�
r�B%!16=-1�
|.B%!300=MH%:ș"Wimp_GetWindowState",,B%+300
�MWB%!0=1:WB%!4=B%!0-B%!304+B%!320:WB%!8=B%!4-B%!316+B%!324+RY%:WB%!12=B%!8
��
�#�B%!8�2��MAKEMENU(B%!0-64,B%!4)
��
��
��
��
�
���C
�)�SPR%<>0�ș"OS_Module",7,,SPR%:SPR%=0
�ș"OS_Module",7,,V%
�ș"OS_Module",7,,RMA%
��HIST%<>-1��KILLCHILD
ș"XWimp_CloseDown"
�

&��REDRAW
0 ș"Wimp_RedrawWindow",,B%�F%
:ȕF%
D�B%!300=0:B%!304=-RY%:B%!308=5000:B%!312=0:B%!316=&102:B%!320=B%+360:B%!324=SPR%:B%!328=10:$(B%+360)="TaskScreen":ș"Wimp_PlotIcon",,B%+300
N ș"Wimp_GetRectangle",,B%�F%
X�
b�
l
v��MOUSE
��B%!12=-2�
��(B%!8�%101)�
�s�HIST%=-1��TASK("")�B%!300=MH%:ș"Wimp_GetWindowState",,B%+300:B%!328=-1:ș"Wimp_OpenWindow",,B%+300:�GAINCARET
��
�"�B%!8=2��MAKEMENU(B%!0-64,492)
��
��B%!12=MH%�
�.B%!300=MH%:ș"Wimp_GetWindowState",,B%+300
�
�BUFFM
��
��B%!12=VH%�
�&�(B%!8�%1010000)�B%!16=0��SAVEDRAG
�9�B%!16=2�(B%!8�%101)�SVEBUT%=B%!8*16:�SAVEITC(�GNAME)
�
�B%!12=SH%�
�B%!8�%101�
 ȎB%!16�
*�0,3,10,14:�DOWNARROW
4�1,4,11,15:�UPARROW
>0�8:�NEWSIZE:�B%!8<>1�ș"Wimp_CreateMenu",,-1
H�9:ș"Wimp_CreateMenu",,-1
R�18:�SETTOSCREENSIZE
\�
f�
p�
z�
�
���DOWNARROW
��NV%
�*NV%=��GETI(SH%,B%!16+2)-1:�NV%<0�NV%=0
��SETI(SH%,B%!16+2,�NV%)
��
�
�
��UPARROW
��NV%
�NV%=��GETI(SH%,B%!16+1)+1
�ȎB%!16�
��1,4:�NV%>4095�NV%=4095
��15:�NV%>9999�NV%=9999
�11:�NV%>255�NV%=255
�
�SETI(SH%,B%!16+1,�NV%)
$�
.
8	��KEY
BȎB%!0�
LC�MH%:�B%!24<256��PAUSE%��SEND(�B%!24)�ș"Wimp_ProcessKey",B%!24
VG�VH%:�B%!24=13�SVEBUT%=4:�SAVEITC(�GNAME)�ș"Wimp_ProcessKey",B%!24
`N�SH%:�B%!24=13��NEWSIZE:ș"Wimp_CreateMenu",,-1:�ș"Wimp_ProcessKey",B%!24
j�
t�
~
�
��RECEIVE
�ȎB%!16�
�	�0:�C
��2:�DATASAVEACK
��3:�DATALOAD
�1�9:ș"Wimp_ForceRedraw",MH%,-1E9,-1E9,1E9,1E9
��&808C1:�UPDATECHANGE
��&808C2:�EGO
��&808C3:�CHILDDYING
��
��
�
ݤGETI(H%,I%)

5B%!300=H%:B%!304=I%:ș"Wimp_GetIconState",,B%+300
=$B%!328

(ݤLOADTEMP(A$)
24ș"Wimp_LoadTemplate",,B%,I2%,I%+IL%,-1,A$�,,I2%
< ș"Wimp_CreateWindow",,B%�H%
F=H%
P
Z��TASK(T$)
d�HIST%<>-1��CHECK ��
n�X%,Y%,SX%,SY%,SSIZE%,MM%
xY%=RLY%:X%=RLX%:MM%=RLM%
�gș"OS_ReadModeVariable",MM%,4�,,S2X%:ș"OS_ReadModeVariable",MM%,5�,,S2Y%:SX%=X%>>S2X%:SY%=Y%>>S2Y%
�8ș"OS_ReadModeVariable",MM%,9�,,BPP%:�S2X%=3�BPP%+=1
�)ș"OS_ReadModeVariable",MM%,3�,,MAXC%
�DB%!0=0:B%!4=-Y%:B%!8=X%:B%!12=0:ș"Wimp_SetExtent",MH%,B%:RY%=Y%
�+SSIZE%=300+SY%*(((SX%/8)*2^BPP%)�4+1)*4
�mș"OS_Module",6,,,SSIZE%�,,SPR%;F%:�F%�1��1,"Not enough free memory in RMA for task window of this size."
�7!SPR%=SSIZE%-20:SPR%!8=16:ș"OS_SpriteOp",&109,SPR%
�FB%!0=SH%:B%!4=19:ș"Wimp_GetIconState",,B%:PAL%=(B%!24�(1<<21))<>�
�Vș"OS_SpriteOp",&10F,SPR%,"TaskScreen",-(MAXC%<>63�PAL%),SX%,SY%,MM%:!V%=0:CM%=MM%
�%!CHANGEDBX=-20:!REENTRANT=0:�*-21
�
�PAL%�
�ȎMAXC%�
�\�15:�N%=0�64�64:�+0:�MM%=0�63�8:�CCC%:SPR%!(&3C+N%+MM%)=CCC%:SPR%!(&3C+N%+MM%+4)=CCC%:�,
F�&10,&FF10,&FF0010,&FFFF10,&FF000010,&FF00FF10,&FFFF0010,&FFFFFF10
C�3:�+0:�N%=0�31�8:�CCC%:SPR%!(N%+&3C)=CCC%:SPR%!(N%+&40)=CCC%:�
 �&10,&FF10,&FFFF10,&FFFFFF10
"F�1:SPR%!&3C=&10:SPR%!&40=&10:SPR%!&44=&FFFFFF10:SPR%!&48=&FFFFFF10
,�
6�
@4?STATUS=0:OVPOS%=-10:OPOS%=-10:!HSPR=SPR%:!HV=V%
Jz�"Wimptask %TaskWindow """" -wimpslot "+�RLS%+"K -name ""Small Task Window"" -ctrl -task &"+�~TASKH%+" -txt &30000000"
TGRAPHORIG!0=0:GRAPHORIG!4=0
^G�"Set Alias$StartUpSMT Unset Alias$StartUpSMT|MEcho |<12>|<1>|M"+T$
h�STARTUPFT
rHIST%=-2
|AB%!0=MH%:ș"Wimp_GetWindowInfo",,B%:$(B%!76)="SmallTask: "+T$
�IB%!0=MH%:ș"Wimp_GetWindowState",,B%:B%!28=-1:ș"Wimp_OpenWindow",,B%
�PAUSE%=�
�9ș"Wimp_ForceRedraw",MH%,-1E9,-1E9,1E9,1E9:�GAINCARET
��
�
�ݤCHECK
€ș"Wimp_ReportError","1234A SmallTask is already active. Kill old one?",19,"Message from !SmallTask"�,K%:�K%=1��KILLCHILD:=�
�=�
�
�DEFPROCOUTPUT
��SB%
�-ș"OS_SpriteOp",&13C,SPR%,"TaskScreen",V%
�+ș"OS_ChangedBox",1:ș"OS_ChangedBox",2
D%=B%+24:C%=B%!20:�MC%
ș"OS_ChangedBox",-1�,SB%
�SB%!4<>&7FFFFFFF�
&�B%!300=MH%:B%!304=SB%!4*(1<<S2X%):B%!308=SB%!8*(1<<S2Y%)-RY%:B%!312=SB%!12*(1<<S2X%)+(1<<S2X%):B%!316=SB%!16*(1<<S2Y%)-RY%+(1<<S2Y%)
00ș"OS_Byte",117�,STT%:OPOS%=�*8:OVPOS%=�*8+9
: ș"OS_SpriteOp",&13C,SPR%,,1
D�CARET%�
N%ș"Wimp_GetCaretPosition",,B%+700
X�B%!700=MH%�
bIș"Wimp_SetCaretPosition",MH%,-1,OPOS%<<S2X%,-(OVPOS%<<S2Y%),11<<S2Y%
l�
v�
�$ș"Wimp_UpdateWindow",,B%+300�F%
�ȕF%
��B%!600=0:B%!604=-RY%:B%!608=5000:B%!612=0:B%!616=&102:B%!620=B%+660:B%!624=SPR%:B%!628=10:$(B%+660)="TaskScreen":ș"Wimp_PlotIcon",,B%+600
�$ș"Wimp_GetRectangle",,B%+300�F%
��
��
� ș"OS_SpriteOp",&13C,SPR%,,1
��
��
�
���UPDATECHANGE
�SB%=CHANGEDBX-4
�!�SB%!4<>-20�SB%!4<>&7FFFFFFF�
� B%!300=MH%:B%!304=SB%!4*(1<<S2X%):B%!308=SB%!8*(1<<S2Y%)-RY%:B%!312=SB%!12*(1<<S2X%)+(1<<S2X%):B%!316=SB%!16*(1<<S2Y%)-RY%+(1<<S2Y%)
x ș"OS_SpriteOp",&13C,SPR%,"TaskScreen",V%:ș"OS_Byte",117�,STT%:OPOS%=�*8:OVPOS%=�*8+9:ș"OS_SpriteOp",&13C,SPR%,,1

 �CARET%�
 '  ș"Wimp_GetCaretPosition",,B%+700
*  �B%!700=MH%�
4L   ș"Wimp_SetCaretPosition",MH%,-1,OPOS%<<S2X%,-(OVPOS%<<S2Y%),11<<S2Y%
>  �
H �
R% ș"Wimp_UpdateWindow",,B%+300�F%
\	 ȕF%
f�  B%!600=0:B%!604=-RY%:B%!608=5000:B%!612=0:B%!616=&102:B%!620=B%+660:B%!624=SPR%:B%!628=10:$(B%+660)="TaskScreen":ș"Wimp_PlotIcon",,B%+600
p&  ș"Wimp_GetRectangle",,B%+300�F%
z �
��
�!CHANGEDBX=-20
��
�
���SEND(S$)
�7B%!0=256:B%!12=0:B%!16=&808C0:B%!20=�S$:$(B%+24)=S$
�$ș"Wimp_SendMessage",17,B%,HIST%
��
�
�	��EGO
�HIST%=B%!4:�STARTFT
��SEND("StartUpSMT"+�13)
��
	
	��CHILDDYING
	�B%!4<>HIST%��
	$
�FINISHFT
	..B%!0=MH%:ș"Wimp_CloseWindow",,B%:HIST%=-1
	8PAUSE%=�
	B)�SPR%<>0�ș"OS_Module",7,,SPR%:SPR%=0
	L�
	V
	`��KILLCHILD
	jBB%!0=256:B%!12=0:B%!16=&808C4:ș"Wimp_SendMessage",17,B%,HIST%
	t#B%!4=HIST%:�CHILDDYING:PAUSE%=�
	~�
	�
	���MAKEMENU(X%,Y%)
	��S%
	�	S%=M%
	�$S%="New task"
	�2S%!12=&70207:S%!16=204:S%!20=44:S%!24=0:S%+=28
	�KS%!0=128+4:S%!4=-1:S%!8=&7000131:S%!12=I2%+1:S%!16=240:S%!20=I2%:S%+=24
	�$S%="!SmallTask":M2%=S%
	�2S%!12=&70207:S%!16=172:S%!20=44:S%!24=0:S%+=28
	�8S%!0=0:S%!4=IH%:S%!8=&7000031:$(S%+12)="Info":S%+=24
	�SS%!0=-PAUSE%:S%!4=-1:S%!8=&7000031-(1<<22)*�(HIST%<>-1):$(S%+12)="Pause":S%+=24
	�MS%!0=0:S%!4=VH%:S%!8=&7000031-(1<<22)*�(HIST%<>-1):$(S%+12)="Save":S%+=24
QS%!0=0:S%!4=-1:S%!8=&7000031-(1<<22)*�(HIST%<>-1):$(S%+12)="Kill task":S%+=24

CS%!0=-CARET%:S%!4=-1:S%!8=&7000031:$(S%+12)="Show caret":S%+=24
.B%!800=MH%:ș"Wimp_GetWindowState",,B%+800
oS%!0=0:S%!4=-1:S%!8=&7000031-(1<<22)*�((B%!832�(1<<16))<>0�(B%!832�(1<<20))=0):$(S%+12)="Gain caret":S%+=24
(;S%!0=0:S%!4=M%:S%!8=&7000031:$(S%+12)="New task":S%+=24
2=S%!0=0:S%!4=SH%:S%!8=&7000031:$(S%+12)="Next task":S%+=24
<9S%!0=128:S%!4=-1:S%!8=&7000031:$(S%+12)="Quit":S%+=24
FQ�SETI(SH%,5,�RLY%):�SETI(SH%,2,�RLX%):�SETI(SH%,12,�RLM%):�SETI(SH%,16,�RLS%)
P"ș"Wimp_CreateMenu",,M2%,X%,Y%
Z�
d
n��SETTOSCREENSIZE
x�MM%,SF%,SSX%,SSY%
�NMM%=��GETI(SH%,12):ș"OS_CheckModeValid",MM%�RR%:�RR%=-1��1,"Invalid mode"
�`ș"OS_ReadModeVariable",MM%,4�,,SF%:ș"OS_ReadModeVariable",MM%,11�,,SSX%:SSX%=(SSX%+1)<<SF%
�`ș"OS_ReadModeVariable",MM%,5�,,SF%:ș"OS_ReadModeVariable",MM%,12�,,SSY%:SSY%=(SSY%+1)<<SF%
�)�SETI(SH%,2,�SSX%):�SETI(SH%,5,�SSY%)
��
�
�
��NEWSIZE
�O绤GETI(SH%,5)>4095���GETI(SH%,2)>4095��1,"Coorinates must not exceed 4095"
�Fș"OS_CheckModeValid",��GETI(SH%,12)�RR%:�RR%=-1��1,"Invalid mode"
�YRLY%=��GETI(SH%,5)�4*4:RLX%=��GETI(SH%,2)�2*2:RLM%=��GETI(SH%,12):RLS%=��GETI(SH%,16)
��
�
���MENUSELECT
�A$
#ș"Wimp_GetPointerInfo",,B%+400
,ș"Wimp_DecodeMenu",,M2%,B%,B%+100�,,,A$
"RO%=B%!408=1
,	ȎA$�
6;�"Info":ș"Wimp_CreateMenu",,IH%,B%!400-64,B%!404:RO%=�
@�"Pause":�PAUSE
J;�"Save":ș"Wimp_CreateMenu",,VH%,B%!400-64,B%!404:RO%=�
T�"Kill task":�KILLCHILD
^Y�"Show caret":CARET%=�CARET%:ș"Wimp_GetCaretPosition",,B%+500:�B%!500=MH%��GAINCARET
h�"Gain caret":�GAINCARET
r@�"Next task":ș"Wimp_CreateMenu",,SH%,B%!400-64,B%!404:RO%=�
|�"Quit":�C
��
�'�A$,9)="New task."��TASK($(I2%+1))
��RO%��MAKEMENU(0,0)
��
�
���PAUSE
�7B%!0=256:B%!12=0:�PAUSE%�B%!16=&808C7 �B%!16=&808C6
�$ș"Wimp_SendMessage",17,B%,HIST%
�PAUSE%=�PAUSE%
��PAUSE%��FINISHFT ��STARTFT
��
�
�ݤNULL(A%)
 ș"OS_ReadEscapeState",A%�A$
=A$

&��SAVEDRAG
0X%=B%!0:Y%=B%!4
:SVEBUT%=B%!8
DB%!104=5
N`B%!160=VH%:ș"Wimp_GetWindowState",,B%+160:B%!200=VH%:B%!204=0:ș"Wimp_GetIconState",,B%+200
XWB%!108=B%!164+B%!208:B%!112=B%!176+B%!220:B%!116=B%!164+B%!216:B%!120=B%!176+B%!212
bMB%!0=4:B%!4=5:B%!8=11:B%!12=12:B%!16=-1:ș"OS_ReadVduVariables",B%,B%+200
l�B%!124=B%!108-X%:B%!128=B%!112-Y%:B%!132=(1<<B%!200)*(B%!208)+B%!124+B%!116-B%!108:B%!136=(1<<B%!204)*(B%!212)+B%!128+B%!120-B%!112
vș"Wimp_DragBox",,B%+100
��
�
���DRAGFINISHED
�"ș"Wimp_GetPointerInfo",,B%+28
�B%!20=B%!40:B%!24=B%!44
�B%!36=1:B%!40=&FF9
�N$="."+�GNAME:N%=�N$:NM$=""
�$ȕ�(�N$,N%,1)="."��N$,N%,1)=":")
�NM$=�N$,N%,1)+NM$:N%-=1
��
�,$(B%+44)=NM$+�0:B%!0=256:B%!12=0:B%!16=1
�*ș"Wimp_SendMessage",17,B%,B%!20,B%!24
��



��SAVEIT(N$)

+�HIST%<>-1�ș"OS_SpriteOp",&10C,SPR%,N$

 (�SVEBUT%<>16�ș"Wimp_CreateMenu",,-1

*�

4

>��DATASAVEACK

H=B%!12=B%!8:B%!16=3:ș"Wimp_SendMessage",17,B%,B%!20,B%!24

R(�B%!36<>-1��SETI(VH%,1,�NULL(B%+44))

\�SAVEIT(�NULL(B%+44))

f�

p

zݤGNAME

�5B%!200=VH%:B%!204=1:ș"Wimp_GetIconState",,B%+200

�=�NULL(B%!228)

�

���SAVEITC(N$)

�F�N$,".")=0��N$,":")=0��1,"To save, drag icon to directory viewer"

��SAVEIT(N$)

��

�

���SETI(H%,I%,A$)

�5B%!300=H%:B%!304=I%:ș"Wimp_GetIconState",,B%+300

�$B%!328=A$

�3B%!308=0:B%!312=0:ș"Wimp_SetIconState",,B%+300

��

��GAINCARET
��CARET%�ș"Wimp_SetCaretPosition",MH%,-1,OPOS%<<S2X%,-(OVPOS%<<S2Y%),11<<S2Y%�ș"Wimp_SetCaretPosition",MH%,-1,-100,-100,1<<25
$�
.
8	��ASS
B!ș"OS_Module",6,,,1024�,,RMA%
L
�N%=0�2�2
VP%=RMA%
`[OPT N%
j'.FTENTRY   STMFD   R13!,{R0-R2,R14}
t           MOV     R0,#&13C
~           LDR     R1,HSPR
�"           ADR     R2,HSPRNAME
�           LDR     R3,HV
�$           SWI     "OS_SpriteOp"
�           MOV     R0,#&1A
�#           ADR     R1,FTOSMOUSE
�           MOV     R2,#0
�!           SWI     "OS_Claim"
�           MOV     R0,#6
�"           ADR     R1,FTOSBYTE
�           MOV     R2,#0
�!           SWI     "OS_Claim"
�           MOV     R0,#7
"           ADR     R1,FTOSWORD

           MOV     R2,#0
!           SWI     "OS_Claim"
           BL      CLAIMWC
(#           LDR     R2,CHANGEDBX
2           CMN     R2,#�-21
<           �Q   R0,#1
F&           SWIEQ   "OS_ChangedBox"
P           CMN     R2,#�-20
Z           CMNNE   R2,#�-21
d           �Q   R0,#2
n&           SWIEQ   "OS_ChangedBox"
x'           LDMFD   R13!,{R0-R2,PC}^
�.HSPR      EQUD    0
�&.HSPRNAME  EQUS    "TaskScreen"+�0
�           ALIGN
�.HV        EQUD    0
�
�$.FTOSWORD  STMFD   R13!,{R2,R14}
�           CMP     R0,#21
�$           LDMNEFD R13!,{R2,PC}^
�           LDRB    R2,[R1]
�           CMP     R2,#4
�           CMPNE   R2,#6
�(           LDMNEFD R13!,{R2,R14,PC}^
�$           LDMFD   R13!,{R2,PC}^

.FTOSBYTE  CMP     R0,#106
           MOVNES  PC,R14
"!           LDMFD   R13!,{PC}^
,
6.CHANGEDBX EQUD    -20
@           EQUD    0
J           EQUD    0
T           EQUD    0
^'.FTEXIT    STMFD   R13!,{R0-R4,R14}
h!           MVN     R0,#0 ;=-1
r&           SWI     "OS_ChangedBox"
|!           LDMIB   R1,{R1-R4}
�#           ADR     R0,CHANGEDBX
�!           STMIA   R0,{R1-R4}
�           MOV     R0,#&13C
�           LDR     R1,HSPR
�           MOV     R2,#0
�           MOV     R3,#1
�$           SWI     "OS_SpriteOp"
�           MOV     R0,#7
�"           ADR     R1,FTOSWORD
�           MOV     R2,#0
�#           SWI     "OS_Release"
�           MOV     R0,#6
�"           ADR     R1,FTOSBYTE
           MOV     R2,#0
#           SWI     "OS_Release"
           MOV     R0,#&1A
&#           ADR     R1,FTOSMOUSE
0           MOV     R2,#0
:#           SWI     "OS_Release"
D            BL      RELEASEWC
N'           LDMFD   R13!,{R0-R4,PC}^
X
b$.CLAIMWC   STMFD   R13!,{R0,R14}
l           MOV     R0,#&3
v#           ADR     R1,FTOSWRTEC
�           MOV     R2,#0
�!           SWI     "OS_Claim"
�$           LDMFD   R13!,{R0,PC}^
�$.RELEASEWC STMFD   R13!,{R0,R14}
�           MOV     R0,#&3
�#           ADR     R1,FTOSWRTEC
�           MOV     R2,#0
�#           SWI     "OS_Release"
�$           LDMFD   R13!,{R0,PC}^
�
�#.FTOSWRTEC STMFD   R13!,{R0-R4}
�#           LDR     R1,REENTRANT
�           CMP     R1,#1
#           LDMEQFD R13!,{R0-R4}
!           STMEQFD R13!,{R14}
           �QS  PC,R14
            MOV     R1,#1
*#           STR     R1,REENTRANT
4            LDRB    R4,STATUS
>           CMP     R4,#0
H           BEQ     NEWCHAR
R           CMP     R4,#17
\            RSBGE   R1,R4,#20
f           BLGE    RIGBIT
p           SUB     R4,R4,#1
z .LOOPBACK  STR     R4,STATUS
�           MOV     R1,#0
�#           STR     R1,REENTRANT
�#           LDMFD   R13!,{R0-R4}
�!           LDMFD   R13!,{PC}^
�#.NEWCHAR   STMFD   R13!,{R0,R2}
�           MOV     R0,#218
�           MOV     R1,#0
�           MOV     R2,#255
�            SWI     "OS_Byte"
�           CMP     R1,#0
�#           LDMFD   R13!,{R0,R2}
�"           SWINE   "OS_WriteC"
�           BNE     LOOPBACK
           CMP     R0,#29
           �Q   R4,#20
"           SWIEQ   "OS_WriteC"
$           BEQ     LOOPBACK
.           CMP     R0,#14
8           CMPNE   R0,#20
B           BEQ     LOOPBACK
L           CMP     R0,#19
V           �Q   R4,#5
`           BEQ     LOOPBACK
j           CMP     R0,#22
t           SWIEQ   &100+12
~           �Q   R4,#1
�           BEQ     LOOPBACK
�"           SWI     "OS_WriteC"
�           B       LOOPBACK
�!.RIGBIT    STMFD   R13!,{R14}
�!           ADR     R2,TMPORIG
�           CMP     R1,#2
�           ADDGE   R1,R1,#2
�           ADD     R2,R2,R1
�"           SWI     "OS_WriteC"
�           CMP     R4,#19
�           CMPNE   R4,#17
�           BLEQ    CHECKNEG
           STRB    R0,[R2]

           CMP     R4,#17
!           LDREQ   R1,TMPORIG
#           STREQ   R1,GRAPHORIG
(#           LDREQ   R1,TMPORIG+4
2%           STREQ   R1,GRAPHORIG+4
<           �Q   R4,#1
F!           LDMFD   R13!,{PC}^
P.CHECKNEG  TST     R0,#&80
Z           MOVNE   R1,#&FF
d           �Q   R1,#0
n!           STRB    R1,[R2,#1]
x!           STRB    R1,[R2,#2]
�           MOVS    PC,R14
�.STATUS    EQUD    0
�.REENTRANT EQUD    0
�.GRAPHORIG EQUD    0
�           EQUD    0
�.TMPORIG   EQUD    0
�           EQUD    0
�
�#.FTOSMOUSE STMFD   R13!,{R3-R4}
�-           SWI     "OS_ReadMonotonicTime"
�           MOV     R3,R0
�!           LDR     R2,FTPBUFF
�           LDR     R1,[R2]
           CMP     R1,#0
           BLEQ    FTMOVEON
!           LDR     R0,[R2,#4]
"!           LDR     R1,[R2,#8]
,"           LDR     R2,[R2,#12]
6#           LDR     R3,GRAPHORIG
@           SUB     R0,R0,R3
J%           LDR     R3,GRAPHORIG+4
T           SUB     R1,R1,R3
^'           LDMFD   R13!,{R3-R4,PC}^
h .FTMOVEON  ADD     R1,R2,#16
r            ADR     R0,FTBUFF
|!           ADD     R0,R0,#128
�           CMP     R1,R0
�            ADREQ   R1,FTBUFF
�!           STR     R1,FTPBUFF
�           MOVS    PC,R14
�.FTPBUFF   EQUD    FTBUFF
�.FTBUFF    EQUS    �128,�0)
�%.FTNAME    EQUS    "SmallTask"+�0
�]:�
��
�
�MWB%!0=1:WB%!4=B%!0-B%!304+B%!320:WB%!8=B%!4-B%!316+B%!324+RY%:WB%!12=B%!8
�
���BUFFM
*�WB%+16<>!FTPBUFF �WB%-112<>!FTPBUFF �
.B%!300=MH%:ș"Wimp_GetWindowState",,B%+300
WB%!0=0
&MWB%!0=0:WB%!4=B%!0-B%!304+B%!320:WB%!8=B%!4-B%!316+B%!324+RY%:WB%!12=B%!8
0&WB%+=16:�WB%=FTBUFF+128�WB%=FTBUFF
:�
D�
N
X
��STARTFT
b6ș"Filter_RegisterPreFilter",FTNAME,FTEXIT,0,HIST%
l:ș"Filter_RegisterPostFilter",FTNAME,FTENTRY,0,HIST%,0
v�
�
���FINISHFT
�8ș"Filter_DeRegisterPreFilter",FTNAME,FTEXIT,0,HIST%
�<ș"Filter_DeRegisterPostFilter",FTNAME,FTENTRY,0,HIST%,0
��
�
���STARTUPFT
�O!FTPBUFF=FTBUFF:WB%=FTBUFF:FTBUFF!0=1:FTBUFF!4=512:FTBUFF!8=640:FTBUFF!12=0
��
�
���DATALOAD
�B%!12=B%!8:B%!16=4
�#ș"Wimp_SendMessage",17,B%,B%!4
�TASK("Run "+�NULL(B%+44))
�
�
00000000  0d 00 0a 0f f4 3e 21 52  75 6e 49 6d 61 67 65 0d  |.....>!RunImage.|
00000010  00 14 10 49 4c 25 3d 31  30 30 30 2b 32 35 37 0d  |...IL%=1000+257.|
00000020  00 1e 25 de 42 25 32 30  30 30 2c 49 25 49 4c 25  |..%.B%2000,I%IL%|
00000030  2c 4d 25 35 30 30 2c 4d  43 25 36 30 30 3a 49 32  |,M%500,MC%600:I2|
00000040  25 3d 49 25 0d 00 28 1f  c8 99 22 4f 53 5f 4d 6f  |%=I%..(..."OS_Mo|
00000050  64 75 6c 65 22 2c 36 2c  2c 2c 31 30 30 30 b8 2c  |dule",6,,,1000.,|
00000060  2c 56 25 0d 00 32 08 f2  41 53 53 0d 00 3c 3a c8  |,V%..2..ASS..<:.|
00000070  99 22 57 69 6d 70 5f 49  6e 69 74 69 61 6c 69 73  |."Wimp_Initialis|
00000080  65 22 2c 32 30 30 2c 26  34 42 35 33 34 31 35 34  |e",200,&4B534154|
00000090  2c 22 21 53 6d 61 6c 6c  54 61 73 6b 22 b8 2c 54  |,"!SmallTask".,T|
000000a0  41 53 4b 48 25 0d 00 46  31 c8 99 22 57 69 6d 70  |ASKH%..F1.."Wimp|
000000b0  5f 4f 70 65 6e 54 65 6d  70 6c 61 74 65 22 2c 2c  |_OpenTemplate",,|
000000c0  22 3c 4f 62 65 79 24 44  69 72 3e 2e 54 65 6d 70  |"<Obey$Dir>.Temp|
000000d0  6c 61 74 65 73 22 0d 00  50 19 4d 48 25 3d a4 4c  |lates"..P.MH%=.L|
000000e0  4f 41 44 54 45 4d 50 28  22 4d 61 69 6e 22 29 0d  |OADTEMP("Main").|
000000f0  00 5a 19 49 48 25 3d a4  4c 4f 41 44 54 45 4d 50  |.Z.IH%=.LOADTEMP|
00000100  28 22 49 6e 66 6f 22 29  0d 00 64 19 53 48 25 3d  |("Info")..d.SH%=|
00000110  a4 4c 4f 41 44 54 45 4d  50 28 22 53 69 7a 65 22  |.LOADTEMP("Size"|
00000120  29 0d 00 6e 19 56 48 25  3d a4 4c 4f 41 44 54 45  |)..n.VH%=.LOADTE|
00000130  4d 50 28 22 53 61 76 65  22 29 0d 00 78 32 c8 99  |MP("Save")..x2..|
00000140  22 57 69 6d 70 5f 43 6c  6f 73 65 54 65 6d 70 6c  |"Wimp_CloseTempl|
00000150  61 74 65 22 2c 2c 22 3c  4f 62 65 79 24 44 69 72  |ate",,"<Obey$Dir|
00000160  3e 2e 54 65 6d 70 6c 61  74 65 73 22 0d 00 82 10  |>.Templates"....|
00000170  24 49 32 25 3d bd 31 33  2b bd 31 33 0d 00 8c 69  |$I2%=.13+.13...i|
00000180  42 25 21 30 3d 2d 31 3a  42 25 21 34 3d 30 3a 42  |B%!0=-1:B%!4=0:B|
00000190  25 21 38 3d 30 3a 42 25  21 31 32 3d 36 38 3a 42  |%!8=0:B%!12=68:B|
000001a0  25 21 31 36 3d 36 38 3a  42 25 21 32 30 3d 26 31  |%!16=68:B%!20=&1|
000001b0  37 30 30 33 30 31 41 3a  24 28 42 25 2b 32 34 29  |700301A:$(B%+24)|
000001c0  3d 22 21 53 6d 61 6c 6c  54 61 73 6b 22 3a c8 99  |="!SmallTask":..|
000001d0  22 57 69 6d 70 5f 43 72  65 61 74 65 49 63 6f 6e  |"Wimp_CreateIcon|
000001e0  22 2c 2c 42 25 0d 00 96  25 48 49 53 54 25 3d 2d  |",,B%...%HIST%=-|
000001f0  31 3a 50 41 55 53 45 25  3d a3 3a 43 41 52 45 54  |1:PAUSE%=.:CARET|
00000200  25 3d a3 3a 53 50 52 25  3d 30 0d 00 a0 0c f2 4e  |%=.:SPR%=0.....N|
00000210  45 57 53 49 5a 45 0d 00  aa 42 ee 85 c8 99 22 57  |EWSIZE...B...."W|
00000220  69 6d 70 5f 52 65 70 6f  72 74 45 72 72 6f 72 22  |imp_ReportError"|
00000230  2c 22 41 42 43 44 22 2b  f6 24 2b 22 20 61 74 20  |,"ABCD"+.$+" at |
00000240  6c 69 6e 65 20 22 2b c3  9e 2c 31 2c 22 21 53 6d  |line "+..,1,"!Sm|
00000250  61 6c 6c 54 61 73 6b 22  0d 00 b4 05 f5 0d 00 be  |allTask"........|
00000260  18 c8 99 22 57 69 6d 70  5f 50 6f 6c 6c 22 2c 2c  |..."Wimp_Poll",,|
00000270  42 25 b8 52 25 0d 00 c8  09 c8 8e 52 25 ca 0d 00  |B%.R%......R%...|
00000280  d2 0c c9 30 3a f2 4e 55  4c 4c 0d 00 dc 0e c9 31  |...0:.NULL.....1|
00000290  3a f2 52 45 44 52 41 57  0d 00 e6 1e c9 32 3a c8  |:.REDRAW.....2:.|
000002a0  99 22 57 69 6d 70 5f 4f  70 65 6e 57 69 6e 64 6f  |."Wimp_OpenWindo|
000002b0  77 22 2c 2c 42 25 0d 00  f0 35 c9 33 3a e7 42 25  |w",,B%...5.3:.B%|
000002c0  21 30 3d 4d 48 25 8c f2  4b 49 4c 4c 43 48 49 4c  |!0=MH%..KILLCHIL|
000002d0  44 20 8b c8 99 22 57 69  6d 70 5f 43 6c 6f 73 65  |D ..."Wimp_Close|
000002e0  57 69 6e 64 6f 77 22 2c  2c 42 25 0d 00 fa 0d c9  |Window",,B%.....|
000002f0  36 3a f2 4d 4f 55 53 45  0d 01 04 14 c9 37 3a f2  |6:.MOUSE.....7:.|
00000300  44 52 41 47 46 49 4e 49  53 48 45 44 0d 01 0e 0b  |DRAGFINISHED....|
00000310  c9 38 3a f2 4b 45 59 0d  01 18 12 c9 39 3a f2 4d  |.8:.KEY.....9:.M|
00000320  45 4e 55 53 45 4c 45 43  54 0d 01 22 13 c9 31 37  |ENUSELECT.."..17|
00000330  2c 31 38 3a f2 52 45 43  45 49 56 45 0d 01 2c 05  |,18:.RECEIVE..,.|
00000340  cb 0d 01 36 06 fd a3 0d  01 40 04 0d 01 4a 0a dd  |...6.....@...J..|
00000350  f2 4e 55 4c 4c 0d 01 54  0f e7 48 49 53 54 25 3c  |.NULL..T..HIST%<|
00000360  3e 2d 31 8c 0d 01 5e 11  f2 55 50 44 41 54 45 43  |>-1...^..UPDATEC|
00000370  48 41 4e 47 45 0d 01 68  2b c8 99 22 57 69 6d 70  |HANGE..h+.."Wimp|
00000380  5f 47 65 74 50 6f 69 6e  74 65 72 49 6e 66 6f 22  |_GetPointerInfo"|
00000390  2c 2c 42 25 3a e7 42 25  21 31 32 3d 4d 48 25 8c  |,,B%:.B%!12=MH%.|
000003a0  0d 01 72 0e e7 42 25 21  31 36 3d 2d 31 8c 0d 01  |..r..B%!16=-1...|
000003b0  7c 2e 42 25 21 33 30 30  3d 4d 48 25 3a c8 99 22  ||.B%!300=MH%:.."|
000003c0  57 69 6d 70 5f 47 65 74  57 69 6e 64 6f 77 53 74  |Wimp_GetWindowSt|
000003d0  61 74 65 22 2c 2c 42 25  2b 33 30 30 0d 01 86 4d  |ate",,B%+300...M|
000003e0  57 42 25 21 30 3d 31 3a  57 42 25 21 34 3d 42 25  |WB%!0=1:WB%!4=B%|
000003f0  21 30 2d 42 25 21 33 30  34 2b 42 25 21 33 32 30  |!0-B%!304+B%!320|
00000400  3a 57 42 25 21 38 3d 42  25 21 34 2d 42 25 21 33  |:WB%!8=B%!4-B%!3|
00000410  31 36 2b 42 25 21 33 32  34 2b 52 59 25 3a 57 42  |16+B%!324+RY%:WB|
00000420  25 21 31 32 3d 42 25 21  38 0d 01 90 05 cc 0d 01  |%!12=B%!8.......|
00000430  9a 23 e7 42 25 21 38 80  32 8c f2 4d 41 4b 45 4d  |.#.B%!8.2..MAKEM|
00000440  45 4e 55 28 42 25 21 30  2d 36 34 2c 42 25 21 34  |ENU(B%!0-64,B%!4|
00000450  29 0d 01 a4 05 cd 0d 01  ae 05 cd 0d 01 b8 05 cd  |)...............|
00000460  0d 01 c2 05 e1 0d 01 cc  04 0d 01 d6 07 dd f2 43  |...............C|
00000470  0d 01 e0 29 e7 53 50 52  25 3c 3e 30 8c c8 99 22  |...).SPR%<>0..."|
00000480  4f 53 5f 4d 6f 64 75 6c  65 22 2c 37 2c 2c 53 50  |OS_Module",7,,SP|
00000490  52 25 3a 53 50 52 25 3d  30 0d 01 ea 17 c8 99 22  |R%:SPR%=0......"|
000004a0  4f 53 5f 4d 6f 64 75 6c  65 22 2c 37 2c 2c 56 25  |OS_Module",7,,V%|
000004b0  0d 01 f4 19 c8 99 22 4f  53 5f 4d 6f 64 75 6c 65  |......"OS_Module|
000004c0  22 2c 37 2c 2c 52 4d 41  25 0d 01 fe 19 e7 48 49  |",7,,RMA%.....HI|
000004d0  53 54 25 3c 3e 2d 31 8c  f2 4b 49 4c 4c 43 48 49  |ST%<>-1..KILLCHI|
000004e0  4c 44 0d 02 08 17 c8 99  22 58 57 69 6d 70 5f 43  |LD......"XWimp_C|
000004f0  6c 6f 73 65 44 6f 77 6e  22 0d 02 12 05 e0 0d 02  |loseDown".......|
00000500  1c 04 0d 02 26 0c dd f2  52 45 44 52 41 57 0d 02  |....&...REDRAW..|
00000510  30 20 c8 99 22 57 69 6d  70 5f 52 65 64 72 61 77  |0 .."Wimp_Redraw|
00000520  57 69 6e 64 6f 77 22 2c  2c 42 25 b8 46 25 0d 02  |Window",,B%.F%..|
00000530  3a 08 c8 95 46 25 0d 02  44 8e 42 25 21 33 30 30  |:...F%..D.B%!300|
00000540  3d 30 3a 42 25 21 33 30  34 3d 2d 52 59 25 3a 42  |=0:B%!304=-RY%:B|
00000550  25 21 33 30 38 3d 35 30  30 30 3a 42 25 21 33 31  |%!308=5000:B%!31|
00000560  32 3d 30 3a 42 25 21 33  31 36 3d 26 31 30 32 3a  |2=0:B%!316=&102:|
00000570  42 25 21 33 32 30 3d 42  25 2b 33 36 30 3a 42 25  |B%!320=B%+360:B%|
00000580  21 33 32 34 3d 53 50 52  25 3a 42 25 21 33 32 38  |!324=SPR%:B%!328|
00000590  3d 31 30 3a 24 28 42 25  2b 33 36 30 29 3d 22 54  |=10:$(B%+360)="T|
000005a0  61 73 6b 53 63 72 65 65  6e 22 3a c8 99 22 57 69  |askScreen":.."Wi|
000005b0  6d 70 5f 50 6c 6f 74 49  63 6f 6e 22 2c 2c 42 25  |mp_PlotIcon",,B%|
000005c0  2b 33 30 30 0d 02 4e 20  c8 99 22 57 69 6d 70 5f  |+300..N .."Wimp_|
000005d0  47 65 74 52 65 63 74 61  6e 67 6c 65 22 2c 2c 42  |GetRectangle",,B|
000005e0  25 b8 46 25 0d 02 58 05  ce 0d 02 62 05 e1 0d 02  |%.F%..X....b....|
000005f0  6c 04 0d 02 76 0b dd f2  4d 4f 55 53 45 0d 02 80  |l...v...MOUSE...|
00000600  0e e7 42 25 21 31 32 3d  2d 32 8c 0d 02 8a 11 e7  |..B%!12=-2......|
00000610  28 42 25 21 38 80 25 31  30 31 29 8c 0d 02 94 73  |(B%!8.%101)....s|
00000620  e7 48 49 53 54 25 3d 2d  31 8c f2 54 41 53 4b 28  |.HIST%=-1..TASK(|
00000630  22 22 29 8b 42 25 21 33  30 30 3d 4d 48 25 3a c8  |"").B%!300=MH%:.|
00000640  99 22 57 69 6d 70 5f 47  65 74 57 69 6e 64 6f 77  |."Wimp_GetWindow|
00000650  53 74 61 74 65 22 2c 2c  42 25 2b 33 30 30 3a 42  |State",,B%+300:B|
00000660  25 21 33 32 38 3d 2d 31  3a c8 99 22 57 69 6d 70  |%!328=-1:.."Wimp|
00000670  5f 4f 70 65 6e 57 69 6e  64 6f 77 22 2c 2c 42 25  |_OpenWindow",,B%|
00000680  2b 33 30 30 3a f2 47 41  49 4e 43 41 52 45 54 0d  |+300:.GAINCARET.|
00000690  02 9e 05 cd 0d 02 a8 22  e7 42 25 21 38 3d 32 8c  |.......".B%!8=2.|
000006a0  f2 4d 41 4b 45 4d 45 4e  55 28 42 25 21 30 2d 36  |.MAKEMENU(B%!0-6|
000006b0  34 2c 34 39 32 29 0d 02  b2 05 cd 0d 02 bc 0f e7  |4,492)..........|
000006c0  42 25 21 31 32 3d 4d 48  25 8c 0d 02 c6 2e 42 25  |B%!12=MH%.....B%|
000006d0  21 33 30 30 3d 4d 48 25  3a c8 99 22 57 69 6d 70  |!300=MH%:.."Wimp|
000006e0  5f 47 65 74 57 69 6e 64  6f 77 53 74 61 74 65 22  |_GetWindowState"|
000006f0  2c 2c 42 25 2b 33 30 30  0d 02 d0 0a f2 42 55 46  |,,B%+300.....BUF|
00000700  46 4d 0d 02 da 05 cd 0d  02 e4 0f e7 42 25 21 31  |FM..........B%!1|
00000710  32 3d 56 48 25 8c 0d 02  ee 26 e7 28 42 25 21 38  |2=VH%....&.(B%!8|
00000720  80 25 31 30 31 30 30 30  30 29 80 42 25 21 31 36  |.%1010000).B%!16|
00000730  3d 30 8c f2 53 41 56 45  44 52 41 47 0d 02 f8 39  |=0..SAVEDRAG...9|
00000740  e7 42 25 21 31 36 3d 32  80 28 42 25 21 38 80 25  |.B%!16=2.(B%!8.%|
00000750  31 30 31 29 8c 53 56 45  42 55 54 25 3d 42 25 21  |101).SVEBUT%=B%!|
00000760  38 2a 31 36 3a f2 53 41  56 45 49 54 43 28 a4 47  |8*16:.SAVEITC(.G|
00000770  4e 41 4d 45 29 0d 03 02  05 cd 0d 03 0c 0f e7 42  |NAME)..........B|
00000780  25 21 31 32 3d 53 48 25  8c 0d 03 16 0f e7 42 25  |%!12=SH%......B%|
00000790  21 38 80 25 31 30 31 8c  0d 03 20 0c c8 8e 42 25  |!8.%101... ...B%|
000007a0  21 31 36 ca 0d 03 2a 19  c9 30 2c 33 2c 31 30 2c  |!16...*..0,3,10,|
000007b0  31 34 3a f2 44 4f 57 4e  41 52 52 4f 57 0d 03 34  |14:.DOWNARROW..4|
000007c0  17 c9 31 2c 34 2c 31 31  2c 31 35 3a f2 55 50 41  |..1,4,11,15:.UPA|
000007d0  52 52 4f 57 0d 03 3e 30  c9 38 3a f2 4e 45 57 53  |RROW..>0.8:.NEWS|
000007e0  49 5a 45 3a e7 42 25 21  38 3c 3e 31 8c c8 99 22  |IZE:.B%!8<>1..."|
000007f0  57 69 6d 70 5f 43 72 65  61 74 65 4d 65 6e 75 22  |Wimp_CreateMenu"|
00000800  2c 2c 2d 31 0d 03 48 1e  c9 39 3a c8 99 22 57 69  |,,-1..H..9:.."Wi|
00000810  6d 70 5f 43 72 65 61 74  65 4d 65 6e 75 22 2c 2c  |mp_CreateMenu",,|
00000820  2d 31 0d 03 52 18 c9 31  38 3a f2 53 45 54 54 4f  |-1..R..18:.SETTO|
00000830  53 43 52 45 45 4e 53 49  5a 45 0d 03 5c 05 cb 0d  |SCREENSIZE..\...|
00000840  03 66 05 cd 0d 03 70 05  cd 0d 03 7a 05 e1 0d 03  |.f....p....z....|
00000850  84 04 0d 03 8e 0f dd f2  44 4f 57 4e 41 52 52 4f  |........DOWNARRO|
00000860  57 0d 03 98 08 ea 4e 56  25 0d 03 a2 2a 4e 56 25  |W.....NV%...*NV%|
00000870  3d bb a4 47 45 54 49 28  53 48 25 2c 42 25 21 31  |=..GETI(SH%,B%!1|
00000880  36 2b 32 29 2d 31 3a e7  4e 56 25 3c 30 8c 4e 56  |6+2)-1:.NV%<0.NV|
00000890  25 3d 30 0d 03 ac 1b f2  53 45 54 49 28 53 48 25  |%=0.....SETI(SH%|
000008a0  2c 42 25 21 31 36 2b 32  2c c3 4e 56 25 29 0d 03  |,B%!16+2,.NV%)..|
000008b0  b6 05 e1 0d 03 c0 04 0d  03 ca 0d dd f2 55 50 41  |.............UPA|
000008c0  52 52 4f 57 0d 03 d4 08  ea 4e 56 25 0d 03 de 1d  |RROW.....NV%....|
000008d0  4e 56 25 3d bb a4 47 45  54 49 28 53 48 25 2c 42  |NV%=..GETI(SH%,B|
000008e0  25 21 31 36 2b 31 29 2b  31 0d 03 e8 0c c8 8e 42  |%!16+1)+1......B|
000008f0  25 21 31 36 ca 0d 03 f2  1b c9 31 2c 34 3a e7 4e  |%!16......1,4:.N|
00000900  56 25 3e 34 30 39 35 8c  4e 56 25 3d 34 30 39 35  |V%>4095.NV%=4095|
00000910  0d 03 fc 1a c9 31 35 3a  e7 4e 56 25 3e 39 39 39  |.....15:.NV%>999|
00000920  39 8c 4e 56 25 3d 39 39  39 39 0d 04 06 18 c9 31  |9.NV%=9999.....1|
00000930  31 3a e7 4e 56 25 3e 32  35 35 8c 4e 56 25 3d 32  |1:.NV%>255.NV%=2|
00000940  35 35 0d 04 10 05 cb 0d  04 1a 1b f2 53 45 54 49  |55..........SETI|
00000950  28 53 48 25 2c 42 25 21  31 36 2b 31 2c c3 4e 56  |(SH%,B%!16+1,.NV|
00000960  25 29 0d 04 24 05 e1 0d  04 2e 04 0d 04 38 09 dd  |%)..$........8..|
00000970  f2 4b 45 59 0d 04 42 0b  c8 8e 42 25 21 30 ca 0d  |.KEY..B...B%!0..|
00000980  04 4c 43 c9 4d 48 25 3a  e7 42 25 21 32 34 3c 32  |.LC.MH%:.B%!24<2|
00000990  35 36 80 ac 50 41 55 53  45 25 8c f2 53 45 4e 44  |56..PAUSE%..SEND|
000009a0  28 bd 42 25 21 32 34 29  8b c8 99 22 57 69 6d 70  |(.B%!24)..."Wimp|
000009b0  5f 50 72 6f 63 65 73 73  4b 65 79 22 2c 42 25 21  |_ProcessKey",B%!|
000009c0  32 34 0d 04 56 47 c9 56  48 25 3a e7 42 25 21 32  |24..VG.VH%:.B%!2|
000009d0  34 3d 31 33 8c 53 56 45  42 55 54 25 3d 34 3a f2  |4=13.SVEBUT%=4:.|
000009e0  53 41 56 45 49 54 43 28  a4 47 4e 41 4d 45 29 8b  |SAVEITC(.GNAME).|
000009f0  c8 99 22 57 69 6d 70 5f  50 72 6f 63 65 73 73 4b  |.."Wimp_ProcessK|
00000a00  65 79 22 2c 42 25 21 32  34 0d 04 60 4e c9 53 48  |ey",B%!24..`N.SH|
00000a10  25 3a e7 42 25 21 32 34  3d 31 33 8c f2 4e 45 57  |%:.B%!24=13..NEW|
00000a20  53 49 5a 45 3a c8 99 22  57 69 6d 70 5f 43 72 65  |SIZE:.."Wimp_Cre|
00000a30  61 74 65 4d 65 6e 75 22  2c 2c 2d 31 3a 8b c8 99  |ateMenu",,-1:...|
00000a40  22 57 69 6d 70 5f 50 72  6f 63 65 73 73 4b 65 79  |"Wimp_ProcessKey|
00000a50  22 2c 42 25 21 32 34 0d  04 6a 05 cb 0d 04 74 05  |",B%!24..j....t.|
00000a60  e1 0d 04 7e 04 0d 04 88  0d dd f2 52 45 43 45 49  |...~.......RECEI|
00000a70  56 45 0d 04 92 0c c8 8e  42 25 21 31 36 ca 0d 04  |VE......B%!16...|
00000a80  9c 09 c9 30 3a f2 43 0d  04 a6 13 c9 32 3a f2 44  |...0:.C.....2:.D|
00000a90  41 54 41 53 41 56 45 41  43 4b 0d 04 b0 10 c9 33  |ATASAVEACK.....3|
00000aa0  3a f2 44 41 54 41 4c 4f  41 44 0d 04 ba 31 c9 39  |:.DATALOAD...1.9|
00000ab0  3a c8 99 22 57 69 6d 70  5f 46 6f 72 63 65 52 65  |:.."Wimp_ForceRe|
00000ac0  64 72 61 77 22 2c 4d 48  25 2c 2d 31 45 39 2c 2d  |draw",MH%,-1E9,-|
00000ad0  31 45 39 2c 31 45 39 2c  31 45 39 0d 04 c4 19 c9  |1E9,1E9,1E9.....|
00000ae0  26 38 30 38 43 31 3a f2  55 50 44 41 54 45 43 48  |&808C1:.UPDATECH|
00000af0  41 4e 47 45 0d 04 ce 10  c9 26 38 30 38 43 32 3a  |ANGE.....&808C2:|
00000b00  f2 45 47 4f 0d 04 d8 17  c9 26 38 30 38 43 33 3a  |.EGO.....&808C3:|
00000b10  f2 43 48 49 4c 44 44 59  49 4e 47 0d 04 e2 05 cb  |.CHILDDYING.....|
00000b20  0d 04 ec 05 e1 0d 04 f6  04 0d 05 00 11 dd a4 47  |...............G|
00000b30  45 54 49 28 48 25 2c 49  25 29 0d 05 0a 35 42 25  |ETI(H%,I%)...5B%|
00000b40  21 33 30 30 3d 48 25 3a  42 25 21 33 30 34 3d 49  |!300=H%:B%!304=I|
00000b50  25 3a c8 99 22 57 69 6d  70 5f 47 65 74 49 63 6f  |%:.."Wimp_GetIco|
00000b60  6e 53 74 61 74 65 22 2c  2c 42 25 2b 33 30 30 0d  |nState",,B%+300.|
00000b70  05 14 0c 3d 24 42 25 21  33 32 38 0d 05 1e 04 0d  |...=$B%!328.....|
00000b80  05 28 12 dd a4 4c 4f 41  44 54 45 4d 50 28 41 24  |.(...LOADTEMP(A$|
00000b90  29 0d 05 32 34 c8 99 22  57 69 6d 70 5f 4c 6f 61  |)..24.."Wimp_Loa|
00000ba0  64 54 65 6d 70 6c 61 74  65 22 2c 2c 42 25 2c 49  |dTemplate",,B%,I|
00000bb0  32 25 2c 49 25 2b 49 4c  25 2c 2d 31 2c 41 24 b8  |2%,I%+IL%,-1,A$.|
00000bc0  2c 2c 49 32 25 0d 05 3c  20 c8 99 22 57 69 6d 70  |,,I2%..< .."Wimp|
00000bd0  5f 43 72 65 61 74 65 57  69 6e 64 6f 77 22 2c 2c  |_CreateWindow",,|
00000be0  42 25 b8 48 25 0d 05 46  07 3d 48 25 0d 05 50 04  |B%.H%..F.=H%..P.|
00000bf0  0d 05 5a 0e dd f2 54 41  53 4b 28 54 24 29 0d 05  |..Z...TASK(T$)..|
00000c00  64 19 e7 48 49 53 54 25  3c 3e 2d 31 8c e7 a4 43  |d..HIST%<>-1...C|
00000c10  48 45 43 4b 20 8c e1 0d  05 6e 1d ea 58 25 2c 59  |HECK ....n..X%,Y|
00000c20  25 2c 53 58 25 2c 53 59  25 2c 53 53 49 5a 45 25  |%,SX%,SY%,SSIZE%|
00000c30  2c 4d 4d 25 0d 05 78 1c  59 25 3d 52 4c 59 25 3a  |,MM%..x.Y%=RLY%:|
00000c40  58 25 3d 52 4c 58 25 3a  4d 4d 25 3d 52 4c 4d 25  |X%=RLX%:MM%=RLM%|
00000c50  0d 05 82 67 c8 99 22 4f  53 5f 52 65 61 64 4d 6f  |...g.."OS_ReadMo|
00000c60  64 65 56 61 72 69 61 62  6c 65 22 2c 4d 4d 25 2c  |deVariable",MM%,|
00000c70  34 b8 2c 2c 53 32 58 25  3a c8 99 22 4f 53 5f 52  |4.,,S2X%:.."OS_R|
00000c80  65 61 64 4d 6f 64 65 56  61 72 69 61 62 6c 65 22  |eadModeVariable"|
00000c90  2c 4d 4d 25 2c 35 b8 2c  2c 53 32 59 25 3a 53 58  |,MM%,5.,,S2Y%:SX|
00000ca0  25 3d 58 25 3e 3e 53 32  58 25 3a 53 59 25 3d 59  |%=X%>>S2X%:SY%=Y|
00000cb0  25 3e 3e 53 32 59 25 0d  05 8c 38 c8 99 22 4f 53  |%>>S2Y%...8.."OS|
00000cc0  5f 52 65 61 64 4d 6f 64  65 56 61 72 69 61 62 6c  |_ReadModeVariabl|
00000cd0  65 22 2c 4d 4d 25 2c 39  b8 2c 2c 42 50 50 25 3a  |e",MM%,9.,,BPP%:|
00000ce0  e7 53 32 58 25 3d 33 8c  42 50 50 25 2b 3d 31 0d  |.S2X%=3.BPP%+=1.|
00000cf0  05 96 29 c8 99 22 4f 53  5f 52 65 61 64 4d 6f 64  |..).."OS_ReadMod|
00000d00  65 56 61 72 69 61 62 6c  65 22 2c 4d 4d 25 2c 33  |eVariable",MM%,3|
00000d10  b8 2c 2c 4d 41 58 43 25  0d 05 a0 44 42 25 21 30  |.,,MAXC%...DB%!0|
00000d20  3d 30 3a 42 25 21 34 3d  2d 59 25 3a 42 25 21 38  |=0:B%!4=-Y%:B%!8|
00000d30  3d 58 25 3a 42 25 21 31  32 3d 30 3a c8 99 22 57  |=X%:B%!12=0:.."W|
00000d40  69 6d 70 5f 53 65 74 45  78 74 65 6e 74 22 2c 4d  |imp_SetExtent",M|
00000d50  48 25 2c 42 25 3a 52 59  25 3d 59 25 0d 05 aa 2b  |H%,B%:RY%=Y%...+|
00000d60  53 53 49 5a 45 25 3d 33  30 30 2b 53 59 25 2a 28  |SSIZE%=300+SY%*(|
00000d70  28 28 53 58 25 2f 38 29  2a 32 5e 42 50 50 25 29  |((SX%/8)*2^BPP%)|
00000d80  81 34 2b 31 29 2a 34 0d  05 b4 6d c8 99 22 4f 53  |.4+1)*4...m.."OS|
00000d90  5f 4d 6f 64 75 6c 65 22  2c 36 2c 2c 2c 53 53 49  |_Module",6,,,SSI|
00000da0  5a 45 25 b8 2c 2c 53 50  52 25 3b 46 25 3a e7 46  |ZE%.,,SPR%;F%:.F|
00000db0  25 80 31 8c 85 31 2c 22  4e 6f 74 20 65 6e 6f 75  |%.1..1,"Not enou|
00000dc0  67 68 20 66 72 65 65 20  6d 65 6d 6f 72 79 20 69  |gh free memory i|
00000dd0  6e 20 52 4d 41 20 66 6f  72 20 74 61 73 6b 20 77  |n RMA for task w|
00000de0  69 6e 64 6f 77 20 6f 66  20 74 68 69 73 20 73 69  |indow of this si|
00000df0  7a 65 2e 22 0d 05 be 37  21 53 50 52 25 3d 53 53  |ze."...7!SPR%=SS|
00000e00  49 5a 45 25 2d 32 30 3a  53 50 52 25 21 38 3d 31  |IZE%-20:SPR%!8=1|
00000e10  36 3a c8 99 22 4f 53 5f  53 70 72 69 74 65 4f 70  |6:.."OS_SpriteOp|
00000e20  22 2c 26 31 30 39 2c 53  50 52 25 0d 05 c8 46 42  |",&109,SPR%...FB|
00000e30  25 21 30 3d 53 48 25 3a  42 25 21 34 3d 31 39 3a  |%!0=SH%:B%!4=19:|
00000e40  c8 99 22 57 69 6d 70 5f  47 65 74 49 63 6f 6e 53  |.."Wimp_GetIconS|
00000e50  74 61 74 65 22 2c 2c 42  25 3a 50 41 4c 25 3d 28  |tate",,B%:PAL%=(|
00000e60  42 25 21 32 34 80 28 31  3c 3c 32 31 29 29 3c 3e  |B%!24.(1<<21))<>|
00000e70  a3 0d 05 d2 56 c8 99 22  4f 53 5f 53 70 72 69 74  |....V.."OS_Sprit|
00000e80  65 4f 70 22 2c 26 31 30  46 2c 53 50 52 25 2c 22  |eOp",&10F,SPR%,"|
00000e90  54 61 73 6b 53 63 72 65  65 6e 22 2c 2d 28 4d 41  |TaskScreen",-(MA|
00000ea0  58 43 25 3c 3e 36 33 80  50 41 4c 25 29 2c 53 58  |XC%<>63.PAL%),SX|
00000eb0  25 2c 53 59 25 2c 4d 4d  25 3a 21 56 25 3d 30 3a  |%,SY%,MM%:!V%=0:|
00000ec0  43 4d 25 3d 4d 4d 25 0d  05 dc 25 21 43 48 41 4e  |CM%=MM%...%!CHAN|
00000ed0  47 45 44 42 58 3d 2d 32  30 3a 21 52 45 45 4e 54  |GEDBX=-20:!REENT|
00000ee0  52 41 4e 54 3d 30 3a f4  2a 2d 32 31 0d 05 e6 0a  |RANT=0:.*-21....|
00000ef0  e7 50 41 4c 25 8c 0d 05  f0 0c c8 8e 4d 41 58 43  |.PAL%.......MAXC|
00000f00  25 ca 0d 05 fa 5c c9 31  35 3a e3 4e 25 3d 30 b8  |%....\.15:.N%=0.|
00000f10  36 34 88 36 34 3a f7 2b  30 3a e3 4d 4d 25 3d 30  |64.64:.+0:.MM%=0|
00000f20  b8 36 33 88 38 3a f3 43  43 43 25 3a 53 50 52 25  |.63.8:.CCC%:SPR%|
00000f30  21 28 26 33 43 2b 4e 25  2b 4d 4d 25 29 3d 43 43  |!(&3C+N%+MM%)=CC|
00000f40  43 25 3a 53 50 52 25 21  28 26 33 43 2b 4e 25 2b  |C%:SPR%!(&3C+N%+|
00000f50  4d 4d 25 2b 34 29 3d 43  43 43 25 3a ed 2c 0d 06  |MM%+4)=CCC%:.,..|
00000f60  04 46 dc 26 31 30 2c 26  46 46 31 30 2c 26 46 46  |.F.&10,&FF10,&FF|
00000f70  30 30 31 30 2c 26 46 46  46 46 31 30 2c 26 46 46  |0010,&FFFF10,&FF|
00000f80  30 30 30 30 31 30 2c 26  46 46 30 30 46 46 31 30  |000010,&FF00FF10|
00000f90  2c 26 46 46 46 46 30 30  31 30 2c 26 46 46 46 46  |,&FFFF0010,&FFFF|
00000fa0  46 46 31 30 0d 06 0e 43  c9 33 3a f7 2b 30 3a e3  |FF10...C.3:.+0:.|
00000fb0  4e 25 3d 30 b8 33 31 88  38 3a f3 43 43 43 25 3a  |N%=0.31.8:.CCC%:|
00000fc0  53 50 52 25 21 28 4e 25  2b 26 33 43 29 3d 43 43  |SPR%!(N%+&3C)=CC|
00000fd0  43 25 3a 53 50 52 25 21  28 4e 25 2b 26 34 30 29  |C%:SPR%!(N%+&40)|
00000fe0  3d 43 43 43 25 3a ed 0d  06 18 20 dc 26 31 30 2c  |=CCC%:.... .&10,|
00000ff0  26 46 46 31 30 2c 26 46  46 46 46 31 30 2c 26 46  |&FF10,&FFFF10,&F|
00001000  46 46 46 46 46 31 30 0d  06 22 46 c9 31 3a 53 50  |FFFFF10.."F.1:SP|
00001010  52 25 21 26 33 43 3d 26  31 30 3a 53 50 52 25 21  |R%!&3C=&10:SPR%!|
00001020  26 34 30 3d 26 31 30 3a  53 50 52 25 21 26 34 34  |&40=&10:SPR%!&44|
00001030  3d 26 46 46 46 46 46 46  31 30 3a 53 50 52 25 21  |=&FFFFFF10:SPR%!|
00001040  26 34 38 3d 26 46 46 46  46 46 46 31 30 0d 06 2c  |&48=&FFFFFF10..,|
00001050  05 cb 0d 06 36 05 cd 0d  06 40 34 3f 53 54 41 54  |....6....@4?STAT|
00001060  55 53 3d 30 3a 4f 56 50  4f 53 25 3d 2d 31 30 3a  |US=0:OVPOS%=-10:|
00001070  4f 50 4f 53 25 3d 2d 31  30 3a 21 48 53 50 52 3d  |OPOS%=-10:!HSPR=|
00001080  53 50 52 25 3a 21 48 56  3d 56 25 0d 06 4a 7a ff  |SPR%:!HV=V%..Jz.|
00001090  22 57 69 6d 70 74 61 73  6b 20 25 54 61 73 6b 57  |"Wimptask %TaskW|
000010a0  69 6e 64 6f 77 20 22 22  22 22 20 2d 77 69 6d 70  |indow """" -wimp|
000010b0  73 6c 6f 74 20 22 2b c3  52 4c 53 25 2b 22 4b 20  |slot "+.RLS%+"K |
000010c0  2d 6e 61 6d 65 20 22 22  53 6d 61 6c 6c 20 54 61  |-name ""Small Ta|
000010d0  73 6b 20 57 69 6e 64 6f  77 22 22 20 2d 63 74 72  |sk Window"" -ctr|
000010e0  6c 20 2d 74 61 73 6b 20  26 22 2b c3 7e 54 41 53  |l -task &"+.~TAS|
000010f0  4b 48 25 2b 22 20 2d 74  78 74 20 26 33 30 30 30  |KH%+" -txt &3000|
00001100  30 30 30 30 22 0d 06 54  1f 47 52 41 50 48 4f 52  |0000"..T.GRAPHOR|
00001110  49 47 21 30 3d 30 3a 47  52 41 50 48 4f 52 49 47  |IG!0=0:GRAPHORIG|
00001120  21 34 3d 30 0d 06 5e 47  ff 22 53 65 74 20 41 6c  |!4=0..^G."Set Al|
00001130  69 61 73 24 53 74 61 72  74 55 70 53 4d 54 20 55  |ias$StartUpSMT U|
00001140  6e 73 65 74 20 41 6c 69  61 73 24 53 74 61 72 74  |nset Alias$Start|
00001150  55 70 53 4d 54 7c 4d 45  63 68 6f 20 7c 3c 31 32  |UpSMT|MEcho |<12|
00001160  3e 7c 3c 31 3e 7c 4d 22  2b 54 24 0d 06 68 0e f2  |>|<1>|M"+T$..h..|
00001170  53 54 41 52 54 55 50 46  54 0d 06 72 0c 48 49 53  |STARTUPFT..r.HIS|
00001180  54 25 3d 2d 32 0d 06 7c  41 42 25 21 30 3d 4d 48  |T%=-2..|AB%!0=MH|
00001190  25 3a c8 99 22 57 69 6d  70 5f 47 65 74 57 69 6e  |%:.."Wimp_GetWin|
000011a0  64 6f 77 49 6e 66 6f 22  2c 2c 42 25 3a 24 28 42  |dowInfo",,B%:$(B|
000011b0  25 21 37 36 29 3d 22 53  6d 61 6c 6c 54 61 73 6b  |%!76)="SmallTask|
000011c0  3a 20 22 2b 54 24 0d 06  86 49 42 25 21 30 3d 4d  |: "+T$...IB%!0=M|
000011d0  48 25 3a c8 99 22 57 69  6d 70 5f 47 65 74 57 69  |H%:.."Wimp_GetWi|
000011e0  6e 64 6f 77 53 74 61 74  65 22 2c 2c 42 25 3a 42  |ndowState",,B%:B|
000011f0  25 21 32 38 3d 2d 31 3a  c8 99 22 57 69 6d 70 5f  |%!28=-1:.."Wimp_|
00001200  4f 70 65 6e 57 69 6e 64  6f 77 22 2c 2c 42 25 0d  |OpenWindow",,B%.|
00001210  06 90 0c 50 41 55 53 45  25 3d a3 0d 06 9a 39 c8  |...PAUSE%=....9.|
00001220  99 22 57 69 6d 70 5f 46  6f 72 63 65 52 65 64 72  |."Wimp_ForceRedr|
00001230  61 77 22 2c 4d 48 25 2c  2d 31 45 39 2c 2d 31 45  |aw",MH%,-1E9,-1E|
00001240  39 2c 31 45 39 2c 31 45  39 3a f2 47 41 49 4e 43  |9,1E9,1E9:.GAINC|
00001250  41 52 45 54 0d 06 a4 05  e1 0d 06 ae 04 0d 06 b8  |ARET............|
00001260  0b dd a4 43 48 45 43 4b  0d 06 c2 80 c8 99 22 57  |...CHECK......"W|
00001270  69 6d 70 5f 52 65 70 6f  72 74 45 72 72 6f 72 22  |imp_ReportError"|
00001280  2c 22 31 32 33 34 41 20  53 6d 61 6c 6c 54 61 73  |,"1234A SmallTas|
00001290  6b 20 69 73 20 61 6c 72  65 61 64 79 20 61 63 74  |k is already act|
000012a0  69 76 65 2e 20 4b 69 6c  6c 20 6f 6c 64 20 6f 6e  |ive. Kill old on|
000012b0  65 3f 22 2c 31 39 2c 22  4d 65 73 73 61 67 65 20  |e?",19,"Message |
000012c0  66 72 6f 6d 20 21 53 6d  61 6c 6c 54 61 73 6b 22  |from !SmallTask"|
000012d0  b8 2c 4b 25 3a e7 4b 25  3d 31 8c f2 4b 49 4c 4c  |.,K%:.K%=1..KILL|
000012e0  43 48 49 4c 44 3a 3d a3  0d 06 cc 06 3d b9 0d 06  |CHILD:=.....=...|
000012f0  d6 04 0d 06 e0 11 44 45  46 50 52 4f 43 4f 55 54  |......DEFPROCOUT|
00001300  50 55 54 0d 06 ea 08 ea  53 42 25 0d 06 f4 2d c8  |PUT.....SB%...-.|
00001310  99 22 4f 53 5f 53 70 72  69 74 65 4f 70 22 2c 26  |."OS_SpriteOp",&|
00001320  31 33 43 2c 53 50 52 25  2c 22 54 61 73 6b 53 63  |13C,SPR%,"TaskSc|
00001330  72 65 65 6e 22 2c 56 25  0d 06 fe 2b c8 99 22 4f  |reen",V%...+.."O|
00001340  53 5f 43 68 61 6e 67 65  64 42 6f 78 22 2c 31 3a  |S_ChangedBox",1:|
00001350  c8 99 22 4f 53 5f 43 68  61 6e 67 65 64 42 6f 78  |.."OS_ChangedBox|
00001360  22 2c 32 0d 07 08 1a 44  25 3d 42 25 2b 32 34 3a  |",2....D%=B%+24:|
00001370  43 25 3d 42 25 21 32 30  3a d6 4d 43 25 0d 07 12  |C%=B%!20:.MC%...|
00001380  1d c8 99 22 4f 53 5f 43  68 61 6e 67 65 64 42 6f  |..."OS_ChangedBo|
00001390  78 22 2c 2d 31 b8 2c 53  42 25 0d 07 1c 16 e7 53  |x",-1.,SB%.....S|
000013a0  42 25 21 34 3c 3e 26 37  46 46 46 46 46 46 46 8c  |B%!4<>&7FFFFFFF.|
000013b0  0d 07 26 88 42 25 21 33  30 30 3d 4d 48 25 3a 42  |..&.B%!300=MH%:B|
000013c0  25 21 33 30 34 3d 53 42  25 21 34 2a 28 31 3c 3c  |%!304=SB%!4*(1<<|
000013d0  53 32 58 25 29 3a 42 25  21 33 30 38 3d 53 42 25  |S2X%):B%!308=SB%|
000013e0  21 38 2a 28 31 3c 3c 53  32 59 25 29 2d 52 59 25  |!8*(1<<S2Y%)-RY%|
000013f0  3a 42 25 21 33 31 32 3d  53 42 25 21 31 32 2a 28  |:B%!312=SB%!12*(|
00001400  31 3c 3c 53 32 58 25 29  2b 28 31 3c 3c 53 32 58  |1<<S2X%)+(1<<S2X|
00001410  25 29 3a 42 25 21 33 31  36 3d 53 42 25 21 31 36  |%):B%!316=SB%!16|
00001420  2a 28 31 3c 3c 53 32 59  25 29 2d 52 59 25 2b 28  |*(1<<S2Y%)-RY%+(|
00001430  31 3c 3c 53 32 59 25 29  0d 07 30 30 c8 99 22 4f  |1<<S2Y%)..00.."O|
00001440  53 5f 42 79 74 65 22 2c  31 31 37 b8 2c 53 54 54  |S_Byte",117.,STT|
00001450  25 3a 4f 50 4f 53 25 3d  b1 2a 38 3a 4f 56 50 4f  |%:OPOS%=.*8:OVPO|
00001460  53 25 3d bc 2a 38 2b 39  0d 07 3a 20 c8 99 22 4f  |S%=.*8+9..: .."O|
00001470  53 5f 53 70 72 69 74 65  4f 70 22 2c 26 31 33 43  |S_SpriteOp",&13C|
00001480  2c 53 50 52 25 2c 2c 31  0d 07 44 0c e7 43 41 52  |,SPR%,,1..D..CAR|
00001490  45 54 25 8c 0d 07 4e 25  c8 99 22 57 69 6d 70 5f  |ET%...N%.."Wimp_|
000014a0  47 65 74 43 61 72 65 74  50 6f 73 69 74 69 6f 6e  |GetCaretPosition|
000014b0  22 2c 2c 42 25 2b 37 30  30 0d 07 58 10 e7 42 25  |",,B%+700..X..B%|
000014c0  21 37 30 30 3d 4d 48 25  8c 0d 07 62 49 c8 99 22  |!700=MH%...bI.."|
000014d0  57 69 6d 70 5f 53 65 74  43 61 72 65 74 50 6f 73  |Wimp_SetCaretPos|
000014e0  69 74 69 6f 6e 22 2c 4d  48 25 2c 2d 31 2c 4f 50  |ition",MH%,-1,OP|
000014f0  4f 53 25 3c 3c 53 32 58  25 2c 2d 28 4f 56 50 4f  |OS%<<S2X%,-(OVPO|
00001500  53 25 3c 3c 53 32 59 25  29 2c 31 31 3c 3c 53 32  |S%<<S2Y%),11<<S2|
00001510  59 25 0d 07 6c 05 cd 0d  07 76 05 cd 0d 07 80 24  |Y%..l....v.....$|
00001520  c8 99 22 57 69 6d 70 5f  55 70 64 61 74 65 57 69  |.."Wimp_UpdateWi|
00001530  6e 64 6f 77 22 2c 2c 42  25 2b 33 30 30 b8 46 25  |ndow",,B%+300.F%|
00001540  0d 07 8a 08 c8 95 46 25  0d 07 94 8e 42 25 21 36  |......F%....B%!6|
00001550  30 30 3d 30 3a 42 25 21  36 30 34 3d 2d 52 59 25  |00=0:B%!604=-RY%|
00001560  3a 42 25 21 36 30 38 3d  35 30 30 30 3a 42 25 21  |:B%!608=5000:B%!|
00001570  36 31 32 3d 30 3a 42 25  21 36 31 36 3d 26 31 30  |612=0:B%!616=&10|
00001580  32 3a 42 25 21 36 32 30  3d 42 25 2b 36 36 30 3a  |2:B%!620=B%+660:|
00001590  42 25 21 36 32 34 3d 53  50 52 25 3a 42 25 21 36  |B%!624=SPR%:B%!6|
000015a0  32 38 3d 31 30 3a 24 28  42 25 2b 36 36 30 29 3d  |28=10:$(B%+660)=|
000015b0  22 54 61 73 6b 53 63 72  65 65 6e 22 3a c8 99 22  |"TaskScreen":.."|
000015c0  57 69 6d 70 5f 50 6c 6f  74 49 63 6f 6e 22 2c 2c  |Wimp_PlotIcon",,|
000015d0  42 25 2b 36 30 30 0d 07  9e 24 c8 99 22 57 69 6d  |B%+600...$.."Wim|
000015e0  70 5f 47 65 74 52 65 63  74 61 6e 67 6c 65 22 2c  |p_GetRectangle",|
000015f0  2c 42 25 2b 33 30 30 b8  46 25 0d 07 a8 05 ce 0d  |,B%+300.F%......|
00001600  07 b2 05 cc 0d 07 bc 20  c8 99 22 4f 53 5f 53 70  |....... .."OS_Sp|
00001610  72 69 74 65 4f 70 22 2c  26 31 33 43 2c 53 50 52  |riteOp",&13C,SPR|
00001620  25 2c 2c 31 0d 07 c6 05  cd 0d 07 d0 05 e1 0d 07  |%,,1............|
00001630  da 04 0d 07 e4 12 dd f2  55 50 44 41 54 45 43 48  |........UPDATECH|
00001640  41 4e 47 45 0d 07 ee 13  53 42 25 3d 43 48 41 4e  |ANGE....SB%=CHAN|
00001650  47 45 44 42 58 2d 34 0d  07 f8 21 e7 53 42 25 21  |GEDBX-4...!.SB%!|
00001660  34 3c 3e 2d 32 30 80 53  42 25 21 34 3c 3e 26 37  |4<>-20.SB%!4<>&7|
00001670  46 46 46 46 46 46 46 8c  0d 08 02 89 20 42 25 21  |FFFFFFF..... B%!|
00001680  33 30 30 3d 4d 48 25 3a  42 25 21 33 30 34 3d 53  |300=MH%:B%!304=S|
00001690  42 25 21 34 2a 28 31 3c  3c 53 32 58 25 29 3a 42  |B%!4*(1<<S2X%):B|
000016a0  25 21 33 30 38 3d 53 42  25 21 38 2a 28 31 3c 3c  |%!308=SB%!8*(1<<|
000016b0  53 32 59 25 29 2d 52 59  25 3a 42 25 21 33 31 32  |S2Y%)-RY%:B%!312|
000016c0  3d 53 42 25 21 31 32 2a  28 31 3c 3c 53 32 58 25  |=SB%!12*(1<<S2X%|
000016d0  29 2b 28 31 3c 3c 53 32  58 25 29 3a 42 25 21 33  |)+(1<<S2X%):B%!3|
000016e0  31 36 3d 53 42 25 21 31  36 2a 28 31 3c 3c 53 32  |16=SB%!16*(1<<S2|
000016f0  59 25 29 2d 52 59 25 2b  28 31 3c 3c 53 32 59 25  |Y%)-RY%+(1<<S2Y%|
00001700  29 0d 08 0c 78 20 c8 99  22 4f 53 5f 53 70 72 69  |)...x .."OS_Spri|
00001710  74 65 4f 70 22 2c 26 31  33 43 2c 53 50 52 25 2c  |teOp",&13C,SPR%,|
00001720  22 54 61 73 6b 53 63 72  65 65 6e 22 2c 56 25 3a  |"TaskScreen",V%:|
00001730  c8 99 22 4f 53 5f 42 79  74 65 22 2c 31 31 37 b8  |.."OS_Byte",117.|
00001740  2c 53 54 54 25 3a 4f 50  4f 53 25 3d b1 2a 38 3a  |,STT%:OPOS%=.*8:|
00001750  4f 56 50 4f 53 25 3d bc  2a 38 2b 39 3a c8 99 22  |OVPOS%=.*8+9:.."|
00001760  4f 53 5f 53 70 72 69 74  65 4f 70 22 2c 26 31 33  |OS_SpriteOp",&13|
00001770  43 2c 53 50 52 25 2c 2c  31 0d 08 16 0d 20 e7 43  |C,SPR%,,1.... .C|
00001780  41 52 45 54 25 8c 0d 08  20 27 20 20 c8 99 22 57  |ARET%... '  .."W|
00001790  69 6d 70 5f 47 65 74 43  61 72 65 74 50 6f 73 69  |imp_GetCaretPosi|
000017a0  74 69 6f 6e 22 2c 2c 42  25 2b 37 30 30 0d 08 2a  |tion",,B%+700..*|
000017b0  12 20 20 e7 42 25 21 37  30 30 3d 4d 48 25 8c 0d  |.  .B%!700=MH%..|
000017c0  08 34 4c 20 20 20 c8 99  22 57 69 6d 70 5f 53 65  |.4L   .."Wimp_Se|
000017d0  74 43 61 72 65 74 50 6f  73 69 74 69 6f 6e 22 2c  |tCaretPosition",|
000017e0  4d 48 25 2c 2d 31 2c 4f  50 4f 53 25 3c 3c 53 32  |MH%,-1,OPOS%<<S2|
000017f0  58 25 2c 2d 28 4f 56 50  4f 53 25 3c 3c 53 32 59  |X%,-(OVPOS%<<S2Y|
00001800  25 29 2c 31 31 3c 3c 53  32 59 25 0d 08 3e 07 20  |%),11<<S2Y%..>. |
00001810  20 cd 0d 08 48 06 20 cd  0d 08 52 25 20 c8 99 22  | ...H. ...R% .."|
00001820  57 69 6d 70 5f 55 70 64  61 74 65 57 69 6e 64 6f  |Wimp_UpdateWindo|
00001830  77 22 2c 2c 42 25 2b 33  30 30 b8 46 25 0d 08 5c  |w",,B%+300.F%..\|
00001840  09 20 c8 95 46 25 0d 08  66 90 20 20 42 25 21 36  |. ..F%..f.  B%!6|
00001850  30 30 3d 30 3a 42 25 21  36 30 34 3d 2d 52 59 25  |00=0:B%!604=-RY%|
00001860  3a 42 25 21 36 30 38 3d  35 30 30 30 3a 42 25 21  |:B%!608=5000:B%!|
00001870  36 31 32 3d 30 3a 42 25  21 36 31 36 3d 26 31 30  |612=0:B%!616=&10|
00001880  32 3a 42 25 21 36 32 30  3d 42 25 2b 36 36 30 3a  |2:B%!620=B%+660:|
00001890  42 25 21 36 32 34 3d 53  50 52 25 3a 42 25 21 36  |B%!624=SPR%:B%!6|
000018a0  32 38 3d 31 30 3a 24 28  42 25 2b 36 36 30 29 3d  |28=10:$(B%+660)=|
000018b0  22 54 61 73 6b 53 63 72  65 65 6e 22 3a c8 99 22  |"TaskScreen":.."|
000018c0  57 69 6d 70 5f 50 6c 6f  74 49 63 6f 6e 22 2c 2c  |Wimp_PlotIcon",,|
000018d0  42 25 2b 36 30 30 0d 08  70 26 20 20 c8 99 22 57  |B%+600..p&  .."W|
000018e0  69 6d 70 5f 47 65 74 52  65 63 74 61 6e 67 6c 65  |imp_GetRectangle|
000018f0  22 2c 2c 42 25 2b 33 30  30 b8 46 25 0d 08 7a 06  |",,B%+300.F%..z.|
00001900  20 ce 0d 08 84 05 cd 0d  08 8e 12 21 43 48 41 4e  | ..........!CHAN|
00001910  47 45 44 42 58 3d 2d 32  30 0d 08 98 05 e1 0d 08  |GEDBX=-20.......|
00001920  a2 04 0d 08 ac 0e dd f2  53 45 4e 44 28 53 24 29  |........SEND(S$)|
00001930  0d 08 b6 37 42 25 21 30  3d 32 35 36 3a 42 25 21  |...7B%!0=256:B%!|
00001940  31 32 3d 30 3a 42 25 21  31 36 3d 26 38 30 38 43  |12=0:B%!16=&808C|
00001950  30 3a 42 25 21 32 30 3d  a9 53 24 3a 24 28 42 25  |0:B%!20=.S$:$(B%|
00001960  2b 32 34 29 3d 53 24 0d  08 c0 24 c8 99 22 57 69  |+24)=S$...$.."Wi|
00001970  6d 70 5f 53 65 6e 64 4d  65 73 73 61 67 65 22 2c  |mp_SendMessage",|
00001980  31 37 2c 42 25 2c 48 49  53 54 25 0d 08 ca 05 e1  |17,B%,HIST%.....|
00001990  0d 08 d4 04 0d 08 de 09  dd f2 45 47 4f 0d 08 e8  |..........EGO...|
000019a0  17 48 49 53 54 25 3d 42  25 21 34 3a f2 53 54 41  |.HIST%=B%!4:.STA|
000019b0  52 54 46 54 0d 08 f2 1b  f2 53 45 4e 44 28 22 53  |RTFT.....SEND("S|
000019c0  74 61 72 74 55 70 53 4d  54 22 2b bd 31 33 29 0d  |tartUpSMT"+.13).|
000019d0  08 fc 05 e1 0d 09 06 04  0d 09 10 10 dd f2 43 48  |..............CH|
000019e0  49 4c 44 44 59 49 4e 47  0d 09 1a 12 e7 42 25 21  |ILDDYING.....B%!|
000019f0  34 3c 3e 48 49 53 54 25  8c e1 0d 09 24 0d f2 46  |4<>HIST%....$..F|
00001a00  49 4e 49 53 48 46 54 0d  09 2e 2e 42 25 21 30 3d  |INISHFT....B%!0=|
00001a10  4d 48 25 3a c8 99 22 57  69 6d 70 5f 43 6c 6f 73  |MH%:.."Wimp_Clos|
00001a20  65 57 69 6e 64 6f 77 22  2c 2c 42 25 3a 48 49 53  |eWindow",,B%:HIS|
00001a30  54 25 3d 2d 31 0d 09 38  0c 50 41 55 53 45 25 3d  |T%=-1..8.PAUSE%=|
00001a40  a3 0d 09 42 29 e7 53 50  52 25 3c 3e 30 8c c8 99  |...B).SPR%<>0...|
00001a50  22 4f 53 5f 4d 6f 64 75  6c 65 22 2c 37 2c 2c 53  |"OS_Module",7,,S|
00001a60  50 52 25 3a 53 50 52 25  3d 30 0d 09 4c 05 e1 0d  |PR%:SPR%=0..L...|
00001a70  09 56 04 0d 09 60 0f dd  f2 4b 49 4c 4c 43 48 49  |.V...`...KILLCHI|
00001a80  4c 44 0d 09 6a 42 42 25  21 30 3d 32 35 36 3a 42  |LD..jBB%!0=256:B|
00001a90  25 21 31 32 3d 30 3a 42  25 21 31 36 3d 26 38 30  |%!12=0:B%!16=&80|
00001aa0  38 43 34 3a c8 99 22 57  69 6d 70 5f 53 65 6e 64  |8C4:.."Wimp_Send|
00001ab0  4d 65 73 73 61 67 65 22  2c 31 37 2c 42 25 2c 48  |Message",17,B%,H|
00001ac0  49 53 54 25 0d 09 74 23  42 25 21 34 3d 48 49 53  |IST%..t#B%!4=HIS|
00001ad0  54 25 3a f2 43 48 49 4c  44 44 59 49 4e 47 3a 50  |T%:.CHILDDYING:P|
00001ae0  41 55 53 45 25 3d a3 0d  09 7e 05 e1 0d 09 88 04  |AUSE%=...~......|
00001af0  0d 09 92 15 dd f2 4d 41  4b 45 4d 45 4e 55 28 58  |......MAKEMENU(X|
00001b00  25 2c 59 25 29 0d 09 9c  07 ea 53 25 0d 09 a6 09  |%,Y%).....S%....|
00001b10  53 25 3d 4d 25 0d 09 b0  12 24 53 25 3d 22 4e 65  |S%=M%....$S%="Ne|
00001b20  77 20 74 61 73 6b 22 0d  09 ba 32 53 25 21 31 32  |w task"...2S%!12|
00001b30  3d 26 37 30 32 30 37 3a  53 25 21 31 36 3d 32 30  |=&70207:S%!16=20|
00001b40  34 3a 53 25 21 32 30 3d  34 34 3a 53 25 21 32 34  |4:S%!20=44:S%!24|
00001b50  3d 30 3a 53 25 2b 3d 32  38 0d 09 c4 4b 53 25 21  |=0:S%+=28...KS%!|
00001b60  30 3d 31 32 38 2b 34 3a  53 25 21 34 3d 2d 31 3a  |0=128+4:S%!4=-1:|
00001b70  53 25 21 38 3d 26 37 30  30 30 31 33 31 3a 53 25  |S%!8=&7000131:S%|
00001b80  21 31 32 3d 49 32 25 2b  31 3a 53 25 21 31 36 3d  |!12=I2%+1:S%!16=|
00001b90  32 34 30 3a 53 25 21 32  30 3d 49 32 25 3a 53 25  |240:S%!20=I2%:S%|
00001ba0  2b 3d 32 34 0d 09 ce 1b  24 53 25 3d 22 21 53 6d  |+=24....$S%="!Sm|
00001bb0  61 6c 6c 54 61 73 6b 22  3a 4d 32 25 3d 53 25 0d  |allTask":M2%=S%.|
00001bc0  09 d8 32 53 25 21 31 32  3d 26 37 30 32 30 37 3a  |..2S%!12=&70207:|
00001bd0  53 25 21 31 36 3d 31 37  32 3a 53 25 21 32 30 3d  |S%!16=172:S%!20=|
00001be0  34 34 3a 53 25 21 32 34  3d 30 3a 53 25 2b 3d 32  |44:S%!24=0:S%+=2|
00001bf0  38 0d 09 e2 38 53 25 21  30 3d 30 3a 53 25 21 34  |8...8S%!0=0:S%!4|
00001c00  3d 49 48 25 3a 53 25 21  38 3d 26 37 30 30 30 30  |=IH%:S%!8=&70000|
00001c10  33 31 3a 24 28 53 25 2b  31 32 29 3d 22 49 6e 66  |31:$(S%+12)="Inf|
00001c20  6f 22 3a 53 25 2b 3d 32  34 0d 09 ec 53 53 25 21  |o":S%+=24...SS%!|
00001c30  30 3d 2d 50 41 55 53 45  25 3a 53 25 21 34 3d 2d  |0=-PAUSE%:S%!4=-|
00001c40  31 3a 53 25 21 38 3d 26  37 30 30 30 30 33 31 2d  |1:S%!8=&7000031-|
00001c50  28 31 3c 3c 32 32 29 2a  ac 28 48 49 53 54 25 3c  |(1<<22)*.(HIST%<|
00001c60  3e 2d 31 29 3a 24 28 53  25 2b 31 32 29 3d 22 50  |>-1):$(S%+12)="P|
00001c70  61 75 73 65 22 3a 53 25  2b 3d 32 34 0d 09 f6 4d  |ause":S%+=24...M|
00001c80  53 25 21 30 3d 30 3a 53  25 21 34 3d 56 48 25 3a  |S%!0=0:S%!4=VH%:|
00001c90  53 25 21 38 3d 26 37 30  30 30 30 33 31 2d 28 31  |S%!8=&7000031-(1|
00001ca0  3c 3c 32 32 29 2a ac 28  48 49 53 54 25 3c 3e 2d  |<<22)*.(HIST%<>-|
00001cb0  31 29 3a 24 28 53 25 2b  31 32 29 3d 22 53 61 76  |1):$(S%+12)="Sav|
00001cc0  65 22 3a 53 25 2b 3d 32  34 0d 0a 00 51 53 25 21  |e":S%+=24...QS%!|
00001cd0  30 3d 30 3a 53 25 21 34  3d 2d 31 3a 53 25 21 38  |0=0:S%!4=-1:S%!8|
00001ce0  3d 26 37 30 30 30 30 33  31 2d 28 31 3c 3c 32 32  |=&7000031-(1<<22|
00001cf0  29 2a ac 28 48 49 53 54  25 3c 3e 2d 31 29 3a 24  |)*.(HIST%<>-1):$|
00001d00  28 53 25 2b 31 32 29 3d  22 4b 69 6c 6c 20 74 61  |(S%+12)="Kill ta|
00001d10  73 6b 22 3a 53 25 2b 3d  32 34 0d 0a 0a 43 53 25  |sk":S%+=24...CS%|
00001d20  21 30 3d 2d 43 41 52 45  54 25 3a 53 25 21 34 3d  |!0=-CARET%:S%!4=|
00001d30  2d 31 3a 53 25 21 38 3d  26 37 30 30 30 30 33 31  |-1:S%!8=&7000031|
00001d40  3a 24 28 53 25 2b 31 32  29 3d 22 53 68 6f 77 20  |:$(S%+12)="Show |
00001d50  63 61 72 65 74 22 3a 53  25 2b 3d 32 34 0d 0a 14  |caret":S%+=24...|
00001d60  2e 42 25 21 38 30 30 3d  4d 48 25 3a c8 99 22 57  |.B%!800=MH%:.."W|
00001d70  69 6d 70 5f 47 65 74 57  69 6e 64 6f 77 53 74 61  |imp_GetWindowSta|
00001d80  74 65 22 2c 2c 42 25 2b  38 30 30 0d 0a 1e 6f 53  |te",,B%+800...oS|
00001d90  25 21 30 3d 30 3a 53 25  21 34 3d 2d 31 3a 53 25  |%!0=0:S%!4=-1:S%|
00001da0  21 38 3d 26 37 30 30 30  30 33 31 2d 28 31 3c 3c  |!8=&7000031-(1<<|
00001db0  32 32 29 2a ac 28 28 42  25 21 38 33 32 80 28 31  |22)*.((B%!832.(1|
00001dc0  3c 3c 31 36 29 29 3c 3e  30 80 28 42 25 21 38 33  |<<16))<>0.(B%!83|
00001dd0  32 80 28 31 3c 3c 32 30  29 29 3d 30 29 3a 24 28  |2.(1<<20))=0):$(|
00001de0  53 25 2b 31 32 29 3d 22  47 61 69 6e 20 63 61 72  |S%+12)="Gain car|
00001df0  65 74 22 3a 53 25 2b 3d  32 34 0d 0a 28 3b 53 25  |et":S%+=24..(;S%|
00001e00  21 30 3d 30 3a 53 25 21  34 3d 4d 25 3a 53 25 21  |!0=0:S%!4=M%:S%!|
00001e10  38 3d 26 37 30 30 30 30  33 31 3a 24 28 53 25 2b  |8=&7000031:$(S%+|
00001e20  31 32 29 3d 22 4e 65 77  20 74 61 73 6b 22 3a 53  |12)="New task":S|
00001e30  25 2b 3d 32 34 0d 0a 32  3d 53 25 21 30 3d 30 3a  |%+=24..2=S%!0=0:|
00001e40  53 25 21 34 3d 53 48 25  3a 53 25 21 38 3d 26 37  |S%!4=SH%:S%!8=&7|
00001e50  30 30 30 30 33 31 3a 24  28 53 25 2b 31 32 29 3d  |000031:$(S%+12)=|
00001e60  22 4e 65 78 74 20 74 61  73 6b 22 3a 53 25 2b 3d  |"Next task":S%+=|
00001e70  32 34 0d 0a 3c 39 53 25  21 30 3d 31 32 38 3a 53  |24..<9S%!0=128:S|
00001e80  25 21 34 3d 2d 31 3a 53  25 21 38 3d 26 37 30 30  |%!4=-1:S%!8=&700|
00001e90  30 30 33 31 3a 24 28 53  25 2b 31 32 29 3d 22 51  |0031:$(S%+12)="Q|
00001ea0  75 69 74 22 3a 53 25 2b  3d 32 34 0d 0a 46 51 f2  |uit":S%+=24..FQ.|
00001eb0  53 45 54 49 28 53 48 25  2c 35 2c c3 52 4c 59 25  |SETI(SH%,5,.RLY%|
00001ec0  29 3a f2 53 45 54 49 28  53 48 25 2c 32 2c c3 52  |):.SETI(SH%,2,.R|
00001ed0  4c 58 25 29 3a f2 53 45  54 49 28 53 48 25 2c 31  |LX%):.SETI(SH%,1|
00001ee0  32 2c c3 52 4c 4d 25 29  3a f2 53 45 54 49 28 53  |2,.RLM%):.SETI(S|
00001ef0  48 25 2c 31 36 2c c3 52  4c 53 25 29 0d 0a 50 22  |H%,16,.RLS%)..P"|
00001f00  c8 99 22 57 69 6d 70 5f  43 72 65 61 74 65 4d 65  |.."Wimp_CreateMe|
00001f10  6e 75 22 2c 2c 4d 32 25  2c 58 25 2c 59 25 0d 0a  |nu",,M2%,X%,Y%..|
00001f20  5a 05 e1 0d 0a 64 04 0d  0a 6e 15 dd f2 53 45 54  |Z....d...n...SET|
00001f30  54 4f 53 43 52 45 45 4e  53 49 5a 45 0d 0a 78 16  |TOSCREENSIZE..x.|
00001f40  ea 4d 4d 25 2c 53 46 25  2c 53 53 58 25 2c 53 53  |.MM%,SF%,SSX%,SS|
00001f50  59 25 0d 0a 82 4e 4d 4d  25 3d bb a4 47 45 54 49  |Y%...NMM%=..GETI|
00001f60  28 53 48 25 2c 31 32 29  3a c8 99 22 4f 53 5f 43  |(SH%,12):.."OS_C|
00001f70  68 65 63 6b 4d 6f 64 65  56 61 6c 69 64 22 2c 4d  |heckModeValid",M|
00001f80  4d 25 b8 52 52 25 3a e7  52 52 25 3d 2d 31 8c 85  |M%.RR%:.RR%=-1..|
00001f90  31 2c 22 49 6e 76 61 6c  69 64 20 6d 6f 64 65 22  |1,"Invalid mode"|
00001fa0  0d 0a 8c 60 c8 99 22 4f  53 5f 52 65 61 64 4d 6f  |...`.."OS_ReadMo|
00001fb0  64 65 56 61 72 69 61 62  6c 65 22 2c 4d 4d 25 2c  |deVariable",MM%,|
00001fc0  34 b8 2c 2c 53 46 25 3a  c8 99 22 4f 53 5f 52 65  |4.,,SF%:.."OS_Re|
00001fd0  61 64 4d 6f 64 65 56 61  72 69 61 62 6c 65 22 2c  |adModeVariable",|
00001fe0  4d 4d 25 2c 31 31 b8 2c  2c 53 53 58 25 3a 53 53  |MM%,11.,,SSX%:SS|
00001ff0  58 25 3d 28 53 53 58 25  2b 31 29 3c 3c 53 46 25  |X%=(SSX%+1)<<SF%|
00002000  0d 0a 96 60 c8 99 22 4f  53 5f 52 65 61 64 4d 6f  |...`.."OS_ReadMo|
00002010  64 65 56 61 72 69 61 62  6c 65 22 2c 4d 4d 25 2c  |deVariable",MM%,|
00002020  35 b8 2c 2c 53 46 25 3a  c8 99 22 4f 53 5f 52 65  |5.,,SF%:.."OS_Re|
00002030  61 64 4d 6f 64 65 56 61  72 69 61 62 6c 65 22 2c  |adModeVariable",|
00002040  4d 4d 25 2c 31 32 b8 2c  2c 53 53 59 25 3a 53 53  |MM%,12.,,SSY%:SS|
00002050  59 25 3d 28 53 53 59 25  2b 31 29 3c 3c 53 46 25  |Y%=(SSY%+1)<<SF%|
00002060  0d 0a a0 29 f2 53 45 54  49 28 53 48 25 2c 32 2c  |...).SETI(SH%,2,|
00002070  c3 53 53 58 25 29 3a f2  53 45 54 49 28 53 48 25  |.SSX%):.SETI(SH%|
00002080  2c 35 2c c3 53 53 59 25  29 0d 0a aa 05 e1 0d 0a  |,5,.SSY%).......|
00002090  b4 04 0d 0a be 0d dd f2  4e 45 57 53 49 5a 45 0d  |........NEWSIZE.|
000020a0  0a c8 4f e7 bb a4 47 45  54 49 28 53 48 25 2c 35  |..O...GETI(SH%,5|
000020b0  29 3e 34 30 39 35 84 bb  a4 47 45 54 49 28 53 48  |)>4095...GETI(SH|
000020c0  25 2c 32 29 3e 34 30 39  35 8c 85 31 2c 22 43 6f  |%,2)>4095..1,"Co|
000020d0  6f 72 69 6e 61 74 65 73  20 6d 75 73 74 20 6e 6f  |orinates must no|
000020e0  74 20 65 78 63 65 65 64  20 34 30 39 35 22 0d 0a  |t exceed 4095"..|
000020f0  d2 46 c8 99 22 4f 53 5f  43 68 65 63 6b 4d 6f 64  |.F.."OS_CheckMod|
00002100  65 56 61 6c 69 64 22 2c  bb a4 47 45 54 49 28 53  |eValid",..GETI(S|
00002110  48 25 2c 31 32 29 b8 52  52 25 3a e7 52 52 25 3d  |H%,12).RR%:.RR%=|
00002120  2d 31 8c 85 31 2c 22 49  6e 76 61 6c 69 64 20 6d  |-1..1,"Invalid m|
00002130  6f 64 65 22 0d 0a dc 59  52 4c 59 25 3d bb a4 47  |ode"...YRLY%=..G|
00002140  45 54 49 28 53 48 25 2c  35 29 81 34 2a 34 3a 52  |ETI(SH%,5).4*4:R|
00002150  4c 58 25 3d bb a4 47 45  54 49 28 53 48 25 2c 32  |LX%=..GETI(SH%,2|
00002160  29 81 32 2a 32 3a 52 4c  4d 25 3d bb a4 47 45 54  |).2*2:RLM%=..GET|
00002170  49 28 53 48 25 2c 31 32  29 3a 52 4c 53 25 3d bb  |I(SH%,12):RLS%=.|
00002180  a4 47 45 54 49 28 53 48  25 2c 31 36 29 0d 0a e6  |.GETI(SH%,16)...|
00002190  05 e1 0d 0a f0 04 0d 0a  fa 10 dd f2 4d 45 4e 55  |............MENU|
000021a0  53 45 4c 45 43 54 0d 0b  04 07 ea 41 24 0d 0b 0e  |SELECT.....A$...|
000021b0  23 c8 99 22 57 69 6d 70  5f 47 65 74 50 6f 69 6e  |#.."Wimp_GetPoin|
000021c0  74 65 72 49 6e 66 6f 22  2c 2c 42 25 2b 34 30 30  |terInfo",,B%+400|
000021d0  0d 0b 18 2c c8 99 22 57  69 6d 70 5f 44 65 63 6f  |...,.."Wimp_Deco|
000021e0  64 65 4d 65 6e 75 22 2c  2c 4d 32 25 2c 42 25 2c  |deMenu",,M2%,B%,|
000021f0  42 25 2b 31 30 30 b8 2c  2c 2c 41 24 0d 0b 22 10  |B%+100.,,,A$..".|
00002200  52 4f 25 3d 42 25 21 34  30 38 3d 31 0d 0b 2c 09  |RO%=B%!408=1..,.|
00002210  c8 8e 41 24 ca 0d 0b 36  3b c9 22 49 6e 66 6f 22  |..A$...6;."Info"|
00002220  3a c8 99 22 57 69 6d 70  5f 43 72 65 61 74 65 4d  |:.."Wimp_CreateM|
00002230  65 6e 75 22 2c 2c 49 48  25 2c 42 25 21 34 30 30  |enu",,IH%,B%!400|
00002240  2d 36 34 2c 42 25 21 34  30 34 3a 52 4f 25 3d a3  |-64,B%!404:RO%=.|
00002250  0d 0b 40 13 c9 22 50 61  75 73 65 22 3a f2 50 41  |..@.."Pause":.PA|
00002260  55 53 45 0d 0b 4a 3b c9  22 53 61 76 65 22 3a c8  |USE..J;."Save":.|
00002270  99 22 57 69 6d 70 5f 43  72 65 61 74 65 4d 65 6e  |."Wimp_CreateMen|
00002280  75 22 2c 2c 56 48 25 2c  42 25 21 34 30 30 2d 36  |u",,VH%,B%!400-6|
00002290  34 2c 42 25 21 34 30 34  3a 52 4f 25 3d a3 0d 0b  |4,B%!404:RO%=...|
000022a0  54 1b c9 22 4b 69 6c 6c  20 74 61 73 6b 22 3a f2  |T.."Kill task":.|
000022b0  4b 49 4c 4c 43 48 49 4c  44 0d 0b 5e 59 c9 22 53  |KILLCHILD..^Y."S|
000022c0  68 6f 77 20 63 61 72 65  74 22 3a 43 41 52 45 54  |how caret":CARET|
000022d0  25 3d ac 43 41 52 45 54  25 3a c8 99 22 57 69 6d  |%=.CARET%:.."Wim|
000022e0  70 5f 47 65 74 43 61 72  65 74 50 6f 73 69 74 69  |p_GetCaretPositi|
000022f0  6f 6e 22 2c 2c 42 25 2b  35 30 30 3a e7 42 25 21  |on",,B%+500:.B%!|
00002300  35 30 30 3d 4d 48 25 8c  f2 47 41 49 4e 43 41 52  |500=MH%..GAINCAR|
00002310  45 54 0d 0b 68 1c c9 22  47 61 69 6e 20 63 61 72  |ET..h.."Gain car|
00002320  65 74 22 3a f2 47 41 49  4e 43 41 52 45 54 0d 0b  |et":.GAINCARET..|
00002330  72 40 c9 22 4e 65 78 74  20 74 61 73 6b 22 3a c8  |r@."Next task":.|
00002340  99 22 57 69 6d 70 5f 43  72 65 61 74 65 4d 65 6e  |."Wimp_CreateMen|
00002350  75 22 2c 2c 53 48 25 2c  42 25 21 34 30 30 2d 36  |u",,SH%,B%!400-6|
00002360  34 2c 42 25 21 34 30 34  3a 52 4f 25 3d a3 0d 0b  |4,B%!404:RO%=...|
00002370  7c 0e c9 22 51 75 69 74  22 3a f2 43 0d 0b 86 05  ||.."Quit":.C....|
00002380  cb 0d 0b 90 27 e7 c0 41  24 2c 39 29 3d 22 4e 65  |....'..A$,9)="Ne|
00002390  77 20 74 61 73 6b 2e 22  8c f2 54 41 53 4b 28 24  |w task."..TASK($|
000023a0  28 49 32 25 2b 31 29 29  0d 0b 9a 17 e7 52 4f 25  |(I2%+1)).....RO%|
000023b0  8c f2 4d 41 4b 45 4d 45  4e 55 28 30 2c 30 29 0d  |..MAKEMENU(0,0).|
000023c0  0b a4 05 e1 0d 0b ae 04  0d 0b b8 0b dd f2 50 41  |..............PA|
000023d0  55 53 45 0d 0b c2 37 42  25 21 30 3d 32 35 36 3a  |USE...7B%!0=256:|
000023e0  42 25 21 31 32 3d 30 3a  e7 50 41 55 53 45 25 8c  |B%!12=0:.PAUSE%.|
000023f0  42 25 21 31 36 3d 26 38  30 38 43 37 20 8b 42 25  |B%!16=&808C7 .B%|
00002400  21 31 36 3d 26 38 30 38  43 36 0d 0b cc 24 c8 99  |!16=&808C6...$..|
00002410  22 57 69 6d 70 5f 53 65  6e 64 4d 65 73 73 61 67  |"Wimp_SendMessag|
00002420  65 22 2c 31 37 2c 42 25  2c 48 49 53 54 25 0d 0b  |e",17,B%,HIST%..|
00002430  d6 12 50 41 55 53 45 25  3d ac 50 41 55 53 45 25  |..PAUSE%=.PAUSE%|
00002440  0d 0b e0 1f e7 50 41 55  53 45 25 8c f2 46 49 4e  |.....PAUSE%..FIN|
00002450  49 53 48 46 54 20 8b f2  53 54 41 52 54 46 54 0d  |ISHFT ..STARTFT.|
00002460  0b ea 05 e1 0d 0b f4 04  0d 0b fe 0e dd a4 4e 55  |..............NU|
00002470  4c 4c 28 41 25 29 0d 0c  08 20 c8 99 22 4f 53 5f  |LL(A%)... .."OS_|
00002480  52 65 61 64 45 73 63 61  70 65 53 74 61 74 65 22  |ReadEscapeState"|
00002490  2c 41 25 b8 41 24 0d 0c  12 07 3d 41 24 0d 0c 1c  |,A%.A$....=A$...|
000024a0  04 0d 0c 26 0e dd f2 53  41 56 45 44 52 41 47 0d  |...&...SAVEDRAG.|
000024b0  0c 30 13 58 25 3d 42 25  21 30 3a 59 25 3d 42 25  |.0.X%=B%!0:Y%=B%|
000024c0  21 34 0d 0c 3a 10 53 56  45 42 55 54 25 3d 42 25  |!4..:.SVEBUT%=B%|
000024d0  21 38 0d 0c 44 0c 42 25  21 31 30 34 3d 35 0d 0c  |!8..D.B%!104=5..|
000024e0  4e 60 42 25 21 31 36 30  3d 56 48 25 3a c8 99 22  |N`B%!160=VH%:.."|
000024f0  57 69 6d 70 5f 47 65 74  57 69 6e 64 6f 77 53 74  |Wimp_GetWindowSt|
00002500  61 74 65 22 2c 2c 42 25  2b 31 36 30 3a 42 25 21  |ate",,B%+160:B%!|
00002510  32 30 30 3d 56 48 25 3a  42 25 21 32 30 34 3d 30  |200=VH%:B%!204=0|
00002520  3a c8 99 22 57 69 6d 70  5f 47 65 74 49 63 6f 6e  |:.."Wimp_GetIcon|
00002530  53 74 61 74 65 22 2c 2c  42 25 2b 32 30 30 0d 0c  |State",,B%+200..|
00002540  58 57 42 25 21 31 30 38  3d 42 25 21 31 36 34 2b  |XWB%!108=B%!164+|
00002550  42 25 21 32 30 38 3a 42  25 21 31 31 32 3d 42 25  |B%!208:B%!112=B%|
00002560  21 31 37 36 2b 42 25 21  32 32 30 3a 42 25 21 31  |!176+B%!220:B%!1|
00002570  31 36 3d 42 25 21 31 36  34 2b 42 25 21 32 31 36  |16=B%!164+B%!216|
00002580  3a 42 25 21 31 32 30 3d  42 25 21 31 37 36 2b 42  |:B%!120=B%!176+B|
00002590  25 21 32 31 32 0d 0c 62  4d 42 25 21 30 3d 34 3a  |%!212..bMB%!0=4:|
000025a0  42 25 21 34 3d 35 3a 42  25 21 38 3d 31 31 3a 42  |B%!4=5:B%!8=11:B|
000025b0  25 21 31 32 3d 31 32 3a  42 25 21 31 36 3d 2d 31  |%!12=12:B%!16=-1|
000025c0  3a c8 99 22 4f 53 5f 52  65 61 64 56 64 75 56 61  |:.."OS_ReadVduVa|
000025d0  72 69 61 62 6c 65 73 22  2c 42 25 2c 42 25 2b 32  |riables",B%,B%+2|
000025e0  30 30 0d 0c 6c 87 42 25  21 31 32 34 3d 42 25 21  |00..l.B%!124=B%!|
000025f0  31 30 38 2d 58 25 3a 42  25 21 31 32 38 3d 42 25  |108-X%:B%!128=B%|
00002600  21 31 31 32 2d 59 25 3a  42 25 21 31 33 32 3d 28  |!112-Y%:B%!132=(|
00002610  31 3c 3c 42 25 21 32 30  30 29 2a 28 42 25 21 32  |1<<B%!200)*(B%!2|
00002620  30 38 29 2b 42 25 21 31  32 34 2b 42 25 21 31 31  |08)+B%!124+B%!11|
00002630  36 2d 42 25 21 31 30 38  3a 42 25 21 31 33 36 3d  |6-B%!108:B%!136=|
00002640  28 31 3c 3c 42 25 21 32  30 34 29 2a 28 42 25 21  |(1<<B%!204)*(B%!|
00002650  32 31 32 29 2b 42 25 21  31 32 38 2b 42 25 21 31  |212)+B%!128+B%!1|
00002660  32 30 2d 42 25 21 31 31  32 0d 0c 76 1c c8 99 22  |20-B%!112..v..."|
00002670  57 69 6d 70 5f 44 72 61  67 42 6f 78 22 2c 2c 42  |Wimp_DragBox",,B|
00002680  25 2b 31 30 30 0d 0c 80  05 e1 0d 0c 8a 04 0d 0c  |%+100...........|
00002690  94 12 dd f2 44 52 41 47  46 49 4e 49 53 48 45 44  |....DRAGFINISHED|
000026a0  0d 0c 9e 22 c8 99 22 57  69 6d 70 5f 47 65 74 50  |...".."Wimp_GetP|
000026b0  6f 69 6e 74 65 72 49 6e  66 6f 22 2c 2c 42 25 2b  |ointerInfo",,B%+|
000026c0  32 38 0d 0c a8 1b 42 25  21 32 30 3d 42 25 21 34  |28....B%!20=B%!4|
000026d0  30 3a 42 25 21 32 34 3d  42 25 21 34 34 0d 0c b2  |0:B%!24=B%!44...|
000026e0  16 42 25 21 33 36 3d 31  3a 42 25 21 34 30 3d 26  |.B%!36=1:B%!40=&|
000026f0  46 46 39 0d 0c bc 1f 4e  24 3d 22 2e 22 2b a4 47  |FF9....N$="."+.G|
00002700  4e 41 4d 45 3a 4e 25 3d  a9 4e 24 3a 4e 4d 24 3d  |NAME:N%=.N$:NM$=|
00002710  22 22 0d 0c c6 24 c8 95  ac 28 c1 4e 24 2c 4e 25  |""...$...(.N$,N%|
00002720  2c 31 29 3d 22 2e 22 84  c1 4e 24 2c 4e 25 2c 31  |,1)="."..N$,N%,1|
00002730  29 3d 22 3a 22 29 0d 0c  d0 1b 4e 4d 24 3d c1 4e  |)=":")....NM$=.N|
00002740  24 2c 4e 25 2c 31 29 2b  4e 4d 24 3a 4e 25 2d 3d  |$,N%,1)+NM$:N%-=|
00002750  31 0d 0c da 05 ce 0d 0c  e4 2c 24 28 42 25 2b 34  |1........,$(B%+4|
00002760  34 29 3d 4e 4d 24 2b bd  30 3a 42 25 21 30 3d 32  |4)=NM$+.0:B%!0=2|
00002770  35 36 3a 42 25 21 31 32  3d 30 3a 42 25 21 31 36  |56:B%!12=0:B%!16|
00002780  3d 31 0d 0c ee 2a c8 99  22 57 69 6d 70 5f 53 65  |=1...*.."Wimp_Se|
00002790  6e 64 4d 65 73 73 61 67  65 22 2c 31 37 2c 42 25  |ndMessage",17,B%|
000027a0  2c 42 25 21 32 30 2c 42  25 21 32 34 0d 0c f8 05  |,B%!20,B%!24....|
000027b0  e1 0d 0d 02 04 0d 0d 0c  10 dd f2 53 41 56 45 49  |...........SAVEI|
000027c0  54 28 4e 24 29 0d 0d 16  2b e7 48 49 53 54 25 3c  |T(N$)...+.HIST%<|
000027d0  3e 2d 31 8c c8 99 22 4f  53 5f 53 70 72 69 74 65  |>-1..."OS_Sprite|
000027e0  4f 70 22 2c 26 31 30 43  2c 53 50 52 25 2c 4e 24  |Op",&10C,SPR%,N$|
000027f0  0d 0d 20 28 e7 53 56 45  42 55 54 25 3c 3e 31 36  |.. (.SVEBUT%<>16|
00002800  8c c8 99 22 57 69 6d 70  5f 43 72 65 61 74 65 4d  |..."Wimp_CreateM|
00002810  65 6e 75 22 2c 2c 2d 31  0d 0d 2a 05 e1 0d 0d 34  |enu",,-1..*....4|
00002820  04 0d 0d 3e 11 dd f2 44  41 54 41 53 41 56 45 41  |...>...DATASAVEA|
00002830  43 4b 0d 0d 48 3d 42 25  21 31 32 3d 42 25 21 38  |CK..H=B%!12=B%!8|
00002840  3a 42 25 21 31 36 3d 33  3a c8 99 22 57 69 6d 70  |:B%!16=3:.."Wimp|
00002850  5f 53 65 6e 64 4d 65 73  73 61 67 65 22 2c 31 37  |_SendMessage",17|
00002860  2c 42 25 2c 42 25 21 32  30 2c 42 25 21 32 34 0d  |,B%,B%!20,B%!24.|
00002870  0d 52 28 e7 42 25 21 33  36 3c 3e 2d 31 8c f2 53  |.R(.B%!36<>-1..S|
00002880  45 54 49 28 56 48 25 2c  31 2c a4 4e 55 4c 4c 28  |ETI(VH%,1,.NULL(|
00002890  42 25 2b 34 34 29 29 0d  0d 5c 19 f2 53 41 56 45  |B%+44))..\..SAVE|
000028a0  49 54 28 a4 4e 55 4c 4c  28 42 25 2b 34 34 29 29  |IT(.NULL(B%+44))|
000028b0  0d 0d 66 05 e1 0d 0d 70  04 0d 0d 7a 0b dd a4 47  |..f....p...z...G|
000028c0  4e 41 4d 45 0d 0d 84 35  42 25 21 32 30 30 3d 56  |NAME...5B%!200=V|
000028d0  48 25 3a 42 25 21 32 30  34 3d 31 3a c8 99 22 57  |H%:B%!204=1:.."W|
000028e0  69 6d 70 5f 47 65 74 49  63 6f 6e 53 74 61 74 65  |imp_GetIconState|
000028f0  22 2c 2c 42 25 2b 32 30  30 0d 0d 8e 12 3d a4 4e  |",,B%+200....=.N|
00002900  55 4c 4c 28 42 25 21 32  32 38 29 0d 0d 98 04 0d  |ULL(B%!228).....|
00002910  0d a2 11 dd f2 53 41 56  45 49 54 43 28 4e 24 29  |.....SAVEITC(N$)|
00002920  0d 0d ac 46 e7 a7 4e 24  2c 22 2e 22 29 3d 30 80  |...F..N$,".")=0.|
00002930  a7 4e 24 2c 22 3a 22 29  3d 30 8c 85 31 2c 22 54  |.N$,":")=0..1,"T|
00002940  6f 20 73 61 76 65 2c 20  64 72 61 67 20 69 63 6f  |o save, drag ico|
00002950  6e 20 74 6f 20 64 69 72  65 63 74 6f 72 79 20 76  |n to directory v|
00002960  69 65 77 65 72 22 0d 0d  b6 0f f2 53 41 56 45 49  |iewer".....SAVEI|
00002970  54 28 4e 24 29 0d 0d c0  05 e1 0d 0d ca 04 0d 0d  |T(N$)...........|
00002980  d4 14 dd f2 53 45 54 49  28 48 25 2c 49 25 2c 41  |....SETI(H%,I%,A|
00002990  24 29 0d 0d de 35 42 25  21 33 30 30 3d 48 25 3a  |$)...5B%!300=H%:|
000029a0  42 25 21 33 30 34 3d 49  25 3a c8 99 22 57 69 6d  |B%!304=I%:.."Wim|
000029b0  70 5f 47 65 74 49 63 6f  6e 53 74 61 74 65 22 2c  |p_GetIconState",|
000029c0  2c 42 25 2b 33 30 30 0d  0d e8 0e 24 42 25 21 33  |,B%+300....$B%!3|
000029d0  32 38 3d 41 24 0d 0d f2  33 42 25 21 33 30 38 3d  |28=A$...3B%!308=|
000029e0  30 3a 42 25 21 33 31 32  3d 30 3a c8 99 22 57 69  |0:B%!312=0:.."Wi|
000029f0  6d 70 5f 53 65 74 49 63  6f 6e 53 74 61 74 65 22  |mp_SetIconState"|
00002a00  2c 2c 42 25 2b 33 30 30  0d 0d fc 05 e1 0d 0e 06  |,,B%+300........|
00002a10  04 0d 0e 10 0f dd f2 47  41 49 4e 43 41 52 45 54  |.......GAINCARET|
00002a20  0d 0e 1a 82 e7 43 41 52  45 54 25 8c c8 99 22 57  |.....CARET%..."W|
00002a30  69 6d 70 5f 53 65 74 43  61 72 65 74 50 6f 73 69  |imp_SetCaretPosi|
00002a40  74 69 6f 6e 22 2c 4d 48  25 2c 2d 31 2c 4f 50 4f  |tion",MH%,-1,OPO|
00002a50  53 25 3c 3c 53 32 58 25  2c 2d 28 4f 56 50 4f 53  |S%<<S2X%,-(OVPOS|
00002a60  25 3c 3c 53 32 59 25 29  2c 31 31 3c 3c 53 32 59  |%<<S2Y%),11<<S2Y|
00002a70  25 8b c8 99 22 57 69 6d  70 5f 53 65 74 43 61 72  |%..."Wimp_SetCar|
00002a80  65 74 50 6f 73 69 74 69  6f 6e 22 2c 4d 48 25 2c  |etPosition",MH%,|
00002a90  2d 31 2c 2d 31 30 30 2c  2d 31 30 30 2c 31 3c 3c  |-1,-100,-100,1<<|
00002aa0  32 35 0d 0e 24 05 e1 0d  0e 2e 04 0d 0e 38 09 dd  |25..$........8..|
00002ab0  f2 41 53 53 0d 0e 42 21  c8 99 22 4f 53 5f 4d 6f  |.ASS..B!.."OS_Mo|
00002ac0  64 75 6c 65 22 2c 36 2c  2c 2c 31 30 32 34 b8 2c  |dule",6,,,1024.,|
00002ad0  2c 52 4d 41 25 0d 0e 4c  0d e3 4e 25 3d 30 b8 32  |,RMA%..L..N%=0.2|
00002ae0  88 32 0d 0e 56 0b 50 25  3d 52 4d 41 25 0d 0e 60  |.2..V.P%=RMA%..`|
00002af0  0b 5b 4f 50 54 20 4e 25  0d 0e 6a 27 2e 46 54 45  |.[OPT N%..j'.FTE|
00002b00  4e 54 52 59 20 20 20 53  54 4d 46 44 20 20 20 52  |NTRY   STMFD   R|
00002b10  31 33 21 2c 7b 52 30 2d  52 32 2c 52 31 34 7d 0d  |13!,{R0-R2,R14}.|
00002b20  0e 74 1f 20 20 20 20 20  20 20 20 20 20 20 4d 4f  |.t.           MO|
00002b30  56 20 20 20 20 20 52 30  2c 23 26 31 33 43 0d 0e  |V     R0,#&13C..|
00002b40  7e 1e 20 20 20 20 20 20  20 20 20 20 20 4c 44 52  |~.           LDR|
00002b50  20 20 20 20 20 52 31 2c  48 53 50 52 0d 0e 88 22  |     R1,HSPR..."|
00002b60  20 20 20 20 20 20 20 20  20 20 20 41 44 52 20 20  |           ADR  |
00002b70  20 20 20 52 32 2c 48 53  50 52 4e 41 4d 45 0d 0e  |   R2,HSPRNAME..|
00002b80  92 1c 20 20 20 20 20 20  20 20 20 20 20 4c 44 52  |..           LDR|
00002b90  20 20 20 20 20 52 33 2c  48 56 0d 0e 9c 24 20 20  |     R3,HV...$  |
00002ba0  20 20 20 20 20 20 20 20  20 53 57 49 20 20 20 20  |         SWI    |
00002bb0  20 22 4f 53 5f 53 70 72  69 74 65 4f 70 22 0d 0e  | "OS_SpriteOp"..|
00002bc0  a6 1e 20 20 20 20 20 20  20 20 20 20 20 4d 4f 56  |..           MOV|
00002bd0  20 20 20 20 20 52 30 2c  23 26 31 41 0d 0e b0 23  |     R0,#&1A...#|
00002be0  20 20 20 20 20 20 20 20  20 20 20 41 44 52 20 20  |           ADR  |
00002bf0  20 20 20 52 31 2c 46 54  4f 53 4d 4f 55 53 45 0d  |   R1,FTOSMOUSE.|
00002c00  0e ba 1c 20 20 20 20 20  20 20 20 20 20 20 4d 4f  |...           MO|
00002c10  56 20 20 20 20 20 52 32  2c 23 30 0d 0e c4 21 20  |V     R2,#0...! |
00002c20  20 20 20 20 20 20 20 20  20 20 53 57 49 20 20 20  |          SWI   |
00002c30  20 20 22 4f 53 5f 43 6c  61 69 6d 22 0d 0e ce 1c  |  "OS_Claim"....|
00002c40  20 20 20 20 20 20 20 20  20 20 20 4d 4f 56 20 20  |           MOV  |
00002c50  20 20 20 52 30 2c 23 36  0d 0e d8 22 20 20 20 20  |   R0,#6..."    |
00002c60  20 20 20 20 20 20 20 41  44 52 20 20 20 20 20 52  |       ADR     R|
00002c70  31 2c 46 54 4f 53 42 59  54 45 0d 0e e2 1c 20 20  |1,FTOSBYTE....  |
00002c80  20 20 20 20 20 20 20 20  20 4d 4f 56 20 20 20 20  |         MOV    |
00002c90  20 52 32 2c 23 30 0d 0e  ec 21 20 20 20 20 20 20  | R2,#0...!      |
00002ca0  20 20 20 20 20 53 57 49  20 20 20 20 20 22 4f 53  |     SWI     "OS|
00002cb0  5f 43 6c 61 69 6d 22 0d  0e f6 1c 20 20 20 20 20  |_Claim"....     |
00002cc0  20 20 20 20 20 20 4d 4f  56 20 20 20 20 20 52 30  |      MOV     R0|
00002cd0  2c 23 37 0d 0f 00 22 20  20 20 20 20 20 20 20 20  |,#7..."         |
00002ce0  20 20 41 44 52 20 20 20  20 20 52 31 2c 46 54 4f  |  ADR     R1,FTO|
00002cf0  53 57 4f 52 44 0d 0f 0a  1c 20 20 20 20 20 20 20  |SWORD....       |
00002d00  20 20 20 20 4d 4f 56 20  20 20 20 20 52 32 2c 23  |    MOV     R2,#|
00002d10  30 0d 0f 14 21 20 20 20  20 20 20 20 20 20 20 20  |0...!           |
00002d20  53 57 49 20 20 20 20 20  22 4f 53 5f 43 6c 61 69  |SWI     "OS_Clai|
00002d30  6d 22 0d 0f 1e 1e 20 20  20 20 20 20 20 20 20 20  |m"....          |
00002d40  20 42 4c 20 20 20 20 20  20 43 4c 41 49 4d 57 43  | BL      CLAIMWC|
00002d50  0d 0f 28 23 20 20 20 20  20 20 20 20 20 20 20 4c  |..(#           L|
00002d60  44 52 20 20 20 20 20 52  32 2c 43 48 41 4e 47 45  |DR     R2,CHANGE|
00002d70  44 42 58 0d 0f 32 1f 20  20 20 20 20 20 20 20 20  |DBX..2.         |
00002d80  20 20 43 4d 4e 20 20 20  20 20 52 32 2c 23 ac 2d  |  CMN     R2,#.-|
00002d90  32 31 0d 0f 3c 19 20 20  20 20 20 20 20 20 20 20  |21..<.          |
00002da0  20 ec 51 20 20 20 52 30  2c 23 31 0d 0f 46 26 20  | .Q   R0,#1..F& |
00002db0  20 20 20 20 20 20 20 20  20 20 53 57 49 45 51 20  |          SWIEQ |
00002dc0  20 20 22 4f 53 5f 43 68  61 6e 67 65 64 42 6f 78  |  "OS_ChangedBox|
00002dd0  22 0d 0f 50 1f 20 20 20  20 20 20 20 20 20 20 20  |"..P.           |
00002de0  43 4d 4e 20 20 20 20 20  52 32 2c 23 ac 2d 32 30  |CMN     R2,#.-20|
00002df0  0d 0f 5a 1f 20 20 20 20  20 20 20 20 20 20 20 43  |..Z.           C|
00002e00  4d 4e 4e 45 20 20 20 52  32 2c 23 ac 2d 32 31 0d  |MNNE   R2,#.-21.|
00002e10  0f 64 19 20 20 20 20 20  20 20 20 20 20 20 ec 51  |.d.           .Q|
00002e20  20 20 20 52 30 2c 23 32  0d 0f 6e 26 20 20 20 20  |   R0,#2..n&    |
00002e30  20 20 20 20 20 20 20 53  57 49 45 51 20 20 20 22  |       SWIEQ   "|
00002e40  4f 53 5f 43 68 61 6e 67  65 64 42 6f 78 22 0d 0f  |OS_ChangedBox"..|
00002e50  78 27 20 20 20 20 20 20  20 20 20 20 20 4c 44 4d  |x'           LDM|
00002e60  46 44 20 20 20 52 31 33  21 2c 7b 52 30 2d 52 32  |FD   R13!,{R0-R2|
00002e70  2c 50 43 7d 5e 0d 0f 82  18 2e 48 53 50 52 20 20  |,PC}^.....HSPR  |
00002e80  20 20 20 20 45 51 55 44  20 20 20 20 30 0d 0f 8c  |    EQUD    0...|
00002e90  26 2e 48 53 50 52 4e 41  4d 45 20 20 45 51 55 53  |&.HSPRNAME  EQUS|
00002ea0  20 20 20 20 22 54 61 73  6b 53 63 72 65 65 6e 22  |    "TaskScreen"|
00002eb0  2b bd 30 0d 0f 96 14 20  20 20 20 20 20 20 20 20  |+.0....         |
00002ec0  20 20 41 4c 49 47 4e 0d  0f a0 18 2e 48 56 20 20  |  ALIGN.....HV  |
00002ed0  20 20 20 20 20 20 45 51  55 44 20 20 20 20 30 0d  |      EQUD    0.|
00002ee0  0f aa 04 0d 0f b4 24 2e  46 54 4f 53 57 4f 52 44  |......$.FTOSWORD|
00002ef0  20 20 53 54 4d 46 44 20  20 20 52 31 33 21 2c 7b  |  STMFD   R13!,{|
00002f00  52 32 2c 52 31 34 7d 0d  0f be 1d 20 20 20 20 20  |R2,R14}....     |
00002f10  20 20 20 20 20 20 43 4d  50 20 20 20 20 20 52 30  |      CMP     R0|
00002f20  2c 23 32 31 0d 0f c8 24  20 20 20 20 20 20 20 20  |,#21...$        |
00002f30  20 20 20 4c 44 4d 4e 45  46 44 20 52 31 33 21 2c  |   LDMNEFD R13!,|
00002f40  7b 52 32 2c 50 43 7d 5e  0d 0f d2 1e 20 20 20 20  |{R2,PC}^....    |
00002f50  20 20 20 20 20 20 20 4c  44 52 42 20 20 20 20 52  |       LDRB    R|
00002f60  32 2c 5b 52 31 5d 0d 0f  dc 1c 20 20 20 20 20 20  |2,[R1]....      |
00002f70  20 20 20 20 20 43 4d 50  20 20 20 20 20 52 32 2c  |     CMP     R2,|
00002f80  23 34 0d 0f e6 1c 20 20  20 20 20 20 20 20 20 20  |#4....          |
00002f90  20 43 4d 50 4e 45 20 20  20 52 32 2c 23 36 0d 0f  | CMPNE   R2,#6..|
00002fa0  f0 28 20 20 20 20 20 20  20 20 20 20 20 4c 44 4d  |.(           LDM|
00002fb0  4e 45 46 44 20 52 31 33  21 2c 7b 52 32 2c 52 31  |NEFD R13!,{R2,R1|
00002fc0  34 2c 50 43 7d 5e 0d 0f  fa 24 20 20 20 20 20 20  |4,PC}^...$      |
00002fd0  20 20 20 20 20 4c 44 4d  46 44 20 20 20 52 31 33  |     LDMFD   R13|
00002fe0  21 2c 7b 52 32 2c 50 43  7d 5e 0d 10 04 04 0d 10  |!,{R2,PC}^......|
00002ff0  0e 1e 2e 46 54 4f 53 42  59 54 45 20 20 43 4d 50  |...FTOSBYTE  CMP|
00003000  20 20 20 20 20 52 30 2c  23 31 30 36 0d 10 18 1d  |     R0,#106....|
00003010  20 20 20 20 20 20 20 20  20 20 20 4d 4f 56 4e 45  |           MOVNE|
00003020  53 20 20 50 43 2c 52 31  34 0d 10 22 21 20 20 20  |S  PC,R14.."!   |
00003030  20 20 20 20 20 20 20 20  4c 44 4d 46 44 20 20 20  |        LDMFD   |
00003040  52 31 33 21 2c 7b 50 43  7d 5e 0d 10 2c 04 0d 10  |R13!,{PC}^..,...|
00003050  36 1a 2e 43 48 41 4e 47  45 44 42 58 20 45 51 55  |6..CHANGEDBX EQU|
00003060  44 20 20 20 20 2d 32 30  0d 10 40 18 20 20 20 20  |D    -20..@.    |
00003070  20 20 20 20 20 20 20 45  51 55 44 20 20 20 20 30  |       EQUD    0|
00003080  0d 10 4a 18 20 20 20 20  20 20 20 20 20 20 20 45  |..J.           E|
00003090  51 55 44 20 20 20 20 30  0d 10 54 18 20 20 20 20  |QUD    0..T.    |
000030a0  20 20 20 20 20 20 20 45  51 55 44 20 20 20 20 30  |       EQUD    0|
000030b0  0d 10 5e 27 2e 46 54 45  58 49 54 20 20 20 20 53  |..^'.FTEXIT    S|
000030c0  54 4d 46 44 20 20 20 52  31 33 21 2c 7b 52 30 2d  |TMFD   R13!,{R0-|
000030d0  52 34 2c 52 31 34 7d 0d  10 68 21 20 20 20 20 20  |R4,R14}..h!     |
000030e0  20 20 20 20 20 20 4d 56  4e 20 20 20 20 20 52 30  |      MVN     R0|
000030f0  2c 23 30 20 3b 3d 2d 31  0d 10 72 26 20 20 20 20  |,#0 ;=-1..r&    |
00003100  20 20 20 20 20 20 20 53  57 49 20 20 20 20 20 22  |       SWI     "|
00003110  4f 53 5f 43 68 61 6e 67  65 64 42 6f 78 22 0d 10  |OS_ChangedBox"..|
00003120  7c 21 20 20 20 20 20 20  20 20 20 20 20 4c 44 4d  ||!           LDM|
00003130  49 42 20 20 20 52 31 2c  7b 52 31 2d 52 34 7d 0d  |IB   R1,{R1-R4}.|
00003140  10 86 23 20 20 20 20 20  20 20 20 20 20 20 41 44  |..#           AD|
00003150  52 20 20 20 20 20 52 30  2c 43 48 41 4e 47 45 44  |R     R0,CHANGED|
00003160  42 58 0d 10 90 21 20 20  20 20 20 20 20 20 20 20  |BX...!          |
00003170  20 53 54 4d 49 41 20 20  20 52 30 2c 7b 52 31 2d  | STMIA   R0,{R1-|
00003180  52 34 7d 0d 10 9a 1f 20  20 20 20 20 20 20 20 20  |R4}....         |
00003190  20 20 4d 4f 56 20 20 20  20 20 52 30 2c 23 26 31  |  MOV     R0,#&1|
000031a0  33 43 0d 10 a4 1e 20 20  20 20 20 20 20 20 20 20  |3C....          |
000031b0  20 4c 44 52 20 20 20 20  20 52 31 2c 48 53 50 52  | LDR     R1,HSPR|
000031c0  0d 10 ae 1c 20 20 20 20  20 20 20 20 20 20 20 4d  |....           M|
000031d0  4f 56 20 20 20 20 20 52  32 2c 23 30 0d 10 b8 1c  |OV     R2,#0....|
000031e0  20 20 20 20 20 20 20 20  20 20 20 4d 4f 56 20 20  |           MOV  |
000031f0  20 20 20 52 33 2c 23 31  0d 10 c2 24 20 20 20 20  |   R3,#1...$    |
00003200  20 20 20 20 20 20 20 53  57 49 20 20 20 20 20 22  |       SWI     "|
00003210  4f 53 5f 53 70 72 69 74  65 4f 70 22 0d 10 cc 1c  |OS_SpriteOp"....|
00003220  20 20 20 20 20 20 20 20  20 20 20 4d 4f 56 20 20  |           MOV  |
00003230  20 20 20 52 30 2c 23 37  0d 10 d6 22 20 20 20 20  |   R0,#7..."    |
00003240  20 20 20 20 20 20 20 41  44 52 20 20 20 20 20 52  |       ADR     R|
00003250  31 2c 46 54 4f 53 57 4f  52 44 0d 10 e0 1c 20 20  |1,FTOSWORD....  |
00003260  20 20 20 20 20 20 20 20  20 4d 4f 56 20 20 20 20  |         MOV    |
00003270  20 52 32 2c 23 30 0d 10  ea 23 20 20 20 20 20 20  | R2,#0...#      |
00003280  20 20 20 20 20 53 57 49  20 20 20 20 20 22 4f 53  |     SWI     "OS|
00003290  5f 52 65 6c 65 61 73 65  22 0d 10 f4 1c 20 20 20  |_Release"....   |
000032a0  20 20 20 20 20 20 20 20  4d 4f 56 20 20 20 20 20  |        MOV     |
000032b0  52 30 2c 23 36 0d 10 fe  22 20 20 20 20 20 20 20  |R0,#6..."       |
000032c0  20 20 20 20 41 44 52 20  20 20 20 20 52 31 2c 46  |    ADR     R1,F|
000032d0  54 4f 53 42 59 54 45 0d  11 08 1c 20 20 20 20 20  |TOSBYTE....     |
000032e0  20 20 20 20 20 20 4d 4f  56 20 20 20 20 20 52 32  |      MOV     R2|
000032f0  2c 23 30 0d 11 12 23 20  20 20 20 20 20 20 20 20  |,#0...#         |
00003300  20 20 53 57 49 20 20 20  20 20 22 4f 53 5f 52 65  |  SWI     "OS_Re|
00003310  6c 65 61 73 65 22 0d 11  1c 1e 20 20 20 20 20 20  |lease"....      |
00003320  20 20 20 20 20 4d 4f 56  20 20 20 20 20 52 30 2c  |     MOV     R0,|
00003330  23 26 31 41 0d 11 26 23  20 20 20 20 20 20 20 20  |#&1A..&#        |
00003340  20 20 20 41 44 52 20 20  20 20 20 52 31 2c 46 54  |   ADR     R1,FT|
00003350  4f 53 4d 4f 55 53 45 0d  11 30 1c 20 20 20 20 20  |OSMOUSE..0.     |
00003360  20 20 20 20 20 20 4d 4f  56 20 20 20 20 20 52 32  |      MOV     R2|
00003370  2c 23 30 0d 11 3a 23 20  20 20 20 20 20 20 20 20  |,#0..:#         |
00003380  20 20 53 57 49 20 20 20  20 20 22 4f 53 5f 52 65  |  SWI     "OS_Re|
00003390  6c 65 61 73 65 22 0d 11  44 20 20 20 20 20 20 20  |lease"..D       |
000033a0  20 20 20 20 20 42 4c 20  20 20 20 20 20 52 45 4c  |     BL      REL|
000033b0  45 41 53 45 57 43 0d 11  4e 27 20 20 20 20 20 20  |EASEWC..N'      |
000033c0  20 20 20 20 20 4c 44 4d  46 44 20 20 20 52 31 33  |     LDMFD   R13|
000033d0  21 2c 7b 52 30 2d 52 34  2c 50 43 7d 5e 0d 11 58  |!,{R0-R4,PC}^..X|
000033e0  04 0d 11 62 24 2e 43 4c  41 49 4d 57 43 20 20 20  |...b$.CLAIMWC   |
000033f0  53 54 4d 46 44 20 20 20  52 31 33 21 2c 7b 52 30  |STMFD   R13!,{R0|
00003400  2c 52 31 34 7d 0d 11 6c  1d 20 20 20 20 20 20 20  |,R14}..l.       |
00003410  20 20 20 20 4d 4f 56 20  20 20 20 20 52 30 2c 23  |    MOV     R0,#|
00003420  26 33 0d 11 76 23 20 20  20 20 20 20 20 20 20 20  |&3..v#          |
00003430  20 41 44 52 20 20 20 20  20 52 31 2c 46 54 4f 53  | ADR     R1,FTOS|
00003440  57 52 54 45 43 0d 11 80  1c 20 20 20 20 20 20 20  |WRTEC....       |
00003450  20 20 20 20 4d 4f 56 20  20 20 20 20 52 32 2c 23  |    MOV     R2,#|
00003460  30 0d 11 8a 21 20 20 20  20 20 20 20 20 20 20 20  |0...!           |
00003470  53 57 49 20 20 20 20 20  22 4f 53 5f 43 6c 61 69  |SWI     "OS_Clai|
00003480  6d 22 0d 11 94 24 20 20  20 20 20 20 20 20 20 20  |m"...$          |
00003490  20 4c 44 4d 46 44 20 20  20 52 31 33 21 2c 7b 52  | LDMFD   R13!,{R|
000034a0  30 2c 50 43 7d 5e 0d 11  9e 24 2e 52 45 4c 45 41  |0,PC}^...$.RELEA|
000034b0  53 45 57 43 20 53 54 4d  46 44 20 20 20 52 31 33  |SEWC STMFD   R13|
000034c0  21 2c 7b 52 30 2c 52 31  34 7d 0d 11 a8 1d 20 20  |!,{R0,R14}....  |
000034d0  20 20 20 20 20 20 20 20  20 4d 4f 56 20 20 20 20  |         MOV    |
000034e0  20 52 30 2c 23 26 33 0d  11 b2 23 20 20 20 20 20  | R0,#&3...#     |
000034f0  20 20 20 20 20 20 41 44  52 20 20 20 20 20 52 31  |      ADR     R1|
00003500  2c 46 54 4f 53 57 52 54  45 43 0d 11 bc 1c 20 20  |,FTOSWRTEC....  |
00003510  20 20 20 20 20 20 20 20  20 4d 4f 56 20 20 20 20  |         MOV    |
00003520  20 52 32 2c 23 30 0d 11  c6 23 20 20 20 20 20 20  | R2,#0...#      |
00003530  20 20 20 20 20 53 57 49  20 20 20 20 20 22 4f 53  |     SWI     "OS|
00003540  5f 52 65 6c 65 61 73 65  22 0d 11 d0 24 20 20 20  |_Release"...$   |
00003550  20 20 20 20 20 20 20 20  4c 44 4d 46 44 20 20 20  |        LDMFD   |
00003560  52 31 33 21 2c 7b 52 30  2c 50 43 7d 5e 0d 11 da  |R13!,{R0,PC}^...|
00003570  04 0d 11 e4 23 2e 46 54  4f 53 57 52 54 45 43 20  |....#.FTOSWRTEC |
00003580  53 54 4d 46 44 20 20 20  52 31 33 21 2c 7b 52 30  |STMFD   R13!,{R0|
00003590  2d 52 34 7d 0d 11 ee 23  20 20 20 20 20 20 20 20  |-R4}...#        |
000035a0  20 20 20 4c 44 52 20 20  20 20 20 52 31 2c 52 45  |   LDR     R1,RE|
000035b0  45 4e 54 52 41 4e 54 0d  11 f8 1c 20 20 20 20 20  |ENTRANT....     |
000035c0  20 20 20 20 20 20 43 4d  50 20 20 20 20 20 52 31  |      CMP     R1|
000035d0  2c 23 31 0d 12 02 23 20  20 20 20 20 20 20 20 20  |,#1...#         |
000035e0  20 20 4c 44 4d 45 51 46  44 20 52 31 33 21 2c 7b  |  LDMEQFD R13!,{|
000035f0  52 30 2d 52 34 7d 0d 12  0c 21 20 20 20 20 20 20  |R0-R4}...!      |
00003600  20 20 20 20 20 53 54 4d  45 51 46 44 20 52 31 33  |     STMEQFD R13|
00003610  21 2c 7b 52 31 34 7d 0d  12 16 1a 20 20 20 20 20  |!,{R14}....     |
00003620  20 20 20 20 20 20 ec 51  53 20 20 50 43 2c 52 31  |      .QS  PC,R1|
00003630  34 0d 12 20 1c 20 20 20  20 20 20 20 20 20 20 20  |4.. .           |
00003640  4d 4f 56 20 20 20 20 20  52 31 2c 23 31 0d 12 2a  |MOV     R1,#1..*|
00003650  23 20 20 20 20 20 20 20  20 20 20 20 53 54 52 20  |#           STR |
00003660  20 20 20 20 52 31 2c 52  45 45 4e 54 52 41 4e 54  |    R1,REENTRANT|
00003670  0d 12 34 20 20 20 20 20  20 20 20 20 20 20 20 4c  |..4            L|
00003680  44 52 42 20 20 20 20 52  34 2c 53 54 41 54 55 53  |DRB    R4,STATUS|
00003690  0d 12 3e 1c 20 20 20 20  20 20 20 20 20 20 20 43  |..>.           C|
000036a0  4d 50 20 20 20 20 20 52  34 2c 23 30 0d 12 48 1e  |MP     R4,#0..H.|
000036b0  20 20 20 20 20 20 20 20  20 20 20 42 45 51 20 20  |           BEQ  |
000036c0  20 20 20 4e 45 57 43 48  41 52 0d 12 52 1d 20 20  |   NEWCHAR..R.  |
000036d0  20 20 20 20 20 20 20 20  20 43 4d 50 20 20 20 20  |         CMP    |
000036e0  20 52 34 2c 23 31 37 0d  12 5c 20 20 20 20 20 20  | R4,#17..\      |
000036f0  20 20 20 20 20 20 52 53  42 47 45 20 20 20 52 31  |      RSBGE   R1|
00003700  2c 52 34 2c 23 32 30 0d  12 66 1d 20 20 20 20 20  |,R4,#20..f.     |
00003710  20 20 20 20 20 20 42 4c  47 45 20 20 20 20 52 49  |      BLGE    RI|
00003720  47 42 49 54 0d 12 70 1f  20 20 20 20 20 20 20 20  |GBIT..p.        |
00003730  20 20 20 53 55 42 20 20  20 20 20 52 34 2c 52 34  |   SUB     R4,R4|
00003740  2c 23 31 0d 12 7a 20 2e  4c 4f 4f 50 42 41 43 4b  |,#1..z .LOOPBACK|
00003750  20 20 53 54 52 20 20 20  20 20 52 34 2c 53 54 41  |  STR     R4,STA|
00003760  54 55 53 0d 12 84 1c 20  20 20 20 20 20 20 20 20  |TUS....         |
00003770  20 20 4d 4f 56 20 20 20  20 20 52 31 2c 23 30 0d  |  MOV     R1,#0.|
00003780  12 8e 23 20 20 20 20 20  20 20 20 20 20 20 53 54  |..#           ST|
00003790  52 20 20 20 20 20 52 31  2c 52 45 45 4e 54 52 41  |R     R1,REENTRA|
000037a0  4e 54 0d 12 98 23 20 20  20 20 20 20 20 20 20 20  |NT...#          |
000037b0  20 4c 44 4d 46 44 20 20  20 52 31 33 21 2c 7b 52  | LDMFD   R13!,{R|
000037c0  30 2d 52 34 7d 0d 12 a2  21 20 20 20 20 20 20 20  |0-R4}...!       |
000037d0  20 20 20 20 4c 44 4d 46  44 20 20 20 52 31 33 21  |    LDMFD   R13!|
000037e0  2c 7b 50 43 7d 5e 0d 12  ac 23 2e 4e 45 57 43 48  |,{PC}^...#.NEWCH|
000037f0  41 52 20 20 20 53 54 4d  46 44 20 20 20 52 31 33  |AR   STMFD   R13|
00003800  21 2c 7b 52 30 2c 52 32  7d 0d 12 b6 1e 20 20 20  |!,{R0,R2}....   |
00003810  20 20 20 20 20 20 20 20  4d 4f 56 20 20 20 20 20  |        MOV     |
00003820  52 30 2c 23 32 31 38 0d  12 c0 1c 20 20 20 20 20  |R0,#218....     |
00003830  20 20 20 20 20 20 4d 4f  56 20 20 20 20 20 52 31  |      MOV     R1|
00003840  2c 23 30 0d 12 ca 1e 20  20 20 20 20 20 20 20 20  |,#0....         |
00003850  20 20 4d 4f 56 20 20 20  20 20 52 32 2c 23 32 35  |  MOV     R2,#25|
00003860  35 0d 12 d4 20 20 20 20  20 20 20 20 20 20 20 20  |5...            |
00003870  53 57 49 20 20 20 20 20  22 4f 53 5f 42 79 74 65  |SWI     "OS_Byte|
00003880  22 0d 12 de 1c 20 20 20  20 20 20 20 20 20 20 20  |"....           |
00003890  43 4d 50 20 20 20 20 20  52 31 2c 23 30 0d 12 e8  |CMP     R1,#0...|
000038a0  23 20 20 20 20 20 20 20  20 20 20 20 4c 44 4d 46  |#           LDMF|
000038b0  44 20 20 20 52 31 33 21  2c 7b 52 30 2c 52 32 7d  |D   R13!,{R0,R2}|
000038c0  0d 12 f2 22 20 20 20 20  20 20 20 20 20 20 20 53  |..."           S|
000038d0  57 49 4e 45 20 20 20 22  4f 53 5f 57 72 69 74 65  |WINE   "OS_Write|
000038e0  43 22 0d 12 fc 1f 20 20  20 20 20 20 20 20 20 20  |C"....          |
000038f0  20 42 4e 45 20 20 20 20  20 4c 4f 4f 50 42 41 43  | BNE     LOOPBAC|
00003900  4b 0d 13 06 1d 20 20 20  20 20 20 20 20 20 20 20  |K....           |
00003910  43 4d 50 20 20 20 20 20  52 30 2c 23 32 39 0d 13  |CMP     R0,#29..|
00003920  10 1a 20 20 20 20 20 20  20 20 20 20 20 ec 51 20  |..           .Q |
00003930  20 20 52 34 2c 23 32 30  0d 13 1a 22 20 20 20 20  |  R4,#20..."    |
00003940  20 20 20 20 20 20 20 53  57 49 45 51 20 20 20 22  |       SWIEQ   "|
00003950  4f 53 5f 57 72 69 74 65  43 22 0d 13 24 1f 20 20  |OS_WriteC"..$.  |
00003960  20 20 20 20 20 20 20 20  20 42 45 51 20 20 20 20  |         BEQ    |
00003970  20 4c 4f 4f 50 42 41 43  4b 0d 13 2e 1d 20 20 20  | LOOPBACK....   |
00003980  20 20 20 20 20 20 20 20  43 4d 50 20 20 20 20 20  |        CMP     |
00003990  52 30 2c 23 31 34 0d 13  38 1d 20 20 20 20 20 20  |R0,#14..8.      |
000039a0  20 20 20 20 20 43 4d 50  4e 45 20 20 20 52 30 2c  |     CMPNE   R0,|
000039b0  23 32 30 0d 13 42 1f 20  20 20 20 20 20 20 20 20  |#20..B.         |
000039c0  20 20 42 45 51 20 20 20  20 20 4c 4f 4f 50 42 41  |  BEQ     LOOPBA|
000039d0  43 4b 0d 13 4c 1d 20 20  20 20 20 20 20 20 20 20  |CK..L.          |
000039e0  20 43 4d 50 20 20 20 20  20 52 30 2c 23 31 39 0d  | CMP     R0,#19.|
000039f0  13 56 19 20 20 20 20 20  20 20 20 20 20 20 ec 51  |.V.           .Q|
00003a00  20 20 20 52 34 2c 23 35  0d 13 60 1f 20 20 20 20  |   R4,#5..`.    |
00003a10  20 20 20 20 20 20 20 42  45 51 20 20 20 20 20 4c  |       BEQ     L|
00003a20  4f 4f 50 42 41 43 4b 0d  13 6a 1d 20 20 20 20 20  |OOPBACK..j.     |
00003a30  20 20 20 20 20 20 43 4d  50 20 20 20 20 20 52 30  |      CMP     R0|
00003a40  2c 23 32 32 0d 13 74 1e  20 20 20 20 20 20 20 20  |,#22..t.        |
00003a50  20 20 20 53 57 49 45 51  20 20 20 26 31 30 30 2b  |   SWIEQ   &100+|
00003a60  31 32 0d 13 7e 19 20 20  20 20 20 20 20 20 20 20  |12..~.          |
00003a70  20 ec 51 20 20 20 52 34  2c 23 31 0d 13 88 1f 20  | .Q   R4,#1.... |
00003a80  20 20 20 20 20 20 20 20  20 20 42 45 51 20 20 20  |          BEQ   |
00003a90  20 20 4c 4f 4f 50 42 41  43 4b 0d 13 92 22 20 20  |  LOOPBACK..."  |
00003aa0  20 20 20 20 20 20 20 20  20 53 57 49 20 20 20 20  |         SWI    |
00003ab0  20 22 4f 53 5f 57 72 69  74 65 43 22 0d 13 9c 1f  | "OS_WriteC"....|
00003ac0  20 20 20 20 20 20 20 20  20 20 20 42 20 20 20 20  |           B    |
00003ad0  20 20 20 4c 4f 4f 50 42  41 43 4b 0d 13 a6 21 2e  |   LOOPBACK...!.|
00003ae0  52 49 47 42 49 54 20 20  20 20 53 54 4d 46 44 20  |RIGBIT    STMFD |
00003af0  20 20 52 31 33 21 2c 7b  52 31 34 7d 0d 13 b0 21  |  R13!,{R14}...!|
00003b00  20 20 20 20 20 20 20 20  20 20 20 41 44 52 20 20  |           ADR  |
00003b10  20 20 20 52 32 2c 54 4d  50 4f 52 49 47 0d 13 ba  |   R2,TMPORIG...|
00003b20  1c 20 20 20 20 20 20 20  20 20 20 20 43 4d 50 20  |.           CMP |
00003b30  20 20 20 20 52 31 2c 23  32 0d 13 c4 1f 20 20 20  |    R1,#2....   |
00003b40  20 20 20 20 20 20 20 20  41 44 44 47 45 20 20 20  |        ADDGE   |
00003b50  52 31 2c 52 31 2c 23 32  0d 13 ce 1f 20 20 20 20  |R1,R1,#2....    |
00003b60  20 20 20 20 20 20 20 41  44 44 20 20 20 20 20 52  |       ADD     R|
00003b70  32 2c 52 32 2c 52 31 0d  13 d8 22 20 20 20 20 20  |2,R2,R1..."     |
00003b80  20 20 20 20 20 20 53 57  49 20 20 20 20 20 22 4f  |      SWI     "O|
00003b90  53 5f 57 72 69 74 65 43  22 0d 13 e2 1d 20 20 20  |S_WriteC"....   |
00003ba0  20 20 20 20 20 20 20 20  43 4d 50 20 20 20 20 20  |        CMP     |
00003bb0  52 34 2c 23 31 39 0d 13  ec 1d 20 20 20 20 20 20  |R4,#19....      |
00003bc0  20 20 20 20 20 43 4d 50  4e 45 20 20 20 52 34 2c  |     CMPNE   R4,|
00003bd0  23 31 37 0d 13 f6 1f 20  20 20 20 20 20 20 20 20  |#17....         |
00003be0  20 20 42 4c 45 51 20 20  20 20 43 48 45 43 4b 4e  |  BLEQ    CHECKN|
00003bf0  45 47 0d 14 00 1e 20 20  20 20 20 20 20 20 20 20  |EG....          |
00003c00  20 53 54 52 42 20 20 20  20 52 30 2c 5b 52 32 5d  | STRB    R0,[R2]|
00003c10  0d 14 0a 1d 20 20 20 20  20 20 20 20 20 20 20 43  |....           C|
00003c20  4d 50 20 20 20 20 20 52  34 2c 23 31 37 0d 14 14  |MP     R4,#17...|
00003c30  21 20 20 20 20 20 20 20  20 20 20 20 4c 44 52 45  |!           LDRE|
00003c40  51 20 20 20 52 31 2c 54  4d 50 4f 52 49 47 0d 14  |Q   R1,TMPORIG..|
00003c50  1e 23 20 20 20 20 20 20  20 20 20 20 20 53 54 52  |.#           STR|
00003c60  45 51 20 20 20 52 31 2c  47 52 41 50 48 4f 52 49  |EQ   R1,GRAPHORI|
00003c70  47 0d 14 28 23 20 20 20  20 20 20 20 20 20 20 20  |G..(#           |
00003c80  4c 44 52 45 51 20 20 20  52 31 2c 54 4d 50 4f 52  |LDREQ   R1,TMPOR|
00003c90  49 47 2b 34 0d 14 32 25  20 20 20 20 20 20 20 20  |IG+4..2%        |
00003ca0  20 20 20 53 54 52 45 51  20 20 20 52 31 2c 47 52  |   STREQ   R1,GR|
00003cb0  41 50 48 4f 52 49 47 2b  34 0d 14 3c 19 20 20 20  |APHORIG+4..<.   |
00003cc0  20 20 20 20 20 20 20 20  ec 51 20 20 20 52 34 2c  |        .Q   R4,|
00003cd0  23 31 0d 14 46 21 20 20  20 20 20 20 20 20 20 20  |#1..F!          |
00003ce0  20 4c 44 4d 46 44 20 20  20 52 31 33 21 2c 7b 50  | LDMFD   R13!,{P|
00003cf0  43 7d 5e 0d 14 50 1e 2e  43 48 45 43 4b 4e 45 47  |C}^..P..CHECKNEG|
00003d00  20 20 54 53 54 20 20 20  20 20 52 30 2c 23 26 38  |  TST     R0,#&8|
00003d10  30 0d 14 5a 1e 20 20 20  20 20 20 20 20 20 20 20  |0..Z.           |
00003d20  4d 4f 56 4e 45 20 20 20  52 31 2c 23 26 46 46 0d  |MOVNE   R1,#&FF.|
00003d30  14 64 19 20 20 20 20 20  20 20 20 20 20 20 ec 51  |.d.           .Q|
00003d40  20 20 20 52 31 2c 23 30  0d 14 6e 21 20 20 20 20  |   R1,#0..n!    |
00003d50  20 20 20 20 20 20 20 53  54 52 42 20 20 20 20 52  |       STRB    R|
00003d60  31 2c 5b 52 32 2c 23 31  5d 0d 14 78 21 20 20 20  |1,[R2,#1]..x!   |
00003d70  20 20 20 20 20 20 20 20  53 54 52 42 20 20 20 20  |        STRB    |
00003d80  52 31 2c 5b 52 32 2c 23  32 5d 0d 14 82 1d 20 20  |R1,[R2,#2]....  |
00003d90  20 20 20 20 20 20 20 20  20 4d 4f 56 53 20 20 20  |         MOVS   |
00003da0  20 50 43 2c 52 31 34 0d  14 8c 18 2e 53 54 41 54  | PC,R14.....STAT|
00003db0  55 53 20 20 20 20 45 51  55 44 20 20 20 20 30 0d  |US    EQUD    0.|
00003dc0  14 96 18 2e 52 45 45 4e  54 52 41 4e 54 20 45 51  |....REENTRANT EQ|
00003dd0  55 44 20 20 20 20 30 0d  14 a0 18 2e 47 52 41 50  |UD    0.....GRAP|
00003de0  48 4f 52 49 47 20 45 51  55 44 20 20 20 20 30 0d  |HORIG EQUD    0.|
00003df0  14 aa 18 20 20 20 20 20  20 20 20 20 20 20 45 51  |...           EQ|
00003e00  55 44 20 20 20 20 30 0d  14 b4 18 2e 54 4d 50 4f  |UD    0.....TMPO|
00003e10  52 49 47 20 20 20 45 51  55 44 20 20 20 20 30 0d  |RIG   EQUD    0.|
00003e20  14 be 18 20 20 20 20 20  20 20 20 20 20 20 45 51  |...           EQ|
00003e30  55 44 20 20 20 20 30 0d  14 c8 04 0d 14 d2 23 2e  |UD    0.......#.|
00003e40  46 54 4f 53 4d 4f 55 53  45 20 53 54 4d 46 44 20  |FTOSMOUSE STMFD |
00003e50  20 20 52 31 33 21 2c 7b  52 33 2d 52 34 7d 0d 14  |  R13!,{R3-R4}..|
00003e60  dc 2d 20 20 20 20 20 20  20 20 20 20 20 53 57 49  |.-           SWI|
00003e70  20 20 20 20 20 22 4f 53  5f 52 65 61 64 4d 6f 6e  |     "OS_ReadMon|
00003e80  6f 74 6f 6e 69 63 54 69  6d 65 22 0d 14 e6 1c 20  |otonicTime".... |
00003e90  20 20 20 20 20 20 20 20  20 20 4d 4f 56 20 20 20  |          MOV   |
00003ea0  20 20 52 33 2c 52 30 0d  14 f0 21 20 20 20 20 20  |  R3,R0...!     |
00003eb0  20 20 20 20 20 20 4c 44  52 20 20 20 20 20 52 32  |      LDR     R2|
00003ec0  2c 46 54 50 42 55 46 46  0d 14 fa 1e 20 20 20 20  |,FTPBUFF....    |
00003ed0  20 20 20 20 20 20 20 4c  44 52 20 20 20 20 20 52  |       LDR     R|
00003ee0  31 2c 5b 52 32 5d 0d 15  04 1c 20 20 20 20 20 20  |1,[R2]....      |
00003ef0  20 20 20 20 20 43 4d 50  20 20 20 20 20 52 31 2c  |     CMP     R1,|
00003f00  23 30 0d 15 0e 1f 20 20  20 20 20 20 20 20 20 20  |#0....          |
00003f10  20 42 4c 45 51 20 20 20  20 46 54 4d 4f 56 45 4f  | BLEQ    FTMOVEO|
00003f20  4e 0d 15 18 21 20 20 20  20 20 20 20 20 20 20 20  |N...!           |
00003f30  4c 44 52 20 20 20 20 20  52 30 2c 5b 52 32 2c 23  |LDR     R0,[R2,#|
00003f40  34 5d 0d 15 22 21 20 20  20 20 20 20 20 20 20 20  |4].."!          |
00003f50  20 4c 44 52 20 20 20 20  20 52 31 2c 5b 52 32 2c  | LDR     R1,[R2,|
00003f60  23 38 5d 0d 15 2c 22 20  20 20 20 20 20 20 20 20  |#8]..,"         |
00003f70  20 20 4c 44 52 20 20 20  20 20 52 32 2c 5b 52 32  |  LDR     R2,[R2|
00003f80  2c 23 31 32 5d 0d 15 36  23 20 20 20 20 20 20 20  |,#12]..6#       |
00003f90  20 20 20 20 4c 44 52 20  20 20 20 20 52 33 2c 47  |    LDR     R3,G|
00003fa0  52 41 50 48 4f 52 49 47  0d 15 40 1f 20 20 20 20  |RAPHORIG..@.    |
00003fb0  20 20 20 20 20 20 20 53  55 42 20 20 20 20 20 52  |       SUB     R|
00003fc0  30 2c 52 30 2c 52 33 0d  15 4a 25 20 20 20 20 20  |0,R0,R3..J%     |
00003fd0  20 20 20 20 20 20 4c 44  52 20 20 20 20 20 52 33  |      LDR     R3|
00003fe0  2c 47 52 41 50 48 4f 52  49 47 2b 34 0d 15 54 1f  |,GRAPHORIG+4..T.|
00003ff0  20 20 20 20 20 20 20 20  20 20 20 53 55 42 20 20  |           SUB  |
00004000  20 20 20 52 31 2c 52 31  2c 52 33 0d 15 5e 27 20  |   R1,R1,R3..^' |
00004010  20 20 20 20 20 20 20 20  20 20 4c 44 4d 46 44 20  |          LDMFD |
00004020  20 20 52 31 33 21 2c 7b  52 33 2d 52 34 2c 50 43  |  R13!,{R3-R4,PC|
00004030  7d 5e 0d 15 68 20 2e 46  54 4d 4f 56 45 4f 4e 20  |}^..h .FTMOVEON |
00004040  20 41 44 44 20 20 20 20  20 52 31 2c 52 32 2c 23  | ADD     R1,R2,#|
00004050  31 36 0d 15 72 20 20 20  20 20 20 20 20 20 20 20  |16..r           |
00004060  20 41 44 52 20 20 20 20  20 52 30 2c 46 54 42 55  | ADR     R0,FTBU|
00004070  46 46 0d 15 7c 21 20 20  20 20 20 20 20 20 20 20  |FF..|!          |
00004080  20 41 44 44 20 20 20 20  20 52 30 2c 52 30 2c 23  | ADD     R0,R0,#|
00004090  31 32 38 0d 15 86 1c 20  20 20 20 20 20 20 20 20  |128....         |
000040a0  20 20 43 4d 50 20 20 20  20 20 52 31 2c 52 30 0d  |  CMP     R1,R0.|
000040b0  15 90 20 20 20 20 20 20  20 20 20 20 20 20 41 44  |..            AD|
000040c0  52 45 51 20 20 20 52 31  2c 46 54 42 55 46 46 0d  |REQ   R1,FTBUFF.|
000040d0  15 9a 21 20 20 20 20 20  20 20 20 20 20 20 53 54  |..!           ST|
000040e0  52 20 20 20 20 20 52 31  2c 46 54 50 42 55 46 46  |R     R1,FTPBUFF|
000040f0  0d 15 a4 1d 20 20 20 20  20 20 20 20 20 20 20 4d  |....           M|
00004100  4f 56 53 20 20 20 20 50  43 2c 52 31 34 0d 15 ae  |OVS    PC,R14...|
00004110  1d 2e 46 54 50 42 55 46  46 20 20 20 45 51 55 44  |..FTPBUFF   EQUD|
00004120  20 20 20 20 46 54 42 55  46 46 0d 15 b8 1f 2e 46  |    FTBUFF.....F|
00004130  54 42 55 46 46 20 20 20  20 45 51 55 53 20 20 20  |TBUFF    EQUS   |
00004140  20 c4 31 32 38 2c bd 30  29 0d 15 c2 25 2e 46 54  | .128,.0)...%.FT|
00004150  4e 41 4d 45 20 20 20 20  45 51 55 53 20 20 20 20  |NAME    EQUS    |
00004160  22 53 6d 61 6c 6c 54 61  73 6b 22 2b bd 30 0d 15  |"SmallTask"+.0..|
00004170  cc 07 5d 3a ed 0d 15 d6  05 e1 0d 15 e0 04 0d 15  |..]:............|
00004180  ea 4d 57 42 25 21 30 3d  31 3a 57 42 25 21 34 3d  |.MWB%!0=1:WB%!4=|
00004190  42 25 21 30 2d 42 25 21  33 30 34 2b 42 25 21 33  |B%!0-B%!304+B%!3|
000041a0  32 30 3a 57 42 25 21 38  3d 42 25 21 34 2d 42 25  |20:WB%!8=B%!4-B%|
000041b0  21 33 31 36 2b 42 25 21  33 32 34 2b 52 59 25 3a  |!316+B%!324+RY%:|
000041c0  57 42 25 21 31 32 3d 42  25 21 38 0d 15 f4 04 0d  |WB%!12=B%!8.....|
000041d0  15 fe 0b dd f2 42 55 46  46 4d 0d 16 08 2a e7 57  |.....BUFFM...*.W|
000041e0  42 25 2b 31 36 3c 3e 21  46 54 50 42 55 46 46 20  |B%+16<>!FTPBUFF |
000041f0  80 57 42 25 2d 31 31 32  3c 3e 21 46 54 50 42 55  |.WB%-112<>!FTPBU|
00004200  46 46 20 8c 0d 16 12 2e  42 25 21 33 30 30 3d 4d  |FF .....B%!300=M|
00004210  48 25 3a c8 99 22 57 69  6d 70 5f 47 65 74 57 69  |H%:.."Wimp_GetWi|
00004220  6e 64 6f 77 53 74 61 74  65 22 2c 2c 42 25 2b 33  |ndowState",,B%+3|
00004230  30 30 0d 16 1c 0b 57 42  25 21 30 3d 30 0d 16 26  |00....WB%!0=0..&|
00004240  4d 57 42 25 21 30 3d 30  3a 57 42 25 21 34 3d 42  |MWB%!0=0:WB%!4=B|
00004250  25 21 30 2d 42 25 21 33  30 34 2b 42 25 21 33 32  |%!0-B%!304+B%!32|
00004260  30 3a 57 42 25 21 38 3d  42 25 21 34 2d 42 25 21  |0:WB%!8=B%!4-B%!|
00004270  33 31 36 2b 42 25 21 33  32 34 2b 52 59 25 3a 57  |316+B%!324+RY%:W|
00004280  42 25 21 31 32 3d 42 25  21 38 0d 16 30 26 57 42  |B%!12=B%!8..0&WB|
00004290  25 2b 3d 31 36 3a e7 57  42 25 3d 46 54 42 55 46  |%+=16:.WB%=FTBUF|
000042a0  46 2b 31 32 38 8c 57 42  25 3d 46 54 42 55 46 46  |F+128.WB%=FTBUFF|
000042b0  0d 16 3a 05 cd 0d 16 44  05 e1 0d 16 4e 04 0d 16  |..:....D....N...|
000042c0  58 0d dd f2 53 54 41 52  54 46 54 0d 16 62 36 c8  |X...STARTFT..b6.|
000042d0  99 22 46 69 6c 74 65 72  5f 52 65 67 69 73 74 65  |."Filter_Registe|
000042e0  72 50 72 65 46 69 6c 74  65 72 22 2c 46 54 4e 41  |rPreFilter",FTNA|
000042f0  4d 45 2c 46 54 45 58 49  54 2c 30 2c 48 49 53 54  |ME,FTEXIT,0,HIST|
00004300  25 0d 16 6c 3a c8 99 22  46 69 6c 74 65 72 5f 52  |%..l:.."Filter_R|
00004310  65 67 69 73 74 65 72 50  6f 73 74 46 69 6c 74 65  |egisterPostFilte|
00004320  72 22 2c 46 54 4e 41 4d  45 2c 46 54 45 4e 54 52  |r",FTNAME,FTENTR|
00004330  59 2c 30 2c 48 49 53 54  25 2c 30 0d 16 76 05 e1  |Y,0,HIST%,0..v..|
00004340  0d 16 80 04 0d 16 8a 0e  dd f2 46 49 4e 49 53 48  |..........FINISH|
00004350  46 54 0d 16 94 38 c8 99  22 46 69 6c 74 65 72 5f  |FT...8.."Filter_|
00004360  44 65 52 65 67 69 73 74  65 72 50 72 65 46 69 6c  |DeRegisterPreFil|
00004370  74 65 72 22 2c 46 54 4e  41 4d 45 2c 46 54 45 58  |ter",FTNAME,FTEX|
00004380  49 54 2c 30 2c 48 49 53  54 25 0d 16 9e 3c c8 99  |IT,0,HIST%...<..|
00004390  22 46 69 6c 74 65 72 5f  44 65 52 65 67 69 73 74  |"Filter_DeRegist|
000043a0  65 72 50 6f 73 74 46 69  6c 74 65 72 22 2c 46 54  |erPostFilter",FT|
000043b0  4e 41 4d 45 2c 46 54 45  4e 54 52 59 2c 30 2c 48  |NAME,FTENTRY,0,H|
000043c0  49 53 54 25 2c 30 0d 16  a8 05 e1 0d 16 b2 04 0d  |IST%,0..........|
000043d0  16 bc 0f dd f2 53 54 41  52 54 55 50 46 54 0d 16  |.....STARTUPFT..|
000043e0  c6 4f 21 46 54 50 42 55  46 46 3d 46 54 42 55 46  |.O!FTPBUFF=FTBUF|
000043f0  46 3a 57 42 25 3d 46 54  42 55 46 46 3a 46 54 42  |F:WB%=FTBUFF:FTB|
00004400  55 46 46 21 30 3d 31 3a  46 54 42 55 46 46 21 34  |UFF!0=1:FTBUFF!4|
00004410  3d 35 31 32 3a 46 54 42  55 46 46 21 38 3d 36 34  |=512:FTBUFF!8=64|
00004420  30 3a 46 54 42 55 46 46  21 31 32 3d 30 0d 16 d0  |0:FTBUFF!12=0...|
00004430  05 e1 0d 16 da 04 0d 16  e4 0e dd f2 44 41 54 41  |............DATA|
00004440  4c 4f 41 44 0d 16 ee 16  42 25 21 31 32 3d 42 25  |LOAD....B%!12=B%|
00004450  21 38 3a 42 25 21 31 36  3d 34 0d 16 f8 23 c8 99  |!8:B%!16=4...#..|
00004460  22 57 69 6d 70 5f 53 65  6e 64 4d 65 73 73 61 67  |"Wimp_SendMessag|
00004470  65 22 2c 31 37 2c 42 25  2c 42 25 21 34 0d 17 02  |e",17,B%,B%!4...|
00004480  1e f2 54 41 53 4b 28 22  52 75 6e 20 22 2b a4 4e  |..TASK("Run "+.N|
00004490  55 4c 4c 28 42 25 2b 34  34 29 29 0d 17 0c 05 e1  |ULL(B%+44)).....|
000044a0  0d ff                                             |..|
000044a2