home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 2 / DATAFILE_PDCD2.iso / utilities2 / _msgcheck / !MsgCheck / !RunImage (.txt) < prev    next >
Encoding:
RISC OS BBC BASIC V Source  |  1993-08-27  |  3.7 KB  |  160 lines
  1.  >!RunImage
  2.  For !MsgCheck
  3.  NSW 15-7-93            
  4. $+" (internal error code "+
  5. +")"):
  6. Sg$="1.00 (20th July 1993)":
  7. $+" (internal error code "+
  8. +")")
  9. &400C7,,c%
  10. &400C5,,c%
  11. &400C6,,c%
  12. 17,18:
  13. &400DD:
  14. h:a$=
  15. a$,1)<>"#"
  16. a$,":")>0
  17. a$,":")-1):B%=w%:$a%=a$:C%=a%:
  18. J%:B%+=
  19. ($B%)+1:
  20. B%>=q%:
  21. B%>=q%
  22. $q%=a$:q%+=
  23. d(h%,r%):
  24. a$>45r%+=1:c$=""
  25. r%=10l%=
  26. a("dis")):
  27. c$<>""
  28. a$=c$+", "+a$
  29. b(h%,r%,a$)
  30. b(h%,3,(
  31. #d%*100))+"%"):
  32. #d%:p%=
  33. &400EC,z%,-1:
  34. 1:v%=
  35. c% 256,a% 256,A% 512,K% 30,g% 512,U% 1024,V% 512,Z% 1024,_% 512,w% 8192:p%=
  36. :aa%=
  37. :M%=0:D%=0:$K%="Error from Message Checker":
  38. &400C0,200,&4B534154,"Message Checker"
  39. e(-1,0,0,68,68,12298,"!msgcheck",0,0,0):d%=
  40. "<MsgCheck$Dir>.Sprites":
  41. d%=0l%=
  42. b("Who stole my sprites file??!!"):
  43. &400DD:
  44. #d%+16:
  45. i% s%:!i%=s%-1:i%!4=0:i%!8=16:i%!12=16:
  46. &2E,256+10,i%,"<MsgCheck$Dir>.Sprites":
  47. &400EC,32*2^10,-1
  48. &400D9,,"<MsgCheck$Dir>.Templates":E%=
  49. c(U%,V%,511,"info",i%):h%=
  50. c(Z%,_%,511,"main",i%):
  51. &400DA:
  52. b(E%,4,g$):
  53. g:$g%="MsgCheck":g%!12=459271:g%!16=16*11:g%!20=44:g%!24=0:
  54. d(g%+28,0,E%,&7091031,"Info"):
  55. d(g%+52,128,-1,&7091031,"Quit"):
  56. &400D4,,g%
  57. &400D4,,-1:
  58. i:x%=!c%:y%=c%!4:ca%=c%!8:k%=c%!12:e%=c%!16:
  59. n(x%,y%,k%=-2)
  60. o(h%)
  61. c%!16
  62. 0:v%=
  63. 3:da%=c%!40:
  64. da%<>4095
  65. 1qd$="":f%=c%+43:
  66. f%?1<>0:f%+=1:d$+=
  67. (d$):m%=
  68. &400EC,z%+m%,-1
  69. ea%=z%l%=
  70. a("nis"))
  71. b(h%,1,
  72. d$,80)):
  73. b(h%,3,"0%"):q%=w%:$w%="":r%=6:
  74. b(h%,e%,""):
  75. #c%!20,"Run "+
  76. f("MsgCheck$Dir")
  77. 1282:
  78. n(fa%,N%,ga%):
  79. N%=186
  80. &400D4,,g%,fa%-64,N%:
  81. l:d%=
  82. "<MsgCheck$Dir>.Messages":t%=0:
  83. #d%:t%+=1:
  84. a$(t%):
  85. #d%=0:
  86. t%:a$(f%)=
  87. d(j%,ha%,f%,n%,b$):j%!0=ha%:j%!4=f%:j%!8=n%:
  88. b$<12
  89. $(j%+12)=b$
  90. :ia%=O%:ja%=-1:P%=
  91. b$+1:n%=(n%
  92. -257)
  93. 256:j%!12=ia%:j%!16=ja%:j%!20=P%:$O%=l$:O%+=P%
  94. c(F%,e%,m%,e$,ka%):
  95. $+" whilst trying to load template '"+e$+"'"):
  96. &400DB,,F%,e%,e%+m%,-1,e$,0:F%!64=ka%:
  97. &400C1,,F%
  98. o%:=o%
  99. b(h$):M%=D%:D%=
  100. D%-M%<200
  101. Q%+=1
  102. &400DD:
  103. &400EF,0:A%!0=255:$(A%+4)=h$:
  104. &400DF,A%,18,K%
  105. ,la%:=la%
  106. d(G%,e%):!a%=G%:a%!4=e%:
  107. &400CE,,a%:=$(a%!28)
  108. e(k%,ma%,na%,oa%,pa%,n%,b$,R%,qa%,ra%):a%!0=k%:a%!4=ma%:a%!8=na%:a%!12=oa%:a%!16=pa%:a%!20=n%:
  109. :$(a%+24)=b$:
  110. :a%!24=R%:a%!28=qa%:a%!32=ra%
  111. &400C2,,a%
  112. o%:=o%
  113. o(o%):
  114. q:!a%=o%:
  115. &400CB,,a%:
  116. r:L%=
  117. a%!28=-1:
  118. &400C5,,a%:
  119. q:a%!0=4:a%!4=5:a%!8=11:a%!12=12:a%!16=-1:
  120. &31,a%,a%+20:sa%=1<<(a%!20):ta%=1<<(a%!24):ua%=(a%!28+1)*sa%:va%=(a%!32+1)*ta%:
  121. r:W%=a%!12-a%!4:H%=a%!16-a%!8:X%=(ua%-W%)/2:Y%=(va%-H%)/2:a%!4=X%:a%!8=Y%:a%!12=X%+W%:a%!16=Y%+H%:
  122. b(G%,e%,f$):!a%=G%:a%!4=e%:
  123. &400CE,,a%:
  124. $(a%!28)<>f$
  125. $(a%!28)=f$:a%!8=0:a%!12=0:
  126. &400CD,,a%
  127. f(i$):
  128. &23,i$,S%,255,0,3
  129. ,,b%:S%?b%=13:=$S%
  130. p:k%=c%!32:e%=c%!36:
  131. a("bar"))
  132. 4,6,7,8,9:
  133. a("dup"))
  134. a("src"))
  135. a("pct"))
  136. a("win"))
  137. a("min"))
  138. a("mqu"))
  139. a("ina"))
  140. a("ipu"))
  141. a("iau"))
  142. a("ive"))
  143. a("inf"))
  144. a(b$):s%=
  145. b$+1:c%!12=c%!8:c%!16=1283:$(c%+20)=b$+
  146. 0:!c%=(24+s%)
  147. &400E7,17,c%,c%!4:
  148. a(b$):
  149. t%:f%=
  150. a$(u%),":"):
  151. e0j$=
  152. a$(u%),f%-1):
  153. j$=b$
  154. a$(u%),
  155. a$(u%)-f%)
  156. m:d%=
  157. "<MsgCheck$Dir>.Code":m%=
  158. J% m%:
  159. &5,"Load <MsgCheck$Dir>.Code "+
  160.