� >$.!AMFFont.!RunImage
*� Main program code for RISCOS AMFFont
'� Version 1.00 Last Update 05/07/91
( � � AMF the Doomwatcher 1991
2�
<:
F7� block &1000, menu% 1024,curbuf% &1000,icond &1000
P:
Zendbuf%=curbuf%+&1000
dCș "Wimp_Initialise",200,&4B534154,"AMFFont" � version%,mytask%
n
�template
x $version%="1.00 (05-Jul-91)"
�Cinitic=�iconbar(%11010,-1,7,0,"!AMFFont"+�13,0,0,0,3,0,0,68,68)
�#end%=�:drag%=0:saving%=0:ack%=�
�)colour=0:change=0:redraw=-1:curchar=0
��check:�alterredraw
�:
��
�&ș "Wimp_Poll",1,block � eventcode
�Ȏ eventcode �
�� 0:
�-� 1:ș "Wimp_RedrawWindow",,block � more%
�� !block=sprite% � �draww1
�#� 2:ș "Wimp_OpenWindow",,block
�$� 3:ș "Wimp_CloseWindow",,block

� 6:�buttons(block)


� 7:�drag

� 8:�processkey

"� 9:�decode

,� 17,18:�mess

6�

@
� end%

J�

T4��open(handle,vminx,vminy,vmaxx,vmaxy,xoff,yoff)

^<!block=handle:block!4=vminx:block!8=vminy:block!12=vmaxx

h:block!16=vmaxy:block!20=xoff:block!24=yoff:block!28=-1

rș "Wimp_OpenWindow",,block

|�

�Kݤiconbar(flags,part,for,bac,data$,add,add2,length,mouse,xs1,ys1,xs,ys)

�!icond=part

�icond!4=xs1

�'icond!8=ys1:icond!12=xs:icond!16=ys

�5icond!20=flags+((2^12)*mouse):icond?23=for+bac*16

�P� data$<>"" � $(icond+24)=data$ � icond!24=add:icond!28=add2:icond!32=length

�&ș "Wimp_CreateIcon",,icond � icon

�	=icon

�ݤtemplate(a$)

�Gș "Wimp_LoadTemplate",,block,indir,endbuf%,-1,a$,0 � ,,indir,,,,c%

�0� c%=0 � �4:� "Template ";a$;" not found.":�

�block!64=1

�*ș "Wimp_CreateWindow",,block � handle
=handle
��moan(a$)
!icond=0:$(icond+4)=a$+�0
&+ș "Wimp_ReportError",icond,1,"AMFFont"
0�
:
ݤstr(a%)
D� b$
Nȕ ?a%>=32
Xb$+=�(?a%)
b	a%+=1
l�
v=b$
�ݤtad(handle,icon)
��gii(handle,icon)
�
=icond!28
���gii(handle,icon)
�!icond=handle:icond!4=icon
�!ș "Wimp_GetIconState",,icond
��
���openwindow(handle%)
�!icond=handle%
�"ș "Wimp_GetWindowInfo",,icond
�ș "Wimp_OpenWindow",,icond
��
� ��alter(hand,icon,eor,clear)
!icond=hand:icond!4=icon
icond!8=eor:icond!12=clear
!ș "Wimp_SetIconState",,icond
 �
*��state(wi,ic)
4!block=wi:block!4=ic
>!ș "Wimp_GetIconState",,block
H�
Rݤselect(wi,ic)
\�state(wi,ic)
f"� ((block!24) � 1<<21)>0 � =-1
p=0
z
ݤbit(a$)
�ȕ �a$,":")>0
�a$=�a$,�a$,":")+1)
��
�ȕ �a$,".")>0
�a$=�a$,�a$,".")+1)
��
�=a$
���openmenu(x,y)
�&ș "Wimp_CreateMenu",,topmenu%,x,y
��
�ݤmenu(title$,width,menu$)
�menu$+=","
�oldmenu=menuptr
$menuptr=title$
menuptr?12=7
menuptr?13=2
$menuptr?14=7
.menuptr?15=0
8menuptr!16=width
Bmenuptr!20=48
Lmenuptr!24=0
Vmenuptr+=28
`�
j�item(menu$)
tmenu$=�menu$,�menu$,",")+1)
~menuptr+=24
�� menu$=""
�)menuptr!-24=(menuptr!-24) � %10000000
�=oldmenu
���item(m$)
�m$=�m$,�m$,",")-1)
�i$="":j$=""
�� �m$,"[")>0 �
�i$=�m$,�m$,"]")-1)
�m$=�m$,�m$,"]")+1)
�j$=�i$,�i$,"/")-1)
�i$=�i$,�i$,"/")+1)
��
iflags=&07000021

mflags=0
submenu=-1
 � �j$,"w")>0 � submenu=�(i$)
( � �j$,"s")>0 � submenu=�(i$)
2$� �j$,"t")>0 � mflags=mflags � 1
<$� �j$,"l")>0 � mflags=mflags � 2
F!menuptr=mflags
Pmenuptr!4=submenu
Zmenuptr!8=iflags
d$(menuptr+12)=m$
n�
x	��isd
�!block=save%
�#ș "Wimp_GetWindowState",,block
�ysize%=block!16-block!8
�#x%=block!4:y%=block!8:block!4=9
�!ș "Wimp_GetIconState",,block
�#block!8+=x%:block!12+=y%+ysize%
�$block!16+=x%:block!20+=y%+ysize%
�5block!24=0:block!28=0:block!32=1279:block!36=1023
�)!block=0:block!4=5:drag%=�:saving%=-1
�ș "Wimp_DragBox",,block
��
�
��drag
�� saving%=-1 �
#ș "Wimp_GetPointerInfo",,block
$block!32=block!4:block!28=!block
'block!24=block!16:block!20=block!12
"/block!16=1:block!12=0:block!36=0:block!40=0
,)� I=0 � 255:� I?stext<32 � I?stext=13
6�
@)$(block+44)=�bit($stext)+�0:!block=60
J+ș "Wimp_SendMessage",17,block,block!20
Tdrag%=0
^�
h�
r��buttons(block)
|icon=block!16
�&� block!12=-2 � block!8=2 �menus:�
�6� block!12=-2 � block!8<>2 �openwindow(charbox%):�
�&� block!12=save% � block!16=9 �isd
�6� block!12=save% � block!16=8 � �save(�str(stext))
�'� block!12=charbox% � �charboxclick
�2� block!12=sprite% � (block!8)<>2 �spriteclick
��
���processkey
�1� block!0=save% � block!24=13 � �save($stext)
�!ș "Wimp_ProcessKey",block!24
��
���menus
�menuopen=-44
menuptr=menu%
ȗ x,y,b
r$="":� redraw � r$="[t]"
&=savemenu%=�menu("Save",150,"[w/save%]File,"+r$+"128-255")
0Ntopmenu%=�menu("AMFFont",150,"[w/info%]Info,[s/savemenu%]Save,Reset,Quit")
:�openmenu(x-75,288)
D�
N��decode
X.ș "Wimp_DecodeMenu",,topmenu%,block,icond
b� $icond="Quit" � end%=�:�4
l*� $icond="Save.128-255" � �alterredraw
v,� $icond="Reset" � �("Fx 20"):�redrawscr
�#ș "Wimp_GetPointerInfo",,block
�� block!8=1 �
�%� menuopen=-44 � �menus � �menus2
�"ș "Wimp_CreateMenu",,topmenu%
��
�ș "Wimp_CreateMenu",,-1
��
��
���template
�5ș "Wimp_OpenTemplate",,"<AMFFont$Dir>.Templates"
�indir=curbuf%
�info%=�template("ProgInfo")
�save%=�template("Save")
1sprite%=�template("magnibox"):wintit=block!72
$charbox%=�template("characters")
ș "Wimp_CloseTemplate"
 stext=�tad(save%,0)
*version%=�tad(info%,12)
4�
>
��mess
Htask=block!4:ref=block!8
RȎ block!16 �
\� 0:end%=�
f� 2:
p� saving%=-1 �
z�save(�str(block+44))
��
�� 3:
�load$=�str(block+44)
�� block!40=&FF7 �
�1� �:� � � �moan("Couldn't load : "+�$):� �dTH
�ș "Hourglass_On"
��("Print "+load$)
�ș "Hourglass_Off"
�� �
��
�� 4:ack%=�
��
��
	��cmenu
	#ș "Wimp_GetPointerInfo",,icond
	� icond!8=1 �
	$� menuopen=-44 � �menu
	."ș "Wimp_CreateMenu",,topmenu%
	8�
	Bș "Wimp_CreateMenu",,-1
	L�
	V�
	`��save(a$)
	j\� �a$,".")<1 � �a$,":")<1 � �moan("To save, drag the save icon to a directory viewer"):�
	t� �
	~6� � � �moan("Couldn't save : "+�$+" "+�(�)):� �dDI
	�save$=a$
	�&� redraw=� � chars=255 � chars=126
	�
�makefont
	�
