XProfan

Declare men$
CLS
PRINT "Wohin wollen Sie springen? "
PRINT
PRINT " (1) Sprungmarke 1"
PRINT " (2) Sprungmarke 2"
PRINT " (3) Beenden"
INPUT men$

IF men$ = 1 THEN GOTO 10

    IF men$ = 2 THEN GOTO Textmarke

        IF men$ = 3 THEN END ELSE BEEP: END

            10 :
            CLS
            PRINT "Sprungmarke in Form einer Zahl."
            WAITKEY
            END
            Textmarke:
            CLS
            PRINT "Sprungmarke mit dem Namen »Testmarke«
            WAITKEY
            FIN

Proc unter1

    Cls
    Print
    Print "--- hier ist die Nummer Eins"
    WaitKey

EndProc

Proc und_die_zweite

    Cls
    Print
    Print "--- hier ist die Nummer Zwei"
    Print "--- (nur mal so als kleines Beispiel)"
    Print "--- "
    WaitInput

EndProc

Declare Men$, Ende%
Ende% = 0

WhileNot Ende%

    Cls
    Print "Was wollen Sie ausführen? "
    Print
    Print " (1) Unter-Programm 1"
    Print " (2) Unter-Programm 2"
    Print " (3) Beenden"
    Input Men$
    Case Men$ = "1" : unter1
    Case Men$ = "2" : und_die_zweite
    Case Men$ = "3" : Ende% = 1

EndWhile

Fin