%%HP: T(3)A(D)F(.);
DIR
  TRON.RPL
    \<< # 198h TRON
VIREV XLIB 1217 0
EVAL CLLCD B\->R
"Score:" SWAP + 4
DISP 0 WAIT DROP
    \>>
  TRON
"
'PRO
!0-15
!PC
INTOFF
ST=0 15

GOSUB efface
LC 10
R0=C %absice
LC 10
R1=C %ordone
LC 01
R2=C %inc abs
LC 00
R3=C %inc ord
C=0 A
R4=C %compteur

%*******************
%voici le cerveau du
%      prog
%*******************
*main_boucle
GOSUB test_clavier

*ask_ON
LC FFF
GOSBVL 01EEC
?CBIT=1 15
GOYES quitte

A=R0
C=R2
A=A+C B
R0=A
A=R1
C=R3
C=C+A B
R1=C
A=R0
GOSUB put_pixel
GOSUB wait
GOSUB inc_compteur
?ST=0 0
GOYES main_boucle


*quitte
C=DAT1 A
D1=C
D1=D1+ 10
C=R4
DAT1=C A
ST=1 15
INTON
'ENDE

*wait
LC 004FF
*wait_boucle
C=C-1 A
GONC wait_boucle
RTN

*inc_compteur
C=R4
C=C+1 A
R4=C
RTN

*test_clavier

*gauche
LC 004
GOSBVL 01EEC
?CBIT=0 3
GOYES droite
LC FF
R2=C
LC 00
R3=C

*droite
LC 004
GOSBVL 01EEC
?CBIT=0 1
GOYES haut
LC 01
R2=C
LC 00
R3=C

*haut
LC 008
GOSBVL 01EEC
?CBIT=0 2
GOYES bas
LC FF
R3=C
LC 00
R2=C

*bas
LC 002
GOSBVL 01EEC
?CBIT=0 2
RTNYES
LC 01
R3=C
LC 00
R2=C
RTN

'PUTPIXEL
'EFFACE
@"
  PUTPIXEL
"%abs en A,ord en C
%A,B,C,D0 modifies

*put_pixel
ST=0 0
B=0 A
B=C B
B=B+B A
C=B   A
BSL   A
C=C+B A

B=0 A
B=A A
BSRB A
BSRB A
B=B+C A
D0= 7050E
C=DAT0 A
C=C+B A
D0=C
GOSUB witch_pix
A=DAT0 B
B=A A
A=A!C B
DAT0=A B
B=B&C A
?B=0 B
RTNYES
ST=1 0
RTN


*witch_pix
LC 01
?ABIT=0 1
GOYES pix1-2
C=C+C A
C=C+C A
*pix1-2
?ABIT=0 0
RTNYES
C=C+C A
RTN

@"
  EFFACE
"%un bel ecran tout propre
*efface
D0= 7050E
A=DAT0 A
D0=A
GOSUB noire
LC 35
D=C B
C=0 W
LC 1
*b_efface
DAT0=C W
D0=D0+ 16
A=0   W
DAT0=A W
D0=D0+ 16
A=A+4 B
DAT0=A B
D0=D0+ 2
D=D-1 B
GONC b_efface
GOSUB noire
RTN

*noire
A=0 W
A=A-1 W
DAT0=A W
D0=D0+ 16
DAT0=A W
D0=D0+ 16
DAT0=A B
D0=D0+ 2
RTN

@"
  PRO
"GOSBVL 0679B
@"
  ENDE
"GOSBVL 067D2
A=DAT0 A
D0=D0+ 5
PC=(A)
@"
  VIREV NEWOB Code
END