5 STILE 15
8 WSET 0
10 CROFF :COL 0,$e6,0:CLS 
11 PRINT "Demonstration der Fenster"
12 MOUSE 1,0
15 #w="FENSTER "
16 c=1
20 FOR i=1 TO 8
25 IF i>2 THEN c=c+1
30 WIN c(c,250,$92,0,1+i,1+i,25+i,20+i,i,1,#w)
40 PRINT "WINDOW ";i
41 #a="STATUSTEXT"
42 WIN s(c,STR$ l(#a,6))
45 #i=i
46 #d=#w+#i
47 WIN t(c,#d)
48 #d=""
50 PAUSE 2000
60 NEXT i
70 a=WIN 
75 IF a>0 THEN GOSUB 800
80 IF a=72THEN CLS :GOTO 100
90 GOTO 70
100 a=$7E500
110 POKE a,165,1
120 POKE a+1,157,1
130 POKE a+2,143,1
140 POKE a+3,131,1
150 POKE a+4,142,1
160 POKE a+5,157,1
170 POKE a+6,144,1
180 POKE a+7,131,1
190 POKE a+8,110,1
200 POKE a+9,157,1
210 POKE a+10,109,1
220 POKE a+11,30,1
230 POKE a+12,107,1
240 POKE a+13,31,1
250 POKE a+14,157,1
260 POKE a+15,144,1
270 POKE a+16,142,1
275 WSET 0:CLS :b=b+1
276 PRINT "Anderer Font, anderes Aussehen !"
278 PAUSE 2000
279 ON b GOTO 280,400,700
280 TLOAD 1,"font1.dat",16,11
290 STILE 1
300 WIN r(1)
310 GOTO 10
400 POKE a,121,1
410 POKE a+1,125,1
420 POKE a+2,107,1
430 POKE a+3,106,1
440 POKE a+4,108,1
450 POKE a+5,125,1
460 POKE a+6,120,1
470 POKE a+7,106,1
480 POKE a+8,132,1
490 POKE a+9,125,1
500 POKE a+10,110,1
510 POKE a+11,30,1
520 POKE a+12,106,1
530 POKE a+13,31,1
540 POKE a+14,125,1
550 POKE a+15,132,1
560 POKE a+16,110,1
570 WIN r(1)
580 TLOAD 1,"font8.dat",16,11
590 STILE 1
600 GOTO 10
700 WSET 0:CLS :b=0:GOTO 5
800 WSET 0:POS 30,0:PRINT a;"  "
850 RETURN