1           // Suchen eines Zeichens in einem Text
 2 Weiter    if val Index >= con ZeichenEnde then goto con Ende
 3           if val Index2 >= con VergleichEnde then goto con Zuruecksetzen
 4           adr Index2 := con Vergleich
 5           adr pruefer := con 0
 6           //Zuruecksetzen...
 7           // Auf Stringende testen
 8           if val val Index == val val Index2 then goto con Ueberpruefe
 9           // Zeigerinhalt mit Suchvariablen vergelichen
10           adr Index := val Index + con 1
11           // Zeiger um eins erhöhen
12           goto con Weiter
13 Fertig    adr Ergebnis := val Index - con ZeichenFeld
14           // aktueller Zeiger - Startwert => absoluter Index
15           stop
16 Ueberpruefe if val val Index == con ' ' then goto con Check
17           adr pruefer += con 1
18           adr Index += con 1
19           adr Index2 += con 1
20           if val val Index == con ' ' then goto con Check
21           if val val Index != val val Index2 then goto con Weiter
22           if val val Index == val val Index2 then goto con Ueberpruefe
23           goto con Weiter
24 Zuruecksetzen adr Index2 := con Vergleich
25           goto con Weiter
26 Check     if val pruefer == con 0 then goto con Fertig
27           adr Index -= con 1
28           adr Index2 -= con 1
29           if val val Index == val val Index2 then goto con Helfer
30 BackCheck adr pruefer -= con 1
31           if val pruefer != con 0 then goto con Check
             if val pruefer == con 0 then goto con Check
32 Helfer1   adr helfer := val pruefer
33 Helfer    if val helfer == con 0 then goto con Helfer1
             if val helfer2 == val helfer then goto con Fertig
34           adr helfer2 += con 1
35           goto con BackCheck
36 Ende      adr Ergebnis := con -1
37           // Fehlschlag
38           stop
39 pruefer
40 helfer
41 helfer2
42 Index     con ZeichenFeld
43 Index2    con Vergleich
44 Ergebnis
45 Vergleich con "Stundenplan"
46 VergleichEnde
47 ZeichenFeld con "Der Stundenplan zeigt Ihre regelmaessigen Veranstaltungen "
48 ZeichenEnde