**TI92P*calculusRpascalý¥Z£() Prgm Local p,r,z ""p Dialog Title "Pascal's Triangle" Request "Row",r EndDlog if ok=0 goto prge expr(r)r For z,0,r p&string(nCr(r,z))&" "p EndFor Dialog Title "Pascal's Triangle" Text left(p,42) Text mid(p,43,40) Text mid(p,83,40) Text mid(p,123,40) Text mid(p,163,40) Text mid(p,203,40) Text mid(p,243,40) Text mid(p,283,40) Text mid(p,323,40) Text mid(p,363,40) EndDlog lbl prge EndPrgm äåÜz