Basic/data/BACKREST.TXT

35 lines
1.1 KiB
Plaintext
Raw Normal View History

2014-05-18 19:57:12 +02:00
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