;[ The EzyCom Scripting Crew ]
;[ File LightBar 04/11/96    ]
;[ Pass these Parameters in  ]
;[ EzyMenu: /NOWRITE /NOLOG  ]
;[ Menu Option 12            ]
;[ Written by MiNDFLUX       ]
Capitalize FIRSTLETTER
GOSUB SCANFYES

:SCANFYES
ClearScreen
Display"||"
ChangeColor 3 0
Display"Scan for New Files? "
ChangeColor 15 1
Display" YES "
Changecolor 8 0
Display" no "
ChangeColor 0 0
GETCHOICE YNC 1 Y
if 1 = "Y"
   MENUCMND 74
   MENUCMND 37
   MENUCMND 1 FILE1 /F=2
quit
else
   GOSUB SCANFNO
endif
return SCANFYES

:SCANFNO
clearScreen
Display"||"
ChangeColor 3 0
Display"Scan for New Files? "
ChangeColor 8 0
Display" yes "
Changecolor 15 1
Display" NO "
ChangeColor 0 0
GETCHOICE YND 2 N
   if 2 = "N"
   MENUCMND 1 FILE1 
quit
else
   GOSUB SCANFYES
endif
return SCANFNO
