10 F0=0   'Compteur Fioles
20 T0=0   'Compteur Torches
30 C0=0   'Compteur Cordes
40 P0=0   'Compteur Pieds de biche
50 P9=500 'Compteur Pieces d or

150 ? CHR$(12)

160 FOR I=1 TO 6:? CHR$(10);:NEXT I

170 FOR I=1 TO 27:? CHR$(9);:NEXT I

180 ? "En 1984..."

190 FOR I=1 TO 1500:NEXT I

200 ? CHR$(12)

210 FOR I=1 TO 6:? CHR$(10);:NEXT I

220 FOR I=1 TO 21:? CHR$(9);:NEXT I

230 ? "...ROCQUES Louis-Marie"

240 FOR I=1 TO 16:? CHR$(9);:NEXT I

250 ? "prsentait ce qui allait devenir"

260 FOR I=1 TO 12:? CHR$(9);:NEXT I

270 ? "le Tilt d'Or du meilleur jeu d'aventure:"

280 FOR I=1 TO 3000:NEXT I

290 ? CHR$(12)

300 ? "  ###   ##    ###    ##        #            #  ##  #  ##"
310 ? "#    #  #       #    #         #            #  #    #  #"
320 ? "                ##             #            #     # #   # #  ##"
330 ? "  # #            #  ##    ##   #   ##     ###    ## #   #  # ##"
340 ? "  # #         #  #   ##  # ##  #    ##   # ###   ## #   #  #  #"
350 ? "  # #            ##   # #   #  #  #  #   #  #    ## #   #  #"
360 ? "  # #         #####  ## #   #  #  ####   #  #    ## #   #  #"
370 ? "    #        #    #  ## #   #  #  ###    #  #     # #   #  #"
380 ? "  #          ##   ## ## #   #  #  #      #  #      ##      #"
390 ? "  ########  # ##   # ## #####  #  ####   ###       #####   ##"
400 ? "#   #####      #   #  ##  #### ##  ###    ##         ##"
410 ? "#           #                #"
420 ? "            #            ### ##"
430 ? "                          #   #"
440 ? "                           ###";

450 FOR I=1 TO 4000
460 NEXT I

470 ? CHR$(12)

480 FOR I=1 TO 6
490 ? CHR$(10);
500 NEXT I

510 FOR I=1 TO 27
520 ? CHR$(9);
530 NEXT I

540 ? "En 2015..."

550 FOR I=1 TO 1500
560 NEXT I

570 ? CHR$(12)

580 ? "                                  ]=|==||==|=["
590 ? "              ]=|==||==|=[         \\__||__//"
600 ? "               \\__||__//           |. /\ #|"
610 ? "                | []   |            |  ## *|"
620 ? "                |    ..|            | . , #|"
630 ? "___   ____  ___ |   .. |         __ |..__.*| __    PETITJD"
640 ? "] |---|  |--| [ |..    |        |  ||_|  |_|| |"
650 ? "]_____________[ | .. []|         \--\-|-|--/-//    PRESENTE"
660 ? " \_\| |_| |/_/  |_   _ | _   _   _|      ' *|"
670 ? "  |  .     |'-'-` '-` '-` '-` '-` | []     #|"
680 ? "  |     `  |=-=-=-=-=-=-=-=-=-=-=-|      []*|    L'AIGLE D'OR"
690 ? "  |  ` ` []|      _-_-_-_-_  '    |-       #|"      
700 ? "  | '  `  '|   [] | | | | |  []`  |  []    *|  Pour Proteus III"
710 ? "  |      - |    ` | | | | | `     | ;  '   #|"
720 ? " /_'_-_-___-\__,__|_|_|_|_|_______|      , *|"
730 ? "            _,--'    __,-'      /,_,_v_Y_,_v\\-";

740 FOR I=1 to 4000
750 NEXT I

760 ? CHR$(12)

