home *** CD-ROM | disk | FTP | other *** search
/ RISC DISC 2 / RISC_DISC_2.iso / pd_share / dtp / thumbnail / !Executor / CFSI-xy (.txt) < prev    next >
Encoding:
RISC OS BBC BASIC V Source  |  1994-07-25  |  582 b   |  20 lines
  1.  Reads the following BASIC parameter (which should be a Pointer$text variable) and extracts the X & Y information from the text to give you the image's width (X) and height (Y).
  2.  KS$LineX stores the X info. KSLineY stores the Y info.
  3.  "OS_GetEnv" 
  4.  add%
  5. loop%=0:text$=""
  6. C%=?(add%+loop%)
  7. text$=text$+
  8. loop%+=1
  9.  C%=0
  10. text$,""" ")+2
  11. text$=
  12. text$,P%)
  13. text$," by ")
  14. X%=0:Y%=0
  15.  P%>0 
  16. text$,P%-4,4))
  17. text$,P%+4,4))
  18. ("SET KS$LineX "+
  19. ("SET KS$LineY "+
  20.