' Get Pie
  FLOAT   FP(6)=ACOS(SQR(3)/2)*6
  FLOAT   FP(6)=(FP(6)-3)*10
  PRINT   "PIE=3." FP(10000,6)
' Get Napier
 a=1
  FLOAT   FP(2)=1
  FOR   i=1 TO 100
 a=a*i
   FLOAT   FP(2)=FP(2)+1/a
  NEXT  
  FLOAT   FP(2)=(FP(2)-2)*10
  PRINT   "Napier=2." FP(10000,2)
'
  PRINT   "Second order equation X*X+4*X+3"
 a=1 :  b=4 :  c=3
  FLOAT   FP(0)=(SQR(b*b-(4*a*c))-b)/2/a
  FLOAT   FP(1)=(SQR(b*b-(4*a*c))*-1-b)/2/a
  PRINT   FP(10000,0) FP(10000,1)
'