*--- Setup Time range dedate = date cperi = "Year1 " nplay = .03 rtype = "ALL " CLEAR @10,10 SAY "Period ending (Ex. 06/30/1999) " GET dedate @12,10 SAY "Period (S, YTD, Year1...Year9) " GET cperi @14,10 SAY "Tolerance " GET nplay @16,10 SAY "Report Type (ALL,CMRS,ATTRIB) " GET rtype READTia