home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib02.dsk / ROUNDOFF!.bas < prev    next >
BASIC Source File  |  2023-02-26  |  533b  |  22 lines
  1. 10  INPUT "TRIAL NUMBER ";T
  2. 20  INPUT "NO. DECIMAL PLACES ";NDEC
  3. 30  GOSUB 9000
  4. 40  PRINT T
  5. 50  END 
  6. 60  REM  ************************
  7. 70  REM    END OF TRIAL MAINLINE
  8. 80  REM  ************************
  9. 8990  REM  ROUND TO NDEC PLACES
  10. 9000 T = T +5 *10 ^( -NDEC -1)
  11. 9010  REM  CONVERT TO STRING
  12. 9020 T$ =  STR$(T)
  13. 9030  REM  LOCATE DECIMAL POINT
  14. 9040  FOR I = 1 TO  LEN(T$)
  15. 9050  IF  MID$ (T$,I,1) < >"."  THEN 9070
  16. 9060  GOTO 9090
  17. 9070  NEXT I
  18. 9080  RETURN 
  19. 9090 LTH = I +NDEC
  20. 9100 T$ =  LEFT$(T$,LTH)
  21. 9110 T =  VAL(T$)
  22. 9120  RETURN