@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 ALLOWED 198 FREE SECTORS COPYING---D8:DEMO2.LST5l# 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 D81uR} ECIMAL PARAMETER800 0 8 00`,0'D800 H,ɛh`2L1NEED D1 THRU D81u`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[}!+ `2evista34$X;*******************************$X;* *$X;* REVISTA STAK PRESENTA: *$X;* ]} *$X;* VERIFICADOR ˠ *$X;* *$$X;* ^} *.$X;* Por: Hector G. Ayet C. *8$X;* *B$X;* *L$X;* _}Revista # 3 - 1992 *V$X;* *`$X;*******************************jX;tX;~X;EIX; `}X; DOSVEC  CASINI  LOMEMCOLDSTD MEMLOHATABS ICCOMB ICBALD ICBAHE a}ICBLLH  ICBLHI ICAX1J ICAX2K( LBUFF2 PACTL<EDITRVF CIOVVPWARMSVtZX;dX;n b}xBOOT  ;; 4 bloques BOOT SIGUE.BOOT APAGA.MOTOR,:X;SIGUE.BOOT Q>4 PDOSVEC c} Q>5PDOSVECQ>4RE.INICIA PCASINIQ>5RE.INICIA"PCASINI, REINIT6:@X;J RE.INICIAT REINIT^ d} !@DOSVEC:hX;r REINIT| Q>;;PMEMLO;; Direccion dePLOMEM;; Memoria masQ> ;; Baja es $0900PMEMLO;; e}PLOMEM;; IMPRIME SETEA.HANDLER:X; IMPRIME$>4MENSAJE%>5MENSAJE B:X; MENSAJE& A} f}Verificador ˠA=0X;:SETEA.HANDLERDQ>4NUEVO.HANDLERNP!XQ>5NUEVO.HANDLERbP"l$>v LLENA.E QEDIT g}RV9PNUEVO.HANDLER92(> HLLENA.EQ>4MI.RUTINA PRUTINAQ>5MI.RUTINAPRUTINA,QO> h}PMI.RUTINAQ O>PMI.RUTINA Q>*PC4:>X;HNUEVO.HANDLERR \ -f RUTINAp MI.RUTIN i}Az   ,!n X; SAVEY  SAVEX VECTOR.CMND X; MI.RUTINA J;; INPUT CARAC j}TER6R> FCONT0 #C 8$ :. CONT08 'SAVEY;;Guarda regYB &SAVEX;;Guarda regXL QCV FCONTBAS` Q>4TABLA.C k}OMANDOSj PEt Q>5TABLA.COMANDOS~ PF LPREVISA %> $> REVISA 2 (C FCONTBAS QLBUFF9 R> ;;espacio l}? FREVISA;;si, proximo! NXTSP Q@E7 R> ;;espacio? HKOMP;;no, caracter! 3 !NXTSP( KOMP2 RLBUFF9< HCON m}T1F 3P Q@E7;; Si encuentra 0Z FCOMANDOS;; COMANDO vale!d !REVISA;;n CONT1x R>;;Fin de tabla y FCONTBAS;;no hay n} COMANDOS %> LOOPF Q@E7 FCONT3 #E DCONT4 #F CONT4 !LOOPF CONT3 , QE O> PE DCONT o}5" #F, CONT56 !LPREVISA@ X;J COMANDOST 3^ Q@E7h PVECTOR.CMNDr 3| Q@E7 PVECTOR.CMND !@VECTOR.CMND: p}X; VUELVE.BAS %> Q> .;; Es un REM PLBUFF8 Q>;; y un RETURN PLBUFF8 CONTBAS Q> PC Q>;;Ca q}rriage Return %SAVEY;;recupera regY $SAVEX;;recupera regX 8& :0 X;: TABLA.COMANDOSD  AVERIFYA=N VERIFYX  r}AMOTOR ONA=b MOTORONl  AMOTOR OFFA=v MOTOROFF  AQUITA= QUIT   X; VERIFY  CLOSE.C;; Por si a s}caso.. OPEN.C;; C GERROR LEE.CINTA LEE.C C ILEE.CINTA R>;;Fin de Archivo? HERROR;; No!!. Error!! t} CLOSE.C X;* X;4 !OKBACK;; Regreso> X;H ERRORR P\ CLOSE.Cf $>p Bz !4;;Ingresa a Basic !X; u} ; con # ERROR X; X; OKBACK  APAGA.MOTOR !VUELVE.BAS MOTORON  ENCIENDE.MOTOR !VUELVE.BAS MOTOROFF v}  APAGA.MOTOR !VUELVE.BAS QUITQ>P  !WARMSV$X;.APAGA.MOTOR8Q>4t PPACTL~:X;X;$X;-------------------------------$X; Abre canal 7 para leer archivoX; de ca x}ssette$X;------------------------------- OPEN.C$>pQ> PICCOM9Q>4CASSETTE PICBAL9Q>5CASSETTE  PIC y}BAH9Q> PICAX19(Q>2 PICAX29< !CIOVFX;P$X;-------------------------------Z$X; Lectura de cassette, 128 byte z}sd$X;-------------------------------n LEE.Cx$>pQ> PICCOM9 Q>4 PICBAL9 Q>5 PICBAH9Q> PIC {}BLL9Q> PICBLH9 !CIOVX;$X;-------------------------------X; Cierra canal 7$X;--------------------- |}---------- CLOSE.C"$>p,Q> 6 PICCOM9@ !CIOVJX;TCASSETTE AC:A= Cierra canal 7$X;--------------------- Q#X;******************************X; X; REVISTA STAK PRESENTA:X;#X; DEMO 2 Por: Rodrigo Gomez J.X;$#X~};******************************.X;8EIBX;LPNT.DESDEVPNT.HACIA`X;jX;t~X;FNT X; REDEFINICIO}N 18 CARACTERESX; ======= ======= =======FNT2  = ==Y=}==Y=  = = = = = = = U===U== = =  ======= ======= U}===U====  ===U===U= ======= U===U====( ===U===}U=2 =======< =======F `=`==U===U=P `=`=`=`=`=`=`=jZ e=o=o=}e=j=`=`=`dX;n FNTxX;X;X; PROGRAMA PRINCIPALX; STARTX;MUEVE.CARACTERESX;7Q>}PPNT.DESDEPPNT.HACIAQ>PPNT.DESDE Q>5FNTPPNT.HACIAX;"$>,%>6R2Q@PNT.DESDE7@R3P@PN}T.HACIA7J3THR2^#PNT.DESDEh#PNT.HACIAr0|HR2:X; CICLO6 QFNT2 PTABLA QFNT2 PTAB}LA QFNT20 PTABLA QFNT2H PTABLA QFNT2` PTABLA$>F1QFNT29& PFNT290QFNT2}9: PFNT29DQFNT209N PFNT209XQFNT2H9b PFNT2H9lQFNT2`9v PFNT2`92(>HF1 }QTABLA PFNT2 QTABLA PFNT2/ QTABLA PFNT2G QTABLA PFNT2_ QTABLA PFNT2w8 }!bX;  CICLO2*64 QFNT2> PTABLAH QFNT2/R PTABLA\ QFNT2Gf PTABLAp QFNT2_z PTABLA Q}FNT2w PTABLA$>FF1QFNT29 PFNT29 QFNT29PFNT29 QFNT209PFNT209 QFNT2H}9PFNT2H9 QFNT2`9PFNT2`9 0 IFF1 QTABLA$ PFNT2. QTABLA8 PFNT2B QTABLAL PFNT2}0V QTABLA` PFNT2Hj QTABLAt PFNT2`~ 8 !b TABLA  ====8 PFNT2B QTABLAL PFNT2Z$$X;*******************************$X;* Cargador de Vidas Infinitas *$X;* para MONTEZUMA II *$X;* } *$X;* por: Bill Yesterday *$X;* *$$X;* Revista STAK #3 } *.$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?}CONTP ( Q>5?CONT2P <Q>FP PQ>;; No BASIC!!ZPdPnQ>;; No Reboot!xPD$>CLR0;Limpia} desdeQ>;; $0700 hastaCLR;$BFFFP92HCLR #CLR QCLRR> HCLR0!WARMSV;; Salta a ?CON}T ?CONTQ>PR;;margen izq.P;;warmstart!!"Q>,P6 PUTMES@$>4MENSAJEJ%>5MENSAJET B^X;hQ>}rP|Q ESPERAR FESPERA SETVBI$>BQDEVICE;; 0=CASSETTEHDISK;; 1= DISKQ> P!};; Cassette Boot!DISK!;; Disk Boot! MENSAJE4 A}ҠɠˠA=X;&X;0 }:X;D SETVBINQ>X $>5NEWVBIb %>4NEWVBIl !SETVBVv SETRUNI Q>4RUNINIP Q>5RUNINIP: NEWVBI}6 SETRUNI CHECK0 QFLAG FBACK Q>4SYSVBVP" Q>5SYSVBV P#BACK 8* !SYSVBV4X;>X;H X; A}qui revisa el archivo queRX; esta siendo cargado y si\"X; encuentra la rutina de vidasfX; la desactiva....pX;z CHECK}0Qf>R>Ƙ HCHECK1Q>Pf> #FLAG CHECK1:X; RUNINI QFLAGHBKR CHECK0 SETVBI BKR} :$ X;. X;8 DEVICE;0=CASS 1=DISKB  L FLAGV  ` X;j t BEGINFLAGHBKR CHECK0 SETVBI BKRRQ$X;-------------------------------$X;-------------------------------$X;$X;}ˠ$X;$X;ŠéנŠ$X;} $X;-------------------------------$X;-------------------------------EI X;ɠXITVB.I_$XITVB.Db)} VBI.I. VBI.D3NORMAL.VBI.I8NORMAL.VBI.D=SETVBV\BVVBLKI"GVVBLKD$LXITVBXITVB.DQ} X;ĠV SKCTL[AUDCTL` AUDF1e AUDF2j AUDF3o AUDF4t AUDC1y AUDC2~ AUDC3}҃ AUDC4҈ X;Я͠PMBASEԒGPRIORoGRACTLМHPOSP0СHPOSM0ЦSIZEP0Ы SIZEM а}GRAFP0 е GRAFMк X;ӠPCOLR0COLOR0COLPM0COLPF0 COLBK X;ҠRT}CLOCK ATRACTM CHBASCHBASE  CH CHROM  CHACTCHACTLRANDOM CONSOL}SDLSTL0VDSLSTSDMCTL/DMACTL# NMIEN( PORTB- WSYNC 2VCOUNT 7HSCROLL}<VSCROLLAPADDL0p;; 0-228F POT0KPTRIG0|;; 0=PRESIONADOPPTRG0;; 2 BITS ?USTICK0x;; 0000=R}LDUZPORTA;; 4 BITS_STRIG0d TRIG0i$X;-------------------------------nINICIOhsPMDIR|x}P0.DIRPMDIR}P1.DIRP0.DIRMEM1.G15PMEM2.G15TAB.GIRO1TAB.GIRO2TA}B.GRAFICASt$X;-------------------------------PUNTEROCONTADOR LINEASJUGADORPIEZA.IDX}NUM.PIEZA TEMP PMX PMYCX.CURSORCY.CURSORPIEZA.1PIEZA.2 CX.PZ1 C}X.PZ2 CY.PZ1 CY.PZ2PARES.J1PARES.J2TOTAL.PARESCUADRO.MAX CTD1.DONDECTD2.}DONDECTD.CUANTASPUNTERO.ANIMDIR.FUENTE"DIR.DESTINO' CX, CY1 REG.A6 REG.X; }REG.Y@VBI.PTR1EVBI.PTR2JVBI.ANIM.CTDOCOLOR.CURSORTREG.STICK0YREG.STICK1^STICK0.CTD}cSTICK1.CTDh SONIDOmCTD.SND1rCTD.SND2wCTD.SND3|COLOR.CTDANIM.VEL.CTD$X;-------}------------------------SND.ERRORSND.DISTINTASSND.IGUALES COL1 COL2 COL3STICK.VEL}COLOR.VELANIM.VEL$X;------------------------------- INICIOX;-X;Q> PSDMCTLX; QPOR}TBL> PPORTBX; Q>5PMDIRPPUNTERO Q>4PMDIR PPUNTEROX; Q> $>?CLRP@PUNTERO7!3&}HCLR+#PUNTERO005HCLR:X;? Q>5DLDIRDPPUNTEROI Q>4DLDIRN PPUNTEROSX;X%> ]Q>bDL1P@PUNTERO}7g3l)>gqHDL1v3{3DL23P@PUNTERO7)>ʏHDL2X;CREAR.TAB.DORSO$>D1QTAB.DORSO.L19PTAB}.DORSO9PTAB.DORSO9PTAB.DORSO9PTAB.DORSO9X;QTAB.DORSO.L29PTAB.DORSO9PTAB.DORSO}9PTAB.DORSO9PTAB.DORSO9X;0ID1X; %> D2$>D3QTAB.DORSO.L39PTAB.DORSO}832 (>HD3X; )> HD2%X;*CREAR.TAB.BORDE/%>4 B1$>9B2QTAB.BORDE.L19>PTAB.BORDE8C}PTAB.BORDE8H3M2R(>WHB2\X;a )>fHB1kX;p B3$>uB4QTAB.BORDE.L29zPTAB.BORDE832(}>HB4X; )>HB3X;CREAR.ANCHO.PIEZAQ>5TAB.GIRO1PPUNTEROQ>4TAB.GIRO1 PPUNTEROX;} DIBUJAR.ANCHOX;Q>5TAB.GIRO2PPUNTEROQ>4TAB.GIRO2 PPUNTEROX; DIBUJAR.ANCHOX;CREAR.ANIM.DOR}SOQ>5TAB.DORSOPPUNTERO Q>4TAB.DORSO PPUNTERO X; Q>5TAB.GIRO1 PPUNTERO.ANIM Q>4TAB.GIRO1 PPU}NTERO.ANIM$ X;) $>.  CREAR.ANIMACION3 X;8 Q>5TAB.DORSO= PPUNTEROB Q>4TAB.DORSOG PPUNTEROL X;Q Q>5TAB.GI}RO2  V PPUNTERO.ANIM[ Q>4TAB.GIRO2  ` PPUNTERO.ANIMe X;j $> o  CREAR.ANIMACIONt X;y X; INICIALIZAR} P/M~ Q>5PMDIR PPMBASE Q> PGRAFP0 PGRAFP0 PGRAFP0 PGRAFP0 PGRAFM PHPOSP0 PHPOSP0 }PHPOSP0 PHPOSP0 Q> PSIZEP0 PSIZEP0 Q> PPCOLR0 PPCOLR0 Q> PGRACTL X; Q>5DLIDIR} PVDSLST Q>4DLIDIR PVDSLST Q> PNMIEN X; Q> PSKCTL Q> PAUDCTL X;# Q>( PSONIDO- PVB}I.ANIM.CTD2 PCOLOR.CURSOR7 PCTD.SND1< PCTD.SND2A PCTD.SND3F Q>K PREG.STICK0P PREG.STICK1U Q>COLOR.VELZ PCO}LOR.CTD_ Q>ANIM.VELd PANIM.VEL.CTDi X;n Q>VBI.Ds $>5VBIDIRx %>4VBIDIR} SETVBV X; Q>5DLDIR PSDLSTL }Q>4DLDIR PSDLSTL X; Q> PSDMCTL X; $X;------------------------------- X; INICIALIZACION GENERAL X; }INICIO.JUEGO QRANDOM M> PJUGADOR Q> PNUM.PIEZA PPIEZA.IDX PCX.CURSOR PCY.CURSOR PPARES.J1 P}PARES.J2 PBANDERA.JOYS Q> PTOTAL.PARES X; PR1$> X; PR2Q>;; 2 SEGUNDOS PRTCLOCK X;" PR3QCONSOL}' R>, FGO1 X; Uno o Dos Joysticks!!6 QSTRIG0; HPR.31@ Q>E PBANDERA.JOYSJ !GOO X;T PR.31Y QRTCLOCK^ }HPR3c X;h QTAB.G0.MSB9m PDL.G0r QTAB.G0.LSB9w PDL.G0| X; 2 (> HPR2 FPR1 X; GO$>  DSP.PARE}S $>  DSP.PARES X; ESPQRTCLOCK RRTCLOCK FESP X; Q>5G0.L4 PDL.G0 Q>4G0.L4 PDL.G0 X; X;} LIMPIAR TABLA DE PIEZAS X; $># CLTA V? PTAB.PIEZAS9 0 ICLT X; X; DESORDENAR PIEZAS X; Q>c PCON}TADOR! DSD NUM.RND& ?+ NUM.RND0 >5 QTAB.PIEZAS9: PTEMP? QTAB.PIEZAS8D PTAB.PIEZAS9I QTEMPN PTAB.PIEZAS8S } "CONTADORX HDSD] X;b X; DESPLEGAR PIEZASg X;l $>q %>v DDR&CX{ 'CY  DSP.DORSO X; $CX %CY X; 2} (> HDDR X; $> 3 )> HDDR X; SINCRO  DSP.CURSOR X; CICLO.PRINCIPAL QCONSOL R>;; es }OPTION? HSIGUE.CICLO.PRINCIPAL !INICIO X; SIGUE.CICLO.PRINCIPAL QJUGADOR > QTAB.PTO.09 > Q>`;; ` (ro}mbo) PG0.L49 QJUGADOR N> >% QTAB.PTO.09* >/ Q>;; (espacio)4 PG0.L499 QJUGADOR> MBANDERA.JOYSC >H Q}STICK09M R>R HJOYSTICKW QSTRIG09\ HCICLO.PRINCIPALa !BOTONf X;k JOYSTICKp PTEMPu Q>z PSTICK09 X; S}INCRO  BORRAR.CURSOR X; $TEMP A DERM>;; 00001000 HIZQ #CX.CURSOR IZQA M>;; 00000100 HABJ "C}X.CURSOR ABJA M>;; 00000010 HARR #CY.CURSOR ARRA M>;; 00000001 HCK1 "CY.CURSOR X; CK1QCX.CURS}OR R> HCK2 Q>PCX.CURSOR CK2R> HCK3Q>PCX.CURSORCK3QCY.CURSORR>$HCK4)Q>.P}CY.CURSOR3 CK4R>8HCUR=Q>BPCY.CURSORGX;LCUR DSP.CURSORQX;V!X; CALCULAR INDICE DE LA PIEZA[X;`QCY.C}URSORe T?;; *2j PTEMPo T?;; *4tOTEMP;; *6!!yOCX.CURSOR~PPIEZA.IDXX;!CICLO.PRINCIPALX;$X;------------}------------------- BOTON$PIEZA.IDXQTAB.PIEZAS9IPVLX;Q>SND.ERROR PSONIDO!CICLO.PRINCIPALX;}X; PIEZA VALIDAX;PVLQTAB.PIEZAS9L>PTAB.PIEZAS9X;$NUM.PIEZAQPIEZA.IDX PPIEZA.19QCX.CURSOR} PCX.PZ19QCY.CURSOR PCY.PZ19X; "X; ANIMAR PIEZA CORRESPONDIENTEX; CREAR.PIEZAX;Q>5TAB.BORDE#PPUN}TERO(Q>4TAB.BORDE- PPUNTERO2X;7Q>5TAB.GIRO1  <PPUNTERO.ANIMAQ>4TAB.GIRO1  FPPUNTERO.ANIM}KX;P$> U CREAR.ANIMACIONZX;_Q>5TAB.GIRO1dPVBI.PTR1iQ>4TAB.GIRO1n PVBI.PTR1sX;x$CX.CURSOR}%CY.}CURSOR CONVERTIR.XYQPUNTEROPVBI.PTR2 QPUNTERO PVBI.PTR2X;Q>PVBI.ANIM.CTDX;EG1QVBI}.ANIM.CTDHEG1X;QNUM.PIEZAHPZ2X;PZ1#NUM.PIEZAX;!CICLO.PRINCIPALX;PZ2"NUM.PIEZAX; $}PIEZA.1QTAB.PIEZAS9 $PIEZA.2RTAB.PIEZAS9 FIGUALESX;  DISTINTASX;Q>SND.DISTINTAS PSONIDOX;"Q}>;; 2 SEGUNDOS' PRTCLOCK,RTCQRTCLOCK1HRTC6X;; QPIEZA.1@PPIEZA.IDXE ANIM.GIRO2.AJX;O $CX.PZ1T %CY.P}Z1Y ANIM.GIRO2.B^X;c QPIEZA.2hPPIEZA.IDXm ANIM.GIRO2.ArX;w $CX.PZ2| %CY.PZ2 ANIM.GIRO2.BX; $PIEZ}A.1QTAB.PIEZAS9M>PTAB.PIEZAS9 $PIEZA.2QTAB.PIEZAS9M>PTAB.PIEZAS9X; QJUGADORN> PJUG}ADORX;!CICLO.PRINCIPALX; IGUALESQ>SND.IGUALES PSONIDOX; $CX.PZ1 %CY.PZ1 BORRAR.PIEZAX; }$CX.PZ2 %CY.PZ2 BORRAR.PIEZA X; $JUGADOR#PARES.J19 DSP.PARES!X;&"TOTAL.PARES+FFIN0X;5!CICLO}.PRINCIPAL:X;?FIN SINCROD BORRAR.CURSORIX;N!INICIO.JUEGOSX;X$X;-------------------------------] SINCROb Q}VCOUNTgR>rl HSINCROqX;v:{$X;------------------------------- DSP.PARES%>;; "0"QPARES.J19R> D}UNIDAD;; C=0 : A<10 DECENA 3;; "1";S>  UNIDAD,O> PTEMPX;QTAB.COLUMNA9>X;C PG0.L4}9 QTEMPPG0.L49X;:$X;-------------------------------DSP.CURSOR$CX.CURSOR%CY.CURSORQTAB.PM.XP}OS9 PPMXQTAB.PM.YPOS8PPMYX; QPMX% PHPOSP0*,/O>4PHPOSP09X;>%PMYC$>HDSCQTAB.FORMA.P}09M PP0.DIR8RQTAB.FORMA.P19W PP1.DIR8\3a2f(>kHDSCpX;u:z$X;-------------------------------BORRAR.CU}RSOR%CY.CURSORQTAB.PM.YPOS8?X;Q>$>BCRPP0.DIR8 PP1.DIR830IBCRX;:$X;---------}----------------------BORRAR.PIEZA SINCROX; CONVERTIR.XYX;$>%> BPZQ>P@PUNTERO723})>HBPZ X;%> INC.PUNTEROX;(>$HBPZ)X;.:3$X;-------------------------------8 DSP.DORSO= S}INCROBX;G CONVERTIR.XYLX;Q$>V%>[DDSQTAB.DORSO9`P@PUNTERO7e2j3o)>tHDDSyX;~%> INC.PU}NTEROX;(>HDDSX;:$X;-------------------------------CONVERTIR.XYCPPUNTERO T?;; *512 T?;; }*1024OPUNTEROO>5MEM1.G15PPUNTEROX;A T?;; *2 PPUNTERO T?;; *4OPUNTERO;; *6!!X;O>;; }OFFSETO>4MEM1.G15DCXY#PUNTEROCXYPPUNTERO X;:$X;-------------------------------INC.PUNTERO Q}PUNTERO#,(O>(;; BYTES * LINEA-DIPT2#PUNTERO7IPTPPUNTERO<X;A:F$X;-------------------------------KCRE}AR.PIEZAPQ>UPPUNTEROZ$PIEZA.IDX_QTAB.PIEZAS9;; 5 BITSd T?;; *2i T?;; *4n T?;; *8s T?;; *16xUPUNTERO}} T?;; *32UPUNTERO T?;; *64UPUNTEROX;O>4TAB.GRAFICAS PPUNTEROX;QPUNTEROO>5TAB.GRAFIC}ASPPUNTEROX;%>$>TGRQ@PUNTERO7PTAB.BORDE9X;23X;CM>HNML;; NO MULT. DE 4}22X; NML)>@HTGR X;:$X;------------------------------- NUM.RND QRANDOM"R>'ENUM.RND;; A>=2}52,X;1$>6;;RND2@S>EERNDJX;OAT:Y$X;-------------------------------^DIBUJAR.ANCHOc$>hDA1QTA}B.ANCHO9mFDA3r PCONTADORw%TAB.POS.ANCHO9|X; DA2Q>P@PUNTERO73Q>P@PUNTERO73P@PUNTERO73}P@PUNTERO73P@PUNTERO73Q>P@PUNTERO73X; "CONTADORHDA2X;DA3QPUNTERO,O>DD}A4#PUNTERODA4PPUNTEROX;2(> HDA1X;:$X;-------------------------------!CREAR.ANIMACION&A}+,0O> 5PCUADRO.MAX:X;?AN1QTAB.CTD1.DONDE9DPCTD1.DONDEIQTAB.CTD2.DONDE9NPCTD2.DONDESQTAB.CTD.CUANTAS}9XPCTD.CUANTAS]X;bQPUNTEROgPDIR.FUENTEl QPUNTEROqPDIR.FUENTEvX;{QPUNTERO.ANIM,OTAB.POS.ALTO}9PDIR.DESTINOQPUNTERO.ANIMO>PDIR.DESTINOX;Q> PLINEASX;AN2"CTD2.DONDEHAN3"CT}D1.DONDEQTAB.CTD2.DONDE9PCTD2.DONDEX;AN3"CTD1.DONDE HLOOP.DIBQTAB.CTD1.DONDE9PCTD1.DONDEX;%}CTD.CUANTASINL SALTAR.LINEAS "LINEASFFLN1HINLFAN3 X; LOOP.DIB%>DBLQ@DIR.FUENTE7 P@DI}R.DESTINO7%3*)>/HDBL4X;9 SALTAR.LINEAS>X;CQDIR.DESTINOH,MO>RDAN4W#DIR.DESTINO\AN4PDIR.D}ESTINOaX;f "LINEASkHAN2pX;uFLNQPUNTERO.ANIMz,O>DAN5#PUNTERO.ANIMAN5PPUNTERO.ANIMX;2}(CUADRO.MAXHAN1X;:$X;-------------------------------SALTAR.LINEASQDIR.FUENTE,O>DAN6#D}IR.FUENTEAN6PDIR.FUENTEX;:$X;-------------------------------ANIM.GIRO2.A CREAR.PIEZAX;Q>5TAB.B}ORDEPPUNTEROQ>4TAB.BORDE PPUNTERO X;Q>5TAB.GIRO2PPUNTERO.ANIMQ>4TAB.GIRO2PPUNTERO.ANIM$X};)$>. CREAR.ANIMACION3X;8Q>5TAB.GIRO2=PVBI.PTR1BQ>4TAB.GIRO2G PVBI.PTR1LX;Q:V$X;-----------------}--------------[ANIM.GIRO2.B` CONVERTIR.XYeX;jQPUNTEROoPVBI.PTR2t QPUNTEROy PVBI.PTR2~X;Q>P}VBI.ANIM.CTDEG2QVBI.ANIM.CTDHEG2X;:$X;------------------------------- DLIDIR PREG.A ®.X 'REG.}YX;%>DLIQTAB.G0.7098$TAB.G0.7108 PWSYNC &COLBK&COLPF0PCOLPF01IDLIX; PWSYNC}X; Q>COL1 $>COL2 %>COL3  PWSYNC PCOLPF0&COLPF0'COLPF0X;# QREG.A( $REG.X- %REG.Y2X;7}9<$X;-------------------------------A VBIDIRFQ>K PATRACTPX;UQ>Z PGRACTL_Q>d PGRACTLiX;n$>s VB}I.STICKx QSTICK09}RREG.STICK09HVS1X;R>FVS2"STICK0.CTD9FVS1Q> PSTICK09!VS2X;VS}1Q>STICK.VELPSTICK0.CTD9 QSTICK09PREG.STICK09X;VS22(>HVBI.STICKX;X; MODIFICAR COLOR CURSOR}"COLOR.CTDHCSNX;Q>COLOR.VELPCOLOR.CTDX;#COLOR.CURSOR #COLOR.CURSORQCOLOR.CURSOR PPCOLR0 }PPCOLR0X;"X; CONTROLAR SONIDOS' CSN$>,SN1(SONIDO1HSN26X;;0@QTAB.CTD.SND9EPCTD.SND19JQ>O P }SONIDOT!SN3YX;^SN20cHSN1hX;m SN3$>rTSNQCTD.SND19wFSN4|X;"CTD.SND19QCTD.SND19,OOFFSET }.SND9?QTAB.SND1.F8 PAUDF1QTAB.SND1.C8 PAUDC1X;SN42(>HTSNX;X; CONTROLAR ANIMACIONQV }BI.ANIM.CTD FFIN.VBIX;"ANIM.VEL.CTD HFIN.VBIX;Q>ANIM.VELPANIM.VEL.CTDX;"VBI.ANIM.CTDX;%> } VA1$> VA2Q@VBI.PTR17P@VBI.PTR2732!(>&HVA2+X;0 QVBI.PTR25,: O>(?DVA3D#VBI.PTR2}IVA3PVBI.PTR2NX;S )>XHVA1]X;b QVBI.PTR1g,lO>qDVA4v#VBI.PTR1{VA4PVBI.PTR1X; QVBI.}PTR2; S>4"  PVBI.PTR2QVBI.PTR2 S>5" PVBI.PTR2X; FIN.VBI !XITVB$X;---------------}---------------- X;----TAB.PTO.0 TAB.PTO.1 BANDERA.JOYS  X;----TAB.COLUMNA =#TAB.G0.LSB} 4G0.L1=4G0.L2 4G0.L3=4G0.L35=4G0.L4TAB.G0.MSB 5G0.L1=5G0.L2 5G0.L3=5G0.L35=5G0.L4TAB.PM.XPOS }8=P=h===TAB.PM.YPOS  =#=3=C=S=cTAB.FORMA.P0 === ===  ===% ==}=*TAB.FORMA.P1/ =======4 =======9TAB.G0.709> = = ==== = CTAB.G0}.710H =======MTAB.POS.ALTOR ====$=*W <=H==0=$=\ =====aTAB.POS.ANC}HOf === ==k $=0=<=H=T=fp l=r=~===u TAB.ANCHOz ======== ====}====TAB.CTD1.DONDE ======== ========TAB.CTD2.DONDE ====}= ===== =====TAB.CTD.CUANTAS ======== ========}TAB.DORSO.L1  =====TAB.DORSO.L2  =U=U=U=U=TAB.DORSO.L3  =j====TAB.BORDE}.L1  =====TAB.BORDE.L2  =====TAB.CTD.SND  = = OFFSET.SND = =TAB.SND}1.F ===== ====d=c TAB.SND2.F ===== =====cTAB.SND3.F =(=}'=(='=($ '=(='=(='=()TAB.SND1.C. ====== 3 = = = == = 8TAB.SND2.C= ===}===B === = = =GTAB.SND3.CL ======Q = = = = = =VTAB.PIEZAS[ $` }TAB.DORSOe j TAB.BORDEo t DLDIRy p=p=@~ @ DL.G0 4G0.L1=5G0.L1 =@ 4MEM1.G15}=5MEM1.G15 ] @ 4MEM2.G15=5MEM2.G15 a A=4DLDIR=5DLDIR G0.L1 A MEMORICE: PORA A} NEW AGE 1992 A G0.L2 A REVISTA STAK NA AUMERO 3 - 1992 A G0.L3 APRESIONE START PARA A A }JUGAR CON 1 JOYSTICKA G0.L35 A PARA 2 JOYSTICKS,A A PULSE EL BOTON 2 A G0.L4 A JUGADOR 1: 00 A!} A JUGADOR 2: 00 A$X;-------------------------------X;"X; --- DATOS DE LAS PIEZAS --- X;$X;----------------"}---------------X;tX;#X;( =Y=e==- Y=e===Y2 e===Y=e7 ==Y=e=< =Y=e==#}A Y=e===YF e===Y=eK ==Y=e=P =Y=e==U Y=e=j==YZ e=Z==i=i_ V===j$}=Vd ==j==i ====n ====s ====x ====} ==== ===%}= ====͌ ==== ==== ==== ==== ==== U=U=U=&}= ==== ==== ==== ==== ==== ==== =='}== ==== =]==Y= =U==U=V =U=U=Z= ==j==U U==== ==(}== ==== U=U=U=U=U U=U=== =~=V==} =V=W=u=  =w=W== W=_=)}==W W=U==w=u V==w=}= ====" ====' ====*, ===*=1 =*}=*==6 =*==T=; *====@ ====E  =`=*== J `=*== =`O *====*T =+}==*=Y ==*==^ =*===c *====*h ====m ====r ====w =,}===| ==== ===u=U V==V=f=e V=$=== ==== U=U=== -}==== ==== ==== ==== Z====V ==U=U= =V=== .}Z====Z ==== ===V= ==Z== =j=== j====j ==== /}==j== =j=== ==== ==== ==j== ==== ==== 0} ====  ====  ====  *====  ===*=  ====!  =j===& 1} ====+  ==U=U=V0  ====5  =7=6==:  7=6==U=v?  ==U=v=D  =V=u=V=I2}  V=w===VN  t===j=wS  ==U=t=X  ====]  U=U=V==Ub  U=V===g  ===*=3}l  ==*==q  =*===v  *====*{  ===*=  ==*==  =*===   ====4}  ==U=U=j  =U=U=*=  U=U=*==U  U=*===  *====j  ==j==  =*===5}  *====*  ====  ====  ====  ====  ====  =U=U=j6}=U  U=U=V==U  U=U===U  U====U  ====  =J===  *====*  ==V=7}=*  ==*==  =*===! *====*! ===*= ! ==+==! =+==U=i! )=U==8}=Z! ===j= ! ==J==%! =R===*! =*===/!  === =4! =*=*==9! ==9}== >! ===*=C! ====H! =*===M! *====R! ===*=W! == = =\! = =:} ==a!  ==== f! = ===k! ==U=U=Wp! =U=U=W=u! U=U=W==Uz! U=W===! ==;}3==?! =3=<==! 3====!  ====! ====! ====! ====! =<}===! ==?==! =?=== ! ?====! ===?=! =.=?==! "=?===! ?==}==U=U! U=U=U=U=U! U=U=U=U=U! U=U=U=U=U! U=U=U=U=U! U=U=U=U=U! U=U=U=U=U! =>}===! ====! ===j=! ==Z==! =Z===" ===f=" U=V=f== " ?}====" =V=="=" Z====j" ====" ====$" ====0)" == ==." @}0====3" ====8" ====1=" == ==B"  ====G" ====L" ====Q" A}====V" ==_=_=_[" _=_=_=_=_`" ====e" ====j" ====o" y===I=&t"B} ====y" =I=&==~" =y===" ====" ====" j===T=" ===="C} ====" =j===" ====" ="X;"" INICIO=" j===T=" ===="T1000 ;******************************1010 ;* CURSO DE ASSEMBLER *1020 ;* Leccion 3 *1030 ;* REE}VISTA STAK 1992 *1040 ;******************************1050 ;1060 CONSOLA = 53279 ; $D01F1070 WSYNC = 54282 ; $DF}40A1080 COLORPF2 = 53272 ; $D0181090 ;1100 *= 16384 ; $40001110 ;1120 INICIO1130 ;1140 ;--------------------G}-----------1150 ; El famoso 'Efecto RAINBOW'1160 ; ARCOIRIS1170 ;-------------------------------1180 ARCOIRISH}1190 INX 1200 ;1210 STX WSYNC ; Sincronismo1220 STX COLORPF2 ;Color de fondo1230 ;1240 LDA CONSOLA ; LI}ee consola1250 CMP #6 ; Es Start?1260 BNE ARCOIRIS ; No. Otra Vez!1270 ;1280 ;------------------------------J}-1290 ; Copia 5 valores desde Tabla1300 ; hacia los registros de colores1310 ;-------------------------------1320 ;1330K} LDX #01340 LLENA.COLORES1350 LDA TABLA.COLORES,X1360 STA 708,X1370 INX 1380 CPX #51390 BNE LLEL}NA.COLORES1400 ;1410 ;-------------------------------1420 ; Copia 256 valores del1430 ; REGISTRO Y (0-255) haciaM}1440 ; $5000 ($5000 - $50FF)1450 ;-------------------------------1460 ;1470 LDY #01480 LLENA.50001490 TYAN} 1500 STA $5000,Y1510 INY 1520 CPY #01530 BNE LLENA.50001540 ;1550 ;-------------------------------156O}0 ; Copia 256 valores del1570 ; REGISTRO X (255-0) hacia1580 ; $6000 ($60FF - $6000)1590 ;-----------------P}--------------1600 ;1610 LDX #$FF1620 LLENA.60001630 TXA 1640 STA $6000,X1650 DEX 1660 CPX #$FF16Q}70 BNE LLENA.60001680 ;1690 BRK 1700 ; RTS1710 ;1720 TABLA.COLORES1730 .BYTE 0,12,230,0,121740 ;1750 ;R}1760 ; *= $02E0 ; Salto de eje-1770 ; .WORD INICIO ;cucion del DOS1780 ;1790 ; Usuarios del MAC65 deben1800 ; eS}liminar linea 1690 e ingresar1810 ; lineas 1700, 1760 y 1770 (sin1820 ; punto y coma). Usuarios del MAC65 deben1800 ; eY0100 ;------------------------------0110 ;------------------------------0120 ;0130 ; REVISTA STAK PRESENTA:0140 ;0150!U} ; Listado del STAKOUT0160 ; (primera parte)0170 ;0180 ; Pantalla de fondo y piezas0190 ;0200 ;---------------!V}---------------0210 ;------------------------------0300 ;1000 .OPT NO LIST1020 *= $02E01040 .WORD COMIENZO!W}1060 *= $30001880 COLOR .BYTE $B4,$BA,$B6,$06,$002660 COMIENZO2680 JSR PONE.LISTA2700 JSR PONE.PANTALLA2701!X} ETERNO JMP ETERNO014220 PONE.LISTA014300 LDA # LISTA014360 STA $0231014380!Y} LDA # >NUEVO.SET014400 STA 756014420 LDX #4014440 COL LDA COLOR,X014460 STA 708,X014480 DEX 014500 BPL COL!Z}014520 RTS 014560 ;014580 LISTA ; lista en gr.12014600 .BYTE $70,$70,$70,$44014620 .WORD FONDO014640 .BYT![}E 4,4,4,4,4,4,4,4,4,4,4014660 .BYTE 4,4,4,4,4,4,4,4,4,4014680 .BYTE 4,4,$41014700 .WORD LISTA014740 ;014760 PT.F =!\} $CB014780 PT.T = $CD014880 ;-----------------------------014900 ;Copia PANTALLA creada a FONDO014910 ;------------------!]}-----------014920 PONE.PANTALLA014940 LDA # PANTALLA015000 STA PT.F+10150!^}20 LDA # FONDO015080 STA PT.T+1015100 ;015120 LDX #24015140 ;015160 P.PNT!_}0015180 LDY #39015200 ;015220 P.PNT1015240 LDA (PT.F),Y015260 STA (PT.T),Y015280 DEY 015300 BPL P.PNT101532!`}0 CLC 015340 LDA PT.F015360 ADC #40015380 STA PT.F015400 BCC P.PNT2015420 INC PT.F+1015440 P.PNT2015460 !a}CLC 015480 LDA PT.T015500 ADC #40015520 STA PT.T015540 BCC P.PNT3015560 INC PT.T+1015580 P.PNT3015600 DEX !b}015620 BNE P.PNT0015640 RTS 018460 ;018480 FONDO018520 ;018540 *= $7800018560 ;-----------------------------01!c}8570 ; Nuevo SET de caracteres018572 ;-----------------------------018580 NUEVO.SET018600 ;018620 .BYTE $00,$00,$00,$!d}00,$00,$00,$00,$00018640 .BYTE $00,$00,$03,$0A,$0A,$0A,$0A,$0A018660 .BYTE $00,$FF,$FF,$AA,$FF,$F0,$F0,$F0018680 .BY!e}TE $0F,$FF,$FF,$BA,$FE,$3F,$0F,$00018700 .BYTE $FC,$F3,$F3,$B7,$B7,$F3,$FC,$00018720 .BYTE $FF,$FF,$FF,$AA,$AA,$FF,$FF,!f}$00018740 .BYTE $F3,$CF,$CF,$DE,$DE,$CF,$F3,$00018760 .BYTE $FF,$FF,$FF,$AB,$AB,$FF,$FF,$00018780 .BYTE $CF,$3F,$3F,!g}$7A,$7A,$3F,$CF,$00018800 .BYTE $FF,$FC,$FC,$AD,$AD,$FC,$FF,$00018820 .BYTE $00,$FF,$FF,$EA,$FA,$CA,$0A,$0A018840 .B!q}B%DOS SYSB*)DUP SYSB SAUTORUN SYSB!\VERIFCASM65B}DEMO2 M65BCARMONT2M65BMEMORICEM65BDASSEMB3 SRCB_TSTAKOUT1SRCBCARGDROLM65B$DEMO02 M65SEADRAGON B oDEMO02 OBJYTE $00,$00,$C0,$F0,$F0,$F0,$F0,$F0018860 .BYTE $0A,$0A,$0A,$0A,$00,$0A,$1A,$1A018880 .BYTE $F0,$F0,$F0,$F0,$00,$F0,$F4!r},$F4018900 .BYTE $00,$0A,$0A,$00,$0A,$0A,$0A,$0A018920 .BYTE $00,$F0,$F0,$00,$F0,$F0,$F0,$F0018940 .BYTE $1A,$00,$1A!s},$1A,$00,$1A,$1A,$1A018960 .BYTE $F4,$00,$F4,$F4,$00,$F4,$F4,$F4018980 .BYTE $0A,$0A,$0A,$0A,$0A,$0A,$0A,$0A019000 .!t}BYTE $F0,$F0,$F0,$F0,$F0,$F0,$F0,$F0019020 .BYTE $1A,$02,$12,$10,$1A,$1A,$1A,$1A019040 .BYTE $F4,$00,$30,$30,$F4,$F4,$F!u}4,$F4019060 .BYTE $00,$1A,$1A,$00,$1A,$1A,$1A,$0A019080 .BYTE $00,$F4,$F4,$00,$F4,$F4,$F4,$F0019100 .BYTE $00,$0A,$0!v}A,$0A,$0A,$0A,$0A,$0A019120 .BYTE $00,$F0,$F0,$F0,$F0,$F0,$F0,$F0019140 .BYTE $0A,$00,$0A,$0A,$0A,$0A,$0A,$0A019160 !w}.BYTE $F0,$00,$F0,$F0,$F0,$F0,$F0,$F0019180 .BYTE $0A,$0A,$00,$0A,$0A,$0A,$0A,$0A019200 .BYTE $F0,$F0,$00,$F0,$F0,$F0,$!x}F0,$F0019220 .BYTE $0A,$0A,$0A,$00,$0A,$0A,$0A,$0A019240 .BYTE $F0,$F0,$F0,$00,$F0,$F0,$F0,$F0019260 .BYTE $0A,$0A,$!y}0A,$0A,$00,$0A,$0A,$0A019280 .BYTE $F0,$F0,$F0,$F0,$00,$F0,$F0,$F0019300 .BYTE $0A,$0A,$0A,$0A,$0A,$00,$0A,$1A019320 !z} .BYTE $F0,$F0,$F0,$F0,$F0,$00,$F0,$F4019340 .BYTE $1A,$1A,$00,$1A,$1A,$00,$1A,$1A019360 .BYTE $F4,$F4,$00,$F4,$F4,$00,!{}$F4,$F4019380 .BYTE $1A,$1A,$02,$12,$10,$1A,$1A,$1A019400 .BYTE $F4,$F4,$00,$30,$30,$F4,$F4,$F4019420 .BYTE $0A,$0A,!|}$00,$0A,$0A,$00,$1A,$1A019440 .BYTE $F0,$F0,$00,$F0,$F0,$00,$FC,$F4019460 .BYTE $0A,$0A,$0A,$1A,$00,$1A,$00,$1A019480 !}} .BYTE $F0,$F0,$F0,$F4,$00,$F4,$00,$F4019500 .BYTE $FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF019520 .BYTE $FF,$F9,$F5,$E5,$D5,$95!~},$55,$55019540 .BYTE $FF,$6E,$5F,$5B,$57,$56,$55,$55019560 .BYTE $FE,$EF,$FE,$BB,$FE,$EF,$FE,$FB019580 .BYTE $FE,$FD!},$F9,$F5,$E5,$D5,$95,$D5019600 .BYTE $55,$55,$55,$55,$55,$55,$55,$55019620 .BYTE $55,$55,$55,$55,$55,$55,$55,$95019640!} .BYTE $BE,$7F,$6E,$5F,$5B,$57,$56,$57019660 .BYTE $95,$D5,$E5,$B5,$F9,$BD,$EE,$BF019680 .BYTE $56,$5A,$5A,$6A,$6A,$A!}A,$FF,$FF019700 .BYTE $D5,$E5,$F5,$F9,$FD,$FE,$55,$55019720 .BYTE $56,$56,$5A,$5A,$6A,$6A,$AA,$AA019740 .BYTE $FB,$B!}F,$EE,$BF,$FB,$BF,$EE,$FF019760 .BYTE $BF,$FF,$EF,$FF,$BB,$FF,$EE,$FE019780 .BYTE $56,$56,$5A,$5A,$6A,$AA,$AA,$BB01980!}0 .BYTE $AA,$AA,$AA,$AA,$AA,$AA,$AA,$BB019820 .BYTE $0C,$3C,$E8,$A8,$BC,$FC,$54,$14019840 .BYTE $FF,$FF,$82,$AA,$FF,$!}FF,$55,$55019860 .BYTE $30,$3C,$2B,$2A,$3E,$3F,$15,$14019880 .BYTE $A8,$88,$88,$88,$88,$88,$88,$A8019900 .BYTE $20,$!}20,$20,$20,$20,$20,$20,$20019920 .BYTE $A8,$08,$08,$A8,$80,$80,$80,$A8019940 .BYTE $A8,$08,$08,$A8,$08,$08,$08,$A80199!}60 .BYTE $88,$88,$88,$A8,$08,$08,$08,$08019980 .BYTE $A8,$80,$80,$A8,$08,$08,$08,$A8020000 .BYTE $80,$80,$80,$A8,$88,!}$88,$88,$A8020020 .BYTE $A8,$08,$08,$08,$08,$08,$08,$08020040 .BYTE $A8,$88,$88,$A8,$88,$88,$88,$A8020060 .BYTE $A8,!}$88,$88,$A8,$08,$08,$08,$08020080 .BYTE $54,$44,$44,$44,$44,$44,$44,$44020100 .BYTE $44,$44,$44,$44,$44,$44,$44,$10020!}120 .BYTE $54,$40,$40,$54,$40,$40,$40,$54020140 .BYTE $10,$44,$44,$44,$44,$44,$44,$10020160 .BYTE $54,$44,$44,$54,$40!},$40,$40,$40020180 .BYTE $54,$10,$10,$10,$10,$10,$10,$10020200 .BYTE $10,$44,$44,$54,$44,$44,$44,$44020220 .BYTE $54!},$40,$40,$50,$40,$40,$40,$40020240 .BYTE $44,$44,$44,$44,$44,$44,$44,$54020260 .BYTE $0F,$0F,$0E,$0A,$08,$05,$00,$0F02!}0280 .BYTE $CF,$CF,$8A,$8A,$03,$41,$41,$C3020300 .BYTE $CF,$CF,$8A,$8A,$0C,$05,$04,$0C020320 .BYTE $CC,$CC,$88,$8A,$C!}F,$4D,$4D,$CC020340 .BYTE $33,$F3,$82,$82,$03,$01,$41,$C3020360 .BYTE $F3,$F3,$A2,$A2,$33,$11,$51,$F3020380 .BYTE $3!}3,$33,$22,$22,$30,$10,$50,$F0020400 .BYTE $F0,$F0,$B0,$A0,$80,$40,$40,$C0020420 .BYTE $0F,$0A,$00,$00,$00,$00,$00,$000!}20440 .BYTE $C3,$82,$00,$00,$00,$00,$00,$00020460 .BYTE $0C,$08,$00,$3C,$3C,$28,$28,$14020480 .BYTE $CC,$88,$00,$FF,$!}C3,$AA,$0A,$05020500 .BYTE $F3,$22,$00,$3F,$30,$2A,$02,$01020520 .BYTE $F3,$A2,$00,$CF,$C3,$8A,$8A,$45020540 .BYTE $!}F0,$A0,$00,$C0,$C0,$80,$00,$40020560 .BYTE $C0,$80,$00,$00,$00,$00,$00,$00020580 .BYTE $00,$FC,$CC,$CC,$F0,$CC,$CC,$CC!}020600 .BYTE $00,$FC,$CC,$CC,$F0,$CC,$CC,$FC020620 .BYTE $00,$CC,$CC,$CC,$CC,$30,$30,$30020640 .BYTE $00,$C0,$C0,$C0,!}$C0,$C0,$C0,$FC020660 .BYTE $00,$FC,$C0,$C0,$FC,$0C,$0C,$FC020680 .BYTE $54,$40,$40,$54,$04,$04,$04,$54023200 ;023220!} PANTALLA023240 ;023260 .BYTE $00,$00,$01,$02,$03,$04,$05,$05,$05,$05,$05,$05,$05,$05023280 .BYTE $06,$05,$07,$08,$05,!}$05,$05,$05,$05,$05,$05,$05,$06,$09023300 .BYTE $0A,$0B,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00023320 .BYTE $00,$00,$0C!},$0D,$30,$31,$32,$33,$30,$31,$32,$33,$30,$31023340 .BYTE $32,$33,$30,$31,$32,$33,$30,$31,$32,$33,$30,$31,$32,$33023360 !}.BYTE $0C,$0D,$00,$52,$53,$54,$55,$56,$57,$58,$59,$00023380 .BYTE $00,$00,$10,$11,$34,$35,$36,$37,$34,$35,$36,$37,$34,$35!}023400 .BYTE $36,$37,$34,$35,$36,$37,$34,$35,$36,$37,$34,$35,$36,$37023420 .BYTE $10,$11,$00,$5A,$5B,$5C,$5D,$5E,$5F,$60!},$61,$00023440 .BYTE $00,$00,$14,$15,$38,$39,$3A,$3B,$38,$39,$3A,$3B,$38,$39023460 .BYTE $3A,$3B,$38,$39,$3A,$3B,$38,$3!}9,$3A,$3B,$38,$39,$3A,$3B023480 .BYTE $14,$15,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00023500 .BYTE $00,$00,$16,$17,$2C,$!}2D,$2E,$2F,$2C,$2D,$2E,$2F,$2C,$2D023520 .BYTE $2E,$2F,$2C,$2D,$2E,$2F,$2C,$2D,$2E,$2F,$2C,$2D,$2E,$2F023540 .BYTE $16,!}$17,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00023560 .BYTE $00,$00,$18,$19,$30,$31,$32,$33,$30,$31,$32,$33,$30,$31023580 .!}BYTE $32,$33,$30,$31,$32,$33,$30,$31,$32,$33,$30,$31,$32,$33023600 .BYTE $18,$19,$00,$00,$00,$50,$4F,$67,$4B,$00,$00,$000!}23620 .BYTE $00,$00,$1C,$1D,$34,$35,$36,$37,$34,$35,$36,$37,$34,$35023640 .BYTE $36,$37,$34,$35,$36,$37,$34,$35,$36,$37,!}$34,$35,$36,$37023660 .BYTE $1C,$1D,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00023680 .BYTE $00,$00,$20,$21,$38,$39,$3A,$3B!},$38,$39,$3A,$3B,$38,$39023700 .BYTE $3A,$3B,$38,$39,$3A,$3B,$38,$39,$3A,$3B,$38,$39,$3A,$3B023720 .BYTE $20,$21,$00,$0!}0,$00,$3F,$3F,$3F,$3F,$00,$00,$00023740 .BYTE $00,$00,$12,$13,$2C,$2D,$2E,$2F,$2C,$2D,$2E,$2F,$2C,$2D023760 .BYTE $2E,$!}2F,$2C,$2D,$2E,$2F,$2C,$2D,$2E,$2F,$2C,$2D,$2E,$2F023780 .BYTE $12,$13,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00023800 .B!}YTE $00,$00,$12,$13,$30,$31,$32,$33,$30,$31,$32,$33,$30,$31023820 .BYTE $32,$33,$30,$31,$32,$33,$30,$31,$32,$33,$30,$31,$3!}2,$33023840 .BYTE $12,$13,$00,$00,$4D,$51,$49,$4E,$4C,$67,$00,$00023860 .BYTE $00,$00,$12,$13,$34,$35,$36,$37,$34,$35,$!}36,$37,$34,$35023880 .BYTE $36,$37,$34,$35,$36,$37,$34,$35,$36,$37,$34,$35,$36,$37023900 .BYTE $12,$13,$00,$00,$00,$00,!}$00,$00,$00,$00,$00,$00023920 .BYTE $00,$00,$28,$29,$38,$39,$3A,$3B,$38,$39,$3A,$3B,$38,$39023940 .BYTE $3A,$3B,$38,$39!},$3A,$3B,$38,$39,$3A,$3B,$38,$39,$3A,$3B023960 .BYTE $28,$29,$00,$00,$3F,$3F,$3F,$3F,$3F,$3F,$00,$00023980 .BYTE $00,$0!}0,$0E,$0F,$2C,$2D,$2E,$2F,$2C,$2D,$2E,$2F,$2C,$2D024000 .BYTE $2E,$2F,$2C,$2D,$2E,$2F,$2C,$2D,$2E,$2F,$2C,$2D,$2E,$2F0240!}20 .BYTE $0E,$0F,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00024040 .BYTE $00,$00,$12,$13,$30,$31,$32,$33,$30,$31,$32,$33,$30!},$31024060 .BYTE $32,$33,$30,$31,$32,$33,$30,$31,$32,$33,$30,$31,$32,$33024080 .BYTE $12,$13,$00,$00,$00,$00,$00,$00,$0!}0,$00,$00,$00024100 .BYTE $00,$00,$12,$13,$34,$35,$36,$37,$34,$35,$36,$37,$34,$35024120 .BYTE $36,$37,$34,$35,$36,$37,$!}34,$35,$36,$37,$34,$35,$36,$37024140 .BYTE $12,$13,$00,$3C,$3D,$3E,$00,$00,$3C,$3D,$3E,$00024160 .BYTE $00,$00,$12,$13,!}$38,$39,$3A,$3B,$38,$39,$3A,$3B,$38,$39024180 .BYTE $3A,$3B,$38,$39,$3A,$3B,$38,$39,$3A,$3B,$38,$39,$3A,$3B024200 .BYTE!} $12,$13,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00024220 .BYTE $00,$00,$1A,$1B,$2C,$2D,$2E,$2F,$2C,$2D,$2E,$2F,$2C,$2D02424!}0 .BYTE $2E,$2F,$2C,$2D,$2E,$2F,$2C,$2D,$2E,$2F,$2C,$2D,$2E,$2F024260 .BYTE $1A,$1B,$00,$3C,$3D,$3E,$00,$00,$3C,$3D,$3E,!}$00024280 .BYTE $00,$00,$1E,$1F,$30,$31,$32,$33,$30,$31,$32,$33,$30,$31024300 .BYTE $32,$33,$30,$31,$32,$33,$30,$31,$32!},$33,$30,$31,$32,$33024320 .BYTE $1E,$1F,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00024340 .BYTE $00,$00,$22,$23,$34,$35,$3!}6,$37,$34,$35,$36,$37,$34,$35024360 .BYTE $36,$37,$34,$35,$36,$37,$34,$35,$36,$37,$34,$35,$36,$37024380 .BYTE $22,$23,$!}00,$3C,$3D,$3E,$00,$00,$3C,$3D,$3E,$00024400 .BYTE $00,$00,$24,$25,$38,$39,$3A,$3B,$38,$39,$3A,$3B,$38,$39024420 .BYTE !}$3A,$3B,$38,$39,$3A,$3B,$38,$39,$3A,$3B,$38,$39,$3A,$3B024440 .BYTE $24,$25,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00024460!} .BYTE $00,$00,$26,$27,$2C,$2D,$2E,$2F,$2C,$2D,$2E,$2F,$2C,$2D024480 .BYTE $2E,$2F,$2C,$2D,$2E,$2F,$2C,$2D,$2E,$2F,$2C,$!}2D,$2E,$2F024500 .BYTE $26,$27,$00,$3C,$3D,$3E,$00,$00,$3C,$3D,$3E,$00024520 .BYTE $00,$00,$10,$11,$30,$31,$32,$33,$30,!}$31,$32,$33,$30,$31024540 .BYTE $32,$33,$30,$31,$32,$33,$30,$31,$32,$33,$30,$31,$32,$33024560 .BYTE $10,$11,$00,$00,$00!},$00,$00,$00,$00,$00,$00,$00024580 .BYTE $00,$00,$1A,$1B,$34,$35,$36,$37,$34,$35,$36,$37,$34,$35024600 .BYTE $36,$37,$3!}4,$35,$36,$37,$34,$35,$36,$37,$34,$35,$36,$37024620 .BYTE $1A,$1B,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00024640 .BYTE $!}00,$00,$2A,$2B,$38,$39,$3A,$3B,$38,$39,$3A,$3B,$38,$39024660 .BYTE $3A,$3B,$38,$39,$3A,$3B,$38,$39,$3A,$3B,$38,$39,$3A,$3B!}024680 .BYTE $2A,$2B,$00,$62,$62,$00,$65,$66,$00,$63,$64,$00024700 ;,$3B,$38,$39,$3A,$3B,$38,$39,$3A,$3B,$38,$39,$3A,$3B I#X;-----------------------------;#X; Vidas Infinitas y Disparo ;#X; Automatico para ;#X; %} ;#X; D R O L ;#X; ;$#X; Por: Bill Yesterday ;.%}#X; ;8#X; Revista STAK 1992 ;B#X;-----------------------------;LX;VEI`FLAG.1%}jFLAG.2tX;~X; COMIENZO Q>4?CONTP  Q>5?CONTP Q>P Q>PPQ>%}PD #X;------------------------------#X; Borra desde $0700 hasta $BFFF#X;------------------------------($>2CLR%}0<Q>FCLRPP9Z2dHCLRn #CLRx QCLRR> HCLR0!t ?CONTQ>PR;;Margin Izq.P;;F%}lag de WarmstQ>PIMPRIME.MENSAJE$>4MENSAJE%>5MENSAJE BX;#X;------------------------------X%}; Espera unos 4 segundos"#X;------------------------------,Q>6P@QJ WAIT0TR^ FWAIT0hX;r"X;---------%}--------------------|"X; Mueve TABLA.03B0 hasta $03B0"X;-----------------------------$>MUEVE.TABLAQTABLA.03B0%}9P92(>4HMUEVE.TABLA#X;------------------------------Q>;;Modifica$>5;;puntero de%>4;;VBI%} \;;inmediata#X;------------------------------$>;;Actualiza pun-B;;tero del Stack&#X;--------------------------%}----0DISK:!;; Disk Boot!D MENSAJEN4 A}ҠĠҠϠ̠ˠA=XX;bX;lX;v#X;----------%}--------------------!X; Busca Codigo de Vidas y deX; Disparo Automatico"X; (Esta tabla se copia a $03B0"X; a%} fin de quedar en una zonaX; de memoria protegida)#X;------------------------------TABLA.03B06 REVISA.0 %}QFLAG.1 FREVISA.1Q |R> HREVISA.1 Q>P |  REVISA.1* QFLAG.24 FSALE>QHR>R HSALE\Q>f%}PpQ>IzPQ>PSALE8!_X;FLAG.01 FLAG.02 X;X; COMIENZOE\Q>f$tX$X;-------------------------------$X;-------------------------------X;X; REVISTA STAK PRESENTA:X;"X; Ve)}rsion Mejorada del: DEMO 2$X;.X; Por : Rod Rubber 19928X;BX;L"X; (Ensamble a DISKETTE usando:VX; ASM,,#D:)}DEMO02.OBJ`$X;Cargue desde DOS con DEMO02.OBJjX;t#X; Use Joystick para cambiar el~$X; Scrolling. Presione START para)}X; regresar al DOSX;$X;-------------------------------$X;-------------------------------X;EIX;PNT.)}DESDEPNT.HACIAX;X;X; FNT X; REDEFINICION 18 CARACTERESX;( =======2 =)}f=f===f=f=< =======FFNT2P  = ==Y===Y=Z  = = = = = = =d U===U=)}= = = n =======x ======= U===U==== ===U===U= =)}====== U===U==== ===U===U= ======= ======)}= `=`==U===U= `=`=`=`=`=`=`=j e=o=o=e=j=`=`=`X; LISTA DE DESPLIEGUE FNT)}DL p=p=p=D PANTAK =======================A" DL,X;6X; )} PROGRAMA PRINCIPAL@X;J STARTTQ0^PDLAhQ1r PDLA|$> CC2Q9 PTABCOLA90ICC2X;MUEVE)}.CARACTERESX;Q>PPNT.DESDEPPNT.HACIAQ>PPNT.DESDE Q>5FNTPPNT.HACIAX;$>&%>0)}R2Q@PNT.DESDE7:R3P@PNT.HACIA7D3NHR2X#PNT.DESDEb#PNT.HACIAl0vHR2X; Q>FNTP Q>4DL)}P0 Q>5DLP1$>B1QTABCOL9P90IB1 PONER.PANTALLASCT  $>5CICLO %>4CICLO Q>* )}\4 CONSOLA>QHR>R FSALIR2\QxfR>p FCONSOLAz PF.JOYS !CONSOLA SALIR2Q>$>%>b \)}Q>PQDLAP0 QDLAP1$> CC1QTABCOLA9 P9 0$ ICC1. :8 CICLOB #F.ROTL IZZ1V )}Q>z` PF.ROTj $>t CILO.1TFNT9~ UFNT9 UFNT9 0 ICILO.1 ZZ1#F.COLOR ISIGUE.8 Q> PF.COLO)}R $> CICLO.8, Q9 O> P9 0 ICICLO.8 SIGUE.8 QF.JOYS( M>2 N>< HRANGOF !J.HORP RANGOZ)} QF.JOYSd M>n FJ.ABAJOx QFNT2 PTABLA QFNT2 PTABLA QFNT20 PTABLA QFNT2H PTABLA )} QFNT2` PTABLA $> F1QFNT29 PFNT29 QFNT29 PFNT29 QFNT209 PFNT209" QFNT2)}H9, PFNT2H96 QFNT2`9@ PFNT2`9J 2T (>^ HF1h QTABLAr PFNT2| QTABLA PFNT2/ QTABLA)} PFNT2G QTABLA PFNT2_ QTABLA PFNT2w J.ABAJO QF.JOYS M> FJ.HOR QFNT2 PTABLA )} QFNT2/ PTABLA QFNT2G& PTABLA0 QFNT2_: PTABLAD QFNT2wN PTABLAX $>b FF1QFNT29l PF)}NT29v QFNT29 PFNT29 QFNT209 PFNT209 QFNT2H9 PFNT2H9 QFNT2`9 PFNT2`9 )}0 IFF1 QTABLA PFNT2 QTABLA PFNT2 QTABLA PFNT20 QTABLA PFNT2H* QTABLA4 PFNT)}2`> J.HORH QF.JOYSR M> \ N> f FSALIRp QF.JOYSz M> FJ.DER A0%> A1$> A2QFNT2 9 T? U)}FNT2 9 UFNT29 UFNT29 UFNT29 UFNT2 9 2 (> HA21 FSALIRHA1$ J.DER.)} QF.JOYS8M>B%>L A11$>VA22QFNT29`V?jWFNT29tWFNT29~WFNT2 9WFNT2 9)}WFNT292(>HA221HA11 SALIR!bPONER.PANTALLA Q>4PANTAPPNT.DESDE Q>5PANTAPPNT.DE)}SDE Q>4PANTAxPPNT.HACIAQ>5PANTAx(PPNT.HACIA2X;<$>F O0%>wPO1Q@PNT.DESDE7ZO2P@PNT.HACI)}A7d1nIO1x,QPNT.HACIAO>xPPNT.HACIAQPNT.HACIAO>PPNT.HACIA0HO0%> BB1QMSG8)}PPANTA8 QMSG8PPANTA(8 QMSG48PPANTAP8 QMSGN8"PPANTAx8,16IBB1@:J T)}ABLAT ====^ TABCOLh &="=,=d=r TABCOLA| ==== DLA = F.JOYS F.COLOR  F.)}ROT zX;%MSG A!!!!!!!!!!!!!!!!!!!!!!!!!!A! A!! REVISTA ATARI STAK !!A! A!! POR ROD RUBBER !!A! A!!!!!)}!!!!!!!!!!!!!!!!!!!!!AX; PANTA/ A#&),/#&),/#&),/#&),/#&),/#&),/#&),/#&),/A/ A$'*-0$'*-0$'*-0$'*-0$'*-0$'*-0$'*-0$)}'*-0A/ A%(+.1%(+.1%(+.1%(+.1%(+.1%(+.1%(+.1%(+.1A START),/#&),/#&),/A/ A$'*-0$'*-0$'*-0$'*-0$'*-0$'*-0$'*-0$(E<@,.D:<<6-C:/@ԩhhh i hԈhԈhԈhԈhhLV,F @@A(F6-?:<@!}rF& [Ԫn&F!"SbgWd vssrgsbdswwϫۛyyWT$13gxjSDW1#hz˗VhDRfF !ܝ۹82QE&gzڬyFQ30%1$gVv{2UE2iihHev$:v3"2#̪wth̚vFc $@ !hxFxfCEghیBFTzvTB""Xۚ53UfuWiDe"@%DY&ھږ1@#iu%bfhGzWgFJŋ35TGzh1-@(@<(SAVINGN-@$@_( q-@$@x(@12 6.67@!}C26ZJۍȯztFuwz@T\ffdV&&XJɄtFy5A!X5{ۊPVeFFy˘ffWfcfvXci%U2'zZzX݆EbgVz2"FWq#T&hWDDgFcwx{7Vwhd#Jʫܾ߶dFt#C$Dtffd"%5FfWXvb#g˻c3#0 0$gzɜꉧtUU#vXzvBD#1$VgXZYwwxvwfUCD%dtwgzige%uvud3E36DVTwyxxzyxhs3DC3CU&fzۻ˽xt3R6dgGug%FfFxgwvwa6FfXڻyvRe4D'cWfyۿڪtuC:3U5xϹ2fd#2TxG{yxYueQED CONTINUEJF:B2y,@ApH-@@#-@!:(| |> H A`AF:A!},"A6,-@"%@A(7@<@,L-@@#/(PRESS LF:B2y,@A!}uF#W骹xhuKf$$4"P&EgxhxRD`4y̪wd5xvdVTewf3B#!DGvffWf۩#TBTyʯ@Q(|FILE: |c-@!@x(|D:FILENAME.EXT|G-@!@*(GF:A,!}P=foʾdVgf6ʙeq@3G)d&Tffk۩fU}ۺf!@E"hw훺v#VfguFRg#!ETXfhwg̪2V"A6wdVUdy̭۽dhgfvfA%Vyx5GwwxvTA"5WfgHvwg23DwvvVgvvwe2"eGxwgz̨vDdVz۫A5Vzyfg˺uVvwguE#4%UEzwwgVghuS!!$EfwxzxwvwwwedC!"2fgywwwyggvwR3!"#UefwyvfggDCSD1FdE7O/x|<*18FgwL $yfvWSSDTTfGu˪fe2"!1+"@e,-@)-@@#?(ǮS-@@%W i-@@#(ALPH"}ABETIZING...-@@%  ' 6-6-'AY^6-7-@X+$@W,%@"}@WE6-%@Z68,-@:7%<%,,^ **6-@#P:K:,'K:@,,&@D-@&$67@"}WUD3FVgwxUECTffgwwVvfgxfegfyejufgUTC3%hۙwuUU2""$Ex˻gUeVfUfxwfy+%,$@W,%@W,67++%,$@W,%@<++%,$@W,%@W,.7+$@W,%@<+$@W,%@W, "}68,-B 867+$@W,%@<+$@W,%@W,.B A -&@68,A"}68%,-8,cc67++%,$@W,%@<++%,$@W,%@W,.7+$@W,%@<+$@W,%@W, 6"}wwfw8@,-6-@6-@i@.@@K:?67@,. P67B,. _62}6-#-@#6-967@,. *678,%@,. 967@,.4"!-@2}@@x% 6-% @@ (>:,@@67<,.>:, @@"@@G-672 }$ A`;"@w@% AP16-; @ "@AP"@vAa2$}@eA-"@'*"@# AP- @"@CA!!@*@xAS-@2&}$2AR'-@@ /(OFF2$Q-@@#5(CHECK THE DISK DRIVE OUTGA2*}Q Ap*-@@#'( MESSAGE:*$,H%@!#-@@#>(EXIST NO MORE BOOKSH Ap62+}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}V$F:AW,,'@W,&@E"Q6-@]6-@XV-@!@&(Ap& 8-@3@22}A( L@V A &A"!-@@#7(NO EXIST DATASA Ap0 AWAR23}1-@(@<(SAVINGN-@$@_( q-@$@x(@12 6.67@,24}.267@<@,.D::` @@A(K(@7@<+$@W,%@W,V@` Ap25}̼˺wffeS5433DD3#45UVffwwfwgwgwwxwxwwwwvffUUDDDDDDTDUUfgw̻wfeUTUUeDD3"333DEgwwwwwwgwwwxwwwxxxwxxhwfeUT3D343DTEUVwwxۻffUeUeTDDD3C"3C5ffwxxwffww7<,.>:,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}B"6hںWzG6b4R%ucfuGgzjȧIfgvwSYwT:%SF&$6CRB$vUbudf[w۹gxve%1e"#!U"GdUewLJVuEFSfF 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{}6CUffufhvyxYxxgzfvTvTUUfEeUWfUvwwwfvfgttdTegvۻwwVVD2BT34CVDVvwxgfeVdefWwwfeUdUEU4FVfTWgfxxxwgxwwgvggdED4433DEUUeghwfwwgvfgvvwywwefeTUVV49)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}eVfwwwxVwvwugeDB##!""3#44Vi˪wTED44TB"DC5C$d4VDFdDfeEUFfUwvvhyxVwfggxxUD4T3"##"#23#f|AQNOAXBNO1XRIIQSDIDT@@J} J}̻ݼveeUDET5TETFTEeEgefgwwxxwwwfvvvfvegfffVfUvhWgihxwwwyfvffVEFCEE3D3DCEUVwghxywxywxwyxxdffcTTEUTEWCeffhwHxGwj̺z켫ygEcR!""2$C'dVugz@@ <(ՠN-@@ X(OFFjA|A @ X(( EW BEGINNING&( OAD FJ}˻f5eCgUS4D2S63"VS4ftEEwuWwyfyyzۻﺽvVT4t4TTT&CVdVwevxxvywhEg%FT5vfggʞ˪vweT6eUvRVTEfd4WefDdUTHER BOOK T(ETURN TO MAIN MENU--@@#T(!MESSAGE: By German A. Gonzalez M. |-@@#( FREE: J}eUeC3E4TC4EUFgVxyvwweEVUUffxw˻̻˪xwfgddET4C3R#3D3TDffgxgܻۻwvUeVCEUEUDDUUfwehwwyvgfw,9@,9A,;@W,;@,g68,-@)|68@,-@68@,-@68@,J}-6-@6-@i@.@@K:?67@,. P67B,. _67@,J}jVgiefdUvEvgwzfyvzDxvrf7xYTWk輼wv4tA3!$$D@XcFvW{e{^̽뚗xEW5!"2T1#Cd$fx˻hUtVCFT$VCVUA&gWvggfwzݻWdhGUFd5cVvDxvzzxvgyyʘfVT42"!"A3#$DSFۻwfwfWf#-@#6-967@,. *678,%@,. 967@,.4"!-@@J}*(4 AH("@(((( AH)"@((() AH2"@!-@4J}@(( 2 AH(& @@6-&)@2"@@@PJ!*"A&&67<,. J}egxwxfxfffwwxwwwwgxgwwwwwwffvfwwxwwwwwxxvxwxwwxvgwffffgffvfvffwgxxywZ"AUAPd!! @2)!A"@@nD6-%@"!8,%@36-8,%@:(D @@xJ}% 6-% @@ (>:,@@67<,.>:, @@"@@G-67%<%%J}혪X@0!0Sww{֊j{~f%U[&y%2Y7uy`BGfjJκɨj@h!"3$d's;zǺ}7"SF۝ܚǹhiSdqF8+u3BhrfJZȟzGV&uȚzk+$QT6ZĻgf9c D{fbfZtITTVjgFgGHeWbuRHE'z0-@@!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}wvD2"4225CSegݫ̾yVD2`!#%fgˬʊVS$1"!#6CVUxVvxښvWEe"D"#"$C3Uf6xʪygxwwgzffydfeVDvEWvDifvGvEV#yfhxxUgXy̻vxyeVBC"!!3DDSEfwͪyexuUudd&TFUVWwwxeVdVB"2"#3S4gfz˽˾ͺgfhwwu5Vd3!3D$egvfwxy˾ۼ˩xxgwfhVfCgDffAR'-@@ /(OFF2$Q-@@#5(CHECK THE DISK DRIVE OUTGAQ ApJ}zywwxefVEUC%fT6effgwyۺwxffd332""234TDEeVvfwxwxwefudefFffwgfvUUECC23D44TVffww˻wzwveUEED4DT4TDUTUVgvfxwyxywwwwwwwwwxgwgvfffvVvfUfVeVfeegfgwͺxwfeVVUVUveUfUfeVfUffgwwwvggwwxwxvwfeeeUUDDTEScvUfgwejzycWxwwgwwwgVUeTgfUVdVb8fVc͊zȺyxFfCeS4C4TD̠""ΠڠӠ""Š +A&} K6-6-@'6-@36-??6-K6-@eK6-6-'6-A 36&}-?6-AK6-d A`e Apf APg Ah A j 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&}}RtF5g'fwewxIj"&vKzf"7gߴWv[V&ge}jTD$1!PS5!4f6XU{ܻIC&GV{뽻ȚGVYdgGjG#b%WDW%JaaP6yfjegfX2X|}۪{x]bDgy:}gvvgUA!01U17SHgͿꍻuwSWeVgr#'9TWvwicY:hy߬{ggV SQ$fB2%$$Gjgf{Ctޗ˚ت̻wvWA %#%wfn"@At" AA ՛+-@@#+( > @!-@@#>(NO&}[fze3< R5ftV[D AEi{z{ھX«gF$X0!T%A'aQY?7/fz?z멹犷\Yx¼\!b#x8vV'-''+jeJ"@PAW"@QAPp"@RAQ"@SAP"@TAQ "@U&}HcQ3Vr*|*Ti^K^ʿmZj#zbG7=F6"6g{}BJƇIɨv{[WZB'P;n$rucGNԑO=[/~J AP3(FACTOR%-@ @)(3 AP"(VERTICE ARRIBA/IZQ."+-@@#+( &}}DT7tfjF%ewe+۾蛇Ej a'6UC11G*Zg݌|䫭~wlJz++8a%XAggDzzXcGz8xSgCUB$|e|t +-@ @+(    AP(6-?( GRAFICANDO( AR AW &}AP( COEF.RELACIONg@.@@K:;)@I6-&@Hg @)!@&}AQ#-@"@(# APϠϠϠϠ&}vz+HI];u}vꆦ7e>~kyE(*"zxCh %6%O|k~GvDf"=$u't0P9:7dvkjYśw{\S䤕GWkA)6-A AT)6-&@ )6-"#-@ @(# AP|6-&@&} AUP6-%@-@ @( APD!-@@#!(SEGURO?NO@.@&}@K:;)@O"AUAWX"@AW`b@xAWl$"@I%&}z۶ꥡ*`6Wr^zvbG'C[7u;Fz9~wȜʬ`@5 e2%ꛟUu%WrxGdv|lɇ^#'PYtALY@.@@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&}*WW;hCiI5Crawkz{zvZCwEwvdggil|7Wbgwaw:*[CSJB[庙=ǂUś'DW&v(gĩiYWFG8\e=GFz(" ((-@@ @-@@$ -(   -@@@&}ki%|ig8'(i;;f8Rv%QtbgWxj׉ʨ{ziuzT|if[fcXkĬ˗jwFVW%gR'CCeGcjzEg+4 lX1cv8k(--@%@ 3( f-@@&( FACTOR (ESC)8-@@M(REACION DIM. _-@ @&}hgKzCDTTbRGbe7eiYyιj{VlCcrb'Ux'FޕZZ;BXTzgwW5RS\ghLl{ڗʨhvtAvgCte'3ItnTtf-YYFSyGULO VERT.##ϠŠD:3D.MICR4@@@@p#&}iULO VERT.##ϠŠD:3D.MICR4@@@@p#$@6-%@W) A H@!-@@#>(BACK TO THE BEGINNINGH Ap6-&@6-J}cgX7Xcw?ffV~Jcfxv_{WZ"k„ruyw%z~[CkƻYkf躼G|gjZa6CDEZWXZ[VVfWܩJbbu'P<%@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}WQxwVugiW|FvwU4SRfUyeZCbWBVdVvz燬vxzܥzugeKDUdhUu|cgSvF[fgVxKyg{gveg&Tb4UUhZzܗyfvgefW~WxwQGu3FW4GfwUv{6݁Hd]ugezfZUGV)vfgwzܨyGUFDxC5B:A433gSvyzjwtbrTTDFDUyyfwtNwWB2y,@ApH-@@#-@!:(| |> H A`AF:A,"A6,-@J}gxwvufZbEBbkʶ,!$fڹ˺ۇ{[ET74xxj$wA"036g[دܻs#R"$4xz˻w` 4bLݻ@B}e~ޚz`"0'6C8?ʙekVfeV`(2%T"6&WGeں[aaC|FILE: |c-@!@x(|D:FILENAME.EXT|G-@!@*(GF:A,"A0AWJ} Apn-@"@)(WHAT IS THE ;-@"@N(NUMBER ?? `-@0@dn AJ}M 6-A:,!$-@@#C(THIS BOOK DOESN'T EXISTM A+6-+$@W,%@!6-+ A@ CJ}"!-@@#9(MEMORY EMPTY !!!C Ap*}-@"@((ORDER FOR: :-@"@M(J}UTHOR or OOK_-@3@l)@s(>:,} A4!!@e*@fA>6-@0$+"@e,J}ewgff{GUxeSV2U%fFgvwfhVwzg܆zeWWefy{ɋWUfwvu[vVQUFCdgxzvgwfj+ehG6YW::SVʻWv%wh-@@%  ' 6-6-'AY^6-7-@X+$@W,%@@WEJ}6-%@Z68,-@:7%<%,,^ **6-@#P:K:,'K:@,,&@D-@&$67@,. 567@WJ},. D67@,.8,8%,A 6-8%,68%,-8,:6.7++%,$@W,%@<++%,$@W,%J}̼wd%R1"2!b6cZwxgwgdhcES3i)xgwwh{ډviG%vgfwUzfzggwfdzwgfDdGg{yzwwYvHv"d3WVUfgyB 867+$@W,%@<+$@W,%@W,.B A -&@68,A68%,-8,J}cc67++%,$@W,%@<++%,$@W,%@W,.7+$@W,%@<+$@W,%@W, 68%,-::67J}++%,$@W,%@<++%,$@W,%@W,. (6-P:'@,(!A &-@ @&(7:,c6-%@g U6-@0#-@ @(11@C67%<%,.>:,Q6-%@U U6-@PJ}EUCUyzgffffff5exvivht5ED2VDUUEtW{tgx̻ۗʻwTvSd#4R3#ET5zBf3w#vywvwvg@( -AY@47 ApD:EDITOR31.LIBU )1@5@)67%<%,.>:,7-@HDeVJf4UTUdVfdgyiwyʩdSg2"2$D#VT3lwvf̺eg3fUegwfwWfee5#WdVwwxwywxxwwgfjgeWuVwgzzySzcDEdVefgv{yxheVD4625ED5ejvgffvgxݻwfwdVeUDCVfUfkUvVVgyʙwfxfeW5CgwWx{z        German Gonzalez Morris Cienfuegos 1733 N} Arica, Chile----------------------XXI Ciencia y TecnologiaCasilla 13-DAvenida Santa MarN}ia 5542Santiago, Chile------------------------11 de Enero de 1993.Sr. Editor:4 El 4 de Enero de 1993, lesN} envie una carta que es acerca a otra carta mia publicada en XXI 115. En la cual se me olvido mencionar que tambien se equivoN}wef"D##B23##37T#D3VW˽왺fygvxfUvCfSEEvgfyyvfSfTUwvwgvgxEexty鈗ffySEeCUFUVUFebVeU{uy޸xtgvfvfhwgff{sVeDhDgfvwwyxvfjVhewwwvfhggwgwxxwfge5vUveWxffjVWcVVGhˊhGgwwxgxGDVFfefVwxwgWgeE5gfvxwxwgxxyxvfDDVUeffxwgVeFEEr'nϫ9"X{E|!vR" 32Sg|hzutUD5$""Cv̻xR"3Eg˻BUr"3̻jQV@##4Xg˛r6 if (i+v1>=1) and (i+v1<=8) and (j+v2>=1) and (j+v2>=8) then if t[i+v1,j+v2]=0 then begin a:=v1; b:=v2;R} boundary:=true; end else boundary:=false else boundary:=false;end;hen begin a:=v1; b:=v2;PU! (@ D:ZTEST.BAS'D800 H,ɛh`2L1NEED D1 THRU D8u\/BTFB&CVcVwwVwffz̫fguGWfdcG4d5W4USUthwxˆggFfwWzڋꙚxyzwfF2#"3Dv욻y{yx{vywvwvxgfUWR"&"#3TUfwxwxhfuxhwwwwvgW52CVS5VUfyhezuhuUwh˪xdc5"R%wDiwwDVGFSD4EDffwifuvyvwzd6t1vCGeEfxxzgveczxffgfWWwxwfVtVFRYgxwuydwR7DfVwVgweWIeievgyykxUvERT3fdhVfef|˫وvejd#5B"UEfdWg鉉fVvGUfTugEx˚whUwwjtgwYwevVd3vBWTxvgwZfzvxeXfVTWt#gfyfxvyw{fguVvSfVyvgfxfVyxy̪뉨vtgdWt3fTyd        German A. Gonzalez Cienfuegos 1733 V} Arica, Chile------------------Terry Koyn1754 SprucedaleSt. Louis, MO 63146--------V}VwgefehffvxwzvgUGUUDEw۫vgUveDVvdFeidUeYVUEgvgwywywfejdTfWxwʻgfvfeUVfeVedFTuEVvgfxڗwfdEEgVgg˺ڧggfeWggffVuvTcVeUffyxهgeVufegx۩ywvfwxvxvfUbFUfVGhwxvdgfgfYhfvviegfVefzffere is not problem you could write me to the address show above. I will be happy to receive any answer from youV}. Sincerely,German A. Gonzalezve. I will be happy to receive any answer from youT=jvgVfvxwffv#C$5UVvxy˨vtVfUfwvgfeVeǽutC43TSDfcEvfiEECGD$$4E4fVi˾ߪyx|wdx4c5DGUWwxwyxUv4efgfVvfUwdxʻ˼vUd3""R2D3%fFyVvEgfxwxywgxvxyڙwUwTUVwggfwxwvgVwUVTgxwxxwh        German Gonzalez Morris Cienfuegos 1733 [}fUe{UvffffgwvwxwwڊwvgfefeUVTEVDT3e3UEVfVxwىwefg4T2DEfgwxggvjTVvTgwvyxxvgxwyxvueVUeVeVwwvfuzeUVDUefwwxڧzhvwxwhvhdUTFfxxwvefVfVffffwwzWwgWwwܻgf5UCETDEWfvgobre numeros amigos. En la cual se equivocaron en la edad que tenia Paganini al encontrar un par de numeros amigos[}eV5$0#!43WfWy뭸ܼܻeW"3dETffxeDv4B3343DCFwfDiVexʫΪivfgwfwfwfwTX4T"eFUgxw{vginista y no al matematico que me estoy refiriendo. Curiosamente existe semejanza de nombres. Agradeciendo la acog[}vgCr##"DEvxviܻvfW6S$eC4UVvfWyfzUyyxw{xUV4UdEfgfgie3DR"""3DDgfvwxgwD3"##D#VfWwwxwg۩˩ETTEUUVffxVwvVUUvwfwwfDUs3D3DUVggwxȉ̺UU$3#ETUVffg4C24Vfgf{VffUfgwxfwbVc%^gtA"iGkd""0Rgw٩罹yg4T!"2R!$ !""4Vy˻x@"3DuܻVB%Cg̨e32 "7f޾ʴb7 1"@f &Qf\3YuWZzۛgFeFBX8$tTA0U@13cEƸjYj8yf'e!e042byjeUWFS[R)z䦦gGsj:Ǫة+Vt:f"5'68FW9Ewgi{ʬɫzhw5$'qe:wWyvfivfbUVA352T5Ux}͉zxX':6WWddTGf'gEXUzuYGeGxwgWgwhUgJ&d{xdGhv{UzfVVehVzFfyxuZdet$f36tggxw{VSWeTfyXggfTvDDVdhgwWehwfveghgffwgwvixgeR4TD#SBTdWfvjeieivg؊ixUxxxGye*TS4ATB6DCygٚ뙪wDVB2"!"CC#SVYfܘhvˋxvguTVUgvUgefF5e$cUUWe͈xuzfxنwyfvBT!25Vfߩܻ{ʚV$q!2#EDwy̺wGgfhggvCb3""#33gwyvvdWۼfxufDFvfVwfffUjE64d5fWv컻ިggfxfvggfTf"uCVVfgz˽zWvdEUeDUfvFveWGUe$VTfVwwUdEDDUffwyhggfgwwUfUVfwxuUEUUUVwwVUDfUgxgfVfUwgvwwwffzcYbECDUFwgwVh'vd5fb6BfW)E؇xy˥zʇŪ|j[uZyBVWBC44fGWIχav) ""Twf{ּ|ʪYvESw\%xEpVB3v+hkDzZjjή{['7AQVQuDr:FC7{Wv䮇NG9Gfgw''Jd<;jƫoi4+cazcej:81'C{Nzf[cEWj\:2dcIjGWYjiY!4cgػ}Kg~؂sV\5*$4rusVh7U'Xsf;+ƙ~֧k<|4Y2bAp!**j~[u؊Ǿyz(Z+ axUGCX!%*FWZgGjZ^NeJ^j|upAJ!Bb`taVr'קI⇺*)t9AZE+Wt*&; tfIGzjYeyz;gzyZ#dhWlwj+)C>Z+Zth8ZvZX'El8h|RE$e(>G,yzx7z<;dTB6F9'8tcxzk,hZMYVyZ04xrB)7K:A%,- 99 para terminar ingresoz ------------------------| ( REGISTRO : %@ (}( ;h}Y = "@@06-%@68,--@'(( X = '68<,-  ;i}/zx|XX[bG'<j$pxT6yo۩ꥺw7Udag4VmNטj8c@q3`A%Bv'^^}ꫨ6C=eP6Ef*w뛈veBArA@3:Rx[ukGzXgb&`aECBqڞվ]~s pY 'Qt⢻g[tX'2a`h#r8Zt?}&xt(eUѻXD|t>8=QIxKnvmvnc ''Qh{Ey®Wx{J6*T.)ebMjYVY|Zw{gjUĢ[lYg|;ikcGBS7癪|:[ErJY|w}x|glfJSEwCGz89,8jpwښFh'At7@gGtzkC'jx~'Gԡ|H6AxgW}ZnzY.#vrthvZzNuevo valor '68<,-*(6  @0@@APJҠӛTH (}"&( NO HAY DAT;n};zgÊ4xvi&yuG7[xnyx8zx775:$ءt}cʫw6[!X!cd1fji\x؜ż[V؇f&{Gc0wx*ƇvTh X = 8<,   ,( (((DESEA VOLVER AL MENU S/N ,4S@0 (  "(>:;p}A%,ϠŠӛ (}F"$(NO EXISTEN DATOS8-@A< F @0--(;q}Ac66)#:Gtg躼_}{HEhg:')UV6eĴ'w648&T%xإi~۪vc&c%%U7#!x:7znize8Z*k' LA INCLUYE S/N %((.( 4S68,-@(6-%@8 ="@0B (}(CALCULANDO....;s}hD|5ehCUgW7i8}ԻZvC"BBs#E7;Wȇ^z{gKhd$4f[hŨk:yEz#W9EȸMgt祺Jui)fQ7E6Wd]g|:ļFx;Thyjwf'f&e[zkZrtw6FapTgwx[ggxg7J(ixljzXwtZ%Z4eV4gDGeh|[)|vyu7sv-@!!68<,-8<,%8<,$8<,   -@-@$ "68<,-@$ AP;v}68<,-   -@6-8<,@"(6(NO PUDO SER CALCULADO EL MODELO@ A"`;w}g&fVtAdhV&dG7iEÂf{Z̉x:ar6 #!/ë{nVeY'=jw'gs{"W6'HjGc'qf'e9'f68<,-8<,&$8<,X68<,-8<,&$8<,b l   v-@68<,--@;y}8ħz{ǚYteVZfZ'dJ8k4F`GGgJw{ⴧe%mTXWz[flG;vR:CcWӈMcxvivhwh+愥fTFf{VHgZtvy;[[We:gwythd6Lj/|YGi5gFv;eGkvv+E|hXijkgh'ifgE|'z*vx~XfhWXXFi{fzSzJFz} 6-%8,$8,* 4 6-'6-$>6-+&$,'+&$,H (}(MODELO :(\(Y = B0f-@;|}p8,"A"z (+B (X   ( (? )!@5(***ERROR DE CALCULO ***? A"`;}}(B0 = 8@,6-@-@"A" *8," 6-%@* A"(;~}Fz{ff%fbGbd'i6%%#4D!wDjGzy{zۭFcFV$$s%5!&"7FxᆰǨJvvWv"tE7&JΪݫdUfReaV8Fg6Sd$Vejy{dx{ʿۜXVWVIVG"7D121%RexVmzguywڦ{g|ۇ{UڣZ%5"1s"6rWzjĺEcTS#R"eCwҥYyjwiH(#(INGR BDR9 D:REGR.COMB@@R8)vf57fAgμ{xFxfguE$%"RBt5fgvxWiDev̾ˋ[If4cCBA%4#4VEfVWwdvzyixWztwgfe6xfwyjyxJfVffgVgzyzUywjVtwg:85uWgVxeJVhHxW~xx[ކwvwivjgGTvfeuWxv:UwvWzG}=x:;KVes6xuwWWi8Xw{HWWihVhgJ(giwɆxhfxghzxxgyzhxzxv5G(6fwwgʦvxEVz膪yj&xhꤥxe*V#YegwXz867yjHxzF&r$vtVR6fwغ{ꙬǾɇCT'VG4`ucGvcw[XkjI'xȿ^Θz{ghWtxU)1t6#d%V7Vjzzwj˻GY[:FVg$6s&P!3Q)87؆G{Y뾻zjt[FGcE1Y!1'eqwFyv'过亊SFyHefKCzdCVCTwfy7Ikbiͯʊvsgw#Bt2r&EeedvHuV4Ftk7ۊx}$cu2srfgdFfvkj{giwHh7[Cg2f#vDxtzgiTVSwɩXwgjuVUEeHeJt[GuCwuYehhjUxbtvVeggŊuKEuHwe8LjxghuYEexVwuXjJCdj꫶fwFGbA"4%3w۬{TcSfa"4f!'QkhYמgBdCBG5%j#WVgzZz쨫[Cv#! A3r4few}ܻgw7Bv5Q!uhVjX|zܪzi{vbvVb8ughz%WxWgCE6"BBRDVcUYɻ̫ڪͪJYDtcEc2SwifE4!R"DVG4iWi٫ʪgWdsTX6h"""!BS5WD{WxfܧkڪyiexvwXwhVZw~gIuGeSYUUT94$&V'cohj}yڪٚxvC7عWGdUd5QdZtefuUzBtUfv{yzgyyieWdVvxGUfvdV6uVUhYexgixWgWzw6hw7e|6gdg#jD&VFV{jKŗxWeYhxFW%Rvviyywe%&U')* '=~苇K؝{'L'6E [C"zS#i&eJfcQ3fc]ǧ}xvW}Zq4l,1:"ZR=>Cb)jꁫZWrWXs^dz[hl.9:;;x%+v|#yǕv^W)*%zvc;W'i) '}+'K^C;$06g}`4"7Δ~~wE8j?%oE:wꂬ4&~Gb=afc%*5oQx*+:}o~ڶxg5ju.jۀx;3&uw2x*C;cf5je84[8c="Et7<JC6vK~ZB/t(!{Cbxh'~0!{{DžEd!Ld|sS89t#zr'DAtZEc"~Q3)[#N,a7;/JB]ޤ:87ka~#b7|1CRoQK7E+*{1[W~O7gz.n"b#*f|DBA:GC)|e%zC[š+X+6[_foNH9[؃AiBV|qv!t!*c#c{b{zAd{x߷vjWW5d'!vj"2zxef8ecj+"}=xg~ח#zkzAVh*8{{ef"++FcAV}~+AD7GAF[{K;gC{#C^eDaf:6*^Jhg> {Az83ڸAQXm}k"&ݴ*d*q{n]˂;ȣ܊k`(jWfݑm+dYr|"5|EvG{܁*eDcY~Ri)&m~(Gt{æ|Z(_1i@|_P;:Ҋ6w9nSaz 1cX&jȽϚ^WGU'Pp5Q!Yfy~[wZdz1G*QƪBQy}-'@t!'Jl߄d~Q~*BEKЪm7[&GTx'GG^"zFƆ{i|9hecg|}zۂ'x%am%j{s}!C;W;z+:K"if#XW5v 6Z9 zg#]w7 ~ \`Ui"Sg&Sv5zA;I{cJxU5k$6&Rd!pV4Vvf'~A}C:oꋛxSf|!d&f$WQF'2"gwMxI&ݕ%FZEzTWgt{ffETWbZd[5wۂbZvzBi:[vSՇWXs%Z7z}܇;d'`BvDtiw%zF7z~}'꼃g(V\{72dK@:5BQ7iʼ|QafjCvz\7zpatV1!7Va{b=jۮ'f{"Wz&Rz%vWb|'&BxW˘yȝ5W{cZQCwe7A;Jnzڭ*{E'd}JZ}Aeܗw#Fv7` ac:7J{''W x{[gkkeQ#vW߇VG%6Bg|ȪxfvͤfAz!&i`V"ZwItxeƟˤbkd,dt7&FEkd{)9z6)ufjg̅7aXb&fx[g녭jZQjt7zh6"g܃'t&bUg2zWW}#~w2nwUxEڨ:xAGgu447mVxb{lFyFXQ6jFy;»kC%CiEBV߅܈=K杆KxTT8!x7eunYʚSwv%A;!C##GQ|ZٴVfw{KUEʆAnbgj9c[5Yd%#iK#jݦG"D$i}߇_˩|c2R4 %B3yrHn}eWuXB!"""Ii˻bT"3Efjܿ˶Q!#QUBxV{jf4U5Wv"v2Zkk%KxFU'VA:ZƊ5۪\kjx;er`{jvgbX5fV1:&U{VژX#r5x8BFG8XCX9ey32{J)yM;eA*a|~wKGE{1 jWWX;)h*Fw{vzk~v%&`"H'[g]z)؊6B1wUcCF{gި'6:Q!ftIVYbYf$3'6k{׼xrCb$"J%5뇛gۨSvV'K}iYgfVVw28*5~b"&{wFjfDjîzg};Fjbjg#k`C9Yky:hv:iek%:"{'a`;A@9eDx[Jrȿd]*5jVzbSG;+#w5cg޺u=j'fcx19DB7;hZckbxGA5WZ%baekع#a#%.v9΃U1{sf|eg%begawBjji)Je``{vWQ&5ȿ4܊B)iEۆtz R3zR#Q+%iI̯]{a6weT$p*R~[$ee~[TVUguIht#W%r`1"}Yf筍^C|e|drYfyuFw{3qZ!dGw'2gw'臼yE6VWWA{D$dzeb2'%yjA[Dܾib`#Fvxj킾t{"x'7v24'?E{J78Ez7Vη{Q{cRF!!zxA~adf;ּAA4'u5ztgjfmuy7"2Dx4QGExcbx{ջ;