; load or initialise a screen into S
   USEPATH Events()
   If Len(\_File)>0
      ; Load image
      ILBMInfo \_File
      w.w=ILBMWidth
      h.w=ILBMHeight
      d.w=ILBMDepth
      Id.l=ILBMViewMode
      Free Window S : Free Screen S : Free BitMap S : Free GadgetList S
      BitMap S,w,h,d
      Screen S,0,800,w,h,d,Id,"",1,2,S
      HideScreen S
      ; Now Open Window onto Screen
      Window S,0,0,w,h,$0900,"",1,2
      LoadScreen S,\_File,S
      Use Palette S
      OK.b=True
      MoveScreen S,0,-800
   Else
      OK.b=False
   EndIf