Pete

regarding window moving, i was wondering if this works on your computer Windows XP

you have to change tof ullscreen first in QBasic, ALT+ENTER
then move the window to the top left corner. it should be smooth pxp


DEFINT A-Z
DIM mb, mx, my
DIM a(6) AS LONG
a(0) = &H8BE58955
a(1) = &H33CD0C46
a(2) = &H890A768B
a(3) = &H8768B1C
a(4) = &H768B0C89
a(5) = &H5D148906
a(6) = &H8CA
DEF SEG = VARSEG(a(0))

SCREEN 0
CLS
CALL absolute(BYVAL 1, mb, mx, my, VARPTR(a(0)))

LOCATE 15, 50: COLOR 15, 1
PRINT " Windows XP" + SPACE$(10) + "_ [] X"
LOCATE , 50: COLOR 0, 7
PRINT SPACE$(27)
LOCATE , 50
PRINT SPACE$(27)
LOCATE , 50
PRINT " Windows encountered " + SPACE$(6)
LOCATE , 50
PRINT " and illegal operation" + SPACE$(5)
LOCATE , 50
PRINT " Drag me!!!" + SPACE$(16)
LOCATE , 50
PRINT SPACE$(27)
LOCATE , 50
PRINT SPACE$(27)
'OUT &H3D4, &H8
x = 0
y = 0
DO
CALL absolute(BYVAL 3, mb, mx, my, VARPTR(a(0)))

IF mb = 1 THEN
ox = mx + x
oy = my + y

DO
CALL absolute(BYVAL 3, mb, mx, my, VARPTR(a(0)))
x = ox - mx
y = oy - my

s = (y \ 15) * 80& + x \ 8
OUT &H3D4, &HC
OUT &H3D5, s \ 256
OUT &H3D4, &HD
OUT &H3D5, s

OUT &H3D4, &H8
OUT &H3D5, y MOD 15

d = INP(&H3DA)
OUT &H3C0, &H33
OUT &H3C0, x MOD 8
LOOP WHILE mb = 1

END IF
OUT &H3D4, &H8
OUT &H3D5, 0

LOOP UNTIL INP(&H60) = 1
SYSTEM