5 '
6 'histoire/Lavergne georges/5 rue des ecoles 37420 avoine /tel 47589532/amstrad 464,664,6128/ 7 ' 8 ' 35 ON BREAK CONT 40 MODE 1 50 SYMBOL AFTER 122 51 eff$=" " 52 SYMBOL 125,&60,&10,&3C,&66,&7E,&60,&3C 53 SYMBOL 123,&6,&8,&3C,&66,&7E,&60,&3C 55 KEY 135,CHR$(123) 57 KEY 128,CHR$(125) 58 SYMBOL 237,&C0,&F0,&9E,&FF,&F8,&FF,&FE,&F0:SYMBOL 236,&40,&5C,&5C,&54,&7E,&4E,&4E,&4E:SYMBOL 232,&7C,&7C,&F6,&FF,&FC,&F8,&7E,&3C:SYMBOL 230,&0,&0,&54,&54,&7C,&7C,&7C,&7C:SYMBOL 229,&FF,&FE,&FE,&FC,&FC,&F8,&E0,&80 59 SYMBOL 225,&FF,&FF,&7F,&7F,&3F,&1F,&F,&3:SYMBOL 224,&18,&98,&98,&D8,&D8,&F8,&F0,&E0:SYMBOL 228,&0,&0,&0,&0,&0,&0,&55,&FF:SYMBOL 223,&FF,&FF,&EF,&EF,&EF,&EF,&FF,&FF 60 SYMBOL 222,&20,&20,&64,&44,&49,&ED,&FE,&7F:SYMBOL 221,&F6,&F7,&F6,&FC,&FE,&FE,&FF,&FF:SYMBOL 220,&FE,&FC,&FC,&FC,&FC,&FE,&FE,&FF 61 SYMBOL 219,&FF,&FF,&C,&18,&30,&60,&C0,&C0:SYMBOL 218,&3,&7,&F,&1B,&33,&63,&C3,&C3:SYMBOL 217,&FF,&FF,&F,&1B,&33,&63,&C3,&C3:SYMBOL 227,&3F,&3F,&3E,&3E,&3E,&7C,&7C,&70:SYMBOL 226,&70,&7C,&7E,&36,&3E,&7C,&40,&80 62 SYMBOL 216,&3,&6,&C,&18,&38,&7C,&FC,&FE:SYMBOL 207,&18,&3C,&7E,&FF,&FC,&7E,&7C,&38:SYMBOL 206,&51,&DB,&FF,&FF,&FF,&FF,&FF,&FF:SYMBOL 203,&78,&78,&7C,&FC,&FE,&FE,&FE,&FF:SYMBOL 201,&E7,&C7,&C7,&CF,&DF,&FF,&FF,&FF 63 SYMBOL 202,&FF,&FF,&FF,&FF,&FF,&7E,&7E,&3C 65 INK 0,0:INK 1,0:INK 2,0:INK 3,0:PAPER 0:BORDER 0 67 CLS:LOCATE 1,1:PEN 3:PRINT "g.LAVERGNE":LOCATE 2,3:PRINT "présente":LOCATE 1,10:PEN 1:PRINT "HISTOIRE":LOCATE 3,12:PEN 1:PRINT "DE":LOCATE 2,14:PEN 1:PRINT "FRANCE" 68 PEN 3:LOCATE 1,20:PRINT "1ère partie:":LOCATE 1,22:PRINT "Des origines":LOCATE 2,24:PRINT " a 1629" 70 PLOT 320,390,2:DRAW 320,340,3:DRAW 330,310,3:DRAW 330,300,3:DRAW 250,280,3:DRAW 250,180,3:DRAW 320,190,3:DRAW 340,200,3:DRAW 360,205,3:DRAW 365,225,3:DRAW 340,220,3:DRAW 300,215,3:DRAW 300,250,3 72 PLOT 320,390,3:DRAW 330,399,3:DRAW 370,399,3:DRAW 380,390,3:DRAW 380,300,3:DRAW 450,280,3:DRAW 450,180,3:DRAW 400,160,3:DRAW 390,140,3:DRAW 370,140,3:DRAW 380,170,3 74 DRAW 420,200,3:DRAW 415,250,3:PLOT 320,220,3:DRAW 330,225,3:DRAW 250,399,3:DRAW 340,230,3:DRAW 360,240,3:DRAW 365,230,3 76 PLOT 290,180,3:DRAW 300,130,3:DRAW 290,80,3:PLOT 420,170,3:DRAW 410,130,3:DRAW 420,80,3:PLOT 380,140,3:DRAW 360,10,3:DRAW 365,10,3:DRAW 385,140,3 78 PLOT 385,170,3:DRAW 425,399,3:DRAW 430,399,3:DRAW 390,175,3:PLOT 430,380,3:DRAW 500,370,3:DRAW 465,170,3:DRAW 445,175,3 79 PLOT 495,330,3:DRAW 580,310,3:DRAW 540,110,3:DRAW 450,135,3:DRAW 457,170,3:PLOT 575,280,3:DRAW 639,265,3:DRAW 600,70,3:DRAW 530,90,3:DRAW 535,110,3 80 MOVE 420,300:FILL 2:MOVE 500,250:FILL 3:MOVE 560,150:FILL 1 82 INK 0,0:INK 3,26:INK 2,1:INK 1,6: 93 FOR a=1 TO 2000:NEXT 95 GOSUB 4000:'creation caracteres 115 WINDOW #1,16,23,1,8 120 DIM im$(15),p$(15),d$(15),t1$(15),t2$(15),t3$(15),avi(20),avp(20),avd(20),avt(20) 150 FOR t=1 TO 15:READ im$(t),p$(t),d$(t),t1$(t),t2$(t),t3$(t):NEXT 165 INK 0,0:INK 1,0:INK 2,0:INK 3,0:PAPER 0:BORDER 0:CLS 170 CLS:LOCATE 1,1:PEN 3:PRINT "Ce programme contient quelques grands thèmes de l'histoire de France.":PEN 2:LOCATE 4,4:PRINT "1ère PARTIE:DES ORIGINES A 1629" 171 LOCATE 1,7:PEN 1:PRINT "Chaque thème contient une illustration, un personnage,une date et un événement.":LOCATE 1,9:PRINT "Ces quatre éléments sont liés." 172 PEN 2:LOCATE 1,12:PRINT "A partir d'un élément, il s'agira de re-trouver les trois autres.":PEN 1:LOCATE 1,17:PRINT "Les flèches du pavé numérique permettent de se déplacer dans le temps. 173 LOCATE 1,19:PRINT "La touche ENTER validera votre réponse." 180 PEN 2:LOCATE 4,24:PRINT "ETES-VOUS UN NOUVEAU JOUEUR (O/N) 181 INK 0,0:INK 1,12:INK 2,15:INK 3,11 182 IF INKEY(46)<>0 AND INKEY(34)<>0 THEN LOCATE 32,25:PEN 1:PRINT "_____":FOR a=1 TO 100:NEXT:LOCATE 32,25:PRINT " ":FOR a=1 TO 100:NEXT: GOTO 182 184 IF INKEY(34)=0 THEN TOTAL=0:er=0:bien=0:manche=0:point=0:b=0:rep(3)=0:kk$="":rep(1)=0:rep(2)=0:c=0:avi=0:avp=0:avd=0:avt=0:fl=0 186 point=0:er=0:b=0:rep(3)=0:rep(1)=0:rep(2)=0:kk$="":c=0:avi=0:avp=0:avd=0:avt=0:fl=0 200 CLS:PAPER 0:PEN 1:LOCATE 15,12:PRINT "1 ====> REVISION":LOCATE 15,20:PRINT "2 ====> JEU" 210 IF INKEY(64)<>0 AND INKEY(65)<>0 THEN 210 215 IF INKEY(64)=0 THEN 2500:'revision 220 manche=manche+1 300 PAPER 0:PEN 3:CLS:erreur=0:bien=0 302 ' 303 ' départ 304 ' 305 ' 307 INK 0,0:INK 1,0:INK 2,0:INK 3,0:BORDER 0:PAPER 0:PEN 3 310 PAPER 2:FOR T=1 TO 25:LOCATE 1,T:PRINT " ":NEXT:T=0:FOR T=1 TO 25:LOCATE 37,T:PRINT " ":NEXT:PAPER 0 320 PAPER 2:LOCATE 1,9:PRINT " ":LOCATE 1,13:PRINT " ":LOCATE 1,17:PRINT " ":LOCATE 1,23:PRINT" " 322 LOCATE 1,24:PRINT " " 325 PAPER 0:PEN 1:LOCATE 10,5:PRINT "1 - ILLUSTRATIONS - 1":LOCATE 10,11:PRINT "2 - PERSONNAGES - 2":LOCATE 10,15:PRINT "3 - DATES - 3":LOCATE 10,20:PRINT "4 - EVENEMENTS - 4" 350 IF rev=1 THEN 2510:'revision 580 ' 581 ' 582 ' le choix 583 ' 584 ' 590 PAPER 1:PEN 0:LOCATE 6,24:PRINT "Choisissez le thème de départ":PAPER 2:PEN 3:LOCATE 7,25:PRINT"LE CHOIX (1 a 4) ET ENTER:" 602 INK 0,0:INK 1,16:INK 2,9:INK 3,26:BORDER 9:PAPER 2:PEN 3 603 IF INKEY$<>"" THEN 603 605 K$=INKEY$:IF K$=""THEN LOCATE 36,25:PRINT "__":FOR a=1 TO 100:NEXT:LOCATE 36,25:PRINT " ":FOR a=1 TO 100:NEXT:GOTO 605 606 IF INKEY(18)=0 OR INKEY(6)=0 THEN 665 620 IF ASC(K$)<49 OR ASC(K$)>52 THEN 603 650 LOCATE 35,25:PRINT K$:kk$=k$ 660 GOTO 605 665 IF kk$="" THEN 605 670 ' 671 ' 672 ' affichage choix 673 ' 674 ' 675 x=INT(RND*15)+1 680 ON VAL(kk$) GOTO 700,750,800,850 700 PAPER 0:LOCATE 10,5:PRINT " ":PLOT 370,275,3:DRAW 370,400,3:PLOT 237,275,3:DRAW 237,400,3:ON x GOSUB 9000,9010,9040,9020,9030,9052,9060,9070,9080,9090,9100,9110,9120,9130,9140 710 GOTO 900 750 LOCATE 10,11:PAPER 0:PEN 3:PRINT " ":LOCATE 10,11:PRINT p$(x):GOTO 900 800 LOCATE 10,15:PAPER 0:PEN 3:PRINT " ":LOCATE 10,15:PRINT D$(X):GOTO 900 850 PAPER 0:LOCATE 10,20:PRINT eff$:LOCATE 10,19:PRINT t1$(x):LOCATE 10,20:PRINT t2$(x):LOCATE 10,21:PRINT t3$(x):GOTO 900 890 ' 891 ' 892 ' fleches points blancs depart 893 ' 894 ' 900 FOR tt=1 TO 4 912 IF tt=VAL(kk$) THEN 920 916 ON tt GOSUB 6000,6020,6030,6040:'fleches avant 920 NEXT 960 PAPER 2:LOCATE 1,25:PRINT " " 965 PAPER 1:PEN 0:LOCATE 5,24:PRINT "FLECHES pour modifier et ENTER" 970 ON VAL(KK$) GOSUB 975,980,985,990 972 GOTO 1000 975 LOCATE 5,11:PEN 3:PAPER 0:PRINT CHR$(231):LOCATE 36,11:PRINT CHR$(231):RETURN 980 LOCATE 5,15:PEN 3:PAPER 0:PRINT CHR$(231):LOCATE 36,15:PRINT CHR$(231):RETURN 985 LOCATE 5,20:PEN 3:PAPER 0:PRINT CHR$(231):LOCATE 36,20:PRINT CHR$(231):RETURN 990 LOCATE 5,5:PEN 3:PAPER 0:PRINT CHR$(231):LOCATE 36,5:PRINT CHR$(231):RETURN 1000 IF VAL(KK$)=1 THEN 1007 1005 LOCATE 10,5:PAPER 0:PEN 1:PRINT " ":LOCATE 10,5:PRINT "DEPART illustrations" 1007 IF VAL(KK$)=2 THEN 1010 1008 LOCATE 10,11:PAPER 0:PEN 1:PRINT " ":LOCATE 10,11:PRINT "DEPART personnages": 1010 IF VAL(KK$)=3 THEN 1015 1011 LOCATE 10,15:PAPER 0:PEN 1:PRINT " ":LOCATE 10,15:PRINT "DEPART dates" 1015 IF VAL(KK$)=4 THEN 1040 1017 LOCATE 10,20:PAPER 0:PEN 1:PRINT " ":LOCATE 10,20:PRINT "DEPART evenements" 1020 ' 1021 ' 1022 ' 1023 ' modification fleches 1024 ' 1025 ' 1026 ' 1040 c=VAL(kk$)+1 1045 GOSUB 3710:'possibilites offertes 1065 IF c=5 THEN c=1 1100 IF INKEY(0)=0 THEN 1200 1105 IF INKEY(2)=0 THEN 1300 1110 IF INKEY(8)=0 THEN 1800 1115 IF INKEY(1)=0 THEN 1600 1120 IF INKEY(69)=0 THEN 2400:'abandon 1125 IF INKEY(50)=0 THEN 2400:'revision 1160 IF INKEY(18)=0 OR INKEY(6)=0 THEN 2000:'test des reponses 1170 PAPER 0:PEN 1 1180 GOTO 1100 1190 ' 1191 ' 1192 ' vers le haut 1193 ' 1194 ' 1195 ' 1200 c=c-1 1205 IF c<1 THEN c=4 1207 IF c=VAL(kk$) THEN c=c-1 1208 IF c<1 THEN c=4 1209 IF c=rep(1) THEN 1200 1210 IF c=rep(2) THEN 1200 1217 FOR tt=1 TO 4 1218 IF tt=VAL(kk$) THEN 1220 1219 ON tt GOSUB 8510,8520,8530,8540:'efface points blancs 1220 NEXT 1230 ON c GOSUB 990,975,980,985:'points blancs 1240 GOTO 1100 1290 ' 1291 ' 1293 ' 1294 ' vers le bas 1295 ' 1296 ' 1297 ' 1300 c=c+1 1306 IF c>4 THEN c=1 1307 IF c=VAL(kk$) THEN c=c+1 1308 IF c>4 THEN c=1 1309 IF c=rep(1) THEN 1300 1310 IF c=rep(2) THEN 1300 1317 FOR tt=1 TO 4 1318 IF tt=VAL(kk$) THEN 1320 1319 ON tt GOSUB 8510,8520,8530,8540:'efface points blancs 1320 NEXT 1330 ON c GOSUB 990,975,980,985:'points blancs 1340 GOTO 1100 1590 ' 1591 ' 1592 ' 1593 ' a droite 1594 ' 1595 ' 1596 ' 1600 ON c GOSUB 6000,6020,6030,6040:'fleches avant 1615 ON c GOTO 1640,1660,1670,1680: 1640 avi=avi+1 1642 IF avi>15 THEN avi=15 1650 ON avi GOSUB 9000,9010,9040,9020,9030,9052,9060,9070,9080,9090,9100,9110,9120,9130,9140 1653 GOTO 1100 1660 avp=avp+1 1661 IF avp>15 THEN avp=15 1662 PAPER 0:LOCATE 10,11:PRINT " ":LOCATE 10,11:PEN 1:PRINT p$(avp):GOTO 1100 1670 avd=avd+1 1671 IF avd>15 THEN avd=15:fl=23 1673 PAPER 0:LOCATE 10,15:PRINT " ":LOCATE 10,15:PEN 1:PRINT d$(avd) 1676 LOCATE 5+fl,14:PRINT " ":LOCATE 5+fl,16:PRINT " ": 1677 IF avd=2 THEN fl=10 1679 fl=fl+1:PEN 2:LOCATE 5+fl,14:PRINT CHR$(241):LOCATE 5+fl,16:PRINT CHR$(240):GOTO 1100 1680 avt=avt+1 1681 IF avt>15 THEN avt=15 1682 LOCATE 10,19:PRINT eff$:LOCATE 10,20:PRINT eff$:LOCATE 10,21:PRINT eff$:LOCATE 10,19:PRINT t1$(avt):LOCATE 10,20:PRINT t2$(avt):LOCATE 10,21:PRINT t3$(avt):GOTO 1100 1790 ' 1791 ' 1792 ' 1793 ' a gauche 1794 ' 1795 ' 1796 ' 1800 ON c GOSUB 6100,6120,6130,6140:'fleches arriere 1815 ON c GOTO 1840,1860,1870,1880 1840 avi=avi-1 1842 IF avi<1 THEN avi=1 1850 ON avi GOSUB 9000,9010,9040,9020,9030,9052,9060,9070,9080,9090,9100,9110,9120,9130,9140 1853 GOTO 1100 1860 avp=avp-1 1861 IF avp<1 THEN avp=1 1862 PAPER 0:LOCATE 10,11:PRINT " ":LOCATE 10,11:PEN 1:PRINT p$(avp):GOTO 1100 1870 avd=avd-1 1871 IF avd<1 THEN avd=1:fl=2 1873 PAPER 0:LOCATE 10,15:PRINT " ":LOCATE 10,15:PEN 1:PRINT d$(avd): 1876 LOCATE 5+fl,14:PRINT " ":LOCATE 5+fl,16:PRINT " ": 1877 IF avd=1 THEN fl=1 1879 fl=fl-1:PEN 2:LOCATE 5+fl,14:PRINT CHR$(241):LOCATE 5+fl,16:PRINT CHR$(240):GOTO 1100 1880 avt=avt-1 1881 IF avt<1 THEN avt=1 1882 LOCATE 10,19:PRINT eff$:LOCATE 10,20:PRINT eff$:LOCATE 10,21:PRINT eff$:LOCATE 10,19:PRINT t1$(avt):LOCATE 10,20:PRINT t2$(avt):LOCATE 10,21:PRINT t3$(avt):GOTO 1100 1990 ' 1991 ' 1992 ' 1993 ' test reponse 1994 ' 1995 ' 1996 ' 2000 ON c GOTO 2010,2015,2020,2025 2010 IF avi=x THEN 2100 ELSE 2300 2015 IF avp=x THEN 2100 ELSE 2300 2020 IF avd=x THEN 2100 ELSE 2300 2025 IF avt=x THEN 2100 ELSE 2300 2050 GOTO 2300:'faux 2090 ' 2091 ' 2092 ' 2093 ' bonne reponse 2094 ' 2095 ' 2096 ' 2100 PAPER 2:LOCATE 1,23:PRINT " ":LOCATE 17,23:PEN 3:PRINT "BRAVO" 2105 FOR a=1 TO 10:LOCATE 17,23:PRINT "BRAVO":FOR aa=1 TO 100:NEXT:LOCATE 17,23:PRINT " ":FOR aa=1 TO 100:NEXT:NEXT 2110 bien=bien+1:PAPER 3:PEN 0 2112 point=point+3 2114 IF point<0 THEN point=0 2116 LOCATE 37,25:PRINT STR$(point) 2120 ON C GOSUB 8510,8520,8530,8540:'efface points verts 2130 ON C GOSUB 6200,6220,6230,6240:'EFFACE FLECHES 2150 b=b+1:'indice reponse 2155 PAPER 0:PEN 1 2160 rep(b)=c 2165 IF rep(3) <>0 THEN LOCATE 1,24:PAPER 2:PRINT " ":FOR a=1 TO 2000:NEXT:GOTO 2200 2170 FOR tt=1 TO 4 2173 IF tt<>VAL(kk$) AND tt<>rep(1) AND tt<>rep(2) THEN 2180 2175 NEXT 2180 c=tt 2185 ON c GOSUB 990,975,980,985:'points verts 2190 GOTO 1100:'retour nouvelle question 2195 ' 2196 ' 2197 ' fin 2198 ' 2199 ' 2200 PAPER 2:LOCATE 1,24:PRINT " ":LOCATE 1,25:PRINT " ":PEN 3:LOCATE 7,25:PRINT "TRES BIEN ! Voici le bilan.":FOR aa=1 TO 3000:NEXT 2210 GOTO 2400:'bilan 2290 ' 2291 ' 2292 ' 2293 ' faux 2294 ' 2295 ' 2296 ' 2300 er=er+1 2302 point=point-1 2303 IF point<0 THEN point=0 2304 PAPER 3:PEN 0:LOCATE 37,25:PRINT STR$(point) 2305 PEN 3:PAPER 2:LOCATE 10,23:PRINT "ERREUR, recommence..." 2308 FOR a=1 TO 10:LOCATE 10,23:PRINT "ERREUR":FOR aa=1 TO 100:NEXT:LOCATE 10,23:PRINT " ":FOR aa=1 TO 100:NEXT:NEXT 2310 PAPER 2:LOCATE 16,23:PRINT " " 2320 PEN 0:PAPER 3:LOCATE 30,25:PRINT STR$(er) 2350 GOTO 1100:'retour jeu 2390 ' 2391 ' 2392 ' 2393 ' bilan 2394 ' 2395 ' 2396 ' 2400 PAPER 0:BORDER 0:CLS:INK 0,0:INK 1,26:INK 2,6:INK 3,24 2403 PAPER 3:PEN 2:LOCATE 18,1:PRINT "BILAN" 2410 PAPER 0:PEN 2:LOCATE 10,3:PRINT "Manche N* ":LOCATE 10,6:PRINT "Bonnes réponses:":LOCATE 10,9:PRINT "Nombre d'erreurs:":LOCATE 2,12:PRINT "Le score,pour cette manche, est:" 2413 PEN 3:LOCATE 14,18:PRINT "TOTAL:" 2415 total=total+point 2418 PEN 3:LOCATE 22,3:PRINT manche:LOCATE 27,6:PRINT bien:LOCATE 28,9:PRINT er:LOCATE 35,12:PRINT point:LOCATE 22,18:PEN 1:PRINT total 2430 'bien=le nombre de reussites / er= les erreurs / q=nombre de questions 2440 PAPER 3:PEN 2:LOCATE 2,25:PRINT "ESPACE":LOCATE 21,25:PRINT "ENTER":PAPER 0:PEN 2:LOCATE 9,25:PRINT "==> rejouer.":LOCATE 27,25:PRINT "==> révision." 2450 IF INKEY(47)<>0 AND INKEY(18)<>0 AND INKEY(6)<>0 THEN 2450 2460 IF INKEY(18)=0 OR INKEY(6)=0 THEN 2500 2470 GOTO 165:'nouvelle partie 2490 ' 2491 ' 2492 ' 2493 ' revision 2494 ' 2495 ' 2496 ' 2500 rev=1:GOTO 300:'ecran de presentation 2510 PAPER 2:PEN 3:LOCATE 10,23:PRINT "VOUS ETES EN REVISION" 2520 LOCATE 8,24:PRINT "Désirez-vous faire défiler ":LOCATE 12,25:PRINT "la série 1 (o/n)" 2521 INK 0,0:INK 1,16:INK 2,9:INK 3,26:BORDER 9:PAPER 2:PEN 3 2522 LOCATE 21,25:PRINT "1":FOR a=1 TO 100:NEXT:LOCATE 21,25:PRINT " ":FOR a=1 TO 100:NEXT 2525 IF INKEY(34)<>0 AND INKEY(46)<>0 THEN 2522 2527 IF INKEY(34)=0 THEN 2530 ELSE 2532 2530 un=1 2532 FOR a=1 TO 500:NEXT 2535 LOCATE 21,25:PRINT "2":FOR a=1 TO 100:NEXT:LOCATE 21,25:PRINT " ":FOR a=1 TO 100:NEXT 2538 IF INKEY(34)<>0 AND INKEY(46)<>0 THEN 2535 2540 IF INKEY(34)=0 THEN 2545 ELSE 2547 2545 deux=1 2547 FOR a=1 TO 500:NEXT 2550 LOCATE 21,25:PRINT "3":FOR a=1 TO 100:NEXT:LOCATE 21,25:PRINT " ":FOR a=1 TO 100:NEXT 2555 IF INKEY(34)<>0 AND INKEY(46)<>0 THEN 2550 2560 IF INKEY(34)=0 THEN 2565 ELSE 2567 2565 trois=1 2567 FOR a=1 TO 500:NEXT 2570 LOCATE 21,25:PRINT "4":FOR a=1 TO 100:NEXT:LOCATE 21,25:PRINT " ":FOR a=1 TO 100:NEXT 2575 IF INKEY(34)<>0 AND INKEY(46)<>0 THEN 2570 2580 IF INKEY(34)=0 THEN 2585 ELSE 2600 2585 quatre=1 2600 LOCATE 10,23:PRINT " ":LOCATE 8,24:PRINT " ":LOCATE 10,25:PRINT " " 2610 LOCATE 5,24:PRINT "Utiliser -> et <- pour voyager":LOCATE 12,25:PRINT "dans le Temps." 2620 PAPER 1:PEN 0:LOCATE 1,25:PRINT "M=MENU":LOCATE 34,25:PRINT "M=MENU":PAPER 0:PEN 3 2650 IF INKEY(1)=0 THEN avance=1:GOTO 2700:'avant 2660 IF INKEY(8)=0 THEN avance=0:GOTO 2700:'arriere 2665 IF INKEY(38)=0 THEN 2800:'menu 2670 GOTO 2650 2690 ' 2691 ' 2692 ' 2693 ' revision 2694 ' 2695 ' 2696 ' 2700 IF avance =1 THEN r=r+1 ELSE r=r-1 2702 IF r<1 THEN r=1 2703 IF r>15 THEN r=15 2705 IF un<>1 THEN 2720 2707 IF avance=1 THEN GOSUB 6000 ELSE GOSUB 6100 2710 ON r GOSUB 9000,9010,9040,9020,9030,9052,9060,9070,9080,9090,9100,9110,9120,9130,9140 2720 IF deux<>1 THEN 2730 2721 IF avance=1 THEN GOSUB 6020 ELSE GOSUB 6120 2723 PAPER 0:PEN 1:LOCATE 10,11:PRINT " ":LOCATE 10,11:PRINT p$(r) 2730 IF trois<>1 THEN 2740 2731 IF avance=1 THEN GOSUB 6030 ELSE GOSUB 6130 2733 IF r=15 THEN fl=22 2734 PAPER 0:LOCATE 5+fl,14:PRINT " ":LOCATE 5+fl,16:PRINT " ": 2735 IF r=1 THEN fl=1 2736 IF avance=1 THEN fl=fl+1 ELSE fl=fl-1 2737 IF r=2 THEN fl=10 2738 PEN 2:LOCATE 5+fl,14:PRINT CHR$(241):LOCATE 5+fl,16:PRINT CHR$(240) 2739 PAPER 0:PEN 1:LOCATE 10,15:PRINT " ":LOCATE 10,15:PRINT d$(r) 2740 IF quatre<>1 THEN 2770 2743 IF avance=1 THEN GOSUB 6040 ELSE GOSUB 6140 2744 PAPER 0:PEN 1 2746 LOCATE 10,19:PRINT eff$:LOCATE 10,20:PRINT eff$:LOCATE 10,21:PRINT eff$:LOCATE 10,19:PRINT t1$(r):LOCATE 10,20:PRINT t2$(r):LOCATE 10,21:PRINT t3$(r) 2770 GOTO 2650 2790 ' 2791 ' 2796 ' 2800 un=0:deux=0:trois=0:quatre=0:rev=0:r=0:GOTO 165:'menu 2900 FOR a=1 TO 5000:NEXT 3600 PAPER 0:PEN 1:RETURN 3700 'possibilites affichees 3710 PAPER 3:PEN 0:LOCATE 1,25:PRINT "A=ABANDON":LOCATE 11,25:PRINT "R=REVISION":LOCATE 22,25:PRINT "ERREURS: ":LOCATE 30,25:PRINT er:LOCATE 34,25:PRINT "SC: ":LOCATE 37,25:PRINT bien:PAPER 0:PEN 3 3790 RETURN 4000 '******************* illustrations 4005 'prehistoire 4010 SYMBOL 254,&1,&3,&7,&F,&1F,&1F,&3F,&3F:SYMBOL 255,&80,&80,&C0,&C0,&E0,&F0,&78,&78:SYMBOL 253,&3F,&3F,&1F,&1F,&1F,&F,&7,&3:SYMBOL 252,&7,&1F,&3F,&7F,&FF,&FF,&F9,&C0:SYMBOL 251,&78,&7C,&3E,&1E,&1F,&1F,&F,&3 4012 SYMBOL 250,&1,&7,&3F,&3F,&7F,&7F,&FF,&FF:SYMBOL 249,&FF,&FE,&FE,&FC,&F8,&F8,&FC,&FE:SYMBOL 248,&FE,&7E,&7E,&7F,&3F,&3F,&1F,&F:SYMBOL 247,&7F,&1F,&18,&30,&0,&7,&7,&7:SYMBOL 244,&7,&F,&1E,&FE,&FE,&FC,&F8,&F0 4015 PAPER 1:PEN 0:d1$=CHR$(128)+CHR$(128)+CHR$(128)+CHR$(128)+CHR$(128)+CHR$(128)+CHR$(250)+CHR$(143)+CHR$(128)+CHR$(128)+CHR$(128)+CHR$(128)+CHR$(128)+CHR$(250)+CHR$(135)+CHR$(143) 4017 d2$=CHR$(32)+CHR$(32)+CHR$(32)+CHR$(32)+CHR$(254)+CHR$(143)+CHR$(143)+CHR$(143)+CHR$(32)+CHR$(32)+CHR$(32)+CHR$(255)+CHR$(253)+CHR$(143)+CHR$(143)+CHR$(143) 4019 d3$=CHR$(32)+CHR$(32)+CHR$(32)+CHR$(251)+CHR$(252)+CHR$(249)+CHR$(247)+CHR$(143)+CHR$(32)+CHR$(32)+CHR$(32)+CHR$(32)+CHR$(32)+CHR$(248)+CHR$(244)+CHR$(143) 4025 'vercingetorix 4027 d4$=CHR$(32)+CHR$(32)+CHR$(32)+CHR$(140)+CHR$(32)+CHR$(32)+CHR$(32)+CHR$(32)+CHR$(143)+CHR$(143)+CHR$(143)+CHR$(143)+CHR$(143)+CHR$(143)+CHR$(215)+CHR$(32) 4029 d5$=CHR$(143)+CHR$(143)+CHR$(143)+CHR$(143)+CHR$(143)+CHR$(143)+CHR$(143)+CHR$(246)+CHR$(143)+CHR$(143)+CHR$(143)+CHR$(143)+CHR$(143)+CHR$(143)+CHR$(212)+CHR$(32) 4031 d6$=CHR$(32)+CHR$(32)+CHR$(32)+CHR$(143)+CHR$(32)+CHR$(32)+CHR$(32)+CHR$(32):d7$=CHR$(32)+CHR$(32)+CHR$(32)+CHR$(143)+CHR$(32)+CHR$(32)+CHR$(32)+CHR$(32) 4040 'clovis 4042 d8$=CHR$(150)+CHR$(42)+CHR$(42)+CHR$(42)+CHR$(42)+CHR$(42)+CHR$(156)+CHR$(32)+CHR$(149)+CHR$(213)+CHR$(143)+CHR$(143)+CHR$(143)+CHR$(212)+CHR$(149)+CHR$(32) 4044 d9$=CHR$(147)+CHR$(154)+CHR$(143)+CHR$(143)+CHR$(143)+CHR$(154)+CHR$(153)+CHR$(32)+CHR$(32)+CHR$(32)+CHR$(213)+CHR$(143)+CHR$(212)+CHR$(32)+CHR$(32)+CHR$(32) 4046 d10$=CHR$(32)+CHR$(32)+CHR$(142)+CHR$(143)+CHR$(141)+CHR$(32)+CHR$(32)+CHR$(32) 4050 'charlemagne 4051 SYMBOL 239,&1,&7,&1F,&FF,&FF,&7F,&7F,&FF 4052 d11$=CHR$(32)+CHR$(214)+CHR$(215)+CHR$(214)+CHR$(215)+CHR$(32)+CHR$(32)+CHR$(32)+CHR$(214)+CHR$(143)+CHR$(143)+CHR$(143)+CHR$(143)+CHR$(215)+CHR$(214)+CHR$(215) 4054 d12$=CHR$(32)+CHR$(32)+CHR$(32)+CHR$(32)+CHR$(32)+CHR$(32)+CHR$(32)+CHR$(32)+CHR$(32)+CHR$(32)+CHR$(32)+CHR$(101)+CHR$(116)+CHR$(32)+CHR$(32)+CHR$(250) 4056 d13$=CHR$(32)+CHR$(146)+CHR$(159)+CHR$(154)+CHR$(154)+CHR$(154)+CHR$(239)+CHR$(143)+CHR$(32)+CHR$(32)+CHR$(32)+CHR$(32)+CHR$(32)+CHR$(250)+CHR$(143)+CHR$(143) 4060 'le gallo romain 4061 SYMBOL 238,&FF,&E7,&C3,&81,&81,&81,&81,&81 4062 d14$=CHR$(32)+CHR$(32)+CHR$(32)+CHR$(32)+CHR$(32)+CHR$(32)+CHR$(32)+CHR$(32)+CHR$(238)+CHR$(238)+CHR$(238)+CHR$(238)+CHR$(238)+CHR$(238)+CHR$(238)+CHR$(238) 4064 d15$=CHR$(139)+CHR$(135)+CHR$(139)+CHR$(135)+CHR$(139)+CHR$(135)+CHR$(139)+CHR$(135)+CHR$(139)+CHR$(135)+CHR$(131)+CHR$(139)+CHR$(135)+CHR$(131)+CHR$(139)+CHR$(135) 4066 d16$=CHR$(138)+CHR$(133)+CHR$(32)+CHR$(138)+CHR$(133)+CHR$(32)+CHR$(138)+CHR$(133) 4070 'normand 4072 d17$=CHR$(32)+CHR$(32)+CHR$(32)+CHR$(32)+CHR$(32)+CHR$(32)+CHR$(32)+CHR$(32)+CHR$(32)+CHR$(213)+CHR$(143)+CHR$(143)+CHR$(215)+CHR$(32)+CHR$(32)+CHR$(32) 4074 d18$=CHR$(32)+CHR$(32)+CHR$(143)+CHR$(143)+CHR$(143)+CHR$(32)+CHR$(32)+CHR$(32)+CHR$(32)+CHR$(214)+CHR$(143)+CHR$(143)+CHR$(212)+CHR$(32)+CHR$(214)+CHR$(237) 4076 d19$=CHR$(236)+CHR$(236)+CHR$(236)+CHR$(143)+CHR$(236)+CHR$(214)+CHR$(212)+CHR$(32)+CHR$(213)+CHR$(143)+CHR$(143)+CHR$(143)+CHR$(143)+CHR$(212)+CHR$(32)+CHR$(32) 4079 'croisade 4080 SYMBOL 235,&3F,&7E,&FF,&3F,&F,&3F,&1F,&F:SYMBOL 234,&E0,&F0,&F8,&F8,&F8,&F8,&F0,&E0:SYMBOL 233,&80,&E0,&F8,&FC,&FC,&FE,&FE,&FF 4082 d20$=CHR$(32)+CHR$(235)+CHR$(143)+CHR$(234)+CHR$(32)+CHR$(32)+CHR$(159)+CHR$(32)+CHR$(32)+CHR$(32)+CHR$(143)+CHR$(32)+CHR$(32)+CHR$(32)+CHR$(149)+CHR$(32) 4084 d21$=CHR$(250)+CHR$(143)+CHR$(143)+CHR$(143)+CHR$(233)+CHR$(32)+CHR$(143)+CHR$(32)+CHR$(143)+CHR$(143)+CHR$(143)+CHR$(143)+CHR$(143)+CHR$(215)+CHR$(143)+CHR$(32) 4085 d22$=CHR$(212)+CHR$(143)+CHR$(143)+CHR$(143)+CHR$(213)+CHR$(143)+CHR$(212)+CHR$(32)+CHR$(32)+CHR$(143)+CHR$(143)+CHR$(143)+CHR$(236)+CHR$(32)+CHR$(32)+CHR$(32) 4086 d23$=CHR$(214)+CHR$(143)+CHR$(143)+CHR$(143)+CHR$(215)+CHR$(236)+CHR$(236)+CHR$(32)+CHR$(214)+CHR$(212)+CHR$(213)+CHR$(143)+CHR$(236)+CHR$(236)+CHR$(236) 4089 'louis IX 4090 d24$=CHR$(143)+CHR$(143)+CHR$(143)+CHR$(143)+CHR$(229)+CHR$(32)+CHR$(32)+CHR$(32)+CHR$(225)+CHR$(143)+CHR$(143)+CHR$(229)+CHR$(230)+CHR$(32)+CHR$(32)+CHR$(32) 4092 d25$=CHR$(32)+CHR$(32)+CHR$(143)+CHR$(32)+CHR$(232)+CHR$(32)+CHR$(32)+CHR$(32)+CHR$(32)+CHR$(138)+CHR$(143)+CHR$(214)+CHR$(143)+CHR$(224)+CHR$(32)+CHR$(32) 4094 d26$=CHR$(32)+CHR$(32)+CHR$(143)+CHR$(143)+CHR$(143)+CHR$(215)+CHR$(32)+CHR$(32)+CHR$(32)+CHR$(32)+CHR$(143)+CHR$(143)+CHR$(143)+CHR$(143)+CHR$(32)+CHR$(32) 4099 'du guesclin 4100 d27$=CHR$(32)+CHR$(32)+CHR$(32)+CHR$(32)+CHR$(140)+CHR$(32)+CHR$(32)+CHR$(32)+CHR$(32)+CHR$(32)+CHR$(140)+CHR$(228)+CHR$(223)+CHR$(228)+CHR$(228)+CHR$(143)+CHR$(32)+CHR$(32)+CHR$(223)+CHR$(143)+CHR$(143)+CHR$(223)+CHR$(143)+CHR$(223) 4102 d28$=CHR$(32)+CHR$(32)+CHR$(143)+CHR$(223)+CHR$(143)+CHR$(143)+CHR$(143)+CHR$(143)+CHR$(32)+CHR$(214)+CHR$(143)+CHR$(143)+CHR$(143)+CHR$(143)+CHR$(143)+CHR$(143) 4104 d29$=CHR$(214)+CHR$(143)+CHR$(143)+CHR$(143)+CHR$(143)+CHR$(143)+CHR$(143)+CHR$(143) 4109 'jeanne d'arc 4110 d30$=CHR$(32)+CHR$(32)+CHR$(32)+CHR$(133)+CHR$(32)+CHR$(32)+CHR$(32)+CHR$(32)+CHR$(32)+CHR$(32)+CHR$(32)+CHR$(221)+CHR$(32)+CHR$(32)+CHR$(32)+CHR$(32) 4112 d31$=CHR$(32)+CHR$(32)+CHR$(32)+CHR$(220)+CHR$(32)+CHR$(32)+CHR$(32)+CHR$(32)+CHR$(32)+CHR$(32)+CHR$(32)+CHR$(143)+CHR$(32)+CHR$(32)+CHR$(32)+CHR$(32) 4114 d32$=CHR$(32)+CHR$(32)+CHR$(222)+CHR$(143)+CHR$(222)+CHR$(222)+CHR$(32)+CHR$(32)+CHR$(32)+CHR$(222)+CHR$(143)+CHR$(143)+CHR$(143)+CHR$(143)+CHR$(222)+CHR$(222) 4119 'louis XI 4120 d33$=CHR$(32)+CHR$(32)+CHR$(204)+CHR$(219)+CHR$(219)+CHR$(219)+CHR$(217)+CHR$(32)+CHR$(32)+CHR$(204)+CHR$(219)+CHR$(219)+CHR$(219)+CHR$(217)+CHR$(218)+CHR$(32) 4122 d34$=CHR$(32)+CHR$(135)+CHR$(135)+CHR$(139)+CHR$(139)+CHR$(218)+CHR$(218)+CHR$(32)+CHR$(32)+CHR$(135)+CHR$(135)+CHR$(139)+CHR$(139)+CHR$(218)+CHR$(218)+CHR$(32) 4124 d35$=CHR$(32)+CHR$(135)+CHR$(139)+CHR$(135)+CHR$(139)+CHR$(218)+CHR$(204)+CHR$(32)+CHR$(32)+CHR$(141)+CHR$(142)+CHR$(141)+CHR$(142)+CHR$(204)+CHR$(32)+CHR$(32) 4129 'francois 1er 4130 d36$=CHR$(32)+CHR$(140)+CHR$(32)+CHR$(32)+CHR$(32)+CHR$(32)+CHR$(140)+CHR$(32)+CHR$(143)+CHR$(143)+CHR$(143)+CHR$(143)+CHR$(143)+CHR$(143)+CHR$(143)+CHR$(143) 4132 d37$=CHR$(77)+CHR$(65)+CHR$(82)+CHR$(73)+CHR$(71)+CHR$(78)+CHR$(65)+CHR$(78)+CHR$(128)+CHR$(128)+CHR$(128)+CHR$(128)+CHR$(128)+CHR$(128)+CHR$(128)+CHR$(128) 4134 d38$=CHR$(32)+CHR$(143)+CHR$(32)+CHR$(32)+CHR$(32)+CHR$(32)+CHR$(143)+CHR$(32)+CHR$(32)+CHR$(143)+CHR$(32)+CHR$(32)+CHR$(32)+CHR$(32)+CHR$(143)+CHR$(32) 4139 'st bartelemy 4140 d39$=CHR$(214)+CHR$(143)+CHR$(143)+CHR$(143)+CHR$(143)+CHR$(143)+CHR$(143)+CHR$(143)+CHR$(128)+CHR$(83)+CHR$(97)+CHR$(109)+CHR$(101)+CHR$(100)+CHR$(105)+CHR$(143) 4142 d40$=CHR$(128)+CHR$(128)+CHR$(50)+CHR$(51)+CHR$(128)+CHR$(128)+CHR$(128)+CHR$(143)+CHR$(128)+CHR$(97)+CHR$(111)+CHR$(117)+CHR$(116)+CHR$(128)+CHR$(128)+CHR$(143) 4144 d41$=CHR$(128)+CHR$(128)+CHR$(83)+CHR$(116)+CHR$(128)+CHR$(128)+CHR$(128)+CHR$(143)+CHR$(66)+CHR$(97)+CHR$(114)+CHR$(116)+CHR$(104)+CHR$(101)+CHR$(45)+CHR$(143) 4146 d42$=CHR$(128)+CHR$(108)+CHR$(101)+CHR$(109)+CHR$(121)+CHR$(128)+CHR$(128)+CHR$(143) 4149 'henri 4 4150 d43$=CHR$(32)+CHR$(32)+CHR$(32)+CHR$(216)+CHR$(216)+CHR$(32)+CHR$(32)+CHR$(32)+CHR$(32)+CHR$(254)+CHR$(143)+CHR$(143)+CHR$(143)+CHR$(143)+CHR$(234)+CHR$(32) 4152 d44$=CHR$(32)+CHR$(227)+CHR$(225)+CHR$(143)+CHR$(143)+CHR$(229)+CHR$(32)+CHR$(32)+CHR$(32)+CHR$(133)+CHR$(32)+CHR$(32)+CHR$(32)+CHR$(32)+CHR$(32)+CHR$(32)+CHR$(32)+CHR$(226)+CHR$(32)+CHR$(32)+CHR$(32)+CHR$(32)+CHR$(32)+CHR$(32) 4154 d45$=CHR$(139)+CHR$(143)+CHR$(143)+CHR$(143)+CHR$(143)+CHR$(143)+CHR$(135)+CHR$(32) 4159 'richelieu 4160 d46$=CHR$(207)+CHR$(32)+CHR$(32)+CHR$(32)+CHR$(32)+CHR$(32)+CHR$(32)+CHR$(228)+CHR$(203)+CHR$(32)+CHR$(32)+CHR$(32)+CHR$(32)+CHR$(32)+CHR$(228)+CHR$(143) 4162 d47$=CHR$(201)+CHR$(202)+CHR$(208)+CHR$(32)+CHR$(32)+CHR$(32)+CHR$(143)+CHR$(143)+CHR$(139)+CHR$(139)+CHR$(139)+CHR$(32)+CHR$(32)+CHR$(214)+CHR$(143)+CHR$(143) 4164 d48$=CHR$(139)+CHR$(139)+CHR$(139)+CHR$(128)+CHR$(128)+CHR$(128)+CHR$(128)+CHR$(128)+CHR$(139)+CHR$(139)+CHR$(139)+CHR$(128)+CHR$(128)+CHR$(128)+CHR$(128)+CHR$(128) 4500 RETURN:'fin caracteres crees 6000 'fleche illustration avant 6005 PLOT 58,275,2:DRAW 58,400,2:DRAW 1,339,2:DRAW 58,275,2:PLOT 580,275,2:DRAW 580,399,2:DRAW 640,399,2:DRAW 608,339,2:DRAW 640,275,2:DRAW 580,275,2 6010 PLOT 580,275,3:DRAW 580,400,3:DRAW 640,339,3:DRAW 580,275,3:PLOT 58,275,3:DRAW 58,399,3:DRAW 1,399,3:DRAW 32,339,3:DRAW 1,275,3:DRAW 58,275,3:RETURN 6020 'fleches personnages avant 6023 PLOT 60,208,2:DRAW 60,254,2:DRAW 1,232,2:DRAW 60,208,2:PLOT 580,208,2:DRAW 580,254,2:DRAW 640,254,2:DRAW 612,232,2:DRAW 640,208,2:DRAW 580,208,2 6025 PLOT 580,208,3:DRAW 580,254,3:DRAW 640,232,3:DRAW 580,208,3:PLOT 60,208,3:DRAW 60,254,3:DRAW 1,254,3:DRAW 32,232,3:DRAW 1,208,3:DRAW 60,208,3:RETURN 6030 'fleches dates avant 6033 PLOT 60,144,2:DRAW 60,190,2:DRAW 1,168,2:DRAW 60,144,2:PLOT 580,144,2:DRAW 580,190,2:DRAW 640,190,2:DRAW 608,168,2:DRAW 640,144,2:DRAW 580,144,2 6035 PLOT 580,144,3:DRAW 580,190,3:DRAW 640,168,3:DRAW 580,144,3:PLOT 60,144,3:DRAW 60,190,3:DRAW 1,190,3:DRAW 32,168,3:DRAW 1,144,3:DRAW 60,144,3:RETURN 6040 'fleches textes avant 6043 PLOT 60,48,2:DRAW 60,126,2:DRAW 1,90,2:DRAW 60,48,2:PLOT 580,48,2:DRAW 580,126,2:DRAW 640,126,2:DRAW 612,90,2:DRAW 640,48,2:DRAW 580,48,2 6045 PLOT 580,48,3:DRAW 580,126,3:DRAW 640,90,3:DRAW 580,48,3:PLOT 60,48,3:DRAW 60,126,3:DRAW 1,126,3:DRAW 32,90,3:DRAW 1,48,3:DRAW 60,48,3:RETURN 6100 'fleche illustration arriere 6104 PLOT 580,275,2:DRAW 580,400,2:DRAW 640,339,2:DRAW 580,275,2:PLOT 58,275,2:DRAW 58,399,2:DRAW 1,399,2:DRAW 32,339,2:DRAW 1,275,2:DRAW 58,275,2 6105 PLOT 58,275,3:DRAW 58,400,3:DRAW 1,339,3:DRAW 58,275,3:PLOT 580,275,3:DRAW 580,399,3:DRAW 640,399,3:DRAW 608,339,3:DRAW 640,275,3:DRAW 580,275,3:RETURN 6120 'fleches personnages arriere 6123 PLOT 580,208,2:DRAW 580,254,2:DRAW 640,232,2:DRAW 580,208,2:PLOT 60,208,2:DRAW 60,254,2:DRAW 1,254,2:DRAW 32,232,2:DRAW 1,208,2:DRAW 60,208,2 6125 PLOT 60,208,3:DRAW 60,254,3:DRAW 1,232,3:DRAW 60,208,3:PLOT 580,208,3:DRAW 580,254,3:DRAW 640,254,3:DRAW 612,232,3:DRAW 640,208,3:DRAW 580,208,3:RETURN 6130 'fleches dates arriere 6133 PLOT 580,144,2:DRAW 580,190,2:DRAW 640,168,2:DRAW 580,144,2:PLOT 60,144,2:DRAW 60,190,2:DRAW 1,190,2:DRAW 32,168,2:DRAW 1,144,2:DRAW 60,144,2 6135 PLOT 60,144,3:DRAW 60,190,3:DRAW 1,168,3:DRAW 60,144,3:PLOT 580,144,3:DRAW 580,190,3:DRAW 640,190,3:DRAW 608,168,3:DRAW 640,144,3:DRAW 580,144,3:RETURN 6140 'fleches texte arriere 6143 PLOT 580,48,2:DRAW 580,126,2:DRAW 640,90,2:DRAW 580,48,2:PLOT 60,48,2:DRAW 60,126,2:DRAW 1,126,2:DRAW 32,90,2:DRAW 1,48,2:DRAW 60,48,2 6145 PLOT 60,48,3:DRAW 60,126,3:DRAW 1,90,3:DRAW 60,48,3:PLOT 580,48,3:DRAW 580,126,3:DRAW 640,126,3:DRAW 612,90,3:DRAW 640,48,3:DRAW 580,48,3:RETURN 6199 'effacer fleche apres bonne rep 6200 PLOT 58,275,2:DRAW 58,400,2:DRAW 1,339,2:DRAW 58,275,2:PLOT 580,275,2:DRAW 580,399,2:DRAW 640,399,2:DRAW 608,339,2:DRAW 640,275,2:DRAW 580,275,2 6206 PLOT 580,275,2:DRAW 580,400,2:DRAW 640,339,2:DRAW 580,275,2:PLOT 58,275,2:DRAW 58,399,2:DRAW 1,399,2:DRAW 32,339,2:DRAW 1,275,2:DRAW 58,275,2:RETURN 6220 PLOT 60,208,2:DRAW 60,254,2:DRAW 1,232,2:DRAW 60,208,2:PLOT 580,208,2:DRAW 580,254,2:DRAW 640,254,2:DRAW 612,232,2:DRAW 640,208,2:DRAW 580,208,2 6221 PLOT 580,208,2:DRAW 580,254,2:DRAW 640,232,2:DRAW 580,208,2:PLOT 60,208,2:DRAW 60,254,2:DRAW 1,254,2:DRAW 32,232,2:DRAW 1,208,2:DRAW 60,208,2:RETURN 6230 PLOT 60,144,2:DRAW 60,190,2:DRAW 1,168,2:DRAW 60,144,2:PLOT 580,144,2:DRAW 580,190,2:DRAW 640,190,2:DRAW 608,168,2:DRAW 640,144,2:DRAW 580,144,2 6231 PLOT 580,144,2:DRAW 580,190,2:DRAW 640,168,2:DRAW 580,144,2:PLOT 60,144,2:DRAW 60,190,2:DRAW 1,190,2:DRAW 32,168,2:DRAW 1,144,2:DRAW 60,144,2:RETURN 6240 PLOT 60,48,2:DRAW 60,126,2:DRAW 1,90,2:DRAW 60,48,2:PLOT 580,48,2:DRAW 580,126,2:DRAW 640,126,2:DRAW 612,90,2:DRAW 640,48,2:DRAW 580,48,2 6241 PLOT 580,48,2:DRAW 580,126,2:DRAW 640,90,2:DRAW 580,48,2:PLOT 60,48,2:DRAW 60,126,2:DRAW 1,126,2:DRAW 32,90,2:DRAW 1,48,2:DRAW 60,48,2:RETURN 8500 ' efface points blancs 8510 LOCATE 5,5:PEN 0:PAPER 0:PRINT " ":LOCATE 36,5:PRINT " ":PEN 1:RETURN 8520 LOCATE 5,11:PEN 0:PAPER 0:PRINT " ":LOCATE 36,11:PRINT " ":PEN 1:RETURN 8530 LOCATE 5,15:PEN 0:PAPER 0:PRINT " ":LOCATE 36,15:PRINT " ":PEN 1:RETURN 8540 LOCATE 5,20:PEN 0:PAPER 0:PRINT " ":LOCATE 36,20:PRINT " ":PEN 1:RETURN 9000 'confection images 9001 LOCATE 10,5:PAPER 0:PRINT " ":LOCATE 24,5:PRINT " ":PLOT 370,275,3:DRAW 370,400,3:PLOT 237,275,3:DRAW 237,400,3 9002 PAPER #1,3:CLS #1:LOCATE #1,2,1:PEN #1,0:PRINT #1,d1$:LOCATE #1,1,4:PRINT #1,d2$:LOCATE #1,1,6:PAPER #1,2:PRINT #1,d3$:LOCATE 16,8:PRINT "mammouth":RETURN 9005 'vercingetorix 9010 CLS #1:PAPER #1,3:PEN #1,0:LOCATE #1,1,1:PRINT #1,d4$:LOCATE #1,1,3:PRINT #1,d5$:LOCATE #1,1,5:PRINT #1,d6$:PAPER #1,2:LOCATE #1,1,6:PRINT #1,d7$:PEN 1:PAPER 0:LOCATE 16,3:PRINT "ALESIA":LOCATE 16,8:PAPER 2:PEN 3:PRINT "________" 9012 PAPER 2:LOCATE 16,7:PRINT " ":RETURN 9019 'clovis 9020 CLS #1:PAPER #1,3:PEN #1,0:LOCATE #1,1,1:PRINT #1,d8$:LOCATE #1,1,3:PRINT #1,d9$:LOCATE #1,1,5:PRINT #1,d10$:LOCATE 16,6:PAPER 1:PEN 0:PRINT "Le vase ":LOCATE 16,7:PRINT " de ":LOCATE 16,8:PRINT "Soisson ":RETURN 9029 'charlemagne 9030 CLS #1:PAPER #1,3:PEN #1,0:LOCATE #1,1,2:PRINT #1,d11$:LOCATE #1,1,4:PAPER #1,2:PRINT #1,d12$:LOCATE #1,1,6:PRINT #1,d13$:LOCATE 16,1:PAPER 1:PEN 0:PRINT " Roland ":LOCATE 16,8:PRINT "Durandal":RETURN 9039 'le gallo romain 9040 CLS #1:PAPER #1,3:PEN #1,0:LOCATE #1,1,1:PRINT #1,d14$:LOCATE #1,1,3:PRINT #1,d15$:LOCATE #1,1,5:PAPER #1,2:PRINT #1,d16$:LOCATE 16,7:PAPER 2:LOCATE 16,6:PRINT " ":PAPER 1:PEN 0:LOCATE 16,7:PRINT " Un ":LOCATE 16,8:PRINT "aqueduc ":RETURN 9049 'les normands 9052 CLS #1:PAPER #1,3:PEN #1,1:LOCATE #1,1,1:PRINT #1,d17$:LOCATE #1,1,3:PEN #1,0:PRINT #1,d18$:LOCATE #1,1,5:PRINT #1,d19$:PAPER 1:PEN 0:LOCATE 16,7:PRINT " Un ":LOCATE 16,8:PRINT "Drakkar ":RETURN 9059 'croisade 9060 CLS #1:PAPER #1,3:PEN #1,1:LOCATE #1,1,1:PRINT #1,d20$:LOCATE #1,1,3:PEN #1,0:PRINT #1,d21$:LOCATE #1,1,5:PRINT #1,d22$:LOCATE #1,1,7:PRINT #1,d23$ 9062 PAPER 1:LOCATE 17,4:PRINT " ":LOCATE 18,3:PAPER 0:PEN 1:PRINT CHR$(140):LOCATE 18,5:PAPER 1:PRINT " ":LOCATE 18,6:PRINT " ":RETURN 9069 'louis IX 9070 CLS #1:PAPER #1,3:PEN #1,2:LOCATE #1,1,1:PRINT #1,d24$:LOCATE #1,1,3:PEN #1,0:PRINT #1,d25$:LOCATE #1,1,5:PRINT #1,d26$:PAPER 0:PEN 1:LOCATE 16,7:PRINT "Sous le":LOCATE 16,8:PRINT " chene ":RETURN 9079 'du guesclin 9080 CLS #1:PAPER #1,3:PEN #1,0:LOCATE #1,1,1:PRINT #1,d27$:LOCATE #1,1,4:PEN #1,0:PRINT #1,d28$:PEN #1,2:LOCATE #1,1,6:PRINT #1,d29$:PAPER 2:PEN 3:LOCATE 16,7:PRINT " Chateau":LOCATE 16,8:PRINT " fort ":RETURN 9089 'jeanne d'arc 9090 CLS #1:PAPER #1,3:PEN #1,0:LOCATE #1,1,1:PRINT #1,d30$:LOCATE #1,1,3:PEN #1,0:PRINT #1,d31$:PEN #1,1:LOCATE #1,1,5:PRINT #1,d32$:PAPER 1:PEN 0:LOCATE 16,7:PRINT " Bucher ":LOCATE 16,8:PRINT "a Rouen ":RETURN 9099 'louis XI 9100 CLS #1:PAPER #1,3:PEN #1,0:LOCATE #1,1,1:PRINT #1,d33$:LOCATE #1,1,3:PEN #1,0:PRINT #1,d34$:PEN #1,0:LOCATE #1,1,5:PRINT #1,d35$:PAPER 1:PEN 0:LOCATE 16,7:PRINT "Une cage":LOCATE 16,8:PRINT " de fer ":RETURN 9109 'francois 1er 9110 CLS #1:PAPER #1,3:PEN #1,0:LOCATE #1,1,1:PRINT #1,d36$:PAPER #1,0:LOCATE #1,1,3:PEN #1,1:PRINT #1,d37$:PAPER #1,3:PEN #1,0:LOCATE #1,1,5:PRINT #1,d38$:PAPER 2:PEN 2:LOCATE 16,7:PRINT " ":LOCATE 16,8:PRINT " ":RETURN 9119 'st bartelemy 9120 CLS #1:PAPER #1,3:PEN #1,0:LOCATE #1,1,1:PRINT #1,d39$:PAPER 2:PEN 0:LOCATE 16,1:PRINT CHR$(214):LOCATE #1,1,3:PRINT #1,d40$:PAPER #1,3:PEN #1,0:LOCATE #1,1,5:PRINT #1,d41$:LOCATE #1,1,7:PRINT #1,d42$:PAPER 3:LOCATE 16,8:PRINT " ": 9124 PAPER 2:LOCATE 23,8:PEN 0:PRINT CHR$(212):RETURN 9129 'henri 4 9130 CLS #1:PAPER #1,3:PEN #1,1:LOCATE #1,1,1:PRINT #1,d43$:LOCATE #1,1,3:PRINT #1,d44$:PAPER #1,3:PEN #1,0:LOCATE #1,1,6:PRINT #1,d45$:PAPER 1:PEN 0:LOCATE 16,7:PRINT "La poule":LOCATE 16,8:PRINT " au pot ":RETURN 9139 'richelieu 9140 CLS #1:PAPER #1,3:PEN #1,0:LOCATE #1,1,1:PRINT #1,d46$:LOCATE #1,1,3:PRINT #1,d47$:PAPER #1,2:PEN #1,0:LOCATE #1,1,5:PRINT #1,d48$:PAPER 1:PEN 0:LOCATE 16,7:PRINT " La ":LOCATE 16,8:PRINT "Rochelle":RETURN 30040 'datas 30050 DATA 1,l'homme dans la caverne,-100 000,Il chasse pour se nourrir,,,2,Vercingétorix,-52,Ce chef est vaincu par,le général romain César.,,3,le gallo-romain,1-->400,Les villes s'embellissent,La paix romaine rgne., 30060 DATA 4,Clovis,481,Le premier roi de France.,,,5,Charlemagne,800,Ce roi trs puissant est,proclamé Empereur.,,6,Les Normands,885,Charlemagne meurt ; ces,marins intrépides pillent,la France sauf Paris. 30070 DATA 7,Les Croisés,1099,L'armée des chevaliers,délivre Jérusalem occupée,par les turcs.,8,Louis IX "Saint Louis",1270,Ce roi trs juste n'aime,pas la guerre.Il meurt,en croisade. 30080 DATA 9,Bertrand du Guesclin,1328 -->,La guerre de cent ans.,Un francais combat les,anglais par la ruse.,10,Jeanne d'Arc,1431,Une jeune lorraine,encourage les francais,pour chasser les anglais. 30090 DATA 11,Louis XI,1461,Il agrandit le royaume de,France et force les sei-,gneurs a obéir au roi.,12,Francois 1er,1515,Ce beau cavalier s'entou-,re d'une cour et batit,des chateaux en touraine. 30100 DATA 13,Catherine de Médicis,1572,Les catholiques et les,protestants se font la,guerre.,14,Henri IV,1598,Edit de Nantes.Les catho-,liques et les protestants,font la paix. 30110 DATA 15,Richelieu,1629,Louis XIII et le cardinal,assigent les protestants,qui doivent se rendre. 36000 PAPER 0:PEN 1:RETURN |