FORTRAN

PROGRAM CUBIC

LOGICAL X
CHARACTER*89 J,ALPHA
LOGICAL J,ALPHA

I = SIN(Z)
Z = 89
Y = TAN(TAN(K))
Z = X*I
I = X
BETA = I
I = Z-(COS(BETA))

END