770 ? "               Apres plusieurs jours de cheval, vous"
780 ? "            arrivez en vue du Chateau de l'Aigle,"
790 ? "            situe aux confins de la Wesphalie.";
800 ? CHR$(10)
810 ? "                Le vieux mage disait donc vrai...";
820 ? CHR$(10)
830 ? "               Il avait ajoute : 'Pour mener a bien"
840 ? "            ta quete, il te faudra acquerir SAVOIR,"
850 ? "            RICHESSE et PUISSANCE.'";
860 ? CHR$(10)
870 ? "               La legende du pays raconte que le"
880 ? "            Chateau recelle d'innombrables tresors"
890 ? "            et richesses, mais que nombreux furent"
900 ? "            ceux qui y perirent...";
910 ? CHR$(10)
920 ? "                    <APPUYEZ SUR UNE TOUCHE>";
930 GET A$
940 IF A$="" THEN GOTO 930
950 IF A$<>CHR$(12) THEN 960
960 ? CHR$(12)
970 ? "                           COMMANDES";
980 ? CHR$(10)
990 ? "F : Deplacement vers le haut - Marcher/Courir (Pressez 2 fois)"
1000 ? "V : Deplacement vers le bas - Marcher/Courir (Pressez 2 fois)"
1010 ? "J : Deplacement vers la gauche - Marcher/Courir (Pressez 2 fois)"
1020 ? "K : Deplacement vers la droite - Marcher/Courir (Pressez 2 fois)"
1030 ? "Espace : Arret/Debout";
1035 ? CHR$(10)
1040 ? "A : Accroupir                P : Prendre"
1050 ? "B : Boire                    L : Lire"
1060 ? "S : Sauter (en longueur)     G : Grimper"
1070 ? "D : Sauter (en hauteur)      I : Inventaire"
1080 ? "O : Ouvrir                   Q : Suicide";
1090 ? CHR$(10)
1100 ? "                    <APPUYEZ SUR UNE TOUCHE>";
1110 GET A$
1120 IF A$="" THEN GOTO 1110
1130 IF A$<>CHR$(12) THEN 1140
1140 ? CHR$(12)
1150 ? "                         OBJET EN MAIN";
1160 ? CHR$(10)
1170 ? "0 : Vide"
1180 ? "1 : Torche"
1190 ? "2 : Crucifix"
1200 ? "3 : Pied de biche"
1210 ? "4 : Clef en fer"
1220 ? "5 : Clef en or"
1230 ? "6 : Fiole";
1240 ? CHR$(10)
1250 ? "                    <APPUYEZ SUR UNE TOUCHE>";
1260 GET A$
1270 IF A$="" THEN GOTO 1260
1280 IF A$<>CHR$(12) THEN 1290
1290 ? CHR$(12)
1300 FOR I=1 TO 5
1310 ? CHR$(10);
1320 NEXT I
1330 ? "          Aventurier, tu peux :"
1340 ? CHR$(10)
1350 ? "              1. Entrer dans le chateau"
1360 ? "              2. Aller chez le marchand"
1370 GET A$
1380 IF A$="" THEN GOTO 1370
1390 IF A$="1" THEN 2000
1400 IF A$="2" THEN 1420
1410 IF A$<>"1" AND A$<>"2" THEN 1370

1420 ? CHR$(12)
1430 ? "Le marchand vend :";
1440 ? CHR$(10)
1450 ? "   1. Fiole de jouvence.. 250 p.o."
1460 ? "   2. Torche............. 170 p.o."
1470 ? "   3. Corde.............. 110 p.o."
1480 ? "   4. Pied de biche...... 250 p.o."
1490 ? "  (0. Partir)";
1500 ? CHR$(10)
1510 ? "Tu as";P9;"pieces d'or.";
1520 ? CHR$(10)
1530 ? "Que veux tu ? ";
1540 GET A$
1550 IF A$="" THEN GOTO 1540
1560 IF A$="1" THEN GOSUB 9620 
1570 IF A$="2" THEN GOSUB 9650
1580 IF A$="3" THEN GOSUB 9680
1590 IF A$="4" THEN GOSUB 9710
1600 IF A$="0" THEN GOTO 1290
1610 IF A$<>"1" AND A$<>"2" AND A$<>"3" AND A$<>"4" AND A$<>"0" THEN 1540

1620 GET A$
1630 IF A$="" THEN GOTO 1620
1640 IF A$<>CHR$(12) THEN 1420


2000 ? CHR$(12)
2010 ?"           .:.:.             ::...::           .:.:."
2020 ?"           :..:             ::     ::           :.::"
2030 ?"           ::..            .:       :.         .:.:."
2040 ?"           :...            ::       ::         ...::"
2050 ?"           ::.:            :.       .:          :.::"
2060 ?"    ::     :....           ::       ::         ...::     ::"
2070 ?" ::..::    ::.:            :;       ;:         .:.::    ::..::"
2080 ?".:.##.:    :....___________.. (-_-) .._________....:    :.  .:."
2090 ?":.###::   ..                  >- -<                ..   ::   .:"
2100 ?":.###::  .                   // * \\                 .  :.   .:"
2110 ?":.###.: .                    t)_*_t)                  . ::   .:"
2120 ?"..###.:.                      | | |                    .:.   .."
2130 ?":.###:.                       |=|=|                     .:___.:"
2140 ?"..###                         (_|_)                          .."
2150 ?":.#                                                          .:"
2160 ?":                                                             :";
2170 GET A$
2180 IF A$="" THEN GOTO 2170

9620 IF P9<250 THEN ? A$;:? CHR$(10):? "Non, tu n'as pas assez d'or."
9630 IF P9>=250 THEN P9=P9-250:? A$;:? CHR$(10):? "D'accord":F0=F0+1
9640 RETURN

9650 IF P9<170 THEN ? A$;:? CHR$(10):? "Non, tu n'as pas assez d'or."
9660 IF P9>=170 THEN P9=P9-170:? A$;:? CHR$(10):? "D'accord":T0=T0+1 
9670 RETURN

9680 IF P9<110 THEN ? A$;:? CHR$(10):? "Non, tu n'as pas assez d'or."
9690 IF P9>=110 THEN P9=P9-110:? A$;:? CHR$(10):? "D'accord":C0=C0+1
9700 RETURN

9710 IF P9<250 THEN ? A$;:? CHR$(10):? "Non, tu n'as pas assez d'or."
9720 IF P9>=250 THEN P9=P9-250:? A$;:? CHR$(10):? "D'accord":P0=P0+1
9730 RETURN
