**TI85** Program file dated 02/07/00, 13:08ƺHEUNº¸Disp "Initial Conditions"ÖPrompt X,YÖ(xMax-X)/SHÖDisp " "ÖDisp "Number of Steps"ÖPrompt SÖFor(J,1,S)ÖYUÖy1KÖX+HPÖU+H*KYÖy1LÖU+(H/2)(K+L)YÖLine(X,U,P,Y)ÖPXÖEndÖPause ÖINITCNDvC