Home » Archimedes archive » Acorn Computing » 1994 04 subscription disc.adf » 9404s » PD/BACKDROP/!StickyBrd/!Help/!RunImage

PD/BACKDROP/!StickyBrd/!Help/!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 Computing » 1994 04 subscription disc.adf » 9404s
Filename: PD/BACKDROP/!StickyBrd/!Help/!RunImage
Read OK: ✔
File size: 278A bytes
Load address: 0000
Exec address: 0000
File contents
   10REM ><StickyBrdHelp$Dir>.!RunImage
   20REM PD
   30REM 1992
   40
   50ON ERROR PROCtellemoff("Fatal error: (type="+STR$ERL+") "+REPORT$+" Re-run & try again."):SYS "Wimp_CloseDown":END
   60REM errors in this bit of code cannot be dealt with - quit immediately
   70REM If you try, templates might not be loaded, menus not defined etc.
   80DIM q% 400,useful% 700,ind% &200,ind2% &200,menu% 300,pointer% 400
   90DIM hmen% &80,pmen% &80
  100DIM icontext% 36,iconvalid% 36,ind3% &300
  110edited%=FALSE
  120$q%="TASK"
  130SYS "Wimp_Initialise",200,!q%,"HelpCtrl" TO ,,taskh%
  140SYS "Interface_Initialise",,taskh%:REM claim Interface pointers
  150SYS "Wimp_OpenTemplate",,"<StickyBrdHelp$Dir>.Templates"
  160SYS "Wimp_LoadTemplate",,q%,ind%,ind%+&200,-1,"info",0
  170SYS "Wimp_CreateWindow",,q% TO infowind%
  180SYS "Wimp_LoadTemplate",,q%,ind2%,ind2%+&200,-1,"moreinfo",0
  190SYS "Wimp_CreateWindow",,q% TO moreinfo%
  200SYS "Wimp_LoadTemplate",,q%,ind3%,ind3%+&300,-1,"saveas",0
  210SYS "Wimp_CreateWindow",,q% TO saveas%
  220SYS "Wimp_CloseTemplate"
  230PROCmenu:REM create menus
  240
  250icon%=FNiconbar("!help","",-1):REM icon on iconbar
  260                                    REM -1 = Utility (RHS)
  270                                    REM -2 = Service (LHS)
  280
  290quit%=FALSE:REM Nothing happened yet!
  300OSCLI"Filer_OpenDir "+FNtrans("StickyBrd$Dir")+".Docs"
  310ON ERROR IF FNerror("Unexpected error: "+REPORT$+" (int. error code "+STR$ERL+")  Shall I quit ?",3)=1 SYS "Interface_CloseDown",,taskh%:SYS "Wimp_CloseDown":END
  320REM Error handler drops through to wimp_poll loop, AFTER wimp_initialise
  330SYS "OS_ReadMonotonicTime" TO ot%:REM get ready for wimp_poll,
  340REPEAT
  350SYS "Wimp_PollIdle",,q%,ot% TO reason%:REM and poll the wimp.
  360SYS "Interface_Poll",reason%,,taskh%:REM Ensure pointer up to date
  370SYS "OS_ReadMonotonicTime" TO nt%
  380WHILE nt%>ot%:ot%+=1:ENDWHILE
  390CASE reason% OF
  400WHEN 1     : PROCredraw
  410WHEN 2     : SYS "Wimp_OpenWindow",,q%
  420WHEN 3     : SYS "Wimp_CloseWindow",,q%
  430WHEN 6     : PROCcheckmouse
  440WHEN 7     : f$=FNlastbit(f$):PROCdragend
  450WHEN 9     : PROCprocess_menu
  460WHEN 17,18 : PROCmessage
  470ENDCASE
  480UNTIL quit%
  490SYS "Interface_CloseDown",,taskh%
  500SYS "Wimp_CloseDown":END:REM leave gracefully
  510
  520DEF FNiconbar(v$,t$,handle%)
  530LOCAL i%
  540IF handle%=-2 THEN                     :REM Service or Utility?
  550$iconvalid%="S"+v$:$icontext%=t$
  560ENDIF
  570q%!0=handle%
  580q%!4=0
  590IF handle%=-1 q%!8=0 ELSE q%!8=-16     :REM Set up proper co-ords
  600IF handle%=-1 q%!12=68 ELSE q%!12=78
  610IF handle%=-1 q%!16=96 ELSE q%!16=90
  620IF handle%=-1 THEN                     :REM And proper icon flags
  630q%!20=&2002
  640ELSE
  650q%!20=%00010111000000000011000100101011
  660ENDIF
  670IF handle%=-1 THEN                     :REM Indirected?
  680$(q%+24)=v$
  690ELSE
  700q%!24=icontext%
  710q%!28=iconvalid%
  720q%!32=LEN($icontext%)+1
  730ENDIF
  740SYS "Wimp_CreateIcon",,q% TO i%        :REM And draw the icon
  750=i%
  760
  770DEF PROCmessage
  780yr%=q%!8
  790CASE (q%!16) OF
  800WHEN 0    : quit%=TRUE:REM Message_Quit ?
  810WHEN 2    : PROCds:REM Message_DataSave ?
  820WHEN 3    : PROCdl:REM Message_DataLoad ?
  830WHEN 5    : PROCdo:REM Message_DataOpen ?
  840WHEN 8    : PROCpq:REM Message_PreQuit ?
  850WHEN &502 : PROCsendhelp:REM Message_Help ?
  860ENDCASE
  870ENDPROC
  880
  890DEF PROCcheckmouse
  900handle=(q%!12)
  910CASE (q%!12) OF
  920WHEN -2:REM iconbar ?
  930CASE (q%!8) OF
  940WHEN 4 : OSCLI "Filer_OpenDir "+FNtrans("StickyBrd$Dir")+".Docs"
  950WHEN 2 : SYS "Wimp_CreateMenu",,menu%,!q%-64,320
  960WHEN 1 : REM Adjust ?
  970ENDCASE
  980WHEN infowind%:REM And again...
  990CASE (q%!8) OF
 1000WHEN 4 : CASE q%!16 OF
 1010WHEN 9 : PROCslabicon:SYS "Wimp_CreateMenu",,-1:PROCopenup(moreinfo%,240,762,800,600)
 1020ENDCASE
 1030ENDCASE
 1040WHEN moreinfo%
 1050CASE q%!8 OF
 1060WHEN 4 : CASE q%!16 OF
 1070WHEN 14 : PROCslabicon:PROCshut(moreinfo%)
 1080ENDCASE
 1090ENDCASE
 1100WHEN saveas%
 1110CASE q%!8 OF
 1120WHEN 4 : CASE q%!16 OF
 1130WHEN 1 : PROCslabicon:f$=FNgeticondata(saveas%,0):PROCquicksave
 1140WHEN 3 : f$=FNgeticondata(saveas%,0):PROCdragbox(saveas%,2)
 1150ENDCASE
 1160ENDCASE
 1170ENDCASE
 1180ENDPROC
 1190
 1200DEF PROCmenu
 1210REM Setup menus and menu block
 1220P%=menu%
 1230flags=&7000021
 1240PROCmenu_header("HelpCtrl",8)
 1250PROCmenu_item(&02,infowind%,flags,"Info")
 1260PROCmenu_item(&00,hmen%,flags,"Help")
 1270PROCmenu_item(&02,pmen%,flags,"Print")
 1280PROCmenu_item(&80,-1,flags,"Quit")
 1290P%=hmen%
 1300PROCmenu_header("Help",9)
 1310PROCmenu_item(&00,-1,flags,"!Manual")
 1320PROCmenu_item(&80,-1,flags,"!TechMan")
 1330P%=pmen%
 1340PROCmenu_header("Print",9)
 1350PROCmenu_item(&00,-1,flags,"!Manual")
 1360PROCmenu_item(&80,-1,flags,"!TechMan")
 1370ENDPROC
 1380
 1390DEF PROCmenu_header(T$,w)
 1400$P%=T$
 1410P%!12=&70207
 1420P%!16=w*16
 1430P%!20=40
 1440P%!24=0
 1450P%+=28
 1460ENDPROC
 1470
 1480DEF PROCmenu_item(A%,B%,C%,T$)
 1490P%!0=A%
 1500P%!4=B%
 1510P%!8=C%
 1520$(P%+12)=T$
 1530P%+=24
 1540ENDPROC
 1550
 1560DEF FNerror(e$,b%):!q%=0:$(q%+4)=e$+CHR$0
 1570SYS "Wimp_ReportError",q%,b%,"HelpCtrl" TO ,b%
 1580=b%
 1590
 1600DEF PROCdl
 1610LOCAL f$,T%
 1620f$=STRING$(250," "):f$="":T%=q%+44
 1630WHILE ?T%<>0:f$+=CHR$?T%:T%+=1:ENDWHILE
 1640CASE q%!40 OF
 1650ENDCASE
 1660q%!12=q%!8:q%!16=4:SYS "Wimp_SendMessage",17,q%
 1670ENDPROC
 1680
 1690DEF PROCdo
 1700LOCAL f$,T%
 1710f$=STRING$(250," "):f$="":f$=FNrtoz(q%+44)
 1720CASE q%!40 OF
 1730OTHERWISE : ENDPROC
 1740ENDCASE
 1750q%!12=q%!8:q%!16=4:SYS "Wimp_SendMessage",17,q%
 1760ENDPROC
 1770
 1780DEF PROCredraw
 1790SYS "Wimp_RedrawWindow",,q% TO flag
 1800WHILE flag<>0
 1810SYS "Interface_Render3dWindow",,q%:REM Border all icons in window
 1820SYS "Wimp_GetRectangle",,q% TO flag
 1830ENDWHILE
 1840ENDPROC
 1850
 1860DEF PROCprocess_menu
 1870CASE handle OF
 1880WHEN -2
 1890CASE q%!0 OF
 1900WHEN 1 : CASE q%!4 OF
 1910          WHEN 0 : OSCLI "WimpTask <StickyBrd$Dir>.Docs.!Manual"
 1920          WHEN 1 : OSCLI "WimpTask <StickyBrd$Dir>.Docs.!TechMan"
 1930         ENDCASE
 1940WHEN 2 : PROCprint(q%!4)
 1950WHEN 3 : IF edited%=TRUE THEN
 1960          IF FNok("File(s) edited but not saved. Really quit ?") THEN
 1970           quit%=TRUE
 1980          ELSE
 1990           quit%=FALSE
 2000          ENDIF
 2010         ELSE
 2020          IF edited%=FALSE THEN
 2030           quit%=TRUE
 2040          ENDIF
 2050         ENDIF
 2060ENDCASE
 2070ENDCASE
 2080ENDPROC
 2090
 2100DEF PROCopenup(handle,x,y,w,h)
 2110q%!0=handle
 2120q%!4=x:q%!8=y-h
 2130q%!12=x+w:q%!16=y
 2140q%!20=0:q%!24=0
 2150q%!28=-1
 2160SYS "Wimp_OpenWindow",,q%
 2170ENDPROC
 2180
 2190DEF PROCslabicon
 2200SYS "Interface_SlabButton",,q%:REM Slab in...
 2210q%!8=0
 2220SYS "Interface_SlabButton",,q%:REM ...and out
 2230ENDPROC
 2240
 2250DEF PROCshut(h%)
 2260pointer%!0=h%:SYS "Wimp_CloseWindow",,pointer%
 2270ENDPROC
 2280
 2290DEF PROCsendhelp
 2300q%!12=q%!8:q%!16=&503:help%=q%+20
 2310help%=FNhelp(q%!32,q%!36,help%):IF help%=0 ENDPROC:REM Interface help ?
 2320?help%=0:REM No, so send application help
 2330!q%=(help%+4-q%)ANDNOT3:REM Setup help block
 2340SYS "Wimp_SendMessage",17,q%,q%!4:REM and send it
 2350ENDPROC
 2360
 2370DEF FNhelp(window%,icon%,to%)
 2380$to%=""
 2390CASE window% OF
 2400 WHEN -2 : REM iconbar ?
 2410 CASE icon% OF
 2420  WHEN icon% : REM my icon ?
 2430  $to%="This is the HelpCtrl icon.|MClick on it to open the Help window."
 2440 ENDCASE
 2450 WHEN infowind% : REM info window ?
 2460 CASE icon% OF
 2470  WHEN -1,0,1,2,3,4,5,6,7,8 : REM not over 'Click here...' icon ?
 2480  $to%="This is the Info window.|MIt provides information on HelpCtrl."
 2490  OTHERWISE : SYS "Interface_SendHelp",,q%:=0:REM Send Interface help
 2500 ENDCASE
 2510 WHEN moreinfo% : REM 'About the Author' window ?
 2520 CASE icon% OF
 2530  WHEN -1,0,1,2,3,4,5,6,7,8,9,10,11,12,13 : REM not over close icon ?
 2540  $to%="This is a secondary info window.|MIt gives information on the Author."
 2550  OTHERWISE : SYS "Interface_SendHelp",,q%:=0:REM Send Interface help
 2560 ENDCASE
 2570 WHEN saveas% : REM 'Save as:' window ?
 2580 CASE icon% OF
 2590  WHEN -1 : REM over work area ?
 2600  $to%="This is the 'Save' window.|MIt is used to save a file."
 2610  OTHERWISE : SYS "Interface_SendHelp",,q%:=0:REM Send Interface help
 2620 ENDCASE
 2630ENDCASE
 2640=to%+LEN($to%)
 2650
 2660DEF FNgeticondata(window%,icon%)
 2670pointer%!0=window%
 2680pointer%!4=icon%
 2690SYS "Wimp_GetIconState",,pointer%
 2700=$(pointer%!28)
 2710
 2720DEF PROCputicondata(window%,icon%,t$)
 2730pointer%!0=window%:pointer%!4=icon%
 2740SYS "Wimp_GetIconState",,pointer%
 2750$(pointer%!28)=t$
 2760pointer%!12=0:pointer%!8=0
 2770SYS "Wimp_SetIconState",,pointer%
 2780ENDPROC
 2790
 2800DEF PROCputiconsprite(window%,icon%,t$)
 2810pointer%!0=window%:pointer%!4=icon%
 2820SYS "Wimp_GetIconState",,pointer%
 2830SYS "Wimp_DeleteIcon",,pointer%
 2840pointer%!4=window%:$(pointer%+28)=t$
 2850pointer%+=4:SYS "Wimp_CreateIcon",,pointer%
 2860SYS "Wimp_ForceRedraw",pointer%!0,pointer%!4,pointer%!8,pointer%!12,pointer%!16
 2870pointer%-=4
 2880ENDPROC
 2890
 2900DEF PROCtellemoff(e$)
 2910er%=pointer%
 2920!er%=0
 2930$(er%+4)=e$+CHR$0
 2940SYS "Wimp_ReportError",er%,1,"HelpCtrl"
 2950ENDPROC
 2960
 2970DEF FNrtoz(T%):LOCAL q$:WHILE ?T%<>0:q$+=CHR$?T%:T%+=1:ENDWHILE:=q$
 2980
 2990DEF PROCpq
 3000IF edited% THEN
 3010IF NOT FNok("File(s) edited but not saved. Really quit ?"):PROCno_quit
 3020ENDIF
 3030ENDPROC
 3040
 3050DEF FNok(e$)
 3060er%=pointer%
 3070!er%=0
 3080$(er%+4)=e$+CHR$0
 3090SYS "Wimp_ReportError",er%,&17,"Message from !HelpCtrl" TO ,b%
 3100=(b%=1)
 3110
 3120DEF PROCno_quit
 3130q%!12=q%!8:q%!16=8:SYS "Wimp_SendMessage",17,q%,q%!4:ENDPROC
 3140
 3150DEF PROCdragend
 3160d%=pointer%
 3170SYS "Wimp_GetPointerInfo",,d%
 3180d%!32=d%!4                   :tt%=d%!32
 3190d%!28=!d%                    :te%=d%!28
 3200d%!24=d%!16                  :tf%=d%!24
 3210d%!20=d%!12                  :tw%=d%!20
 3220d%!16=1     :d%!12=0     :d%!36=0
 3230d%!40=0     :!d%=64      :$(d%+44)=f$
 3240SYS "Wimp_SendMessage",17,d%,d%!20,d%!24
 3250mr%=d%!8
 3260ENDPROC
 3270
 3280DEF FNlastbit(s$)
 3290WHILE INSTR(s$,":")>0
 3300s$=MID$(s$,INSTR(s$,":")+1)
 3310ENDWHILE
 3320WHILE INSTR(s$,".")>0
 3330s$=MID$(s$,INSTR(s$,".")+1)
 3340ENDWHILE
 3350=s$
 3360
 3370DEF PROCds
 3380PROCputicondata(saveas%,0,$(q%+44))
 3390f$=$(q%+44)
 3400PROCsd(&FFD)
 3410ENDPROC
 3420
 3430DEF PROCdragbox(w%,i%)
 3440d%=pointer%
 3450!d%=w%
 3460SYS "Wimp_GetWindowState",,d%
 3470ys%=d%!16-d%!8:x%=d%!4:y%=d%!8
 3480d%!4=i%
 3490SYS "Wimp_GetIconState",,d%
 3500f$=FNlastbit(f$)
 3510d%!8+=x%
 3520d%!12+=y%+ys%
 3530d%!16+=x%
 3540d%!20+=y%+ys%
 3550d%!24=0
 3560d%!28=0
 3570SYS "OS_ReadModeVariable",MODE,4 TO ,,h%:h%=FNextracth(h%)
 3580SYS "OS_ReadModeVariable",MODE,5 TO ,,v%:v%=FNextractv(v%)
 3590d%!32=(h%*2)
 3600d%!36=(v%*4)
 3610!d%=0
 3620d%!4=5
 3630SYS "Wimp_DragBox",,d%
 3640ENDPROC
 3650
 3660DEF PROCquicksave
 3670IF INSTR(f$,":")<1 AND INSTR(f$,".")<1 THEN
 3680PROCtellemoff("To save, drag icon to a directory viewer")
 3690ELSE
 3700PROCsd(&FFD)
 3710ENDIF
 3720ENDPROC
 3730
 3740DEF PROCsd(t%)
 3750d%=pointer%
 3760!d%=64
 3770d%!20=tw%
 3780d%!24=tf%
 3790d%!28=te%
 3800d%!32=tt%
 3810d%!12=yr%
 3820d%!16=3
 3830d%!36=0
 3840d%!40=t%
 3850$(d%+44)=f$
 3860SYS "Wimp_SendMessage",17,d%,d%!20
 3870SYS "OS_File",18,f$,t%
 3880SYS "Wimp_CreateMenu",,-1
 3890ENDPROC
 3900
 3910DEF FNextracth(a%)
 3920CASE a% OF
 3930 WHEN 0 : =1280
 3940 WHEN 1 : =640
 3950 WHEN 2 : =320
 3960 WHEN 3 : =160
 3970ENDCASE
 3980
 3990DEF FNextractv(a%)
 4000CASE a% OF
 4010 WHEN 1 : =512
 4020 WHEN 2 : =256
 4030ENDCASE
 4040
 4050DEF PROCprint(type)
 4060CASE type OF
 4070 WHEN 0 : h%=OPENUP("<StickyBrd$Dir>.Docs.!Manual.ReadMe")
 4080 WHEN 1 : h%=OPENUP("<StickyBrd$Dir>.Docs.!TechMan.ReadMe")
 4090ENDCASE
 4100i%=OPENOUT("Printer:")
 4110REPEAT
 4120BPUT#i%,BGET#h%
 4130UNTIL EOF#h%
 4140CLOSE#h%
 4150CLOSE#i%
 4160ENDPROC
 4170
 4180DEF FNtrans(var$)
 4190FOR I%=0 TO 100 STEP 4:pointer%!I%=0
 4200SYS "XOS_ReadVarVal",var$,pointer%,100 TO ,,r2%
 4210pointer%?r2%=13:=$(pointer%)


