home *** CD-ROM | disk | FTP | other *** search
/ ARM Club 1 / ARM_CLUB_CD.iso / contents / apps / program / u / wimpextend / FNtemplate (.txt) next >
Encoding:
RISC OS BBC BASIC V Source  |  1993-03-15  |  1.0 KB  |  59 lines
  1.  >FNtemplate
  2.  Template-including function
  3.  (c) Jon Ribbens of DoggySoft, 1993
  4.  Note - assumes pass counter is called 'p'
  5. sin(F%)
  6.  a$,c%
  7.   a$=""
  8.   c%=
  9.  c%>31 
  10. a$<12
  11.     a$+=
  12.     c%=
  13. win(F%)
  14.   a%=
  15.   a%=a% 
  16. #F%<<8)
  17.   a%=a% 
  18. #F%<<16)
  19.   a%=a% 
  20. #F%<<24)
  21. template(template$,tempfile$)
  22.  F%,a%,p%,l%,fo%,i%
  23.   F%=
  24. (tempfile$)
  25.  F%=0 
  26.  0,"Templates file '"+tempfile$+"' not found"
  27.   a%=0
  28.   fo%=
  29. #F%=16+a%*24
  30.     p%=
  31. win(F%)
  32.     l%=
  33. win(F%)
  34.       
  35. #F%=16+a%*24+12
  36. &       
  37. sin(F%)=template$ 
  38.         fo%=
  39. (;        
  40.  "Adding template '";template$;"'"
  41.         
  42. #F%=p%
  43.         
  44.  i%=1 
  45.           [OPT p
  46.             EQUB    
  47.           ]
  48.         
  49.         [OPT p
  50.           
  51. align
  52.         ]
  53.       
  54. 3        
  55.   a%+=1
  56.  p%=0
  57.  fo%=
  58.  0,"Template '"+template$+"' not found"
  59.