%-----------------------------------------------------------------------------%
% Intro.masd                                                                  %
%-----------------------------------------------------------------------------%
% Routine de gestion de la presentation                                       %
%-----------------------------------------------------------------------------%

% Recuperation image
SKUBL {
  /Presentation.grb
} C=RSTK

% Recopie image (note : ça serait mieux d'utiliser la routine de la ROM)
D0=C
D1=(5)ECR2 C=DAT1.A
D1=00120 DAT1=C.A
D1=C
LC 10F
{
  A=DAT0.16 DAT1=A.16
  D1+16 D0+16
  C-1.X UPNC
}

% Attente touche
{
 LC 1FF
 !?FL=0.0 OUT=C=IN
 !?FL=1.0 GOSBVL 00017
 ?C=0.X UP
}

@