powerbasic/mouse/mt.bas

color 7,1
laun$="MTLAUNCH.BAT"
cls
locate 10,1:color 14,1
print"ÉÍÍ Abfrage ÍÍÍÍÍÍÍÍÍ»"
for a=11 to 16
locate a,1:print"º"
locate a,22:print"º"
next a
print"ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ"
locate 13,23:print"ÉÍÍ Tasten ÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»"
locate 14,23:print"º ÚÄÄÄÄÄÄÂÄÄÄÄÄÄÂÄÄÄÄÄÄ¿ º"
locate 15,23:print"º ³      ³      ³      ³ º"
locate 16,23:print"º ³      ³      ³      ³ º"
locate 17,23:print"º ÃÄÄÄÄÄÄÁÄÄÄÄÄÄÁÄÄÄÄÄÄ´ º"
locate 18,23:print"º ³ Artec              ³ º"
locate 19,23:print"º ³                    ³ º"
locate 20,23:print"º ³                    ³ º"
locate 21,23:print"º ³                    ³ º"
locate 22,23:print"º ------8<-------8<----- º"
locate 23,23:print"ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ"
locate 10,23
print"ÉÍÍ Koordinaten ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»"
locate 11,23
print"º":locate 11,75:print"º"
locate 12,23
print"ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ"
locate 12,5
color 15,7
print"      OK      ";:color 8,1:print"Ü"
locate 13,6:print"ßßßßßßßßßßßßßß"
locate 15,5:color 15,7
print"    CANCEL    ";:color 8,1:print"Ü"
locate 16,6:print"ßßßßßßßßßßßßßß"
locate 1,1:color 14,1
print"ÉÍÍ Status ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»"
for a=2 to 5
locate a,1
print"º                                        º"
next a
print"ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ"
defint a-z
def seg=0
mseg=256*peek(207)+peek(206)
mouse=256*peek(205)+peek(204)+2
if mseg or  (mouse-2) then DrvInst else DrvNInst

DrvNInst:
status$="Maus-Treiber nicht installiert"
status=12
gosub WriteStatus
delay .5
status$="Bitte installieren"
status=15
gosub WriteStatus
delay .5
status$="Programm wird unterbrochen!"
status=11
gosub WriteStatus
end

DrvInst:
def seg=mseg
if peek(mouse-2)=207 then DrvNInst
status=11
status$="Suche Treiber..."
gosub WriteStatus
m1%=0
call absolute mouse(m1%,m2%,m3%,m4%)
status$="Maustreiber nicht resident!":status=12:if m1=-1 then status$="Maustreiber resident. ("+right$(str$(m2%),1)+" Tasten)":status=10
gosub WriteStatus
status=11
status$="Maus-Cursor einstellen..."
gosub WriteStatus
m1=10:m2=0:m3=3:m4=5
call absolute mouse(m1%,m2%,m3%,m4%)
status=11
status$="Maus-Cursor sichtbar machen..."
gosub WriteStatus
m1=1
call absolute mouse(m1%,m2%,m3%,m4%)
REM Ja, wo is' denn unser M„uschen?
ReadKoord:
m1=3
call absolute mouse(m1%,m2%,m3%,m4%)
status=11
status$=""
if m2%=1 then status$="l     "
if m2%=2 then status$="    r "
if m2%=3 then status$="l   r "
if m2%=4 then status$="  m   "
if m2%=5 then status$="l m   "
if m2%=6 then status$="  m r "
if m2%=7 then status$="l m r "
if status$="" then goto NoSWrite
status$=status$+"bei x"+str$(m3)+", y"+str$(m4)+" gedr�ckt"
if status$=oldstat$ then NoSWrite
oldstat$=status$
gosub WriteStatus
NoSWrite:
gosub PaintButt
butt=m2:x=m3:y=m4
gosub WriteKoord
if y=88 and x>=32 and x<=136 and butt=1 then LoadProg
if y=112 and x>=32 and x<=136 and butt=1 then Beenden
goto ReadKoord

WriteStatus:
statusa$=statusb$
statusa=statusb
statusb$=statusc$
statusb=statusc
statusc$=statusd$
statusc=statusd
statusd$=left$(status$,38)
if len(statusd$)<38 then for a=len(statusd$) to 38:statusd$=statusd$+" ":next a
statusd=status
locate 2,3
color statusa,1
print statusa$
locate 3,3
color statusb,1
print statusb$
locate 4,3
color statusc,1
print statusc$
locate 5,3
color statusd,1
print statusd$
return

WriteKoord:
locate 11,25
color 11,1
print"Knopf-Status: ";butt;"         X: ";m3;"        Y: ";m4
return

PaintButt:
a=0:b=0:c=0
if m2=1 then a=1
if m2=2 then c=1
if m2=3 then a=1:c=1
if m2=4 then b=1
if m2=5 then a=1:b=1
if m2=6 then b=1:c=1
if m2=7 then a=1:b=1:c=1
ButtA1:
if a<>1 then goto ButtA0
locate 15,26:print"²²²²²²"
locate 16,26:print"²²²²²²"
goto ButtB1
ButtA0:
locate 15,26:print"      "
locate 16,26:print"      "
ButtB1:
if b<>1 then goto ButtB0
locate 15,33:print"²²²²²²"
locate 16,33:print"²²²²²²"
goto ButtC1
ButtB0:
locate 15,33:print"      "
locate 16,33:print"      "
ButtC1:
if c<>1 then goto ButtC0
locate 15,40:print"²²²²²²"
locate 16,40:print"²²²²²²"
return
ButtC0:
locate 15,40:print"      "
locate 16,40:print"      "
return

Beenden:
status=11
status$="Maus-Cursor unsichtbar machen..."
gosub WriteStatus
m1=2
call absolute mouse(m1%,m2%,m3%,m4%)
status=12
status$="Programm beendet."
gosub WriteStatus
end

LoadProg:
status=11
status$="Maus-Cursor unsichtbar machen..."
gosub WriteStatus
m1=2
call absolute mouse(m1%,m2%,m3%,m4%)
status=14
status$="Beenden und Starten von "+laun$+"..."
gosub WriteStatus
color 15,0,0
cls
execute laun$