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
@