@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 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 A1B2Hd/AdAU/  Cargando: 7@,$D:MENU A1B2H'B2I1+D{, A SLISU }} d##*****************************n##* CARGADOR SCOOTER *x##* *##* ~}Revista STAK # 7 1993 *##*****************************M;@,(>:A%,)6-A;A}MAR@5-@@5(REVISTA S T A K PRESENTA:+-@@+(Cargador SCOOTER3-@}@3(Version Diskette/Cassette%6-A66-Av% A %6-A6-Ai% A +6-} B+AR>-@@4(Vidas Ilimitadas? (S/N) > A0S*0NA0 }4S6-%@(+@-@@ 6( (D)iskette o (C)assette? @ A0D*0CA}p" 4DAh@,'-@@ 'AR@6(Prepare @ 4C(CASS A@J } (DISKT(ETTE con SCOOTER^+-@@!+(y presione h F:B2y,@A`r **** EJECUT}A 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 @6-%}@ $""**** 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,112,1,2}08,8,169,12,141,252,2,76,128,198,76,34809jj152,197,125,29,160,160,195,193,210,199,193,196,207,210,160,160,211,195,207,207},212,197,210,160,57278ee160,160,160,210,197,214,201,211,212,193,160,211,212,193,203,160,185,179,160,160,155,0,0,0,42219}WW169,6,162,1,160,52,76,92,228,169,100,141,226,2,169,1,141,227,2,96,8,32,41,1,25382ZZ32,78,1,173,113,1,240,10,169,95,14}1,34,2,169,228,141,35,2,40,76,95,228,173,175,33813ee159,201,198,208,14,169,165,141,136,159,141,156,159,141,175,159,238,11}3,1,96,173,113,1,208,39954??6,32,78,1,32,32,1,96,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1435**** FIN DE DATOS **** }D:SCOOTER.BAS,1,208,39954??6,32,78,1,32,32,1,96,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1435**** FIN DE DATOS **** { 5 SLISU } d##*****************************n##* CARGADOR MOUSE TRAP *x##* *##* }Revista STAK # 7 1993 *##*****************************M;@,(>:A%,)6-A;A}MAR@5-@@5(REVISTA S T A K PRESENTA:.-@ @.(Cargador MOUSE TRAP3-}@@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 MOUSE TRAP^+-@@!+(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@d}k(Error en Numero de linea n"A@ +A@d=(Error de DATA en linea @}6-%@ $""**** 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,1}06,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,205,207,213,2}11,197,160,212,210,193,57837ee208,160,160,160,210,197,214,201,211,212,193,160,211,212,193,203,160,185,179,160,155,0,0,0,4}2808VV169,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,32,30351YY25,201,198,208,8,169,165,141,32,25,238,107,1,96,173,107,1,208,6,3}2,78,1,32,32,22973::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 ****D:CARMOUSE.BA}S78,1,32,32,22973::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 ****D:CARMOUSE.BA*+},,TECLDATABFHXBLINELINDATOTASUM} ##*****************************##* T O Q U E Y F A M A *##* } *(##* Por: Rod Rubber *2##* Bill Yesterday *<##* *F##}* Revista STAK #7 1993 *P##*****************************d} A0+)AR@;-@ @}W(T O Q U E Y F A M Ai-@@}(por: Rod Rubbern(-@@((Bill Yesterdayx--A}")Ad%- F-@@4((C)assette o (D)iskette ? FAdAU06-F:Ad,0@}*@XA@7AdAU B+"@X76-@l1;@,;@H,;@,;A7,I6}7@H,.>:,`6.0123456789ABCDEFl6-@@6-A#A# A@&()(=(REVISANDO DATOS@(,}6-%@",B:,@A@=(>:@(,LINEA:=6-F:A,%F:A,$AV/  (%( Falta LI}NEA  !!/ AP##6-?:Adkk676572656E6369617300636F6E737}472756374697661730E0E0E0000000000356E0073616C75646F0065737065636961,1786Ckk6C0070617261002A2F32272500222133233542212E00280}E0C00706F7200737500636F6C656363694E6E006465006C69,2079Hkk62726F7300636F6E006A7565676F7300646500696E67656E696F0E0E0E0000000}00025737465006A7565676F006E6F00,8176Mkk7469656E65006D4D736963610C006E690065666563746F7300736F6E6F726F730C00706F72717565002}E253700212725,3885Rkk006E6F006861007175657269646F0070617361726E6F730073757300727574696E617300646500736F6E69646F0E0E0E,3542}Wkk000000000039006164656D407300706F72717565006E6F730066755400696D706F7369626C65000860616C006D656E6F,5041\kk7300706F7200}656C006D6F6D656E746F01090007746F6D617200707265737461646107006C61006D4D73696361006465,1594akk6C002D33003021232D212E0E0E0E00}00000000390073690068617900616C676F00656E00717565006E6F00736F6D6F73,4807fkk006578706572746F73000860736900656E00616C676F006C}6F00736F6D6F730E0E0E010900657300656E00656C006D61,3668kjj6E656A6F00646500736F6E69646F7300656E00656C007669656A6F007900636C40}7369636F0021342132290E0E0E0000,887pkk00000029736E0774006974006100706974791F0E0E0E0000000000000000000030726573696F6E6500B3B}4A1B2B40070,7487ukk617261006A75676172000000000000000000000000000000000000000000000000000000000000000000000000000000,3666z}kk000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000,3666##** F I N} D E D A T O S ** D:TOQUEF.BAS0000000000000000000000000000000000000000000000000000000000,3666##** F I N*@N  A`cgkpsw @@`@G@@0@iH@@LZ@`!} L@ꭄ`@@@ `@` ) @@@@@@`@@@@@L@@@L@!}`ppBA0N`NcNgN@kNp!}NsNwA@4/15%9&!-!por2od2y"ill9&elic!}itaciones`,ohasconseguido(asfallado`)ntTntalonuevamente@̭@ͭ@έ@ϢΑiΐi(!}` E D0@1@`@/Eԩ̍ D E D D G q@ A@ @ E jG B @ YE@LC@LC!}@LB D ZG@@LDLCx!@@ uG@i@@ CLC @@ G@8@@ CLC! }5@@@ $@ P@@@i@@ C 8B@LC 3@@@@ P@@@8@@ C 8B@LCLC @@`! }`` aG D q@ $ELB` aG C gD D q@ $ELB`hh aG $ELB@9@@2@@@@@@@ P@ 8B@i@@@@@@߮@2@! }@9@@`@@2@i@9@i@@@@@@@ P@ 8B C@i@@@@@@@@г``DpD`pDD`! }@A@`@A@`@B@`@` )'@`(@-@`-@`HH@ ԍ-@ '@ ԝMhh@! }@2@i@9@i@ @@@@@@0@@ P@ 8B@i@@LE@ @@@LE` E E CF F q@b \`!}`@̙PP͙QQΙRRϙSS̙TT͙UUΙVVϙWW@@ЫiП`0G1g!}FԩP `HHF ԍЩP F ԍЩT hh@ FF \` FLbF G GG GFF FFF!}`KG GKG G.FF`pppRKKRKKAGЭТGG懲ԩЍ Щ./!}m'@` G G`Ѝ`*G4G`GiGGiG G`G8GG8G G` aGw `GЭG!}`jjjjjj` ` ` jh+` `} `} ` ` eU[jjjjjUUUjjjjjj!}j h`bjjjjh(hhjnnUUUejjUiUkeUkeU[eU[eU[eU[eU[iU[kkjkjիjիj֫j֫j֫j֫jګjګjjUUU!}jjfeU[eU[iUkkl<;l<;l<;kiUke[gw[ggw[gew[ikUUWV}ZUUUjjj` ccc` ` `< `< ` ` `< `< `< `< !}` jjjjUUUjj׫j׫j׫jjjjjj}j}iUkiUki}kj}iUkiUki}kiUkjUjjUUUjjj"j"jjjhjjj!}jjjjjb+b+hjjjUUUjjooonnjjjjjkkkjiiuiUieijUUUjjjjj!}` jjhccc+hj"` ` jjjjjjUUUjjjjjjjkookkoook ` h+h+jUUWUUW!}UUUjgffffei[jkjkjkjkjkjkjkjkjkjkjkjkjkjUjUUUjgffff[ffffffffff!}ffffeZjUUU%staversiNnde4/15%9&!-!fuerealizadapor2/$2!}5""%2y"),,9%34%2$!9 paraelsTptimonMmerodela2%6)34!34!+5ngransaludoparanuestroscolaboradoresycolumni!}stas yatodoslosquenosapoyanconideasysugerenciasconstructivas5nsaludoespecialpara*/2'%"!3#5B!.( po!}rsucolecciNndelibrosconjuegosdeingenio%stejuegonotienemMsica niefectossonoros porque.%7!'%nohaqu!}eridopasarnossusrutinasdesonido9adem@sporquenosfuTimposible`almenosporelmomento tomarprestadala!}mMsicadel-30!#-!.9sihayalgoenquenosomosexpertos`sienalgolosomos esenelmanejodesonidosen!}elviejoycl@sico!4!2))sntitapity0resioneparajugar! }sB0resioneparajugar 6g AFILEBNAME2D %"} ͠ɠΠɠ͠ŠΠՠ ҺŠԠ( 2%#}<<<;@,;@@,;@,;@ ,;@,F1 +AR@1AP0-@@%$}0( M E N UZ0-@@0(----------------------d'-@@'( <>DIRECTORIOn,-%%}@@,(<>CARGAR PROGRAMAx#-@@#( <>BORRAR%-@@ %( <>PROTEGER(-@%&}@((<>DESPROTEGER#-@@#( <>D.O.S.&-@@&( <>FORMATEAR'-@@'( <%'}>IR A BASIC--@@-(<>GRABAR MINI MENU$-@@$( <>REBOOT'-@@'( ̠%(}ο A!! @)!@A`WWA`AAAA`APA %)}AA A%Ϡ A&&@@D:*.*-@@d%*}"@, ( 6@@##(PRESIONE () PARA CONTINUARJT 4C%^ 0C( A %+}hf-@@)( Š=-@AA S-@@c( f%rҠ%,}|5#(QUE PROGRAMA QUIERES(D:*.*)'1 A5%Ҡ&&(DIGITA ARCHIVO A BORRAR(D:*.*)%-}(ESTAS SEGURO(S/N):0SAp A((@3@$VVB_^`^^`____H0_^`^^__`_):}_V]-V]ʭVmV@0ɸV`0Vʽ] V]]-V] Ji}VjJ8VV )mVDV@0mVV%VJ0VN08VV̉VȌVVVUU}U}UjJ8VV )mV4V)?}0:mVV/V)͓V0V mVH08VV̈VȌVꝀUVTU}U}UjJ8VV )mV(V :mVV/)@}V)͒V0V mV<08VV̇VȌVUVTT}T}TjJ8VV )mVV:mVV/V)͑V0V )A}mV408VV̆VȌVꝀTVST}T}TjJ8VV )mVV@mVV5V/͐V0VVV mV00)B}8VV̅VȌVTVj L M""H#Lb䊢JJ訽LMLMLMM MQ`?@ 0 8 -)C}M MV8 -M MV8  MV8 -M MV8 -M MV8 )D}-M`PVpppM` AP)E})F}HQ 0ЩЩbQh@b)G})H}pp`Mp AR)I})J}H%Sb Щb ЩЩD%Sh@D)K})L}0000000000000000000000000000000000000000000000000000000000000000000000000000000000)M}00000000000000000000000000000000000000000000002222222222222222222222222222222222222222222222222222222222222222222222222222222)N}2222222222222222222222222222222222222222222222222::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::)O}::::::::::::::::::::::::::::::::::::::::::::::::::::FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF)P}FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJ)Q}JJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJ ?\j)R})S})T})U})V})W} )X} )Y}!)Z})[})\})]})^})_})`})a})b})c})d})e})f})g}UUUUUUUUUUUUUUUUU)q}]B%DOS SYSB*)DUP SYSB SRAMDISK COMB\AUTORUN SYSB]MENU B|CARSCOOTBASBCARMOUSEBASBZTOQUEFAMBASBTOQUEFAMEXEB!MINIMENUBASBL8DEMOYAPAEXEBCARSCOOTM65BCARMOUSEM65BTOQUEFAMM65B4ASSEM71 SRCB;ASSEM72 SRCB+ISTAKOUT5SRCUUUUUUUUUUUUUTUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUT***)r}*???)s}?UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUTUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUTUUUUUUUU)t}UUUUUUUUUUUUUUUUUUUUUUTUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUTUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUTUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUTUUUUU)u}UUUUUUUUUUUUUUUUUUUUUUUUUTUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUT***)v}***)w}***pz)x})y})z}){})|})}})~})})})})})})})}UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU)}UUUUUUUUUUUUUUUUU)})}UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU)}UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU)}UUUUUUUUUUUUUUUUUUUUUUUUUUUUU)})}0(I{$X;*******************************$X;* Cargador de Vidas Infinitas *$X;* para SCOOTER *$X;* -} *$X;* por: Bill Yesterday *$X;* *$$X;* Revista STAK #7 -} *.$X;*******************************8X;BX;LX;V X;---------------------------`X; Si tiene cualquier duda ojX;-} consulta, escribanos a:tX;~X; ˠX; ᠵX;  X;--------------------}--------X;X;EIX;--------------------SETVBV\SYSVBV_WARMSVtX;X;  BEGIN Q>4?-}CONTP ( Q>5?CONT2P <Q>FP PQ>;; No BASIC!!ZPdPnQ>;; No Reboot!xPD$>CLR0;Limpia-} desdeQ>;; $0700 hastaCLR;$BFFFP92HCLR #CLR QCLRR> HCLR0!WARMSV;; Salta a ?CON-}T ?CONTQ>PR;;margen izq.P;;warmstart!!"Q>,P6 PUTMES@$>4MENSAJEJ%>5MENSAJET B^X;hQ>-}rP|Q ESPERAR FESPERA SETVBI$>BQDEVICE;; 0=CASSETTEHDISK;; 1= DISKQ> P!-};; Cassette Boot!DISK!;; Disk Boot! MENSAJE4 A}ҠҠˠA=X;&X;0 -}:X;D SETVBINQ>X $>5NEWVBIb %>4NEWVBIl !SETVBVv SETRUNI Q>4RUNINIP Q>5RUNINIP: NEWVBI-}6 SETRUNI CHECK0 QFLAG FBACK Q>4SYSVBVP" Q>5SYSVBV P#BACK 8* !SYSVBV4X;>X;H X; A-}qui revisa el archivo queRX; esta siendo cargado y si\$X; encuentra la rutina de perdidafX; de vidas, la desactiva...p-}X;z CHECK0Q;;Direccion REAL!R>;;$C6 es DEC HCHECK1Q>;;Reemplaza x LDAPPP#FLAG;;Cam-}bio listo!! CHECK1:X; RUNINI QFLAG HBKR CHECK0 SETVBI$ BKR. :8 X;B X;L DEVICE;0=CASS 1=DI-}SKV  ` FLAGj  t X;~  BEGINFLAG HBKR CHECK0 SETVBI$ BKR. :8 X;B X;L DEVICE;0=CASS 1=DI,,m$X;*******************************$X;* Cargador de Vidas Infinitas *$X;* para MOUSE TRAP *$X;* 1} *$X;* por: Bill Yesterday *$X;* *$$X;* Revista STAK #7 1} *.$X;*******************************8X;BX;LX;V X;---------------------------`X; Si tiene cualquier duda ojX;1} consulta, escribanos a:tX;~X; ˠX; ᠵX;  X;-------------------1}--------X;X;EIX;--------------------SETVBV\SYSVBV_WARMSVtX;X;  BEGIN Q>4?1}CONTP ( Q>5?CONT2P <Q>FP PQ>;; No BASIC!!ZPdPnQ>;; No Reboot!xPD$>CLR0;Limpia1} desdeQ>;; $0700 hastaCLR;$BFFFP92HCLR #CLR QCLRR> HCLR0!WARMSV;; Salta a ?CON1}T ?CONTQ>PR;;margen izq.P;;warmstart!!"Q>,P6 PUTMES@$>4MENSAJEJ%>5MENSAJET B^X;hQ>1}rP|Q ESPERAR FESPERA SETVBI$>BQDEVICE;; 0=CASSETTEHDISK;; 1= DISKQ> P!1};; Cassette Boot!DISK!;; Disk Boot! MENSAJE4 A}ҠŠРˠA=X;&X;0 1}:X;D SETVBINQ>X $>5NEWVBIb %>4NEWVBIl !SETVBVv SETRUNI Q>4RUNINIP Q>5RUNINIP: NEWVBI1}6 SETRUNI CHECK0 QFLAG FBACK Q>4SYSVBVP" Q>5SYSVBV P#BACK 8* !SYSVBV4X;>X;H X; A1}qui revisa el archivo queRX; esta siendo cargado y si\$X; encuentra la rutina de perdidafX; de vidas, la desactiva...p1}X;z CHECK0Q ;;Direccion REAL!R>;;$C6 es DEC HCHECK1Q>;;Reemplaza x LDAP #FLAG;;Cambio listo!! 1}CHECK1:X; RUNINI QFLAGHBKR CHECK0 SETVBI BKR :$ X;. X;8 DEVICE;0=CASS 1=DISKB  L FL1}AGV  ` X;j t BEGINFLAGHBKR CHECK0 SETVBI BKR :$ X;. X;8 DEVICE;0=CASS 1=DISKB  L FL0xA$X;*******************************X;!X; T O Q U E Y F A M AX;X; Por: Rod RubberX; Bi5}ll Yesterday$X;. X; Revista STAK #7 19938X;B$X;*******************************LX;VEI`PMBASEjBASEPM5}tPLAYER0BASEPM~PLAYER1PLAYER0HPOSP0ВHPOSP1МPCOLR0PCOLR1SIZEP0кS5}IZEP1 GRACTLRANDOM  WSYNC  ATRACTM OFFSETSDMCTL/ TECLA PANTA.PTR.AUX5}PIEZA.PTR.AUXCUENTAFINMENSAJE( FONT1P2FONT2FONT1<X;F@PX;ZAUXILIAR.3 dAUXILIAR n5}AUXILIAR.1 xAUXILIAR.2 FLAG.RR  JUGADA  TOQUES  FAMAS "MJUEGO =======MS5}ELEC === IND1 FLAG.SIRVE PANTA.PTR =PIEZA.PTR =TABLA.COLORES.LINEA = ===5}TABLA.COLOR.LINEA ========COLOR.FIGURAS "TABLA.LUMINOSIDAD.FIGURAS, == ==6T5}ABLA.LUMINOSIDAD.AUX@ ====JTABLA.PTR.LANA.LOT ===A===^TABLA.PTR.LANA.HIh `=c=g=k=p=s5}=wrNO.SEAI.LOCO |X;INICIALIZACION.MATRIZ$> L01A PMJUEGO90IL01Q> PJUGADA:X;5}BUSCAR.PIEZAQ>4DATOS.FIGURASPPIEZA.PTRQ>5DATOS.FIGURASPPIEZA.PTR& VUELTA.BP0"AUXILIAR.1:GENCONTRO.5}PIEZADQPIEZA.PTRN,XO>HbPPIEZA.PTRlDNO.PAGINA.BPv#PIEZA.PTRNO.PAGINA.BP!VUELTA.BPENCONTRO.PIEZ5}A: PARTIRQмR>HES.BOTON?SUELTA.STARTQR>FSUELTA.START !LETS.GO ES.BOTON? Q 5}HPARTIR SUELTA.BOTON*Q4FSUELTA.BOTON> LETS.GOH:RX;\REVISAR.JUGADAfQ>pPFLAG.SIRVEz$>L025}A?1L03 QMSELEC9 RMSELEC8 FNO.SIRVE1PPIEZA.PTR.AUXIL030HL02 : NO.SIRVE #FLAG.S5}IRVE$ :. X;8 CICLO.DESORDENARB %> L L04V QRANDOM` M>j R> t EL04~ > QMJUEGO8 PAUXILIAR QMJUEGO9 P5}MJUEGO8 QAUXILIAR PMJUEGO9 1 IL04 : X; CALCULAR.T.Y.F Q> PTOQUES PFAMAS $> L11( QMJUEGO5}92 RMSELEC9< HNO.FAMAF #FAMASP !SIGUE.BUSCANDOZ NO.FAMAd %>n L10x RMSELEC8 HNO.TOQUE #TOQUES !SIGUE5}.BUSCANDO NO.TOQUE 1 IL10 SIGUE.BUSCANDO 0 IL11 : X; DLIST  p=p=p  B LINEA.DE.MENSAJE 5} LINEA.CREDITOS" 0=N, LINEA.16  ======@  ======J  ======T  ===N^5}  LINEA.1h  ======r  ======|  ======  ===N  LINEA.1  5}======  ======  ======  ===N  LINEA.1  ======5}  ======  ======  ===N LINEA.5  ======  ======5}  ======  ===N&  LINEA.50  ======:  ======D  =====5}=N  ===NX  LINEA.5b  ======l  ======v  ====== ==A 5} DLIST LINEA.CREDITOS / A TOQUE Y FAMA por Rod R. y Bill Y. 1993 A LINEA.GANADOR / A Felicitaciones... `Lo has co5}nseguido! A LINEA.PERDEDOR / A Has fallado... `Intntalo nuevamente! A X; RUTINA.COPIAR QPANTA.PTR PPANTA.PT5}R.AUX QPANTA.PTR PPANTA.PTR.AUX QPIEZA.PTR PPIEZA.PTR.AUX QPIEZA.PTR* PPIEZA.PTR.AUX4 $>> C5}ICLO.COPIARH %>R CICLO.COPIAR.2\ Q@PIEZA.PTR.AUX7f P@PANTA.PTR.AUX7p 3z )> HCICLO.COPIAR.2 QPIEZA.PTR.AUX5} , O> PPIEZA.PTR.AUX DNO.PAGINA.PZ #PIEZA.PTR.AUX NO.PAGINA.PZ , QPANTA.PTR.AUX O>( PPANTA.PTR5}.AUX DNO.PAGINA.1#PANTA.PTR.AUXNO.PAGINA.10$HCICLO.COPIAR.:8X;BACA.ESTA.EL.INICIOL PRESENTACION5}V CLEAN` Q>4DLISTjP0t Q>5DLIST~P1Q>4LINEA.1PPANTA.PTRQ>5LINEA.1PPANTA.PTR Q>4DLI5}P Q>5DLIPQ>PQ>P COLORES CICLO.PRINCIPAL.CREOQ> PTECLA( ELIGE.COLOR.FONDO5}2 CLEAN< INSTALA.LINEA.CREDITOSF INICIALIZA.CURSORP PARTIRZ INICIALIZACION.MATRIZd CICLO.DESORDENARn ENC5}IENDE.FIGURASxJUEGA.DE.NUEVO LIMITE.IZQNO.BOTON.3QFNO.BOTON.3 JUGAR CALCULAR.T.Y.F PLOTEAR.T5}F QFAMASR> HNO.GANA !GANO NO.GANA QJUGADAR>HSIGUE.JUGANDO !PERDIO"SIGUE.JUGANDO, #JUGADA5}6!JUEGA.DE.NUEVO@X;J JUGART PLOTEAR.LINEA^ ACTIVA.CURSORhQ>r PIND1|$>LR1A PMSELEC90IL5}R1 OTRA.VEZ QTECLAR>HLEE.JOYSTICK!SALE.CON.ESCAPELEE.JOYSTICKQ> PTECLAQ HNO.BOTON !5}ELIGIO& NO.BOTON0Qx:R>DHNO.DERECHAN DERECHAX QIND1bR>l FOTRA.VEZv #IND1 MOVER.DERECHAQPANTA5}.PTR,O>PPANTA.PTRDNO.PAG.PANPTR#PANTA.PTRNO.PAG.PANPTR TIMER.BILL.2 !OTRA.VEZNO.DERECHA5}R> HNO.IZQUIERDA IZQUIERDA  QIND1 FOTRA.VEZ  "IND1* MOVER.IZQUIERDA4QPANTA.PTR>;HS>RPPANTA.P5}TR\ ENO.PAG.2f"PANTA.PTRp NO.PAG.2z TIMER.BILL.2 !OTRA.VEZNO.IZQUIERDAR>HNO.ARRIBA ARRIBA Q5}IND1> QMSELEC9PAUXILIAR.1R>  FAYUDA #MSELEC9 BUSCAR.PIEZAQ>PAUXILIAR.2 CICLO.AA$QPIEZ5}A.PTR.,8O>BPPIEZA.PTRLDNO.PAGINA.AAV#PIEZA.PTR`NO.PAGINA.AAj TIMER.BILLt RUTINA.COPIAR~"AUXILIA5}R.2 ICICLO.AA AYUDA !OTRA.VEZ NO.ARRIBAR>  HNO.ABAJO ABAJO QIND1> QMSELEC9PAUXILIAR.1 F5}AYUDA "MSELEC9  BUSCAR.PIEZAQ>PAUXILIAR.2( CICLO.BB2QPIEZA.PTR<;FS>PPPIEZA.PTRZENO.PAGINA.BBd5}"PIEZA.PTRnNO.PAGINA.BBx TIMER.BILL RUTINA.COPIAR"AUXILIAR.2 ICICLO.BB !OTRA.VEZ NO.ABAJO !OT5}RA.VEZ ELIGIO REVISAR.JUGADAQFLAG.SIRVE HNO.ABAJO:TIMER.BILLQ UN.JIFFIERFUN.JIFFIE":,5}TIMER.BILL.26Q>@PJVARIOS.JIFFIESTQ^HVARIOS.JIFFIESh:rGANO| DESAPARECE.CURSOR INSTALA.LINEA.G5}ANADOR PARTIR APAGA.FIGURAS!CICLO.PRINCIPAL.CREO: PERDIO DESAPARECE.CURSOR TIMER.BILL.2 PLOTEAR5}.PIERDE INSTALA.LINEA.PERDEDOR PARTIR APAGA.FIGURAS!CICLO.PRINCIPAL.CREO:X;SALE.CON.ESCAPE&707:5} DESAPARECE.CURSORD APAGA.FIGURASN!CICLO.PRINCIPAL.CREOXX;bPLOTEAR.LINEAl $JUGADAvQTABLA.PTR.LANA.HI9P5}PANTA.PTRQTABLA.PTR.LANA.LO9PPANTA.PTRQ>PNO.SEAI.LOCOQNO.SEAI.LOCO CICLO.PLPAUXILIAR.1 BUS5}CAR.PIEZA RUTINA.COPIARQPANTA.PTR,O>PPANTA.PTR DNO.PAGINA.PL#PANTA.PTR NO.PAGINA.PL*#NO.S5}EAI.LOCO4QNO.SEAI.LOCO>R>H HCICLO.PLR $JUGADA\QTABLA.PTR.LANA.LO9fPPANTA.PTRpQTABLA.PTR.LANA.HI9zPPANT5}A.PTR:X;PLOTEAR.PIERDEQ> PJUGADALINEA.SIGUIENTE $JUGADAQTABLA.PTR.LANA.LO9,O>PPAN5}TA.PTRQTABLA.PTR.LANA.HI9O>PPANTA.PTRQ>PNO.SEAI.LOCO$X;.CICLO.PLOTEA.PIERDE8$NO.SEAI.LOCOB 5}QMJUEGO9LPAUXILIAR.1V BUSCAR.PIEZA` RUTINA.COPIARj TIMER.BILLtQPANTA.PTR~,O>PPANTA.PTRDSIGUE.C5}ICLO.PL.P#PANTA.PTRSIGUE.CICLO.PL.P#NO.SEAI.LOCOQNO.SEAI.LOCOR>HCICLO.PLOTEA.PIERDEX; #JUGA5}DA QJUGADAR> HLINEA.SIGUIENTEX;:(X;2 CLEAN<Q>`F PCL.1PQ>pZ PCL.2dQ>n?x$>CL5}.1P`8CL.2Pp83 HCL.1 #CL.1 #CL.20 ICL.1:X;INSTALA.LINEA.CREDITOSQ>4LINEA.C5}REDITOSPLINEA.DE.MENSAJEQ>5LINEA.CREDITOS"PLINEA.DE.MENSAJE,:6X;@INSTALA.LINEA.GANADORJQ>4LINEA.GANAD5}ORTPLINEA.DE.MENSAJE^Q>5LINEA.GANADORhPLINEA.DE.MENSAJEr:|X;INSTALA.LINEA.PERDEDORQ>4LINEA.PERDEDOR5}PLINEA.DE.MENSAJEQ>5LINEA.PERDEDORPLINEA.DE.MENSAJE:X; COLORES$>LLENA.COLORESQTABLA.COLORE5}S.LINEA9P9P90ILLENA.COLORES:&X;0ELIGE.COLOR.FONDO: QRANDOMDM>NPCOLOR.FIGURASXPb:l5}X;vENCIENDE.FIGURAS$>ENCIENDE.FIGQTABLA.LUMINOSIDAD.FIGURAS9PTABLA.LUMINOSIDAD.AUX90IENCIENDE.FIG5}:X;APAGA.FIGURAS$> APAGA.FIGQ>PTABLA.LUMINOSIDAD.AUX90 IAPAGA.FIG: X;*DLI45>AH5}5R$>\CAMBIA.COLOR.LINEAfQTABLA.COLOR.LINEA9p PWSYNCzPЄ0ICAMBIA.COLOR.LINEAX;$>CAMBIA.COLOR5}ESQTABLA.LUMINOSIDAD.AUX9LCOLOR.FIGURAS PWSYNCP90ICAMBIA.COLORESQ> PATRACT7>7$9.5}X;8PLOTEAR.TFB $JUGADALQTABLA.PTR.LANA.LO9V,`O>jPPANTA.PTRtQTABLA.PTR.LANA.HI9~O>PPANTA.PTR5}Q> PAUXILIAR.3PAUXILIAR.1Q> PFLAG.RR QFAMASPAUXILIAR.2SIGUE.FAMAS"AUXILIAR.2GAHORA.TOQUES5}QAUXILIAR.3PAUXILIAR.1  BUSCAR.PIEZA RUTINA.COPIARQPANTA.PTR(,2O><PPANTA.PTRFDNO.PAGINA.SFP#5}PANTA.PTRZNO.PAGINA.SFd!SIGUE.FAMASnAHORA.TOQUESx "FLAG.RRFNO.BOTON.2"AUXILIAR.3 QTOQUESPAUXILI5}AR.2!SIGUE.FAMASNO.BOTON.2QFNO.BOTON.2:X;PRESENTACION APAGA.COLORES CARACTERES.DOBLES 5}INSTALA.LISTA.SCROLL INSTALA.VBDLEE.CONSOLA" PARTIR, %>4b6 $>5b@Q>J \T:^X;hAPAGA.COLORESr$5}>|APAGA.CLRSQ>P90IAPAGA.CLRS:X;CARACTERES.DOBLES$>%> CARACT.1Q> PAUXILI5}AR CARACT.2 Q9 PFONT18 PFONT18& Q90 PFONT18: PFONT18D Q9N PFONT18X PFONT15}8b Q9l PFONT18v PFONT18 Q9 PFONT28 PFONT28 Q9 PFONT28 PFONT28 Q5}9 PFONT28 PFONT28 Q9 PFONT28 PFONT28 3!3 !2! #AUXILIAR ! QAUXILIAR*!R>4! H5}CARACT.2>!AH!,R!O>\!>f! HCARACT.1p!X;z!:!X;!INSTALA.LISTA.SCROLL!Q>4DLIST.SCROLL!P0!Q>5DLIST.SCROLL5}!P1!Q>4DLI.SCROLL!P!Q>5DLI.SCROLL!P!Q>!P! Q>5FONT1"P"Q> "P$":."X;8"DLI.SCROLLB5}"5L"AV"5`"X;j"$>t"COLOR.DLI.1~"QTABLA.LINEA.MENSAJE9" PWSYNC"PМ" Q>5FONT1"P ԰"0"ICOLOR.DLI.1"X;5}"X;"$>"COLOR.DLI.2"QTABLA.LINEA.MENSAJE9" PWSYNC#P # Q>5FONT2#P #0(#ICOLOR.DLI.22#7<#>F#7P#6}9Z#X;d#INSTALA.VBDn#X;x# SETUP;;Set Up Scroll!#Q>#$>5VBISCROLL#%>4VBISCROLL# \#:#X;#X;# VBISCROLL6}# MOVESCROL#!b#X;------------------# MOVESCROL# "INDEX$ IHSCROLL$ #BYTE.1$ #BYTE.2"$HCHECKSCROL,$#BYTE6}.16$#BYTE.2@$CHECKSCROLJ$"CLOT$ HSKIP00^$"CHIh$ ISKIP00r$ SETUP|$ SKIP00$Q>$ PINDEX$ HSCROLL$ QI6}NDEX$PԸ$BACK$:$X;-----------------$ SETUP$Q>4MENSAJE$ PBYTE.1$ PBYTE.2$Q>5MENSAJE%PBYTE.1%PBY6}TE.2% Q>4CUENTA&%PCLO0% Q>5CUENTA:%PCHID%:N%X;X%X;---------------------b% CLO l% CHI v% INDEX %TABLA6}.LINEA.MENSAJE% ===% ===% ===% ===%!X;----------------------------%DLIST.SCROLL%6} p=p=p==R%BYTE.1 MENSAJE% R%BYTE.2 MENSAJE% A% DLIST.SCROLL&X; &INICIALIZA.CURSOR&Q> & PHPOS6}P0*& QHPOSP14&$>>&LIMPIA.PLAYERSH&Q>R& PPLAYER09\& PPLAYER19f&2p&HLIMPIA.PLAYERSz&X;&$>&FORMA.CURSOR&6}QDATOS.CURSOR.IZQ9&PPLAYER0OFFSET9&QDATOS.CURSOR.DER9&PPLAYER1OFFSET9&2&(>&HFORMA.CURSOR&X;& Q>5BA6 }SEPM& PPMBASE&Q>' PSIZEP0' PSIZEP1'Q>.$' PSDMCTL.'Q>8' PGRACTLB'Q>L',V'OCOLOR.FIGURAS`'Pj'Pt'6 }:~'X;'ACTIVA.CURSOR' MOVER.ABAJO' MUEVE.HORIZONTAL':'X;'DESAPARECE.CURSOR'Q>' PHPOSP0' PHPOSP1':6 }'X;'LIMITE.IZQ(Q>* (PPOS.PLAYER0(Q>4(PPOS.PLAYER1((:2(X;<(MOVER.DERECHAF(QPOS.PLAYER0P(,Z(O>d(PPOS6 }.PLAYER0n(QPOS.PLAYER1x(,(O>(PPOS.PLAYER1( MUEVE.HORIZONTAL(:(X;(MOVER.IZQUIERDA(QPOS.PLAYER0(;(S>6 }(PPOS.PLAYER0(QPOS.PLAYER1(;(S>)PPOS.PLAYER1) MUEVE.HORIZONTAL):")X;,)MOVER.ABAJO6) DESAPARECE.CUR6}SOR@)$>OFFSETJ)MUEVE.ABAJOT) QPLAYER09^)PPLAYER0 9h)Q>r) PPLAYER09|) QPLAYER19)PPLAYER1 9)Q>) PPL6}AYER19)0)IMUEVE.ABAJO)X;):)X;)MUEVE.HORIZONTAL)QPOS.PLAYER0) PHPOSP0)QPOS.PLAYER1) PHPOSP1*:*X;*6}X;&*POS.PLAYER0 0*POS.PLAYER1 :*X;D*DATOS.CURSOR.IZQN* ======X* ======b*DATOS.CUR6}SOR.DERl* ======v* ======*X;*X;*DATOS.FIGURAS* ===j=* =j===j* =6}=j==* j===j=* =`== =`* = =`== * j===h=* +=`== =`* }= =`=}= * `6}== =`=+  =e=U=[=j + ==j==+ j===j= + =j===U*+ U=U4+ ===j=>+ =j==6}=jH+ ==j==R+ j===j=\+ =j== =hf+ ==`==p+ b===j=z+ =j===j+ ==j=6}=+ h=(==h=+ =h===j+ ==n==+ ====+ =n===U+ U=U===+ e=j=6}=j=U+ =i=U=k=e+ U=k=e=U=[+ e=U=[=e=U+ [=e=U=[=e+ U=[=i=U=[, k==k=j=, k=j=6}==j, ==j==$, j===j=., =j===j8, ==j==B, j===j=L, =U=U=U=V, ==6}j==`, j===f=j, =e=U=[=et, U=[=i=U=k~, k===l=<, ;=l=<=;=l, <=;=k==, i=U6}=k=e=, [=g=w=[=g, ==g=w=[, g===e=w, [=i==k=U, U=W=V=}=, Z===U=U, U=6}===j, ==j==, j===`=-  =c===c - ==c==- `== =`=-  =`=<= =`(- <=6} =`== 2- `== =`=<<-  =`=<= =`F- <= =`=<= P- `== =j=Z- =j===jd- ==j==n- U6}=U=U==x- =j===j- ==j==- j===j=- =j===j- ==j==- j===j=}- 6}=j=}==i- U=k=i=U=k- i=}=k=j=}- =i=U=k=i- U=k=i=}=k- i=U=k=j=U- =j===j- 6}==U=U=U. ===j=. =j===j. "==j="=". j===j=,. =j===h6. ==j==@.6} j===j=J. =j===jT. ==j==^. j===j=h. =b==+=br. =+=h==|. j===j=.6 } =j===U. U=U===. j===j=. =o===o. ==o==. n===n=. =j===j6!}. ==j==. j===j=. =k===k. ==k==. j===i=. =i=u==i/ U==i=e=6"}/ i===j=/ =U=U=U=&/ ==j==0/ j===j=:/ =j===jD/ ==`== N/ j===j=6#}X/ =h===cb/ ==c==l/ c==+=h=v/ =j="==`/ = =`== / j===j=/ =j===6$}j/ ==j==/ j===U=U/ U====j/ ==j==/ j===j=/ =j===j/ ==j=6%}=/ k===o=/ =o===k/ ==k==0 o===o= 0 =o===k0 = =`== 0 h==+=6&}h=*0 +=j===U40 U=W=U=U=W>0 U=U=U==H0 =j===gR0 ==f==\0 f===f=f0 =f==6'}=ep0 i=[=j=k=z0 j=k==j=k0 =j=k==j0 k==j=k=0 j=k==j=k0 =j=k==j0 k==j6(}=k=0 j=k==j=k0 =j=U==j0 ==U=U=U0 ===j=0 =g===f0 ==f==0 f==6)}=f=0 [=f===f1 ==f==1 f===f=1 =f===f$1 ==f==.1 f===f=81 =f=6*}==fB1 ==f==L1 f===e=ZV1 =j===U`1 U=Uj1X;t1X;~1X;1 MENSAJE17 A 6+} A1^ AEsta versin de 'TOQUE Y FAMA' fue realizada por: ROD RUBBER y BILL YESTERDAY, para el A1+ 6,}Asptimo n mero de la REVISTA STAK...A1c A Un gran saludo para nuestros colaboradores y columnistas, y a todos los que6-} nos apoyan A1f Acon ideas y sugerencias constructivas... Un saludo especial para JORGE BASCUAN H., por su A13 Acole6.}ccin de libros con juegos de ingenio...A1f A Este juego no tiene m sica, ni efectos sonoros, porque NEW AGE no ha quer6/}ido pasarnos sus A14 Arutinas de sonido... Y adems porque nos A1b Afu imposible (`al menos por el momento!) 'tomar 60}prestada' la m sica del MS PACMAN... YA1c A si hay algo en que no somos expertos (`si en algo lo somos...!) es en el ma61}nejo de sonidos A1= Aen el viejo y clsico ATARI... Isn't it a pity?...A2* A Presione para jugarA 2F62}IN23 A A2X;(2X;22X;<2X;F2`P2 LINEA.1Z2pd2 LINEA.5n2x2 ACA.63}ESTA.EL.INICIO A2X;(2X;22X;<2X;F2`P2 LINEA.1Z2pd2 LINEA.5n2x2 ACA.41000 ;******************************1010 ;* CURSO DE ASSEMBLER *1020 ;* Leccion 7 - Ejemplo 1 *1030 ;* REV:5}ISTA STAK 1993 *1040 ;******************************1050 ;1060 ;1070 ;MULTIPLICAREMOS el valor1080 ;almacenado en :6}$4200 por 161090 ;y le restaremos el valor1100 ;inicial de $42001110 ;Es decir: 16*2*2*2*2-16 = 16x151120 ;1130 *= :7}$40001140 INICIO1150 LDA #161160 STA $42001170 LDA $42001180 ASL A ; * 2 = 321190 ASL A :8} ; * 4 = 641200 ASL A ; * 8 = 1281210 ASL A ; * 16 = 2561220 SEC 1230 SBC $4200 ; 256-16=24:9}01240 STA $45001250 ;1260 RTS ; Cambiar RTS1270 ; por BRK para EDITOR ASSEMBLER1280 *= $02E01290 ::} .WORD INICIO45001250 ;1260 RTS ; Cambiar RTS1270 ; por BRK para EDITOR ASSEMBLER1280 *= $02E01290 81000 ;******************************1010 ;* CURSO DE ASSEMBLER *1020 ;* Leccion 7 - Ejemplo 2 *1030 ;* REV><}ISTA STAK 1993 *1040 ;******************************1050 ;1060 ;1070 ;MULTIPLICAREMOS el valor 38601080 ;por 8 (se>=}parandolo primero en1090 ;dos BYTES y guardaremos estos1100 ;BYTES en $4200 (byte inferior)1110 ;y $4201 (byte superior))>>}1120 ;y luego sumaremos los valores1130 ;iniciales de $4200 y $4201.1140 ;Nos valdremos de la ayuda de1150 ;dos bytes auxi>?}liares AUX1 y1160 ;AUX2, para no modificar los1170 ;contenidos de $4200 y $4201, ya1180 ;que los necesitamos para la1190 >@};suma final.1200 ;El resultado final se guardara1210 ;en $4600 y $4601 (byte inferior1220 ;y superior, respectivamente).1>A}230 ;En resumen la multiplicacion1240 ;sera de la siguiente forma:1250 ; 3860*9 = 3860*2*2*2+38601260 ;1270 *= $40>B}001280 INICIO1290 LDA #3860&255 ;byte inferior1300 STA $42001310 LDA #3860/256 ;byte superior1320 STA $4>C}2011330 ;1340 LDA $42001350 STA AUX11360 LDA $42011370 STA AUX21380 ;1390 ASL AUX1 ; * 21400 >D} ROL AUX21410 ASL AUX1 ; * 41420 ROL AUX21430 ASL AUX1 ; * 81440 ROL AUX21450 ;1460 ; AUX1 y AU>E}X2 contienen el1470 ; producto de 3860*81480 ; Y a continuacion sumamos a lo1490 ; anterior 38601500 CLC 1510 LD>F}A AUX11520 ADC $42001530 STA $46001540 LDA AUX21550 ADC $42011560 STA $46011570 ;1580 RTS >G} ; Cambiar RTS1590 ; por BRK para EDITOR ASSEMBLER1600 ;1610 AUX1 .BYTE 01620 AUX2 .BYTE 01630 *= $02E01640 >H} .WORD INICIORTS1590 ; por BRK para EDITOR ASSEMBLER1600 ;1610 AUX1 .BYTE 01620 AUX2 .BYTE 01630 *= $02E01640 <0160 ;0180 ;1015 ATRACT = 771019 PT.BORRA = $CB1080 FLAG.SON.PALETA .BYTE 01100 FLAG.SON.LADRILLO .BYTE 01120 FLAG.SON.BJ}MURALLA .BYTE 01160 INDICE.SON.PALETA .BYTE 01180 INDICE.SON.LADRILLO .BYTE 01200 INDICE.SON.MURALLA .BYTE 01870 PALETAS BK}.BYTE 02640 .OPT NO LIST2705 JSR INICIALIZA.SONIDO2707 LDA #0 ; Valores2708 STA PALETAS ; Iniciales!BL}2709 STA TOTAL.LADRILLOS2780 JSR INICIALIZA.VBD2840 ;3220 INICIALIZA.VBD3240 LDA #73260 LDX # >RUTINA.VBM}BD3280 LDY # `>H>0>>x&s)J~0~H~`~x~Lbޅ˩̩Vͩ΢wˑ͈ixͥivu2u}ŘĖ혈`&",dz2%6)34!!4!2)34!+0/22/$25""%22v}    U                2w}        U                0$(X+E,X+E)):NEXT X910 D=2^INT(LOG(N)/LOG(2))-1920 FOR I=1 TO N-D:B$(1)=" ":B$(57)=" ":B$(2)=B$930 IF X(I)<=X(I+D) THEN 102Fy}0940 TX=X(I+D):X(I+D)=X(I)950 B$=A$(((I+D)*57)+1,((I+D)*57)+57):A$(((I+D)*57)+1,((I+D)*57)+57)=A$((I*57)+1,(I*57)+57)960 IFz}F I<=D THEN X(I)=TX961 IF I<=D THEN A$((I*57)+1,(I*57)+57)=B$:GOTO 1020970 FOR J=I-D TO 1 STEP -D980 IF TX>=X(J) THEN 1010F{}990 X(J+D)=X(J)991 A$(((J+D)*57)+1,((J+D)*57)+57)=A$((J*57)+1,(J*57)+57)1000 NEXT J1010 X(J+D)=TX1011 A$(((J+D)*57)+1,((F|}J+D)*57)+57)=B$1020 NEXT I1030 D=INT(D/2):IF D>0 THEN 9201040 POSITION 9,3:? A$(X1,X1+29)1050 POSITION 9,5:? A$(X1+30,X1+F}}49)1070 POSITION 13,7:? A$(X1+50,X1+55):POSITION 35,7:? A$(X1+56,X1+56)1080 POKE 559,34:GOTO 6902000 POKE 559,0:A=0:FOR X=F~}9 TO 38:LOCATE X,3,Z:A$(X1+A,X1+A)=CHR$(Z):A=A+1:NEXT X2010 A=30:FOR X=9 TO 28:LOCATE X,5,Z:A$(X1+A,X1+A)=CHR$(Z):A=A+1:NEXTF} X2020 A=50:FOR X=13 TO 18:LOCATE X,7,Z:A$(X1+A,X1+A)=CHR$(Z):A=A+1:NEXT X2030 LOCATE 35,7,Z:A$(X1+A,X1+A)=CHR$(Z)2040 POSF}ITION 2,8:? " ":POKE 559,34:GOTO 1707,Z:A$(X1+A,X1+A)=CHR$(Z):A=A+1:NEXT X2030 LOCATE 35,7,Z:A$(X1+A,X1+A)=CHR$(Z)2040 POSD%23#f|AQNOAXBNO1XRIIQSDIDT@@J} J}S."D:EDITOR3.LIBAA`w +( J}/-@@9(BOOK:K-@@W(AUTHOR:i-@@w( LOCATION: |-@)@(LOAN:1-J}@@ <(ՠN-@@ X(OFFjA|A @ X(( EW BEGINNING&( OAD FJ}ILE4( AVE FILEF@@dXB7t@d Q( NEXT BOOK#( BACK BOOK0(LPHABET?( IRECTORY Q( O OJ}THER BOOK T(ETURN TO MAIN MENU--@@#T(!MESSAGE: By German A. Gonzalez M. |-@@#( FREE: J}3705-@?(BOOK:Q-@&_( NUMBER OFq-@&@|(BOOKS:R;B,;@0,;@J},9@,9A,;@W,;@,g68,-@)|68@,-@68@,-@68@,J}-6-@6-@i@.@@K:?67@,. P67B,. _67@,J}.i A6-%@W6-%@+!Ap=-@@#S(MEMORY FULL!!!a6-&@Wo6-&@}J}6-&@ Aph-@3@( 0-@!@A(Ap& S-@!\( h6-J}#-@#6-967@,. *678,%@,. 967@,.4"!-@@J}*(4 AH("@(((( AH)"@((() AH2"@!-@4J}@(( 2 AH(& @@6-&)@2"@@@PJ!*"A&&67<,. J}46-&@@6-@J AQ3"@06-&@)6-@3 AR%"@16-@% AJ}Z"AUAPd!! @2)!A"@@nD6-%@"!8,%@36-8,%@:(D @@xJ}% 6-% @@ (>:,@@67<,.>:, @@"@@G-67%<%%J}8,,.7@<8,%@,@6-%8,%@D G("A 6-@-@!( 0J}AdAUBAR@T-@@ \(ON nA@dA}-@3@( J}0-@@!S( INPUT BOOK %@ e-@@ }( ODIFY BOOK  $ Ar)@$ J}A`;"@w@% AP16-; @ "@AP"@vAa"A'J}%@/-@@#@( SURE (Y/N)M)@a@Ap"@h A"@eJ}A-"A'*"@# AP- @"@CA!!@*@xAS-@@#J}(( SURE?? (Y/N)5)@? AWS@A"@x%%D:MAINMENU.LIB"@EAJ}1"A'6-%@' AP1 @"AU6-@2"@qAJ-@@#@J}(EXISTS NO COMMAND >:,J Ap>6-F:@,%6-F:@,)(7-&@>( $2J}AR'-@@ /(OFF2$Q-@@#5(CHECK THE DISK DRIVE OUTGAQ ApJ}*-@@#'( MESSAGE:*$,H%@!#-@@#>(EXIST NO MORE BOOKSH Ap6)6-%J}@}~~AFAMBPQQHHVVYYXXPYHPXDDRKEGHV&} @@@&}HHΠ &}̠""ΠڠӠ""Š +A&} K6-6-@'6-@36-??6-K6-@eK6-6-'6-A 36&}-?6-AK6-d A`e Apf APg Ah A j A@ ϛ&}36-6-A'6-36-A - -<<68<,-G:$'A,$$%G:+@%,$'A&},$$ 9968<,-+A&+8<,$G:$'A,%8<,,$,$8<,!6-8<,8<, 6-8<,$BB68<&},-+E:$'A,$$%E:+@%,$'A,$$,$$.8<,!6-8<,88<, 6-8<,B L `$&}Λ 6-&!AA!0 6-&!AA!6-+%A&,'@& 6-&}+%A&,'@& A4îڛ>6-'A6-P:',H A!PRîԛ\6-'A&}6-P:',f @Ap AΛ +@@ --&@;,&}8<,%8<,%;/8<%@,%8<%@,%    --&@;,8<,%8<,%;/8<&}%@,%8<%@,%   ;@.@@K:;)@"@'A&}"@At" AA ՛+-@@#+( > @!-@@#>(NO&} CABE. DEBE SECTORIZAR-@@#(*;@.@@K:;)@!!"@I)&}"@PAW"@QAPp"@RAQ"@SAP"@TAQ "@U&}AP"@VAQ0"@CAT"@BAS"@EAU"@aAU&} AP3(FACTOR%-@ @)(3 AP"(VERTICE ARRIBA/IZQ."+-@@#+( &} -@@#(*!(VERTICE ABAJO/DER.!!)!AP'-@ @'( &} +-@ @+(    AP(6-?( GRAFICANDO( AR AW &}AP( COEF.RELACIONg@.@@K:;)@I6-&@Hg @)!@&}AQ#-@"@(# APϠϠϠϠ&}ϠϠϠϠ 6-@( IMPRESORAP$)6-%@!&}A)6-A AT)6-&@ )6-"#-@ @(# AP|6-&@&} AUP6-%@-@ @( APD!-@@#!(SEGURO?NO@.@&}@K:;)@O"AUAWX"@AW`b@xAWl$"@I%&} +p ӛz+ +%(INGRESO DE ALTURAS((+(( (1)-EJEMPLO( (2)-ARCHIVO( (3)-MANU&}ALY@.@@K:;)@Y @I)!@QA`p''&@HAaAbA&}c'6-6-!6-'6-$26-@6-@29<,9<,9<,E-@+&}-@/":68<,-> B E$0,0,1,3,2,1,3,4,3,1,2,3X7 +7(%GERMAN GONZALEZ MORR&}IS --------- 1989;-@@;(!*ANGULOS SE MODIFICAN CON FLECHAS-@@((-@@#&}(" ((-@@ @-@@$ -(   -@@@&}'-@(|!-@%'(|7-@%@(1-@%%@7(  3-@@ &}(--@%@ 3( f-@@&( FACTOR (ESC)8-@@M(REACION DIM. _-@ @&}f(1/*X-@@'( ANGULO HORZ. 9-@@X(SECTOR   /&-@@&( AN&}GULO VERT.##ϠŠD:3D.MICR4@@@@p#&}iULO VERT.##ϠŠD:3D.MICR4@@@@p#$@6-%@W) A H@!-@@#>(BACK TO THE BEGINNINGH Ap6-&@6-J}&@W&-@ @&(7<%@),.-@ @.(7%@0<%@I,c-@@.(7%@PJ}<%@U,@-@5@Y(7%@V<%@V,c Ap=AR'-@(@3(LOADING= AWJ}L-@$@&( 8-@$@?(L@2 6.67@,.267@<@,.J}D:<<6-C:/@ԩhhh i hԈhԈhԈhԈhhLV,F @@A(F6-?:<@<B-@@#-@!:(| |> &-@!&(J}0 A0@@D:*.*^-@@ +-@@8)@F67<,.>:J}?