REFSKRIPT
; routine um im aktuellen dreiecks-objekt einen
; neuen körpernamen zu finden

;find_tmp_kp_name:procedure
GET_PARAM_NR 1
GET_RESULT name
ADD_STR name
GET_RESULT neu_name  
   SET_VAR found 0
   SET_VAR i 0
   KP_EXIST neu_name
   GET_RESULT res
   IF_STR_EQUAL_GOTO res NEIN w1
   
>do_while:    
    ADD_STR name _ i
    GET_RESULT neu_name
    KP_EXIST neu_name
	GET_RESULT res
	IF_STR_EQUAL_GOTO res NEIN w1
    ADD i 1
    GET_RESULT i
    GOTO do_while

>w1:
RETURN neu_name