!MEditate Read-only v. 3.31 (c) A.J.Bennett N.Davies 7/2/94
A=3.31:v%=A%:
*playstart
	Cy%=
:*FX200,1
R:Iy%=Z%:
&406c2:
Z("wimppalette "+Z$+".!Magpal"):
6,113,1:
46,290,T%,"menuscreen",0,0:
Qy%,Sy%,e%:
e%<>0:
:*playpause
:Cy%=
:*playstart
R:M%=
("<MagEdit$Dir>.magsystem.MagData"):M$=
#M%:Fy%=
#M%):M$=
#M%:a%=
#M%):M$=
#M%:ey%=
#M%):M$=
#M%:ay%=
#M%):M$=
#M%:Dy%=
#M%):M$=
#M%:X$=
#M%:M$=
#M%:U%=
#M%):M$=
#M%:h%=
#M%):M$=
#M%:X%=
#M%):M$=
#M%:O%=
#M%):M$=
#M%):
S%(y%),A%(y%),M%(y%),Z%(y%):
y%:M$=
#M%:S%(P%)=
#M%):M%(P%)=
#M%):A%(P%)=
#M%):Z%(P%)=
#M%):
*key 1 <253>
((O%-X%)/32)-1:C_%=
((h%-U%)/16):
S$(w%*Fy%),Z$(w%*Fy%):Wy%=1:W%=0:
A$(a%),F%(a%*0.8),C%(a%*0.8),P%(a%*0.8),J%(a%*0.8):
W%(a%*0.8):L$="":iy%=0:Uy%=1:wy%=2:py%=4:U_%=5:T_%=7:L_%=8:u%=7:j%=0:S$="":
f%255,vy%1023:
M$(Fy%):
K_%255,A_%255,F$(30)
C$="":
T%ey%:
sy%ay%:
Q%Dy%:!T%=ey%:!sy%=ay%:!Q%=Dy%:Q%!4=0:Q%!8=16:Q%!12=16:g%=0:Yy%=0:d%=
:B$="<MagEdit$Dir>.magsystem":M=(h%+U%)/2:M%=
(B$+".bannerfile"):g%=
8,255,B$+".bannerfile",T%+4:
C$(g%)
C$(9)
t(T%,g%):
g%:C$(P%)=F$(P%):
:Ly%=256:
n%Ly%:!n%=Ly%:
8,255,B$+".!pointer",n%+4:
46,36+256,n%,"ptr_hand",2,0,0,0,0:
e:K%=
8,5,"<MagEdit$Dir>.articles.check"
:N$="<MagEdit$Dir>.articles.text":Z$="<MagEdit$Dir>.articles.palettes":J$="<MagEdit$Dir>.articles.sprites"
8,5,"<MagEdit$Dir>.^.articles.check"
:N$="<MagEdit$Dir>.^.articles.text":Z$="<MagEdit$Dir>.^.articles.palettes":J$="<MagEdit$Dir>.^.articles.sprites"
11,16)"Please Insert a MAGAZINE DISK into drive 0 and press a key":S=
:*MOUNT 0
8,5,"$.articles.check"
 NK%=
