home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 15 / CD_ASCQ_15_070894.iso / vrac / dnalib7a.zip / PERCENT.BAS < prev    next >
BASIC Source File  |  1994-05-14  |  1KB  |  38 lines
  1. SUB Percentage(Percent%,Row%,Col%,Attr%,TextAttr%)PUBLIC
  2.  
  3. $CODE SEG "DNASEG2"
  4.  
  5. FGround% = 15 AND Attr%
  6. BGround% = 255 AND (Attr% - FGround%) / 16
  7.  
  8. TextFG% = 15 AND TextAttr%
  9. TextBG% = 255 AND (TextAttr% - TextFG%) / 16
  10.  
  11. IF SCREEN(Row%,Col%) <> 48 THEN  'check and see if back drop is there
  12.   LOCATE Row%,Col%,0:COLOR TextFG%,TextBG%
  13.   PRINT "0        20        40        60        80      100";
  14.   LOCATE Row% + 1,Col%,0:COLOR FGround%,BGround%:PRINT STRING$(50,32);
  15. ELSE
  16.   IF ISFALSE Percent% THEN  'repaint the screen if 0
  17.     LOCATE Row%,Col%,0:COLOR TextFG%,TextBG%
  18.     PRINT "0        20        40        60        80      100";
  19.     LOCATE Row% + 1,Col%,0:COLOR FGround%,BGround%:PRINT STRING$(50,32);
  20.   END IF
  21. END IF
  22.  
  23. COLOR FGround%,BGround%
  24.  
  25. FOR i% = 1 TO Percent%
  26.   IF (i% AND 1) = 1 THEN
  27.     IF SCREEN(Row% + 1,(i% \ 2) + Col%) <> 219 THEN
  28.       LOCATE Row% + 1,(i% \ 2) + Col%,0:PRINT CHR$(221);
  29.     END IF
  30.   ELSE
  31.     IF SCREEN(Row% + 1,(i% \ 2) + (Col% - 1)) <> 219 THEN
  32.       LOCATE Row% + 1,(i% \ 2) + (Col% - 1),0:PRINT CHR$(219);
  33.     END IF
  34.   END IF
  35. NEXT i%
  36.  
  37. END SUB
  38.