!MEditate v. 3.31 (c) A.J.Bennett N.Davies 7/2/94
Z=3.31:
6,113,1:
&406c2:
46,290,Gy%,"menuscreen",0,0:
R_%,s_%,Oy%:
Oy%<>0:
V(1):
Py:F%=
("<MagEdit$Dir>.magsystem.MagData"):J$=
#F%:__%=
#F%):J$=
#F%:ky%=
#F%):J$=
#F%:BJ%=
#F%):J$=
#F%:wJ%=
#F%):J$=
#F%:VJ%=
#F%):J$=
#F%:k$=
#F%:J$=
#F%:U%=
#F%):J$=
#F%:Py%=
#F%):J$=
#F%:H%=
#F%):J$=
#F%:s%=
#F%):J$=
#F%):
W%(G_%),G%(G_%),B%(G_%),P%(G_%):
G_%:J$=
#F%:W%(A%)=
#F%):B%(A%)=
#F%):G%(A%)=
#F%):P%(A%)=
#F%):
_y:*fx4,2
*fx225,170
*fx226,190
*fx227,210
((s%-H%)/32)-1:p%=
((Py%-U%)/16):h%=0:
A$(B%*__%),M$(B%*__%):f%=0:
Z$(ky%),Z%(ky%*0.8),M%(ky%*0.8),S%(ky%*0.8),F%(ky%*0.8):
A%(ky%*0.8):C$="":sy%=0:gy%=1:by%=2:jy%=4:Bu%=5:Xu%=7:Qu%=8:H$="":
X_%255,vJ%1023:
S$(__%)
MJ%255,uJ%255,C$(78),W$(78),J$(30):
C%(B%+1):I$="":
Gy%BJ%:
uy%wJ%:
Q%VJ%:!Gy%=BJ%:!uy%=wJ%:!Q%=VJ%:Q%!4=0:Q%!8=16:Q%!12=16:ly%=0:z_%=0:Z_%=
:s$="<MagEdit$Dir>.magsystem":A=(Py%+U%)/2:F%=
(s$+".bannerfile"):ly%=
8,255,s$+".bannerfile",Gy%+4:
ly%>8
F$(ly%)
F$(9)
c(Gy%,ly%):
ly%:F$(A%)=J$(A%):
:DJ%=800:
j_%DJ%:!j_%=DJ%:
8,255,s$+".!pointer",j_%+4:
P$(b_%,12),J%(b_%):
J%(A%):
J%(A%):
P$(A%,b%):
G$(FJ%,3),N%(FJ%):
N%(A%):
N%(A%):
G$(A%,b%):
A_:`y%=
8,5,"<MagEdit$Dir>.articles.check"
Zy%=1
s`y%=
:G$="<MagEdit$Dir>.articles.text":F$="<MagEdit$Dir>.articles.palettes":R$="<MagEdit$Dir>.articles.sprites"
8,5,"<MagEdit$Dir>.^.articles.check"
Zy%=1
y`y%=
:G$="<MagEdit$Dir>.^.articles.text":F$="<MagEdit$Dir>.^.articles.palettes":R$="<MagEdit$Dir>.^.articles.sprites"
11,16)"Please Insert a MAGAZINE DISK into drive 0 and press a key":P=
:*MOUNT 0
8,5,"$.articles.check"
Zy%=1
O`y%=
:G$="$.articles.text":F$="$.articles.palettes":R$="$.articles.sprites"
J(F$+"."+k$):
&406c2:
J("wimppalette "+F$+".!Magpal"):
J(My$):
(My$):
46,36+256,j_%,"ptr_hand",2,0,0,0,0:
46,36+256,j_%,"ptr_cross",2,16,8,0,0:
23,253,254,3,50,115,254,112,48,0:
23,254,126,148,148,116,20,20,126,0:
23,253,0,0,0,0,0,0,0,0:
23,254,0,0,0,0,0,0,0,0:
 6,"Save Menufiles","Load Menufile","ASCII to Magtext","Magtext to ASCII","* command","Exit"
 7,"Display Info","Add Comment","Add Banner","Assign Menu","Assign Article","Change Next Colours","Change Default Colours"
 12,"Edit Line","Insert Line","Delete Line","Centre Line","Left Justify","Right Justify","Change Left Margin","Change Right Margin","Change Line Colour","Insert Graphic","Delete Graphic","Change Fg/Bg"
 10,"
","","","","","","","","","
 5,"Reposition","Change fg/bg","Change Item","Delete","Centre Item"
 1,"Edit Mode On/Off"
 4,"Save Article","Load Sprites","Load New Palette","Load New Font"
 1,"Formatting Characters On/Off"
 3,"1File Options","2Menu Options","6Edit Mode"
 3,"1File Options","5Edit Options","6Edit Mode"
 3,"7File Options","3Edit Article","8Misc"
