0 REM ====<VAISSEAU FANTOME>====
1 REM Auteur  : Philippe FASSIER
2 REM Jeux & Strategie numero 24, 1983
3 REM Reprise : D. RIOUAL
4 REM Version : 1.0 du 03/30/2020
5 HOME
10 DIM T$(81)
20 DIM N$(97)
30 FOR I = 0 TO 81
40 READ T$(I)
50 NEXT I
60 FOR I = 1 TO 97
70 READ N$(I)
80 NEXT I
90 NUM = 1
100 QUE = 0
110 FOR I = 1 TO LEN(N$(NUM))
120 X$ = MID$ (N$(NUM),I,1)
130 IF X$ = "Q" THEN GOSUB 300
140 IF X$ = "X" THEN END
150 IF X$ = "Y" THEN NUM = ANC
160 IF X$ = "P" THEN PRINT T$(VAL(MID$(N$(NUM), I + 1, 3)) - 100)
170 IF X$ = "G" THEN NUM = VAL(MID$(N$(NUM), I + 1, 2))
180 NEXT I
190 IF QUE = 0 THEN GOTO 100
200 FOR N = 1 TO QUE
210 PRINT N;"> ";Q$(N)
220 NEXT N
230 INPUT DIR
240 IF DIR = 0 OR DIR > QUE THEN GOTO 230
250 ANC = NUM
260 NUM = X(DIR)
270 GOTO 100
300 QUE = VAL (MID$(N$(NUM), I + 1, 1))
310 I = I + 3
320 FOR J = 1 TO QUE
330 LET Q$(J) = T$(VAL(MID$(N$(NUM),I,3)) - 100)
340 LET I = I + 4
350 LET X(J) = VAL (MID$(N$(NUM),I,2))
360 LET I = I + 3
370 NEXT J
380 RETURN
999 REM DATA
1000 DATA "VOUS ETES DANS LE HALL D'ENTREE"
1010 DATA "VOUS CHOISISSEZ VOTRE CHEMIN ?"
1020 DATA "LA PRENEZ-VOUS ?"
1030 DATA "L'HOMME TROUVE UNE CURIEUSE CLEF A CINQ BRANCHES."
1040 DATA "VOUS RETROUVEZ VOTRE ASTRONEF."
1050 DATA "VOUS RENCONTREZ LES RESTES DU ROBOT."
1060 DATA "VOUS TROUVEZ UNE CURIEUSE CLEF A TROIS BRANCHES."
1070 DATA "VOUS SORTEZ DU VAISSEAU ?"
1080 DATA "VOUS LAISSEZ FAIRE ?"
1090 DATA "VOUS ETES FAIT PRISONNIER, ILS VOUS NEUTRALISENT PAR UN RAYON PARALYSANT."
1100 DATA "IL NE PEUT S'OUVRIR QU'AVEC UNE CLEF A CINQ BRANCHES."
1110 DATA "AH !... MAIS VOUS L'AVEZ..."
1120 DATA "VOUS ETES MORT..."
1130 DATA "VOUS PRENEZ LE SAS SUD ?"
1140 DATA "VOUS TROUVEZ LE CARNET DE BORD DU VAISSEAU."
1150 DATA "PAR LE COCKPIT VOUS DECOUVREZ LE CIEL ETOILE, LE VAISSEAU EST EN PERDITION DANS L'ESPACE !..."
1160 DATA "L'ANALYSE DEMONTRERA QU'IL EST TERRIEN."
1170 DATA "IL VOUS FAIT SIGNE DE LE SUIVRE."
1180 DATA "VOUS RETOURNEZ SUR VOS PAS ?"
1190 DATA "VOUS ETES DANS LE HALL CENTRAL : IL Y A DEUX AUTRES SAS."
1200 DATA "LE ROBOT NE PEUT PAS VOUS SUIVRE."
1210 DATA "TROIS HOMMES EN SCAPHANDRE ET ARMES SE RETOURNENT VERS VOUS."
1220 DATA "LE ROBOT VOUS SUIT."
1230 DATA "VOUS DESCENDEZ DANS LE PASSAGE ?"
1240 DATA "PAR LE COCKPIT, VOUS DECOUVREZ QUE LE VAISSEAU EST SUR L'ASTEROÏDE."
1250 DATA "UN DES HOMMES VOUS RATTRAPPE."
1260 DATA "LE ROBOT POUSSE UN CRI DANS VOTRE CASQUE, IL EST HORS-CIRCUIT."
1270 DATA "SI VOUS AVEZ LA CLEF A TROIS BRANCHES, LE SAS S'OUVRE."
1280 DATA "VOUS LE SUIVEZ ?"
1290 DATA "VOUS DEVINEZ UN PASSAGE SOUS UNE DALLE, IL Y A UNE AUTRE PORTE."
1300 DATA "AUCUN BOUTON NE REPOND..."
1310 DATA "VOUS ETES DANS LA SALLE DES COUCHETTES, IL Y A UNE AUTRE PORTE."
1320 DATA "IL VOUS TIRE DESSUS."
1330 DATA "VOUS TIREZ ?"
1340 DATA "LE SAS REFUSE DE S'OUVRIR."
1350 DATA "LA SALLE DE RADIO ET DE DOCUMENTATION : IL Y A UNE AUTRE PORTE."
1360 DATA "VOUS PRENEZ LE SAS EST ?"
1370 DATA "IL TOMBE RAIDE MORT."
1380 DATA "VOUS TIREZ, UN HOMME TOMBE..."
1390 DATA "VOUS OUVREZ LA PORTE ?"
1400 DATA "VOUS ETES DANS LE HALL NORD, IL Y A UN SAS VERS LE SUD."
1410 DATA "VOUS NE POUVEZ PRENDRE QUE L'AUTRE SAS."
1420 DATA "LE COULOIR EST OBSCUR."
1430 DATA "IL SEMBLE AVOIR DEJA VU LE ROBOT, MAIS VOUS NE POUVEZ L'ENTENDRE."
1440 DATA "VOUS CONTINUEZ DANS LA MEME DIRECTION ?"
1450 DATA "VOTRE COMPAGNON TOMBE, LE ROBOT TIRE..."
1460 DATA "VOUS TENTEZ DE MANOEUVRER LE VAISSEAU."
1470 DATA "LE SAS SE REFERME..."
1480 DATA "AU BOUT, UN HALL AVEC UN SAS VERS LE NORD."
1490 DATA "QUE FAIRE D'AUTRE ?"
1500 DATA "IL Y A ICI UNE PORTE ET UN SAS."
1510 DATA "LE ROBOT VOUS EXAMINE, PUIS EMET DES SONS DANS VOTRE CASQUE."
1520 DATA "VOUS PRENEZ LE SAS NORD ?"
1530 DATA "UN TROU BEANT VOUS PERMET DE SORTIR."
1540 DATA "UN HOMME TOMBE, UN AUTRE TIRE..."
1550 DATA "L'HOMME OUVRE LE SAS SUD, LE ROBOT ET VOUS LE SUIVEZ."
1560 DATA "L'HOMME VOUS SUIT."
1570 DATA "VOTRE ORDINATEUR ATTEND TOUJOURS DE NOUVELLES DONNEES..."
1580 DATA "LE ROBOT SE TOURNE VERS VOUS."
1590 DATA "UN HOMME VOUS ATTENDAIT, PRET A TIRER."
1600 DATA "UN HOMME TIRE."
1610 DATA "VOTRE COMPAGNON TOMBE, MAIS VOUS VOUS EN TIREZ..."
1620 DATA "ILS VOUS SUIVENT."
1630 DATA "DANS LE COULOIR, UN ROBOT VOUS OBSERVE."
1640 DATA "PLUS TARD, VOUS VOUS EVEILLEREZ DANS UN AUTRE MONDE, UN AUTRE TEMPS..."
1650 DATA "VOUS FOUILLEZ POUR TROUVER QUELQUE CHOSE ?"
1660 DATA "L'INTERIEUR DE CE COULOIR SE PORTE SOUDAIN A UNE TEMPERATURE TROP ELEVEE POUR VOTRE COMBINAISON."
1670 DATA "LE CADAVRE A DISPARU, MAIS TROIS HOMMES SONT LA..."
1680 DATA "VOUS PRENEZ LE SAS OUEST ?"
1690 DATA "VOUS TIREZ, LE DERNIER TOMBE, VOUS ETES SEUL..."
1700 DATA "LE COULOIR... UN SAS AU NORD, UN AUTRE AU SUD."
1710 DATA "AU SOL, UN SCAPHANDRE ESQUISSE ENCORE QUELQUES GESTES, AVANT DE MOURIR, UNE MAIN TEND VERS VOUS UNE CURIEUSE CLEF A TROIS BRANCHES."
1720 DATA "L'ATELIER DE REPARATION."
1730 DATA "EN TOUCHANT UN BOUTON, UNE DECHARGE ELECTRIQUE IONISE L'AIR DE VOTRE SCAPHANDRE."
1740 DATA "L'HOMME TOUCHE UN BOUTON, UNE DECHARGE ELECTRIQUE ILLUMINE SON SCAPHANDRE."
1750 DATA "VOUS REMONTEZ DANS LE POSTE DE PILOTAGE A L'OUEST, IL Y A TROIS SAS."
1760 DATA "VOUS ETES DANS LE COMPARTIMENT D'UN REACTEUR..."
1770 DATA "IL NE SE PASSE RIEN."
1780 DATA "SINON..."
1790 DATA "L'HOMME PREFERE ALLER AU SAS EST, IL GARDE LA CLEF."
1800 DATA "VOUS ETES BLOQUE A L'INTERIEUR."
1810 DATA "GRACE AU CARNET DE BORD, L'ORDINATEUR COMPREND LA CAUSE DE L'ATTERRISSAGE, FORCE PAR DES PERTURBATIONS TEMPORELLES, ET VOUS ANNONCE LE DECOLLAGE."
1999 REM === NOTES ===
2000 REM
2010 DATA "P100 Q2,152,95,113,24"
2020 DATA "P172 P129 Q2,139,77,123,39"
2030 DATA "P120 P156 P142 P103 P175 P114 P115 G84"
2040 DATA "P155 P121 Q2,133,13,108,67"
2050 DATA "P134 P141 G87"
2060 DATA "P119 Q2,152,15,168,20"
2070 DATA "P134 Q2,113,86,107,34"
2080 DATA "P122 P159 P143 Q2,133,75,108,46"
2090 DATA "P172 P129 Q2,139,47,123,71"
2100 DATA "P173 P112X"
2110 DATA "P134 P110 P111 P119 P121 Q2,133,62,118,87"
2120 DATA "P104 P157X"
2130 DATA "P132 P112X"
2140 DATA "P154 P145 P154 P126 P169 P119 G56"
2150 DATA "P134 P141Y"
2160 DATA "Q5,146,70,136,82,152,94,113,94,123,43"
2170 DATA "Q2,133,45,108,13"
2180 DATA "P162 P121 Q2,133,14,178,67"
2190 DATA "P131 Q2,165,83,139,02"
2200 DATA "P134 P110 Q2,152,77,113,61"
2210 DATA "P170 P122 Q2,152,57,113,26"
2220 DATA "P140 Q2,113,58,118,69"
2230 DATA "P121 Q2,133,88,108,35"
2240 DATA "P148 Q2,152,51,118,91"
2250 DATA "P149 P104 P181X"
2260 DATA "P134 Q2,127,80,178,21"
2270 DATA "P106 Q2,118,79,139,85"
2280 DATA "Q5,146,70,136,33,152,94,113,94,123,43"
2290 DATA "P109 P164 P157X"
2300 DATA "P162 P131 Q2,165,72,139,09"
2310 DATA "P140 Q2,113,08,118,55"
2320 DATA "Q3,152,06,139,77,118,43"
2330 DATA "P134 P110 P111 P119 P121 Q2,133,62,118,37"
2340 DATA "P122 P104 P157 P116X"
2350 DATA "P109 P164 P157X"
2360 DATA "P125 P132 P112X"
2370 DATA "P160 P132 P112X"
2380 DATA "P179 G52"
2390 DATA "P142 P175 P114 P115 G16"
2400 DATA "P131 Q2,165,27,139,60"
2410 DATA "P134 P110 Q2,113,68,139,19"
2420 DATA "P170 P162 Q2,152,80,113,15"
2430 DATA "P166 P112X"
2440 DATA "P131 P121 Q2,133,88,118,81"
2450 DATA "P132 P137 P112 P157X"
2460 DATA "P117 P150 Q2,128,04,101,49"
2470 DATA "P135 P162 P174 P137 Q2,118,66,139,21"
2480 DATA "P126 Q2,144,22,118,91"
2490 DATA "Q2,113,18,139,30"
2500 DATA "P150 Q2,152,41,139,76"
2510 DATA "P150 P171 Q2,102,54,144,32"
2520 DATA "P172 P158 P151 P159 017"
2530 DATA "P131 Q2,118,66,139,79"
2540 DATA "P177 G32"
2550 DATA "P100 P122 Q3,113,86,152,07,107,34"
2560 DATA "Q3,113,80,168,64,152,50"
2570 DATA "P134 P141Y"
2580 DATA "P159 Q2,133,65,108,13"
2590 DATA "P172 P129 Q2,139,47,123,03"
2600 DATA "P172 P129 Q2,139,77,123,39"
2610 DATA "P167 P160 P112X"
2620 DATA "P154 P112X"
2630 DATA "P120 P142 P175 P114 P115 G16"
2640 DATA "P134 Q2,152,50,113,80"
2650 DATA "P137 P150 Q2,113,23,139,40"
2660 DATA "P172 P129 P122 Q2,123,63,139,53"
2670 DATA "P160 P145 P154 P126 P138 P132 P112X"
2680 DATA "P119 G56"
2690 DATA "P105 G91"
2700 DATA "P130Y"
2710 DATA "P120 P156 P142 P103 P175 P114 P115 G28"
2720 DATA "P106 Q2, 118,42,139,59"
2730 DATA "P137 P160 P112X"
2740 DATA "P151 Q2,144,31,118,55"
2750 DATA "P137 P158 P132 P112X"
2760 DATA "P131 Q2,165,83,139,02"
2770 DATA "P135 Q2,165,10,139,90"
2780 DATA "P176 P153 Q2,107,25,118,36"
2790 DATA "P170 Q2,152,80,113,15"
2800 DATA "P166 P112X"
2810 DATA "P125 Q2,133,73,108,29"
2820 DATA "P134 P110 G16"
2830 DATA "P106 Q2,118,79,139,02"
2840 DATA "Q5,146,70,136,11,152,94,113,89,123,38"
2850 DATA "P172 P129 Q2,139,97,123,39"
2860 DATA "P166 P126 P112X"
2870 DATA "P160 P161 P124 G92"
2880 DATA "P154 P112X"
2890 DATA "P176 P147 P180 P157X"
2900 DATA "P172 P129 Q2,139,44,123,39"
2910 DATA "P100 Q3,152,22,113,24,107,12"
2920 DATA "Q3, 152,78,113,96,123,52"
2930 DATA "Q3, 133,62,118,37,123,80"
2940 DATA "P134Y"
2950 DATA "P163 Q2,133,48,108,74"
2960 DATA "P134 Q2,127,89,178,92"
2970 DATA "P135 Q2,165,10,139,51"