SCREEN 12
CLS
TYPE regtype
ax AS INTEGER
bx AS INTEGER
cx AS INTEGER
dx AS INTEGER
bp AS INTEGER
si AS INTEGER
di AS INTEGER
flag AS INTEGER
END TYPE
DIM inreg AS regtype, outreg AS regtype
inreg.ax = 1
CALL interrupt(&H33, inreg, outreg)
inreg.ax = 4: inreg.cx = 0: inreg.dx = 0
CALL interrupt(&H33, inreg, outreg)
DO UNTIL outreg.dx > 478 AND outreg.cx > 638
inreg.ax = 3
CALL interrupt(&H33, inreg, outreg)
LOCATE 1, 1
PRINT outreg.cx; outreg.dx; outreg.bx
IF outreg.bx = 1 THEN
LINE (outreg.cx, outreg.dx)-(outreg.cx + 5, outreg.dx + 5), 3, BF
END IF
LOOP
END
按住鼠标左键画点，鼠标移到屏幕右下角退出，启动QB时在QB快捷方式的命令行加参数“/L”