@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 ALLOWED458 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[}!+ `2evista34 #X;------------------------------X; Revista STAK presenta:X;X; V E N T A N A SX;X; Por: Bill ]} Yesterday$X;.X; Revista STAK # 58#X;------------------------------BX;L X; Esta rutina se llama desdeV$X;BASIC ^}con el siguiente formato:`X;j$X; X=USR(DIRECCION,ADR(MENSAJE$),t!X; ANCHO,ALTO,POSX,POSY)~X;X; DIRECCION= Es _}ta rutinaX; mensaje$= el mensaje#X; ANCHO= ancho del mensaje!X; ALTO = alto del mensaje"X; POSX = Posi `}cion horizontalX; POSY = Posicion vertical#X;------------------------------X;!X; Almacenamiento y miscelaneaX; a}MEM.PANXMENSAJE ANCHO  ALTO POSX POSY( MULT82 MULT40< AUXFPUNTERO.PANP b}#X;------------------------------Z X; Esta Rutina es reubicable!d#X;------------------------------nX;x COMIENZO c}7;;# de param.7;;DireccionPMENSAJE;; de memoria7;; donde estaPMENSAJE;; el MENSAJE77;;Ancho entre d}PANCHO;;(1 y 40)77;;Alto entrePALTO;;(1 y 24)77;;Posicion XPPOSX;;entre (0-39)7"7;;Posicion Y,P e}POSY;;entre (0-23)6X;@#X;------------------------------JX; Esta rutina multiplica laT"X; coordenada Y por 8, la alma-^ f}#X; cena; luego la multiplica porhX; 32r#X;------------------------------|Q>;;Limpiamos Re-PAUX;;gistro AUXiliar g} QPOSY T?;;* 2UAUX T?;;* 4UAUX T?;;* 8UAUXPMULT8;;POSY * 8 se al-QAUX;;macena PMULT8 QMUL h}T8 T?;;* 16UAUX T?;;* 32UAUX&X;0#X;------------------------------:#X; Se suman los resultados de laD$X; mult i}iplicacion por 8 y 32 paraN#X; obtener la multiplicacion porXX; 40b#X;------------------------------l,v OMULT8 PMU j}LT40QAUX OMULT8PMULT40#X;------------------------------"X; Aqui se suma la coordenada X!X; al resultad k}o de lo anteriorX; a fin de convertir todo aX; una matriz unidimensional#X;------------------------------, QMUL l}T40 OPOSXPPUNTERO.PAN QMULT40O> PPUNTERO.PAN*#X;------------------------------4"X; Luego se calcula m} la posicion>X; de pantalla en la cual seH#X; estampara la ventana por fin!R#X;------------------------------\,fQPUN n}TERO.PANp OMEM.PANzPPUNTERO.PANQPUNTERO.PANOMEM.PANPPUNTERO.PAN#X;------------------------------ o}X; Finalmente el mensaje se X; estampa, intercambiando lo!X; que esta en la pantalla con!X; el contenido del STRING q p}ueX; tiene el mensaje. X; X actua solo como auxiliar#X;------------------------------ DE.NUEVO%> ARRIBA Q q}@PUNTERO.PAN7 >$ Q@MENSAJE7. P@PUNTERO.PAN78 AB P@MENSAJE7L 3V )ANCHO` HARRIBAj #X;--------------------------- r}---t !X; Ajuste para proxima linea av X; estampar~ #X;------------------------------ , QMENSAJE OANCHO PMENSAJE s} DSIGUE.1 #MENSAJE #X;------------------------------ #X; Ajuste para proxima direccion X; de pantalla #X;-------- t}---------------------- SIGUE.1 , QPUNTERO.PAN O>( PPUNTERO.PAN DSIGUE.2( #PUNTERO.PAN2 SIGUE.2< "AL u}TOF HDE.NUEVOP #X;------------------------------Z #X; Si no hay mas lineas vuelve ad X; BASICn #X;------------------------ v}------x X; : #X;------------------------------X; Revista STAK presenta:X;$X; Conversor de Codigos ATASCII aX; Codix}gos de PantallaX;$X; Por: Bill Yesterday.X;8X; Revista STAK # 5B#X;------------------------------LX;Vy}X; Variables y miscelanea`#X;------------------------------jX;tMENSAJE~CUANTOS͈INVERSOϒX;#X;--------z}---------------------- X; Esta rutina es reubicable#X;------------------------------ COMIENZO7;; #de parame{}tros7;; Direccion dePMENSAJE;;STRING7;; a Convertir PMENSAJE7;; Cantidad de PCUANTOS;;CARACTERES a|}7;; Transformar PCUANTOS(X;2#X;------------------------------<"X; La conversion es simple y seF"X; rige por la sigui}}ente tabla:PX;ZX; Codigos Codigos dedX; ATASCII PantallanX; -------- ------------xX; 0 - 31 s~}umar 64X; 32 - 95 restar 32X; 96 - 127 sin alterarX;$X; A los caracteres en inverso se$X; les suma 12}8 y siguen la misma#X; regla de la tabla. En nuestra X; rutina, al caracter se le "X; efectua un AND #128 para ver"X;} si es inverso. Si es asi, la$X; variable INVERSO tendra un 128X; en caso contrario un 0#X;---------------------------}---%> CONVIERTEQ@MENSAJE7;; CaracterM>;; Es inverso?"PINVERSO;; 128=inverso,Q@MENSAJE76M>;; Sin in}versos@R> ;; Es mayor a 31JEMAYOR.31;; Si. SalteTO>@;; No. Sume 64^HSIGUE.1;; Salta siempreh MAYOR.31rR>`;; }Es mayor a 96|ESIGUE.1;; Si.Nada cambia;;; No. Reste 32S>  SIGUE.1LINVERSO;;Si es inverso..P@MENSAJE7;; }Por fin!#X;------------------------------!X; ajusta puntero de mensaje y"X; decrementa cantidad de bytes#X;----------}-------------------- #MENSAJE HSIGUE.2#MENSAJE SIGUE.2 "CUANTOSHCONVIERTE"CUANTOS&ICONVIERTE}0#X;------------------------------:"X; No habiendo mas bytes, vamosD!X; de vuelta a nuestro queridoN#X; y nunca bien pond}erado BASIC!X#X;------------------------------b:3N$X;*******************************$X;* Cargador de Vidas Infinitas *$X;* para ZYBEX I-II-III *$X;* } *$X;* por: Bill Yesterday *$X;* *$$X;* Agradecemos a NESTOR ME}RCADO*.$X;*por buscar la rutina de vidas*8$X;* infinitas *B$X;* *L$X;* } Revista STAK #5 *V$X;*******************************`X;jX;tX;~ X;---------------------------X; Si tiene cu}alquier duda oX; consulta, escribanos a:X;X; ˠX; ᠵX;  X;}---------------------------X;X;EIX;--------------------SETVBV\SYSVBV_ WARMSVtX;(}X;2 BEGIN< Q>4?CONTFP P Q>5?CONTZP dQ>nP xQ>;; No BASIC!!PPӖQ>;; No Reboot!PD$}>CLR0;Limpia desdeQ>;; $0700 hastaCLR;$BFFFP92HCLR #CLR QCLRR> HCLR0!WA}RMSV;; Salta a ?CONT" ?CONT,Q>6PR;;margen izq.@P;;warmstart!!J P ;;bootTQ>^Ph PUTMESr$>4MENSAJE|}%>5MENSAJE BƐX;Q>PQ ESPERAR FESPERA SETVBI$>BQDEVICE;; 0=CASSETTEHDIS}K;; 1= DISKQ> P!;; Cassette Boot!&DISK0!;; Disk Boot!: MENSAJED4 A}Ҡڠ٠ Šؠ}ˠA=NX;XX;b lX;v SETVBIQ> $>5NEWVBI %>4NEWVBI !SETVBV SETRUNI Q>4RUNINIP }Q>5RUNINIP: NEWVBI6 SETRUNI CHECK0  QFLAG FBACK  Q>4SYSVBV*P"4 Q>5SYSVBV>P#HBACKR}8\ !SYSVBVfX;pX;z X; Aqui revisa el archivo queX; esta siendo cargado y si$X; encuentra la rutina de perdida}X; de vidas, la desactiva...X; CHECK0QD(;;Direccion REAL!R>;;$CE:DECrementa HCHECK1Q>;;No decrementa!}PD( CHECK1Qd(;;Direccion REAL!R>;;$CE:DECrementa HCHECK2 Q> Pd($ #FLAG. CHECK28 :B X;L RUNIN}IV QFLAG` HBKRj CHECK0t SETVBI~ BKR : X; X; DEVICE;0=CASS 1=DISK   FLAG   X;  }BEGIN1240 DELTA.X .BYTE 01260 DELTA.Y .BYTE 01420 POS.PELOTA.Y.INI .BYTE 331440 POS.PELOTA.MATRIZ .BYTE 1521480 LIM.DERECHO.PA}L .BYTE 1441500 LIM.IZQUIERDO.PAL .BYTE 641520 LIM.DERECHO.PEL .BYTE 1561540 LIM.IZQUIERDO.PEL .BYTE 641560 LIM.SUPERIOR.}PEL .BYTE 401580 LIM.INFERIOR.PEL .BYTE 2081600 DIRECCION.PEL .BYTE 01620 ;0=ARRIBA.DER 1=ABAJO.DER1640 ;2=ABAJO.IZQ 3=A}RRIBA.IZQ1820 TABLA.ANGULO .BYTE 0,1,1,2,21840 INDICE .BYTE 01980 ;2000 MATRIZ.AUXILIAR .BYTE 02020 ;2620 ;2820 ;2920} AQUI.VAMOS2940 JSR LEE.JOYS2960 LDX INDICE2980 LDA TABLA.ANGULO,X3000 CMP #23020 BNE NO.FIN.TABLA3}040 LDA #03060 STA INDICE3080 LDX INDICE3100 NO.FIN.TABLA3120 LDA TABLA.ANGULO,X3140 BNE NO.HORIZONT}AL3160 JMP HORIZONTAL3180 NO.HORIZONTAL3200 JMP VERTICAL3460 LEE.JOYS3480 LDA 632 ; 632 = JOYSTICK3500 } CMP #73520 BNE NO.DERECHA3540 LDA POS.PALETA3560 CMP LIM.DERECHO.PAL3580 BEQ SALE.LEE.JOYS3600 I}NC POS.PALETA3620 RTS 3640 NO.DERECHA3660 CMP #113680 BNE SALE.LEE.JOYS3700 LDA POS.PALETA3720 CMP }LIM.IZQUIERDO.PAL3740 BEQ SALE.LEE.JOYS3760 DEC POS.PALETA3780 SALE.LEE.JOYS3800 RTS 3820 ;4520 ;4540 VERT}ICAL4560 LDA DIRECCION.PEL4580 BEQ SALTO.ARRIBA4600 CMP #34620 BNE ABAJO4640 SALTO.ARRIBA4660 JMP A}RRIBA4680 ;4700 ABAJO4720 LDA POS.PELOTA.Y4740 CMP LIM.INFERIOR.PEL4760 BNE NO.LIMITE.INF4780 LIMITE.INFERI}OR4800 JSR CAMBIA.SEN.VERTICAL4802 JSR VER.ANGULO.SALIDA4804 JMP AQUI.VAMOS4860 NO.LIMITE.INF4880 CMP #1}964900 BNE NO.COLISION4920 COLISION.POSIBLE4940 LDA POS.PELOTA.X4960 CMP POS.PALETA4980 BEQ COLISION500}0 LDX #35020 LL.15040 CLC 5060 ADC #15080 CMP POS.PALETA5100 BEQ COLISION5120 DEX 5140 BPL} LL.15160 LDA POS.PELOTA.X5180 LDX #125200 LL.25220 SEC 5240 SBC #15260 CMP POS.PALETA5280 BEQ} COLISION5300 DEX 5320 BPL LL.25340 JMP NO.COLISION5360 COLISION5400 JSR CAMBIA.SEN.VERTICAL5420 JS}R VER.ANGULO.SALIDA5440 JMP AQUI.VAMOS5460 NO.COLISION5480 LDA DELTA.Y5500 BNE NO.TOPA.INFERIOR5520 TOPA.INF}ERIOR5540 LDA POS.PELOTA.MATRIZ5560 CLC 5580 ADC #85600 STA MATRIZ.AUXILIAR5620 TAX 5640 LDA MA}TRIZ,X5660 CMP #1 ;ES LADRILLO?5680 BNE NO.LADRILLO.ABAJO5700 ES.LADRILLO.ABAJO5760 JSR CAMBIA.SEN.VERTI}CAL5780 JMP AQUI.VAMOS5800 NO.LADRILLO.ABAJO5820 LDA DELTA.X5840 CMP #95860 BCC MOVER.ABAJO5880 INC} MATRIZ.AUXILIAR5900 LDA MATRIZ.AUXILIAR5920 TAX 5940 LDA MATRIZ,X5960 CMP #1 ;ES LADRILLO?5980 } BNE MOVER.ABAJO6040 JSR CAMBIA.SEN.VERTICAL6060 JMP AQUI.VAMOS6080 MOVER.ABAJO6100 JSR MOVER.ABA6120 LD}A POS.PELOTA.MATRIZ6140 CLC 6160 ADC #86180 STA POS.PELOTA.MATRIZ6200 INC INDICE6220 LDA #76240 } STA DELTA.Y6260 INC POS.PELOTA.Y6280 JMP AQUI.VAMOS6300 NO.TOPA.INFERIOR6320 JSR MOVER.ABA6340 INC POS.}PELOTA.Y6360 INC INDICE6380 DEC DELTA.Y6400 JMP AQUI.VAMOS6420 ;6440 ARRIBA6460 LDA POS.PELOTA.Y6480 } CMP LIM.SUPERIOR.PEL6500 BNE NO.LIMITE.SUP6520 LIMITE.SUPERIOR6560 JSR CAMBIA.SEN.VERTICAL6580 JMP EXIT.AR}RIBA6600 NO.LIMITE.SUP6620 LDA DELTA.Y6640 CMP #16660 BNE NO.TOPA.SUPERIOR6680 TOPA.SUPERIOR6700 LDA PO}S.PELOTA.MATRIZ6720 SEC 6740 SBC #86760 STA MATRIZ.AUXILIAR6780 TAX 6800 LDA MATRIZ,X6820 CMP #}1 ;ES LADRILLO?6840 BNE NO.LADRILLO.ARRIBA6900 JSR CAMBIA.SEN.VERTICAL6920 JMP AQUI.VAMOS6940 NO.LADRILL}O.ARRIBA6960 LDA DELTA.X6980 CMP #97000 BCC MOVER.ARRIBA7020 INC MATRIZ.AUXILIAR7040 LDA MATRIZ.AUXI}LIAR7060 TAX 7080 LDA MATRIZ,X7100 CMP #1 ;ES LADRILLO?7120 BNE MOVER.ARRIBA7180 JSR CAMBIA.SEN}.VERTICAL7200 JMP AQUI.VAMOS7220 MOVER.ARRIBA7240 JSR MOVER.ARR7260 INC DELTA.Y7280 DEC POS.PELOTA.Y730}0 INC INDICE7320 JMP AQUI.VAMOS7340 NO.TOPA.SUPERIOR7360 JSR MOVER.ARR7380 DEC POS.PELOTA.Y7400 INC }INDICE7420 INC DELTA.Y7440 LDA DELTA.Y7460 CMP #87480 BNE EXIT.ARRIBA7500 LDA #07520 STA DELTA.}Y7540 LDA POS.PELOTA.MATRIZ7560 SEC 7580 SBC #87600 STA POS.PELOTA.MATRIZ7620 EXIT.ARRIBA7640 JMP A}QUI.VAMOS7660 ;7680 ;7700 HORIZONTAL7720 LDA DIRECCION.PEL7740 BEQ DERECHA7760 CMP #17780 BEQ DERECHA}7800 ;7820 IZQUIERDA7840 LDA POS.PELOTA.X7860 CMP LIM.IZQUIERDO.PEL7880 BNE NO.LIMITE.IZQUIERDO7920 JSR }CAMBIA.SEN.HORIZONTAL7940 JMP AQUI.VAMOS7960 NO.LIMITE.IZQUIERDO7980 LDA DELTA.X8000 BNE NO.TOPA.IZQUIERDA80}20 TOPA.IZQUIERDA8040 LDA POS.PELOTA.MATRIZ8060 SEC 8080 SBC #18100 STA MATRIZ.AUXILIAR8120 TAX 814}0 LDA MATRIZ,X8160 CMP #1 ;ES LADRILLO?8180 BNE NO.LADRILLO.IZQUIERDA8240 JSR CAMBIA.SEN.HORIZONTAL8}260 JMP AQUI.VAMOS8280 NO.LADRILLO.IZQUIERDA8300 LDA DELTA.Y8320 CMP #28340 BCC MOVER.IZQUIERDA8360 }LDA MATRIZ.AUXILIAR8380 SEC 8400 SBC #88420 STA MATRIZ.AUXILIAR8440 TAX 8460 LDA MATRIZ,X8480 C}MP #1 ;ES LADRILLO?8500 BNE MOVER.IZQUIERDA8560 JSR CAMBIA.SEN.HORIZONTAL8580 JMP AQUI.VAMOS8600 MOVER.I}ZQUIERDA8620 JSR MOVER.IZQ8640 INC INDICE8660 DEC POS.PELOTA.MATRIZ8680 LDA #118700 STA DELTA.X8720} DEC POS.PELOTA.X8740 JMP AQUI.VAMOS8760 NO.TOPA.IZQUIERDA8780 JSR MOVER.IZQ8800 INC INDICE8820 DEC }DELTA.X8840 DEC POS.PELOTA.X8860 JMP AQUI.VAMOS8880 ;8900 DERECHA8920 LDA POS.PELOTA.X8940 CMP LIM.DERE}CHO.PEL8960 BNE NO.LIMITE.DERECHO9000 JSR CAMBIA.SEN.HORIZONTAL9020 JMP EXIT.DERECHA9040 NO.LIMITE.DERECHO90}60 LDA DELTA.X9080 CMP #89100 BNE NO.TOPA.DERECHA9120 TOPA.DERECHA9140 LDA POS.PELOTA.MATRIZ9160 CLC} 9180 ADC #19200 STA MATRIZ.AUXILIAR9220 TAX 9240 LDA MATRIZ,X9260 CMP #1 ;ES LADRILLO?9280 } BNE NO.LADRILLO.DERECHA9340 JSR CAMBIA.SEN.HORIZONTAL9360 JMP AQUI.VAMOS9380 NO.LADRILLO.DERECHA9400 LDA DE}LTA.Y9420 CMP #29440 BCC MOVER.DERECHA9460 LDA MATRIZ.AUXILIAR9480 SEC 9500 SBC #89520 STA MATR}IZ.AUXILIAR9540 TAX 9560 LDA MATRIZ,X9580 CMP #1 ;ES LADRILLO?9600 BNE MOVER.DERECHA9660 JSR CA}MBIA.SEN.HORIZONTAL9680 JMP AQUI.VAMOS9700 MOVER.DERECHA9720 JSR MOVER.DER9740 INC DELTA.X9760 INC POS.P}ELOTA.X9780 INC INDICE9800 LDA DELTA.X9820 CMP #129840 BNE EXIT.DERECHA9860 LDA #09880 STA DELT}A.X9900 INC POS.PELOTA.MATRIZ9920 EXIT.DERECHA9940 JMP AQUI.VAMOS9960 NO.TOPA.DERECHA9980 JSR MOVER.DER0100}00 INC INDICE010020 INC POS.PELOTA.X010040 INC DELTA.X010060 LDA DELTA.X010080 CMP #12010100 BNE EXIT.DERECH}A010120 LDA #0010140 STA DELTA.X010160 INC POS.PELOTA.MATRIZ010180 JMP AQUI.VAMOS010200 CAMBIA.SEN.VERTICAL0102}20 LDA #0010240 STA INDICE010260 LDA DIRECCION.PEL010280 BNE NO.ES.0010300 INC DIRECCION.PEL010320 RTS 0103}40 NO.ES.0010360 CMP #1010380 BNE NO.ES.1010400 DEC DIRECCION.PEL010420 RTS 010440 NO.ES.1010460 CMP #201048}0 BNE SI.ES.3010500 INC DIRECCION.PEL010520 RTS 010540 SI.ES.3010560 DEC DIRECCION.PEL010580 RTS 010600 CAMBI}A.SEN.HORIZONTAL010620 LDA #0010640 STA INDICE010660 LDA DIRECCION.PEL010680 BNE NO.0010700 LDA #3010720 ST}A DIRECCION.PEL010740 RTS 010760 NO.0010780 CMP #1010800 BNE NO.1010820 INC DIRECCION.PEL010840 RTS 010860 N}O.1010880 CMP #2010900 BNE NO.2010920 DEC DIRECCION.PEL010940 RTS 010960 NO.2010980 LDA #0011000 STA DIREC}CION.PEL011020 RTS 011040 VER.ANGULO.SALIDA011060 RTS 011080 ;012140 STA MISSILS+POS.PELOTA.Y,X012860 JSR ESPER}A012900 ;012920 MOVER.ARR012940 CLC 012960 LDA POS.PELOTA.Y012980 ADC #7013000 TAY 013020 LDA #0013040 ST}A MISSILS,Y013060 LDY POS.PELOTA.Y013080 DEY 013100 JSR MUEVE.ARRABA013120 RTS 013140 ;013160 MOVER.ABA013180 } LDY POS.PELOTA.Y013200 DEY 013220 LDA #0013240 STA MISSILS,Y013260 LDY POS.PELOTA.Y013280 INY 013300 JSR }MUEVE.ARRABA013320 RTS 013340 ;013360 MUEVE.ARRABA013380 LDX #0013400 MV.1013420 LDA DATOS.PELOTA,X013440 STA }MISSILS,Y013460 INY 013480 INX 013500 CPX #8013520 BNE MV.1013540 RTS 013560 ;013580 ESPERA013600 LDX #7}013620 W.0013640 LDY #0013660 W.1013680 INY 013700 BNE W.1013720 DEX 013740 BNE W.0013760 RTS 013780 ;{$X;*******************************$X;* Cargador de Vidas Infinitas *$X;* para B L I N K Y *$X;* } *$X;* por: Bill Yesterday *$X;* *$$X;* Agradecemos a NESTOR ME}RCADO*.$X;*por buscar la rutina de vidas*8$X;* infinitas *B$X;* *L$X;* } Revista STAK #5 *V$X;*******************************`X;jX;tX;~ X;---------------------------X; Si tiene cu}alquier duda oX; consulta, escribanos a:X;X; ˠX; ᠵX;  X;}---------------------------X;X;EIX;--------------------SETVBV\SYSVBV_ WARMSVtX;(}X;2 BEGIN< Q>4?CONTFP P Q>5?CONTZP dQ>nP xQ>;; No BASIC!!PPӖQ>;; No Reboot!PD$}>CLR0;Limpia desdeQ>;; $0700 hastaCLR;$BFFFP92HCLR #CLR QCLRR> HCLR0!WA}RMSV;; Salta a ?CONT" ?CONT,Q>6PR;;margen izq.@P;;warmstart!!J P ;;bootTQ>^Ph PUTMESr$>4MENSAJE|}%>5MENSAJE BƐX;Q>PQ ESPERAR FESPERA SETVBI$>BQDEVICE;; 0=CASSETTEHDIS}K;; 1= DISKQ> P!;; Cassette Boot!&DISK0!;; Disk Boot!: MENSAJED4 A}Ҡ ̠ɠΠˠ٠}ˠA=NX;XX;bUlX;v SETVBIQ> $>5NEWVBI %>4NEWVBI !SETVBV SETRUNI Q>4RUNINIP }Q>5RUNINIP: NEWVBI6 SETRUNI CHECK0  QFLAG FBACK  Q>4SYSVBV*P"4 Q>5SYSVBV>P#HBACKR}8\ !SYSVBVfX;pX;z X; Aqui revisa el archivo queX; esta siendo cargado y si"X; encuentra la rutina de vidasX;} la desactiva....X; CHECK0Q;;Direccion REAL!R>;;C6:DECrementa HCHECK1Q>;;No DECrementaP #FL}AG CHECK1: X; RUNINI QFLAG$ HBKR. CHECK08 SETVBIB BKRL :V X;` X;j DEVICE;0=CASS 1=DISKt  ~} FLAG   X;  BEGIN#EI#X;------------------------------"X; FX "DISTORSION"  NEW AGE 90#X; DEL JUEGO 'SUPER SPRINT' (ST)#X;------ }------------------------X; BYTES VBI: 161 (9+152)$X; BYTES DL: 582.!X;----------------------------8PASS;; INIT(1) }BTIME.CTD;; INIT(2)LLINE.CTD;; INIT(193)V CTD1` CTD2jCEMPTR.LOtLINDIR.LO;;~CTD.MAX }LIN.BYTES(SETVBV\XITVBVb!X;----------------------------77>;; HIGH BYTE7?;; LOW BYTE }77;; VBI TYPE !SETVBV X;X; VBI INITS HEREX;(-2 QPASS<HGO;; GO IF <>0F !XITVBVPGO"TIME.CTDZ FDO }.VBId !XITVBVn DO.VBIx Q>CTD.MAX PTIME.CTD "LINE.CTD HCONTQ>PPASS;; FX HAPPY END !XITVBVCONT } QLINE.CTD>QLASTCEM.LOPCEMPTR.LOQLASTCEM.LOPCEMPTR.LOX;QLASTLIN.LOPLINDIR.LO"QLASTLIN }.LO,PLINDIR.LO6X;@Q>J PCTD1T PCTD2^LOOPh%>rQLINDIR.LO|P@CEMPTR.LO73QLINDIR.LOP@ }CEMPTR.LO7X;0HB0X;QLASTCEM.LO;S>ES1"LASTCEM.LOS1PLASTCEM.LOQLASTLIN.LO;S> }LIN.BYTES&ES20"LASTLIN.LO:S2PLASTLIN.LOD !XITVBVNX;X B0"CTD1bHB2l #CTD2v QCTD2R>DB1;; A < }= 16Q> B1PCTD2 PCTD1X;QLINDIR.LO;S>LIN.BYTESES3"LINDIR.LOS3PLINDIR.LOX;B2QC }EMPTR.LO ;S> ES4*"CEMPTR.LO4S4PCEMPTR.LO>X;H !LOOPRX;WX; INIT + 157\LASTCEM.LOf =kX; I }NIT + 159pLASTLIN.LOz = B%DOS SYSB*)DUP SYSB SAUTORUN SYSB\VENTANASM65BwCONVASCIM65BCARZYBEXM65BGSTAKOUT3SRCBCARBLINKM65B DISTORSIM65