home *** CD-ROM | disk | FTP | other *** search
/ Archive Magazine 1996 / ARCHIVE_96.iso / _archive / archive (.txt) < prev    next >
RISC OS BBC BASIC V Source  |  1996-08-28  |  5KB  |  226 lines
  1.  --> Archive CD intro
  2.  This program and all documentation 
  3.  David Holden 1996
  4. A_$="0.02":
  5. D_(E_%)
  6. 262343,F_%,G_%
  7. 262341,,G_%
  8. 262342,,G_%
  9. 262364,G_%!24
  10. 17,18:
  11. G_%!16=0
  12. 262351,,G_%+&C0:M_%=G_%!&C8:N_%=G_%:
  13. G_%!4=-1
  14. D_(E_%)
  15. 2:O_%=
  16. P_(Q_%,R_%):S_%=Q_%
  17. 3:O_%=
  18. P_(T_%,U_%)
  19. 4:O_%=
  20. P_(V_%,W_%)
  21. 5:O_%=
  22. P_(X_%,Y_%)
  23. 6:O_%=
  24. P_(Z_%,a_%)
  25. M_%=1
  26. 262356,,b_%,c_%,d_%
  27. e_%,f_%:
  28. 262351,,G_%+&C0:M_%=G_%!&C8:N_%=G_%!&C4:f_%=G_%!12:e_%=G_%!16:
  29. e_%=g_%
  30. D_(E_%)
  31. 2:c_%=G_%!&C0-120:d_%=464:
  32. 262356,,b_%,c_%,d_%
  33. h_%:O_%=
  34. P_(Q_%,R_%):S_%=Q_%
  35. i_%:O_%=
  36. P_(T_%,U_%)
  37. j_%:O_%=
  38. P_(V_%,W_%)
  39. k_%:O_%=
  40. P_(Z_%,a_%)
  41. l_%:O_%=
  42. P_(X_%,Y_%)
  43. e_%=n_%
  44. Q_%:S_%=o_%:O_%=
  45. P_(o_%,p_%)
  46. o_%:S_%=q_%:O_%=
  47. P_(q_%,r_%)
  48. q_%:S_%=Q_%:O_%=
  49. P_(Q_%,R_%)
  50. D_(w%):!s_%=w%:
  51. 262347,,s_%:s_%!20=0:s_%!24=0:s_%!28=-1:
  52. 262341,,s_%:
  53. P_(p%,n%):
  54. n%-1:
  55. t_(m_%,c%,$p%):p%=
  56. u_(p%):
  57. c%<=v_%:
  58. t_(m_%,c%,""):c%+=1:
  59. t_(m_%,n_%,
  60. w_(1))
  61. t_(m_%,n_%,"")
  62. D_(m_%):
  63. u_(p%):
  64. ?p%>13:p%+=1:
  65. :=p%+1
  66. x_(w%,i%,v%):!s_%=w%:s_%!4=i%:
  67. 262350,,s_%:s_%!8=0:s_%!12=0:$(s_%!28)=
  68. (v%):
  69. 262349,,s_%:
  70. t_(w%,i%,s$):!s_%=w%:s_%!4=i%:
  71. 262350,,s_%:s_%!8=0:s_%!12=0:$(s_%!28)=s$:
  72. 262349,,s_%:
  73. y_(w%,i%):!s_%=w%:s_%!4=i%:
  74. 262350,,s_%:I%=(s_%!28):
  75. ?I%>31:I%+=1:
  76. :?I%=13:=$(s_%!28)
  77. z_(w%,i%):!s_%=w%:s_%!4=i%:
  78. 262350,,s_%:I%=(s_%!28):
  79. ?I%>31:I%+=1:
  80. :?I%=13:=
  81. ($(s_%!28))
  82. __(w%,i%):!s_%=w%:s_%!4=i%:
  83. 262350,,s_%:
  84. 262354,w%,i%,,,-1,
  85. $(s_%!28):
  86. `_(w%,i%):!s_%=w%:s_%!4=i%:
  87. 262350,,s_%:
  88. (s_%!24
  89. 1<<21):=
  90. A`(m%,i%):
  91. (!(m%+28+(24*i%)))
  92. 1=1:=
  93. B`(C`%):
  94. 262380,D`%+C`%,-1
  95. e%<(D`%+C`%):=
  96. F`,G`,H`,I`,m%:G`=1:F`=2:I`=4:H`=&80:
  97. J`%&100:m%=J`%:b_%=
  98. K`(m%,"Archive CD",240):m%=
  99. L`("Info",F`,M`%):m%=
  100. L`("Introduction",0,0):m%=
  101. L`("What's on it",0,0):m%=
  102. L`("Copyright",0,0):m%=
  103. L`("Archive",0,0)
  104. L`("Why a CD?",0,0):m%=
  105. L`("Subscribing",F`,0):m%=
  106. L`("Quit",H`,0):
  107. K` (a%,N`$,O`%):$a%=N`$:a%!12=&70207:a%!16=O`%:a%!20=40:a%!24=0:m%=a%+28:=a%
  108. L` (P`$,Q`%,R`%):!m%=Q`%:m%!4=R`%:m%!8=&7000001:$(m%+12)=P`$:=m%+24
  109. S` (T`$,U`%,T`%):!m%=U`%:m%!4=0:m%!8=&7000101:m%!12=T`%:m%!16=-1:m%!20=127:
  110. T`$<>"?" $T`%=T`$
  111. =m%+24
  112. V` (m%,i%):!(m%+36+(24*i%))=!(m%+36+(24*i%))
  113. 1<<22:
  114. W` (m%,i%):!(m%+36+(24*i%))=!(m%+36+(24*i%))
  115. (1<<22):
  116. X` (Y`$,Z`%):!G_%=Z`%:G_%!4=-8:G_%!8=0:G_%!12=56:G_%!16=96:G_%!20=&2002:$(G_%+24)="!"+Y`$:
  117. 262338,,G_%
  118. I%:=I%
  119. C_(a`$,b`%):
  120. 263874:F_%=&C31:!s_%=
  121. :$(s_%+4)="Error "+
  122. )+": "+a`$++
  123. 262367,s_%,1,c`%:
  124. 262365,d`%,&4B534154:
  125. e`(f`%,a$):s_%!&80=0:$(s_%+&84)=a$+
  126. 262367,s_%+&80,16
  127. f`%,c`%
  128. ,f`%:=f`%
  129. w_(g`%):
  130. p%:p%=h`%:
  131. g`%>0:
  132. :p%+=1:
  133. ?p%<32:p%+=1:g`%-=1:
  134. :=$p%
  135. i`(p%):
  136. ?p%>32:p%+=1:
  137. ?p%<33:p%+=1:
  138. ($p%)
  139. p%,c%:p%=k`%:
  140. l`%-1:
  141. t_(E_%,c%,$p%):p%=
  142. u_(p%):
  143. 8,17,n`$+".text"
  144. F%,,,,L%:
  145. 1)<>1
  146. 0,"Text file not found - unable to continue":
  147. o`% L%+4:E%=o`%+L%:
  148. 8,16,n`$+".text",o`%,0:?E%=13:k`%=0:Q_%=0:T_%=0:V_%=0:o_%=0:q_%=0:Z_%=0:X_=0:l`%=0:R_%=0:U_%=0:W_%=0:p_%=0:r_%=0:a_%=0:Y_=0:
  149. I%=o`%
  150. ?I%=10 ?I%=13
  151. :I%=o`%:
  152. I%<E%:
  153. $I%,4)
  154. "MAIN":l`%=
  155. i`(I%):I%=
  156. u_(I%):k`%=I%
  157. "ABOU":W_%=
  158. i`(I%):I%=
  159. u_(I%):V_%=I%
  160. "WHAT":R_%=
  161. i`(I%):I%=
  162. u_(I%):Q_%=I%
  163. "COPY":U_%=
  164. i`(I%):I%=
  165. u_(I%):T_%=I%
  166. "MORE":p_%=
  167. i`(I%):I%=
  168. u_(I%):o_%=I%
  169. "EVEN":r_%=
  170. i`(I%):I%=
  171. u_(I%):q_%=I%
  172. "SUBS":a_%=
  173. i`(I%):I%=
  174. u_(I%):Z_%=I%
  175. "WHYC":Y_%=
  176. i`(I%):I%=
  177. u_(I%):X_%=I%
  178. u_(I%):
  179. 8,17,n`$+".messages"
  180. F%,,,,L%:
  181. 1)<>1
  182. 0,"Messages file not found - unable to continue":
  183. h`% L%+4:E%=h`%+L%:
  184. 8,16,n`$+".messages",h`%,0:?E%=13:q`%=0:I%=h`%:J%=I%:
  185. I%<E%:
  186. ?I%=10
  187. ?I%>31:I%+=1:
  188. :I%+=1
  189. :I%+=3:
  190. :?J%=?I%:I%+=1:J%+=1:
  191. ?I%<32:?J%=13:I%+=1:J%+=1:q`%+=1
  192. r` (s`%):
  193. T`% s`%,t`%&100:E%=T`%+s`%:
  194. 262361,,n`$+".templates":
  195. 262363,,u`%,T`%,E%,-1,"info",0
  196. ,,R%:
  197. 262337,,u`%
  198. 262363,,u`%,R%,E%,t`%,"main",0
  199. ,,R%:
  200. 262337,,u`%
  201. 262363,,u`%,R%,E%,t`%,"text",0
  202. 262337,,u`%
  203. 262362:
  204. t_(M`%,2,v`$):
  205. t_(M`%,3,w`$):
  206. t_(M`%,4,x`$):
  207. t_(M`%,8,"For Archive CD"):
  208. 262336,200,&4B534154,"Archive"
  209. y`%,d`%:
  210. y`%<300
  211. 0,"This program requires RISC-OS 3 or better":
  212. G_%&180,s_%&100,c`% 24:$c`%="Archive":D`%=
  213. -&8000:u`%=
  214. $+" During initialisation",
  215. 35,"Obey$Dir",G_%,256,0,3
  216. ,,I%:G_%?I%=13:n`$=$G_%:
  217. B`(&1000)=
  218. w_(0):
  219. r`(&1200):
  220. j`:g_%=
  221. X`("archive",-1):I%=
  222. B`(0):
  223. z`:v`$="Archive CD Intro":w`$="Version "+A_$:x`$="
  224.  David Holden 1996":F_%=%110000110001:h_%=17:i_%=18:j_%=19:k_%=20:l_%=21:v_%=28:O_%=
  225. :n_%=29:
  226.