yo

Programme : "BRICASSE " (698 bytes)

01 Lbl Y
02 Norm
03 1L:5C:6D:0S
04 0U~W:3V
05 Lbl B
06 57E
07 Prog "SPRG5"
08 For 15A To 10+5V Step 5
09 PlotChg A,63
10 PlotChg A+1,62
11 PlotChg A,61
12 PlotChg A1,62
13 Next
14 Lbl A
15 ClrText
16 0
17 Locate 7,3,"LEVEL"
18 Locate 15,3,L
19 Locate 7,6,"SCRE"
20 Locate 14,6,U+S
21 If S>W+10
22 Then If V3
23 Then Isz V
24 10+5VA
25 PlotChg A,63
26 PlotChg A+1,62
27 PlotChg A,61
28 PlotChg A1,62
29 IfEnd
30 IfEnd
31 Int (25Ran#A
32 5A3A
33 A<22A
34 31B
35 Text 55,E,"==="
36 Text B,A,"."
37 Text B,A," "
38 Lbl 0
39 Getkey=47Goto 3
40 A+CA:B+DB
41 If A2
42 Then 5C:2A:IfEnd
43 If A122
44 Then 5C:122A
45 IfEnd
46 Prog "SPRG2"
47 If W=1
48 Then Isz L
49 S+UU:0S:0W
50 Goto B
51 IfEnd
52 B49B55AEAE+19Prog "SPRG3"
53 B19Prog "SPRG4"
54 Prog "SPRG2"
55 B=61Goto 2
56 B=16D
57 Text B,A,"."
58 Text Y,X," "
59 Goto 0
60 Lbl 2
61 DD
62 V1V
63 V=2Text 58,24," "
64 V=1Text 58,19," "
65 V=0Text 58,14," "
66 V>0Goto A
67 ClrText
68 "PERDU?!?..."
69 " "
70 "[EXE] RECMMENCER"
71 "[] GESTINNAIRE"
72 Lbl 9
73 Getkey=27Prog "GESTINr"
74 Getkey=25Prog "GESTINr"
75 Getkey=31Goto Y
76 Goto 9
77 Stop
78 Lbl 3
79 0A~Z:ClrText:ClrGraph

Programme : "S-PRG2 " (172 bytes)

01 GetkeyG
02 G=0Return
03 G=38Goto 1
04 G=27Goto 2
05 G=31"PAUSE"
06 G=41ST1W
07 G=71D>0S>30DD
08 Return
09 Lbl 1
10 E1212E
11 E10E
12 Text 55,E,"=== "
13 Return
14 Lbl 2
15 Text 55,E," "
16 E10297E
17 E+10E
18 Text 55,E,"==="
19 Return

Programme : "S-PRG3 " (41 bytes)

01 Abs D=DDD
02 (AE+4) r (AE+15)Z
03 Z=1CC

Programme : "S-PRG4 " (143 bytes)

01 PxlTest B+2,A
02 AnsZ
03 Z=1Goto 0
04 Return
05 Lbl 0
06 DD
07 Text B,A," "
08 B+DB
09 Isz S
10 S=Trange Text 58,100,"()"
11 range Text 58,30,S
12 PxlTest B+2,A
13 AnsZ
14 If Z=1
15 Then Isz S
16 range Text 58,30,S
17 IfEnd
18 S=Trange Text 58,100,"()"

Programme : "S-PRG5 " (435 bytes)

01 L=7Prog "SPRG6"
02 ViewWindow 1,127,0,63,1,0
03 Seq(67108863,X,1,4,1)List 1
04 80T
05 If L=2
06 Then For 2B To 3
07 16777217List 1[B]
08 Next
09 40T
10 IfEnd
11 If L=3
12 Then 4194300List 1[3]
13 1048544List 1[2]
14 130944List 1[1]
15 50T
16 IfEnd
17 If L=4
18 Then 130944List 1[4]
19 1048544List 1[3]
20 4194300List 1[2]
21 50T
22 IfEnd
23 If L=5
24 Then Seq(22369621,X,1,4,1)List 1
25 40T
26 IfEnd
27 If L=6
28 Then 17576131List 1[1]
29 27163110List 1[2]
30 15978300List 1[3]
31 6391320List 1[4]
32 45T
33 IfEnd
34 For 1A To 4
35 For 1B To 25
36 If Int (2Frac (List 1[A]2^B))=1
37 Then FLine 5B3,6A3,5B3,6A
38 FLine 5B3,6A,5B,6A
39 IfEnd
40 Next
41 Next
42 ClrList

Programme : "S-PRG6 " (192 bytes)

01 L7Stop
02 Cls
03 For 1A To 30 Step 5
04 Plot A,B
05 Plot A+3,B
06 Line
07 Plot A+3,B+3
08 Line
09 Plot A,B
10 Line
11 Next
12 Plot 3,28
13 Plot 119,28:Line
14 Plot 119,46:Line
15 Plot 3,46:Line
16 Plot 3,28:Line
17 Plot 1,26
18 Plot 121,26:Line
19 Plot 121,48:Line
20 Plot 1,48:Line
21 Plot 1,26:Line
22 Text 30,5,"Bravo,"
23 Text 40,5,"vous avez FINI le jeu !"

Ne pas toucher c'est pour moi cherchez pas à comprendre lol