Fichier des modules : mdl.s
%MDL%%%%%%%%%%%%%%%%%% % % %%%%%%%%%%%%%%%%%%%%%%
A=DAT1.A D0=A A=DAT0.A LC 02B88 ?AC.A { GOVLNG [QUIT] }
%%%% DEBUT MODULE %%%%
A=DAT1.A LC 80000 A=A-C.A A=A+10.A D0= 801D0 DAT0=A.A
%%%% DEBUT TEXTES %%%% A=DAT1.A A=A+15.A D0=A C=DAT0.A A=A+C.A A=A+5.A LC 80000 A=A-C.A D0= 801D5 DAT0=A.A
%%%% DEBUT DATAS. %%%% A=DAT1.A A=A+10.A A=A+3.A D0=A C=DAT0.P D=C.P D0=D0+ 1 C=DAT0.P D=D+C.P
A=DAT1.A A=A+15.A D0=A C=DAT0.A A=A+C.A A=A+5.A C=A.A
*UP4 ?D0.P { D0=C A=DAT0.A C=C+A.A C=C+5.A D--.P GOTO UP4 }
LA 80000 C=C-A.A D0= 801DA DAT0=C.A
@