Tenho esta que utilizo na faculdade. Para fechamento de notas
DECL A1, MEDIA,A3,A0, F0, F1, F2, F3,F4,FREQ,CH, ST,CONC;
SETVAR(A1, CAMPOTAB(6,'A1','V'));
SETVAR(F1, CAMPOTAB(6,'F1','V'));
SETVAR(F2, CAMPOTAB(6,'F2','V'));
SETVAR(F3, CAMPOTAB(6,'F3','V'));
SETVAR(F4, CAMPOTAB(6,'F4','V'));
SETVAR(CH, CAMPOTAB(6,'CARGAHORARIA','V'));
SE A1= 6.0 ENTAO
SETVAR(MEDIA,6)
SENAO
SETVAR(MEDIA,A1)
FIMSE;
GRAVATAB(6,'A3', 'V',MEDIA);
SETVAR(A3, CAMPOTAB(6,'A3','V'));
SETVAR(F0, (F1+F2+F3+F4));
GRAVATAB(6,'F0','V',F0);
SE CAMPOTAB(6,'F0','S') <> "" ENTAO
SETVAR(FREQ,(100-((F0/CH)*100)));
GRAVATAB(6,'PERCFREQ','V',FREQ)
FIMSE;
SE FREQ < 75 E A3 >= 6 ENTAO
GRAVATAB(6,'A0','V',A3);
SETVAR(CONC,'REPR F');
SETVAR(ST,'12')
SENAO
SE FREQ < 75 E A3 < 6 ENTAO
GRAVATAB(6,'A0','V',A3);
SETVAR(CONC, 'REP NF');
SETVAR(ST,'09')
SENAO
SE A3 >= 6 E FREQ >= 75 ENTAO
GRAVATAB(6,'A0','V',A3);
SETVAR(CONC, 'APROV');
SETVAR(ST,'02')
SENAO
SE A3 >= 3 E A3 < 6 ENTAO
GRAVATAB(6,'A0','V',A3);
SETVAR(CONC, 'EXAME');
SETVAR(ST, '03')
SENAO
SE A3 <= 3 ENTAO
GRAVATAB(6,'A0','V',A3);
SETVAR(CONC, 'REPROV');
SETVAR(ST,'09')
FIMSE
FIMSE
FIMSE
FIMSE
FIMSE;
GRAVATAB(6,'C0','S',CONC);
GRAVATAB(6,'STATUS','S',ST)