**********************        
*o------------------o*
*|                  |*
*| Dragon Ball Z HP |*
*|                  !*
*o----<by Sammy>----o*
**********************        
*© 1996 Capsule Corp.*
*All Rights Reserved *
**********************        

GOSBVL 0679B
ST=0 15
INTOFF

**********************        
* Réservation        *
**********************        
C=DAT1 A
C=C+16 A
C=C+4 A
D0= 800F5
DAT0=C A
LA 00EE0
A=A+C A
D0=D0+ 5
DAT0=A A
LA 00022
A=A+C A
D0= 8013A
DAT0=A A

LA 030EE
D0= 8014C
DAT0=A A

A=0 B
D0= 8015A
DAT0=A B

A=0 W
D0= 80166
DAT0=A 10
D0=D0+ 10
DAT0=A 10

**********************        
* Récupération       *
**********************        
D1=D1+ 5
GOTO Pas_Prend
*Prend
A=DAT1 A
A=A+16 A
A=A+4 A
DAT0=A A
RTN
*C'est_parti
C=DAT0 W
D1=A
DAT1=C W
A=A+16 A
D0=D0+ 16
?B>A A
GOYES C'est_parti
RTN
*C'est_parti_2
D1=A
GOSUB Splot
D0=D0- 16
D0=D0- 16
D1=D1+ 2
GOSUB Splot
D0=D0+ 2
D1=D1+ 2
AD1EX
?B>A A
GOYES C'est_parti_2
RTN
*Splot
C=DAT0 W
DAT1=C W
D0=D0+ 16
D1=D1+ 16
C=DAT0 W
DAT1=C W
D0=D0+ 16
D1=D1+ 16
C=DAT0 B
DAT1=C B
RTN
*D_Kal
LC 00022
B=C A
D0= 800F5
C=DAT0 A
C=C+16 A
D1=C
D1=D1+ 1
D=C A
LC 01100
C=C+D A
CDEX A
*D_but
D0=C
A=DAT0 16
DAT1=A 16
D0=D0- 16
D1=D1- 16
A=DAT0 16
DAT1=A 16
A=0 S
DAT0=A S
D1=D1+ 16
D1=D1+ 16
D1=D1+ 16
D1=D1+ 2
C=C+B A
?C<D A
GOYES D_but
GOSUB Enter?
GOSUBL Tempo2
GOSUBL Image_2
GOSUB Kame_1
GOSUBL Tempo
GOSUBL Tempo2
GOSUBL Image_1
GOSUB Att
GOSUB Att
GOSUB Enter?
GOSUBL Tempo2
GOSUBL Image_2
GOSUB Kame_2
GOSUBL Tempo
GOSUBL Tempo2
GOSUBL Image_1
GOSUB Att
GOSUB Att
GOSUB Att
GOSUB Enter?
C=C+1 S
RTN
*D_Kal_Pas
GOSUB Enter?
GOSUBL Tempo2
GOSUBL Image_2
GOSUB Kame_2
GOSUBL Tempo
GOSUBL Tempo2
GOSUBL Image_1
GOSUB Att
GOSUB Att
GOSUB Enter?
GOSUBL Tempo2
GOSUBL Image_2
GOSUB Kame_4
GOSUBL Tempo
GOSUBL Tempo2
GOSUBL Image_1
GOSUB Att
GOSUB Att
GOSUB Enter?
C=C-1 S
RTN
*Kame_2
D0= 800FF
A=DAT0 A
A=A+7 A
GOTO C_Kame
*Kame_3
D0= 800FF
A=DAT0 A
A=A+7 A
LC 01B00
A=A+C A
GOTO C_Kame
*Kame_1
D0= 800FF
A=DAT0 A
A=A+7 A
LC 00D80
A=A+C A
GOTO C_Kame
*Kame_4
D0= 800FF
A=DAT0 A
A=A+7 A
LC 006C0
A=A+C A
*C_Kame
LC 00000
P=C 15
C=P 0
P= 0
A=A-C A
D0=A
D1= 800F5
C=DAT1 A
D=C A
LC 00770
D=D+C A
LC 00022
B=C A
LC 00990
C=C+D A
CDEX A
P=C 15
*D_Kame
D1=C
A=DAT0 WP
D0=D0+ 16
C=DAT0 WP
A=A&C WP
DAT1=A WP
D0=D0- 16
CD1EX
C=C+B A
D1=C
A=DAT0 WP
D0=D0+ 8
C=DAT0 WP
A=A&C WP
DAT1=A WP
D0=D0+ 16
CD1EX
C=C+B A
?C<D A
GOYES D_Kame
P= 0
RTN
*Att
GOSUBL Tempo2
GOSUBL Image_2
GOSUBL Tempo2
GOSUBL Tempo
GOSUBL Tempo2
GOSUBL Image_1
RTN
*Wait_Key
GOSUB Att
GOSBVL 00C74
RTNC
LC 1FF
GOSBVL 01EEC
?C=0 X
GOYES Wait_Key
RTN
*Wait_PasKey
GOSUB Att
LC 1FF
GOSBVL 01EEC
?C‹0 X
GOYES Wait_PasKey
GOSBVL 00C74
GOC Wait_PasKey
RTN
*Test_ONAF
GOSUB Att
LC 100
GOSBVL 01EEC
?CBIT=0 0
GOYES Pas_ONAF
LC 002
GOSBVL 01EEC
?CBIT=0 4
GOYES Pas_ONAF
D0= 8015B
A=0 B
A=DAT0 1
A=A+1 B
LC 03
A=A&C B
DAT0=A 1
?A‹C B
GOYES Papas_ONAF
GOSUBL Nofl
*Papas_ONAF
GOTO Wait_PasKey
*Pas_ONAF
GOSBVL 00C74
GOC Test_ONAF
RTN
*Enter?
GOSBVL 00C74
RTNNC
GOTO Cancelled
*D_Kal_2
LC 00022
B=C A
D0= 800F5
C=DAT0 A
C=C+16 A
D1=C
D1=D1+ 1
D=C A
LC 01100
C=C+D A
CDEX A
*D_but_2
D0=C
A=DAT0 16
DAT1=A 16
D0=D0- 8
D1=D1- 8
A=DAT0 8
DAT1=A 8
A=0 S
DAT0=A S
D1=D1+ 10
D1=D1+ 16
D1=D1+ 16
C=C+B A
?C<D A
GOYES D_but_2
GOSUBL Image_1
GOSUBL Tempo2
GOSUBL Image_2
GOSUBL Tempo2
RTN
*Pas_Prend
D0= 800FF
GOSUB Prend
D0= 80104
D1=D1+ 5
GOSUB Prend
D0= 8010E
D1=D1+ 5
GOSUB Prend

D0= 8010E
A=DAT0 A
D0= 80161
LC 04728
A=A+C A
DAT0=A A
LC 00F0C
A=A-C A
D0=D0- 5
DAT0=A A
D0= 80155
DAT0=A A

***********************   
* On recopie la pile *
********************** 
D0= 8068D
C=DAT0 A
D0=C
D1= 800F5
A=DAT1 A
LC 00EE0
C=C+A A
B=C A
GOSUB C'est_parti_2

D0= 80695
C=DAT0 A
D0=C
D1= 800FA
A=DAT1 A
LC 00220
C=C+A A
B=C A
GOSUB C'est_parti_2

* La marge...
D1= 00125
LA 022
B=A X
D0= 800F5
A=DAT0 1
D0= 00100
C=DAT0 1
CBIT=0 0
CBIT=0 1
CBIT=0 2
?ABIT=0 0
GOYES Pas_Marge
CBIT=1 2
B=B-2 X
D0= 00100
*Pas_Marge
A=B X
DAT0=C 1
DAT1=A X

* Hauteur menu...
D0= 8069A
A=DAT0 B
LC 3F
C=C!A B
D0= 00128
DAT0=C B
* Indicateur busy...
D0= 0010B
C=DAT0 B
CBIT=0 4
DAT0=C B
* On affiche l'écran
D0= 800F5
C=DAT0 A
D0= 00120
DAT0=C A

*******************+**
*  L' intro en bois  *
*********** (de fer) *
          ************
D0= 10000
*Attente
D0=D0- 1
GONC Attente

***************+*+****
* Tortue géniale...
****************+*+***

C=0 S
D=0 S

*D_Kalage
GOSUB D_Kal
D=D+1 S
D=D+1 S
GONC D_Kalage

GOSUB Att
GOSUB Att
C=C-1 S
GOSUB Kame_3

*Knock
GOSUB D_Kal_2
GOSUB Enter?
D=D+1 S
D=D+1 S
GONC Knock
GOSUB Kame_2
*Knock2
GOSUB D_Kal_2
GOSUB Enter?
D=D+1 S
GONC Knock2
GOSUB D_Kal_2

***+**********+*******
*  Il se barre ...   *
********+*******+*****

P= 7
C=P 15
P= 0
D=0 S

*D_Kalage_Pas
GOSUB D_Kal_Pas
D=D+1 S
D=D+1 S
GONC D_Kalage_Pas

****************+**+**
* Le titre tombe...
****************+***+*

C=0 A
*Descend
R0=C A
GOSUBL Image_2
D0= 8010E
C=DAT0 A
LA 02A78
C=C+A A
A=R0 A
C=C-A A
D0=C
D1= 800F5
A=DAT1 A
C=R0 A
C=C+A A
B=C A
*C'est_parti_3
C=DAT0 W
D1=A
DAT1=C W
A=A+16 A
D0=D0+ 16
?B>A A
GOYES C'est_parti_3
GOSUBL Image_1
GOSUBL Tempo2
GOSUBL Image_2
GOSUBL Tempo2
GOSUB Enter?
C=R0 A
LA 00110
C=C+A A
LA 01188
?A‰C A
GOYES Pas_Descend
GOTO Descend
*Pas_Descend
GOTO Blobbed

*Cancelled
GOSUBL Wait_PasKey
D0= 8010E
C=DAT0 A
LA 01978
C=C+A A
D0=C
D1= 800F5
A=DAT1 A
LC 01100
C=C+A A
B=C A
GOSUB C'est_parti

*Blobbed

*******+**************
* On Attend une touche
***** (+Musique?) ****
    ***************

GOSUB Wait_PasKey
GOSUB Wait_Key

GOSUB Wait_PasKey

*******+*****+****+***
* Bôôô Menûûûûûûûuuh *
*********+****+*****+*

GOTO Pas_Schnorflub
*Broutoscreen
D1= 800F5
A=DAT1 A
LC 01100
C=C+A A
B=C A
C=0 W
*C'est_partit
D1=A
DAT1=C W
A=A+16 A
?B>A A
GOYES C'est_partit
RTN
*Back_to_F
CD0EX
LA 00080
C=C-A A
D0=C
*Menuh
P= 15
LC 3
P= 0
*Ouarchflobneuh
C=DAT0 15
DAT1=C 15
D1=D1+ 15
D0=D0+ 15
C=C-1 S
GONC Ouarchflobneuh
C=DAT0 8
DAT1=C 8
D1=D1+ 8
RTN
*Sous_Titre
D1= 800F5
A=DAT1 A
LC 00D48
A=A+C A
D1=A
GOTO huuuneM_ôB
*Menûûûûûüüüüüüüuuuuh
D1= 800F5
A=DAT1 A
D1=A
*huuuneM_ôB
D0= 8010E
A=DAT0 A
LC 02E74
C=C+A A
D0=C
GOSUB Menuh
D0= 8010E
A=DAT0 A
LC 02EB8
C=C+A A
D0=C
GOSUB Menuh
D0= 8010E
A=DAT0 A
LC 02EFC
C=C+A A
D0=C
GOSUB Menuh
P= 15
LA 7
P= 0
*Start_of_début
D0= 8010E
A=DAT0 A
LC 02F40
C=C+A A
D0=C
GOSUB Menuh
A=A-1 S
GONC Start_of_début
GOSUB Back_to_F
GOSUB Back_to_F
GOSUB Back_to_F
RTN
*Texte_Men
LC 02F84
GOSUBL Ecrit_Gd
LC 02FA1
GOSUBL Ecrit
LC 02FBC
GOSUBL Ecrit
LC 02FDD
GOSUBL Ecrit
LC 02FF2
GOSUBL Ecrit
LC 03007
GOSUBL Ecrit
LC 0304C
GOSUBL Ecrit_Gd
D0= 8014C
C=DAT0 A
GOSUBL Ecrit
RTN

