2 poke&4C04,&CD:poke&4C05,&10:poke&4C06,&67:poke&4C07,&C3:poke&4C08,&6B:poke&4C
09,&69:poke&6972,&FF:poke&6973,&FF
 3 goto32
 4 ifS<100thenplot85,12,18,10,0:outputS,79,12,2:return:elseifS<1000thenplot79,12
,18,10,0:outputS,73,12,2:return:elseifS<10000thenplot73,12,24,10,0:outputS,67,12
,2:return:elseifS<100000thenplot67,12,30,10,0:outputS,61,12,2:return
 5 return
 6 ifVIE<10thenplot152,12,12,10,0:output"0",152,12,2:outputVIE,152,12,2:return:e
lseifVIE<100thenplot146,12,18,10,0:output"0",146,12,2:outputVIE,146,12,2:return:
elseifVIE<1000thenplot146,12,18,10,0:outputVIE,140,12,2:return:elsereturn
 7 ifNIV<10thenplot226,12,6,10,0:outputNIV,220,12,2:return:elseifNIV<100thenplot
220,12,12,10,0:outputNIV,214,12,2:return:elseifNIV<1000thenplot214,12,18,10,0:ou
tputNIV,208,12,2:return:elsereturn
 8 forX=1to6:plot85,150,81,30,0:tone208,100:output"*************",87,147,1:outpu
t"*           *",87,138,1:output"*************",87,129,1:output"RECOMMENCEZ",93,
138,3:tone225,92:next:poke&5FD1,0
 9 ifpeek(&5FF7)=1orpeek(&5FFA)=1thenifpeek(&FA70)=1thengoto11
 10 ifpeek(&FA70)=1thengoto9:elseifpeek(&5FD1)=0thengoto10
 11 sound3,282:forX=0to112:plot121-X,118+X,X*2+3,X*2+3,C:next:sound7,4096:goto32

 12 poke&5FD1,0:poke&5FC1,0:poke&FA9F,peek(&F9CE):poke&FAA0,peek(&F9CF)
 13 if peek(&5FD1)<>0thenpoke&FA70,0:return:elseifpeek(&5FC1)<>0thenpoke&FA70,1:
return
 14 poke&FA9D,&FD:poke&FA9C,&70:usr&FA9B:pause.4:poke&FA9D,&FB:poke&FA9C,0:usr&F
A9B:pause.4:goto13
 15 L=peek(&5FD1):ifL>100thenL=L-100:elseifL>100thenL=L-68
 16 ifL<1orL>17thenL=1
 17 onLgoto18,18,18,18,21,19,22,20,18,18,24,18,18,18,18,18,23
 18 return
 19 poke&FEC4,00:usr&BD8E:return
 20 poke&FEC4,1:usr&BD8E:return 
 21 poke&FEC4,0:usr&BCEC:return
 22 poke&FEC4,1:usr&BCEC:return
 23 poke&5FD1,00:poke&FEC4,0:usr&BB0E:return
 24 poke&5FD1,0:poke&FEC4,1:usr&BB0E:return
 25 ifpeek(&5FC1)<>0thenL=peek(&5FC1)
 26 ifL>15thenL=L/16
 27 ifpeek(&5FF7)=1orpeek(&5FFA)=1thenifL=1orL=9thenpoke&FEC4,0:usr&BB0E:L=3:JY=
1:elseifL=2orL=10thenpoke&FEC4,1:usr&BB0E:L=3:JY=1
 28 ifpeek(&5FC1)=0thenJY=0
 29 ifJY=1thenreturn
 30 onLgoto19,20,18,21,21,21,18,22,19,20
 31 return
 32 wipe:color0,6,5,3:RP=0:poke&F9FB,0:poke&FEC4,0:poke&F9CF,&E0:poke&F9CE,&7A:p
oke&F9F1,&BE:poke&F9F0,&F1:poke&FA9D,&FC:poke&FA9C,&E0:poke&FAA0,&E3:C=&7A:forX=
&BED5to&BEBBstep-1:pokeX,11:C=C-2:poke&FA9F,C:usr&FA9B:next
 33 forX=&BED6to&BEF0:pokeX,10:next:poke&F9FB,0:poke&F9FA,&0:poke&F9C1,0
 34 tone375,70:usr&BD8E:tone280,80:usr&BD8E:tone250,80:usr&BD8E:tone225,80:usr&B
D8E:tone250,80:usr&BD8E:tone250,80:usr&BD8E:tone335,80:usr&BD8E:tone280,80:usr&B
D8E:tone300,80:usr&BD8E:tone335,80:usr&BD8E:tone375,80
 35 usr&BD8E:tone335,80:usr&BD8E:tone300,80:usr&BD8E:tone280,80:usr&BD8E:ifRP=0t
