home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib28b.dsk / FORMAT.DEMO.bas < prev    next >
BASIC Source File  |  2023-02-26  |  1KB  |  29 lines
  1. 10  REM  ********************************
  2. 20  REM  * FORMAT.DEMO                  *
  3. 30  REM  * BY FRANK SWEET               *
  4. 40  REM  * AND JOHN FRANCIS             *
  5. 50  REM  * COPYRIGHT 1986 BY            *
  6. 60  REM  * MICROSPARC, INC.             *
  7. 70  REM  * CONCORD, MA  01742           *
  8. 80  REM  ********************************
  9. 90  REM 
  10. 100  REM  A SHORT DEMONSTRATION OF A ROUTINE
  11. 110 :
  12. 120  REM  WHICH LINES UP DECIMAL POINTS
  13. 130 :
  14. 140  HOME : POKE 34,0:VT = 5
  15. 150  VTAB 2
  16. 160  INPUT "ENTER A NUMBER WITH OR WITHOUT DECIMAL  POINT (NEGATIVE TO END) ";N$: VTAB 3: HTAB 24: PRINT "                              ": REM 30 SPACES
  17. 170  IF  LEN(N$) >22  THEN  PRINT  CHR$(7);: GOTO 150:
  18. 180 N =  VAL(N$): IF N <0  THEN  TEXT : HOME : END 
  19. 190  IF N >99999999  THEN  PRINT  CHR$(7);: GOTO 150: REM 8 9'S
  20. 200  IF N >0  AND  LEFT$(N$,1) = "0"  THEN N$ =  RIGHT$(N$, LEN(N$) -1): GOTO 200
  21. 210  REM    CLIPS LEADING ZEROES
  22. 220 :
  23. 230  REM 
  24. 240  REM   ALLOWS FOR ZERO
  25. 250  IF N >1.5  THEN N =  INT(N -.5)
  26. 260 L =  LOG(N)/ LOG(10): IF VT = 5  THEN  HOME 
  27. 270  HTAB 20 -(N > = 1) *( INT(L) +1): VTAB VT: PRINT N$
  28. 280 VT = VT +1: IF VT >22  THEN VT = 5
  29. 290  GOTO 150