@L}5 _$% l0$)$$Hȱ$ UhL" `e$$%`$%`  R@P!( L(1   Y I`  d  Ld M * @  $ % CC$$)%1 Udߥ$9%: !0 S$% DD˙`  }J)Lr d M * @  $ % CC$$)%1 Udߥ$9%: !0 S$%} DD˙`  }J)Lr J  ((  p L ()   J}L= ( L 0q A    IB JC;? D W } LL  ` W )LA!  ߰")-݆ p" } $G@LL 08`Q")<2Q0 -G$Ș݆ UL# ; p8(()(0ʥ)NQ` }$GȘ݆LU )L ݆ L GȘ ݆LL )W>Z   HH)H }p h  hyhy D L> L JJ    ! LA*` BF }7'8  M HN H` 8 Z  \LdJJ!"! GFE@F (!L }EE !E^ ^ E E7EȩEdE/EȩE  D } .L }  ;F d  ;?F7F? ( .   Z D LL d } . D  L    p  E` , d)  D L) 0BM݊L݉} ML  N݆ L NLML [ TEqEHȱEqEh 0Gȹ G} HLL GɛL  LFREE SECTORS G) *Gȩ GȽG GȌ*jj >G} C8jJ3j2CD( C202C ԠBX` N 1? l LlD:RAMDISK}.COMLu L1 L ;LHL  T`  `8  ɐ     `TU  } L ? .  t`GBJ ~DEHI B V0dV!}QDEHI VF9 ,0 ,0 s0hhL  L` H hDHEh"}DEL8HI4 0 HI,0 0  9 .G VLO#},0 L4*IJ`llD1:AUTORUN.SYSNEED MEM.SAV TO LOAD THIS FILE.D8:MEM.SAV J y08 B|DEHI$} V0 0`B;DEL`?<0LV`@ʆ v s? F0Ξ05: [ BDEHI%} VY8 B V  @  /DE `E:D8:DUP.SYSERROR-SAVING USER MEMORY ON DISKTYPE Y TO &}STILL RUN DOS B;DE J  (` 9 V⪍ ઍ  -'}LLu ÝDEHILV 9 .l 9 .l  `` s$B BH(}I|DE V BLV nB,DE JLV B V BLVDEIʩ BꭝLu } 3E:}DISK OPERATING SYSTEM II VERSION COPYRIGHT 1984 ATARI CORP.A. DISK DIRECTORY I. FORMAT DISKB. RUN CARTRIDG*}E J. DUPLICATE DISKC. COPY FILE K. BINARY SAVED. DELETE FILE(S) L. BINARY LOADE. RENAME FILE M. RUN AT ADDRES+}SF. LOCK FILE N. CREATE MEM.SAVG. UNLOCK FILE O. DUPLICATE FILEH. WRITE DOS FILES P. FORMAT SINGLEL !N',}#"&))9(&*)/h)''-&؆莟R'S  vL/ˢ L }Insert DOS 2.0s, type Y Λx -}DEfHI 1莏#q! @ y0ɛ8A0,' ȅ 1 1ild! 1L!NO SUCH ITEMSELECT.} ITEM OR FOR MENU! 0 .z:*{}.|{ 1 0 0JB 18L%|DL/}%DIRECTORY--SEARCH SPEC,LIST FILE?[# 0 0 &|D3" 1L!NOT A DISK FILEN !B 1L!E# 1 !BD0}ED:}:1BJ|DE 1DEBHI 1 h0ߢ 0.1}  0?詛 1 y0YЛ 1 ;#L" ;#L! BL1TYPE "Y" TO DELETE...DELETE FILE SPEC2}COPY--FROM, TO?OPTION NOT ALLOWED371 FREE SECTORS COPYING---D1:MENUSK.COMl# 0|D .L/%#3}##JB|DE 1BHID#E 1#0: B 1L!#͑### B 1#c$0SY4}S1}:## # # .#Ƚ# # 𩛙## 1,#PD#ELJ- <.BJD#E 5}1 1HH 0hh|DL%1}:̳# L% #D#EL% 1 0 . .0O% 1L!WILD CARDS NOT A6}LLOWED IN DESTINATION 0 <.|K}N 2 FORMAT. t* 5) 1L!`) 0NΞ 0 L1) 1 L!BAD LOAD FILELOAD FROM WHAT FILE?) 0 ?}0#B 1L!WHAT FILE TO LOCK?) 0 0$B 1L!WHAT FILE TO UNLOCK?DUP DISK-SOURCE,DEST DRIVES?TYPE "Y" IF OK TO US@}E PROGRAM AREACAUTION: A "Y" INVALIDATES MEM.SAV.FE! +L1   `*  70 2 2A} 0.* 1 y0 0)INSERT BOTH DISKS, TYPE RETURN^, 1 y038逍 N, 1L! ,B}C, t*  Lx+, 0 ^, 1 y0 , ,0,0 ,L+ ,I0 ,Vǭ0C}Ξ, 0 }, 1 y0C,ШC, 0K'!" H H 'h h Lx+!EF 5L1L!D,I,HhD}` NOT ENOUGH ROOMINSERT SOURCE DISK,TYPE RETURNINSERT DESTINATION DISK,TYPE RETURNE}`  `8 rL1`-* 1P* 1 y0Y`hhL!NAME OF FILE TO MOVE?- 0 0|DL% <.F},^ 1 70 0 .@L# .BJ 1  DEHIB V L1 ,} 1 70,L.  G}JB|,#P#DE 1 HI BDEHHII 1 B 1 ,^ 1 70,0La- B V,#PH},^ 1 70 0L#L!-* 1P* 1 y0Yj383}mm ݭI}}`8}``|* ? ɛ,`|:-)| / 1L!`DESTINATION CANT BE DOJ}S.SYS0 0H{ 24Δ 28/L!/) 2 Π 2 0 ξK}hAΞB,0 J 1 BDEHI,HÝDE 1HIHIDELSAVE-GIVE L}FILE,START,END(,INIT,RUN)O S0 1`BDEPHI V` S0H 1 L!M}0 0 1L~0`PLEASE TYPE 1 LETTER,0`hhL! 70 1L0L<1 ,;ɛ7,"ɛ:ݦ1ݥN}A"D|ݤD|ȩ:|ȩ|ɛ,,(/+.ީ1 1,ɛ`轤{NAMEO} TOO LONG B VL!` L1I H1EΝDL1|mDiE` V0`8d/8 i:222 1 LP}!ERROR- 128ɛ+,' 20*.. өr2 1``2TOO MANY DIGITSINVALID HEXAQ}DECIMAL PARAMETER800 0 8 00`,0'D800 H,ɛh`2L1NEED D1 THRU D8uR} ECIMAL PARAMETER800 0 8 00`,0'D800 H,ɛh`2L1NEED D1 THRU D8u`c0˭1̠,ȩ`˩D̍L)`3antiagode#hile T}%stimado5suario,osprogramasquevienenenesteladodel$)3+%44%sonlistadosU}en!33%-",%2yseincluyen%30%#)!,-%.4%paraloslectores).4%2%3!$/3enestelenguaje3edeV}bencargarenel-!#con,/!$$./-"2%%84,osprograW}masquetienen%84ensiNn32#sepuedencargartantoenel-!#comoenel%$)4/2!33%-",%2con%.4%2$./-"2%X}%84"ien esperamosquelosinvestigueysitienealgunaduda eY}scrGbanoscontodaconfianza.uestradirecciNnes#!3),,! #orreo#enZ}tral2evista34[}!+ `2evista34m$X;*******************************$X;* Cargador de Vidas Infinitas *$X;* para NINJA COMANDO *$X;* ]} *$X;* por: Bill Yesterday *$X;* *$$X;* Revista STAK #6 ^} *.$X;*******************************8X;BX;LX;V X;---------------------------`X; Si tiene cualquier duda ojX; _} consulta, escribanos a:tX;~X; ˠX; ᠵX;  X;------------------- `}--------X;X;EIX;--------------------SETVBV\SYSVBV_WARMSVtX;X;  BEGIN Q>4? a}CONTP ( Q>5?CONT2P <Q>FP PQ>;; No BASIC!!ZPdPnQ>;; No Reboot!xPD$>CLR0;Limpia b} desdeQ>;; $0700 hastaCLR;$BFFFP92HCLR #CLR QCLRR> HCLR0!WARMSV;; Salta a ?CON c}T ?CONTQ>PR;;margen izq.P;;warmstart!!"Q>,P6 PUTMES@$>4MENSAJEJ%>5MENSAJET B^X;hQ> d}rP|Q ESPERAR FESPERA SETVBI$>BQDEVICE;; 0=CASSETTEHDISK;; 1= DISKQ> P! e};; Cassette Boot!DISK!;; Disk Boot! MENSAJE4 A}ҠϠˠA=X;&X;0 f}:X;D SETVBINQ>X $>5NEWVBIb %>4NEWVBIl !SETVBVv SETRUNI Q>4RUNINIP Q>5RUNINIP: NEWVBI g}6 SETRUNI CHECK0 QFLAG FBACK Q>4SYSVBVP" Q>5SYSVBV P#BACK 8* !SYSVBV4X;>X;H X; A h}qui revisa el archivo queRX; esta siendo cargado y si\$X; encuentra la rutina de perdidafX; de vidas, la desactiva...p i}X;z CHECK0Q;;Direccion REAL!R>;;$C6 es DEC HCHECK1Q>;;Reemplaza x LDAP#FLAG;;Cambio listo!! j}CHECK1:X; RUNINI QFLAGHBKR CHECK0 SETVBI BKR :$ X;. X;8 DEVICE;0=CASS 1=DISKB  L FL k}AGV  ` X;j t BEGIN x$X;*******************************$X;* Cargador de Vidas Infinitas *$X;* para EXPLODING WALL *$X;* m} *$X;* por: Bill Yesterday *$X;* *$$X;* Revista STAK #6 n} *.$X;*******************************8X;BX;LX;V X;---------------------------`X; Si tiene cualquier duda ojX;o} consulta, escribanos a:tX;~X; ˠX; ᠵX;  X;-------------------p}--------X;X;EIX;--------------------SETVBV\SYSVBV_WARMSVtX;X;  BEGIN Q>4?q}CONTP ( Q>5?CONT2P <Q>FP PQ>;; No BASIC!!ZPdPnQ>;; No Reboot!xPD$>CLR0;Limpiar} desdeQ>;; $0700 hastaCLR;$BFFFP92HCLR #CLR QCLRR> HCLR0!WARMSV;; Salta a ?CONs}T ?CONTQ>PR;;margen izq.P;;warmstart!!"Q>,P6 PUTMES@$>4MENSAJEJ%>5MENSAJET B^X;hQ>t}rP|Q ESPERAR FESPERA SETVBI$>BQDEVICE;; 0=CASSETTEHDISK;; 1= DISKQ> P!u};; Cassette Boot!DISK!;; Disk Boot! MENSAJE4 A}ҠǠ̠ˠA=X;&X;0 v}:X;D SETVBINQ>X $>5NEWVBIb %>4NEWVBIl !SETVBVv SETRUNI Q>4RUNINIP Q>5RUNINIP: NEWVBIw}6 SETRUNI CHECK0 QFLAG FBACK Q>4SYSVBVP" Q>5SYSVBV P#BACK 8* !SYSVBV4X;>X;H X; Ax}qui revisa el archivo queRX; esta siendo cargado y si\$X; encuentra la rutina de perdidafX; de vidas, la desactiva...py}X;z CHECK0Q;;Direccion REAL!R>;;Resta 1 HCHECK1Q>;;Reemplaza x 0P;;y ya no Resta!#FLAG;;Cambioz} listo!! CHECK1:X; RUNINI QFLAGHBKR CHECK0 SETVBI BKR :$ X;. X;8 DEVICE;0=CASS 1=DISKB{}  L FLAGV  ` X;j t BEGIN){EI#X;------------------------------#X; Efecto "DISOLVE" (Disolucion)X; Por: NEW AGE 92X; Basado en un ju}}ego de ST#X;------------------------------$X; BYTES VBI: 90 (9+81).X; BYTES DL: 5828#X;------------------------------B~}PASS;; INIT(1)LTIME.CTD;; INIT(2)VLINE.CTD;; INIT(193)`CEMPTR.LOjLINDIR.LO;; INIT(?)tCTD.MAX}~LIN.BYTES(FIRSTCEM.LOFIRSTCEM.HI|SETVBV\XITVBVb!X;----------------------------}77>;; HIGH BYTE7?;; LOW BYTE77;; VBI TYPE  !SETVBVX;X; VBI INITS HERE(X;2-< QPASSFHGO;; G}O IF <>0P !XITVBVZGO"TIME.CTDd FDO.VBIn !XITVBVx DO.VBI Q>CTD.MAX PTIME.CTD "LINE.CTD HCONTQ>}PPASS;; FX HAPPY END !XITVBVCONT QLINE.CTD>Q>FIRSTCEM.LOPCEMPTR.LOQ>FIRSTCEM.HIPCEMPTR.LO}LOOP%>"QLINDIR.LO,P@CEMPTR.LO763@QLINDIR.LOJP@CEMPTR.LO7TX;^QCEMPTR.LOh,rO>|DB1#CEMP}TR.LOB1PCEMPTR.LOX;0 HLOOPQLINDIR.LO;S>LIN.BYTESEB2"LINDIR.LOB2PLINDIR.LOX; }!XITVBVX; EL FIN ...1000 ;******************************1010 ;* CURSO DE ASSEMBLER *1020 ;* Leccion 6 *1030 ;* RE}VISTA STAK 1992 *1040 ;******************************1050 ;1060 *= $40001070 INICIO1080 ;MULTIPLICARemos el va}lor1090 ;almacenado en $4500 por 81100 ;y lo guardaremos en $42001110 ;NOTA: un numero se puede1120 ;multiplicar por 8 me}diante1130 ;la multiplicacion por 2. Es1140 ;decir 2*2=4 y 4*2=8 (2*2*2=8)1150 LDA #$10 ; $10 = 161160 STA $45}001170 ;1180 LDA $4500 ; tiene un 161190 ASL A ; * 2, 321200 ASL A ; * 4, 641210 ASL A } ; * 8, 1281220 STA $4200 ; $4200 -> 1281230 ;1240 ;Ahora DIVIDIRemos por 4 el1250 ;valor almacenado en $4600 y l}o1260 ;guardaremos ahi mismo1270 ;NOTA:un numero se puede dividir1280 ;por 4 mediante divisiones por 21290 ;Es decir: n/2}=m y m/2=n/41300 LDA #32 ; 32 = $201310 STA $46001320 ;1330 LSR $4600 ; /2 , 161340 LSR $4600 ; }/4 , 81350 ;1360 ;Y $4600 contiene ahora un 81370 ;A fin de ver los resultados,1380 ;revisar STAK #3 (pag.21) para1390 ;}usar el comando (D)isplay del1400 ;EDITOR ASSEMBLER y MAC651410 ;1420 RTS 1430 ;Cambiar RTS por BRK si utiliza1440 ;}el EDITOR ASSEMBLER1450 ;1460 *= $02E01470 .WORD INICIODN$X;$X;| |$X;| A N G E L A Z U L |$X;| } |$X;| Por: Rod Rubber |$X;| Bill Yesterday |$$X;| } |.$X;| Revista STAK #6 |8$X;| |B$X;|(Aprovechen de programar en |L$X;| esta}s vacaciones de verano!)|V$X;| |`$X;jEItX;~PMBASE`}VPOSP0PMBASEVPOSP1VPOSP0VPOSP2VPOSP1VPOSP3VPOSP2 HPOSP0`HPOSP1HPOSP0PIEZA.PT}RFNT.PTRPTR.PANT.FINVCOUNT NUEVOSET.CARLINEA.FIN BLK CONSOLATECLA.HE}LPX;(@2MATRIZ.ORIGINAL< =======F =======P =======Z  =} = = = = = = d  =n ========x ======== ========} = = = = = =  JUEGAN  REG.X TIMER.VBI TIEMPO.CURSOR TABLA.CURSOR ====== =}  == = ====IND.TABLA.CURSOR  JOYS.X  JOYS.Y  JOYS.M FLAG.JOYS JUGADOR }CARACTER.IND "AUXILIAR.VBI ==,AUXILIAR 6PUNTAJE.PIEZA @MEJOR.OPCION JMEJOR.OPCION.IND TFLA}G.SONIDO ^SONIDO.IND hTAB.COLOR =E==8=rCOLOR.PLOT |TABLA.LINEA.0 ==== ===}= ==== ====TAB.SONIDO.F =======TAB.SONIDO.C ======}== A A COUNTER A000AX;DL p=p= B LINEA.0& 0 p=: DD MATRIZ.SCRN ==}=X ===b ===l ==v P==O LINEA.FIN BLK==BLK==BLK= BLK==BLK==BLK=} BLK==A DLX;L.COMPUT ACOMPUTADOR:AL.JUGADO A JUGADOR 2:A7LINEA.0 A ANGEL AZUL por Rod R. y Bil}l Y. 1992 A A JUGADOR 1: ACONTADOR.1 A000 JUGADOR 2: ACONTADOR.2 A000 A X; PARTIDA Q>*} PJUEGAN4Q>>PFLAG.JOYSH$> R C.P.1\QL.COMPUT9fPCONTADOR.1 9p0z IC.P.1 C.P.P$>  QCONSOLA}R>HSIGUE.C.P QJUEGANN> PJUEGANHES.CERAPIO C.P.2QL.JUGADO9PCONTADOR.1 90 IC.P.2 !SI}GUE.C.P ES.CERAPIO$ QL.COMPUT9. PCONTADOR.1 98 0B IES.CERAPIOL SIGUE.C.PV QCONSOLA` R>j FSIGUE.C.Pt Q}~ FNOS.JUIMOS Q HC.P.P Q> PFLAG.JOYS NOS.JUIMOS : X; NUEVO.JUEGO Q> P;;SONIDO OFF Q>} P;;SONIDO OFF X; X; CREAR MATRIZ JUEGO %>? CICLO.COPIAR.MATRIZ( QMATRIZ.ORIGINAL82 PMATRIZ.JUEGO8< 1F }ICICLO.COPIAR.MATRIZP X; DESORDENAR MATRIZ JUEGOZ %>?d CICLO.DESORDENARn QMATRIZ.JUEGO8x PAUXILIAR Q Ҍ M>?} > QMATRIZ.JUEGO9 PMATRIZ.JUEGO8 QAUXILIAR PMATRIZ.JUEGO9 1 ICICLO.DESORDENAR Q>? PJOYS.M Q> P}JOYS.X CICLO.PANTALLA Q> PJOYS.Y" CICLO.DOS, X; JSR CALCULO.VECTOR6 %JOYS.M@ QMATRIZ.JUEGO8J PCARACTER.}INDT HSIGUE.CICLO.DOS^  FONDO.SUPERMANh SIGUE.CICLO.DOSr  RUTINA.PIEZAS| "JOYS.M "JOYS.Y ICICLO.DOS "JOYS.}X ICICLO.PANTALLA Q> PJOYS.M PJOYS.X PJOYS.Y : X; X; FONDO.SUPERMAN , QJOYS.M O>  PCARACT}ER.IND& :0 X;: CALCULO.VECTORD Q>4MATRIZ.SCR N PPIEZA.PTRX Q>5MATRIZ.SCR b PPIEZA.PTRl $JOYS.Xv CICLO.}C.V FSALE.C.V QPIEZA.PTR , O>P PPIEZA.PTR DNO.C.V #PIEZA.PTR NO.C.V 0 !CICLO.C.V SALE.C.V } QJOYS.Y T? , OPIEZA.PTR PPIEZA.PTR DNO.C.V.2* #PIEZA.PTR4 NO.C.V.2> :H X;R RUTINA.PIEZAS\  CALCUL}O.VECTORf QCARACTER.INDp M>z > QCARACTER.IND M> PCARACTER.IND %> QSUP.IZQ9 LCARACTER.IND P@PIEZA}.PTR7 3 QSUP.DER9 LCARACTER.IND P@PIEZA.PTR7 %>( QINF.IZQ9LCARACTER.INDP@PIEZA.PTR73$ QINF.DER9}.LCARACTER.IND8P@PIEZA.PTR7B:LX;VMUEVE.DATOS.FONTS`X;j%>t$>~ MVFNT.1MV1QFONT.19TO1PNUEVOSE}T.CAR9TO2PNUEVOSET.CAR92 HMVFNT.1 #MV1 #TO1 #TO21 HMVFNT.1X;%>$>  MVFNT}.2MV.2QFONT.29TO.1PNUEVOSET.CAR9(22 HMVFNT.2< #MV.2F #TO.1P1Z HMVFNT.2dX;n:xX;BO}RRA.PUNTAJESX;Q>PCONTADOR.1PCONTADOR.2X;$> BORRA.CNTQ>PCONTADOR.19PCONTADOR.29}0IBORRA.CNT:X;INICIALIZAR"X;, BORRA.PUNTAJES6Q>@PJPTX;^$>hBORRA.LINEA.FINrQ>|}PLINEA.FIN9PLINEA.FIN9PMATRIZ.SCR9PMATRIZ.SCR9PMATRIZ.SCR92HBORRA.LINEA.FINX; ESP}ERA.0 QVCOUNT HESPERA.0X; Q>4DLP0 Q>5DLP1$>&PONER.COLORES0QTAB.COLOR9:P9D0NIPON}ER.COLORESXQ> bPCOLOR.PLOTlX;vX; SETEAR DLI Q>4DLIP Q>5DLIPQ>PԼX; SETEAR VBI $>5V}BI %>4VBIQ> \:SONIDO.CURSORQ> PFLAG.SONIDO: X;*X;4CICLO.PRINCIPAL>Q>HPTECLA.HELP}RQ\FCICLO.PRINCIPALf QJOYS.XpT?zT?T??$>CICLO.REVISA.1QMATRIZ.JUEGO8HPUEDE.JUGAR.13}0HCICLO.REVISA.1!FINALIZAR.JUEGOPUEDE.JUGAR.1QTECLA.HELPFNO.TECLA.HELP.1!ABORT.HELPNO.TECLA.HELP.}1Q$FAPRETO.BOTON.1.Qx8R>BHNO.DERECHA.1L DERECHAV QJOYS.Y`R>jFPUEDE.JUGAR.1t #JOYS.Y~ #JOYS}.M SONIDO.CURSOR MOVER.DERECHA!PUEDE.JUGAR.1NO.DERECHA.1R> HPUEDE.JUGAR.1 QJOYS.YFPUEDE.JUGAR.}1 "JOYS.Y "JOYS.M SONIDO.CURSOR MOVER.IZQUIERDA!PUEDE.JUGAR.1 X;X;APRETO.BOTON.1( %JOYS.M2QMA}TRIZ.JUEGO8<PPUNTAJE.PIEZAFFPUEDE.JUGAR.1PQ>ZPMATRIZ.JUEGO8d PJUGADORnX; JSR SONIDO.MOVERx FONDO.SUPERM}AN RUTINA.PIEZAS RUTINA.PUNTAJEX;X;X; JUGADOR #2 %JOYS.Y$>CICLO.REVISA.2QMATRIZ.JUEGO8HP}UEDE.JUGAR.2C,O>?0HCICLO.REVISA.2"!FINALIZAR.JUEGO,PUEDE.JUGAR.26 QJUEGAN@ FJUEGAN.2J!RUTIN}A.COMPUTADORTX;^X;h JUEGAN.2rQTECLA.HELP|FNO.TECLA.HELP.2!ABORT.HELPNO.TECLA.HELP.2$FLAG.JOYSQ9}FAPRETO.BOTON.2Qx9R>HNO.ARRIBA ARRIBA QJOYS.X FJUEGAN.2 "JOYS.X; QJOYS.MS> PJOYS.}M& SONIDO.CURSOR0 MOVER.ARRIBA: !JUEGAN.2D NO.ARRIBANR> X HJUEGAN.2b QJOYS.XlR>v FJUEGAN.2 #JOYS.X}, QJOYS.MO> PJOYS.M SONIDO.CURSOR MOVER.ABAJO !JUEGAN.2X;X;APRETO.BOTON.2 %JOYS.MQMA}TRIZ.JUEGO8PPUNTAJE.PIEZA  FJUEGAN.2Q> PMATRIZ.JUEGO8*Q>4 PJUGADOR>X; JSR SONIDO.MOVERH FONDO.SUPE}RMANR RUTINA.PIEZAS\ RUTINA.PUNTAJEf!CICLO.PRINCIPALpX;zX;RUTINA.PUNTAJE D;; Limpia FR0QPUNTAJE.PIE}ZAM>PԶ ;; Entero a FP ;; FR0 a FR1X;$> LLENA.FR0 QPTJE.19 %JUGADOR FSIGA.FR0 QPTJ}E.29 SIGA.FR0P9$0.ILLENA.FR08X;BQPUNTAJE.PIEZAL GRESTAVSUMA` f;;FR0 + FR1j !SALVA.FPt RESTA~} `;;FR0 - FR1X; SALVA.FP$> LLENA.FP2Q9 %JUGADOR HSIGA.FP2 PPTJE.19 !SIGA.FP3 SIGA.FP2 P}PTJE.29 SIGA.FP30 ILLENA.FP2X; FP.ASCII(Q>;; Espacio2%<IGUARDA.SIGNOFQ> ;; Signo MenosPGUARD}A.SIGNOZPCOUNTERd ;; Floating-ASCIInQ>x PCOUNTERPCOUNTERPCOUNTER%> CHECK3Q8 I}CHECK$>CHECK2Q8R>-;; Es signo -?FCHECK3;; No lo queremosM>;S>  PCOUNTER9 CHECK30" G}ATLAST,16 ICHECK2@ ATLASTJX;TRETORNA.AL.FIN^%>hCOPIA.CONTADORrQCOUNTER8| $JUGADORHCOPIA.CNT.1}PCONTADOR.18;;PTJE 1!COPIA.CNT.2COPIA.CNT.1PCONTADOR.28;;PTJE 2COPIA.CNT.21ICOPIA.CONTADOR }POR.FIN-:X;X;FINALIZAR.JUEGOX; JSR SONIDO.FINX; JSR PLAYOFF&Q>0P:PDPCOLOR.PLOTN} QUIEN.GANAX PLOTEA.MENSAJEb$> lCOLOR.MEN.12v#COLOR.PLOT WAIT WAIT0HCOLOR.MEN.12Q>PP} ESPERA.2QR> HESPERA.2X;ABORT.HELPQ> PP $> *COLOR.MEN.04"COLOR.PLOT> WAI}TH WAITR0\HCOLOR.MEN.0fX;p FRANJAS.CIERRANzX; !RE.STARTX;X;QUIEN.GANA$> Q.GANA1QCONTA}DOR.29,O> PCOUNTER90 IQ.GANA1X;Q>4COUNTERPQ>5COUNTER$P.Q>8PB ;;} ASCII  FPL ;; FR0  FR1VX;`$>j Q.GANA2tQCONTADOR.19~,O> PCOUNTER90 IQ.GANA2X;Q>}4COUNTERPQ>5COUNTERPQ>P ;; ASCII  FP `;; FR0 - FR1  ;; FP  INTX;X;SI }$D4=0 EMPATE(X;SI $D4>127 GANA JUGADOR 22X;SI $D4<128 GANA JUGADOR 1<:F#X;------------------------------P X; PLOTEA }MENSAJE A ANTIC 15Z#X;------------------------------dX;nPLOTEA.MENSAJExX;X;$>MEN.GANADORQGANA.JUGADOR}.?9PMENSAJE.LINEA92(>HMEN.GANADORX;Q>;; NUMERO UNO (1)%FHAY.EMPATE)> DGANA.1Q>};; NUMERO DOS (2) GANA.1"PMENSAJE.LINEA$,HPLOT.EA;; VAYA SIEMPRE!6X;@HAY.EMPATEJMEN.EMPATET QEMPATE9^}PMENSAJE.LINEA 9h2r(>|HMEN.EMPATEX; PLOT.EA%>'INDICE.MENSAJEX; OTRO.CHARQ>PAUX$}INDICE.MENSAJEQMENSAJE.LINEA9T? UAUX;;*2T? UAUX;;*4 T? UAUX;;*8& X;0 PVECTOR.CHAR: ,D QAUXN O}>X PVECTOR.CHARb X;l Q>4LINEA.FINv PPTR.PANT.FIN Q>5LINEA.FIN PPTR.PANT.FIN X; $> PLOTEA VEC}TOR.CHARQ9 P@PTR.PANT.FIN7 , QPTR.PANT.FIN O>( PPTR.PANT.FIN DSIGUE.00 #PTR.PANT.FIN! SIGUE.00 !}2!(> ! HPLOTEA*!X;4!#INDICE.MENSAJE>!3H!)>(R!HOTRO.CHAR\!X;f!:p!X;z! AUX !INDICE.MENSAJE !X;!GAN}A.JUGADOR.?!$ AG A N A D O R J U G A D O RA! EMPATE! AE M P A T EA!X;!RUTINA.COMPUTADOR!Q>!PME}JOR.OPCION! %JOYS.Y!$>!CICLO.BUSCAR.P"QMATRIZ.JUEGO8"FSIGUE.BUSCANDO"GSIGUE.BUSCANDO$"RMEJOR.OPCION."DS}IGUE.BUSCANDO8"PMEJOR.OPCIONB"&MEJOR.OPCION.INDL"SIGUE.BUSCANDOV"C`",j"O>t"?~"2"(>"HCICLO.BUSCAR.P"QME}JOR.OPCION" HENCONTRO"Q>"PMEJOR.OPCION" %JOYS.Y"$>"CICLO.BUSCAR.N"QMATRIZ.JUEGO8"IBUSCAR.OTRO"M>}#RMEJOR.OPCION #EBUSCAR.OTRO#PMEJOR.OPCION#&MEJOR.OPCION.IND(#BUSCAR.OTRO2#C<#,F#O>P#?Z#2d#(>n#HCICLO}.BUSCAR.Nx# ENCONTRO# QJOYS.X#RMEJOR.OPCION.IND#EHACIA.ARRIBA#HACIA.ABAJO#QMEJOR.OPCION.IND#;# SJOYS.X# P}REG.X#CICLO.MOVER.A# SONIDO.CURSOR# MOVER.ABAJO# #JOYS.X# QJOYS.M$,$O>$ PJOYS.M"$ "REG.X,$HCICLO.MOV}ER.A6$!APRETO.BOTON.2@$HACIA.ARRIBAJ$ QJOYS.XT$;^$SMEJOR.OPCION.INDh$ PREG.Xr$CICLO.MOVER.B|$ SONIDO.CURSOR$ }MOVER.ARRIBA$ "JOYS.X$ QJOYS.M$;$S>$ PJOYS.M$ "REG.X$HCICLO.MOVER.B$!APRETO.BOTON.2$X;$X;$DLI$5}%A%5%$>&% T.CLR0%QTABLA.LINEA.09:%P D%PN%Q> X%Pb%0l% IT.CLRv%Q%P Ԋ%PД%Q%P Ԩ%P}в% Q>4DLI.2%P% Q>5DLI.2%P%7%>%7%9&X; & DLI.2&5 &Q>5NUEVOSET.CAR*&P 4&P >& Q>4DLI.3H&P}R& Q>5DLI.3\&Pf&7p&9z&X;& DLI.3&5&Q>5NUEVOSET.CAR&P Ԭ&P Զ& Q>4DLI.4&P& Q>5DLI.4&P&7}&9&X;& DLI.4'5'Q>'P $'P.'QCOLOR.PLOT8'PB' Q>4DLIL'PV' Q>5DLI`'Pj'7t'9~'X;'VBI'Q>}'PM'Q>'P'#TIEMPO.CURSOR'QTIEMPO.CURSOR'R>'HSIGUE.VBI'Q>'PTIEMPO.CURSOR'#IND.TABLA.CURSOR(}QIND.TABLA.CURSOR (R>(HSIGUE.VBI(Q>((PIND.TABLA.CURSOR2( SIGUE.VBI<($IND.TABLA.CURSORF(QTABLA.CURSOR9P(P}Z(Pd(QFLAG.SONIDOn(FVER.SONIDOx( SONIDO.ON(Q>(PSONIDO.IND(PFLAG.SONIDO(VER.SONIDO(QSONIDO.IND( G}SONIDO(>(QTAB.SONIDO.F9(P(QTAB.SONIDO.C9(P(2((>) HSONIDO.1)Q>)P")P,)$>6) SONIDO.1@})&SONIDO.INDJ) SONIDOT)!b^)X;h)X;r)PLAYONQ>|)PІ):)PLAYOFFQ>)PФ):) PLAYEON)Q>.)P/)P}) Q> ;;OOJO) PVPOS) Q>HPOSP0) PHPOS0) Q>HPOSP1* PHPOS1*Q>`*PPOS.FRANJA.1&*P0*Q>:*PPOS.FRANJA.2D*P}N*Q>X*Pb*P l*Q>v*P Ѐ*P Њ*Q>*P*P*Q>*Po*X;* Q>5PMBASE*P* PT2*X;*$>}*%>+ZERO +Q>+T2PPMBASE9 +2*+ HZERO4+ #T2>+1H+ HZEROR+X;\+ SHAPEf+X; JSR PLAYONp+:z+X;+ SHAPE+}$>+SHP1+ QDATA9+PVPOSP0 9+ QDATA29+PVPOSP1 9+2+(> + HSHP1+X;+$>+FRANJA.PLY,Q>,PVPO}SP2 9,PVPOSP3 9$,2.,(>@8,HFRANJA.PLYB,:L,X;V,X;`,X;j,MOVER.DERECHAt,%>~,R.1, #HPOS0, #HPOS1, MO}VHORIZ,1,HR.1,R.2,:,X;,MOVER.IZQUIERDA,%>,L.1, "HPOS0- "HPOS1 - MOVHORIZ-1-HL.1(-L.22-:<-}X;F-MOVER.ABAJOP-Q>Z- PCOUNTd-DD00n- #VPOSx- QVPOS-,-O>-?-$> - DDOWN- QVPOSP08-PVPOSP08- QV}POSP18-PVPOSP18-1-0- IDDOWN- WAIT. "COUNT. HDD00. DBACK".:,.MOVER.ARRIBA6.Q>@. PCOUNTJ.UU00T. }UU001^. "VPOSh. %VPOSr.$> |.UPUP.QVPOSP08. PVPOSP08.QVPOSP18. PVPOSP18.3.0. IUPUP. WAIT. "CO}UNT. HUU00. UPBACK.:.WAIT/Q/W.0/R&/FW.00/::/ MOVHORIZD/ QHPOS0N/PX/ QHPOS1b/Pl/ WAITv/:}/X;/FRANJAS.ABREN/ PLAYON/$>"/ ABRE.FRJ/QPOS.FRANJA.1/P/QPOS.FRANJA.2/P/ WAIT/"POS.FRANJA.1}/#POS.FRANJA.2/00 HABRE.FRJ 0:0X; 0FRANJAS.CIERRAN*0X;40$>">0CIERRA.FRJH0QPOS.FRANJA.1R0P\0QPOS.FRAN}JA.2f0Pp0 WAITz0#POS.FRANJA.10"POS.FRANJA.2000HCIERRA.FRJ0:0X;0 START0 MUEVE.DATOS.FONTS0 RE.START}0 INICIALIZAR0 PLAYEON0 PLAYON0 NUEVO.JUEGO0 PARTIDA1 FRANJAS.ABREN1 MOVHORIZ1!CICLO.PRINCIPAL$1X;.1}DATA81! =========B1 DATA2L1! =========V1X;`1 HPOS0 j1 HPOS1 t1 VPOS 8~1}POS.FRANJA.1 1POS.FRANJA.2 1 COUNT 1$X;-------------------------------1TABLA.CARACTERES1$X;------------------}-------------1 SUP.IZQ1' 4=!=#=%=&=(=(=*=(=(=,=,1SUP.IZQ.SUPERMAN1  = = = = = = = 1  =@=A=B}=D=A=A=F1  =@=A=K=M=A=A=F1  =S=U=W=Y=[=]=F2  ===?=A=C=E=G=I 2 Y=[=]=_=Q===2 } =====`=b=d2  =r=t=u=w=u=y={(2 SUP.DER22' 8="=$=$='=)=)=+=$=$=-=.<2SUP.DER.SUPERMANF2  }= = = = = = = P2 <=A=A=C=E=A=A= Z2 <=A=A=L=N=A=A= d2 <=T=V=X=Z=\=^= n2 <=>=@=B=D=F=}H= x2 Z=\=^=====2 =====a=c= 2 =s=u=v=u=x=z= 2 INF.IZQ2' 5=/=1=3=5=7=1=8=}1=7=:=:2INF.IZQ.SUPERMAN2  ===>=>=>=>=>=?2  =@=A=G=I=A=A=F2  =@=A=O=Q=A=A=F2  =_==}==== 2 J=L=N=P=R=Q=U=W2 = = =====2  =e=g=i=k=m=o=q2  = = = = = = = 3  }INF.DER3' 9=0=2=4=6=4=4=9=4=4=;=93INF.DER.SUPERMAN"3 <=>=>=>=>=>=>= ,3 <=A=A=H=J=A=A= 63  }<=A=A=P=R=A=A= @3 <=A===== = J3 K=M=O=Q=S=T=V=XT3  = = ===== ^3 =f=h=j=l=n= }p= h3  = = = = = = = r3X;|3X;3 FONT.13X;3 =======3 U===}=}===3 V==~= }~=~=~=~=~3 U==u=u=w===u3 V==^=^====^3 U==u=u=w===}3 U==w=w=w=w=w=u3  }V=======^3 U==u=u=w=w=w=u3 V==^=^====^3 U==u=u=w=w==4 V==^=^==}==4 U==w=W=W=w=w=w4 V===V=V=v=v=v&4 V===^=^===04 ====}=}==j:4 ~=~=}~=~=^=^==D4 u=w=w=w=u=u==jN4 ^====^=^==X4 }===w=u=u==jb4 ^====^=^==l}4 u=======jv4 ^=======4 u===w=u=u==j4 =======j4 ====}===4 w=w=w=w=w=w==j4 v=v=v=V=V===4 =======4 ==?=?=?=?=?=?4 =}======4 =======4 ?=?=?=?=?=?=?=?4 =======4 =======}4 ======= 5 ======= 5 ===?====5 ======= 5 ===}====*5 =$==V=U=U=i=R45 %====U=U=V=X>5 C=S=P=P=P=P==`H5 =======R5 }=U=U=U=U==U=P\5 =U=====U=f5 =Q=U=U=U=f=W=Wp5 =======z5 V=U==U=e=I=}`=P5 ==U==U=U=V=5 W=W=[=k=k==[=[5 ?=?=?=?=?=?=?=<5 ======?=5 ==}=====5 =======5  =======5 Z=V=U=U====5 U=U==U=U===5} [=X=V=T=R===5 =======5 =?=== ===5 ====?===6 =====}==6 ?=3=?==?=?==6 =======$6 =======.6 ====j=j==86 =}======B6 ==U=U=U===L6 ==J=Z=U===V6 ====V===`6 =======}j6 =======?t6 =(= = ====~6 =======6!X;----------------------------6 FONT.2}6X;6 =====?=0=ð6 =======6 =======6 =====0==6 ==}=?====6 =======6 =======6 ==U=====6 ==Z=T===X=k7} ======= 7 =======7 ===?=?=?=?=7 =======(7 =====}==27 =======3<7 =======F7 =======P7 =======Z7 = }======d7 ==0=<====?n7 ?=======x7 =======7 =======!}7 =?======7 ?=======7 =?====?==7 =======7 <===="}?===?7 =====0==7 0=<=?=?==0==7 =======7 == = = ===7 #}=======*7 ?==?=====7 ====?===8 =======8 ======$}=8 ===?===="8 =======,8 =======68 =======@8 ?=?=?=%}====J8 ?=?=?=====T8 =======^8 =======h8 ==0= ====r8&} ======?=|8 =======8 ======U=U8 ?=?=?=?==O=`=j8 ====='}==*8 =?=?=?=?=?==8 =======8 =======8 =======8 *=*=(}*=*=(=#==8 =?======8 =======8 =======8 =======)}8 #=(==*=*="==*9 ==<=====9 U=U=U=U==== 9 J=J=n=b=J===*&9 *=*===*}===09 =======:9 =====>==D9 =======N9 ==*=*=*=*==X9 =+}======(b9 ====:==*=l9 (======"=v9 =======9 *=*=*=*=*=*=*,}=(9 ====== =9 =======9 *=*=*==<===9 *==== ===9 ===-}====*9 =======9 ======?=9 =======9 *=*=*=*====9 .}=======9 =======9 =======: *=*=*=*=*=*== : =====/}==: ====?=?== : =======*: =======4: ====?===>: ==0}=====H: =====*==R: ==*=====\: =======f:X;p:Pz:MATRIZ.SCR:1}  :MATRIZ.JUEGO: @: PTJE.1: : PTJE.2: :MENSAJE.LINEA:: STARTe1002 ;1004 DELTA.X.INICIO = 101006 DELTA.Y.INICIO = 01008 POS.PALETA.INICIO = 1041010 POS.PELOTA.X.INI = 1101012 POS.PEL!3}OTA.Y.INI = 1931014 POS.PELOTA.MATRIZ.INI = 1551017 BOTON = 6441018 ;1420 ;1860 TOTAL.LADRILLOS .BYTE 02710 RE.COMIENZO!4}2715 JSR PONE.LADRILLOS2750 JSR AJUSTA.PAL.PEL2800 ;2810 JSR LEE.BOTON2900 ;3320 ;4270 ;4280 AJUSTA.PAL.P!5}EL4282 LDA #DELTA.X.INICIO4284 STA DELTA.X4286 LDA #DELTA.Y.INICIO4288 STA DELTA.Y4290 LDA #POS.PALE!6}TA.INICIO4292 STA POS.PALETA4294 LDA #POS.PELOTA.X.INI4296 STA POS.PELOTA.X4298 LDA #POS.PELOTA.Y.INI430!7}0 STA POS.PELOTA.Y4302 LDA #POS.PELOTA.MATRIZ.INI4304 STA POS.PELOTA.MATRIZ4306 LDA #04308 STA INDICE!8}4310 STA DIRECCION.PEL4314 LDX #14316 JSR VER.ANGULO.SALIDA4318 RTS 4320 LEE.BOTON4322 LDA BOTON !9};Presionado=04324 BNE LEE.BOTON4326 RTS 4359 ;4360 ELIMINA.LADRILLO4380 LDX MATRIZ.AUXILIAR4400 LDA #0!:}4420 STA MATRIZ,X4440 JSR SACA.LADRILLO4445 DEC TOTAL.LADRILLOS4450 BEQ EXITO4460 RTS 4480 EXITO448!;}2 JSR UN.SEGUNDO4490 JMP RE.COMIENZO4500 RTS 4502 ;4504 UN.SEGUNDO4506 LDA #1804508 STA 204510 SOL!<}O.14512 LDA 204514 BNE SOLO.14516 RTS 4782 JSR UN.SEGUNDO4800 ;4802 ;4804 ;4840 JMP FUFA5740 !=} JSR ELIMINA.LADRILLO6020 JSR ELIMINA.LADRILLO6880 JSR ELIMINA.LADRILLO7160 JSR ELIMINA.LADRILLO8220 JSR !>}ELIMINA.LADRILLO8540 JSR ELIMINA.LADRILLO9320 JSR ELIMINA.LADRILLO9640 JSR ELIMINA.LADRILLO011100 ;012140 !?}STA MISSILS+POS.PELOTA.Y.INI,X012240 ;012440 ;012480 ;014180 ;014200 ;014240 LDA #0014260 STA 559014280 STA $D4!@}00014540 ;014720 ;015740 LDX #79015760 P.MAT015780 LDA LADRILLOS,X ; llena015800 STA MATRIZ,X ; matriz015820 D!A}EX 015840 BPL P.MAT015860 ;016045 ;----------------------------016050 ; 'ESTAMPA' LADRILLOS EN LA016054 ; PANTALLA, DE!B} ACUERDO A LA016056 ; TABLA 'LADRILLOS'016058 ;----------------------------016224 BEQ P.L00 ; 0= NO ladrillo01622!C}8 INC TOTAL.LADRILLOS016232 P.L00016780 SACA.LADRILLO016782 ;-----------------------------016784 ; CALCULA POSICION EN !D}PANTALLA016786 ; PARA SACAR EL LADRILLO, A016788 ; PARTIR DE LA FILA Y COLUMNA016790 ; EN QUE SE ENCUENTRA ESTE.016792!E} ;-----------------------------016800 ;016820 LDA MATRIZ.AUXILIAR016840 STA C.OL016860 LDA #0016880 STA F.IL016!F}900 CALC016920 SEC 016940 LDA C.OL016960 SBC #8016980 BCC OUT017000 STA C.OL017020 INC F.IL017040 BNE CA!G}LC017060 OUT017080 ;017100 LDA #0017120 STA AUXF.2017140 CLC 017160 LDA F.IL017180 ASL A ; * 2017200 !H} ASL A ; * 4017220 ASL A ; * 8017240 STA AUXF.1017260 ASL A ; * 16017270 ROL AUXF.2017280 A!I}SL A ; * 32017300 ROL AUXF.2017320 ADC AUXF.1017340 STA AUXF.1 ; = * 40017360 CLC 017380 LDA C.OL01740!J}0 ASL A ; multiplica017420 ADC C.OL ; por 3017440 ADC AUXF.1017460 STA AUXF.1017480 BCC XXX017500 !K} INC AUXF.2017520 XXX017540 CLC 017560 LDA # PANTAL!L}LA+44017640 ADC AUXF.2017660 STA PT.F+1017680 CLC 017700 LDA # FONDO+44017780 ADC AUXF.2017800 STA PT.T+1017820 ;----------------------------017840 ; Finalmente reemp!N}laza fondo017860 ; por ladrillo y retorna017880 ;----------------------------017900 LDY #2017920 S.DOS017940 LDA (!O}PT.F),Y017960 STA (PT.T),Y017980 DEY 018000 BPL S.DOS018020 RTS 018180 ;018200 ;----------------------------01!P}8202 ; Matriz de Ladrillos de018204 ; Prueba018206 ; 0 = fondo018208 ; 1 = ladrillo018210 ;--------------------!Q}--------018220 LADRILLOS018240 .BYTE 0,1,0,1,0,1,0,0018260 .BYTE 0,1,0,1,0,1,0,0018280 .BYTE 0,1,0,1,0,1,0,0018300!R} .BYTE 0,1,0,1,0,1,0,0018320 .BYTE 1,0,0,1,0,0,1,0018340 .BYTE 1,0,0,1,0,0,1,0018360 .BYTE 0,0,0,0,0,0,0,0018380 !S} .BYTE 0,0,0,0,0,0,0,0018400 .BYTE 0,0,0,0,0,0,0,0018420 .BYTE 0,0,0,0,0,0,0,0018500 ; _UAEI$X;$X;| " DEMO INQUIETO " |$X;| Creado por: |$X;| %U} N I C O L A S L O I R A |$X;| en Diciembre de 1992 |$$X;| para el Diskette N-6 |.$X;| de la Revist%V}a STAK |8$X;| (para cualquier duda sobre |B$X;| este DEMO comunicarse con |L$X;| el autor a la direccion |V$X;%W}| usual (STAK)) |`$X;j PUN5tP~VBI MOVBARRAS $POS0(> H%X}CONTINUAQF1HCONTINUA2Q>PF1$> VUELTA QPOSIDA9P9 PPOS09  QIDA9P9P9(22(>%Y}< HVUELTAF !ALFINP CONTINUA2ZQ>dPF1n$>x VUELTA2 QPOSIDA9P9 PPOS09 QVUEL9P9P9%Z}2(> HVUELTA2 !ALFINCONTINUA#POS0 #POS1 "POS2 "POS3$> VUELTA3" QPOS09,P962@(>J%[} HVUELTA3T ALFIN^ QSCROLLhR>rHSI1|Q> PSCROLLPԚ%> Q@PUN57R> FALLAGA#MEN #MEN2%\} #PUN5HSI1 #MEN #MEN2 #PUN5SI1 $SCROLL&& "SCROLL0SI2:$CO2D FBAJAN$CO3X &B%]}LANb TBLANl TBLANv TBLAN TBLAN2(> HPASOQ>PCO2!SI5PASO&CO3SI5!b ALLAGA%^}Q>4MENSAJEPMEN  PMEN2 PPUN5 Q>5MENSAJE* PMEN4 PMEN2> PPUN5H!bRBAJA\$CO3f &BLANp TBL%_}ANz TBLAN TBLAN TBLAN0 GPASO2&CO3!SI5 PASO2Q>PCO2!SI5 CO2  CO3  POS0 P %`}POS1 T POS2  POS3 $ POSIDA P=T==. F1 8 IDA s=x=E=JB VUEL E=J=s=xL SCROLL V X` M%a}ENSAJEj  A At N AHOLA AMIGOS................ESTE ES MI NUEVO 'DEMO INQUIETO' CREADO POR A~ ] ANICO%b}LAS LOIRA EN EL MES DE DICIEMBRE DE 1992 PARA LOS AMIGOS DE LA REVISTA STAK.......A f A...............MIS MAS SINCEROS AGRA%c}DECIMIENTOS A ROD Y BILL POR LA PAZ-CIENCIA Y POR LOS DLI'SA g A,VBI, VBD, LA EMPANADA DE QUESO, Y OTROS CIENTOS DE MILES D%d}E COSAS,....TAMBIEN A LOKO Y A KARLOSA g A POR SUS CRITICAS (#$@!), A LA LILY POR NO DEJARME USAR LA TELE, A MARCEL POR PRE%e}STARME LA IDEM,A f A A FRODO BOLSON POR HABERSE IDO DE LA TIERRA MEDIA, A GOLAN TREVIZE POR TENER SIEMPRE LA RAZON,A M A %f}A HARI SELDON POR DARSELAS DE CAPO (DANEEL INVENTO LA PSICOHISTORIA),A c A AL VIEJITO PASCUERO POR APROVECHARSE DE LA INGEN%g}UIDAD DE LA GENTE (Y DEL BOLSILLO TAMBIEN),A f A A LOS TEJEDORES DE LA LIGUA, A LAS PERSONAS QUE PRESTARON ESTE 130XE Y EST%q}B%DOS SYSB*)DUP SYSB SAUTORUN SYSB\CARNINJCM65BlCAREXPLOM65B |DISOLVE M65B ASSEMB6 SRCBANGELAZLM65B"2STAKOUT4SRCBTDEMOINQUM65BDRIVERRAID A 1050 (MI EQUIPO LOA i A VENDI PERO SIGO CRECIENDO), Y FINALMENTE A TODAS LAS PERSONAS QUE ME HAN ESTADO CHANTAJEANDO PARA%r}A f A QUE YO NO SIGA ADELANTE (HERMANOS, PROFESORES, CUENTAS DE LUZ, POLOLA ,ETC,ETC,ETC)...........A f A................%s}....ME GUSTARIA QUE ALGUIEN SE APIADARA DE ESTE DEMO Y LE PUSIERA ALGUN SONIDO,A i A YA SEA INVENTADO, COPIADO, IMPORTADO, %t}O COMO USTEDES PREFIERAN, Y QUE ME LO COMUNIQUEN POR LA VIAA g A HABITUAL (STAK) Y ASI TENER ALGO MAS LLAMATIVO (MAS DE LO %u}QUE ES AHORA?, IMPOSIBLE!)...........A g A....................LES RECUERDO....INVENTEN,CREEN,CABECEENSE NOCHE Y DIA POR SAL%v}IR ADELANTE, YAA V A QUE ES LA MEJOR MANERA DE CRECER......................................ADIOS...A  A %w} A  ( `2 LISTA< p=DF AREA1P  =====DZ AREA2d  =====Dn AREA3x  ===%x}==D AREA4  === BLAN p  p=@ MEN MENSAJE   @ MEN2 MENSAJE  A %y}LISTA AREA1LISTA2 AREA2AREA1 AREA3AREA2 AREA4AREA3 PUN1 PUN2" PUN3, PUN4%z}6 WSY @ VDLIJ HWCHAR T COLHDW^ AREA4h INICIOr Q0| POLDL Q1 POLDL Q POLD%{}CH Q>4LISTA P0 Q>5LISTA P1 Q>5FONTST P Q> P Q>4MENSAJE PPUN5 Q>5MENSAJE PPUN5& %|}$>0 BUUU: QVUEL9D P9N 2X (>b HBUUUl Q>"v Po Q> PД P О Q> P в P м Q> P P%}} Q> P P BORRA Q> $> SALT PAREA19* PAREA294 PAREA39> PAREA49H 2R (>\ HSALTf CO%~}LORESp $>z LOOP1 QFUXIA9 P9 2 (> HLOOP1 ENCIENDE.INT Q>4INT1 PVDLI Q>5INT1 PVDLI Q>%} P Q> $>5VBI %>4VBI \$ ALLAGAIN.$>8 CICLOBQLR>VFFIN`QjR>t HCICLO~Q>%}P QPARES9? QTABS8 PPUN1 QTABS8 PPUN1 &XAUX1$> LOOP2 QPARES9? Q@PUN17  PPUN2%} QTAREAS8 PPUN3(32 Q@PUN17< PPUN2F QTAREAS8P PPUN3Z &XAUX2d$>n &CONTx LOOP3 QPARES9? Q%}@PUN37 PPUN43 Q@PUN37 PPUN4 &XAUX3$> LOOP4 %CONT Q@PUN27 P@PUN47 #CONT2(>" H%}LOOP4, $XAUX362@(>J HLOOP3T $XAUX2^2h(>r HLOOP2| $XAUX12(>  HCICLO !ALLAGAIN CONT  %}XAUX1  XAUX2  XAUX3  XAUX4 FIN QOLDLP0 QOLDLP1Q>@P& QOLDCH0P:Q>%}DPNQ>XPbQ>l $>5bv %>4b \: OLDL  OLDCH FUXIA Z=U=PROJO N=H=EAZUL %}|=v=sVERDE ==!PARES ===== = = ======= TAREAS TAREA1 TAREA2 TAR%}EA3  TAREA4TABS  TAB1* TAB24 TAB3> TAB4H TAB5R TAB6\ TAB7f TAB8p TAB9z TAB10 TAB11%} TAB12 TAREA1 AREA19 AREA1\ AREA1 AREA1 TAREA2 AREA29 AREA2\ AREA2 A%}REA2 TAREA3 AREA39 AREA3\ AREA3$ AREA3. TAREA48 AREA49B AREA4\L AREA4V AR%}EA4`!X;las siguientes tablas puedenj"X;ser alteradas facilmente parat X;lograr distintos efectos de~#X;giro, cambiando%} solo el numero!X;de posicion de cada letra en"X;cada una de las 12 posiciones X;de giro.TAB1 S1=I11=A1=I41%}TAB2 S2=T4=A2=K4TAB3 S3=T5=A3=K5TAB4 I11=T6=I31=K6TAB5 S4=T5=A4=K5 TAB6 S5=%}T4=A5=K4TAB7( S6=I12=A6=I422TAB8< S5=T3=A5=K3FTAB9P S4=T2=A4=K2Z TAB10d I12=T1=I32=K1n%} TAB11x S3=T2=A3=K2 TAB12 S2=T3=A2=K3S1 ==4=4= A$%U&,A A+(()*A A-.../AS2 %}AVWXZA AYA A^_A A\[] AS3 A !WZ A A $ A A  A" A  A,S46 A  A@ A %} AJ A  AT A  A^S5h AXAr A`abcA| Adef_gA A j]ihAS6 AkTTlmA AqpUonA Ars((uA%} At...vAT1 A6F547A A ;:< A A ;:< A A ?@A AT2 A8F549A A >:= A A >:= A A CBD A&T30%} A 859 A: A O AD A O AN A S AXT4b A MIN Al A Q Av A Q A A P AT5 AM4IFNA A%} >L= A A >L= A A CBD AT6 AH4IFGA A JLK A A JLK A A ?@A AI11 A 1 A A 0 A  A 0 %} A A 3 A I12* A 1 A4 A R A> A R AH A 3 ARA1\ A.012/,*)+-Af p A#34$!&%'(AzA2 A%} ?1> =@)A<5#34;6789:AA3 A JLK IGH CMF BDE AA4 A   M  AA5 A ]1^ _)U#% A%}A6 A.012/QS)TRXVU#WYZ%[\AI32 A     AI31 A N O O P AK1 = A.-/#&(,%}0#')+3$%*12A$K2. =8 A89:5&7>?5';=A6%<@BABK3L A CJK DHL EFM GIN AVK4` A Q   P AjK5t%} A  Z. Y A~K6 A^]AUT_[ZV\YVXWAI41 A Q R R S AI42 A C O O P %} AINT15A5 $INCOUN(> FSIGUE QCOLOR09 PWSYP QCOLOR19(PWSY2P< QCOLOR29FPWSYP%}PZ QFONT9dPWSYn PHWCHARx #INCOUN7>79 SIGUEQ>$PQ> PINCOUN QCOLBARRAPWSY%}PQCOLBARRAPWSYPQCOLBARRA"PWSY,P6QCOLBARRA@PWSYJPTQCOLBARRA^PWSYh%}PrQCOLBARRA|PWSYPАQCOLBARRAPWSYPЮQCOLBARRAPWSYPQ>|PWSYPQ>%}PWSYP;;CARACTERES INV.QCOLBARRAPWSYP&QCOLBARRA0PWSY:PDQCOLBARRANPWSYXP%}bQCOLBARRAlPWSYvPЀQCOLBARRAPWSYPОQCOLBARRAPWSYPмQCOLBARRAPWSYP%} QCOLBARRAPWSYP7> 79 COLOR0 =N=|=*COLOR1 =H=v=4COLOR2 =E=s=>FONT p=t%}=x=H3X;COLBARRA .BYTE $14,$46,$12,$88,$3A,$DC,$52,$F6R$COLBARRA ===== = = \ INCOUN fp INICIOz%}p FONTST ======= ===:=:=== =====U=_= ====W=_==%} ===9=:=:=>= ====Z=== ======= ======= ====%}=== =:=>===>== ======= =======: ======= =%}=5=5==== ==U=U====$ =\=p=====. =======8 <=<======%}B =====<=<=L ======<====?=== =======" =======, =======6 ======%}=@ =======J =====p==T =======^ ==\=p====h ===%}====r =======| ====k=== =====?=:= ==:=:====%} ======= ==5=?==== ==p===== === = === ====U=%}U== =====k=k=k k=k=k===== ===?==== ======= ==%}===== ======j=  =======  ==\=====  =6= =====%}&  ====U=U==0  =====j=j=j:  =======D  =======N  ====%}===X  =======b  ==j=j====l  =======v  ===== ==  =%}=====j=j  =======  =======  =p======  ==U=U===%}=  Z==5= ====  =:======  ====Z=U==  ======k=k  k=k=k=%}l====  =======  =======  =======:! =======6 ! %}=======! 6=5= ===== ! =======*! ==\=\====4!t>! FONTAH! %}=======R! =======?\! =======f! =======p! ======%}=z! =======! =====\=|=! ==:=:=:=:===! ======_=! ==%}=====! =======! =:== = = =5=! :=:=:=====! =======!%} =======! =======! =:======! =======! =====%}==" =======" Z=======" =======$" =======." =%}=====_=8" =======B" =======?L" p=p=p=p=p=p==V" p=p=p=p=p=p=p=%}p`" ===p=p=p=p=pj" =======t" =======~" ===:=:===" ====%}===" ==:=:=6=6==Z" =======<" =======" ~=======" %}=======<" =======" =======" ======g=" :=:=;====%}=" =======" =====p=p=p# <======= # =======# <=<==%}====# =======(# ======<=<2# :=:=:=====<# =======F#%} ===p=p=p=\=P# =:=====:=Z# V=V======d# =======n# =====%}==x# =======ڂ# =======?# ======|=# ==6=6=6=5===# ==%}=====# ===:=:===ڴ# =======# j=k======# === = = = = %}# ==:=:=:=:==# =======# =======#  = = = = = = = # ====%}===$  = = = = = ==$ =====k=_=$ =======?"$ =======,$ =%}======~6$ <==j=j=j===@$ ===== = = J$ =======T$ ======%}=^$ :=:=;=====h$ =======r$ =======|$ =======چ$ ===%}====<$ k=======<$ <=<======$ =======$ ======<=<$%}x$ FONTK$ =======$ ?=======$ =======$ =======$ %}=======?$ =====\=\=% =======% =======% =:=====%}=&% =======:0% =======:% =======D% =======N% ==%}===:==X% =======b% =<======l% =\=p=====v% ===5= ===%%} ====g=W==<% =======% =======% =======% =====%}= =% :=======% =======% ==:=====% ======\=|% =%}======% :=======% =======% =======& =======%} & ===Z==5= =& ======= & ======\=*& <=======4& ====%}===>& =======H& ======:=:R& =======<\& :=:======f&  %}= ======p& =======z& =<=<=====& ==p=p====& ======%}=& ==g=g==<=<=& =======& =======<& <=======& ===%}====& =======<& =W======& =9=:=:=:=:=:=:& =======&%} =======& :=:=:=:=:=:=:=' ======:=:' :=:======' =====%}==$' =======.' ====p===8' =<======B' :=:======L' ==%}===:==V' =======`' =======j' =======' =======' ===:=:===( ======%}= ( j=======( = =5=6=6=:=:=( ====6=6==Z(( =======2( ===%}====<( ======p=pF( =<=<=====P( :=:======Z( =======d( %}:==j=j====n( ==== = =6=6x( =======( =====<=<=$h@`Aj 恥 L)}ԍҍЍԨәЙԙҙ8ӍӢ<ӢҠ ِ@v?.))}/ˢz??N?W??X?0? ??0Y?Sԩ?ԩ#"ԩ)};p  Т?o./P`X ) ()}(*v@$)0 [ \ | xԭ PЭJJJx$)x$ $L$)}$$x0E3) ) NB @B8%?P0$)0v($A:$P$ 0P.8)9980)}8MLu %$$)0vV`JQ*K )AEj;B*6jj *,d I*)BB)iՐ, 8)},ԝ Lq*)ʥ)0 )*L* ӦwJJJJ) v8/v@Yv0L0m ,jjv]Z))}^^v0Ku Gyj?c an a J nLw GI3Pl7 d  ?L棢 PfghiRi&eTW)}$) L070. Lथ[i\[zz{0P!0  Ч\8 [#L:[\ ) )}I +X/+i+ʘ)ʰX8+W X$e+WX^YJiJ AY00P )}|L |Y1bibai؅a.89i98 87|&ab8 89)LC9APd) eee)}didcicؐcdejL6d)ű j Ȅj@~VLw}H !hV #Q F  ;/$)0)}v/ <)© B)i L"eP0d:\@=98i LR8'@}@=8 e?=LR?=<)}><JJJiP9 vP;ЭJƄ)* )wyL]JJC%A  iь*+x)juwƕcnP)} [ %*%v0 / ^L$) YƩ0Ye00` // $#-0./6-#) #_,Z] )}.`J# L] ] ]- _`J-6_`JT-  E-0)0-) @-0$-p-)i$-)}`ű_ Z48T i55'4T T45Te5TS8585S$#æ/eRLj-R)})@`$&J -` ( 460(Ąť) LĨLl I$-_)},ޥT44ɩ@8 ȦNMRİL_ : 3R$-$7iJeReeɅ8e!iŷ/ʎ? ? ǰLz ? ذLzɢ)???N?0?)} ? ǰ ǰLw ذɢ)???N?0?0? ذ ذLz ǰ??R$-0eTJJ$-06/žH h8)}彨 4S$-rTeTeTL7JeJJ8崨 iTi ;T eJJ8崨T i%6/ž8崅8H h )};SJeJJ8崨 i 408崨$-060/ž8弨  OO:@ GM A B)}C  !"0M٥3I3MQ QN NN 20L N/)MLʆMN#B) ҅ T8L7/`8)}0 . ū'L7]eZ`ːI8i? ū$p[*)` / _,*`J)?7嵅)?)}eűeT$0pL7,$-䳰b] $- 䳰  $-IiA7Ii$08eIi嵦)} HNB BhNi ʥR,- ((eʝ &Q ])p`   Q`i2!a82 /8*}L$## :A?>)@8i@9LNͥ`ǥ])з_,,JJJ` I) $-0>*}?$-6h d`JȩLE`J俐&) iW6 6I8ixeRi LP 6 6I8ii098 :PA2L *}P Я:ɼ8: 8 ѴҴ JJJ)źЦ ) ) )  @ɼ PȄ;@ ; *}  ^ ͺκ * [ \w |L hLj~) 33 ` j nۢ hOP *} Jfqgrhsit`kbmal`#)I֦N B \I` OU0  K) `0*}`e滥LKOiHehe`a#P  ) iР c$)0<JJJ*}Jȵ)ƲJJJJeȵ)eƲ`鰝?`?`0N NẕM Ǡ*} ?ǩ!+  2J`Jְ҅ )L# MN` E*} &&&``PNfghifghRi``{zLE#),. $#$ $#0`NP`fghi^v* !* } Q½ ) V`ߩV        ` )Eww `Hk`hk` ) iѣ* } `uE`إƩ@ҩҢ $ҎҎLس9{z#8j?i{ZzLLvR[@* }){?{\ &*&*Ii  YJJJJI8i,,)ҎҦ||Ji)i $)0 iFIi) * }ҎҢ}}I8i  e~~)iJJJJᴍҎҢ$)0P0 Ҏ)))Dž))x8fx?x** }@ЎԌԢʎТ$ 11JBЩ  Я ЍЍЩԩ?ԩD*%'?&אK ~*}'?&LbHh@&&D ԃm ! !2 P $+4>JYkLL 0@P`*}HHH ?L* ԅ!"[JJJi\ХWiЩЩwХ9ХХ<ФM]Ȅ Ԋ *}niЩB )y@@! й  Թ 0y`80 $崍б& )*} $ L J^J)J YB)YBB;)!)"Ѝ ) J)Le *}ԎЎЎЎЩ>ԩТЩФywХv)0 )0Щ ԩ ԍЩФ b ZJYB)YBB)!)*}")JJ)J) )Lb?ԍ ԩ ЎЩ ԥ ԍ Ԣ Х'i ԌнЍ*}Ј ԍLbp0NFVKA?PF0 VKA? HHHHHH HHHHHH******22"""""*}""""(:JjzUjZVꪪ?????!-%/6%2?????*}  2/+%."9)2!4%3/&4 .#?PIRATESOFT //+&/2/4(%2&).% PIRATESOFT 02/$5#43!4!$)3+$2)6*}%.%!29/5PIRATESOFTHT**a#)E*J$"DHB"HA$"A"HDD$$*}@H @||x008Oƀ>?  cp qp 8p qp 8$$*}$$$$$<~~~~<~**~TT~**~TT<<<<<<<<<<<<~~~~<<*}<~~~~<>kI>*<>>. <. >>:( : +8FU.>Nn~L*}44Lse  6| Pu      İϘL44L}*}eL44L՟e [P   *}  *Z½ BBBPP UP*UT)UT%UU%UUUUUjZVUUjUZUZ*}UUVUUUUUUmUUU]UjZZZZVVVVVjVjUZUZUUZUUZUUVUUUUVUUUUVUUUUVUUj*}ZZ V( V*VjUUjUUXUUjXUUXTUUUXTUUUTUUUUUTUUUUUUUUUUUjUjUUUUUjjZ* }ZZVUꪯUꪯUuUujUUjUUZjUUUZZUUUVUUUUUVUUZUUUUUUVUUUUUUUUUUUUUU*!}uUUUUUUiUUUUUZUZUUUUUZUUVUUVUUUUUUjUUUjUUUZUUUUZUUUUUUUUUUj*"}UUjUUZ*UUV*UUV UUUV*UUUU*UUUU~UUUU_UUUUWjUUUUWZUUUUUVUUUUUUU*#}UUUUUUzUaUUUUUU~UYUUUUUU^UUUUUUUU_UUUUUUUUWUUUU``t&'%$@@@ /a)-SV\XP:魯巵*$};PVڎLLLL@@OHCFHHNHHO@7a၁kI*%}* 8 8:,J Ap>6-F:@,%6-F:@,)(7-&@>( 2)}$2AR'-@@ /(OFF2$Q-@@#5(CHECK THE DISK DRIVE OUTGA2*}Q Ap*-@@#'( MESSAGE:*$,H%@!#-@@#>(EXIST NO MORE BOOKSH Ap62+})6-%@6-%@W) A H@!-@@#>(BACK TO THE BEGINNINGH Ap6-&@2,}6-&@W&-@ @&(7<%@),.-@ @.(7%@0<%@I,c-@@.(2-}7%@P<%@U,@-@5@Y(7%@V<%@V,c Ap=AR'-@(@3(LOADIN2.}G= AWL-@$@&( 8-@$@?(L@2 6.67@,.267@<2/}@,.D:<<6-C:/@ԩhhh i hԈhԈhԈhԈhhLV,F @@A(F6-?:<@<B20}-@@#-@!:(| |> &-@!&(26}0 A0@@D:*.*^-@@ +-@@8)@F627}7<,.>:,J ^-@"%@1-(7@<@,7@<&@,1 J-@@#-( CONTINUE";:IF PEEK(53279)<>5 THEN 670675 FOR L=Fo}ffff YY UU UUUUUUUU2p}``UU```````jeooej```pppDޖA0q1rl˅̩ͩ΢ˑ򩐍02q}1g  \ xsL}b \q0r1l`uzu>>tt2r}is)ILs)ab0cHd`exf10IHa`yxݭb/cGd_ew2s}fs)_/bGc_dwef01HI`axy߭bc0dHe`fxs) I Ls)!2t}x >`>H>0>>x&s)J~0~H~`~x~Lbޅ˩̩Vͩ΢wˑ͈ixͥivu2u}ŘĖ혈`&",dz2%6)34!!4!2)34!+0/22/$25""%22v}    U                2w}        U                0$(X+E,X+E)):NEXT X910 D=2^INT(LOG(N)/LOG(2))-1920 FOR I=1 TO N-D:B$(1)=" ":B$(57)=" ":B$(2)=B$930 IF X(I)<=X(I+D) THEN 102Fy}0940 TX=X(I+D):X(I+D)=X(I)950 B$=A$(((I+D)*57)+1,((I+D)*57)+57):A$(((I+D)*57)+1,((I+D)*57)+57)=A$((I*57)+1,(I*57)+57)960 IFz}F I<=D THEN X(I)=TX961 IF I<=D THEN A$((I*57)+1,(I*57)+57)=B$:GOTO 1020970 FOR J=I-D TO 1 STEP -D980 IF TX>=X(J) THEN 1010F{}990 X(J+D)=X(J)991 A$(((J+D)*57)+1,((J+D)*57)+57)=A$((J*57)+1,(J*57)+57)1000 NEXT J1010 X(J+D)=TX1011 A$(((J+D)*57)+1,((F|}J+D)*57)+57)=B$1020 NEXT I1030 D=INT(D/2):IF D>0 THEN 9201040 POSITION 9,3:? A$(X1,X1+29)1050 POSITION 9,5:? A$(X1+30,X1+F}}49)1070 POSITION 13,7:? A$(X1+50,X1+55):POSITION 35,7:? A$(X1+56,X1+56)1080 POKE 559,34:GOTO 6902000 POKE 559,0:A=0:FOR X=F~}9 TO 38:LOCATE X,3,Z:A$(X1+A,X1+A)=CHR$(Z):A=A+1:NEXT X2010 A=30:FOR X=9 TO 28:LOCATE X,5,Z:A$(X1+A,X1+A)=CHR$(Z):A=A+1:NEXTF} X2020 A=50:FOR X=13 TO 18:LOCATE X,7,Z:A$(X1+A,X1+A)=CHR$(Z):A=A+1:NEXT X2030 LOCATE 35,7,Z:A$(X1+A,X1+A)=CHR$(Z)2040 POSF}ITION 2,8:? " ":POKE 559,34:GOTO 1707,Z:A$(X1+A,X1+A)=CHR$(Z):A=A+1:NEXT X2030 LOCATE 35,7,Z:A$(X1+A,X1+A)=CHR$(Z)2040 POSD%23#f|AQNOAXBNO1XRIIQSDIDT@@J} J}S."D:EDITOR3.LIBAA`w +( J}/-@@9(BOOK:K-@@W(AUTHOR:i-@@w( LOCATION: |-@)@(LOAN:1-J}@@ <(ՠN-@@ X(OFFjA|A @ X(( EW BEGINNING&( OAD FJ}ILE4( AVE FILEF@@dXB7t@d Q( NEXT BOOK#( BACK BOOK0(LPHABET?( IRECTORY Q( O OJ}THER BOOK T(ETURN TO MAIN MENU--@@#T(!MESSAGE: By German A. Gonzalez M. |-@@#( FREE: J}3705-@?(BOOK:Q-@&_( NUMBER OFq-@&@|(BOOKS:R;B,;@0,;@J},9@,9A,;@W,;@,g68,-@)|68@,-@68@,-@68@,J}-6-@6-@i@.@@K:?67@,. P67B,. _67@,J}.i A6-%@W6-%@+!Ap=-@@#S(MEMORY FULL!!!a6-&@Wo6-&@}J}6-&@ Aph-@3@( 0-@!@A(Ap& S-@!\( h6-J}#-@#6-967@,. *678,%@,. 967@,.4"!-@@J}*(4 AH("@(((( AH)"@((() AH2"@!-@4J}@(( 2 AH(& @@6-&)@2"@@@PJ!*"A&&67<,. J}46-&@@6-@J AQ3"@06-&@)6-@3 AR%"@16-@% AJ}Z"AUAPd!! @2)!A"@@nD6-%@"!8,%@36-8,%@:(D @@xJ}% 6-% @@ (>:,@@67<,.>:, @@"@@G-67%<%%J}8,,.7@<8,%@,@6-%8,%@D G("A 6-@-@!( 0J}AdAUBAR@T-@@ \(ON nA@dA}-@3@( J}0-@@!S( INPUT BOOK %@ e-@@ }( ODIFY BOOK  $ Ar)@$ J}A`;"@w@% AP16-; @ "@AP"@vAa"A'J}%@/-@@#@( SURE (Y/N)M)@a@Ap"@h A"@eJ}A-"A'*"@# AP- @"@CA!!@*@xAS-@@#J}(( SURE?? (Y/N)5)@? AWS@A"@x%%D:MAINMENU.LIB"@EAJ}1"A'6-%@' AP1 @"AU6-@2"@qAJ-@@#@J}(EXISTS NO COMMAND >:,J Ap>6-F:@,%6-F:@,)(7-&@>( $2J}AR'-@@ /(OFF2$Q-@@#5(CHECK THE DISK DRIVE OUTGAQ ApJ}*-@@#'( MESSAGE:*$,H%@!#-@@#>(EXIST NO MORE BOOKSH Ap6)6-%J}@}~~AFAMBPQQHHVVYYXXPYHPXDDRKEGHV&} @@@&}HHΠ &}̠""ΠڠӠ""Š +A&} K6-6-@'6-@36-??6-K6-@eK6-6-'6-A 36&}-?6-AK6-d A`e Apf APg Ah A j A@ ϛ&}36-6-A'6-36-A - -<<68<,-G:$'A,$$%G:+@%,$'A&},$$ 9968<,-+A&+8<,$G:$'A,%8<,,$,$8<,!6-8<,8<, 6-8<,$BB68<&},-+E:$'A,$$%E:+@%,$'A,$$,$$.8<,!6-8<,88<, 6-8<,B L `$&}Λ 6-&!AA!0 6-&!AA!6-+%A&,'@& 6-&}+%A&,'@& A4îڛ>6-'A6-P:',H A!PRîԛ\6-'A&}6-P:',f @Ap AΛ +@@ --&@;,&}8<,%8<,%;/8<%@,%8<%@,%    --&@;,8<,%8<,%;/8<&}%@,%8<%@,%   ;@.@@K:;)@"@'A&}"@At" AA ՛+-@@#+( > @!-@@#>(NO&} CABE. DEBE SECTORIZAR-@@#(*;@.@@K:;)@!!"@I)&}"@PAW"@QAPp"@RAQ"@SAP"@TAQ "@U&}AP"@VAQ0"@CAT"@BAS"@EAU"@aAU&} AP3(FACTOR%-@ @)(3 AP"(VERTICE ARRIBA/IZQ."+-@@#+( &} -@@#(*!(VERTICE ABAJO/DER.!!)!AP'-@ @'( &} +-@ @+(    AP(6-?( GRAFICANDO( AR AW &}AP( COEF.RELACIONg@.@@K:;)@I6-&@Hg @)!@&}AQ#-@"@(# APϠϠϠϠ&}ϠϠϠϠ 6-@( IMPRESORAP$)6-%@!&}A)6-A AT)6-&@ )6-"#-@ @(# AP|6-&@&} AUP6-%@-@ @( APD!-@@#!(SEGURO?NO@.@&}@K:;)@O"AUAWX"@AW`b@xAWl$"@I%&} +p ӛz+ +%(INGRESO DE ALTURAS((+(( (1)-EJEMPLO( (2)-ARCHIVO( (3)-MANU&}ALY@.@@K:;)@Y @I)!@QA`p''&@HAaAbA&}c'6-6-!6-'6-$26-@6-@29<,9<,9<,E-@+&}-@/":68<,-> B E$0,0,1,3,2,1,3,4,3,1,2,3X7 +7(%GERMAN GONZALEZ MORR&}IS --------- 1989;-@@;(!*ANGULOS SE MODIFICAN CON FLECHAS-@@((-@@#&}(" ((-@@ @-@@$ -(   -@@@&}'-@(|!-@%'(|7-@%@(1-@%%@7(  3-@@ &}(--@%@ 3( f-@@&( FACTOR (ESC)8-@@M(REACION DIM. _-@ @&}f(1/*X-@@'( ANGULO HORZ. 9-@@X(SECTOR   /&-@@&( AN&}GULO VERT.##ϠŠD:3D.MICR4@@@@p#&}iULO VERT.##ϠŠD:3D.MICR4@@@@p#$@6-%@W) A H@!-@@#>(BACK TO THE BEGINNINGH Ap6-&@6-J}&@W&-@ @&(7<%@),.-@ @.(7%@0<%@I,c-@@.(7%@PJ}<%@U,@-@5@Y(7%@V<%@V,c Ap=AR'-@(@3(LOADING= AWJ}L-@$@&( 8-@$@?(L@2 6.67@,.267@<@,.J}D:<<6-C:/@ԩhhh i hԈhԈhԈhԈhhLV,F @@A(F6-?:<@<B-@@#-@!:(| |> &-@!&(J}0 A0@@D:*.*^-@@ +-@@8)@F67<,.>:J}