henRP=1:goto34:elsewipe:cursor30,150:print"QUELLE VITESSE VOULEZ VOUS ?":cursor9
0,130:pen3:print"1 2 3 4":pen2:poke&5FD1,0:MV=24:poke&B939,1:S=0
 36 V1=peek(&5FD1):ifV1=0thengoto36:elseifV1>48andV1<53thengoto37:elsetone50,100
:poke&5FD1,0:goto36
 37 pen2:ifV1=49thenT3=.18:elseifV1=50thenT3=.12:elseifV1=51thenT3=.06:elseT3=0
 38 wipe:forX=10to234step5:output"*",X,30,1:next:plot16,41,216,4,3:output"SCORE 
:",12,12,3:output"0000000",55,12,2:output"NB Vie:",104,12,1:output"005",146,12,2
:VIE=5:output"NIVEAU:",170,12,3:output"001",214,12,2:NIV=1
 39 restore42:poke&F9C3,&91:poke&F9C2,&46
 40 ifNIV=MVthengoto58
 41 forX=0to200step8:plot216-X,221,16,180,1:tone100+X,15:next:readX,Y,Z:ifX=0the
nrestore42:readX,Y,Z
 42 data6,5,3,3,6,5,5,7,2,1,6,3,6,3,2,3,2,5,5,6,3,1,3,2,6,3,5,,,
 43 color0,X,Y,Z:pause.3:usr&B946:poke&5FD1,00:gosub12:forX=&B93Eto&B945:pokeX,0
:next:forX=&FEC8to&FED0:pokeX,0:next:AB=(15-((peek(&F9EF)-191)/3))*27:AA=&BE6A+A
B:AC=int(AA/256):poke&F9FF,AC:poke&F9FE,(AA-AC*256)
 44 ifpeek(&FA4C)<>0thenusr&B881
 45 ifpeek(&FEC6)=0thenusr&B5CD:ifpeek(&B93A)=1thenpoke&B93A,0:goto52
 46 ifpeek(&FEC6)=1thenusr&BC0D:pause.03:goto52
 47 ifT3=0thengoto48:elsepauseT3
 48 ifpeek(&5FD1)=101orpeek(&5FD1)=69thengoto68
 49 GH=peek(&5FD1):ifGH=16thengoto49:elseifGH=1thenpoke&FA6C,1:elseifGH=18thenpo
ke&FA6C,1:VIE=1:NIV=1
 50 ifpeek(&FA70)=0thengosub15
 51 ifpeek(&FA70)=1thengosub25
 52 GH=0:usr&BA99:usr&FE9F:usr&B914:AP=int(rnd(0,27)):poke&FA6D,AP:usr&FDB8:SI=p
eek(&FECC):ifSI<>0thenS=S+SI:poke&FECC,0:gosub4
 53 ifpeek(&F9C4)=0andpeek(&F9CF)=&C2thenforX=50to1500step50:tone550-(X/3),12:S=
S+25:gosub4:next:VIE=VIE+1:usr&B5BB:NIV=peek(&B939):gosub6:gosub7:goto40
 54 ifpeek(&FA6C)=1thengosub57:VIE=VIE-1:gosub6:ifVIE=0thengoto8:elsegoto40
 55 usr&B5F0:ifpeek(&FA6C)=1thengoto54
 56 goto44
 57 tone750,80:tone850,75:tone750,80:tone670,80:tone640,80:tone670,80:tone750,10
0:return
 58 screen16,221,216,180:color0,1,2,4:bright1:forX=0to108:plot16+X,221,2,180,2:p
lot16,221-X,216,1,2:plot16,41+X,216,1,2:plot230-X,221,2,180,2:next
 59 cls2:forX=1to17:print:next:output"VOUS ETES CHAMPION",68,70,0:output"VOUS ET
ES CHAMPION",69,69,1
 60 print:print:ifVIE<MV+4thenoutput"Mais il vous manque d{j`",29,70,0:outputMV+
4-VIE,173,70,3:ifMV+4-VIE=1thenoutput"Vie",196,70,3:elseoutput"Vies",196,70,3:pe
n0:print:print:print" Si vous poss{dez la suite du jeu :"
 61 pen1:print"    - ";:pen0:print"Mettez la ";:pen3:print"cassette":pen1:print"
    - ";:pen0:print"Enclanchez ";:pen3:print"<LECTURE>":pen1:print"    - ";:pen0
:print"Appuyez sur ";:pen3:print"< S >"
 62 pen0:print:print" Si vous ne la poss{dez pas :":pen1:print"    - ";:pen0:pri
nt"Appuyez sur ";:pen3:print"< F >":pen1:A$=instr$(1):ifA$="s"orA$="S"thenload:M
V=MV+23:goto39
 63 ifA$<>"f"andA$<>"F"thengoto59:elserestore65:forX=10to240step6:plotX,41,6,42,
