1 CLEAR300:A=RND(0):ONERRORGOTO135:SCREEN2,2,2
2 ONERRORGOTO132
3 POKE&H4BA,1
4 SCREEN2:GOSUB50
5 IFNV<10THENGOSUB31ELSE1
6 A=TKEY("A"):N=5+RND(1)*3*E+3*(E-1):GOSUB16:GOSUB30:GOSUB23
7 Z=INKEY$:IFZ<>""THENGOSUB13
8 X=A(D)+V:Y=B(D)+W:D=(D+1)MOD500:A(D)=X:B(D)=Y
9 IFPOINT(X,Y)=0THENPSET(X,Y)ELSEIFX=PANDY=QTHENGOSUB27ELSE25
10 IFALTHENAL=AL-1:I=I+1:PSET(A(F),B(F))ELSEPRESET(A(F),B(F)):F=(F+1)MOD500
11 IFTTHENT=T-1ELSEBEEP2000,2:PRESET(P,Q):N=N+2+RND(1)*3:GOSUB16:GOSUB23
12 BEEP1500,1:IFYTHEN7ELSE5
13 BEEP10,1:O=O-(Z=D$)+(Z=G$):O=O+4*((O=4)-(O=-1)):V=X(O):W=Y(O):RETURN
14 FORA=1TO2000:NEXT:RETURN
15 COLOR3,4,1:LOCATE13,14:PRINTUSING"££";VI:GOTO19
16 COLOR3,4,1:LOCATE26,14:PRINTUSING"££";N:GOTO19
17 COLOR3,4,1:LOCATE11,15:PRINTUSING"£££££";SC;:GOTO19
18 COLOR3,4,1:LOCATE19,15:PRINTUSING"££";NV;:GOTO19
19 COLORNVMOD8+1,0,1:RETURN
20 B=0:A=F
21 PRESET(A(A),B(A)):BEEP100+5*B,1:J=J-1
22 A=(A+1)MOD500:IFJTHENB=B+2:GOTO21ELSEF=A:RETURN
23 P=INT(RND(1)*62)*4+4:Q=INT(RND(1)*39)*4+4:IFPOINT(P,Q)THEN23
24 PSET(P,Q):C=RND(1)+.5:T=125:RETURN
25 BEEP2000,5:J=I:GOSUB20:VI=VI-1:GOSUB15:IFVI=0THENGOSUB115:GOTO5
26 PRESET(P,Q):PSET(124,0):PSET(128,0):E=E+1:GOTO6
27 BEEP20,1:SC=SC+NV:GOSUB17:IFCTHENAL=AL+20ELSEIFI>8THENI=I-5:J=5:GOSUB20
28 N=N-1:GOSUB16:IFNTHENGOSUB23ELSEPRESET(124,0):PRESET(128,0):T=3E4
29 RETURN
30 D=0:F=1:O=0:V=0:W=-4:A(0)=124:B(0)=156:I=0:AL=8:RETURN
31 GOSUB100
32 VI=VI+1:GOSUB15:SC=SC+100*NV:GOSUB17:NV=NV+1:GOSUB18
33 CONSOLE0,14:GOSUB19:CLS:CONSOLE0,16
34 LINE(0,0)-(252,0):LINE-(252,160):LINE-(0,160):LINE-(0,0)
35 ONNVGOSUB40,41,42,43,44,45,46,47,48,49
36 READA,X,Y:X=X*4:Y=Y*4:IFATHENONAGOSUB37,38,39:GOTO36ELSEE=1:RETURN
37 PSET(X,Y):PSETSTEP(4,0):PSETSTEP(0,4):PSETSTEP(-4,0):PSETSTEP(0,-4):RETURN
38 LINE-STEP(X-4*(X>0),0):LINESTEP(0,4)-STEP(4*(X>0)-X,0):PSETSTEP(X,-4):RETURN
39 LINE-STEP(0,X-4*(X>0)):LINESTEP(4,0)-STEP(0,4*(X>0)-X):PSETSTEP(-4,X):RETURN
40 RESTORE58:RETURN
41 RESTORE59:RETURN
42 RESTORE60:RETURN
43 RESTORE61:RETURN
44 RESTORE62:RETURN
45 RESTORE63:RETURN
46 RESTORE64:RETURN
47 RESTORE66:RETURN
48 RESTORE68:RETURN
49 RESTORE70:RETURN
50 DEFINTA-Y:DEFSTRZ:DIMA(499),B(499),X(3),Y(3):CONSOLE,,0,0,0
51 FORA=0TO3:READX(A),Y(A):NEXT:R=0:DATA0,-4,4,0,0,4,-4,0
52 G$="0":D$="-"
53 GOSUB80
54 SC=0:NV=0:VI=2:COLOR3,4,1:CLS
55 LOCATE1,14:PRINT"* Serpents °  § * Oeufs °  § *"
56 PRINTTAB(1)"* Score =       *   ) Niveau *";
57 A=RND(0):RETURN
58 DATA0,0,0
59 DATA1,14,19,2,34,,0,0,0
60 DATA1,14,19,2,34,,1,31,9,3,21,,0,0,0
61 DATA1,14,9,3,21,,2,18,,3,-21,,2,18,,3,21,,0,0,0
62 DATA1,14,19,2,34,,1,25,9,3,21,,1,37,9,3,21,,0,0,0
63 DATA1,34,9,2,14,,3,21,,2,-34,,3,-21,,2,15,,0,0,0
64 DATA1,14,18,3,-7,,2,34,,3,7,,1,14,22,3,7,,2,34,,3,-7,,1,31,13
65 DATA3,15,,0,0,0
66 DATA1,20,3,3,33,,1,42,3,3,33,,1,3,19,2,13,,1,46,19,2,13,
67 DATA1,24,19,2,14,,0,0,0
68 DATA1,20,2,3,35,,1,42,2,3,35,,1,2,19,2,15,,1,45,19,2,15,
69 DATA1,23,19,2,16,,0,0,0
70 DATA1,8,1,1,8,5,3,3,,1,8,12,3,5,,1,8,21,3,4,,1,8,29,3,3,,1,8,36,3,,9
71 DATA1,17,1,3,10,,1,17,15,3,4,,1,17,23,3,4,,1,17,31,3,5,
72 DATA1,26,1,3,2,,1,26,7,3,19,,1,26,30,3,2,,1,26,36,3,2,
73 DATA1,36,3,3,7,,1,36,14,3,4,,1,36,22,3,2,,1,36,28,3,5,,1,36,37,3,1,
74 DATA1,45,1,3,2,,1,45,7,3,10,,1,45,21,3,17,
75 DATA1,54,1,3,10,,1,54,15,3,10,,1,54,29,3,2,,1,54,35,3,3,
76 DATA1,10,7,1,14,7,2,7,,1,25,7,2,6,,1,35,7,2,6,,1,49,7,2,8,,1,61,7
77 DATA1,1,15,2,18,,1,23,15,2,6,,1,33,15,2,14,,1,51,15,2,1,,1,58,15,2,1,
78 DATA1,1,23,2,16,,1,21,23,2,20,,1,45,23,2,3,,1,52,23,2,4,,1,60,23,2,1,
79 DATA1,3,31,2,35,,1,42,31,2,15,,1,61,31,0,0,0
80 COLOR3,4,1:CONSOLE0,16:CLS
81 LOCATE8,2:PRINT"A N A C O N D A"
82 LOCATE0,12:PRINT"(c) LOGI'STICK":PRINT:PRINTTAB(5)"1984"
83 LOCATE21,6:PRINT"Touche Code":PRINTTAB(15)"Gauche":PRINT:PRINTTAB(15)"Droite"
84 GOSUB90:GOSUB93:GOSUB95
85 LOCATE16,13:PRINT"     OK (O/N) ? ":BEEP20,3:BEEP30,2
86 Z=INKEY$:IFZ="O"THENRETURNELSEIFZ<>"N"THEN86
87 COLOR3,4,1:LOCATE16,13:PRINT"Entrez vos codes";
88 G$=INKEY$:IFG$=""THEN88ELSEGOSUB90
89 D$=INKEY$:IFD$=""ORD$=G$THEN89ELSEGOSUB90:GOTO85
90 LOCATE24,8:IFG$>=" "THENPRINTG$;ELSEPRINT" ";
91 LOCATE24,10:IFD$>=" "THENPRINTD$ELSEPRINT" "
92 LOCATE27,8:PRINTASC(G$);:LOCATE27,10:PRINTASC(D$);:RETURN
93 LINE(40,52)-(40,0):LINE-(204,0):LINE-(204,52):LINE(0,56)-(252,56)
94 LINE(112,60)-(112,188):LINE(0,124)-(108,124):RETURN
95 RESTORE96:FORI=1TO38:READA,B:BEEPA,B:NEXT:RETURN
96 DATA10,6,12,2,10,4,3,6,7,2,10,4,15,6,17,2,15,4,12,8,0,4
97 DATA10,4,15,4,10,4,7,4,5,4,3,4,5,20,0,4
98 DATA10,6,12,2,10,4,3,6,7,2,10,4,15,6,17,2,15,4,12,8,0,4
99 DATA10,4,15,4,3,4,5,4,3,4,5,4,3,20,0,4
100 RESTORE101:FORI=1TO35:READA,B:BEEPA,B:NEXT:RETURN
101 DATA8,2,13,4,13,2,8,4,8,2,17,4,17,2,13,4,13,2,20,2,17,2,13,2,20,2,17,2,13,2
102 DATA8,2,8,2,8,2,8,2,8,2,13,4,13,2,8,4,8,2,17,4,17,2,13,4,13,2
103 DATA20,2,17,2,13,2,8,2,13,2,17,2,13,8
104 RESTORE105:FORI=1TO28:READA,B:BEEPA,B:NEXT:RETURN
105 DATA13,8,13,4,17,8,17,4,20,12,17,8,0,4,18,8,18,4,17,4,15,4,17,4,15,20,0,4
106 DATA15,8,17,4,18,8,17,4,22,12,20,8,0,4,25,8,20,4,18,4,17,4,15,4,13,16,0,4
107 RESTORE108:FORI=1TO45:READA,B:BEEPA,B:NEXT:RETURN
108 DATA5,2,5,2,6,2,8,4,5,2,6,2,8,4,5,2,8,2
109 DATA6,2,3,2,0,6,3,2,3,2,5,2,6,4,3,2,5,2,6,2,12,4,10,2,8,4,0,6
110 DATA5,2,5,2,6,2,8,4,5,2,6,2,8,2,13,4,12,2,12,2,10,2,0,6
111 DATA10,2,10,2,10,2,8,4,5,2,8,2,6,2,5,4,3,2,1,4
112 RESTORE113:FORI=1TO25:READA,B:BEEPA,B:NEXT:RETURN
113 DATA17,4,17,2,13,2,8,4,13,2,17,8,13,4,20,4,20,2,20,2,20,4,17,8,13,4
114 DATA17,4,17,2,13,2,8,4,13,2,17,8,13,4,8,4,8,2,8,2,8,4,13,8
115 GOSUB14:A=TKEY("A"):INIT£1,"RECORD":CONSOLE14,2:COLOR3,4,1:CLS
116 FORR=1TO10:INPUT£1,Z,A:IFSC<=ATHENNEXT
117 IFR=11THENPRINTTAB(5)"Vous n'etablissez pas",TAB(5)"de record, dommage ..";
118 IFR=11THENGOSUB104:GOTO124
119 PRINTTAB(4)"Flicitations, Vous avez",TAB(5)"tablis le";R;"e Record";:GOSUB107
120 CLS:PRINT"Quel est votre nom":INPUT"Champion ";Z$:Z$=LEFT$(Z$,14)
121 DIMR(20),Z(20):INIT£1,"RECORD":FORA=1TO10:INPUT£1,Z(A),R(A):NEXT
122 FORA=20TOR+1STEP-1:Z(A)=Z(A-1):R(A)=R(A-1):NEXT:Z(R)=Z:R(R)=SC
123 INIT£1,"RECORD":FORA=1TO10:PRINT£1,Z(A),R(A):NEXT:ERASER,Z
124 CONSOLE0,16:COLOR3,7,1:CLS:LOCATE7,1:PRINT"Liste des Records"
125 INIT£1,"RECORD":FORA=1TO10:INPUT£1,Z,B
126 LOCATE3,A+3:PRINTUSING"££";A;:PRINT" : ";Z;TAB(22);": ";USING"£££££";B
127 NEXT:COLOR6,3,1:GOSUB129:GOSUB112
128 Z=INKEY$:IFZ=CHR$(13)THEN53ELSE128
129 LINE(48,24)-(48,4):LINE-(196,4):LINE-(196,24)
130 LINE(0,28)-(252,28):LINE-(252,188):LINE-(0,188):LINE-(0,28):RETURN
131 NV=9:SC=SC+100:GOTO5
132 IFERR=24ANDERL=115THENRESUME133ELSECLS:PRINT"VOUS AVEZ OUBLIE LE FSET..........ALORS PAS DE RECORD!!!":FORI=1TO50:BEEPI,3:NEXT:RESUME53
133 INIT£1,"RECORD",300
134 FORA=1TO10:PRINT£1,"Canon",2^(13-A):NEXT:GOTO115
135 CLS:BEEP99,5:PRINT"BRANCHEZ LE X-720";:END