Fichier des modules : mdl.s

 

%MDL%%%%%%%%%%%%%%%%%%
%                    %
%%%%%%%%%%%%%%%%%%%%%%
A=DAT1.A D0=A A=DAT0.A
LC 02B88
?A‹C.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
?D‹0.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
@

 

Retour