'Falls Schlange die Begrenzungen des Spielfeldes (Rechteck) überschreitet, erfolgt Lebensabzug und
        'Neuplatzierung des Schlangenkopfes
        If a<50 or a>1000 or b<80 or b>700 then
            print "vor vor if-anweisung"

            If a<>0 and b<>0 then
                pset (a,b),bckcl
                draw string (340,50),str(pu),bckcl
                pu=pu-10
                draw string (340,50),str(pu),lttcl3
                li=li-1

                'Lebensabzug li=li-1 ausgeführt, aber keine frontlinenr-Operationen.
                'wegoptimiert????


                snline(frontlinenr,2)=a
                snline(frontlinenr,3)=b

                'Der Ort des letzten Punktes wird zum Endpunkt, sonst kommt die Linie durcheinander
                'Operation muss vor einem Sprung zum Label outofb geschehen, da bei outofb die Variablen
                'a und b umdefiniert werden
                '
                'Problem:Frontlinenr wird scheinbar nicht erhöht, wenn Schlange auftrifft

                If li<=0 then
                    draw string (470,150),"THE END 2",lttcl2
                    if ch=2 and le=0 then goto tet2
                        sleep 2000
                        goto tet
                    end if
                    line (51,81)-(999,699),bckcl,BF
                    for i=1 to l
                        pset (ca(i),cb(i)),lttcl2
                    next
                    line (ba,bb)-(ba+big,bb+big),lttcl2,bF
                    goto outofb
                end if


                a=500
                b=500

                print "vor if-anweisung"

                'Das Linienmanagement muss eine neue Linie anlegen
                if frontlinenr<(MAXLINES-MAXLINESSECURITYAMOUNT) then
                    print "frontlinenr nach aufprall erhoeht von ";frontlinenr;
                    frontlinenr=frontlinenr+1
                    print " auf ";frontlinenr;
                    sleep 10000,1
                    sleep 5000
                    snline(frontlinenr,0)=a
                    snline(frontlinenr,1)=b
                elseif snline (0,0)=0 then
                    print "frontlinenr nach aufprall geaendert von ";frontlinenr;
                    frontlinenr=0
                    print " auf ";frontlinenr;
                    sleep 10000,1
                    sleep 5000
                    snline(frontlinenr,0)=a
                    snline(frontlinenr,1)=b
                else
                    Print "Fehler beim Linienmanagement! Zu viele Linien. Taste druecken zum Beenden."
                    sleep 10000,1
                    sleep 10000
                    end
                end if
                snline(frontlinenr,2)=a
                snline(frontlinenr,3)=b
                snline(frontlinenr,4)=c
            end if
        end if