home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 5 / DATAFILE_PDCD5.iso / utilities / w / webite / !Webite / FastTemp (.txt) < prev    next >
Encoding:
RISC OS BBC BASIC V Source  |  1995-05-06  |  1.0 KB  |  34 lines
  1.  >FastTemp
  2.  FastTemp - setup FastTemp for Webite
  3.  (c) DoggySoft, 1995
  4. $;" at line ";
  5. exist("Termite$FastTemp") 
  6. exist("Wimp$ScrapDir") 
  7. -    *Set Termite$FastTemp <Wimp$ScrapDir>
  8.      
  9. exist("Webite$Dir") 
  10. 4      *Set Termite$FastTemp <Webite$Dir>.TempDir
  11.      
  12.       
  13. box("Warning","Termite$FastTemp is not set up. Foreign images in Webite (e.g. JPEG pictures) may not be displayed.")
  14.       
  15.         
  16. cantwrite:
  17.   A%=A%+1
  18. &  F%=
  19. ("<Termite$FastTemp>."+
  20.  F%<>0 
  21.  F%=0
  22. ("<Termite$FastTemp>."+
  23.  "XOS_File",6,"<Termite$FastTemp>."+
  24. exist(var$)
  25.  flags%
  26.  "XOS_ReadVarVal",var$,
  27. 255," "),255,0,0 
  28.  ;flags%
  29. =(flags%
  30. cantwrite
  31. box("Warning","Cannot write to <Termite$FastTemp>. Foreign images in Webite (e.g. JPEG pictures) may not be displayed.")
  32. box(t$, m$)
  33.  "Wimp_ReportError","Fish"+m$,17,t$
  34.