@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 376 FREE SECTORS COPYING---D8:DEMO02.EXESl# 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 D8u8<<  B JKIHiDiELV`L8 8 BLV`LxT}8t8l Lu8hihiHHȱȱL8c !#3`Lu8JJJJ`H 8h`HU}ȩh Q8L8 Z8L8 8L8 8L8 8L8S:@9E:E9H '9 H9I9 8 '9h)0ICV}9D9L8 L :::: :Lr:::IEL[::i:iIIL[:`:i::iX}::L:`L{:w:w: C`L:L: D8:MEM.SAV: 8| 9 '9`L:L: D:DUP.SYS:̩ 8Y} x:ɀL: '9`88 |9Y:X: '9L); D8:DUP.SYS; 8::88 9 '98? :`;WL`; 9Z}Ln; ` :Y;Y;L;L;)} Setting Up ATARI 130XE Ram Disk; 9L; ; -9  [} L;D8:; :9 :Y;L-@@> $Inserte otro diskette y pulse  A@:-@@l}:  Seleccione programa usando  >-@@> $ y presione $""----------m}------------------]6-@$AF:A,9AF:A,KB2H]B2I"3BByn}%6-$AV%A$36-%AV,()A`6))-@$@%@@@-@Jo}%%AUT%%AU^ h r'B2H@'B2IA$|]B2V@'B2W@p}9B2w@KA]AAY@b$>>112,112,112,48,70,64,156,80,6,112,112,1q}12,2,16,2,16,2,16>>2,16,2,16,2,16,2,16,2,16,2,16,2,112,112,112,2,0,2,65,0,6""----------------------------Ar}"AdAU"(APM-@@ .-@&@5 A6-@M6-@)6-F:s}Ad,)AU*(A`"@A`!!@*@APAdAU/"@6t}-%@#!/6-@/"@6-&@) @/6-'-@  !-@&'  )-@u} "-@&) & 6-0-@@+-@@M2@@@@Q ev}-@@ 2@  : APD$N""----------------------------XG Aw}6.D:G67B:,%@,.7$@&@<$@,b @@l@ Apv @x} AdAU##F:A,"Ap)(A`G-@@G  - ERROR F:A, - y} >-@@> $ Verifique y pulse  F:Ad,"AUAP A1B2Hz}'B2I1+/AdAU/  Cargando: 7@,$D:MENU A1B2HdR BINESUMCHd##************************|}*****n##* VERIFICADOR DE CASSETTE *x##* *##* Por: Hector Ayet C. *##* }} *##* Revista STAK - # 3 1992 *##*****************************| +;A~},)6.>:,A67A,.>:,P67@,.bAR@|0@j-@@>(}$** VERIFICADOR de CASSETTE ˠ **P-@@ g(Revisando Datos...j#Ӡ16-A}6-@'6-1 A`k6-#-@@$'"567<,.>:,?6-%$Y6-&B$+!A,}g6-%@k >" ,(ERROR DE DATOS EN LINEA 86-@>6-6-%@ A0!!"A*"}A1 A1(>:A%,FALTAN LINEAS DATA*A@f'AR*",6l-}@@ > $Posicione CASSETTE y PRESIONE P-@@!l(para GRABAR VERIFICADOR@ F:B2y,@}A JAd@TG-@@ G >:AV,>:AV,Grabando VERIFICADOR...^}h##@@A(C:r @|@ΠŠT-@@ < >:}AV,Verificador Almacenado ? QART!!Ӡ̠ҠTT0,4,0,7,11,7,32,}149,8,24,96,169,0,133,10,169,160,133,11,169,31,133,12,169,6273UU7,133,13,32,37,7,96,32,37,7,108,10,0,169,0,141,231,2,133,}128,169,9,141,232,9536XX2,133,129,32,58,7,32,86,7,96,162,66,160,7,32,66,198,96,125,86,101,114,105,102,8019__105,99,97},100,111,114,32,160,211,212,193,203,160,155,169,141,141,33,3,169,7,141,34,3,1887\\162,0,189,0,228,157,141,7,232,224,16,20}8,245,169,160,141,145,7,169,7,141,146,7,24,3913&YY173,4,228,105,1,141,162,7,173,5,228,105,0,141,163,7,169,0,133,67,96,147,}239,45,17990ZZ242,160,7,175,242,29,242,44,242,76,110,239,0,0,0,255,255,32,74,242,8,201,155,240,881:[[4,230,67,40,96,140},157,7,142,158,7,165,67,240,107,169,48,133,69,169,8,133,70,160,3200D^^0,162,255,232,228,67,240,90,189,128,5,201,32,240,244},177,69,201,32,208,4,200,76,207,2434NYY7,221,128,5,208,8,200,177,69,240,36,76,195,7,201,255,240,56,160,0,177,69,240,9,7913}XXX230,69,144,2,230,70,76,236,7,24,165,69,105,3,133,69,144,2,230,70,76,191,7,200,1263b]]177,69,141,159,7,200,177,69,141},160,7,108,159,7,160,0,169,46,153,128,5,169,155,153,3435lVV129,5,169,0,133,67,169,155,172,157,7,174,158,7,40,96,86,69,82,7}3,70,89,0,88,4969vOO8,77,79,84,79,82,32,79,78,0,130,8,77,79,84,79,82,32,79,70,70,0,136,8,8998UU81,85,73,84,0,142,8,255},32,221,8,32,161,8,152,48,16,32,191,8,152,16,250,201,732YY136,208,6,32,221,8,76,124,8,133,185,32,221,8,162,255,154,76,52,}185,32,149,8,76,1323SS22,8,32,155,8,76,22,8,32,149,8,76,22,8,169,0,133,9,76,116,228,169,60,141,6636YY2,211,96,169,52,}141,2,211,96,162,112,169,3,157,66,3,169,231,157,68,3,169,8,157,2322XX69,3,169,4,157,74,3,169,128,157,75,3,76,86,228,162,1}12,169,7,157,66,3,169,253,4617XX157,68,3,169,3,157,69,3,169,128,157,72,3,169,0,157,73,3,76,86,228,162,112,169,2194FF1}2,157,66,3,76,86,228,67,58,155,0,0,0,0,0,0,0,0,0,0,0,0,0,0,5636 D8:VERIFI.BAS7,73,3,76,86,228,162,112,169,2194FF1U{SENTIDKOLOSULI } d##*****************************n##* D E M O 2 *x##* *##* }Revista STAK # 3 1992 *##*****************************""*NO CURSOR, IMPRIME MENSAJE*6 +AR}@6 Revisando DATOS...##** DESACTIVA INTERRUPCIONES**BB$6-@$ARRIBA=1 ABAJO=2}##* COLOCA VALORES EN MEMORIA *%6-Bx6-B1% A`%6-B6-BG% A`##** MUEVE SET }DE CARACTERES **6-?:B,##* INSTALA PANTALLA DE FONDO *##* Y COLORES DORADOS *A+@%@}#A3-AA7"=A "-@@+-@@?(@#&),/C W-@}@k(@$'*-0o -@@(@%(+.1 , 6##**** ES SOLO UN MENSAJE ****@c-@}@3(@ E-@@ c(@ Jc-@@3(@} Revista STAK E-@@c(@ Presenta : Tc-@@3(@ E-@}@c(@ D E M O 2 ^c-@@3(@ E-@@c(@ } h##* INSTALA SET DE CARACTERES *rAVAH|##* MOVIMIENTO ARRIBA O ABAJO *E"@!BB}3AH@4EAIARW"@!BB3BBEAHA6WAI}AR* ACTIVA INTERRUPCION *BB@d A0** REVISA LINEAS DATA ** A0+}-@$6-+6-@-%@#"! 6-%$6-%@! ""A@}@ +A@d=(Error de DATA en linea @9 +A@d6(Faltan Lineas DATA96}-%@& 0$:D##* 18 CARACTERES REDEFINIDOS *N##* NUEVO SET EN PAGINA 148 *X##* (37888, O $94}00) *b770,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0lOO9,9,169,89,249,249,89,169,9,9,9,9,9,9,9,170,85,255,255},85,170,9,9,9,25851vii246,246,246,246,246,246,246,246,246,246,246,246,246,246,246,170,85,255,255,85,170,246,246,246,65364}OO0,0,170,85,255,255,85,170,0,0,0,0,0,0,0,170,85,255,255,85,170,0,0,0,24480ii159,159,170,85,255,255,85,170,159,159,159},159,159,159,159,159,159,159,159,159,159,159,159,159,48063]]96,96,170,85,255,255,85,170,96,96,96,96,96,96,96,106,101,111,}111,101,106,96,96,96,32352##** RUTINA MUEVE CARACTERES **##** Y CONTROLA INTERRUPCION **gg104,169,0,133,203},133,205,169,224,133,204,169,148,133,206,162,4,160,144,177,203,145,205,200,48852ff208,249,230,204,230,206,202,208,242,96,}8,173,24,148,141,236,152,173,48,148,141,237,152,173,46646ee72,148,141,238,152,173,96,148,141,239,152,173,120,148,141,240,}152,162,0,189,25,148,157,24,39639ee148,189,49,148,157,48,148,189,73,148,157,72,148,189,97,148,157,96,148,189,121,148,157,}120,41284gg148,232,224,23,208,221,173,236,152,141,47,148,173,237,152,141,71,148,173,238,152,141,95,148,45964ee173,239},152,141,119,148,173,240,152,141,143,148,40,76,98,228,8,173,47,148,141,236,152,173,42018ii71,148,141,237,152,173,95,148,1}41,238,152,173,119,148,141,239,152,173,143,148,141,240,152,162,49340bb22,189,24,148,157,25,148,189,48,148,157,49,148,189,}72,148,157,73,148,189,96,148,157,97,38578 hh148,189,120,148,157,121,148,202,16,223,173,236,152,141,24,148,173,237,152,141,}48,148,173,238,46298^^152,141,72,148,173,239,152,141,96,148,173,240,152,141,120,148,40,76,98,228,0,0,0,0,29448 ""*****} TABLA DE COLORES ******38,34,44,100,0 D:DEMO2.BAS,173,240,152,141,120,148,40,76,98,228,0,0,0,0,29448 ""*****?{] t SLISU } d##*****************************n##* CARGADOR MONTEZUMA II *x##* *##* }Revista STAK # 3 1992 *##*****************************M;@,(>:A%,)6-A;A}MAR@5-@@5(REVISTA S T A K PRESENTA:/-@ @/(Cargador MONTEZUMA II3-}@@3(Version Diskette/Cassette%6-A66-Av% A %6-A6-Ac% A +6}- B+AR>-@@4(Vidas Ilimitadas? (S/N) > A0S*0NA0} 4S6-%@(+@-@@ 6( (D)iskette o (C)assette? @ A0D*0}CAp" 4DAb@,'-@@ 'AR@6(Prepare @ 4C(CASS A@}J (DISKT(ETTE con MONTEZUMA II^+-@@!+(y presione h F:B2y,@A`r **}** EJECUTA CARGADOR ****|6-?:A6,**** LEE TECLADO ****T#@@K:0)@=*@}F6.>:,Q@T$##***** REVISA LINEAS DATA **** A+-@$6-+6-@}-%@#"! 6-%$6-%@! n")6-F:A,%F:A,$AV/9+KA}@dk(Error en Numero de linea n"A@ +A@d=(Error de DATA en linea @}9 +A@d6(Faltan Lineas DATA96-%@ $""**** DATOS DEL CARGADOR ****X[[}169,48,133,12,169,6,133,13,169,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,208,238,76,116,228,41690lYY169,0,133,82,133,8,169,1,141,240,2,162,98,160,6,32,66,198,169,0,133,2}0,165,19,27932v]]197,19,240,252,32,32,1,162,255,154,173,106,1,208,8,169,12,141,252,2,76,128,198,76,34737jj152,197,125,}29,160,195,193,210,199,193,196,207,210,160,205,207,206,212,197,218,213,205,193,160,58439ee201,201,160,160,210,197,214,201},211,212,193,160,211,212,193,203,160,185,178,160,155,0,0,0,42864VV169,6,162,1,160,52,76,92,228,169,94,141,226,2,169,1,141},227,2,96,8,32,41,1,25316ZZ32,78,1,173,107,1,240,10,169,95,141,34,2,169,228,141,35,2,40,76,95,228,173,102,32031ZZ62,2}01,198,208,8,169,165,141,102,62,238,107,1,96,173,107,1,208,6,32,78,1,32,32,24010::1,96,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,}0,0,0,0,0,193**** FIN DE DATOS ****D8:INFMONT2.BAS8,1,32,32,24010::1,96,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,A,NOMBREEDALONGITUd!!***************************n!!*** PROGRAMA DE EJEMPLO ***x }!!*** CURSO DE BASIC ***!!*** CAPITULO NUMERO DOS ***!!*************************** +;@0 }, PROGRAMA DE EJEMPLO  DIME TU NOMBRE :  CUAL ES TU EDAD 6-B:,  } ''  TE LLAMAS  Y TU EDAD ES '' LA LONGITUD DE TU NOMBRE ES DE:"  CARACTERES,D8:PROG }BAS2.BAS'  TE LLAMAS  Y TU EDAD ES '' LA LONGITUD DE TU NOMBRE ES DE:"  CARACTERES,D8:PROG *+k00TECLDATABFHXBLINELINDATOTASUM$} ##*****************************##* *##* M E M O$} R I C E *##* *##* por: *###* *(##$}* NEW AGE *-##* *2##* Revista STAK 1992 (c) *7##* $} *<##*****************************dy A +)AR@;-@O(M E M O R I C E$}a-@@y(por: New Age (1992)n--A")Ad%- xF-@@4((C)assette o $}(D)iskette ? FAdAU06-F:Ad,0@*@XA07AdAU B+"@X76$}-@l1;@,;@H,;@,;AB$,I67@H,.>:,`6.0123456789ABCDEFl6-@@6-$}A#A# A0&()(=(REVISANDO DATOS@(,6-%@",B:,@A0=(>:@(,LINEA:$}=6-F:A,%F:A,$AV/  (%( Falta LINEA  !!/ A@##6-?:AdjjEEEEECCDFFFFFFFDEEEEECCDFFFFFFFDEEEEFFFDFFFFFC8DFFFFFFFD95555555AAA9AAAABBA9AAAAAEA9EAEEAAA9EABA,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)/