home *** CD-ROM | disk | FTP | other *** search
/ ARM Club 3 / TheARMClub_PDCD3.iso / programs / misc / tmeter / !T-Meter / !Help / !RunImage (.txt) < prev   
RISC OS BBC BASIC V Source  |  1995-06-13  |  688b  |  37 lines
  1.  Help 3.0 (13-Jun-95), Carlos Michael Santill
  2. n, Public Domain
  3. E%256:Z$="<Help$Dir>.^.Resources.":S$="LanguagesPref":M$="LanguagesSuff":E$=
  4. A(S$):
  5. E$=""
  6. 6,70,127
  7. 48,,67,2,M%,E%,256
  8. ,,,,,A%:E$="":
  9. A%-1:E$+=
  10. (E%?N%):
  11. E(E$)=0
  12. A(M$):
  13. E$=""
  14. E$="UK":
  15. E(E$)=0
  16. PE%!0=999:$(E%+4)="Can not find '"+Z$+E$+".Help'"+
  17. &400df,E%,1,"Help":
  18. ("Filer_Run"+Z$+E$+".Help"):
  19. E(A$):A%=
  20. (Z$+A$+".Help"):
  21. #A%:=A%
  22. A(F$):A$="":
  23. &20023,F$,E%,256,0,3
  24. ,,Z%;S%:
  25. )N%=0:F%=0:
  26. (N%<Z%)
  27. (F%=0):
  28. E%?N%=44
  29. E(A$)<>0
  30. :A$=""
  31. (A$)<10
  32. (E%?N%)
  33. :N%+=1:
  34. A$<>""
  35. E(A$)=0
  36. A$=""
  37.