PRINT "Calculo de integral definida": PRINT : INPUT "Fun‡ao :", f$: INPUT "Intervalo - Inicio :", a#: INPUT "          - Fim    :", b#: INPUT "Numero de divisoes :", n%: OPEN "Integral.Clc" FOR INPUT AS #1: OPEN "Integral.Tmp" FOR OUTPUT AS #2
PRINT #2, "DEFDBL A-Z:DEF FnF(x)="; f$; ":a="; a#; ":b="; b#; ":n%="; n%: DO UNTIL EOF(1): LINE INPUT #1, l$: PRINT #2, l$: LOOP: CLOSE #1, #2: RUN "Integral.Tmp"