!MEditate Configuration Program v2 (c)A.J.Bennett 1993
J%,J%*16,J%*16,J%*16:
Z$(5),A$(47),U%200000:!U%=200000:
15,10)"!MEditate Configuration":
15,11)"~~~~~~~~~~~~~~~~~~~~~~~":
12,13)"1) Create New Magazine Disc":
12,14)"2) Change Editor Variables":
12,15)"3) Editor"
12,16)"4) Quit":M$=
M$>="1"
M$<="4":
M$="1"
M$="2"
M$="3"
"<MagEdit$Dir>.Lunchtime":
M$="4"
20,10)"Please Insert a Blank, Formatted Disc into drive 0 and press a key":A=
:*MOUNT
*CDIR Articles
*DIR Articles
*CDIR Text
*CDIR Palettes
*CDIR Sprites
("Check"):
#B%:*DIR $
17:*FX25
&406c2:
"  Error Number ";
;" at line ";
:*FX25
&406c2:
15,10)"Edit Variables":
15,11)"~~~~~~~~~~~~~~":
12,13)"1) Change Memory Allocations":
12,14)"2) Change Default Font (";A$(12);")":
12,15)"3) Alter Icon Coordinates":
12,16)"4) Previous Menu Without Saving Changes"
12,17)"5) Previous Menu and Save":A$=
A$>="1"
A$<="5":
A$="1"
A$="2"
A$="3"
A$="4"
A$="5":
A$="5"
(A$(6))+
(A$(8))+
(A$(10))+
(A$(4))*255+
(A$(2))*25*255+80000:
10,6);"Memory available to BASIC :";D%:
10,7);"Estimated memory useage :";L%:
5,5);"Remember that Wimpslot in the !Run file may need to be changed."
15,10)"Edit Memory Allocation":
15,11)"~~~~~~~~~~~~~~~~~~~~~~":
12,12)"1) Maximum Number of Pages (";A$(2);")":
12,13)"2) Menu Array Size (";A$(4);")":
12,14)"3) Banner Memory (";A$(6);")":
12,15)"4) Article Graphics Memory (";A$(8);")"
12,16)"5) Sprite Workspace (";A$(10);")":
12,17)"6) Previous Menu":Z$=
Z$>="1"
Z$<="6":
Z$="1"
20,15)"Enter the Maximum Number of Pages ";P%
Z$="2"
20,15)"Enter the Number of Elements in the menu array ";P%
Z$>="3"
Z$<="5"
20,15)"Enter the ammount of memory (in bytes) required";P%
"1":A$(2)=
"2":A$(4)=
"3":A$(6)=
"4":A$(8)=
"5":A$(10)=
Z$="6":
20,15);"Enter the name of the new default font  ";A$(12):
8,255,"<MagEdit$Dir>.magsystem.bannerfile",U%+4:
15,10)"Edit Icon Positions":
15,11)"~~~~~~~~~~~~~~~~~~~":
12,13)"1) Magazine Window":
12,14)"2) Previous Page/Menu Icon":
12,15)"3) Next Page Icon":
12,16)"4) Button Icon"
12,17)"5) Quit Icon":
12,18)"6) Shush Icon":
12,20)"7) Previous Menu":S$=
S$>="1"
S$<="7":
S$<"7"
"1":A$(14)=
(Z%):A$(16)=
(F%):A$(18)=
(A%):A$(20)=
"2":A$(24)=
(Z%):A$(25)=
(A%):A$(26)=
(F%):A$(27)=
"3":A$(29)=
(Z%):A$(30)=
(A%):A$(31)=
(F%):A$(32)=
"4":A$(34)=
(Z%):A$(35)=
(A%):A$(36)=
(F%):A$(37)=
"5":A$(39)=
(Z%):A$(40)=
(A%):A$(41)=
(F%):A$(42)=
"6":A$(44)=
(Z%):A$(45)=
(A%):A$(46)=
(F%):A$(47)=
S$="7":
A:Z%=0:F%=0:A%=0:C%=0:
46,290,U%,"menuscreen",0,0:
S%,M%,W%:
S%,0,S%,1023:
0,M%,1279,M%:
N%,G%,W%:
N%<>S%
G%<>M%
W%<>0:
S%,0,S%,1023:
0,M%,1279,M%:
W%<>0:
H%,V%,X%:
X%=0:Z%=S%:A%=M%:
S%,M%,W%:
Z%,A%,S%-Z%,M%-A%
N%,G%,W%:
N%<>S%
G%<>M%
W%<>0:
Z%,A%,S%-Z%,M%-A%:
W%<>0:F%=S%:C%=M%:
F%<Z%
F%,Z%
C%<A%
C%,A%
P:B%=
("<MagEdit$Dir>.magsystem.MagData"):
47:A$(J%)=
Z:Q%=
("<MagEdit$Dir>.magsystem.MagData"):
#Q%,A$(J%):