ZXTape!MANAGER ` `yb!@P J49999O:4:4:7::"":23760\:4:"" MANAGER `0am PD|zx0ac f0c?@6?~?l@6?l@@@00mcA ~8x`0A<<<<<<<<Af f`A1? 6?~??lA@6l` ?8`0` 0Lm0 "P&U x|0` fbfbffbfbbbfff<0>f?>A!6?l L6l& &8C&? ``L f9>s?`fhf`ffpfhr,r,fff`?"6?l 6xloa&`>xG?a `0`& 8 0C0? `0I|x|`f||N0```&`q x<`` 0|`jl`flfhN~Nb~lf]f?$AD@7AH6?l 6>|lY0`M0|?@ | 0=x0`1`bfbffff`FFFFfffAfA$76??l 6?ly0`0m2LP| yy0`c<<<<<<<<fscf"6l>!6?lpf fd6?l26??l 6l f06l?6lc? c?6>|?l 6lf`x6@Hc$l?A7Af ? 1?x A~6~~l> 6Dl 06q@8p$l|0 ~fl 06Dl<6"P  $l? ~f`?f 0A<o "<6|>lA 06Dlش6l6~l>c? xsc?~||||||ش|d2pf !s@@czx|$zx|zx| f0cx?```a$0a<<<<<<<@AHf 0x`~c$0x`~0x`~f`1x?c@H@88c$80<<<<<<<<<|fbfbffbfffffFFfbbD( ff<0L| l0L| 0L| 0><q``?8 ?8(?8`` xxlx0` fbfbffbffbffFFfbbfhf`ffpfffffF frh&?@&?_&?f``L?`L?`L?A<<Y<8&_8&@8& A`?>s>s>s`fhf`ffpffpffF frh|x|`f|xG>) xG>a`0 008FF 008F 008F `0|x|`f|v>vH>v0``` xM0x|M0x|ffcAxC~` 0= 0=> 0=0`Ac`bfbffffffffFafFb|<<<<<<<<f|c0y|0y|0y|fcxxq` yƆ y y0`<<<<<<<<<<<'!9911**44;; ::((99"''!9911**44;; ::((99"''(((%''''''''''''''''''''''!***''((($'''''''''''''''''''''''***''((($'''''''''''''''''''''''***''444111''444111''444111'' ***'' EEEEEE***'' EEEEEEEEEEEE***''((( ''((( ''((( ''111''''''''''''''''''''''''444''111$$$$$$$$$$$$$$$$$$$$$$$$444''111'''''''''''''''''''''''$444''((('99**9999!***''((('99**9999!***''((('''''''''''''''''''''''!***'''::99;;::99;;**::99;;!'''::99;;::99;;**::99;;!' '''''''''''''''''''''''' managbasic;M;M=M!@P!P@00 " PAUSA " " Olivetti ",300000u "JWT Pubblicit.",20000 N "Banco di Roma ",40000@ "Sintex Consul.",20000 N " Alitalia ",300000u "Assicuraz.(MI)",10000' " Dalmine ",60000` " Standa ",15000: "Credito Ital. ",50000P "Postal Market ",25000a " Enel ",50000P " INCENDIO " 2,0;:"" &0:0:1:7:  M231,195,129,0,0,129,195,231 Q255,129,129,153,153,129,129,255 M124|,254,6,513,115s,103g,126~,60< !K0,102f,255,255,126~,60<,24,0 "L249,25,41),38&,70F,73I,137,249 #N24,60<,126~,255,90Z,126~,102f,102f $J24,28,30,16,16,255,126~,0 %M0,0,248,248,255,255,102f,102f &L195,195,24,24,24,129,66B,60< '23658j\,8 (Ka=3038&:a:n=07:q:((a+114r))+n,q:n:a 2R20,0;"Devi caricare una partita prece-dentemente registrata? (s/n)" 7a$=:a$"S"a$"N"557 ;a$="N"100d "6"105i xb(11 ):fa=0:ng=a$:x(ng):b$(ng,8):a(ng,14):a=1̰a$:a(a,12 )=1:a(a,1)=250000t$::1,0;"Nome del giocatore n. ";a;"?" b=18 .15~,502 /a$=:(a$<" "a$>"")Ưa$12 140 #a$=12 b=1140 Ha$=12 b=b-2:2,b;" ";2,b;:b:a:155 a$;:b$(a,b)=a$:b:a p:a=19 ::a,(a+143):a:a=1ng:21,0;"Quale simbolo sceglie ";b$(a);"?" a$=:a$<"1"a$>"9"156 x(a)=a$ +u=1a-1:x(a)=x(u)156 u:a:gi=0 23658j\,0 "gi=gi+1:gi>nggi=1 $a(gi,14)=11000 4:23772\ 85004!:9998' 30::5:3,124|:121y,0:0,-112p:-121y,0:0,112p:131,156:121y,0:0,-72H:-121y,0:0,72H:5,172:81Q,0:0,-38&:-81Q,0:0,38& H5;1,19;(x(gi)+143);1,23;b$(gi) $4:7,5;"AZIONI" 8aa=9 :a=111 :b(a)gia:1021 :2+a:x$:aa,1;3;x$:aa=aa+1:a 6:3,17;"Denaro..";a(gi,1);4,17;"Debiti..";(a(gi,2)+a(gi,4));5,17;"Dalmine.....";a(gi,6);6,17;"Enel........";a(gi,7);7,17;"Olivetti....";a(gi,8);8,17;"Consulenza..";a(gi,9 );9 ,17;"Pubblicita'.";a(gi,10 );10 ,17;"Assicuraz...";a(gi,11 ) 87:w=0:1470+30*a(gi,12 )  w=1 T#0;0,0;"USI DADO,CONSULENZA,PUBBLICITA'?rispondi con 1, 2 o 3." $!a$=:a$<"0"a$>"3"1060$ ).2~L,0 + a$="0"8800`":1050 .a$="1"3000 8a$="2"3700t Ba$="3"3750 L$1470+30*a(gi,12 ) V@u=0:a=111 :b(a)=gia+2:a$,b:u=u+b Wa XFa(gi,1)-a(gi,2)-a(gi,4)+u500000t$9000(# Y#a(gi,1)<05000 `fa=ng-19000(# j 1000 Tc=0:ci=5:k=64471:d=2:2650Z :w=01030  1110V  i=10 aii=4:c=1:ci=7:k=64535:d=11 :2650Z :W=14000  1030 i=10000' Tc=1:ci=6:k=64599W:d=4:2650Z :W=01030 k16,25;"`";i:pe=1:8000@:a(gi,1)pe=2:8000@:d:a$,a:b(d-2)gi1750 ;#0;"Vendi l'azione a `.";a/100d*120x;" ?"  2810 Qa$="s"b(d-2)=0:a(gi,1)=a(gi,1)+a/100d*120x  1110V 2b(d-2)0a(gi,1)c=7:ci=2:k=65047:d=10 :1741 >c=1:ci=7:k=64535:d=11 :1741 >c=7:ci=1:k=65111W:d=12 :1741 >c=2:ci=5:k=65175:d=13 :1741  1500 4 i=10 5`ii=2:c=5:ci=2:k=64855W:d=5:2650Z :w=01030 7 4000 Ri=8000@:1561 pi=20:21015 i=6000p:1621U i=8000@:1651s i=30:21015  1500  7000X $a(gi,13 )=22325 Oi=16000>:ii=8000@:c=0:ci=2:k=64983:d=9 #2650Z :w=01030 7500L:1110V [c=7:ci=3:y=1:i=20000 N:ii=15000::k=64919:d=7 #2650Z :w=01030 7700:1110V $7000X:a(gi,13 )=1i=140006:ii=7000X:c=2:ci=5:d=13 :k=65175:2314 )hy=2:i=40000@:ii=25000a:c=7:ci=1:k=65111W:d=12 :2326 B~7000X:a(gi,13 )=1i=8000@:ii=4000:c=7:ci=1:d=3:k=64791:2314 Ghy=3:i=60000`:ii=22000U:c=7:ci=2:d=10 :k=65047:2326 `07000X:a(gi,13 )=11500 e>c=0:ci=2:k=64407:d=14:2650Z fw=01030 g$a(gi,13 )=12420t i0u=68:a(gi,u)<11110V m2u:u=68:a(gi,u)=a(gi,u)-1:u o#0;0,0;"Perdi un prodotto finito";:a(gi,11 )1a(gi,11 )=a(gi,11 )-1:a(gi,1)=a(gi,1)+36000:#0;", ma seiassicurato! (+ `.36000)" q9u=110 :.2~L,u:u:20:1110V t#a(gi,6)=01110V u-u=1:a(gi,6)2u=2 va(gi,6)=a(gi,6)-u w#0;0,0;"Perdi ";u;" unita' Dalmine";:a(gi,11 )>0a(gi,11 )=a(gi,11 )-1:a(gi,1)=a(gi,1)+15000:*u:#0;" ma sei assicurato! (+ `.";u*15000:;")" x 2417q ~7000X:a(gi,13 )=1i=12000.:ii=4000:c=0:ci=2:d=9 :k=64983:2314 fy=1:i=33000:ii=9000(#:c=7:ci=3:d=7:k=64919:2326 7000X:a(gi,13 )=1i=10000':ii=3000 :c=2:ci=5:d=13 :k=65175:2314 hy=2:i=66000:ii=15000::c=7:ci=1:d=12 :k=65111W:2326 ~7000X:a(gi,13 )=1i=6000p:ii=2000:c=7:ci=1:d=3:k=64791:2314 hy=3:i=99000A\:ii=130002:c=7:ci=2:d=10 :k=65047:2326 07000X:a(gi,13 )=12405e 1500 ~7000X:a(gi,13 )=1i=8000@:ii=2000:c=0:ci=2:d=9 :k=64983:2314 fy=1:i=47000:ii=6000p:c=7:ci=3:d=7:k=64919:2326 7000X:a(gi,13 )=1i=7000X:ii=2000:c=2:ci=5:d=13 :k=65175:2314 hy=2:i=940007:ii=10000':c=7:ci=1:d=12 :k=65111W:2326 2~7000X:a(gi,13 )=1i=4000:ii=1000:c=7:ci=1:d=3:k=64791:2314 7hy=3:i=141000 :ii=9000(#:c=7:ci=2:d=10 :k=65047:2326 Zd:a$:12 ,16;a$ ^u=07 _b=07 d;13 +u,16+b;c;ci;((k+b+u*8)):b:u: !a$=:a$<"0"a$>"9"2800  za(gi,1)=a(gi,1)-i*a$:b(d-2)0a(b(d-2),1)=a(b(d-2),1)+(i*a$)/2  !a$=:a$"s"a$"n"2810  Md2=0:aa=0:9997 ':#0;0,0;"1 o 2 dadi?" .5,0 a$=:a$=""3005 #0;0,0; :d1=(*6+1):a$="2"d2=(*6+1) hx=1:3660L:3000 +d1*100d:a$="2"x=6:3660L:3000 +d2*100d .02{# =,aa:aa=aa+1 =""aa<203010 ~a(gi,12 )=a(gi,12 )+d1+d2:a(gi,12 )39'a(gi,12 )=a(gi,12 )-38&:a(gi,13 )=0 1100L 1,x;"" &2,x;"" :3,x;"" D4,x;"" N 1,x;"" 2,x;"" 3,x;"" 4,x;""  1,x;"" 2,x;"" 3,x;"" 4,x;""  R1,x;"" \2,x;"" f3,x;"" p4,x;"" z 1,x;"" 2,x;"" 3,x;"" 4,x;""  1,x;"" $2,x;"" .3,x;"" 84,x;"" B L1,x;" " M2,x;" " N3,x;" " O4,x;" " P tma(gi,9 )=0#0;0,0;"Non hai consulenza! ":9998':1050 ~ba(gi,9 )=a(gi,9 )-1:a(gi,12 )=27:a(gi,13 )=1:3000 na(gi,10 )=0#0;0,0;"Non hai contratti pubblicitari! ":9998':1050 da(gi,10 )=a(gi,10 )-1:a(gi,12 )=27:a(gi,13 )=2:3000 P16,27;i;"%":pe=1:8000@:a(gi,ii)=04100 #0;"Devi saldare il debito!":b(d-2)0a(b(d-2),1)=a(b(d-2),1)+5000*a(gi,ii+1) vaa=50000P+5000*a(gi,ii+1):a(gi,ii)=0:a(gi,1)=a(gi,1)-aa:9998':1110V 0#0;"Vuoi prestito di ` 50000 al ";i;"%?"  !a$=:a$"s"a$"n"4105  a$="n"1110V ha(gi,ii)=50000P:a(gi,ii+1)=i/10 :a(gi,1)=a(gi,1)+50000P:1110V :"Ti mancano ` ";aa;"." s=0:4,0:a=111 :b(a)=gia+2:a$,b:s=s+b/100d*60<:(a+96`);")";a$,"`.";b/100d*60< a:s"k"5025 kb((a$)-96`)=0:2+(a$)-96`:a$,a:a(gi,1)=a(gi,1)+a/100d*60< #a(gi,1)<05000  1120` p:2650Z z0,0;"Asta non valida (XXXX): `.";a/100d*20:"Asta valida:","Al 60%: `.";a/100d*60<'',"All'80%: `.";a/100d*80P'',"Al 100%: `.";a'',"Al 120%: `.";a/100d*120x'',"Al 140%: `.";a/100d*140 G10 ,0;"Denaro: `. ";10 ,10 ;a(gi,1) K#0;0,0;"Tenti l'asta?":2810 :a$"s"1110V +#0;0,0;" " Eu=120:xx=(*12 ):6100+xx:.1}L,xx:u xx<71,-502:a(gi,1)=a(gi,1)-a/100d*20:a(b(d-2),1)=a(b(d-2),1)+a/100d*20 xx7a(gi,1)=a(gi,1)-a/100d*x:a(b(d-2),1)=a(b(d-2),1)+a/100d*x:1,502:b(d-2)=gi:1110V 0a(gi,1)a/100d*206020 15,5;"XXXX": (x=60<:15,5;" 60%": (x=80P:15,5;" 80%": )x=100d:15,5;"100%": )x=120x:15,5;"120%": )x=140:15,5;"140%": Xa(gi,13 )0 ]_#0;0,0;"Entri nel percorso produzione: po nel percorso distribuzione: d?" b!a$=:a$"p"a$"d"7010b d 9997 ' g"a$="p"a(gi,13 )=1: la(gi,13 )=2: Lpe=3:8000@:#0;0,0;"Quante unita' vuoi a `. ";i;:b(d-2)0#0;1,0;"di cui `. ";ii;" a ";("te, "b(d-2)=gi);b$(b(d-2)); V#0;" ?":2800 `.u=a(gi,1):b(d-2)=giu=u+ii*a$ euu19a(i,12 )<288600! !>$a(i,12 )>278550f! !CBv=1:u=6+2*(a(i,12 )-9 ):8610! !f/a(i,13 )=2v=21:8555k! !h v=18 !k8u=6+2*(38&-a(i,12 )):8610! !gu=2+(27a(i,12 )>19):v=24-(3*a(i,12 )a(i,12 )<9 ) !0v=24v=3*(a(i,12 )-20) !i=givv=v:uu=u !&a(i,14)=1a:8613! !J.15~,20:v,u;0;6;1;(143+x(i)):i !Avv,uu;1;6;1;1;(143+x(gi)): "`\9997 ':#0;0,0;"Vuoi salvare la partita in corsosu cassetta? (s/n)" "e!a$=:a$"s"a$"n"8805e" "f a$"s" "gZz(ng,15):a=1ng:s=114:z(a,s)=a(a,s):s:a:z(ng,15)=gi "h)c=13 +ng*23:z$(1,c):q=1:a=111 :q=q+1:z$(1,a)=b(a):a:z$(1,q)=fa:q=q+1:z$(1,q)=ng:a=1ng:q=q+1:z$(1,q)=x(a):a:q=q+1:a=1ng:s=18:z$(1,q)=b$(a,s):q=q+1:s:a "k!"MANAGER"z$():"MANAGER"z() "lT#0;0,0;"Premi ""v"" per verify o un altro tasto per continuare" "m0:a$=:a$"v" "o""z$():""z(): #(:9100# #2$"S I T U A Z I O N E F I N A L E" #7a=1ng #9?u=0:c=111 :b(c)=ac+2:c$,d:u=u+d #:c #