ZXTape! 0Created with Ramsoft MakeTZXmilio | |D~ 764467:64464,0:64465,0 1:1:1: "":0,0;:"" ERE 0u"1BD?  @ /@@@?  @@@Aw|!B@B~|B>~|T`@  @@@?~ "@@8@_f8BB@B@Bf@BQT(@ " @@@? " @@@BZ~B~BB>~B>ozn:!! C "'@@??w8x88gDB >?. p"?@@? ?" @@@? ~@@?w8|vvϟ?~x??   @0w ~)I3<6||~<~B~B?>>8?? > 1@8@Sc|ۇBB@@@b@b<8?  1@8o@& gx?ۇBB|<|R|R8?  1@<mn @`xs||@@J@J0? ? 9@?~ln` @D@B@F@F0>? | ;@?hj>a8 q ??@B~<~B~B0@ x ;@??*=Z'=< ??? ????x? @ 0> ?*&̀?9<?0@ <  ?j>?>L%_.0%_c&~?$!'!`>P0PpbN" "8$@0%!'!0 p@$%_ %_$p0$!8m'!DX? gP@j"ˢ "% pp$ !'! DD7??PE_ώ|$>%_袪%% x$p ! '?? ;`?P *?".'?% ~&00a2'hh@ڨ`?b %_%_%$p 'a'hs <5Pt" ?""@@'$ !'xOOOOOOOOOOOOOOOOOOOOOOOOOOOOONNNNNNONOOOOOOONNNNNNNNOOOOOOOONNNNNNOOONNNNNNNNLLLLLLLLLLLLLLNNNNNNNNLLLLLLLLLLLLLLNNNNNNNNLLLLLLLLLLLLLOOOOOOOOOOLLLLL:::::::zxxx8zxxx88111qq1qrr222zzz:::::::::::zxxx881qqrrqqrr22zzxxz:::::::::zzxxx8xqrrrrrqrr2::xxxxxxxxxxxxxxx8888xqrrrrrqr:888xxxhhhhhhhh(((x(h88qrrrrrq:8888xxxxhhhhhh8888hhh8881qrrrqq:8x888xx888xxxhh((hxhh88811qqqq1:8x~88xx888xx8hh88x8(h(((1111111:88x88xx~x8xx8hhh888hh888222222::xxx88xxx~888888hhhhh88882222222:8xxxxxx8x888888888888888million F [0,0;:""64468,900:236066\,212:236077\,250 0:0:: #a(5):n(2):a$(2,13 ):x(2):p(5,2):u(2):v(3,2):j(2,2):t(2,2):r(2,2):q(2):c(5,2):s(2):m(3,2):per=0:flag=0:freeze=0:maxi=0 }2:5,7;"DESIREZ-VOUS JOUER":7,14;6;0;1;"AVEC":9 ,15;"OU" ]11 ,14;0;4;1;"SANS":13 ,7;"UN FOND MUSICAL ?" la(1)=44,:a(2)=152:a(3)=100d:a(4)=170:1:9510&% C20,2;6;2;"REPONDEZ SVP PAR 'A' OU 'S'" *0:s$=:s$"s"s$"a"1040 s$="a"9500% 9:5,3;6;"DESIREZ-VOUS JOUER CONTRE" =7,10 ;4;0;1;"L'ORDINATEUR" 39 ,5;6;"OU AVEC UN PARTENAIRE"  811 ,13 ;5;0;1;"HUMAIN" "l2:a(1)=20:a(2)=152:a(3)=100d:a(4)=215:9510&% $C20,2;6;2;"REPONDEZ SVP PAR 'O' OU 'H'" &*0:j$=:j$"o"j$"h"1062& )j$="h"10808 +:6:s$="a"9500% -5,4;"COMME JE SUIS FAIR-PLAY":7,2;"JE VOUS DONNE LA POSSIBILITE":9 ,2;"DE CHOISIR MON NIVEAU DE JEU" /Q12 ,4;5;0;"Nv 1 :";0;5;" MANAGER MOYEN" 0T14,4;4;0;"Nv 2 :";0;4;" MANAGER CONFIRME" 1W16,4;3;0;"Nv 3 :";0;3;" MANAGER SPECIALISTE" 2la(1)=10 :a(2)=152:a(4)=240:a(3)=130:1:9510&% 3A21,4;6;2;"REPONDEZ PAR 1,2 ou 3 SVP" 470:n$=:n$<491ůn$> 51310764 6n(1)=n$ 8 :3 :05,4;"VOUS POUVEZ CHOISIR ENTRE :" ;A8,4;7;0;"UNE CONJONCTURE TRES CALME" B14,4;3;0;"UNE CONJONCTURE TOURMENTEE" ?@16,4;2;0;"UNE CONJONCTURE HOULEUSE" @G4:0:n=15:6+2*n,2;n:n Ala(1)=10 :a(2)=152:a(3)=120x:a(4)=243:1:9510&% BE20,2;6;2;"REPONDEZ SVP PAR 1,2,3,4 OU 5" D60:n$=:n$<491ůn$>5351092D F/n(2)=(100d-18*n$)/100d L0::s$="a"9500% Mua(1)=10 :a(2)=165:a(4)=241:a(3)=155:1:9510&%:3 N2,2;"Il va maintenant falloir":4,2;"choisir le terrain ( on dit ":6,2;"aussi le march\ ) sur lequel":8,2;"le combat aura lieu ..." P10 ,7;4;"CIGARETTES":11 ,7;5;"AUTOMOBILES":12 ,7;2;"BIJOUTERIE":13 ,7;6;"ORDINATEURS FAMIL.":14,7;3;"ORDINATEURS PROF." R15,7;7;"MACHINES-OUTILS":16,7;2;"SOFT-DRINKS":17,7;4;"HOTELLERIE":18,7;5;"CHIMIE DE BASE":19,7;6;"SOCIETES DE CONSEIL" SR21,1;2;6;" UTILISEZ 'SPACE' PUIS 'ENTER'":n=10 Tn=20n=10 Un,2;2;1;"-->":n,27;2;1;"<--":.1}L*(s$="a"),0:0:z$=:z$13 n,27;" ":n,2;" ":n=n+1:1108T V3n=10 cq=.2~L:cx=.3:cd=.5 W6n=11 cq=.25~:cx=.50:cd=.25~ X6n=12 cq=.703333:cx=.20~L:cd=.10}L Y6n=13 cq=.353333:cx=.40L:cd=.25~ Z6n=14cq=.50:cx=.40L:cd=.10}L [6n=15cq=.60:cx=.25~:cd=.15~ \6n=16cq=.20~L:cx=.30:cd=.50 ]6n=17cq=.50:cx=.40L:cd=.10}L ^6n=18cq=.15~:cx=.80L:cd=.05|L _6n=19cq=.50:cx=.30:cd=.20~L `:5:s$="a"9500% b-2,2;"Bon, maintenant que vous" d04,2;"avez choisi toutes vos con-" f16,2;"ditions de jeu, il s'agit de" h/8,2;"nommer vos entreprises ..." j:10 ,2;4;"La loi oblige toute soci\t\" le11 ,2;4;"^ s'inscrire au registre du":12 ,2;4;"commerce ..." ma(1)=10 :a(2)=170:a(3)=150:a(4)=240:1:9510&%:20,2;5;1;"ENTREZ LE NOM DE L'ENTREPRISE" ng15,2;0;6;"ENTREPRISE 1 :":j$="o"a$(1)="SPECTRUM S.A.":1136p o a$(1) p)15,17;3;a$(1) qC17,2;2;6;"ENTREPRISE 2 :":a$(2) r)17,17;2;a$(2) s 75K t.q(1)=1:q(2)=1:r(1,1)=1:r(1,2)=1:c(1,1)=502:c(1,2)=502:c(2,1)=100000CP:c(2,2)=c(2,1):r(2,1)=10000000:r(2,2)=r(2,1): vn:2,0;2;"!!!";4;" QUE LA BATAILLE COMMENCE ";2;"!!!":a(1)=.09}8Q w`0,162:255,0:0,150:255,0:s$="a"9600% x!b$="TOUS LES COUPS SONT PERMIS" y^n=1̱b$:4,2+n;2;b$(nn):.05|L*(s$="a"),1:n:100d z7,2;0;6;"LA SEULE REGLE C'EST DE VOUS":8,2;0;6;"SERVIR UNIQUEMENT DES ARMES ":9 ,2;0;6;"ECONOMIQUES SUIVANTES : ":100d {R11 ,5;5;"- LA PUBLICITE":.1}L*(s$="a"),0:40( |M12 ,5;4;"- LE PRIX":.1}L*(s$="a"),0:40( }P13 ,5;2;"- LA QUALITE":.1}L*(s$="a"),0:40( ~U14,5;6;"- LA PRODUCTIVITE":.1}L*(s$="a"),0:40( W15,5;3;"- LA FORCE DE VENTE":.1}L*(s$="a"),0:40( 16,5;7;"- LA QUANTITE":.1}L*(s$="a"),0:a(1)=5:a(2)=124|:a(3)=94^:a(4)=245:1:9510&% h20,2;5;1;1;"** APPUYEZ SUR UNE TOUCHE **":0:=""1153 s$="a"9500% :per=per+1:2,5;4;"!!! ";6;"PERIODE No ";2;per;4;" !!!":a(1)=40(:a(2)=162:a(3)=15:a(4)=165:1:9510&% h5:0,0:255,0:0,175:-255,0:0,-175  10 ,130:2;235,0:10 ,100d:2;235,0:mar=(*20000 N+15000:):6,2;5;"Pour cette p\riode on estime":8,2;5;"la demande ^ ";2;mar;5;" unit\s ..." &>n(2)9000(#:1166 12 ,3;2;1;"! RIEN D'AUTRE A SIGNALER !":16,1;1;5;"!!! APPUYEZ SUR UNE TOUCHE !!!" 3a(1)=.02{# =:s$="a"9600%:0  &h=12:j$="o"h=2 q0::p(1,h)=0:u(h)=0:j(1,h)=0:t(1,h)=0:j(2,h)=0 11,1;3;"!!";4;" ENTREPRISE ";1;2;a$(h);0;3;" !!":1:0,175:255,0:0,-20:-255,0:0,20:0,175:255,0:0,-175:-255,0:0,175 5,4;5;"DECISIONS STRATEGIQUES":4:25,142:186,0:0,-20:-186,0:0,20 ]8,5;6;0;"DECISION":8,21;2;0;"VALEUR" 6:10 ,5;"Productivit\":12 ,5;"Qualit\":14,5;"Nv production":16,5;"Publicit\":18,5;"R\seau vente":20,5;"Prix=>VALID" :i=10 202:i,21;2;"0":i  i=10 i-2,2;" ":i-2,28;" ":i,2;1;5;1;"->":i,28;5;1;1;"<-" *1190+10 *(i-10 )/2 00:z$=:z$=" "i=i+2:1185 8z$<480ůz$>5131,0:1190 310 ,21;2;z$:t(1,h)=z$  1185 00:z$=:z$=" "i=i+2:1185 8z$<480ůz$>5021,0:1200 312 ,21;2;z$:j(1,h)=z$  1185 00:z$=:z$=" "i=i+2:1185 d=0:z=0:g$="" #0:z$=:z$=" "1215 'z$<480ůz$>5791211 (d=014,21;" " R14,21+d;2;z$:g$=g$+z$:d=d+1:d<51211 [g$""g$>350001,0:14,21;2;"0 ":1210 $d=0i=i+2:1185 Mp(1,h)=g$:d>40:z$=:z$=" "i=i+2:1185 d<51185  1210 d=0:z=0:g$="" #0:z$=:z$=" "1225 'z$<480ůz$>5791221 (d=016,21;" " P16,21+d;2;z$:g$=g$+z$:d=d+1:d<61221 \g$""g$>999999t#1,0:16,21;2;"0 ":1220 $d=0i=i+2:1185 Eu(h)=g$:d>50:z$=:z$=" "i=i+2:1185 d<61185  1220 00:z$=:z$=" "i=i+2:1185 8z$<480ůz$>5021,0:1230 318,21;2;z$:j(2,h)=z$  1185 d=0:z=0:g$="" #0:z$=:z$=" "1245 'z$<480ůz$>5791241 (d=020,21;" " P20,21+d;2;z$:g$=g$+z$:d=d+1:d<31241 ݩg$""g$>160(d0ưg$<60<)(freeze=1ưg$>x(h))(maxi=1ưg$>100d)1,0:20,21;2;"0 ":1240 Td=0i=10 :20,2;" ":20,28;" ":1185 ux(h)=g$:d>20:z$=:z$=" "i=10 :20,2;" ":20,28;" ":1185 d<21185 z$13 1246 4:freeze=0:maxi=0:s$="a"9500% `cf=c(2,h)+10000'*j(2,h)+u(h)+5000*j(2,h)+15000:*t(1,h) ?c=c(1,h)+2*j(2,h)+j(1,h)-t(1,h) Gt(2,h)=cf+c*p(1,h):t(2,h)r(2,h)1260  4:"Les d\cisions que vous venez"::"de prendre n\cessitent une "::"somme totale de :";2;t(2,h)::"Or, vos ressources ne sont"::"que de ";3;r(2,h):::1;5;1;"VEUILLEZ RECOMMENCER SVP":500:1171 D4:1,9 ;5;1;a$(h):2:0:1,2;"!!!!!":1,24;"!!!!!":3,1;6;2;" VOS DECISIONS ONT BIEN ETE ":4,1;6;" ":5,1;6;2;" ENREGISTREES ... " 1:0,0:255,0:0,175:-255,0:0,-175:0,155:255,0:0,125}:255,0:0,40(:255,0 8,3;5;0;"D\penses engag\es :";2;0;t(2,h);"f.":9 ,3;5;0;"Co_t stockage : ";0;2;(.15~*s(h)*x(h));"f." @q(h)=q(h)+j(1,h):r(1,h)=r(1,h)+j(2,h) 2q(h)>9 q(h)=9 :j(1,h)=0 Br(1,h)>9 r(1,h)=9 :j(2,h)=0 11 ,3;3;0;"Nv force vente: ";2;0;r(1,h):12 ,3;3;0;"Nv de qualit\: ";0;2;q(h) qr(2,h)=r(2,h)-t(2,h)-(.15~*s(h)*x(h)):t(2,h)=t(2,h)+(.15~*s(h)*x(h)) L15,2;4;0;"IL VOUS RESTE : ";r(2,h);" ff." c(2,h)=c(2,h)+10000'*j(1,h)+5000*j(2,h):c(1,h)=c(1,h)+2*j(2,h)+j(1,h)-t(1,h) .c(1,h)30c(1,h)=30 i=18:i,40(-i:255-2*i,0:0,-40(+2*i:-255+2*i,0:0,40(-2*i:i b$=" PRENEZ BIEN NOTE DE CES RESULTATS ... CA PEUT VOUS SERVIR PLUS TARD ... APPUYEZ SUR UNE TOUCHE POUR CONTINUER ... " li=1̱b$-22:19,4;0;4;b$(ii+22):5:=""i:1282 h:0: j$="h"2000 ?10 ,5;4;0;"UN INSTANT,JE PENSE ..." 9c(1,1)>29t(1,1)=1 Kc(1,1)-c(1,2)>5t(1,1)=3 p(1,1)=mar*.01z# =*(20*+25+10 *n(1))-s(1):p(1,1)=p(1,1) 8p(1,1)<0p(1,1)=0 8r(1,1)<8j(2,1)=2 8r(1,1)8j(2,1)=0  @q(1)<8j(1,1)=(1+cq*2.4)  ;q(1)8j(1,1)=9 -q(1) hu(1)=cd*(*6+10 *n(1))*(p(1,1)+s(1)):u(1)=u(1) per=11570" p(2,1)<.2~L+.1}L*n(1)u(1)=u(1)+((1+cd)^4-1)*(.25~+.1}L*n(1)-p(2,1))*1000000t$ jp(2,1)<.6n(1)=3u(1)=u(2)+50000P*(1+cd)^3.5` u(1)=u(1) "t(2,1)=p(1,1)*(c(1,1)-t(1,1)+j(1,1)+2*j(2,1))+c(2,1)+10000'*j(1,1)+5000*j(2,1) 't(2,1)=t(2,1)+.15~*x(1)*s(1)+u(1)+15000:*t(1,1):t(2,1)=t(2,1) ,3t(2,1)>r(2,1)1500 10q(1)=q(1)+j(1,1):r(1,1)=r(1,1)+j(2,1):c(1,1)=c(1,1)+j(1,1)+2*j(2,1)-t(1,1):c(2,1)=c(2,1)+10000'*j(1,1)+5000*j(2,1) 6:r(2,1)=r(2,1)-t(2,1) ;7xy=t(2,1)/(p(1,1)+s(1)) @freeze=12000 Etx(1)=xy+(60<*(.9ffff-cx))+10 :x(1)=x(1):x(1)=x(1)-5*n(1) J,x(1)>160x(1)=160 O*x(1)<60<x(1)=60< Tper=12000 Yup(2,1)>.6x(1)=x(1)+15*n(1)*(1-cx)+5:x(1)=x(1) ^p(2,1)<.4Lx(1)=(c(3,1)/v(1,2)-10 ):x(1)<60<x(1)=60< csp(2,1)<.6n(1)=3x(1)=x(2)+(75K**(1-cx)^3)-12 h,x(1)>160x(1)=160 m*x(1)<60<x(1)=60< r9maxi=1x(1)>100dx(1)=100d maxi=0:freeze=0  0: s$="s"3000 'b$=" " >6,0;6;" MAINTENANT QUE VOS DECISIONS " >8,0;6;" SONT ENREGISTREES, LA SANCTION " @10 ,0;6;" DU MARCHE VA TOMBER .... " ?12 ,0;6;" ... MAIS PAS DE PANIQUE !!! " @ 14,0;6;" VOICI UN PETIT AIR DE MUSIQUE " ?16,0;6;" JOYEUX POUR VOUS RECHAUFFER "  ?18,0;6;" LE COEUR AVANT LA TEMPETE ... " 7i=5192:i,0;6;b$:i  150  "a(1)=.66(:9600% *'b$="TRES ENCOURAGEANT N'EST-CE PAS ?" 4Oi=1̱b$:21,0;2;b$(1i):.06|u\,0:i > 75K  qw= qwn(2)9200# qwp(2,1)=cx*ax+cq*aq+.5*cd*ar+.5*cd*ad <p(2,1)<.01z# =p(2,1)=.01z# = <p(2,1)>.99}pp(2,1)=.99}p /p(2,2)=1-p(2,1) \v(1,1)=(mar*p(2,1)):v(1,2)=(mar*p(2,2)) &v(1,1)>p(1,1)+s(1)v(1,1)=p(1,1)+s(1):s(1)=0:31200 +ms(1)=p(1,1)+s(1)-v(1,1):s(1)>300000us(1)=300000u 0v(1,2)>p(1,2)+s(2)v(1,2)=p(1,2)+s(2):s(2)=0:3130: 5ms(2)=p(1,2)+s(2)-v(1,2):s(2)>300000us(2)=300000u :h=12:c(3,h)=x(h)*v(1,h):p(3,h)=c(3,h)-t(2,h):r(2,h)=r(2,h)+c(3,h):h Dh=12:v(2,h)=v(2,h)+v(1,h):c(4,h)=c(4,h)+c(3,h):p(4,h)=r(2,h)-10000000 N,c(4,h)=0m(2,h)=0 OYc(4,h)0m(2,h)=((10000'*p(4,h)/c(4,h)))/100d Ph X8c(3,1)=0m(1,1)=0 Yoc(3,1)0m(1,1)=(10000'*p(3,1)/c(3,1))/100d b8c(3,2)=0m(1,2)=0 coc(3,2)0m(1,2)=(10000'*p(3,2)/c(3,2))/100d lh=12 v6v(1,h)>v(3,h)v(3,h)=v(1,h) 6c(3,h)>c(5,h)c(5,h)=c(3,h) 6p(3,h)>p(5,h)p(5,h)=p(3,h) 6m(1,h)>m(3,h)m(3,h)=m(1,h) h  9700% 3:10 ,165:150,0:0,-115s:-150,0:0,115s:165,165:77M,0:0,-115s:-77M,0:0,115s  2,3;0;6;" PART DE MARCHE ":4,2;6;"th\oriq. r\elle":6:85U,145:0,-86V )a(1)=12 :a(2)=8 h2:x=20:y=68D:h=(100d*p(2,1)):z1=h:h=(h/1.6L):9800H& h4:x=502:y=68D:h=(100d*p(2,2)):z2=h:h=(h/1.6L):9800H& ?6:14,2;z1+"%":14,6;z2+"%" ȕ2:x=98b:y=68D:h=v(1,1)/(v(1,1)+v(1,2)):h=(100d*h):z1=h:h=(h/1.6L):9800H& Җ4:x=128:y=68D:h=v(1,2)/(v(1,1)+v(1,2)):h=(100d*h):z2=h:h=(h/1.6L):9800H& A6:14,12 ;z1+"%":14,16;z2+"%" .2,22;4;0;" PRIX " [h=((x(1)-59;)/4+1):x=175:y=115s:2:9800H& [4:h=((x(2)-59;)/4+1):x=205:y=115s:9800H& N8,21;6;x(1):8,25;6;x(2) /11 ,22;7;0;" C.A. " `13 ,22;2;c(3,1):14,22;4;c(3,2) b$=" LA PART DE MARCHE THEORIQUE REPRESENTE LA PART QUE VOUS AURIEZ PU AVOIR COMPTE TENU DE VOS CARACTERISTIQUES (PRIX,PUB...) PAR RAPPORT A VOTRE CONCURRENT ... " ri=1̱b$-14:2,4;6;0;b$(ii+14):5:z$=:z$=""i:4100 h:9700% r3:10 ,165:150,0:0,-115s:-150,0:0,115s:165,165:77M,0:0,-115s:-77M,0:0,115s w2,3;6;0;" MVT DE STOCKS ":2,22;4;0;" COUTS ":4,2;6;"Prod Vent Stocks" |(a(1)=7:a(2)=5 Px=16:y=80P:h=(p(1,1)/700):2:9800H& Px=35#:y=80P:h=(p(1,2)/700):4:9800H& Dx=65A:h=(v(1,1)/700):2:9800H& Dx=84T:h=(v(1,2)/700):4:9800H& =x=117u:h=(s(1)/700):2:9800H& =x=136:h=(s(2)/700):4:9800H& †13 ,2;2;p(1,1):13 ,8;2;v(1,1):13 ,14;2;s(1) ̆14,2;4;p(1,2):14,8;4;v(1,2):14,14;4;s(2) Ip(1,1)0z1=(t(2,1)/p(1,1)) 3p(1,1)=0z1=t(2,1) Ip(1,2)0z2=(t(2,2)/p(1,2)) 3p(1,2)=0z2=t(2,2)  z1>z2b=z1  z1z2b=z2 b=35#/b k2:a(1)=10 :a(2)=8:x=175:y=95_:h=(10 +z1*b):9800H& 64:x=210:h=(10 +z2*b):9800H& @11 ,22;6;z1:11 ,26;6;z2 0eb$=" Ce tableau vous indique combien chaque unit\ produite vous a cout\ au total " :ri=1̱b$-8:14,21;5;1;b$(ii+8):z$=:5:z$=""i:4410: Dz$="r"4000 Nz$" "4410: :9700% k3:10 ,165:235,0:0,-110n:-235,0:0,110n A2,3;5;1;" * RESULTATS FINANCIERS * "  6  5,2;"DEPENSES":6,2;"RECETTES":8,2;6;0;" PROFIT ":10 ,2;"MARGE COMM.":12 ,2;4;0;"RESSOURCES"   2:5,13 ;t(2,1):6,13 ;c(3,1):8,13 ;1;p(3,1):10 ,13 ;m(1,1)+"%":12 ,13 ;r(2,1) 4:5,22;t(2,2):6,22;c(3,2):8,22;1;p(3,2):10 ,22;m(1,2)+"%":12 ,22;r(2,2) #0:z$=:z$="r"4200h z$" "4570 :9700% k3:10 ,165:235,0:0,-110n:-235,0:0,110n  >2,4;5;1;" * RESULTATS CUMULES * "  6  5,2;"VENTES":6,2;"(en unit\s)":8,2;"C.A.":10 ,2;6;0;" PROFIT ":12 ,2;"MARGE COMM."  *2:5,13 ;v(2,1):8,13 ;c(4,1):10 ,13 ;1;p(4,1):12 ,13 ;m(2,1)+"%" 44:5,22;v(2,2):8,22;c(4,2):10 ,22;1;p(4,2):12 ,22;m(2,2)+"%" >#0:z$=:z$="r"4500 Hz$" "4670> :9700% k3:10 ,165:235,0:0,-110n:-235,0:0,110n @2,4;5;1;" * MEILLEURS RESULTATS * "  6 5,2;"VENTES":6,2;"(en unit\s)":8,2;"C.A.":10 ,2;6;0;" PROFIT ":12 ,2;"MARGE COMM."  2:5,13 ;v(3,1):8,13 ;c(5,1):10 ,13 ;1;p(5,1):12 ,13 ;m(3,1)+"%" 4:5,22;v(3,2):8,22;c(5,2):10 ,22;1;p(5,2):12 ,22;m(3,2)+"%" !a(1)=.1}L:9600% b$=" ATTENTION CECI EST LE DERNIER TABLEAU ... APRES,IL NE SERA PLUS POSSIBLE DE RETOURNER EN ARRIERE POUR VISUALISER LES RESULTATS ... " si=1̱b$-21:14,5;3;0;b$(ii+21):5:z$=:z$=""i:4870 z$="r"4600 z$" "4870  3:0,110n:255,0:0,-60<:-255,0:0,60<:10 ,0;0;4;"DESIREZ VOUS CONTINUER LE JEU ? " N13 ,10 ;2;"O";6;"ui ou ";2;"N";6;"on" #0:z$=:z$="o"1157 z$"n"5000 p:3:0,110n:255,0:0,-60<:-255,0:0,60<:10 ,0;0;4;"DESIREZ VOUS REFAIRE UNE PARTIE ?" zN13 ,10 ;2;"O";6;"ui ou ";2;"N";6;"on" #0:z$=:z$="o"1000 z$"n"6000p d #(/b=(*9 +1):9000(#+10 *b #-Zb$=" EH OUI! LA VIE ECONOMIQUE EST PLEINE D'IMPREVU ... " #.hi=162>:21,7;5;1;b$(ii+17):5:=""i:9006.# #0 #2per=19000(# #310 ,2;6;"Le gouvernement a impos\ un":12 ,2;6;"blocage des prix ... Vous ne":14,2;6;"pouvez augmenter vos prix ..." #4freeze=1:9005-# #<-b=(*2+1):10 ,5;2;1;a$(b):12 ,2;6;"Votre entrept a br_l\ ...":14,2;6;"Tout votre stock est d\truit":16,2;6;"et vous devez payer 100000 FF ":18,2;6;"pour un nouvel entrept..." #>Bs(b)=0:r(2,b)=r(2,b)-100000CP:9005-# #F/b=(*2+1):10 ,5;2;1;a$(b):12 ,2;6;"L'Etat vous accorde une prime":14,2;6;"exceptionnelle de ";:z=(*30+1)*15000::2;z;" ff .":16,2;1;5;1;"PROFITEZ EN BIEN !!!" #J*r(2,b)=r(2,b)+z:9005 -# #P;b=(*2+1):10 ,5;2;1;a$(b):12 ,2;6;"Les ouvriers vous ayant mena-":14,2;6;"c\ de faire gr[ve, vous leur ":16,2;6;"avez accord\ une augmentation":18,2;6;"Vos co_ts montent de ";2;"2 ff" #R/c(1,b)=c(1,b)+2:9005-# #Zb=(*2+1):10 ,5;2;1;a$(b):12 ,2;6;"Une hausse d'un de vos four-":14,2;6;"nisseurs fait monter vos ":16,2;6;"co_ts de 3 ff .";2;1;"DUR,DUR !!!" #\/c(1,b)=c(1,b)+3:9005-# #d10 ,2;6;"Pour combattre l'inflation":12 ,2;6;"le gouvernement vous":14,2;6;"impose de ne pas d\passer un":16,2;6;"prix de vente de 100 ff ..." #fmaxi=1:9005-# #nb=(*2+1):10 ,5;2;1;a$(b):12 ,2;6;"Par suite d'une bonne n\go-":14,2;6;"tiation avec vos fournisseurs":16,2;6;"vos co_ts descendent de 5 ff." #pQc(1,b)=c(1,b)-5:c(1,b)<30c(1,b)=30 #r 9005-# #x)b=(*2+1):10 ,5;2;1;a$(b):12 ,2;6;"A la suite d'un controle du":14,2;6;"fisc vous ]tes redress\ ":z=(*10 +1)*20000 N:16,2;6;"de ";2;z;" ff ...";3;" Ooooooh ...." #z)r(2,b)=r(2,b)-z:9005-# #b=(*2+1):10 ,5;2;1;a$(b):12 ,2;6;"Vous ]tes condamn\ ^ payer":14,2;6;"100000 FF d'amende pour publi":16,2;6;"cit\ mensong[re ..." #4r(2,b)=r(2,b)-100000CP:9005-# #l:2:a(1)=5:a(2)=170:a(3)=23:a(4)=248:9510&% #qw=(*10 +1):4:i=14:i-1,142-i:257-2*i,0:0,-102f+2*i:-257+2*i,0:0,102f-2*i:i $1,1;6;1;" VOUS NE PENSIEZ TOUT DE MEME ":2,1;6;1;" PAS VOUS EN TIRER COMME CA !!" $ 6 $ ]nm=(*2+1):5,3;1;"---> ";2;a$(nm);1;" <---" $ "9230$+10 *(qw-1) $ Qi=13:i,34"-i:3;254-2*i,0:3;0,-30+2*i:3;-254+2*i,0:3;0,30-2*i:i:b$=" ET MAINTENANT , POUR CONNAITRE L'ENSEMBLE DES RESULTATS APPUYEZ SUR N'IMPORTE QUELLE TOUCHE ... " $ ci=1̱b$-20:19,5;5;b$(ii+20):5:=""i:9228 $ $ 3020 $7,1;" QUEL GACHIS... Durant le ":9 ,1;" transport, 10% de votre ":11 ,1;" production s'est d\t\rior\e":13 ,1;" et est donc invendable..." $+p(1,nm)=(.9ffff*p(1,nm)): $u(nm)=09230$ $7,1;" Votre campagne de pub a \t\":9 ,1;" un grand succ[s qui a ":11 ,1;" fortement stimul\ votre part":13 ,1;" de march\... " $u(nm)=u(nm)+250000t$: $"7,1;" L'effet de votre campagne":9 ,1;" de pub n'a pas \t\ fou-":11 ,1;" droyant ... Dommage !!!" $'8u(nm)=u(nm)-200000CP:u(nm)<0u(nm)=0 $( $,7,1;" Vos vendeurs, passant outre":9 ,1;" vos consignes ont vendu ":11 ,1;" plus cher que ce que vous ":13 ,1;" aviez d\cid\... " $17x(nm)=x(nm)+5:x(nm)>160x(nm)=160 $2 $67,1;" Les performances de votre":9 ,1;" r\seau commercial ont \t\":11 ,1;" brillantes ... ":13 ,1;" Un grand merci aux vendeurs !" $;u(nm)=u(nm)+250000t$: $@7,1;" La confiance, vous le savez":9 ,1;" bien, on ne peut que diffi-":11 ,1;" cilement l'accorder... ":13 ,1;" Votre comptable est parti ":15,1;" avec 200000 ff en poche..." $E,r(2,nm)=r(2,nm)-200000CP: $J7,1;" Durant la production, une de":9 ,1;" vos machines est tomb\e en":11 ,1;" panne et il a fallu en louer":13 ,1;" une autre pour 50000 ff ..." $O+r(2,nm)=r(2,nm)-50000P: $T 9310^$ $^7,1;"N'ayant pas \t\ satisfaits des":9 ,1;" derni[res n\gociations , vos":11 ,1;" ouvriers ont d\truit le cin-":13 ,1;" qui[me de votre production." $c+p(1,nm)=(.8L*p(1,nm)): $h 7,1;" Des agriculteurs en col[re":9 ,1;" ont brul\ un de vos camions ":11 ,1;" de transport... Co_t du ":13 ,1;" remplacement : 100000 FF !" $m,r(2,nm)=r(2,nm)-100000CP: $r7,1;" A la suite d'une bonne ana-":9 ,1;" lyse du processus de produc":11 ,1;" tion vous ]tes arriv\s ^ ":13 ,1;" descendre vos co_ts variables":15,1;" de 5 FF par unit\..." $wUc(1,nm)=c(1,nm)-5:c(1,nm)<30c(1,nm)=30 $x $:9 ,0;4;0;" QUELLE CHANCE AUCUN INCIDENT ":11 ,0;4;0;" N'EST VENU TROUBLER LA DOUCE ":13 ,0;4;0;" QUIETUDE DE VOS SOCIETES ... ":b$=" ":8,0;4;b$:10 ,0;4;b$:12 ,0;4;b$:14,0;4;b$:100d $ 3020 %&n=120:.02{# =,n:n: %&n=14:a(1)-n,a(2)+n:a(4)+2*(n-1),0:0,-a(3)-2*(n-1):-a(4)-2*(n-1),0:0,a(3)+2*(n-1):n: %|a(1),0:a(1),2:a(1)/2,3:a(1)/2,2:a(1),0:"" %|a(1),0:a(1),2:a(1)/2,3:a(1)/2,2:a(1),0:"" %La(1),3:a(1),5:2*a(1),7:"" %M a(1),3:a(1),5:2*a(1),7:"" %`a(1)*.75@,7:a(1)*.25~,8:a(1)/2,7:"" %ha(1)/2,5:a(1)/2,3:a(1)/2,2:a(1),0 %`a(1)*.75@,7:a(1)*.25~,8:a(1)/2,7:"" %ha(1)/2,5:a(1)/2,3:a(1)/2,2:a(1),0 %Ma(1),0:a(1),-5:2*a(1),0:"" %Ma(1),0:a(1),-5:2*a(1),0:"" % %1::0,175:255,0:0,-175:-255,0:0,175:1,174:253,0:0,-173:-253,0:0,173:0,46.:255,0 %2:10 ,39':113q,0:0,-31:-113q,0:0,31:130,39':113q,0:0,-31:-113q,0:0,31 %X18,17;6;"'SPACE':suite":19,17;5;"'R':arri[re" %b18,2;2;0;a$(1):19,2;4;0;a$(2) & &Hi=yy+h:x,i:a(1),0:x+a(1)+2,i:a(2),5:i:x,y+h:a(1)-1,5:a(2)+2,0: '1"million"10 :"car"64468,900 ocar  ?$$$~$$~$>(> >bd&F(*D:0 80``088  >>> ggg>.N~`~g>ss>N<0>>g|2>33~>sqpq>|2313~9<899<88|>qpwq>{:>::{n>txtr|889;nVVVg2:>.g>qqqq>~9;>8|>yqq{> ~9;:;y>y{:::>{::jjjv"s:6gq: O $r~q>0=rrr=0s222>spk>=rrr=p0>999n>sps>>vbv; 000 ..o>qqq>~99>8x?NN>r=88|>q888;s22:{::jjj4{:,o{:$N9>v`>>v`>>v`> >rr={::{::~>~