ehm! Because of the function 1 or 2:
input "Function 1 or Function 2?",func
if func=1 then func1()
if func=2 then func2()
function func1()
erstes$="Hello i l"
zweites$="o i like yo"
drittes$="you so!"
test=0
test2=0
check:
if left$(zweites$,test)=right$(erstes$,test)
word$=left$(erstes$,len(erstes$)-test)+zweites$
endif
test=test+1
if test<len(zweites$) and test<len(erstes$) then goto check
check2:
if left$(drittes$,test2)=right$(word$,test2)
word2$=left$(word$,len(word$)-test2)+drittes$
endif
test2=test2+1
if test2<len(drittes$) and test<len(word$) then goto check2
print word2$
wait key
endfunction
function func2()
input "First part? ",erstes$
input "Second part? ",zweites$
input "Third part? ",drittes$
test=0
test2=0
check:
if left$(zweites$,test)=right$(erstes$,test)
word$=left$(erstes$,len(erstes$)-test)+zweites$
endif
test=test+1
if test<len(zweites$) and test<len(erstes$) then goto check
check2:
if left$(drittes$,test2)=right$(word$,test2)
word2$=left$(word$,len(word$)-test2)+drittes$
endif
test2=test2+1
if test2<len(drittes$) and test<len(word$) then goto check2
print word2$
wait key
endfunction
This was the real code!
But its too long and i dont want to cut anything! But ok!!! Ill do it that way....
input "Function 1 or Function 2?",func
if func=1:goto func1:endif:if func=2:goto func2:endif:end
func1:
erstes$="Hello i l":zweites$="o i like yo":drittes$="you so!":test=0:test2=0
func2:
input "First part? ",erstes$:input "Second part? ",zweites$:input "Third part? ",drittes$
goto check
check:
if left$(zweites$,test)=right$(erstes$,test):word$=left$(erstes$,len(erstes$)-test)+zweites$:endif:test=test+1
if test<len(zweites$) and test<len(erstes$) then goto check
check2:
if left$(drittes$,test2)=right$(word$,test2):word2$=left$(word$,len(word$)-test2)+drittes$:endif:test2=test2+1:if test2<len(drittes$) and test<len(word$):goto check2:endif:print word2$:wait key:end
