SUB int86old (intn%, i%(), o%()) FOR z% = 0 TO 7: o%(z%) = i%(z%): NEXT z% DIM a(12) AS LONG a(0) = &H8BEC8B55: a(1) = &H148B0676: a(2) = &H8B08768B a(3) = &HA768B0C: a(4) = &H768B1C8B: a(5) = &HCD048B0C a(6) = &H6768B00 + intn%: a(7) = &H768B1489: a(8) = &H8B0C8908 a(9) = &H1C890A76: a(10) = &H890C768B: a(11) = &H8CA5D04: a(12) = 0 DEF SEG = VARSEG(a(0)) CALL ABSOLUTE(o%(0), o%(1), o%(2), o%(3), VARPTR(a(0))) DEF SEG = &HA000 END SUB