:N$="$.articles.text":Z$="$.articles.palettes":J$="$.articles.sprites"
Z(Z$+"."+X$):
&406c2:
Z("wimppalette "+Z$+".!Magpal"):
Z(Y$):
(Y$):
23,253,0,0,0,0,0,0,0,0:
23,254,0,0,0,0,0,0,0,0:
S%,C%,q%:
q%<>0
Qy%,Sy%,e%:
e%=0:
F(G_%,H_%,q%):
&40743,(G_%<<8)+(H_%<<16)+(q%<<24):
S%<h%
S%>U%
C%<O%
C%>X%
S%<A%(1)
S%>S%(1)
C%<Z%(1)
C%>M%(1)
S%<A%(3)
S%>S%(3)
C%<Z%(3)
C%>M%(3)
S%<A%(4)
S%>S%(4)
C%<Z%(4)
C%>M%(4)
S%<A%(5)
S%>S%(5)
C%<Z%(5)
C%>M%(5)
A:Gy%=0:
S%>F%(P%)
S%<P%(P%)
C%>C%(P%)
C%<J%(P%)
Gy%=P%
Gy%<>0
T(Gy%):
W(1):
w("Are You Sure That You Want To Quit? (Y/N)",H$):
H$="yes"
Z("wimppalette "+Z$+".!Palette"):
46,36+256,n%,"ptr_hand",2,0,0,0,0:*FX25,0
*playpause
&400e3,Iy%:
24,U%;X%;h%;O%;:
17:*FX25
&406c2:
"  Error Number ";
;" at line ";
:*FX25
&406c2:
&406c0:W_%=
:M$()="PAA":M%=
(N$+"."+
M(p%)):
#M%,A:
o("This is file is incompatible with this version of the Editor"):
#M%,G$,C$,m%,S$:
#M%,M$(P%):
#M%,S$(P%):
#M%,Z$(0):
#M%,Z$(P%):
Z$(P%)=""
Z$(P%)=Z$(P%-1)
C$<>""
Z("wimppalette "+Z$+"."+C$)
S$<>""
Z(Z$+"."+S$)
G$<>""
G9M%=
(J$+"."+G$):Yy%=
8,255,J$+"."+G$,sy%+4
&406c1:
X(o%):=
Z$(o%),3,1))
V(o%):=
Z$(o%),4,1))
T(o%):=
Z$(o%),5)
L(o%):=
Z$(o%),1))
R(o%):=
Z$(o%),2,1))
Z(K$):=
(K$)-
("A")
H(Jy%):=
M$(Jy%),1))
U(Jy%):=
M$(Jy%),2,1))
P(Jy%):=
M$(Jy%),3,1))
N(Jy%):=
M$(Jy%),4)
V:z%=
((m%-1)/w%):
(m%-1)/w%<>z%
z%+=1
V:N%=1:
Q(N%):Ky%=
S%,C%,jy%:
jy%<>0
O:S$()="":Z$()="":
S$<>""
Z(Z$+".Large"):S$=""
C$<>""
Z(Z$+".!magpal")
M$()="PAA":Yy%=0:N%=0:
Q(c%):
46,290,T%,"menuscreen",0,0:d%=
C:l%=
H(c%):q%=
U(c%):
q%<>l%
0,128+q%:
P(c%)>0
N(c%))
_AL%=(c%-1)*w%+1:
Y%=O%-16
O%-32*w%
q:L%=L%+1:
q:By%=U%+8+(
L(L%))*16:xy%=
R(L%)*16:j%=
V(L%):u%=
X(L%):I$=
T(L%):
j%<>q%
By%-8,Y%-31,xy%+8,31
u%<>l%
I$="C"
By%+xy%/2-(
(S$(L%))-1)*8,Y%
By%+4,Y%
;S$(L%):
k(F$):
P(c%):P$=
F$,"|")-1):F$=
F$,"|")+1):
U(sy%,
P$,11),U%+
P$,5)),X%+
P$,6,5))):
S%<A%(2)
S%>S%(2)
C%<Z%(2)
C%>M%(2)
S%<A%(1)
S%>S%(1)
C%<Z%(1)
C%>M%(1)
S%<A%(3)
S%>S%(3)
C%<Z%(3)
C%>M%(3)
S%<A%(5)
S%>S%(5)
C%<Z%(5)
C%>M%(5)
A:Ky%=
:N%=0:
A:N%=N%+1:
N%>z%
N%=z%:
Q(N%):
A:N%=N%-1:
N%=1:
Q(N%):
o(A$):s%=
(A$)*16+16:
s%<19*16+16
s%=19*16+16
_%=96:b%=(1280-s%)/2:R%=(1024-_%)/2:
46,16+256,Q%,"temp",0,b%,R%,b%+s%,R%+_%:
F(0,25,120):
b%,R%,s%,_%:
F(255,255,255):
b%,R%,s%,_%:
(1280-
(A$)*16)/2,R%+_%/6*5:
(1280-19*16)/2,R%+_%/2:
;"<Click to Continue>":
Qy%,Sy%,e%:
e%<>0:
46,290,Q%,"temp",b%,R%:
46,25+256,Q%,"temp":
w(A$,
V$):`%=
(A$)*16+16:r%=64:t%=(1280-`%)/2:x%=(1024-r%)/2:
46,16+256,Q%,"temp",0,t%,x%,t%+`%,x%+r%:
F(0,25,120):
t%,x%,`%,r%:
F(255,255,255):
t%,x%,`%,r%:
(1280-
(A$)*16)/2,x%+r%/4*3:
;`y%:G%=`y%
V$="yes"
V$="no"
46,290,Q%,"temp",t%,x%:
46,25+256,Q%,"temp":
t(I_%,D_%):F$()="":
D_%:F$(I%)="":
46,269,I_%,A_%,12,I%
,,,Z:
Z-1:F$(I%)+=
(A_%?J%):
8,5,Z$+".freemenus"
y&M%=
(Z$+".freemenus"):L$=
:L$=""
8,5,Z$+".newmenus"
|IM%=
(Z$+".newmenus"):A$(0)=
A$(0),3)):A$(S%)=
W(B_%):Wy%=B_%:X_%=
A$(0),Wy%*3+1,3)):
46,290,T%,"menuscreen",0,0:d%=
0,128+Ay%:
0,zy%:
Xy%:Vy%=
S(k%):
Vy%=iy%
l(k%)
Vy%=py%
f(k%)
l(S%):
5:Q$=
M(S%):
Ay%<>
J(S%)
J(S%):
F(S%)-6,X%+
C(S%)+2,
(Q$)*16+12,-34
I(S%):
F(S%),X%+
C(S%):
f(Oy%):
U(T%,
M(Oy%),
F(Oy%)+U%,
C(Oy%)+X%):
L:A$=A$(
W(Wy%)):S%=
A$,"|"):ny%=
A$,1,S%-1)):A$=
A$,S%+1):zy%=
A$,2)):Ay%=
A$,3,2)):A$=
A$,6):S%=
A$,"|"):O$=
A$,1,S%-1):A$=
A$,S%+1):D$=A$:Xy%=
(D$)/3:u%=zy%:j%=Ay%:
My:W%=0:
Xy%:C%=
S(S%):
C%=Uy%
C%=wy%
~W%+=1:F%(W%)=
F(S%)+U%:C%(W%)=
C(S%)+X%:P%(W%)=F%(W%)+
Q(S%):J%(W%)=C%(W%)+
G(S%):W%(W%)=S%:
F%(W%)>P%(W%)
F%(W%),P%(W%)
C%(W%)>J%(W%)
C%(W%),J%(W%)
T(P_%):p%=W%(P_%):
S(p%)=wy%
S(p%)=Uy%:
M(p%))):
W(ny%):
W(yy%):
yy%>(
(A$(0))/3)-1i%=0
A$(0),3+(yy%-1)*3+1,3))
A(H%):=
D$,((H%-1)*3)+1,3))
S(H%):=
A(H%)),1))
F(H%):=
A(H%)),2,5))
C(H%):=
A(H%)),7,5))
I(H%):=
A(H%)),12,2))
J(H%):=
A(H%)),14,2))
Q(H%):=
A(H%)),16,5))
G(H%):=
A(H%)),21,5))
M(H%):=
A(H%)),26)
6,112,2:
6,112,1:
46,16+256,Q%,"temp",0,U%,X%,h%,O%:
46,290,Q%,"temp",U%,X%:
46,25+256,Q%,"temp":
K(i%,T$):
&400ed,256,i%,T$,,,,,f%:
46,280,i%,T$
,,Ny%:
Ny%!32=44
	Zy%=0
Ty%=0
2048-8
8:vy%!(Ty%>>1)=Ny%!(Ty%+44):
:Zy%=vy%
255:f%?V%=V%:
Ny%!32=44+2048
264004,Zy%!(V%<<2)
f%?V%:
&40740,12,Zy%,-1,-1,f%
:Hy%=-1:
f%?V%<>V%Hy%=f%
U(My%,W$,S%,C%):
46,296,My%,W$
,,,Qy%,Sy%,,uy%:
uy%=12
46,290,My%,W$,S%,C%,8:
K(My%,W$):
46,308,My%,W$,S%,C%,8,,Hy%:
F%1000:
Z_%28+24*2:
qy%4:$qy%="TASK":
&400c0,200,!qy%,"MEditate :Read-Only"
N_%,ty%:
ky%3000:
8,255,"<MagEdit$Dir>.!Sprites",ky%+4:R_%=
B("!iconbar"):
j("<MagEdit$Dir>.Templates"):Z_%=
D:_y%=
B(U$):!F%=-1:F%!4=0:F%!8=0:F%!12=68:F%!16=68:F%!20=8450:
F%!24 (
U$+1):$(F%!24)=U$:F%!28=ky%:F%!32=(
U$+1):
&400c2,,F%
oy%:=oy%
Ay:S_%=&9fdb3:
&400c7,S_%,F%
&400c5,,F%
&400c6,,F%
17,18:
F%!16=0
j(R$):
my%3064:Ry%=512:
by%Ry%:
&400d9,,R$:
&400db,,my%,by%,by%+Ry%,-1,"Info",0:
&400c1,,my%
&400da:
B%28+24*2:hy%=B%:$B%="MEditate":B%?12=7:B%?13=14:B%?14=7:B%?15=0:B%!16=13*16:B%!20=44:B%!24=0:B%+=28:B%!0=2:B%!4=M_%:B%!8=&7000021:$(B%+12)="Info"+
0:B%+=24:B%!0=128:B%!4=-1:B%!8=&7000021:$(B%+12)="Quit"+
0:=hy%
Y:ly%=F%!0:V_%=F%!4:fy%=F%!8:Py%=F%!12:F_%=F%!16:
Py%=-2
&400d4,,Z_%,ly%-11*8,208
d:dy%=F%!0:Q_%=F%!4:J_%=F%!5:
&400cf,,F%:cy%=F%!8:
cy%=1
*rmkill trackermodule
*rmkill memalloc
&400dd,ty%,!qy%:
z:Iy%=
:*screensize 160
e%,ry%:
ry%<160000
I("Message From MEditate","Can't get enough screen memory"):
Z(Z$+"."+X$):
Z("wimppalette "+Z$+".!Magpal"):
46,36+256,n%,"ptr_hand",2,0,0,0,0:
6,113,1:
46,290,T%,"menuscreen",0,0:
*playstart
I(_$,A$):$(F%+4)=A$+
0:!F%=1:
&400df,F%,17,_$: