$JEUDEVIE% -----------------------------+1U( THEORIC No 25 PAGE 19 NOV 86.[2a<xd JEU DE LA VIE~nx#6FFE:#727F,#60:820::::'' PREPARATI DE L'ECRAN730::X#BB80#BBA7:X,126:X1080,126:/Y126:#BB80Y40,8318:#BBA7Y40,126:5';'A'G'M'aX1:Y1:A("")A#BB80XY40:Q(A):A,63A$:A$(27)ɹA,Q:410"A$(32)320,Q32ɹA,33:Q33:3206A,63:Q32@A$(8)X1ɹA,Q:XX1:270JA$(9)X38ɹA,Q:XX1:270?TA$(10)Y26ɹA,Q:YY1:270a^A$(11)Y1ɹA,Q:YY1:270jh280pr'|'SAUVEGARDE DE LA . COURANTE ''#70C0,2:#70C2,0:#70AD'' APPEL DE LA ROUTINE' D'EVOLUTI'#7093'' MENU PRINCIPAL$'F::::" DESIREZ-VOUS:"w::"1 --> REVOIR LA GENERATION PRECEDENTE":"2 --> ENTRER UNE NOUVELLE GENERATION":"3 --> SAUVER UNE GENERATION SUR DISK" :"4 --> CHARGER UNE GENERATION (DISK)"- &:"5 --> SAUVER UNE GENERATION SUR K7" ] 0:"6 --> CHARGER UNE GENERATION SUR K7" 5:"7 --> SORTIR DU PROGRAMME" :::: DA$:A(A$):A1ɹ#70C0,0:#70C2,2:#70AD:460 NA2180 XA3A6660 b::" NON DE LA GENERATION ";G$:G(G$)> lA3G1G9G$G$".BIN,#7280,#76E0":SAVEG$d vA4G1G9G$G$".BIN":LOADG$ A5G1G17ɷG$,A#7280,E#76E0, A6G1G17ɶG$ A7ɹ618,3: 618,10:500 ' ' ' SOUS PROGRAMME DE TEMPISATI ' 1 RADE 255T ' '_ "PAUSE ENTRE DEUX GENERATIONS (1 = RAP A 255 = LENT)";Pr P1P255730 #709E,P  ' ' ' INITIALISATI ' *' 4:6:4:618,2 > H' R' \' f' p' zX07:#B400348X,0:= X07:A:#B400338X,A:#B400358X,A: i XX7:#B400368X,(#B4001268X): 0,30,30,30,30,30,30,0 ' ' ' TABLEAUX D'LICATI ' ' ' ' :(4)(27)"J JEU DE LA VIE";(4)( ::" IL S'AGIT D'ETUDIER L'EVOLUTION D'UNE"V "POPULATION DE CELLULES QUI VIVENT DANS" "UN ESPACE CONSTITUE DE 988 (38*26) CASES."  "L'EVOLUTION D'UNE CELLULE DEPEND DE SON VOISINAGE" "UNE CELLULE EST REPRESENTEE PAR: ' # '")"UNE CASE VIDE (=CELLULE MORTE) : ' '"d$"LE BORD DE L'ESPACE CONSIDERE : ' ";(126);" '" j)."L'EVOLUTION OBEIT AUX REGLES SUIVANTES"38" -UNE CELLULE AYANT 2 OU 3 VOISINES SURVIT" B" -UNE CELLULE AYANT - DE 2 OU + DE 3 VOISINES MEURT"UL" -UNE CASE VIDE AYANT 3 VOISINES EN- REGISTRE UNE NAISSANCE"{`:(27)"AAPPUYER SUR UNE TOUCHE"jA$:A$""1130t::(4)(27)"J JEU DE LA VIE";(4) ~::"ON INTRODUIT LA POPULATION INITIALE AUMOYEN D'UN MINI-EDITEUR"5"LE '?' REPRESENTE LE CURSEUR."c"ON SE DEPLACE GRACE AUX QUATRE FLECHES"i"L'APPUI SUR [ESPACE] CREE UNE CELLULE A L'ENDROIT OU SE TROUVE LE '?'""POUR SORTIR DE L'EDITEUR ET COMMENCER A OBSERVER L'EVOLUTION "; "IL FAUT TAPER [ESC]" &l"LA TOUCHE [ESC] SERT AUSSI A SORTIR DE LA ROUTINE D'EVOLUTION:(27)"@VEUILLEZ PATIENTER QUELQUES INSTANTS" A#7000:F#70CD:L1310::AAA15:C$ K("#"C$):SSK65536(SK65535):AFɹA,K) :D$:S("#"D$)LL10:AF:1440C:"ERREUR ligne";L:}20,08,70,C8,20,08,70,C8,B1,00,29,01,F0,01,E8,60,05D4(A9,80,85,00,A9,BB,85,01,A9,1A,85,02,A9,26,85,03,0C0D2A2,00,A0,00,20,00,70,A0,28,20,00,70,A0,50,20,00,1047+<70,A0,29,B1,00,29,01,F0,01,CA,C9,01,F0,4A,E0,03,16FDeFD0,06,B1,00,09,02,91,00,E6,00,D0,02,E6,01,C6,03,1C88PD0,CE,A5,00,18,69,02,85,00,90,02,E6,01,C6,02,D0,22E4ZBB,A9,BB,85,01,A9,A8,85,00,A2,1A,A0,26,B1,00,29,29BBd02,4A,09,20,91,00,88,D0,F4,A5,00,18,69,28,85,00,2EE0Mn90,02,E6,01,CA,D0,E4,60,E0,03,F0,B6,E0,02,F0,B2,3844x4C,48,70,20,10,70,AD,08,02,C9,A9,F0,EA,A0,01,A2,3F2E00,EA,EA,EA,CA,D0,FA,88,D0,F5,4C,93,70,A9,80,85,49CA00,85,02,A9,BB,85,03,A9,72,85,01,A2,05,A0,00,B1,4FD6502,91,00,88,D0,F9,E6,01,E6,03,CA,D0,F2,60,00,00,5776_::(27)"AAPPUYER SUR UNE TOUCHE" tA$:A$""1450z$ 64X