5 MOUSE 1,0:STILE 15
6 DIM #a(255)
7 DIM #w(255)
8 WSET 0
10 COL 0,255,0:CLS :CROFF 
11 #a(1)="Button gedrueckt"
13 #a(2)="Icon gedrueckt  "
14 #w(21)="Fenster links   "
15 #w(22)="Fenster rechts  "
16 #t="Hilfefenster"
17 #f="Dies ist ein Hilfefenster,"
18 #g="aber mit dem WIN-Befehl"
19 #h="erzeugt !"
20 WIN c(2,0,250,$e6,5,10,35,20,4,0,#t)
22 FONT #f,250,0,$e6,0,1
23 FONT #g,250,0,$e6,0,2
24 FONT #h,250,0,$e6,0,3
25 FONT "Dadurch ist der MBOX-Befehl",250,0,$e6,0,4
30 FONT "ueberfluessig!!!",250,0,$e6,0,5
40 #b="Das ist ein Testknopf!"
50 BUTTON t(1,255,66,8,19,#b)
52 BUTTON i(2,16,$e6,0,250,23,10)
56 w=WIN 
60 a=MB (0)
65 WSET 0
70 POS 10,24:PRINT #a(a)     
71 POS 10,24:PRINT #w(w)
80 IF a=0 AND w=0 THEN GOTO 56
120 GOTO 56