home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / utl / arith.ba next >
Text File  |  2006-10-19  |  889b  |  17 lines
  1. 0 'ARITH.BA - Author unknown
  2. 1 'CLUB 100 Library - 415/939-1246 BBS,    937-5039 NEWSLETTER, 932-8856 VOICE
  3. 2 O1 = 1.0:H1 = 0.5:Z0 = 0.0:M1 = -1.0:W1 = O1
  4. 3 W1 = W1 + W1:X = W1 + O1:Y = X - W1:Z = Y - O1:IF (M1 + ABS(Z)) < Z0 THEN 3
  5. 4 Y = O1
  6. 5 R1 = W1 + Y:Y = Y + Y:R1 = R1 - W1:IF R1 = Z0 THEN 5
  7. 6 PRINT "Radix = ";R1:P1 = Z0:F1 = O1
  8. 7 P1 = P1 + O1:F1 = F1 * R1:Y = F1 + O1:IF (Y - F1) = O1 THEN 7
  9. 8 PRINT "Precision = ";P1:PRINT "FpWidth = ";F1:U1 = O1/F1:PRINT "Closest relative separation found is UlpOne = ";U1:N1 = (H1 - U1) + H1:U2 = R1 * U1:R2 = R1 - O1:R2 = (R2 - U2) + O1:X = O1 - U1:Y = O1 - N1:Z = O1 - X:S = R1 - U2:T = R1 - R2
  10. 9 U = R1 - S:IF Y = U1 AND Z = U1 THEN 11
  11. 10 GOTO 14
  12. 11 IF T = U2 AND U = U2 THEN 13
  13. 12 GOTO 14
  14. 13 PRINT "Add/subtract has a guard digit as it should.":GOTO 15
  15. 14 PRINT "Add/subtract lack guard digit, cancellation obscured."
  16. 15 END
  17.