� >!RunImage
 � Program   Note Pad Utility
� Version   A 1.0
(� Author    David Spencer
2� RISC User April 1989
<$� Program   Subject to Copyright
F:
Pș "OS_GetEnv" � c$
Q	a$=c$
Zp=�c$,"""",�c$,"""")+1)
dc$=�c$,p+1)
nȕ �c$,1)=" "
x
c$=�c$,2)
��
�[maxpage=7:� block 200, mt 100, st 256, data (600*(maxpage+1)), menu 150, fi 100, pno 20
�#$mt="<Untitled>":$st="Save as:"
�$fi="Notes":mod=�
�D$block="TASK":ș "Wimp_Initialise",200,!block,"Note Pad" � ,task
�� � �error
��wipe:insert=�
�
�assemble
�1S%=� "<NotePad$Dir>.Sprites":T%=�#S%+16:� #S%
�� sp T%:!sp=T%:sp!4=0
�sp!8=16:sp!12=16
�4ș "OS_SpriteOp",&10A,sp,"<NotePad$Dir>.Sprites"
�X=�(624)-1:Y=�(480)-1

6main=�create(X,Y,656,544,&FF000002,0,656,544,3,mt)

6file=�create(0,0,268,164,&84000012,1,268,164,0,st)

6sicon=�spriteicon(-1,0,0,68,68,&3102,1,"!notepad")

";left=�spriteicon(main,8,-36,40,-4,&3102,sp,"leftarrow")

,@right=�spriteicon(main,616,-36,648,-4,&3102,sp,"rightarrow")

6>fsave=�spriteicon(file,100,-92,168,-24,&6102,1,"file_fee")

@G� t 2:$t="OK":ok=�texticon(file,214,-160,260,-112,&C701913D,t,-1,3)

JG� t 3:$t="A~ ":wr=�texticon(file,4,-160,210,-112,&700F12D,fi,t,255)

T9void=�texticon(main,280,-36,376,-4,&7000119,pno,-1,7)

^quit=�:tx=0:ty=0

h6� c$="" � open=� � �load(c$):open=�:�retitle(main)

r�

|#ș "Wimp_Poll",1,block � reason

�Ȏ reason �

�� 1:�redraw(!block)

�#� 2:ș "Wimp_OpenWindow",,block

�� 3:�close(!block)

�� 6:�buttons(block)

�
� 7:�save

�� 8:�key(block)

�� 9:�menuselect(block)

�� 17,18:�receive(block)

��

�
� quit

�ș "Wimp_CloseDown"

��
:
� �receive(b)

Ȏ b!16 �
&� 0:quit=�
0� 2:�datasave(b)
:!� 3,5:� b!12=0 � �dataload(b)
D�
N�
X:
b1� �create(vx,vy,w,h,flags,bcol,x,y,waf,title)
l$block=�88,�0)
v!block=vx:block!4=vy
�block!8=vx+w:block!12=vy+h
�block!24=-1:block!28=flags
�block?32=7:block?33=2
�block?34=7:block?35=bcol
�block?36=3:block?37=1
�block?38=12
�block!44=-y:block!48=x
�"block!56=&13D:block!60=waf<<12
�block!72=title:block!76=-1
�block!80=�$title
�*ș "Wimp_CreateWindow",,block � handle
�=handle
�:
� �redraw(handle)
� handle=main �
!block=handle
 (ș "Wimp_RedrawWindow",,block � more
*ȕ more
4
�workarea
>(ș "Wimp_GetRectangle",,block � more
H�
R�
\�
f:
p� �buttons(b)
z� b!8 � 2 �
��menu(b)
��
�
Ȏ b!12 �
�� -2:� Iconbar
�� (b!16=sicon) � �open �
�!block=main
�#ș "Wimp_GetWindowState",,block
�ș "Wimp_OpenWindow",,block
�open=�:�movecaret
��
�
� main
�
Ȏ b!16 �
�� -1:�putcaret(b)
� left:� � �bpage � 7
� right:� � �fpage � 7
�
$
� file
.%� (b!16=fsave) � (b!8 � &50)<>0 �
8!block=file
B#ș "Wimp_GetWindowState",,block
Lwex=block!4-block!20
Vwey=block!16-block!24
`block!4=fsave
j!ș "Wimp_GetIconState",,block
t!block=file:block!4=5
~block!8=block!8+wex
�block!12=block!12+wey
�block!16=block!16+wex
�block!20=block!20+wey
�block!24=0:block!28=0
�)block!32=&7FFFFFFF:block!36=&7FFFFFFF
�ș "Wimp_DragBox",,block
��
�� b!16=ok �
��quicksave
��
��
��
�

:
� �close(handle)
� handle=main � open=�
(!block=handle
2 ș "Wimp_CloseWindow",,block
<�
F:
P� �workarea
Zox=block!4-block!20
doy=block!16-block!24
n� ox,oy-40:� BY 656,0
x"ptr=data+page*600:oy-=56:ox+=8
�� line=0 � 14
�E� �(block!40<oy-28 � block!32>oy) � � ox,oy:ș "OS_WriteN",ptr,40
�oy-=32:ptr+=40
��
��
�:
�7� �spriteicon(window,x0,y0,x1,y1,flags,sptr,sname$)
�&� block!24 �sname$+1:block!28=sptr
�'block!32=�sname$+1:$block!24=sname$
�'=�iconblk(window,x0,y0,x1,y1,flags)
�:
�7� �texticon(window,x0,y0,x1,y1,flags,tptr,vptr,len)
�block!24=tptr:block!28=vptr
block!32=len
'=�iconblk(window,x0,y0,x1,y1,flags)
:
"(� �iconblk(window,x0,y0,x1,y1,flags)
,!block=window
6block!4=x0:block!8=y0
@block!12=x1:block!16=y1
Jblock!20=flags
T&ș "Wimp_CreateIcon",,block � icon
^	=icon
h:
r� �menu(b)
|
Ȏ b!12 �
�%� -2:�drawmenu(1,"Note Pad,Quit")
�*ș "Wimp_CreateMenu",,menu+4,!b-64,136
�?� main:�drawmenu(2,"Note Pad,Insert,Over,Clear,Print,Save")
�� insert �
�� menu!40=menu!40 OR 1<<22
�menu!32=menu!32 � 1
��
�� menu!64=menu!64 OR 1<<22
�menu!56=menu!56 � 1
��
�ptr!-20=file
�-ș "Wimp_CreateMenu",,menu+4,!b-32,b!4+16
��
�
:
� �drawmenu(handle,menu$)
&!menu=handle:menu?16=7
0!menu?17=2:menu?18=7:menu?19=0
:menu!20=156:menu!24=40
Dmenu!28=0:ptr=menu+32
N#$(menu+4)=�menu$,�menu$,",")-1)
Xmenu$=menu$+","
bȕ menu$<>""
lmenu$=�menu$,�menu$,",")+1)
v� menu$<>"" �
�!ptr=0:ptr!4=-1
�ptr!8=&7000021
�#$(ptr+12)=�menu$,�menu$,",")-1)
�ptr+=24
��
��
�ptr!-24=ptr!-24 � &80
��
�:
�� �menuselect(b)
�Ȏ !menu �
�� 1
�Ȏ !b �
� 0:quit=�
�
� 2
 Ȏ !b �
*� 0:insert=�
4� 1:insert=�
>� 2:�clear
H� 3:�print
R�
\�
f�
p:
z� �error
�ș "Wimp_DragBox",,-1
�!block=�
�4$(block+4)=�$+" (Internal error code "+Þ+")"+�0
�,ș "Wimp_ReportError",block,1,"Note Pad"
�
� �DrA
�:
�� �putcaret(b)
�x=!b:y=b!4:!block=main
�#ș "Wimp_GetWindowState",,block
�x=x-block!4+block!20-8
�y=y-block!16+block!24+56
�� y>=16 � �
�� y>0 � y=0
	� y<-476 � y=-476
	� x<0 � x=0
	� x>632 � x=632
	$x=(x � �15)-16*((x � 15)>7)
	.tx=x � 16:ty=-y � 32
	8!� tx=40 � ty<>14 � tx=0:ty+=1
	B� tx=40 � ty=14 � tx=39
	L�movecaret
	V�
	`:
	j
� �key(b)
	t� !b=main �
	~key=b!24
	�
Ȏ � �
	�� key=&18B:�delete(�)
	�� key=&7F:�delete(�)
	�� key=&D:�newline
	�� key=&1CD:�insert
	�#� key<&100 � key>&1F:�char(key)
	�-� key>=&18C � key<=&18F:�cursor(key-&18C)
	� ș "Wimp_ProcessKey",key
	��
	��
	�-� !b=file � b!4=wr � b!24=&D � �quicksave
	��
	��
	�:
� �cursor(dir)

Ȏ dir �

� 0:tx-=1

� 1:tx+=1
(
� 2:ty+=1
2
� 3:ty-=1
<�
F� tx<0 � tx=39:ty-=1
P� tx>39 � tx=0:ty+=1
Z� ty<0 � ty=-14*�bpage
d� ty>14 � ty=-14*� �fpage
n�movecaret
x�
�:
�� �bpage
�� page=0 � =�
�"page-=1:$pno="Page "+�(page+1)
�+ș "Wimp_ForceRedraw",main,0,-544,656,0
�=�
�:
�� �fpage
�� page=maxpage � =�
�"page+=1:$pno="Page "+�(page+1)
�+ș "Wimp_ForceRedraw",main,0,-544,656,0
�=�
�:
� �movecaret
Fș "Wimp_SetCaretPosition",main,-1,tx*16+8,-ty*32-88,40+(1<<24),-1
�
":
,� �wipe
6#� ptr=0 � (maxpage+1)*600-1 � 4
@data!ptr=&20202020
J�:tx=0:ty=0
T!page=0:$pno="Page "+�(page+1)
^�
h:
r� �clear
|	�wipe
��retitle(main)
�+ș "Wimp_ForceRedraw",main,0,-544,656,0
��
�:
�� �char(key)
�ptr=page*600+ty*40+tx
�� insert �
�%� data?((maxpage+1)*600-1)=�" " �
��shunt(ptr,�)
�data?ptr=key
�5ș "Wimp_ForceRedraw",main,0,-544,656,-(52+32*ty)
�� �7
��
�
data?ptr=key
Gș "Wimp_ForceRedraw",main,8+16*tx,-(87+32*ty),24+16*tx,-(52+32*ty)
&�
0
�modified
:�cursor(1)
D�
N:
X� �shunt(from,dir)
bA%=data+from
lB%=data+(maxpage+1)*600-1
v� dir � C%=1 � C%=-1
�
� code
��
�:
�� �modified
�
� � mod �
�mod=�:$mt+=" *"
��retitle(main)
��
��
�:
�
� �insert
�� insert:insert=�
��char(32):�cursor(0)

�

:

� �delete(dir)

 � �(insert � dir) �

*�cursor(0):�char(32)

4�cursor(0)

>�

H!ptr=page*600+ty*40+tx+(dir=�)

R�shunt(ptr,�)

\!data?((maxpage+1)*600-1)=�" "

f5ș "Wimp_ForceRedraw",main,0,-544,656,-(52+32*ty)

p� � dir � �cursor(0)

zY� � dir � tx=39 � ș "Wimp_ForceRedraw",main,8+16*tx,-(87+32*ty),24+16*tx,-(52+32*ty)

��

��

�:

�� �newline

�tx=0:�cursor(2)

��

�:

�� �assemble

�� code 200

�� pass=0 � 2 � 2

�P%=code

�
[OPT pass

�$\Move (R0)...(R1) up/down 1 byte
MOVS R2,R2:BMI startlo
.loop LDRB R2,[R1]
 STRB R2,[R1,#1]:SUB R1,R1,#1
$CMP R1,R0:BCS loop
.MOV PC,R14
8.startlo LDRB R2,[R0,#1]
BSTRB R2,[R0]:ADD R0,R0,#1
LCMP R0,R1:BLS startlo
VMOV PC,R14
`]�
j�
t:
~� �retitle(!block)
�#ș "Wimp_GetWindowState",,block
� ș "Wimp_CloseWindow",,block
�ș "Wimp_OpenWindow",,block
��movecaret:open=�
��
�:
�� �saveit(name$)
�9ș "OS_File",10,name$,&FEE,,data,data+600*(maxpage)+1
�mod=�:$mt=name$
�ș "Wimp_CreateMenu",,-1
��retitle(main)
��
:

� �leaf(path$)
ȕ �path$,".")
path$=�path$,�path$,".")+1)
(�
2
=path$
<:
F� �save
P#ș "Wimp_GetPointerInfo",,block
Zblock!20=64:block!32=0
d block!36=1:block!40=block!12
nblock!44=block!16
xblock!48=!block
�block!52=block!4
�block!56=(maxpage+1)*600
�block!60=&FEE
�$(block+64)=�leaf($fi)
�7ș "Wimp_SendMessage",17,block+20,block!12,block!16
��
�:
�� �datasave(b)
��saveit(�gname(b+44))
�$fi=�gname(b+44)
�b!12=b!8:b!16=3:!b=64
�(ș "Wimp_SendMessage",17,b,b!20,b!24
��
:
� �dataload(b)

Ȏ b!40 �
"
� &FEE
,�load(�gname(b+44))
6�ackload(b)
@
� &FFF
J�textload(�gname(b+44))
T�ackload(b)
^�
h�
r:
|� �load(name$)
�ș "OS_File",&FF,name$,data
�$fi=name$:$mt=name$
��
�:
�� �gname(ptr)
�	f$=""
�ȕ ?ptr<>0 � ?ptr<>13
�f$=f$+�?ptr:ptr+=1
��
�=f$
�:
�� �ackload(b)
�mod=�:tx=0:ty=0
page=0:$pno="Page 1"
b!12=b!8:b!16=4:!b=64
"ș "Wimp_SendMessage",17,b,b!4
&�retitle(main)
0�
::
D� �textload(name$)
N	�wipe
X#ș "OS_Find",&48,name$ � handle
boffset=0:last=0
l*ȕ offset<(maxpage+1)*600 � � �#handle
vchar=�#handle
�-� char=13 � last=10 � char=10 � last=13 �
�
last=0
��
�
last=char
�� char<>10 � char<>13 �
�data?offset=char:offset+=1
��
� offset=40*((offset+39) � 40)
��
��
��
�� � �#handle �
�-$(block+64)="    Text has been truncated"
/ș "Wimp_ReportError",block+64,1,"Note Pad"
�

� #handle
 !$fi="Imported":$mt="Imported"
*�
4:
>� �quicksave
H� �$fi,".") �
R�saveit($fi)
\�
f=$block="    To save, drag the icon to a directory viewer"
p,ș "Wimp_ReportError",block,1,"Note Pad"
z�
��
�:
�� �print
�� �
�� � � � 3:� "FX229 1":�
�� 2:*FX 229
�� sheet=0 � maxpage
�� line=0 � 14
�� char=0 � 39
�%� 1,data?(sheet*600+line*40+char)
��
��cr
��
� sheet<>2 � �cr:�cr
�
� 3:*FX 299 1
$�
.:
8	� �cr
B
� 1,13
L ș "OS_Byte",246,0,255 � ,ig
V� ig<>10 � � 1,10
`�
�

00000000  0d 00 0a 10 f4 20 3e 21  52 75 6e 49 6d 61 67 65  |..... >!RunImage|
00000010  0d 00 14 20 f4 20 50 72  6f 67 72 61 6d 20 20 20  |... . Program   |
00000020  4e 6f 74 65 20 50 61 64  20 55 74 69 6c 69 74 79  |Note Pad Utility|
00000030  0d 00 1e 15 f4 20 56 65  72 73 69 6f 6e 20 20 20  |..... Version   |
00000040  41 20 31 2e 30 0d 00 28  1d f4 20 41 75 74 68 6f  |A 1.0..(.. Autho|
00000050  72 20 20 20 20 44 61 76  69 64 20 53 70 65 6e 63  |r    David Spenc|
00000060  65 72 0d 00 32 1a f4 20  52 49 53 43 20 55 73 65  |er..2.. RISC Use|
00000070  72 20 41 70 72 69 6c 20  31 39 38 39 0d 00 3c 24  |r April 1989..<$|
00000080  f4 20 50 72 6f 67 72 61  6d 20 20 20 53 75 62 6a  |. Program   Subj|
00000090  65 63 74 20 74 6f 20 43  6f 70 79 72 69 67 68 74  |ect to Copyright|
000000a0  0d 00 46 05 3a 0d 00 50  17 c8 99 20 22 4f 53 5f  |..F.:..P... "OS_|
000000b0  47 65 74 45 6e 76 22 20  b8 20 63 24 0d 00 51 09  |GetEnv" . c$..Q.|
000000c0  61 24 3d 63 24 0d 00 5a  1b 70 3d a7 63 24 2c 22  |a$=c$..Z.p=.c$,"|
000000d0  22 22 22 2c a7 63 24 2c  22 22 22 22 29 2b 31 29  |""",.c$,"""")+1)|
000000e0  0d 00 64 0f 63 24 3d c1  63 24 2c 70 2b 31 29 0d  |..d.c$=.c$,p+1).|
000000f0  00 6e 11 c8 95 20 c0 63  24 2c 31 29 3d 22 20 22  |.n... .c$,1)=" "|
00000100  0d 00 78 0d 63 24 3d c1  63 24 2c 32 29 0d 00 82  |..x.c$=.c$,2)...|
00000110  05 ce 0d 00 8c 5b 6d 61  78 70 61 67 65 3d 37 3a  |.....[maxpage=7:|
00000120  de 20 62 6c 6f 63 6b 20  32 30 30 2c 20 6d 74 20  |. block 200, mt |
00000130  31 30 30 2c 20 73 74 20  32 35 36 2c 20 64 61 74  |100, st 256, dat|
00000140  61 20 28 36 30 30 2a 28  6d 61 78 70 61 67 65 2b  |a (600*(maxpage+|
00000150  31 29 29 2c 20 6d 65 6e  75 20 31 35 30 2c 20 66  |1)), menu 150, f|
00000160  69 20 31 30 30 2c 20 70  6e 6f 20 32 30 0d 00 96  |i 100, pno 20...|
00000170  23 24 6d 74 3d 22 3c 55  6e 74 69 74 6c 65 64 3e  |#$mt="<Untitled>|
00000180  22 3a 24 73 74 3d 22 53  61 76 65 20 61 73 3a 22  |":$st="Save as:"|
00000190  0d 00 a0 15 24 66 69 3d  22 4e 6f 74 65 73 22 3a  |....$fi="Notes":|
000001a0  6d 6f 64 3d a3 0d 00 aa  44 24 62 6c 6f 63 6b 3d  |mod=....D$block=|
000001b0  22 54 41 53 4b 22 3a c8  99 20 22 57 69 6d 70 5f  |"TASK":.. "Wimp_|
000001c0  49 6e 69 74 69 61 6c 69  73 65 22 2c 32 30 30 2c  |Initialise",200,|
000001d0  21 62 6c 6f 63 6b 2c 22  4e 6f 74 65 20 50 61 64  |!block,"Note Pad|
000001e0  22 20 b8 20 2c 74 61 73  6b 0d 00 b4 0e ee 20 85  |" . ,task..... .|
000001f0  20 f2 65 72 72 6f 72 0d  00 be 12 f2 77 69 70 65  | .error.....wipe|
00000200  3a 69 6e 73 65 72 74 3d  b9 0d 00 c8 0d f2 61 73  |:insert=......as|
00000210  73 65 6d 62 6c 65 0d 00  d2 31 53 25 3d 8e 20 22  |semble...1S%=. "|
00000220  3c 4e 6f 74 65 50 61 64  24 44 69 72 3e 2e 53 70  |<NotePad$Dir>.Sp|
00000230  72 69 74 65 73 22 3a 54  25 3d a2 23 53 25 2b 31  |rites":T%=.#S%+1|
00000240  36 3a d9 20 23 53 25 0d  00 dc 19 de 20 73 70 20  |6:. #S%..... sp |
00000250  54 25 3a 21 73 70 3d 54  25 3a 73 70 21 34 3d 30  |T%:!sp=T%:sp!4=0|
00000260  0d 00 e6 14 73 70 21 38  3d 31 36 3a 73 70 21 31  |....sp!8=16:sp!1|
00000270  32 3d 31 36 0d 00 f0 34  c8 99 20 22 4f 53 5f 53  |2=16...4.. "OS_S|
00000280  70 72 69 74 65 4f 70 22  2c 26 31 30 41 2c 73 70  |priteOp",&10A,sp|
00000290  2c 22 3c 4e 6f 74 65 50  61 64 24 44 69 72 3e 2e  |,"<NotePad$Dir>.|
000002a0  53 70 72 69 74 65 73 22  0d 00 fa 19 58 3d b3 28  |Sprites"....X=.(|
000002b0  36 32 34 29 2d 31 3a 59  3d b3 28 34 38 30 29 2d  |624)-1:Y=.(480)-|
000002c0  31 0d 01 04 36 6d 61 69  6e 3d a4 63 72 65 61 74  |1...6main=.creat|
000002d0  65 28 58 2c 59 2c 36 35  36 2c 35 34 34 2c 26 46  |e(X,Y,656,544,&F|
000002e0  46 30 30 30 30 30 32 2c  30 2c 36 35 36 2c 35 34  |F000002,0,656,54|
000002f0  34 2c 33 2c 6d 74 29 0d  01 0e 36 66 69 6c 65 3d  |4,3,mt)...6file=|
00000300  a4 63 72 65 61 74 65 28  30 2c 30 2c 32 36 38 2c  |.create(0,0,268,|
00000310  31 36 34 2c 26 38 34 30  30 30 30 31 32 2c 31 2c  |164,&84000012,1,|
00000320  32 36 38 2c 31 36 34 2c  30 2c 73 74 29 0d 01 18  |268,164,0,st)...|
00000330  36 73 69 63 6f 6e 3d a4  73 70 72 69 74 65 69 63  |6sicon=.spriteic|
00000340  6f 6e 28 2d 31 2c 30 2c  30 2c 36 38 2c 36 38 2c  |on(-1,0,0,68,68,|
00000350  26 33 31 30 32 2c 31 2c  22 21 6e 6f 74 65 70 61  |&3102,1,"!notepa|
00000360  64 22 29 0d 01 22 3b 6c  65 66 74 3d a4 73 70 72  |d")..";left=.spr|
00000370  69 74 65 69 63 6f 6e 28  6d 61 69 6e 2c 38 2c 2d  |iteicon(main,8,-|
00000380  33 36 2c 34 30 2c 2d 34  2c 26 33 31 30 32 2c 73  |36,40,-4,&3102,s|
00000390  70 2c 22 6c 65 66 74 61  72 72 6f 77 22 29 0d 01  |p,"leftarrow")..|
000003a0  2c 40 72 69 67 68 74 3d  a4 73 70 72 69 74 65 69  |,@right=.spritei|
000003b0  63 6f 6e 28 6d 61 69 6e  2c 36 31 36 2c 2d 33 36  |con(main,616,-36|
000003c0  2c 36 34 38 2c 2d 34 2c  26 33 31 30 32 2c 73 70  |,648,-4,&3102,sp|
000003d0  2c 22 72 69 67 68 74 61  72 72 6f 77 22 29 0d 01  |,"rightarrow")..|
000003e0  36 3e 66 73 61 76 65 3d  a4 73 70 72 69 74 65 69  |6>fsave=.spritei|
000003f0  63 6f 6e 28 66 69 6c 65  2c 31 30 30 2c 2d 39 32  |con(file,100,-92|
00000400  2c 31 36 38 2c 2d 32 34  2c 26 36 31 30 32 2c 31  |,168,-24,&6102,1|
00000410  2c 22 66 69 6c 65 5f 66  65 65 22 29 0d 01 40 47  |,"file_fee")..@G|
00000420  de 20 74 20 32 3a 24 74  3d 22 4f 4b 22 3a 6f 6b  |. t 2:$t="OK":ok|
00000430  3d a4 74 65 78 74 69 63  6f 6e 28 66 69 6c 65 2c  |=.texticon(file,|
00000440  32 31 34 2c 2d 31 36 30  2c 32 36 30 2c 2d 31 31  |214,-160,260,-11|
00000450  32 2c 26 43 37 30 31 39  31 33 44 2c 74 2c 2d 31  |2,&C701913D,t,-1|
00000460  2c 33 29 0d 01 4a 47 de  20 74 20 33 3a 24 74 3d  |,3)..JG. t 3:$t=|
00000470  22 41 7e 20 22 3a 77 72  3d a4 74 65 78 74 69 63  |"A~ ":wr=.textic|
00000480  6f 6e 28 66 69 6c 65 2c  34 2c 2d 31 36 30 2c 32  |on(file,4,-160,2|
00000490  31 30 2c 2d 31 31 32 2c  26 37 30 30 46 31 32 44  |10,-112,&700F12D|
000004a0  2c 66 69 2c 74 2c 32 35  35 29 0d 01 54 39 76 6f  |,fi,t,255)..T9vo|
000004b0  69 64 3d a4 74 65 78 74  69 63 6f 6e 28 6d 61 69  |id=.texticon(mai|
000004c0  6e 2c 32 38 30 2c 2d 33  36 2c 33 37 36 2c 2d 34  |n,280,-36,376,-4|
000004d0  2c 26 37 30 30 30 31 31  39 2c 70 6e 6f 2c 2d 31  |,&7000119,pno,-1|
000004e0  2c 37 29 0d 01 5e 14 71  75 69 74 3d a3 3a 74 78  |,7)..^.quit=.:tx|
000004f0  3d 30 3a 74 79 3d 30 0d  01 68 36 e7 20 63 24 3d  |=0:ty=0..h6. c$=|
00000500  22 22 20 8c 20 6f 70 65  6e 3d a3 20 8b 20 f2 6c  |"" . open=. . .l|
00000510  6f 61 64 28 63 24 29 3a  6f 70 65 6e 3d b9 3a f2  |oad(c$):open=.:.|
00000520  72 65 74 69 74 6c 65 28  6d 61 69 6e 29 0d 01 72  |retitle(main)..r|
00000530  05 f5 0d 01 7c 23 c8 99  20 22 57 69 6d 70 5f 50  |....|#.. "Wimp_P|
00000540  6f 6c 6c 22 2c 31 2c 62  6c 6f 63 6b 20 b8 20 72  |oll",1,block . r|
00000550  65 61 73 6f 6e 0d 01 86  0f c8 8e 20 72 65 61 73  |eason...... reas|
00000560  6f 6e 20 ca 0d 01 90 17  c9 20 31 3a f2 72 65 64  |on ...... 1:.red|
00000570  72 61 77 28 21 62 6c 6f  63 6b 29 0d 01 9a 23 c9  |raw(!block)...#.|
00000580  20 32 3a c8 99 20 22 57  69 6d 70 5f 4f 70 65 6e  | 2:.. "Wimp_Open|
00000590  57 69 6e 64 6f 77 22 2c  2c 62 6c 6f 63 6b 0d 01  |Window",,block..|
000005a0  a4 16 c9 20 33 3a f2 63  6c 6f 73 65 28 21 62 6c  |... 3:.close(!bl|
000005b0  6f 63 6b 29 0d 01 ae 17  c9 20 36 3a f2 62 75 74  |ock)..... 6:.but|
000005c0  74 6f 6e 73 28 62 6c 6f  63 6b 29 0d 01 b8 0d c9  |tons(block).....|
000005d0  20 37 3a f2 73 61 76 65  0d 01 c2 13 c9 20 38 3a  | 7:.save..... 8:|
000005e0  f2 6b 65 79 28 62 6c 6f  63 6b 29 0d 01 cc 1a c9  |.key(block).....|
000005f0  20 39 3a f2 6d 65 6e 75  73 65 6c 65 63 74 28 62  | 9:.menuselect(b|
00000600  6c 6f 63 6b 29 0d 01 d6  1b c9 20 31 37 2c 31 38  |lock)..... 17,18|
00000610  3a f2 72 65 63 65 69 76  65 28 62 6c 6f 63 6b 29  |:.receive(block)|
00000620  0d 01 e0 05 cb 0d 01 ea  0a fd 20 71 75 69 74 0d  |.......... quit.|
00000630  01 f4 17 c8 99 20 22 57  69 6d 70 5f 43 6c 6f 73  |..... "Wimp_Clos|
00000640  65 44 6f 77 6e 22 0d 01  fe 05 e0 0d 02 08 05 3a  |eDown".........:|
00000650  0d 02 12 11 dd 20 f2 72  65 63 65 69 76 65 28 62  |..... .receive(b|
00000660  29 0d 02 1c 0d c8 8e 20  62 21 31 36 20 ca 0d 02  |)...... b!16 ...|
00000670  26 0e c9 20 30 3a 71 75  69 74 3d b9 0d 02 30 14  |&.. 0:quit=...0.|
00000680  c9 20 32 3a f2 64 61 74  61 73 61 76 65 28 62 29  |. 2:.datasave(b)|
00000690  0d 02 3a 21 c9 20 33 2c  35 3a e7 20 62 21 31 32  |..:!. 3,5:. b!12|
000006a0  3d 30 20 8c 20 f2 64 61  74 61 6c 6f 61 64 28 62  |=0 . .dataload(b|
000006b0  29 0d 02 44 05 cb 0d 02  4e 05 e1 0d 02 58 05 3a  |)..D....N....X.:|
000006c0  0d 02 62 31 dd 20 a4 63  72 65 61 74 65 28 76 78  |..b1. .create(vx|
000006d0  2c 76 79 2c 77 2c 68 2c  66 6c 61 67 73 2c 62 63  |,vy,w,h,flags,bc|
000006e0  6f 6c 2c 78 2c 79 2c 77  61 66 2c 74 69 74 6c 65  |ol,x,y,waf,title|
000006f0  29 0d 02 6c 12 24 62 6c  6f 63 6b 3d c4 38 38 2c  |)..l.$block=.88,|
00000700  bd 30 29 0d 02 76 18 21  62 6c 6f 63 6b 3d 76 78  |.0)..v.!block=vx|
00000710  3a 62 6c 6f 63 6b 21 34  3d 76 79 0d 02 80 1e 62  |:block!4=vy....b|
00000720  6c 6f 63 6b 21 38 3d 76  78 2b 77 3a 62 6c 6f 63  |lock!8=vx+w:bloc|
00000730  6b 21 31 32 3d 76 79 2b  68 0d 02 8a 1e 62 6c 6f  |k!12=vy+h....blo|
00000740  63 6b 21 32 34 3d 2d 31  3a 62 6c 6f 63 6b 21 32  |ck!24=-1:block!2|
00000750  38 3d 66 6c 61 67 73 0d  02 94 19 62 6c 6f 63 6b  |8=flags....block|
00000760  3f 33 32 3d 37 3a 62 6c  6f 63 6b 3f 33 33 3d 32  |?32=7:block?33=2|
00000770  0d 02 9e 1c 62 6c 6f 63  6b 3f 33 34 3d 37 3a 62  |....block?34=7:b|
00000780  6c 6f 63 6b 3f 33 35 3d  62 63 6f 6c 0d 02 a8 19  |lock?35=bcol....|
00000790  62 6c 6f 63 6b 3f 33 36  3d 33 3a 62 6c 6f 63 6b  |block?36=3:block|
000007a0  3f 33 37 3d 31 0d 02 b2  0f 62 6c 6f 63 6b 3f 33  |?37=1....block?3|
000007b0  38 3d 31 32 0d 02 bc 1a  62 6c 6f 63 6b 21 34 34  |8=12....block!44|
000007c0  3d 2d 79 3a 62 6c 6f 63  6b 21 34 38 3d 78 0d 02  |=-y:block!48=x..|
000007d0  c6 22 62 6c 6f 63 6b 21  35 36 3d 26 31 33 44 3a  |."block!56=&13D:|
000007e0  62 6c 6f 63 6b 21 36 30  3d 77 61 66 3c 3c 31 32  |block!60=waf<<12|
000007f0  0d 02 d0 1e 62 6c 6f 63  6b 21 37 32 3d 74 69 74  |....block!72=tit|
00000800  6c 65 3a 62 6c 6f 63 6b  21 37 36 3d 2d 31 0d 02  |le:block!76=-1..|
00000810  da 14 62 6c 6f 63 6b 21  38 30 3d a9 24 74 69 74  |..block!80=.$tit|
00000820  6c 65 0d 02 e4 2a c8 99  20 22 57 69 6d 70 5f 43  |le...*.. "Wimp_C|
00000830  72 65 61 74 65 57 69 6e  64 6f 77 22 2c 2c 62 6c  |reateWindow",,bl|
00000840  6f 63 6b 20 b8 20 68 61  6e 64 6c 65 0d 02 ee 0b  |ock . handle....|
00000850  3d 68 61 6e 64 6c 65 0d  02 f8 05 3a 0d 03 02 15  |=handle....:....|
00000860  dd 20 f2 72 65 64 72 61  77 28 68 61 6e 64 6c 65  |. .redraw(handle|
00000870  29 0d 03 0c 13 e7 20 68  61 6e 64 6c 65 3d 6d 61  |)..... handle=ma|
00000880  69 6e 20 8c 0d 03 16 11  21 62 6c 6f 63 6b 3d 68  |in .....!block=h|
00000890  61 6e 64 6c 65 0d 03 20  28 c8 99 20 22 57 69 6d  |andle.. (.. "Wim|
000008a0  70 5f 52 65 64 72 61 77  57 69 6e 64 6f 77 22 2c  |p_RedrawWindow",|
000008b0  2c 62 6c 6f 63 6b 20 b8  20 6d 6f 72 65 0d 03 2a  |,block . more..*|
000008c0  0b c8 95 20 6d 6f 72 65  0d 03 34 0d f2 77 6f 72  |... more..4..wor|
000008d0  6b 61 72 65 61 0d 03 3e  28 c8 99 20 22 57 69 6d  |karea..>(.. "Wim|
000008e0  70 5f 47 65 74 52 65 63  74 61 6e 67 6c 65 22 2c  |p_GetRectangle",|
000008f0  2c 62 6c 6f 63 6b 20 b8  20 6d 6f 72 65 0d 03 48  |,block . more..H|
00000900  05 ce 0d 03 52 05 cd 0d  03 5c 05 e1 0d 03 66 05  |....R....\....f.|
00000910  3a 0d 03 70 11 dd 20 f2  62 75 74 74 6f 6e 73 28  |:..p.. .buttons(|
00000920  62 29 0d 03 7a 0f e7 20  62 21 38 20 80 20 32 20  |b)..z.. b!8 . 2 |
00000930  8c 0d 03 84 0c f2 6d 65  6e 75 28 62 29 0d 03 8e  |......menu(b)...|
00000940  05 cc 0d 03 98 0d c8 8e  20 62 21 31 32 20 ca 0d  |........ b!12 ..|
00000950  03 a2 12 c9 20 2d 32 3a  f4 20 49 63 6f 6e 62 61  |.... -2:. Iconba|
00000960  72 0d 03 ac 1c e7 20 28  62 21 31 36 3d 73 69 63  |r..... (b!16=sic|
00000970  6f 6e 29 20 80 20 ac 6f  70 65 6e 20 8c 0d 03 b6  |on) . .open ....|
00000980  0f 21 62 6c 6f 63 6b 3d  6d 61 69 6e 0d 03 c0 23  |.!block=main...#|
00000990  c8 99 20 22 57 69 6d 70  5f 47 65 74 57 69 6e 64  |.. "Wimp_GetWind|
000009a0  6f 77 53 74 61 74 65 22  2c 2c 62 6c 6f 63 6b 0d  |owState",,block.|
000009b0  03 ca 1f c8 99 20 22 57  69 6d 70 5f 4f 70 65 6e  |..... "Wimp_Open|
000009c0  57 69 6e 64 6f 77 22 2c  2c 62 6c 6f 63 6b 0d 03  |Window",,block..|
000009d0  d4 15 6f 70 65 6e 3d b9  3a f2 6d 6f 76 65 63 61  |..open=.:.moveca|
000009e0  72 65 74 0d 03 de 05 cd  0d 03 e8 0a c9 20 6d 61  |ret.......... ma|
000009f0  69 6e 0d 03 f2 0d c8 8e  20 62 21 31 36 20 ca 0d  |in...... b!16 ..|
00000a00  03 fc 15 c9 20 2d 31 3a  f2 70 75 74 63 61 72 65  |.... -1:.putcare|
00000a10  74 28 62 29 0d 04 06 19  c9 20 6c 65 66 74 3a e7  |t(b)..... left:.|
00000a20  20 ac 20 a4 62 70 61 67  65 20 ef 20 37 0d 04 10  | . .bpage . 7...|
00000a30  1a c9 20 72 69 67 68 74  3a e7 20 ac 20 a4 66 70  |.. right:. . .fp|
00000a40  61 67 65 20 ef 20 37 0d  04 1a 05 cb 0d 04 24 0a  |age . 7.......$.|
00000a50  c9 20 66 69 6c 65 0d 04  2e 25 e7 20 28 62 21 31  |. file...%. (b!1|
00000a60  36 3d 66 73 61 76 65 29  20 80 20 28 62 21 38 20  |6=fsave) . (b!8 |
00000a70  80 20 26 35 30 29 3c 3e  30 20 8c 0d 04 38 0f 21  |. &50)<>0 ...8.!|
00000a80  62 6c 6f 63 6b 3d 66 69  6c 65 0d 04 42 23 c8 99  |block=file..B#..|
00000a90  20 22 57 69 6d 70 5f 47  65 74 57 69 6e 64 6f 77  | "Wimp_GetWindow|
00000aa0  53 74 61 74 65 22 2c 2c  62 6c 6f 63 6b 0d 04 4c  |State",,block..L|
00000ab0  18 77 65 78 3d 62 6c 6f  63 6b 21 34 2d 62 6c 6f  |.wex=block!4-blo|
00000ac0  63 6b 21 32 30 0d 04 56  19 77 65 79 3d 62 6c 6f  |ck!20..V.wey=blo|
00000ad0  63 6b 21 31 36 2d 62 6c  6f 63 6b 21 32 34 0d 04  |ck!16-block!24..|
00000ae0  60 11 62 6c 6f 63 6b 21  34 3d 66 73 61 76 65 0d  |`.block!4=fsave.|
00000af0  04 6a 21 c8 99 20 22 57  69 6d 70 5f 47 65 74 49  |.j!.. "Wimp_GetI|
00000b00  63 6f 6e 53 74 61 74 65  22 2c 2c 62 6c 6f 63 6b  |conState",,block|
00000b10  0d 04 74 19 21 62 6c 6f  63 6b 3d 66 69 6c 65 3a  |..t.!block=file:|
00000b20  62 6c 6f 63 6b 21 34 3d  35 0d 04 7e 17 62 6c 6f  |block!4=5..~.blo|
00000b30  63 6b 21 38 3d 62 6c 6f  63 6b 21 38 2b 77 65 78  |ck!8=block!8+wex|
00000b40  0d 04 88 19 62 6c 6f 63  6b 21 31 32 3d 62 6c 6f  |....block!12=blo|
00000b50  63 6b 21 31 32 2b 77 65  79 0d 04 92 19 62 6c 6f  |ck!12+wey....blo|
00000b60  63 6b 21 31 36 3d 62 6c  6f 63 6b 21 31 36 2b 77  |ck!16=block!16+w|
00000b70  65 78 0d 04 9c 19 62 6c  6f 63 6b 21 32 30 3d 62  |ex....block!20=b|
00000b80  6c 6f 63 6b 21 32 30 2b  77 65 79 0d 04 a6 19 62  |lock!20+wey....b|
00000b90  6c 6f 63 6b 21 32 34 3d  30 3a 62 6c 6f 63 6b 21  |lock!24=0:block!|
00000ba0  32 38 3d 30 0d 04 b0 29  62 6c 6f 63 6b 21 33 32  |28=0...)block!32|
00000bb0  3d 26 37 46 46 46 46 46  46 46 3a 62 6c 6f 63 6b  |=&7FFFFFFF:block|
00000bc0  21 33 36 3d 26 37 46 46  46 46 46 46 46 0d 04 ba  |!36=&7FFFFFFF...|
00000bd0  1c c8 99 20 22 57 69 6d  70 5f 44 72 61 67 42 6f  |... "Wimp_DragBo|
00000be0  78 22 2c 2c 62 6c 6f 63  6b 0d 04 c4 05 cd 0d 04  |x",,block.......|
00000bf0  ce 0f e7 20 62 21 31 36  3d 6f 6b 20 8c 0d 04 d8  |... b!16=ok ....|
00000c00  0e f2 71 75 69 63 6b 73  61 76 65 0d 04 e2 05 cd  |..quicksave.....|
00000c10  0d 04 ec 05 cb 0d 04 f6  05 cd 0d 05 00 05 e1 0d  |................|
00000c20  05 0a 05 3a 0d 05 14 14  dd 20 f2 63 6c 6f 73 65  |...:..... .close|
00000c30  28 68 61 6e 64 6c 65 29  0d 05 1e 1a e7 20 68 61  |(handle)..... ha|
00000c40  6e 64 6c 65 3d 6d 61 69  6e 20 8c 20 6f 70 65 6e  |ndle=main . open|
00000c50  3d a3 0d 05 28 11 21 62  6c 6f 63 6b 3d 68 61 6e  |=...(.!block=han|
00000c60  64 6c 65 0d 05 32 20 c8  99 20 22 57 69 6d 70 5f  |dle..2 .. "Wimp_|
00000c70  43 6c 6f 73 65 57 69 6e  64 6f 77 22 2c 2c 62 6c  |CloseWindow",,bl|
00000c80  6f 63 6b 0d 05 3c 05 e1  0d 05 46 05 3a 0d 05 50  |ock..<....F.:..P|
00000c90  0f dd 20 f2 77 6f 72 6b  61 72 65 61 0d 05 5a 17  |.. .workarea..Z.|
00000ca0  6f 78 3d 62 6c 6f 63 6b  21 34 2d 62 6c 6f 63 6b  |ox=block!4-block|
00000cb0  21 32 30 0d 05 64 18 6f  79 3d 62 6c 6f 63 6b 21  |!20..d.oy=block!|
00000cc0  31 36 2d 62 6c 6f 63 6b  21 32 34 0d 05 6e 19 ec  |16-block!24..n..|
00000cd0  20 6f 78 2c 6f 79 2d 34  30 3a df 20 42 59 20 36  | ox,oy-40:. BY 6|
00000ce0  35 36 2c 30 0d 05 78 22  70 74 72 3d 64 61 74 61  |56,0..x"ptr=data|
00000cf0  2b 70 61 67 65 2a 36 30  30 3a 6f 79 2d 3d 35 36  |+page*600:oy-=56|
00000d00  3a 6f 78 2b 3d 38 0d 05  82 11 e3 20 6c 69 6e 65  |:ox+=8..... line|
00000d10  3d 30 20 b8 20 31 34 0d  05 8c 45 e7 20 ac 28 62  |=0 . 14...E. .(b|
00000d20  6c 6f 63 6b 21 34 30 3c  6f 79 2d 32 38 20 84 20  |lock!40<oy-28 . |
00000d30  62 6c 6f 63 6b 21 33 32  3e 6f 79 29 20 8c 20 ec  |block!32>oy) . .|
00000d40  20 6f 78 2c 6f 79 3a c8  99 20 22 4f 53 5f 57 72  | ox,oy:.. "OS_Wr|
00000d50  69 74 65 4e 22 2c 70 74  72 2c 34 30 0d 05 96 12  |iteN",ptr,40....|
00000d60  6f 79 2d 3d 33 32 3a 70  74 72 2b 3d 34 30 0d 05  |oy-=32:ptr+=40..|
00000d70  a0 05 ed 0d 05 aa 05 e1  0d 05 b4 05 3a 0d 05 be  |............:...|
00000d80  37 dd 20 a4 73 70 72 69  74 65 69 63 6f 6e 28 77  |7. .spriteicon(w|
00000d90  69 6e 64 6f 77 2c 78 30  2c 79 30 2c 78 31 2c 79  |indow,x0,y0,x1,y|
00000da0  31 2c 66 6c 61 67 73 2c  73 70 74 72 2c 73 6e 61  |1,flags,sptr,sna|
00000db0  6d 65 24 29 0d 05 c8 26  de 20 62 6c 6f 63 6b 21  |me$)...&. block!|
00000dc0  32 34 20 a9 73 6e 61 6d  65 24 2b 31 3a 62 6c 6f  |24 .sname$+1:blo|
00000dd0  63 6b 21 32 38 3d 73 70  74 72 0d 05 d2 27 62 6c  |ck!28=sptr...'bl|
00000de0  6f 63 6b 21 33 32 3d a9  73 6e 61 6d 65 24 2b 31  |ock!32=.sname$+1|
00000df0  3a 24 62 6c 6f 63 6b 21  32 34 3d 73 6e 61 6d 65  |:$block!24=sname|
00000e00  24 0d 05 dc 27 3d a4 69  63 6f 6e 62 6c 6b 28 77  |$...'=.iconblk(w|
00000e10  69 6e 64 6f 77 2c 78 30  2c 79 30 2c 78 31 2c 79  |indow,x0,y0,x1,y|
00000e20  31 2c 66 6c 61 67 73 29  0d 05 e6 05 3a 0d 05 f0  |1,flags)....:...|
00000e30  37 dd 20 a4 74 65 78 74  69 63 6f 6e 28 77 69 6e  |7. .texticon(win|
00000e40  64 6f 77 2c 78 30 2c 79  30 2c 78 31 2c 79 31 2c  |dow,x0,y0,x1,y1,|
00000e50  66 6c 61 67 73 2c 74 70  74 72 2c 76 70 74 72 2c  |flags,tptr,vptr,|
00000e60  6c 65 6e 29 0d 05 fa 1f  62 6c 6f 63 6b 21 32 34  |len)....block!24|
00000e70  3d 74 70 74 72 3a 62 6c  6f 63 6b 21 32 38 3d 76  |=tptr:block!28=v|
00000e80  70 74 72 0d 06 04 10 62  6c 6f 63 6b 21 33 32 3d  |ptr....block!32=|
00000e90  6c 65 6e 0d 06 0e 27 3d  a4 69 63 6f 6e 62 6c 6b  |len...'=.iconblk|
00000ea0  28 77 69 6e 64 6f 77 2c  78 30 2c 79 30 2c 78 31  |(window,x0,y0,x1|
00000eb0  2c 79 31 2c 66 6c 61 67  73 29 0d 06 18 05 3a 0d  |,y1,flags)....:.|
00000ec0  06 22 28 dd 20 a4 69 63  6f 6e 62 6c 6b 28 77 69  |."(. .iconblk(wi|
00000ed0  6e 64 6f 77 2c 78 30 2c  79 30 2c 78 31 2c 79 31  |ndow,x0,y0,x1,y1|
00000ee0  2c 66 6c 61 67 73 29 0d  06 2c 11 21 62 6c 6f 63  |,flags)..,.!bloc|
00000ef0  6b 3d 77 69 6e 64 6f 77  0d 06 36 19 62 6c 6f 63  |k=window..6.bloc|
00000f00  6b 21 34 3d 78 30 3a 62  6c 6f 63 6b 21 38 3d 79  |k!4=x0:block!8=y|
00000f10  30 0d 06 40 1b 62 6c 6f  63 6b 21 31 32 3d 78 31  |0..@.block!12=x1|
00000f20  3a 62 6c 6f 63 6b 21 31  36 3d 79 31 0d 06 4a 12  |:block!16=y1..J.|
00000f30  62 6c 6f 63 6b 21 32 30  3d 66 6c 61 67 73 0d 06  |block!20=flags..|
00000f40  54 26 c8 99 20 22 57 69  6d 70 5f 43 72 65 61 74  |T&.. "Wimp_Creat|
00000f50  65 49 63 6f 6e 22 2c 2c  62 6c 6f 63 6b 20 b8 20  |eIcon",,block . |
00000f60  69 63 6f 6e 0d 06 5e 09  3d 69 63 6f 6e 0d 06 68  |icon..^.=icon..h|
00000f70  05 3a 0d 06 72 0e dd 20  f2 6d 65 6e 75 28 62 29  |.:..r.. .menu(b)|
00000f80  0d 06 7c 0d c8 8e 20 62  21 31 32 20 ca 0d 06 86  |..|... b!12 ....|
00000f90  25 c9 20 2d 32 3a f2 64  72 61 77 6d 65 6e 75 28  |%. -2:.drawmenu(|
00000fa0  31 2c 22 4e 6f 74 65 20  50 61 64 2c 51 75 69 74  |1,"Note Pad,Quit|
00000fb0  22 29 0d 06 90 2a c8 99  20 22 57 69 6d 70 5f 43  |")...*.. "Wimp_C|
00000fc0  72 65 61 74 65 4d 65 6e  75 22 2c 2c 6d 65 6e 75  |reateMenu",,menu|
00000fd0  2b 34 2c 21 62 2d 36 34  2c 31 33 36 0d 06 9a 3f  |+4,!b-64,136...?|
00000fe0  c9 20 6d 61 69 6e 3a f2  64 72 61 77 6d 65 6e 75  |. main:.drawmenu|
00000ff0  28 32 2c 22 4e 6f 74 65  20 50 61 64 2c 49 6e 73  |(2,"Note Pad,Ins|
00001000  65 72 74 2c 4f 76 65 72  2c 43 6c 65 61 72 2c 50  |ert,Over,Clear,P|
00001010  72 69 6e 74 2c 53 61 76  65 22 29 0d 06 a4 0e e7  |rint,Save").....|
00001020  20 69 6e 73 65 72 74 20  8c 0d 06 ae 1e f4 20 6d  | insert ...... m|
00001030  65 6e 75 21 34 30 3d 6d  65 6e 75 21 34 30 20 4f  |enu!40=menu!40 O|
00001040  52 20 31 3c 3c 32 32 0d  06 b8 17 6d 65 6e 75 21  |R 1<<22....menu!|
00001050  33 32 3d 6d 65 6e 75 21  33 32 20 84 20 31 0d 06  |32=menu!32 . 1..|
00001060  c2 05 cc 0d 06 cc 1e f4  20 6d 65 6e 75 21 36 34  |........ menu!64|
00001070  3d 6d 65 6e 75 21 36 34  20 4f 52 20 31 3c 3c 32  |=menu!64 OR 1<<2|
00001080  32 0d 06 d6 17 6d 65 6e  75 21 35 36 3d 6d 65 6e  |2....menu!56=men|
00001090  75 21 35 36 20 84 20 31  0d 06 e0 05 cd 0d 06 ea  |u!56 . 1........|
000010a0  10 70 74 72 21 2d 32 30  3d 66 69 6c 65 0d 06 f4  |.ptr!-20=file...|
000010b0  2d c8 99 20 22 57 69 6d  70 5f 43 72 65 61 74 65  |-.. "Wimp_Create|
000010c0  4d 65 6e 75 22 2c 2c 6d  65 6e 75 2b 34 2c 21 62  |Menu",,menu+4,!b|
000010d0  2d 33 32 2c 62 21 34 2b  31 36 0d 06 fe 05 cb 0d  |-32,b!4+16......|
000010e0  07 08 05 e1 0d 07 12 05  3a 0d 07 1c 1d dd 20 f2  |........:..... .|
000010f0  64 72 61 77 6d 65 6e 75  28 68 61 6e 64 6c 65 2c  |drawmenu(handle,|
00001100  6d 65 6e 75 24 29 0d 07  26 1a 21 6d 65 6e 75 3d  |menu$)..&.!menu=|
00001110  68 61 6e 64 6c 65 3a 6d  65 6e 75 3f 31 36 3d 37  |handle:menu?16=7|
00001120  0d 07 30 21 6d 65 6e 75  3f 31 37 3d 32 3a 6d 65  |..0!menu?17=2:me|
00001130  6e 75 3f 31 38 3d 37 3a  6d 65 6e 75 3f 31 39 3d  |nu?18=7:menu?19=|
00001140  30 0d 07 3a 1a 6d 65 6e  75 21 32 30 3d 31 35 36  |0..:.menu!20=156|
00001150  3a 6d 65 6e 75 21 32 34  3d 34 30 0d 07 44 19 6d  |:menu!24=40..D.m|
00001160  65 6e 75 21 32 38 3d 30  3a 70 74 72 3d 6d 65 6e  |enu!28=0:ptr=men|
00001170  75 2b 33 32 0d 07 4e 23  24 28 6d 65 6e 75 2b 34  |u+32..N#$(menu+4|
00001180  29 3d c0 6d 65 6e 75 24  2c a7 6d 65 6e 75 24 2c  |)=.menu$,.menu$,|
00001190  22 2c 22 29 2d 31 29 0d  07 58 13 6d 65 6e 75 24  |",")-1)..X.menu$|
000011a0  3d 6d 65 6e 75 24 2b 22  2c 22 0d 07 62 10 c8 95  |=menu$+","..b...|
000011b0  20 6d 65 6e 75 24 3c 3e  22 22 0d 07 6c 1f 6d 65  | menu$<>""..l.me|
000011c0  6e 75 24 3d c1 6d 65 6e  75 24 2c a7 6d 65 6e 75  |nu$=.menu$,.menu|
000011d0  24 2c 22 2c 22 29 2b 31  29 0d 07 76 11 e7 20 6d  |$,",")+1)..v.. m|
000011e0  65 6e 75 24 3c 3e 22 22  20 8c 0d 07 80 13 21 70  |enu$<>"" .....!p|
000011f0  74 72 3d 30 3a 70 74 72  21 34 3d 2d 31 0d 07 8a  |tr=0:ptr!4=-1...|
00001200  12 70 74 72 21 38 3d 26  37 30 30 30 30 32 31 0d  |.ptr!8=&7000021.|
00001210  07 94 23 24 28 70 74 72  2b 31 32 29 3d c0 6d 65  |..#$(ptr+12)=.me|
00001220  6e 75 24 2c a7 6d 65 6e  75 24 2c 22 2c 22 29 2d  |nu$,.menu$,",")-|
00001230  31 29 0d 07 9e 0b 70 74  72 2b 3d 32 34 0d 07 a8  |1)....ptr+=24...|
00001240  05 cd 0d 07 b2 05 ce 0d  07 bc 19 70 74 72 21 2d  |...........ptr!-|
00001250  32 34 3d 70 74 72 21 2d  32 34 20 84 20 26 38 30  |24=ptr!-24 . &80|
00001260  0d 07 c6 05 e1 0d 07 d0  05 3a 0d 07 da 14 dd 20  |.........:..... |
00001270  f2 6d 65 6e 75 73 65 6c  65 63 74 28 62 29 0d 07  |.menuselect(b)..|
00001280  e4 0e c8 8e 20 21 6d 65  6e 75 20 ca 0d 07 ee 07  |.... !menu .....|
00001290  c9 20 31 0d 07 f8 0b c8  8e 20 21 62 20 ca 0d 08  |. 1...... !b ...|
000012a0  02 0e c9 20 30 3a 71 75  69 74 3d b9 0d 08 0c 05  |... 0:quit=.....|
000012b0  cb 0d 08 16 07 c9 20 32  0d 08 20 0b c8 8e 20 21  |...... 2.. ... !|
000012c0  62 20 ca 0d 08 2a 10 c9  20 30 3a 69 6e 73 65 72  |b ...*.. 0:inser|
000012d0  74 3d b9 0d 08 34 10 c9  20 31 3a 69 6e 73 65 72  |t=...4.. 1:inser|
000012e0  74 3d a3 0d 08 3e 0e c9  20 32 3a f2 63 6c 65 61  |t=...>.. 2:.clea|
000012f0  72 0d 08 48 0e c9 20 33  3a f2 70 72 69 6e 74 0d  |r..H.. 3:.print.|
00001300  08 52 05 cb 0d 08 5c 05  cb 0d 08 66 05 e1 0d 08  |.R....\....f....|
00001310  70 05 3a 0d 08 7a 0c dd  20 f2 65 72 72 6f 72 0d  |p.:..z.. .error.|
00001320  08 84 19 c8 99 20 22 57  69 6d 70 5f 44 72 61 67  |..... "Wimp_Drag|
00001330  42 6f 78 22 2c 2c 2d 31  0d 08 8e 0c 21 62 6c 6f  |Box",,-1....!blo|
00001340  63 6b 3d 9f 0d 08 98 34  24 28 62 6c 6f 63 6b 2b  |ck=....4$(block+|
00001350  34 29 3d f6 24 2b 22 20  28 49 6e 74 65 72 6e 61  |4)=.$+" (Interna|
00001360  6c 20 65 72 72 6f 72 20  63 6f 64 65 20 22 2b c3  |l error code "+.|
00001370  9e 2b 22 29 22 2b bd 30  0d 08 a2 2c c8 99 20 22  |.+")"+.0...,.. "|
00001380  57 69 6d 70 5f 52 65 70  6f 72 74 45 72 72 6f 72  |Wimp_ReportError|
00001390  22 2c 62 6c 6f 63 6b 2c  31 2c 22 4e 6f 74 65 20  |",block,1,"Note |
000013a0  50 61 64 22 0d 08 ac 0a  e5 20 8d 44 72 41 0d 08  |Pad"..... .DrA..|
000013b0  b6 05 3a 0d 08 c0 12 dd  20 f2 70 75 74 63 61 72  |..:..... .putcar|
000013c0  65 74 28 62 29 0d 08 ca  1a 78 3d 21 62 3a 79 3d  |et(b)....x=!b:y=|
000013d0  62 21 34 3a 21 62 6c 6f  63 6b 3d 6d 61 69 6e 0d  |b!4:!block=main.|
000013e0  08 d4 23 c8 99 20 22 57  69 6d 70 5f 47 65 74 57  |..#.. "Wimp_GetW|
000013f0  69 6e 64 6f 77 53 74 61  74 65 22 2c 2c 62 6c 6f  |indowState",,blo|
00001400  63 6b 0d 08 de 1a 78 3d  78 2d 62 6c 6f 63 6b 21  |ck....x=x-block!|
00001410  34 2b 62 6c 6f 63 6b 21  32 30 2d 38 0d 08 e8 1c  |4+block!20-8....|
00001420  79 3d 79 2d 62 6c 6f 63  6b 21 31 36 2b 62 6c 6f  |y=y-block!16+blo|
00001430  63 6b 21 32 34 2b 35 36  0d 08 f2 0f e7 20 79 3e  |ck!24+56..... y>|
00001440  3d 31 36 20 8c 20 e1 0d  08 fc 0f e7 20 79 3e 30  |=16 . ...... y>0|
00001450  20 8c 20 79 3d 30 0d 09  06 15 e7 20 79 3c 2d 34  | . y=0..... y<-4|
00001460  37 36 20 8c 20 79 3d 2d  34 37 36 0d 09 10 0f e7  |76 . y=-476.....|
00001470  20 78 3c 30 20 8c 20 78  3d 30 0d 09 1a 13 e7 20  | x<0 . x=0..... |
00001480  78 3e 36 33 32 20 8c 20  78 3d 36 33 32 0d 09 24  |x>632 . x=632..$|
00001490  1f 78 3d 28 78 20 80 20  ac 31 35 29 2d 31 36 2a  |.x=(x . .15)-16*|
000014a0  28 28 78 20 80 20 31 35  29 3e 37 29 0d 09 2e 18  |((x . 15)>7)....|
000014b0  74 78 3d 78 20 81 20 31  36 3a 74 79 3d 2d 79 20  |tx=x . 16:ty=-y |
000014c0  81 20 33 32 0d 09 38 21  e7 20 74 78 3d 34 30 20  |. 32..8!. tx=40 |
000014d0  80 20 74 79 3c 3e 31 34  20 8c 20 74 78 3d 30 3a  |. ty<>14 . tx=0:|
000014e0  74 79 2b 3d 31 0d 09 42  1b e7 20 74 78 3d 34 30  |ty+=1..B.. tx=40|
000014f0  20 80 20 74 79 3d 31 34  20 8c 20 74 78 3d 33 39  | . ty=14 . tx=39|
00001500  0d 09 4c 0e f2 6d 6f 76  65 63 61 72 65 74 0d 09  |..L..movecaret..|
00001510  56 05 e1 0d 09 60 05 3a  0d 09 6a 0d dd 20 f2 6b  |V....`.:..j.. .k|
00001520  65 79 28 62 29 0d 09 74  0f e7 20 21 62 3d 6d 61  |ey(b)..t.. !b=ma|
00001530  69 6e 20 8c 0d 09 7e 0c  6b 65 79 3d 62 21 32 34  |in ...~.key=b!24|
00001540  0d 09 88 0a c8 8e 20 b9  20 ca 0d 09 92 19 c9 20  |...... . ...... |
00001550  6b 65 79 3d 26 31 38 42  3a f2 64 65 6c 65 74 65  |key=&18B:.delete|
00001560  28 b9 29 0d 09 9c 18 c9  20 6b 65 79 3d 26 37 46  |(.)..... key=&7F|
00001570  3a f2 64 65 6c 65 74 65  28 a3 29 0d 09 a6 15 c9  |:.delete(.).....|
00001580  20 6b 65 79 3d 26 44 3a  f2 6e 65 77 6c 69 6e 65  | key=&D:.newline|
00001590  0d 09 b0 16 c9 20 6b 65  79 3d 26 31 43 44 3a f2  |..... key=&1CD:.|
000015a0  69 6e 73 65 72 74 0d 09  ba 23 c9 20 6b 65 79 3c  |insert...#. key<|
000015b0  26 31 30 30 20 80 20 6b  65 79 3e 26 31 46 3a f2  |&100 . key>&1F:.|
000015c0  63 68 61 72 28 6b 65 79  29 0d 09 c4 2d c9 20 6b  |char(key)...-. k|
000015d0  65 79 3e 3d 26 31 38 43  20 80 20 6b 65 79 3c 3d  |ey>=&18C . key<=|
000015e0  26 31 38 46 3a f2 63 75  72 73 6f 72 28 6b 65 79  |&18F:.cursor(key|
000015f0  2d 26 31 38 43 29 0d 09  ce 1e 7f 20 c8 99 20 22  |-&18C)..... .. "|
00001600  57 69 6d 70 5f 50 72 6f  63 65 73 73 4b 65 79 22  |Wimp_ProcessKey"|
00001610  2c 6b 65 79 0d 09 d8 05  cb 0d 09 dd 05 cc 0d 09  |,key............|
00001620  de 2d e7 20 21 62 3d 66  69 6c 65 20 80 20 62 21  |.-. !b=file . b!|
00001630  34 3d 77 72 20 80 20 62  21 32 34 3d 26 44 20 8c  |4=wr . b!24=&D .|
00001640  20 f2 71 75 69 63 6b 73  61 76 65 0d 09 e2 05 cd  | .quicksave.....|
00001650  0d 09 ec 05 e1 0d 09 f6  05 3a 0d 0a 00 12 dd 20  |.........:..... |
00001660  f2 63 75 72 73 6f 72 28  64 69 72 29 0d 0a 0a 0c  |.cursor(dir)....|
00001670  c8 8e 20 64 69 72 20 ca  0d 0a 14 0d c9 20 30 3a  |.. dir ...... 0:|
00001680  74 78 2d 3d 31 0d 0a 1e  0d c9 20 31 3a 74 78 2b  |tx-=1..... 1:tx+|
00001690  3d 31 0d 0a 28 0d c9 20  32 3a 74 79 2b 3d 31 0d  |=1..(.. 2:ty+=1.|
000016a0  0a 32 0d c9 20 33 3a 74  79 2d 3d 31 0d 0a 3c 05  |.2.. 3:ty-=1..<.|
000016b0  cb 0d 0a 46 18 e7 20 74  78 3c 30 20 8c 20 74 78  |...F.. tx<0 . tx|
000016c0  3d 33 39 3a 74 79 2d 3d  31 0d 0a 50 18 e7 20 74  |=39:ty-=1..P.. t|
000016d0  78 3e 33 39 20 8c 20 74  78 3d 30 3a 74 79 2b 3d  |x>39 . tx=0:ty+=|
000016e0  31 0d 0a 5a 1a e7 20 74  79 3c 30 20 8c 20 74 79  |1..Z.. ty<0 . ty|
000016f0  3d 2d 31 34 2a a4 62 70  61 67 65 0d 0a 64 1d e7  |=-14*.bpage..d..|
00001700  20 74 79 3e 31 34 20 8c  20 74 79 3d 2d 31 34 2a  | ty>14 . ty=-14*|
00001710  ac 20 a4 66 70 61 67 65  0d 0a 6e 0e f2 6d 6f 76  |. .fpage..n..mov|
00001720  65 63 61 72 65 74 0d 0a  78 05 e1 0d 0a 82 05 3a  |ecaret..x......:|
00001730  0d 0a 8c 0c dd 20 a4 62  70 61 67 65 0d 0a 96 11  |..... .bpage....|
00001740  e7 20 70 61 67 65 3d 30  20 8c 20 3d a3 0d 0a a0  |. page=0 . =....|
00001750  22 70 61 67 65 2d 3d 31  3a 24 70 6e 6f 3d 22 50  |"page-=1:$pno="P|
00001760  61 67 65 20 22 2b c3 28  70 61 67 65 2b 31 29 0d  |age "+.(page+1).|
00001770  0a aa 2b c8 99 20 22 57  69 6d 70 5f 46 6f 72 63  |..+.. "Wimp_Forc|
00001780  65 52 65 64 72 61 77 22  2c 6d 61 69 6e 2c 30 2c  |eRedraw",main,0,|
00001790  2d 35 34 34 2c 36 35 36  2c 30 0d 0a b4 06 3d b9  |-544,656,0....=.|
000017a0  0d 0a be 05 3a 0d 0a c8  0c dd 20 a4 66 70 61 67  |....:..... .fpag|
000017b0  65 0d 0a d2 17 e7 20 70  61 67 65 3d 6d 61 78 70  |e..... page=maxp|
000017c0  61 67 65 20 8c 20 3d a3  0d 0a dc 22 70 61 67 65  |age . =...."page|
000017d0  2b 3d 31 3a 24 70 6e 6f  3d 22 50 61 67 65 20 22  |+=1:$pno="Page "|
000017e0  2b c3 28 70 61 67 65 2b  31 29 0d 0a e6 2b c8 99  |+.(page+1)...+..|
000017f0  20 22 57 69 6d 70 5f 46  6f 72 63 65 52 65 64 72  | "Wimp_ForceRedr|
00001800  61 77 22 2c 6d 61 69 6e  2c 30 2c 2d 35 34 34 2c  |aw",main,0,-544,|
00001810  36 35 36 2c 30 0d 0a f0  06 3d b9 0d 0a fa 05 3a  |656,0....=.....:|
00001820  0d 0b 04 10 dd 20 f2 6d  6f 76 65 63 61 72 65 74  |..... .movecaret|
00001830  0d 0b 0e 46 c8 99 20 22  57 69 6d 70 5f 53 65 74  |...F.. "Wimp_Set|
00001840  43 61 72 65 74 50 6f 73  69 74 69 6f 6e 22 2c 6d  |CaretPosition",m|
00001850  61 69 6e 2c 2d 31 2c 74  78 2a 31 36 2b 38 2c 2d  |ain,-1,tx*16+8,-|
00001860  74 79 2a 33 32 2d 38 38  2c 34 30 2b 28 31 3c 3c  |ty*32-88,40+(1<<|
00001870  32 34 29 2c 2d 31 0d 0b  18 05 e1 0d 0b 22 05 3a  |24),-1.......".:|
00001880  0d 0b 2c 0b dd 20 f2 77  69 70 65 0d 0b 36 23 e3  |..,.. .wipe..6#.|
00001890  20 70 74 72 3d 30 20 b8  20 28 6d 61 78 70 61 67  | ptr=0 . (maxpag|
000018a0  65 2b 31 29 2a 36 30 30  2d 31 20 88 20 34 0d 0b  |e+1)*600-1 . 4..|
000018b0  40 16 64 61 74 61 21 70  74 72 3d 26 32 30 32 30  |@.data!ptr=&2020|
000018c0  32 30 32 30 0d 0b 4a 0f  ed 3a 74 78 3d 30 3a 74  |2020..J..:tx=0:t|
000018d0  79 3d 30 0d 0b 54 21 70  61 67 65 3d 30 3a 24 70  |y=0..T!page=0:$p|
000018e0  6e 6f 3d 22 50 61 67 65  20 22 2b c3 28 70 61 67  |no="Page "+.(pag|
000018f0  65 2b 31 29 0d 0b 5e 05  e1 0d 0b 68 05 3a 0d 0b  |e+1)..^....h.:..|
00001900  72 0c dd 20 f2 63 6c 65  61 72 0d 0b 7c 09 f2 77  |r.. .clear..|..w|
00001910  69 70 65 0d 0b 86 12 f2  72 65 74 69 74 6c 65 28  |ipe.....retitle(|
00001920  6d 61 69 6e 29 0d 0b 90  2b c8 99 20 22 57 69 6d  |main)...+.. "Wim|
00001930  70 5f 46 6f 72 63 65 52  65 64 72 61 77 22 2c 6d  |p_ForceRedraw",m|
00001940  61 69 6e 2c 30 2c 2d 35  34 34 2c 36 35 36 2c 30  |ain,0,-544,656,0|
00001950  0d 0b 9a 05 e1 0d 0b a4  05 3a 0d 0b ae 10 dd 20  |.........:..... |
00001960  f2 63 68 61 72 28 6b 65  79 29 0d 0b b8 19 70 74  |.char(key)....pt|
00001970  72 3d 70 61 67 65 2a 36  30 30 2b 74 79 2a 34 30  |r=page*600+ty*40|
00001980  2b 74 78 0d 0b c2 0e e7  20 69 6e 73 65 72 74 20  |+tx..... insert |
00001990  8c 0d 0b cc 25 e7 20 64  61 74 61 3f 28 28 6d 61  |....%. data?((ma|
000019a0  78 70 61 67 65 2b 31 29  2a 36 30 30 2d 31 29 3d  |xpage+1)*600-1)=|
000019b0  97 22 20 22 20 8c 0d 0b  d6 11 f2 73 68 75 6e 74  |." " ......shunt|
000019c0  28 70 74 72 2c b9 29 0d  0b e0 10 64 61 74 61 3f  |(ptr,.)....data?|
000019d0  70 74 72 3d 6b 65 79 0d  0b ea 35 c8 99 20 22 57  |ptr=key...5.. "W|
000019e0  69 6d 70 5f 46 6f 72 63  65 52 65 64 72 61 77 22  |imp_ForceRedraw"|
000019f0  2c 6d 61 69 6e 2c 30 2c  2d 35 34 34 2c 36 35 36  |,main,0,-544,656|
00001a00  2c 2d 28 35 32 2b 33 32  2a 74 79 29 0d 0b f4 08  |,-(52+32*ty)....|
00001a10  cc 20 ef 37 0d 0b fe 05  cd 0d 0c 08 05 cc 0d 0c  |. .7............|
00001a20  12 10 64 61 74 61 3f 70  74 72 3d 6b 65 79 0d 0c  |..data?ptr=key..|
00001a30  1c 47 c8 99 20 22 57 69  6d 70 5f 46 6f 72 63 65  |.G.. "Wimp_Force|
00001a40  52 65 64 72 61 77 22 2c  6d 61 69 6e 2c 38 2b 31  |Redraw",main,8+1|
00001a50  36 2a 74 78 2c 2d 28 38  37 2b 33 32 2a 74 79 29  |6*tx,-(87+32*ty)|
00001a60  2c 32 34 2b 31 36 2a 74  78 2c 2d 28 35 32 2b 33  |,24+16*tx,-(52+3|
00001a70  32 2a 74 79 29 0d 0c 26  05 cd 0d 0c 30 0d f2 6d  |2*ty)..&....0..m|
00001a80  6f 64 69 66 69 65 64 0d  0c 3a 0e f2 63 75 72 73  |odified..:..curs|
00001a90  6f 72 28 31 29 0d 0c 44  05 e1 0d 0c 4e 05 3a 0d  |or(1)..D....N.:.|
00001aa0  0c 58 16 dd 20 f2 73 68  75 6e 74 28 66 72 6f 6d  |.X.. .shunt(from|
00001ab0  2c 64 69 72 29 0d 0c 62  10 41 25 3d 64 61 74 61  |,dir)..b.A%=data|
00001ac0  2b 66 72 6f 6d 0d 0c 6c  1d 42 25 3d 64 61 74 61  |+from..l.B%=data|
00001ad0  2b 28 6d 61 78 70 61 67  65 2b 31 29 2a 36 30 30  |+(maxpage+1)*600|
00001ae0  2d 31 0d 0c 76 18 e7 20  64 69 72 20 8c 20 43 25  |-1..v.. dir . C%|
00001af0  3d 31 20 8b 20 43 25 3d  2d 31 0d 0c 80 0a d6 20  |=1 . C%=-1..... |
00001b00  63 6f 64 65 0d 0c 8a 05  e1 0d 0c 94 05 3a 0d 0c  |code.........:..|
00001b10  9e 0f dd 20 f2 6d 6f 64  69 66 69 65 64 0d 0c a8  |... .modified...|
00001b20  0d e7 20 ac 20 6d 6f 64  20 8c 0d 0c b2 13 6d 6f  |.. . mod .....mo|
00001b30  64 3d b9 3a 24 6d 74 2b  3d 22 20 2a 22 0d 0c bc  |d=.:$mt+=" *"...|
00001b40  12 f2 72 65 74 69 74 6c  65 28 6d 61 69 6e 29 0d  |..retitle(main).|
00001b50  0c c6 05 cd 0d 0c d0 05  e1 0d 0c da 05 3a 0d 0c  |.............:..|
00001b60  e4 0d dd 20 f2 69 6e 73  65 72 74 0d 0c ee 15 ea  |... .insert.....|
00001b70  20 69 6e 73 65 72 74 3a  69 6e 73 65 72 74 3d b9  | insert:insert=.|
00001b80  0d 0c f8 18 f2 63 68 61  72 28 33 32 29 3a f2 63  |.....char(32):.c|
00001b90  75 72 73 6f 72 28 30 29  0d 0d 02 05 e1 0d 0d 0c  |ursor(0)........|
00001ba0  05 3a 0d 0d 16 12 dd 20  f2 64 65 6c 65 74 65 28  |.:..... .delete(|
00001bb0  64 69 72 29 0d 0d 20 17  e7 20 ac 28 69 6e 73 65  |dir).. .. .(inse|
00001bc0  72 74 20 84 20 64 69 72  29 20 8c 0d 0d 2a 18 f2  |rt . dir) ...*..|
00001bd0  63 75 72 73 6f 72 28 30  29 3a f2 63 68 61 72 28  |cursor(0):.char(|
00001be0  33 32 29 0d 0d 34 0e f2  63 75 72 73 6f 72 28 30  |32)..4..cursor(0|
00001bf0  29 0d 0d 3e 05 cc 0d 0d  48 21 70 74 72 3d 70 61  |)..>....H!ptr=pa|
00001c00  67 65 2a 36 30 30 2b 74  79 2a 34 30 2b 74 78 2b  |ge*600+ty*40+tx+|
00001c10  28 64 69 72 3d a3 29 0d  0d 52 11 f2 73 68 75 6e  |(dir=.)..R..shun|
00001c20  74 28 70 74 72 2c a3 29  0d 0d 5c 21 64 61 74 61  |t(ptr,.)..\!data|
00001c30  3f 28 28 6d 61 78 70 61  67 65 2b 31 29 2a 36 30  |?((maxpage+1)*60|
00001c40  30 2d 31 29 3d 97 22 20  22 0d 0d 66 35 c8 99 20  |0-1)=." "..f5.. |
00001c50  22 57 69 6d 70 5f 46 6f  72 63 65 52 65 64 72 61  |"Wimp_ForceRedra|
00001c60  77 22 2c 6d 61 69 6e 2c  30 2c 2d 35 34 34 2c 36  |w",main,0,-544,6|
00001c70  35 36 2c 2d 28 35 32 2b  33 32 2a 74 79 29 0d 0d  |56,-(52+32*ty)..|
00001c80  70 18 e7 20 ac 20 64 69  72 20 8c 20 f2 63 75 72  |p.. . dir . .cur|
00001c90  73 6f 72 28 30 29 0d 0d  7a 59 e7 20 ac 20 64 69  |sor(0)..zY. . di|
00001ca0  72 20 80 20 74 78 3d 33  39 20 8c 20 c8 99 20 22  |r . tx=39 . .. "|
00001cb0  57 69 6d 70 5f 46 6f 72  63 65 52 65 64 72 61 77  |Wimp_ForceRedraw|
00001cc0  22 2c 6d 61 69 6e 2c 38  2b 31 36 2a 74 78 2c 2d  |",main,8+16*tx,-|
00001cd0  28 38 37 2b 33 32 2a 74  79 29 2c 32 34 2b 31 36  |(87+32*ty),24+16|
00001ce0  2a 74 78 2c 2d 28 35 32  2b 33 32 2a 74 79 29 0d  |*tx,-(52+32*ty).|
00001cf0  0d 84 05 cd 0d 0d 8e 05  e1 0d 0d 98 05 3a 0d 0d  |.............:..|
00001d00  a2 0e dd 20 f2 6e 65 77  6c 69 6e 65 0d 0d ac 13  |... .newline....|
00001d10  74 78 3d 30 3a f2 63 75  72 73 6f 72 28 32 29 0d  |tx=0:.cursor(2).|
00001d20  0d b6 05 e1 0d 0d c0 05  3a 0d 0d ca 0f dd 20 f2  |........:..... .|
00001d30  61 73 73 65 6d 62 6c 65  0d 0d d4 0e de 20 63 6f  |assemble..... co|
00001d40  64 65 20 32 30 30 0d 0d  de 14 e3 20 70 61 73 73  |de 200..... pass|
00001d50  3d 30 20 b8 20 32 20 88  20 32 0d 0d e8 0b 50 25  |=0 . 2 . 2....P%|
00001d60  3d 63 6f 64 65 0d 0d f2  0d 5b 4f 50 54 20 70 61  |=code....[OPT pa|
00001d70  73 73 0d 0d fc 24 5c 4d  6f 76 65 20 28 52 30 29  |ss...$\Move (R0)|
00001d80  2e 2e 2e 28 52 31 29 20  75 70 2f 64 6f 77 6e 20  |...(R1) up/down |
00001d90  31 20 62 79 74 65 0d 0e  06 1a 4d 4f 56 53 20 52  |1 byte....MOVS R|
00001da0  32 2c 52 32 3a 42 4d 49  20 73 74 61 72 74 6c 6f  |2,R2:BMI startlo|
00001db0  0d 0e 10 16 2e 6c 6f 6f  70 20 4c 44 52 42 20 52  |.....loop LDRB R|
00001dc0  32 2c 5b 52 31 5d 0d 0e  1a 20 53 54 52 42 20 52  |2,[R1]... STRB R|
00001dd0  32 2c 5b 52 31 2c 23 31  5d 3a 53 55 42 20 52 31  |2,[R1,#1]:SUB R1|
00001de0  2c 52 31 2c 23 31 0d 0e  24 16 43 4d 50 20 52 31  |,R1,#1..$.CMP R1|
00001df0  2c 52 30 3a 42 43 53 20  6c 6f 6f 70 0d 0e 2e 0e  |,R0:BCS loop....|
00001e00  4d 4f 56 20 50 43 2c 52  31 34 0d 0e 38 1c 2e 73  |MOV PC,R14..8..s|
00001e10  74 61 72 74 6c 6f 20 4c  44 52 42 20 52 32 2c 5b  |tartlo LDRB R2,[|
00001e20  52 30 2c 23 31 5d 0d 0e  42 1d 53 54 52 42 20 52  |R0,#1]..B.STRB R|
00001e30  32 2c 5b 52 30 5d 3a 41  44 44 20 52 30 2c 52 30  |2,[R0]:ADD R0,R0|
00001e40  2c 23 31 0d 0e 4c 19 43  4d 50 20 52 30 2c 52 31  |,#1..L.CMP R0,R1|
00001e50  3a 42 4c 53 20 73 74 61  72 74 6c 6f 0d 0e 56 0e  |:BLS startlo..V.|
00001e60  4d 4f 56 20 50 43 2c 52  31 34 0d 0e 60 06 5d ed  |MOV PC,R14..`.].|
00001e70  0d 0e 6a 05 e1 0d 0e 74  05 3a 0d 0e 7e 16 dd 20  |..j....t.:..~.. |
00001e80  f2 72 65 74 69 74 6c 65  28 21 62 6c 6f 63 6b 29  |.retitle(!block)|
00001e90  0d 0e 88 23 c8 99 20 22  57 69 6d 70 5f 47 65 74  |...#.. "Wimp_Get|
00001ea0  57 69 6e 64 6f 77 53 74  61 74 65 22 2c 2c 62 6c  |WindowState",,bl|
00001eb0  6f 63 6b 0d 0e 92 20 c8  99 20 22 57 69 6d 70 5f  |ock... .. "Wimp_|
00001ec0  43 6c 6f 73 65 57 69 6e  64 6f 77 22 2c 2c 62 6c  |CloseWindow",,bl|
00001ed0  6f 63 6b 0d 0e 9c 1f c8  99 20 22 57 69 6d 70 5f  |ock...... "Wimp_|
00001ee0  4f 70 65 6e 57 69 6e 64  6f 77 22 2c 2c 62 6c 6f  |OpenWindow",,blo|
00001ef0  63 6b 0d 0e a6 15 f2 6d  6f 76 65 63 61 72 65 74  |ck.....movecaret|
00001f00  3a 6f 70 65 6e 3d b9 0d  0e b0 05 e1 0d 0e ba 05  |:open=..........|
00001f10  3a 0d 0e c4 14 dd 20 f2  73 61 76 65 69 74 28 6e  |:..... .saveit(n|
00001f20  61 6d 65 24 29 0d 0e ce  39 c8 99 20 22 4f 53 5f  |ame$)...9.. "OS_|
00001f30  46 69 6c 65 22 2c 31 30  2c 6e 61 6d 65 24 2c 26  |File",10,name$,&|
00001f40  46 45 45 2c 2c 64 61 74  61 2c 64 61 74 61 2b 36  |FEE,,data,data+6|
00001f50  30 30 2a 28 6d 61 78 70  61 67 65 29 2b 31 0d 0e  |00*(maxpage)+1..|
00001f60  d8 13 6d 6f 64 3d a3 3a  24 6d 74 3d 6e 61 6d 65  |..mod=.:$mt=name|
00001f70  24 0d 0e e2 1c c8 99 20  22 57 69 6d 70 5f 43 72  |$...... "Wimp_Cr|
00001f80  65 61 74 65 4d 65 6e 75  22 2c 2c 2d 31 0d 0e ec  |eateMenu",,-1...|
00001f90  12 f2 72 65 74 69 74 6c  65 28 6d 61 69 6e 29 0d  |..retitle(main).|
00001fa0  0e f6 05 e1 0d 0f 00 05  3a 0d 0f 0a 12 dd 20 a4  |........:..... .|
00001fb0  6c 65 61 66 28 70 61 74  68 24 29 0d 0f 14 12 c8  |leaf(path$).....|
00001fc0  95 20 a7 70 61 74 68 24  2c 22 2e 22 29 0d 0f 1e  |. .path$,".")...|
00001fd0  1f 70 61 74 68 24 3d c1  70 61 74 68 24 2c a7 70  |.path$=.path$,.p|
00001fe0  61 74 68 24 2c 22 2e 22  29 2b 31 29 0d 0f 28 05  |ath$,".")+1)..(.|
00001ff0  ce 0d 0f 32 0a 3d 70 61  74 68 24 0d 0f 3c 05 3a  |...2.=path$..<.:|
00002000  0d 0f 46 0b dd 20 f2 73  61 76 65 0d 0f 50 23 c8  |..F.. .save..P#.|
00002010  99 20 22 57 69 6d 70 5f  47 65 74 50 6f 69 6e 74  |. "Wimp_GetPoint|
00002020  65 72 49 6e 66 6f 22 2c  2c 62 6c 6f 63 6b 0d 0f  |erInfo",,block..|
00002030  5a 1a 62 6c 6f 63 6b 21  32 30 3d 36 34 3a 62 6c  |Z.block!20=64:bl|
00002040  6f 63 6b 21 33 32 3d 30  0d 0f 64 20 62 6c 6f 63  |ock!32=0..d bloc|
00002050  6b 21 33 36 3d 31 3a 62  6c 6f 63 6b 21 34 30 3d  |k!36=1:block!40=|
00002060  62 6c 6f 63 6b 21 31 32  0d 0f 6e 15 62 6c 6f 63  |block!12..n.bloc|
00002070  6b 21 34 34 3d 62 6c 6f  63 6b 21 31 36 0d 0f 78  |k!44=block!16..x|
00002080  13 62 6c 6f 63 6b 21 34  38 3d 21 62 6c 6f 63 6b  |.block!48=!block|
00002090  0d 0f 82 14 62 6c 6f 63  6b 21 35 32 3d 62 6c 6f  |....block!52=blo|
000020a0  63 6b 21 34 0d 0f 8c 1c  62 6c 6f 63 6b 21 35 36  |ck!4....block!56|
000020b0  3d 28 6d 61 78 70 61 67  65 2b 31 29 2a 36 30 30  |=(maxpage+1)*600|
000020c0  0d 0f 96 11 62 6c 6f 63  6b 21 36 30 3d 26 46 45  |....block!60=&FE|
000020d0  45 0d 0f a0 1a 24 28 62  6c 6f 63 6b 2b 36 34 29  |E....$(block+64)|
000020e0  3d a4 6c 65 61 66 28 24  66 69 29 0d 0f aa 37 c8  |=.leaf($fi)...7.|
000020f0  99 20 22 57 69 6d 70 5f  53 65 6e 64 4d 65 73 73  |. "Wimp_SendMess|
00002100  61 67 65 22 2c 31 37 2c  62 6c 6f 63 6b 2b 32 30  |age",17,block+20|
00002110  2c 62 6c 6f 63 6b 21 31  32 2c 62 6c 6f 63 6b 21  |,block!12,block!|
00002120  31 36 0d 0f b4 05 e1 0d  0f be 05 3a 0d 0f c8 12  |16.........:....|
00002130  dd 20 f2 64 61 74 61 73  61 76 65 28 62 29 0d 0f  |. .datasave(b)..|
00002140  d2 19 f2 73 61 76 65 69  74 28 a4 67 6e 61 6d 65  |...saveit(.gname|
00002150  28 62 2b 34 34 29 29 0d  0f dc 14 24 66 69 3d a4  |(b+44))....$fi=.|
00002160  67 6e 61 6d 65 28 62 2b  34 34 29 0d 0f e6 19 62  |gname(b+44)....b|
00002170  21 31 32 3d 62 21 38 3a  62 21 31 36 3d 33 3a 21  |!12=b!8:b!16=3:!|
00002180  62 3d 36 34 0d 0f f0 28  c8 99 20 22 57 69 6d 70  |b=64...(.. "Wimp|
00002190  5f 53 65 6e 64 4d 65 73  73 61 67 65 22 2c 31 37  |_SendMessage",17|
000021a0  2c 62 2c 62 21 32 30 2c  62 21 32 34 0d 0f fa 05  |,b,b!20,b!24....|
000021b0  e1 0d 10 04 05 3a 0d 10  0e 12 dd 20 f2 64 61 74  |.....:..... .dat|
000021c0  61 6c 6f 61 64 28 62 29  0d 10 18 0d c8 8e 20 62  |aload(b)...... b|
000021d0  21 34 30 20 ca 0d 10 22  0a c9 20 26 46 45 45 0d  |!40 ...".. &FEE.|
000021e0  10 2c 17 f2 6c 6f 61 64  28 a4 67 6e 61 6d 65 28  |.,..load(.gname(|
000021f0  62 2b 34 34 29 29 0d 10  36 0f f2 61 63 6b 6c 6f  |b+44))..6..acklo|
00002200  61 64 28 62 29 0d 10 40  0a c9 20 26 46 46 46 0d  |ad(b)..@.. &FFF.|
00002210  10 4a 1b f2 74 65 78 74  6c 6f 61 64 28 a4 67 6e  |.J..textload(.gn|
00002220  61 6d 65 28 62 2b 34 34  29 29 0d 10 54 0f f2 61  |ame(b+44))..T..a|
00002230  63 6b 6c 6f 61 64 28 62  29 0d 10 5e 05 cb 0d 10  |ckload(b)..^....|
00002240  68 05 e1 0d 10 72 05 3a  0d 10 7c 12 dd 20 f2 6c  |h....r.:..|.. .l|
00002250  6f 61 64 28 6e 61 6d 65  24 29 0d 10 86 1f c8 99  |oad(name$)......|
00002260  20 22 4f 53 5f 46 69 6c  65 22 2c 26 46 46 2c 6e  | "OS_File",&FF,n|
00002270  61 6d 65 24 2c 64 61 74  61 0d 10 90 17 24 66 69  |ame$,data....$fi|
00002280  3d 6e 61 6d 65 24 3a 24  6d 74 3d 6e 61 6d 65 24  |=name$:$mt=name$|
00002290  0d 10 9a 05 e1 0d 10 a4  05 3a 0d 10 ae 11 dd 20  |.........:..... |
000022a0  a4 67 6e 61 6d 65 28 70  74 72 29 0d 10 b8 09 66  |.gname(ptr)....f|
000022b0  24 3d 22 22 0d 10 c2 19  c8 95 20 3f 70 74 72 3c  |$=""...... ?ptr<|
000022c0  3e 30 20 80 20 3f 70 74  72 3c 3e 31 33 0d 10 cc  |>0 . ?ptr<>13...|
000022d0  16 66 24 3d 66 24 2b bd  3f 70 74 72 3a 70 74 72  |.f$=f$+.?ptr:ptr|
000022e0  2b 3d 31 0d 10 d6 05 ce  0d 10 e0 07 3d 66 24 0d  |+=1.........=f$.|
000022f0  10 ea 05 3a 0d 10 f4 11  dd 20 f2 61 63 6b 6c 6f  |...:..... .acklo|
00002300  61 64 28 62 29 0d 10 fe  13 6d 6f 64 3d a3 3a 74  |ad(b)....mod=.:t|
00002310  78 3d 30 3a 74 79 3d 30  0d 11 08 18 70 61 67 65  |x=0:ty=0....page|
00002320  3d 30 3a 24 70 6e 6f 3d  22 50 61 67 65 20 31 22  |=0:$pno="Page 1"|
00002330  0d 11 12 19 62 21 31 32  3d 62 21 38 3a 62 21 31  |....b!12=b!8:b!1|
00002340  36 3d 34 3a 21 62 3d 36  34 0d 11 1c 22 c8 99 20  |6=4:!b=64...".. |
00002350  22 57 69 6d 70 5f 53 65  6e 64 4d 65 73 73 61 67  |"Wimp_SendMessag|
00002360  65 22 2c 31 37 2c 62 2c  62 21 34 0d 11 26 12 f2  |e",17,b,b!4..&..|
00002370  72 65 74 69 74 6c 65 28  6d 61 69 6e 29 0d 11 30  |retitle(main)..0|
00002380  05 e1 0d 11 3a 05 3a 0d  11 44 16 dd 20 f2 74 65  |....:.:..D.. .te|
00002390  78 74 6c 6f 61 64 28 6e  61 6d 65 24 29 0d 11 4e  |xtload(name$)..N|
000023a0  09 f2 77 69 70 65 0d 11  58 23 c8 99 20 22 4f 53  |..wipe..X#.. "OS|
000023b0  5f 46 69 6e 64 22 2c 26  34 38 2c 6e 61 6d 65 24  |_Find",&48,name$|
000023c0  20 b8 20 68 61 6e 64 6c  65 0d 11 62 13 6f 66 66  | . handle..b.off|
000023d0  73 65 74 3d 30 3a 6c 61  73 74 3d 30 0d 11 6c 2a  |set=0:last=0..l*|
000023e0  c8 95 20 6f 66 66 73 65  74 3c 28 6d 61 78 70 61  |.. offset<(maxpa|
000023f0  67 65 2b 31 29 2a 36 30  30 20 80 20 ac 20 c5 23  |ge+1)*600 . . .#|
00002400  68 61 6e 64 6c 65 0d 11  76 11 63 68 61 72 3d 9a  |handle..v.char=.|
00002410  23 68 61 6e 64 6c 65 0d  11 80 2d e7 20 63 68 61  |#handle...-. cha|
00002420  72 3d 31 33 20 80 20 6c  61 73 74 3d 31 30 20 84  |r=13 . last=10 .|
00002430  20 63 68 61 72 3d 31 30  20 80 20 6c 61 73 74 3d  | char=10 . last=|
00002440  31 33 20 8c 0d 11 8a 0a  6c 61 73 74 3d 30 0d 11  |13 .....last=0..|
00002450  94 05 cc 0d 11 9e 0d 6c  61 73 74 3d 63 68 61 72  |.......last=char|
00002460  0d 11 a8 1b e7 20 63 68  61 72 3c 3e 31 30 20 80  |..... char<>10 .|
00002470  20 63 68 61 72 3c 3e 31  33 20 8c 0d 11 b2 1e 64  | char<>13 .....d|
00002480  61 74 61 3f 6f 66 66 73  65 74 3d 63 68 61 72 3a  |ata?offset=char:|
00002490  6f 66 66 73 65 74 2b 3d  31 0d 11 bc 05 cc 0d 11  |offset+=1.......|
000024a0  c6 20 6f 66 66 73 65 74  3d 34 30 2a 28 28 6f 66  |. offset=40*((of|
000024b0  66 73 65 74 2b 33 39 29  20 81 20 34 30 29 0d 11  |fset+39) . 40)..|
000024c0  d0 05 cd 0d 11 da 05 cd  0d 11 e4 05 ce 0d 11 ee  |................|
000024d0  12 e7 20 ac 20 c5 23 68  61 6e 64 6c 65 20 8c 0d  |.. . .#handle ..|
000024e0  11 f8 2d 24 28 62 6c 6f  63 6b 2b 36 34 29 3d 22  |..-$(block+64)="|
000024f0  20 20 20 20 54 65 78 74  20 68 61 73 20 62 65 65  |    Text has bee|
00002500  6e 20 74 72 75 6e 63 61  74 65 64 22 0d 12 02 2f  |n truncated".../|
00002510  c8 99 20 22 57 69 6d 70  5f 52 65 70 6f 72 74 45  |.. "Wimp_ReportE|
00002520  72 72 6f 72 22 2c 62 6c  6f 63 6b 2b 36 34 2c 31  |rror",block+64,1|
00002530  2c 22 4e 6f 74 65 20 50  61 64 22 0d 12 0c 05 cd  |,"Note Pad".....|
00002540  0d 12 16 0d d9 20 23 68  61 6e 64 6c 65 0d 12 20  |..... #handle.. |
00002550  21 24 66 69 3d 22 49 6d  70 6f 72 74 65 64 22 3a  |!$fi="Imported":|
00002560  24 6d 74 3d 22 49 6d 70  6f 72 74 65 64 22 0d 12  |$mt="Imported"..|
00002570  2a 05 e1 0d 12 34 05 3a  0d 12 3e 10 dd 20 f2 71  |*....4.:..>.. .q|
00002580  75 69 63 6b 73 61 76 65  0d 12 48 11 e7 20 a7 24  |uicksave..H.. .$|
00002590  66 69 2c 22 2e 22 29 20  8c 0d 12 52 10 f2 73 61  |fi,".") ...R..sa|
000025a0  76 65 69 74 28 24 66 69  29 0d 12 5c 05 cc 0d 12  |veit($fi)..\....|
000025b0  66 3d 24 62 6c 6f 63 6b  3d 22 20 20 20 20 54 6f  |f=$block="    To|
000025c0  20 73 61 76 65 2c 20 64  72 61 67 20 74 68 65 20  | save, drag the |
000025d0  69 63 6f 6e 20 74 6f 20  61 20 64 69 72 65 63 74  |icon to a direct|
000025e0  6f 72 79 20 76 69 65 77  65 72 22 0d 12 70 2c c8  |ory viewer"..p,.|
000025f0  99 20 22 57 69 6d 70 5f  52 65 70 6f 72 74 45 72  |. "Wimp_ReportEr|
00002600  72 6f 72 22 2c 62 6c 6f  63 6b 2c 31 2c 22 4e 6f  |ror",block,1,"No|
00002610  74 65 20 50 61 64 22 0d  12 7a 05 cd 0d 12 84 05  |te Pad"..z......|
00002620  e1 0d 12 8e 05 3a 0d 12  98 0c dd 20 f2 70 72 69  |.....:..... .pri|
00002630  6e 74 0d 12 a2 07 ea 20  85 0d 12 ac 1b ee 20 85  |nt..... ...... .|
00002640  20 ea 20 ef 20 33 3a ff  20 22 46 58 32 32 39 20  | . . 3:. "FX229 |
00002650  31 22 3a e1 0d 12 b6 0f  ef 20 32 3a 2a 46 58 20  |1":...... 2:*FX |
00002660  32 32 39 0d 12 c0 17 e3  20 73 68 65 65 74 3d 30  |229..... sheet=0|
00002670  20 b8 20 6d 61 78 70 61  67 65 0d 12 ca 11 e3 20  | . maxpage..... |
00002680  6c 69 6e 65 3d 30 20 b8  20 31 34 0d 12 d4 11 e3  |line=0 . 14.....|
00002690  20 63 68 61 72 3d 30 20  b8 20 33 39 0d 12 de 25  | char=0 . 39...%|
000026a0  ef 20 31 2c 64 61 74 61  3f 28 73 68 65 65 74 2a  |. 1,data?(sheet*|
000026b0  36 30 30 2b 6c 69 6e 65  2a 34 30 2b 63 68 61 72  |600+line*40+char|
000026c0  29 0d 12 e8 05 ed 0d 12  f2 07 f2 63 72 0d 12 fc  |)..........cr...|
000026d0  05 ed 0d 13 06 18 e7 20  73 68 65 65 74 3c 3e 32  |....... sheet<>2|
000026e0  20 8c 20 f2 63 72 3a f2  63 72 0d 13 10 05 ed 0d  | . .cr:.cr......|
000026f0  13 1a 11 ef 20 33 3a 2a  46 58 20 32 39 39 20 31  |.... 3:*FX 299 1|
00002700  0d 13 24 05 e1 0d 13 2e  05 3a 0d 13 38 09 dd 20  |..$......:..8.. |
00002710  f2 63 72 0d 13 42 0a ef  20 31 2c 31 33 0d 13 4c  |.cr..B.. 1,13..L|
00002720  20 c8 99 20 22 4f 53 5f  42 79 74 65 22 2c 32 34  | .. "OS_Byte",24|
00002730  36 2c 30 2c 32 35 35 20  b8 20 2c 69 67 0d 13 56  |6,0,255 . ,ig..V|
00002740  15 e7 20 69 67 3c 3e 31  30 20 8c 20 ef 20 31 2c  |.. ig<>10 . . 1,|
00002750  31 30 0d 13 60 05 e1 0d  ff                       |10..`....|
00002759