DEF PROCDealWith_SaveAs(event,object,component)
REM -----------------------------------------------
REM SaveAs protocol when user participates (no RAM transfer) 
REM ----------------------------------------------
CASE event OF
 WHEN SaveAs_AboutToBeShown
      REM This where to call PROCs (if necessary) such as
      REM PROCSaveAs_SetFileSize,PROCSaveAs_SetFileName
      REM PROCSaveAs_SetFileType and PROCSaveAs_SelectionAvailable
      
 WHEN SaveAs_SaveToFile")
      REM Save to filename
      
      PROCSaveAs_SaveToFileGetInfo(filename$,selection)
      
      REM <---- insert code here ---->
      
      PROCSaveAs_FileSaveCompleted(object,filename$)
      
 WHEN SaveAs_SaveCompleted
      REM Maybe mark document as 'unmodified'
 WHEN SaveAs_DialogueCompleted
      REM Do any tidying up here
ENDCASE
ENDPROC