*Texte_Hab
LC 030DF
GOSUBL Ecrit
LC 030C8
GOSUBL Ecrit
RTN

*Texte_Opt
LC 0313C
GOSUBL Ecrit_Gd
LC 0315B
GOSUBL Ecrit
LC 03178
GOSUBL Ecrit
LC 03195
GOSUBL Ecrit
LC 031A8
GOSUBL Ecrit
LC 031C5
GOSUBL Ecrit
LC 0324A
GOSUBL Ecrit
LC 03287
GOSUBL Ecrit_Gd
LC 03290
GOSUBL Ecrit_Gd
RTN

*Pas_Schnorflub
GOSUBL Image_2
GOSUB Broutoscreen
GOSUB Menûûûûûüüüüüüüuuuuh
GOSUB Sous_Titre
GOSUB Texte_Men

D0= 80147
LC 03069
DAT0=C A
ST=0 2
D=0 S
*Start_Main_Menu
D=D+1 S
D=D+1 S
D=D+1 S
D=D+1 S
GONC Bneurk
GOSUB Change_Main
*Bneurk
GOSUBL Tempo2
GOSUBL Image_1
GOSUB Kiz
GOSUBL Tempo2
GOSUBL Image_2
GOSBVL 00C74
GONC Pas_Esc
GOSUB Yofl
GOSUB Wait_PasKey
GOLONG End
*Pas_Esc
GOSUBL Tempo2
GOSUBL Tempo
GOTO Start_Main_Menu

*Change_Main
?ST=1 2
GOYES Blanc
ST=1 2
D0= 80147
C=DAT0 A
GOLONG Ecrit_Gd
*Blanc
ST=0 2
D=D+1 S
D=D+D S
D=D+D S
D0= 80147
C=DAT0 A
D0= 8010E
A=DAT0 A
A=A+C A
D0=A
A=DAT0 A
B=0 A
B=A B
ASR A
ASR A
A=A+B A
LC 208
GOLONG Carré_Blanc

*Kiz
LC 080
GOSBVL 01EEC
?CBIT=0 1
GOYES Pas__MMenu
GOSUB Nofl
LA 0308D
GOSUB Préli
GOSUB Previous_
AD0EX
D0= 8010E
C=DAT0 A
A=A-C A
D0= 80147
DAT0=A A
GOSUB Change_Main
GOSUB Wait_PasKey
RTN
*Pas__MMenu
LC 040
GOSBVL 01EEC
?CBIT=0 1
GOYES Pas__MMenu
GOSUB Nofl
LA 03069
GOSUB Préli
GOSUB Following_
AD0EX
D0= 8010E
C=DAT0 A
A=A-C A
D0= 80147
DAT0=A A
GOSUB Change_Main
GOSUB Wait_PasKey
RTN
*Pas__MMenu
LC 010
GOSBVL 01EEC
?CBIT=0 4
RTNYES
D0= 80147
A=DAT0 A
LC 0308D
?C=A A
GOYES Pasapajou
LC 03069
?C‹A A
GOYES Sapajou
*Pasapajou
GOSUB Yofl
GOSUB Wait_PasKey
GOLONG Sajou
*Sapajou
LC 03084
?C‹A A
GOYES Paboot
GOSUB Yofl
GOSUB Wait_PasKey
GOTO Haboot
*Paboot
LC 03072
?C‹A A
GOYES Pas_Chgt_Mode
GOSUB Chgt_Mode
GOSUB Yofl
GOSUB Wait_PasKey
RTN
*Pas_Chgt_Mode
GOSUB Yofl
GOSUB Wait_PasKey
GOTO Options
RTN

*Préli
D0= 8010E
C=DAT0 A
A=A+C A
D0=A
D1= 80147
A=DAT1 A
A=A+C A
D1=A
A=DAT1 A
RTN

*Previous_
C=DAT0 A
D0=D0- 9
?A=C A
RTNYES
GOTO Previous_

*Following_
C=DAT0 A
D0=D0+ 9
?A=C A
RTNYES
GOTO Following_

*Nofl
D=0 S
?ST=0 2
RTNYES
GOSUB Change_Main
RTN

*Yofl
D=0 S
?ST=1 2
RTNYES
GOSUB Change_Main
RTN

*Chgt_Mode
LA 0062E
LC 906
GOSUBL Carré_Blanc
D0= 8014C
A=DAT0 A
LC 030EE
B=C A
LC 03107
?A=B A
GOYES Fini_Chg
B=C A
LC 03116
?A=B A
GOYES Fini_Chg
B=C A
LC 03125
?A=B A
GOYES Fini_Chg
LC 030EE
*Fini_Chg
DAT0=C A
GOSUBL Ecrit
RTN

*Page_1
GOSUBL Image_2
GOSUB Broutoscreen
GOSUB Texte_Hab
LC 032D1
GOSUBL Ecrit
LC 03310
GOSUBL Ecrit
LC 0334F
GOSUBL Ecrit
LC 0338E
GOSUBL Ecrit
LC 033CF
GOSUBL Ecrit
LC 03410
GOSUBL Ecrit
D0= 8015B
A=DAT0 1
LC 3
A=A&C B
DAT0=A 1
RTN

*Page_4
GOSUBL Image_2
GOSUB Broutoscreen
GOSUB Menûûûûûüüüüüüüuuuuh
GOSUB Texte_Hab
LC 03437
GOSUBL Ecrit
LC 03466
GOSUBL Ecrit
LC 034A1
GOSUBL Ecrit
LC 034DE
GOSUBL Ecrit
LC 03503
GOSUBL Ecrit
D0= 8015B
A=DAT0 1
ABIT=1 2
ABIT=1 3
DAT0=A 1
RTN

*Page_2
GOSUBL Image_2
GOSUB Broutoscreen
GOSUB Menûûûûûüüüüüüüuuuuh
GOSUB Texte_Hab
LC 0357C
GOSUBL Ecrit_Gd
LC 03538
GOSUBL Ecrit_Gd
LC 03547
GOSUBL Ecrit
LC 0358D
GOSUBL Ecrit
LC 035D2
GOSUBL Ecrit
LC 03617
GOSUBL Ecrit_Gd
LC 03620
GOSUBL Ecrit
LC 03665
GOSUBL Ecrit_Gd
LC 0367E
GOSUBL Ecrit
D0= 8015B
A=DAT0 1
ABIT=1 2
ABIT=0 3
DAT0=A 1
RTN

*Page_3
GOSUBL Image_2
GOSUB Broutoscreen
GOSUB Menûûûûûüüüüüüüuuuuh
GOSUB Texte_Hab
LC 036C3
GOSUBL Ecrit_Gd
LC 036DA
GOSUBL Ecrit
LC 03707
GOSUBL Ecrit
LC 0374C
GOSUBL Ecrit
LC 03791
GOSUBL Ecrit
LC 037D6
GOSUBL Ecrit
D0= 8015B
A=DAT0 1
ABIT=0 2
ABIT=1 3
DAT0=A 1
RTN

*Haboot
GOSUB Page_1

D0= 80147
LC 030BE
DAT0=C A
ST=0 2
D=0 S
*Start_About
D=D+1 S
D=D+1 S
D=D+1 S
D=D+1 S
GONC Bneurkabouerk
GOSUB Change_Main
*Bneurkabouerk
GOSUBL Tempo2
GOSUBL Image_1
GOSUB Kizaboot
GOSUBL Tempo2
GOSUBL Image_2
GOSBVL 00C74
GONC Pas_Esca
GOSUB Yofl
GOSUBL Wait_PasKey
GOTO Pas_Schnorflub
*Pas_Esca
GOSUBL Tempo2
GOSUBL Tempo
GOTO Start_About

*Next
D0= 8015B
A=DAT0 1
LC 0C
A=A&C B
?A‹0 B
GOYES Pas_P1
GOSUB Page_2
GOTO Start_About
*Pas_P1
LC 4
?A‹C B
GOYES Pas_P2
GOSUB Page_3
GOTO Start_About
*Pas_P2
LC 8
?A‹C B
GOYES Pas_P3
GOSUB Page_4
GOTO Start_About
*Pas_P3
GOSUBL Image_2
GOTO Start_About

*Previous
D0= 8015B
A=DAT0 1
LC 0C
A=A&C B
?A‹0 B
GOYES Pas_P-1
GOSUBL Image_2
GOTO Start_About
*Pas_P-1
LC 4
?A‹C B
GOYES Pas_P-2
GOSUB Page_1
GOTO Start_About
*Pas_P-2
LC 8
?A‹C B
GOYES Pas_P-3
GOSUB Page_2
GOTO Start_About
*Pas_P-3
GOSUB Page_3
GOTO Start_About

*Kizaboot
LC 040
GOSBVL 01EEC
?CBIT=1 2
GOYES Ž_MMenu
?CBIT=0 0
GOYES PasŽ
*Ž_MMenu
GOSUB Nofl
D0= 80147
A=DAT0 A
?ABIT=1 0
GOYES Abit=1_0
LA 030B5
GOTO FiniŽ
*Abit=1_0
LA 030BE
*FiniŽ
DAT0=A A
GOSUB Change_Main
GOSUBL Wait_PasKey
*PasŽ
LC 010
GOSBVL 01EEC
?CBIT=0 4
RTNYES
GOSUB Yofl
GOSUBL Wait_PasKey
D0= 80147
A=DAT0 A
?ABIT=0 0
GOYES Pasprev
GOTO Previous
*Pasprev
GOTO Next

*Options
GOSUBL Image_2
GOSUBL Broutoscreen
GOSUB Menûûûûûüüüüüüüuuuuh
GOSUBL Sous_Titre
GOSUB Texte_Opt

GOSUB Met_Sta
GOSUB Met_Off
GOSUB Met_Trs
GOSUB Met_Pow

D0= 80147
LC 03214
DAT0=C A
ST=0 2
D=0 S
*Start_Opt
D=D+1 S
D=D+1 S
D=D+1 S
D=D+1 S
GONC Bneurkabouerko
GOSUB Change_Main
*Bneurkabouerko
GOSUBL Tempo2
GOSUBL Image_1
GOSUB Kizopt
GOSUBL Tempo2
GOSUBL Image_2
GOSBVL 00C74
GONC Pas_Esco
GOSUBL Yofl
GOSUBL Test_ONAF
GOTO Pas_Schnorflub
*Pas_Esco
GOSUBL Tempo2
GOSUBL Tempo
GOTO Start_Opt

