home *** CD-ROM | disk | FTP | other *** search
/ RISC DISC 2 / RISC_DISC_2.iso / pd_share / dtp / thumbnail / !Executor / countobj (.txt) < prev    next >
Encoding:
RISC OS BBC BASIC V Source  |  1994-07-25  |  464 b   |  19 lines
  1.  Reads the BASIC parameter pathname and returns the number of objects in a Filer window in the system variable KS$Line.
  2. len%=2048
  3.  buffer len%
  4.  "OS_GetEnv" 
  5.  add%
  6. loop%=0:text$=""
  7. C%=?(add%+loop%)
  8. text$=text$+
  9. loop%+=1
  10.  C%=0
  11. text$,""" ")+2
  12. text$=
  13. text$,P%)
  14. (text$)
  15.  "XOS_GBPB",10,text$,buffer,999,0,len%,0 
  16.  ,,,number%
  17. ("SETEVAL KS$line "+
  18. (number%))
  19.