1 REM VERSCHACHTELTE SCHLEIFEN
2 REM ------------------------
5 X=-5:Y=0:Y1=1:F=1
6 POKE53280,0:POKE53281,0:POKE646,F
7 PRINT"[147][142]"
20 FORI=1TO5:IFI>1THENX=X-5
30 FORJ=1TO7:IFJ>1THENX=X-5
40 PRINT"[207]";
50 FORK=1TO3
60 PRINT"[183]";
70 NEXTK
75 PRINT"[208]"
80 X=X+5:Y=Y1:GOSUB1000
85 FORK=1TO3:Y=Y+1:GOSUB1000
90 PRINT"[180]"TAB(X+4)"[167]"
95 NEXTK
100 GOSUB1000
110 PRINT"[204]";
120 FORK=1TO3
130 PRINT"[175]";
140 NEXTK
150 PRINT"[186]"
160 X=X+5:Y=Y-3:POKE646,INT(RND(0)*15)+1:GOSUB1000
170 NEXTJ
171 Y1=Y1+4:X=0:Y=Y1:GOSUB1000
190 NEXTI
999 END
1000 POKE211,X:POKE214,Y:SYS58640:RETURN