MV - CPCEMU Disk-File Disk-Info ZX-Modules(Track-Info  R ( *RTrack-Info  R DISK MICRO 7 22  AA r AB * AC V!"#$%&'()*+AD 0 ,BA -BA 0 .BB /0BB 0 1BC P23456789:;BD )<=>?@ABE BBE 0 CBF DBF 0 EFPLUS3DOS@ @DISKEADO POR MADFOX "MICRO"  300, "22" PLUS3DOS@UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUTrack-Info  R UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU@|#A |paqx:|x>0q8 ?*WTmTŒ' PIUU@x<#A paqx88@"?A -TOmQjTZJR6UI%@@' UJ ?@x<#ap8 0paq8 @>A /ȟ' !UU@??@8<>xp_9܅۪UUUUUUUUUU 0ꪪUUUUUUv0 `8UUUUUUUUժUUUUUUUUUUUUUU `8UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU `8UUUUUUUUժUUUUUUUUUUUUUU0 `UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU0UUUUUUUUժUUUUUUUUUUUUUU0UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU0 `UUUUUUUUUUUUUժUUUUUUUUU0 `UUUUUUUUUUUUUUUUUUUTrack-Info  R UUUUUUUUUUUUUUUUUUUUUUUUUUUUU88888888888888888888877777778888888888888888888888887777777788888888888888888887778888888888888888888888887777888888888888888888866666778888888888888888888888666666688888888888888888888888888666688888888888888888888888888888888888888888888888888888:8:88888888888888888=88r>=8888888888888888888:8>>>7ppp7::::::W:::::::::::Wp0p00VWWWW888888888888888888>p0007>>>88888888888888888888888>7>>888888888888888888888 888888888886888888888 88888888886668888888888888888888888888888866688888558888888888888888888866688665555888888888888888866688668855588888888887778866;;6666;;;55;;;8888888778888866;;6666555555;;88888887778888PLUS3DOSdCINTA 22 (REVISTAS 85 a 88) n4:0:7: x5000:6000p 8,10 ;"A - CARA A" 9 ,10 ;"B - CARA B" A$= A$=""150 A$="A"A$="a"500 A$="B"A$="b"1000 100d --- MENU CARA A --- :5000:6000p 4,12 ;"CARA A" 7,8;"A-Black" 8,8;"B-Funcion" &9 ,8;"C-Quasar" 0 10 ,8;"D-Bibli XI" !15,11 ;"1 - VOLVER" B$= B$=""680 B$="A"B$="a""AA" B$="B"B$="b""AB" B$="C"B$="c""AC" B$="D"B$="d""AD" HB$="1"100d R 500 --- MENU CARA B --- :5000:6000p 4,12 ;"CARA B" 7,8;"A-Grafic" !8,8;"B-3Dimension" 9 ,8;"C-Oroset" $10 ,8;"D-Gatos" .11 ,8;"E-Dvorak" 812 ,8;"F-VIDA" !15,11 ;"1 - VOLVER" B$= B$=""1180 B$="A"B$="a""BA" B$="B"B$="b""BB" B$="C"B$="c""BC" B$="D"B$="d""BD" B$="E"B$="e""BE" B$="F"B$="f""BF" <B$="1"100d F 1000 --- CABECERA --- 51:0,4;"CINTAS MICRO N. 22" -2:0,16;"HOBBY":0 C3:1,6;"DISKEADO POR MADFOX":0:0 #3,8;"REVISTAS 85-88"  p--- PIE DE PANTALLA --- z?1:20,0;" J, siempre... ILM " ?21,0;" ELIGE UNA OPCION ":0  PLUS3DOS85858@BLACKJACK version 2  J.Ximenez de Embun R. 1985 A::j=114:a$:z=07:x:a$+z,x:z:j O"a",0,108l,254,254,124|,568,16,0 O"b",0,16,568,124|,254,124|,568,16 P"c",0,16,568,124|,254,254,214,16 O"d",0,568,568,16,214,254,214,16 K"e",0,0,0,0,0,108l,254,254 I"f",0,0,0,0,0,16,568,124| I"g",0,0,0,0,0,16,568,124| H"h",0,0,0,0,0,568,568,16 I"i",124|,568,16,0,0,0,0,0 K"j",254,124|,568,16,0,0,0,0 L"k",254,254,214,16,0,0,0,0 L"l",214,254,214,16,0,0,0,0 M"m",76L,82R,82R,82R,82R,82R,82R,76L O"n",129,66B,60<,36$,36$,60<,66B,129  8000@ #Bsaldo=0:nj=1:c$=" " (6c(3):x(4,15):z(2,15) ):#0Track-Info  R ;c$: -P4:6;0;0,0;"*BLACKJACK* SALDO= " 2@6;0;0,13 ;nj;0,25;saldo 7pi=121:0;4;i,0;" ";6;i,21;" ":i 2070F A6;0;1;10 ,7;"UN MOMENTO";12 ,4;"ESTOY BARAJANDO":bar=104h:b(104h):100d BV4;0;10 ,7;" ";12 ,4;" " F?.2~L,16:.2~L,8:"Apuesta $ (2-100) ?";ap K#ap<2ap>100d70F Pbnj=nj+1:6;0;2,21;"Juego: ";nj;4,21;"Apuesta:";ap Q 390 Um1=1:7500L:z(1,1)=ca:7300:z(2,1)=fa:7500L:z(1,2)=ca:7300:z(2,2)=fa Zqdx1=15:dy1=160:cay=2:cay2=6:cax=2:7090:p$="":7240H:7092 _'c(m1)=7:7520`:7000X dtin=0:m1=2:7500L:7520`:c(m1)=1:7000X:x(1,1)=ca:7300:x(3,1)=fa:tin=tinta ix7500L:7520`:c(m1)=2:7000X:x(1,2)=ca:7300:x(3,2)=fa:tin=tinta nap1=ap:ap2=0:dob=0:jug=0:bc1=0:bc2=0:bco=0:apd1=0:apd2=0:asg1=0:asg2=0 o'c$=" " sKx(3+jug,1)=1x(3+jug,2)>9 5000 xKx(3+jug,2)=1x(3+jug,1)>9 5000 |Ig$="n":(dob=0x(3,1)=x(3,2))140 }.1}L,8:.3,15:6;0;1;17,22;"D= DESDO";18,22;" BLARSE ":0:g$= ~j6;0;17,22;" ";18,22;" ":g$="D"g$="d"5100 m1=2+jug (7350:dob=0c(m1)=2 7g$="n":(p=9 p=10 p=11 )165 .1}L,8:.3,15:6;0;1;17,21;" K= DOBLAR ";18,21;" LA APUESTA":0:g$=:6;0;17,21;" ";18,21;" " g$="k"g$="K"5200P *(z(2,2)=1)200 .1}L,8:.3,15:6;0;1;17,21;"A= ASEGURAR";18,21;" EL AS ":0:g$=:6;0;17,21;" ";18,21;" " g$="a"g$="A"850R .2~L,7:6;0;1;17,21;"C= CARTA ";18,21;"P=PLANTARSE":0:g$=:6;0;17,21;" ";18,21;" " g$="c"g$="C"2000 g$="p"g$="P"1000 200 ,sonido ganador 1.1}L,14:.1}L,12 :.4L,11 :.1}L,11 :.1}L,11 :.1}L,9 :.1}L,11 :.4L,12 :.3,11 : 6 ^sonido de pasarse c?.8L,-10 :.8L,-15:.8L,-20:: ~6;0;2,0;"B";3,0;"A";4,0;"N";5,0;"C";6,0;"A":  el jugador se pasa %G7;0;1;(14+7*jug),12 ;"SE PASA" * 355c / 1000 Rasegura el as \e7;0;(9 +7*jug),14;"AS";(10 +7*jug),11 ;"ASEGURADO" jug=0asg1=1 jug=1asg2=1 eljugador se planta  jug=1pp2=p:1500  pp1=p:dob=01500 Q6;0;11 ,0;"1";1;1;18,0;"2" jug=1:m1=3  2000 juega la banca 6dob=16;0;18,0;"2" 1:790:0 Wm1=1:c(m1)=1:ca=z(1,1):7520`:tin=0:7000X A1:0:63?,160:480,0:0 =i=27:4;0;i,8;" ":i Ic(m1)=2:tin=tinta:ca=z(1,2):7520`:7000X $7350:p=211600@ dob=11555  &pp1>21bc1=11700  1556 y(pp1>21pp2>21)(bc1=1bc2Track-Info  R =1)(pp1>21bc2=1)(bc1=1pp2>21)1700 dob=11559 p21p>pp11700  1564 $p21ppp1p=pp21700 p>211685 p171700 " c(m1)=c(m1)+1:tin=tinta 'B7500L:7520`:z(1,c(m1))=ca:z(2,c(m1))=fa ,$7000X:7350:1556 @la banca tiene blackjack E bco=1 J:7;0;1;4,11 ;"BLACKJACK" O 300, T 1700 la banca se pasa 87;0;1;4,12 ;"SE PASA"  350^ la banca se planta ppo=p:790 evaluacion del juego s1=0:s2=0 .bco=1bc1=1s1=-ap1:1770 fbc1=1pp1>21s1=ap1*(((bc1=1)(bco=1))*2-(pp1>21)):1775 "ppo>21s1=ap1:1770 s1=ap1*((pp1>ppo)-(pp121s2=ap2*(((bc2=1)(bco=1))*2-(pp2>21)):1800 "ppo>21s2=ap2:1790 s2=ap2*((pp2>ppo)-(pp221800  &jug=0apd1=11000 &jug=1apd2=11000 &dob=1c(m1)=2115s  200 jugador con blackjack &7350:jug=0bc1=1 jug=1bc2=1 I7;0;1;(11 +7*jug),11 ;"BLACKJACK"  300,  1000  se desdobla tin=0:ap2=ap:dob=1:x(2,1)=x(1,2):x(1,2)=0:x(4,1)=x(3,2):x(3,2)=0 v1:0:15,104h:480,0:0:4:i=9 14:i,2;" ":i Jca=x(1,1):m1=2:c(m1)=1:7520`:7000X Jca=x(2,1):m1=3:c(m1)=1:7520`:7000X Q6;0;18,0;"2";1;1;11 ,0;"1"  2000 Pdobla la apuesta U+jug=0ap1=2*ap:apd1=1 V+jug=1ap2=2*ap:apd2=1 Zg7;0;(12 +7*jug),12 ;"APUESTA";(13 +7*jug),13 ;"DOBLE" _ 2000 Xdibujo de las cartas ]?0:dx1=8*c(m1)+7:dy1=216-568*m1 b5cax=2+(m1-1)*7:cay=c(m1)+1 qcay2=cay+4 v7090:7092 (tinta;cax,cay;f$;cax+1,cay;p$ 7100+fa*10 Xtinta;cax+2,cay+2;(p$+4);cax+3,cay+2;(p$+8)  @tinta;cax+1,cay+2;p$;cax+4,cay+2;p$  @tinta;cax+1,cay+1;p$;cax+4,cay+1;p$ @tinta;cax+1,cay+3;p$;cax+4,cay+3;p$  Xtinta;cax+2,cay+1;(p$+4);cax+3,cay+1;(p$+8) Xtinta;cax+2,cay+3;(p$+4);cax+3,cay+3;(p$+8)  $tinta;cax+2,cay+2;p$  $tinta;cax+3,cay+2;p$  xtinta;cax+1,cay+1;p$;cax+2,cay+1;p$;cax+3,cay+1;p$;cax+4,cay+1;p$ xtinta;cax+1,cay+3;p$;cax+2,cay+3;p$;cax+3,cay+3;p$;cax+4,cay+3;p$  <7:i=05:j=caycay2:Track-Info  R cax+i,j;" ":j:i  0:dx1,dy1:40(,0:0,-480:-40(,0:0,8:tin2:0,24:tin:0,16  as  7055  dos  7060  tres 7060:7055  cuatro  7065  cinco 7065:7055  seis 7065:7070  siete $7065:7070:7075   ocho  07065:7070:7075:7077  nueve 7080:7055   diez !$7080:7075:7077 " *J +Btinta;cax+3,cay+1;"";cax+4,cay+1;"" ,%tinta;cax+4,cay+2;"" -|tinta;cax+1,cay+3;"";cax+2,cay+3;"";cax+3,cay+3;"";cax+4,cay+3;"" . 4Q 5|tinta;cax+1,cay+1;"";cax+2,cay+1;"";cax+3,cay+1;"";cax+4,cay+1;"" 6_tinta;cax+1,cay+2;"";cax+3,cay+2;"";cax+4,cay+2;"" 7|tinta;cax+1,cay+3;"";cax+2,cay+3;"";cax+3,cay+3;"";cax+4,cay+3;"" 8 >K ?|tinta;cax+1,cay+1;"";cax+2,cay+1;"";cax+3,cay+1;"";cax+4,cay+1;"" @Btinta;cax+2,cay+2;"";cax+3,cay+2;"" A_tinta;cax+1,cay+3;"";cax+3,cay+3;"";cax+4,cay+3;"" B H6i=042:j=042 I0;cax+i,cay+j;p$ Jj:i K6i=152:j=142 L0;cax+i,cay+j;p$ Mj:i N valor facial fa=ca fa13 fa=fa-13 :7310 calculo del puntaje p=0:as=0 i=115 Tpunt=(m1=1)*z(2,i)+(m1=2)*x(3,i)+(m1=3)*x(4,i) punt>10 punt=10 punt=1as=1  p=p+punt i %p11 as=1p=p+10  Lsacar una carta de la baraja Qca=1+(*104h) Vb(ca)<07505Q [!b(ca)=-1:bar=bar-1 \ `identificar carta e+tinta=0:ca524tinta=2 j/ca26p$="":palo=1:7540t k;ca524ca>26p$="":palo=2:7540t l;ca78Nca>524p$="":palo=3:7540t m#ca>78Np$="":palo=4 tPf1=ca-(palo-1)*26:fa=f1*(f113 )+(f1-13 )*(f1>13 ) y"fa>1fa<10 f$=fa: zfa=13 f$="K": {fa=12 f$="Q": |fa=11 f$="J": }fa=10 f$="": ~fa=1f$="A": H;1;13 ,2;"PULSAR TECLA, PARA CONTINUAR ":0: @4:4:7: J[10 ,9 ;1;1;6;0;"PARAR LA CINTA":3,3: OQtinta=0:7:dy1=160:cax=2:b(104h):bar=104h Tl=19 YZdx1=(l*24-9 ):cay=(3*l-1):cay2=cay+4:tin=tinta:tin2=tin ^07500L:7520`:7090:7092 c(tinta;2,cay;f$;3,cay;p$ h7100+fa*10 i>.02{# =,(2*l-2):.2~L,(16-2*l) ml wE4;6;19,2;"" |E4;6;20,2;"" E4;6;21,2;"" T6;0;10 ,10 ;"MICROHOBBY";16,20;" JXER 1985" #300,:7900::35# Track-Info  R PLUS3DOSVV7FUNCION PAR-IMPAR >p(x)=(x=x)*((2*(x/2)-x+1e-6m7)) 1 FUNCION ELEVAR A UN ENTERO 2}z(xz)=x,z=x^z)=x^z*(((z=z)(x0))+1)*((2*(z/2)-z+1e-20><d)*(x<0)+(x0)) EFUNCION RAIZ ENE-ESIMA Fr(xn)=x,n=x^n)=x^(1/n)*(((n=n)(x0))+1)*((-(2*(n/2)-n+1e-20><d))^1*-(x<0)+(x0)) Y#FUNCION ELEVAR A UNA FRACCION Z*q(xa,b)x,ab)=a,b=r(b)=r(e(x,a),b) mFUNCION ELEVAR A UN REAL nKe(x,r)=x^r*((x0)+(x<0)*k(p(r),p(1/r))) oPk(pq)=(p,q=(p=q)=(p=1)-(p1)+(1-(p=0)*(q-1)) #FUNCION MAXIMO DE DOS NUMEROS )m(xy)=(x,y=(x+y)=(x+y+(x-y))/2 #FUNCION MINIMO DE DOS NUMEROS )n(xy)=(x,y=(x+y)=(x+y-(x-y))/2 "FUNCION LOGARITMO EN BASE a. l(xa)=x,a=x/a)=x/a FUNCION SENO HIPERBOLICO s(x=(xx)=(x-(-x))/2  FUNCION COSENO HIPERBOLICO c(x=(xx)=(x+(-x))/2  "FUNCION TANGENTE HIPERBOLICO :h(x=((x)=((2*x)-1)/((2*x)+1) +&FUNCION EXPONENENTE DE UN NUMERO ,x(xR+k)=((x)/10 ) ?"FUNCION MANTISA DE UN NUMERO @t(xR+k)=x/10 ^x(x) HFUNCION FIX I.HAY QUE DEFINIR LA VARIABLE fix J4g(x=(xx)=(x*10 ^fix+.5)/10 ^fix RECTANGULAR A POLAR ia(1)a(1)=a(2):a(2)=a(1)*/2:a(1)=a(1):430 Va(2)=(a(2)/a(1))+(a(2)+a(2))*(a(1)<0)* #a(1)=a(1)/a(2)  POLAR A RECTANGULAR Póa(2)a(2)=a(1)*a(2):a(1)=0:530 #a(1)=a(1)*a(2) #a(2)=a(1)*a(2)  WRADIANES A GRADOS Xy(x=x*1x)=x*180/ GRADOS A RADIANES z(x=x*x)=x*/180 FRACICION IRREDUCIBLE nu2=den:nu1=num num1=nu1:num2=nu2 num21)+(num21) nume=num/mcd deno=den/mcd 0num1=(nu2/mcd):num2=-(nu2*nu1)*(nu1/mcd): VFRACCIONES W+LA FRACCION ES a(1)/a(2) Xn7140:a(2)=1a(1)*a(2);:len=8*(a(1)*a(2)):7130 ]X(("-")a(1)*a(2)<0);:a(1)=a(1):a(2)=a(2) b"a1=a(1):a2=a(2) llen=a1+(a2-a1)*(a2>a1) vc$(len):b$(len) Hc$(len-a1+1len)=a(1):b$(len-a2+1len)=a(2) #p2=-21+8*23689\ l=0len-1 6p1=(33!-23688\)*8+1+6*l p1,p2:6,0 La2len-la3=b$(l+1):f(p1+1-3*(len-a2),p2-7,a3) La1len-la4=c$(l+1):f(p1+1-3*(len-a1),p2+1,a4) l Gl=1̺((-1+6*len)/8)+1:1;" ";:l  Pa1=(a(1)ƽa(1)Ƚa(2))+(a(2)ƽa(2)>a(1)) a2=a(1)+a(2)-a1 a2 rr=a1-a2*(a1/a2)  Brr=0a(1)=a(1)/a2:a(2)=a(2)/a2: a1=a2:a2=rr:7170 >NUMERITOS ? (64999) @ 8050r J&i=65000650775:a:i,a:i T&i=65400x65431:a:i,a:i ^Yi=65480655274:j=02:a:i+j,a:j:i+3,0:i r205,148,30,245,205,153,30,197,205,153,30,197,225,209,123{,198,5,95_,241,229,38&,255,203 |39',203,39',198,200,111o,78N,44,,86V,44,,70F,225,96`,121y,205,120x,255,205,120x,255,122z,205,120x (255,205,120x,255,124|,205,120x,255,125},198,5,6,0,79O,205,43+,45-,1,0,0,205,43+,45-,1,1,0,197,205,43+,45-,1Track-Info  R 93,201 06,4,197,203,127,40(,11 ,67C,77M,245,213,229,205,223,34",225,209,241,44,,203,7,193,16,234,79O,125},214,4,111o,121y,29,201 R105i,153,96`,38&,34",32 ,105i,36$,240,105i,41),96`,38&,111o,32 ,248,225,224,104h,233,96`,241,36$,64@,105i,105i,96`,105i,113q,96`,0,0,32 ,0,112p,0 /f(x,y,n)=x+y*n^65000  PLUS3DOS*G*G*LASIGNACION DE VALORES y=0:x=0 \preco=(*1005):prebe=(*1105Q):preac=(*1605E):preso=(*2005) #dinero=12000.:ganan=0 PRESENTACION  %n=069E:.003xD,n:n 0:1:4: (+n=021:"COMERCIANTE 2010":n -v8,18;5;2;"LA AVENTURA";11 ,19;5;2;"DEL SIGLO" /Q#1;9 ;1;1;1;"  Francisco Calle Carrascosa " 2/n=069E:.01z# =,n:n:200 <)2:2:5::9900& F.9000(#:200:8999'#:350^ P:9000(#:8900" Z4n=0502:n:0:0:4: d710 ,5;9 ;"Has llegado a Quasar.";12 ,0;9 ;" Este es un planeta de comer- ciantes, al igual que tu.":9 ;'" Debes de comprar lo que tu creas que te va a ser util para comerciar con los planetas que vas a visitar.":9 ;'';"Comienza tu mision. Suerte chico" e3n=010 :1,0:n:500 f)8800`":1:2:9 : g9000(#:p=18:n=180-1:n=14n=12 n=10 n=8n=6n=4n=2n=0p=p+1 h,n,p;"":.1}L,10 :n,p;" ":n i100d::10 ,0;" Has despegado de Quasar,te diriges a mundos desconocidos.":''" Solo te puedes guiar por tu sed de comerciante intrepido." j+ganan=rest:300,:0:0: k`10 ,0;"Viajas durante varios aos luz.":p=0100d:.01z# =,0:p l'''0;7;1;" Por fin avistas un planeta. Te acercas a el. ":p=010 :1,0:1:0.01z# =,30:p::9000(# m#8900":100d:8840" n17,7;"DATOS PLANETA:";18,7;"Esta en guerra":200:18,7;"Necesita alimentos":200 o17,7;"Tu dispones de:";18,7;" ";18,7;"Comi: ";a;" Bebi: ";b:200 pE17,7;0;7;"Obten buen precio!":200 q78845":p=0100d:p:1,-15 r98853":p=0200:p:.09}8Q,0: s12 ,0;"TRAS LA VENTA DE TUS MERCANCIAS,PARTES CON RUMBO A OTRO PLANETA.":p=0250:p::0,0:110n,75K t250,0:-110n,75K:0,175:110n,-75K:250,175:-110n,-75K:250/2,176/2,15 v12 ,0;"Has traspasado los limites de loconocido, compruebas tu posicionen el mapa interestelar de que dispones, eliges un planeta y te desvias hacia el.":0,0;1;" * * ** * * Track-Info  R         () * * ----------* * () * * * ()*@ * * * * * * * * * ** * * () * * * * * * * * * * * * ** *()* * * *** * * * * * * () *@ * * * * () ** *" wm3,11 ;1;"()";4,11 ;1;1;"^^":p=0500:p:400 x:0,0;" ";1,0;" ";2,0;" ";3,0;"";4,0;" " y5,0;" ";6,0;" ";7,0;" ";8,0;" ";9 ,0;" ";10 ,0;" " z0,7;"Hola humano.":100d:0,7;" ":0,7;"Necesito de";1,7;"tu aceite.":200 {Q0,7;"Cuanto pides ?. ";1,7;" ":ofac |ofac<1.5@*preac0,7;"Me lo quedo!!!!!!!!";1,7;" ":ganan=ganan+ofac*c:200:126~ }^0,7;"Demasiado caro.";1,7;"Prueba de nuevo.":300,:123{ ~0:0:9 : 12 ,0;"Contento con tus nuevos ingresoste diriges a tu nave.";14,0;"Tras librarte de la resaca de brotes; inicias de nuevo el vuelo.":500 :p=06000p20:0,0;"Altura:";p;0,12 ;" metros":p:12 ,0;"Te encuentras a unas doscientas rayas de SER, la ciudad de los traficantes de soporiferos.";15,0;"Examinas tu carga y te diriges hacia alli." 6p=0250:.01z# =,0:p::9 E(*100d)<70F132:d=0132:d=0 o9 ,0;9 ;"La policia galactica te persiguedesde hace rato. Sospechan de tiy te abordan." :p=0250:.01z# =,0:p:'"Te han encontrado la carga en elcompartimento secreto. Se apoderan de ella y te detie- nen acusado de trafico de sopo- riferos.":20,0;1;"SE TE ACABO LA AVENTURA ESPACIAL":9992' wp=0500:p::12 ,0;"Por fin alunizas en SER. Debes de buscar compradores.":300,  :12 ,0;"Te encuentras con unos tipos muyextraos.":300,:12 ,0;"Se te acercan y comienzan a ha- blar contigo." c500::12 ,0;"Te valen 1000 por un soporifero colega?.":="s"Ŧ="S"139 k="n"Ŧ="N"20,0;"Pues tu te lo pierdes tio.":d=0:p=0500:p:139 $"s"Ʀ"S"Ʀ"N"Ʀ"n"135 20,0;" ":ganan=ganan+1000*d:20,0;"Hasta otra, trafi.":300, O:12 ,0;"Por fin vuelves a casa, despues de realizar tus ventas." %p=0500:p:100d: 2:3:6: :10 ,0;"Tus ganancias por ventas son:":ganan ='"Menos el dinero que gastaste en comprarlas:";ganan-dinero &''"Tu beneficio es de:";ganan-dinero _ganan1.5@*dinero"No se como explicarte que lo tu-yo es el comercio.":9992' $'"Intentalo de nuevo.":9992' "_ "`:3;" ":2;7;" OFERTAS DEL DIA ":3;" " "j''':23617A\,0 "k!10 ;"Comida= ";preco "l"'10 ;"Bebida= ";prebe "m"'10 ;"Aceite= ";preac "n"'10 ;"Soporiferos= ";preso "oB'';"Elige lo que necesites:":20,0;"Tienes ";dinero "pH8,8;"}":"Comida= ";a:dinero-a*preco<08816p" "q7rest=dinero-(a*preco):20,7;rest;" " "r[8,8;a:10 ,8;"}":"Bebida= ";b:rest-b*prebe<08818r" "t6rest=rest-(b*prebe):20,7;rest;" " "u\10 ,8;b:12 ,8;"}":"Aceite= ";c:rest-c*preac<08821u" "vrestTrack-Info  R         =rest-(c*preac) "z!20,7;rest;" " "{a12 ,8;c:14,8;"}":"Soporiferos= ";d:rest-d*preso<08827{" "|3rest=rest-d*preso:20,7;rest;" " "}-14,8;d:n=0200:n "~: "c:502,502:150,0:0,100d:-150,0:0,-100d "r0,0:502,502:250,0:-502,502:0,175:502,-25 "*250,175:-502,-25 "_502,20:150,0:0,20:-150,0:0,-20 " "\4,7;"OFERTAS DE VENTA:":6,7;"Por comida:":ofco=(*2000) "F8,7;"Vale ";ofco;"?":="s"Ŧ="S"ganan=ganan+a*ofco: "`="n"Ŧ="N"ofco=ofco+((*1000)):8,7;"Mejor: ";ofco;"? ":8850" "%"s"Ŧ"S"Ŧ"n"Ŧ"N"8847" ";n=0100d:n:="s"Ŧ="S"ganan=ganan+a*ofco: "6="n"Ŧ="N"8,7;"Pues no hay compra": "%"s"Ŧ"S"Ŧ"n"Ŧ"N"8850" "\4,7;"OFERTAS DE VENTA:":6,7;"Por bebida:":ofbe=(*2000) "M8,7;"Vale ";ofbe;" ? ":="s"Ŧ="S"ganan=ganan+b*ofbe: "\="n"Ŧ="N"ofbe=ofbe+((*1000)):8,7;"Mejor: ";ofbe;" ?":8857" "%"s"Ʀ"S"Ʀ"n"Ʀ"N"8854" ";n=0100d:n:="s"Ŧ="S"ganan=ganan+b*ofbe: "7="n"Ŧ="N"8,7;"Demasiado caro. ": "%"s"Ʀ"S"Ʀ"n"Ʀ"N"8857" "4y,x;"":="5"x1y,x;" ":x=x-1 "z="8"x29y,x;" ":x=x+1:x>19:12 ,0;" TE PASASTES, HAS PERECIDO. ":9991' "*="6"y18y,x;" ":y=y+1 ")="7"y1y,x;" ":y=y-1 "7="0"(y=18x=18)x=0:y=0: "I18,18;0;" ":152,23:0,-23 "+.001wn,69E:.001wn,-12 " 8900" #':12 ,0;"Dirige tu nave con los cursores hasta aterrizar en el espacio- puerto.":''"Con ""0"" finalizas el alunizaje": #(1n=0314:20,n;"/\":n #2621,0;"--++++++--++-- " #7$0,0:250,0 #<7n=2075K:(*250),(*150):n #FI18,18;0;" ":152,23:0,-23 & &$n=039':g:"a"+n,g:n &01111111,11111111,11000001,01000001A,01111111,11111111,11111111,00001000 &10000000,11100000,11111000,11011110,11011110,11111000,11100000,10000000 &ʁ01111111,01111111,01111111,01110011s,01110011s,01111111,01111111,01111111 &ԁ11111110,11111110,11111110,11111110,11111110,11110010,11110010,11110010 &ށ01111100|,00000000,01111000x,01000100D,01000100D,01000100D,01000100D,00000000 ' ':p=0100d:q=07:2:q:q:p ' PLUS3DOS[@ * \~7!%1V>G !7RR"W>!L72v!@>7Microhobby[Track-Info  R         PLUS3DOSdd%*65499:"BA.0"65500,40( Basic !a(a,b)=65500  PLUS3DOS(* \~O~ Gͪ"G>wBBBBB<PLUS3DOSv 64499:"BB.0" 4:6:2: 10,0;"Coordenadas. X= ";x;" Y= ";y 64732,x (;0,0;"Es texto (s/n) ";a$:a$="s"100d 2T0,0;"Ampliacion en 3D (2 a 126)= ";d:d<2d>126~557 <<64756,d:0,0;"Direc. de la figura= ";df F/0,0;"Anchura= ";an,"Altura= ";al K:yy=y+al*d+((d+1)/2):yy>19020 Pyy=y+(al-1)*d:64733,yy:df:64730,23670v\:64731,23671w\:64753,an:64754,al:64500:200 dS0,0;"Ampliacion en 3D (2 a 22)= ";d:d<2d>22100d nn64756,d:dd=0:di=0:0,0;"Quieres efectos especiales ";a$:a$="n"150 x40,0;"Desplazamiento en diagonal= ";dd %0,0;"Profundidad= ";di )an=255-x:al=d*8:k=0 [an-al>0al>15an>15an=an-al:al=al+di*8:k=k+1:160 #dd<0y=y+(dd*(k-1)) (dx=d:di>0dx=dx+di*(k-1) .0,0;("TEXTO (max. ";k;")= ");b$ Ak=1̱b$:64735+k,b$(k):k:64736+b$,0 :y+dx*8+((dx+1)/2)>19020 !dd*(k-1)>dx*7dx=d Oyy=y+dx*7:64733,yy:64763,dd:64764,di:64520 I1,0;"Quiere borrar la pantalla s/n ";a$:a$="s"15 20 PLUS3DOStUͫ*[FZ!"ͫ 0*6\<0 G8 !\*{\֏ = +Z:݆ 2:݆ 2T]:2K:2A:݆2 :F2[R:2 !*T]":=0p :w0# /w0# w$|} o|gKx7gyǨoyPLUS3DOS'd'd' F. JAVIER ROMERO 1986  EL TESORO  39999? J=39999? T=115 J=J+1:L J,L T 62>,2,14,0,211,254,65A,16,254,238,16,13 ,32 ,246,201 &2:0:7:1: 23658j\,8  RE=0 F=0167 S "A"+F,S F J0,32 ,80P,81Q,83S,87W,127,135 L0,4,10 ,138,202,234,254,225 G135,135,123{,0,0,0,0,0 G225,225,222,0,0,0,0,0 G0,0,0,0,0,123{,135,135 "G0,0,0,0,0,222,225,225 ,J135,127,87W,83S,81Q,80P,32 ,0 6L225,254,234,202,138,10 ,4,0 @F1,62>,66B,62>,2,7,15,31 JM192,32 ,32 ,32 ,32 ,192,224,224 TF31,15,7,2,62>,66B,62>,1 ^M224,224,192,32 ,32 ,32 ,32 ,192 hA3,4,4,4,4,3,7,7 rO128,120x,68D,120x,64@,224,240,248 |A7,7,3,4,4,4,4,3 O248,240,224,64@,124|,66B,124|,128 M36$,90Z,219,126~,165,129,66B,60< K36$,90Z,219,126~,129,126~,0,0 F9 ,6,6,9 ,16,32 ,64@,128 I96`,144,144,112p,8,4,10 ,4 Q254,254,134,134,182,134,134,254 4N(25):S(25):E(25):O(25) F=125 N(F):S(F):E(F):O(F) F !0,1,1,0 !0,1,0,1 $!0,1,1,0 .!0,1,1,1 8!0,1,0,1 B!1,1,0,0 L!1,0,0,0 V!1,1,0,0 `!1,1,0,0 j!1,0,0,0 t!1,1,1,0 ~!0,0,1,1 !1,1,1,1 !1,0,1,1 !0,1,0,1 !1,0,1,0 !0,0,0,1 !1,1,0,0 !0,0,1,0 !1,1,0,1 !0,0,1,0 !0,0,1,1 !1,0,1,1 !0,0,0,1 !1,0,0,0 "21,0;"NIVEL(1-2-3)"  7,0;ٺ(*5)+2;"" ="1"N=1:1306 ="2"N=2:1306 ="3"N=3:1306  1301 !N>3N<11302 NI=6-N: A$="":B$="":HAB=1:TP=0:ES=0:ER=0:ET=0:TE=0:VI=2:C=10 :D=9 :A=10 :B=9 :I$="" `8,15:0,144:144,0:0,-144:-144,0 `160,23:0,128:80P,0:0,-128:-80P,0 #_0,0:Track-Info  R         0,175:255,0:0,-175:-255,0 (97;4,22;"VIDAS";5,22;VI 2;7;7,22;"TESOROS";8,22;TE <:7;10 ,22;"NIVEL";11 ,22;N F<7;13 ,22;"RECORD";14,22;RE P;7;16,22;"SALA";17,22;HAB Z 1700 _ꏏ d"7;A,B;A$;A+1,B;B$  TP=0 I$= TI$="Q"A=6B=9 N(HAB)=1TP=1:HAB=HAB-5:5000 oI$="Q"A7A,B;" ";A+1,B;" ":A=A-1:.005y# =,10 :A$="":B$="":1552 UI$="A"A=14B=9 S(HAB)=1TP=1:HAB=HAB+5:5000 pI$="A"A13 A,B;" ";A+1,B;" ":A=A+1:.005y# =,10 :A$="":B$="":1552 UI$="O"A=10 B=5O(HAB)=1TP=1:HAB=HAB-1:5000  oI$="O"B6A,B;" ";A+1,B;" ":B=B-1:.005y# =,10 :A$="":B$="":1552 VI$="P"A=10 B=13 E(HAB)=1TP=1:HAB=HAB+1:5000 pI$="P"B12 A,B;" ";A+1,B;" ":B=B+1:.005y# =,10 :A$="":B$="":1552 )I$""7;A,B;A$;A+1,B;B$ ES=08000@ ER=08100 ET=08200 HAB=CR7000X HAB=CT7100 HAB=CY7200  MONSTRUO ((HAB/2)HAB/21500 5;C,D;"" I=(*NI)+1 .005y# =,I "FI=2C7C13 A>C5;C,D;" ":C=C+1 'FI=2C7C13 AD5;C,D;" ":D=D+1 1FI=2D6D12 B 1500 ꏏ ٺ(*5)+2 (N(HAB)=12110>:1720  2510 (S(HAB)=12200:1740  26102 (E(HAB)=12310 :1760  2710 (O(HAB)=12410j :2000  2810 MURO COMUN a16,23:0,128:128,0:0,-128:-128,0 &16,23:23,23 (16,151:23,-23 *144,151:-23,-23 (144,23:-23,23 TP=01380d  =I$="Q"A=14:B=9 :A$="":B$="":1380d <I$="A"A=6:B=9 :A$="":B$="":1380d >I$="O"A=10 :B=13 :A$="":B$="":1380d =I$="P"A=10 :B=5:A$="":B$="":1380d 4PUERTA NORTE >41),128:30,0:-8,16:33!,0:-8,-16:30,0:71G,128:0,7:-4,8:87W,128:0,7:4,8 H PUERTA SUR 41),47/:30,0:-8,-16:33!,0:-8,16:30,0:71G,47/:0,-7:-4,-8:87W,47/:0,-7:4,-8  PUERTA ESTE 120x,47/:0,32 :16,-8:0,34":-16,-8:0,32 :120x,79O:7,0:8,-4:120x,97a:7,0:8,4  `PUERTA OESTE j39',47/:0,32 :-16,-8:0,34":16,-8:0,32 :39',79O:-7,0:-8,-4:39',97a:-7,0:-8,4 t MURO NORTE &39',128:80P,0  (MURO SUR 2%39',47/:80P,0 < MURO ESTE &120x,47/:0,80P  MURO OESTE %39',47/:0,80P   MUERTO KG=0502:1;ٺ(*7);A,B;" ";A+1,B;" ":G VI=VI-1 VI=-14050 67;5,22;" ";5,22;VI .C=10 :D=9 :M=1:5000 TE>RERE=TE:7: ;:7;10 ,2;"- TESOROS CONSEGUIDOS :";TE /7;20,2;"- QUIERES Track-Info  R JUGAR?" ="S":1300 " ="N" ,40000@ 6 4120  BORRADO A=319  A,2;" " A 240000@ <97;17,22;" ";17,22;HAB P 1700 XA=12 B=11 A=12 B+1=11 A+1=12 B=11 A+1=12 B+1=11 .02{# =,20:TE=TE+1:ES=0:VI=VI+1:7;8,22;TE;5,22;VI:1560 P.006yD,-15:ٺ(*6)+1;12 ,11 ;"":1560 A=8B=7A=8B+1=7A+1=8B=7A+1=8B+1=7.02{# =,20:TE=TE+1:ER=0:VI=VI+1:7;8,22;TE;5,22;VI:1560 N.006yD,-13 :ٺ(*6)+1;8,7;"":1560  A=13 B=7A=13 B+1=7A+1=13 B=7A+1=13 B+1=7.02{# =,20:TE=TE+1:ET=0:VI=VI+1:7;8,22;TE;5,22;VI:1560 RO.006yD,-10 :ٺ(*6)+1;13 ,7;"":1560 ? ESPADA @ES=1 JCR=(*24)+1 ^ 1500  LLAVE  ER=1 CT=(*24)+1  1500  COFRE  ET=1 CY=(*24)+1 & 1500 '"EL TESORO"1 PLUS3DOS record=1000 ** MISINOLANDIA ** v1,557:0:7:1:0::1;10 ,0;" ESPERA UN MOMENTO " 9901&:9901& &1000:** PROGRAMA PRINCIPAL ** 0=""9980&:.01z# =,10 :22 " "9980&:22 n=" "point=point+(point24):=" "c$(point)="":.01z# =,point:21,0;c$:30 (ei$=f$:f=13:9980&:x,0;" ":x=x-1:cota=cota+1:800 :f 2Ei$=e$:f=1point:9980&:cota=cota+1:800 :f GgO^W(^_g6>g(_(T861!X'͑, ! <O R06Ϳ(:\M61ͼ͎ >Wͩ*#"*"!66!! ~( ~#0#͑d͑>2B2B! p!w*"!! 7f(##7 ** MENU **1. CREAR 2. CORREGIR 3. JUGAR 4. SAVE5. LOAD6. COPY7. ALEATORIO>wSwk >!X Cw>wUw! 6!!"61ͼNORMALPINTA BORRA >y> & !"!( "6Gͱ>G#>W ~Gw*SMBlbͩ0  ͂G~(G6:G( =O DK͙:Ƨ(lOA(sd:I Q(zY(s$a(zi(kq(k y(k#G:O~GA(I ˇw"͙GN ~wG~w|%|?$}-}R,!6>G O W >O G#~w+>G W >O W _ G#ˆˎG!T^͵( ! >Wx I{SR_SSx? I {S_Sy# yS x@ ɯy q+F#qFqyR(#F+>(<!>. -F(  y( }((}˾! ~w# x !6K* }0w#ɯ <8B= {!!@MT]-6,} }o---|Xy<8O#y VF(  ˾˶˾˶#F(  ˦˞˦˞#F( ˎˆˎˆ= ^F(  ˶ˮ˶ˮ#F(  ˞˖˞˖#F(,-,-ˆ,˾-ˆ,˾-F(  ˮ˦ˮ˦#F( ˖ˎ˖ˎ$|} o|g*x\T]__)))))"x\|Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R         Track-Info ! R!!!!!!!!! Track-Info " R""""""""" Track-Info # R######### Track-Info $ R$$$$$$$$$ Track-Info % R%%%%%%%%% Track-Info & R&&&&&&&&& Track-Info ' R'''''''''