35 lines
1.1 KiB
QBasic
35 lines
1.1 KiB
QBasic
5 WSET 0:CROFF
|
|
10 COL 0,55,$56:CLS
|
|
15 MOUSE 1,0
|
|
18 STILE 15
|
|
20 WIN c(1,255,55,88,0,0,39,29,3,0,"Demonstration von Backup und Restore")
|
|
30 FONT "Was koennte man mit diesen Funktionen",55,0,0,0,4
|
|
40 FONT "so anstellen? Na zum Beispiel dieses",55,0,0,0,5
|
|
50 FONT "Fenster darstellen und im Vordergrund",55,0,0,0,6
|
|
60 FONT "ein zweites Fenster oeffnen,um zum Bsp.",55,0,0,0,7
|
|
70 FONT "einen Hinweistext anzuzeigen",55,0,0,0,8
|
|
80 FONT "Das ist noch nicht sehr spektakulaer, ",55,0,0,0,12
|
|
90 FONT "aber wenn das Fenster geloescht wird,",55,0,0,0,13
|
|
100 FONT "stellen wir den Hintergrund wieder her!",55,0,0,0,14
|
|
110 FONT "Druecke bitte eine Taste",55,9,0,8,17
|
|
150 a=INKEY
|
|
152 b=MB 0
|
|
155 IF a=0 AND b=0 THEN GOTO 150
|
|
160 BACKUP 5,6,39,28,$30000
|
|
180 WIN c(2,0,88,99,5,6,38,27,4,1,"Infofenster")
|
|
185 COL 0,88,0
|
|
196 WSET 2
|
|
200 CLS :PRINT "Nun wollen wir das Fenster"
|
|
210 PRINT "wieder loeschen."
|
|
211 PRINT " ":PRINT " "
|
|
215 PRINT " Druecke bitte eine Taste"
|
|
220 a=INKEY
|
|
225 b=WIN
|
|
227 IF a=0 AND b<>22THEN GOTO 220
|
|
230 RECOVER 5,6,39,28,$30000
|
|
240 WSET 1
|
|
250 COL 0,55,$56
|
|
260 CRON
|
|
280 END
|
|
|