QBasic, Russian Basic

DECLARE FUNCTION Mouse (Visualization$)
SLEEP
Mouse ("Yes")
SLEEP
CLS
Mouse ("No")

FUNCTION Mouse (Vizualization$)
DATA &H60, &H1E, &H0E, &H1F, &HA1, &H18, &H00, &HCD, &H33, &H89
DATA &H1E, &H1A, &H00, &H89, &H0E, &H1C, &H00, &H89, &H16, &H1E
DATA &H00, &H1F, &H61, &HCB
DIM IntProg(1 TO 16) AS INTEGER
DEF SEG = VARSEG(IntProg(1)): 'гбв ­®ўЄ  ᥣ¬Ґ­в  ¤«п а Ў®вл Ї®¤Їа®Ја ¬¬л
Int33& = VARPTR(IntProg(1)): 'гбв ­®ўЄ  ᬥ饭Ёп ¤«п а Ў®вл Ї®¤Їа®Ја ¬¬л
'ЏҐаҐЇЁбм Ї®¤Їа®Ја ¬¬л Ё§ Ў«®Є  ¤ ­­ле ў ¬ ббЁў Ї®Ў ©в­®
FOR j% = 0 TO 23
  READ K%: POKE IntDos& + j%, K%
NEXT j%
IntProg(13) = 0: 'Џ®¤дг­ЄжЁп бЎа®б  ¤а ©ўҐа  ¬лиЁ
CALL ABSOLUTE(Int33&)
LOCATE 2, 1
driver$ = "Windows"
IF IntProg(13) = -1 THEN driver$ = "MS-DOS"
buttons = IntProg(14)
IF Visualization$="Yes" thenIntProg(13) = 1
CALL ABSOLUTE(Int33&)
IntProg(13) = 3: 'Џ®¤дг­ЄжЁп ®Їа®б  б®бв®п­Ёп ¬лиЁ
'15:CX=x 16:DX=y 14:BX=б®бв®п­ЁҐ Є­®Ї®Є:
'1 - ­ ¦ в  «Ґў п, 2 - Їа ў п, 4 - б।­пп

  CALL ABSOLUTE(Int33&)
  MouseX% = IntProg(15): MouseY% = IntProg(16): MouseButtons% = IntProg(14)

DEF SEG
END FUNCTION