home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 24 / CD_ASCQ_24_0995.iso / vrac / homonlib.zip / BORDERLI.BAS < prev    next >
BASIC Source File  |  1995-04-13  |  1KB  |  42 lines
  1. DEFINT A-Z
  2.  
  3. ' $INCLUDE: 'PARM.INC'
  4.  
  5. DECLARE SUB BorderLines (parm())
  6.  
  7. SUB BorderLines (parm())
  8. '****************************************************************************
  9. 'Primarily called from other library functions, the BorderLines() SUB draws
  10. ' lines on the top and bottom of a pick screen, advising the user of the
  11. ' availability of (or lack of) more items that are not currently shown on the
  12. ' screen.
  13. '
  14. '    parm(1) = row of top line
  15. '    parm(2) = row of bottom line
  16. '    parm(3) = top element
  17. '    parm(4) = bottom element
  18. '    parm(5) = min element
  19. '    parm(6) = max element
  20. '
  21. 'See functions PickOne$() and PickSome$() for examples of use.
  22. '
  23. '****************************************************************************
  24.  
  25.                                         'Calculate if there's more stuff
  26. IF parm(3) > parm(5) THEN up = 1
  27. IF parm(4) < parm(6) THEN down = 1
  28. IF up = 1 THEN more$ = CHR$(24) ELSE more$ = "-"
  29. more$ = more$ + "More"
  30. IF down = 1 THEN more$ = more$ + CHR$(25) ELSE more$ = more$ + "-"
  31. IF up = 0 AND down = 0 THEN more$ = "Bottom"
  32.  
  33. COLOR parm(FGH)                         'Draw the lines
  34. LOCATE parm(1), 1
  35. PRINT STRING$(80, 196)
  36. LOCATE parm(2), 1
  37. PRINT STRING$(70, 196); "-"; more$; STRING$(3, 196);
  38. COLOR parm(FGN)
  39.  
  40. END SUB
  41.  
  42.