mode 0
menu "Add-On Scripts"
label "Storage Status"
name "Storage Status"

######################################################################
##								    ##
##   Storage Status Information 				    ##
##								    ##
##   Public Domain by Ralf Brown, 08nov98			    ##
##								    ##
######################################################################

declare u:choice, medium, uTaken, uAvail
declare i:iRaw, status
declare s:sMedium

# Find out whether to check capture or preview
MenuLoop:
   SetOption (1, "Flash Card", 1)
   SetOption (2, "Internal Memory", 0)
   GetOption (choice)
   if choice == 0
      goto MenuLoop
   end
   if choice == 1
      sMedium = "Flash Card"
      medium = 1
   end
   if choice == 2
      sMedium = "Internal Memory"
      medium = 0
   end

   status = GetStorageStatus(medium, uTaken, uAvail, iRaw)

   DisplayClear()
   if status
      DisplayLine("no information available")
      goto Done
   end
   DisplayLine("Status of ",sMedium)
   DisplayLine(uTaken, " pictures stored")
   DisplayLine("Space for ~", uAvail, " more")
   if iRaw != -1
      DisplayLine(iRaw, " raw images can be stored")
   end

Done:
   Wait(4000)
   exitscript