0 A=A+1:IF A=1 THEN LOAD"SHADOW V4.0",8,1
5 DIM A$(40):POKE 49152,15:POKE 49153,11
10 POKE 53280,12:POKE 53281,12:PRINT"[147]";
20 A$(1)="                "
30 A$(2)="   SHADOW 4.0   "
40 A$(3)="                "
50 A$(4)=" BITTE <RETURN> "
60 A$(5)="    DRUECKEN    "
70 A$(6)="                "
90 A$(17)=" AUCH GROSSE WINDOWS SIND MOEGLICH !! "
100 A$(26)=" <RETURN> FUER WEITER                 "
110 A$(28)="                        "
120 A$(29)=" DIE FARBEN LASSEN SICH "
130 A$(30)="   EBENFALLS  AENDERN   "
140 A$(31)="                        "
150 A$(32)="   <RETURN> FUER ENDE   "
160 A$(33)="                        "
170 A$(34)="           "
180 A$(35)=" ENDE .... "
190 A$(36)="           "
200 SYS 49154,A$(1),6,8,12
210 X=7:GOSUB 1010
220 SYS 49154,A$(7),21,1,1
230 GOSUB 1010
240 GET B$
250 A=INT(16*RND(1))
260 B=INT(16*RND(1))
270 POKE 49152,A:POKE 49153,B
280 FOR T=0 TO 200:NEXT T
290 SYS 49154,A$(28),6,14,4
300 IF B$<>CHR$(13) THEN 240
310 PRINT"[147]";
320 POKE 53280,14:POKE 53281,6:POKE 49152,1:POKE 49153,0
330 SYS 49154,A$(34),3,1,1
340 PRINT"":END
1000 FOR I=0 TO 8:A$(X+I)="                                      ":NEXT:RETURN
1010 GET B$:IF B$<>CHR$(13) THEN 1010
1020 PRINT"[147]";:RETURN