fichier de la présentation: pres.s

 

%PRES%%%%%%%%%%%%%%%%%
%                    %
%%%%%%%%%%%%%%%%%%%%%%
**DISP_PRE
GOSUBL PRES
*PRES
C=RSTK D1=C
D0= 0018E A=DAT0.A D0=A
LC 87 DO { A=DAT1.W DAT0=A.W
D0=D0+ 16 D1=D1+ 16 C--.B } WHILENC
D0= 00193 A=DAT0.A D0=A
LC 87 DO { A=DAT1.W DAT0=A.W
D0=D0+ 16 D1=D1+ 16 C--.B } WHILENC
*NSTART
LC 010 GOSBVL [INKEY]
?CBIT=0.4 GOYES NSTART
**CLS
D0= 0018E A=DAT0.A D0=A
A=0.W LC 87 DO { DAT0=A.W D0=D0+ 16 C--.B } WHILENC
D0= 00193 A=DAT0.A D0=A
A=0.W LC 87 DO { DAT0=A.W D0=D0+ 16 C--.B } WHILENC
RTN
@

 

 

Retour