MV - CPCEMU Disk-File Disk-Info ZX-Modules(Track-Info  R ( *RTrack-Info  R DISK MICRO 7 28  AA S AB (AC  !"#$%&'()*+AC ,-./AC 0 -012345AD 6AD 0 7BA 89:;<=>?@ABCDEFGBA HIJKBA 0 LBB MBB 0 NOPBB 1 QBB 2 RBB 3 SBC TUVWBD +XYZ[\]BE ^_PLUS3DOS@ @DISKEADO POR MADFOX "MICRO"  300, "28" 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;;88888887778888PLUS3DOSUU dCINTA 28 (REVISTAS 109 a 112) 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-Taipan" !8,8;"B-Mapeador 1" &9 ,8;"C-Editor" 010 ,8;"D-Backup" !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-Saturno 2" 8,8;"B-Knosos" 9 ,8;"C-Cargador" $!10 ,8;"D-Mapeado 2" .!11 ,8;"E-Mapeado 3" !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$="1"100d F 1000 --- CABECERA --- 51:0,4;"CINTAS MICRO N. 28" -2:0,16;"HOBBY":0 C3:1,6;"DISKEADO POR MADFOX":0:0 %3,7;"REVISTAS 109-112"  p--- PIE DE PANTALLA --- z?1:20,0;" J, siempre... ILM " ?21,0;" ELIGE UNA OPCION ":0  PLUS3DOS)((I(23658j\,8:1:7: 91;9 ,9 ;"PARA EL CASSETTE":500 %:d1=0:236099\,100d 2a$="Necesitas instrucciones ? (S/N)":6000p w23659k\,2::B$::B$"s"B$"S"B$"n"B$"N" 0,0;"Necesitas instrucciones ? (S/N)":6 B$="S"B$="s"9500% +9 ,6;"NIVEL DE JUEGO ? (1-5)" D$:D$<"1"D$>"5"9 -D$"1"D$"2"D$"3"D$"4"D$"5"9 D$="5"d1=.95s333 D$="4"d1=.8L D$="1"d1=.2~L D$="2"d1=.4L D$="3"d1=.6  ,9 ,8;"CON QUIEN JUEGO ?":N$: %N=((31-N$-9 ))/2 %3;0,N;"JUNKO DE ";N$ s2;2,0;"********************************";12 ,0;"********************************" 3;4,0;"BANCO $";5,0;"CREDITO$";6,0;"SUM YAM$";7,0;"F.RIESGO";8,0;"UNIDADES";9 ,0;"VIAJES ";10 ,0;"PUERTO :" #4,15;"GENERAL";5,15;"ARMAS";6,15;"SEDA";7,15;"WHISKEY";8,15;"OPIO " %Z=0:T=0 &X1=0.06|u\:B1=0 ( B=502 -Y=5000 2 U=502 7 G=0 < A=0 A S=0 F W=0 K O=0 P L=1Track-Info  R  Z 9900& _ 9800H& d4,9 ;" ";4,9 ;B;4,25;" ";4,25;G;5,9 ;" ";5,9 ;B1;5,25;" ";5,25;A;6,9 ;" ";6,9 ;Y;6,25;" ";6,25;S;7,9 ;" ";7,9 ;X1*100d;"%";7,25;" ";7,25;W;8,10 ;" ";8,9 ;U;9 ,9 ;" ";9 ,9 ;T;8,25;" ";8,25;O nN10 ,8;" ";10 ,10 ;2;1;L$ x3;14,0;"OPCIONES:";1;16,0;"1.COMPRA";0;"2.VENTA";18,0;"3.NAVEGAR" VL=119,0;"4.VISITA SUM YAM";20,0;"(EL PRESTAMISTA)" {3;14,18;"PRECIOS:";1;16,18;"GENERAL $ ";16,27;P(1);17,18;"ARMAS $ ";17,27;P(2);18,18;"SEDA $ ";18,27;P(3);19,18;"WHISKEY $ ";19,27;P(4);20,18;"OPIO $ ";20,27;P(5) C %CɺCC<1C>5150 L1C>3150 C*1000 *******RUTINA COMPRA  9980& ^14,0;"QUE QUIERES ";15,0;"COMPRAR?";16,0;"G/A/S/W/O)" P$ $0P$"G"P$"A"P$"S"P$"W"P$"O"1050 .P$="G"P=P(1) 8P$="A"P=P(2) BP$="S"P=P(3) LP$="W"P=P(4) VP$="O"P=P(5) [ 9980& `O14,0;"SOLO PUEDES ";15,0;"COMPRAR ";1;(B/P) jB;17,0;"CUANTO QUIERES";18,0;"COMPRAR?" tQ yQ*P>B1130j ~Q>U1900l U=U-Q  B=B-(Q*P) P$="G"G=G+Q P$="A"A=A+Q P$="S"S=S+Q P$="W"W=W+Q P$="O"O=O+Q  9980&  100d k lO1;20,0;"SOLO TIENES ";21,0;"ESPACIO PARA ";U v 1140t   **********RUTINA VENTA  9980& ]14,0;"QUE QUIERES ";15,0;"VENDER?";16,0;"(G/A/S/W/O" P$ 0P$"G"P$"A"P$"S"P$"W"P$"O"2030 P$="G"P=P(1)  P$="A"P=P(2) P$="S"P=P(3)  P$="W"P=P(4) *P$="O"P=P(5) 4 9980& >@14,0;"CUANTO QUIERES";15,0;"VENDER?" HQ RP$="G"Q>G2120H \P$="A"Q>A2120H fP$="S"Q>S2120H pP$="W"Q>W2120H zP$="O"Q>O2120H  B=B+P*Q U=U+Q P$="G"G=G-Q P$="W"W=W-Q P$="A"A=A-Q P$="S"S=S-Q P$="O"O=O-Q B-B1100000CP9000(# B=06500d  9980&  100d  ***************VIAJES T=T+1 T>156500d 9980& 3;14,0;"DESTINO?";1;16,0;"1.HONG KONG";17,0;"2.SINGAPORE";18,0;"3.MACAO";19,0;"4.BANGKOK";20,0;"5.SHANGHAI" L &LɺLL<1L>53030 9900& B1M2<04040  B1=B1-M2 B1=0X1=.06|u\ (B1>0B11000X1=.12}u[ +B1>1000B13000 X1=.20~L *B1>3000 B15000X1=.4L Y=Y+M2 B=B-M2  9980&  100d I18,0;"DE CUANTO QUIERES ";19,0;"EL PRESTAMO?" :Z31;1;Track-Info  R 2;20,0;"HAS PEDIDO MAS";21,0;"DE""3""VECES":H=13:1,10 :H:20,0;" ";21,0;" ":1;2;20,0;"NO HAY MAS";21,0;"DINERO":150:4542 M1 M1>5000-B14540 M1<04504  B1=B1+M1 M15000Z=Z+1 B1=0X1=.06|u\ (B1>0B11000X1=.12}u[ *B1>1000B13000 X1=.2~L *B1>3000 B15000X1=.4L B1=5000Z=Z+1 Y=Y-M1 B=B+M1  9980&  100d S1;3;20,0;"YA PEDISTE";21,0;"MAS DE 5000$" 4N=13:.5,15:N:100d  9980&  100d o*******SUBRUTINA TITULO p?n=1̱a$:b=(a$(n)/80P):.02{# =,b:a$(n);:n: dN=13:Z=2202:.05|L,Z:Z:N::''''''''':a$="Eres un desastre de comerciante":6000p iBn=((31-N$))/2:::1;3;11 ,n;N$ l4'''':a$="Has hecho mas de 15 viajes.":6000p n 9499% #(*******RUTINA FINAL #* #, U1=0 #--N=-23.5:.05|L,N:N #.U1=390102# #/U1=U1+1:9005-# #2?2;1;6,5;"FELICIDADES,";N$;0 #<`2;8,3;"HAS CONSEGUIDO $100,000 ";10 ,5;"Y PUEDES RETIRARTE YA" #F62;14,6;"HAS HECHO ";T;" VIAJES." %O1;21,2;"PULSA UNA TECLA PARA EMPEZAR":0::3 %2;1;1,9 ;"* T A I P A M *":'':a$=" Es un juego basado en el comercio en el Mar de China en el si glo XIX.":6000p %'':a$="El objetivo es acumular $ 100000valiendote de una astuta compra/venta segun los precios fluctuantes del mercado.":6000p % w'':a$="El Junko tiene una capacidad de 50 unidades y tu comienzas el juego con solo $ 50 en el banco.":6000p %!021,6;"Pulse una tecla":0: %"1:2;1,9 ;"* T A I P A M *":'':a$="Un problema adicional es si tu pides dinero prestado a SUM YAM (El prestamista). Segun la cantidad se te deduciran distintas cantidades en cada viaje en concepto de intereses.":6000p %#4'':a$="Hasta $ 1000..............12%":6000p %$5'' :a$="De $1000 a 3000 ..........20%":6000p %%5'' :a$="Mas de $3000..............40%":6000p %&`'':a$="Entra las opciones""1"",""2"",""3"" o ""4"" hasta que consigas tu dinero.":6000p %(021,7;"Pulsa una tecla":0: %)'''''':a$="Ten en cuenta que en cada viaje se te deducira un 6% del dinero que tengas en el banco en concepto de gastos.":6000p %*021,7;"Pulsa una tecla":0: %+Z1;9 ,10 ;"BUEN VIAJE";11 ,2;" Y CUIDADO CON LAS TORMENTAS" %- 200 %0 %:7;2;1;1,8;"* T A I P A M *" %l % %*****TORMENTA % %=1;10 ,6;"** TORMENTA!,TAIPAM**";0 % 100d & &<(1-d1)97804& & _1;4;10 ,9 ;"HAS PERDIDO LA";12 ,6;"MITAD DEL CARGAMENTO" & CN=13:D=-2202:.04|# =,D:D:N & 502 & U=(U+((502-U))/2) &B=(B/2) &G=(G/2) &A=(A/2) &S=(S/2) &W=(W/2) &O=(O/2) &  &* &4V1;10 ,8;"TORMENTA ENCIMA";12 ,11 ;"TODO BIEN":0 &5 100d &9 &G &H*******FIJAR PRECIOS &R P(5) &\P(1)=(*16) &f P(1)<19820\& &k#P(2)=10 *(*19) &p!P(2)<5029835k& &u$P(3)=10 *(*100d) &z"P(3)<300,9845u& &$P(4)=100d*(*31) &"P(4)<5009855& &%P(5)=100d*(*101e) &#P(5)<10009865& & & &********LOCALIDADES &L=1L$="HONG KONG" &L=2L$="SINGAPORE" &L=3L$="MACAO" &L=4L$="BANGKOK" &L=5L$="SHANGAI" & &X=1421 '!X,0;" " 'X '  Track-Info  R PLUS3DOSuu"NEW-GENfig" 29999/u 1:1:7: 6;2,0;"PARA ACTIVAR UN PIXEL SITUAR EL PUNTERO EN EL CUADRO INDICADO Y DESPUES PULSAR CERO. PARA DESACTIVAR EL PIXEL SITUAR EL PUNTERO EN EL CUADRO INDICADOY DESPUES PULSAR UNO. PARA MOVER EL PUNTERO USAR 5 Y 8 CUANDO SE HAYA COMPLETADO EL SCAN PULSAR ENTER"'';7;"PARA DAR COLOR AL BLOQUE INDICAREL VALOR DEL COLOR O ESTADO DEL ATRIBUTO QUE ESTE PARPADEANDO, UNA VEZ DADOS LOS 4 ATRIBUTOS SEPODRA COLOREAR EL BLOQUE. PULSAR ENTER PARA IR PONIENDO ENEL BLOQUE Y EN MEMORIA LOS ATRI-BUTOS. PULSAR SPACE PARA CAMBIAR LOS ATRIBUTOS."  30 Q255,129,129,129,129,129,129,255 ( N="a""a"+7:a:n,a:n -f0,0;"Direccion de las FIGURAS en la memoria (min. 30000)= ";d:d<300000u45- .G"Numero de figuras que se van a generar= ";nf:j(nf+1,4) /da=d:j(1,1)=d 0q=1nf 2T"Numero de bytes por LINEA (max. 32)= ";nb:nb<1nb>32 502 7d,nb:d=d+1 4900:tx=tx+xx*8:910:tp=1 H)900:tx=tx+xx*64@:910 R,900:tx=tx+xx*128:910: #fl=1:px=0:915  fl=0 "21,fx;fl;px;9 ;px fl=0fx=fx+9 : 0:xx=-480 Kxx<0xx>tp9 ;1;20,13 ;"ERROR":920 .0;20,13 ;" ":px=xx: n=1nf >:0,12Track-Info  R  ;"BLOQUE-";n;1,12 ;"________" 3,10 ;"FIGURA";5,0;"Direccion de memoria------";j(n,1),"Numero de bytes por scan--";j(n,2),"Numero de lineas----------";j(n,3),"Numero total de bytes-----";j(n,4)-j(n,1) d10 ,8;"ATRIBUTOS";12 ,0;"Direccion de memoria------";j(n,4),"Numero de bytes por linea-";j(n,2),"Numero de lineas----------";j(n,3),"Numero total de bytes-----";j(n+1,1)-j(n,4)''"TOTAL BYTES DEL BLOQUE----";j(n+1,1)-j(n,1);21,0;1;"PULSE UNA TECLA":0 n w19,0;"NUMERO DE BYTES DEL BLOQUE ";j(nf+1,1)-da;21,8;0;" " $ L n=1j(q,3)*8 Q x=0 Vf=1j(q,2) [tx=z:a=128 `w=18 jtxax,y:tx=tx-a ta=a/2:x=x+1 ~w  z=z+1 f  y=y-1 n  PLUS3DOSzONN6DIBUJO Por Carlos Rodriguez ** Barcelona 1986 :46000:"AC.0"6e4`:7:7:9 *n=23300[23364D[:n,568:n rom=-184:LINF=0:PRU=65520:S=0:BB=0:FF=0:x=127:y=87W:bo=7:re=0:cu=1:o=0 opa=2:xmin=0:mmax=16:ymin=0:xmax=255:ymax=175:xp=x:yp=y:xb=x:yb=y ATTR=568:BANCO=4:menu=1:menu2=0:menu3=0:menu4=0:menu5=0:a$="#$CD34WX+,STKLOPGH?@;<78'(/0[\_`":b$="%&a56YZ-.UVMNQRIJAB=>9:)*12aab" <8;8;8;8;1;x,y:40( 10 :8 8;8;8;8;1;xp,yp:8;8;8;8;1;x,y:xp=x:yp=y:18:32 : Wtecla=64@*(256>190):b=(63486)-tecla:a=(61438)-tecla a=187x=x+pa b=175x=x-pa a=175y=y-pa a=183y=y+pa a=171y=y-pa:x=x+pa a=179y=y+pa:x=x+pa  ?A=190menu=menu+1:.002xn,30:40( "'xxmaxy>ymax90Z $A=189.02{# =,20:950+menu*502+(MENU20)*1000+(MENU30)*2000+(MENU40)*3000 +(MENU50)*3500 :.02{# =,30 & '****** menu ******* (menu>MMAXmenu=1 )ww=menu*2-2 ..236066\,233:236077\,248 5z#1;0,0;A$'B$;1;0,ww;a$(ww+1ww+2);1,ww;b$(ww+1ww+2) 6+236066\,0:236077\,60< 7 Z** fuera de pantalla ** \xymaxy=ymax bx>xmaxx=xmax d *** GUARDAR PANTALLA ** ,1;x,y:1320(:l=60485E: *** cuadricular pan *** 'cu=cu+1:cu>1cu=0 cu=11025 1320(:M$="                                                               ":Q=0202:.003xD,30:1;8;8;Q,0;M$:Q:#1;1;8;8;0,0;M$:1325-:40(: H$(64@):1320(:q=0202:8;8;q,0;1;0;H$:.005y# =,20:q:#1;1;0;8;8;0,0;H$:1325-:40(: **** creacion UDG **** 200:MMAX=8:A$="~y~EkE~`+,/0CDuv":B$="aaZaa-.12awx":MENU5=1:MENU=1:1;X,Y:6000p L****** border ****** V'bo=bo-1:bo<0bo=7 `bo: ~**** nuevo paso ****** #1;0,0;"VIEJO PASO=";PA'"NUEVO PASO=?":0:PA=-480:pa<1pa>9 pa=2:  40(: *** tira pantalla *** K200:1320(::1325-:40(:1;x,y:xb=x:yb=y: *** borra lo ultimo *** 6l=60515c:1325-:1;x,y:40(: ** almacena pantalla ** 200:40(:557,104h:145,0:0,-97a:-145Track-Info  R ,0:0,97a:4;9 ;9 ,7;" ";10 ,7;" PROCESADOR PANT. ";11 ,7;" ";12 ,7;" 1-ALMACENAR ";13 ,7;" 2-RECUPERAR ";14,7;" 3-INVERTIR ";15,7;" 4-QUITAR ATRIB. ";16,7;" 5-COPY " 9 ;4;17,7;" 6-SCROLL NORMAL ";18,7;" 7-SCROLL ATRIB. ";19,7;" 8-LINEAS INFER. ";20,7;" " J1:0:COIN=-480:1250:1320(:1;X,Y COIN=1L=60500T COIN=2L=60530r 4COIN=3N=0212:1;8;8;8;8;N,0;"":N:#1;1;8;8;8;8;0,0;"" COIN=4N=0212:1;0;7;N,0;" ":N:#1;1;0;7;0,0;" " COIN=5 COIN=6XB=X:YB=Y:PB=PA:PA=1:ARR=60775g:ABA=60782n:DER=60945:IZQ=60975/:1320(:13302 }COIN=7XB=X:YB=Y:PB=PA:PA=1:ARR=60900:ABA=60920:DER=61005M:IZQ=61030f:13302 COIN=8LINF=0M=12:N=07:L=60775g:N:L=60900:M:1325-:LINF=1:1315#  COIN=8LINF=1M=12:N=07:L=60782n:N:L=60920:M:1325-:LINF=0 #&1;X,Y:1325-:40(: (L=61075:23295Z,ATTR:60064,126~:60001a,32 :60002b,2:64850R:8;8;8;8;1;21,0;" "; :60000`: -L=61060:ATTR=23295Z:60064,119w:60001a,32 :60002b,2:64850R:8;8;8;8;1;21,0;" "; :60000`: 2"X=10 :Y=10 :18 3X=11 L=IZQ 4Y=9 L=ABA 5Y=11 L=ARR 6X=9 L=DER 7=13 1349E 8 13302 EX=XB:Y=YB:PA=PB:1315# F****** plot mode ****** KMENU2=1:MENU=1:MMAX=9 :B$="amefapqaijIJwx":A$="~r~lcdnono_EghGHuv":40( P x***** coordenadas ***** #1;0,0;" "'" ";9 ;0,0;" X:";x;0,7;" Y:";y;1,0;"Ax:";x-xb;1,7;"Ay:";y-yb: ***** colorear ***** w1;x,y:pa=1:mmax=7:xmax=31:ymax=21:x=0:y=21:xp=x:yp=y:menu=1 MENU3=1:PP=7:TT=0:bb=0:ff=0:a$="z{78?@~y+,_Xuv":b$="|}9:ABa-.aZwx":;1;8;8;21-y,x;"":40(:5000 ***rellenar figuras**** 23675{\,0:23676|\,BANCO+245:200:5;4,5;" ";5,5;" SELECCIONA TRAMA ";6,5;" ";7,5;" A B C D E F ";8,5;" ";9 ,5;" ";10 ,5;" G H I J K L ";11 ,5;" ";12 ,5;" ";13 ,5;" M N O P Q R ";14,5;" " 5;15,5;" ";16,5;" S T U #=NUEVO ";17,5;"  BANCO ";18,5;" ":39',143:152,0:0,-120x:-152,0:0,120x 1:0:COIN=-65A:1250:.02{# =,3:COIN=-30"":#1;0,0;"BANCO? ":0:BANCO=-480:40(:.03{u\,40(:1500 )COIN<0COIN-3040(: 0COIN>2723658j\,8:1505 200:60252\,x:60253],y:(245+BANCO)*256+((COIN)*8):l=60260d:40(:1;x,y: ****mTrack-Info  R         odo texto udg***** X200:X=0:Y=21:XP=X:YP=Y:PA=1:XMAX=31:YMAX=21 23658j\,8:236066\,0:236077\,60<:#1;1,0;"CARACTERES NORMALES MAYUSCULAS";8;0,0;"ENTER=SAL TRUE V=MAY GRAF=GRAF" N1580,:0:.001wn,30:COIN=:COIN>311570" COIN=15S=0#1;1,11 ;"ESPECIALES BANCO ? ":0:23658j\,8:S=(-491)*(<535)*(>47/)+1:#1;0,0;" Banco ABCDEFGHIJKLMNOPQRSTU ";S;" ":236066\,248:236077\,242+S:#1;1,8;"ABCDEFGHIJKLMNOPQRSTU ":.02{# =,30:1580,:1554 COIN=4ƾ23658j\=8S=0#1;1,22;"MINUSCULAS":23658j\,0:.02{# =,30:1580,:1553 OCOIN=4ƾ23658j\=0.02{# =,30:1580,:1552 Hcoin=13 1;21-y,x;"":.02{# =,30:5 eCOIN=15S0S=0:23658j\,8:.02{# =,30:1580,:1552 "1580,:18:1554 "]21-Y,X;O;COIN:.02{# =,20:X=X+1:X>31X=0:Y=Y-1 + 1554 ,1;21-Y,X;"": @**** pinceles gomas**** Jpa=1:menu=1:MENU4=1:MMAX=9 :A$="~r~^~]~s~t~E~s~^uv":b$="FFFFFaaawx":40(: r***** carga cassete *** |n#1;0,0;"1-GRABAR PANTALLA "'"2-CARGAR PANTALLA ":0:COIN=-480 QCOIN=2.02{# =,30:"NOMBRE: ";N$:LINF=0:N$:1325- COIN=1.02{# =,30:"NOMBRE: ";N$:n=1̱n$:61099+n,n$(n):n:#1;0,0;" PON EN MARCHA EL CASSETTE Y PULSA UNA TECLA ":0:1320(:l=60200(  40(: **** over ****** #o=o+1:o>1o=0 J#1;0;0,0;"OVER=";o;1,0;"______": ** almacen de figuras** ۓ#1;0,0;"1- ALMACENAR FIGURA "'"2- RECUPERAR FIGURA ":0:COIN=-480:COIN>2COIN<11755 &40(:1740+(20*COIN) "ANCHURA (Car) ";an1;" ALTURA ";AL1:CODE=AL1*AN1*8:61100+code>62700.5,0:40(: SN=0AL1-1:1;1;21-(Y/8)+N,X/8;" "(AN1):N:"":#1;0,0;"OK? (s/n) ":0:q$=:n=0al1-1:1;8;8;21-(y/8)+n,x/8;" "(an1):n:q$="n"q$="N"40(: 1320(:60064,119w:60001a,an1:60002b,al1:61100:21-(y/8),(x/8);:1;x,y:60000`:.03{u\,30:1;x,y:1325-:40(: &200:1;9 ;13 ,7;" ";14,7;" MODO COPIA ";15,7;" ";16,7;" 1-COPIA ";17,7;" 2-XOR ";18,7;" 3-OR ";19,7;" 4-AND ";20,7;" " ;0:COIN=-480:1250:.02{# =,30 1COIN=160064,126~:1790 1COIN=260064,174:1790 1COIN=360064,182:1790 1COIN=460064,166:1790  .02{# =,20:40(: i40(:21-(Y/8)-AL1>21X/8+AN1>31al1*an1=0.5,0: 1320(:60001a,AN1:60002b,AL1:61100:1;X,Y:21-(Y/8),X/8;:60000`:.02{# =,30:1;X,Y:1325-: ******** punto ******* #200:40(:xb=x:yb=y: ***** linea *******  8200:40(:xb,yb:o;x-xb,y-yb:xb=x:yb=y: 4***** circulo ****** >7200:40(:r=((x-xb)*(x-xb)+(y-yb)*(y-yb)) C2#1;1,20;"RADIO= ";R;" " M255-Xb3040(: u:200:40(:XB,YB:X-XB,YTrack-Info  R         -YB,COIN:XB=X:YB=Y: ****** elipse ****** ML=3438n :"ALTURA= ";AL:"ANCHURA= ";AN:200:40( 1;X,Y:AL>175-YAL>YAN>255-XAN>X#1;1,20;1;"MUY GRANDE":1,0:40(: uN=02*.3:AN*N+X,AL*N+Y:X+AN*(N+.3)-23677}\,Y+AL*(N+.3)-23678~\:N: ***** rectangulo ***** p200:40(:xb,yb:x-xb,0:0,y-yb:xb-x,0:0,yb-y:1;x,y:xb=x:yb=y: ***** poligono *****  xmax=253:ymax=173 200:#1;0,24;"NUMERO ";1,24;"DE LADOS":0:coin=-480:40(:coin<1coin>9 6PPP=2*/coin:R=((XB-X)*(XB-X)+(YB-Y)*(YB-Y)) R+Y>175Y-R<0R+X>255X-R<0#1;0,20;1;"MUY GRANDE":1,0:1;X,Y:40(: R+XB,YB:N=PPP+((y-yb)/r)2*+PPP+((y-yb)/r)PPP:R*(N)-R*(N-PPP),R*(N)-(R*(N-PPP)):.01z# =,30:n:1;x,y: .******coordenadas****** 8P#1;1,19;"X:";x;" ";1,25;"Y:";y;" ": `*** vuelta menu pr. *** j1;X,Y:5: **** cambiar tinta **** 'tt=tt+1:tt>7tt=0 #5010:.005y# =,30: **** cambiar papel **** 'pp=pp+1:pp>7pp=0 #5010:.005y# =,30: ***** pintar car. ***** &G5010:.005y# =,30:21-y,x;1;pp;tt;" ": N***** invertir c. ***** XR5010:.005y# =,30:;8;8;1;21-y,x;"": **** borrar carac.***** Q5010:.005y# =,30:8;8;1;21-y,x;" ": **** brillo flash **** Nbb=bb+1:bb>1bb=0:ff=ff+1:ff>1ff=0 #.005y# =,30:5010: ***** volver menu ***** '1;21-y,x;"":5: !***** pinceles ******** +200:xmax=255:ymax=175 %x,y:18:32 :4010 ,200:xmax=253:ymax=173: ?x+3,y:-3,3:18:32 :4060  +200:xmax=253:ymax=173 6x,y:3,3:18:32 :4110 ;+200:xmax=253:ymax=173 @\x,y+1:2,0:x+1,y:0,2:18:32 :4160@ m+200:xmax=252:ymax=172 rx,y+1:3,0:x,y+2:3,0:x+1,y:0,3:x+2,y:0,3:18:32 :4210r I1;x,y:1;xb,yb:200:xmax=255:ymax=173  10  4260 91;x,y:200:xmax=253:ymax=173 H10 :(x+1,y+2)=11;x+1,y+2 >(x+2,y+2)=11;x+2,y+2 >(x+3,y+2)=11;x+3,y+2 >(x+2,y+1)=11;x+2,y+1 >(x+2,y+3)=11;x+2,y+3  4310 91;x,y:200:xmax=252:ymax=172  10  >(x+3,y+1)=11;x+3,y+1  >(x+2,y+2)=11;x+2,y+2 >(x+1,y+3)=11;x+1,y+3  4360 0**** vuelta al menu *** : 5: ***** invertir ******* ?L=607200:PRU:L=60675:4510:4625: ***** simbolo ******* PRU:L=60750N: ***** espejo ar ***** ЊQ=(PRU):N=07:(PRU+N),(PRU+N+1):N:(PRU+7),Q:L=607200:PRU:L=60600:4510:4625: ***** correr udg ***** ?L=607200:pru:l=60700:4510:4625: ****** codigos ******** :n=07:5+n,0;(pru+n);" ":n: ****** INTRODUCIR ***** 4~23658j\,8:"BANCO ";S,"CARACTER ";S$:40(:S<1S>4ůS$<65AůS$>85U46604 923675{\,0:N=07:(245+S)*256+(S$-65A)*8+N,(PRU+N):N:23676|\,245+S:16+S,3;S;" ": \**** borrar udg ****** fQN=07:(PRU+N),0:N:Track-Info  R         L=607200:4510:4625: ****** grabar udg ***** `#1;0,0;"1- GRABAR UDG "'"2- CARGAR UDG ":0:COIN=-480 ;COIN=1"NOMBRE ";W$:W$62720,1024 %COIN=2"NOMBRE ";W$:W$  40(: **** volcado udg **** ʇ"BANCO (1 a 4 o ROM) ";S,"CARACTER ";S$:40(:(S<1S>4)SROM(S$<65AůS$>85U)SROM4810 s=roms$=(s$+33!) ϻ(245+S)*256+(S$-65A)*8:L=607200:L=60600:N=07:PRU+N,((245+S)*256+(S$-65A)*8+N):N:4510:4625: *** vuelta al menu **** #1250:1;X,Y:5 **** cursor car. ****** 5005:5000 18:32 :xpxypy21-yp,xp;8;8;FF;BB;1;"";21-y,x;"":.005y# =,30:xp=x:yp=y:  ***** colores ****** X#1;0,14;" B F TINTA=";1,14;" ";BB;" ";FF;" PAPEL=" U#1;TT;9 ;0,28;" ";TT;" ";PP;1,28;" ";PP;" "  p**** U. D. G. **** u7:7:9 ::40(:4;1,7;"EDITOR DE U. D. G.":535,170:157,0:0,-13 :-157,0:0,13 z16,0;" Banco ABCDEFGHIJKLMNOPQRSTU":23675{\,0:S=14:23676|\,245+S:16+S,0;" ";S;" ":S 141,138:13 ,0:0,-13 :-13 ,0:0,13 :47/,136:65A,0:0,-65A:-65A,0:0,65A:45-,138:69E,0:0,-69E:-69E,0:0,69E wN=06:557+N*8,135:0,-64@:47/,127-N*8:64@,0:N pa=-1:X=0:Y=0:8,17;"CARAC> B=ROM ";10 ,17;"PUNTO> ENTER ";12 ,17;"MOVER> CURSOR":XP=X:YP=Y:xmax=7:ymax=7 }1;5,13 ;">":n=07:n+5,0;(PRU+N);" ":N:PRU:L=60600:L=60750N 18:32 :xpxypy1;8;8;5+yp,13 -xp;">";5+y,13 -x;">":.003xD,30:xp=x:yp=y 8coin=:coin=13 .02{# =,30:6400  6040 **** codigos ******** v(22701X-X+Y*32 )=7(22701X-X+Y*32 ),568:(PRU+Y),((PRU+Y))-(2^X):6420  j(22701X-X+Y*32 )=568(22701X-X+Y*32 ),7:(PRU+Y),((PRU+Y))+(2^X) 2Y+5,0;(PRU+Y);" ":L=60750N ? @4"DIBUJO "1:"dibujo"60000`,5536 PLUS3DOS`. C!![\R*v\y2x=8w# xCRC_______@!>!@>y*\ ̓$*\%͚̓,(͚-(|g}o[v\|o&T]W}2\<=(T:\(G:\(::\(-:\( :\(:\(B ,/J &)R #Z b j r  z .DMͪ"G>DMͪ"G>w!@!@!@!@X*v\~vnf^VNF#bkT]>*v\~w#͸*v\~w#͸!X>8w# [v\!@w$!@ˁ!W[ |G|'''G}??A(<?G&@gx???g}ox8''o0  ![ !X[ X!Z[![ !W +0 "[*[ !@ #0 "[*[ Xbk#Zbk+!Z[@![Z@Track-Info  R         ?DDL0DDDDDD0?UjUUU  ?2OH00H0 ?~LH`(Tl0 *U`T*f~fAAAA~@@@~@_PPPPUUUU3333""""DD"D"DD""D~BBBB~ff$$>BB<DHpHDB@@@@@~BfZBBBBbRJFB ͟ @J`jt~!" X!@"X>2XX:H8 A>2XxX: X2 X>2XxXx>G >!Xn#f#"XX: X( <2 X>2 XPLUS3DOSvMLL 9 1985 DAVID CALANDRA REULA - MINGLANILLLAS EN SATURNO O0:0:7:1:64599W:"BA.0"64808(,487 d$="W":i$="Q":s$="0":RE=0:b$=":;<=:;:;>:;<>:;=>:;:;=:;>=:;<>:;=:;=>:;<:;:;=<:;=>:;<:;:;<=:;>:;":a$="*************" M236099\,0:23617A\,238:23658j\,8:8950" ].1}L,0::5,4;4;"MINGLANILLAS EN SATURNO";8,2;6;" 1985 DAVID CALANDRA REULA";11 ,6;5;"PUNTUACION MAXIMA ";4;RE;12 ,2;5;"CONSEGUIDA POR ";3;A$;15,4;4;"D ...... DEFINIR TECLADO";17,7;6;"PULSA J PARA JUGAR" #="J"90Z (="D"502 - 35# 2:10 ,9 ;6;"DEFINIR TECLADO":5:"TECLA IZQUIERDA ";i$:6;"TECLA DERECHA ";d$:4;"TECLA SALTO ";s$:25 Z=A=05:.01z# =,5:.01z# =,30:A gk1=1:k2=1:k3=1:k4=1:k5=1:hir=0:air=8:qq=1:pin=0:go=0:com=0:dad=0:x1=13 :y1=8:vi=3:pu=0:di=0:ai=184 htas=130:cal=9040P#:lin=9040P#:z1=7010b:z2=7020l:z3=7040:z4=7060:z5=7070:z6=7080:z7=7090:z8=7100 iT:19,0;4;"PUNTOS";19,7;6;"MAXIMO";19,14;5;"DIAMANTES";20,2;6;pu;20,9 ;5;re;20,18;4;di;21,0;3;"AIRE";21,5;5;"":#0;4;"  1985 DAVID CALANDRA REULA" n6:8900":19,24;"_` _` _`";20,24;"ab ab ab";21,24;"cd cd cd";18,0;4;"IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII" x130:6000p Fz9=7120:l8=1:8989#:16,0;3;b$ mu=0:to=1:ag=0:tol=22:ra=13 :zo=26:par=90102#:4:31,160:0,15:1,0:0,-15:2,3;"UV" 33,3;"WX";4,3;"YZ";5,2;"[\";6,2;"";7,3;"";8,3;"";9 ,3;"";10 ,3;"";11 ,2;"[\";12 ,2Track-Info  R ;"YZ";13 ,2;"";14,2;"YZ";15,2;"WX" 9600%:4:1;24,150:1;0,-100d:1;39',150:1;0,-100d:1;36$,138:1;0,-80P 9950&: 8950":.5,-5::7,3;4;"ENHORABUENA, HAS CONSEGUIDO";9 ,9 ;"LOS 5 DIAMANTES";13 ,9 ;6;"PULSA UNA TECLA" :0 :y=030:.002xn,502:*21,*31;(*6)+1;".":y:10 ,9 ;5;"BUEN VIAJE !!!":y=060<2.5 :.05|L,y:y:0:vi=-1 Da=3020-1:.01z# =,a:.01z# =,a+10 :a pvi=vi-1:vi=219,24;" ";20,24;" ";21,24;" ":1070. avi=119,27;" ";20,27;" ";21,27;" ":1070. avi=019,30;" ";20,30;" ";21,30;" ":1070. pure25 $8950":re=pu::8,2;6;"ENHORABUENA, HAS CONSEGUIDO UNA ALTA PUNTUACION"::5;" INTRODUCE TU NOMBRE":a$:25 3X6990N:ai<41)5;21,5;"":ai=184 8Jl8=1x1=13 :y1=28:qq=0:9950&:6800 BIl8=0x1=13 :y1=2:qq=1:9950&:6800 ((x1+3,y1)=69Eū(x1+3,y1)=70F)((x1+3,y1+1)=69Eū(x1+3,y1+1)=70F)hir=0:x1,y1;6;" ":x1=x1+1:9950&:5000:2010  6800 …(x1-1,y1)=66Bū(x1-1,y1+1)=66Bū(x1-1,y1)=68Dū(x1-1,y1+1)=68D2000 (x1-1,y1+2)=66Bū(x1-1,y1+2)=68Dū(x1,y1+2)=66Bū(x1+1,y1+2)=66Bū(x1,y1+2)=68Dū(x1+1,y1+2)=68D2000 san (x1-1,y1)=66Bū(x1-1,y1+1)=66Bū(x1-1,y1)=68Dū(x1-1,y1+1)=68D2000 (x1-1,y1-1)=66Bū(x1-1,y1-1)=68Dū(x1,y1-1)=66Bū(x1+1,y1-1)=66Bū(x1,y1-1)=68Dū(x1+1,y1-1)=68D2000 san <(x1+3,y1)=67Cū(x1+3,y1+1)=67Cū(x1+3,y1)=68Dū(x1+3,y1+1)=68Dhir=0:6000p Fsan %hir=1:qq=04500 san=4010:3000 66990N:x1=x1-1:y1=y1+1:9500% san=4030:3000 '6990N:x1=x1-1:9500% san=4040:3000 66990N:x1=x1-1:y1=y1+1:9500% san=4050:3000 '6990N:x1=x1-1:9500% san=4060:3000 66990N:x1=x1-1:y1=y1+1:9500% san=4070:3030 '6990N:y1=y1+1:9500% san=4077:3900< san=4078:3030 c(x1+3,y1+2)=68D6990N:y1=y1+1:9950&:hir=0:6800 66990N:x1=x1+1:y1=y1+1:9500% san=4087:3900< san=4090:3030 '6990N:x1=x1+1:9500% san=4097:3900< san=4100:3030 66990N:x1=x1+1:y1=y1+1:9500%  san=4107 :3900<  san=4110:3030 '6990N:x1=x1+1:9500% san=4117:3900< san=4120:3030 66990N:x1=x1+1:y1=y1+1:9500% hir=0:6800 san=4510:3500 66990N:x1=x1-1:y1=y1-1:9550N% san=4540:3500 '6990N:x1=x1-1:9550N% san=4570:3500 66990N:x1=x1-1:y1=y1-1:9550N% san=4600:3500 '6990N:x1=x1-1:9550N%  san=4630:3500 66990N:x1=x1-1:y1=y1-1:9550N% *san=46604:3510 4'6990N:y1=y1-1:9550N% Csan=4680H:3900< Hsan=4685M:3510 Mc(x1+3,y1-1)=68D6990N:y1=y1-1:9950&:hir=0:6800 R66990N:x1=x1+1:y1=y1-1:9550N% asan=4710f:39Track-Info  R 00< fsan=4720p:3510 p'6990N:x1=x1+1:9550N% san=4740:3900< san=4750:3510 66990N:x1=x1+1:y1=y1-1:9550N% san=4770:3900< san=4780:3510 '6990N:x1=x1+1:9550N% san=4800:3900< san=4810:3510 66990N:x1=x1+1:y1=y1-1:9550N% hir=0:6800 mu=05100 !5:go=05050 Qva,li;" ";va+1,li;" ":va=va-1:va,li;"?@";va+1,li;"AB" $va=49980&:go=0  5080 Qva,li;" ";va+1,li;" ":va=va+1:va,li;"?@";va+1,li;"AB" %va=149980&:go=1 ؾy1+1=li(x1=va+1x1=vax1+1=vax1+2=va)y1=li(x1-1=vax1+2=va)y1-1=li(x1-1=vax1=vax1+1=vax1+2=va)hir=0:1000 to=05200P pin=05150 V15,tol;" ":tol=tol-1:15,tol;4;0;"QNO":1 !tol=ra9980&:pin=0  5180< V15,tol;" ":tol=tol+1:15,tol;4;0;"NOP":1 (!tol=zo9980&:pin=1 Fdx1+2=15(y1=toly1=tol+1y1=tol+2y1+1=tol)hir=0:1000 Kchir=0x1+3=15(y1=toly1=tol+1y1=tol+2y1+1=tol)1000 Pag=05300 ZR(x1+3,y1)=93]ƫ(x1+3,y1+1)=93]6:5220d _ 5240x dqq=1x1,y1;" ";x1+1,y1;"kl";x1+2,y1;"mn":.1}L,5:.1}L,6:x1+1,y1;" ";x1+2,y1;"kl":.1}L,4:.1}L,5:x1+2,y1;" ":.1}L,3:.1}L,4:1010 nqq=0x1,y1;" ";x1+1,y1;"_`";x1+2,y1;"ab":.1}L,5:.1}L,6:x1+1,y1;" ";x1+2,y1;"_`":.1}L,4:.1}L,5:x1+2,y1;" ":.1}L,3:.1}L,4:1010 6y1=30y1=1:8990#:l8=0:par 6y1=0y1=29:8990#:l8=0:tas 6x1=15x1=1:8990#:l8=1:cal 6x1=0x1=14:8990#:l8=0:lin air<10 5410" G5:ai=ai-1:1;ai,0:1;0,7 "Xai<41)1000:5;21,5;"":ai=184 ',air=air-1:air=0air=10 6hir=15500| ^((x1+3,y1)=69Eū(x1+3,y1)=70F)((x1+3,y1+1)=69Eū(x1+3,y1+1)=70F)x1,y1;6;" ":x1=x1+1:9950&:5000 1di=5par=90102#y1<7500 lin=9090#k1=1x1>11 y1>2614,28;" ";15,28;" ":9950&:9700%:k1=0 par=9210#tas=9170#k2=1x1>11 y1>25y1<3014,27;" ";15,27;" ":9950&:9700%:k2=0 tas=9260,$cal=9250"$k3=1x1>6x1<11 y1>13 y1<179 ,15;" ";10 ,15;" ":9950&:9700%:k3=0 tas=9340|$k4=1x1>6x1<11 y1>18y1<229 ,20;" ";10 ,20;" ":9950&:9700%:k4=0 par=9380$k5=1y1>1y1<5x1>11 14,3;" ";15,3;" ":9950&:9700%:k5=0   8T=d$((x1,y1+2)=69Eū(x1,y1+2)=70F)qq=1:6220L B 6400 L_6:x1+2,y1;" ":y1=y1+1:x1,y1-1;" kl";x1+1,y1-1;" mn" V;dad=0x1+2,y1;"op":dad=1:6400 `;dad=1x1+2,y1;"qr":dad=2:6400 j;dad=2x1+2,y1;"st":dad=3:6400 t.x1+2,y1;"uv":dad=0:6400  =s$4000 2par=90102#di<5y1=66700, 2T=i$((x1,y1-1)=69Eū(x1,y1-1)=70F)qq=0:6470F < 6700, F;6:y1=y1-1:x1,y1;"_` ";x1+1,y1;"ab " P<com=0x1+2,y1;"cd ":com=1:6700, Z<com=1x1+2,y1;"ef ":com=2:6700, d<com=2x1+2,y1;"gh ":com=3:6700, n/x1+2,y1;"ij ":Track-Info  R com=0:6700, , 5000  6000p N@6:x1,y1;" ";x1+1,y1;" ";x1+2,y1;" ": b2:0,0;"DKFDFKFKDKFFKDFKKDFKDKFDFKDFDKDKDKFDGCDFKG CDKFDKDFGCKDFDKFDFGCDFGHE CGE CKDGECG EECKFGEH EE H CG": l2:0,0;"KDFDKFDKFKDFKDFG";1,0;"KDFKGCKDFDFGECG";2,0;"EHCG ECGEH";0,25;"CDKFDKF";1,26;"HECDFK";2,29;"CGE": 2:0,0;"KDFDKFG";1,0;"GCFGEH";2,2;"H";0,16;"CKDFDKFDFKFDKFDF";1,17;"CGECDKFDGEHECFD";2,21;"HECG HE": :4:xx,yy;"C=<>=G";xx+1,yy+1;"CGHEH": 2:1,yy;"KJ";2,yy;"JK";3,yy;"KK";4,yy;"JD";5,yy;"JK";6,yy;"FK";7,yy;"JJ";8,yy;"JK";9 ,yy;"DJ";10 ,yy;"KK";11 ,yy;"JJ";12 ,yy;"FK";13 ,yy;"DK";14,yy;"JK";15,yy;"FK"  a3:16,0;"<=<>=>><=><=>=<=><===<>=<==<=><>==><=>=<==>=<=>=<=<>==<=<=>=<=>=": 3:16,0;"<=>==><=>=<=>=<\";17,0;"=<=>=<=>=>==<=>K";16,25;"[=<=>=<";17,25;"J>==>": Ў3:16,0;"==\";17,0;"=>=<=>K";16,16;"[=>=<=>=>>=<=>==";17,16;"J=>=<=>=<=>>=<=>": "/236066\,88X:236077\,251: "-236066\,0:236077\,60<: #Hz=017:z,0;" ":z: #2par=9030F#:tas=130:cal=9020<#:ag=1:to=0:mu=1:va=7:li=10 :z1:xx=11 :yy=18:z4:z8:16,4;5;3;"LM":9950&: #<mu=0:to=1:tol=8:ra=1:zo=11 :ag=1:tas=9040P#:lin=90102#:z2:yy=30:z6:xx=6:yy=19:z4:xx=11 :yy=12 :z5:z7:16,16;5;3;"LM":9950&: #Fag=0:to=1:mu=0:tol=25:ra=18:zo=27:tas=90102#:cal=9050Z#:z1:yy=30:z6:xx=11 :yy=8:z5:xx=9 :yy=21:z4:z9:9950&: #Pag=1:to=0:mu=1:va=8:li=25:par=9020<#:cal=9100#:z1:yy=0:z6:xx=8:yy=6:z4:xx=11 :yy=16:z5:z8:16,5;5;3;"LM":9950&: #Zag=0:mu=1:to=0:li=15:va=7:lin=9030F#:par=9060d#:cal=9070n#:z3:yy=0:z6:xx=6:yy=9 :z4:xx=11 :yy=17:z5:z8:9950&: #dtas=9050Z#:cal=9090#:ag=1:to=0:mu=1:va=7:li=7:z1:yy=30:z6:xx=11 :yy=17:z5:z8:16,5;5;3;"LM":9950&: #n.9020<#:lin=9050Z#:tas=9080x#: #xpar=9070n#:tas=9100#:ag=1:to=0:mu=1:va=7:li=15:z1:xx=11 :yy=8:z5:z7:16,18;5;3;"LM":9950&: #ag=0:to=1:mu=0:tol=25:ra=17:zo=27:lin=9060d#:cal=9110#:z2:yy=0:z6:yy=30:z6:z9:xx=6:yy=18:z5:xx=11 :yy=9 :z4:9950&: #lin=9040P#:par=9080x#:cal=9120#:ag=1:to=0:mu=1:va=7:li=25:z2:yy=0:z6:z9:xx=11 :yy=7:z5:xx=6:yy=18:z4:16,22;5;3;"LM":9950&: #k1=09115# #>6:14,28;"RS";15,28;"SR" #lin=9090#:ag=1:to=0:mu=1:va=10 :li=25:z3:yy=0:z6:yy=30:z6:z7:xx=6:yy=8:z5:xx=11 :yy=18:z4:9950&:16,4;5;3;"LM": #>9050Z#:lin=9100#:par=9130#:cal=9140#: #tas=9120#:par=9160#:cal=9170#:ag=0:to=0:mu=1:va=5:li=13 :z1:z8:xx=11 :yy=18:z4:xx=9 :yy=5:z5:9950&: #.9090#:lin=9120#:cal=9150#: #9115#:lin=9140#: #.9060d#:tas=9130#:cal=9180#: #>9100#:lin=9130#:par=9180#:cal=9190#: #k2=09185# #>6:14,27;"RS";15,27;"SR" #tasTrack-Info  R =9170#:lin=9160#:par=9210#:ag=1:to=1:mu=0:tol=7:ra=3:zo=16:z2:z7:xx=6:yy=17:z5:xx=11 :yy=8:z4:16,20;5;3;"LM":9950&: #>9120#:lin=9170#:par=9200#:cal=9240$: #>9130#:tas=9190#:cal=9250"$:par=9230$: #>9130#:tas=9180#:par=9220$:cal=9230$: $>9185#:tas=9210#:par=9300T$:lin=9310^$: $.9020<#:lin=9210#:tas=9200#: $.9020<#:lin=9190#:tas=92706$: $"lin=9200#:par=9260,$:to=1:ag=0:mu=0:tol=10 :ra=5:zo=25:xx=6:yy=19:z4:xx=11 :yy=10 :z5:z2:yy=0:z6:z7:9950&: $,.9080x#:tas=9250"$:par=9280@$: $6.9080x#:tas=9410$:par=9240$: $@k3=09285E$ $A=6:9 ,15;"RS";10 ,15;"SR" $E.9020<#:lin=9290J$:tas=9260,$: $J?9130#:yy=0:z6:yy=30:z6:cal=9280@$: $T.9060d#:tas=9220$:cal=9400$: $^>9050Z#:cal=9220$:par=9320h$:lin=9340|$: $h.9020<#:tas=9310^$:lin=9330r$: $r(tas=9340|$:k4=09335w$ $s=6:9 ,20;"RS";10 ,20;"SR" $wmu=1:to=0:ag=1:va=6:li=12 :z1:yy=0:z6:yy=30:z6:z8:xx=11 :yy=18:z4:16,4;5;3;"LM":cal=9320h$: $|.9140#:lin=9350$:cal=9310^$: $.9040P#:par=9360$:cal=9340|$: $.9020<#:tas=9350$:lin=9370$: $.9060d#:cal=9360$:tas=9380$: $tas=9390$:par=9370$:to=1:ag=0:mu=0:tol=10 :ra=5:zo=24:2:0,0;"JKFKFG";1,0;"KJFGE";2,0;"GEH":9600%:3;16,0;b$:9950&: $k5=09395$ $<6:14,3;"RS";15,3;"SR" $par=9380$:ag=1:to=0:mu=1:va=7:li=16:z1:yy=0:z6:z7:16,8;5;3;"LM":xx=11 :yy=20:z4:9950&: $ag=0:to=0:mu=1:va=6:li=11 :lin=9300T$:cal=9410$:z2:yy=0:z6:yy=30:z6:xx=6:yy=15:z5:xx=11 :yy=4:z4:z8:9950&: $.9250"$:par=92706$:lin=9400$: %&L6:x1,y1;"kl";x1+1,y1;"mn";x1+2,y1;"uv":5000: %NL6:x1,y1;"_`";x1+1,y1;"ab";x1+2,y1;"cd":5000: %8950":7:2,19;".";2,24;".";5,25;".";1,12 ;".";3,7;".";6,10 ;".";7,7;".";4,15;".";5,21;".":8900":2 %0,26;"CDKFDK";1,27;"CGECD";2,31;"E";3,16;3;"[\";4,16;"]^" % %Idi=di+1:8950":20,18;4;di:8900": &Lqq=16:x1,y1;"kl";x1+1,y1;"mn";x1+2,y1;"uv": &@6:x1,y1;"_`";x1+1,y1;"ab";x1+2,y1;"ij": &H8950":pu=pu+5:20,2;6;pu:8900": PLUS3DOSg(qwgpp  4`@p(P `  4^.Track-Info  R   N(0H((0``c0 V`$0`X,p``x|  ``880@`Pp0p@,ztPLUS3DOS 0:0:0: I9 :1:4,0;:"BB.0":"BB.1":"BB.2":"BB.3"  0:0:46000 PLUS3DOS @ p!=!D>27\>< ִ EJ RAJHQKALBSQCA EJ RAJHQKAL KAFHCM NMPEJ JABEPHLRM EQOSHTALDM A JMQELEKHFMQ.  *BSELA QSEPRE* O-APPHBA M-HUOSHEPDA   A-ABAIM N-DEPECGA  I-ISFAP K-NASQA >_(>2\>2H\>>k >>2>ǯ2^2`2X2_!w#$<  JJATEQ : 0 RHEKNM : 0>2[>2[2[2Z>?2\!A:>G2b2c2R>2T~2?#~2@#~2B#~2F#~2H#~2J#~2L#~2N#~2P#"2 [>2 [ʷ-~:> >>2[>2[>2 [>2 [>2 [Ż:X >2[>2[2 [>2 [>2 [Ż!2͵#>G>O>GI>GtʷZg !͵>W޶ï></:ZO:\G͡ͻ:ZO:\G͡ͻ:Z2Z:Z=O:\G͡ͻ:Z=O:\G͡ͻ:Z2Z:ZO:\:g8:Z2[:\2[>2 [>2 [>2 [Ż:Z2[:\2[>2 [>h2 [>2 [Ż:g82-:@2[:B2[9:F2[:H2[>2 [>2 [>2 [Ż_:@2[:B2[k:F2[:H2[>2 [>2 [>2 [Ż!:>Džo~:N2[:P2[>2 [>2 [>2 [Ż:Z >2Z:><2>W:Z >2Z:>=2>W:\֯ >12\:>2>W:\/Œ>2\:>2>W!:>Džo>w:N2[:P2[2 [>2 [>2 [Ż!2͵#:X<2XǨO+->>>>-:b2f:@2d:B2eͩ:f2b:d2@:e2B:c2f:F2d:H2eͩ:f2c:d2F:e2H:fʹ:f:f:f:dO:eG͡([:d2dC:dO:eG͡(@:e2e^:d=O:eG͡(&:d2dL:dO:e>>>>-:>©:\֟©:Z©#:Z>> >>->p2[>o2[>2 [>2 [>2 [Ż.>=- !  ͵#ִ![K[ͪ"2[4 ݆=8 C []|XW[ [:[:[2[:[2[F 6 F#6 5 ( 5 5 (5 F#6   ( (1|($}( 4 R |W(4  =  F :[~2[: [N Fw# Track-Info  R PLUS3DOS`hd9))/.t'2L@pp?)//.t'2L@ppXX P P +P!Q*~ PD"@@D"++|{ߴo88x;n0 !BBN3n?>||>|>>|PLUS3DOS(Drpr>||vvv||~~`x`~~6pvr>fff~~ff<<<< l|8`````~~Bf~~~fffvv~nnf<~ff~~<|~f~|``<~ff~|:|~f~|lf<~p<~<~~fffff~<ffff~<~~<`~~PLUS3DOS\2?h@_20Oh`O ׵2P?hPo]ձݩQQ2OOh?8YE)H?!o?Ho_?H/*1O_HPݢ0o(xDP(O)A#M*__(Pï0 p_( o oB?_p*)PP_0o++ 0o`(_O`+(_p_#(PP_ !!$(o?*꫊PLUS3DOSLꃃ CARGADOR CM MICROHOBBY ꌌ 65535:menu=6000p n=23296[23312[ c:n,c:n 42*,75K,92\,126~,254,193,40(,6,205,184,25,235,24,245,546,65A,201 Fa$="":23658j\,8 dHa=10 :b=11 :c=12 :d=13 :e=14:f=15 li=1:6000p BUCLE PRINCIPAL  "LINEA",l$:l$=""6000p n=1̱l$ !l$(n)<"0"l$(n)>"9"1001  n:line=l$ Clineli23689\,23689\-1:5000:1000 0" DATOS ";d$ d$=""6000p Ncx=24-23689\:cx,0;d$;cx,21;138;"LINEA ";li &d$205000:1000 n=120 V w$=d$(n) ~Aw$>47/w$<58:w$>64@w$<71G1170 =cx,n-1;1;1;" ":5000:1000 n:ch=0 n=1202 0he=d$(n)*16+d$(n+1):ch=ch+he:n ct=0:"CONTROL ",ct ctch5000:1000  a$=a$+d$ li=li+1:1000 I.2~L,0:254,2:23689\,23689\+1: pMENU PRINCIPAL u?#0;7;1;" INPUT LOAD SAVE Track-Info  R DUMP TEST " i$=:i$=""6100 8i$="I"1000 Bi$="S"7000X Li$="L"8000@ Qi$="T"7500L Vi$="D"9000(# j 6100 X SAVE Y?#0;3;7;" FUENTE(F) OBJETO(O) RETURN(R) " Z(0:"F"Ʀ"O"Ʀ"R"7002Z [="O"7250R \="R":6000p ]SAVE DATA ^a$=""9500%:6000p `li b#a$=¾23670v\+¾23671w\+a$ g5"NOMBRE (Save)",n$:n$=""űn$>10 7015g l n$a$() q#0;6;" DESEA VERIFICAR (S/N) ":0:="S"#0;7;2;" REBOBINE LA CINTA Y PULSE PLAY ":n$a$()::"CODIGO FUENTE: ";n$:200  va$=a$(3):  6000p RSAVE CODE WC3;7;"DIRECCION ";di,3;7;"N.BYTES ";nb \5"NOMBRE (Save)",n$:n$=""űn$>10 7260\ f n$di,nb k#0;6;" DESEA VERIFICAR (S/N) ":0:="S"#0;7;2;" REBOBINE LA CINTA Y PULSE PLAY ":n$di,nb::"CODIGO OBJETO: ";n$'"Inicio: ";di,"Longitud: ";nb:200  p  6000p L TEST Oa$=""9500%:6000p Q:m=1(a$)20 V@a$(mm+19);" ";138;"LINEA ";(m/20)+1 `m:6000p @ LOAD J"NOMBRE (Load)",n$ T n$a$() Y23296[ ^9li=a$(1)+256*a$(2):a$=a$(3) cW:10 ,5;"Ultima linea: ";li-1;11 ,5;"Comenzar por: ";li h 6000p #( DUMPING #+a$=""9500%:6000p #-"DIRECCION ",di: #.di<23653e\+256*23654f\(di+a$/2)>653001;5,6;"ESPACIO DE TRABAJO":n=1200:n::6000p #/\9 ,7;1;"VOLCANDO EN MEMORIA":7,5;"Direccion Inicial: ";di #0F11 ,4;"RESTAN:";11 ,17;"DIRECCIONES" #2 n=1(a$)2 #72di,a$(n)*16+a$(n+1):di=di+1 #:111 ,12 ;(a$/2-n/2);" " #<^n::10 ,8;1;"VOLCADO COMPLETO":n=1100d:n::6000p %SUBRUTINA MEMORIA VACIA %G:#0;1;" NO EXISTE NINGUN CODIGO FUENTE ":300,:: &Q:"CARGADOR"1:#0;"REBOBINE LA CINTA PARA VERIFICAR":"CARGADOR": PLUS3DOS7[ 32000} 0,1,1,2,3,4,3,2,0,6,7,5,3,7,7,5 a64000,64070F,64140,64210,64280,64350^,64420,64490 64000,640557,60584,0,0,60000`,32 ,0,60000`,96`,0,60000`,160,0,60584,224,0,60292,0,32 ,60292,0,96`,60584,0,160,60000`,32 ,160,60584,160,160,60000`,192,160,60000`,96`,80P,60584,160,80P,60000`,192,80P,0 #64070F,64121y,60000`,0,0,60584,64@,0,60000`,96`,0,60584,160,0,60000`,192,0,60000`,0,80P,60584,128,80P,60000`,160,80P,60584,224,80P,60000`,0,160,60584,64@,160,60584,160,160,60000`,192,160,0 (64140,64199,60000`,0,0,60000`,64@,0,60000`,128,0,60584,192,0,60584,224,0,60584,224,32 ,60292,224,64@,60292,224,128,60000`,160,160,60584,128,160,60000`,64@,160,60000`,0,160,60000`,0,80P,60584,64@,80P,60000`,96`,80P,0 -64210,64269 ,60292,0,0,60000`,32 ,0,60000`,160,0,60584,224,0,60584,0,64@,60292,0,96`,60584,0,160,60000`,32 ,160,60584,96`,160Track-Info  R ,60584,128,160,60584,160,160,60000`,192,160,60584,96`,80P,60000`,128,80P,60000`,192,80P,0 2m64280,64323C,60584,0,0,60000`,32 ,0,60000`,160,0,60292,224,0,60292,224,64@,60292,224,128,60584,0,80P,60000`,96`,80P,60584,0,160,60584,96`,160,60584,128,160,0 764350^,64405,60000`,0,0,60292,64@,0,60000`,96`,0,60000`,160,0,60292,224,0,60292,224,64@,60292,224,128,60000`,0,160,60584,64@,160,60000`,96`,160,60000`,160,160,60584,0,80P,60584,64@,80P,60000`,96`,80P,0 <64420,64471,60584,0,0,60584,96`,0,60584,128,0,60584,224,0,60584,0,80P,60000`,32 ,80P,60000`,160,80P,60584,224,80P,60584,0,160,60000`,32 ,160,60000`,96`,160,60000`,160,160,60584,224,160,0 A64490,64537,60000`,0,0,60000`,64@,0,60000`,128,0,60000`,192,0,60000`,0,80P,60000`,64@,80P,60000`,128,80P,60000`,192,80P,60000`,0,160,60000`,64@,160,60000`,128,160,60000`,192,160,0 F 10 P&n=6500065015:a:n,a:n Z 20 dTn=6505065065)2:a:a:n,23670v\:n+1,23671w\:n n a=30 x a:b:c n=bc4 7d:d=0n,0:n+1,0:136 +d:n,23670v\:n+1,23671w\ d:n+2,d:d:n+3,d n $a=a+5:a<70F120x d:10 ,11 ;"PONGA CINTA";12 ,3;1;"DONDE SE SALVO LOS BLOQUES" 3"nombre del bloque ";w$:w$60000`,732 W12 ,9 ;1;"ESTA LA RUTINA ";2;6;"MAPADO" "MAPEADO" :1,0;"Para moverte por el mapa usa lassiguientes TECLAS:"''"5- Para ir a la izquierda"'"6- Para bajar"'"7- Para subir"'"8- Para ir a la derecha"'"0- Para salir"'''"Solo se podra ir para el lado que tenga abertura";21,9 ;"PULSA UNA TECLA":0 a=(*15) 65200,a::65201 0:x$= x$"5"250 ?a=0a=4a=6a=8a=12 205 a=a-1:200 x$"6"300, >a0a1a2a5a8205 a=a+4:200 ,x$"7"350^ 6?a4a5a6a9 a12 205 @a=a-4:200 ^x$"8"400 h@a=3a=5a=7a=11 a=15205 ra=a+1:200 x$"0"205  PLUS3DOS58:,176,254,111o,38&,0,1,232,253,9 ,110n,38&,0,41),1,26,254,9 ,126~,35#,102f,111o,205,203,254 201,94^,35#,123{,182,200,86V,35#,78N,35#,70F,35#,229,205,221,Track-Info  R 254,225,24,238,205,35#,255,229,235,70F 35#,78N,35#,235,197,26,119w,19,44,,16,250,193,125},144,111o,36$,124|,230,7,32 ,12 ,125},198,32 ,111o 230,224,40(,4,124|,214,8,103g,13 ,32 ,224,225,205,62>,255,235,70F,35#,78N,35#,235,197,229,26,119w 19,44,,16,250,225,1,32 ,0,9 ,193,13 ,32 ,239,201,120x,254,192,208,167,31,557,31,167,31,168 230,248,168,103g,121y,7,7,7,168,230,199,168,7,7,111o,201,124|,15,15,15,230,3,246,88X,103g,201 b=0 -n=6520165351G:a:b=b+a:n,a:n *b17722:E"ERROR EN DATAS":0 U:10 ,8;"SALVA LA RUTINA";12 ,6;"CON EL NOMBRE MAPEADO"  "MAPADO"65201,151 ( 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'''''''''