**TI86** Program file dated 06/23/04, 19:56 † vSiDERfP1vtLbl TÖClLCDÖOutpt(1,1,"ENTER x value or var-iable (ie.Ä,x,x,etc")ÖDisp "":Disp ""ÖInpSt stÖInput "BEGIN VALUE? ",a1Öa1TblStartÖ"fnInt(sin x/x,x,a1,"+st+")"sxÖStEq(sx,Si)ÖDisp "SINE INTEGRAL SET Si"ÖOutpt(6,1,sx)ÖMenu(1,"CONT",T1,5,"QUIT",Q)ÖLbl T1ÖClLCDÖOutpt(1,1,"ENTER YOUR DERIVITIVEOF THE MODIFIED Si(")Öst+")"syÖOutpt(3,4,sy)ÖOutpt(3,9,"FUNCTION"Öy1=SiÖ4lf:ZLINFEEDÖInpSt "y4=",YÖStEq(Y,y4Öy3=nDer(y1,xÖFnOffÖFnOn 3,4ÖClLCDÖOutpt(1,1,"COMPUTING DERIVITIVESNUMERICALLY FOR COM- PARISON. IF THE TABLE"ÖOutpt(4,1,"VALUES OF y4 DON'T CLOSELY MATCH y3, THEN y4=")ÖOutpt(6,9,Y+" IS INCORRECT"ÖDispTÖLbl QÖZMAKÖRÈ