Prgm1:MENU

:ClrHome
:Disp "   NUCLEAR"
:Disp "  CALCULATOR"
:Disp "--------------"
:Disp "BY  DEREK LYNCH"
:Disp "--------------"
:Disp "COPYRIGHT(C)"
:Disp "PROTECTED"
:Pause
:ClrHome
:Disp "PROGRAM?"
:Disp ""
:Disp "1)NUKRAD"
:Disp "2)BOMBLAST"
:Disp "3)THERMAL"
:Disp "4)EXIT"
:Input A
:If A=1
:Prgm2
:If A=2
:Prgm3
:If A=3
:Prgm4
:If A=4
:Goto 1
:Lbl 1
:ClrHome
:Disp "THANK YOU FOR"
:Disp "USING LYNCH"
:Disp "TECHNOLOGIES"
:Pause
:ClrHome
:Stop



Prgm2:NUKRAD

:ClrHome
:Disp "NUKE RAD"
:Disp ""
:Disp "BY"
:Disp "DEREK LYNCH"
:Pause
:Lbl 1
:ClrHome
:Disp "K=KILOTONS"
:Disp "W=WEEKS"
:Disp "R=RADIATION"
:Disp ""
:Disp "INPUT DATA"
:Disp "K,W"
:Input K
:Input W
:K^0.19*700->R
:Disp "RADIATION FROM"
:Disp "INITIAL BLAST"
:Disp R
:Pause
:R/(W)^0.26->T
:Disp "RADIATION LEVEL"
:Disp "AFTER (X)WEEKS"
:Disp "FROM BLAST"
:Disp T
:Pause
:0->T
ClrHome
:Disp "CONTINUE?"
:Disp "1)YES"
:Disp "2)NO"
:Disp "3)MENU"
:Input A
:If A=1
:Goto 1
:If A=2
:Goto 2
:If A=3
:Prgm1
:Lbl 2
:ClrHome
:Stop



Prgm3:BOMBLAST
:ClrHome
:Disp "BOMBLAST"
:Disp ""
:Disp "By"
:Disp "DEREK LYNCH"
:Pause
Lbl 1
:ClrHome
:Disp "RANGE IN (KM)"
:Disp "K=KILOTON YEILD"
:Disp "P=PRESSURE"
:Disp "1,3,5,10,20 FOR PSI"
:Disp "INPUT"
:Disp "K,P"
:Input K
:Input P
:If P=1
:2.2->S
:If P=3
:1->S
:If P=5
:0.71->S
:If P=10
:0.45->S
:If P=20
:0.28->S
:K^0.33*S->P
:Disp "RANGE IN KM"
:Disp "FROM BLAST"
:Disp P
:P*0.62->P
:Disp "IN MILES"
:Disp P
:Pause
:Lbl 3
:0->P
:0->S
:0->K
ClrHome
:Lbl 4
:Disp "CONTINUE?"
:Disp "1)YES"
:Disp "2)NO"
:Disp "3)MENU"
:Input D
:If D=1
:Goto 1
:ClrHome
:Lbl 5
:If D=2
:Goto 6
:If D=3
:Prgm1
:Lbl 6
:ClrHome
:Stop



Prgm4:THERMAL

:ClrHome
:Disp "THERMAL"
:Disp ""
:Disp "By"
:Disp "DEREK LYNCH"
:Pause
:Lbl 1
:Disp "K=KILOTONS"
:Disp "D=DEGREE"
:Disp "OF BURN"
:Disp "K,D"
:Disp "1)1ST"
:Disp "2)2ND"
:Disp "3)3RD"
:Input K
:Input D
:If D=1
:K^0.38*1.20->T
:If D=2
:K^0.40*0.87->T
:If D=3
:K^0.41*0.67->T
:Disp "THERMAL"
:Disp "RADIATION IS=TO"
:Disp "RADIUS IN(KM)"
:Disp "FROM BLAST"
:Disp T
:Pause
ClrHome
:Disp "CONTINUE?"
:Disp "1)YES"
:Disp "2)NO"
:Disp "3)MENU"
:Input B
:If B=1
:Goto 1
:If B=2
:Goto 2
:If B=3
:Prgm1
:Lbl 2
:ClrHome
:Stop