*Kizopt
LC 080
GOSBVL 01EEC
?CBIT=0 1
GOYES Pas__Opt
GOSUB Nofl
LA 03241
GOSUB Préli
GOSUB Previous_
AD0EX
D0= 8010E
C=DAT0 A
A=A-C A
D0= 80147
DAT0=A A
GOSUB Change_Main
GOSUBL Wait_PasKey
RTN
*Pas__Opt
LC 040
GOSBVL 01EEC
?CBIT=0 1
GOYES Pas__Opt
GOSUB Nofl
LA 03214
GOSUB Préli
GOSUB Following_
AD0EX
D0= 8010E
C=DAT0 A
A=A-C A
D0= 80147
DAT0=A A
GOSUB Change_Main
GOSUBL Wait_PasKey
RTN
*Pas__Opt
LC 040
GOSBVL 01EEC
?CBIT=0 2
GOYES PasC-
GOSUBL C_Moins
GOSUBL Yofl
GOSUBL Wait_PasKey
RTN
*PasC-
?CBIT=0 0
GOYES PasC+
GOSUBL C_Plus
GOSUBL Yofl
GOSUBL Wait_PasKey
RTN
*PasC+
LC 010
GOSBVL 01EEC
?CBIT=0 4
RTNYES
D0= 80147
A=DAT0 A
LC 03238
?A‹C A
GOYES Pas_OffScr
D0= 8015A
A=DAT0 1
?ABIT=0 3
GOYES Djaoff
ABIT=0 3
GOTO Djaon
*Djaoff
ABIT=1 3
*Djaon
DAT0=A 1
GOSUB Met_Off
GOSUBL Yofl
GOSUBL Wait_PasKey
RTN
*Pas_OffScr
LC 0322F
?A‹C A
GOYES Pas_Trans
D0= 8015A
A=DAT0 1
?ABIT=0 0
GOYES Djain
ABIT=0 0
GOTO Djawi
*Djain
ABIT=1 0
*Djawi
DAT0=A 1
GOSUB Met_Trs
GOSUBL Yofl
GOSUBL Wait_PasKey
RTN
*Pas_Trans
LC 0321D
?A‹C A
GOYES Pas_Pow1
D0= 8015A
A=DAT0 1
?ABIT=0 1
GOYES Djalo1
ABIT=0 1
GOTO Djahi1
*Djalo1
ABIT=1 1
*Djahi1
DAT0=A 1
GOSUB Met_Pow
GOSUBL Yofl
GOSUBL Wait_PasKey
RTN
*Pas_Pow1
LC 03226
?A‹C A
GOYES Pas_Pow2
D0= 8015A
A=DAT0 1
?ABIT=0 2
GOYES Djalo2
ABIT=0 2
GOTO Djahi2
*Djalo2
ABIT=1 2
*Djahi2
DAT0=A 1
GOSUB Met_Pow
GOSUBL Yofl
GOSUBL Wait_PasKey
RTN
*Pas_Pow2
GOSUBL Image_2
D0= 80155
A=DAT0 A
D0= 80175
C=DAT0 A
?A=C A
GOYES Fini_Stg
D0= 8015C
*Strt_Seek
C=DAT0 A
D0=D0+ 5
?C‹A A
GOYES Strt_Seek
A=DAT0 A
?A‹0 A
GOYES Stage_Change
*Fini_Stg
D0= 8015C
*Stage_Change
A=DAT0 A
D0= 80155
DAT0=A A
GOSUBL Met_Sta
GOSUBL Yofl
GOSUBL Wait_PasKey
RTN

*Met_Off
LA 00B80
LC 806
GOSUBL Carré_Blanc
D0= 8015A
A=DAT0 1
?ABIT=1 3
GOYES Yof
LC 031FD
GOTO Off
*Yof
LC 031E8
*Off
GOSUBL Ecrit
RTN

*Met_Sta
LA 00407
LC F06
GOSUBL Carré_Blanc
LA 00416
LC 506
GOSUBL Carré_Blanc
D0= 80155
A=DAT0 A
LC 00EE0
A=A+C A
D1=A
LA 3FC0B
GOSUBL Ecrit_Spl
RTN

*Met_Trs
LA 009A1
LC 806
GOSUBL Carré_Blanc
D0= 8015A
A=DAT0 1
?ABIT=1 0
GOYES Wir
LC 032A8
GOTO Inf
*Wir
LC 03299
*Inf
GOSUBL Ecrit
RTN

*Met_Pow
LA 005E8
LC 40D
GOSUBL Carré_Blanc
D0= 8015A
A=DAT0 1
?ABIT=1 1
GOYES Hi1
LC 032C9
GOTO Lo1
*Hi1
LC 032BF
*Lo1
D0= 8010E
A=DAT0 A
A=A+C A
D1=A
LA 5D810
GOSUBL Ecrit_Spl
D0= 8015A
A=DAT0 1
?ABIT=1 2
GOYES Hi2
LC 032C9
GOTO Lo2
*Hi2
LC 032BF
*Lo2
D0= 8010E
A=DAT0 A
A=A+C A
D1=A
LA 7B410
GOSUBL Ecrit_Spl
RTN

*Sajou
D0= 8014C
A=DAT0 A
LC 030EE
?A‹C A
GOYES Pas_FreePlay
GOTO FreePlay
*Pas_FreePlay
LC 03125
?A‹C A
GOYES Pas_Training
GOTO Training
*Pas_Training
GOLONG Pas_Schnorflub

*FreePlay
GOSUBL Contraste_Out
GOSUB Init_Game
GOTO Jeu_1
RTN

*Link

RTN

*Team

RTN

*Training
GOSUBL Contraste_Out
GOSUB Init_Game
GOTO Jeu_2
RTN

*Init_Game

**********************        
* On recopie le GROB *
**********************        
D0= 80155
C=DAT0 A
D0=C
D1= 800F5
A=DAT1 A
LC 00EE0
C=C+A A
B=C A
GOSUBL C'est_parti

**********************        
* On recopie le MENU *
**********************        
D0= 8010E
C=DAT0 A
D0=C
D1= 800FA
A=DAT1 A
LC 00220
C=C+A A
B=C A
GOSUBL C'est_parti

**********************        
* Initialise valeurs *
**********************        
ST=0 2
ST=0 3
ST=0 4
ST=0 5
ST=0 8
ST=0 9

LC 54544841548404
D0= 80113
DAT0=C 14

C=0 W
D0= 80129
DAT0=C 14

LC 222
D0= 80137
DAT0=C 3

C=0 A
D0= 80143
DAT0=C 4

RTN

*Jeu_1
GOSUBL Affiche_Sprite_1
GOSUBL Affiche_Sprite_2

GOSUBL Contraste_In
GOSUBL Off?

**********************        
**********************        
**     MAIN LOOP    **
**********************        
**********************        

*Main_Loop

GOSUBL GetKeys
R4=A B
GOSUBL XMIT
*GOSUBL Sergeant_Metallic
R3=A B

GOSUBL Tempo2
GOSUBL Image_2

A=R3 B
?ABIT=0 0
GOYES Pas_End_1
GOLONG Endof_Game
*Pas_End_1

LC 010
GOSBVL 01EEC
LA 008
?A‹C X
GOYES Pas_Trb
GOSUBL Tremble
*Pas_Trb

D0= 80115
A=DAT0 X
LC 484
?A=C X
GOYES Pas_Saut_1
GOLONG Saut_1
*Pas_Saut_1

D0= 80138
C=DAT0 1
?C‹0 P
GOYES Pas_Chgt
GOSUBL Raz_C1
GOSUBL A=I1
LC 00360
C=C-A A
GOC Pas_Chgt
A=C A
GOSUBL I1=A
D0= 80113
A=DAT0 A
GOSUBL Delete_Sprite
GOSUBL Check_1
GOSUBL Affiche_Sprite_1
GOTO 2nd_1
*Pas_Chgt
GOSUBL Dec_C1

GOSUBL A=I1
LC D80
?A=C X
GOYES Broutos_1
LC 0E0
?A=C X
GOYES Broutos_1
LC E60
?A=C X
GOYES Broutos_1
LC B00
?A=C X
GOYES Broutos_1
GOTO Pas_Broutos_1
*Broutos_1
GOSUBL Pafpaf_1
*Pas_Broutos_1

D0= 80129
A=DAT0 B
?A=0 B
GOYES Bnurk_1
A=A-1 B
DAT0=A B
GOTO 1nd_1
*Bnurk_1


A=R3 B
?ABIT=0 2
GOYES Pas_Bl
GOSUBL A=I1
LC 01440
?A=C A
GOYES Ptet_Bl2
LC 7A0
?A‹C A
GOYES Pas_Bl2
*Ptet_Bl2
GOSUBL Tempo2
GOTO 1nd_1
*Pas_Bl2
GOLONG Bl_1
*Pas_Bl
GOSUBL A=I1
LC 017A0
?A=C A
GOYES Ptet_Bl3
LC 440
?A‹C A
GOYES Pas_Bl3
*Ptet_Bl3
GOLONG Normal_1
*Pas_Bl3

A=R3 B
?ABIT=0 1
GOYES Pas_Pg
?ABIT=1 5
GOYES Non_Pas_Pg
?ABIT=1 4
GOYES Pas_Pg
*Non_Pas_Pg
GOSUBL A=I1
LC 00D80
?A=C A
GOYES Ptet_Pg2
LC 10E0
?A‹C A
GOYES Pas_Pg2
*Ptet_Pg2
GOSUBL Tempo2
GOTO 1nd_1
*Pas_Pg2
D0= 80129
LA 04
DAT0=A B
GOLONG Pg_1
*Pas_Pg
GOSUBL A=I1
LC 010E0
?A=C A
GOYES Ptet_Pg3
LC 0D80
?A‹C A
GOYES Pas_Pg3
*Ptet_Pg3
GOLONG Normal_1
*Pas_Pg3

A=R3 B
?ABIT=0 3
GOYES Pas_Pd
?ABIT=1 5
GOYES Non_Pas_Pd
?ABIT=1 4
GOYES Pas_Pd
*Non_Pas_Pd
GOSUBL A=I1
LC 01B00
?A=C A
GOYES Ptet_Pd2
LC E60
?A‹C A
GOYES Pas_Pd2
*Ptet_Pd2
GOSUBL Tempo2
GOTO 1nd_1
*Pas_Pd2
D0= 80129
LA 04
DAT0=A B
GOLONG Pd_1
*Pas_Pd
GOSUBL A=I1
LC 01E60
?A=C A
GOYES Ptet_Pd3
LC B00
?A‹C A
GOYES Pas_Pd3
*Ptet_Pd3
GOLONG Normal_1
*Pas_Pd3

A=R3 B
?ABIT=0 5
GOYES Pas_B
?ST=0 8
GOYES Pas_B2
GOSUBL Tempo2
GOTO 1nd_1
*Pas_B2
GOLONG Bas_1
*Pas_B
?ST=0 8
GOYES Pas_B3
ST=0 8
GOLONG Normal_1
*Pas_B3

A=R3 B
?ABIT=0 4
GOYES Pas_Saut_Instant_1
GOLONG Saut_1
*Pas_Saut_Instant_1

?ST=0 2
GOYES Pas_G2
GOLONG Gauche_1_B
*Pas_G2
A=R3 B
?ABIT=0 6
GOYES Pas_G
GOLONG Gauche_1_A
*Pas_G


?ST=0 4
GOYES Pas_D2
GOLONG Droite_1_B
*Pas_D2
A=R3 B
?ABIT=0 7
GOYES Pas_D
GOLONG Droite_1_A
*Pas_D

LC 002
GOSBVL 01EEC
LA 001
?A‹C X
GOYES Pas_-
GOSUBL C_Moins
*Pas_-

LC 001
GOSBVL 01EEC
LA 001
?A‹C X
GOYES Pas_+
GOSUBL C_Plus
*Pas_+

*Gestion_1

GOSUBL A=I1
LC 00D80
?C‹A A
GOYES Pas_Pg_H_T_1
GOLONG Pg_T_1
*Pas_Pg_H_T_1
LC 10E0
?C‹A A
GOYES Pas_Pg_B_T_1
GOLONG Pg_T_1
*Pas_Pg_B_T_1
LC B00
?C‹A A
GOYES Pas_Pd_H_T_1
GOLONG Pd_T_1
*Pas_Pd_H_T_1
LC E60
?C‹A A
GOYES Pas_Pd_B_T_1
GOLONG Pd_T_1
*Pas_Pd_B_T_1

