**TI85** Program file dated 01/21/97, 17:53B›ç‚·Þ ÑSlpFeÑÏFnOff ÖClDrwÖDispGÖ3.5¾xHÖ5H/7H1Ö3.5¾yKÖ5K/7K1ÖK/HMTÖFor(x,xMin+H,xMax,2H)ÖFor(z,yMin+K,yMax,2K)ÖzyÖy1TÖIf abs TMT:ThenÖT*H1RÖLine(x-H1,z-R,x+H1,z+R)ÖElseÖK1/TRÖLine(x-R,z-K1,x+R,z+K1)ÖEndÖEndÖEndµL