�cmenu
	�$stext=save$
	�modified=0
	�� �
	��
	���check
	�(� $�tad(info%,9)<>"� AMFsoft 1991" �
	�$�tad(charbox%,0)=""
	�$�tad(charbox%,1)=""
$�tad(charbox%,2)=""

8$�tad(charbox%,3)="################################"
8$�tad(charbox%,7)="If you choose to rip off AMFsoft"
8$�tad(charbox%,4)="################################"
(8$�tad(charbox%,8)="software,you will have to put up"
28$�tad(charbox%,5)="################################"
<8$�tad(charbox%,9)="with eternal damnation.OK?      "
F8$�tad(charbox%,6)="################################"
P�
Z�
d��spriteclick
nȗ xxx,yyy,b:yyy-=4
x4!icond=sprite%:ș "Wimp_GetWindowOutline",,icond
�#x=xxx-(icond!4):y=yyy-(icond!8)
�x=x � 32:y=y � 32:y=7-y
�� x<0 � x>7 � y<0 � y>7 �
�
�readchar
�1� b=4 � block?(y+1)=(block?(y+1)) � (2^(7-x))
�7� b=1 � block?(y+1)=(block?(y+1)) � (255-(2^(7-x)))
�O�23,curchar,block?1,block?2,block?3,block?4,block?5,block?6,block?7,block?8
�?ș "Wimp_ForceRedraw",sprite%,x*32,-(y+1)*32,(x+1)*32,-y*32
�char=curchar-32
��
���alterredraw
�redraw=redraw � -1
�4� redraw=-1 � � I=11 � 14:$�tad(charbox%,I)="":�
� redraw=0 �
9$�tad(charbox%,11)="��������������������������������"
9$�tad(charbox%,12)="��������������������������������"
"9$�tad(charbox%,13)="��������������������������������"
,9$�tad(charbox%,14)="�����������������������������"
6�
@1ș "Wimp_ForceRedraw",charbox%,0,-1280,1280,0
J0ș "Wimp_ForceRedraw",sprite%,0,-1280,1280,0
T�
^��charboxclick
hxx=block!0:yy=block!4
r3!block=charbox%:ș "Wimp_GetWindowState",,block
|xx=xx-block!4:xx+=block!20
�yy=yy-block!16:yy+=block!24
�xx=xx-4
�(char=32+(xx � 16):char-=32*(yy � 40)
�� char<32 � char>255 � �
�� char=127 � �
�&� I=15 � 21:$�tad(charbox%,I)="":�
�,i=curchar � 32:�alter(charbox%,i+14,0,0)
�i=char � 32:j=char � 32
�1$�tad(charbox%,i+14)=�j," ")+�char+�30-j," ")
��alter(charbox%,i+14,0,0)
�curchar=char
�/!block=sprite%:ș "Wimp_CloseWindow",,block
� $wintit=�"000"+�(curchar),3)
�openwindow(sprite%)
�
��readchar
&(?block=curchar:ș "OS_Word",10,block
0�
:��draww1
D� �setwin �sprdraw2
N�
X��sprdraw2
b
�readchar
l.on=7:off=0:� � redraw � curchar>127 � on=3
v	xx=bx
�� A%=7 � 0 � -1
�yy=by-36
�� B%=0 � 7
�+� xx+32>x1 � yy+32>y1 � xx<x2 � yy<y2 �
�S� ((block?(B%+1)) � 2^A%)<>0 � ș "Wimp_SetColour",on � ș "Wimp_SetColour",off
�ȓ Ȑ xx,yy,32,32
��
�
yy-=32
��
�
xx+=32
��
��
�ݤsetwin

bx=block!4-block!20

by=block!16-block!24

;x1=block!28:y1=block!32:x2=(block!36)-2:y2=(block!40)-4

 � x2<x1 � y2<y1 � =0

*�24,x1;y1;x2;y2;

4=-1

>��redrawscr

H.ș "Wimp_ForceRedraw",-1,0,0,200000,102400

R�

\��makefont

f�("Spool "+a$)

p� I=32 � chars

z	�23,I

�?block=I

�ș "OS_Word",10,block

�� I%=1 � 8

��(I%?block)

��

��

�
*Spool

��("SetType "+a$+" FF7")

��
�

00000000  0d 00 0a 1b f4 20 3e 24  2e 21 41 4d 46 46 6f 6e  |..... >$.!AMFFon|
00000010  74 2e 21 52 75 6e 49 6d  61 67 65 0d 00 14 2a f4  |t.!RunImage...*.|
00000020  20 4d 61 69 6e 20 70 72  6f 67 72 61 6d 20 63 6f  | Main program co|
00000030  64 65 20 66 6f 72 20 52  49 53 43 4f 53 20 41 4d  |de for RISCOS AM|
00000040  46 46 6f 6e 74 0d 00 1e  27 f4 20 56 65 72 73 69  |FFont...'. Versi|
00000050  6f 6e 20 31 2e 30 30 20  4c 61 73 74 20 55 70 64  |on 1.00 Last Upd|
00000060  61 74 65 20 30 35 2f 30  37 2f 39 31 0d 00 28 20  |ate 05/07/91..( |
00000070  f4 20 a9 20 41 4d 46 20  74 68 65 20 44 6f 6f 6d  |. . AMF the Doom|
00000080  77 61 74 63 68 65 72 20  31 39 39 31 0d 00 32 05  |watcher 1991..2.|
00000090  f4 0d 00 3c 05 3a 0d 00  46 37 de 20 62 6c 6f 63  |...<.:..F7. bloc|
000000a0  6b 20 26 31 30 30 30 2c  20 6d 65 6e 75 25 20 31  |k &1000, menu% 1|
000000b0  30 32 34 2c 63 75 72 62  75 66 25 20 26 31 30 30  |024,curbuf% &100|
000000c0  30 2c 69 63 6f 6e 64 20  26 31 30 30 30 0d 00 50  |0,icond &1000..P|
000000d0  05 3a 0d 00 5a 19 65 6e  64 62 75 66 25 3d 63 75  |.:..Z.endbuf%=cu|
000000e0  72 62 75 66 25 2b 26 31  30 30 30 0d 00 64 43 c8  |rbuf%+&1000..dC.|
000000f0  99 20 22 57 69 6d 70 5f  49 6e 69 74 69 61 6c 69  |. "Wimp_Initiali|
00000100  73 65 22 2c 32 30 30 2c  26 34 42 35 33 34 31 35  |se",200,&4B53415|
00000110  34 2c 22 41 4d 46 46 6f  6e 74 22 20 b8 20 76 65  |4,"AMFFont" . ve|
00000120  72 73 69 6f 6e 25 2c 6d  79 74 61 73 6b 25 0d 00  |rsion%,mytask%..|
00000130  6e 0d f2 74 65 6d 70 6c  61 74 65 0d 00 78 20 24  |n..template..x $|
00000140  76 65 72 73 69 6f 6e 25  3d 22 31 2e 30 30 20 28  |version%="1.00 (|
00000150  30 35 2d 4a 75 6c 2d 39  31 29 22 0d 00 82 43 69  |05-Jul-91)"...Ci|
00000160  6e 69 74 69 63 3d a4 69  63 6f 6e 62 61 72 28 25  |nitic=.iconbar(%|
00000170  31 31 30 31 30 2c 2d 31  2c 37 2c 30 2c 22 21 41  |11010,-1,7,0,"!A|
00000180  4d 46 46 6f 6e 74 22 2b  bd 31 33 2c 30 2c 30 2c  |MFFont"+.13,0,0,|
00000190  30 2c 33 2c 30 2c 30 2c  36 38 2c 36 38 29 0d 00  |0,3,0,0,68,68)..|
000001a0  8c 23 65 6e 64 25 3d a3  3a 64 72 61 67 25 3d 30  |.#end%=.:drag%=0|
000001b0  3a 73 61 76 69 6e 67 25  3d 30 3a 61 63 6b 25 3d  |:saving%=0:ack%=|
000001c0  a3 0d 00 96 29 63 6f 6c  6f 75 72 3d 30 3a 63 68  |....)colour=0:ch|
000001d0  61 6e 67 65 3d 30 3a 72  65 64 72 61 77 3d 2d 31  |ange=0:redraw=-1|
000001e0  3a 63 75 72 63 68 61 72  3d 30 0d 00 a0 17 f2 63  |:curchar=0.....c|
000001f0  68 65 63 6b 3a f2 61 6c  74 65 72 72 65 64 72 61  |heck:.alterredra|
00000200  77 0d 00 aa 05 3a 0d 00  b4 05 f5 0d 00 be 26 c8  |w....:........&.|
00000210  99 20 22 57 69 6d 70 5f  50 6f 6c 6c 22 2c 31 2c  |. "Wimp_Poll",1,|
00000220  62 6c 6f 63 6b 20 b8 20  65 76 65 6e 74 63 6f 64  |block . eventcod|
00000230  65 0d 00 c8 12 c8 8e 20  65 76 65 6e 74 63 6f 64  |e...... eventcod|
00000240  65 20 ca 0d 00 d2 08 c9  20 30 3a 0d 00 dc 2d c9  |e ...... 0:...-.|
00000250  20 31 3a c8 99 20 22 57  69 6d 70 5f 52 65 64 72  | 1:.. "Wimp_Redr|
00000260  61 77 57 69 6e 64 6f 77  22 2c 2c 62 6c 6f 63 6b  |awWindow",,block|
00000270  20 b8 20 6d 6f 72 65 25  0d 00 e6 1e e7 20 21 62  | . more%..... !b|
00000280  6c 6f 63 6b 3d 73 70 72  69 74 65 25 20 8c 20 f2  |lock=sprite% . .|
00000290  64 72 61 77 77 31 0d 00  f0 23 c9 20 32 3a c8 99  |draww1...#. 2:..|
000002a0  20 22 57 69 6d 70 5f 4f  70 65 6e 57 69 6e 64 6f  | "Wimp_OpenWindo|
000002b0  77 22 2c 2c 62 6c 6f 63  6b 0d 00 fa 24 c9 20 33  |w",,block...$. 3|
000002c0  3a c8 99 20 22 57 69 6d  70 5f 43 6c 6f 73 65 57  |:.. "Wimp_CloseW|
000002d0  69 6e 64 6f 77 22 2c 2c  62 6c 6f 63 6b 0d 01 04  |indow",,block...|
000002e0  17 c9 20 36 3a f2 62 75  74 74 6f 6e 73 28 62 6c  |.. 6:.buttons(bl|
000002f0  6f 63 6b 29 0d 01 0e 0d  c9 20 37 3a f2 64 72 61  |ock)..... 7:.dra|
00000300  67 0d 01 18 13 c9 20 38  3a f2 70 72 6f 63 65 73  |g..... 8:.proces|
00000310  73 6b 65 79 0d 01 22 0f  c9 20 39 3a f2 64 65 63  |skey..".. 9:.dec|
00000320  6f 64 65 0d 01 2c 11 c9  20 31 37 2c 31 38 3a f2  |ode..,.. 17,18:.|
00000330  6d 65 73 73 0d 01 36 05  cb 0d 01 40 0a fd 20 65  |mess..6....@.. e|
00000340  6e 64 25 0d 01 4a 05 e0  0d 01 54 34 dd f2 6f 70  |nd%..J....T4..op|
00000350  65 6e 28 68 61 6e 64 6c  65 2c 76 6d 69 6e 78 2c  |en(handle,vminx,|
00000360  76 6d 69 6e 79 2c 76 6d  61 78 78 2c 76 6d 61 78  |vminy,vmaxx,vmax|
00000370  79 2c 78 6f 66 66 2c 79  6f 66 66 29 0d 01 5e 3c  |y,xoff,yoff)..^<|
00000380  21 62 6c 6f 63 6b 3d 68  61 6e 64 6c 65 3a 62 6c  |!block=handle:bl|
00000390  6f 63 6b 21 34 3d 76 6d  69 6e 78 3a 62 6c 6f 63  |ock!4=vminx:bloc|
000003a0  6b 21 38 3d 76 6d 69 6e  79 3a 62 6c 6f 63 6b 21  |k!8=vminy:block!|
000003b0  31 32 3d 76 6d 61 78 78  0d 01 68 3a 62 6c 6f 63  |12=vmaxx..h:bloc|
000003c0  6b 21 31 36 3d 76 6d 61  78 79 3a 62 6c 6f 63 6b  |k!16=vmaxy:block|
000003d0  21 32 30 3d 78 6f 66 66  3a 62 6c 6f 63 6b 21 32  |!20=xoff:block!2|
000003e0  34 3d 79 6f 66 66 3a 62  6c 6f 63 6b 21 32 38 3d  |4=yoff:block!28=|
000003f0  2d 31 0d 01 72 1f c8 99  20 22 57 69 6d 70 5f 4f  |-1..r... "Wimp_O|
00000400  70 65 6e 57 69 6e 64 6f  77 22 2c 2c 62 6c 6f 63  |penWindow",,bloc|
00000410  6b 0d 01 7c 05 e1 0d 01  86 4b dd a4 69 63 6f 6e  |k..|.....K..icon|
00000420  62 61 72 28 66 6c 61 67  73 2c 70 61 72 74 2c 66  |bar(flags,part,f|
00000430  6f 72 2c 62 61 63 2c 64  61 74 61 24 2c 61 64 64  |or,bac,data$,add|
00000440  2c 61 64 64 32 2c 6c 65  6e 67 74 68 2c 6d 6f 75  |,add2,length,mou|
00000450  73 65 2c 78 73 31 2c 79  73 31 2c 78 73 2c 79 73  |se,xs1,ys1,xs,ys|
00000460  29 0d 01 90 0f 21 69 63  6f 6e 64 3d 70 61 72 74  |)....!icond=part|
00000470  0d 01 9a 0f 69 63 6f 6e  64 21 34 3d 78 73 31 0d  |....icond!4=xs1.|
00000480  01 a4 27 69 63 6f 6e 64  21 38 3d 79 73 31 3a 69  |..'icond!8=ys1:i|
00000490  63 6f 6e 64 21 31 32 3d  78 73 3a 69 63 6f 6e 64  |cond!12=xs:icond|
000004a0  21 31 36 3d 79 73 0d 01  ae 35 69 63 6f 6e 64 21  |!16=ys...5icond!|
000004b0  32 30 3d 66 6c 61 67 73  2b 28 28 32 5e 31 32 29  |20=flags+((2^12)|
000004c0  2a 6d 6f 75 73 65 29 3a  69 63 6f 6e 64 3f 32 33  |*mouse):icond?23|
000004d0  3d 66 6f 72 2b 62 61 63  2a 31 36 0d 01 b8 50 e7  |=for+bac*16...P.|
000004e0  20 64 61 74 61 24 3c 3e  22 22 20 8c 20 24 28 69  | data$<>"" . $(i|
000004f0  63 6f 6e 64 2b 32 34 29  3d 64 61 74 61 24 20 8b  |cond+24)=data$ .|
00000500  20 69 63 6f 6e 64 21 32  34 3d 61 64 64 3a 69 63  | icond!24=add:ic|
00000510  6f 6e 64 21 32 38 3d 61  64 64 32 3a 69 63 6f 6e  |ond!28=add2:icon|
00000520  64 21 33 32 3d 6c 65 6e  67 74 68 0d 01 c2 26 c8  |d!32=length...&.|
00000530  99 20 22 57 69 6d 70 5f  43 72 65 61 74 65 49 63  |. "Wimp_CreateIc|
00000540  6f 6e 22 2c 2c 69 63 6f  6e 64 20 b8 20 69 63 6f  |on",,icond . ico|
00000550  6e 0d 01 cc 09 3d 69 63  6f 6e 0d 01 d6 12 dd a4  |n....=icon......|
00000560  74 65 6d 70 6c 61 74 65  28 61 24 29 0d 01 e0 47  |template(a$)...G|
00000570  c8 99 20 22 57 69 6d 70  5f 4c 6f 61 64 54 65 6d  |.. "Wimp_LoadTem|
00000580  70 6c 61 74 65 22 2c 2c  62 6c 6f 63 6b 2c 69 6e  |plate",,block,in|
00000590  64 69 72 2c 65 6e 64 62  75 66 25 2c 2d 31 2c 61  |dir,endbuf%,-1,a|
000005a0  24 2c 30 20 b8 20 2c 2c  69 6e 64 69 72 2c 2c 2c  |$,0 . ,,indir,,,|
000005b0  2c 63 25 0d 01 ea 30 e7  20 63 25 3d 30 20 8c 20  |,c%...0. c%=0 . |
000005c0  ef 34 3a f1 20 22 54 65  6d 70 6c 61 74 65 20 22  |.4:. "Template "|
000005d0  3b 61 24 3b 22 20 6e 6f  74 20 66 6f 75 6e 64 2e  |;a$;" not found.|
000005e0  22 3a e0 0d 01 f4 0e 62  6c 6f 63 6b 21 36 34 3d  |":.....block!64=|
000005f0  31 0d 01 fe 2a c8 99 20  22 57 69 6d 70 5f 43 72  |1...*.. "Wimp_Cr|
00000600  65 61 74 65 57 69 6e 64  6f 77 22 2c 2c 62 6c 6f  |eateWindow",,blo|
00000610  63 6b 20 b8 20 68 61 6e  64 6c 65 0d 02 08 0b 3d  |ck . handle....=|
00000620  68 61 6e 64 6c 65 0d 02  12 0e dd f2 6d 6f 61 6e  |handle......moan|
00000630  28 61 24 29 0d 02 1c 1d  21 69 63 6f 6e 64 3d 30  |(a$)....!icond=0|
00000640  3a 24 28 69 63 6f 6e 64  2b 34 29 3d 61 24 2b bd  |:$(icond+4)=a$+.|
00000650  30 0d 02 26 2b c8 99 20  22 57 69 6d 70 5f 52 65  |0..&+.. "Wimp_Re|
00000660  70 6f 72 74 45 72 72 6f  72 22 2c 69 63 6f 6e 64  |portError",icond|
00000670  2c 31 2c 22 41 4d 46 46  6f 6e 74 22 0d 02 30 05  |,1,"AMFFont"..0.|
00000680  e1 0d 02 3a 0d dd a4 73  74 72 28 61 25 29 0d 02  |...:...str(a%)..|
00000690  44 08 ea 20 62 24 0d 02  4e 0e c8 95 20 3f 61 25  |D.. b$..N... ?a%|
000006a0  3e 3d 33 32 0d 02 58 0e  62 24 2b 3d bd 28 3f 61  |>=32..X.b$+=.(?a|
000006b0  25 29 0d 02 62 09 61 25  2b 3d 31 0d 02 6c 05 ce  |%)..b.a%+=1..l..|
000006c0  0d 02 76 07 3d 62 24 0d  02 80 16 dd a4 74 61 64  |..v.=b$......tad|
000006d0  28 68 61 6e 64 6c 65 2c  69 63 6f 6e 29 0d 02 8a  |(handle,icon)...|
000006e0  15 f2 67 69 69 28 68 61  6e 64 6c 65 2c 69 63 6f  |..gii(handle,ico|
000006f0  6e 29 0d 02 94 0d 3d 69  63 6f 6e 64 21 32 38 0d  |n)....=icond!28.|
00000700  02 9e 16 dd f2 67 69 69  28 68 61 6e 64 6c 65 2c  |.....gii(handle,|
00000710  69 63 6f 6e 29 0d 02 a8  1e 21 69 63 6f 6e 64 3d  |icon)....!icond=|
00000720  68 61 6e 64 6c 65 3a 69  63 6f 6e 64 21 34 3d 69  |handle:icond!4=i|
00000730  63 6f 6e 0d 02 b2 21 c8  99 20 22 57 69 6d 70 5f  |con...!.. "Wimp_|
00000740  47 65 74 49 63 6f 6e 53  74 61 74 65 22 2c 2c 69  |GetIconState",,i|
00000750  63 6f 6e 64 0d 02 bc 05  e1 0d 02 c6 19 dd f2 6f  |cond...........o|
00000760  70 65 6e 77 69 6e 64 6f  77 28 68 61 6e 64 6c 65  |penwindow(handle|
00000770  25 29 0d 02 d0 12 21 69  63 6f 6e 64 3d 68 61 6e  |%)....!icond=han|
00000780  64 6c 65 25 0d 02 da 22  c8 99 20 22 57 69 6d 70  |dle%...".. "Wimp|
00000790  5f 47 65 74 57 69 6e 64  6f 77 49 6e 66 6f 22 2c  |_GetWindowInfo",|
000007a0  2c 69 63 6f 6e 64 0d 02  e4 1f c8 99 20 22 57 69  |,icond...... "Wi|
000007b0  6d 70 5f 4f 70 65 6e 57  69 6e 64 6f 77 22 2c 2c  |mp_OpenWindow",,|
000007c0  69 63 6f 6e 64 0d 02 ee  05 e1 0d 02 f8 20 dd f2  |icond........ ..|
000007d0  61 6c 74 65 72 28 68 61  6e 64 2c 69 63 6f 6e 2c  |alter(hand,icon,|
000007e0  65 6f 72 2c 63 6c 65 61  72 29 0d 03 02 1c 21 69  |eor,clear)....!i|
000007f0  63 6f 6e 64 3d 68 61 6e  64 3a 69 63 6f 6e 64 21  |cond=hand:icond!|
00000800  34 3d 69 63 6f 6e 0d 03  0c 1e 69 63 6f 6e 64 21  |4=icon....icond!|
00000810  38 3d 65 6f 72 3a 69 63  6f 6e 64 21 31 32 3d 63  |8=eor:icond!12=c|
00000820  6c 65 61 72 0d 03 16 21  c8 99 20 22 57 69 6d 70  |lear...!.. "Wimp|
00000830  5f 53 65 74 49 63 6f 6e  53 74 61 74 65 22 2c 2c  |_SetIconState",,|
00000840  69 63 6f 6e 64 0d 03 20  05 e1 0d 03 2a 12 dd f2  |icond.. ....*...|
00000850  73 74 61 74 65 28 77 69  2c 69 63 29 0d 03 34 18  |state(wi,ic)..4.|
00000860  21 62 6c 6f 63 6b 3d 77  69 3a 62 6c 6f 63 6b 21  |!block=wi:block!|
00000870  34 3d 69 63 0d 03 3e 21  c8 99 20 22 57 69 6d 70  |4=ic..>!.. "Wimp|
00000880  5f 47 65 74 49 63 6f 6e  53 74 61 74 65 22 2c 2c  |_GetIconState",,|
00000890  62 6c 6f 63 6b 0d 03 48  05 e1 0d 03 52 13 dd a4  |block..H....R...|
000008a0  73 65 6c 65 63 74 28 77  69 2c 69 63 29 0d 03 5c  |select(wi,ic)..\|
000008b0  11 f2 73 74 61 74 65 28  77 69 2c 69 63 29 0d 03  |..state(wi,ic)..|
000008c0  66 22 e7 20 28 28 62 6c  6f 63 6b 21 32 34 29 20  |f". ((block!24) |
000008d0  80 20 31 3c 3c 32 31 29  3e 30 20 8c 20 3d 2d 31  |. 1<<21)>0 . =-1|
000008e0  0d 03 70 06 3d 30 0d 03  7a 0d dd a4 62 69 74 28  |..p.=0..z...bit(|
000008f0  61 24 29 0d 03 84 11 c8  95 20 a7 61 24 2c 22 3a  |a$)...... .a$,":|
00000900  22 29 3e 30 0d 03 8e 16  61 24 3d c1 61 24 2c a7  |")>0....a$=.a$,.|
00000910  61 24 2c 22 3a 22 29 2b  31 29 0d 03 98 05 ce 0d  |a$,":")+1)......|
00000920  03 a2 11 c8 95 20 a7 61  24 2c 22 2e 22 29 3e 30  |..... .a$,".")>0|
00000930  0d 03 ac 16 61 24 3d c1  61 24 2c a7 61 24 2c 22  |....a$=.a$,.a$,"|
00000940  2e 22 29 2b 31 29 0d 03  b6 05 ce 0d 03 c0 07 3d  |.")+1).........=|
00000950  61 24 0d 03 ca 13 dd f2  6f 70 65 6e 6d 65 6e 75  |a$......openmenu|
00000960  28 78 2c 79 29 0d 03 d4  26 c8 99 20 22 57 69 6d  |(x,y)...&.. "Wim|
00000970  70 5f 43 72 65 61 74 65  4d 65 6e 75 22 2c 2c 74  |p_CreateMenu",,t|
00000980  6f 70 6d 65 6e 75 25 2c  78 2c 79 0d 03 de 05 e1  |opmenu%,x,y.....|
00000990  0d 03 e8 1e dd a4 6d 65  6e 75 28 74 69 74 6c 65  |......menu(title|
000009a0  24 2c 77 69 64 74 68 2c  6d 65 6e 75 24 29 0d 03  |$,width,menu$)..|
000009b0  f2 0e 6d 65 6e 75 24 2b  3d 22 2c 22 0d 03 fc 13  |..menu$+=","....|
000009c0  6f 6c 64 6d 65 6e 75 3d  6d 65 6e 75 70 74 72 0d  |oldmenu=menuptr.|
000009d0  04 06 13 24 6d 65 6e 75  70 74 72 3d 74 69 74 6c  |...$menuptr=titl|
000009e0  65 24 0d 04 10 10 6d 65  6e 75 70 74 72 3f 31 32  |e$....menuptr?12|
000009f0  3d 37 0d 04 1a 10 6d 65  6e 75 70 74 72 3f 31 33  |=7....menuptr?13|
00000a00  3d 32 0d 04 24 10 6d 65  6e 75 70 74 72 3f 31 34  |=2..$.menuptr?14|
00000a10  3d 37 0d 04 2e 10 6d 65  6e 75 70 74 72 3f 31 35  |=7....menuptr?15|
00000a20  3d 30 0d 04 38 14 6d 65  6e 75 70 74 72 21 31 36  |=0..8.menuptr!16|
00000a30  3d 77 69 64 74 68 0d 04  42 11 6d 65 6e 75 70 74  |=width..B.menupt|
00000a40  72 21 32 30 3d 34 38 0d  04 4c 10 6d 65 6e 75 70  |r!20=48..L.menup|
00000a50  74 72 21 32 34 3d 30 0d  04 56 0f 6d 65 6e 75 70  |tr!24=0..V.menup|
00000a60  74 72 2b 3d 32 38 0d 04  60 05 f5 0d 04 6a 10 f2  |tr+=28..`....j..|
00000a70  69 74 65 6d 28 6d 65 6e  75 24 29 0d 04 74 1f 6d  |item(menu$)..t.m|
00000a80  65 6e 75 24 3d c1 6d 65  6e 75 24 2c a7 6d 65 6e  |enu$=.menu$,.men|
00000a90  75 24 2c 22 2c 22 29 2b  31 29 0d 04 7e 0f 6d 65  |u$,",")+1)..~.me|
00000aa0  6e 75 70 74 72 2b 3d 32  34 0d 04 88 0e fd 20 6d  |nuptr+=24..... m|
00000ab0  65 6e 75 24 3d 22 22 0d  04 92 29 6d 65 6e 75 70  |enu$=""...)menup|
00000ac0  74 72 21 2d 32 34 3d 28  6d 65 6e 75 70 74 72 21  |tr!-24=(menuptr!|
00000ad0  2d 32 34 29 20 84 20 25  31 30 30 30 30 30 30 30  |-24) . %10000000|
00000ae0  0d 04 9c 0c 3d 6f 6c 64  6d 65 6e 75 0d 04 a6 0e  |....=oldmenu....|
00000af0  dd f2 69 74 65 6d 28 6d  24 29 0d 04 b0 16 6d 24  |..item(m$)....m$|
00000b00  3d c0 6d 24 2c a7 6d 24  2c 22 2c 22 29 2d 31 29  |=.m$,.m$,",")-1)|
00000b10  0d 04 ba 0f 69 24 3d 22  22 3a 6a 24 3d 22 22 0d  |....i$="":j$="".|
00000b20  04 c4 12 e7 20 a7 6d 24  2c 22 5b 22 29 3e 30 20  |.... .m$,"[")>0 |
00000b30  8c 0d 04 ce 16 69 24 3d  c0 6d 24 2c a7 6d 24 2c  |.....i$=.m$,.m$,|
00000b40  22 5d 22 29 2d 31 29 0d  04 d8 16 6d 24 3d c1 6d  |"]")-1)....m$=.m|
00000b50  24 2c a7 6d 24 2c 22 5d  22 29 2b 31 29 0d 04 e2  |$,.m$,"]")+1)...|
00000b60  16 6a 24 3d c0 69 24 2c  a7 69 24 2c 22 2f 22 29  |.j$=.i$,.i$,"/")|
00000b70  2d 31 29 0d 04 ec 16 69  24 3d c1 69 24 2c a7 69  |-1)....i$=.i$,.i|
00000b80  24 2c 22 2f 22 29 2b 31  29 0d 04 f6 05 cd 0d 05  |$,"/")+1).......|
00000b90  00 14 69 66 6c 61 67 73  3d 26 30 37 30 30 30 30  |..iflags=&070000|
00000ba0  32 31 0d 05 0a 0c 6d 66  6c 61 67 73 3d 30 0d 05  |21....mflags=0..|
00000bb0  14 0e 73 75 62 6d 65 6e  75 3d 2d 31 0d 05 1e 20  |..submenu=-1... |
00000bc0  e7 20 a7 6a 24 2c 22 77  22 29 3e 30 20 8c 20 73  |. .j$,"w")>0 . s|
00000bd0  75 62 6d 65 6e 75 3d a0  28 69 24 29 0d 05 28 20  |ubmenu=.(i$)..( |
00000be0  e7 20 a7 6a 24 2c 22 73  22 29 3e 30 20 8c 20 73  |. .j$,"s")>0 . s|
00000bf0  75 62 6d 65 6e 75 3d a0  28 69 24 29 0d 05 32 24  |ubmenu=.(i$)..2$|
00000c00  e7 20 a7 6a 24 2c 22 74  22 29 3e 30 20 8c 20 6d  |. .j$,"t")>0 . m|
00000c10  66 6c 61 67 73 3d 6d 66  6c 61 67 73 20 84 20 31  |flags=mflags . 1|
00000c20  0d 05 3c 24 e7 20 a7 6a  24 2c 22 6c 22 29 3e 30  |..<$. .j$,"l")>0|
00000c30  20 8c 20 6d 66 6c 61 67  73 3d 6d 66 6c 61 67 73  | . mflags=mflags|
00000c40  20 84 20 32 0d 05 46 13  21 6d 65 6e 75 70 74 72  | . 2..F.!menuptr|
00000c50  3d 6d 66 6c 61 67 73 0d  05 50 15 6d 65 6e 75 70  |=mflags..P.menup|
00000c60  74 72 21 34 3d 73 75 62  6d 65 6e 75 0d 05 5a 14  |tr!4=submenu..Z.|
00000c70  6d 65 6e 75 70 74 72 21  38 3d 69 66 6c 61 67 73  |menuptr!8=iflags|
00000c80  0d 05 64 14 24 28 6d 65  6e 75 70 74 72 2b 31 32  |..d.$(menuptr+12|
00000c90  29 3d 6d 24 0d 05 6e 05  e1 0d 05 78 09 dd f2 69  |)=m$..n....x...i|
00000ca0  73 64 0d 05 82 10 21 62  6c 6f 63 6b 3d 73 61 76  |sd....!block=sav|
00000cb0  65 25 0d 05 8c 23 c8 99  20 22 57 69 6d 70 5f 47  |e%...#.. "Wimp_G|
00000cc0  65 74 57 69 6e 64 6f 77  53 74 61 74 65 22 2c 2c  |etWindowState",,|
00000cd0  62 6c 6f 63 6b 0d 05 96  1b 79 73 69 7a 65 25 3d  |block....ysize%=|
00000ce0  62 6c 6f 63 6b 21 31 36  2d 62 6c 6f 63 6b 21 38  |block!16-block!8|
00000cf0  0d 05 a0 23 78 25 3d 62  6c 6f 63 6b 21 34 3a 79  |...#x%=block!4:y|
00000d00  25 3d 62 6c 6f 63 6b 21  38 3a 62 6c 6f 63 6b 21  |%=block!8:block!|
00000d10  34 3d 39 0d 05 aa 21 c8  99 20 22 57 69 6d 70 5f  |4=9...!.. "Wimp_|
00000d20  47 65 74 49 63 6f 6e 53  74 61 74 65 22 2c 2c 62  |GetIconState",,b|
00000d30  6c 6f 63 6b 0d 05 b4 23  62 6c 6f 63 6b 21 38 2b  |lock...#block!8+|
00000d40  3d 78 25 3a 62 6c 6f 63  6b 21 31 32 2b 3d 79 25  |=x%:block!12+=y%|
00000d50  2b 79 73 69 7a 65 25 0d  05 be 24 62 6c 6f 63 6b  |+ysize%...$block|
00000d60  21 31 36 2b 3d 78 25 3a  62 6c 6f 63 6b 21 32 30  |!16+=x%:block!20|
00000d70  2b 3d 79 25 2b 79 73 69  7a 65 25 0d 05 c8 35 62  |+=y%+ysize%...5b|
00000d80  6c 6f 63 6b 21 32 34 3d  30 3a 62 6c 6f 63 6b 21  |lock!24=0:block!|
00000d90  32 38 3d 30 3a 62 6c 6f  63 6b 21 33 32 3d 31 32  |28=0:block!32=12|
00000da0  37 39 3a 62 6c 6f 63 6b  21 33 36 3d 31 30 32 33  |79:block!36=1023|
00000db0  0d 05 d2 29 21 62 6c 6f  63 6b 3d 30 3a 62 6c 6f  |...)!block=0:blo|
00000dc0  63 6b 21 34 3d 35 3a 64  72 61 67 25 3d b9 3a 73  |ck!4=5:drag%=.:s|
00000dd0  61 76 69 6e 67 25 3d 2d  31 0d 05 dc 1c c8 99 20  |aving%=-1...... |
00000de0  22 57 69 6d 70 5f 44 72  61 67 42 6f 78 22 2c 2c  |"Wimp_DragBox",,|
00000df0  62 6c 6f 63 6b 0d 05 e6  05 e1 0d 05 f0 0a dd f2  |block...........|
00000e00  64 72 61 67 0d 05 fa 12  e7 20 73 61 76 69 6e 67  |drag..... saving|
00000e10  25 3d 2d 31 20 8c 0d 06  04 23 c8 99 20 22 57 69  |%=-1 ....#.. "Wi|
00000e20  6d 70 5f 47 65 74 50 6f  69 6e 74 65 72 49 6e 66  |mp_GetPointerInf|
00000e30  6f 22 2c 2c 62 6c 6f 63  6b 0d 06 0e 24 62 6c 6f  |o",,block...$blo|
00000e40  63 6b 21 33 32 3d 62 6c  6f 63 6b 21 34 3a 62 6c  |ck!32=block!4:bl|
00000e50  6f 63 6b 21 32 38 3d 21  62 6c 6f 63 6b 0d 06 18  |ock!28=!block...|
00000e60  27 62 6c 6f 63 6b 21 32  34 3d 62 6c 6f 63 6b 21  |'block!24=block!|
00000e70  31 36 3a 62 6c 6f 63 6b  21 32 30 3d 62 6c 6f 63  |16:block!20=bloc|
00000e80  6b 21 31 32 0d 06 22 2f  62 6c 6f 63 6b 21 31 36  |k!12.."/block!16|
00000e90  3d 31 3a 62 6c 6f 63 6b  21 31 32 3d 30 3a 62 6c  |=1:block!12=0:bl|
00000ea0  6f 63 6b 21 33 36 3d 30  3a 62 6c 6f 63 6b 21 34  |ock!36=0:block!4|
00000eb0  30 3d 30 0d 06 2c 29 e3  20 49 3d 30 20 b8 20 32  |0=0..,). I=0 . 2|
00000ec0  35 35 3a e7 20 49 3f 73  74 65 78 74 3c 33 32 20  |55:. I?stext<32 |
00000ed0  8c 20 49 3f 73 74 65 78  74 3d 31 33 0d 06 36 05  |. I?stext=13..6.|
00000ee0  ed 0d 06 40 29 24 28 62  6c 6f 63 6b 2b 34 34 29  |...@)$(block+44)|
00000ef0  3d a4 62 69 74 28 24 73  74 65 78 74 29 2b bd 30  |=.bit($stext)+.0|
00000f00  3a 21 62 6c 6f 63 6b 3d  36 30 0d 06 4a 2b c8 99  |:!block=60..J+..|
00000f10  20 22 57 69 6d 70 5f 53  65 6e 64 4d 65 73 73 61  | "Wimp_SendMessa|
00000f20  67 65 22 2c 31 37 2c 62  6c 6f 63 6b 2c 62 6c 6f  |ge",17,block,blo|
00000f30  63 6b 21 32 30 0d 06 54  0b 64 72 61 67 25 3d 30  |ck!20..T.drag%=0|
00000f40  0d 06 5e 05 cd 0d 06 68  05 e1 0d 06 72 14 dd f2  |..^....h....r...|
00000f50  62 75 74 74 6f 6e 73 28  62 6c 6f 63 6b 29 0d 06  |buttons(block)..|
00000f60  7c 11 69 63 6f 6e 3d 62  6c 6f 63 6b 21 31 36 0d  ||.icon=block!16.|
00000f70  06 86 26 e7 20 62 6c 6f  63 6b 21 31 32 3d 2d 32  |..&. block!12=-2|
00000f80  20 80 20 62 6c 6f 63 6b  21 38 3d 32 20 f2 6d 65  | . block!8=2 .me|
00000f90  6e 75 73 3a e1 0d 06 90  36 e7 20 62 6c 6f 63 6b  |nus:....6. block|
00000fa0  21 31 32 3d 2d 32 20 80  20 62 6c 6f 63 6b 21 38  |!12=-2 . block!8|
00000fb0  3c 3e 32 20 f2 6f 70 65  6e 77 69 6e 64 6f 77 28  |<>2 .openwindow(|
00000fc0  63 68 61 72 62 6f 78 25  29 3a e1 0d 06 9a 26 e7  |charbox%):....&.|
00000fd0  20 62 6c 6f 63 6b 21 31  32 3d 73 61 76 65 25 20  | block!12=save% |
00000fe0  80 20 62 6c 6f 63 6b 21  31 36 3d 39 20 f2 69 73  |. block!16=9 .is|
00000ff0  64 0d 06 a4 36 e7 20 62  6c 6f 63 6b 21 31 32 3d  |d...6. block!12=|
00001000  73 61 76 65 25 20 80 20  62 6c 6f 63 6b 21 31 36  |save% . block!16|
00001010  3d 38 20 8c 20 f2 73 61  76 65 28 a4 73 74 72 28  |=8 . .save(.str(|
00001020  73 74 65 78 74 29 29 0d  06 ae 27 e7 20 62 6c 6f  |stext))...'. blo|
00001030  63 6b 21 31 32 3d 63 68  61 72 62 6f 78 25 20 8c  |ck!12=charbox% .|
00001040  20 f2 63 68 61 72 62 6f  78 63 6c 69 63 6b 0d 06  | .charboxclick..|
00001050  b8 32 e7 20 62 6c 6f 63  6b 21 31 32 3d 73 70 72  |.2. block!12=spr|
00001060  69 74 65 25 20 80 20 28  62 6c 6f 63 6b 21 38 29  |ite% . (block!8)|
00001070  3c 3e 32 20 f2 73 70 72  69 74 65 63 6c 69 63 6b  |<>2 .spriteclick|
00001080  0d 06 c2 05 e1 0d 06 cc  10 dd f2 70 72 6f 63 65  |...........proce|
00001090  73 73 6b 65 79 0d 06 d6  31 e7 20 62 6c 6f 63 6b  |sskey...1. block|
000010a0  21 30 3d 73 61 76 65 25  20 80 20 62 6c 6f 63 6b  |!0=save% . block|
000010b0  21 32 34 3d 31 33 20 8c  20 f2 73 61 76 65 28 24  |!24=13 . .save($|
000010c0  73 74 65 78 74 29 0d 06  e0 21 c8 99 20 22 57 69  |stext)...!.. "Wi|
000010d0  6d 70 5f 50 72 6f 63 65  73 73 4b 65 79 22 2c 62  |mp_ProcessKey",b|
000010e0  6c 6f 63 6b 21 32 34 0d  06 ea 05 e1 0d 06 f4 0b  |lock!24.........|
000010f0  dd f2 6d 65 6e 75 73 0d  06 fe 10 6d 65 6e 75 6f  |..menus....menuo|
00001100  70 65 6e 3d 2d 34 34 0d  07 08 11 6d 65 6e 75 70  |pen=-44....menup|
00001110  74 72 3d 6d 65 6e 75 25  0d 07 12 0c c8 97 20 78  |tr=menu%...... x|
00001120  2c 79 2c 62 0d 07 1c 1d  72 24 3d 22 22 3a e7 20  |,y,b....r$="":. |
00001130  72 65 64 72 61 77 20 8c  20 72 24 3d 22 5b 74 5d  |redraw . r$="[t]|
00001140  22 0d 07 26 3d 73 61 76  65 6d 65 6e 75 25 3d a4  |"..&=savemenu%=.|
00001150  6d 65 6e 75 28 22 53 61  76 65 22 2c 31 35 30 2c  |menu("Save",150,|
00001160  22 5b 77 2f 73 61 76 65  25 5d 46 69 6c 65 2c 22  |"[w/save%]File,"|
00001170  2b 72 24 2b 22 31 32 38  2d 32 35 35 22 29 0d 07  |+r$+"128-255")..|
00001180  30 4e 74 6f 70 6d 65 6e  75 25 3d a4 6d 65 6e 75  |0Ntopmenu%=.menu|
00001190  28 22 41 4d 46 46 6f 6e  74 22 2c 31 35 30 2c 22  |("AMFFont",150,"|
000011a0  5b 77 2f 69 6e 66 6f 25  5d 49 6e 66 6f 2c 5b 73  |[w/info%]Info,[s|
000011b0  2f 73 61 76 65 6d 65 6e  75 25 5d 53 61 76 65 2c  |/savemenu%]Save,|
000011c0  52 65 73 65 74 2c 51 75  69 74 22 29 0d 07 3a 17  |Reset,Quit")..:.|
000011d0  f2 6f 70 65 6e 6d 65 6e  75 28 78 2d 37 35 2c 32  |.openmenu(x-75,2|
000011e0  38 38 29 0d 07 44 05 e1  0d 07 4e 0c dd f2 64 65  |88)..D....N...de|
000011f0  63 6f 64 65 0d 07 58 2e  c8 99 20 22 57 69 6d 70  |code..X... "Wimp|
00001200  5f 44 65 63 6f 64 65 4d  65 6e 75 22 2c 2c 74 6f  |_DecodeMenu",,to|
00001210  70 6d 65 6e 75 25 2c 62  6c 6f 63 6b 2c 69 63 6f  |pmenu%,block,ico|
00001220  6e 64 0d 07 62 1f e7 20  24 69 63 6f 6e 64 3d 22  |nd..b.. $icond="|
00001230  51 75 69 74 22 20 8c 20  65 6e 64 25 3d b9 3a ef  |Quit" . end%=.:.|
00001240  34 0d 07 6c 2a e7 20 24  69 63 6f 6e 64 3d 22 53  |4..l*. $icond="S|
00001250  61 76 65 2e 31 32 38 2d  32 35 35 22 20 8c 20 f2  |ave.128-255" . .|
00001260  61 6c 74 65 72 72 65 64  72 61 77 0d 07 76 2c e7  |alterredraw..v,.|
00001270  20 24 69 63 6f 6e 64 3d  22 52 65 73 65 74 22 20  | $icond="Reset" |
00001280  8c 20 ff 28 22 46 78 20  32 30 22 29 3a f2 72 65  |. .("Fx 20"):.re|
00001290  64 72 61 77 73 63 72 0d  07 80 23 c8 99 20 22 57  |drawscr...#.. "W|
000012a0  69 6d 70 5f 47 65 74 50  6f 69 6e 74 65 72 49 6e  |imp_GetPointerIn|
000012b0  66 6f 22 2c 2c 62 6c 6f  63 6b 0d 07 8a 11 e7 20  |fo",,block..... |
000012c0  62 6c 6f 63 6b 21 38 3d  31 20 8c 0d 07 94 25 e7  |block!8=1 ....%.|
000012d0  20 6d 65 6e 75 6f 70 65  6e 3d 2d 34 34 20 8c 20  | menuopen=-44 . |
000012e0  f2 6d 65 6e 75 73 20 8b  20 f2 6d 65 6e 75 73 32  |.menus . .menus2|
000012f0  0d 07 9e 22 c8 99 20 22  57 69 6d 70 5f 43 72 65  |...".. "Wimp_Cre|
00001300  61 74 65 4d 65 6e 75 22  2c 2c 74 6f 70 6d 65 6e  |ateMenu",,topmen|
00001310  75 25 0d 07 a8 05 cc 0d  07 b2 1c c8 99 20 22 57  |u%........... "W|
00001320  69 6d 70 5f 43 72 65 61  74 65 4d 65 6e 75 22 2c  |imp_CreateMenu",|
00001330  2c 2d 31 0d 07 bc 05 cd  0d 07 c6 05 e1 0d 07 d0  |,-1.............|
00001340  0e dd f2 74 65 6d 70 6c  61 74 65 0d 07 da 35 c8  |...template...5.|
00001350  99 20 22 57 69 6d 70 5f  4f 70 65 6e 54 65 6d 70  |. "Wimp_OpenTemp|
00001360  6c 61 74 65 22 2c 2c 22  3c 41 4d 46 46 6f 6e 74  |late",,"<AMFFont|
00001370  24 44 69 72 3e 2e 54 65  6d 70 6c 61 74 65 73 22  |$Dir>.Templates"|
00001380  0d 07 e4 11 69 6e 64 69  72 3d 63 75 72 62 75 66  |....indir=curbuf|
00001390  25 0d 07 ee 1f 69 6e 66  6f 25 3d a4 74 65 6d 70  |%....info%=.temp|
000013a0  6c 61 74 65 28 22 50 72  6f 67 49 6e 66 6f 22 29  |late("ProgInfo")|
000013b0  0d 07 f8 1b 73 61 76 65  25 3d a4 74 65 6d 70 6c  |....save%=.templ|
000013c0  61 74 65 28 22 53 61 76  65 22 29 0d 08 02 31 73  |ate("Save")...1s|
000013d0  70 72 69 74 65 25 3d a4  74 65 6d 70 6c 61 74 65  |prite%=.template|
000013e0  28 22 6d 61 67 6e 69 62  6f 78 22 29 3a 77 69 6e  |("magnibox"):win|
000013f0  74 69 74 3d 62 6c 6f 63  6b 21 37 32 0d 08 0c 24  |tit=block!72...$|
00001400  63 68 61 72 62 6f 78 25  3d a4 74 65 6d 70 6c 61  |charbox%=.templa|
00001410  74 65 28 22 63 68 61 72  61 63 74 65 72 73 22 29  |te("characters")|
00001420  0d 08 16 1b c8 99 20 22  57 69 6d 70 5f 43 6c 6f  |...... "Wimp_Clo|
00001430  73 65 54 65 6d 70 6c 61  74 65 22 0d 08 20 17 73  |seTemplate".. .s|
00001440  74 65 78 74 3d a4 74 61  64 28 73 61 76 65 25 2c  |text=.tad(save%,|
00001450  30 29 0d 08 2a 1b 76 65  72 73 69 6f 6e 25 3d a4  |0)..*.version%=.|
00001460  74 61 64 28 69 6e 66 6f  25 2c 31 32 29 0d 08 34  |tad(info%,12)..4|
00001470  05 e1 0d 08 3e 0a dd f2  6d 65 73 73 0d 08 48 1c  |....>...mess..H.|
00001480  74 61 73 6b 3d 62 6c 6f  63 6b 21 34 3a 72 65 66  |task=block!4:ref|
00001490  3d 62 6c 6f 63 6b 21 38  0d 08 52 11 c8 8e 20 62  |=block!8..R... b|
000014a0  6c 6f 63 6b 21 31 36 20  ca 0d 08 5c 0e c9 20 30  |lock!16 ...\.. 0|
000014b0  3a 65 6e 64 25 3d b9 0d  08 66 08 c9 20 32 3a 0d  |:end%=...f.. 2:.|
000014c0  08 70 12 e7 20 73 61 76  69 6e 67 25 3d 2d 31 20  |.p.. saving%=-1 |
000014d0  8c 0d 08 7a 19 f2 73 61  76 65 28 a4 73 74 72 28  |...z..save(.str(|
000014e0  62 6c 6f 63 6b 2b 34 34  29 29 0d 08 84 05 cd 0d  |block+44))......|
000014f0  08 8e 08 c9 20 33 3a 0d  08 98 18 6c 6f 61 64 24  |.... 3:....load$|
00001500  3d a4 73 74 72 28 62 6c  6f 63 6b 2b 34 34 29 0d  |=.str(block+44).|
00001510  08 a2 15 e7 20 62 6c 6f  63 6b 21 34 30 3d 26 46  |.... block!40=&F|
00001520  46 37 20 8c 0d 08 ac 31  ea 20 85 3a ee 20 85 20  |F7 ....1. .:. . |
00001530  ea 20 f2 6d 6f 61 6e 28  22 43 6f 75 6c 64 6e 27  |. .moan("Couldn'|
00001540  74 20 6c 6f 61 64 20 3a  20 22 2b f6 24 29 3a e5  |t load : "+.$):.|
00001550  20 8d 64 54 48 0d 08 b6  15 c8 99 20 22 48 6f 75  | .dTH...... "Hou|
00001560  72 67 6c 61 73 73 5f 4f  6e 22 0d 08 c0 15 ff 28  |rglass_On".....(|
00001570  22 50 72 69 6e 74 20 22  2b 6c 6f 61 64 24 29 0d  |"Print "+load$).|
00001580  08 ca 16 c8 99 20 22 48  6f 75 72 67 6c 61 73 73  |..... "Hourglass|
00001590  5f 4f 66 66 22 0d 08 d4  07 f7 20 85 0d 08 de 05  |_Off"..... .....|
000015a0  cd 0d 08 e8 0e c9 20 34  3a 61 63 6b 25 3d a3 0d  |...... 4:ack%=..|
000015b0  08 f2 05 cb 0d 08 fc 05  e1 0d 09 06 0b dd f2 63  |...............c|
000015c0  6d 65 6e 75 0d 09 10 23  c8 99 20 22 57 69 6d 70  |menu...#.. "Wimp|
000015d0  5f 47 65 74 50 6f 69 6e  74 65 72 49 6e 66 6f 22  |_GetPointerInfo"|
000015e0  2c 2c 69 63 6f 6e 64 0d  09 1a 11 e7 20 69 63 6f  |,,icond..... ico|
000015f0  6e 64 21 38 3d 31 20 8c  0d 09 24 1a e7 20 6d 65  |nd!8=1 ...$.. me|
00001600  6e 75 6f 70 65 6e 3d 2d  34 34 20 8c 20 f2 6d 65  |nuopen=-44 . .me|
00001610  6e 75 0d 09 2e 22 c8 99  20 22 57 69 6d 70 5f 43  |nu...".. "Wimp_C|
00001620  72 65 61 74 65 4d 65 6e  75 22 2c 2c 74 6f 70 6d  |reateMenu",,topm|
00001630  65 6e 75 25 0d 09 38 05  cc 0d 09 42 1c c8 99 20  |enu%..8....B... |
00001640  22 57 69 6d 70 5f 43 72  65 61 74 65 4d 65 6e 75  |"Wimp_CreateMenu|
00001650  22 2c 2c 2d 31 0d 09 4c  05 cd 0d 09 56 05 e1 0d  |",,-1..L....V...|
00001660  09 60 0e dd f2 73 61 76  65 28 61 24 29 0d 09 6a  |.`...save(a$)..j|
00001670  5c e7 20 a7 61 24 2c 22  2e 22 29 3c 31 20 80 20  |\. .a$,".")<1 . |
00001680  a7 61 24 2c 22 3a 22 29  3c 31 20 8c 20 f2 6d 6f  |.a$,":")<1 . .mo|
00001690  61 6e 28 22 54 6f 20 73  61 76 65 2c 20 64 72 61  |an("To save, dra|
000016a0  67 20 74 68 65 20 73 61  76 65 20 69 63 6f 6e 20  |g the save icon |
000016b0  74 6f 20 61 20 64 69 72  65 63 74 6f 72 79 20 76  |to a directory v|
000016c0  69 65 77 65 72 22 29 3a  e1 0d 09 74 07 ea 20 85  |iewer"):...t.. .|
000016d0  0d 09 7e 36 ee 20 85 20  ea 20 f2 6d 6f 61 6e 28  |..~6. . . .moan(|
000016e0  22 43 6f 75 6c 64 6e 27  74 20 73 61 76 65 20 3a  |"Couldn't save :|
000016f0  20 22 2b f6 24 2b 22 20  22 2b c3 28 9e 29 29 3a  | "+.$+" "+.(.)):|
00001700  e5 20 8d 64 44 49 0d 09  88 0c 73 61 76 65 24 3d  |. .dDI....save$=|
00001710  61 24 0d 09 92 26 e7 20  72 65 64 72 61 77 3d b9  |a$...&. redraw=.|
00001720  20 8c 20 63 68 61 72 73  3d 32 35 35 20 8b 20 63  | . chars=255 . c|
00001730  68 61 72 73 3d 31 32 36  0d 09 9c 0d f2 6d 61 6b  |hars=126.....mak|
00001740  65 66 6f 6e 74 0d 09 a6  0a f2 63 6d 65 6e 75 0d  |efont.....cmenu.|
00001750  09 b0 10 24 73 74 65 78  74 3d 73 61 76 65 24 0d  |...$stext=save$.|
00001760  09 ba 0e 6d 6f 64 69 66  69 65 64 3d 30 0d 09 c4  |...modified=0...|
00001770  07 f7 20 85 0d 09 ce 05  e1 0d 09 d8 0b dd f2 63  |.. ............c|
00001780  68 65 63 6b 0d 09 e2 28  e7 20 24 a4 74 61 64 28  |heck...(. $.tad(|
00001790  69 6e 66 6f 25 2c 39 29  3c 3e 22 a9 20 41 4d 46  |info%,9)<>". AMF|
000017a0  73 6f 66 74 20 31 39 39  31 22 20 8c 0d 09 ec 18  |soft 1991" .....|
000017b0  24 a4 74 61 64 28 63 68  61 72 62 6f 78 25 2c 30  |$.tad(charbox%,0|
000017c0  29 3d 22 22 0d 09 f6 18  24 a4 74 61 64 28 63 68  |)=""....$.tad(ch|
000017d0  61 72 62 6f 78 25 2c 31  29 3d 22 22 0d 0a 00 18  |arbox%,1)=""....|
000017e0  24 a4 74 61 64 28 63 68  61 72 62 6f 78 25 2c 32  |$.tad(charbox%,2|
000017f0  29 3d 22 22 0d 0a 0a 38  24 a4 74 61 64 28 63 68  |)=""...8$.tad(ch|
00001800  61 72 62 6f 78 25 2c 33  29 3d 22 23 23 23 23 23  |arbox%,3)="#####|
00001810  23 23 23 23 23 23 23 23  23 23 23 23 23 23 23 23  |################|
00001820  23 23 23 23 23 23 23 23  23 23 23 22 0d 0a 14 38  |###########"...8|
00001830  24 a4 74 61 64 28 63 68  61 72 62 6f 78 25 2c 37  |$.tad(charbox%,7|
00001840  29 3d 22 49 66 20 79 6f  75 20 63 68 6f 6f 73 65  |)="If you choose|
00001850  20 74 6f 20 72 69 70 20  6f 66 66 20 41 4d 46 73  | to rip off AMFs|
00001860  6f 66 74 22 0d 0a 1e 38  24 a4 74 61 64 28 63 68  |oft"...8$.tad(ch|
00001870  61 72 62 6f 78 25 2c 34  29 3d 22 23 23 23 23 23  |arbox%,4)="#####|
00001880  23 23 23 23 23 23 23 23  23 23 23 23 23 23 23 23  |################|
00001890  23 23 23 23 23 23 23 23  23 23 23 22 0d 0a 28 38  |###########"..(8|
000018a0  24 a4 74 61 64 28 63 68  61 72 62 6f 78 25 2c 38  |$.tad(charbox%,8|
000018b0  29 3d 22 73 6f 66 74 77  61 72 65 2c 79 6f 75 20  |)="software,you |
000018c0  77 69 6c 6c 20 68 61 76  65 20 74 6f 20 70 75 74  |will have to put|
000018d0  20 75 70 22 0d 0a 32 38  24 a4 74 61 64 28 63 68  | up"..28$.tad(ch|
000018e0  61 72 62 6f 78 25 2c 35  29 3d 22 23 23 23 23 23  |arbox%,5)="#####|
000018f0  23 23 23 23 23 23 23 23  23 23 23 23 23 23 23 23  |################|
00001900  23 23 23 23 23 23 23 23  23 23 23 22 0d 0a 3c 38  |###########"..<8|
00001910  24 a4 74 61 64 28 63 68  61 72 62 6f 78 25 2c 39  |$.tad(charbox%,9|
00001920  29 3d 22 77 69 74 68 20  65 74 65 72 6e 61 6c 20  |)="with eternal |
00001930  64 61 6d 6e 61 74 69 6f  6e 2e 4f 4b 3f 20 20 20  |damnation.OK?   |
00001940  20 20 20 22 0d 0a 46 38  24 a4 74 61 64 28 63 68  |   "..F8$.tad(ch|
00001950  61 72 62 6f 78 25 2c 36  29 3d 22 23 23 23 23 23  |arbox%,6)="#####|
00001960  23 23 23 23 23 23 23 23  23 23 23 23 23 23 23 23  |################|
00001970  23 23 23 23 23 23 23 23  23 23 23 22 0d 0a 50 05  |###########"..P.|
00001980  cd 0d 0a 5a 05 e1 0d 0a  64 11 dd f2 73 70 72 69  |...Z....d...spri|
00001990  74 65 63 6c 69 63 6b 0d  0a 6e 17 c8 97 20 78 78  |teclick..n... xx|
000019a0  78 2c 79 79 79 2c 62 3a  79 79 79 2d 3d 34 0d 0a  |x,yyy,b:yyy-=4..|
000019b0  78 34 21 69 63 6f 6e 64  3d 73 70 72 69 74 65 25  |x4!icond=sprite%|
000019c0  3a c8 99 20 22 57 69 6d  70 5f 47 65 74 57 69 6e  |:.. "Wimp_GetWin|
000019d0  64 6f 77 4f 75 74 6c 69  6e 65 22 2c 2c 69 63 6f  |dowOutline",,ico|
000019e0  6e 64 0d 0a 82 23 78 3d  78 78 78 2d 28 69 63 6f  |nd...#x=xxx-(ico|
000019f0  6e 64 21 34 29 3a 79 3d  79 79 79 2d 28 69 63 6f  |nd!4):y=yyy-(ico|
00001a00  6e 64 21 38 29 0d 0a 8c  1b 78 3d 78 20 81 20 33  |nd!8)....x=x . 3|
00001a10  32 3a 79 3d 79 20 81 20  33 32 3a 79 3d 37 2d 79  |2:y=y . 32:y=7-y|
00001a20  0d 0a 96 1d e7 20 78 3c  30 20 84 20 78 3e 37 20  |..... x<0 . x>7 |
00001a30  84 20 79 3c 30 20 84 20  79 3e 37 20 e1 0d 0a a0  |. y<0 . y>7 ....|
00001a40  0d f2 72 65 61 64 63 68  61 72 0d 0a aa 31 e7 20  |..readchar...1. |
00001a50  62 3d 34 20 8c 20 62 6c  6f 63 6b 3f 28 79 2b 31  |b=4 . block?(y+1|
00001a60  29 3d 28 62 6c 6f 63 6b  3f 28 79 2b 31 29 29 20  |)=(block?(y+1)) |
00001a70  84 20 28 32 5e 28 37 2d  78 29 29 0d 0a b4 37 e7  |. (2^(7-x))...7.|
00001a80  20 62 3d 31 20 8c 20 62  6c 6f 63 6b 3f 28 79 2b  | b=1 . block?(y+|
00001a90  31 29 3d 28 62 6c 6f 63  6b 3f 28 79 2b 31 29 29  |1)=(block?(y+1))|
00001aa0  20 80 20 28 32 35 35 2d  28 32 5e 28 37 2d 78 29  | . (255-(2^(7-x)|
00001ab0  29 29 0d 0a be 4f ef 32  33 2c 63 75 72 63 68 61  |))...O.23,curcha|
00001ac0  72 2c 62 6c 6f 63 6b 3f  31 2c 62 6c 6f 63 6b 3f  |r,block?1,block?|
00001ad0  32 2c 62 6c 6f 63 6b 3f  33 2c 62 6c 6f 63 6b 3f  |2,block?3,block?|
00001ae0  34 2c 62 6c 6f 63 6b 3f  35 2c 62 6c 6f 63 6b 3f  |4,block?5,block?|
00001af0  36 2c 62 6c 6f 63 6b 3f  37 2c 62 6c 6f 63 6b 3f  |6,block?7,block?|
00001b00  38 0d 0a c8 3f c8 99 20  22 57 69 6d 70 5f 46 6f  |8...?.. "Wimp_Fo|
00001b10  72 63 65 52 65 64 72 61  77 22 2c 73 70 72 69 74  |rceRedraw",sprit|
00001b20  65 25 2c 78 2a 33 32 2c  2d 28 79 2b 31 29 2a 33  |e%,x*32,-(y+1)*3|
00001b30  32 2c 28 78 2b 31 29 2a  33 32 2c 2d 79 2a 33 32  |2,(x+1)*32,-y*32|
00001b40  0d 0a d2 13 63 68 61 72  3d 63 75 72 63 68 61 72  |....char=curchar|
00001b50  2d 33 32 0d 0a dc 05 e1  0d 0a e6 11 dd f2 61 6c  |-32...........al|
00001b60  74 65 72 72 65 64 72 61  77 0d 0a f0 16 72 65 64  |terredraw....red|
00001b70  72 61 77 3d 72 65 64 72  61 77 20 82 20 2d 31 0d  |raw=redraw . -1.|
00001b80  0a fa 34 e7 20 72 65 64  72 61 77 3d 2d 31 20 8c  |..4. redraw=-1 .|
00001b90  20 e3 20 49 3d 31 31 20  b8 20 31 34 3a 24 a4 74  | . I=11 . 14:$.t|
00001ba0  61 64 28 63 68 61 72 62  6f 78 25 2c 49 29 3d 22  |ad(charbox%,I)="|
00001bb0  22 3a ed 0d 0b 04 10 e7  20 72 65 64 72 61 77 3d  |":...... redraw=|
00001bc0  30 20 8c 0d 0b 0e 39 24  a4 74 61 64 28 63 68 61  |0 ....9$.tad(cha|
00001bd0  72 62 6f 78 25 2c 31 31  29 3d 22 80 81 82 83 84  |rbox%,11)=".....|
00001be0  85 86 87 88 89 8a 8b 8c  8d 8e 8f 90 91 92 93 94  |................|
00001bf0  95 96 97 98 99 9a 9b 9c  9d 9e 9f 22 0d 0b 18 39  |..........."...9|
00001c00  24 a4 74 61 64 28 63 68  61 72 62 6f 78 25 2c 31  |$.tad(charbox%,1|
00001c10  32 29 3d 22 a0 a1 a2 a3  a4 a5 a6 a7 a8 a9 aa ab  |2)="............|
00001c20  ac ad ae af b0 b1 b2 b3  b4 b5 b6 b7 b8 b9 ba bb  |................|
00001c30  bc bd be bf 22 0d 0b 22  39 24 a4 74 61 64 28 63  |....".."9$.tad(c|
00001c40  68 61 72 62 6f 78 25 2c  31 33 29 3d 22 c0 c1 c2  |harbox%,13)="...|
00001c50  c3 c4 c5 c6 c7 c8 c9 ca  cb cc cd ce cf d0 d1 d2  |................|
00001c60  d3 d4 d5 d6 d7 d8 d9 da  db dc dd de df 22 0d 0b  |............."..|
00001c70  2c 39 24 a4 74 61 64 28  63 68 61 72 62 6f 78 25  |,9$.tad(charbox%|
00001c80  2c 31 34 29 3d 22 e0 e1  e2 e3 e4 e5 e6 e7 e8 e9  |,14)="..........|
00001c90  ea eb ec ed ee ef f0 f1  f2 f3 f4 f5 f6 f7 f8 f9  |................|
00001ca0  fa fb fc fd fe ff 22 0d  0b 36 05 cd 0d 0b 40 31  |......"..6....@1|
00001cb0  c8 99 20 22 57 69 6d 70  5f 46 6f 72 63 65 52 65  |.. "Wimp_ForceRe|
00001cc0  64 72 61 77 22 2c 63 68  61 72 62 6f 78 25 2c 30  |draw",charbox%,0|
00001cd0  2c 2d 31 32 38 30 2c 31  32 38 30 2c 30 0d 0b 4a  |,-1280,1280,0..J|
00001ce0  30 c8 99 20 22 57 69 6d  70 5f 46 6f 72 63 65 52  |0.. "Wimp_ForceR|
00001cf0  65 64 72 61 77 22 2c 73  70 72 69 74 65 25 2c 30  |edraw",sprite%,0|
00001d00  2c 2d 31 32 38 30 2c 31  32 38 30 2c 30 0d 0b 54  |,-1280,1280,0..T|
00001d10  05 e1 0d 0b 5e 12 dd f2  63 68 61 72 62 6f 78 63  |....^...charboxc|
00001d20  6c 69 63 6b 0d 0b 68 19  78 78 3d 62 6c 6f 63 6b  |lick..h.xx=block|
00001d30  21 30 3a 79 79 3d 62 6c  6f 63 6b 21 34 0d 0b 72  |!0:yy=block!4..r|
00001d40  33 21 62 6c 6f 63 6b 3d  63 68 61 72 62 6f 78 25  |3!block=charbox%|
00001d50  3a c8 99 20 22 57 69 6d  70 5f 47 65 74 57 69 6e  |:.. "Wimp_GetWin|
00001d60  64 6f 77 53 74 61 74 65  22 2c 2c 62 6c 6f 63 6b  |dowState",,block|
00001d70  0d 0b 7c 1e 78 78 3d 78  78 2d 62 6c 6f 63 6b 21  |..|.xx=xx-block!|
00001d80  34 3a 78 78 2b 3d 62 6c  6f 63 6b 21 32 30 0d 0b  |4:xx+=block!20..|
00001d90  86 1f 79 79 3d 79 79 2d  62 6c 6f 63 6b 21 31 36  |..yy=yy-block!16|
00001da0  3a 79 79 2b 3d 62 6c 6f  63 6b 21 32 34 0d 0b 90  |:yy+=block!24...|
00001db0  0b 78 78 3d 78 78 2d 34  0d 0b 9a 28 63 68 61 72  |.xx=xx-4...(char|
00001dc0  3d 33 32 2b 28 78 78 20  81 20 31 36 29 3a 63 68  |=32+(xx . 16):ch|
00001dd0  61 72 2d 3d 33 32 2a 28  79 79 20 81 20 34 30 29  |ar-=32*(yy . 40)|
00001de0  0d 0b a4 1c e7 20 63 68  61 72 3c 33 32 20 84 20  |..... char<32 . |
00001df0  63 68 61 72 3e 32 35 35  20 8c 20 e1 0d 0b ae 12  |char>255 . .....|
00001e00  e7 20 63 68 61 72 3d 31  32 37 20 8c 20 e1 0d 0b  |. char=127 . ...|
00001e10  b8 26 e3 20 49 3d 31 35  20 b8 20 32 31 3a 24 a4  |.&. I=15 . 21:$.|
00001e20  74 61 64 28 63 68 61 72  62 6f 78 25 2c 49 29 3d  |tad(charbox%,I)=|
00001e30  22 22 3a ed 0d 0b c2 2c  69 3d 63 75 72 63 68 61  |"":....,i=curcha|
00001e40  72 20 81 20 33 32 3a f2  61 6c 74 65 72 28 63 68  |r . 32:.alter(ch|
00001e50  61 72 62 6f 78 25 2c 69  2b 31 34 2c 30 2c 30 29  |arbox%,i+14,0,0)|
00001e60  0d 0b cc 1b 69 3d 63 68  61 72 20 81 20 33 32 3a  |....i=char . 32:|
00001e70  6a 3d 63 68 61 72 20 83  20 33 32 0d 0b d6 31 24  |j=char . 32...1$|
00001e80  a4 74 61 64 28 63 68 61  72 62 6f 78 25 2c 69 2b  |.tad(charbox%,i+|
00001e90  31 34 29 3d c4 6a 2c 22  20 22 29 2b bd 63 68 61  |14)=.j," ")+.cha|
00001ea0  72 2b c4 33 30 2d 6a 2c  22 20 22 29 0d 0b e0 1d  |r+.30-j," ")....|
00001eb0  f2 61 6c 74 65 72 28 63  68 61 72 62 6f 78 25 2c  |.alter(charbox%,|
00001ec0  69 2b 31 34 2c 30 2c 30  29 0d 0b ea 10 63 75 72  |i+14,0,0)....cur|
00001ed0  63 68 61 72 3d 63 68 61  72 0d 0b f4 2f 21 62 6c  |char=char.../!bl|
00001ee0  6f 63 6b 3d 73 70 72 69  74 65 25 3a c8 99 20 22  |ock=sprite%:.. "|
00001ef0  57 69 6d 70 5f 43 6c 6f  73 65 57 69 6e 64 6f 77  |Wimp_CloseWindow|
00001f00  22 2c 2c 62 6c 6f 63 6b  0d 0b fe 20 24 77 69 6e  |",,block... $win|
00001f10  74 69 74 3d c2 22 30 30  30 22 2b c3 28 63 75 72  |tit=."000"+.(cur|
00001f20  63 68 61 72 29 2c 33 29  0d 0c 08 18 f2 6f 70 65  |char),3).....ope|
00001f30  6e 77 69 6e 64 6f 77 28  73 70 72 69 74 65 25 29  |nwindow(sprite%)|
00001f40  0d 0c 12 05 e1 0d 0c 1c  0e dd f2 72 65 61 64 63  |...........readc|
00001f50  68 61 72 0d 0c 26 28 3f  62 6c 6f 63 6b 3d 63 75  |har..&(?block=cu|
00001f60  72 63 68 61 72 3a c8 99  20 22 4f 53 5f 57 6f 72  |rchar:.. "OS_Wor|
00001f70  64 22 2c 31 30 2c 62 6c  6f 63 6b 0d 0c 30 05 e1  |d",10,block..0..|
00001f80  0d 0c 3a 0c dd f2 64 72  61 77 77 31 0d 0c 44 17  |..:...draww1..D.|
00001f90  e7 20 a4 73 65 74 77 69  6e 20 f2 73 70 72 64 72  |. .setwin .sprdr|
00001fa0  61 77 32 0d 0c 4e 05 e1  0d 0c 58 0e dd f2 73 70  |aw2..N....X...sp|
00001fb0  72 64 72 61 77 32 0d 0c  62 0d f2 72 65 61 64 63  |rdraw2..b..readc|
00001fc0  68 61 72 0d 0c 6c 2e 6f  6e 3d 37 3a 6f 66 66 3d  |har..l.on=7:off=|
00001fd0  30 3a e7 20 ac 20 72 65  64 72 61 77 20 80 20 63  |0:. . redraw . c|
00001fe0  75 72 63 68 61 72 3e 31  32 37 20 8c 20 6f 6e 3d  |urchar>127 . on=|
00001ff0  33 0d 0c 76 09 78 78 3d  62 78 0d 0c 80 13 e3 20  |3..v.xx=bx..... |
00002000  41 25 3d 37 20 b8 20 30  20 88 20 2d 31 0d 0c 8a  |A%=7 . 0 . -1...|
00002010  0c 79 79 3d 62 79 2d 33  36 0d 0c 94 0e e3 20 42  |.yy=by-36..... B|
00002020  25 3d 30 20 b8 20 37 0d  0c 9e 2b e7 20 78 78 2b  |%=0 . 7...+. xx+|
00002030  33 32 3e 78 31 20 80 20  79 79 2b 33 32 3e 79 31  |32>x1 . yy+32>y1|
00002040  20 80 20 78 78 3c 78 32  20 80 20 79 79 3c 79 32  | . xx<x2 . yy<y2|
00002050  20 8c 0d 0c a8 53 e7 20  28 28 62 6c 6f 63 6b 3f  | ....S. ((block?|
00002060  28 42 25 2b 31 29 29 20  80 20 32 5e 41 25 29 3c  |(B%+1)) . 2^A%)<|
00002070  3e 30 20 8c 20 c8 99 20  22 57 69 6d 70 5f 53 65  |>0 . .. "Wimp_Se|
00002080  74 43 6f 6c 6f 75 72 22  2c 6f 6e 20 8b 20 c8 99  |tColour",on . ..|
00002090  20 22 57 69 6d 70 5f 53  65 74 43 6f 6c 6f 75 72  | "Wimp_SetColour|
000020a0  22 2c 6f 66 66 0d 0c b2  15 c8 93 20 c8 90 20 78  |",off...... .. x|
000020b0  78 2c 79 79 2c 33 32 2c  33 32 0d 0c bc 05 cd 0d  |x,yy,32,32......|
000020c0  0c c6 0a 79 79 2d 3d 33  32 0d 0c d0 05 ed 0d 0c  |...yy-=32.......|
000020d0  da 0a 78 78 2b 3d 33 32  0d 0c e4 05 ed 0d 0c ee  |..xx+=32........|
000020e0  05 e1 0d 0c f8 0c dd a4  73 65 74 77 69 6e 0d 0d  |........setwin..|
000020f0  02 17 62 78 3d 62 6c 6f  63 6b 21 34 2d 62 6c 6f  |..bx=block!4-blo|
00002100  63 6b 21 32 30 0d 0d 0c  18 62 79 3d 62 6c 6f 63  |ck!20....by=bloc|
00002110  6b 21 31 36 2d 62 6c 6f  63 6b 21 32 34 0d 0d 16  |k!16-block!24...|
00002120  3b 78 31 3d 62 6c 6f 63  6b 21 32 38 3a 79 31 3d  |;x1=block!28:y1=|
00002130  62 6c 6f 63 6b 21 33 32  3a 78 32 3d 28 62 6c 6f  |block!32:x2=(blo|
00002140  63 6b 21 33 36 29 2d 32  3a 79 32 3d 28 62 6c 6f  |ck!36)-2:y2=(blo|
00002150  63 6b 21 34 30 29 2d 34  0d 0d 20 18 e7 20 78 32  |ck!40)-4.. .. x2|
00002160  3c 78 31 20 84 20 79 32  3c 79 31 20 8c 20 3d 30  |<x1 . y2<y1 . =0|
00002170  0d 0d 2a 14 ef 32 34 2c  78 31 3b 79 31 3b 78 32  |..*..24,x1;y1;x2|
00002180  3b 79 32 3b 0d 0d 34 07  3d 2d 31 0d 0d 3e 0f dd  |;y2;..4.=-1..>..|
00002190  f2 72 65 64 72 61 77 73  63 72 0d 0d 48 2e c8 99  |.redrawscr..H...|
000021a0  20 22 57 69 6d 70 5f 46  6f 72 63 65 52 65 64 72  | "Wimp_ForceRedr|
000021b0  61 77 22 2c 2d 31 2c 30  2c 30 2c 32 30 30 30 30  |aw",-1,0,0,20000|
000021c0  30 2c 31 30 32 34 30 30  0d 0d 52 05 e1 0d 0d 5c  |0,102400..R....\|
000021d0  0e dd f2 6d 61 6b 65 66  6f 6e 74 0d 0d 66 12 ff  |...makefont..f..|
000021e0  28 22 53 70 6f 6f 6c 20  22 2b 61 24 29 0d 0d 70  |("Spool "+a$)..p|
000021f0  12 e3 20 49 3d 33 32 20  b8 20 63 68 61 72 73 0d  |.. I=32 . chars.|
00002200  0d 7a 09 ef 32 33 2c 49  0d 0d 84 0c 3f 62 6c 6f  |.z..23,I....?blo|
00002210  63 6b 3d 49 0d 0d 8e 19  c8 99 20 22 4f 53 5f 57  |ck=I...... "OS_W|
00002220  6f 72 64 22 2c 31 30 2c  62 6c 6f 63 6b 0d 0d 98  |ord",10,block...|
00002230  0e e3 20 49 25 3d 31 20  b8 20 38 0d 0d a2 0f ef  |.. I%=1 . 8.....|
00002240  28 49 25 3f 62 6c 6f 63  6b 29 0d 0d ac 05 ed 0d  |(I%?block)......|
00002250  0d b6 05 ed 0d 0d c0 0a  2a 53 70 6f 6f 6c 0d 0d  |........*Spool..|
00002260  ca 1b ff 28 22 53 65 74  54 79 70 65 20 22 2b 61  |...("SetType "+a|
00002270  24 2b 22 20 46 46 37 22  29 0d 0d d4 05 e1 0d ff  |$+" FF7").......|
00002280