>!RunImage
 For !Addresses
 NSW 28-Jul-1994
Xx$="1.32 (28-Jul-1994)":
"Error 0 "+
$+" (internal error code "+
+")":
262365:
$+" (internal error code "+
+")")
c$<>""aa%=
r(c$)
:ba%=
262343,,e%
262344,,e%
262341,,e%
262342,,e%:
!e%=u%
d(m%):
d(P%):
d(l%):
d(I%):
d(t%):
d(Q%):
c(N%,0):i%=0:
h$,".",i%)>0:i%=
h$,".",i%)+1:
h$,i%-2):
h$,".")>0
5,"Filer_OpenDir "+h$
!e%=m%:da%=
17,18:
ba%:ea%=
262365:
jd%=a%(h%-1):
a(m%,12,21,b%(d%,j%,0)):
a(m%,14,21,b%(d%,j%,1)):
a(m%,15,21,
b%(d%,j%,1)):
b%(d%,j%,1)
a(m%,16,22,
a(m%,17,22,
b(m%,16,""):
b(m%,17,
b$(d%,j%),8))
a(m%,17,22,
a(m%,16,22,
b(m%,17,""):
b(m%,16,
b$(d%,j%),8))
a(m%,13,22,
b%(d%,j%,0)):b$=b$(d%,j%):b$=
b$-8):
b(m%,11,
b$,80)):
b(m%,j%+1,
b$(d%,j%),20)):fa%=b%(d%,j%,1)+11:
l(m%,j%+1,fa%):
I:ga%=ha%:
262380,32000+ha%
ha%=ga%
b("nis"))
e% 256,ia% 1024,V% 512,ja% 512,ka% 256,la% 512,ma% 256,na% 512,oa% 20,a% 512,pa% 256,K% 640,qa% 1024,ra% 512,sa% 512,ta% 256
ua% 1024,va% 512,wa% 384,xa% 64,a$(499,9),ya% 512,za% 128,a%(499),Aa% 1024,Ba% 570,Ca% 200,Da% 1024,Ea% 512:
Fa% 512,Ga% 128,Z% 256,Ha% 128,Ia% 64,Ja% 128:
b$(499,9),b%(499,9,1),c$(30,1):c$()=
30," "):c$()="":g$="":
$oa%=
b("er2"):h%=1:o%=1:j%=0:u$="":Ka%=0:da%=
:La%=
:ba%=
:Ma%=
:Na%=
:Oa%=0:Pa%=0:Qa%=Ha%:
499:a%(k%)=k%:
o("RiscOS$Version")="310"
R% 32:!R%=2:R%!4=3:R%!8=5:R%!12=6:R%!16=6:R%!20=1282:R%!24=262336:R%!28=0:
262336,310,&4B534154,"Addresses",R%
Ra%,Sa%
262336,200,&4B534154,"Addresses"
Ra%,Sa%
p(-1,0,0,68,68,12298,"!addresses"):q%=
"<Address$Dir>.Sprites":Ta%=
#q%+1024:
C% Ta%:!C%=Ta%-1:C%!4=0:C%!8=12:C%!12=16:
46,256+10,C%,"<Address$Dir>.Sprites":
262380,-1,-1
H:g%=pa%:$g%="Addresses":g%!12=459271:g%!16=16*10:g%!20=44:g%!24=0:
c(g%+28,0,Ua%,&7091031,"Info"):
c(g%+52,0,N%,&7091031,"Save"):
c(g%+76,0,-1,&7091031,"New file"):
c(g%+100,128,-1,&7091031,"Quit")
g%=Ia%:$g%="Date":g%!12=459271:g%!16=16*8:g%!20=44:g%!24=0:
c(g%+28,128,-1,&7091031,"Today"):g%=Ja%:$g%="Correspond":g%!12=459271:g%!16=16*11:g%!20=44:g%!24=0:
c(g%+28,0,-1,&7091031,"Delete"):
c(g%+52,0,-1,&7091031,"Insert")
c(g%+76,0,-1,&7091031,"Raise"):
c(g%+100,128,-1,&7091031,"Lower"):g%=K%:$g%="Addresses":g%!12=459271:g%!16=16*18:g%!20=44:g%!24=0:
c(g%+28,0,-1,&7091031,"Control        F6"):
c(g%+52,0,-1,&7091031,"Search         F4")
c(g%+76,0,-1,&7091031,"Sort           F5"):
c(g%+100,2,-1,&7091031,"Correspondance F7"):
c(g%+124,2,K%+300,&7091031,"Address"):
c(g%+148,0,Ua%,&7091031,"Info"):
c(g%+172,8,K%+500,&7091031,"Save"):
c(g%+196,128,-1,&7091031,"Quit")
g%=K%+300:$g%="Edit":g%!12=459271:g%!16=16*11:g%!20=44:g%!24=0:
c(g%+28,0,-1,&7091031,"Delete"):
c(g%+52,0,-1,&7091031,"Insert"):
c(g%+76,0,-1,&7091031,"Raise"):
c(g%+100,128,-1,&7091031,"Lower")
g%=K%+500:$g%="Save :":g%!12=459271:g%!16=16*16:g%!20=44:g%!24=0:
c(g%+28,0,N%,&7091031,"Whole file   F3"):
c(g%+52,136,n%,&7091031,"This record 
F3"):
262361,,"<Address$Dir>.Templates":P%=
e(sa%,ta%,255,"cont",C%):m%=
e(Da%,Ea%,511,"crsp",C%):Ua%=
e(ja%,ka%,255,"info",C%):u%=
e(ia%,V%,511,"main",C%):Va%=
e(ya%,za%,127,"modd",C%)
e(la%,ma%,255,"save",-1):l%=
e(qa%,ra%,511,"sear",C%):n%=
e(Aa%,Ba%,569,"sind",C%):I%=
e(ua%,va%,511,"sort",C%):t%=
e(Fa%,Ga%,127,"date",C%):Q%=
e(wa%,xa%,63,"foun",C%):
262362
$(ka%+99)=x$:$ma%="Addresses":$Ba%="Address":
a(I%,1,21,
a(I%,2,21,
a(I%,3,21,
a(I%,c%,21,
a(l%,3,21,
a(I%,4,21,
a(l%,9,21,
c%=10
a(l%,c%,21,
a(v%,c%):!a%=v%:a%!4=c%:
262350,,a%:=((a%!24
2097152)=2097152)
b(l%,16,""):
):f$=
c(l%,1):r%=
b(Q%,0,f$):
f$=""
b("ser")):
f$,"?")>0
f$,"*")>0
b("mxw")):
u$=f$:Wa%=
a(l%,3):Xa%=
a(l%,9):Ya%=
a(l%,10):Za%=
a(l%,11):_a%=
a(l%,12):`a%=
a(l%,13):ab%=
a(l%,14):
:$a%=f$:A%=a%:
bb%:f$=$a%
"dd$=f$:c$()="":
30:c$(k%,1)="1":
d$,1)="?":d$=
d$,2):
d$)="?":d$=
d$,"?")>0
rLcb%=0:z%=0:db%=0:
d$,"?",z%)>0:z%=
d$,"?",z%)+1:cb%+=1:
z%=db%+1cb%-=1
vdb%=z%:
:z%=1:
cb%:c$(d%,0)=
d$,z%,
d$,"?",z%)-z%):z%=
d$,"?",z%)+1:
c$(d%,0)=""d%-=1:c$(d%,1)=
c$(d%,1)+1)
c$(d%,0),1)="?"d%-=1
c$(d%,0),1)="?":c$(d%,1)=
c$(d%-1,1)+1):c$(d%,0)=
c$(d%,0),2):
:c$(d%,0)=
d$,z%):
c$(d%,0),1)="?":c$(d%-1,1)=
c$(d%-1,1)+1):c$(d%,0)=
c$(d%,0),2):
Wa%s%=0:L%=o%:
:s%=(
c(l%,5))-1:L%=(
c(l%,7))-1
t(s%,L%,
f(i%,y%):r%=
:e$=a$(a%(i%),y%):
$a%=e$:A%=a%:
bb%:e$=$a%
:l$=e$:k%=0:
d$,"?")>0
e$,c$(1,0))-1:
cb%+1:
e$,c$(d%,0),z%)<>z%+
c$(d%-1,0)+
(c$(d%-1,1))_%=
e$,c$(d%,0)):
	r%=_%
f$,"*")>0
d$,"*")-1):
l$,m$)>0
\-d$=
f$,"*")+1):l$=
l$,m$)+1):k%=1
l$,m$,
m$)<>m$
d$,"*")=0
:r%=_%
f$,"?")=0
f$,"*")=0
e$,d$)>0
g(Q%):
b(Q%,1,"Found"):
d(l%):h%=i%+1:
t(s%,L%,eb%):
i%=s%
8:r%=
f(i%,y%):
i%=s%
f(i%,0)
5:r%=
f(i%,y%):
f(i%,6)
8:r%=
f(i%,y%):
b(l%,16,
b("nfd")):
b(Q%,1,
b("nfd")):
g(l%)
L:S%=e%!24:J%=!e%:c%=e%!4:D%=
387:fb%=c%:
262351,,a%:
262356,,N%,!a%,a%!4:D%=
388:fb%=c%:
u:O%=
389:fb%=c%:
g(I%):O%=
390:fb%=c%:
g(P%):O%=
391:fb%=c%:
v:O%=
392:O%=
262354,-1
398,13:c%+=1:D%=
399:c%-=1:D%=
403:fb%=c%:
262351,,a%:
262356,,n%,!a%,a%!4:D%=
):h%=1:D%=
):h%=o%:D%=
):h%-=1:
h%=0:h%=1
:h%+=1:
h%>o%
o%=h%
c%=4c%=14
c%=15c%=5
j(u%,c%,-1)
13:d%=a%(h%-1):b$=
b$(d%,j%),8):
b$<8:b$+=" ":
:b$(d%,j%)=b$+
c(m%,11):
S%=13
c%=9D%=
c(P%,9)):
S%=13D%=
S%=13D%=
S%=13
c%=1D%=
t%:O%=
394,398:D%=
:c%+=1:
c%=5:c%=2
410,399:D%=
:c%-=1:
c%=1:c%=4
13:D%=
c%<4:c%+=1:
j(t%,c%,-1)
S%=27
262356,,-1:
d(l%):
j(u%,fb%,-1):
d(I%):
d(Q%)
262364,S%
262356,,-1:
:!gb%=e%!20:hb%=e%!24:
k%>=hb%
`%=hb%:U%=18
:`%=k%:U%=17:Na%=
262385,Sa%,ib%,jb%,gb%,`%:ib%+=`%:k%-=`%:e%!12=e%!8:e%!16=7:e%!20=gb%:e%!24=`%:
262375,U%,e%,jb%:
k:b$=a$(a%(h%-1),0):=
b$," ")-1)
l:b$=a$(a%(h%-1),0):=
b$," ")+1)
i(b$):$(ib%+k%)=b$:k%+=
b$+1:ib%?(k%-1)=10:
m:ib%=Ca%:k%=0:
a(n%,15)
a(n%,4)
a(n%,5)
 No problem: Nothing to do!
a(n%,4)
a(n%,5)
a(n%,4)
a(n%,5)
i(a$(a%(h%-1),0))
9:b$=a$(a%(h%-1),p%):
b$<>""
a(n%,p%+5)
i(b$)
a(n%,4)
a(n%,5)
i(a$(a%(h%-1),0))
a(n%,4)
a(n%,5)
a(n%,p%+5)
i(a$(a%(h%-1),p%))
kb%<>n%
m:Na%=
:jb%=e%!4:
:Ka%=e%!4:c$=
c(n%,0)
c$,".",0)=0
b("sav")):
8,10,c$,4095,,Ca%,Ca%+`%:
262356,,-1
b(n%,0,c$):
Ka%=0
Re%!0=80:e%!4=Sa%:e%!8=0:e%!12=0:e%!16=3:$(e%+44)=c$:
262375,18,e%,Ka%:Ka%=0:
Z	c$=
c(N%,0)
c$,".",0)=0
b("sav")):
(c$):i%=0:
:d%=a%(i%):
a$(d%,0)<>""
9:b$=a$(d%,p%):
b$<>""
p%+b$
9:b$=b$(d%,p%):
b$<>""
(p%+20)+
(b%(d%,p%,0)*-1)+
(b%(d%,p%,1)*-1)+b$:
#q%,b$
:i%+=1:
5,"SetType "+c$+" 0E4":Ma%=
262356,,-1
b(N%,0,c$):
x:c$=
h:d%=a%(h%-1):b$=
b$(d%,j%),8):
b$<8:b$+=" ":
:b$(d%,j%)=b$+c$:b%(d%,j%,0)=
j(m%,11,
T(lb%):mb%=e%!40:
262351,,a%:J%=a%!12:c%=a%!16:
J%=m%
c%=11
mb%<>228
lb%=3
(-1):aa%=
:aa%=
aa%:ea%=
r(c$)
g(Va%):
262343,,e%
0,4,5:
 Ignore
6:c%=e%!16:
d(Va%):
17,18:
e%!16
0:ba%=
1282:
d(Va%):=
d(Va%):=
r(c$):q%=
(c$):
aa%:nb%=o%:w%=
:a$()="":b$()="":b%()=0:j%=0:o%=0:nb%=0:h%=1:w%=
:$ma%=c$
#q%:b$=
b$-1):
:o%+=1:a$(o%-1,0)=b$:
#q%:b$=
#q%:p%=
b$,1)):b$=
b$-1):
p%<10
a$(o%-1,p%)=b$
b$,1,1):b%(o%-1,p%-20,0)=(t$="1"):t$=
b$,2,1):b%(o%-1,p%-20,1)=(t$="1"):b$=
b$-2):b$(o%-1,p%-20)=b$
k%=nb%
499:a%(k%)=k%:
b(l%,5,"1"):
b(l%,7,
b(l%,1,""):
b(l%,16,""):
g(l%):
j(l%,1,0):
a(m%,j%+1,21,
g(m%):da%=
g(P%)
g(I%)
7:ba%=
0:E%=a%:Ta%=
ob%-a%:v$="":
Ta%:v$+=
(a%?k%):
b(t%,k%,
v$,(k%-2)*2+1,2)):
3:ba%=
"b":g%=pa%
"d":g%=Ia%
"c":g%=Ja%
:g%=K%
262356,,g%,!a%-64,a%!4
Y:d%=a%(h%-1):
k%=j%
8:b$(d%,k%)=b$(d%,k%+1):
pb%=0
1:b%(d%,k%,pb%)=b%(d%,k%+1,pb%):
3b$(d%,9)="":b%(d%,9,0)=0:b%(d%,9,1)=0:w%=
Z:d%=a%(h%-1):
-1:b$(d%,k%)=b$(d%,k%-1):
pb%=0
1:b%(d%,k%,pb%)=b%(d%,k%-1,pb%):
,:b$(d%,j%)="":b%(d%,j%,0)=0:b%(d%,j%,1)=0:w%=
b("crc")):
A(-1):
A(qb%):d%=a%(h%-1):
b$(d%,j%),b$(d%,j%+qb%):
b%(d%,j%,k%),b%(d%,j%+qb%,k%):
a(m%,j%+1,21,
):j%+=qb%:
a(m%,j%+1,21,
b("clc")):
A(1):
262351,,a%:=((a%!8
1)=1)
q:ea%=
499:a%(k%)=k%:
:j%=0:h%=1:o%=1:$ma%="Addresses":b$()="":b%()=0:a$()="":w%=
o%=1G%=
b("lre")):
i%=h%
9:a$(a%(i%-1),y%)=a$(a%(i%),y%):
9:a$(a%(o%),y%)="":
h%=o%h%-=1
o%-=1:w%=
o%+=1:
i%=o%
9:a$(a%(i%),y%)=a$(a%(i%-1),y%):
9:a$(a%(h%-1),y%)="":
:o%+=1:w%=
J:x%=!e%:y%=e%!4:rb%=e%!8:J%=e%!12:c%=e%!16:
g(u%)
15:sb%=
a(n%,15):
b(l%,1,u$)
9,10,11,12,13:
aa(l%,9,13,c%):
a(l%,10)
a(l%,11)
a(l%,12)
a(l%,13))
a(l%,9)
a(l%,9,21,
0:h%=1
1:h%-=1:
h%=0h%=1
:h%+=1:
h%>o%
o%=h%
3:h%=o%
d(Q%):
d(l%)
m%:d%=a%(h%-1):
1,2,3,4,5,6,7,8,9,10:
a(m%,j%+1,21,
):j%=c%-1:
a(m%,j%+1,21,
12:b%(d%,j%,0)=
a(m%,12):
a(m%,13,22,
b%(d%,j%,0)):
13:b$=b$(d%,j%):
Ra%>=310
5,"Filer_Run "+
b$-8):
262366,"Run "+
b$-8)
14:b%(d%,j%,1)=
a(m%,16,22,
a(u%,17,22,
15:b%(d%,j%,1)=
a(u%,16,22,
a(u%,17,22,
b(t%,5,
b("snt")):
l(t%,5,10):
b(t%,c%,""):
g(t%)
b(t%,5,
b("rcd")):
l(t%,5,11):
b(t%,c%,""):
g(t%)
d(t%)
-2:g$="b":
m(x%,274,pa%)
t%:g$="d":
m(x%,y%,Ia%)
u%:g$="w":
m(x%,y%,K%)
m%:g$="c":
m(x%,y%,Ja%)
16,64:
c%=1kb%=J%:
B("0e4")
c%=1kb%=J%:
B("fff")
aa(v%,tb%,ub%,vb%):
c%=tb%
a(v%,c%)
a(v%,vb%,21,
w:o$=
c(t%,2):
o$="0"+o$
c(t%,3):
p$="0"+p$
c(t%,4):
q$="9"+q$
fy$=o$+"/"+p$+"/"+q$:
b$(a%(h%-1),j%)<8:b$(a%(h%-1),j%)+=" ":
b$(a%(h%-1),j%),8)=y$:
d(t%):
B(z$):x%=!e%:y%=e%!4:e%!4=5:e%!8=x%-76:e%!16=x%+76:e%!12=y%-52:e%!20=y%+52:e%!24=0:e%!32=&7FFFFFFF:e%!28=0:e%!36=&7FFFFFFF:
6,161,28
,,f%:
Ra%>=310
271360,197,1,"file_"+z$,e%+8,e%+24
262352,,e%
s%=h%-2:L%=1
:s%=h%-2:L%=(
c(l%,5))-1
i%=s%
8:r%=
f(i%,y%):
i%=s%
f(i%,0)
5:r%=
f(i%,y%):
f(i%,6)
8:r%=
f(i%,y%):
b(Q%,1,
b("nfd"))
s%=h%:L%=o%
:s%=h%:L%=(
c(l%,7))-1
t(s%,L%,
j:r$=
c(u%,5):
h%<o%
r$=""
b(P%,5,
b(P%,7,
b(P%,9,""):
o:wb%=w%:A$=$V%:
a$(a%(h%-1),i%)<>
c(u%,i%+5)
$V%="Addresses *":
:$V%="Addresses"
w%<>wb%
$V%<>A$
C:!a%=u%:
262347,,a%:
((a%!32)
(1<<16))=0
g(u%)
262353,-1,a%!4,a%!16,a%!12,a%!16+40
f(xb%):
g(u%)
9:a$(a%(h%-1),i%)=
c(u%,i%+5):
$V%="Addresses *"
$V%="Addresses"
!a%=u%:
262347,,a%:
C:d%=a%(h%-1):
b(u%,i%+5,a$(d%,i%)):
b(m%,i%+1,
b$(d%,i%),20)):fa%=b%(d%,i%,1)+11:
l(m%,i%+1,fa%):
j(u%,5,-1):
263872:yb%=
a(I%,1):
a(I%,c%)=
zb%=c%
:A%=a%:B%=Z%:
:Ab%=
o%-2:
3:i$=a$(a%(p%),0):j$=a$(a%(p%+1),0):$a%=
i$," ")-1):$Z%=
j$," ")-1)
4:i$=a$(a%(p%),0):j$=a$(a%(p%+1),0):$a%=
i$," ")):$Z%=
j$," "))
5,6,7,8,9,10,11,12:$a%=a$(a%(p%),zb%-4):$Z%=a$(a%(p%+1),zb%-4)
Bb%=0
Bb%=1
d(I%):
263873:
a%(p%),a%(p%+1):Ab%=
h%=o%
b("cnr")):
a%(h%-1),a%(h%):w%=
b("cnl")):
a%(h%-1),a%(h%-2):w%=
m(Db%,Eb%,g%):
262356,,g%,Db%-64,Eb%:
e%!16
0:ba%=
T(e%!16)
1282:
262336:
e%!20
n(-2)
K%+500:
(a$(a%(h%-1),0))=0:K%!560=K%!560
4194304:
:K%!560=(K%!560
4194304)-4194304
262376,,e%!20,e%!24,e%!28
n(Fb%):
Fb%=-2
a(n%,15)
a(n%,15,21,Fb%):
a(n%,c%,21,
Fb%):
a(n%,16,23,
:!a%=n%:a%!4=16:
262340,,a%:!a%=n%:
262347,,a%:
262353,n%,a%!20+250,a%!24-260,a%!20+400,a%!24-210
e(Gb%,c%,Hb%,r$,Ib%):
$+" whilst trying to load template '"+r$+"'"):
262363,,Gb%,c%,c%+Hb%,-1,r$,0:Gb%!64=Ib%:
262337,,Gb%
d(B$):Kb%=Pa%:Pa%=
Pa%-Kb%<200
Oa%+=1
Pa%-Kb%>200
Oa%=0
Oa%>5
262365:
262383,0:na%!0=255:$(na%+4)=B$:
262367,na%,18,oa%
,Lb%:=Lb%
c(v%,c%):!a%=v%:a%!4=c%:
262350,,a%:=$(a%!28)
p(J%,Mb%,Nb%,Ob%,Pb%,Qb%,e$):a%!0=J%:a%!4=Mb%:a%!8=Nb%:a%!12=Ob%:a%!16=Pb%:a%!20=Qb%:$(a%+24)=e$:
262338,,a%
Jb%:=Jb%
d(Jb%):!a%=Jb%:
262347,,a%:a%!28=0:
262342,,a%:
x:e%!12=e%!8:e%!16=4:
262375,17,e%,e%!4:
g(Jb%):
ea:!a%=Jb%:
262347,,a%:
fa:La%=
a%!28=-1:
262341,,a%:
ea:a%!0=4:a%!4=5:a%!8=11:a%!12=12:a%!16=-1:
49,a%,a%+20:Rb%=1<<(a%!20):Sb%=1<<(a%!24):Tb%=(a%!28+1)*Rb%:Ub%=(a%!32+1)*Sb%:
fa:W%=a%!12-a%!4:H%=a%!16-a%!8:X%=(Tb%-W%)/2:Y%=(Ub%-H%)/2:a%!4=X%:a%!8=Y%:a%!12=X%+W%:a%!16=Y%+H%:
l(v%,c%,fa%):
 !block%=window%:block%!4=icon%:block%!8=0:block%!12=0:block%?11=col%:block%?15=15
 SYS "Wimp_SetIconState",,block%
