75 lines
1.4 KiB
QBasic
75 lines
1.4 KiB
QBasic
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
|
|
|