*Gneueueueu

*1nd_1
GOSUB Tempo
GOSUB Tempo2
*2nd_1
GOSUB Image_1

D0= 80143
A=DAT0 B
?A=0 B
GOYES Rien_Peu_1
A=A-1 B
DAT0=A B
GOSUBL Broutage_1
*Rien_Peu_1
D0= 80145
A=DAT0 B
?A=0 B
GOYES Rien_Peu2_1
A=A-1 B
DAT0=A B
GOSUBL Broutage_2
*Rien_Peu2_1

?ST=0 6
GOYES Ski1
GOSUB Tempo2
GOSUB Image_1
*Ski1
ST=0 6
GOSUB Tempo2
GOSUB Image_2

A=R4 B
?ABIT=0 0
GOYES Pas_End_2
GOLONG Endof_Game
*Pas_End_2

LC 010
GOSBVL 01EEC
LA 008
?A‹C X
GOYES Pas_Trbe
GOSUB Tremble
*Pas_Trbe



D0= 8011A
A=DAT0 X
LC 484
?A=C X
GOYES Pas_Saut_2
GOLONG Saut_2
*Pas_Saut_2

D0= 80139
C=DAT0 1
?C‹0 P
GOYES Pas_Chgt_2
GOSUBL Raz_C2
GOSUBL A=I2
LC 00360
C=C-A A
GOC Pas_Chgt_2
A=C A
GOSUBL I2=A
D0= 80118
A=DAT0 A
GOSUBL Delete_Sprite
GOSUBL Check_2
GOSUBL Affiche_Sprite_2
GOTO 2nd_2
*Pas_Chgt_2
GOSUBL Dec_C2

GOSUBL A=I2
LC D80
?A=C X
GOYES Broutos_2
LC 0E0
?A=C X
GOYES Broutos_2
LC E60
?A=C X
GOYES Broutos_2
LC B00
?A=C X
GOYES Broutos_2
GOTO Pas_Broutos_2
*Broutos_2
GOSUBL Pafpaf_2
*Pas_Broutos_2

D0= 8012B
A=DAT0 B
?A=0 B
GOYES Bnurk_2
A=A-1 B
DAT0=A B
GOTO 1nd_2
*Bnurk_2

A=R4 B
?ABIT=0 2
GOYES Pas_Bl+
GOSUBL A=I2
LC 01440
?A=C A
GOYES Ptet_Bl2+
LC 7A0
?A‹C A
GOYES Pas_Bl2+
*Ptet_Bl2+
GOSUB Tempo2
GOTO 1nd_2
*Pas_Bl2+
GOLONG Bl_2
*Pas_Bl+
GOSUBL A=I2
LC 017A0
?A=C A
GOYES Ptet_Bl3+
LC 440
?A‹C A
GOYES Pas_Bl3+
*Ptet_Bl3+
GOLONG Normal_2
*Pas_Bl3+

A=R4 B
?ABIT=0 1
GOYES Pas_Pg+
?ABIT=1 5
GOYES Non_Pas_Pg+
?ABIT=1 4
GOYES Pas_Pg+
*Non_Pas_Pg+
GOSUBL A=I2
LC 00D80
?A=C A
GOYES Ptet_Pg2+
LC 10E0
?A‹C A
GOYES Pas_Pg2+
*Ptet_Pg2+
GOSUB Tempo2
GOTO 1nd_2
*Pas_Pg2+
D0= 8012B
LA 04
DAT0=A B
GOLONG Pg_2
*Pas_Pg+
GOSUBL A=I2
LC 010E0
?A=C A
GOYES Ptet_Pg3+
LC 0D80
?A‹C A
GOYES Pas_Pg3+
*Ptet_Pg3+
GOLONG Normal_2
*Pas_Pg3+

A=R4 B
?ABIT=0 3
GOYES Pas_Pd+
?ABIT=1 5
GOYES Non_Pas_Pd+
?ABIT=1 4
GOYES Pas_Pd+
*Non_Pas_Pd+
GOSUBL A=I2
LC 01B00
?A=C A
GOYES Ptet_Pd2+
LC E60
?A‹C A
GOYES Pas_Pd2+
*Ptet_Pd2+
GOSUB Tempo2
GOTO 1nd_2
*Pas_Pd2+
D0= 8012B
LA 04
DAT0=A B
GOLONG Pd_2
*Pas_Pd+
GOSUBL A=I2
LC 01E60
?A=C A
GOYES Ptet_Pd3+
LC B00
?A‹C A
GOYES Pas_Pd3+
*Ptet_Pd3+
GOLONG Normal_2
*Pas_Pd3+

A=R4 B
?ABIT=0 5
GOYES Pas_Be
?ST=0 9
GOYES Pas_B2e
GOSUB Tempo2
GOTO 1nd_2
*Pas_B2e
GOLONG Bas_2
*Pas_Be
?ST=0 9
GOYES Pas_B3e
ST=0 9
GOLONG Normal_2
*Pas_B3e

A=R4 B
?ABIT=0 4
GOYES Pas_Saut_Instant_2
GOLONG Saut_2
*Pas_Saut_Instant_2

?ST=0 5
GOYES Pas_G2e
GOLONG Gauche_2_B
*Pas_G2e
A=R4 B
?ABIT=0 6
GOYES Pas_Ge
GOLONG Gauche_2_A
*Pas_Ge


?ST=0 3
GOYES Pas_D2e
GOLONG Droite_2_B
*Pas_D2e
A=R4 B
?ABIT=0 7
GOYES Pas_De
GOLONG Droite_2_A
*Pas_De


LC 002
GOSBVL 01EEC
LA 001
?A‹C X
GOYES Pas_-e
GOSUB C_Moins
*Pas_-e


LC 001
GOSBVL 01EEC
LA 001
?A‹C X
GOYES Pas_+e
GOSUB C_Plus
*Pas_+e

*Gestion_2

GOSUBL A=I2
LC 00D80
?C‹A A
GOYES Pas_Pg_H_T_2
GOLONG Pg_T_2
*Pas_Pg_H_T_2
LC 10E0
?C‹A A
GOYES Pas_Pg_B_T_2
GOLONG Pg_T_2
*Pas_Pg_B_T_2
LC B00
?C‹A A
GOYES Pas_Pd_H_T_2
GOLONG Pd_T_2
*Pas_Pd_H_T_2
LC E60
?C‹A A
GOYES Pas_Pd_B_T_2
GOLONG Pd_T_2
*Pas_Pd_B_T_2

*Preupeuneu2

*1nd_2
GOSUB Tempo
GOSUB Tempo2
*2nd_2
GOSUB Image_1
?ST=0 6
GOYES Ski2
GOSUB Tempo2
GOSUB Image_1
*Ski2
ST=0 6

GOTO Main_Loop

**********************        
**********************        
** END OF MAIN LOOP **
**********************        
**********************        

*Jeu_2

GOSUBL Affiche_Sprite_1
ST=1 1
GOSUBL Affiche_Machine

GOSUBL Contraste_In
GOSUBL Off?

**********************        
**********************        
**  MAIN LOOP 2 !   **
**********************        
**********************        

*Main_Loop_2

A=0 B
R4=A B
GOSUBL GetKeys
**GOSUBL Sergeant_Metallic
R3=A B
GOSUBL GetKeys
C=R3 B
C=C!A B
R3=C B

GOSUB Tempo2
GOSUB Image_2

A=R3 B
?ABIT=0 0
GOYES Pas_End_1_II
GOLONG Endof_Game
*Pas_End_1_II

D0= 80115
A=DAT0 X
LC 484
?A=C X
GOYES Pas_Saut
GOTO Saut
*Pas_Saut

D0= 80138
C=DAT0 1
?C‹0 P
GOYES Pas_Chgt_II
GOSUBL Raz_C1
GOSUBL A=I1
LC 00360
C=C-A A
GOC Pas_Chgt_II
A=C A
GOSUBL I1=A
D0= 80113
A=DAT0 A
GOSUBL Delete_Sprite
GOSUBL Check_1_II
GOSUBL Affiche_Sprite_1
GOTO 2nd_1_II
*Pas_Chgt_II
GOSUBL Dec_C1

GOSUBL A=I1
LC D80
?A=C X
GOYES Broutos_1_II
LC 0E0
?A=C X
GOYES Broutos_1_II
LC E60
?A=C X
GOYES Broutos_1_II
LC B00
?A=C X
GOYES Broutos_1_II
GOTO Pas_Broutos_1_II
*Broutos_1_II
GOSUBL Pafpaf_1
*Pas_Broutos_1_II

D0= 80129
A=DAT0 B
?A=0 B
GOYES Bnurk_1_II
A=A-1 B
DAT0=A B
GOTO 1nd_1_II
*Bnurk_1_II



A=R3 B
?ABIT=0 2
GOYES Pas_Bl_II
GOSUBL A=I1
LC 01440
?A=C A
GOYES Ptet_Bl2_II
LC 017A0
?A‹C A
GOYES Pas_Bl2_II
*Ptet_Bl2_II
GOSUB Tempo2
GOTO 1nd_1_II
*Pas_Bl2_II
GOLONG Bl_1_II
*Pas_Bl_II
GOSUBL A=I1
LC 017A0
?A=C A
GOYES Ptet_Bl3_II
LC 01440
?A‹C A
GOYES Pas_Bl3_II
*Ptet_Bl3_II
GOTO Normal_1_II
*Pas_Bl3_II

A=R3 B
?ABIT=0 1
GOYES Pas_Pg_II
?ABIT=1 5
GOYES Non_Pas_Pg_II
?ABIT=1 4
GOYES Pas_Pg_II
*Non_Pas_Pg_II
GOSUBL A=I1
LC 00D80
?A=C A
GOYES Ptet_Pg2_II
LC 010E0
?A‹C A
GOYES Pas_Pg2_II
*Ptet_Pg2_II
GOSUB Tempo2
GOTO 1nd_1_II
*Pas_Pg2_II
D0= 80129
LA 04
DAT0=A B
GOLONG Pg_1_II
*Pas_Pg_II
GOSUBL A=I1
LC 010E0
?A=C A
GOYES Ptet_Pg3_II
LC 00D80
?A‹C A
GOYES Pas_Pg3_II
*Ptet_Pg3_II
GOTO Normal_1_II
*Pas_Pg3_II

A=R3 B
?ABIT=0 3
GOYES Pas_Pd_II
?ABIT=1 5
GOYES Non_Pas_Pd_II
?ABIT=1 4
GOYES Pas_Pd_II
*Non_Pas_Pd_II
GOSUBL A=I1
LC 01B00
?A=C A
GOYES Ptet_Pd2_II
LC 01E60
?A‹C A
GOYES Pas_Pd2_II
*Ptet_Pd2_II
GOSUB Tempo2
GOTO 1nd_1_II
*Pas_Pd2_II
D0= 80129
LA 04
DAT0=A B
GOLONG Pd_1_II
*Pas_Pd_II
GOSUBL A=I1
LC 01E60
?A=C A
GOYES Ptet_Pd3_II
LC 01B00
?A‹C A
GOYES Pas_Pd3_II
*Ptet_Pd3_II
GOTO Normal_1_II
*Pas_Pd3_II

A=R3 B
?ABIT=0 5
GOYES Pas_B_II
?ST=0 8
GOYES Pas_B2_II
GOSUB Tempo2
GOTO 1nd_1_II
*Pas_B2_II
GOLONG Bas_1_II
*Pas_B_II
?ST=0 8
GOYES Pas_B3_II
ST=0 8
GOTO Normal_1_II
*Pas_B3_II

A=R3 B
?ABIT=0 4
GOYES Pas_Saut_Instant
GOTO Saut
*Pas_Saut_Instant

