


|
This is a piece of software I implemented when I was student at the University of Franche-Comté, Besançon, France.
After entering a determinant, adjective and noun, the program computes the adjective endings for cases in German depending on the adjective itself and the type of determinant.
COMBINAI.PRO
/*Sylvie THOUESNY - 01/05/2000 */
code=8000
project “accord”
include “globdef.pro”
goal
go.
clauses
/*
*******************
détail des fenêtres
*******************
window(1) : bandeau supérieur
window(2) : demande cas genre nombre
window(3) : bandeau inférieur noir
window(4) : bandeau inférieur erreur saisie
window(5) : accueil
window(6) : bandeau recommencer recherche
window(7) : final
~~~~~~~~~~~~~~~~~~~~
*/
go:-
clearwindow,
makewindow(1,113,14,"",0,0,5,80),
makewindow(2,14,0,"",5,0,17,80),
makewindow(4,4,0,"",22,0,3,80),
write(“ Erreur dans la saisie, “),
write(“recommencez s’il vous plait !”),
makewindow(3,14,0,””,22,0,3,80),
makewindow(5,14,0,””,5,0,17,80),
départ.
Départ:-
repete,
shiftwindow(3),
[more... pdf]
|