Le prossime righe, quelle contenute entro SUB e END SUB, specificano la funzione RICORSIVA utilizzata per il calcolo del numero di Fibonacci.

REM ------------------
REM FUNZIONE RICORSIVA
REM ------------------
SUB FIB (N):REM calcola il numero i-esimo utilizzando la funzione ricorsiva
IF (N=0 or N=1) THEN RETURN N
ELSE
RETURN FIB(N-1)+FIB(N-2)
ENDIF
END SUB

La struttura SALVAINFO-RETURN contiene le istruzioni utilizzate per salvare su file .TXT le informazioni generate nel corso delle struttura LABEL INFORMAZIONI-RETURN e della SUBROUTINE FIB. Nella prima parte abbiamo inserito una struttura di selezione IF che verifica le variabili K e G; Se quest'ultime sono diverse dal valore uno significa che non è stato calcolato nessun numero di Fibonacci, e non sono state inserite nessun tipo di informazioni sul sistema di test.

LABEL SALVAINFO
CLEAR SCREEN
IF K<>1 AND G<>1 Then
print"Devi effettuare il test e la registrazione delle informazioni del tuo sistema"
print"Purtroppo, non puoi salvare alcuna informazione"
PAUSE 5
GOTO MENUPRINCIPALE
ENDIF

Nelle prossime righe viene chiesto all'utente di salvare le informazioni del test in un file TXT; In caso di risposta affermativa, i dati del test vengono scritti (aggiunti) in diversi file. Nel nostro esempio, il file di testo.TXT più importante è "INFO.TXT", ove possiamo trovare tutti i dati elaborati durante l'esecuzione del test.

Come funziona il codice per il salvataggio in un file .TXT?

Generalmente si assegna ad una variabile stringa il nome del file TXT (X$="mod.txt). Successivamente si utilizza l'istruzione X=OPEN (X$, "a") per assegnare a una variabile X l'apertura del file X$ (variabile stringa che contiene il nome del file TXT) e con la sintassi "a" si specifica che i dati verranno aggiunti al file di testo, e non sovrascritti. Infine il comado PRINT# (X) scrive sul file mod.txt il contenuto della variabile esempio PROC$. Il comando CLOSE #X chiude la scrittura del file.

PRINT "----------------------------------------"
PRINT "SEZIONE REGISTRAZIONE DELLE INFORMAZIONI"
PRINT "----------------------------------------"
PRINT
INPUT"Vuoi salvare le informazioni in un file (si/no) ? "INFO$
IF INFO$<>"si" then end
ENDIF

a$="modprocessore.txt"
b=open (a$,"a")
Print#(b) PROC$
close #b

b$="velprocessore.txt"
b=open (b$,"a")
Print#(b) VELOCPU$
close #b

c$="fsbprocessore.txt"
b=open (c$,"a")
Print#(b) FSB$
close #b

d$="schedamadre.txt"
b=open (d$,"a")
Print#(b) SCHEDA$
close #b

e$="memsistema.txt"
b=open (e$,"a")
Print#(b) MEM$
close #b

f$="sistemaop.txt"
b=open (f$,"a")
Print#(b) SISTEM$
close #b

g$="temptest.txt"
b=open (g$,"a")
Print#(b) TEMP$
close #b

INFOR$="info.txt"
b=open (INFOR$,"a")
Print#(b) PROC$," ",VELOCPU$," ",FSB$," ",SCHEDA$," ",MEM$," ",SISTEM$," ",TEMP$
close #b


PRINT "Ho terminato l'operazione."
PAUSE 5

RETURN

La struttura PAGINAHTMLSALVA-RETURN nella prima parte verifica con un IF se le variabili K e G sono diverse dal valore 1.

LABEL PAGINAHTMLSALVA
IF K<>1 AND G<>1 Then
print at(3,sh-5) "Devi effettuare il test e la registrazione delle informazioni del tuo sistema"
print at(3,sh-4) "Purtroppo, non puoi salvare alcuna informazione"
PAUSE 5
GOTO MENUPRINCIPALE
ENDIF