Micro Systèmes n°24 jui/aoû 1982
Micro Systèmes n°24 jui/aoû 1982
  • Prix facial : 18 F

  • Parution : n°24 de jui/aoû 1982

  • Périodicité : mensuel

  • Editeur : Société Parisienne d'Edition

  • Format : (213 x 271) mm

  • Nombre de pages : 166

  • Taille du fichier PDF : 124 Mo

  • Dans ce numéro : dossier sur les mémoires à semi-conducteurs.

  • Prix de vente (PDF) : gratuit

Dans ce numéro...
< Pages précédentes
Pages : 98 - 99  |  Aller à la page   OK
Pages suivantes >
98 99
ques explications sont données ciaprès, afin de leur permettre de charger puis d'exécuter ce programme sans autres formalités. D'autre part, nous communiquons tous les détails de fonctionnement de ce logiciel, afin que ceux qui voudraient améliorer ou même créer leur propre jeu d'aventure puissent y trouver les explications nécessaires. 98 - MICRO-SYSTEMES L'aventure commence Avant de jouer, il vous faut « saisir » le programme, c'est-àdire entrer les lignes de code appartenant au corps principal du programme présenté figure 1, puis le sauvegarder sur cassette. Dans un deuxième temps, vous entrerez les lignes 7010 à 8175 (fig. 2), qui correspondent aux messages affichés par le programme durant cette aventure. Vous devrez ensuite entrer les tableaux donnés figure 3, qui contiennent les salles, actions, conditions et autres objets utilisés pendant la partie, en procédant de la manière suivante  : Faire RUN 9000 et répondre aux différentes questions posées par la machine. A la question « nombre d'objets », il faut répondre 20 puis saisir dans l'ordre le numéro de la salle et l'objet. Lorsque les objets sont introduits, le programme s'arrête en STOP, ce qui nous permet de vérifier si notre tableau est bon. Pour passer au tableau suivant, taper CONT sur le ZX 81 ou RUN XXXX sur un autre micro-ordinateur, XXXX ayant les valeurs suivantes  : — 9200 pour le chargement du vocabulaire (72 mots). — 9300 pour le chargement des salles (17 salles), — 9400 pour le chargement des conditions (12 conditions), — 9500 pour le chargement des actions (91 actions). Lorsque tout est « saisi » il faut bien prendre soin de sauvegarder le programme. Attention, pour exécuter le programme il ne faut jamais taper c27'jutes les variables se- 1 REd inumiumnialxiiimuimxxximiaamix 2 REM u IX 3 REM 11 LA MAISON DU PROFESSEUR FOLIE:US II 4 REM u Xx 5 REM milinumunimaxxxxxximummuxxxxxx 6 REM PROGRAMME ECRIT PAR ALAIN BREGEON 7 REM LES LIGNES 10 A 6640 ET 9000 A 9999 ONT ETE 8 REM REPRODUITES DE L'OUVRAGE'LE PETIT LIVRE DU 9 REM 1)(81 1 (D'APRES'THE ZX81 POCKET ROOK1-PHIPPS 18 REM ASSOCIATES) AVEC L'AUTORISATION D'EDITONS DU PSI 19 DIM S(10) 21 DIM C(5) 31 LET SALLE = 1 40 DIM Pi(2,2) 50 DIM 0(0) 60 FOR X = 1 TO 0 70 LET 0(X) = 0(X) 81 NEXT X 91 RANG 111 IF NOT 5(2) THEN GOTO 200 110 IF C(2) THEN LET C(2) = C(2) - 1 120 IF 5(3) THEN GOTO 200 131 PRINT'ON N Y VOIT RIEN.MIEUX VAUDRAIT','ALLUMER POUR EVITER LES ENNUIS.'140 IF C(3) THEN LET C(3) = C(3) - 1 150 GOTO 1000 211 REM DESCRIPTION DE LA SALLE 210 PRINT 221 60588 8000 + SALLE 110 310 LET F = D 310 FOR X = 1 TO 0 321 IF 0(X) <> SALLE THEN COTG 500 338 IF F THEN GOTO 400 340 PRINT „'IL Y A AUSSI:'350 LET F = 1 411 PRINT " ; 0$(X) 581 NEXT X 1111 REM ACCEPTATION DE LA COMMANDE 1110 LET T = 1 1128 6010 2000 1111 IF C(1) THEN LET C(1) = C(1) - 1 1118 IF C(4) THEN LET C(4) = C(4) - 1 1121 PRINT 1,'DUE FAITES-VOUS ? >1 1130 INPUT Y$ 1141 CLS 1151 LET Y. 0 1161 PRINT'>' ; '($ 1171 LET P$(2) -'00'1288 FOR W = 1 TG 2 1210 GOSUB 6800 1220 IF Y >= LEN Y$ THEN GOTO 1300 1230 IF P$(W) ='00'THEN GOTO 1210 1240 NEXT W 1311 IF P$(1)'00'THEN GOTO 1600 1310 PRINT'PARDON ?'Fig I —Listing du « corps » principal du programme. Juillet-Août 1982
1320 COTG 100 1600 REM CONTROLE DU MOUVEMENT 1610 LET Z = 1 1620 LET T$ = MESALLE)(2 TO Z + 1) 1630 IF T$ ='00'THEN GOTO 1900 1640 IF T$ <, P$(1) THEN GOTO 1700 1650 LET SALLE=VAL(MCSALLE)(Z+2 TO Z+3) 1661 COTE 110 1 ! LET1=2, 4 1711 COTG 1620 1910 LET T = G 1910 LET CORRESF = 0 2118 REM CONTROLE DES CONDITIONS 2110 LET CP = 8 2118 LET CP = CP + 1 2110 IF NOT T THEN COTG 230G 2121 LET E$ = CCM 2130 COTO 2600 2318 IF CP <= A THEN GOTO 2400 2310 IF CORRESP THEN GOTO 1000 2320 PRINT'IMPOSSIBLE' ; 2330 IF VAL(P$(1)<:13 THEN PRINT'PRENDRE CETTE DIRECTION' ; 2340 PRINT 2358 MO 100 2488 IF ACCP)(1 TO 2):ft$(1) THEN GOTO 2100 2411 LET Y$ = AS(CP)(3 TO 4) 2128 IF Yt.',100'AND YCJP$(2) THEN GOTO 2100 2438 LET E$ = ACCP)(5 TO) 2600 REM CONDITIONS 2618 LET E = 1 2710 IF ME) = THEN GOTO 3000 2710 LET TYPE = CODE (E$(E)) - 38 2720 LET N = VAL (E$(E + 1 TO E + 2)) 2800 GOSUE 2900 + TYFL 1 10 2810 IF NGi OK THEN GOTO 2100 2820 LET E E + 3 2830 CGTO 2700 2900 LET OK = (N = SALLE) 2905 RETURN 2911 LET OK=(O(N)=SALLE OR 0(N).0) 2915 RETURN 2920 LET OK=(0(N)1.1 THEN LET N=VAL(E$(E+1 TO E+2)) 3200 LET BREAK = 0 3210 GOSUB 4000 + TYPE x 100 3220 IF BREAK THEN COTG BREAK 3231 LET E = E + 3 3210 COTO 3100 4000 PRINT 4111 PRINT'VOUS TENEZ:'4821 LET F = 1 4130 FOR X = 1 TO 0 1040 IF 0(X) >= 0 THEN COTG 4070 4150 PRINT " ; 0$(X) 4160 LET F = 0 4170 NEXT X 4080 IF F THEN PRINT'RIEN.'4890 LET BREAK = 100 4895 RETURN 4111 IF S(1) < 5 THEN GOTO 4140 4110 PRINT'VOUS NE POUVEZ PORTER PLUS'4120 LET BREAK = 100 4130 RETURN 4140 IF 0(N) = -1 THEN GOTO 4180 4158 LET 0(N) = -1 4160 LET S(1) = S(1) + 1 4170 RETURN 4188 PRINT'VOUS L AVEZ DEJA'4190 COTG 4120 4200 IF 0(N) = -1 THEN GOTO 4240 4210 PRINT'VOUS N AVEZ PAS 1 ; 0$(N) 1220 LET BREAK = 100 4230 RETURN 4241 LET 0(N) = SALLE 4250 LET S(1) = S(1) - 1 4260 RETURN 1310 PRINT 4318 COSUB 7000 + N 1 100 4320 RETURN 4410 LET S(N) = 1 4410 RETURN 4511 LET S(N) = 0 4510 RETURN 1618 LET C(N)=VAL(ECE+3 TO E+4) 4610 LET E = E + 2 4621 RETURN 1701 LET X = 0(N) 4 ; 10 LET 0(N) = 0(N + 1) 4720 LET 0(M + 1) = X 4730 RETURN 4800 LET 0(N) = SALLE Juillet-Août 1982 MICRO-SYSTEMES — 99



Autres parutions de ce magazine  voir tous les numéros


Liens vers cette page
Couverture seule :


Couverture avec texte parution au-dessus :


Couverture avec texte parution en dessous :


Micro Systèmes numéro 24 jui/aoû 1982 Page 1Micro Systèmes numéro 24 jui/aoû 1982 Page 2-3Micro Systèmes numéro 24 jui/aoû 1982 Page 4-5Micro Systèmes numéro 24 jui/aoû 1982 Page 6-7Micro Systèmes numéro 24 jui/aoû 1982 Page 8-9Micro Systèmes numéro 24 jui/aoû 1982 Page 10-11Micro Systèmes numéro 24 jui/aoû 1982 Page 12-13Micro Systèmes numéro 24 jui/aoû 1982 Page 14-15Micro Systèmes numéro 24 jui/aoû 1982 Page 16-17Micro Systèmes numéro 24 jui/aoû 1982 Page 18-19Micro Systèmes numéro 24 jui/aoû 1982 Page 20-21Micro Systèmes numéro 24 jui/aoû 1982 Page 22-23Micro Systèmes numéro 24 jui/aoû 1982 Page 24-25Micro Systèmes numéro 24 jui/aoû 1982 Page 26-27Micro Systèmes numéro 24 jui/aoû 1982 Page 28-29Micro Systèmes numéro 24 jui/aoû 1982 Page 30-31Micro Systèmes numéro 24 jui/aoû 1982 Page 32-33Micro Systèmes numéro 24 jui/aoû 1982 Page 34-35Micro Systèmes numéro 24 jui/aoû 1982 Page 36-37Micro Systèmes numéro 24 jui/aoû 1982 Page 38-39Micro Systèmes numéro 24 jui/aoû 1982 Page 40-41Micro Systèmes numéro 24 jui/aoû 1982 Page 42-43Micro Systèmes numéro 24 jui/aoû 1982 Page 44-45Micro Systèmes numéro 24 jui/aoû 1982 Page 46-47Micro Systèmes numéro 24 jui/aoû 1982 Page 48-49Micro Systèmes numéro 24 jui/aoû 1982 Page 50-51Micro Systèmes numéro 24 jui/aoû 1982 Page 52-53Micro Systèmes numéro 24 jui/aoû 1982 Page 54-55Micro Systèmes numéro 24 jui/aoû 1982 Page 56-57Micro Systèmes numéro 24 jui/aoû 1982 Page 58-59Micro Systèmes numéro 24 jui/aoû 1982 Page 60-61Micro Systèmes numéro 24 jui/aoû 1982 Page 62-63Micro Systèmes numéro 24 jui/aoû 1982 Page 64-65Micro Systèmes numéro 24 jui/aoû 1982 Page 66-67Micro Systèmes numéro 24 jui/aoû 1982 Page 68-69Micro Systèmes numéro 24 jui/aoû 1982 Page 70-71Micro Systèmes numéro 24 jui/aoû 1982 Page 72-73Micro Systèmes numéro 24 jui/aoû 1982 Page 74-75Micro Systèmes numéro 24 jui/aoû 1982 Page 76-77Micro Systèmes numéro 24 jui/aoû 1982 Page 78-79Micro Systèmes numéro 24 jui/aoû 1982 Page 80-81Micro Systèmes numéro 24 jui/aoû 1982 Page 82-83Micro Systèmes numéro 24 jui/aoû 1982 Page 84-85Micro Systèmes numéro 24 jui/aoû 1982 Page 86-87Micro Systèmes numéro 24 jui/aoû 1982 Page 88-89Micro Systèmes numéro 24 jui/aoû 1982 Page 90-91Micro Systèmes numéro 24 jui/aoû 1982 Page 92-93Micro Systèmes numéro 24 jui/aoû 1982 Page 94-95Micro Systèmes numéro 24 jui/aoû 1982 Page 96-97Micro Systèmes numéro 24 jui/aoû 1982 Page 98-99Micro Systèmes numéro 24 jui/aoû 1982 Page 100-101Micro Systèmes numéro 24 jui/aoû 1982 Page 102-103Micro Systèmes numéro 24 jui/aoû 1982 Page 104-105Micro Systèmes numéro 24 jui/aoû 1982 Page 106-107Micro Systèmes numéro 24 jui/aoû 1982 Page 108-109Micro Systèmes numéro 24 jui/aoû 1982 Page 110-111Micro Systèmes numéro 24 jui/aoû 1982 Page 112-113Micro Systèmes numéro 24 jui/aoû 1982 Page 114-115Micro Systèmes numéro 24 jui/aoû 1982 Page 116-117Micro Systèmes numéro 24 jui/aoû 1982 Page 118-119Micro Systèmes numéro 24 jui/aoû 1982 Page 120-121Micro Systèmes numéro 24 jui/aoû 1982 Page 122-123Micro Systèmes numéro 24 jui/aoû 1982 Page 124-125Micro Systèmes numéro 24 jui/aoû 1982 Page 126-127Micro Systèmes numéro 24 jui/aoû 1982 Page 128-129Micro Systèmes numéro 24 jui/aoû 1982 Page 130-131Micro Systèmes numéro 24 jui/aoû 1982 Page 132-133Micro Systèmes numéro 24 jui/aoû 1982 Page 134-135Micro Systèmes numéro 24 jui/aoû 1982 Page 136-137Micro Systèmes numéro 24 jui/aoû 1982 Page 138-139Micro Systèmes numéro 24 jui/aoû 1982 Page 140-141Micro Systèmes numéro 24 jui/aoû 1982 Page 142-143Micro Systèmes numéro 24 jui/aoû 1982 Page 144-145Micro Systèmes numéro 24 jui/aoû 1982 Page 146-147Micro Systèmes numéro 24 jui/aoû 1982 Page 148-149Micro Systèmes numéro 24 jui/aoû 1982 Page 150-151Micro Systèmes numéro 24 jui/aoû 1982 Page 152-153Micro Systèmes numéro 24 jui/aoû 1982 Page 154-155Micro Systèmes numéro 24 jui/aoû 1982 Page 156-157Micro Systèmes numéro 24 jui/aoû 1982 Page 158-159Micro Systèmes numéro 24 jui/aoû 1982 Page 160-161Micro Systèmes numéro 24 jui/aoû 1982 Page 162-163Micro Systèmes numéro 24 jui/aoû 1982 Page 164-165Micro Systèmes numéro 24 jui/aoû 1982 Page 166