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

:SCANMYES
ClearScreen
Display"||"
ChangeColor 3 0
Display"Scan for New Messages? "
ChangeColor 15 1
Display" YES "
Changecolor 8 0
Display" no "
ChangeColor 0 0
GETCHOICE YNC 1 Y
if 1 = "Y"
   MENUCMND 74
   MENUCMND 29 /G=* /SK=Y
   MENUCMND 4 MSGALL
quit
else
   GOSUB SCANMNO
endif
return SCANMYES

:SCANMNO
ClearScreen
Display"||"
ChangeColor 3 0
Display"Scan for New Messages? "
ChangeColor 8 0
Display" yes "
Changecolor 15 1
Display" NO "
ChangeColor 0 0
GETCHOICE YND 2 N
if 2 = "N"
   MENUCMND 4 MSGALL  
quit
else
   GOSUB SCANMYES
endif
return SCANMNO

