home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 2 / DATAFILE_PDCD2.iso / utilities2 / meditate / MEditate / !MEditate / !Runimage (.txt) < prev    next >
RISC OS BBC BASIC V Source  |  1994-02-07  |  3KB  |  149 lines
  1.  !MEditate Configuration Program v2 (c)A.J.Bennett 1993
  2. J%,J%*16,J%*16,J%*16:
  3. Z$(5),A$(47),U%200000:!U%=200000:
  4. 15,10)"!MEditate Configuration":
  5. 15,11)"~~~~~~~~~~~~~~~~~~~~~~~":
  6. 12,13)"1) Create New Magazine Disc":
  7. 12,14)"2) Change Editor Variables":
  8. 12,15)"3) Editor"
  9. 12,16)"4) Quit":M$=
  10. M$>="1"
  11. M$<="4":
  12. M$="1"
  13. M$="2"
  14. M$="3"
  15. "<MagEdit$Dir>.Lunchtime":
  16. M$="4"
  17. 20,10)"Please Insert a Blank, Formatted Disc into drive 0 and press a key":A=
  18. :*MOUNT
  19. *CDIR Articles
  20. *DIR Articles
  21. *CDIR Text
  22. *CDIR Palettes
  23. *CDIR Sprites
  24. ("Check"):
  25. #B%:*DIR $
  26. 17:*FX25
  27. &406c2:
  28. "  Error Number ";
  29. ;" at line ";
  30. :*FX25
  31. &406c2:
  32. 15,10)"Edit Variables":
  33. 15,11)"~~~~~~~~~~~~~~":
  34. 12,13)"1) Change Memory Allocations":
  35. 12,14)"2) Change Default Font (";A$(12);")":
  36. 12,15)"3) Alter Icon Coordinates":
  37. 12,16)"4) Previous Menu Without Saving Changes"
  38. 12,17)"5) Previous Menu and Save":A$=
  39. A$>="1"
  40. A$<="5":
  41. A$="1"
  42. A$="2"
  43. A$="3"
  44. A$="4"
  45. A$="5":
  46. A$="5"
  47. (A$(6))+
  48. (A$(8))+
  49. (A$(10))+
  50. (A$(4))*255+
  51. (A$(2))*25*255+80000:
  52. 10,6);"Memory available to BASIC :";D%:
  53. 10,7);"Estimated memory useage :";L%:
  54. 5,5);"Remember that Wimpslot in the !Run file may need to be changed."
  55. 15,10)"Edit Memory Allocation":
  56. 15,11)"~~~~~~~~~~~~~~~~~~~~~~":
  57. 12,12)"1) Maximum Number of Pages (";A$(2);")":
  58. 12,13)"2) Menu Array Size (";A$(4);")":
  59. 12,14)"3) Banner Memory (";A$(6);")":
  60. 12,15)"4) Article Graphics Memory (";A$(8);")"
  61. 12,16)"5) Sprite Workspace (";A$(10);")":
  62. 12,17)"6) Previous Menu":Z$=
  63. Z$>="1"
  64. Z$<="6":
  65. Z$="1"
  66. 20,15)"Enter the Maximum Number of Pages ";P%
  67. Z$="2"
  68. 20,15)"Enter the Number of Elements in the menu array ";P%
  69. Z$>="3"
  70. Z$<="5"
  71. 20,15)"Enter the ammount of memory (in bytes) required";P%
  72. "1":A$(2)=
  73. "2":A$(4)=
  74. "3":A$(6)=
  75. "4":A$(8)=
  76. "5":A$(10)=
  77. Z$="6":
  78. 20,15);"Enter the name of the new default font  ";A$(12):
  79. 8,255,"<MagEdit$Dir>.magsystem.bannerfile",U%+4:
  80. 15,10)"Edit Icon Positions":
  81. 15,11)"~~~~~~~~~~~~~~~~~~~":
  82. 12,13)"1) Magazine Window":
  83. 12,14)"2) Previous Page/Menu Icon":
  84. 12,15)"3) Next Page Icon":
  85. 12,16)"4) Button Icon"
  86. 12,17)"5) Quit Icon":
  87. 12,18)"6) Shush Icon":
  88. 12,20)"7) Previous Menu":S$=
  89. S$>="1"
  90. S$<="7":
  91. S$<"7"
  92. "1":A$(14)=
  93. (Z%):A$(16)=
  94. (F%):A$(18)=
  95. (A%):A$(20)=
  96. "2":A$(24)=
  97. (Z%):A$(25)=
  98. (A%):A$(26)=
  99. (F%):A$(27)=
  100. "3":A$(29)=
  101. (Z%):A$(30)=
  102. (A%):A$(31)=
  103. (F%):A$(32)=
  104. "4":A$(34)=
  105. (Z%):A$(35)=
  106. (A%):A$(36)=
  107. (F%):A$(37)=
  108. "5":A$(39)=
  109. (Z%):A$(40)=
  110. (A%):A$(41)=
  111. (F%):A$(42)=
  112. "6":A$(44)=
  113. (Z%):A$(45)=
  114. (A%):A$(46)=
  115. (F%):A$(47)=
  116. S$="7":
  117. A:Z%=0:F%=0:A%=0:C%=0:
  118. 46,290,U%,"menuscreen",0,0:
  119. S%,M%,W%:
  120. S%,0,S%,1023:
  121. 0,M%,1279,M%:
  122. N%,G%,W%:
  123. N%<>S%
  124. G%<>M%
  125. W%<>0:
  126. S%,0,S%,1023:
  127. 0,M%,1279,M%:
  128. W%<>0:
  129. H%,V%,X%:
  130. X%=0:Z%=S%:A%=M%:
  131. S%,M%,W%:
  132. Z%,A%,S%-Z%,M%-A%
  133. N%,G%,W%:
  134. N%<>S%
  135. G%<>M%
  136. W%<>0:
  137. Z%,A%,S%-Z%,M%-A%:
  138. W%<>0:F%=S%:C%=M%:
  139. F%<Z%
  140. F%,Z%
  141. C%<A%
  142. C%,A%
  143. P:B%=
  144. ("<MagEdit$Dir>.magsystem.MagData"):
  145. 47:A$(J%)=
  146. Z:Q%=
  147. ("<MagEdit$Dir>.magsystem.MagData"):
  148. #Q%,A$(J%):
  149.