; © 2000 Bengt Werstén and Jefa from Transmission Productions ; ;"->" is the STO>-button ; Prgm1:CARDANO :ClrHome :Disp "GIROLANO CARDANO" :Disp "" :Disp "EQUATION SOLVER" :Disp " BY" :Disp " BENGT AND JEFA" :Pause :ClrHome :Disp "X^3+PX=Q" :Disp "ENTER P" :Input P :Disp "ENTER Q" :Input Q :((P^3/27)+(Q¨274))->K :([*1]((Q/2)+[*2]K)+([*1]((Q/2)-[*2]K)))->X ;[*1]= MATH-4 [*2]= 2nd+Buttom 61 :Disp "X=" :Disp X