10 IFA=0THENA=1:LOAD"UNTERLAENGEN",8,1
20 POKE828,0:POKE806,217:POKE807,195
30 OPEN4,4,7:PRINT#4:CLOSE4
40 IFA=1THENA=2:LOAD"VI*",8,1