70 REM EXPLICATIONS DANS LE PROGRAMME
80 REM PYRAMIDE
90 DIM S(100),D$(100)
100 CR=0:E=0:CJ=0
110 CLS
120 PRINT@76,"Pyramide"
130 PRINT@134,"QUELQUES EXPLICATIONS?"
140 PRINT@227,"TAPER''O'' POUR OUI";
150 PRINT@259,"TAPER''N'' POUR NON"
160 P$=INKEY$:IF P$="" THEN 160
170 IF P$="N" THEN 470
180 CLS
190 PRINT:PRINT"    IL VOUS EST PROPOSE UN MOT  DE DEUX LETTRES AU PREMIER ETAGEDE LA PYRAMIDE."
200 PRINT"    UNE DEFINITION S'INSCRIT AU DERNIER ETAGE POUR VOUS AIDER A TROUVER UN MOT DE TROIS LETTRES EN UTILISANT:"
210 PRINT "  les lettres du mot Precedent"
220 PRINT
230 PRINT"           Plus une"
240 PRINT:PRINT"TAPEZ ''T'' POUR TOURNER LA PAGE"
250 P$=INKEY$
260 IF P$="" THEN 250
270 CLS
280 PRINT"   A CHAQUE ETAGE LE MOT GRANDIT en utilisant toujours les          lettres du mot Precedent"
290 PRINT"   LORSQUE LE MOT A ATTEINT SEPTLETTRES IL VOUS EST PROPOSE UNE AUTRE SERIE."
300 PRINT"   LA REPONSE VOUS EST FOURNIE  APRES DEUX ESSAIS INFRUCTUEUX ET UN POINT VOUS EST DECOMPTE."
310 PRINT"   VOTRE SCORE EST AFFICHE EN   PERMANENCE"
320 PRINT"    VOICI UNE SERIE DE MOTS"
330 PRINT"TAPEZ ''T'' POUR TOURNER LA PAGE"
340 P$=INKEY$
350 IF P$="" THEN 340
360 U=0:E=1:GOSUB 1050
370 PRINT@451,"vous"CHR$(128)"regardez"CHR$(128)"seulement";
380 READ D$
390 PRINT@A,D$;W$;:FOR I=1 TO 1000:NEXT I
400 IF A=362 THEN E=0:RESTORE:GOTO 110
410 U=U+1:W$=STRING$(U,143)
420 READ D$
430 PRINT@418,STRING$(29,128);
440 PRINT@418,D$;:FOR I=1 TO 1000:NEXT I
450 A=A+63:GOTO 380
460 STOP
470 REM DEBUT DU JEU
480 REM CHOIX ALEATOIRE ET UNIQUE
490 RESTORE
500 E=E+1
510 S(E)=RND(87)
520 IF E=1 THEN 560
530 FOR I=1 TO E-1
540 IF S(I)=S(E) THEN 510
550 NEXT I
560 G=S(E)
570 G=G*12
580 U=0:U$=STRING$(U,14)
590 GOSUB 1050
600 FOR I=0 TO G
610 READ D$
620 NEXT I
630 PRINT@418,STRING$(29,128);STRING$(1,133+32);
640 PRINT@A,D$;U$;
650 GOSUB 770
660 IF A=362 THEN FOR I=1 TO 1500:NEXT I:GOTO 490
670 CD=0
680 READ D$
690 R$=D$
700 READ D$
710 CR=CR+1:CJ=CJ+1
720 U=U+1:U$=STRING$(U,143)
730 PRINT@418,R$;
740 INPUT P$
750 IF P$=D$ THEN A=A+63:GOTO 630
760 GOTO 880
770 REM SCORE
780 P1=INT(CJ/100)
790 P2=INT((CJ-P1*100)/10)
800 P3=INT(CJ-(P1*100+P2*10))
810 P4=INT(CR/100)
820 P5=INT((CR-P4*100)/10)
830 P6=INT(CR-(P4*100+P5*10))
840 P1=P1+48:P2=P2+48:P3=P3+48:P4=P4+48:P5=P5+48:P6=P6+48
850 POKE 1049,P1:POKE 1050,P2:POKE 1051,P3
860 POKE 1113,P4:POKE 1114,P5:POKE 1115,P6
870 RETURN
880 REM NON
890 CD=CD+1
900 PRINT@66,"NON";
910 FOR J=1 TO 5:SOUND J,1
920 FOR I=128 TO 143
930 PRINT@33,STRING$(5,I+32);
940 PRINT@65,STRING$(1,I+16);
950 PRINT@69,STRING$(1,I+16);
960 PRINT@97,STRING$(5,I+16);
970 NEXT I,J
980 PRINT@33,STRING$(5,128);
990 PRINT@97,STRING$(5,128);
1000 PRINT@65,STRING$(5,128);
1010 PRINT@418,STRING$(29,128);STRING$(1,133+32);
1020 IF CD=2 THEN A=A+63:CJ=CJ-1:GOSUB 770
1030 IF CD=1 THEN 730
1040 GOTO 630
1050 REM DESSIN
1060 CLS0
1070 W=4:X1=24:X2=39:Y=0
1080 FOR I=X1 TO X2
1090 SET(I,Y,3):NEXT I
1100 IF Y=30 THEN 1180
1110 FOR I=Y TO W
1120 SET(X1,I,3):SET(X2,I,3)
1130 NEXT I
1140 IF W=30 THEN Y=W:GOTO 1080
1150 IF X2=63 THEN W=W+2:GOTO 1080
1160 W=W+4:Y=Y+4:X1=X1-4:X2=X2+4
1170 GOTO 1080
1180 POKE 1081,61:POKE 1082,61:POKE 1083,61
1190 A=47
1200 RETURN
1210 DATA LA,VALLEE,VAL,MIT BAS,VELA,INGURGITE,AVALE,DESCENDIT RAPIDEMENT,DEVALA,PLANTE ODORANTE,LAVANDE,
1220 DATA ME,PARTIE DU PAIN,MIE,TEIGNE,MITE,PETIT CHAT,MINET,VIVE DELUREE,MATINE,ETOFFE,ETAMINE,
1210 DATA SI,FLEUR,LIS,REGLES,LOIS,FAVORISES,LOTIS,TISSUS,TOILES,ASTRES,ETOILES,
1240 DATA LE,UNITE MONETAIRE BULGARE,LEV,REDRESSE,LEVE,POILUE,VELUE,CHAMPIGNON ASCOMYCETE,LEVURE,ELEVE DES ANIMAUX,ELEVEUR,
1250 DATA RE,SURFACE,ARE,POISSON,RAIE,BRAMER,RAIRE,CHARRUE,ARAIRE,RELATIF AUX TERRES,AGRAIRE,
1260 DATA TU,OBJECTIF,BUT,TUYAU,TUBE,MET DEHORS,BOUTE,TERRE DE BRUYERE,TOURBE,TAILLER LA VIGNE,ABOUTER,
1270 DATA CA,BRUIT SEC,TAC,FELIN,CHAT,COTE,CHANT,POISSON,TANCHE,PLANTE,ACANTHE,
1280 DATA GE,PERIODE,AGE,COLERE,RAGE,SURVEILLANT,GARDE,CURE,DRAGUE,ATTRIBUER,ADJUGER,
1290 DATA RA,BUS,CAR,AIGRE,ACRE,NOUER,LACER,TRANSMETTRE UN MESSAGE,CABLER,FAMILLE,BERCAIL,
1300 DATA LE,DEPOT,LIE,UNITE MONETAIRE,LIRE,EXEMPT DE TOUT GENE,LIBRE,TAMIS,CRIBLE,CHOSE SANS IMPORTANCE,BRICOLE,
1310 DATA RI,STAND,TIR,USAGE,RITE,FEMELLE DU PORC,TRUIE,IMITE UN SON,BRUITE,PARTIE DE VETEMENT FEMININ,BUSTIER,
1320 DATA DE,POISSON ROUGE,IDE,ASSISTANCE,AIDE,MAMMIFERE FEMININ,DAINE,PLAISANTE,BADINE,ANIS ETOILE,BADIANE,
1330 DATA RA,SURFACE,ARE,VICIE,TARE,PLAN,CARTE,TIRER DES TRAITS,TRACER,GRAND VASE,CRATERE,
1340 DATA OS,HARDI,OSE,FLEUR,ROSE,QUI A DU CORPS,CORSE,PARTIE D UN FUSIL,CROSSE,RENCONTRES,CROISES,
1350 DATA OR,MASSE DE PIERRE,ROC,ECHANGE,TROC,PARTIE D UN ARBRE,TRONC,S OPPOSE,CONTRE,ETENDUE DE PAYS,CONTREE,
1360 DATA ME,PARTIE DU PAIN,MIE,SOMME D ARGENT,MISE,TROUBLES,EMOIS,CADAVRES,MOMIES,GROS REGISTRE,SOMMIER,
1370 DATA SI,ARGILE JAUNE,SIL,SABLE MOUVANT,LISE,UNI,LISSE,SOLITAIRES,ISOLES,JOUE SEUL,SOLISTE,
1380 DATA MI,PARTIE DU PAIN,MIE,REGARDE AVEC ATTENTION,MIRE,MALTRAITE,BRIME,PALIR,BLEMIR,POUR COMBLER UN CREUX,REMBLAI,
1390 DATA RE,COLERE,IRE,SEIGNEUR,SIRE,ESPECE,SORTE,URTICACEES,ORTIES,ISSUES,SORTIES,
1400 DATA LE,BIERE,ALE,ORGANE DU VOL,AILE,SOUPLE,AGILE,TERRE CUITE,ARGILE,FAIBLE,FRAGILE,
1410 DATA RA,SURFACE,ARE,GROGNE,RALE,NANAN,REGAL,ABATTRE DES NOIX,GAULER,PETITE PILULE,GRANULE,
1420 DATA DE,POISSON,IDE,PLI,RIDE,REPAS,DINER,FRIPON,GREDIN,SURVEILLANT,GARDIEN,
1430 DATA TA,RONGEUR,RAT,VISCERE,RATE,EMPREINTE,TRACE,LOI,CHARTE,MESURE DE SURFACE,HECTARE,
1440 DATA SE,ORIENT,EST,SAISONS,ETES,MESURE DE VOLUME,STERE,OISEAU PALMIPEDE,STERNE,DE L OUEST MOT ANGLAIS,WESTERN,
1450 DATA AN,ONGULE,ANE,AVANCE SUR L EAU,NAGE,TRAVAIL PENIBLE,BAGNE,TREMPE DANS L EAU,BAIGNE,FLEUR,BEGONIA,
1460 DATA CA,ARME,ARC,ENCLOS,PARC,CONDIMENT,CAPRE,COCHON SAUVAGE,PECARI,DETERMINA,PRECISA,
1470 DATA LE,PAREIL,TEL,BOUTIQUE DE BOUCHER,ETAL,MEUBLE,TABLE,CAFARD,BLATTE,POISSON D EAU DOUCE,ABLETTE,
1480 DATA LE,TERRE ENTOUREE D EAU,ILE,SECRETE PAR LE FOIE,BILE,PETITE BOULE,BILLE,BARRE METALLIQUE,BIELLE,INSECTE,ABEILLE,
1490 DATA LI,MEUBLE,LIT,SUPERPOSE DES POISSONS,LITE,TISSU,TOILE,COULEUR,VIOLET,BRUTAL,VIOLENT,
1500 DATA NI,ALCOOL,GIN,QUALITE DU FEU,IGNE,TRAIT,LIGNE,VEND DU LINGE,LINGER,BARRE METALLIQUE,TRINGLE,
1510 DATA CI,PLAINTE,CRI,ENCAUSTIQUE,CIRE,MENTIONNER,CITER,PRONONCER DES MOTS,DICTER,JUGEMENT,VERDICT,
1520 DATA EV,ESPACE DE TEMPS,VIE,BORD D UN FLEUVE,RIVE,VOLUME,LIVRE,PENDULE,REVEIL,COULEUR,VERMEIL,
1530 DATA RE,TROIS FOIS,TER,FOYER,ATRE,ZIBELINE,MARTE,TITRE D UN AVOCAT,MAITRE,SUBSTANCE PESANTE,MATIERE,
1540 DATA SE,A LUI,SES,CROCHET,ESSE,ARRETE,CESSE,BRISEE,CASSEE,PERCHE,ECHASSE,
1550 DATA RE,OCEAN,MER,CHEF ARABE,EMIR,ABRASIF,EMERI,ETETER,ECIMER,ART DE MANIER L EPEE,ESCRIME,
1560 DATA TA,MANIERE,ART,DEFICIENCE,TARE,PLAN,CARTE,COMEDIEN,ACTEUR,PIECE COMPTABLE,FACTURE,
1570 DATA IF,MINCE,FIN,INGENU,NAIF,FRUIT DU HETRE,FAINE,FROMENT,FARINE,DELICAT,RAFFINE,
1580 DATA ME,PROPULSEE,MUE,NOMME AILLEURS,MUTE,SORTE DE ROUGET,MULET,AMPUTE,MUTILE,ENCOURAGE,STIMULE,
1590 DATA AI,S ESCLAFFA,RIA,SEPARA,TRIA,NEZ,TARIN,TIRE,TRAINE,SOUVERAINE,TSARINE,
1600 DATA RE,PRAIRIE,PRE,GENITEUR,PERE,OUBLI,PERTE,ALLOUER,PRETER,BAIGNER,TREMPER,
1610 DATA NE,PROPRE,NET,SOUFFLE,VENT,CESSION,VENTE,AERA,EVENTA,ESTAMINET,TAVERNE,
1620 DATA RI,COLERE,IRE,PLUS MAUVAIS,PIRE,BOYAU,TRIPE,MAUVAIS,PIETRE,SUPPORT,TREPIED,
1630 DATA RE,BRAME,REE,SONGE,REVE,COULEUR EMERAUDE,VERTE,PROUE,ETRAVE,LIEN,ENTRAVE,
1640 DATA AN,ONGULE,ANE,FEMELLE DU CANARD,CANE,REPRIMANDE,TANCE,PETIT CAHIER,CARNET,PART,TRANCHE,
1650 DATA RA,VIA,PAR,CONTRAT ALEATOIRE,PARI,GROUPE,PARTI,EQUIVALENCE,PARITE,BOUCANIERS,PIRATES,
1660 DATA ON,BRUIT,SON,ATTENTION,SOIN,ANGLES,COINS,POISSONS,COLINS,MUR DE SEPARATION,CLOISON,
1670 DATA UT,ENLEVE LA VIE,TUE,BOITE,ETUI,PARASITE,TIQUE,PETIT PIEU,PIQUET,CARACTERISTIQUE,TIPIQUE,
1680 DATA EV,EXISTENCE,VIE,TOURNE,VIRE,CONTENTE,RAVIE,PETIT PLAT,RAVIER,PETITS CAILLOUX,GRAVIER,
1690 DATA HO,UNITE DE PERSISTANCE,OHM,FOYER ANGLAIS,HOME,LAID,MOCHE,MANQUER D OUVRAGE,CHOMER,COUVERTE DE METAL,CHROMEE,
1700 DATA RA,RONGEUR,RAT,FOYER,ATRE,BERGER,PATRE,OUTIL DE FORAGE,TREPAN,FILIATION,PARENTE,
1710 DATA LE,BEAU,BEL,SUC DIGESTIF,BILE,SANS ATTACHE,LIBRE,LUIT,BRILLE,ECRITURE,BRAILLE,
1720 DATA SE,PARTIE DE TENNIS,SET,EXISTEZ,ETES,MALADIE,PESTE,VIF,PRESTE,ACTUEL,PRESENT,
1730 DATA OS,NOTE,SOL,POISSON,SOLE,MOLECULES,MOLES,COQUILLAGES,MOULES,PRODUIT ALIMENTAIRE,SEMOULE,
1740 DATA ON,POSSESSIF,TON,EVALUATION,NOTE,POSSESSIF,NOTRE,FAIT VOIR,MONTRE,ETRE DENATURE,MONSTRE,
1750 DATA LE,PARCOURUE,LUE,VANTE,LOUE,COHUE,FOULE,IMPRECISES,FLOUES,DEPLACEMENT D'AIR,SOUFFLE,
1760 DATA ET,RETIRE,OTE,CHOISIT,OPTE,CHRETIEN,COPTE,CALCUL,COMPTE,PUREE,COMPOTE,
1770 DATA IF,MET SA CONFIANCE,FIE,DURCI,FIGE,FRUIT,FIGUE,VISAGE,FIGURE,EXPATRIE,REFUGIE,
1780 DATA MI,AMIE,MIE,SIGNAL FIXE,MIRE,GAIN SUPPLEMENTAIRE,PRIME,ETAT,EMPIRE,OBSOLETE,PERIMEE,
1790 DATA RE,BRAME,REE,GUIDE,RENE,ALLOCATION,RENTE,NOUVEAU,RECENT,AXEE,CENTREE,
1800 DATA RI,COLERE,IRE,NID,AIRE,COUPLE,PAIRE,MISER,PARIER,CACHETTE,REPAIRE,
1810 DATA TA,MANIERE,ART,LOUPE,RATE,BERGER,PATRE,CROCHET,PATERE,ENDUITE,PLATREE,
1820 DATA EH,CRI DU CHARRETIER,HUE,TETE DE SANGLIER,HURE,ESSAIM,RUCHE,PICHET,CRUCHE,ALLONGER,COUCHER,
1830 DATA RI,COLERE,IRE,CONTESTER,NIER,SOUVERAINE,REINE,CHANCEUSE,VERNIE,CONTRAIRE,INVERSE,
1840 DATA RE,COLERE,IRE,ORGANE,REIN,REPUDIE,RENIE,TUMEFACTION,HERNIE,PASSE L'HIVER A L'ABRI,HIVERNE,
1850 DATA OC,ROCHER,ROC,DURILLONS,CORS,SEANCE,COURS,MAJORITE,CHORUS,FOURCHUS,CROCHUS,
1860 DATA RA,VALLEE,RIA,SEPARA,TRIA,ASSECHER,TARIR,TIRER LE LAIT,TRAIRE,OUTIL POUR PERCER,TARIERE,
1870 DATA OR,RIVIERE,RIO,GROUPE,TRIO,CHIFFRE,TROIS,BOIS LENTEMENT,SIROTE,JUSTES,ETROITS,
1880 DATA LE,CONDIMENT,SEL,SOLUTIONS,CLES,GORGE DANS LE JURA,CLUSE,DISPOSITION D'UN CONTRAT,CLAUSE,PRESENTS,ACTUELS,
1890 DATA LA,BIERE BLONDE,ALE,ATTACHE,LACE,PARTIES DE NAVIRES,CALES,MISES,PLACES,PARTICULIER,SPECIAL,
1900 DATA CA,ETANG,LAC,NON CLERICAL,LAIC,RESEAU DE FILS,LACIS,SURFACE D'EROSION,GLACIS,INSECTES,CIGALES,
1910 DATA SA,FATIGUE,LAS,FLOUA,LESA,CRASSEUX,SALES,MIS AU DIAMETRE,ALESES,LIQUIDE SIRUPEUX,MELASSE,
1920 DATA TA,RONGEUR,RAT,ENLEVEMENT,RAPT,CONFIA,PRETA,PIEGE,TRAPPE,ATTIRER,APPATER,
1930 DATA RE,AVENUE,RUE,DUR,RUDE,TEMPS,DUREE,HARDI,DELURE,OUVERTURE,PRELUDE,
1940 DATA AI,MOIS,MAI,ADULE,AIME,CLASSE ORGANIQUE,AMIDE,ANEANTIT,DECIMA,QUI CONCERNE LA MEDECINE,MEDICAL,
1950 DATA ME,HABITANT,AME,AVIRON,RAME,COULEUR,PARME,UNITE DE COURANT,AMPERE,MODERA,TEMPERA,
1960 DATA OR,UNITE MONETAIRE,ORE,GEANT GOURMAND,OGRE,DEBAUCHE,ORGIE,SUCCES,GLOIRE,RENVOYER,LIMOGER,
1970 DATA AS,ABJECT,BAS,FONDEMENT,BASE,INDIFFERENT,BLASE,REPERE,BALISE,MACHINE DE GUERRE,BALISTE,
1980 DATA IS,ARGILE,SIL,EDITS,LOIS,ENTREPOTS,SILOS,SEULS,ISOLES,POUTRE,SOLIVES,
1990 DATA SA,CIRCONSTANCE,CAS,TROU D'AIGUILLE,CHAS,CAVES,CHAIS,SIEGE,CHAISE,PUNIS,CHATIES,
2000 DATA NI,BOISSON,VIN,INUTILE,VAIN,IMBIBE DE VIN,AVINE,TROUVA,DEVINA,SORTANT DES REGLES,DEVIANT,
2010 DATA DO,POEME,ODE,USE,RODE,CHIFFRER,CODER,JOINDRE,COUDRE,QUIETUDE,DOUCEUR,
2020 DATA BU,OBJECTIF,BUT,EXTREMITE,BOUT,COMPRESSEUR,TURBO,MANGE,BROUTE,JEUNE POUSSE,BOUTURE,
2030 DATA US,CAR,BUS,PROJECTILE,OBUS,FIENTE,BOUSE,VETEMENT,BLOUSE,QUI PEUT SE DISSOUDRE,SOLUBLE,
2040 DATA RE,RAPPEL,TER,BEAUCOUP,TRES,US,RITES,COURONNES,TIARES,AIMANTES,ATTIRES,
2050 DATA MU,TROUBLE,EMU,DEESSE,MUSE,GRIMACES,MOUES,RAILLES,MOQUES,LIEU DE PRIERE,MOSQUEE,
2060 DATA PO,DEPART,TOP,AMI,POTE,EMPLOI,POSTE,OUVERTURES,PORTES,PIECES DE CHARPENTE,POUTRES,
2070 DATA IS,PARTIE DE VOILE,RIS,SEIGNEUR,SIRE,ASPERITE,PRISE,VICTIMES,PROIES,BECQUETES,PICORES,
2080 DATA US,ELIME,USE,AIGRE,SURE,ETOFFES GROSSIERES,BURES,CREPUSCULES,BRUNES,PLUIES FINES,BRUINES,MARQUES DE RIDES,BURINES,


