@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-?:<@!}<B-@@#-@!:(| |> &-@!!}&(0 A0@@D:*.*^-@@ +-@@8)@!}F67<,.>:,J ^-@"%@1-(7@<@,7@<&@,1 J-@@#-( CONTI28}NUEJF:B2y,@ApH-@@#-@!:(| |> H A`AF:A,"A29}6,-@"%@A(7@<@,L-@@#/(PRESS LF:B2y,@AI2:}@"-@@ .-@!E( I x-@!@*(<-@!@2;}Q(|FILE: |c-@!@x(|D:FILENAME.EXT|G-@!@*(GF:A,"A02<}AW Apn-@"@)(WHAT IS THE ;-@"@N(NUMBER ?? `-@0@dn2=} AM 6-A:,!$-@@#C(THIS BOOK DOESN'T EXISTM A+6-+$@W,%@!6-+ A@2>} C"!-@@#9(MEMORY EMPTY !!!C Ap*}-@"@((ORDER FOR: :-@"@2?}M(UTHOR or OOK_-@3@l)@s(>:,} A4!!@e*@fA>6-@0$+"@e2@},-@)-@@#?(ǮS-@@%W i-@@#(ALPHABETIZ2A}ING...-@@%  ' 6-6-'AY^6-7-@X+$@W,%@2B}@WE6-%@Z68,-@:7%<%,,^ **6-@#P:K:,'K:@,,&@D-@&$67@,. 2C}567@W,. D67@,.8,8%,A 6-8%,68%,-8,:6.7++%,$@W,%@<++%,$2D}@W,%@W,67++%,$@W,%@<++%,$@W,%@W,.7+$@W,%@<+$@W,%@W, 62E}8,-B 867+$@W,%@<+$@W,%@W,.B A -&@68,A68%2F},-8,cc67++%,$@W,%@<++%,$@W,%@W,.7+$@W,%@<+$@W,%@W, 68%,-2G}::67++%,$@W,%@<++%,$@W,%@W,. (6-P:'@,(!A &-@ @2H}&(7<%@),.-@ @.(7%@0<%@I,.Y-@@.(7%@P<%@U,@-@5@2I}Y(7%@V<%@V,8AY@4 AgAY!6-5-@ @8C1@2J}U67%<%,.>:,c6-%@g U6-@0#-@ @(11@C67%<%,.>:,Q6-%@U 2K}U6-@P#-@@11@C67%<%,.>:,Q6-%@U )1@5@)67%<%,.>:,2L}7-@@( -AY@47 Ap D:EDITOR3.LIB @)67%<%,.>:,0\0 REM S."D:EDITOR3.LIB1 POKE 106,1608 GRAPHICS 0:? " Ҡ":POSITION 3,3:? "BOOK:":POSITION 1,5:? "AUTHOR:":POSITION 3FN},7:? "LOCATION:"9 POSITION 29,7:? "LOAN:":POSITION 10,9:? "ՠ":POSITION 16,9:? "OFF":POKE 710,0:POKE 709,710 ? :? "EFO}W BEGINNING":? "OAD FILE":? "AVE FILE":POKE 16,64:POKE 53774,6411 ? " NEXT BOOK":? " BACK BOOK":? "LPHABET":? "IRECTORFP}Y ":? "O OTHER BOOK"12 ? "ETURN TO MAIN MENU":POSITION 5,23:? "MESSAGE: By German A. Gonzalez M.";13 POSITION 15,1:? "FREFQ}E: 370":POSITION 15,0:? "BOOK:":POSITION 26,0:? "NUMBER OF":POSITION 26,1:? "BOOKS:"14 COM A$(21090),Q$(30),NO$(18),A(3),X(4FR}00),B$(57),NO1$(14):A(0)=29:A(1)=19:A(2)=5:A(3)=0:X1=1:RE=115 CLOSE #2:OPEN #2,4,0,"K:":A$(1)=" ":A$(21090)=" ":A$(2)=A$:GOTFS}O 69017 X1=X1+57:I1=I1+1:IF I2>370 THEN POSITION 14,23:? "MEMORY FULL!!!";:X1=X1-57:I1=I1-1:I2=I2-1:GOTO 17020 POSITION 3FT}3,1:? I2;" ":POSITION 21,1:? 370-I2;" ":POSITION 21,0:? I1;" ":I=021 FOR X=0 TO 3:Q=022 Q$(1)=" ":Q$(A(X)+1)=" ":Q$(2)=QFU}$23 IF X=0 THEN POSITION 2,3:? "";:GOSUB 24824 IF X=1 THEN ? :? :? "";:GOSUB 24825 IF X=2 THEN ? :? :? "";:GOSUBFV} 24826 IF X=3 THEN POSITION 34,7:? " ";:GOSUB 24840 TRAP 40:Q1=0:GET #2,T50 IF T=96 THEN 4080 IF Q>0 AND T=126 THEN Q$(Q,FW}Q)=" ":Q=Q-2:Q1=1:GOTO 11081 IF T=30 THEN Q=Q-2:Q1=1:GOTO 11082 IF T=31 THEN Q1=1:GOTO 11090 IF T=155 THEN 150100 IF T<32FX} OR T>122 THEN 40110 Q=Q+1:IF Q>A(X)+1 THEN Q=A(X)+1:? "";:GOTO 40120 IF Q<0 THEN Q=0:GOTO 40130 ? CHR$(T);:IF Q1 THEN 40FY}140 Q$(Q,Q)=CHR$(T):GOTO 40150 IF Q=0 THEN 40160 A$(X1+I,X1+I+A(X))=Q$(1,A(X)+1):I=I+A(X)+1:NEXT X:? 163 IF RE=0 THEN 200FZ}0165 RE=1170 POSITION 21,0:? I1;" ":POKE 764,255:POKE 752,1:POSITION 17,9:? "ON ":POKE 702,64:POKE 694,0171 POSITION 33,1F[}:? I2;" ":POSITION 2,21:? " INPUT BOOK ";I1+1;" ":POSITION 2,20:? "ODIFY BOOK ";I1;" "172 TRAP 172:GET #2,T:GOSUB 260F\}173 IF T=77 THEN IF I2>=1 THEN GOSUB 250:RE=0:GOTO 20174 IF T=83 THEN 550175 IF T=76 THEN 500176 IF T=27 THEN IF I1+1<=I2F]} THEN POSITION 14,23:? "SURE (Y/N)";:GET #2,J:IF J<>89 THEN 170177 IF T=68 THEN GOSUB 600178 IF T=65 THEN 800179 IF T=27 F^}AND J=89 THEN GOSUB 250:GOTO 17180 IF T=43 THEN 300181 IF T<>82 AND T<>78 THEN 185182 POSITION 14,23:? "SURE?? (Y/N)";:GEF_}T #2,SB:TRAP 257:IF SB<>89 THEN 185183 IF T=78 THEN RUN 184 RUN "D:MAINMENU.LIB"185 IF T=45 THEN 400186 IF T=27 THEN I2=IF`}1+1:GOSUB 250:GOTO 17187 IF T=155 THEN T=32190 IF T=71 THEN 700247 POSITION 14,23:? "EXISTS NO COMMAND ";CHR$(T);"Fa}";:GOTO 170248 IF RE THEN U=PEEK(85):W=PEEK(84):? Q$:POSITION U-1,W:? " ";249 RETURN 250 POKE 752,0:POSITION 17,9:? "OFFb}F":RETURN 257 POSITION 14,23:? "CHECK THE DISK DRIVE OUT";:POKE 195,0:GOTO 170260 POSITION 14,23:? " MESSAGE:";:RETURNFc} 300 IF I1+1>I2 THEN POSITION 14,23:? "EXIST NO MORE BOOKS";:GOTO 170310 I1=I1+1:X1=X1+57:GOTO 420400 IF I1<=1 THEN POSIFd}TION 14,23:? "BACK TO THE BEGINNING";:GOTO 170410 I1=I1-1:X1=X1-57420 POSITION 9,3:? A$(X1,X1+29)425 POSITION 9,5:? A$(XFe}1+30,X1+49)427 POSITION 13,7:? A$(X1+50,X1+55):POSITION 35,7:? A$(X1+56,X1+56):GOTO 170500 POKE 752,0:POSITION 28,12:? "LOAFf}DING":TRAP 257510 POSITION 24,13:? " ":POSITION 24,13:? "";:INPUT #16,NO$511 NO1$=NO$:NO$(3)=NO1$:NO$(1,2)="D:"Fg}520 SB=ADR("@ԩhhh i hԈhԈhԈhԈhhLV")526 OPEN #1,4,128,NO$:X=USR(SB,1,21090,ADR(A$),7)528 IF PEEK(Fh}851)<>136 THEN POSITION 14,23:? "READ ERROR - ";PEEK(851);:GOTO 549530 I2=((PEEK(856)+256*PEEK(857))/57)-1:IF I1=0 THEN I1Fi}=1:X1=58531 POSITION 21,1:? 370-I2;" ":POSITION 33,1:? I2;" ":CLOSE #1:GOTO 420550 IF I1=0 THEN POSITION 14,23:? "NO EXFj}IST DATAS";:GOTO 170560 TRAP 257:POKE 752,0:POSITION 28,12:? "SAVING":POSITION 24,13:? " ":POSITION 24,13:? "";:Fk}INPUT #16,NO$561 NO1$=NO$:NO$(3)=NO1$:NO$(1,2)="D:"570 OPEN #3,8,128,NO$:? #3;A$(1,(I2*57)+57);:CLOSE #3:GOTO 170600 POSITFl}ION 21,10:? "DIRECTORY"630 FOR L=11 TO 19:POSITION 21,L:? "| |":NEXT L640 POSITION 21,L:? "Fm}"650 TRAP 680:OPEN #3,6,0,"D:*.*"660 FOR DIR=1 TO 9:FOR DI=1 TO 18:GET #3,K:NO$(DI,DI)=CHR$(K):NEXT DI:POSITION 2Fn}2,DIR+10661 ? NO$(1,1);NO$(3,DI-1):NEXT DIR670 POSITION 14,23:? " CONTINUEJF:J}B2y,@ApH-@@#-@!:(| |> H A`AF:A,"A6,-@J}"%@A(7@<@,L-@@#/(PRESS LF:B2y,@AI@J}"-@@ .-@!E( I x-@!@*(<-@!@Q(J}|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}-@)-@@#?(ǮS-@@%W i-@@#(ALPHABETIZING...J}-@@%  ' 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}@W,67++%,$@W,%@<++%,$@W,%@W,.7+$@W,%@<+$@W,%@W, 68,-J}B 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}#-@@11@C67%<%,.>:,Q6-%@U )1@5@)67%<%,.>:,7-@J}@( -AY@47 ApD:EDITOR31.LIBU )1@5@)67%<%,.>:,7-@HD  FF                    N}                          N}        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}caron, ya que Euler dio una lista de y no de como ahi aparece.German Gonzalez Morris.onar que tambien se equivoLc  FF R} R} The shortest reversi game known.Function Boundary(i,j,v1,v2: integer): boolean;beginR} 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\/  FF                    V}                          V}        German A. Gonzalez Cienfuegos 1733 V} Arica, Chile------------------Terry Koyn1754 SprucedaleSt. Louis, MO 63146--------V}-----------January 4, 1993.Dear Mr.Koyn: Reading Algorithm 1.5 newsletter, A.K. Dewdney metions that you arV}e distributing a program called IFS explorer. I am interesed in IFS, and I would like to have a copy, whether thV}ere 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=  FF                    [}                          [}        German Gonzalez Morris Cienfuegos 1733 [} Arica, Chile----------------------XXI Ciencia y TecnologiaCasilla 13-DAvenida Santa Mar[}ia 5542Santiago, Chile------------------------4 de Enero de 1993.Sr. Editor: En XXI #115, aparece mi carta s[}obre numeros amigos. En la cual se equivocaron en la edad que tenia Paganini al encontrar un par de numeros amigos[}. Ya que tenia solo anos. Ademas supongo que cuando nombran que Paganini murio en 1840 se refieren al gran viol[}inista y no al matematico que me estoy refiriendo. Curiosamente existe semejanza de nombres. Agradeciendo la acog[}ida de la presente.German Gonzalez Morris.Curiosamente existe semejanza de nombres. Agradeciendo la acogX38I 2  ? |lxDӭ67XȄ`/ԩj`˩9̢Hc`xxnxxx;^}̠`EϽͽΩ`xxxxxйϥ͝Ν`:H"NUR8L;_}`&NNNABYMTCSPVNVNCCOPIDDDR@@A3A 3A;`}r'3A(Aj/A06 6A 6 6 ;a} ΠŠ;b}##EL NUM. MAXIMO DE VARIABLES Y!!DE MUESTRAS ESTAN DADOS PORNV Y NR RESPECTIVAMENTE.% +6-@;c}%6-@P6-%@ FF9<,9<,9,9<,9<,9,;@,9,;@,6-,(;d}>:A%,,( --- MENU ---( ( ( 1. Ingresar datos2!(!( 2. Modificar datos7(( 3. List;e}ar datos<$($( 4. Calculo del modeloZ(( 0. Salir menu\)(%(Ingrese numero de opcion )_$$(+;f}*@,@0`@A`dҠӛn0 (} (,(# variables explicatorias 0s6-;g}x- >:A%,- 99 para terminar ingresoz ------------------------| ( REGISTRO : %@ (}( ;h}Y = "@@06-%@68,--@'(( X = '68<,-  ;i}A @A Ҡӛ ( F"$(NO EXISTEN DATOS8-@A< F @;j}0/(+(# Registro que desea modificar /S!) @(1(NO EXISTE ESE REGISTROE-@AI ;k}S @0 (}( REGISTRO : (( Y =8,( Modifica s/n 0SAP(( Nuevo val;l}or %68,-((-@(( X = 8<,( Modifica S/N "0SA,*( ;m}Nuevo valor '68<,-*(6  @0@@APJҠӛTH (}"&( NO HAY DAT;n}OS:-@A> H @0r-@|(( REGISTRO : ( Y = 8,-@((;o} X = 8<,   ,( (((DESEA VOLVER AL MENU S/N ,4S@0 (  "(>:;p}A%,ϠŠӛ (}F"$(NO EXISTEN DATOS8-@A< F @0--(;q}%** VARIABLES QUE INCLUYE EN MODELO **$-@ 68,-$ 6-(-@$(!(X :;r} LA INCLUYE S/N %((.( 4S68,-@(6-%@8 ="@0B (}(CALCULANDO....;s}-@68<@,-@ 6-@-@8,"A6-%@;t}-@"68<,-8<,, 6 r6-%@|-@-@68<,-;u}-@!!68<,-8<,%8<,$8<,   -@-@$ "68<,-@$ AP;v}68<,-   -@6-8<,@"(6(NO PUDO SER CALCULADO EL MODELO@ A"`;w}9-@#68<,-8<,'568<,-8<,'9 &-@0"A:6-8<,D-@N;x}68<,-8<,&$8<,X68<,-8<,&$8<,b l   v-@68<,--@;y}68<,-8<,%8<,$8,   -@68,--@68,-8,%8<,$8<,;z}   '6-6-'6--@6-%8<,$8, -@6-%8,;{} 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"(;~}B = 8,6-%@ ((R2 = &("(DESEA OTRO MODELO S/N &0SA#((DESE;}A IR A MENU S/N#4S@0 D:REGR.COMB@@R;}H(#(INGR BDR9 D:REGR.COMB@@R8)/