?ST=0 2
GOYES Pas_G2_II
GOTO Gauche_1_B_II
*Pas_G2_II
A=R3 B
?ABIT=0 6
GOYES Pas_G_II
GOTO Gauche_1_A_II
*Pas_G_II

?ST=0 4
GOYES Pas_D2_II
GOTO Droite_1_B_II
*Pas_D2_II
A=R3 B
?ABIT=0 7
GOYES Pas_D_II
GOTO Droite_1_A_II
*Pas_D_II

LC 010
GOSBVL 01EEC
LA 008
C=C&A X
?A‹C X
GOYES Pas_Trb_II
GOSUB Tremble
*Pas_Trb_II

LC 002
GOSBVL 01EEC
LA 001
C=C&A X
?A‹C X
GOYES Pas_-_II
GOSUB C_Moins
*Pas_-_II

LC 001
GOSBVL 01EEC
LA 001
C=C&A X
?A‹C X
GOYES Pas_+_II
GOSUB C_Plus
*Pas_+_II

*Gestion

GOSUBL A=I1
LC 00D80
?C‹A A
GOYES Pas_Pg_H_T_II
GOLONG Pg_T_II
*Pas_Pg_H_T_II
LC 10E0
?C‹A A
GOYES Pas_Pg_B_T_II
GOLONG Pg_T_II
*Pas_Pg_B_T_II
LC B00
?C‹A A
GOYES Pas_Pd_H_T_II
GOLONG Pd_T_II
*Pas_Pd_H_T_II
LC E60
?C‹A A
GOYES Pas_Pd_B_T_II
GOLONG Pd_T_II
*Pas_Pd_B_T_II

*Gneugueugueu

*1nd_1_II
GOSUB Tempo
GOSUB Tempo2
*2nd_1_II
GOSUB Image_1

*OuuueeuuuApeuh!
D0= 80143
A=DAT0 B
?A=0 B
GOYES Rien_Peu
A=A-1 B
DAT0=A B
GOSUBL Broutage_1
*Rien_Peu

D0= 80145
A=DAT0 B
?A=0 B
GOYES Rien_Peu2
A=A-1 B
DAT0=A B
GOSUBL Broutage_2
*Rien_Peu2

GOSUB Tempo2
GOSUB Image_2

*1nd_2_II
GOSUB Tempo
GOSUB Tempo2
*2nd_2_II
GOSUB Image_1

GOTO Main_Loop_2

**********************        
**********************        
** END O'MAINLOOP 2 **
**********************        
**********************        

**********************        
*Image_1
**********************        
GOSUB Tempo
D0= 800F5
C=DAT0 A
D0= 00120
DAT0=C A
RTN
**********************        
*Image_2
**********************        
GOSUB Tempo
D0= 8013A
C=DAT0 A
D0= 00120
DAT0=C A
RTN
**********************        
*Tempo
**********************        
D1= 00128
A=DAT1 B
LC C0
A=A&C B
*LC 00
LC 00
C=C!A B
*Tempo_1
A=DAT1 B
?C‹A B
GOYES Tempo_1
RTN
**********************        
*Tempo2
**********************        
D0= 00128
*Tempo_2
D0=D0- 1
GONC Tempo_2
RTN
**********************        
*Tremble
**********************        
LC 0001020FF4050607
LA 48417
GOSUBL Ecrit_Gd
LC DE307E1E60307E1E
LA 08804
GOSUBL Ecrit
RTN

?ST=0 1
GOYES Pas_Ca
ST=0 1
D0= 80113
A=DAT0 A
GOSUBL Fait_Aura
RTN
*Pas_Ca
ST=1 1
D0= 80113
A=DAT0 A
GOSUBL Fait_Aura
RTN

*Contraste_Out
D0= 00101
A=DAT0 B
D0= 8013F
DAT0=A B
?ST=1 1
GOYES Main_C_OutNB
*Main_C_Out
GOSUB Image_2
GOSUB C_Moins
A=DAT0 B
?ABIT=1 4
GOYES Swit_C_O
?A=0 P
RTNYES
*Swit_C_O
GOSUB PasNB
GOTO Main_C_Out
*Main_C_OutNB
GOSUB Tempo
GOSUB C_Moins
A=DAT0 B
?ABIT=1 4
GOYES Swit_C_ONB
?A=0 P
RTNYES
*Swit_C_ONB
GOSUB PasPasNB
GOTO Main_C_OutNB

*Contraste_In
D0= 00101
C=DAT0 B
D0= 8013F
A=DAT0 B
?A=C B
RTNYES
B=A B
?ST=1 1
GOYES Main_C_InNB
*Main_C_In
GOSUB Image_2
GOSUB C_Plus
A=DAT0 B
?A=B B
RTNYES
GOSUB PasNB
GOTO Main_C_In
*Main_C_InNB
ST=0 1
GOSUB Tempo
GOSUB C_Plus
A=DAT0 B
?A=B B
RTNYES
GOSUB PasPasNB
GOTO Main_C_InNB

*PasNB
GOSUB Tempo2
GOSUB Image_2
GOSUB Tempo2
GOSUB Image_1
GOSUB Tempo2
RTN
*PasPasNB
GOSUB Tempo2
GOSUB Tempo
GOSUB Tempo2
GOSUB Tempo
GOSUB Tempo2
RTN

**********************        
*C_Plus
**********************        
D0= 00101
A=DAT0 S
A=A+1 S
GOC Prout_+
DAT0=A S
RTN
*Prout_+
A=DAT0 B
?ABIT=1 4
GOYES Grok_+
A=A+1 B
DAT0=A B
*Grok_+
RTN
**********************        
*C_Moins
**********************        
D0= 00101
A=DAT0 S
A=A-1 S
GOC Prout_-
DAT0=A S
RTN
*Prout_-
A=DAT0 B
?ABIT=0 4
GOYES Grok_-
A=A-1 B
DAT0=A B
*Grok_-
RTN

**********************        
*Begin_1
**********************        
D0= 80113
A=DAT0 A
GOLONG Delete_Sprite
**********************        
*Begin_2
**********************        
D0= 80118
A=DAT0 A
GOLONG Delete_Sprite
**********************        
*Normal_1
**********************        
GOSUB Begin_1
A=0 A
?ST=0 8
GOYES Norm
LA A20
*Norm
GOTO Finit_1
**********************        
*Normal_1_II
**********************        
GOSUB Begin_1
A=0 A
?ST=0 8
GOYES Norm_II
LA A20
*Norm_II
GOTO Finit_1_II
**********************        
*Normal_2
**********************        
GOSUB Begin_2
A=0 A
?ST=0 9
GOYES Norme
LA A20
*Norme
GOTO Finit_2
**********************        
*Gauche_1_A
**********************        
GOSUB Begin_1
LA 006C0
ST=1 2
GOTO Finit_1
**********************        
*Gauche_1_B
**********************        
ST=0 2
GOSUB Begin_1
GOSUBL X1=X1-1
GOSUBL Inc_C1
A=0 A
GOTO Finit_1
**********************        
*Gauche_1_A_II
**********************        
GOSUB Begin_1
LA 006C0
ST=1 2
GOTO Finit_1_II
**********************        
*Gauche_1_B_II
**********************        
ST=0 2
GOSUB Begin_1
GOSUBL X1=X1-1
GOSUBL Inc_C1
A=0 A
GOTO Finit_1_II
**********************        
*Gauche_2_A
**********************        
GOSUB Begin_2
LA 05
GOSUBL Proxy
?C‹A B
GOYES Pas_Bout_G_2_B
D0= 80113
A=DAT0 B
?A=0 B
GOYES Bout_G_2_B
GOSUBL A=I1
LC 440
?A=C X
GOYES Bout_G_2_B
LC 7A0
?A=C X
GOYES Bout_G_2_B
GOSUBL X1=X1-1
ST=1 1
*Pas_Bout_G_2_B
GOSUBL X2=X2-1
*Bout_G_2_B
LA 006C0
ST=1 5
GOTO Finit_2
**********************        
*Gauche_2_B
**********************        
ST=0 5
GOSUB Begin_2
GOSUBL Inc_C2
A=0 A
GOTO Finit_2
**********************        
*Droite_1_A
**********************        
GOSUB Begin_1
LA 05
GOSUBL Proxy
?C‹A B
GOYES Pas_Bout_D_1_B
D0= 80118
A=DAT0 B
LC 19
?A=C B
GOYES Bout_D_1_B
GOSUBL A=I2
LC 440
?A=C X
GOYES Bout_D_1_B
LC 7A0
?A=C X
GOYES Bout_D_1_B
GOSUBL X2=X2+1
ST=1 1
*Pas_Bout_D_1_B
GOSUBL X1=X1+1
*Bout_D_1_B
LA 006C0
ST=1 4
GOTO Finit_1
**********************        
*Droite_1_B
**********************        
ST=0 4
GOSUB Begin_1
GOSUBL Inc_C1
A=0 A
GOTO Finit_1
**********************        
*Droite_1_A_II
**********************        
GOSUB Begin_1
D0= 80113
A=DAT0 B
LC 11
?A=C B
GOYES Bout_D_1_B_II
GOSUBL X1=X1+1
*Bout_D_1_B_II
ST=1 4
LA 006C0
GOTO Finit_1_II
**********************        
*Droite_1_B_II
**********************        
ST=0 4
GOSUB Begin_1
GOSUBL Inc_C1
A=0 A
GOTO Finit_1_II
**********************        
*Droite_2_A
**********************        
GOSUB Begin_2
LA 006C0
ST=1 3
GOTO Finit_2
**********************        
*Droite_2_B
**********************        
ST=0 3
GOSUB Begin_2
GOSUBL X2=X2+1
GOSUBL Inc_C2
A=0 A
GOTO Finit_2

****+***************+*
*Saut
******+************+**
D0= 80141
A=DAT0 1
?ABIT=0 0
GOYES OK_Saut
ABIT=0 0
DAT0=A 1
GOSUB Tempo2
GOLONG 1nd_1_II
*OK_Saut
ABIT=1 0
DAT0=A B
GOSUB Begin_1
D0= 80115
A=DAT0 X
GOSUB Test_Saut
GONC Gnuk
ST=1 1
DAT0=A X
GOSUBL Pafpaf_1
GOTO Fin_Pour_S
*Gnuk
DAT0=A X
A=R3 B
?ABIT=0 6
GOYES Pas_G_Pour_S
GOSUBL X1=X1-1
GOTO Fin_Pour_S
*Pas_G_Pour_S
?ABIT=0 7
GOYES Fin_Pour_S
LA 04
GOSUBL Proxy
?C=A B
GOYES Fin_Pour_S
GOSUBL X1=X1+1
*Fin_Pour_S
?ST=1 1
GOYES Blah
GOSUB Saut_Touches_1
GOSUBL I1=A
GOSUBL Affiche_Sprite_1
GOSUB Check_1_II
GOLONG Gestion
*Blah
ST=0 1
A=0 A
*Bluh
GOTO Finit_1_II

*Saut_Touches_1
GOSUBL A=I1
LC 0E0
?A=C X
RTNYES
LC E60
?A=C X
RTNYES
C=R3 B
?CBIT=0 1
GOYES Pas_Pg_Saut_1
LA 10E0
RTN
*Pas_Pg_Saut_1
?CBIT=0 3
GOYES Pas_Pd_Saut_1
LA 1E60
RTN
*Pas_Pd_Saut_1
LA 00A20
RTN

*Saut_Touches_2
GOSUBL A=I2
LC 0E0
?A=C X
RTNYES
LC E60
?A=C X
RTNYES
C=R4 B
?CBIT=0 1
GOYES Pas_Pg_Saut_2
LA 10E0
RTN
*Pas_Pg_Saut_2
?CBIT=0 3
GOYES Pas_Pd_Saut_2
LA 1E60
RTN
*Pas_Pd_Saut_2
LA 0A20
RTN

