%%HP: T(3)A(D)F(.);
DIR
  ROTATE
"!PC
!0-15
'PRO
INTOFF
%poke menu pour HBL
D0= 00128
LC 37
DAT0=C B

%SX ou GX
%position dans l'ecran
D0= 70000
A=DAT0 A
LC A5C30
?A#C A   
GOYES nonSX
D0= 7050E
GOTO  nonGX
*nonSX
D0= 8068D
*nonGX

A=DAT0 A
LC 002F5
A=A+C  A
R3=A A


%affiche le graph
*boucle
GOSUB hbl
GOSUB hbl

%D0=add dessin
C=PC
GOINA dessin
A=A+C A
D0=A

%D1=add ecran
A=R3 A
D1=A

LC 1D %nb de lignes
*rotate
A=DAT0 W
A=A+A  W
GONC   nondepasse
A=A+1  B
*nondepasse
DAT1=A W
DAT0=A W
D0=D0+ 16
D1=D1+ 16
D1=D1+ 16
D1=D1+ 2
C=C-1 B
GONC rotate

%teste ENTER
LC 010
OUT=C
GOSBVL 01160
?CBIT=0 4
GOYES boucle
*wait
LC 010
OUT=C
GOSBVL 01160
?CBIT=1 4
GOYES wait
INTON
'ENDE

%gosub HBL
*hbl
D0= 00128
*hbl1
C=DAT0 B
?C=0 B
GOYES hbl1
*hbl2
C=DAT0 B
?C#0 B
GOYES hbl2
RTN

%merge le dessin
*dessin
'COCO
@"
  COCO
"$FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF30F1CF18F0EFFFFF00F0870870CFFFFFCF7E37EF3F9FFFFFCF7E37EF3F9FFFFFCF7E37EF3F9FFFFFCF7E37EF3F9FFFFF00F0870870CFFFFF30F1CF18F0EFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF38F06008FFFFEFFF38F06008FF70CFFF39F46EF9FF708FFF39F46209FF70CFFF31046209FFFFEFFF31046209FFFFFFFF3FF76EF9FFFFFFFF31046208FFFFFFFF31046208FFFFFFFF39F462FFFFFFFFFF39F462FFFFFFFFFF39F462FFFFFFFFFF39F060FFFFFFFFFF38F060FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
@"
  PRO
"GOSBVL 0679B
@"
  ENDE
"GOSBVL 067D2
A=DAT0 A
D0=D0+ 5
PC=(A)
@"
  SCROLL Code
END
