Nom du programme principal:RUGBYDRO
0→O
40→Ө
110→r
ViewWindow 0,126,1,0,62,1
AxesOff
Cls
Text 10,10, « BIENVENUE »
Text 20,20, « DANS LE »
Text 30,30, « JEU DE »
Text 40,40, « RUGBY »
Text 50,50, « CREE PAR B.PERALTA »
F-Line 60,30,120,30
F-Line 80,27,80,60
F-Line 95,27,95,60
F-Line 95,35,80,35
StoPict 3
Lbl 1
Text Ө,r, « »
40→Ө
110→r
Lbl 8
Getkey=31=>Goto 9
O≠2=>Text 55,5, « [PRESS EXE] »
O=2=>Text 55,5, « »
O=2=>0→O
O+1→O
Text Ө,r, « »
RclPict 3
Ө-2→Ө
r-2→r
Text Ө,r, « O »
Getkey=31=>Goto 9
Ө=20=>Goto 1
Goto 8
Lbl 9
Cls
0→Z
0→G
Lbl 2
Cls
ClrText
58→B
Horizontal 25
F-Line 55,20,55,55
F-Line 71,20,71,55
F-Line 55,30,71,30
StoPict 5
Int 123Ran#+1→A
Text B,A, « O »
Int 99Ran#→Q
Text 2,2,Q
Text 2,10, « KM/H »
Int 2Ran#+