*****+**************+*
*Saut_1
*******+***********+**
D0= 80141
A=DAT0 1
?ABIT=0 0
GOYES OK_Saut_1
ABIT=0 0
DAT0=A 1
GOSUB Tempo2
GOLONG 1nd_1
*OK_Saut_1
ABIT=1 0
DAT0=A 1
GOSUB Begin_1
D0= 80115
A=DAT0 X
GOSUB Test_Saut
GONC Gnuk_1
ST=1 1
DAT0=A X
GOSUBL Pafpaf_1
GOTO Fin_Pour_S_1
*Gnuk_1
DAT0=A X
A=R3 B
?ABIT=0 6
GOYES Pas_G_Pour_S_1
GOSUBL X1=X1-1
GOTO Fin_Pour_S_1
*Pas_G_Pour_S_1
?ABIT=0 7
GOYES Fin_Pour_S_1
LA 05
GOSUBL Proxy
?C=A B
GOYES Fin_Pour_S_1
GOSUBL X1=X1+1
*Fin_Pour_S_1
?ST=1 1
GOYES Blah_1
GOSUB Saut_Touches_1
GOSUBL I1=A
GOSUB Affiche_Sprite_1
GOSUB Check_1
GOLONG Gestion_1
*Blah_1
A=0 A
ST=0 1
GOTO Finit_1
**+*****************+*
*Saut_2
*********+*********+**
D0= 80141
A=DAT0 1
?ABIT=0 1
GOYES OK_Saut_2
ABIT=0 1
DAT0=A 1
GOSUB Tempo2
GOLONG 1nd_2
*OK_Saut_2
ABIT=1 1
DAT0=A 1
GOSUB Begin_2
D0= 8011A
A=DAT0 X
GOSUB Test_Saut
GONC Gnuk_2
ST=1 1
DAT0=A X
GOSUBL Pafpaf_2
GOTO Fin_Pour_S_2
*Gnuk_2
DAT0=A X
A=R4 B
?ABIT=0 7
GOYES Pas_D_Pour_S_2
GOSUBL X2=X2+1
GOTO Fin_Pour_S_2
*Pas_D_Pour_S_2
?ABIT=0 6
GOYES Fin_Pour_S_2
LA 05
GOSUBL Proxy
?C=A B
GOYES Fin_Pour_S_2
GOSUBL X2=X2-1
*Fin_Pour_S_2
?ST=1 1
GOYES Blah_2
GOSUB Saut_Touches_2
GOSUBL I2=A
GOSUB Affiche_Sprite_2
GOSUB Check_2
GOLONG Gestion_2
*Blah_2
A=0 A
ST=0 1
GOTO Finit_2


*Test_Saut
LC 484
?A‹C X
GOYES Pas_17
LA 1DC
RTN
*Pas_17
LC 1DC
?A‹C X
GOYES Pas_7
LA 0CC
RTN
*Pas_7
LC 0CC
?A‹C X
GOYES Pas_3
LA 088
RTN
*Pas_3
LC 088
?A‹C X
GOYES Pas_2
A=0 X
RTN
*Pas_2
C=0 X
?A‹C X
GOYES Pas_0
LA 044
RTN
*Pas_0
LC 044
?A‹C X
GOYES Pas_1
LA 198
RTN
*Pas_1
LC 198
?A‹C X
GOYES Pas_6
LA 3B8
RTN
*Pas_6
LA 484
RTNSC



**********************        
*Bas_1
**********************        
ST=1 8
GOSUB Begin_1
LA 00A20
GOTO Finit_1
**********************        
*Bas_1_II
**********************        
ST=1 8
GOSUB Begin_1
LA 00A20
GOTO Finit_1_II
**********************        
*Bas_2
**********************        
ST=1 9
GOSUB Begin_2
LA 00A20
GOTO Finit_2
**********************        
*Bl_1
**********************        
GOSUB Begin_1
LA 01440
?ST=0 8
GOYES X_Bl_1
LA 7A0
*X_Bl_1
GOTO Finit_1
**********************        
*Bl_1_II
**********************        
GOSUB Begin_1
LA 01440
?ST=0 8
GOYES X_Bl_1_II
LA 7A0
*X_Bl_1_II
GOTO Finit_1_II
**********************        
*Bl_2
**********************        
GOSUB Begin_2
LA 01440
?ST=0 9
GOYES X_Bl_2
LA 7A0
*X_Bl_2
GOTO Finit_2
**********************        
*Pg_1
**********************        
GOSUB Begin_1
LA 00D80
?ST=0 8
GOYES X_Pg_1
LA 10E0
*X_Pg_1
GOTO Finit_1
**********************        
*Pg_1_II
**********************        
GOSUB Begin_1
LA 00D80
?ST=0 8
GOYES X_Pg_1_II
LA 10E0
*X_Pg_1_II
GOTO Finit_1_II
**********************        
*Pg_2
**********************        
GOSUB Begin_2
LA 00D80
?ST=0 9
GOYES X_Pg_2
LA 10E0
*X_Pg_2
GOTO Finit_2
**********************        
*Pd_1
**********************        
GOSUB Begin_1
LA 01B00
?ST=0 8
GOYES X_Pd_1
LA E60
*X_Pd_1
GOTO Finit_1
**********************        
*Pd_1_II
**********************        
GOSUB Begin_1
LA 01B00
?ST=0 8
GOYES X_Pd_1_II
LA E60
*X_Pd_1_II
GOTO Finit_1_II
**********************        
*Pd_2
**********************        
GOSUB Begin_2
LA 01B00
?ST=0 9
GOYES X_Pd_2
LA E60
*X_Pd_2
GOTO Finit_2
**********************        
*Check_1
**********************        
D0= 80118
A=DAT0 B
D0= 80113
C=DAT0 A
A=A-C B
LC 08
?A>C B
RTNYES
GOTO Affiche_Sprite_2
**********************        
*Check_1_II
**********************        
D0= 80113
A=DAT0 B
LC 10
?A<C B
RTNYES
GOSUB Delete_Machine
GOTO Affiche_Machine
**********************        
*Check_2
**********************        
D0= 80118
A=DAT0 B
D0= 80113
C=DAT0 B
A=A-C B
LC 08
?A>C B
RTNYES
GOTO Affiche_Sprite_1
**********************        
*Finit_1
**********************        
GOSUBL I1=A
GOSUB Affiche_Sprite_1
?ST=1 1
GOYES Pousse_1
GOSUB Check_1
GOLONG Gestion_1
GOLONG 1nd_1
*Pousse_1
ST=0 1
GOSUB Begin_2
GOSUB Affiche_Sprite_2
GOSUB Check_2
ST=1 6
GOLONG Gestion_1
GOLONG 1nd_1
**********************        
*Finit_1_II
**********************        
GOSUBL I1=A
GOSUB Affiche_Sprite_1
GOSUB Check_1_II
GOLONG Gestion
GOLONG 1nd_1_II
**********************        
*Finit_2
**********************        
GOSUBL I2=A
GOSUB Affiche_Sprite_2
?ST=1 1
GOYES Pousse_2
GOSUB Check_2
GOLONG Gestion_2
GOLONG 1nd_2
*Pousse_2
ST=0 1
GOSUB Begin_1
GOSUB Affiche_Sprite_1
GOSUB Check_1
ST=1 6
GOLONG Gestion_2
GOLONG 1nd_2

*******************#**
*Heu_Peuh_Peuh_1
******************#***
D0= 80141
A=DAT0 1
?ABIT=1 3
RTNYES
ABIT=1 3
DAT0=A 1
D0= 80143
A=DAT0 B
LC 05
A=A+C B
DAT0=A B
RTN

********************#*
*Heu_Peuh_Peuh_2
******************##**
D0= 80141
A=DAT0 1
?ABIT=1 2
RTNYES
ABIT=1 2
DAT0=A 1
D0= 80145
A=DAT0 B
LC 05
A=A+C B
DAT0=A B
RTN

**********«***********
*Broutage_1
**********#***********
D0= 8011D
A=0 A
A=DAT0 B
LC 38
?C<A B
GOYES Foncé_1
GOTO Clair_1
*Foncé_1
A=A-1 B
DAT0=A B
A=A+1 B
ASRB B
D1= 800F5
C=DAT1 A
C=C-A A
LA 00F0A
C=C+A A
RSTK=C
A=DAT0 B
LC 49
?A>C B
GOYES Merde_1
C=RSTK
LA 7
GOTO Pas_Merde_1
*Merde_1
C=RSTK
LA 000CC
C=C+A A
LA 4
*Pas_Merde_1
B=A B
D1=C
A=DAT0 B
?ABIT=0 0
GOYES Pair_1
GOTO SbronteX
*Pair_1
GOTO Sbronte

*Clair_1
LC 1C
?C<A B
GOYES Pas_Blanc_1
GOTO Blanc_1
*Pas_Blanc_1
A=A-1 B
DAT0=A B
A=A+1 B
ASRB B
D1= 800F5
C=DAT1 A
C=C-A A
LA 00EFC
C=C+A A
RSTK=C
A=DAT0 B
LC 2D
?A>C B
GOYES Merde2_1
C=RSTK
LA 7
GOTO Pas_Merde2_1
*Merde2_1
C=RSTK
LA 000CC
C=C+A A
LA 4
*Pas_Merde2_1
B=A B
D1=C
A=DAT0 B
?ABIT=0 0
GOYES Pair2_1
GOTO SbronteX2
*Pair2_1
GOTO Sbronte2

*Blanc_1
A=A-1 B
RTNC
GONC Pas_Zero_1
*Pas_Zero_1
DAT0=A B
A=A+1 B
ASRB B
D1= 800F5
C=DAT1 A
C=C-A A
LA 00EEE
C=C+A A
RSTK=C
A=DAT0 B
LC 12
?AŠC B
GOYES Merde3_1
C=RSTK
LA 7
GOTO Pas_Merde3_1
*Merde3_1
C=RSTK
LA 000CC
C=C+A A
LA 4
*Pas_Merde3_1
B=A B
D1=C
A=DAT0 B
?ABIT=0 0
GOYES Pair3_1
GOTO SbronteX
*Pair3_1
GOTO Sbronte

*********«************
*Broutage_2
*********»************
D0= 8011F
A=0 A
A=DAT0 B
LC 38
?C<A B
GOYES Foncé
GOTO Clair
*Foncé
A=A-1 B
DAT0=A B
A=A+1 B
ASRB B
D1= 800F5
C=DAT1 A
C=C+A A
LA 00ED6
C=C+A A
RSTK=C
A=DAT0 B
LC 4A
?AŠC B
GOYES Merde
C=RSTK
LA 7
GOTO Pas_Merde
*Merde
C=RSTK
LA 000CC
C=C+A A
LA 4
*Pas_Merde
B=A B
D1=C
A=DAT0 B
?ABIT=0 0
GOYES Pair
GOTO Sbronte
*Pair
GOTO SbronteX

*Clair
LC 1C
?C<A B
GOYES Pas_Blanc
GOTO Blanc
*Pas_Blanc
A=A-1 B
DAT0=A B
A=A+1 B
ASRB B
D1= 800F5
C=DAT1 A
C=C+A A
LA 00EE4
C=C+A A
RSTK=C
A=DAT0 B
LC 2E
?AŠC B
GOYES Merde2
C=RSTK
LA 7
GOTO Pas_Merde2
*Merde2
C=RSTK
LA 000CC
C=C+A A
LA 4
*Pas_Merde2
B=A B
D1=C
A=DAT0 B
?ABIT=0 0
GOYES Pair2
GOTO Sbronte2
*Pair2
GOTO SbronteX2

