home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 3 / PDCD_3.iso / utilities / utilst / wt_070 / Documents / Examples / 1st_Look / 011_Names (.txt) < prev    next >
Encoding:
RISC OS BBC BASIC V Source  |  1995-04-02  |  2.1 KB  |  52 lines
  1.     Name: 011_Names
  2.  Subject: Full module names.
  3.   Author: GUS
  4. code%999
  5.  p%=4 
  6. O%=code%
  7. [opt p%
  8. J\_____________________________________________________________________
  9. .module_start%
  10. ?  equd (module_end%-module_start%) <<8 
  11.  module_header_end%
  12.   equs "WTmd"
  13.   equd module_help%
  14. .module_header_end%
  15. I\____________________________________________________________________
  16. .module_help%
  17. >  equs "1stL_Names"       ; module name, no spaces allowed
  18. 4  equb 9                  ; version separator(s)
  19. .  equs "0.01"             ; module version
  20. P  equs " ("               ; after module's version ends the module full name
  21.   equs 
  22. $,5,11)   ; date
  23.   equs ")"                ;
  24.  "  ;[ (optionally, module help)
  25. !B     equs " (c) Anonymous Computers Ltd."   ; copyright holder
  26. "I     equb 13                              ; marks the end string for:
  27. #?                                          ; *Help WTModules
  28. %J     ;[ (optionally, more help...)        ; the following is displayed
  29. &8                                          ; only on:
  30. 'C                                          ; *Help <module name>
  31. (?        equs "This module describes WT module's full name."
  32.         equb 13
  33. *?        equs "There is no limit how long can be this help."
  34.         equb 13
  35. ,N        equs "It is printed with SWI OS_PrettyPrint, using dictionary #0."
  36.         equb 13
  37. .)        equs "It is just an example!"
  38.      ;]
  39. 26  equb 0                  ; module help terminator
  40. ; result:
  41. ; *Help 1stL_Names
  42. 6$; ==> Help on keyword 1stL_Names
  43. 7R; WT module is; 1stL_Names     0.01 (06 Mar 1995) (c) Anonymous Computers Ltd.
  44. 82; This module describes WT module's full name.
  45. 92; There is no limit how long can be this help.
  46. :A; It is printed with SWI OS_PrettyPrint, using dictionary #0.
  47. ; It is just an example!
  48. .module_end%
  49. >I\____________________________________________________________________
  50.  Save the module as: 1srL_Names
  51. "OS_File",10,"WTExamples:1st_Look.1stL_Names",&b6f,,code%,O%
  52.