**TI86** Program file dated 06/23/04, 19:57 ×ÇZPRIMEXDÇÅDisp "GET X' SR"ÖLbl A1ÖrandInt(bot,top-1)b1ÖIf mod(b1,2)==0ÖGoto A1ÖIf mod(b1,5)==0ÖGoto A1ÖIf mod(b1,3)==0ÖGoto A1Ö(int b1)+2c1Ö7iÖLbl B1ÖIf mod(b1,i)==0ÖGoto A1Öi+2iÖIf i