@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 Q} 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 ALLOWED466 FREE SECTORS COPYING---D8:CARTWILI.M65l# 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 #X;******************************#X;* S T A K M E N U *#X;* por: Rodrigo Gomez J. *#X;* T} *#X;* Revista STAK #2 *#X;******************************$X;.X;8X;B!X;----------------U}------------LX; Si tiene cualquier duda oVX; consulta, escribanos a:`X;jX; ˠtX; ᠵV}~X; !X;----------------------------X;X;#X;#X;| Ojo conW} la direccion |#X;| de ensamblado. La pagina |#X;| 7 es ocupada por el DOS. |#X;X}X;X;X;LEE.TECLAX; X;X;( INICIO2Q><PGFPHP PSW.1Z?dX;LIMPIAR UNA PAGINAn LIMPY}IAxPPANTALLA83 HLIMPIAX;APAGAR BASICQ>PӴPX;INSTALAR NUEVA LISTA Q>4LISTAP0 Q>5LISTAZ}P1$X;SECTOR DE DIRECTORIO 361($0169)Q>iPX;DIRECTORIO"Q, PDVTBL 6Q>@ PDVTBL J#T [}LEE.SECTOR^PONE.NOMBREh QBUFFER8rX;ULTIMO ARCHIVO| FTECLAX;ARCHIVO BORRADO GOTROX;ARCHIVO VALIDO$GQ\}BUFFER8PSECTOR.LOW9QBUFFER8PSECTOR.HIG9A,O>;; suma para X; otro colorX;IDEN]}TIFICADOR DEL ARCHIVO$HX;CARACTERES DEL NOMBREPPANTALLA9&Q>0PI:X;NOMBRE A PANTALLAD NOMBRENQBUFFER^}8X;bS> lPPANTALLA9v32"I HNOMBREC;S>?A,O>PH#GQGX;NUMERO MAXIMO_} DE ARCHIVOS R> FTECLA OTRO*C4,>O>H?RT?\DPONE.NOMBREfEDIRECTORIOp TECLAz LEE.TECLAR>;; `}Es Escape? HNOESCAPE !INICIO NOESCAPE;S>ARG ETECLA>QSECTOR.LOW9 PDVTBL QSECTOR.HIG9 a}PDVTBL   LEE.SECTOR 0 LOOP.BYTE$ CONTROL. PC8 CONTROLB PDL MCV R>` FLOOP.BYTEj QSW.1t HSIGUE.b}1~ QC P QD P #SW.1 SIGUE.1 CONTROL PE CONTROL PF BLOQUE CONTROL P@C7 #C HNc}O.CERO #D NO.CERO( QE2 RC< QFF SDP EBLOQUEZ Qd Ln FLOOP.BYTEx &  DIREC.INI $ %> 'd} ' FLOOP.BYTE DIREC.INI !@: CONTROL (>} HTOMA.BYTE QDVTBL LDVTBL  HLEE.SECTOR !@e}:;;Salto Final! LEE.SECTOR" $> , LLENA.TABLA6 QDVTBL9@ P9;;DDEVICJ 0T ILLENA.TABLA^ LEE.2h  S;; SIOVr Gf}LEE.2;; Error, relee!| QBUFFER} M> PDVTBL QBUFFER~ PDVTBL QBUFFER M> PCONTROL %>g} $> TOMA.BYTE QBUFFER9 2 : DVTBL  1==R=@  4BUFFER=5BUFFER==&  ===0 SW.1 : LISh}TAD  p=p=p=pN  FX TITULOb p=p=pl LINEv  ====  ==== ==A LISTA TITULO i} A stak 1992 A PANTALLA  BUFFER   SECTOR.LOW   SECTOR.HIG=A LISTA TITULO a+#X;******************************#X;* S O L I T A R I O *#X;* por: Rod Rubber & Bill Y. *#X;* k} *#X;* Revista STAK #2 *#X;******************************$X;.X;8X; -------------------- l}-----BX; Si tiene cualquier duda oLX; consulta, escriba a:VX;`X; ˠjX; ᠵtX; m} ~X; -------------------------X;X;EISTICK0x HPOSP0xHPOSP1HPOSP0PMBASE n}xVPOSP0PMBASEVPOSP1VPOSP0VPOSP2VPOSP1VPOSP3VPOSP2X;@ X;X; Datos de las pie o}zas.!X; Estas fueron creadas usando(!X; el programa UTIGTIA. Utili-2X; tario grafico escrito por< X; Nelson Ramirez V. p}y fueronF!X; transformadas a bloques conP X; un pequeno programa BASIC.ZX;d ====n ====x == q}==˂ ==== ====̖ ==== ==== ==== ==== == r}== ==== ==== =w=v== ==== ==== ==== = s}=== ==== ====" ====, ====6 ====@ ====J = t}===T ====^ ====h ====r ====| ==== ==== = u}=== ==== ==== ==== ==== ==== ====  v}==== ==== ==== ==== ==== ==== ====  w}=D=C=8=& ==8==0 =I===[: I==={=ZD =={=Z=N ==k==X =k===b x}|====|l =w==}=v ==== ====݊ ==== ====͞ ==== y} ====ܲ ==== ==== ==== ==== ==== =w=== z} 6=v===m ===m= ==l==  =j=== j=f===h  f===w=f* ====4 {} ====> ====H ====R ====\ ====f ====p ==== |}z ==== ====܎ ==== ==== ==== ==== ==== }} ==== ==== ==== ==== ==== ==== ==== ~}  ====  ====  ====$  ====.  ====8  ====B  === }=L  ====V  ====`  ====j  ====t  ====~  ====  === }=  ====  ====  === =  = = ==̺   = ===   ====  === }=  ====   X; X; Ufffffffffff! !X; Aqui comienza el programa!! X; LISTA  p=p=@=B( TITUL }O2  =B< RR9 LINEAF =OP  PZ  ====d  ====n  ====x  ====  === }=  ====  ====  ====  ====  ====  ====  == }==  ====  ====  ====  ====  ====  ====  == }==  "  `,  ====6  ====@  ====J  ====T  ====^  === }=h  ====r  ====|  ====  ====  ====  ====  === }=  === ==A LISTA X; COMIENZO X; $> MUEVE.SET Q9 PNUEVO.SET9 Q9 PNUEVO. }SET9& Q90 PNUEVO.SET9: Q9D PNUEVO.SET9N 2X HMUEVE.SETb X;l $>'v PONE.5CH QSET.STAK9 PNU }EVO.SETA9 0 IPONE.5CH X; INICIA  PONE.LISTA PARTE RUN FORMA Q> P JOYSTICK Q  }R> HNO.HELP PLAYEOFF* INICIA4 PARTE> !RUNH NO.HELPR Q>\ PMf $COOXp %COOYz Q HNO.BOT !BO }TON NO.BOT Qx R> HNO14 (> FJOYSTICK QREGX ; S> GUARDA "COOX MOVEUP !JOYSTICKN }O14$R> . HNO138(>B FJOYSTICKL QREGXV,`O>j GUARDAt #COOX~ MOVEDOWN !JOYSTICKNO13R>H }NO7)> FJOYSTICK, QREGXO> GUARDA #COOY MOVERIGHT !JOYSTICK NO7R>  FSI11( !JOYSTIC }K2SI11<)>F HNO.0P !JOYSTICKZNO.0d QREGXn;xS> GUARDA "COOY MOVELEFT !JOYSTICKX; BOTO }N NOBOTON QREGX? QMATAUX8R> FESPIEZA !JOYSTICK ESPIEZA PLAYEOFF BOT.1" PARPADEO,Qx6 } PJOYAUX@QJ HBOT.1T NOBOTON^ QJOYAUXhR>r HSIGAMOS1|YY PLAYON !JOYSTICK SIGAMOS1R> HNOEAT }UP QREGX;S> PAUX1GYY? QMATAUX8R>HYY QAUX1,O>& PAUX20?: QMATAUX8DR>NH }YYX !MOVERb NOEATUPlR> v HNOEATDO QREGX,O> PAUX1R>0EYY? QMATAUX8R>HYY QAUX1 };S> PAUX2 ? QMATAUX8 R>*HYY4 !MOVER> NOEATDOHR>R HNOEATRI\ QCOOYf,pO>z PAUX1R> }EYY QREGX,O> PAUX1? QMATAUX8R>HYY QAUX1;S> PAUX2? QMATAUX8$R>. FCO }ME18!YYB COME1L !MOVERV NOEATRI` QCOOYj;tS>~ PAUX1 ICUALQ Y2!YY CUALQ QREGX;S> PAU }X1? QMATAUX8R>HY2 QAUX1, O> PAUX2?( QMATAUX82R><HY2F !MOVERP COPIAZ QREGXd>n } QLOW.PTR9xP‚ QHIG.PTR9PÖ QREGY> QL.PTR9P QH.PTR9P$> LOOPY%> LOO1Q@7P@ }71 ILOO1Q",,O>6P@QJO>TP^ NEAR1,hQrO>(|P†QÐO>Pä0 ILOOPY: } MOVER QREGX PAUX3>Q> PREGY PMATAUX9 COPIA QAUX2 PREGX&>0Q>: PMATAUX9D COPIAN QAU }X1X PREGXb>lQ>v PREGY PMATAUX9 COPIA CUENTA "CONTAHCONTINUAR!LO.LOGRASTE CONTINUAR REV }ISION QAUX3 PREGX PLAYON !JOYSTICK PARPADEOQ> PMQ>  PREGY* COPIA4Q>>PH CILLORQ }\ HCILLOf "REGYp COPIAzQ>P CILLO2Q HCILLO2: SONERROR: NOBOTONQ FNOBOTON: }NOJOYSQxR> HNOJOYS: PLAYEOFF$ ESPERA.Q>8PB:L INICIAVQ>`PMj Q>4LINEAtPRR9~ Q>5 }LINEA PRR9X;%>0FUFA QMATRIZ8 PMATAUX81 IFUFAX;Q>PMATAUX/Q> PCOOY  PCOOX }Q>0 PREGX(LOO2QREGX2>< QMATRIZ9F PREGYPR>Z HNO.UNOd QFLAG.PnHSALTA.UNOx NO.UNO COPIA SAL }TA.UNO "REGX ILOO2Q> PREGXQ> PCONTA PLAYEONQ> PINDEXK Q>;; 3 PPIEZAS Q>;; 2P }PIEZAS #FLAG.P":,PONE.LISTA6 Q>4LISTA@P0J Q>5LISTATP1^Q>hPrP|Q> P Q>4DLIP } Q>5DLIPQ>.P/Q>PQ>5NUEVO.SETPX;: PARTEQR>&FSAL.PARTE0Q: } HPARTED SAL.PARTENQ>XPb:lX;v GUARDA PREGY? QMATAUX8R> HSALEOK77 !JOYSTICK SA }LEOK QREGY PREGX: CONTA  FLAG.P   MATRIZ ======  ======* ==== }==4 ======> ======H ======R ======\X;fX;p SET.STA }Kz *=== *===;;  == =  ===;;  ===  = ==;;  === * }= == ;;   = =(= ==*= ;;  TITULO/ A SOLITARIO por: Rod R. & Bill Y. (1992) A LINEA A PIEZ }AS: A-PIEZAS A00 REVISTA  JUNIO 1992 A LGANA/ A FELICITACIONES! LO CONSEGUISTE AL FIN! A$ LPIER./ A P }ERDISTE... INTENTALO NUEVAMENTE! A8 LPERFB. A PERFECTO! REALMENTE ERES UN EXPERTO! AL LOW.PTRV = ===== }` ======j ======t F=J=N=R=V=Z=^~ = ===== ======ޒ } ====== HIG.PTR P=P=P=P=P=P=P S=S=S=S=S=S=S W=W=W=W=W=W=W [=[=[=[=[=[ }=[ `=`=`=`=`=`=` c=c=c=c=c=c=c g=g=g=g=g=g=g L.PTR =`== == H.PTR  @=@= }@=A=A=A COOX  COOY ( REGX 2 REGY < AUX1 F AUX2 P AUX3 Z AUXY1 d JOYAUX n AUXMOV  }xX;PLAYONQ>PЖ NOJOYS: PLAYEONQ>@ PVPOS Q>HPOSP0 PHPOS0 Q>HPOSP1 PHPOS1 MOVHORIZ }Q>PPQ>"P,X;6 Q>5PMBASE@PJ PT2TX;^$>h%>rZERO|Q>T2PPMBASE92 } HZERO #T21 HZEROX;$> SH.1Q> PVPOSP292 HSH.1Q> P P Q>(& P0 Q>: P }D Q>N P X P b PLAYONl :v FORMA $> SHP1 QDATA9 PVPOSP0@9 QDATA29 PVPOSP1@9 2 (> } HSHP1 : X; X; X;! MOVERIGHT !%>!R.1 ! #HPOS0*! #HPOS14! MOVHORIZ>!1H!HR.1R!R.2\!:f!X;p! MOVEL }EFTz!%>!L.1! "HPOS0! "HPOS1! MOVHORIZ!1!HL.1!L.2!:!X;! MOVEDOWN!Q> ! PCOUNT!DD00" #VPOS }" QVPOS",$"O> ."?8"$>B" DDOWNL" QVPOSP08V"PVPOSP08`" QVPOSP18j"PVPOSP18t"1~"0" IDDOWN" ESPERA" }"COUNT" HDD00" DBACK":" MOVEUP"Q> " PCOUNT"UU00" UU001" "VPOS# %VPOS #$>#UPUP#QVPOSP08(# P }VPOSP082#QVPOSP18<# PVPOSP18F#3P#0Z# IUPUPd# ESPERAn# "COUNTx# HUU00# UPBACK#:# ESPERA#Q#W.0#R }#FW.0#:# MOVHORIZ# QHPOS0#P# QHPOS1#P$ ESPERA$:$X;"$X;,$ CUENTA6$QPIEZAS@$R>J$ DCONT.0 }T$"PIEZAS^$:h$ CONT.0r$Q>|$PPIEZAS$ "PIEZAS$:$X;$DLI$5$A$5$ QINDEXK$>$ QTABLAK9$P $ }P$Qo%L>@%P% #INDEXK&% QINDEXK0%R>:% HXDLID%Q>N% PINDEXKX%XDLIb%7l%>v%7%9%DATA%- == }===========% DATA2%- =============%X;% HPOS0 % HPOS1 % VPOS }(% COUNT % INDEXK % TABLAK% = =0=& @=P=`= &X;&LO.LOGRASTE &QMATAUX*&R>4&HGANAR.SOLO>& } Q>4LPERFH&PRR9R& Q>5LPERF\& PRR9f& !CONTROLp&GANAR.SOLOz& Q>4LGANA&PRR9& Q>5LGANA& PRR9& !CONTROL& }YOU.LOSE& Q>4LPIER&PRR9& Q>5LPIER& PRR9& CONTROL& PARTE& INICIA&!RUN'X;AND HERE TOO!!' RX ' R }Y $' CO .' REVISION8'Q>0B'PCOL'Q>V'PRX`' BALIN1j'Q>t'PRY~' BALIN2'QCO'?'"CO' QMATAUX8'R> }' HNO.PIEZA'X;'QRY'R>' ENO.DERE'QMATAUX8'R>( HNO.DERE (QMATAUX8(R>( HNO.DERE((:2( NO.DER }E<(QRXF(R>P( ENO.ABAJZ(QMATAUX8d(R>n( HNO.ABAJx(QMATAUX8(R>( HNO.ABAJ(:( NO.ABAJ(QRY(R> }( DNO.IZQU(QMATAUX8(R>( HNO.IZQU(QMATAUX8(R>( HNO.IZQU):) NO.IZQU)QRX")R>,) DNO.PIEZA6)Q }MATAUX8@)R>J) HNO.PIEZAT)QMATAUX8^)R>h) HNO.PIEZAr):|) NO.PIEZA)"RY) IBALIN2)"RX) IBALIN1) !YO }U.LOSE) MATAUX)L) NUEVO.SET)) COMIENZOHNO.PIEZAr):|) NO.PIEZA)"RY) IBALIN2)"RX) IBALIN1) !YO 81000 ;*******************************1010 ;* CURSO DE ASSEMBLER *1020 ;* Leccion 2 *1030 ;* } REVISTA STAK 1992 *1040 ;*******************************1050 ;1060 ;1070 CONSOLA = 53279 ; Direccion de1080 ; } la Consola1090 ;1100 *= $40001110 INICIO1120 ;1130 LDA #1 ; 1 apaga1140 STA 752 ; cu}rsor1150 ;1160 LDX #MENSAJE&255 ; Imprime1170 LDY #MENSAJE/256 ; Mensaje1180 JSR $C642 ;1190 ;1200 DENUEV}O1210 LDA #5 ; Linea 61220 STA 84 ;1230 LDA #2 ; Columna 31240 STA 85 ;1250 ;1260 L}EECONSOLA1270 LDA CONSOLA ; Lee consola1280 CMP #0 ; Todas?1290 BEQ SALE1300 ;1310 CMP #6 ; Es} Start?1320 BEQ ESSTART ; Si1330 ;1340 CMP #5 ; Es Select?1350 BEQ ESSELECT ; Si1360 ;1370 CMP #3 } ; Es Option?1380 BEQ ESOPTION ; Si1390 ;1400 JMP LEECONSOLA ; Arriba!1410 ;1420 ESSTART1430 LDX #MSTAR}T&255 ; Mensaje1440 LDY #MSTART/256 ; Start1450 JSR $C642 ; Imprime1460 ;1470 LDA #$08 ; Blanco1480 } STA 712 ; en borde1490 ;1500 JMP DENUEVO ; De nuevo!1510 ;1520 ESSELECT1530 LDX #MSELECT&255 ; Mensaje1540} LDY #MOPTION/256 ; Select1550 JSR $C642 ; Imprime1560 ;1570 LDA #$80 ; Azul1580 STA 712 ; en bo}rde1590 ;1600 JMP DENUEVO ; De nuevo!1610 ;1620 ESOPTION1630 LDX #MOPTION&255 ; Mensaje1640 LDY #MOPTION/25}6 ; Option1650 JSR $C642 ; Imprime1660 ;1670 LDA #$30 ; Rojo1680 STA 712 ; en borde1690 ;1700 }JMP DENUEVO ; De nuevo!1710 ;1720 SALE1730 LDA #0 ; 0 enciende1740 STA 752 ; cursor1750 ;1760 LDA }#0 ; Color negro1770 STA 712 ; en borde1780 ;1790 BRK ; Vuelve a1800 ; usuario!}1810 ;1820 MENSAJE1830 .BYTE "} Presiona una tecla de consola",1551840 ;1850 MSTART1860 .BYTE "Presionaste } ",1551870 MSELECT1880 .BYTE "Presionaste ",1551890 MOPTION1900 .BYTE "Presionaste ",1551910 ;z$X;*******************************$X;* Cargador de tiempo ilimitado*$X;* para SPINDIZZY *$X;* } *$X;* por: Bill Yesterday *$X;* *$$X;* Revista STAK #2 } *.$X;*******************************8X;BX;LX;V X;---------------------------`X; Si tiene cualquier duda ojX;} consulta, escribanos a:kX;tX; ˠ~X; ᠵX;  X;-------------------}--------X;X;EIX;--------------------X;X; BEGIN Q>4?CONTP  Q>5?CONT P Q>P (}Q>;; No BASIC!!2P<PF$>PCLR0;Limpia desdeZQ>;; $0700 hastadCLR;$BFFFnP9x2HCLR #CLR} QCLRR> HCLR0!t;; Salta a ?CONT ?CONTQ>PR;;margen izq.P;;warmstart!!Q>P }PUTMES$>4MENSAJE%>5MENSAJE B"X;,Q>6P@QJ ESPERATR^ FESPERAh SETVBIr$>|BQDEVICE};; 0=CASSETTEHDISK;; 1= DISKQ> P!;; Cassette Boot!DISK!;; Disk Boot! MENSAJE4 A}}Ҡ٧ˠέA=X;X;X; SETVBIQ> $>5NEWVBI& %>4NEWVBI0!\: SETRUNID Q>4}RUNININPX Q>5RUNINIbPl:v NEWVBI6 SETRUNI CHECK0 QFLAG FBACKQ>_P"Q>P#}BACK8!_X;X;  X; Aqui revisa el archivo queX; esta siendo cargado y si #X; encuentra la rutina de tiempo*}X; la desactiva....4X;> CHECK0HQ'tRR> \ HCHECK1fQ(tpR>ez HCHECK1Q)tR>s HCHECK1Q>P't}P(tP)t #FLAG CHECK1:X; RUNINI QFLAG HBKR CHECK0 SETVBI$ BKR. :8 X;B X;L DEVICEV  }` FLAGj  t X;~  BEGINX; RUNINI QFLAG HBKR CHECK0 SETVBI$ BKR. :8 X;B X;L DEVICEV  %$X;*******************************$X;* Cargador de tiempo ilimitado*$X;* para TWILIGHT WORLD *$X;* } *$X;* por: Bill Yesterday *$X;* *$$X;* Revista STAK #2 } *.$X;*******************************8X;BX;L"X; ----------------------------V!X; Si tiene cualquier duda o`X; } consulta, escribanos a:bX;jX; ˠtX; ᠵ~X; "X; -----------------------}-----X;X;EIX;--------------------X;X; BEGIN Q>4?CONTP  Q>5?CONTP Q>P Q}>;;Fuera BASIC!!(P2P<$>FCLR0;Limpia desdePQ>;;$0700 hastaZCLR;$BFFFdP9n2xHCLR #CLR} QCLRR> HCLR0!t;;Salta a ?CONT ?CONTQ>PR;;margen izq.P;;warmstart!Q>;;No cursor!}P PUTMES$>4MENSAJE%>5MENSAJE BX;"Q>,P6Q;; Espera unos@ESPERA;cuatro seg.JRT FESPE}RA^ SETVBIh$>rB|QDEVICE;;0=cassetteHDISK;;1=diskQ> P!;; Cassette Boot!DISK!;; Disk }Boot! MENSAJE4 A}ҠħˠέA=X;X;X;SETVBI;Instala rutinaQ>;;} para revisar! $>5NEWVBI %>4NEWVBI&!\0 SETRUNI: Q>4RUNINIDPN Q>5RUNINIXPb:l NEWVBIv6 SETR}UNI CHECK0 QFLAG HBACKQ>_P"Q>P#BACK8!_X;X; Si encuentra codigoX; se puede} acceder a todos X; los nivelesX;  CHECK0* QFLAG.NIV4 FCHECK1>Q HR>R HCHECK1\Q> fP p "FLAGzX};X;X; Energia infinitaX; CHECK1QFLAG.ENER FCHECK2Q+R> HCHECK2Q>P+P+P+ }"FLAG X; X;$ X; Vidas infinitas. X;8 X;B CHECK2L QFLAG.VIDV FCHECK3` Q0j R>t HCHECK3~ Q> P0 "}FLAG CHECK3 : X; RUNINI QFLAG FBKR CHECK0 SETVBI BKR : X; X; DEVICE  ( FLAG.NIV2  }< FLAG.ENERF  P FLAG.VIDZ  d FLAGn  x X;CK0 SETVBI BKR : X; X; DEVICE  ( FLAG.NIV2  :+   ӢLtR] BƩ } LL}Ҡ}ħˠέL\q`  . _"#(L_~   ΁+ɺꍶ+++΁0}0΁` . `L\q`  . _"#(L_~   ΁+ɺꍶ+++΁06CA200A000A9009180E8C8C006D0F6A00020576CE090D0ED6020916B203A,7995bkk6CA200A000BDE86F9180E8C8C006D0F5A00020576CE090D0EC6098$}85810A0A6581698185818A0A85800A658069A26950,4433gkk9002E681858060A5801869289002E681858060A9008581A685BDC46F0A0A0A0A26810A26$}810A268169008580A5816974,1141lkk8581A000A200B1809D9170E8C8982903D002E8E8C040D0EE60AD0AD2C9FCB0F9A2FF38E8E907B0FB8A60A200BD$}106FF0,6493qkk218582BCFE6EA90F9180C8A9FF9180C89180C89180C89180C8A9F09180C8C682D0E4A5801869909002E6818580E8E012,3347vkkD$}0CA608A1869098595BD226F8596BD346F8597BD466F8598A581859CA580859BA599187DEC6E859DA59A6900859EA918,6810{kk8583C697D007C696BD3$}46F8597C696D013BD226F8596A49820626DC683F02288D0F6F0E9A000B19B919DC8C006D0F720,7343kk626DA59D1869069002E69E859DC683D0C1A59$}91869909002E69A8599E8E495D08860A59B1869069002E69C859B602063,1607kk6CA9708581A9788580A9B0859AA9008599A20020E36CA9B085A5A90$}085A460203A6CA58185A7A58085A6A91285A8A5A8,7107kkD0FC6085A186A284A3A007B9DC6EBEE46E8D0AD48E1AD08E18D08D17D08810EB8D0AD4A90%}4A208A00E8D0AD48D16D08E,2131kk17D08C18D0A5A1A6A2A4A340A900854DA9028D1DD0A9068D1DD0A200BD7802D5AAD010C90FF015D6ACF008A90F9%}D7802,1709kk4C0C6EA91495ACBD780295AAE8E002D0DBC6B2D010A90685B2E6A9E6A9A5A98DC0028DC102A203E4AED00DCABD766F95,5595jjAF%}A90085AE4C3B6ECAD0ECA200B5AFF015D6AFB5AF187D796FA8B97C6F8D00D2B9A06F8D01D2E8E003D0E2A5A8F03FC6,820kkB3D03BA90285B3C6A8A00%}0A200B1A491A6C8E8E006D0F6A5A61869229002E6A785A6C090D0E5A5A41869909002E6A585,3349kkA4A5A638E93085A6A5A7E90385A74C62E401160%}00E23D6FE264E7671717272723850688098B0132333435363FFFF8080,4799jj80808080808080808080FFFFFFFF010101010101010101010101FFFF0%}80A0C0E0E0E0C0A00000082848482000606121E,972jj242A3C480030241E1206000000000000060C121824303C4854666C727E8A8A00010102030303%}04040404040303030201,623jj01001818080403020202010202020304081818191919191908191919191919190819191919190101010101010205180%}5,495kk02010101010101010AAAAAAAAAA00A55555555A00A6AAAAAA9A00AAAAAAAAAA00A00000000A00C0C0C000C1800DCDCDC,6487kkDCDCDCD%}CDCDC646300DEE0E2E4E6E8EAECEEF063002827282728272827282728A0A7A7A7A8A9AAABACAEABA9C0C2C3C4,2161kkC5C6C7C8CBCCCDCEA0A4A5A6A% }7A8A9AAABACADAE00000000000000000000000000000000000000000000000000000000,6140kk0000000000000000000000000000000000000000000% }00000000000000000000000000000000000000000000000000000,6140kk0000000000000000000000000000000000000000000000000000000000000% }00000000000000000000000000000000000,6140kk0000000000000000000000000000000000000000000000000000000000000000000000000000000% }00000000000000000,6140kk000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000,% }6140kk000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000,6140kk00000000%}0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000,6140kk00000000000000007070C042D6%}71004E5081000000000000000000000000000000000000000000000000000000000000,4082kk00000000000000000000000000000000000000000000%}0000000000000000000000000000000000000000000000000000,4082kk0000000000000000000000000000004E009000000000000000000000000000%}0000000000000000000000000000000000,7922kk00000000000000000000000000000000000000000000000000000000000000000000000000000000%}0000000000000000,7922kk00000000000000000000000000000000000000410871000000000000002D252D2F322923251A00302F32002E25370021,5%}098kk272500111919120000000000000000000000000032253629333421003334212B002E352D25322F0013000D0011191912,1391kk000000000%}00030322533292F2E250033342132340030213221002A3527213200232F2E0011002A2F39333429232B0000,7328kk00302132210012002A2F3933342%}9232B330C0030352C332500252C00222F342F2E00120000000000002A352721242F32,1108 jj00111A00101000000000000000002A352721242F32001%}21A001010000000000000000000000000000000000000000000,499jj0000000000000000000000000000000000000000000000000000000000000000%}00000000000000000000000000000000,499jj00000000000000000000000000000000000000000000000000000000000000000000000000000000000%}0000000000000,499jj000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000,499 %}jj000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000,499%jj000000000000000%}000000000000000000000000000000000000000000000000000000000000000000000000000000000,499*jj0000000000000000000000000000000000%}00000000000000000000000000000000000000000000000000000000000000,499/jj00000000000000000000000000000000000000000000000000000%}0000000000000000000000000000000000000000000,4994kkAA5965AAAA5965AAAA5965AAAA5965AAAA5965AAAA5965AAAA5965AAAA5965AAAA5965AA%}AA5965AAAA5965AAA959656A,58189kkA559655A9569695695A96A5696A96A96FFFFFFFEDFDDDDFDDFFFFFFDFFFFFFFDFEEEECCDFFFFFFFDEEEEECCDFF%}FFFFFD,7151>jjEEEEECCDFFFFFFFDEEEEECCDFFFFFFFDEEEEFFFDFFFFFC8DFFFFFFFD95555555AAA9AAAABBA9AAAAAEA9EAEEAAA9EABA,668CkkAA%}A9FAAAABB9FAAAAAE9FEAAAAA9FFAAAAA9FFEAA7F9FFFEA7A9155DA659AAAA550455569555555AA400006AA95555AA,6105HkkFFFFFFFFEEEEEEEEFFFF% }FFFF95555555555555557FFFFFFF7E569B7D9E565775D7DF7757F6DF575FFDDF575755DF7775,3660Mkk56DF777DFFFFFFFFEEEEEEEEFFFFFFFFA80000%!}2AA8FCBF2AA8A8BF2AA8A8BF2AA854002AA80000EAA807D0EAA809602A,5668RkkA809602AA809602AA807D02AA800042AA802802AA802802AA802802A%"}A804102AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA,7610WkkAAABBAAEABBAAABEE9999AFA755556A65666655624000616A69AA986A55555A2A80002AAAA%#}AAAAAAAAAAAAAAAAAAAAAA,3611\jjAAAAAAAAAAA55AAAAA9556AAAA5555AAAA5695AAAA5AA5AAAA5AA5AAAAAA95AAAAAA56AAAAA95AAAAAA96AAAAAA9%$}6AAA,520akkAAA96AAAAAAAAAAAAAA96AAAAAA96AAAAAAEBAAAAEAEBABAABAAAAEAAAA96AAAAAA7DAAABE9FF6BEAA9FF6AAAA9FF6AA,6397fkkAB9F%%}F6EAAEA7CABAAAA92AAAAAABAAAAAAA92AAAAAABAAAAAAA96AAAAAAAAAAABFFFFFFE955555569AAAA6E698003736,2433kkk98003736985576E6985576%&}A698567556985677F698567406986A77F6985574069BFFF7F6955555569555555680000002,4019pkkAAA92AAAAAA92AAAAAA92AAAAAA92AAAAAA92AAA%'}AAA92AAAAAA92AAAAAA92AAAAAA40AAAAAF002AAA955556AA955552A,5075ujjA955552AA955552AA800002AA900006AAAA86AAAABA82AAAABA82AEAAB%(}EA2AEAAAFAABEAAAFEAFEAAABFFFAAAABFFFAA,655zjjAAABFAAAAAAAAAAA9555556A55555556A5555555AAA95555AAAAAA55AAAAAAA9AAAE4AAAAAA92%)}AAAAAA92AAAA956802A,327kkAEA82ABAAEA92ABABBA92AEEBBA92AEEBBA92AEEEAE92BABEAE92BAB5569295580AE5A02AAA96AAAAAAE4AAAAAB952AA%*},1956kkA8AAA02AA8AA800AA0020A02802A2A828AAAAA82A80AA282802A0000AAAAA002A02AA08A802AA2AAAAAA82AAA02A8AAA,2100kk800A0AA%+}0880A0A008A0A0000A00A800AFFFFFFFFD5555557D5555557D5555557D5555557FFFFFFFFF3330F3FF3333CCF,6245kkF033CC0FFCF30CCFFFFFFFFFE%,}AAAAAABEAAAAAABEAAAAAABEAAAAAABFFFFFFFF003FFFFF083FFFFF0C3FFFFF7F7FFFFF,5444kk1D3FFFFF2E3FFFFF223FFFFF003FFFFF55555555555%-}55555555555555555555555555555555555555555555555555555,1117kkAAAAAAAAAAAAAAAAAAAAAAAAA96AAAAAA55AAAAAA55AAAAA8596AAAA66055%.}5566604000185910811A5568A22A55AAAAA,2299kkA96AAAAAAAAAAAAAAAAAAAAAAAAAAAAA3000000C01E0300003900000039000C00390000031E0C00%/}C00000C0000000000,5037kk0505050505050505A0A0A0A0A0A0A0A05F5F5F5F5F5F5F5FF5F5F5F5F5F5F5F5AAAAAAAAAAAA9E79ADAA4926BBFFBEFA,%0}3380kkADAA4926AAAA9E79AAAAAAAAA9AAAAAAA9AAAAAAA96AAAAA547FFFFE1106EAEF007FFFFEA96AAAAAA9AAAAAAA9AAAAAA,4719##**%1} F I N D E D A T O S **D8:MEMORICE.BAS96AAAAA547FFFFE1106EAEF007FFFFEA96AAAAAA9AAAAAAA9AAAAAA,4719##**$3r[ q SLISU )3}d##*****************************n##* CARGADOR 'D R O L' *x##* *##* Revi)4}sta STAK *##* *##* Numero 3 -- 1992 *##*****************************)5}M;@,(>:A%,)6-A;AMAR@_-@@5(REVISTA S T A K P)6}RESENTA:G-@@_(Cargador 'D R O L'%6-A66-A3% Ap+6- B+AR)7}>-@@4(Vidas Ilimitadas? (S/N) > A@0S*0NA + 4SA2@+6)8}-%@@-@@6(Disparo Automatico? (S/N) @ A@0S*0NAP+ 4SA3@)9}+6-%@(+"k-@@ 'AR@D(Prepare DISKETTE de DROLV-@@!):}k(y presione , F:B2y,@A66-?:A6,@J##*** LEE TECLA Y LA IMPRIME **TT#@);}@K:0)@=*@F6.>:,Q@T$^h##**** REVISA LINEAS DATA ***r A )<}|+-@$6-+6-@-%@#"! 6-%$6-%@!  ""AP)=} F:A,"@A@@ +A@d=(Error de DATA en linea @9 +A@d)>}6(Faltan Lineas DATA96-%@ $##*****************************X[[169,48,133,12,169,6,133,13,1)?}69,1,133,9,169,255,141,248,3,141,1,211,169,0,141,68,32832bZZ2,162,0,169,0,157,0,7,232,208,250,238,31,6,173,31,6,201,192,20)@}8,238,76,116,228,41690lZZ169,0,133,82,133,8,169,1,141,240,2,162,104,160,6,32,66,198,169,0,133,20,165,19,28010v^^197,19,)A}240,252,162,0,189,147,6,157,176,3,232,224,52,208,245,169,6,162,3,160,176,32,38088hh92,228,162,255,154,76,152,197,125,29,1)B}60,160,160,195,193,210,199,193,196,207,210,160,160,167,52419kk160,196,160,210,160,207,160,204,160,167,160,160,210,229,246)C},233,243,244,225,160,211,212,193,203,61214\\160,160,155,8,173,225,3,240,12,173,11,124,201,1,208,5,169,0,141,11,124,173,22)D}6,3,31859VV240,22,173,4,6,201,220,208,15,169,165,141,3,6,169,73,141,5,6,169,1,141,6,6,23803??40,76,95,228,0,0,0,0,0,0)E},0,0,0,0,0,0,0,0,0,0,0,0,0,0,1389D8:INFDROL.BAS,3,6,169,73,141,5,6,169,1,141,6,6,23803??40,76,95,228,0,0,0,0,0,0(8ffff YY UU UUUUUUUU-G}``UU```````jeooej```UpppDޖA0q1rl˅̩ͩ΢ˑ򩐍0-H}1g  \ xsL}b \q0r1l`uzu>>tt-I}is)ILs)ab0cHd`exf10IHa`yxݭb/cGd_ewf-J}s)_/bGc_dwef01HI`axy߭bc0dHe`fxs) I Ls)!x-K} >`>H>0>>x&s)J~0~H~`~x~Lbޅ˩̩Vͩ΢wˑ͈ixͥivu-L}ŘĖ혈`&",dz2%6)34!!4!2)34!+0/22/$25""%2-M}                      -N}                         ,hxة/ ө|Dq gȑXooolprp^ooo`pfpߠdoox1P}joxpppoxpx l lo腀 lo腀 l|ԩ ЍЍЍ1Q}ЍЍЍЍЩЍ ЩЩmԩҩҩm \q10*/ )1R}n$nLi轫n qn qϢ k kr qv q#Joc l looo1S}oƂ l k kLhn`vrInvr-nxLjx k k)把)1T}Ɗ)拊)Ƌ k eeLjoLjo o clpx1U} l :lLjƆooE nm m nm mo)oo)oI1V}Lj k k kƔLj k kLei r` 8 invrwr`nniФn~n~1W}`n~~` k :l Wl` k :lo Wl` ei eiiP恅`i(1X}`o & & &iitpȘ)@` 8`o!nȩȑȑȑȩƂ䥀i恅1Y}`i "o4oFo}niƗƖ4oƖ"o bmƃ" bmi枅ƃi1Z}Ј`i朅` clpx l` :l`nn ԎЎЍЈ ԩ ԍЎЌХ1[}@MЩТxժ֬xL nxƲ橥 ʽvoL;n֯}yo|oҹo1\}⥨?Ƴ;ƨi"槅奤i楅80Lb#&Nvqqrrr8Ph#3CSc1]}  $*:,c6-%@g U6-@0#-@ @(11@C67%<%,.>:,Q6-%@U )}U6-@P#-@@11@C67%<%,.>:,Q6-%@U )1@5@)67%<%,.>:,)}7-@@( -AY@47 Ap D:EDITOR.LIBU )1@5@)67%<%,.>:,(J,$A%B%"6.TEXTILE]-&@%@,-8,%Y((-}] #N-8,%B((N6-@(?-@"-@8,%7-}(>:%A,;"?() -,-@8,%,(îΠՠ2:@-@@K:-})@4"@'*A6## @e)!%@d@P76-&@c<(6-A A?--}8,?(( [-@%@*-8,%W(( -} [ B-8,%B(( 66-8,%@ 6-,6-@-}6 @%A0'6-%@'68,-8&@,%:6-%@%8,"!@#:68,-8,%+@#&-}, @  5AY56-+&@,$A%B #-@"  {"B -@B-}:,N67&@<&@,.>:@:7<,,&A(,R q67&@<&@,. { A00 E-@B:,267<,.>-}:@:7<,,&A(,6 E67<,.  -#%B%-@&@)"-  # #B-@"#  E-}-@B:,267<,.>:@:7<,,&A(,6 E67<,.  T (}-@@T(28 C$=>:@4,7@:@4, X-@@X(!36 TRAP 400:CLOSE #1:OPEN #1,4,0,>:@4,D:>:@4, 8-@@-}8(29 D$=>:@4,>:@4, 2(CONT -@2AR %D:CSAMPLER.LIB'::11,-}Š,Ӡ,,ӛ'SSӠ,,,,,-}ٛ$' ӛt'775,,,,,Ӡӛ'ZZ9,̠,̠,-}٠,̠ٛ'::ΧӠ,٠ƠŠӠӛ'$$,Ӡ,-}ԛ<(PP9,̠,ΠƠӠ,,ÛF(ZZ٠ƠŠ,-},٧Ӡ,ΧӠٛP(̠Λ(3,,ǭ,ӛ)EE10,̠-},̠,àÛ)SSà,,,,,̠-}Û) ӛh)QQ8,̠,Š,à,àٛr)77Π,à-},àٛ|)٧Ӡٛ)GG11,̠,̠,Ġ,̠ٛ-})OOΠ,٠,à,٧Ӡٛ)==٧Ӡ,٠Ơɠ-},ӛ0*__10,٠ƠŠ,àƠŠ,٠̠ƠŠΛ:*cc,-}Π,ӠӺ,ӠӺӛD*AAӬӠ,-}ϮŮ,ӛ*BB8,Π,Π,Π,,ӛ*٠ٛ*''-}٠,ӛ*``7,̠,Š,,̛+RR-}Š,Ӡ,̛\+//7,,,,,-}f+,ٛN##AA.CN,AB.CN,AC.CN,AD.CN,AE.CNN;;BA.CS,BB.CS,BC.CA,BD.CS,BE.CS,BF.CS,BG.CS,BH.CS,BI.CSLOD-}DCA.EDU,CB.EDU,CC.EDU,CD.EDU,CE.EDU,CF.EDU,CG.EDU,CH.EDU,CI.EDUODA.DEP,DB.DEP,DC.DEPPKKEA.MAT,EB.MAT,EC.MAT,ED.MAT,E-}E.MAT,EF.MAT,EG.MAT,EH.MAT,EI.MAT,EJ.MATxP==FA.GEO,FB.GEO,FC.GEO,FD.GEO,FE.GEO,FF.GEO,FG.GEO,FH.GEOPRRGA.HIS,GB.HIS,GC.H-}IS,GD.HIS,GE.HIS,GF.HIS,GG.HIS,GH.HIS,GI.HIS,GJ.HIS,GK.HIS@QKKHA.INV,HB.INV,HC.INV,HD.INV,HE.INV,HF.INV,HG.INV,HH.INV,HI.IN-}V,HJ.INVQ==IA.LIT,IB.LIT,IC.LIT,ID.LIT,IE.LIT,IF.LIT,IG.LIT,IH.LITR66JA.PSI,JB.PSI,JC.PSI,JD.PSI,JE.PSI,JF.PSI,JG.PSIl-}R//KA.OTR,KB.OTR,KC.OTR,KD.OTR,KE.OTR,KF.OTRD:MAINMENU.LIB,ӛ-} B D:MENUES.BIB@C.OTR,KD.OTR,KE.,'6-A@,0`hhL! 70 1L0-}L<1  L1I H1EΝDL1|mDV0,'6-A@,0`hhL! 70 1L0,J5SNOAIXAEPECD A} SAVE"D:CSAMPLER.LIB"COLLECTION SAMPLER GERMAN ANTONIO A}GONZALEZ M. ANTIC Publishing Inc. 199044;B,;@,;@@,;@@,L67@,. %6A}7B,. 467@,.@6-@L6-B AB@& AB@$$ŠӠӠ͠A}՛$$ŠӠӠ͠՛#<<6-C:/@ԩhhh i hԈhԈhԈhԈhhLV,$$$ŠӠA}Ӡ͠՛%))6-?:<@<BA}(-@@(([SELECT] RERUN?1 @E,@1/@9@A++(# GERMAN ANTONIO GONZALEA}Z M.B**(" ANTIC Publishing Inc. 1990C%%( ARICA - CHILEF&6-F:B2y,&"@@pHA}"@@J]"@*#-@@/(;6-O-AS ] @pKe"@A}*"+-@@7(ΠC6-@W-A[ e @pO @pP6.E:Q"A}6.P:RUU6-?:C:%h0i˭1ihhˠhhn`,<@%@<@2%@,U (} AA}@;@@MAAY_AAYqA @AR@A@A}@@Z>-@@#1(@BOOK'S LIST OF>(@d-@X@Wi@(@(@A}@(@(+&@,'@W)n&&(@BOOK: 7<%@),x00(@AUTHOR: 7%@0<%@IA},<0(@LOCATE: 7%@P<%@U,<(LOAN: ; 7%@V<%@V,4Y1(@; A`A}(@NO+6-F:B2y,"@!'+ A"@@A"@*"+A"A}76-@A A/"@*#A"AU/6- k(((ՠ'( >(1. A}GO TO MAIN MENUR(2. GO TO EDITORk(3. GO TO ATARI BASIC (4. DOS AR@(5. RERUN@A"A} @@@@K:9 A )@&"@I9%D:MAINMENU.LIB#"@P#%A} D:EDITOR.LIB"@Q+"@R."@S@5 A ,I7(/VERIFY PRINTER A}CONNEXION AND PRESS [RETURN]IAdAU6 F:Ad,@A; @>AY@44(} ERRA}OR - FILE NOT FOUND> AD:CSAMPLER.LIB A},\ '" 119 6 620 dA(lg!ag (# ( (> ͯd!lga5}g A > w#dD=dd:V2V~#cce>?-e4edd ` e eee> -e-e(e>-e>-e5}!3ß     '" 119 6 620 dA(lg!ag (# ( (> ͯd5}!lgag A > w#dD=dd:V2V~#cce>?-e4edd ` e eee> -e-e(e>-5}e>-e!3ß > w#dD=dd:V2V~#cce>?-e4edd ` e eee> -e-e(e>-4 0,٠ƠŠ,àƠŠ,٠̠ƠŠA}A6## @eV%A:,@@67<,.>:, @@"@@G-67%:,J Ap>6-F:@,%6-F:@,)(7-&@>( $!}2AR'-@@ /(OFF2$\@ -@@#@(CHECK THE DISK DRIVE OUTRA!}\ Ap*-@@#'( MESSAGE:*$,H%@!#-@@#>(EXIST NO MORE BOOKSH A!}p6)6-%@6-%@W) A H@!-@@#>(BACK TO THE BEGINNINGH Ap6-!}&@6-&@W&-@ @&(7<%@),.-@ @.(7%@0<%@I,c-@@!}.(7%@P<%@U,@-@5@Y(7%@V<%@V,c Ap=AR'-@(@3(!}LOADING= AWL-@$@&( 8-@$@?(L@2 6.67@,.267@!}<@,.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)/