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
                print "li vor subtraktion:";li
                li=li-1
                print "li nach subtraktion:";li
                Print "nach li=li-1"
                sleep

                'Völlig abgrdreht: Ich fühle mich vom Compiler veraeppelt.
                '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
                        print "vor sprungbefehl goto tet"
                        sleep
                        goto tet
                        print "nach sprungbefehl goto tet"
                        sleep
                    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
                        print "vor sprungbefehl goto outofb"
                        sleep
                        goto outofb
                        print "nach sprungbefehl goto outofb"
                        sleep
                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