2 poke&4C04,&CD:poke&4C05,&10:poke&4C06,&67:poke&4C07,&C3:poke&4C08,&6B:poke&4C09,&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:elseifVIE<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<100thenplot220,12,12,10,0:outputNIV,214,12,2:return:elseifNIV<1000thenplot214,12,18,10,0:outputNIV,208,12,2:return:elsereturn 8 forX=1to6:plot85,150,81,30,0:tone208,100:output"*************",87,147,1:output"*           *",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&FA9B: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:poke&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&BD8E:tone250,80:usr&BD8E:tone250,80:usr&BD8E:tone335,80:usr&BD8E:tone280,80:usr&BD8E: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=0thenRP=1:goto34:elsewipe:cursor30,150:print"QUELLE VITESSE VOULEZ VOUS ?":cursor90,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=0thenrestore42: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+AB: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=18thenpoke&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=peek(&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,100:return 58 screen16,221,216,180:color0,1,2,4:bright1:forX=0to108:plot16+X,221,2,180,2:plot16,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 ETES 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:pen0: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:print"Appuyez sur ";:pen3:print"< F >":pen1:A$=instr$(1):ifA$="s"orA$="S"thenload:MV=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:elsenext 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:ifNIV<MV-23orNIV>MVorVIE>255orVIE<1thengoto66 67 poke&B939,NIV:poke&B93B,0:poke&B93C,0:poke&B93D,VIE:NY=36785+((NIV+24-MV)*405):NX=int(NY/256):NY=NY-(NX*256):poke&F9C2,NY:poke&F9C3,NX:S=0:gosub4:gosub6:gosub7:restore42:goto40 68 screen16,221,216,180:cls0:print:print:print"              MENU":restore69:forX=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:goto70 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$;:pen1: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 TRANSITION,-  7   - ,NIVEAU D'APPARITION DES            GENDARMES 76 data-  8   - ,PAQUET,-  9   - ,BONHOMME,-CTRL 4- ,CORDE CACHEE,-CTRL 5- ,ECHELLE CACHEE,-CTRL 8- ,PAQUET CACHE,-CTRL 9- ,GENDARME,,,-  I   - ,MONTEE CURSEUR,-  K   - ,DESCENTE CURSEUR 77 data-  J   - ,DEPLACEMENT GAUCHE CURSEUR,-  L   - ,DEPLACEMENT DROITE CURSEUR,-RETURN- ,VALIDATION FIGURE,-  T   - ,TRANSFERT DU TABLEAU,-  E   - ,EFFACEMENT 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=53thengoto82 86 ifA=>57andA=<60thenA2=A:A=peek(&BE69+(X1+(27*Y1)))-10:DE=1:goto100:elseifA<0orA>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:elseifA=4orA=78thenP=&FD:Q=&28:elseifA=5orA=6orA=77thenP=&FD:Q=&10:elseifA=8orA=43thenP=&FD:Q=&40:elseifA=9orA=45thenP=&FB:Q=&00 88 ifA=3orA=6orA=7orA=78orA=77orA=43orA=45thenpoke&F9C1,1:elsepoke&F9C1,0 89 ifDE=1thengoto92 90 ifP1=PandQ1=QandT1=0thengoto83 91 T1=0:A3=A:poke&FA9D,&FD:poke&FA9C,&70:poke&FAA0,Y:poke&FA9F,X:usr&FA9B:P1=P:Q1=Q:goto83 92 poke&FA9D,&FD:poke&FA9C,&70:poke&FAA0,Y:poke&FA9F,X:usr&FA9B:poke&FAB5,P:poke&FAB4,Q:usr&FAB3:P1=&FC:Q1=&F8:A=A2:A2=0:DE=0:poke&F9C1,1 93 ifA=57andY1<>14thenY=Y-3:Y1=Y1+1:elseifA=59andY1<>0thenY=Y+3:Y1=Y1-1:elseifA=58andX1<>1thenX=X-2:X1=X1-1:elseifA=60andX1<>27thenX=X+2:X1=X1+1:elsetone50,100:poke&5FD1,0 94 goto83 95 A1=A3+10:ifA3=8thenP5=P5+1:elseifA3=6thenE5=E5+1:elseifA3=7thenN5=N5+1:elseifA3=9thenA1=20:B5=B5+1:elseifA3=45thenA1=0:G5=G5+1:elseifA3=78thenA1=4:elseifA3=77thenA1=5:elseifA3=43thenA1=8:P5=P5+1 96 ifP5=256thenP5=255:goto99:elseifE5=15thenE5=14:goto99:elseifN5=2thenN5=1:goto99:elseifB5=2thenB5=1:goto99:elseifG5=5thenG5=4:goto99 97 M=peek(&BE69+(X1+(27*Y1))):ifM=0thenG5=G5-1:elseifM=20thenB5=0:elseifM=16thenE5=E5-1:elseifM=8or18thenP5=P5-1:elseifM=17thenN5=0 98 M=0:poke&BE69+(X1+(27*Y1)),A1:A3=0:poke&5FD1,0:tone200,50:goto84 99 tone50,100:goto86 100 ifA=-10thenA=45:elseifA=10thenA=9:elseifA=-6thenA=78:elseifA=-5thenA=77:elseifA=-2thenA=43 101 goto87 102 ifG5=0orB5=0orN5=0orE5=0orP5=0thengoto99:elsecls0:cursor30,150:print"TRANSFERT DU TABLEAU AU NIVEAU 1":B=0:forX=&BE6Ato&BFFE:A=peek(X):poke&9146+B,A:B=B+1:next:goto68 103 cls0:cursor30,150:print"METTEZ VOTRE";:pen1:print" CASSETTE":pen2:print:print"  APPUYEZ SUR";:pen1:print" <ECRITURE-LECTURE>":pen2:print:print"  PUIS SUR";:pen1:print" <RETURN>":pen2:A$=instr$(1):usr&913D:poke&5FD1,0:goto68 104 goto104 105 cls0:cursor30,150:print"METTEZ VOTRE";:pen1:print" CASSETTE":pen2:print:print"  APPUYEZ SUR";:pen1:print" <LECTURE>":pen2:print:print"  PUIS SUR";:pen1:print" <RETURN>":pen2:A$=instr$(1):load:goto68