Fission.80
Neal Wiley

->  Store Arrow
------------------------------------

CLRHOME
INPUT "ATOMIC MASS ", A
INPUT "ATOMIC NUMBER ", Z
Z^2/A -> W
ROUND(W,1) -> W
CLRHOME
DISP "CRITICAL ENERGY"
IF W<34.8
THEN
DISP "EXCEEDES 7.6 MeV"
GOTO 0
END
IF W=35.6
THEN
DISP "IS 7.0 MeV"
GOTO 0
END
IF W=34.9
THEN
DISP "IS 7.5 MeV"
GOTO 0
END
IF W=36.0
THEN
DISP "IS 6.5 MeV"
GOTO 0
END
IF W=36.3
THEN
DISP "IS 6.0 MeV"
GOTO 0
END
IF W=37.0
THEN
DISP "IS 5.0 MeV"
GOTO 0
END
IF W>44.8
THEN
CLRHOME
DISP "THIS ELEMENT ","WILL SPONTANEO-","USLY FISSION !"
GOTO 0
END
CLRHOME
DISP "THIS ISOTOPE IS ONE","NOT OFTEN USEFUL","REGARDING NUCLE-","AR REACTORS."
PAUSE
CLRHOME
DISP "HOWEVER, ITS ","Z^2/A RATIO IS:",W

LBL 0
 