HPHP48-D*   PRO,* GOSBVL 0679B
@0 @PDTDS p4%dcsC$CD@CR 5ԃ D VIREV-+- g414C,*j:q4Hq8~(iWqg$a `@T45d@Sddddddddddddddddddddddddd4Sddddddddddddddddddddddddd4csS$4SCDdc3c333cs3csCDCTsCDdDTsCDDDtsscDDTc3csCDDTcDDdDTsCDDDtctcDDTc3csCT#DTc$TdDTsCDDDtctcDDTS3cc3SscdcCDDcctcDDTS3csCd$DDt#TdDtCDDDDtctcDDT33csCd$DDtCDdDt#DDDDtctcDDT33csCd$DTsCDdDtsCDDDtsscDDTs3csCd$4SCDdDts3SD3sc3cs3Sddddddddddddddddddddddddd4Sddddddddddddddddddddddddd4c##CS3s3tC##CSCC34C3SsSS44s3Cs34SCCSCCCCCSSC#CC3#CCCCC4CCC3tS3ccTC#3t#CCcCCS34CCCCCDDCSCCCS3SD4SSDCC3CCCSS3s3t _ CODE,* !PC
!0-15
%    UN PETIT UTIL
% DEBILE POUR PROTEGER
%      VOTRE HP

'PRO
GOSBVL 01115
*debut

%  reserve un ecran
LC 00881
GOSBVL 05B7D
CD0EX
?CBIT=0 0,GOYES address_paire
C=C+1 A
*address_paire
D0= 00120,DAT0=C A
D0=C,B=C A

%       efface
LC 87
A=0 W
*efface
DAT0=A W,D0=D0+ 16
C=C-1 B,GONC efface

%   barre de menus
D0= 00128,LC 3F,DAT0=C B

% afficher le dessin
LC 00220,C=C+B A,D0=C
C=PC,GOINA dessin,A=A+C A,D1=A
LC 2EB
*recopi_dessin
A=DAT1 P,DAT0=A P
D0=D0+ 1,D1=D1+ 1
C=C-1 X,GONC recopi_dessin


%      eteindre
*eteindre
D1= 0010C
A=DAT1 P,ABIT=0 0,DAT1=A P
D0= 00100,C=0 A,DAT0=C P
LC FF,*boucle,C=C-1 B,GONC boucle
SHUTDN
LC 8,DAT0=C P
ABIT=1 0,DAT1=A P

%     test du code
B=0 A

*debut_test
C=PC,GOINA code,A=A+C A,D1=A
LC 02,D=C B

*waitkey
LC 1FF,OUT=C
GOSBVL 0115A
B=B+15 A
GONC temps_ok
GOTO eteindre
*temps_ok
?A=0 B,GOYES waitkey

 C=DAT1 X,OUT=C
 GOSBVL 0115A
 D1=D1+ 3,C=DAT1 B,D1=D1- 3
 A=A&C B
?A=0 B,GOYES debut_test
GOSUB clear_buffer

D=D-1 B
GOC code_ok
D1=D1+ 5
GOTO waitkey

*code_ok
%    restauration
D0= 7050E,A=DAT0 A
D0= 00120,DAT0=A A
D0= 00128,LC 37,DAT0=C B
GOSBVL 010E5
'ENDE

*clear_buffer
 C=DAT1 X,OUT=C
 GOSBVL 0115A
?A#0 B,GOYES clear_buffer
RTN

*code
$20080
$20040
$20020

*dessin
'DESSIN
@	0@66# B4TTDD T2DTR4E"20bV7vfW6VVgW67W&VV'#3CfFBv67W&V&0VVV2DTVFGWVB6VPFWW2W'b$UdW"W6VV6`&wVV6&BV6RFW& TuFGWFV&WWWvRGƖ6WV'b&WddvR6G6rVV&VVFbVG&FPr4U%6VV066#W6WFF0"Tu&g6 T%U&7V266
