写BOX sub 子程序的Qbasic源码，举例

A：以下是一个简单的BOX sub子程序的QBasic源代码：

DEFINT A-Z

SUB BOX (X1, Y1, X2, Y2, Color, Fill)
  ' Draw a box with the specified coordinates, color, and fill status
  LINE (X1, Y1)-(X2, Y2), Color, B
  IF Fill THEN
    FOR Y = Y1 + 1 TO Y2 - 1
      LINE (X1 + 1, Y)-(X2 - 1, Y), Color, B
    NEXT Y
  END IF
END SUB

' Example usage:
BOX (50, 50, 100, 100, 14, 1)
' Draws a filled box with the top-left corner at (50, 50) and bottom-right corner at (100, 100) using color 14 (yellow)

该子程序使用 `LINE` 命令来绘制框，并根据 `Fill` 参数决定是否填充整个框。其余的参数指定左上角和右下角的坐标值以及框的颜色。可以将此子程序放入您的QBasic程序中，以方便地重用。