*Blanc
A=A-1 B
RTNC
GONC Pas_Zero_2
*Pas_Zero_2
DAT0=A B
A=A+1 B
ASRB B
D1= 800F5
C=DAT1 A
C=C+A A
LA 00EF2
C=C+A A
RSTK=C
A=DAT0 B
LC 12
?AŠC B
GOYES Merde3
C=RSTK
LA 7
GOTO Pas_Merde3
*Merde3
C=RSTK
LA 000CC
C=C+A A
LA 4
*Pas_Merde3
B=A B
D1=C
A=DAT0 B
?ABIT=0 0
GOYES Pair3
GOTO Sbronte
*Pair3
GOTO SbronteX

*Sbronte
A=DAT1 1
ABIT=0 0
DAT1=A 1
D1=D1+ 16
D1=D1+ 16
D1=D1+ 2
D1=D1+ 16
D1=D1+ 16
D1=D1+ 2
B=B-1 P
RTNC
GOTO Sbronte

*SbronteX
A=DAT1 1
ABIT=0 2
DAT1=A 1
D1=D1+ 16
D1=D1+ 16
D1=D1+ 2
D1=D1+ 16
D1=D1+ 16
D1=D1+ 2
B=B-1 P
RTNC
GOTO SbronteX

*Sbronte2
A=DAT1 1
ABIT=1 0
DAT1=A 1
D1=D1+ 16
D1=D1+ 16
D1=D1+ 2
A=DAT1 1
ABIT=0 0
DAT1=A 1
D1=D1+ 16
D1=D1+ 16
D1=D1+ 2
B=B-1 P
RTNC
GOTO Sbronte2

*SbronteX2
A=DAT1 1
ABIT=1 2
DAT1=A 1
D1=D1+ 16
D1=D1+ 16
D1=D1+ 2
A=DAT1 1
ABIT=0 2
DAT1=A 1
D1=D1+ 16
D1=D1+ 16
D1=D1+ 2
B=B-1 P
RTNC
GOTO SbronteX2

**********************        
*Affiche_Sprite_1
**********************        
D0= 800FF
A=DAT0 A
D0= 8012D
C=DAT0 A
C=C+A A
D1=C
A=0 A
D0= 80113
A=DAT0 B
D0= 80115
GOTO Affiche_Commun
**********************        
*Affiche_Sprite_2
**********************        
D0= 80104
A=DAT0 A
D0= 80132
C=DAT0 A
C=C+A A
D1=C
A=0 A
D0= 80118
A=DAT0 B
D0= 8011A
GOTO Affiche_Commun
**********************        
*Affiche_Machine
**********************        
D0= 8010E
A=DAT0 A
LC 0137E
A=A+C A
D1=A
LC 00022
B=C A
D0= 800F5
A=DAT0 A
LC 00678
C=C+A A
D=C A
LC 007B4
C=C+D A
CDEX A
P= 1
?ST=0 1
GOYES Pas_Petite
ST=0 1
P= 7
*Pas_Petite
GOTO Met_Spr
**********************        
*Affiche_Machine_Peuh
**********************        
D0= 8010E
A=DAT0 A
LC 01636
A=A+C A
D1=A
LC 00022
B=C A
D0= 800F5
A=DAT0 A
LC 00810
C=C+A A
D=C A
LC 005E4
C=C+D A
CDEX A
*Met_Spr_P
D0=C
A=DAT1 B
C=DAT0 B
C=C!A B
D1=D1+ 4
A=DAT1 B
C=C&A B
DAT0=C B
D1=D1- 4
D0=D0+ 16
D0=D0+ 16
D0=D0+ 2
A=DAT1 B
C=DAT0 B
C=C!A B
D1=D1+ 2
A=DAT1 B
C=C&A B
DAT0=C B
CD0EX
C=C+B A
D1=D1+ 4
?C<D A
GOYES Met_Spr_P
RTN
**********************        
*Affiche_Commun
**********************        
C=0 A
C=DAT0 X
C=C+A A
D0= 800F5
A=DAT0 A
C=C+A A
D=C A
LC 00990
C=C+D A
CDEX A
LA 00022
B=A A
P= 7
*Met_Spr
D0=C
A=DAT1 WP
C=DAT0 WP
C=C!A WP
D1=D1+ 16
A=DAT1 WP
C=C&A WP
DAT0=C WP
D1=D1- 16
D0=D0+ 16
D0=D0+ 16
D0=D0+ 2
A=DAT1 WP
C=DAT0 WP
C=C!A WP
D1=D1+ 8
A=DAT1 WP
C=C&A WP
DAT0=C WP
CD0EX
C=C+B A
D1=D1+ 16
?C<D A
GOYES Met_Spr
P= 0
RTN
**********************        
*Delete_Sprite
**********************        
B=0 A
B=A B
ASR A
ASR A
B=B+A X
D0= 800F5
A=DAT0 A
A=A+B A
D0= 80155
C=DAT0 A
C=C+B A
D=C A
LC 00022
B=C A
LC 00990
C=C+D A
CDEX A
P= 7
*Bute
D0=C
D1=A
C=DAT0 WP
DAT1=C WP
CD0EX
A=A+B A
C=C+B A
?C<D A
GOYES Bute
P= 0
RTN
**********************        
*Delete_Machine
**********************        
LC 00678
D=C A
D0= 800F5
A=DAT0 A
A=A+C A
D0= 80155
C=DAT0 A
D=D+C A
LC 00022
B=C A
LC 007B4
C=C+D A
CDEX A
P= 1
?ST=0 1
GOYES Pas_Tiny
ST=0 1
P= 7
*Pas_Tiny
GOTO Bute

*******************#**        
*Pg_T_1
********************#**        
D0= 80118
A=DAT0 A
GOSUB Delete_Sprite
LA 06
GOSUB Proxy
?A>C B
GOYES P_Pg_T_1
GOSUB Affiche_Sprite_2
GOSUB Affiche_Sprite_1
D0= 80113
A=DAT0 A
LC 33006
A=A+C A
GOSUBL Bas?_1
GOSUB Fait_Boum
GOSUB Heu_Peuh_Peuh_2
GOLONG 1nd_1
*P_Pg_T_1
GOSUB Affiche_Sprite_2
GOSUB Affiche_Sprite_1
GOLONG 1nd_1
*********************#        
*Pd_T_1
********************#*        
D0= 80118
A=DAT0 A
GOSUB Delete_Sprite
LA 06
GOSUB Proxy
?A>C B
GOYES P_Pd_T_1
GOSUB Affiche_Sprite_2
GOSUB Affiche_Sprite_1
D0= 80113
A=DAT0 A
LC 4C806
A=A+C A
GOSUB Bas?_1
GOSUB Fait_Boum
GOSUB Heu_Peuh_Peuh_2
GOLONG 1nd_1
*P_Pd_T_1
GOSUB Affiche_Sprite_2
GOSUB Affiche_Sprite_1
GOLONG 1nd_1


**********************        
*Pg_T_II
***********************        
GOSUB Delete_Machine
D0= 80113
A=DAT0 B
LC 10
?A<C B
GOYES P_Pg_T_II
GOSUB Affiche_Machine_Peuh
GOSUB Affiche_Sprite_1
D0= 80113
A=DAT0 A
LC 33006
A=A+C A
GOSUB Bas?_1
GOSUB Fait_Boum
GOSUB Heu_Peuh_Peuh_2
GOLONG 1nd_1_II
*P_Pg_T_II
GOSUB Affiche_Machine
GOSUB Affiche_Sprite_1
GOLONG 1nd_1_II
**********************        
*Pd_T_II
**********************        
GOSUB Delete_Machine
D0= 80113
A=DAT0 B
LC 10
?A<C B
GOYES P_Pd_T_II
GOSUB Affiche_Machine_Peuh
GOSUB Affiche_Sprite_1
D0= 80113
A=DAT0 A
LC 4C806
A=A+C A
GOSUB Bas?_1
GOSUB Fait_Boum
GOSUB Heu_Peuh_Peuh_2
GOLONG 1nd_1_II
*P_Pd_T_II
GOSUB Affiche_Machine
GOSUB Affiche_Sprite_1
GOLONG 1nd_1_II


*******#**************        
*Pg_T_2
********#**************        
D0= 80113
A=DAT0 A
GOSUB Delete_Sprite
LA 06
GOSUB Proxy
?A>C B
GOYES P_Pg_T_2
GOSUB Affiche_Sprite_1
GOSUB Affiche_Sprite_2
D0= 80118
A=DAT0 A
GOSUB Fait_Boum
GOSUB Heu_Peuh_Peuh_1
GOLONG 1nd_2
*P_Pg_T_2
GOSUB Affiche_Sprite_1
GOSUB Affiche_Sprite_2
GOLONG 1nd_2
***********«**********        
*Pd_T_2
************»*********        
D0= 80113
A=DAT0 A
GOSUB Delete_Sprite
LA 06
GOSUB Proxy
?A>C B
GOYES P_Pd_T_2
GOSUB Affiche_Sprite_1
GOSUB Affiche_Sprite_2
D0= 80118
A=DAT0 A
GOSUB Fait_Boum
GOSUBL Heu_Peuh_Peuh_1
GOLONG 1nd_2
*P_Pd_T_2
GOSUB Affiche_Sprite_1
GOSUB Affiche_Sprite_2
GOLONG 1nd_2

**********************        
*Fait_Boum
**********************        
B=0 A
B=A B
ASR A
ASR A
B=B+A X
D0= 800F5
C=DAT0 A
C=C+B A
D=C A
D0= 8010E
C=DAT0 A
LA 00220
A=A+C A
D1=A
LC 00022
B=C A
LC 00374
C=C+D A
CDEX A
*Boum
D0=C
C=DAT1 3
A=DAT0 3
C=-C-1 X
A=A!C X
D1=D1+ 3
C=DAT1 3
C=-C-1 X
A=A&C X
DAT0=A 3
D0=D0+ 16
D0=D0+ 16
D0=D0+ 2
D1=D1- 3
C=DAT1 3
A=DAT0 3
A=A&C X
D1=D1+ 3
C=DAT1 3
A=A!C X
DAT0=A 3
D1=D1+ 3
CD0EX
C=C+B A
?C<D A
GOYES Boum
RTN

*Fait_Aura_1
ST=0 1
GOTO Fait_Aura

*Fait_Aura_2
ST=1 1
GOTO Fait_Aura

**********************        
*Fait_Aura
**********************        
?ST=0 1
GOYES Pas_Inv_A
A=A+1 B
*Pas_Inv_A
LC 000A6
C=C+A B
D0= 800F5
A=DAT0 A
C=C+A A
D=C A
LC 00022
B=C A
D0= 8010E
A=DAT0 A
LC 0026E
?ST=0 1
GOYES Papa
LC AF6
*Papa
A=A+C A
D1=A
LC CC0
C=C+D A
CDEX A
*Boumbo
D0=C
C=DAT1 14
A=DAT0 14
A=A&C W
D1=D1+ 14
C=DAT1 14
A=A!C W
DAT0=A 14
D1=D1- 14
D0=D0+ 16
D0=D0+ 16
D0=D0+ 2
C=DAT1 14
A=DAT0 14
A=A&C W
D1=D1+ 14
D1=D1+ 14
C=DAT1 14
A=A!C W
DAT0=A 14
CD0EX
D1=D1+ 14
C=C+B A
?C<D A
GOYES Boumbo
RTN

**********************        
*Conc_1
**********************        
RTN

**********************        
*Conc_2
**********************        
RTN


*Proxy
D0= 80113
C=DAT0 B
C=C+A B
D0= 80118
A=DAT0 B
RTN

*Pafpaf_1
D1= 80141
C=DAT1 1
CBIT=0 2
DAT1=C 1
RTN

*Pafpaf_2
D1= 80141
C=DAT1 1
CBIT=0 3
DAT1=C 1
RTN