$� ><StickyBrdHelp$Dir>.!RunImage
� PD

� 1992
(
2a� � �tellemoff("Fatal error: (type="+Þ+") "+�$+" Re-run & try again."):ș "Wimp_CloseDown":�
<H� errors in this bit of code cannot be dealt with - quit immediately
FG� If you try, templates might not be loaded, menus not defined etc.
PD� q% 400,useful% 700,ind% &200,ind2% &200,menu% 300,pointer% 400
Z� hmen% &80,pmen% &80
d+� icontext% 36,iconvalid% 36,ind3% &300
n
edited%=�
x$q%="TASK"
�6ș "Wimp_Initialise",200,!q%,"HelpCtrl" � ,,taskh%
�@ș "Interface_Initialise",,taskh%:� claim Interface pointers
�;ș "Wimp_OpenTemplate",,"<StickyBrdHelp$Dir>.Templates"
�9ș "Wimp_LoadTemplate",,q%,ind%,ind%+&200,-1,"info",0
�*ș "Wimp_CreateWindow",,q% � infowind%
�?ș "Wimp_LoadTemplate",,q%,ind2%,ind2%+&200,-1,"moreinfo",0
�*ș "Wimp_CreateWindow",,q% � moreinfo%
�=ș "Wimp_LoadTemplate",,q%,ind3%,ind3%+&300,-1,"saveas",0
�(ș "Wimp_CreateWindow",,q% � saveas%
�ș "Wimp_CloseTemplate"
��menu:� create menus
�
�3icon%=�iconbar("!help","",-1):� icon on iconbar
<                                    � -1 = Utility (RHS)
<                                    � -2 = Service (LHS)

"#quit%=�:� Nothing happened yet!
,5�"Filer_OpenDir "+�trans("StickyBrd$Dir")+".Docs"
6�� � � �error("Unexpected error: "+�$+" (int. error code "+Þ+")  Shall I quit ?",3)=1 ș "Interface_CloseDown",,taskh%:ș "Wimp_CloseDown":�
@J� Error handler drops through to wimp_poll loop, AFTER wimp_initialise
J>ș "OS_ReadMonotonicTime" � ot%:� get ready for wimp_poll,
T�
^=ș "Wimp_PollIdle",,q%,ot% � reason%:� and poll the wimp.
hCș "Interface_Poll",reason%,,taskh%:� Ensure pointer up to date
r#ș "OS_ReadMonotonicTime" � nt%
|ȕ nt%>ot%:ot%+=1:�
�Ȏ reason% �
�� 1     : �redraw
�&� 2     : ș "Wimp_OpenWindow",,q%
�'� 3     : ș "Wimp_CloseWindow",,q%
�� 6     : �checkmouse
�&� 7     : f$=�lastbit(f$):�dragend
�� 9     : �process_menu
�� 17,18 : �message
��
�� quit%
�$ș "Interface_CloseDown",,taskh%
�,ș "Wimp_CloseDown":�:� leave gracefully
�
� �iconbar(v$,t$,handle%)
� i%
=� handle%=-2 �                     :� Service or Utility?
&$$iconvalid%="S"+v$:$icontext%=t$
0�
:q%!0=handle%
D
q%!4=0
N?� handle%=-1 q%!8=0 � q%!8=-16     :� Set up proper co-ords
X$� handle%=-1 q%!12=68 � q%!12=78
b$� handle%=-1 q%!16=96 � q%!16=90
l?� handle%=-1 �                     :� And proper icon flags
vq%!20=&2002
��
�+q%!20=%00010111000000000011000100101011
��
�5� handle%=-1 �                     :� Indirected?
�$(q%+24)=v$
��
�q%!24=icontext%
�q%!28=iconvalid%
�q%!32=�($icontext%)+1
��
�=ș "Wimp_CreateIcon",,q% � i%        :� And draw the icon
�=i%
�
� �message
yr%=q%!8
Ȏ (q%!16) �
 %� 0    : quit%=�:� Message_Quit ?
*%� 2    : �ds:� Message_DataSave ?
4%� 3    : �dl:� Message_DataLoad ?
>%� 5    : �do:� Message_DataOpen ?
H$� 8    : �pq:� Message_PreQuit ?
R'� &502 : �sendhelp:� Message_Help ?
\�
f�
p
z� �checkmouse
�handle=(q%!12)
�Ȏ (q%!12) �
�� -2:� iconbar ?
�Ȏ (q%!8) �
�<� 4 : � "Filer_OpenDir "+�trans("StickyBrd$Dir")+".Docs"
�0� 2 : ș "Wimp_CreateMenu",,menu%,!q%-64,320
�� 1 : � Adjust ?
��
�� infowind%:� And again...
�Ȏ (q%!8) �
�� 4 : Ȏ q%!16 �
�O� 9 : �slabicon:ș "Wimp_CreateMenu",,-1:�openup(moreinfo%,240,762,800,600)
��
�
� moreinfo%

Ȏ q%!8 �
$� 4 : Ȏ q%!16 �
.%� 14 : �slabicon:�shut(moreinfo%)
8�
B�
L
� saveas%
V
Ȏ q%!8 �
`� 4 : Ȏ q%!16 �
j9� 1 : �slabicon:f$=�geticondata(saveas%,0):�quicksave
t8� 3 : f$=�geticondata(saveas%,0):�dragbox(saveas%,2)
~�
��
��
��
�
�� �menu
� � Setup menus and menu block
�P%=menu%
�flags=&7000021
��menu_header("HelpCtrl",8)
�*�menu_item(&02,infowind%,flags,"Info")
�&�menu_item(&00,hmen%,flags,"Help")
�'�menu_item(&02,pmen%,flags,"Print")
#�menu_item(&80,-1,flags,"Quit")

P%=hmen%
�menu_header("Help",9)
&�menu_item(&00,-1,flags,"!Manual")
('�menu_item(&80,-1,flags,"!TechMan")
2P%=pmen%
<�menu_header("Print",9)
F&�menu_item(&00,-1,flags,"!Manual")
P'�menu_item(&80,-1,flags,"!TechMan")
Z�
d
n� �menu_header(T$,w)
x
$P%=T$
�P%!12=&70207
�P%!16=w*16
�P%!20=40
�P%!24=0
�
P%+=28
��
�
�� �menu_item(A%,B%,C%,T$)
�P%!0=A%
�P%!4=B%
�P%!8=C%
�$(P%+12)=T$
�
P%+=24
�

'� �error(e$,b%):!q%=0:$(q%+4)=e$+�0
"0ș "Wimp_ReportError",q%,b%,"HelpCtrl" � ,b%
,=b%
6
@	� �dl
J� f$,T%
Tf$=�250," "):f$="":T%=q%+44
^ȕ ?T%<>0:f$+=�?T%:T%+=1:�
hȎ q%!40 �
r�
|2q%!12=q%!8:q%!16=4:ș "Wimp_SendMessage",17,q%
��
�
�	� �do
�� f$,T%
�&f$=�250," "):f$="":f$=�rtoz(q%+44)
�Ȏ q%!40 �
�	 : �
��
�2q%!12=q%!8:q%!16=4:ș "Wimp_SendMessage",17,q%
��
�
�
� �redraw
�%ș "Wimp_RedrawWindow",,q% � flag
ȕ flag<>0
Bș "Interface_Render3dWindow",,q%:� Border all icons in window
%ș "Wimp_GetRectangle",,q% � flag
&�
0�
:
D� �process_menu
NȎ handle �
X� -2
b
Ȏ q%!0 �
l� 1 : Ȏ q%!4 �
v=          � 0 : � "WimpTask <StickyBrd$Dir>.Docs.!Manual"
�>          � 1 : � "WimpTask <StickyBrd$Dir>.Docs.!TechMan"
�         �
�� 2 : �print(q%!4)
�� 3 : � edited%=� �
�D          � �ok("File(s) edited but not saved. Really quit ?") �
�           quit%=�
�          �
�           quit%=�
�          �
�         �
�          � edited%=� �
�           quit%=�
�          �
         �
�
�
 �
*
4� �openup(handle,x,y,w,h)
>q%!0=handle
Hq%!4=x:q%!8=y-h
Rq%!12=x+w:q%!16=y
\q%!20=0:q%!24=0
fq%!28=-1
pș "Wimp_OpenWindow",,q%
z�
�
�� �slabicon
�.ș "Interface_SlabButton",,q%:� Slab in...
�
q%!8=0
�.ș "Interface_SlabButton",,q%:� ...and out
��
�
�� �shut(h%)
�1pointer%!0=h%:ș "Wimp_CloseWindow",,pointer%
��
�
�� �sendhelp
�%q%!12=q%!8:q%!16=&503:help%=q%+20
	Ahelp%=�help(q%!32,q%!36,help%):� help%=0 �:� Interface help ?
	+?help%=0:� No, so send application help
	*!q%=(help%+4-q%)��3:� Setup help block
	$2ș "Wimp_SendMessage",17,q%,q%!4:� and send it
	.�
	8
	B� �help(window%,icon%,to%)
	L$to%=""
	VȎ window% �
	` � -2 : � iconbar ?
	j Ȏ icon% �
	t  � icon% : � my icon ?
	~M  $to%="This is the HelpCtrl icon.|MClick on it to open the Help window."
	� �
	�" � infowind% : � info window ?
	� Ȏ icon% �
	�@  � -1,0,1,2,3,4,5,6,7,8 : � not over 'Click here...' icon ?
	�K  $to%="This is the Info window.|MIt provides information on HelpCtrl."
	�>   : ș "Interface_SendHelp",,q%:=0:� Send Interface help
	� �
	�0 � moreinfo% : � 'About the Author' window ?
	� Ȏ icon% �
	�D  � -1,0,1,2,3,4,5,6,7,8,9,10,11,12,13 : � not over close icon ?
	�R  $to%="This is a secondary info window.|MIt gives information on the Author."
	�>   : ș "Interface_SendHelp",,q%:=0:� Send Interface help
 �

& � saveas% : � 'Save as:' window ?
 Ȏ icon% �
  � -1 : � over work area ?
(C  $to%="This is the 'Save' window.|MIt is used to save a file."
2>   : ș "Interface_SendHelp",,q%:=0:� Send Interface help
< �
F�
P=to%+�($to%)
Z
d!� �geticondata(window%,icon%)
npointer%!0=window%
xpointer%!4=icon%
�$ș "Wimp_GetIconState",,pointer%
�=$(pointer%!28)
�
�$� �puticondata(window%,icon%,t$)
�'pointer%!0=window%:pointer%!4=icon%
�$ș "Wimp_GetIconState",,pointer%
�$(pointer%!28)=t$
�pointer%!12=0:pointer%!8=0
�$ș "Wimp_SetIconState",,pointer%
��
�
�&� �puticonsprite(window%,icon%,t$)
�'pointer%!0=window%:pointer%!4=icon%
$ș "Wimp_GetIconState",,pointer%
"ș "Wimp_DeleteIcon",,pointer%
(pointer%!4=window%:$(pointer%+28)=t$
".pointer%+=4:ș "Wimp_CreateIcon",,pointer%
,Rș "Wimp_ForceRedraw",pointer%!0,pointer%!4,pointer%!8,pointer%!12,pointer%!16
6pointer%-=4
@�
J
T� �tellemoff(e$)
^er%=pointer%
h
!er%=0
r$(er%+4)=e$+�0
|*ș "Wimp_ReportError",er%,1,"HelpCtrl"
��
�
�3� �rtoz(T%):� q$:ȕ ?T%<>0:q$+=�?T%:T%+=1:�:=q$
�
�	� �pq
�� edited% �
�C� � �ok("File(s) edited but not saved. Really quit ?"):�no_quit
��
��
�
�
� �ok(e$)
�er%=pointer%
�
!er%=0
$(er%+4)=e$+�0
@ș "Wimp_ReportError",er%,&17,"Message from !HelpCtrl" � ,b%
=(b%=1)
&
0� �no_quit
:9q%!12=q%!8:q%!16=8:ș "Wimp_SendMessage",17,q%,q%!4:�
D
N� �dragend
Xd%=pointer%
b ș "Wimp_GetPointerInfo",,d%
l+d%!32=d%!4                   :tt%=d%!32
v+d%!28=!d%                    :te%=d%!28
�+d%!24=d%!16                  :tf%=d%!24
�+d%!20=d%!12                  :tw%=d%!20
�%d%!16=1     :d%!12=0     :d%!36=0
�)d%!40=0     :!d%=64      :$(d%+44)=f$
�+ș "Wimp_SendMessage",17,d%,d%!20,d%!24
�mr%=d%!8
��
�
�� �lastbit(s$)
�ȕ �s$,":")>0
�s$=�s$,�s$,":")+1)
��
�ȕ �s$,".")>0

