REM PROCED4
CLS
h$="-------------------------------------------------------------"
print"esempio di procedure e uso di SHARED per globale"
print"-----------------------------------------------------------------"
print"programma principale :chiede 2 nomi e stampa radice con 3 lettere"
print"e parte finale con tre lettere"
print
for a=1 to 2
CALL chiedenome(nome$)
CALL stampa(nome$)
CALL radice(dato$)
CALL stampa(nota$)
CALL finale(dato$)
CALL stampa(fine$)
print h$
next a
print"fine prova"
END

SUB chiedenome(n$)
    SHARED dato$
    input"scrivi un nome:";n$
    dato$=n$
END SUB

SUB stampa(n$)
    print "hai scritto la parola:";n$
END SUB

SUB radice(r$)
    SHARED nota$
    nota$=left$(r$,3)
END SUB

SUB finale(r$)
    SHARED fine$
    fine$= right$(r$,3)
END SUB

esempio di procedure e uso di SHARED per globale
-----------------------------------------------------------------
programma principale :chiede 2 nomi e stampa radice con 3 lettere
e parte finale con tre lettere

scrivi un nome:? informazione
hai scritto la parola:informazione
hai scritto la parola:inf
hai scritto la parola:one
-------------------------------------------------------------
scrivi un nome:? cantare
hai scritto la parola:cantare
hai scritto la parola:can
hai scritto la parola:are
-------------------------------------------------------------
fine prova

INIZIO