home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ARM Club 3
/
TheARMClub_PDCD3.iso
/
programs
/
programming
/
msgutils
/
MsgDecode
(
.txt
)
next >
Wrap
RISC OS BBC BASIC V Source
|
1997-12-26
|
1KB
|
54 lines
__ _
|_) /| Copyright Richard Atterer
| \/
| written on 22-07-1997 - Freeware
ArcWeb Message file: Expand dictionary entries & all tags below the last
'dict' tag in the file
get$="<ArcWeb$Dir>.Messages"
put$="RAM:MsgExpand"
dic$="dict"
$+" ("+
+")":
maxfile%=9999:maxdic%=199
m$(maxfile%),dic$(maxdic%),dicline%(maxdic%)
get$:lines%=0:dic%=0
a$=
#g%:m$(lines%)=a$
dic$)=dic$ n%=
dic$+1)):dic$(n%)=
a$,":")+1):dicline%(n%)=lines%:lastdicline%=lines%
lines%+=1
dicentries%=0
maxdic%
dic$(i%)<>"" a$=
expand(dic$(i%)):dic$(i%)=a$:m$(dicline%(i%))=dic$+
i%+":"+a$:dicentries%=i%
put$:
"SetType "+put$+" FFF"
lastdicline%
#p%,m$(i%)
i%=lastdicline%+1
lines%-1
n%=
m$(i%),":")
m$(i%),1)<>"#"
$/
m$(i%),n%)+
expand(
m$(i%),n%+1))
%
#p%,m$(i%)
expand(b$)
a$,a%,b%,n%:a%=1:b%=1
b$,"%",b%)
"0123456789",
b$,b%+1,1))>0
n%=
b$,b%+1))
5- a$=a$+
b$,a%,b%-a%)+
expand(dic$(n%))
a%=b%+
n%)+1:b%=a%
b$,a%)