Z%,C%,D%:
50,30);"X:";Z%,
60,30);"Y:";C%,:
D%<>0
R_%,s_%,Oy%:
Oy%=0:
A(Fu%,y%,D%):
&40743,(Fu%<<8)+(y%<<16)+(D%<<24):
Z%<Py%
Z%>U%
C%<s%
C%>H%
Z%<G%(1)
Z%>W%(1)
C%<P%(1)
C%>B%(1)
Z%<G%(3)
Z%>W%(3)
C%<P%(3)
C%>B%(3)
Z%<G%(4)
Z%>W%(4)
C%<P%(4)
C%>B%(4)
Z:M%=0:
Z%>Z%(A%)
Z%<S%(A%)
C%>M%(A%)
C%<F%(A%)
M%=A%
M%<>0
Dy(M%):
V(1):
H("Are You Sure That You Want To Quit? (Y/N)",`$):
`$="yes"
J(F$+".!Palette"):*FX25,0
*nodir
C	*QUIT
_(1,N_%,Cy%):
L(`%,Sy%)
L(`%,Sy%):Yy%=`%:Uy%=Sy%:
A(0,0,0):
A(255,255,255):
A-(27*8),s%-(32):
;"Menu : ";Ry%;") ";v$:
A-(27*8),s%-(2*32):
;"Root Menu : ";ZJ%:
A-(27*8),s%-(4*32):
;"Number of menu items : ";By%:
U%+50,s%-(6*32):
"Default Foreground Colour : ";Yy%:
U%+50,s%-(7*32)
"Default Background Colour : ";Uy%:
A-(21*16),s%-(20*32):
"- Click To Continue -":
R_%,s_%,Oy%:
Oy%<>0:
_(i_%,
a_%):
46,16+256,Q%,"mbtemp",0,0,991,1280,1023:
A(0,25,120):
0,991,1280,1023:
A(255,255,255):
N%(i_%):
240*(A%-1)+16,1019:
;" ";
G$(i_%,A%),2):
1279-(
$)+1)*16,1019:
4:PJ%=0:Ny%=0:fy%=0:zy%=0:K%=-1:T%=-1:w%=-1:z%=-1
Z%,C%,D%:
C%>=991
D%<>0:
Z%,C%,D%:o_%=(Z%-16)/240+1:
o_%<=N%(i_%)
G$(i_%,o_%),1))
Ny%<>PJ%
PJ%<>0
T(Ny%,240*(o_%-1)+16,920-J%(Ny%)*32+32):PJ%=Ny%:fy%=0:zy%=0
Ny%>0
fy%=zy%:zy%=
((T%+z%+16-C%)/32)*((Z%>K%)*(Z%<K%+w%)):
fy%<>0
fy%<>zy%
fy%<=J%(Ny%)
K%+4,T%+z%+20-(fy%*32),w%-8,-32
zy%<>fy%
zy%>0
zy%<=J%(Ny%)
K%+4,T%+z%+20-(zy%*32),w%-8,-32
D%=0:
Z:a_%=0:
Ny%>0
Z%>K%
Z%<K%+w%
C%>T%
C%<T%+z%
((T%+z%+16-C%)/32)
a_%<0
a_%>J%(Ny%)
a_%=0
46,290,Q%,"mbtemp",0,991:
M("Enter CLI command"):
B(j$,70):
:Z_%=
J(j$):
"Press a key to continue":J=
24,U%;H%;Py%;s%;:
H("SAVE BEFORE QUITING (Y/N)",Ay$):
Ay$="yes"
o	*FX25
&406c2:
"  Error Number ";
;" at line ";
:*FX25
&406c2:
N(G$,q$,B$):
B$<>"MagTex"
M("This is not a MagText file"):
tND$=q$:
M("Enter a file name"):
B(D$,40):
O(D$)=
M("Invalid filename"):
&406c0:F%=
(G$+"."+q$):
#F%,Z,J$,J$,S%,J$:
#F%,S$(A%):
#F%,A$(A%):
#F%:x%=
(G$+"."+D$):
S%-1:
A$(A%))
(254):
A$(A%),
(A$(A%))-1);
(253):
A$(A%),
(A$(A%))-1)
#x%,A$(A%)
A$(S%-1))<>
(253)
(10);
("settype "+G$+"."+D$+" Text"):
&406c1:
N(G$,q$,B$):
B$<>"Text  "
M("This is not a Text file"):
&406c0:S%=1:A$(0)="":M$(0)="":oJ%=1:A$="":U$="":I$="":H$="":
Q(15,0,0,"",M$):S$()=M$:S%=1:A$(0)="":
P(0,p%,15,0,"L",Y$):M$()=Y$:F%=
(G$+"."+q$):
#F%):
}"A$(S%)+=
(253):S%+=1:A$(S%)=""
:A$(S%)=A$(S%)+A$
(A$(S%))=p%
py:S%=S%+1
#(F%)
S%>B%*__%:
A$(S%)+=
(253):S%+=1
&406c1:
O(q$):A$()="":
A$(S%),1)<>" ":A$(S%+1)=
A$(S%),1)+A$(S%+1):A$(S%)=
A$(S%),
(A$(S%))-1):
:A$(S%)=A$(S%)+
(254):
O(D$):
M("Enter a file name"):
B(D$,40):
O(D$)=
M("Invalid filename, Try Again"):
B(D$,40):
O(D$)=
&406c0:x%=
(G$+"."+D$):
#x%,Z:
#x%,U$:
#x%,I$,S%,H$:
#x%,S$(A%):
#x%,A$(A%):
:g$="":
M$(A%)=g$
#x%,""
#x%,M$(A%):g$=M$(A%)
J("SetType "+G$+"."+D$+" MagText"):
&406c1:
&406c0:t%=
:S$()="PAA":F%=
(G$+"."+
M(A_%)):
#F%,Z:
M("This is file is incompatible with this version of the Editor"):
#F%,U$,I$,S%,H$:
#F%,S$(A%):
#F%,A$(A%):
#F%,M$(0):
#F%,M$(A%):
M$(A%)=""
M$(A%)=M$(A%-1)
I$<>""
J("wimppalette "+F$+"."+I$)
H$<>""
J(F$+"."+H$)
U$<>""
(R$+"."+U$):z_%=
8,255,R$+"."+U$,uy%+4
&406c1:
e(R%):aJ%=0:TJ%=
:c_%=
A$(R%),
(253)):
c_%<>
A$(R%)
c_%<>0
A%=S%+1
A$(A%),A$(A%+1):
M$(A%),M$(A%+1):
P(0,p%,
N(R%),
Q(R%),"L",M$):M$(R%+1)=M$:A$(R%+1)=
A$(R%),c_%+1):A$(R%)=
A$(R%),c_%):S%+=1:R%+=1:aJ%+=1
:TJ%=
Z%=R%-aJ%
wy(Z%):
wy(g%):
e_%,Z%,A$:
&406c0:Fy$="":iy%=S%-1:
A$(g%),1))<253
A$(g%)=A$(g%)+
(254)
A$(g%),2):
(A$)<>32
A$,2))=254
JL%=g%:
L%+=1:
L%>S%-1
(A$(L%))>1:D%=
A$(L%)," "):
(A$(L%))-1
GA$(g%)=
A$(g%),
(A$(g%))-1)+
A$(L%),D%)+
(254):A$(L%)=
A$(L%),D%+1)
!L%=g%:
L%-=1:
S(L%)>0:
A$(g%)," "):
(A$(L%))+D%<=
S(L%)+1
A$(L%),1)=
(254)
g%=L%
:e_%=
S(g%):L%=
A$(g%),
(253)):
(A$(g%))>e_%+1
(L%<>
(A$(g%))
L%<>0)
CQ$="":Z%=g%-1:
:Z%+=1:Q$+=A$(Z%):
Q$,1)=
(254)
(Q$)-1)
h(Z%):
Z%>=S%-1
Q$="":
Q$<>""
kiy%=S%-1:e_%=
S(S%-1):
P(0,p%,
N(S%-1),
Q(S%-1),"L",M$):
:iy%+=1:M$(iy%)=M$:
h(iy%):
Q$="":Cu%=iy%-S%-1
:e%=g%:c%=e%+1:
A$(e%),1)<>
(253)
c%<=S%-1:sJ%=
S(e%)-
(A$(e%))+1:cy%=0:O$="":
:cy%=
A$(c%)," "):
cy%=0
A$(c%),1)=
(254)
(A$(c%))-1
(A$(c%))
(O$)<=sJ%
CO$+=
A$(c%),cy%):A$(c%)=
A$(c%),cy%+1):
A$(c%)=""
A$(c%)=
(254)
(A$(c%))<=1
c%+=1
(O$)>sJ%
(253))<>0:
A$(e%),1)>
(250)
A$(e%)=
A$(e%),
(A$(e%))-1)
/A$(e%)+=O$:
(A$(e%))>3
A$(e%),1)<>
(253)
A$(e%),
(A$(e%))-2,1):
".?!:",A$)
A$(c%),1)=" "
!A$(c%)=
A$(c%),2):A$(e%)+=" "
O$,1)<>
(253)
A$(e%)+=
(254)
e%+=1:
e%=c%
c%+=1
:e%+=1:
e%=c%
c%>S%-1
:S%=iy%+1:
A$(S%-1)=""
A$(S%-1)=
(254):S%-=1:
:A$(0)=
(S%):
&406c1:
h(wy%):e_%=
S(wy%):A$(wy%)=
Q$,e_%):Ly%=
A$(wy%),
(253)):
Ly%=0
(A$(wy%)):
Ly%>0
A$(wy%),Ly%,1)<>" "
Ly%=0:Ly%-=1:
:A$(wy%)=
A$(wy%),Ly%)+
(254)
:A$(wy%)=
A$(wy%),Ly%)
Q$,Ly%+1):
N(x_%):=
M$(x_%),3,1))
Q(x_%):=
M$(x_%),4,1))
R(x_%):=
M$(x_%),5)
B(x_%):=
M$(x_%),1))
S(x_%):=
M$(x_%),2,1))
P(Vu%,Mu%,lJ%,Du%,Cy$,
N$):N$=
H(Vu%):N$=N$+
H(Mu%):N$=N$+
H(lJ%):N$=N$+
H(Du%):N$=N$+Cy$:
H(Qy%):=
("A")+Qy%)
U(P$):=
(P$)-
("A")
Q(Hu%,Uu%,Nu%,Sy$,
N$):N$=
H(Hu%):N$+=
H(Uu%):N$+=
H(Nu%):N$+=Sy$:
L(n_%):=
S$(n_%),1))
X(n_%):=
S$(n_%),2,1))
W(n_%):=
S$(n_%),3,1))
K(n_%):=
S$(n_%),4)
G:u%=h%:h%=
((S%-1)/B%):
(S%-1)/B%<>h%
h%+=1
h%>u%
L(u%),
X(u%),0,"",S$(h%))
F_:u_%=
G:W%=1:
U(W%):KJ%=
Z%,C%,q%:
50,30);"X:";Z%,
60,30);"Y:";C%,:
H("This article has been modified. Do you want to save? Y/N",A$):
A$="yes"
M(A_%))
v:A$()="":M$()="":
H$<>""
J(F$+".Large"):H$=""
I$<>""
J("wimppalette "+F$+".!magpal")
 S$()="PAA":z_%=0:h%=0:W%=0:
U(H_%):
46,290,Gy%,"menuscreen",0,0:Z_%=
F:Qy%=
L(H_%):D%=
X(H_%):
D%<>Qy%
0,128+D%:
0,Qy%
W(H_%)>0
K(H_%))
5R%=(H_%-1)*B%+1:
Y%=s%-16
s%-32*B%
R%<S%
R%=R%+1:
cy:xy%=U%+8+(
B(R%))*16:vy%=
S(R%)*16:Sy%=
Q(R%):`%=
N(R%):m$=
R(R%):
Sy%<>D%
xy%-8,Y%-31,vy%+8,31
`%<>Qy%
A$(R%))=
(254)
xy%+vy%/2-(
(A$(R%))-2)*8,Y%
xy%+vy%/2-(
(A$(R%))-1)*8,Y%
A$(R%))=
(254)
xy%+vy%-(
(A$(R%))-2)*16,Y%
xy%+vy%-(
(A$(R%))-1)*16,Y%
xy%+4,Y%
;A$(R%):
iy(A$):
W(H_%):L$=
A$,"|")-1):A$=
A$,"|")+1):
D(uy%,
L$,11),U%+
L$,5)),H%+
L$,6,5))):
Z%<G%(2)
Z%>W%(2)
C%<P%(2)
C%>B%(2)
Z%<G%(1)
Z%>W%(1)
C%<P%(1)
C%>B%(1)
Z%<G%(3)
Z%>W%(3)
C%<P%(3)
C%>B%(3)
Z%>U%
Z%<Py%
C%>H%+32
C%<s%-16
by:f_%=(
((s%-C%-16)/32))+1:C%(f_%)=(C%(f_%)-1)^2:
8:RJ%=s%-A%-((f_%-1)*32)-16:
U%,RJ%,Py%,RJ%:
Z:KJ%=
:W%=0:
Oy:C%()=0:
Z:W%=W%+1:
W%>h%
W%=h%:
U(W%):
Ly:C%()=0:
Z:W%=W%-1:
W%=1:
U(W%):
_(3,N_%,Cy%):
M_:t%=
`y:t%=
m:t%=
Y("C"):t%=
Y("L"):t%=
Y("R"):t%=
ty:t%=
`:t%=
Zy:t%=
Cy:t%=
C_:t%=
dy:t%=
M(A_%)):t%=
Yy:t%=
Gy:t%=
vy:t%=
U(W%):C%()=0:
M_:P%=0:
P%+=1:
C%(P%)=1
P%>B%:
P%>B%
(W%-1)*B%+P%>=S%
:ey%=(W%-1)*B%+P%:
A$(ey%))=
(254)
A$(ey%),
(A$(ey%))-2):f$=" "+
(254)
:x$=A$(ey%):f$=""
sy(x$,175):A$(ey%)=x$+f$:
A$(ey%))<>
(253)
ey%=S%-1
A$(ey%)+=
(253)
e((W%-1)*B%+P%):
U(W%):
184:P%+=1
185:P%-=1
204:P%=B%
205:P%=1
P%>B%
P%=B%
(W%-1)*B%+P%>=S%
P%=S%-1-B%*(W%-1)
y%=13:
u$,hy%):
hy%>255
hy%=255
R%=(W%-1)*B%+P%:xy%=U%+8+(
B(R%))*16:vy%=
S(R%)*16:My%=vy%+16:Dy%=40:o%=xy%-8:l%=s%-20-(P%*32):
46,16+256,Q%,"temp",0,o%,l%,o%+My%+8,l%+Dy%:
A(0,25,120):
o%,l%,My%,Dy%:
A(255,255,255):
o%,l%,My%,Dy%:
y(u$,hy%,o%+12,l%+Dy%-4,My%-16,
S(R%)):
46,290,Q%,"temp",o%,l%:
46,25+256,Q%,"temp":
P%=B%
C%(P%)=1
(W%-1)*B%+P%<S%
A%=S%+1
(W%-1)*B%+P%
A$(A%),A$(A%+1):
M$(A%),M$(A%+1):
:S%=S%+1:A$((W%-1)*B%+P%)=
(253):
P(0,p%,
L(W%),
X(W%),"L",M$):M$((W%-1)*B%+P%)=M$
P%=B%
C%(P%)=1
(W%-1)*B%+P%<S%
!mA$((W%-1)*B%+P%)="":M$((W%-1)*B%+P%)="":
A%=(W%-1)*B%+P%
A$(A%),A$(A%+1):
M$(A%),M$(A%+1):
:S%=S%-1
Y(A$):
C%(P%)=1
$CO%=(W%-1)*B%+P%:
B(O%),
S(O%),
N(O%),
Q(O%),A$,M$):M$(O%)=M$
U%,H%,Py%-U%,s%-H%:X%=0:
I_%,C%,D%:
U%+X%*16+8,H%,16,s%-H%:
Z%,C%,D%:
D%<>0
Z%<>I_%:
U%+X%*16+8,H%,16,s%-H%:I_%=Z%:X%=
((Z%-U%)/16):
X%<0X%=0
X%>p%X%=p%
D%<>0:
C%(P%)=1
)4O%=(W%-1)*B%+P%:ny%=
B(O%)+
S(O%)-X%:
ny%<1ny%=1
P(X%,ny%,
N(O%),
Q(O%),
R(O%),M$):M$(O%)=M$
:P%=0:
P%+=1:
C%(P%)=1
P%>B%:
P%<B%
e((W%-1)*B%+P%)
0,0,1279,1023:
U%,H%,Py%-U%,s%-H%:X%=p%:
I_%,C%,D%:
U%+X%*16+8,H%,16,s%-H%:
Z%,C%,D%:
D%<>0
Z%<>I_%:
U%+X%*16+8,H%,16,s%-H%:I_%=Z%:X%=
((Z%-U%)/16):
X%<0X%=0
X%>p%X%=p%
D%<>0:
C%(P%)=1
0-O%=(W%-1)*B%+P%:ny%=X%-
B(O%):
ny%<1ny%=1
B(O%),ny%,
N(O%),
Q(O%),
R(O%),M$):M$(O%)=M$
:P%=0:
P%+=1:
C%(P%)=1
P%>B%:
P%<B%
e((W%-1)*B%+P%)
0,0,1279,1023:
L(Qy%,D%):
C%(P%)=1
5@O%=(W%-1)*B%+P%:
B(O%),
S(O%),Qy%,D%,
R(O%),M$):M$(O%)=M$
L(Qy%,D%):
&406c0:
A%=W%
B%:O%=(A%-1)*B%+b%:SJ%=
N(O%):p_%=
Q(O%):
L(A%)SJ%=Qy%
X(A%)p_%=D%
B(O%),
S(O%),SJ%,p_%,
R(O%),M$):M$(O%)=M$:
A%=W%
Q(Qy%,D%,
W(A%),
K(A%),A$):S$(A%)=A$:
&406c1:
N(F$,d$,B$):
B$<>"Palett"
M("This is not a Palette file"):
;(I$=d$:
J("wimppalette "+F$+"."+I$):
N(F$,d$,B$):
B$<>"BBC fo"
M("This is not a Font file"):
H$=d$:
J(F$+"."+H$):
U$<>""
H("Are you sure that you want to loose the current graphics? (Y/N)",a$)
:a$="yes"
a$="yes"
N(R$,p$,B$):
B$<>"Sprite"
M("This is not a sprite file"):
CuU$=p$:
L(A%),
X(A%),0,"",A$):S$(A%)=A$:
(R$+"."+U$):z_%=
8,255,R$+"."+U$,uy%+4:
U(W%)
U$=""
M("No sprites loaded"):
Qy(uy%,z_%,w$):
w$=""
R(uy%,w$,ay%,ty%):
X%,r%,q%:j%=X%-ay%/2:m%=r%-ty%/2:F_%=X%+(ay%/2)+2:Q_%=r%+(ty%/2)+4:
46,16+256,Q%,"temp",0,j%,m%,F_%,Q_%:
D(uy%,w$,j%,m%):
Hy%,Vy%,B_%:
Hy%<>X%
Vy%<>r%
B_%<>q%
q%<>0:
46,290,Q%,"temp",j%,m%:
q%<>0
46,25+256,Q%,"temp":
H("Do you want this graphic to be centered? (Y/N)",a$):
a$="yes"
j%=A-ay%/2
IYA$=
K(W%)+
J(j%-U%,5)+
J(m%-H%,5)+w$+"|":
L(W%),
X(W%),
W(W%)+1,A$,e$):S$(W%)=e$:
W(W%)<1
Z%()=0:M%()=0:S%()=0:F%()=0:A$=
K(W%):
W(W%):L$=
A$,"|")-1):A$=
A$,"|")+1):Z%(Z%)=U%+
L$,5)):M%(Z%)=H%+
L$,6,5)):
R(uy%,
L$,11),ay%,ty%):S%(Z%)=Z%(Z%)+ay%:F%(Z%)=M%(Z%)+ty%:
Z%(Z%),M%(Z%),ay%,ty%:
:t_%=0:
Z%,C%,D%:
D%<>0
W(W%):
Z%>Z%(A%)
C%>M%(A%)
Z%<S%(A%)
C%<F%(A%)
t_%=A%
t_%<>0:L$="":A$=
K(W%):
W(W%):
A%<>t_%
A$,"|"))
NEA$=
A$,"|")+1):
L(W%),
X(W%),
W(W%)-1,L$,n$):S$(W%)=n$:
Ry:u_%=
T(U_%,Au%,Zu%):K%=Au%:T%=Zu%:w%=0:
J%(U_%):u%=
(P$(U_%,A%))*16:
u%+16>w%
w%=u%+16
:z%=J%(U_%)*32+32:
46,16+256,Q%,"temp",0,K%,T%,K%+w%,T%+z%:
A(0,25,120):
K%,T%,w%,z%:
A(255,255,255):
K%,T%,w%,z%:
J%(U_%):
K%+(w%/2)-(
(P$(U_%,A%))*8),T%+z%+16-(A%*32):
;P$(U_%,A%):
46,290,Q%,"temp",K%,T%:
K%,T%+20,w%,z%-36:Z%=K%:C%=T%+20:oy%=
((C%-T%-z%-16)/32):g_%=oy%:
Z%,C%,D%:oy%=
((T%+z%+16-C%)/32):
oy%<>g_%
K%+4,T%+z%+20-(g_%*32),w%-8,-32:
K%+4,T%+z%+20-(oy%*32),w%-8,-32
:g_%=oy%:
D%>3:
A(0,25,120):
0,0,1279,1023:
46,290,Q%,"temp",K%,T%:
46,25+256,Q%,"temp":=oy%
N(T$,
a%,B$(),yy%:
B$(20):B$(0)=T$:yy%=0:OJ%=
:T$="":
yy%:T$+=B$(A%)+".":
My(T$):C$(1)="<Parent>":a%=0:
9:P$(4,A%)=
C$(a%+A%-1)+"             ",13)+W$(a%+A%-1):
T(4,750,500):n%=
1:a%-=1:
a%<0a%=0
C$(a%+9)<>""
a%+=1
:_$=C$(a%+n%-1):t$=W$(a%+n%-1)
n%<10:
t$="<DIR> "
_$="<Parent>"
t$="<DIR> "
yy%+=1:B$(yy%)=_$
_$="<Parent>"
yy%>0
yy%-=1
:OJ%=
yy%>0
_-T$="":
yy%:T$+=B$(A%)+".":
:_$=T$+_$
Qy(l_%,Ju%,
Zy$):
c(l_%,Ju%):a%=0:
9:P$(4,A%)=J$(a%+A%-1):
T(4,750,500):n%=
1:a%-=1:
a%<0a%=0
J$(a%+9)<>""
a%+=1
:Zy$=J$(a%+n%-1)
n%<10
Zy$<>"":
Xy%):
a%:a%=0:
9:P$(4,A%)=F$(a%+A%-1):
T(4,750,500):n%=
1:a%-=1:
a%<0a%=0
a%+9<=ly%
a%+=1
:Xy%=a%+n%-1
n%<10:
My(l$):
Q%(),Y$:
y_%8:C$()="":W$()="":h_%=0:L_%=1:
h_%<>-1
L_%<79:
12,10,l$,MJ%,1,h_%,63,"*"
,,,_J%,h_%:
_J%<0
_J%>0
(!MJ%>>>20)=4095
41,18,,(!MJ%>>>8)
,,gJ%,jJ%:y_%!0=gJ%:y_%!4=jJ%:y_%?8=13:Y$=
q(MJ%+20):L_%+=1:W$(L_%)=
$y_%,6):C$(L_%)=Y$
C$(A%)<>""
W$(A%)="Data  "
8,5,l$+"."+C$(A%)
Zy%=2
W$(A%)="<DIR> "
q(l_%):
?l_%>31:e$+=
(?l_%):l_%+=1:
M(S$):S_%=
(S$)*16+16:
S_%<19*16+16
S_%=19*16+16
M_%=96:V_%=(1280-S_%)/2:my%=(1024-M_%)/2:
46,16+256,Q%,"temp",0,V_%,my%,V_%+S_%,my%+M_%:
A(0,25,120):
V_%,my%,S_%,M_%:
A(255,255,255):
V_%,my%,S_%,M_%:
(1280-
(S$)*16)/2,my%+M_%/6*5:
(1280-19*16)/2,my%+M_%/2:
;"<Click to Continue>":
R_%,s_%,Oy%:
Oy%<>0:
46,290,Q%,"temp",V_%,my%:
46,25+256,Q%,"temp":
u$,hy%):
hy%>255hy%=255
hy%<=70
My%=hy%*16+16
My%=71*16+16
Dy%=64:o%=(1280-My%)/2:l%=200:
46,16+256,Q%,"temp",0,o%,l%,o%+My%+8,l%+Dy%:
A(0,25,120):
o%,l%,My%,Dy%:
A(255,255,255):
o%,l%,My%,Dy%:
y(u$,hy%,o%+16,l%+Dy%-16,My%-18,70):
46,290,Q%,"temp",o%,l%:
46,25+256,Q%,"temp":
Z$,Wy%,V%,k_%,Wu%,tJ%):
5:N%=V%+
(Z$)*16:_%=1:
6,15,0:
A(0,25,120):
V%,k_%-32,Wu%,32:
A(255,255,255):
V%,k_%:
Z$,_%,tJ%+1):
N%,k_%-32,16,32:y%=
N%,k_%-32,16,32:
my(y%,tJ%-1):
y%=13
y%=184
y%=185
y%=204
y%=205:
my(y%,d%):
y%>31
y%<127
(Z$)<Wy%
}kZ$=
((N%-V%)/16)+_%-1)+
(y%)+
(Z$)-
((N%-V%)/16)-_%+1):
Wy%>d%
N%>=V%+(d%+1)*16
_%+=1
N%<V%+
(Z$)*16
N%<V%+(d%+1)*16N%+=16
N%>V%N%-=16
Wy%>d%
N%<=V%
_%-=1
202:u%=(N%-V%)/16+_%:A%=0:
:A%+=1:
Z$,u%-A%-1,1)=" "
u%-A%<=1:
N%>V%N%-=16
Wy%>d%
N%<=V%
_%-=1
222:N%=V%:_%=1
N%<V%+
(Z$)*16
N%<V%+d%*16N%+=16
Wy%>d%
N%>=V%+d%*16
(Z$)<Wy%
(Z$)-d%
_%+=1
203:u%=(N%-V%)/16+_%:A%=0:
:A%+=1:
Z$,u%+A%-1,1)=" "
u%+A%>=
(Z$):
N%<V%+
(Z$)*16
N%<V%+d%*16N%+=16
Wy%>d%
N%>=V%+d%*16
(Z$)<Wy%
(Z$)-d%
_%+=1
223:u%=(N%-V%)/16+_%:
A%=u%
(Z$):
N%<V%+
(Z$)*16
N%<V%+d%*16N%+=16
Wy%>d%
N%>=V%+d%*16
(Z$)<Wy%
(Z$)-d%
_%+=1
21:N%=V%:Z$=""
8,127:
Z$<>""
N%>V%
((N%-V%)/16)-1+_%-1)+
(Z$)-
((N%-V%)/16)-_%+1):
_%-=1
N%-=16
Z$<>""
N%<V%+
(Z$)*16
((N%-V%)/16)+_%-1)+
(Z$)-
((N%-V%)/16)-1-_%+1)
253,254,163,171:
y%=171
y%=253
(Z$)<255
((N%-V%)/16)+_%-1)+
(y%)+
(Z$)-
((N%-V%)/16)-_%+1):
N%<V%+
(Z$)*16
N%<V%+(d%+1)*16N%+=16
Wy%>d%
N%>=V%+(d%+1)*16
_%+=1
c(Lu%,Gu%):J$()="":
Gu%:J$(I%)="":
46,269,Lu%,uJ%,12,I%
,,,C:
C-1:J$(I%)+=
(uJ%?J%):
H(S$,
h$):K_%=
(S$)*16+16:D_%=64:J_%=(1280-K_%)/2:py%=(1024-D_%)/2:
46,16+256,Q%,"temp",0,J_%,py%,J_%+K_%,py%+D_%:
A(0,25,120):
J_%,py%,K_%,D_%:
A(255,255,255):
J_%,py%,K_%,D_%:
(1280-
(S$)*16)/2,py%+D_%/4*3:
;mJ%:G%=mJ%
h$="yes"
h$="no"
46,290,Q%,"temp",J_%,py%:
46,25+256,Q%,"temp":
hJ%):K%=750:T%=400:w%=216:z%=216+4*32:
46,16+256,Q%,"temp",0,K%,T%,K%+w%,T%+z%:
K%,T%,w%,z%:
A(0,25,120):
K%,T%,w%,z%:
A(255,255,255):
K%,T%,w%,z%:
K%+8+(A%
4)*50,T%+z%-8-(A%
4)*50,50,-50:
A(0,0,0)
K%+8+(A%
4)*50,T%+z%-8-(A%
4)*50,50,-50:
A(255,255,255):
K%+w%/2-32,T%+8+32:
;"Done":
:Iy%=
K%+8,T%+8+3.5*32+4,w%-16,-68:
K%+w%/2-88,T%+8+3.5*32:
;"Select=Fore":
K%+w%/2-88,T%+8+2.5*32:
;"Adjust=Back":
Z%,C%,D%:
Z%>=K%+8
Z%<=K%+208
C%>=T%+z%-208
C%<=T%+z%-8
4:yJ%=
Z%,C%)
1:hJ%=
Z%,C%)
C%<T%+8+32
46,290,Q%,"temp",K%,T%:
46,25+256,Q%,"temp":
0,0,1280,1024:
O(P$):Iy%=
P$=""
	Iy%=
"$&%@\^:#* "+
(34),
P$,A%,1))<>0
P$,".")<>0
:IJ%=
P$,"."):
P$,IJ%-1))>10
P$,IJ%+1):
P$>10
P_:C$="":Z$(0)="001001":Z$(1)="1|0700|Main Menu|":
8,5,F$+".freemenus"
Zy%=1
(F$+".freemenus"):C$=
:C$=""
8,5,F$+".newmenus"
Zy%=1
(F$+".newmenus"):Z$(0)=
Z$(0),3)):Z$(Z%)=
V(Su%):Ry%=Su%:
a:Sy%=Uy%:`%=Yy%:
46,290,Gy%,"menuscreen",0,0:Z_%=
0,128+Uy%:
0,Yy%:
r_%=1
By%:HJ%=
Z(r_%):
HJ%=sy%
ly(r_%)
HJ%=jy%
Fy(r_%)
ly(Z%):
5:Y$=
M(Z%):
Uy%<>
T(Z%)
T(Z%):
P(Z%)-6,H%+
C(Z%)+2,
(Y$)*16+12,-34
I(Z%):
P(Z%),H%+
C(Z%):
Fy(qJ%):
D(Gy%,
M(qJ%),
P(qJ%)+U%,
C(qJ%)+H%):
I(nJ%,iJ%,eJ%,`%,Sy%,dJ%,cJ%,y$):M$=
A(nJ%,1)+
J(iJ%,5)+
J(eJ%,5)+
A(`%,2)+
A(Sy%,2)+
J(dJ%,5)+
J(cJ%,5)+y$:
qy(M$):
qy(A$):XJ%=
A$,1)):By%=
(X$)/3:L%=0:
:L%+=1:
L%=By%
Z(L%)<>7
Z(L%)<>8):
XJ%<>7
XJ%<>8
L%<By%
/L%-=1:
:L%+=1:
L%=By%
Z(L%)<>3
Z(L%)<>4)
C$<>""
C$,3):C$=
C$,4)
Z$(0),3))+1,3):Z$(0)=V$+
Z$(0),4)
:QJ%=(L%-1)*3+1:X$=
X$,QJ%-1)+V$+
X$,QJ%):Z$(
(V$))=A$:By%+=1:Z$(
G(Ry%))=
G(Ry%)),
G(Ry%)))+3-
(X$))+X$:
a:S$=Z$(
G(Ry%)):Z%=
S$,"|"):ZJ%=
S$,1,Z%-1)):S$=
S$,Z%+1):Yy%=
S$,2)):Uy%=
S$,3,2)):S$=
S$,6):Z%=
S$,"|"):v$=
S$,1,Z%-1):S$=
S$,Z%+1):X$=S$:By%=
(X$)/3:
s:f%=0:
By%:C%=
Z(Z%):
C%=gy%
C%=by%
~f%+=1:Z%(f%)=
P(Z%)+U%:M%(f%)=
C(Z%)+H%:S%(f%)=Z%(f%)+
D(Z%):F%(f%)=M%(f%)+
V(Z%):A%(f%)=Z%:
Z%(f%)>S%(f%)
Z%(f%),S%(f%)
M%(f%)>F%(f%)
M%(f%),F%(f%)
Dy(`J%):A_%=A%(`J%):
Z(A_%)=by%
Z(A_%)=gy%
M(A_%))):
a:`%=Yy%:Sy%=Uy%:
N(G$,P$,B$):
B$<>"MagTex"
M("This is not a magtext file"):
P$<>""
z(P_%,W_%,ry%,_y%):
(ry%)<2
(_y%)<4
I(by%,P_%,W_%,0,0,ry%,_y%,P$):
z(P_%,W_%,ry%,_y%):
(ry%)<2
(_y%)<4
fGJ%=
_+1:r$="Menu "+
(GJ%)+" name":
B(r$,55):o$=
(Ry%)+"|"+
A(Yy%,2)+
A(Uy%,2)+"|"+r$+"|":
C$<>""
C$,3):C$=
C$,4)
Z$(0),3))+1,3):Z$(0)=V$+
Z$(0),4)
:Z$(0)=Z$(0)+V$:Z$(
(V$))=o$:
I(gy%,P_%,W_%,`%,Sy%,ry%,_y%,
(GJ%)):
pJ%):
X%,r%,q%:
q%<>0:T_%=X%-U%:C_%=r%-H%:X%=-1:r%=-1:
X%>=0
T_%+U%,C_%+H%,X%-T_%-U%,r%-C_%-H%
X%,r%,q%:
T_%+U%,C_%+H%,X%-T_%-U%,r%-C_%-H%:
S,F,M:
X%<>S
r%<>F
S,F,M:
M=0:kJ%=X%-U%-T_%:pJ%=r%-H%-C_%:
V(ZJ%):
x:x%=
(F$+".freemenus"):
#x%,C$:
#x%:x%=
(F$+".newmenus"):
#x%,Z$(0):
Z$(0),3)):
#x%,Z$(Z%):
By:q%=0:
B(W$,p%):Fy%=
(W$)*16:Jy%=32:
0,`%:
q%=0:
i%,k%,Oy%:
46,16+256,Q%,"temp",0,i%-Fy%,k%-Jy%-4,i%+Fy%,k%+Jy%+4:
i%-Fy%,k%+Jy%:
Vy%,Hy%,q%:
Hy%<>i%
k%<>Vy%
q%<>0:
46,290,Q%,"temp",i%-Fy%,k%-Jy%-4:
46,25+256,Q%,"temp"
VM$="":
:WJ%=i%-Fy%-U%:AJ%=k%+Jy%-H%:
I(sy%,WJ%,AJ%,`%,Sy%,
(W$)*16,-32,W$):
Xy:A%=
G(Ry%)),"|")+1:
G(Ry%)),A%,4)=
A(Yy%,2)+
A(Uy%,2):
f(Xy%):
F$(Xy%)=""
R(Gy%,F$(Xy%),Ky%,Ty%):
X%,r%,q%:j%=X%-Ky%/2:m%=r%-Ty%/2:F_%=X%+(Ky%/2)+2:Q_%=r%+(Ty%/2)+4:
46,16+256,Q%,"temp",0,j%,m%,F_%,Q_%:
D(Gy%,F$(Xy%),j%,m%):
Hy%,Vy%,B_%:
Hy%<>X%
Vy%<>r%
B_%<>q%
q%<>0:
46,290,Q%,"temp",j%,m%:
q%<>0
46,25+256,Q%,"temp":
I(jy%,j%-U%,m%-H%,0,0,Ky%,Ty%,F$(Xy%))
J(zJ%,NJ%):
zJ%>=0A$="+"+
A(zJ%,NJ%-1)
A$="-"+
(zJ%),NJ%-1)
A(W,NJ%):=
"00000000000000000000000000000000000000000000000000000000"+
(W)),NJ%)
G(fJ%):
fJ%>(
(Z$(0))/3)-1O_%=0
Z$(0),3+(fJ%-1)*3+1,3))
F(qy%):=
X$,((qy%-1)*3)+1,3))
Z(qy%):=
F(qy%)),1))
P(qy%):=
F(qy%)),2,5))
C(qy%):=
F(qy%)),7,5))
I(qy%):=
F(qy%)),12,2))
T(qy%):=
F(qy%)),14,2))
D(qy%):=
F(qy%)),16,5))
V(qy%):=
F(qy%)),21,5))
M(qy%):=
F(qy%)),26)
(Z$(0))-3)/3
Jy:Y_%=
:M%=0:Ay%=
Z%(A%),M%(A%),S%(A%)-Z%(A%),F%(A%)-M%(A%):
Z%,C%,R%:
50,30);"X:";Z%,
60,30);"Y:";C%,:
R%<>0:
Z%<Py%
Z%>U%
C%<s%
C%>H%
Z%<G%(3)
Z%>W%(3)
C%<P%(3)
C%>B%(3)
Ny:dy%=M%:
:M%+=1:
M%>v%M%=0
Z%>Z%(M%)
Z%<S%(M%)
C%>M%(M%)
C%<F%(M%)
M%=dy%:
Z_:v%=0:Z%()=0:M%()=0:S%()=0:F%()=0:A%()=0:
By%:v%+=1:Z%(v%)=
P(Z%)+U%:M%(v%)=
C(Z%)+H%:S%(v%)=Z%(v%)+
D(Z%):F%(v%)=M%(v%)+
V(Z%):A%(v%)=Z%:
Z%(v%)>S%(v%)
Z%(v%),S%(v%)
M%(v%)>F%(v%)
M%(v%),F%(v%)
dy%<>0
Z%(dy%),M%(dy%),S%(dy%)-Z%(dy%),F%(dy%)-M%(dy%):
M%<>0
Z%(M%),M%(M%),S%(M%)-Z%(M%),F%(M%)-M%(M%):
M%<>0
5:Z_%=
610,10,615,196:
24,610;10;1225;206;:
614,200:
M%;") ":
Z(A%(M%))
"Comment"
"Menu"
"Article"
"Banner"
M(A%(M%)):
_(2,N_%,Cy%):
w:Ay%=
M("You must select an object first")
M("You must select an object first")
M("You must select an object first")
M("You must select an object first")
M("You must select an object first")
1:Y_%=
Z(A%(M%))
by%,gy%:
z(P_%,W_%,ry%,_y%):
(ry%)<2
(_y%)<4
Z(A%(M%)),P_%,W_%,
I(A%(M%)),
T(A%(M%)),ry%,_y%,
M(A%(M%)),A%(M%)):Ay%=
uy:Ay%=
Vy:Ay%=
uy:q%=0:W$=
M(A%(M%)):Fy%=
(W$)*16:Jy%=32:
I(A%(M%)):
q%=0:
i%,k%,Oy%:
46,16+256,Q%,"temp",0,i%-Fy%,k%-Jy%-4,i%+Fy%,k%+Jy%+4:
i%-Fy%,k%+Jy%:
Vy%,Hy%,q%:
Hy%<>i%
k%<>Vy%
q%<>0:
46,290,Q%,"temp",i%-Fy%,k%-Jy%-4
46,25+256,Q%,"temp":M$="":
:WJ%=i%-Fy%-U%:AJ%=k%+Jy%-H%:
W(sy%,WJ%,AJ%,
I(A%(M%)),
T(A%(M%)),
(W$)*16,-32,W$,A%(M%)):
Vy:Ky%=
D(A%(M%)):Ty%=
V(A%(M%)):c$=
M(A%(M%)):
X%,r%,q%:j%=X%-Ky%/2:m%=r%-Ty%/2:F_%=X%+(Ky%/2)+2:Q_%=r%+(Ty%/2)+4:
46,16+256,Q%,"temp",0,j%,m%,F_%,Q_%:
D(Gy%,c$,j%,m%):
Hy%,Vy%,B_%:
Hy%<>X%
Vy%<>r%
B_%<>q%
q%<>0
46,290,Q%,"temp",j%,m%:
q%<>0:
46,25+256,Q%,"temp":
W(jy%,j%-U%,m%-H%,0,0,Ky%,Ty%,c$,A%(M%)):
p:xJ%=Yy%:UJ%=Uy%:
Z(A%(M%))=sy%
L(xJ%,UJ%):
Z(A%(M%)),
P(A%(M%)),
C(A%(M%)),xJ%,UJ%,
D(A%(M%)),
V(A%(M%)),
M(A%(M%)),A%(M%)):Ay%=
Z(A%(M%))
sy%:W$=
M(A%(M%)):
B(W$,p%):
W(sy%,
P(A%(M%)),
C(A%(M%)),
I(A%(M%)),
T(A%(M%)),
(W$)*16,-32,W$,A%(M%)):Ay%=
N(G$,P$,B$):
B$<>"MagTex"
M("This is not a magtext file")
W(by%,
P(A%(M%)),
C(A%(M%)),0,0,
D(A%(M%)),
V(A%(M%)),P$,A%(M%)):Ay%=
f(Xy%):
F$(Xy%)=""
R(Gy%,F$(Xy%),Ky%,Ty%):
W(jy%,
P(A%(M%)),
C(A%(M%)),0,0,Ky%,Ty%,F$(Xy%),A%(M%)):Ay%=
Z(A%(M%))=gy%
:b$="":
X$,((A%-1)*3)+1,3))<>
F(A%(M%))
X$,((A%-1)*3)+1,3)
F(A%(M%)))="":C$+=
F(A%(M%)),3):Z$(
G(Ry%))=
(ZJ%)+"|"+
A(Yy%,2)+
A(Uy%,2)+"|"+v$+"|"+b$:Ay%=
Wy:rJ%=
M(A%(M%))):v_%=
G(rJ%):K$=Z$(v_%):
K$,"|")<>0:K$=
K$,2):
:q_%=
(K$)/3:
q_%>0
q_%:`_%=
K$,((A%-1)*3)+1,3)):
Z$(`_%),1))=gy%CJ%=
M("This menu has submenus. Delete these first"):
A+C$+=K$:C$+=
A(v_%,3):Z$(v_%)="":
q_%>0
q_%:`_%=
K$,((A%-1)*3)+1,3)):Z$(`_%)="":
ky:L%=
Z(A%(M%)):
L%=sy%
L%=gy%
L%=by%
L%=jy%
EubJ%=A-U%-(
D(A%(M%))/2):
W(L%,bJ%,
C(A%(M%)),
I(A%(M%)),
T(A%(M%)),
D(A%(M%)),
V(A%(M%)),
M(A%(M%)),A%(M%)):Ay%=
W(nJ%,iJ%,eJ%,`%,Sy%,dJ%,cJ%,y$,Pu%):Z$(
F(Pu%))=
A(nJ%,1)+
J(iJ%,5)+
J(eJ%,5)+
A(`%,2)+
A(Sy%,2)+
J(dJ%,5)+
J(cJ%,5)+y$:
6,112,2:
6,112,1:
46,16+256,Q%,"temp",0,U%,H%,Py%,s%:
46,290,Q%,"temp",U%,H%:
46,25+256,Q%,"temp":
Iy(O_%,i$):
&400ed,256,O_%,i$,,,,,X_%:
46,280,O_%,i$
,,m_%:
m_%!32=44
M	JJ%=0
YJ%=0
2048-8
8:vJ%!(YJ%>>1)=m_%!(YJ%+44):
:JJ%=vJ%
255:X_%?b%=b%:
m_%!32=44+2048
264004,JJ%!(b%<<2)
X_%?b%:
&40740,12,JJ%,-1,-1,X_%
:LJ%=-1:
X_%?b%<>b%LJ%=X_%
D(d_%,z$,Z%,C%):
46,296,d_%,z$
,,,R_%,s_%,,w_%:
w_%=12
46,290,d_%,z$,Z%,C%,8:
Iy(d_%,z$):
46,308,d_%,z$,Z%,C%,8,,LJ%:
R(d_%,z$,
46,296,d_%,z$
,,,Z%,C%,,w_%:
53,w_%,11
,,ay%:
53,w_%,12
,,ty%:Z%=Z%*1280/(ay%+1):C%=C%*1024/(ty%+1):