@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 330 FREE SECTORS COPYING---D8:LAYAPA2.EXEl# 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-@@l}> $Inserte otro diskette y pulse  A@:-@@:  Seleccione programa usando  >-@m}@> $ y presione $""----------------------------]6-@$AF:An},9AF:A,KB2H]B2I"3BBy%6-$AV%A$36-%AV,()Ao}`6))-@$@%@@@-@J%%AUT%%AU^ h r'p}B2H@'B2IA$|]B2V@'B2W@9B2w@KA]Aq}AY@b$>>112,112,112,48,70,64,156,80,6,112,112,112,2,16,2,16,2,16>>2,16,2,16,2,16,2,16,2,16,2,r}16,2,112,112,112,2,0,2,65,0,6""----------------------------A"AdAU"(APM-@s}@ .-@&@5 A6-@M6-@)6-F:Ad,)AU*(A`"@A`t}!!@*@APAdAU/"@6-%@#!/6-@/"@6-u}&@) @/6-'-@  !-@&'  )-@ "-@&) & 6-0-@v}@+-@@M2@@@@Q e-@@ 2@w}  : APD$N""----------------------------XG A6.D:G67B:,%@,.7$@&@<$x}@,b @@l@ Apv @ AdAU##F:A,"Ap)(Ay}`G-@@G  - ERROR F:A, - >-@@> $ Verifique y pulsez}  F:Ad,"AUAP A1B2H'B2I1+/AdAU{}/  Cargando: 7@,$D:MENU A1B2H'B2I1+/AdAU2hg ~ LISU d##**}}***************************n##** **x##** REVISTA STAK PRESENTA: **##** ~} **##** M:EMORIA VIRTUAL **##** **##** (o usando la memoria **##** } **##** como un dispositivo **##** **##** auxiliar de }**##** **##** almacenamiento) **##** **##************}*****************6-A##*** POKEa Valores a memoria**%6-AV6-AR% A"%6-B'h}6-B0"% A,%6-A66-A% A6""** Mueve a direccion real **@""** BAJO la memoria ROM }**J""** del BASIC **T**6-?:A6<B'h<B `<AU,^""** Conecta dispositivo M: **h((  Nuevo} Dispositivo M: activado...r6-?:A(,|##***** 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 d}e DATA en linea @9 +A@d6(Faltan Lineas DATA96-%@ $""**** DATOS }DEL programa ****XRR32,48,1,32,38,160,76,55,1,32,48,1,32,70,160,76,55,1,32,48,1,32,102,160,17694bQQ76,55,1,32,48,1,32,9}2,160,76,55,1,32,48,1,32,114,160,76,55,1,160,1,96,19185lQQ141,71,1,32,62,1,96,32,62,1,173,71,1,96,173,1,211,73,2,141,1,211},96,0,23579vLL104,32,48,1,32,0,160,76,55,1,255,0,8,1,17,1,26,1,35,1,44,1,76,45,10822771,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,}0,0,0,0,0,0,0,0,1]]162,0,189,26,3,240,10,201,77,240,26,232,232,232,208,242,96,169,77,157,26,3,169,82,39129TT157,27,3,}169,1,157,28,3,169,0,157,29,3,96,189,74,3,41,8,240,10,169,0,141,24114gg181,160,169,161,141,182,160,173,181,160,141,177,16}0,173,182,160,141,178,160,160,1,96,189,74,42746``3,41,8,240,12,173,177,160,141,179,160,173,178,160,141,180,160,160,1,96,3}2,135,160,32,36759bb219,160,32,146,160,96,32,114,160,176,6,32,183,160,32,146,160,96,32,135,160,205,179,160,38399aa208},9,204,180,160,208,4,160,136,56,96,160,1,24,96,173,177,160,133,224,172,178,160,132,41503ff225,96,173,178,160,240,23,238,1}77,160,208,15,238,178,160,173,178,160,201,208,208,5,169,216,49802VV141,178,160,160,1,96,160,136,96,0,0,0,0,0,0,120,169,0,}141,14,212,173,1,211,26367YY41,254,141,1,211,160,0,177,224,141,71,1,173,1,211,9,1,141,1,211,169,64,141,14,29528\\212,}88,96,120,169,0,141,14,212,173,1,211,41,254,141,1,211,160,0,173,71,1,145,224,35652MM173,1,211,9,1,141,1,211,169,64,141,14},212,88,96,0,0,0,0,0,0,0,0,0,12698ff104,104,133,208,104,133,207,104,133,206,104,133,205,104,133,204,104,133,203,173,1,211},73,2,38388cc141,1,211,160,0,177,207,145,205,230,207,208,2,230,208,230,205,208,2,230,206,198,203,208,54261 NN236,198,2}04,16,232,173,1,211,73,2,141,1,211,96,0,0,0,0,0,0,0,0,0,0,11528D8:MEMOVIRT.BAS0,206,198,203,208,54261 NN236,198,2W !,MENSAJEVELOCIDALISU~@BwBhdBxB&Bx$A6@% Bx$} A6 B%d##*****************************n##* REVISTA STAK PRESENTA: *x##* } *##* DEMO #3 *##* *##* (o LETRAS SUPER GRANDES) *##* } *##* Por: Rod Rubber (1992) *##*****************************;A,5 +}5 #Revisando DATOS del DEMO, espere...! B @!* INSTALA DEMO *##*****************************##** AQUI }VA SU MENSAJE **##*****************************gg6.] Este mensaje solamente es para demostrar lo facil que es uti}lizar este DEMO en sus propios ff67B:,%@,.Nprogramas. Si el mensaje tiene mas de 1000 caracteres solo deben modif}icar la dd67B:,%@,.Llinea 200. No olviden colocar como ultimo caracter de su mensaje, CHR$(255) "bb67B:,%@},.J Esperamos que este DEMO lo utilicen para mejorar la presentacion de sus ,TT67B:,%@,.:AU,r}##*****************************|##** VELOCIDAD entre 1 y 12 ***##*****************************6-@}Bv(##*****************************##**** EJECUTA DEMO ****##************************}*****6-?:Bw:A%,)6-A;A}MAR@5-@@5(REVISTA S T A K PRESENTA:,-@@,(Cargador BRUCE LEE3-@}@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*0C}Ap" 4DAb@,'-@@ 'AR@6(Prepare @ 4C(CASS A@J} (DISKT(ETTE con BRUCE LEE^+-@@!+(y presione h F:B2y,@A`r **** EJE}CUTA 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@d}k(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,20,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,160,194,210,213,195,197,160,204,197,197,57029ee160,160,160,160,210,197,214,201,211,2}12,193,160,211,212,193,203,160,185,178,160,155,0,0,0,42741VV169,6,162,1,160,52,76,92,228,169,94,141,226,2,169,1,141,227,2},96,8,32,41,1,25316YY32,78,1,173,107,1,240,10,169,95,141,34,2,169,228,141,35,2,40,76,95,228,173,26,30207YY18,201,198,}208,8,169,165,141,26,18,238,107,1,96,173,107,1,208,6,32,78,1,32,32,22842::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:CARBRUCE.BAS8,1,32,32,22842::1,96,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,9*+ !TECLDATABFHXBLINELINDATOTASUM } d##*****************************i##* *n##* P O } N G *s##* *x##* (MODIFICACION DEL ORIGINAL*}##* *## }* para PADDLES publicado en *##* *##* REVISTA ANALOG) *##* } *##* Revista STAK 1992 (c) *##* *##*****************************M Au }+)AR@;-@@M( P O N G--A")Ad%- F-@ }@4((C)assette o (D)iskette ? FAdAU06-F:Ad,0@*@XA7AdAU } B+"@X76-@l1;@,;@H,;@,;A$H,I67@H,.>:,`6.0123456789 }ABCDEFl6-@@6-A#A# A0&()(=(REVISANDO DATOS@(,6-%@",B:,@A }=(>:@(,LINEA:=6-F:A,%F:A,$AV/  (%( Falta LINEA  !!/ A##6-?:Ad }:A%,)6-A;A%}MAR@5-@@5(REVISTA S T A K PRESENTA:/-@ @/(Cargador ELECTRICIAN3-% }@@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 ELECTRICIAN^+-@@!+(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[[1%*}69,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,2%+}38,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,20%,},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,2%-}9,160,195,193,210,199,193,196,207,210,160,160,197,204,197,195,212,210,201,195,201,58021ee193,206,160,160,210,197,214,201,%.}211,212,193,160,211,212,193,203,160,185,178,160,155,0,0,0,42866VV169,6,162,1,160,52,76,92,228,169,94,141,226,2,169,1,141,%/}227,2,96,8,32,41,1,25316YY32,78,1,173,107,1,240,10,169,95,141,34,2,169,228,141,35,2,40,76,95,228,173,71,31287UU77,201%0},1,208,8,169,0,141,71,77,238,107,1,96,173,107,1,208,6,32,78,1,32,32,22150::1,96,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0%1},0,193**** FIN DE DATOS ****D8:CARELECT.BAS8,1,32,32,22150::1,96,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0$:'g1 'i ,'` 8' ,'`'`` ( D , +ԅҩ<011 ( [-+ )3}\ -0 C- ( 9/ ( )H0H0 (Ls( 0s1- (.Y0 +/t1襅 4/t1X0)4} +/t1襆 4/t1`Т!!Ip`!)! ) q) ( * f+ )ЩMD0& ܰ +L)0 0)5} D00 iLi)iإM0` ( )?i(E0I0 K0 )F0L)K0F0 )G0 0 G0 )G0D0/X0Y)6}0 0L)轄`Ii`E0i}!)}!E0! !! !D0`Hh0`Hh`F0 *8勅Ѝ\0Ѝ)7}[0\0) *0\0) *0\0B>[090[0)0[0) 0 +P00I0`E0 G0 *G)8}0`n G0 *G0`G0 )G0`D05 F0 *F0`Ȑ F0 *F0`F0 )F0`0[0)F00F00 F0 )F0 -+N[0)B0L=+C0)9}8E0 )G0yL0G00 G0`G0`D0mF0D0E0mG0E0`I0I0J0I0F0 *F00F0`F0`):}`1+i`t1`ЭLt䥄Lbx 'X0Z0Z0Z00B0 ,Z0>0);}Z0 -L ,B0y 'Y0Z0Z0Z00iC0 ,Z0@0Z0i -LT,C0Ƃ ҥҭ00)ڝ0I)֝L)<}b *F1Aq1}D11E1 00l?1 ?1 5-]@10A1nԅ (-Ə @1A1ԩt@11A1?1)?1`)?}'t1`X0Y0.>0ȍ@00K0J00`X0Y0Z>0K0J00 +0`X0Y0,>0?0ƍ@0XA0K0J0)@}0 .0`X0Y0K0J0Z>0^@00 +0`1 iii i)A}`JJJJ `) `- {-H00 (x0i (-bx000000л)B}ƈ "0 0L/戥 / /֝ {-LO/-` 01` (揥` (Ə)C}` t110t1`0/.')D}presione"/4/.paracomenzar'!.!$/2Ԕ 3...Z.0/.'./2-!,0/.'(/#)E}+%9315!3(02!#4)#!pppgt1J1(...Z.0/.'./2-!,0/.'(/#(U@@pppT}@T}@T}@}@T@T@T@Բ@T@T@T@@TATATAATQATQATQAQATATATATAA@B B@@ALAA-G}AA B-H}@A-I}-J}ABHHH ԎЌЈhhh@c@ ͅ˩C̩-K}&&&iΠ͙X@`@}@@@@@ AAUAQAAA2`d@X@d@H k@l@d@ȑȑȑh-L}c@`b@8b@԰BCib@ Bc@  AB Be@e@`@LjC`@a@@pa@LjC@i@LjC@-M}a@LjC8@@Lbͅ˩C̩k@c@b@0@1f@ AB B%BB \LC%34%02/-N}'2!-!3)-0,%-%.4%%35.!9CD!0!/2%'!,/3)02%&)%2%. %,#/$)'/&5%.4%%.!33%-",%2./%34!4%2-).!$/.)/04)-):!$/90/-O}2%3/./&5%).#,5)$/%.%,$)3#/3).%-"!2'/ %3"!3)#!-%.4%%,-)3-/$%,$%-/3!,5$/3!4/$/3$%3$%,!3/&)#).!3$%,!-P}2%6)34!34!+UUUUUUUUmC/ %3"!3)#!-%.4%%,-)3-/$%,$%-/3!,5$/3!4/$/3$%3$%,!3/&)#).!3$%,!,-PS>>>666666>`<|fl0fF68of; 0p88pf~f~8~881R}8p`>go{s><>g8g>>np~w>>p~ww>88>w>ww>>w?<88p8~~p81S}8p>w>gnggn`>www~w~ww~>wppw>|vww~|x~xxx~xxx>wpww;wwwwww>wv||vwxxxxxcwww1T}{{ww>www>~ww~pp>ww~;~ww~ww>w8w>wwww;wwww>wwwcww>>wwww>8p8pc>www>swwww1U};8lf~< 0``0 ?1V}>A]Q]A><~~~<*****II>1W}>??ll8>g>www>>?w;pp~wwn>wpw>?ww;>wp>?;ww?~pp~www<>>psv|vs<1X}>fkcnwwww>www>nww~pp;ww?nwppp?p>~wwww;www>ck>6w>>wwww?|8g>?w;1Y}wwww;>gnggn`*U*U*U*0,g!0P" J!g!L:Pg!`I! ʽ!!M!LJ!  &L1Z} M!J!P!LZ!¹!üP!)   L) ĝM!ȘP!S! !h! !j!L Ƥřh!P!P!1[}P!J!V!z! ! Ĵɹ!&Hh!hi!Ly Y!i!ƙh!!I!)\!LF N 8S! řh!c!`!`!q!1\}`!uƤřh!M!0L?`h!`ȱV!`ȱ\!``Y!`c!`  0`H<1]}xrke_ZUPKGC?<852/,*'%#!8 j jFAn0R"zU [88  1^} efP!!!!! M JH    """ d'1_}7IjYu$T##%&&%&&&##%##&&%$$$$&&$$$%1`}    1a}--!--!#1b}!-         !1c}#!!!!!#1d}-   # # - #%%   1e}-- #  1f} ,,,,+ #&#-&- , %1g}* * % , %* %*     1q}B%DOS SYSB*)DUP SYSB SRAMDISK COMB\AUTORUN SYSB]MENU B|MEMOVIRTBASB.DEMO3 BASBCARBRUCEBASBBPONG BASBCARELECTBASB2PONG EXEB FLAYAPA EXEB,QLAYAPA2 EXEB&DEMO3 CTBB DEMO003 OBJB/DEMOKOLFBAS           1r}@g!`PRTVWY[]_`bdfhikmnprsuwxz{}~1s}~}{zxwusrpnmkihfdb`_][YWVTRPNLJIGECA@><:875320.-+)(&%#"   1t} "#%&()+-.023578:<>@ACEGIJLN~|zxvusqomkjhfdba_]\ZXW1u}USRPOMLJIHFEDBA@?>=<;:98776544332211110000000001111223344567789:;<=>?@ABDEFHIJLMOPRSUWXZ\]_abdfhjkmoqsuvxz|~1v} b) * X+Pԩ:/WTUVЩЍ Ѝ Ѝ ЩOLJGP1w}ЩZЩdЩnР*T*U*V*W L)jL++* N+`1x}& UiV& eUUeVV(VFVfU&}&jTF }*Ч}*$L1y}+L*L*L*} W) ҙ  /)I)L)**} W)L+1z}L+L+LB*A@?Accccckwc~``|`````cwkcccccffff~ffff*L\HHH*'И** M+)1{}M+IM+LC+M+)M+IM+L0h(L_`VL,pAP{(+)6Q+,R+@ԩ`ưQ+R+Q+R+/ 1|}6Q+,R+5,I5,`4,;O+#N+N+8N+T+iT+`4,I4,L+O+8O+S+iS+`S+!T+T+8T+N+iN+`4,I1}}4,`O+iO+S+8S+`@@@@@@5&&&&&&9%!3/)34!247/2,$&%$%2!4)/./&-!$(!#+%231~}02%3%.43.%7$%-/)43#!,,%$"544/.$%-/-9.!-%)3++ )72)44%.4()3/.%4(!1}.+34/$5$$)%&/2)$%!3 8, 3/&4(%#54/&&4()3-5:!8&2/-).4%2.!4)/.!,+!2!4% (%"2).'"%%24/-% 1} 0/,/.53&2/-15!24%4!2%$5$$)% ++ 4()3)!- 8, 3/&4 -)+%-5:)#!. "/93),,90%' 1}2%347()#()7!3&/2'/44%.!"/54./4!+ !4%2!:30%#*!,.%!.49;9#:%.)!/2!:02:%+,%.347!$,!0!*!#!:/$:)%;/7#!1} +4/29(!.$,5*%02/'2!-!-).!!4!2)8,,5$:)%$,!#:%'/+505*%#)%5.)%'/02/'2!-94/30%+5,!.41} :-)!.!':9-35 79*3#)%:02/'2!-54/$%-/0/734!,/7$.)!9%!("%$1}%#(9"!+/.#:9,"/:!#:9.!-0)3!#./7%$%-/"9%"9%#:%3#MP1}hhLF+L()3!#./7%$%-/"9%"9%#:%3#MP0$24 U ̠0 Lq#0 t w֤ע >N1 w֤ע >멝1 w֤ע 5} >1 w֤ע >52 w֤ע > J   W!D > wԤբ k J 5} r2 驂} 𩮠0 면0 멺0  w Q w $  2L$0   w Q w# 5}(L$$  w w   Q + 셈 W! 񥷠  ꥸ Ơ0 Q w vL5}$ @ 2 w  w L$ @ 2  w @ 2  +5} }_85,85,85,85,85,85,85,85,255,255,255,255,170,170,170,170,112,112,240,84,148,144,84,148,45550}`144,84,148,144,845},201,144,84,201,144,84,201,144,84,254,144,84,254,144,84,254,144,84,51,42459}_145,84,51,145,84,51,145,84,104,145,84,104,145,5}84,104,145,84,157,145,84,157,145,84,157,35834}Z145,84,210,145,84,210,145,84,210,145,84,7,146,84,7,146,84,7,146,112,65,16,145}4,72,28078}W138,72,162,192,142,10,212,142,23,208,202,208,247,104,170,104,64,0,0,0,0,0,0,0,21900}W0,15,1,0,0,0,66,230,0,0,5}255,255,196,144,249,144,46,145,99,145,152,145,205,145,41553~=2,146,55,146,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1043~505},0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0~50,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0"~50,0,0,0,0,0,0,0,0,0,5}0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,~50,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,06~50,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,05},0,0,0,0,0@~50,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0J~50,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0T~50,0,05},0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0^~50,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0h~50,0,0,0,0,0,0,0,0,0,0,0,5}0,0,0,0,0,0,0,0,0,0,0,0,0r~50,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0|~50,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,05},0,0,0~50,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0~50,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0~50,0,0,0,05},0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0~50,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0~>0,0,0,0,0,0,0,0,0,0,0,0,0,0,5}0,0,0,0,0,0,169,1,141,122,9742~\144,160,0,177,203,201,255,208,6,32,57,147,76,60,146,41,127,201,32,176,4,105,64,208,33044~5}[7,201,96,176,3,56,233,32,133,205,230,203,208,2,230,204,169,0,133,206,6,205,38,206,41272~_6,205,38,206,6,205,38,206,24,165,5}206,105,224,133,206,160,7,177,205,153,113,144,136,16,39657~c248,96,162,0,189,151,144,157,148,144,189,204,144,157,201,144,185}9,1,145,157,254,144,189,54,45000~g145,157,51,145,189,107,145,157,104,145,189,160,145,157,157,145,189,213,145,157,210,145,185}9,10,45322~\146,157,7,146,232,224,50,208,203,96,162,7,169,0,141,123,144,30,113,144,144,5,169,1,31576~e141,123,144,138,72,5}10,170,189,132,144,133,190,189,133,144,133,191,173,123,144,160,0,145,190,42304~d200,145,190,200,145,190,104,170,202,16,209,5}238,122,144,96,173,121,144,56,233,3,141,121,144,40533]141,4,212,176,24,105,12,141,121,144,141,4,212,32,138,146,173,122,1445},201,9,208,3,32,32684]60,146,32,194,146,173,8,144,141,124,144,162,1,189,8,144,157,7,144,232,224,8,208,245,41035e173,1245},144,141,15,144,76,98,228,173,130,144,133,203,173,131,144,133,204,96,104,104,141,131,41371&c144,104,141,130,144,169,144,1415},244,2,32,57,147,169,132,133,190,169,144,133,191,169,1,141,396060_122,144,169,15,141,121,144,169,16,141,48,2,169,144,141,495},2,162,4,189,125,144,157,196,34900:Z2,202,16,247,32,60,146,32,194,146,160,247,162,146,169,7,32,92,228,169,95,141,0,2,330245}D]169,144,141,1,2,169,192,141,14,212,173,31,208,201,6,208,249,169,7,162,228,160,98,32,39815N;92,228,96,0,0,0,0,0,0,0,0,0,05},0,0,0,0,0,0,0,0,0,0,0,836BhdBxB"AV#Revisando DATOS del DEMO, espere...] Este mensaje solamente es 5}para demostrar lo facil que es utilizar este DEMO en sus propios Nprogramas. Si el mensaje tiene mas de 1000 caracteres solo 5}deben modificar la Llinea 200. No olviden colocar como ultimo caracter de su mensaje, CHR$(255) J Esperamos que este DEMO lo5} utilicen para mejorar la presentacion de sus :AU,r##*****************************|##** VELOCIDAD entre 1 y 1=}2 ***##*****************************6-@Bv(##*****************************=}##**** EJECUTA DEMO ****##*****************************6-?:Bw 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)/