1 CLEAR200:A=EXP(0):CONSOLEà,1
2 ONERRORGOTO127
3 GOSUB48
4 IFNV<10THENGOSUB29ELSE1
5 A=TKEY("A"):N=5+RND(1)*3*E+3*(E-1):GOSUB15:GOSUB28:GOSUB21
6 Z=INKEY$:IFZ<>""THENGOSUB12
7 X=A(D)+V:Y=B(D)+W:D=(D+1)MOD500:A(D)=X:B(D)=Y
8 IFNOTPOINT(X,Y)THENPSET(X,Y)ELSEIFX=PANDY=QTHENGOSUB25ELSE23
9 IFALTHENAL=AL-1:I=I+1:PSET(A(F),B(F))ELSEPRESET(A(F),B(F)):F=(F+1)MOD500
10 IFTTHENT=T-1ELSEBEEP2000,2:PRESET(P,Q):N=N+2+RND(1)*3:GOSUB15:GOSUB21
11 BEEP1500,1:IFYTHEN6ELSE4
12 BEEP10,1:O=O-(Z=D$)+(Z=G$):O=O+4*((O=4)-(O=-1)):V=X(O):W=Y(O):RETURN
13 FORA=1TO2000:NEXT:RETURN
14 LOCATE16,0:PRINTUSING"££";VI:RETURN
15 LOCATE16,1:PRINTUSING"££";N:RETURN
16 LOCATE16,2:PRINTUSING"££££";SC;:RETURN
17 LOCATE10,3:PRINTUSING"££";NV;:RETURN
18 B=0:A=F
19 PRESET(A(A),B(A)):BEEP100+5*B,1:J=J-1
20 A=(A+1)MOD500:IFJTHENB=B+2:GOTO19ELSEF=A:RETURN
21 P=RND(1)*57+1:Q=RND(1)*30+1:IFPOINT(P,Q)THEN21
22 PSET(P,Q):C=RND(1)+.5:T=90:RETURN
23 BEEP2000,5:J=I:GOSUB18:VI=VI-1:GOSUB14:IFVI=0THENGOSUB112:GOTO4
24 PRESET(P,Q):PSET(29,0):PSET(30,0):E=E+1:GOTO5
25 BEEP20,1:SC=SC+NV:GOSUB16:IFCTHENAL=AL+20ELSEIFI>8THENI=I-5:J=5:GOSUB18
26 N=N-1:GOSUB15:IFNTHENGOSUB21ELSEPRESET(29,0):PRESET(30,0):T=3E4
27 RETURN
28 D=0:F=1:O=0:V=0:W=-1:A(0)=29:B(0)=30:I=0:AL=8:RETURN
29 GOSUB97
30 VI=VI+1:GOSUB14:SC=SC+100*NV:GOSUB16:NV=NV+1:GOSUB17
31 FORA=0TO3:LOCATE0,A:PRINT"          ";:NEXT
32 LINE(0,0)-(58,0):LINE-(58,31):LINE-(0,31):LINE-(0,0)
33 ONNVGOSUB38,39,40,41,42,43,44,45,46,47
34 READA,X,Y:IFATHENONAGOSUB35,36,37:GOTO34ELSEE=1:RETURN
35 PSET(X,Y):PSETSTEP(1,0):PSETSTEP(0,1):PSETSTEP(-1,0):PSETSTEP(0,-1):RETURN
36 LINE-STEP(X-(X>0),0):LINESTEP(0,1)-STEP((X>0)-X,0):PSETSTEP(X,-1):RETURN
37 LINE-STEP(0,X-(X>0)):LINESTEP(1,0)-STEP(0,(X>0)-X):PSETSTEP(-1,X):RETURN
38 RESTORE55:RETURN
39 RESTORE56:RETURN
40 RESTORE57:RETURN
41 RESTORE58:RETURN
42 RESTORE59:RETURN
43 RESTORE60:RETURN
44 RESTORE61:RETURN
45 RESTORE63:RETURN
46 RESTORE65:RETURN
47 RESTORE67:RETURN
48 DEFINTA-Y:DEFSTRZ:DIMA(499),B(499),X(3),Y(3):CONSOLE0,4,0,0,0
49 FORA=0TO3:READX(A),Y(A):NEXT:R=0:DATA0,-1,1,0,0,1,-1,0
50 G$="0":D$="-"
51 ONERRORGOTO127:GOSUB86:GOSUB76
52 SC=0:NV=0:VI=2:CLS:PRINTTAB(10)"Vies °  §",TAB(10)"Oeufs°  §"
53 PRINTTAB(10)"Score=",TAB(10)"  )Niveau";
54 A=RND(0):RETURN
55 DATA0,0,0
56 DATA1,13,15,2,31,,0,0,0
57 DATA1,13,15,2,31,,1,29,7,3,16,,0,0,0
58 DATA1,13,7,3,16,,2,16,,3,-16,,2,16,,3,16,,0,0,0
59 DATA1,13,15,2,31,,1,23,7,3,16,,1,34,7,3,16,,0,0,0
60 DATA1,31,7,2,13,,3,16,,2,-31,,3,-16,,2,13,,0,0,0
61 DATA1,13,13,3,-6,,2,31,,3,6,,1,13,17,3,6,,2,31,,3,-6,,1,29,9
62 DATA3,14,,0,0,0
63 DATA1,19,3,3,24,,1,39,3,3,24,,1,3,15,2,14,,1,41,15,2,13,
64 DATA1,23,15,2,12,,0,0,0
65 DATA1,19,2,3,26,,1,39,2,3,26,,1,2,15,2,17,,1,41,15,2,14,
66 DATA1,22,15,2,14,,0,0,0
67 DATA1,8,1,1,8,5,3,3,,1,8,12,3,4,,1,8,20,3,3,,1,8,27,3,3,
68 DATA1,16,1,3,9,,1,16,14,1,16,18,3,9,
69 DATA1,24,1,3,2,,1,24,7,3,10,,1,24,21,3,4,,1,24,29
70 DATA1,33,1,3,8,,1,33,13,3,4,,1,33,21,1,33,22,1,33,26,3,3,
71 DATA1,41,1,3,2,,1,41,7,3,9,,1,41,20,3,9,
72 DATA1,49,1,3,9,,1,49,14,3,3,,1,49,21,3,3,,1,49,28,1,49,29
73 DATA1,10,7,1,14,7,1,18,7,1,19,7,1,23,7,2,5,,1,32,7,2,5,,1,45,7,2,7,
74 DATA1,56,7,1,1,14,2,10,,1,15,14,2,19,,1,38,14,2,5,,1,47,14,2,7,
75 DATA1,8,21,2,9,,1,21,21,2,16,,1,41,21,2,3,,1,48,21,1,49,21,0,0,0
76 CLS:PRINT"       Gauche droiteTouche","Code":GOSUB83
77 LOCATE0,3:PRINT"       OK (O/N) ?  ";
78 BEEP20,3:BEEP30,2
79 Z=INKEY$:IFZ=""THEN79ELSEIFZ="O"THENRETURNELSEIFZ$<>"N"THEN79
80 LOCATE0,3:PRINT"  Entrez vos codes";
81 G$=INKEY$:IFG$=""THEN81ELSEGOSUB83
82 D$=INKEY$:IFD$=""ORD$=G$THEN82ELSEGOSUB83:GOTO77
83 LOCATE10,1:IFG$>=" "THENPRINTG$;ELSEPRINT" ";
84 PRINTTAB(17);:IFD$>=" "THENPRINTD$ELSEPRINT" "
85 LOCATE8,2:PRINTASC(G$);TAB(15);ASC(D$);:RETURN
86 FONT$(224)="60,64,152,160,160,152,64,60"
87 FONT$(225)="0,128,64,64,64,64,128,0"
88 CLS:PRINT"  A N A C O N D A","  ***************"
89 PRINT"  *             *","*"CHR$(224);CHR$(225)"LOGI'STICK 1984*";
90 GOSUB92
91 RETURN
92 RESTORE93:FORI=1TO38:READA,B:BEEPA,B:NEXT:RETURN
93 DATA10,6,12,2,10,4,3,6,7,2,10,4,15,6,17,2,15,4,12,8,0,4
94 DATA10,4,15,4,10,4,7,4,5,4,3,4,5,20,0,4
95 DATA10,6,12,2,10,4,3,6,7,2,10,4,15,6,17,2,15,4,12,8,0,4
96 DATA10,4,15,4,3,4,5,4,3,4,5,4,3,20,0,4
97 RESTORE98:FORI=1TO35:READA,B:BEEPA,B:NEXT:RETURN
98 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
99 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
100 DATA20,2,17,2,13,2,8,2,13,2,17,2,13,8
101 RESTORE102:FORI=1TO28:READA,B:BEEPA,B:NEXT:RETURN
102 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
103 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
104 RESTORE105:FORI=1TO45:READA,B:BEEPA,B:NEXT:RETURN
105 DATA5,2,5,2,6,2,8,4,5,2,6,2,8,4,5,2,8,2
106 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
107 DATA5,2,5,2,6,2,8,4,5,2,6,2,8,2,13,4,12,2,12,2,10,2,0,6
108 DATA10,2,10,2,10,2,8,4,5,2,8,2,6,2,5,4,3,2,1,4
109 RESTORE110:FORI=1TO25:READA,B:BEEPA,B:NEXT:RETURN
110 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
111 DATA17,4,17,2,13,2,8,4,13,2,17,8,13,4,8,4,8,2,8,2,8,4,13,8
112 GOSUB13:A=TKEY("A"):INIT£1,"RECORD":CLS
113 FORR=1TO10:INPUT£1,Z,A:IFSC<=ATHENNEXT
114 IFR=11THENPRINT"Vous n'tablissez   pas de record,","dommage ..."
115 IFR=11THENGOSUB101:GOTO121
116 PRINT"Flicitations, Vous avez tablis le",R;"e Record":GOSUB104
117 CLS:INPUT"Quel est votre nom  Champion ";Z:Z=LEFT$(Z,11)
118 DIMR(20),Z(20):INIT£1,"RECORD":FORA=1TO10:INPUT£1,Z(A),R(A):NEXT
119 FORA=20TOR+1STEP-1:Z(A)=Z(A-1):R(A)=R(A-1):NEXT:Z(R)=Z:R(R)=SC
120 INIT£1,"RECORD":FORA=1TO10:PRINT£1,Z(A),R(A):NEXT:ERASER,Z
121 CLS:PRINT" Liste des records:";:GOSUB109
122 INIT£1,"RECORD":FORA=1TO10:INPUT£1,Z,B
123 PRINT,USING"££";A;:PRINT":";Z;TAB(14);":";USING"££££";B;
124 IFA<3THEN126
125 Z=INKEY$:IFZ=""THEN125ELSEIFZ=CHR$(13)THEN51
126 NEXT:GOTO51
127 IFERR=24ANDERL=112THENRESUME128ELSECLS:PRINT"Vous avez oubli le FSET alors.......Pas de record !":FORI=1TO50:BEEPI,3:NEXT:RESUME51
128 INIT£1,"RECORD",300
129 FORA=1TO10:PRINT£1,"Canon",2^(13-A):NEXT:GOTO112
130 CLS:PRINT"VOUS AVEZ OUBLIEZ LE FSET DONC...         PAS DE RECORD!";
131 BEEP13,2:IFINKEY$=""THEN131ELSERESUME51