b(v%,c%,s$):!a%=v%:a%!4=c%:
262350,,a%:
$(a%!28)=s$:
s$>a%!36:G%=
d("String too long for icon number "+
c%+"  "+s$):
-$(a%!28)=s$:a%!8=0:a%!12=0:
262349,,a%:
j(v%,c%,Vb%):
Vb%=-1
c(v%,c%)
262354,v%,c%,-1,-1,-1,Vb%:
<x%=0:
k$," ",x%)>0:x%=
k$," ",x%)+1:
(k$)-x%+1)
57,,"DragASprite_Stop"
271361
262352,,0:F%=e%:
262351,,F%:x%=F%!0:y%=F%!4:v%=F%!12:c%=F%!16:!F%=56:F%!12=0:F%!16=1:F%!20=v%:F%!24=c%:F%!28=x%:F%!32=y%:F%!36=0:F%!40=4095:$(F%+44)=
c(kb%,0)):
262375,17,e%,v%,c%:Ma%=
h:c$="":i%=e%+43:
i%?1<>0:i%+=1:c$+=
q(n$):
n$,".")>0:n$=
n$,".")+1):
c(s%,Xb%,i%,Qb%,e$):s%!0=Xb%:s%!4=i%:s%!8=Qb%:
e$<12
$(s%+12)=e$
:Yb%=Qa%:Zb%=-1:_b%=
e$+1:Qb%=(Qb%
-257)
256:s%!8=Qb%:s%!12=Yb%:s%!16=Zb%:s%!20=_b%:$Qa%=e$:Qa%+=_b%
O:q%=
"<Address$Dir>.Messages":
q%=0:G%=
d("Who stole my messages?"):
262365:
`b% (
#q%+16):
12,4,q%,`b%,
,,,Bb%:
Bb%<>0:G%=
d("An error has occurred during message loading"):
262365:
#q%=0:
y:J%=e%!32:c%=e%!36:
-2:a$="bar"
5:a$="nam"
6,7,8,9,10:a$="add"
11:a$="pos"
12:a$="tel"
13,14:a$="oth"
:a$="mai"
12:a$="fil"
14:a$="sen"
16:a$=
b("dac"))+
b("snt")+
b("eda")
15:a$="rec"
17:a$=
b("dac"))+
b("rcd")+
b("eda")
b%(a%(h%-1),j%,0)
0:a$="rgr"
-1:a$="run"
11:a$="crf"
0,1,2,3,4,5,6,7,8,9,10:a$="crs"
:a$="rsp"
P%:a$="con"
t%:a$="dat"
l%:a$="sea"
I%:a$="sor"
N%:a$="swi"
Ua%:a$="inf"
Q%:a$="fnd"
n%:a$="snd"
Ra%>=310
262388,1,a%,J%,c%:
0:a$="mco"
1:a$="mse"
2:a$="mso"
3:a$="mcr"
4:w$="~adr":
0:a$="csd"
1:a$="csi"
2:a$="csr"
3:a$="csl"
:a$="mad"
5:a$="min"
7:a$="mqu"
"c":w$="~crp":
0:a$="csd"
1:a$="csi"
2:a$="csr"
3:a$="csl"
:a$=""
0:a$="min"
1:a$="msa"
2:a$="new"
3:a$="mqu"
:a$=""
:a$=""
b(a$)
a$,"%0")>0:T%=
a$,"%0"):M%=
a$," ",T%):
M%=0:M%=
+H(ac%=
a$,".",T%):
ac%>0
ac%<M%:M%=ac%
+RVa$=
a$,T%-1)+
b(w$)+
a$,M%):
a$,"~")>0:T%=
a$,"~"):M%=
a$," ",T%):
M%=0:M%=
+z(ac%=
a$,".",T%):
ac%>0
ac%<M%:M%=ac%
a$,T%-1)+
a$,T%+1,M%-T%-1))+
a$,M%):
ha(a$):
0:a$="prw"
a$(a%(h%-1),0)=""
b("pri")+"|M"+
b("prg"):
:a$="pri"
:a$="msa"
ha(e$):Ta%=
e$+1:e%!12=e%!8:e%!16=1283:$(e%+20)=e$+
0:!e%=(24+Ta%)
262375,17,e%,e%!4:
b($Z%):A%=`b%:B%=Z%:
bc%:=$Z%
E:q%=
"<Address$Dir>.Code":Hb%=
#q%+4:
U% Hb%:
5,"LOAD <Address$Dir>.Code "+
~U%:bb%=U%:Cb%=U%+40:bc%=U%+112:ob%=U%+236:
a(v%,c%,cc%,dc%):!a%=v%:a%!4=c%:
262350,,a%:
(a%!24
1<<cc%)=
(dc%<<cc%):
9!a%=v%:a%!4=c%:a%!8=0:a%!12=1<<cc%:
262349,,a%:
8!a%=v%:a%!4=c%:a%!8=1<<cc%:a%!12=1<<cc%:
262349,,a%
o(C$):
35,C$,a%,255,0,3
,,b%:a%?b%=13:=$a%