0 Members and 1 Guest are viewing this topic.

Local A,B,C,D,L,U,HDisp" Form 1 or 2"Input YPrompt A,B,C,D,L,UIf Y=1nInt(AE-3+BE-5x+CE-8X^2+DE-12X^3,X,L,U) sto HIf y(does not equal to) 1nInt(AE-3+BE-5X+CE-8X^2,X,L,U) sto H:Disp "DELTA H",H

cpdt()PrgmDisp "Form 1 or 2"Input YPrompt APrompt BPrompt CPrompt DPrompt LPrompt U<????>Disp "DELTA H",HEndPrgm

I'll try when I have the time, hopefully in a few hours now.(It might be a bit sloppy, plus I haven't done 68k in a while) And I don't know if V200 code style is the same as on the 89.

FacebookandTwitterFollow @Codewalr_us