1:ifX>16thenreadA$,B$,C$:outputA$,X,40,3:outputB$,X,28,3:outputC$,X,15,3:next:el
senext
 64 goto64
 65 data,,,D,,,',,,a,,,u,,,t,E,,r,n,,e,v,,s,o,,,y,,n,e,,i,z,,v,,a,e,n,,a,o,B,u,u
,I,x,s,E,,,N,s,v,T,o,o,O,n,s,T,t,,!,,i,,`,d,,,},,l,e,,',s,,e,.,,t,,,u,,,d,,,e,,,
.,,,,,,,,,,,,,,,,
 66 screen16,221,216,180:cls:pen3:print:print:print:print:print:input"     QUEL 
NIVEAU VOULEZ VOUS ?";NIV:print:input" COMBIEN VOULEZ VOUS DE VIES ?";VIE:pen2:i
fNIV<MV-23orNIV>MVorVIE>255orVIE<1thengoto66
 67 poke&B939,NIV:poke&B93B,0:poke&B93C,0:poke&B93D,VIE:NY=36785+((NIV+24-MV)*40
5):NX=int(NY/256):NY=NY-(NX*256):poke&F9C2,NY:poke&F9C3,NX:S=0:gosub4:gosub6:gos
ub7:restore42:goto40
 68 screen16,221,216,180:cls0:print:print:print"              MENU":restore69:fo
rX=1to10:readA$,B$:pen1:printA$;:pen3:printB$:next:pen2
 69 data,,*  -1- ,DESCRIPTION DES COMMANDES,,,*  -2- ,CONCEPTION D'UN NIVEAU,,,*
  -3- ,SAUVEGARDE DU NIVEAU,,,*  -4- ,CHARGEMENT D'UN NIVEAU,,,*  -5- ,JOUER UN 
NIVEAU
 70 A=peek(&5FD1):ifA=0thengoto70:elseifA<49orA>53thentone50,100:poke&5FD1,0:got
o70
 71 A=(A+2)-50:onAgoto72,82,103,105,66
 72  restore75:VL=14
 73 cls0:print"        VALEUR DES TOUCHES":forX=1toVL:readA$,B$:pen3:printA$;:pe
n1:printB$:next:pen2:gosub79:ifVL=14thenVL=9:goto73
 74 goto68
 75 data-  0   - ,VIDE,-  1   - ,BRIQUE PERCABLE,-  2   - ,BRIQUE PLEINE,-  3   
- ,BRIQUE AVEC TROU,-  4   - ,CORDE,-  5   - ,ECHELLE,-  6   - ,ECHELLE DE TRANS
ITION,-  7   - ,NIVEAU D'APPARITION DES            GENDARMES
 76 data-  8   - ,PAQUET,-  9   - ,BONHOMME,-CTRL 4- ,CORDE CACHEE,-CTRL 5- ,ECH
ELLE CACHEE,-CTRL 8- ,PAQUET CACHE,-CTRL 9- ,GENDARME,,,-  I   - ,MONTEE CURSEUR
,-  K   - ,DESCENTE CURSEUR
 77 data-  J   - ,DEPLACEMENT GAUCHE CURSEUR,-  L   - ,DEPLACEMENT DROITE CURSEU
R,-RETURN- ,VALIDATION FIGURE,-  T   - ,TRANSFERT DU TABLEAU,-  E   - ,EFFACEMEN
T DU TABLEAU
 78 data-  A   - ,ANNULATION DU NIVEAU EN            COURS
 79 output"<RETURN>",100,55,2:poke&5FD1,0
 80 ifpeek(&5FD1)=0thengoto80:elseifpeek(&5FD1)<>13thentone50,100:goto79
 81 return
 82 cls0:poke&F9C1,0:X=&44:Y=&EC:P1=&FC:Q1=&F8:X1=1:Y1=0:forF=&BE6Ato&BFFF:pokeF
,10:next:DE=0:F=0:P5=0:E5=0:N5=0:B5=0:G5=0:poke&F9C1,1
 83 poke&FAB5,P1:poke&FAB4,Q1:poke&FAB8,Y:poke&FAB7,X:usr&FAB3:poke&5FD1,0
 84 A=peek(&5FD1)-48:ifA=-48thengoto84:elseifA>9andA<42thenA=A+32
 85 ifA=-35thengoto95:elseifA=49thengoto68:elseifA=68thengoto102:elseifA=53theng
oto82
 86 ifA=>57andA=<60thenA2=A:A=peek(&BE69+(X1+(27*Y1)))-10:DE=1:goto100:elseifA<0
orA>9thenifA<>78andA<>77andA<>43andA<>45thentone50,100:poke&5FD1,0:goto83
 87 ifA=0thenP=&FD:Q=&70:elseifA=1orA=3thenP=&FC:Q=&E0:elseifA=2orA=7thenT1=1:P=
&FC:Q=&F8:elsei