listati da Qbasic

esci listaqbasic.htm

DECLARE SUB procede (info$, result$)
REM vero2q
REM uso di DEF FN e SUB END SUB e differenze
CLS
DEF FNfunzio$ (info$)
FOR indice = LEN(info$) TO 1 STEP -1
tempo$ = tempo$ + MID$(info$, indice, 1)
NEXT indice
FNfunzio$ = tempo$
END DEF



PRINT "inversione caratteri di stringa da inserire"
INPUT "stringa= ", stringa$
PRINT "funzione "; FNfunzio$(stringa$)
CALL procede(stringa$, risposta$)
PRINT "procedura "; risposta$
END


SUB procede (info$, result$)
FOR indice = LEN(info$) TO 1 STEP -1
result$ = result$ + MID$(info$, indice, 1)
NEXT indice
END SUB