POTPROGRAM (SUB)

 

Uporaba potprograma uvelike pridonosi jasnoći samog programa, a i lakšoj izvedbi.

 

'Izracunavanje kvadrata brojeve pomocu potprograma

DECLARE SUB kvadrat (broj, rezultat)
CLS
INPUT "Upiši broj"; broj
CALL kvadrat(broj, rezultat)
PRINT "Broj: "; broj, "Kvadrat broja: "; rezultat

SUB kvadrat (broj, rezultat)
        rezultat = broj * broj
END SUB