s$=�s$,�s$,".")+1)

�

=s$

 

*	� �ds

4$�puticondata(saveas%,0,$(q%+44))

>f$=$(q%+44)

H
�sd(&FFD)

R�

\

f� �dragbox(w%,i%)

pd%=pointer%

z
!d%=w%

� ș "Wimp_GetWindowState",,d%

�"ys%=d%!16-d%!8:x%=d%!4:y%=d%!8

�d%!4=i%

�ș "Wimp_GetIconState",,d%

�f$=�lastbit(f$)

�d%!8+=x%

�d%!12+=y%+ys%

�
d%!16+=x%

�d%!20+=y%+ys%

�d%!24=0

�d%!28=0

�8ș "OS_ReadModeVariable",�,4 � ,,h%:h%=�extracth(h%)

�8ș "OS_ReadModeVariable",�,5 � ,,v%:v%=�extractv(v%)
d%!32=(h%*2)
d%!36=(v%*4)
	!d%=0
$
d%!4=5
.ș "Wimp_DragBox",,d%
8�
B
L� �quicksave
V� �f$,":")<1 � �f$,".")<1 �
`:�tellemoff("To save, drag icon to a directory viewer")
j�
t
�sd(&FFD)
~�
��
�
�
� �sd(t%)
�d%=pointer%
�
!d%=64
�
d%!20=tw%
�
d%!24=tf%
�
d%!28=te%
�
d%!32=tt%
�
d%!12=yr%
�d%!16=3
�d%!36=0
d%!40=t%

$(d%+44)=f$
%ș "Wimp_SendMessage",17,d%,d%!20
ș "OS_File",18,f$,t%
(ș "Wimp_CreateMenu",,-1
2�
<
F� �extracth(a%)
PȎ a% �
Z � 0 : =1280
d � 1 : =640
n � 2 : =320
x � 3 : =160
��
�
�� �extractv(a%)
�Ȏ a% �
� � 1 : =512
� � 2 : =256
��
�
�� �print(type)
�
Ȏ type �
�6 � 0 : h%=�("<StickyBrd$Dir>.Docs.!Manual.ReadMe")
�7 � 1 : h%=�("<StickyBrd$Dir>.Docs.!TechMan.ReadMe")
��
i%=�("Printer:")
�

�#i%,�#h%
"
� �#h%
,�#h%
6�#i%
@�
J
T� �trans(var$)
^"� I%=0 � 100 � 4:pointer%!I%=0
h1ș "XOS_ReadVarVal",var$,pointer%,100 � ,,r2%
r pointer%?r2%=13:=$(pointer%)
�
00000000  0d 00 0a 24 f4 20 3e 3c  53 74 69 63 6b 79 42 72  |...$. ><StickyBr|
00000010  64 48 65 6c 70 24 44 69  72 3e 2e 21 52 75 6e 49  |dHelp$Dir>.!RunI|
00000020  6d 61 67 65 0d 00 14 08  f4 20 50 44 0d 00 1e 0a  |mage..... PD....|
00000030  f4 20 31 39 39 32 0d 00  28 04 0d 00 32 61 ee 20  |. 1992..(...2a. |
00000040  85 20 f2 74 65 6c 6c 65  6d 6f 66 66 28 22 46 61  |. .tellemoff("Fa|
00000050  74 61 6c 20 65 72 72 6f  72 3a 20 28 74 79 70 65  |tal error: (type|
00000060  3d 22 2b c3 9e 2b 22 29  20 22 2b f6 24 2b 22 20  |="+..+") "+.$+" |
00000070  52 65 2d 72 75 6e 20 26  20 74 72 79 20 61 67 61  |Re-run & try aga|
00000080  69 6e 2e 22 29 3a c8 99  20 22 57 69 6d 70 5f 43  |in."):.. "Wimp_C|
00000090  6c 6f 73 65 44 6f 77 6e  22 3a e0 0d 00 3c 48 f4  |loseDown":...<H.|
000000a0  20 65 72 72 6f 72 73 20  69 6e 20 74 68 69 73 20  | errors in this |
000000b0  62 69 74 20 6f 66 20 63  6f 64 65 20 63 61 6e 6e  |bit of code cann|
000000c0  6f 74 20 62 65 20 64 65  61 6c 74 20 77 69 74 68  |ot be dealt with|
000000d0  20 2d 20 71 75 69 74 20  69 6d 6d 65 64 69 61 74  | - quit immediat|
000000e0  65 6c 79 0d 00 46 47 f4  20 49 66 20 79 6f 75 20  |ely..FG. If you |
000000f0  74 72 79 2c 20 74 65 6d  70 6c 61 74 65 73 20 6d  |try, templates m|
00000100  69 67 68 74 20 6e 6f 74  20 62 65 20 6c 6f 61 64  |ight not be load|
00000110  65 64 2c 20 6d 65 6e 75  73 20 6e 6f 74 20 64 65  |ed, menus not de|
00000120  66 69 6e 65 64 20 65 74  63 2e 0d 00 50 44 de 20  |fined etc...PD. |
00000130  71 25 20 34 30 30 2c 75  73 65 66 75 6c 25 20 37  |q% 400,useful% 7|
00000140  30 30 2c 69 6e 64 25 20  26 32 30 30 2c 69 6e 64  |00,ind% &200,ind|
00000150  32 25 20 26 32 30 30 2c  6d 65 6e 75 25 20 33 30  |2% &200,menu% 30|
00000160  30 2c 70 6f 69 6e 74 65  72 25 20 34 30 30 0d 00  |0,pointer% 400..|
00000170  5a 19 de 20 68 6d 65 6e  25 20 26 38 30 2c 70 6d  |Z.. hmen% &80,pm|
00000180  65 6e 25 20 26 38 30 0d  00 64 2b de 20 69 63 6f  |en% &80..d+. ico|
00000190  6e 74 65 78 74 25 20 33  36 2c 69 63 6f 6e 76 61  |ntext% 36,iconva|
000001a0  6c 69 64 25 20 33 36 2c  69 6e 64 33 25 20 26 33  |lid% 36,ind3% &3|
000001b0  30 30 0d 00 6e 0d 65 64  69 74 65 64 25 3d a3 0d  |00..n.edited%=..|
000001c0  00 78 0e 24 71 25 3d 22  54 41 53 4b 22 0d 00 82  |.x.$q%="TASK"...|
000001d0  36 c8 99 20 22 57 69 6d  70 5f 49 6e 69 74 69 61  |6.. "Wimp_Initia|
000001e0  6c 69 73 65 22 2c 32 30  30 2c 21 71 25 2c 22 48  |lise",200,!q%,"H|
000001f0  65 6c 70 43 74 72 6c 22  20 b8 20 2c 2c 74 61 73  |elpCtrl" . ,,tas|
00000200  6b 68 25 0d 00 8c 40 c8  99 20 22 49 6e 74 65 72  |kh%...@.. "Inter|
00000210  66 61 63 65 5f 49 6e 69  74 69 61 6c 69 73 65 22  |face_Initialise"|
00000220  2c 2c 74 61 73 6b 68 25  3a f4 20 63 6c 61 69 6d  |,,taskh%:. claim|
00000230  20 49 6e 74 65 72 66 61  63 65 20 70 6f 69 6e 74  | Interface point|
00000240  65 72 73 0d 00 96 3b c8  99 20 22 57 69 6d 70 5f  |ers...;.. "Wimp_|
00000250  4f 70 65 6e 54 65 6d 70  6c 61 74 65 22 2c 2c 22  |OpenTemplate",,"|
00000260  3c 53 74 69 63 6b 79 42  72 64 48 65 6c 70 24 44  |<StickyBrdHelp$D|
00000270  69 72 3e 2e 54 65 6d 70  6c 61 74 65 73 22 0d 00  |ir>.Templates"..|
00000280  a0 39 c8 99 20 22 57 69  6d 70 5f 4c 6f 61 64 54  |.9.. "Wimp_LoadT|
00000290  65 6d 70 6c 61 74 65 22  2c 2c 71 25 2c 69 6e 64  |emplate",,q%,ind|
000002a0  25 2c 69 6e 64 25 2b 26  32 30 30 2c 2d 31 2c 22  |%,ind%+&200,-1,"|
000002b0  69 6e 66 6f 22 2c 30 0d  00 aa 2a c8 99 20 22 57  |info",0...*.. "W|
000002c0  69 6d 70 5f 43 72 65 61  74 65 57 69 6e 64 6f 77  |imp_CreateWindow|
000002d0  22 2c 2c 71 25 20 b8 20  69 6e 66 6f 77 69 6e 64  |",,q% . infowind|
000002e0  25 0d 00 b4 3f c8 99 20  22 57 69 6d 70 5f 4c 6f  |%...?.. "Wimp_Lo|
000002f0  61 64 54 65 6d 70 6c 61  74 65 22 2c 2c 71 25 2c  |adTemplate",,q%,|
00000300  69 6e 64 32 25 2c 69 6e  64 32 25 2b 26 32 30 30  |ind2%,ind2%+&200|
00000310  2c 2d 31 2c 22 6d 6f 72  65 69 6e 66 6f 22 2c 30  |,-1,"moreinfo",0|
00000320  0d 00 be 2a c8 99 20 22  57 69 6d 70 5f 43 72 65  |...*.. "Wimp_Cre|
00000330  61 74 65 57 69 6e 64 6f  77 22 2c 2c 71 25 20 b8  |ateWindow",,q% .|
00000340  20 6d 6f 72 65 69 6e 66  6f 25 0d 00 c8 3d c8 99  | moreinfo%...=..|
00000350  20 22 57 69 6d 70 5f 4c  6f 61 64 54 65 6d 70 6c  | "Wimp_LoadTempl|
00000360  61 74 65 22 2c 2c 71 25  2c 69 6e 64 33 25 2c 69  |ate",,q%,ind3%,i|
00000370  6e 64 33 25 2b 26 33 30  30 2c 2d 31 2c 22 73 61  |nd3%+&300,-1,"sa|
00000380  76 65 61 73 22 2c 30 0d  00 d2 28 c8 99 20 22 57  |veas",0...(.. "W|
00000390  69 6d 70 5f 43 72 65 61  74 65 57 69 6e 64 6f 77  |imp_CreateWindow|
000003a0  22 2c 2c 71 25 20 b8 20  73 61 76 65 61 73 25 0d  |",,q% . saveas%.|
000003b0  00 dc 1b c8 99 20 22 57  69 6d 70 5f 43 6c 6f 73  |..... "Wimp_Clos|
000003c0  65 54 65 6d 70 6c 61 74  65 22 0d 00 e6 18 f2 6d  |eTemplate".....m|
000003d0  65 6e 75 3a f4 20 63 72  65 61 74 65 20 6d 65 6e  |enu:. create men|
000003e0  75 73 0d 00 f0 04 0d 00  fa 33 69 63 6f 6e 25 3d  |us.......3icon%=|
000003f0  a4 69 63 6f 6e 62 61 72  28 22 21 68 65 6c 70 22  |.iconbar("!help"|
00000400  2c 22 22 2c 2d 31 29 3a  f4 20 69 63 6f 6e 20 6f  |,"",-1):. icon o|
00000410  6e 20 69 63 6f 6e 62 61  72 0d 01 04 3c 20 20 20  |n iconbar...<   |
00000420  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
*
00000440  20 f4 20 2d 31 20 3d 20  55 74 69 6c 69 74 79 20  | . -1 = Utility |
00000450  28 52 48 53 29 0d 01 0e  3c 20 20 20 20 20 20 20  |(RHS)...<       |
00000460  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000470  20 20 20 20 20 20 20 20  20 20 20 20 20 f4 20 2d  |             . -|
00000480  32 20 3d 20 53 65 72 76  69 63 65 20 28 4c 48 53  |2 = Service (LHS|
00000490  29 0d 01 18 04 0d 01 22  23 71 75 69 74 25 3d a3  |)......"#quit%=.|
000004a0  3a f4 20 4e 6f 74 68 69  6e 67 20 68 61 70 70 65  |:. Nothing happe|
000004b0  6e 65 64 20 79 65 74 21  0d 01 2c 35 ff 22 46 69  |ned yet!..,5."Fi|
000004c0  6c 65 72 5f 4f 70 65 6e  44 69 72 20 22 2b a4 74  |ler_OpenDir "+.t|
000004d0  72 61 6e 73 28 22 53 74  69 63 6b 79 42 72 64 24  |rans("StickyBrd$|
000004e0  44 69 72 22 29 2b 22 2e  44 6f 63 73 22 0d 01 36  |Dir")+".Docs"..6|
000004f0  90 ee 20 85 20 e7 20 a4  65 72 72 6f 72 28 22 55  |.. . . .error("U|
00000500  6e 65 78 70 65 63 74 65  64 20 65 72 72 6f 72 3a  |nexpected error:|
00000510  20 22 2b f6 24 2b 22 20  28 69 6e 74 2e 20 65 72  | "+.$+" (int. er|
00000520  72 6f 72 20 63 6f 64 65  20 22 2b c3 9e 2b 22 29  |ror code "+..+")|
00000530  20 20 53 68 61 6c 6c 20  49 20 71 75 69 74 20 3f  |  Shall I quit ?|
00000540  22 2c 33 29 3d 31 20 c8  99 20 22 49 6e 74 65 72  |",3)=1 .. "Inter|
00000550  66 61 63 65 5f 43 6c 6f  73 65 44 6f 77 6e 22 2c  |face_CloseDown",|
00000560  2c 74 61 73 6b 68 25 3a  c8 99 20 22 57 69 6d 70  |,taskh%:.. "Wimp|
00000570  5f 43 6c 6f 73 65 44 6f  77 6e 22 3a e0 0d 01 40  |_CloseDown":...@|
00000580  4a f4 20 45 72 72 6f 72  20 68 61 6e 64 6c 65 72  |J. Error handler|
00000590  20 64 72 6f 70 73 20 74  68 72 6f 75 67 68 20 74  | drops through t|
000005a0  6f 20 77 69 6d 70 5f 70  6f 6c 6c 20 6c 6f 6f 70  |o wimp_poll loop|
000005b0  2c 20 41 46 54 45 52 20  77 69 6d 70 5f 69 6e 69  |, AFTER wimp_ini|
000005c0  74 69 61 6c 69 73 65 0d  01 4a 3e c8 99 20 22 4f  |tialise..J>.. "O|
000005d0  53 5f 52 65 61 64 4d 6f  6e 6f 74 6f 6e 69 63 54  |S_ReadMonotonicT|
000005e0  69 6d 65 22 20 b8 20 6f  74 25 3a f4 20 67 65 74  |ime" . ot%:. get|
000005f0  20 72 65 61 64 79 20 66  6f 72 20 77 69 6d 70 5f  | ready for wimp_|
00000600  70 6f 6c 6c 2c 0d 01 54  05 f5 0d 01 5e 3d c8 99  |poll,..T....^=..|
00000610  20 22 57 69 6d 70 5f 50  6f 6c 6c 49 64 6c 65 22  | "Wimp_PollIdle"|
00000620  2c 2c 71 25 2c 6f 74 25  20 b8 20 72 65 61 73 6f  |,,q%,ot% . reaso|
00000630  6e 25 3a f4 20 61 6e 64  20 70 6f 6c 6c 20 74 68  |n%:. and poll th|
00000640  65 20 77 69 6d 70 2e 0d  01 68 43 c8 99 20 22 49  |e wimp...hC.. "I|
00000650  6e 74 65 72 66 61 63 65  5f 50 6f 6c 6c 22 2c 72  |nterface_Poll",r|
00000660  65 61 73 6f 6e 25 2c 2c  74 61 73 6b 68 25 3a f4  |eason%,,taskh%:.|
00000670  20 45 6e 73 75 72 65 20  70 6f 69 6e 74 65 72 20  | Ensure pointer |
00000680  75 70 20 74 6f 20 64 61  74 65 0d 01 72 23 c8 99  |up to date..r#..|
00000690  20 22 4f 53 5f 52 65 61  64 4d 6f 6e 6f 74 6f 6e  | "OS_ReadMonoton|
000006a0  69 63 54 69 6d 65 22 20  b8 20 6e 74 25 0d 01 7c  |icTime" . nt%..||
000006b0  17 c8 95 20 6e 74 25 3e  6f 74 25 3a 6f 74 25 2b  |... nt%>ot%:ot%+|
000006c0  3d 31 3a ce 0d 01 86 10  c8 8e 20 72 65 61 73 6f  |=1:....... reaso|
000006d0  6e 25 20 ca 0d 01 90 15  c9 20 31 20 20 20 20 20  |n% ...... 1     |
000006e0  3a 20 f2 72 65 64 72 61  77 0d 01 9a 26 c9 20 32  |: .redraw...&. 2|
000006f0  20 20 20 20 20 3a 20 c8  99 20 22 57 69 6d 70 5f  |     : .. "Wimp_|
00000700  4f 70 65 6e 57 69 6e 64  6f 77 22 2c 2c 71 25 0d  |OpenWindow",,q%.|
00000710  01 a4 27 c9 20 33 20 20  20 20 20 3a 20 c8 99 20  |..'. 3     : .. |
00000720  22 57 69 6d 70 5f 43 6c  6f 73 65 57 69 6e 64 6f  |"Wimp_CloseWindo|
00000730  77 22 2c 2c 71 25 0d 01  ae 19 c9 20 36 20 20 20  |w",,q%..... 6   |
00000740  20 20 3a 20 f2 63 68 65  63 6b 6d 6f 75 73 65 0d  |  : .checkmouse.|
00000750  01 b8 26 c9 20 37 20 20  20 20 20 3a 20 66 24 3d  |..&. 7     : f$=|
00000760  a4 6c 61 73 74 62 69 74  28 66 24 29 3a f2 64 72  |.lastbit(f$):.dr|
00000770  61 67 65 6e 64 0d 01 c2  1b c9 20 39 20 20 20 20  |agend..... 9    |
00000780  20 3a 20 f2 70 72 6f 63  65 73 73 5f 6d 65 6e 75  | : .process_menu|
00000790  0d 01 cc 16 c9 20 31 37  2c 31 38 20 3a 20 f2 6d  |..... 17,18 : .m|
000007a0  65 73 73 61 67 65 0d 01  d6 05 cb 0d 01 e0 0b fd  |essage..........|
000007b0  20 71 75 69 74 25 0d 01  ea 24 c8 99 20 22 49 6e  | quit%...$.. "In|
000007c0  74 65 72 66 61 63 65 5f  43 6c 6f 73 65 44 6f 77  |terface_CloseDow|
000007d0  6e 22 2c 2c 74 61 73 6b  68 25 0d 01 f4 2c c8 99  |n",,taskh%...,..|
000007e0  20 22 57 69 6d 70 5f 43  6c 6f 73 65 44 6f 77 6e  | "Wimp_CloseDown|
000007f0  22 3a e0 3a f4 20 6c 65  61 76 65 20 67 72 61 63  |":.:. leave grac|
00000800  65 66 75 6c 6c 79 0d 01  fe 04 0d 02 08 1d dd 20  |efully......... |
00000810  a4 69 63 6f 6e 62 61 72  28 76 24 2c 74 24 2c 68  |.iconbar(v$,t$,h|
00000820  61 6e 64 6c 65 25 29 0d  02 12 08 ea 20 69 25 0d  |andle%)..... i%.|
00000830  02 1c 3d e7 20 68 61 6e  64 6c 65 25 3d 2d 32 20  |..=. handle%=-2 |
00000840  8c 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |.               |
00000850  20 20 20 20 20 20 3a f4  20 53 65 72 76 69 63 65  |      :. Service|
00000860  20 6f 72 20 55 74 69 6c  69 74 79 3f 0d 02 26 24  | or Utility?..&$|
00000870  24 69 63 6f 6e 76 61 6c  69 64 25 3d 22 53 22 2b  |$iconvalid%="S"+|
00000880  76 24 3a 24 69 63 6f 6e  74 65 78 74 25 3d 74 24  |v$:$icontext%=t$|
00000890  0d 02 30 05 cd 0d 02 3a  10 71 25 21 30 3d 68 61  |..0....:.q%!0=ha|
000008a0  6e 64 6c 65 25 0d 02 44  0a 71 25 21 34 3d 30 0d  |ndle%..D.q%!4=0.|
000008b0  02 4e 3f e7 20 68 61 6e  64 6c 65 25 3d 2d 31 20  |.N?. handle%=-1 |
000008c0  71 25 21 38 3d 30 20 8b  20 71 25 21 38 3d 2d 31  |q%!8=0 . q%!8=-1|
000008d0  36 20 20 20 20 20 3a f4  20 53 65 74 20 75 70 20  |6     :. Set up |
000008e0  70 72 6f 70 65 72 20 63  6f 2d 6f 72 64 73 0d 02  |proper co-ords..|
000008f0  58 24 e7 20 68 61 6e 64  6c 65 25 3d 2d 31 20 71  |X$. handle%=-1 q|
00000900  25 21 31 32 3d 36 38 20  8b 20 71 25 21 31 32 3d  |%!12=68 . q%!12=|
00000910  37 38 0d 02 62 24 e7 20  68 61 6e 64 6c 65 25 3d  |78..b$. handle%=|
00000920  2d 31 20 71 25 21 31 36  3d 39 36 20 8b 20 71 25  |-1 q%!16=96 . q%|
00000930  21 31 36 3d 39 30 0d 02  6c 3f e7 20 68 61 6e 64  |!16=90..l?. hand|
00000940  6c 65 25 3d 2d 31 20 8c  20 20 20 20 20 20 20 20  |le%=-1 .        |
00000950  20 20 20 20 20 20 20 20  20 20 20 20 20 3a f4 20  |             :. |
00000960  41 6e 64 20 70 72 6f 70  65 72 20 69 63 6f 6e 20  |And proper icon |
00000970  66 6c 61 67 73 0d 02 76  0f 71 25 21 32 30 3d 26  |flags..v.q%!20=&|
00000980  32 30 30 32 0d 02 80 05  cc 0d 02 8a 2b 71 25 21  |2002........+q%!|
00000990  32 30 3d 25 30 30 30 31  30 31 31 31 30 30 30 30  |20=%000101110000|
000009a0  30 30 30 30 30 30 31 31  30 30 30 31 30 30 31 30  |0000001100010010|
000009b0  31 30 31 31 0d 02 94 05  cd 0d 02 9e 35 e7 20 68  |1011........5. h|
000009c0  61 6e 64 6c 65 25 3d 2d  31 20 8c 20 20 20 20 20  |andle%=-1 .     |
000009d0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000009e0  3a f4 20 49 6e 64 69 72  65 63 74 65 64 3f 0d 02  |:. Indirected?..|
000009f0  a8 0f 24 28 71 25 2b 32  34 29 3d 76 24 0d 02 b2  |..$(q%+24)=v$...|
00000a00  05 cc 0d 02 bc 13 71 25  21 32 34 3d 69 63 6f 6e  |......q%!24=icon|
00000a10  74 65 78 74 25 0d 02 c6  14 71 25 21 32 38 3d 69  |text%....q%!28=i|
00000a20  63 6f 6e 76 61 6c 69 64  25 0d 02 d0 19 71 25 21  |convalid%....q%!|
00000a30  33 32 3d a9 28 24 69 63  6f 6e 74 65 78 74 25 29  |32=.($icontext%)|
00000a40  2b 31 0d 02 da 05 cd 0d  02 e4 3d c8 99 20 22 57  |+1........=.. "W|
00000a50  69 6d 70 5f 43 72 65 61  74 65 49 63 6f 6e 22 2c  |imp_CreateIcon",|
00000a60  2c 71 25 20 b8 20 69 25  20 20 20 20 20 20 20 20  |,q% . i%        |
00000a70  3a f4 20 41 6e 64 20 64  72 61 77 20 74 68 65 20  |:. And draw the |
00000a80  69 63 6f 6e 0d 02 ee 07  3d 69 25 0d 02 f8 04 0d  |icon....=i%.....|
00000a90  03 02 0e dd 20 f2 6d 65  73 73 61 67 65 0d 03 0c  |.... .message...|
00000aa0  0c 79 72 25 3d 71 25 21  38 0d 03 16 10 c8 8e 20  |.yr%=q%!8...... |
00000ab0  28 71 25 21 31 36 29 20  ca 0d 03 20 25 c9 20 30  |(q%!16) ... %. 0|
00000ac0  20 20 20 20 3a 20 71 75  69 74 25 3d b9 3a f4 20  |    : quit%=.:. |
00000ad0  4d 65 73 73 61 67 65 5f  51 75 69 74 20 3f 0d 03  |Message_Quit ?..|
00000ae0  2a 25 c9 20 32 20 20 20  20 3a 20 f2 64 73 3a f4  |*%. 2    : .ds:.|
00000af0  20 4d 65 73 73 61 67 65  5f 44 61 74 61 53 61 76  | Message_DataSav|
00000b00  65 20 3f 0d 03 34 25 c9  20 33 20 20 20 20 3a 20  |e ?..4%. 3    : |
00000b10  f2 64 6c 3a f4 20 4d 65  73 73 61 67 65 5f 44 61  |.dl:. Message_Da|
00000b20  74 61 4c 6f 61 64 20 3f  0d 03 3e 25 c9 20 35 20  |taLoad ?..>%. 5 |
00000b30  20 20 20 3a 20 f2 64 6f  3a f4 20 4d 65 73 73 61  |   : .do:. Messa|
00000b40  67 65 5f 44 61 74 61 4f  70 65 6e 20 3f 0d 03 48  |ge_DataOpen ?..H|
00000b50  24 c9 20 38 20 20 20 20  3a 20 f2 70 71 3a f4 20  |$. 8    : .pq:. |
00000b60  4d 65 73 73 61 67 65 5f  50 72 65 51 75 69 74 20  |Message_PreQuit |
00000b70  3f 0d 03 52 27 c9 20 26  35 30 32 20 3a 20 f2 73  |?..R'. &502 : .s|
00000b80  65 6e 64 68 65 6c 70 3a  f4 20 4d 65 73 73 61 67  |endhelp:. Messag|
00000b90  65 5f 48 65 6c 70 20 3f  0d 03 5c 05 cb 0d 03 66  |e_Help ?..\....f|
00000ba0  05 e1 0d 03 70 04 0d 03  7a 11 dd 20 f2 63 68 65  |....p...z.. .che|
00000bb0  63 6b 6d 6f 75 73 65 0d  03 84 12 68 61 6e 64 6c  |ckmouse....handl|
00000bc0  65 3d 28 71 25 21 31 32  29 0d 03 8e 10 c8 8e 20  |e=(q%!12)...... |
00000bd0  28 71 25 21 31 32 29 20  ca 0d 03 98 14 c9 20 2d  |(q%!12) ...... -|
00000be0  32 3a f4 20 69 63 6f 6e  62 61 72 20 3f 0d 03 a2  |2:. iconbar ?...|
00000bf0  0f c8 8e 20 28 71 25 21  38 29 20 ca 0d 03 ac 3c  |... (q%!8) ....<|
00000c00  c9 20 34 20 3a 20 ff 20  22 46 69 6c 65 72 5f 4f  |. 4 : . "Filer_O|
00000c10  70 65 6e 44 69 72 20 22  2b a4 74 72 61 6e 73 28  |penDir "+.trans(|
00000c20  22 53 74 69 63 6b 79 42  72 64 24 44 69 72 22 29  |"StickyBrd$Dir")|
00000c30  2b 22 2e 44 6f 63 73 22  0d 03 b6 30 c9 20 32 20  |+".Docs"...0. 2 |
00000c40  3a 20 c8 99 20 22 57 69  6d 70 5f 43 72 65 61 74  |: .. "Wimp_Creat|
00000c50  65 4d 65 6e 75 22 2c 2c  6d 65 6e 75 25 2c 21 71  |eMenu",,menu%,!q|
00000c60  25 2d 36 34 2c 33 32 30  0d 03 c0 14 c9 20 31 20  |%-64,320..... 1 |
00000c70  3a 20 f4 20 41 64 6a 75  73 74 20 3f 0d 03 ca 05  |: . Adjust ?....|
00000c80  cb 0d 03 d4 1e c9 20 69  6e 66 6f 77 69 6e 64 25  |...... infowind%|
00000c90  3a f4 20 41 6e 64 20 61  67 61 69 6e 2e 2e 2e 0d  |:. And again....|
00000ca0  03 de 0f c8 8e 20 28 71  25 21 38 29 20 ca 0d 03  |..... (q%!8) ...|
00000cb0  e8 14 c9 20 34 20 3a 20  c8 8e 20 71 25 21 31 36  |... 4 : .. q%!16|
00000cc0  20 ca 0d 03 f2 4f c9 20  39 20 3a 20 f2 73 6c 61  | ....O. 9 : .sla|
00000cd0  62 69 63 6f 6e 3a c8 99  20 22 57 69 6d 70 5f 43  |bicon:.. "Wimp_C|
00000ce0  72 65 61 74 65 4d 65 6e  75 22 2c 2c 2d 31 3a f2  |reateMenu",,-1:.|
00000cf0  6f 70 65 6e 75 70 28 6d  6f 72 65 69 6e 66 6f 25  |openup(moreinfo%|
00000d00  2c 32 34 30 2c 37 36 32  2c 38 30 30 2c 36 30 30  |,240,762,800,600|
00000d10  29 0d 03 fc 05 cb 0d 04  06 05 cb 0d 04 10 0f c9  |)...............|
00000d20  20 6d 6f 72 65 69 6e 66  6f 25 0d 04 1a 0d c8 8e  | moreinfo%......|
00000d30  20 71 25 21 38 20 ca 0d  04 24 14 c9 20 34 20 3a  | q%!8 ...$.. 4 :|
00000d40  20 c8 8e 20 71 25 21 31  36 20 ca 0d 04 2e 25 c9  | .. q%!16 ....%.|
00000d50  20 31 34 20 3a 20 f2 73  6c 61 62 69 63 6f 6e 3a  | 14 : .slabicon:|
00000d60  f2 73 68 75 74 28 6d 6f  72 65 69 6e 66 6f 25 29  |.shut(moreinfo%)|
00000d70  0d 04 38 05 cb 0d 04 42  05 cb 0d 04 4c 0d c9 20  |..8....B....L.. |
00000d80  73 61 76 65 61 73 25 0d  04 56 0d c8 8e 20 71 25  |saveas%..V... q%|
00000d90  21 38 20 ca 0d 04 60 14  c9 20 34 20 3a 20 c8 8e  |!8 ...`.. 4 : ..|
00000da0  20 71 25 21 31 36 20 ca  0d 04 6a 39 c9 20 31 20  | q%!16 ...j9. 1 |
00000db0  3a 20 f2 73 6c 61 62 69  63 6f 6e 3a 66 24 3d a4  |: .slabicon:f$=.|
00000dc0  67 65 74 69 63 6f 6e 64  61 74 61 28 73 61 76 65  |geticondata(save|
00000dd0  61 73 25 2c 30 29 3a f2  71 75 69 63 6b 73 61 76  |as%,0):.quicksav|
00000de0  65 0d 04 74 38 c9 20 33  20 3a 20 66 24 3d a4 67  |e..t8. 3 : f$=.g|
00000df0  65 74 69 63 6f 6e 64 61  74 61 28 73 61 76 65 61  |eticondata(savea|
00000e00  73 25 2c 30 29 3a f2 64  72 61 67 62 6f 78 28 73  |s%,0):.dragbox(s|
00000e10  61 76 65 61 73 25 2c 32  29 0d 04 7e 05 cb 0d 04  |aveas%,2)..~....|
00000e20  88 05 cb 0d 04 92 05 cb  0d 04 9c 05 e1 0d 04 a6  |................|
00000e30  04 0d 04 b0 0b dd 20 f2  6d 65 6e 75 0d 04 ba 20  |...... .menu... |
00000e40  f4 20 53 65 74 75 70 20  6d 65 6e 75 73 20 61 6e  |. Setup menus an|
00000e50  64 20 6d 65 6e 75 20 62  6c 6f 63 6b 0d 04 c4 0c  |d menu block....|
00000e60  50 25 3d 6d 65 6e 75 25  0d 04 ce 12 66 6c 61 67  |P%=menu%....flag|
00000e70  73 3d 26 37 30 30 30 30  32 31 0d 04 d8 1e f2 6d  |s=&7000021.....m|
00000e80  65 6e 75 5f 68 65 61 64  65 72 28 22 48 65 6c 70  |enu_header("Help|
00000e90  43 74 72 6c 22 2c 38 29  0d 04 e2 2a f2 6d 65 6e  |Ctrl",8)...*.men|
00000ea0  75 5f 69 74 65 6d 28 26  30 32 2c 69 6e 66 6f 77  |u_item(&02,infow|
00000eb0  69 6e 64 25 2c 66 6c 61  67 73 2c 22 49 6e 66 6f  |ind%,flags,"Info|
00000ec0  22 29 0d 04 ec 26 f2 6d  65 6e 75 5f 69 74 65 6d  |")...&.menu_item|
00000ed0  28 26 30 30 2c 68 6d 65  6e 25 2c 66 6c 61 67 73  |(&00,hmen%,flags|
00000ee0  2c 22 48 65 6c 70 22 29  0d 04 f6 27 f2 6d 65 6e  |,"Help")...'.men|
00000ef0  75 5f 69 74 65 6d 28 26  30 32 2c 70 6d 65 6e 25  |u_item(&02,pmen%|
00000f00  2c 66 6c 61 67 73 2c 22  50 72 69 6e 74 22 29 0d  |,flags,"Print").|
00000f10  05 00 23 f2 6d 65 6e 75  5f 69 74 65 6d 28 26 38  |..#.menu_item(&8|
00000f20  30 2c 2d 31 2c 66 6c 61  67 73 2c 22 51 75 69 74  |0,-1,flags,"Quit|
00000f30  22 29 0d 05 0a 0c 50 25  3d 68 6d 65 6e 25 0d 05  |")....P%=hmen%..|
00000f40  14 1a f2 6d 65 6e 75 5f  68 65 61 64 65 72 28 22  |...menu_header("|
00000f50  48 65 6c 70 22 2c 39 29  0d 05 1e 26 f2 6d 65 6e  |Help",9)...&.men|
00000f60  75 5f 69 74 65 6d 28 26  30 30 2c 2d 31 2c 66 6c  |u_item(&00,-1,fl|
00000f70  61 67 73 2c 22 21 4d 61  6e 75 61 6c 22 29 0d 05  |ags,"!Manual")..|
00000f80  28 27 f2 6d 65 6e 75 5f  69 74 65 6d 28 26 38 30  |('.menu_item(&80|
00000f90  2c 2d 31 2c 66 6c 61 67  73 2c 22 21 54 65 63 68  |,-1,flags,"!Tech|
00000fa0  4d 61 6e 22 29 0d 05 32  0c 50 25 3d 70 6d 65 6e  |Man")..2.P%=pmen|
00000fb0  25 0d 05 3c 1b f2 6d 65  6e 75 5f 68 65 61 64 65  |%..<..menu_heade|
00000fc0  72 28 22 50 72 69 6e 74  22 2c 39 29 0d 05 46 26  |r("Print",9)..F&|
00000fd0  f2 6d 65 6e 75 5f 69 74  65 6d 28 26 30 30 2c 2d  |.menu_item(&00,-|
00000fe0  31 2c 66 6c 61 67 73 2c  22 21 4d 61 6e 75 61 6c  |1,flags,"!Manual|
00000ff0  22 29 0d 05 50 27 f2 6d  65 6e 75 5f 69 74 65 6d  |")..P'.menu_item|
00001000  28 26 38 30 2c 2d 31 2c  66 6c 61 67 73 2c 22 21  |(&80,-1,flags,"!|
00001010  54 65 63 68 4d 61 6e 22  29 0d 05 5a 05 e1 0d 05  |TechMan")..Z....|
00001020  64 04 0d 05 6e 18 dd 20  f2 6d 65 6e 75 5f 68 65  |d...n.. .menu_he|
00001030  61 64 65 72 28 54 24 2c  77 29 0d 05 78 0a 24 50  |ader(T$,w)..x.$P|
00001040  25 3d 54 24 0d 05 82 10  50 25 21 31 32 3d 26 37  |%=T$....P%!12=&7|
00001050  30 32 30 37 0d 05 8c 0e  50 25 21 31 36 3d 77 2a  |0207....P%!16=w*|
00001060  31 36 0d 05 96 0c 50 25  21 32 30 3d 34 30 0d 05  |16....P%!20=40..|
00001070  a0 0b 50 25 21 32 34 3d  30 0d 05 aa 0a 50 25 2b  |..P%!24=0....P%+|
00001080  3d 32 38 0d 05 b4 05 e1  0d 05 be 04 0d 05 c8 1d  |=28.............|
00001090  dd 20 f2 6d 65 6e 75 5f  69 74 65 6d 28 41 25 2c  |. .menu_item(A%,|
000010a0  42 25 2c 43 25 2c 54 24  29 0d 05 d2 0b 50 25 21  |B%,C%,T$)....P%!|
000010b0  30 3d 41 25 0d 05 dc 0b  50 25 21 34 3d 42 25 0d  |0=A%....P%!4=B%.|
000010c0  05 e6 0b 50 25 21 38 3d  43 25 0d 05 f0 0f 24 28  |...P%!8=C%....$(|
000010d0  50 25 2b 31 32 29 3d 54  24 0d 05 fa 0a 50 25 2b  |P%+12)=T$....P%+|
000010e0  3d 32 34 0d 06 04 05 e1  0d 06 0e 04 0d 06 18 27  |=24............'|
000010f0  dd 20 a4 65 72 72 6f 72  28 65 24 2c 62 25 29 3a  |. .error(e$,b%):|
00001100  21 71 25 3d 30 3a 24 28  71 25 2b 34 29 3d 65 24  |!q%=0:$(q%+4)=e$|
00001110  2b bd 30 0d 06 22 30 c8  99 20 22 57 69 6d 70 5f  |+.0.."0.. "Wimp_|
00001120  52 65 70 6f 72 74 45 72  72 6f 72 22 2c 71 25 2c  |ReportError",q%,|
00001130  62 25 2c 22 48 65 6c 70  43 74 72 6c 22 20 b8 20  |b%,"HelpCtrl" . |
00001140  2c 62 25 0d 06 2c 07 3d  62 25 0d 06 36 04 0d 06  |,b%..,.=b%..6...|
00001150  40 09 dd 20 f2 64 6c 0d  06 4a 0b ea 20 66 24 2c  |@.. .dl..J.. f$,|
00001160  54 25 0d 06 54 1f 66 24  3d c4 32 35 30 2c 22 20  |T%..T.f$=.250," |
00001170  22 29 3a 66 24 3d 22 22  3a 54 25 3d 71 25 2b 34  |"):f$="":T%=q%+4|
00001180  34 0d 06 5e 1e c8 95 20  3f 54 25 3c 3e 30 3a 66  |4..^... ?T%<>0:f|
00001190  24 2b 3d bd 3f 54 25 3a  54 25 2b 3d 31 3a ce 0d  |$+=.?T%:T%+=1:..|
000011a0  06 68 0e c8 8e 20 71 25  21 34 30 20 ca 0d 06 72  |.h... q%!40 ...r|
000011b0  05 cb 0d 06 7c 32 71 25  21 31 32 3d 71 25 21 38  |....|2q%!12=q%!8|
000011c0  3a 71 25 21 31 36 3d 34  3a c8 99 20 22 57 69 6d  |:q%!16=4:.. "Wim|
000011d0  70 5f 53 65 6e 64 4d 65  73 73 61 67 65 22 2c 31  |p_SendMessage",1|
000011e0  37 2c 71 25 0d 06 86 05  e1 0d 06 90 04 0d 06 9a  |7,q%............|
000011f0  09 dd 20 f2 64 6f 0d 06  a4 0b ea 20 66 24 2c 54  |.. .do..... f$,T|
00001200  25 0d 06 ae 26 66 24 3d  c4 32 35 30 2c 22 20 22  |%...&f$=.250," "|
00001210  29 3a 66 24 3d 22 22 3a  66 24 3d a4 72 74 6f 7a  |):f$="":f$=.rtoz|
00001220  28 71 25 2b 34 34 29 0d  06 b8 0e c8 8e 20 71 25  |(q%+44)...... q%|
00001230  21 34 30 20 ca 0d 06 c2  09 7f 20 3a 20 e1 0d 06  |!40 ...... : ...|
00001240  cc 05 cb 0d 06 d6 32 71  25 21 31 32 3d 71 25 21  |......2q%!12=q%!|
00001250  38 3a 71 25 21 31 36 3d  34 3a c8 99 20 22 57 69  |8:q%!16=4:.. "Wi|
00001260  6d 70 5f 53 65 6e 64 4d  65 73 73 61 67 65 22 2c  |mp_SendMessage",|
00001270  31 37 2c 71 25 0d 06 e0  05 e1 0d 06 ea 04 0d 06  |17,q%...........|
00001280  f4 0d dd 20 f2 72 65 64  72 61 77 0d 06 fe 25 c8  |... .redraw...%.|
00001290  99 20 22 57 69 6d 70 5f  52 65 64 72 61 77 57 69  |. "Wimp_RedrawWi|
000012a0  6e 64 6f 77 22 2c 2c 71  25 20 b8 20 66 6c 61 67  |ndow",,q% . flag|
000012b0  0d 07 08 0e c8 95 20 66  6c 61 67 3c 3e 30 0d 07  |...... flag<>0..|
000012c0  12 42 c8 99 20 22 49 6e  74 65 72 66 61 63 65 5f  |.B.. "Interface_|
000012d0  52 65 6e 64 65 72 33 64  57 69 6e 64 6f 77 22 2c  |Render3dWindow",|
000012e0  2c 71 25 3a f4 20 42 6f  72 64 65 72 20 61 6c 6c  |,q%:. Border all|
000012f0  20 69 63 6f 6e 73 20 69  6e 20 77 69 6e 64 6f 77  | icons in window|
00001300  0d 07 1c 25 c8 99 20 22  57 69 6d 70 5f 47 65 74  |...%.. "Wimp_Get|
00001310  52 65 63 74 61 6e 67 6c  65 22 2c 2c 71 25 20 b8  |Rectangle",,q% .|
00001320  20 66 6c 61 67 0d 07 26  05 ce 0d 07 30 05 e1 0d  | flag..&....0...|
00001330  07 3a 04 0d 07 44 13 dd  20 f2 70 72 6f 63 65 73  |.:...D.. .proces|
00001340  73 5f 6d 65 6e 75 0d 07  4e 0f c8 8e 20 68 61 6e  |s_menu..N... han|
00001350  64 6c 65 20 ca 0d 07 58  08 c9 20 2d 32 0d 07 62  |dle ...X.. -2..b|
00001360  0d c8 8e 20 71 25 21 30  20 ca 0d 07 6c 13 c9 20  |... q%!0 ...l.. |
00001370  31 20 3a 20 c8 8e 20 71  25 21 34 20 ca 0d 07 76  |1 : .. q%!4 ...v|
00001380  3d 20 20 20 20 20 20 20  20 20 20 c9 20 30 20 3a  |=          . 0 :|
00001390  20 ff 20 22 57 69 6d 70  54 61 73 6b 20 3c 53 74  | . "WimpTask <St|
000013a0  69 63 6b 79 42 72 64 24  44 69 72 3e 2e 44 6f 63  |ickyBrd$Dir>.Doc|
000013b0  73 2e 21 4d 61 6e 75 61  6c 22 0d 07 80 3e 20 20  |s.!Manual"...>  |
000013c0  20 20 20 20 20 20 20 20  c9 20 31 20 3a 20 ff 20  |        . 1 : . |
000013d0  22 57 69 6d 70 54 61 73  6b 20 3c 53 74 69 63 6b  |"WimpTask <Stick|
000013e0  79 42 72 64 24 44 69 72  3e 2e 44 6f 63 73 2e 21  |yBrd$Dir>.Docs.!|
000013f0  54 65 63 68 4d 61 6e 22  0d 07 8a 0e 20 20 20 20  |TechMan"....    |
00001400  20 20 20 20 20 cb 0d 07  94 16 c9 20 32 20 3a 20  |     ...... 2 : |
00001410  f2 70 72 69 6e 74 28 71  25 21 34 29 0d 07 9e 17  |.print(q%!4)....|
00001420  c9 20 33 20 3a 20 e7 20  65 64 69 74 65 64 25 3d  |. 3 : . edited%=|
00001430  b9 20 8c 0d 07 a8 44 20  20 20 20 20 20 20 20 20  |. ....D         |
00001440  20 e7 20 a4 6f 6b 28 22  46 69 6c 65 28 73 29 20  | . .ok("File(s) |
00001450  65 64 69 74 65 64 20 62  75 74 20 6e 6f 74 20 73  |edited but not s|
00001460  61 76 65 64 2e 20 52 65  61 6c 6c 79 20 71 75 69  |aved. Really qui|
00001470  74 20 3f 22 29 20 8c 0d  07 b2 16 20 20 20 20 20  |t ?") .....     |
00001480  20 20 20 20 20 20 71 75  69 74 25 3d b9 0d 07 bc  |      quit%=....|
00001490  0f 20 20 20 20 20 20 20  20 20 20 cc 0d 07 c6 16  |.          .....|
000014a0  20 20 20 20 20 20 20 20  20 20 20 71 75 69 74 25  |           quit%|
000014b0  3d a3 0d 07 d0 0f 20 20  20 20 20 20 20 20 20 20  |=.....          |
000014c0  cd 0d 07 da 0e 20 20 20  20 20 20 20 20 20 cc 0d  |.....         ..|
000014d0  07 e4 1b 20 20 20 20 20  20 20 20 20 20 e7 20 65  |...          . e|
000014e0  64 69 74 65 64 25 3d a3  20 8c 0d 07 ee 16 20 20  |dited%=. .....  |
000014f0  20 20 20 20 20 20 20 20  20 71 75 69 74 25 3d b9  |         quit%=.|
00001500  0d 07 f8 0f 20 20 20 20  20 20 20 20 20 20 cd 0d  |....          ..|
00001510  08 02 0e 20 20 20 20 20  20 20 20 20 cd 0d 08 0c  |...         ....|
00001520  05 cb 0d 08 16 05 cb 0d  08 20 05 e1 0d 08 2a 04  |......... ....*.|
00001530  0d 08 34 1d dd 20 f2 6f  70 65 6e 75 70 28 68 61  |..4.. .openup(ha|
00001540  6e 64 6c 65 2c 78 2c 79  2c 77 2c 68 29 0d 08 3e  |ndle,x,y,w,h)..>|
00001550  0f 71 25 21 30 3d 68 61  6e 64 6c 65 0d 08 48 13  |.q%!0=handle..H.|
00001560  71 25 21 34 3d 78 3a 71  25 21 38 3d 79 2d 68 0d  |q%!4=x:q%!8=y-h.|
00001570  08 52 15 71 25 21 31 32  3d 78 2b 77 3a 71 25 21  |.R.q%!12=x+w:q%!|
00001580  31 36 3d 79 0d 08 5c 13  71 25 21 32 30 3d 30 3a  |16=y..\.q%!20=0:|
00001590  71 25 21 32 34 3d 30 0d  08 66 0c 71 25 21 32 38  |q%!24=0..f.q%!28|
000015a0  3d 2d 31 0d 08 70 1c c8  99 20 22 57 69 6d 70 5f  |=-1..p... "Wimp_|
000015b0  4f 70 65 6e 57 69 6e 64  6f 77 22 2c 2c 71 25 0d  |OpenWindow",,q%.|
000015c0  08 7a 05 e1 0d 08 84 04  0d 08 8e 0f dd 20 f2 73  |.z........... .s|
000015d0  6c 61 62 69 63 6f 6e 0d  08 98 2e c8 99 20 22 49  |labicon...... "I|
000015e0  6e 74 65 72 66 61 63 65  5f 53 6c 61 62 42 75 74  |nterface_SlabBut|
000015f0  74 6f 6e 22 2c 2c 71 25  3a f4 20 53 6c 61 62 20  |ton",,q%:. Slab |
00001600  69 6e 2e 2e 2e 0d 08 a2  0a 71 25 21 38 3d 30 0d  |in.......q%!8=0.|
00001610  08 ac 2e c8 99 20 22 49  6e 74 65 72 66 61 63 65  |..... "Interface|
00001620  5f 53 6c 61 62 42 75 74  74 6f 6e 22 2c 2c 71 25  |_SlabButton",,q%|
00001630  3a f4 20 2e 2e 2e 61 6e  64 20 6f 75 74 0d 08 b6  |:. ...and out...|
00001640  05 e1 0d 08 c0 04 0d 08  ca 0f dd 20 f2 73 68 75  |........... .shu|
00001650  74 28 68 25 29 0d 08 d4  31 70 6f 69 6e 74 65 72  |t(h%)...1pointer|
00001660  25 21 30 3d 68 25 3a c8  99 20 22 57 69 6d 70 5f  |%!0=h%:.. "Wimp_|
00001670  43 6c 6f 73 65 57 69 6e  64 6f 77 22 2c 2c 70 6f  |CloseWindow",,po|
00001680  69 6e 74 65 72 25 0d 08  de 05 e1 0d 08 e8 04 0d  |inter%..........|
00001690  08 f2 0f dd 20 f2 73 65  6e 64 68 65 6c 70 0d 08  |.... .sendhelp..|
000016a0  fc 25 71 25 21 31 32 3d  71 25 21 38 3a 71 25 21  |.%q%!12=q%!8:q%!|
000016b0  31 36 3d 26 35 30 33 3a  68 65 6c 70 25 3d 71 25  |16=&503:help%=q%|
000016c0  2b 32 30 0d 09 06 41 68  65 6c 70 25 3d a4 68 65  |+20...Ahelp%=.he|
000016d0  6c 70 28 71 25 21 33 32  2c 71 25 21 33 36 2c 68  |lp(q%!32,q%!36,h|
000016e0  65 6c 70 25 29 3a e7 20  68 65 6c 70 25 3d 30 20  |elp%):. help%=0 |
000016f0  e1 3a f4 20 49 6e 74 65  72 66 61 63 65 20 68 65  |.:. Interface he|
00001700  6c 70 20 3f 0d 09 10 2b  3f 68 65 6c 70 25 3d 30  |lp ?...+?help%=0|
00001710  3a f4 20 4e 6f 2c 20 73  6f 20 73 65 6e 64 20 61  |:. No, so send a|
00001720  70 70 6c 69 63 61 74 69  6f 6e 20 68 65 6c 70 0d  |pplication help.|
00001730  09 1a 2a 21 71 25 3d 28  68 65 6c 70 25 2b 34 2d  |..*!q%=(help%+4-|
00001740  71 25 29 80 ac 33 3a f4  20 53 65 74 75 70 20 68  |q%)..3:. Setup h|
00001750  65 6c 70 20 62 6c 6f 63  6b 0d 09 24 32 c8 99 20  |elp block..$2.. |
00001760  22 57 69 6d 70 5f 53 65  6e 64 4d 65 73 73 61 67  |"Wimp_SendMessag|
00001770  65 22 2c 31 37 2c 71 25  2c 71 25 21 34 3a f4 20  |e",17,q%,q%!4:. |
00001780  61 6e 64 20 73 65 6e 64  20 69 74 0d 09 2e 05 e1  |and send it.....|
00001790  0d 09 38 04 0d 09 42 1e  dd 20 a4 68 65 6c 70 28  |..8...B.. .help(|
000017a0  77 69 6e 64 6f 77 25 2c  69 63 6f 6e 25 2c 74 6f  |window%,icon%,to|
000017b0  25 29 0d 09 4c 0b 24 74  6f 25 3d 22 22 0d 09 56  |%)..L.$to%=""..V|
000017c0  10 c8 8e 20 77 69 6e 64  6f 77 25 20 ca 0d 09 60  |... window% ...`|
000017d0  17 20 c9 20 2d 32 20 3a  20 f4 20 69 63 6f 6e 62  |. . -2 : . iconb|
000017e0  61 72 20 3f 0d 09 6a 0f  20 c8 8e 20 69 63 6f 6e  |ar ?..j. .. icon|
000017f0  25 20 ca 0d 09 74 1b 20  20 c9 20 69 63 6f 6e 25  |% ...t.  . icon%|
00001800  20 3a 20 f4 20 6d 79 20  69 63 6f 6e 20 3f 0d 09  | : . my icon ?..|
00001810  7e 4d 20 20 24 74 6f 25  3d 22 54 68 69 73 20 69  |~M  $to%="This i|
00001820  73 20 74 68 65 20 48 65  6c 70 43 74 72 6c 20 69  |s the HelpCtrl i|
00001830  63 6f 6e 2e 7c 4d 43 6c  69 63 6b 20 6f 6e 20 69  |con.|MClick on i|
00001840  74 20 74 6f 20 6f 70 65  6e 20 74 68 65 20 48 65  |t to open the He|
00001850  6c 70 20 77 69 6e 64 6f  77 2e 22 0d 09 88 06 20  |lp window.".... |
00001860  cb 0d 09 92 22 20 c9 20  69 6e 66 6f 77 69 6e 64  |...." . infowind|
00001870  25 20 3a 20 f4 20 69 6e  66 6f 20 77 69 6e 64 6f  |% : . info windo|
00001880  77 20 3f 0d 09 9c 0f 20  c8 8e 20 69 63 6f 6e 25  |w ?.... .. icon%|
00001890  20 ca 0d 09 a6 40 20 20  c9 20 2d 31 2c 30 2c 31  | ....@  . -1,0,1|
000018a0  2c 32 2c 33 2c 34 2c 35  2c 36 2c 37 2c 38 20 3a  |,2,3,4,5,6,7,8 :|
000018b0  20 f4 20 6e 6f 74 20 6f  76 65 72 20 27 43 6c 69  | . not over 'Cli|
000018c0  63 6b 20 68 65 72 65 2e  2e 2e 27 20 69 63 6f 6e  |ck here...' icon|
000018d0  20 3f 0d 09 b0 4b 20 20  24 74 6f 25 3d 22 54 68  | ?...K  $to%="Th|
000018e0  69 73 20 69 73 20 74 68  65 20 49 6e 66 6f 20 77  |is is the Info w|
000018f0  69 6e 64 6f 77 2e 7c 4d  49 74 20 70 72 6f 76 69  |indow.|MIt provi|
00001900  64 65 73 20 69 6e 66 6f  72 6d 61 74 69 6f 6e 20  |des information |
00001910  6f 6e 20 48 65 6c 70 43  74 72 6c 2e 22 0d 09 ba  |on HelpCtrl."...|
00001920  3e 20 20 7f 20 3a 20 c8  99 20 22 49 6e 74 65 72  |>  . : .. "Inter|
00001930  66 61 63 65 5f 53 65 6e  64 48 65 6c 70 22 2c 2c  |face_SendHelp",,|
00001940  71 25 3a 3d 30 3a f4 20  53 65 6e 64 20 49 6e 74  |q%:=0:. Send Int|
00001950  65 72 66 61 63 65 20 68  65 6c 70 0d 09 c4 06 20  |erface help.... |
00001960  cb 0d 09 ce 30 20 c9 20  6d 6f 72 65 69 6e 66 6f  |....0 . moreinfo|
00001970  25 20 3a 20 f4 20 27 41  62 6f 75 74 20 74 68 65  |% : . 'About the|
00001980  20 41 75 74 68 6f 72 27  20 77 69 6e 64 6f 77 20  | Author' window |
00001990  3f 0d 09 d8 0f 20 c8 8e  20 69 63 6f 6e 25 20 ca  |?.... .. icon% .|
000019a0  0d 09 e2 44 20 20 c9 20  2d 31 2c 30 2c 31 2c 32  |...D  . -1,0,1,2|
000019b0  2c 33 2c 34 2c 35 2c 36  2c 37 2c 38 2c 39 2c 31  |,3,4,5,6,7,8,9,1|
000019c0  30 2c 31 31 2c 31 32 2c  31 33 20 3a 20 f4 20 6e  |0,11,12,13 : . n|
000019d0  6f 74 20 6f 76 65 72 20  63 6c 6f 73 65 20 69 63  |ot over close ic|
000019e0  6f 6e 20 3f 0d 09 ec 52  20 20 24 74 6f 25 3d 22  |on ?...R  $to%="|
000019f0  54 68 69 73 20 69 73 20  61 20 73 65 63 6f 6e 64  |This is a second|
00001a00  61 72 79 20 69 6e 66 6f  20 77 69 6e 64 6f 77 2e  |ary info window.|
00001a10  7c 4d 49 74 20 67 69 76  65 73 20 69 6e 66 6f 72  ||MIt gives infor|
00001a20  6d 61 74 69 6f 6e 20 6f  6e 20 74 68 65 20 41 75  |mation on the Au|
00001a30  74 68 6f 72 2e 22 0d 09  f6 3e 20 20 7f 20 3a 20  |thor."...>  . : |
00001a40  c8 99 20 22 49 6e 74 65  72 66 61 63 65 5f 53 65  |.. "Interface_Se|
00001a50  6e 64 48 65 6c 70 22 2c  2c 71 25 3a 3d 30 3a f4  |ndHelp",,q%:=0:.|
00001a60  20 53 65 6e 64 20 49 6e  74 65 72 66 61 63 65 20  | Send Interface |
00001a70  68 65 6c 70 0d 0a 00 06  20 cb 0d 0a 0a 26 20 c9  |help.... ....& .|
00001a80  20 73 61 76 65 61 73 25  20 3a 20 f4 20 27 53 61  | saveas% : . 'Sa|
00001a90  76 65 20 61 73 3a 27 20  77 69 6e 64 6f 77 20 3f  |ve as:' window ?|
00001aa0  0d 0a 14 0f 20 c8 8e 20  69 63 6f 6e 25 20 ca 0d  |.... .. icon% ..|
00001ab0  0a 1e 1f 20 20 c9 20 2d  31 20 3a 20 f4 20 6f 76  |...  . -1 : . ov|
00001ac0  65 72 20 77 6f 72 6b 20  61 72 65 61 20 3f 0d 0a  |er work area ?..|
00001ad0  28 43 20 20 24 74 6f 25  3d 22 54 68 69 73 20 69  |(C  $to%="This i|
00001ae0  73 20 74 68 65 20 27 53  61 76 65 27 20 77 69 6e  |s the 'Save' win|
00001af0  64 6f 77 2e 7c 4d 49 74  20 69 73 20 75 73 65 64  |dow.|MIt is used|
00001b00  20 74 6f 20 73 61 76 65  20 61 20 66 69 6c 65 2e  | to save a file.|
00001b10  22 0d 0a 32 3e 20 20 7f  20 3a 20 c8 99 20 22 49  |"..2>  . : .. "I|
00001b20  6e 74 65 72 66 61 63 65  5f 53 65 6e 64 48 65 6c  |nterface_SendHel|
00001b30  70 22 2c 2c 71 25 3a 3d  30 3a f4 20 53 65 6e 64  |p",,q%:=0:. Send|
00001b40  20 49 6e 74 65 72 66 61  63 65 20 68 65 6c 70 0d  | Interface help.|
00001b50  0a 3c 06 20 cb 0d 0a 46  05 cb 0d 0a 50 10 3d 74  |.<. ...F....P.=t|
00001b60  6f 25 2b a9 28 24 74 6f  25 29 0d 0a 5a 04 0d 0a  |o%+.($to%)..Z...|
00001b70  64 21 dd 20 a4 67 65 74  69 63 6f 6e 64 61 74 61  |d!. .geticondata|
00001b80  28 77 69 6e 64 6f 77 25  2c 69 63 6f 6e 25 29 0d  |(window%,icon%).|
00001b90  0a 6e 16 70 6f 69 6e 74  65 72 25 21 30 3d 77 69  |.n.pointer%!0=wi|
00001ba0  6e 64 6f 77 25 0d 0a 78  14 70 6f 69 6e 74 65 72  |ndow%..x.pointer|
00001bb0  25 21 34 3d 69 63 6f 6e  25 0d 0a 82 24 c8 99 20  |%!4=icon%...$.. |
00001bc0  22 57 69 6d 70 5f 47 65  74 49 63 6f 6e 53 74 61  |"Wimp_GetIconSta|
00001bd0  74 65 22 2c 2c 70 6f 69  6e 74 65 72 25 0d 0a 8c  |te",,pointer%...|
00001be0  13 3d 24 28 70 6f 69 6e  74 65 72 25 21 32 38 29  |.=$(pointer%!28)|
00001bf0  0d 0a 96 04 0d 0a a0 24  dd 20 f2 70 75 74 69 63  |.......$. .putic|
00001c00  6f 6e 64 61 74 61 28 77  69 6e 64 6f 77 25 2c 69  |ondata(window%,i|
00001c10  63 6f 6e 25 2c 74 24 29  0d 0a aa 27 70 6f 69 6e  |con%,t$)...'poin|
00001c20  74 65 72 25 21 30 3d 77  69 6e 64 6f 77 25 3a 70  |ter%!0=window%:p|
00001c30  6f 69 6e 74 65 72 25 21  34 3d 69 63 6f 6e 25 0d  |ointer%!4=icon%.|
00001c40  0a b4 24 c8 99 20 22 57  69 6d 70 5f 47 65 74 49  |..$.. "Wimp_GetI|
00001c50  63 6f 6e 53 74 61 74 65  22 2c 2c 70 6f 69 6e 74  |conState",,point|
00001c60  65 72 25 0d 0a be 15 24  28 70 6f 69 6e 74 65 72  |er%....$(pointer|
00001c70  25 21 32 38 29 3d 74 24  0d 0a c8 1e 70 6f 69 6e  |%!28)=t$....poin|
00001c80  74 65 72 25 21 31 32 3d  30 3a 70 6f 69 6e 74 65  |ter%!12=0:pointe|
00001c90  72 25 21 38 3d 30 0d 0a  d2 24 c8 99 20 22 57 69  |r%!8=0...$.. "Wi|
00001ca0  6d 70 5f 53 65 74 49 63  6f 6e 53 74 61 74 65 22  |mp_SetIconState"|
00001cb0  2c 2c 70 6f 69 6e 74 65  72 25 0d 0a dc 05 e1 0d  |,,pointer%......|
00001cc0  0a e6 04 0d 0a f0 26 dd  20 f2 70 75 74 69 63 6f  |......&. .putico|
00001cd0  6e 73 70 72 69 74 65 28  77 69 6e 64 6f 77 25 2c  |nsprite(window%,|
00001ce0  69 63 6f 6e 25 2c 74 24  29 0d 0a fa 27 70 6f 69  |icon%,t$)...'poi|
00001cf0  6e 74 65 72 25 21 30 3d  77 69 6e 64 6f 77 25 3a  |nter%!0=window%:|
00001d00  70 6f 69 6e 74 65 72 25  21 34 3d 69 63 6f 6e 25  |pointer%!4=icon%|
00001d10  0d 0b 04 24 c8 99 20 22  57 69 6d 70 5f 47 65 74  |...$.. "Wimp_Get|
00001d20  49 63 6f 6e 53 74 61 74  65 22 2c 2c 70 6f 69 6e  |IconState",,poin|
00001d30  74 65 72 25 0d 0b 0e 22  c8 99 20 22 57 69 6d 70  |ter%...".. "Wimp|
00001d40  5f 44 65 6c 65 74 65 49  63 6f 6e 22 2c 2c 70 6f  |_DeleteIcon",,po|
00001d50  69 6e 74 65 72 25 0d 0b  18 28 70 6f 69 6e 74 65  |inter%...(pointe|
00001d60  72 25 21 34 3d 77 69 6e  64 6f 77 25 3a 24 28 70  |r%!4=window%:$(p|
00001d70  6f 69 6e 74 65 72 25 2b  32 38 29 3d 74 24 0d 0b  |ointer%+28)=t$..|
00001d80  22 2e 70 6f 69 6e 74 65  72 25 2b 3d 34 3a c8 99  |".pointer%+=4:..|
00001d90  20 22 57 69 6d 70 5f 43  72 65 61 74 65 49 63 6f  | "Wimp_CreateIco|
00001da0  6e 22 2c 2c 70 6f 69 6e  74 65 72 25 0d 0b 2c 52  |n",,pointer%..,R|
00001db0  c8 99 20 22 57 69 6d 70  5f 46 6f 72 63 65 52 65  |.. "Wimp_ForceRe|
00001dc0  64 72 61 77 22 2c 70 6f  69 6e 74 65 72 25 21 30  |draw",pointer%!0|
00001dd0  2c 70 6f 69 6e 74 65 72  25 21 34 2c 70 6f 69 6e  |,pointer%!4,poin|
00001de0  74 65 72 25 21 38 2c 70  6f 69 6e 74 65 72 25 21  |ter%!8,pointer%!|
00001df0  31 32 2c 70 6f 69 6e 74  65 72 25 21 31 36 0d 0b  |12,pointer%!16..|
00001e00  36 0f 70 6f 69 6e 74 65  72 25 2d 3d 34 0d 0b 40  |6.pointer%-=4..@|
00001e10  05 e1 0d 0b 4a 04 0d 0b  54 14 dd 20 f2 74 65 6c  |....J...T.. .tel|
00001e20  6c 65 6d 6f 66 66 28 65  24 29 0d 0b 5e 10 65 72  |lemoff(e$)..^.er|
00001e30  25 3d 70 6f 69 6e 74 65  72 25 0d 0b 68 0a 21 65  |%=pointer%..h.!e|
00001e40  72 25 3d 30 0d 0b 72 12  24 28 65 72 25 2b 34 29  |r%=0..r.$(er%+4)|
00001e50  3d 65 24 2b bd 30 0d 0b  7c 2a c8 99 20 22 57 69  |=e$+.0..|*.. "Wi|
00001e60  6d 70 5f 52 65 70 6f 72  74 45 72 72 6f 72 22 2c  |mp_ReportError",|
00001e70  65 72 25 2c 31 2c 22 48  65 6c 70 43 74 72 6c 22  |er%,1,"HelpCtrl"|
00001e80  0d 0b 86 05 e1 0d 0b 90  04 0d 0b 9a 33 dd 20 a4  |............3. .|
00001e90  72 74 6f 7a 28 54 25 29  3a ea 20 71 24 3a c8 95  |rtoz(T%):. q$:..|
00001ea0  20 3f 54 25 3c 3e 30 3a  71 24 2b 3d bd 3f 54 25  | ?T%<>0:q$+=.?T%|
00001eb0  3a 54 25 2b 3d 31 3a ce  3a 3d 71 24 0d 0b a4 04  |:T%+=1:.:=q$....|
00001ec0  0d 0b ae 09 dd 20 f2 70  71 0d 0b b8 0f e7 20 65  |..... .pq..... e|
00001ed0  64 69 74 65 64 25 20 8c  0d 0b c2 43 e7 20 ac 20  |dited% ....C. . |
00001ee0  a4 6f 6b 28 22 46 69 6c  65 28 73 29 20 65 64 69  |.ok("File(s) edi|
00001ef0  74 65 64 20 62 75 74 20  6e 6f 74 20 73 61 76 65  |ted but not save|
00001f00  64 2e 20 52 65 61 6c 6c  79 20 71 75 69 74 20 3f  |d. Really quit ?|
00001f10  22 29 3a f2 6e 6f 5f 71  75 69 74 0d 0b cc 05 cd  |"):.no_quit.....|
00001f20  0d 0b d6 05 e1 0d 0b e0  04 0d 0b ea 0d dd 20 a4  |.............. .|
00001f30  6f 6b 28 65 24 29 0d 0b  f4 10 65 72 25 3d 70 6f  |ok(e$)....er%=po|
00001f40  69 6e 74 65 72 25 0d 0b  fe 0a 21 65 72 25 3d 30  |inter%....!er%=0|
00001f50  0d 0c 08 12 24 28 65 72  25 2b 34 29 3d 65 24 2b  |....$(er%+4)=e$+|
00001f60  bd 30 0d 0c 12 40 c8 99  20 22 57 69 6d 70 5f 52  |.0...@.. "Wimp_R|
00001f70  65 70 6f 72 74 45 72 72  6f 72 22 2c 65 72 25 2c  |eportError",er%,|
00001f80  26 31 37 2c 22 4d 65 73  73 61 67 65 20 66 72 6f  |&17,"Message fro|
00001f90  6d 20 21 48 65 6c 70 43  74 72 6c 22 20 b8 20 2c  |m !HelpCtrl" . ,|
00001fa0  62 25 0d 0c 1c 0b 3d 28  62 25 3d 31 29 0d 0c 26  |b%....=(b%=1)..&|
00001fb0  04 0d 0c 30 0e dd 20 f2  6e 6f 5f 71 75 69 74 0d  |...0.. .no_quit.|
00001fc0  0c 3a 39 71 25 21 31 32  3d 71 25 21 38 3a 71 25  |.:9q%!12=q%!8:q%|
00001fd0  21 31 36 3d 38 3a c8 99  20 22 57 69 6d 70 5f 53  |!16=8:.. "Wimp_S|
00001fe0  65 6e 64 4d 65 73 73 61  67 65 22 2c 31 37 2c 71  |endMessage",17,q|
00001ff0  25 2c 71 25 21 34 3a e1  0d 0c 44 04 0d 0c 4e 0e  |%,q%!4:...D...N.|
00002000  dd 20 f2 64 72 61 67 65  6e 64 0d 0c 58 0f 64 25  |. .dragend..X.d%|
00002010  3d 70 6f 69 6e 74 65 72  25 0d 0c 62 20 c8 99 20  |=pointer%..b .. |
00002020  22 57 69 6d 70 5f 47 65  74 50 6f 69 6e 74 65 72  |"Wimp_GetPointer|
00002030  49 6e 66 6f 22 2c 2c 64  25 0d 0c 6c 2b 64 25 21  |Info",,d%..l+d%!|
00002040  33 32 3d 64 25 21 34 20  20 20 20 20 20 20 20 20  |32=d%!4         |
00002050  20 20 20 20 20 20 20 20  20 20 3a 74 74 25 3d 64  |          :tt%=d|
00002060  25 21 33 32 0d 0c 76 2b  64 25 21 32 38 3d 21 64  |%!32..v+d%!28=!d|
00002070  25 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |%               |
00002080  20 20 20 20 20 3a 74 65  25 3d 64 25 21 32 38 0d  |     :te%=d%!28.|
00002090  0c 80 2b 64 25 21 32 34  3d 64 25 21 31 36 20 20  |..+d%!24=d%!16  |
000020a0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000020b0  3a 74 66 25 3d 64 25 21  32 34 0d 0c 8a 2b 64 25  |:tf%=d%!24...+d%|
000020c0  21 32 30 3d 64 25 21 31  32 20 20 20 20 20 20 20  |!20=d%!12       |
000020d0  20 20 20 20 20 20 20 20  20 20 20 3a 74 77 25 3d  |           :tw%=|
000020e0  64 25 21 32 30 0d 0c 94  25 64 25 21 31 36 3d 31  |d%!20...%d%!16=1|
000020f0  20 20 20 20 20 3a 64 25  21 31 32 3d 30 20 20 20  |     :d%!12=0   |
00002100  20 20 3a 64 25 21 33 36  3d 30 0d 0c 9e 29 64 25  |  :d%!36=0...)d%|
00002110  21 34 30 3d 30 20 20 20  20 20 3a 21 64 25 3d 36  |!40=0     :!d%=6|
00002120  34 20 20 20 20 20 20 3a  24 28 64 25 2b 34 34 29  |4      :$(d%+44)|
00002130  3d 66 24 0d 0c a8 2b c8  99 20 22 57 69 6d 70 5f  |=f$...+.. "Wimp_|
00002140  53 65 6e 64 4d 65 73 73  61 67 65 22 2c 31 37 2c  |SendMessage",17,|
00002150  64 25 2c 64 25 21 32 30  2c 64 25 21 32 34 0d 0c  |d%,d%!20,d%!24..|
00002160  b2 0c 6d 72 25 3d 64 25  21 38 0d 0c bc 05 e1 0d  |..mr%=d%!8......|
00002170  0c c6 04 0d 0c d0 12 dd  20 a4 6c 61 73 74 62 69  |........ .lastbi|
00002180  74 28 73 24 29 0d 0c da  11 c8 95 20 a7 73 24 2c  |t(s$)...... .s$,|
00002190  22 3a 22 29 3e 30 0d 0c  e4 16 73 24 3d c1 73 24  |":")>0....s$=.s$|
000021a0  2c a7 73 24 2c 22 3a 22  29 2b 31 29 0d 0c ee 05  |,.s$,":")+1)....|
000021b0  ce 0d 0c f8 11 c8 95 20  a7 73 24 2c 22 2e 22 29  |....... .s$,".")|
000021c0  3e 30 0d 0d 02 16 73 24  3d c1 73 24 2c a7 73 24  |>0....s$=.s$,.s$|
000021d0  2c 22 2e 22 29 2b 31 29  0d 0d 0c 05 ce 0d 0d 16  |,".")+1)........|
000021e0  07 3d 73 24 0d 0d 20 04  0d 0d 2a 09 dd 20 f2 64  |.=s$.. ...*.. .d|
000021f0  73 0d 0d 34 24 f2 70 75  74 69 63 6f 6e 64 61 74  |s..4$.puticondat|
00002200  61 28 73 61 76 65 61 73  25 2c 30 2c 24 28 71 25  |a(saveas%,0,$(q%|
00002210  2b 34 34 29 29 0d 0d 3e  0f 66 24 3d 24 28 71 25  |+44))..>.f$=$(q%|
00002220  2b 34 34 29 0d 0d 48 0d  f2 73 64 28 26 46 46 44  |+44)..H..sd(&FFD|
00002230  29 0d 0d 52 05 e1 0d 0d  5c 04 0d 0d 66 15 dd 20  |)..R....\...f.. |
00002240  f2 64 72 61 67 62 6f 78  28 77 25 2c 69 25 29 0d  |.dragbox(w%,i%).|
00002250  0d 70 0f 64 25 3d 70 6f  69 6e 74 65 72 25 0d 0d  |.p.d%=pointer%..|
00002260  7a 0a 21 64 25 3d 77 25  0d 0d 84 20 c8 99 20 22  |z.!d%=w%... .. "|
00002270  57 69 6d 70 5f 47 65 74  57 69 6e 64 6f 77 53 74  |Wimp_GetWindowSt|
00002280  61 74 65 22 2c 2c 64 25  0d 0d 8e 22 79 73 25 3d  |ate",,d%..."ys%=|
00002290  64 25 21 31 36 2d 64 25  21 38 3a 78 25 3d 64 25  |d%!16-d%!8:x%=d%|
000022a0  21 34 3a 79 25 3d 64 25  21 38 0d 0d 98 0b 64 25  |!4:y%=d%!8....d%|
000022b0  21 34 3d 69 25 0d 0d a2  1e c8 99 20 22 57 69 6d  |!4=i%...... "Wim|
000022c0  70 5f 47 65 74 49 63 6f  6e 53 74 61 74 65 22 2c  |p_GetIconState",|
000022d0  2c 64 25 0d 0d ac 13 66  24 3d a4 6c 61 73 74 62  |,d%....f$=.lastb|
000022e0  69 74 28 66 24 29 0d 0d  b6 0c 64 25 21 38 2b 3d  |it(f$)....d%!8+=|
000022f0  78 25 0d 0d c0 11 64 25  21 31 32 2b 3d 79 25 2b  |x%....d%!12+=y%+|
00002300  79 73 25 0d 0d ca 0d 64  25 21 31 36 2b 3d 78 25  |ys%....d%!16+=x%|
00002310  0d 0d d4 11 64 25 21 32  30 2b 3d 79 25 2b 79 73  |....d%!20+=y%+ys|
00002320  25 0d 0d de 0b 64 25 21  32 34 3d 30 0d 0d e8 0b  |%....d%!24=0....|
00002330  64 25 21 32 38 3d 30 0d  0d f2 38 c8 99 20 22 4f  |d%!28=0...8.. "O|
00002340  53 5f 52 65 61 64 4d 6f  64 65 56 61 72 69 61 62  |S_ReadModeVariab|
00002350  6c 65 22 2c eb 2c 34 20  b8 20 2c 2c 68 25 3a 68  |le",.,4 . ,,h%:h|
00002360  25 3d a4 65 78 74 72 61  63 74 68 28 68 25 29 0d  |%=.extracth(h%).|
00002370  0d fc 38 c8 99 20 22 4f  53 5f 52 65 61 64 4d 6f  |..8.. "OS_ReadMo|
00002380  64 65 56 61 72 69 61 62  6c 65 22 2c eb 2c 35 20  |deVariable",.,5 |
00002390  b8 20 2c 2c 76 25 3a 76  25 3d a4 65 78 74 72 61  |. ,,v%:v%=.extra|
000023a0  63 74 76 28 76 25 29 0d  0e 06 10 64 25 21 33 32  |ctv(v%)....d%!32|
000023b0  3d 28 68 25 2a 32 29 0d  0e 10 10 64 25 21 33 36  |=(h%*2)....d%!36|
000023c0  3d 28 76 25 2a 34 29 0d  0e 1a 09 21 64 25 3d 30  |=(v%*4)....!d%=0|
000023d0  0d 0e 24 0a 64 25 21 34  3d 35 0d 0e 2e 19 c8 99  |..$.d%!4=5......|
000023e0  20 22 57 69 6d 70 5f 44  72 61 67 42 6f 78 22 2c  | "Wimp_DragBox",|
000023f0  2c 64 25 0d 0e 38 05 e1  0d 0e 42 04 0d 0e 4c 10  |,d%..8....B...L.|
00002400  dd 20 f2 71 75 69 63 6b  73 61 76 65 0d 0e 56 1f  |. .quicksave..V.|
00002410  e7 20 a7 66 24 2c 22 3a  22 29 3c 31 20 80 20 a7  |. .f$,":")<1 . .|
00002420  66 24 2c 22 2e 22 29 3c  31 20 8c 0d 0e 60 3a f2  |f$,".")<1 ...`:.|
00002430  74 65 6c 6c 65 6d 6f 66  66 28 22 54 6f 20 73 61  |tellemoff("To sa|
00002440  76 65 2c 20 64 72 61 67  20 69 63 6f 6e 20 74 6f  |ve, drag icon to|
00002450  20 61 20 64 69 72 65 63  74 6f 72 79 20 76 69 65  | a directory vie|
00002460  77 65 72 22 29 0d 0e 6a  05 cc 0d 0e 74 0d f2 73  |wer")..j....t..s|
00002470  64 28 26 46 46 44 29 0d  0e 7e 05 cd 0d 0e 88 05  |d(&FFD)..~......|
00002480  e1 0d 0e 92 04 0d 0e 9c  0d dd 20 f2 73 64 28 74  |.......... .sd(t|
00002490  25 29 0d 0e a6 0f 64 25  3d 70 6f 69 6e 74 65 72  |%)....d%=pointer|
000024a0  25 0d 0e b0 0a 21 64 25  3d 36 34 0d 0e ba 0d 64  |%....!d%=64....d|
000024b0  25 21 32 30 3d 74 77 25  0d 0e c4 0d 64 25 21 32  |%!20=tw%....d%!2|
000024c0  34 3d 74 66 25 0d 0e ce  0d 64 25 21 32 38 3d 74  |4=tf%....d%!28=t|
000024d0  65 25 0d 0e d8 0d 64 25  21 33 32 3d 74 74 25 0d  |e%....d%!32=tt%.|
000024e0  0e e2 0d 64 25 21 31 32  3d 79 72 25 0d 0e ec 0b  |...d%!12=yr%....|
000024f0  64 25 21 31 36 3d 33 0d  0e f6 0b 64 25 21 33 36  |d%!16=3....d%!36|
00002500  3d 30 0d 0f 00 0c 64 25  21 34 30 3d 74 25 0d 0f  |=0....d%!40=t%..|
00002510  0a 0f 24 28 64 25 2b 34  34 29 3d 66 24 0d 0f 14  |..$(d%+44)=f$...|
00002520  25 c8 99 20 22 57 69 6d  70 5f 53 65 6e 64 4d 65  |%.. "Wimp_SendMe|
00002530  73 73 61 67 65 22 2c 31  37 2c 64 25 2c 64 25 21  |ssage",17,d%,d%!|
00002540  32 30 0d 0f 1e 19 c8 99  20 22 4f 53 5f 46 69 6c  |20...... "OS_Fil|
00002550  65 22 2c 31 38 2c 66 24  2c 74 25 0d 0f 28 1c c8  |e",18,f$,t%..(..|
00002560  99 20 22 57 69 6d 70 5f  43 72 65 61 74 65 4d 65  |. "Wimp_CreateMe|
00002570  6e 75 22 2c 2c 2d 31 0d  0f 32 05 e1 0d 0f 3c 04  |nu",,-1..2....<.|
00002580  0d 0f 46 13 dd 20 a4 65  78 74 72 61 63 74 68 28  |..F.. .extracth(|
00002590  61 25 29 0d 0f 50 0b c8  8e 20 61 25 20 ca 0d 0f  |a%)..P... a% ...|
000025a0  5a 10 20 c9 20 30 20 3a  20 3d 31 32 38 30 0d 0f  |Z. . 0 : =1280..|
000025b0  64 0f 20 c9 20 31 20 3a  20 3d 36 34 30 0d 0f 6e  |d. . 1 : =640..n|
000025c0  0f 20 c9 20 32 20 3a 20  3d 33 32 30 0d 0f 78 0f  |. . 2 : =320..x.|
000025d0  20 c9 20 33 20 3a 20 3d  31 36 30 0d 0f 82 05 cb  | . 3 : =160.....|
000025e0  0d 0f 8c 04 0d 0f 96 13  dd 20 a4 65 78 74 72 61  |......... .extra|
000025f0  63 74 76 28 61 25 29 0d  0f a0 0b c8 8e 20 61 25  |ctv(a%)...... a%|
00002600  20 ca 0d 0f aa 0f 20 c9  20 31 20 3a 20 3d 35 31  | ..... . 1 : =51|
00002610  32 0d 0f b4 0f 20 c9 20  32 20 3a 20 3d 32 35 36  |2.... . 2 : =256|
00002620  0d 0f be 05 cb 0d 0f c8  04 0d 0f d2 12 dd 20 f2  |.............. .|
00002630  70 72 69 6e 74 28 74 79  70 65 29 0d 0f dc 0d c8  |print(type).....|
00002640  8e 20 74 79 70 65 20 ca  0d 0f e6 36 20 c9 20 30  |. type ....6 . 0|
00002650  20 3a 20 68 25 3d ad 28  22 3c 53 74 69 63 6b 79  | : h%=.("<Sticky|
00002660  42 72 64 24 44 69 72 3e  2e 44 6f 63 73 2e 21 4d  |Brd$Dir>.Docs.!M|
00002670  61 6e 75 61 6c 2e 52 65  61 64 4d 65 22 29 0d 0f  |anual.ReadMe")..|
00002680  f0 37 20 c9 20 31 20 3a  20 68 25 3d ad 28 22 3c  |.7 . 1 : h%=.("<|
00002690  53 74 69 63 6b 79 42 72  64 24 44 69 72 3e 2e 44  |StickyBrd$Dir>.D|
000026a0  6f 63 73 2e 21 54 65 63  68 4d 61 6e 2e 52 65 61  |ocs.!TechMan.Rea|
000026b0  64 4d 65 22 29 0d 0f fa  05 cb 0d 10 04 14 69 25  |dMe").........i%|
000026c0  3d ae 28 22 50 72 69 6e  74 65 72 3a 22 29 0d 10  |=.("Printer:")..|
000026d0  0e 05 f5 0d 10 18 0d d5  23 69 25 2c 9a 23 68 25  |........#i%,.#h%|
000026e0  0d 10 22 0a fd 20 c5 23  68 25 0d 10 2c 08 d9 23  |..".. .#h%..,..#|
000026f0  68 25 0d 10 36 08 d9 23  69 25 0d 10 40 05 e1 0d  |h%..6..#i%..@...|
00002700  10 4a 04 0d 10 54 12 dd  20 a4 74 72 61 6e 73 28  |.J...T.. .trans(|
00002710  76 61 72 24 29 0d 10 5e  22 e3 20 49 25 3d 30 20  |var$)..^". I%=0 |
00002720  b8 20 31 30 30 20 88 20  34 3a 70 6f 69 6e 74 65  |. 100 . 4:pointe|
00002730  72 25 21 49 25 3d 30 0d  10 68 31 c8 99 20 22 58  |r%!I%=0..h1.. "X|
00002740  4f 53 5f 52 65 61 64 56  61 72 56 61 6c 22 2c 76  |OS_ReadVarVal",v|
00002750  61 72 24 2c 70 6f 69 6e  74 65 72 25 2c 31 30 30  |ar$,pointer%,100|
00002760  20 b8 20 2c 2c 72 32 25  0d 10 72 20 70 6f 69 6e  | . ,,r2%..r poin|
00002770  74 65 72 25 3f 72 32 25  3d 31 33 3a 3d 24 28 70  |ter%?r2%=13:=$(p|
00002780  6f 69 6e 74 65 72 25 29  0d ff                    |ointer%)..|
0000278a

© Dominic Ford 2021–2025.

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