goldmine  n="a""o"+7:a:n,a:n 6:6:0: E9 ,2;"Quanti giocatori? (1 o 2)":a$=:a$=""10 a$<"1"a$>"2"10 p=a$:nop=p (Sa(2,6):c(2,5):a$(p,8):r(2):er=10000' 2r(1)=0:r(2)=0:a(1,1)=2000000t$:a(1,2)=2000000t$:a(2,1)=2000000t$:a(2,2)=2000000t$:a(1,3)=0:a(2,3)=0:a(1,4)=100000CP:a(2,4)=100000CP:a(1,5)=0:a(2,5)=0:a(1,6)=0:a(2,6)=0: F6n=1p:"Nome del giocatore ";(n);"?",a$(n):n #n=130:m=1nop 7:7:0: F6;n:1;6;0,6;" G O L D M I N E " >'16;a$(1);:nop=224;a$(2); Y'"RISORSE $";15;a(1,1);:nop=224;a(2,1) ['"IN DENARO $";15;a(1,2);:nop=224;a(2,2); Z'"IN ORO kg";15;a(1,3);:nop=224;a(2,3); ]'"COSTO MINIERE $";15;a(1,4);:nop=224;a(2,4) ]'"NUMERO MINIERE";15;a(1,5);:nop=224;a(2,5); ^'"PROFONDITA' m";15;a(1,6);:nop=224;a(2,6); ,L''4;0;"Tasso di scambio corrente:-":"$";er;" per kg di oro" '4;0;">-";a$(m) /2;7;"1";:"-Ricerca e sviluppo" 42;7;"2";:"-Esplorazione e rapporto" 72;7;"3";:"-Aumento prof. di 200 metri" 22;7;"4";:"-Cambio oro in dollari" "2;7;"5";:"-Passo" &1:1;1;6;"Immettere scelta" Xi$=:i$=""600X bi$<"1"i$>"5"600X li$*1000 "a(m,2)<07000X !er=er+(*1000)-200 1(*1600@)-a(m,3)<0900 +a(m,1)=a(m,2)+a(m,3)*er 7:0:7: m  n *5:5:0: 4<1;7;2;6,10 ;" GAME OVER " >N'5;"Risorse totali di ";a$(1):11 ;"$";a(1,1) H[nop=2'5;"Risorse totali di ";a$(2):11 ;"$";a(2,1) RF''2;6;1;2;"Premi un tasto per giocare " \""860\ f=""870f p 2:6:2: >jk=(*100d)+502:jk>a(m,3)jk=a(m,3) ?6;1;1;9 ,8;" F U R T O " s:7;" Sono stati rubati "'jk;" kg d'oro":a(m,3)=a(m,3)-jk:a(m,1)=a(m,1)-jk*er ?x=135#:.05|L,40(:.05|L,20:x 7:7:0:: 6:6:0: f1;6;3,4;" RICERCA E SVILUPPO ";4,4;"(per diminuire i costi)" A7,6;"Quanto intendi";5;"investire? ($)":rd 3a(m,4)=a(m,4)-(rd*.05|L)-1 $,a(m,4)<0a(m,4)=0 8<a(m,2)=a(m,2)-rd:a(m,1)=a(m,2)-rd Lh13 ,3;"Il costo degli scavi";3;"e'ridotto di $";(rd*.05|L)+1;" per 200m" Vz=1300,:z ` 4:4:0: r(m)=0:c(m,1)=(*90Z)+10 :c(m,2)=((*5)+2)*200:c(m,3)=(*200)+1:ll=(*3)-1 (c(m,4)=c(m,2)+ll*200 Pc(m,5)=0:kk=(*100d):kk>1;12 ,0;"Vuoi eseguire degli scavi (s/n)" Hr$=:r$=""2120H R8r$="s"a(m,6)=0:r(m)=1:3000  6:6:1: rr(m)=01;9 ,2;"Non hai ancora esplorato!":z=110 :.3,-10 :z: 5:0:4: X5;14;"";14;"";14;"";14;"";31;" " z=132 :"";:z H4,0;:z=100d1400x100d:4-z;z:z a(m,2)=a(m,2)-a(m,4):a(m,1)=a(m,1)-a(m,4):a(m,6)=a(m,6)+200:30 3,15;"":f=4(a(m,6)/100d)+3:f,15;"":w=110 :.01z# =,-20:w:f 0<a(m,6)=c(m,4)c(m,5)=13500 :1;5;6,8;"Ancora niente oro!":a(m,6)=c(m,2)+2001;1;6;18,0;"Questa miniera non contiene oro.Prova con un'altra.":z=110 :.5,-20:z:a(m,6)=0:r(m)=0 D 150  g6;2;1;f,12 ;"O R O":z=-20502:.017{ C,2:z:75K ަa(m,5)=a(m,5)+1:a(m,3)=a(m,3)+c(m,3):a(m,1)=a(m,1)+a(m,3)*er:a(m,6)=0:r(m)=0:3300 6:1:6: 1;2,7;" AGENZIA DI CAMBIO ":6,0;"L'attuale tasso di scambio e'-";8,5;"1 kg di oro = $";er;12 ,2;"Quanti kg vuoi cambiare":nte Inte>a(m,3)1;16,0;"Non hai cosi' tanto oro!"  nte=nte *nte>a(m,3)nte<04020 %16,0;" ";31;" " ga(m,3)=a(m,3)-nte:a(m,2)=a(m,2)+(nte*er):a(m,1)=a(m,1)+(nte*er) "I5;16,1;nte;" kg cambiati per $";nte*er:170:  X5:0:5: b~9 ,12 ;a$(m):10 ,8;"ha fatto bancarotta!":1;20,1;" Premi un tasto per giocare " v0:5 @255,85U,170,0,0,0,0,0,62>,28,568,126~,28,62>,120x,28 J255,255,62>,126~,127,60<,124|,126~,0,0,0,0,1,1,1,1 T7,29,491,45-,255,255,91[,126~,128,96`,480,80P,152,250,252,138 ^1,1,1,491,491,491,255,122z,187,62>,95_,153,255,153,126~ h209,177,224,128,128,128,128,128,0,0,128,128,64@,32 ,32 ,16 r1,3,7,7,4,4,7,7,255,255,255,255,149,149,149,159,159 |24,126~,153,255,126~,153,126~,219,128,192,224,240,248,168,248,255 G16,8,8,4,14,31,31,255 e