HPHP48-D–*ðýPRO,*GOSBVL 0679B
@0@PäDTDÀ¢Spô4%dÅcsC$£ÔCD¤@ÓC³R£5Ôƒ”¢DVIREV-À+Ì- ø›g414C,*€j:q4øHqÔ8Á¢~(¡ôiW”øqÚéøÒg$a„€¼Œ`@T45•ädÀ¢ã@Sddddddddddddddddddddddddd4Sddddddddddddddddddddddddd4csS$4S„CDdcƒ3c3„3„3cs3csCD”CTsCDdDTsCDDDtsscDDTc3csCDDTcDDdDTsCDDDtctcDDTc3csCT#DTc$TdDTsCDDDtctcDDTS3cc3S„scdcƒCDDcctcDDTS3csCd$DDt#TdDtCDDDDtctcDDT33csCd$DDtCDdDt#DDDDtctcDDT33csCd$DTsCDdDtsCDDDtsscDDTs3csCd$4S„CDdDts3SD3„sc„3cs3Sddddddddddddddddddddddddd4Sddddddddddddddddddddddddd4c##CS„3s3tC##CSC“C34Cƒ3S„sSS44sƒ3Cs34SCCSCCCCCSSC#CC3#CCCCC4CCC3tS”3ccTC#3t#CCcCCS34CCCCCDDCSC“CCS„3SD4SSDCCƒ3CCCSS„3s3t£„_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À¢#Bô4TÕTäDD•ôä¤ÂT2ôDTR4EÃ"Ã2£  0•b÷V7âvfW¦6ÂV¦àöVgWÆ67WÖ&ÆVV'‡#3C“¢fæFBv67WÖ&ÆV&Â¦0†–æVâöÖÖVV2ôDT¤ÐVFGW¦ÂVBæ6Â—ÆV¦PFW—W2W'b•$Ud¥W—"WÖÇ6VÂV6¢`—&wVÇV6&BV6RæFW&§  Tu¤FGWæF—öæÂÒæ–V&W¦WW¢vRG—Æ–6W÷V'b–&W¦ðddâvR6G6rVæ–ÆVæ¢àô&×ÆVÖVæF’ÆbVG&–F§Pçrô4U%ÄÒ–6¢VÂV¦0öææ–66§#W6WÇFF¢0"Tu&gö–6§£õT%Uõ”ô£Æö&7Â¢V2–66—