*X1=X1+1
D0= 80113
C=DAT0 B
C=C+1 B
DAT0=C B
RTN

*X2=X2+1
D0= 80118
C=DAT0 B
LA 19
?A=C B
RTNYES
C=C+1 B
DAT0=C B
RTN

*X1=X1-1
D0= 80113
C=DAT0 B
C=C-1 B
RTNC
DAT0=C B
RTN

*X2=X2-1
D0= 80118
C=DAT0 B
C=C-1 B
DAT0=C B
RTN

*I1=A
D0= 8012D
DAT0=A A
RTN

*I2=A
D0= 80132
DAT0=A A
RTN

*A=I1
D0= 8012D
A=DAT0 A
RTN

*A=I2
D0= 80132
A=DAT0 A
RTN

*Raz_C1
D0= 80137
C=DAT0 1
D0=D0+ 1
DAT0=C 1
RTN

*Raz_C2
D0= 80137
C=DAT0 1
D0=D0+ 2
DAT0=C 1
RTN

*Inc_C1
D0= 80138
C=DAT0 1
C=C+1 B
DAT0=C 1
RTN

*Inc_C2
D0= 80139
C=DAT0 1
C=C+1 B
DAT0=C 1
RTN

*Dec_C1
D0= 80138
C=DAT0 1
C=C-1 B
DAT0=C 1
RTN

*Dec_C2
D0= 80139
C=DAT0 1
C=C-1 B
DAT0=C 1
RTN

*GetKeys
A=0 B
GOSBVL 00C74
GONC Skip_1
ABIT=1 0
*Skip_1
LC 008
GOSBVL 01EEC
?CBIT=0 3
GOYES Skip_2
ABIT=1 1
*Skip_2
LC 004
GOSBVL 01EEC
?CBIT=0 2
GOYES Skip_3
ABIT=1 2
*Skip_3
LC 002
GOSBVL 01EEC
?CBIT=0 1
GOYES Skip_4
ABIT=1 3
*Skip_4
LC 080
GOSBVL 01EEC
?CBIT=0 1
GOYES Skip_5
ABIT=1 4
*Skip_5
LC 040
GOSBVL 01EEC
?CBIT=0 1
GOYES Skip_6
ABIT=1 5
*Skip_6
LC 040
GOSBVL 01EEC
?CBIT=0 2
GOYES Skip_7
ABIT=1 6
*Skip_7
LC 040
GOSBVL 01EEC
?CBIT=0 0
GOYES Skip_8
ABIT=1 7
*Skip_8
RTN

*XMIT
A=0 B
GOSBVL 00C74
GONC Skip_1_X
ABIT=1 0
*Skip_1_X
LC 008
GOSBVL 01EEC
?CBIT=0 2
GOYES Skip_2_X
ABIT=1 1
*Skip_2_X
LC 004
GOSBVL 01EEC
?CBIT=0 1
GOYES Skip_3_X
ABIT=1 2
*Skip_3_X
LC 002
GOSBVL 01EEC
?CBIT=0 0
GOYES Skip_4_X
ABIT=1 3
*Skip_4_X
LC 040
GOSBVL 01EEC
?CBIT=0 3
GOYES Skip_5_X
ABIT=1 4
*Skip_5_X
LC 020
GOSBVL 01EEC
?CBIT=0 3
GOYES Skip_6_X
ABIT=1 5
*Skip_6_X
LC 020
GOSBVL 01EEC
?CBIT=0 4
GOYES Skip_7_X
ABIT=1 6
*Skip_7_X
LC 020
GOSBVL 01EEC
?CBIT=0 2
GOYES Skip_8_X
ABIT=1 7
*Skip_8_X
RTN

*Sergeant_Metallic

A=0 B
R3=A B

GOSUBL A=I1
LC 00A20
?A‹C A
GOYES F1
GOSUB Hazard?
GOC Yo1
GOSUB Hazard?
GOC F1
*Yo1
GOSUB T_
*F1

* Test distance

LA 06
GOSUB Proxy
?A‰C B
GOYES Proche

* Longue distance

GOSUB Hazard?
GOC PF3
GOSUB Hazard?
GOC F3
*PF3
GOSUB T_
GOTO F2
*F3
GOSUB Hazard?
GOC F2
GOSUB Hazard?
GOC F2
GOSUB T_
*F2
GOSUB Hazard?
GOC F5
GOSUB Hazard?
GOC F5
GOSUB T_
*F5
GOTO Fin

*Proche
* Courte distance

A=R4 B
?A‹0 B
GOYES G6
GOSUB Hazard?
GOC G0
GOSUB Hazard?
GOC G3
*G0
GOSUB T_
*G3
GOSUB Hazard?
GOC G5
GOSUB T_
*G5
GOSUB Hazard?
GOC G2
GOSUB Hazard?
GOC G2
GOSUB T_
*G2
GOSUB Hazard?
GOC GP7
GOSUB Hazard?
GOC G6
*GP7
GOSUB Hazard?
GOC Bneu
GOSUB T_3
GOTO G6
*Bneu
GOSUB T_7
*G6

A=R4 B
?ABIT=1 1
GOYES H1
?ABIT=1 6
GOYES H1
?ABIT=0 3
GOYES H6
*H1
GOSUB Hazard?
GOC H0
GOSUB Hazard?
GOC H5
*H0
GOSUB T_5
*H5
GOSUB Hazard?
GOC H6
GOSUB Hazard?
GOC H7
GOSUB T_3
GOTO H6
*H7
GOSUB T_7
*H6

A=R4 B
?ABIT=0 5
GOYES J6
*J1
GOSUB Hazard?
GOC J5
GOSUB T_
*J5
GOSUB Hazard?
GOC J6
GOSUB Hazard?
GOC J7
GOSUB T_3
GOTO J6
*J7
GOSUB T_7
*J6

A=R4 B
?ABIT=0 4
GOYES K6
*K1
GOSUB Hazard?
GOC K5
GOSUB T_
*K5
GOSUB Hazard?
GOC K6
GOSUB Hazard?
GOC K7
GOSUB T_3
GOTO K6
*K7
GOSUB T_7
*K6





*Fin
* C'est fini, oui?

A=R3 B

RTN



*Hazard?
GOSBVL 011FC
D0= 00138
C=DAT0 A
D0=C
C=DAT0 A
B=B+C A
D0= 80065
C=DAT0 A
C=C+B A
?CBIT=0 2
GOYES Carie
?CBIT=1 5
GOYES Carie2
*PasCarie
RTNSC
*Carie
?CBIT=0 5
GOYES PasCarie
RTNCC
*Carie2
?CBIT=1 2
GOYES PasCarie
RTNCC

*T_
C=R3 B
CBIT=1 4
R3=C B
RTN
*T_
C=R3 B
CBIT=1 5
R3=C B
RTN
*T_Ž
C=R3 B
CBIT=1 6
R3=C B
RTN
*T_
C=R3 B
CBIT=1 7
R3=C B
RTN
*T_3
C=R3 B
CBIT=1 1
R3=C B
RTN
*T_5
C=R3 B
CBIT=1 2
R3=C B
RTN
*T_7
C=R3 B
CBIT=1 3
R3=C B
RTN

*Bas?_1
D0= 8012D
C=DAT0 2
?CBIT=0 5
RTNYES
LC 11000
A=A+C A
RTN

*Bas?_2
D0= 80132
C=DAT0 2
?CBIT=0 5
RTNYES
LC 11000
A=A+C A
RTN

**+****+**************
*Ecrit
***+****+*************
D0= 8010E
A=DAT0 A
A=A+C A
D1=A
A=DAT1 A
D1=D1+ 5
*Ecrit_Spl
B=0 A
B=A B
ASR A
ASR A
B=B+A X
D0= 800F5
A=DAT0 A
A=A+B A
*Vrai_D_But
CD1EX
D1=C
D=C A
C=DAT1 B
?C=0 B
RTNYES
B=0 A
B=C B
D0= 8010E
C=DAT0 A
B=B+C A
LC 02A72
C=C+B A
D0=C
C=A A
RSTK=C
LC 00022
B=C A
P= 15
LA 5
P= 0
*Brolgnorglonk
D1=A
C=DAT1 1
A=DAT0 1
C=C!A B
AD1EX
D1=A
DAT1=C 1
A=A+B A
D1=A
C=DAT1 1
A=DAT0 1
C=C!A B
AD1EX
D1=A
DAT1=C 1
A=A+B A
D0=D0+ 1
A=A-1 S
GONC Brolgnorglonk
C=RSTK
A=C A
A=A+1 A
C=D A
D1=C
D1=D1+ 2
GOTO Vrai_D_But

**+*****+*************
*Ecrit_Gd
***+*****+************
D0= 8010E
A=DAT0 A
A=A+C A
D1=A
A=DAT1 A
D1=D1+ 5
*Ecrit_Gd_Spl
B=0 A
B=A B
ASR A
ASR A
B=B+A X
D0= 800F5
A=DAT0 A
A=A+B A
*Vrai_D_But_Gd
CD1EX
D1=C
D=C A
C=DAT1 B
?C=0 B
RTNYES
?CBIT=0 7
GOYES Glorigargoglou
GOTO Schnarflubnarglgl
*Glorigargoglou
B=0 A
B=C B
BSL A
D0= 8010E
C=DAT0 A
B=B+C A
LC 02B64
C=C+B A
D0=C
C=A A
RSTK=C
LC 00022
B=C A
P= 15
LA 7
P= 0
*Brolgnorglonkgd
D1=A
C=DAT1 2
A=DAT0 2
C=C!A B
AD1EX
D1=A
DAT1=C 2
A=A+B A
D1=A
C=DAT1 2
A=DAT0 2
C=C!A B
AD1EX
D1=A
DAT1=C 2
A=A+B A
D0=D0+ 2
A=A-1 S
GONC Brolgnorglonkgd
C=RSTK
A=C A
A=A+1 A
C=D A
D1=C
*Schnarflubnarglgl
A=A+1 A
D1=D1+ 2
GOTO Vrai_D_But_Gd

*Off?
D0= 8015A
A=DAT0 1
?ABIT=0 3
RTNYES
D0= 00101
A=DAT0 B
D1= 8013F
DAT1=A B
LC E0
A=A&C B
DAT0=A B
RTN

*On?
D0= 8015A
A=DAT0 1
?ABIT=0 3
RTNYES
D0= 8013F
A=DAT0 B
D1= 00101
DAT1=A B
RTN

*Carré_Blanc
*C[2]:NB. de quartets
*C[1,0]:NB. de lignes
*A[A]:Adresse de début

B=C X
LC 00022
D=C A
C=B X
P=C 2
P=P-1
D0= 800F5
C=DAT0 A
C=C+A A
A=0 W
B=B+B B
B=B-1 B

*Startof_début
D0=C
DAT0=A WP
C=C+D A
B=B-1 B
GONC Startof_début

P= 0
RTN

*Endof_Game
GOSUBL On?
GOSUBL Wait_PasKey
GOSUBL Contraste_Out
GOSUBL Broutoscreen
GOSUBL Contraste_In
GOLONG Pas_Schnorflub



**********************        
* C'est la fin,      *
*     j'abandonne!   *
**********************        

*End
GOSUBL Wait_PasKey
GOSUBL Contraste_Out

D0= 8068D
A=DAT0 A
D0= 00120
DAT0=A A

D0= 80695
A=DAT0 A
D0= 00130
DAT0=A A

D0= 00125
A=0 X
DAT0=A X

D0= 00100
C=DAT0 1
CBIT=0 0
CBIT=0 1
CBIT=0 2
DAT0=C 1

LA 37
D0= 00128
DAT0=A B
D0= 8069A
DAT0=A B
ST=1 1
GOSUBL Contraste_In
INTON
ST=1 15
GOVLNG 05143
@