12000 IFL+B>40ORL>38ORL<0ORB<3ORO+H>24ORH>24ORO<0ORH<3THENPRINT"WINDOW-FEHLER":RETURN
12010 FORA=1TOH-2
12020 :  W$(A)=""
12030 NEXT A
12040 FOR Y = 1 TO H
12050 : FOR X = 1 TO B
12060 :   W$(Y)=W$(Y)+CHR$(PEEK(1024+(O+Y)*40+L+X))
12070 :   POKE(1024+(O+Y)*40+L+X),32
12080 : NEXT X
12090 NEXT Y
12100 POKE214,O+1
12110 POKE211,L+1
12120 SYS58732
12130 PRINT"[207]";
12140 FORA=1TOB-2
12150 :  PRINT"[183]";
12160 NEXT A
12170 PRINT"[208]"
12180 FORA=1TOH-2
12190 : POKE214,A+O+1
12200 : POKE211,L+1
12210 : SYS58732
12220 : PRINT"[180]";SPC(B-2);"[170]"
12230 NEXT A
12240 POKE214,H+O
12250 POKE211,L+1
12260 SYS58732
12270 PRINT"[204]";
12280 FORA=1TOB-2
12290 :  PRINT"[175]";
12300 NEXT A
12310 PRINT"[186]"
12320 FORA=1TOH-2
12330 : POKE214,O+A+1
12340 : POKE211,L+2
12350 : SYS58732
12360 : PRINTLEFT$(T$(A),B-2)
12370 NEXT A
12380 POKE198,0:WAIT198,1
12390 FOR Y = 1 TO H
12400 : FOR X = 1 TO B
12410 : A=ASC(MID$(W$(Y),X,1))
12420 :   POKE(1024+(O+Y)*40+L+X),A
12430 : NEXT X
12440 NEXT Y
12450 RETURN