@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 ALLOWED786 FREE SECTORS COPYING---D8:TURBOK.COMl# 0|D .L/%#3}##JB|DE 1BHID#E 1#0: B 1L!#͑### B 1#c$0SY4}S1}:## # # .#Ƚ# # 𩛙## 1,#PD#ELJ- <.BJD#E 5}1 1HH 0hh|DL%1}:̳# L% #D#EL% 1 0 . .0O% 1L!WILD CARDS NOT A6}LLOWED IN DESTINATION 0 <.|K}N 2 FORMAT. t* 5) 1L!`) 0NΞ 0 L1) 1 L!BAD LOAD FILELOAD FROM WHAT FILE?) 0 ?}0#B 1L!WHAT FILE TO LOCK?) 0 0$B 1L!WHAT FILE TO UNLOCK?DUP DISK-SOURCE,DEST DRIVES?TYPE "Y" IF OK TO US@}E PROGRAM AREACAUTION: A "Y" INVALIDATES MEM.SAV.FE! +L1   `*  70 2 2A} 0.* 1 y0 0)INSERT BOTH DISKS, TYPE RETURN^, 1 y038逍 N, 1L! ,B}C, t*  Lx+, 0 ^, 1 y0 , ,0,0 ,L+ ,I0 ,Vǭ0C}Ξ, 0 }, 1 y0C,ШC, 0K'!" H H 'h h Lx+!EF 5L1L!D,I,HhD}` NOT ENOUGH ROOMINSERT SOURCE DISK,TYPE RETURNINSERT DESTINATION DISK,TYPE RETURNE}`  `8 rL1`-* 1P* 1 y0Y`hhL!NAME OF FILE TO MOVE?- 0 0|DL% <.F},^ 1 70 0 .@L# .BJ 1  DEHIB V L1 ,} 1 70,L.  G}JB|,#P#DE 1 HI BDEHHII 1 B 1 ,^ 1 70,0La- B V,#PH},^ 1 70 0L#L!-* 1P* 1 y0Yj383}mm ݭI}}`8}``|* ? ɛ,`|:-)| / 1L!`DESTINATION CANT BE DOJ}S.SYS0 0H{ 24Δ 28/L!/) 2 Π 2 0 ξK}hAΞB,0 J 1 BDEHI,HÝDE 1HIHIDELSAVE-GIVE L}FILE,START,END(,INIT,RUN)O S0 1`BDEPHI V` S0H 1 L!M}0 0 1L~0`PLEASE TYPE 1 LETTER,0`hhL! 70 1L0L<1 ,;ɛ7,"ɛ:ݦ1ݥN}A"D|ݤD|ȩ:|ȩ|ɛ,,(/+.ީ1 1,ɛ`轤{NAMEO} TOO LONG B VL!` L1I H1EΝDL1|mDiE` V0`8d/8 i:222 1 LP}!ERROR- 128ɛ+,' 20*.. өr2 1``2TOO MANY DIGITSINVALID HEXAQ}DECIMAL PARAMETER800 0 8 00`,0'D800 H,ɛh`2L1NEED D1 THRU D8uR} ECIMAL PARAMETER800 0 8 00`,0'D800 H,ɛh`2L1NEED D1 THRU D8u@J̻˺̻˺̻˺wvͪ̚ݫ޻̻˺̻˺ }+,qBMARCHNOMBFIEINDMEPLYPLYOL @@@ U} AU @ B B` AB@@wA;@,;@$@,;@,;@$ V}@,SAB@e@AwB7tA]AA0'AY9AM- W}BB Y] + 6. 67A,. +67@,.+ 6. 67A,. +67@,. A X}0 A@$ A`. A 8 AB AT7$@&@%@<$@&@%@ Y}%@,4EXEq@@6-?:AUv,L%V6-F:A, AP`jH A6- Z}<@@D:*.*H6-t@~''7@<@,4FREEA??7@<@ [},0BAS*7@<@,0EXEA@ 6.6-%@-@@7<,4 A 67B:,% \}@,.7<, 67B:,%@,..""-----------------------------@@7<,4 A ]}67B:,%@,.7<, 7767$@&@<$@,.7@<@, &&67$@&@<$@ ^},. @A@@6-F:A,($2""----------------------------<oAA 'A _}@9AA0KA@B]AA0oAR@F #AP-A6AuZ " `} d n'A`'Aa@x }-@((  PROGRAMAS #2 a}A@-@-@$$ 7$@&@<$@, A 7-@@ b}7  No hay programas .BAS o .EXE>-@@> $Inserte otro diskette y pulse  A@:-@@ c}:  Seleccione programa usando  >-@@> $ y presione $""---------- d}------------------]6-@$AF:A,9AF:A,KB2H]B2I"3BBy e}%6-$AV%A$36-%AV,()A`6))-@$@%@@@-@J f}%%AUT%%AU^ h r'B2H@'B2IA$|]B2V@'B2W@ g}9B2w@KA]AAY@b$>>112,112,112,48,70,64,156,80,6,112,112,1 h}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""----------------------------A i}"AdAU"(APM-@@ .-@&@5 A6-@M6-@)6-F: j}Ad,)AU*(A`"@A`!!@*@APAdAU/"@6 k}-%@#!/6-@/"@6-&@) @/6-'-@  !-@&'  )-@ l} "-@&) & 6-0-@@+-@@M2@@@@Q e m}-@@ 2@  : APD$N""----------------------------XG A n}6.D:G67B:,%@,.7$@&@<$@,b @@l@ Apv @ o} AdAU##F:A,"Ap)(A`G-@@G  - ERROR F:A, - p} >-@@> $ Verifique y pulse  F:Ad,"AUAP A1B2H q}'B2I1+/AdAU/  Cargando: 7@,$D:MENU A1B2H dxBESUMCHDDML s} d##*****************************n##* MENU DE DISCO *x##* *##* Pot}r: Rodrigo Gomez J. *##* *##* Revista STAK - Junio 1992 *##**************************u}***| +@A1B7tA>;A,PAR@bAy(Revisanv}do Datos...|#Ӡ%6-A6-% APf6-#-@@'">67w}B:,%@,.>:,H6-%$b6-&A$+!A ,f >" ,(ERROR DE DATOS EN LINEA 86-@>6-x}6-%@ A !!"A@*"A1 A@1(>:A%,FALTAN LINEAS DATA*A@fy}'AR*""Šś"""ҠҮ٠Ү,""ŠŠϠ6z}#@# >:A%,@%6-F:A`,%F:Aa,$AV9%@@U%@@%@i%@{}A}%@ @%@@BBv@J#-@&@#( T9-@@|}9(revista stak JUNIO 1992^9-@ @9(- INSERTE DISKETTE FORMATEADO -h:-@ @:( PRES}}IONE PARA GRABAR MENU r F:B2y,@Ap|!!ŠӠ!!̠Š~} 6-C:,Ah@I'Ai@9Ap@KAt@1]AvA(oAw}AyKA6A'A7@v9A8@KA9A(=-@ @=(# } 9-@ @9( Escribiendo MENU a diskette...}-@@(6-P:'AV,}86-&$AVDAxPAr\Ask6-?:A6,y6-%A(}  A0Ӡ̠}ՠ990,3,0,7,127,8,169,0,133,71,133,72,141,82,8,168,2923CC153,128,8,200,208,250,169,255,141,1,211,141,248,3,1}69,83,6417??141,48,2,169,8,141,49,2,169,105,133,24,165,24,141,80,2362;;8,169,1,141,81,8,230,24,32,23,8,185,128,9,240,}73,4552==48,61,166,71,185,131,9,157,0,10,185,132,9,157,30,10,626&AA138,24,105,161,166,72,157,128,8,169,8,133,73,185,13}3,9,26540BB56,233,32,157,129,8,200,232,198,73,208,241,152,56,233,8,8270:BB168,138,24,105,2,133,72,230,71,165,71,201,24,}240,10,152,4824DCC24,105,16,168,10,144,180,176,163,32,253,242,201,27,208,3,7169N>>76,6,7,56,233,65,197,71,176,239,170,1}89,0,10,141,80,4482X998,189,30,10,141,81,8,32,23,8,202,32,8,8,133,67,1195b>>32,8,8,133,68,37,67,201,255,240,240,173,82,}8,208,13,7160l;;165,67,141,224,2,165,68,141,225,2,238,82,8,32,8,8,669v::133,69,32,8,8,133,70,32,8,8,145,67,230,67,208,2},3614BB230,68,165,69,197,67,165,70,229,68,176,235,173,226,2,13,5387==227,2,240,183,134,25,32,5,8,166,25,160,0,140,226},2,3076AA140,227,2,240,166,108,226,2,224,125,208,53,173,80,8,13,2523;;81,8,208,3,108,224,2,162,11,189,70,8,157,0,3,20}2,3100>>16,247,32,83,228,48,251,173,253,9,41,3,141,81,8,173,2216<<254,9,141,80,8,173,255,9,41,127,141,9,8,160,0,162,2}184880,189,128,9,232,96,49,1,82,64,128,9,16,0,128,0,907::0,0,0,112,112,112,112,70,108,8,112,112,112,6,6,6,378226,}6,6,6,6,6,6,6,6,65,83,8,0,242,229,246,8688<<233,243,244,225,0,115,116,97,107,0,17,25,25,18,0,0,656D:STAKMENU.BAS}*+!(!TECLDATABFHXBLINELINDATOTASUM} ##*****************************##* *##* S O L I }T A R I O *##* *##* por: *###* *(##}*Rod Rubber & Bill Yesterday*-##* *2##* Revista STACK 1992 (c) *7##* } *<##*****************************d] A+)AR@,(K((C)assette o (D)iskette ? ]A}dAUn06-F:Ad,0@*@XAx7AdAU B+"@X76-@l1;}@,;@H,;@,;A%,I67@H,.>:,`6.0123456789ABCDEFl6-@--A"})Ad%- =6-A#A# A &(:(REVISANDO DATOS=(,6-%@",B:,@A }=(>:@(,LINEA:=6-F:A,%F:A,$AV/  (%( Falta LINEA  !!/ A0##6-?:Ad<}C:,:,7 1@@+1A@ }B@,(,(!NOMBRE DE ARCHIVO: (D:NOMBRE.PIC)))(!( para ver el directorio ) Ap B}0A0&@@D:*.*0 A@@( A+##-------------------}----------,F A@*@@4 BF+@%@6%%6-F:A`,%AV$F:Aa,@))6-}F:%@,%AV$F:%@,J%@A%A(T!!6-?:C:,<@<<Av,^''6-?:C:,<@<A}<@,h//6-?:C:,<@<A $AV<Ah,r@##-----------------------------'AfAX}'AdAU'A'A@BBA33F:Ad,"AU*F:B2y,"@}A0'BB@d'AdAU&"@@+"ɠ``133,203,134,204,132,20}5,160,0,185,128,121,133,206,185,64,122,133,207,185,0,120,190,192,120``141,10,212,141,26,208,142,22,208,165,206,141,23,208},165,207,141,24,208,200,192,192,208,216<<169,0,141,10,212,141,26,208,165,203,166,204,164,205,64Ġff21}6,173,1,211,9,2,141,1,211,104,104,104,10,10,10,10,170,169,7,157,66,3,104,157,69,3,104,157,68,3]]104,157,73,3,104,157,72,3},32,86,228,132,212,160,0,132,213,173,1,211,41,253,141,1,211,96 D:LOADER.BAS04,157,68,3]]104,157,73,3,104,157,72,3Sr SLISU }d##*****************************n##* CARGADOR SPINDIZZY *x##* *##* Revi}sta STAK *##* *##* Junio 1992 *##*****************************}M;@,(>:A%,)6-A;AMAR@5-@@5(REVISTA S T A K P}RESENTA:--@@-(Cargador SPINDIZZY3-@@3(Version Diskette/Cassette%6-AV6-}AQ% A %6-A66-Aq% A +6- B+AR>-@@4(Tie}mpo Ilimitado? (S/N) > A0S*0NAP 4S6-%@(+"@-@@ }6( (D)iskette o (C)assette? @ A,0D*0CA6 4DAP@@'-@@ 'AR}@J(Prepare T 4C(CASS A`^ (DISKh(ETTE con SPINDIZZYr+-@@!+(y} presione | F:B2y,@A6-?:A6,T#@@K:0)@=*}@F6.>:,Q@T$ A+-@$6-+6-@-%@#"! 6-%$}6-%@! ""A@ +A@d=(Error de DATA en linea @9 +}A@d6(Faltan Lineas DATA96-%@ $XUU169,6,162,1,160,20,76,92,228,169,82,141,2}26,2,169,1,141,227,2,96,8,32,9,1,24256bXX32,46,1,173,95,1,240,10,169,95,141,34,2,169,228,141,35,2,40,76,95,228,173,39,3039}5ldd116,201,32,208,28,173,40,116,201,101,208,21,173,41,116,201,115,208,14,169,234,141,39,116,38012vRR141,40,116,141,41,}116,238,95,1,96,173,95,1,208,6,32,46,1,32,0,1,96,0,0,15540ZZ169,43,133,12,169,6,133,13,169,1,133,9,169,255,141,248,3,141,}1,211,162,0,169,0,31687]]157,0,7,232,208,250,238,26,6,173,26,6,201,192,208,238,76,116,228,169,0,133,82,133,38987ZZ8,1}69,1,141,240,2,162,93,160,6,32,66,198,169,0,133,20,165,19,197,19,240,252,32,33569\\0,1,162,255,154,173,94,1,208,8,169,12,}141,252,2,76,128,198,76,152,197,125,29,160,36162kk160,167,195,193,210,199,193,196,207,210,160,160,160,211,208,201,206,196},201,218,218,217,167,160,58269[[160,160,211,212,193,203,160,202,213,206,173,185,178,160,160,155,0,0,0,0,0,0,0,0,24414}D:CARSPIND.BAS7,160,58269[[160,160,211,212,193,203,160,202,213,206,173,185,178,160,160,155,0,0,0,0,0,0,0,0,24414hlh˩{̅ i/0H1H601tԩxԩ ЩЍ Ѝ Ѝ ЩolЩЩЩЩ>/ }ԩЩޢh \ܥ \@Ԧ˩{ЍЍЍЍЍЍЍЍ/ԍ ЍЍЍЍh1h0"/`) Щ,Щ̍Щ }PТkk޽kߩil(̅xkk޽kߩtil(xkk޽kߩtil }᭄ iLjLb8did݊ݢ8 i ݊i`ˠ i˹xЍ i˹xЍ i˹yЍ i }˹@zЍ# i`ͼlI`   `lʆ˩{{ ill˩{{ il iͥ) i }l iͥ) ilͽkl˥Α lΝН iliΠ i jl8Π i jli)ݥ)݅Π i jl8) }ݥ)݅Π i jlͽkl˽iБ l ilͽkl˽8Б l ilͽkl˽i) }ݽ)ݝБ l ilͽkl˽8)ݽ)ݝБ l illI̅l (*./>'A]n&N }jjjjjjjjjjkkkkk  'A]njjjj@xxyz!#tztφЄѠyԹ@zչxx ԍЎХԍХՍة ԍЎЌЍ ԍ ԍ ԍ } ԍ ԍ ԍ ԍ ԩ4"S" THEN POKE 382,1:F=F+140 F=0:TRAP 40000:POKE 752,0250 POSITION 7,12:? "TODOS LOS NIVELES? (S/N) ";:GOSUB 40(6@928,@= A '@@'@@9 AM +'0@}A0@MAR (( MONTHLY GRAPH4.(+( TYPE AMOUNTS FOR EACH MONTH: }.(H+(( DO NOT USE NEGATIVE AMOUNTS +(5 A"(JAN=+68@,-5 B5 A"(FEB=}+68@,-5 B5 A" (MAR=+68@,-5 B5 A"0(APR=+68@,-5} B5 A"@(MAY=+68@,-5 B5 A"P(JUN=+68@,-5 B5 A"`}(JUL=+68@,-5 B5 A"p(AUG=+68@,-5 B5 A"(SEP=+}68@ ,-5 B5 A"(OCT=+68@,-5 B5 A#(NOV=+68@,-5 B} 5 A#(DEC=+68@,-5 B` $D:GRPHAN2RAFICO ANUAL3OV=+68@,-5 B`PNNNABYMTCSPVNVNCCOPIDDDR@@@A3A 3Ar'3A( }Aj/A06 6A 6 6 @@@@@@ }]ReDTVFXPMPMDIB("GGAAA$B"V@@ % }Ϡ[Por Nelson Ramirez V.](d'+@%@'A@n%%6-F:A% }`,%AV$F:Aa,x+%@+%@AD;@q,#A--@@q")6%}7<,.>:,- !!Я͠%6-A$%6-$AV%A#-%A#  #%}A s-@+-@/"C-@g%@R%$A(%$@%k o s %}KA@p'A@9AAKAAEBBy!AY@B3B2w@E%}A#@KB2V@'B2W@9B2X@KB2Y@KB2H'B2I%}9B2PKB2Q+!!Я͠,-@@3B2HAP&$@%}OB2IA0&$@kB2PA&$@B2QA& 6-@A %}Я͠T-@+-@@LA%F:A%,%@P T T-@+-%}@@LA%F:A%,&@P T -@A 墠%%2%}@@6-?:C:,,""᠛ff248,160,0,140,14,212,173,10,210,153,0,144,153%},0,148,153,0,152,153,0,156,173,10,210,153,0,145,153cc0,149,153,0,153,153,0,157,173,10,210,153,0,146,153,0,150,153,0,154,1%}53,0,158,173,10,210,153,0;;147,153,0,151,153,0,155,153,0,159,200,208,193,240,191!!ˠ62%},99,96,96,62,3,3,99,62""255,153,24,24,24,24,24,24,24((60,126,195,195,195,255,195,195,195))198,204,216,240,240,248%},220,206,199 D:DEMO1.BAS153,24,24,24,24,24,24,24((60,126,195,195,195,255,195,195,195))198,204,216,240,240,248$ ̻˺ͪ̚ݫ޻̻˺̻˺̻DC88I[I{Z{Z }kk||w}ݫ޻̻˺̻˺̻w6v٬m٬mʛlʛjjfhfwfݫ޻ }̻˺̻˺̻˺̚Ыл̻ }˺̻˺̻˺  pp@BF BFOP }` }A@BLMNO'FN E E #F PH E E #FL+CMGGLCxЭ !}G8 5FG HL3C Gi 5FG HL3CGi 5FG dHL3C L3CL3CG8 5FG sHL3C uEG JL3C E QEx "}G uEG GL3C'G8G0먹 JGiG JLE )GiG0 JжG8G JХLE5Gi #}GGiG JЀG8G JLCLEG8GLCG8G JGiG JLEGnG½GíGGG $}ˆiii(¥i`GGG J DGG J DGGG J D HLFLQI IGG GL3CM %}G DG D```x` H`MύHBFIB0NF J9JGG0GGNFGMF DG &}GLF GHIFFMF`@0B1 H./ԩL``G JhhL3CGG` '}**  * (* 3/,)4!2)/por2od2"ill9 (}0)%:!32%6)34!ABCDE*5.)/&%,)#)4!#)/.%3,/#/.3%'5)34%!,&).0%2$)34%).4%.4!,/.5%6!-%.4%0%2&% )}#4/2%!,-%.4%%2%35.%80%24/ ކFJNRVZ^ ކPPPPPPPSSSSSSSWWWWWWW[[[[[[[```````cccccccg *}gggggg` @@@AAA {E`@FIxDIEI HЩxԍHxH{(ЩЩ +} Ѝ G`(I@z6Iz`DIEI H`DIEI H` GIFIFIi zzzz HGI` GIFIFIzzz ,}z HGI``DIЭEI H`FF`FF`HHHIII ԍЭo @HIHIHIhh@ -}( 0@P`"J GHBGIBL|IHBFIBL|IHBGIB #F EL+C0IIII·I JXI J J`I .}JJ`I JJ`IJI`ΆI΅ILrIB J J`Ih@I@Lw䩂 B7D@E HI V J`}RUN"D:MENU@(VaLYLL  ҩҌ-1}N`0caN iDži ` b`10  0     c-2} 9 ~c`H i LN fg H}Z HH hG H i H  -3}  H)$h)J( 4 8 < @ D, HHL `H `H _ o-4} V o Z o HH h L~LY66666i|iHH-5}L`m_  ``MH ii N < ) HHй`H 6D-6}}V)c) NLy@)LyhLy<)`hLy) Ly LyLy<b-7}Ly Ly}}4 f}8@)LHHLg-8}M`H< MIM@) MRM@) M `M`HH ii dɀL-9}Khi`H N((L<I,9$,  ) !IL  )JJJJ L} ``*8 $-:}    )8j L% }$    )  } }`aa `a_ o-;} JfJfJfi=i`a)%8 :e9dfg`LH hJJJJ edܩ-<}f fL`)  ԍҍ`` r(<< s r PP((-=}}yrlf`[UQLHD@<952/-*(%#!/-*(%#!zO?VZrpk ʫP8v4'[->};rjMLt4V&Φ\:ī|fT?- ɾwqjd_YTPKGC?;952/,*(%#! -?}~xulfa[XQLIC?=9740-+(%$!+($@VZqpl ˬ9w6)]=sjNMu5W'-@}^;ƫ}hS?-ʾxrjjd_YTOKGC?;852/,*(%#! -A}ztne_\VPMGDA>t85/NLJGECA?=;9764310.,+*)'&%$#"! OMKHFDB@><:875421/-,+*('&%"!    -B}B8r3 Z3   # w: ! #! ""w:# $$@ %% &@& ''@ (( )@ ** +wG+ ,,wG -- .wG.-C} //wG^u*7DQ^kx!.;HUwoouO32"345Vw̼geV5STCTEVeww-D}j`fYK9IB'Ww0iu2Gdh2SͥhDBeseSV{kVg-E}UB $DQvi닺S3BDD6&GܸߪD5Gg#"3VlڹWxvT%3zJxd28Yrftgv%S6iͩvEezhg3C:{e9x)-F}sheCgwhzwwwWb%fwgtFufVvjwvvgvxfXYʺvvuEwwwuzwvUeVxx˫uSTWfdUə-G}htEUwywgwwwVehiyvyxtVefyggixwgfVVyxwyUugxwxygvwwweUwVxxfgwvuvuf-H}eEfxxWexxwfxxwvhwwwwwwwwgxxxwhvvUwwxxvefffxxxgxuevwwwxxxxwwfxwwv-I}xxwfwwwggfxvffxxyyvWxxfhwxwxxwgwwgwwwyxwfDps@9{O/vhD-J}TFμF32 sΨd ChAw& u/vhDTFμ-K}F32 sΨd ChAywwwwwwwwwwwwwwwwwwwwfffgvwwxwwwwffvVffefwvx-L}wUtg}6@06g!@ @G3{5SޮfUcg4Pc˙W-M}ThxIDP@AVǚ۽mI7$3gXwػنkIU%4E6eBv6ɦxxUTFUP'CD4w^hXw3UA`2s3Dj=-N}vk֤aTa4vCirg:Iw[GICX(Y(d[H9tyw^;u]jJwsDDWF9dzhvǓz(5dTfelzVyfE4U4BsHgwuZjwGEV -O}tUUb^tVjt:&WEFXSz|g[G3Eh4trfvx@`ASvhyyijYV4eIkZ{xwucqXd`Wsfr>ghxR#tD-P}9Utx]d*+%ugdyZx:,} A4!!@e*@fA>6-@0$+"@e){},-@)-@@#?(ǮS-@@%W i-@@#(ALPHABETIZI)|}NG...-@@%  ' 6-6-'AY^6-7-@X+$@W,%@)}}@WE6-%@Z68,-@:7%<%,,^ **6-@#P:K:,'K:@,,&@D-@&$67@,. 5)~}67@W,. D67@,.8,8%,A 6-8%,68%,-8,:6.7++%,$@W,%@<++%,$)}@W,%@W,67++%,$@W,%@<++%,$@W,%@W,.7+$@W,%@<+$@W,%@W, 6)}8,-B 867+$@W,%@<+$@W,%@W,.B A -&@68,A68%,)}-8,cc67++%,$@W,%@<++%,$@W,%@W,.7+$@W,%@<+$@W,%@W, 68%,-)}::67++%,$@W,%@<++%,$@W,%@W,. (6-P:'@,(!A &-@ @)}&(7<%@),.-@ @.(7%@0<%@I,.Y-@@.(7%@P<%@U,@-@5@)}Y(7%@V<%@V,8AY@4 AgAY!6-5-@ @8C1@)}U67%<%,.>:,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)/