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



<div style="text-align:right;position:fixed;bottom:3px;right:3px;width:100%;z-index:999999;cursor:pointer;line-height:0;display:block;"><a target="_blank" href="https://www.freewebhostingarea.com" title="Free Web Hosting with PHP8"><img alt="Free Web Hosting" src="https://www.freewebhostingarea.com/images/poweredby.png" style="border-width: 0px;width: 180px; height: 45px; float: right;"></a></div>