Nelle righe successive il codice diventa un po più familiare; Ciò è stato possibile con la definizione di numerose SUBROUTINE presenti nella libreria edhtmgen. In un primo momento si apre in scrittura (la sintassi "w") il file TESTALUCPU.html. Si imposta il modo di visualizzazione (SetOutputMode) e il titolo (SetTitle). Successivamente il codice non fa altro che richiamare le SUBROUTINE ESTERNE passandogli gli argomenti presenti tra le parentesi tonde. Durante l'esecuzione il file "INFO.TXT" viene letto, e inserito nella pagina HTML.

a=1
open 16, "TESTALUCPU.html" ,"w"
SetOutputMode (1)
SetTitle ("Dati test fibonacci by Grando Ruggero")
PrintBasicHTMLTop()
PrintHeading (1, "Test ALU (con la serie di Fibonacci) by Grando Ruggero:database dei risultati.")
TipoCarattereParagrafo ("Arial Black")
TabellaInizio (1)
RigaInizioTabella()
CellaInizioRiga()
PrintParagraph ("Processore")
CellaFineRiga()
CellaInizioRiga()
PrintParagraph ("Velocità CPU in Mhz")
CellaFineRiga()
CellaInizioRiga()
PrintParagraph ("Fsb CPU in Mhz")
CellaFineRiga()
CellaInizioRiga()
PrintParagraph ("Schedamadre")
CellaFineRiga()
CellaInizioRiga()
PrintParagraph ("Memoria di sistema")
CellaFineRiga()
CellaInizioRiga()
PrintParagraph ("Sistema Operativo")
CellaFineRiga()
CellaInizioRiga()
PrintParagraph ("Test Alu Cpu in secondi")
CellaFineRiga()
RigaFineTabella()
RigaInizioTabella ()
TipoCarattereParagrafo ("Arial")

Open 1, "info.txt","r"
while (not eof(1))
CellaInizioRiga()
input#1 O$
PrintParagraph (O$)
CellaFineRiga()

if a=7 Then
RigaFineTabella ()
RigaInizioTabella()
a=0
ENDIF
a=a+1
Wend


close#1
RigaFineTabella ()
TabellaFine()
Centra ()
TabellaInizio(2)
RigaInizioTabella()
CellaInizioRiga()
PrintImage ("FIGURATEST.jpg")
CellaFineRiga ()
CellaInizioRiga ()
PrintParagraph ("Risultati dei test condotti da Grando Ruggero (Megaoverclock)")
CellaFineRiga()
RigaFineTabella ()
TabellaFine ()
CentraFine ()
PrintBasicHTMLBottom()
close#16
print at(3,sh-5) "Benissimo, operazione conclusa, hai salvato una pagina HTML con"
print at(3,sh-4) "i risultati dei test!"
pause 5

RETURN

Com'è stato possibile costruire delle SUBROUTINE esterne?

Ora, prendiamo come esempio una parte di codice della libreria edhtmgen. L'istruzione EXPORT SUB TabellaInizio (Larghezza) rende visibile all'esterno della libreria la SUBROUTINE TabellaInizio (Larghezza). E' importante il valore della variabile rOutPutMode che è 0 se bisogna visualizzare a video la parte di codice restante, o è 1 se il codice deve essere scritto in un file. Il valore della variabile larghezza, argomento della funzione (SUBROUTINE) TabellaInizio, è definito dall'utente nel codice del programma principale. Così, nel programma TESTALU l'istruzione TabellaInizio(2) richiama la SUBROUTINE TabellaInizio presente nella libreria edhtmgen, e assegna il valore 2 alla variabile larghezza.

export sub TabellaInizio (Larghezza)
if rOutPutMode = 0 then
if Larghezza = 1 then
print "<TABLE bordercolor=black border=1 cellspacing=0 cellpadding=1 width=100%>"
elseif Larghezza = 2 then
print "<TABLE bordercolor=black border=1 cellspacing=0 cellpadding=1 width=50%>"
end if
else
if Larghezza = 1 then
print #16 "<TABLE bordercolor=black border=1 cellspacing=0 cellpadding=1 width=100%>"
elseif Larghezza = 2 then
print #16 "<TABLE bordercolor=black border=1 cellspacing=0 cellpadding=1 width=50%>"
end if
end if
end sub