home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 16 / 16.iso / t / t200 / 1.img / BORDERS2.BAS next >
Encoding:
BASIC Source File  |  1993-11-13  |  1.6 KB  |  83 lines
  1. DECLARE SUB SetBorder (ColrByte%)
  2. 'Borders.bas from oct/nov 93 inside microsoft basic
  3. REM '$INCLUDE: 'qb.bi'
  4.  
  5. TYPE RegType
  6.      ax    AS INTEGER
  7.      bx    AS INTEGER
  8.      cx    AS INTEGER
  9.      dx    AS INTEGER
  10.      bp    AS INTEGER
  11.      si    AS INTEGER
  12.      di    AS INTEGER
  13.      flags AS INTEGER
  14. END TYPE
  15.  
  16. DEFINT A-Z
  17. BeginAgain:
  18. COLOR 15, 1
  19. CLS
  20. COLOR 12, 0
  21. Text2$ = "Set a BORDER Color by Typing the Color Number"
  22. LOCATE 2, (80 - LEN(Text2$)) / 2
  23. PRINT Text2$
  24.  
  25.  
  26. FOR j = 0 TO 3
  27.     LOCATE 10 + j, 8
  28.     FOR i = 0 TO 15
  29.     COLOR i, 0
  30.     PRINT STRING$(4, 219);
  31.     NEXT
  32. NEXT
  33. 'hard to get the numbers to line up because of the space in front
  34. 'of each number, but got it
  35. COLOR 15, 1
  36. LOCATE 10 + j + 1, 7
  37. FOR n = 0 TO 15
  38.     IF n > 9 THEN
  39.         s = 1
  40.     ELSE
  41.         s = 2
  42.     END IF
  43. PRINT SPACE$(s); STR$(n);
  44. NEXT
  45.        
  46. Again:
  47. Text$ = "Type the BORDER Color NUMBER & Press {Enter}"
  48. LOCATE 4, (80 - LEN(Text$)) / 2
  49. COLOR 15, 1
  50. PRINT Text$;
  51. row = CSRLIN
  52. col = POS(0)
  53. COLOR 11, 0
  54. Text2$ = "After Selecting a Color Press <Esc> to end or {Enter} to try again"
  55. LOCATE 22, (80 - LEN(Text2$)) / 2
  56. PRINT Text2$;
  57. LOCATE row + 2, 39
  58. COLOR 7, 0
  59. PRINT SPACE$(2)
  60. LOCATE row + 2, 39, 1, 4, 7
  61. INPUT "", ColrByte%
  62. IF ColrByte% > 63 THEN
  63. GOTO BeginAgain               'I get 63 colors
  64. END IF
  65. LOCATE , , 0
  66. CALL SetBorder(ColrByte%)
  67. WHILE INKEY$ <> ""            'clears the keyboard 
  68. WEND
  69. DO
  70. Kee$ = INKEY$
  71. LOOP UNTIL LEN(Kee$)
  72. IF Kee$ = CHR$(27) THEN END
  73. GOTO Again
  74. END
  75.  
  76. SUB SetBorder (ColrByte%) STATIC
  77. DIM Regs AS RegType
  78. Regs.ax = &H1001
  79. Regs.bx = ColrByte% * &H100
  80. CALL INTERRUPT(&H10, Regs)
  81. END SUB
  82.  
  83.