m1="REDÿstatementÿonÿHP8500"
		m2="Black/WhiteÿonÿLocal"
		x=popuplist(8,33,13,m1&m2,"",1,0)
		if ptstr=m1
			PrintSWIPRED()
			messbox(" Enter RED statement in Comments file? (y/n) ",1,1,1)
		    	if ptstr == "y"
				EnterComment()
				vloadif(dpath|"statmnt2.vw")
		     end if
		else
			PrintSWIP()
          end if