  1 .
  2 .
  3 .
  4 .FLOATING POINT MATH
  5 .W. TEMPLETON 4-27-80
  6 .
  9 NT=1;BC=248;FC=135
 10 clear ;print ;print ;for D=0to 53;@(D)=0;next D
 20 print "        1 = ADD
 30 print "        2 = SUBTRACT
 40 print "        3 = MULTIPLY
 50 print "        4 = DIVIDE
 60 print ;print 
 70 input "      1,2,3 OR 4?"M
 80 if M=1F="+";gosub 200;goto 300
 90 if M=2F="-";gosub 200;goto 310
100 if M=3F="mul ";gosub 200;goto 320
110 if M=4F="div ";gosub 200;goto 330
120 goto 70
200 clear 
210 print "        A",;TV=F;print "B = C
220 print "     FORMAT = XXX.XX
230 print "   USE LEADING ZEROES
240 print ;print "          A = ",
250 for A=10to 6step -1;if A=7print ".",
260 @(A)=KP;TV=@(A);next A
270 print ;print "          B = ",
280 for B=28to 24step -1;if B=25print ".",
290 @(B)=KP;TV=@(B);next B;print ;print ;return 
300 print "         SUM =",;$+@(0),@(18),@(36);goto 500
310 print "   DIFFERENCE =",;$-@(0),@(18),@(36);goto 500
320 print "      PRODUCT =",;$mul @(0),@(18),@(36);goto 500
330 print "     QUOTIENT =",;$div @(0),@(18),@(36)
500 Z=1;if @(53)="8"print "-",
510 for C=49to 42step -1;if C=43print ".",
515 if @(C)="0"if Zgoto 525
520 Z=0;TV=@(C)
525 next C;print ;print 
530 print "   GO AGAIN?  PRESS GO!
540 box -36,-32,62,10,3
550 A=KP;if A=13run 
560 goto 540