Microsoft QBasic er et programmeringsspråk som følger med alle DOS datamaskiner og tilgjengelige for nyere operativsystemer online . Som de fleste klassiske Basic varianter , er språket ikke beregnet for bruk med moderne grafiske grensesnitt eller midler brukerens input. Dette betyr at det ikke er noen innvendige kommandoer for å bruke datamaskinens mus . QBasic kan bruke forsamlingen kode for å komme rundt denne begrensningen , men slik at du kan ansette musen i dine egne programmer . Instruksjoner
en

Skriv en subrutine for å styre musepekeren synlighet og lese koordinatene . Det skal ta en parameter som påvirker funksjonen av subroutine avhengig av sin verdi : 1 viser markøren , 2 den skjuler og 3 oppdaterer de globale variabler B, H og V. Disse variablene lagrer knapp tilstand , horisontal stilling og vertikal stilling markøren. Definer variablene og sjekk for å se om markøren allerede er skjult , avstå fra å skjule det på nytt hvis det er tilfelle . Denne første delen av subrutinen skal se omtrent slik ut : en

SUB Mouse ( Param )

DELT B , H , V

STATISK markør

IF param = 1 THEN markør = 1

IF param = 2 og markør = 0 Then Exit SUB

IF param = 2 og markør = 1 THEN : Pil = 0
2

Oppgi assemblerkode nødvendig å samhandle med musa og lagre knappen og posisjon verdier. Den andre delen av subrutinen må se akkurat slik ut til å fungere : en

POKE 100 , 184 : POKE 101, Param : POKE 102, 0

POKE 103 , 205 : POKE 104 , 51 : POKE 105, 137

POKE 106 , 30: 107 POKE , 170 : 108 POKE , 10