Dbase et la gestion c'est possible !!!

J'ai l'habitude de m'amuser. Mais cette fois là c'étais dans un milieu où il ne falait pas. C'était grave !! Un mec à l'allure d'un chef débarque et me fixe; tu cherche le boulot ? et tu es informaticien ! ça alors écris - moi un logiciel en DBASE pour la paie de mes agents, mais n'oublie pas les hommes de la Direction commerciale ont une prime de 1000 Euros et les femmes des autres direction ont 200 Euros. Tu as 1 H00 Monsieur pour ça! J'ai frimé un peu mais parce qu'il falait m'amuser j'ai élaborer un ordino et en voici ce que j'ai traduit en DBASE:

* Auteur Marcel MUJANAY KABENGELE
* Date whriter 26 Janvier 2005
SET CENTURY ON
SET DIVICE TO PRINT
STOP 13 TO CTRL
STOP 1 TO CTRP
STOP 0 TO PRIME
USE FPERS
DO WHILE.NOT.EoF ()
IF CTRL = 13
@2,5 Say "AIR THETHE"
@2,60 Say "DATE"
@2,66 Say DATE ()
@3,5 Say "KINSHASA"
@3,60 Say "PAGE"
@3,66 Say CTRP ()
@4,5 Say "RDC"
@5,5 REPLICATE ((-),3)
@8,29 Say "LISTE DES EMPLOYES"
@9,29 Say REPLICATE ((-),23)
@12,3 Say "MATRICULE"
@12,14 Say " NOM"
@12,45 Say "PRIME"
@13,3 Say REPLICATE ((-),7)
@13,14 Say REPLICATE ((-),3)
@13,45 Say REPLICATE ((-),5)
CTRL = 14
END IF
IF DIR = COMM
IF SEXE = M
PRIME = PRIME+1000
ELSE
LOOP
END IF
ELSE
IF SEXE = F
PRIME = PRIME+200
ELSE
LOOP
END IF
END IF
@CTRL, 3 Say Matricule
@CTRL,14 Say Nom
@Ctrl,47 Say PRIME
CTRL = CTRL + 1
PRIME = 0
IF CTRL = 38
EJECT & Saut de page
CTRP = CTRP+1
CTRL = 13
LOOP
ELSE
LOOP
END IF
END Do
CLOSE DATA
RETURN
Alors j'attends ancore la suite de mon teste dans ce vieux langage,pensez-vous que j'ai la chance d'être retenu en résolvant ce problème de cette manière dans ce langage ?????????
On ne peu donner que ce qu'on a !
A vos claviers pour la réponse

Marcel Mujanay Kabengele
Etudiant en Informatique de gestion

tu veux pas qu'on passe le diplôme à ta place aussi ?