home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / basic / library / qb_pds / screen / hilite / hilidemo.bas next >
Encoding:
BASIC Source File  |  1993-09-18  |  467 b   |  22 lines
  1. DEFINT A-Z
  2.  
  3. DECLARE SUB HiLite (Row%, Col%, Length%, MaxRow%, DeAttr%, HiAttr%, RetCode%)
  4.  
  5. Start:
  6. CLS
  7.  
  8. LOCATE 5, 35: PRINT " One"
  9. LOCATE 6, 35: PRINT " Two"
  10. LOCATE 7, 35: PRINT " Three"
  11. LOCATE 8, 35: PRINT " Four"
  12. LOCATE 9, 35: PRINT " Five"
  13.  
  14. HiLite 5, 35, 6, 9, 7, 79, RetCode
  15. CLS
  16. PRINT "Return Code ="; RetCode
  17. LOCATE 5, 15: PRINT "[ Press Esc To Quit - Any Other Key To Continue ]"
  18. SLEEP
  19.   
  20.      IF INKEY$ = CHR$(27) THEN END ELSE GOTO Start
  21.  
  22.