@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 k} 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 TIME COM 088 COPYING---D8:TIME.COMCOMl# 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`c0˭1̠,ȩ`˩D̍L)`3antiagode#hile T}%stimado5suario,osprogramasquevienenenesteladodel$)3+%44%sonlistadosU}en!33%-",%2yseincluyen%30%#)!,-%.4%paraloslectores).4%2%3!$/3enestelenguaje3edeV}bencargarenel-!#con,/!$$./-"2%%84,osprograW}masquetienen%84ensiNn32#sepuedencargartantoenel-!#comoenel%$)4/2!33%-",%2con%.4%2$./-"2%X}%84"ien esperamosquelosinvestigueysitienealgunaduda eY}scrGbanoscontodaconfianza.uestradirecciNnes#!3),,! #orreo#enZ}tral2evista34[}!+ `2evista34r$X;*******************************$X;* Cargador de Vidas Infinitas *$X;* para JUMPMAN JUNIOR *$X;* ]} *$X;* por: Bill Yesterday *$X;* *$$X;* Revista STAK #8 ^} *.$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? a}CONTP ( Q>5?CONT2P <Q>FP PQ>;; No BASIC!!ZPdPnQ>;; No Reboot!xPD$>CLR0;Limpia b} desdeQ>;; $0700 hastaCLR;$BFFFP92HCLR #CLR QCLRR> HCLR0!WARMSV;; Salta a ?CON c}T ?CONTQ>PR;;margen izq.P;;warmstart!!"Q>,P6 PUTMES@$>4MENSAJEJ%>5MENSAJET B^X;hQ> d}rP|Q ESPERAR FESPERA SETVBI$>BQDEVICE;; 0=CASSETTEHDISK;; 1= DISKQ> P! e};; Cassette Boot!DISK!;; Disk Boot! MENSAJE4 A}ҠΠҮˠA=X;&X;0 f}:X;D SETVBINQ>X $>5NEWVBIb %>4NEWVBIl !SETVBVv SETRUNI Q>4RUNINIP Q>5RUNINIP: NEWVBI g}6 SETRUNI CHECK0 QFLAG FBACK Q>4SYSVBVP" Q>5SYSVBV P#BACK 8* !SYSVBV4X;>X;H X; A h}qui revisa el archivo queRX; esta siendo cargado y si\$X; encuentra la rutina de perdidafX; de vidas, la desactiva...p i}X;z CHECK0Q2;;Direccion REAL!R>;;$CE es DEC abs. HCHECK1Q>;;Reemplaza x LDAP2#FLAG;;Cambio listo j}!! CHECK1:X; RUNINI QFLAGHBKR CHECK0 SETVBI BKR :$ X;. X;8 DEVICE;0=CASS 1=DISKB  L k} FLAGV  ` X;j t BEGINFLAGHBKR CHECK0 SETVBI BKR :$ X;. X;8 DEVICE;0=CASS 1=DISKB  L #1000 ;******************************1010 ;* CURSO DE ASSEMBLER *1020 ;* Leccion 8 *1030 ;* REm}VISTA STAK 1993 *1040 ;******************************1050 ;1060 PTR.TEXTO = $CB1070 ;1080 ;------------------------n}------1090 ; Este programa se llama desde1100 ; BASIC con:1110 ; U=USR(1536,ADR(M$),LEN(M$))1120 ; Donde M$ = Mensaje de o}TEXTO1130 ;------------------------------1140 *= $06001150 COMIENZO1160 PLA ;# de parametros1170 PLA p} ;Saca MSB de STACK1180 STA PTR.TEXTO+11190 PLA ;Saca LSB de STACK1200 STA PTR.TEXTO1210 PLA ;Saca MSq}B de STACK1220 PLA ;Saca LSB de STACK1230 TAX ;y lo traspasa a X1240 ;1250 LDY #$001260 CICLO1270 ;-r}-----------------------------1280 ; Carga acumulador con el1290 ; contenido de la direccion1300 ; a la cual APUNTA es}l VECTOR1310 ; formado por PTR.TEXTO y ,1320 ; PTR.TEXTO+1 y enciende el BIT1330 ; 7 a fin de que los caracteres1340 ;t} sean caracteres INVERSOS y a1350 ; continuacion se almacena el1360 ; resultado en la misma zona de1370 ; memoria donde seu} encuentra el1380 ; mensaje de texto.1390 ;------------------------------1400 LDA (PTR.TEXTO),Y ;Toma BYTE1410 ORA #$8v}0 ; $80 = 100000001420 STA (PTR.TEXTO),Y1430 ;--------------------------1440 ; Incrementa INDICE para1450 ; proximo w}caracter1460 ;--------------------------1470 INY1480 ;--------------------------1490 ; Decrementa Cantidad de1500 ; Bx}YTES a INVERTIR1510 ;--------------------------1520 DEX1530 BNE CICLO1540 RTS ; Vuelve al BASICntidad de1500 ; Bj1000 ;-------------------------------1010 ;1020 ; ** Rutina GET/PUT RAPIDA **1030 ;1040 ; Revista STAK #8 19931050z} ;1060 ;-------------------------------1070 ;1080 ; Llamada desde BASIC:1090 ;1100 ; U=USR(Rutina, Canal,1110 ; {} Comando (7/11),1120 ; Buffer, Longitud)1130 ;1140 ICCOM = $0342 ; Comando1150 ICBAL = $0344 ; Buffer|} Low1160 ICBAH = $0345 ; Buffer High1170 ICBLL = $0348 ; Longitud Low1180 ICBLH = $0349 ; Longitud High1190 CIOV = }} $E456 ; Vector de I/O1200 ;1210 *= $06001220 PLA 1230 PLA 1240 PLA 1250 ASL A1260 ASL A12~}70 ASL A1280 ASL A ; *16 para canal1290 TAX 1300 STX $D41310 PLA 1320 PLA 1330 STA IC}COM,X1340 PLA 1350 STA ICBAH,X1360 PLA 1370 STA ICBAL,X1380 PLA 1390 STA ICBLH,X1400 PLA }1410 STA ICBLL,X1420 JSR CIOV1430 LDX $D41440 LDA ICBLL,X ;Almacena en $D41450 STA $D4 ;y $D5 la }canti-1460 LDA ICBLH,X ;dad de bytes1470 STA $D5 ;leidos/escritos1480 ;1490 ; Nota: Al volver al Basic desde}1500 ; esta rutina, la variable1510 ; U (o cualquiera que se1520 ; use en lugar de esta),1530 ; co}ntendra la cantidad de1540 ; BYTES leidos/escritos.1550 ;1560 RTS use en lugar de esta),1530 ; coP@ˆ̢n`Hqr!"#123$%&'145 $%()1463 $%*+147 $%()1}463 !1 $%,#1463 !"#123 -.46/%0#1463 89:@A!OPQ123 $%()1463;<BC!}"#123DERS"#1723$%0#1463FG!1HI$%T#1463JKG!OPQ123 LMU%0#1463=>? #N V7 }$%0#1463 ijklV7 [$mn#1723 \]^_!1o#123WXYS`abc XV7=dFG$%()1463efrsZgFGpqV7ssrs sh}r)sFss!w4tu -.46Pssxyz7=vU%0#1463 L"#23 LMU%0#1463 M$%0#1463Z"}#23$%0#1463LU%0#1463LWL,`l@`0000l@@000` 00 ]LCM}l@ ` 0000@l&ƒ@@9 8  00 8 @00ƒ@@ 9}@@  9 00  0000ƒ 00 00 KMSM0  YMYM`}MM lMMMM`MMMM̰MMθMMMN 00`  @0$l@}`00怀 0 0N>NL ƒ@@ 9  DNzN 89 90ƒ@@8@@0}00 NN @ 0NN@@NN9&NN, 0000@@00 l@9NN NN l  NaO }  39 9@@@@  990 惃@@@3  00hOO 0@0 },300@@›ƒ@@ @@00  3l9 @@?6Dҩ BC@L\ @Lb,C0}P" BCLI@PC`BC CʽCCBL6AB LBBBBLk@ D¹ Dé CB}! CCC CC!CCCBL@)&BCBȘB@H) CBH)ChJJJJCh)?B tB$CuB&CLA?BCC$C}CBBBBC7CMABCNACCMC+CH$Ch%CCLBCC C%CC$C!C!B)!CABi}?BC$CC90!CC-CC}CC$CLABC;CCC$C C*CCLB C C}CLB8CCCC$CB0L}N@$C` !$'*-0369?!A "BCD E ,} -G#3.HIJ# 5 8 ;LK[MNOP Q RS TVwxX~Y0uv.-,,+**)(('&&%%$$###"""""""###$$%%&'()*+,-./.-+*)(&%$#"! } !"$%'(*,-/-+*(&$#! "$&(*-/-*(%#! !$&),/,)&# }  !%(+/xx@@@@ x"x(xxЄNKTUVTUZPUVTUP}ZUPZ@@@@@АU@j@@@@@@@VT@@@@@@@AITTTTTUxxVUx/yUPZP}PTYUjj@j@@@@@@@@VTVTTTTTU6yyUZAAAЁZZPzoZUPE@e}Q@j@TVTTTVUPUUTTUUAAPZFAA@@@@@AAj@j@@@@UUTTV}TyazTVU@@@VU@@@LNL@L@TUUiUATk^[VQZPZNN@NLN@L@@@@kAA֗AAAkAoN@@}BBB@@@@gzz@iAdTZEPTQBPZU@jT@@@@ VTVU@N@LBL@@@@@@zzzz ԅ}ϩΩ#/0P1L`ҩYVҩ BCKU \L]jfb26<i̥i`APP}`ZZ[[\\]]7`PP PPPPPPP P PPPPPP`PPppppTZT[T\]T]T\T[TZ`BPUZ}T[T\]T]T\T[TZ}}}}}}}}} 0@P`DAP)UV !"#$%&'}  ԭ/ԭ0ԭ1ԩͦ0uJJJ pP)TPȢUP}UI U ϩΥ΍ԥLVV  zXPM@U & & & &̥ͅiH̥iq̙͠0Z l̙0[ l̙0}\ l̙0]UUUUT XUPUL@HHHԢdΎ Ԏ Ԏ Ԏ Ԏ Ԏ Ԏ ԠԎ Ԏ h}x ԩԩ"hhh@UUT XUPUL@HHHԢdΎ Ԏ Ԏ Ԏ Ԏ Ԏ Ԏ ԠԎ Ԏ h104,162,0,134,205,104,149,207,104,149,206,232,232,224,8,208,244,162,0,169,0,133,214,138,168,177|dd206,133,203,200,177,206,}133,204,232,232,160,15,165,203,209,210,208,10,152,24,42,42,42,42,5,214hh133,214,165,204,209,210,208,5,152,5,214,133,214,1}36,16,226,164,205,165,214,145,208,230,205,164,205bb24,165,212,101,214,133,212,165,213,105,0,41,31,133,213,136,208,238,165},205,201,48,208,173,96""*DATOS DEL BOOT DE CASSETTE*ee0,30,223,63,231,63,24,96,169,60,141,2,211,169,115,133,2,169,66,}133,3,169,2,133,9,169,0,141,68,276,115,66""*DATOS DEL FILE DE DISKETTE*,,255,255,0,64,207,78,224,2,225,2,115,66}!!***** DATOS DEL JUEGO *****kk0000000000000000000000000000000000010203000000000000000C000000909294969694929000}05070A0000000000,2169kk000001C1814101C1816063676B70737700A2098A9D0840CA10F9A9008D054060A9EB8D1840A9478D1940CE02403011AD,1}663kk18401869488D18409003EE19404C5A4060AD1FD0C906D00AAD1FD0C906F0F94C8C40AD8402D0EAAD8402F0FB60A9008D,5372kk1540A2038}AA888BD1040D91040F0098885CF10F3CAD0ED60EE154060A009AD0AD2290FC90AB0F7AAB908408D0140BD08,6913kk40990840AD01409D08408810E16}0A9008D06408D0740A203BD0840DD1040D006EE07404CF640A003D91040D006EE0640,5428 kk4CF6408810F2CA10DF607070F042C041304E00600E0E0}E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E104EC0630E,6976kk0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E104E80670E0E0E0E0E0}E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E,5610kk0E104E406B0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E104E00700E0E0E0E0E0E0E0E0}E0E0E0E0E0E0E0E,3039jj0E0E0E0E0E0E0E104EC0730E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E104E80770E0E0E0E0E0E0E0E0E0E,80}0!kk0E0E0E0E0E0E0E0E0E0E0E0E0E41FA4000342F31352500390026212D2100706F7200326F6400320E00790022696C6C00,4703&kk390E0011191}913000026656C696369746163696F6E65730E0E0E0000602C6F0068617300636F6E7365677569646F0100,2836+jj002861730066616C6C61646F0E0E0}E000060296E74546E74616C6F006E756576616D656E74650100AD164085CCAD1740,9130kk85CDAD184085CEAD194085CFA218A000B1CE91CCC8C003D0}F7A5CE18690385CE9002E6CF18A5CC692885CC9002E6CDCA,13865jjD0DC6020B94520BA44A9FA8D3002A9408D3102A9018D1640A9608D1740A92F8D00}02A9458D0102A9C08D0ED4A9CC8DF4,925:kk0220FD44A9FF8DFC02200C4520BA4420DC44200E4720714020414020AC40201845206A47AD8402F0FB20E}C4220CE4020,3591?kk5945AD0740C904D0034CEE43AD0540C906D0034CFE43EE05404CC142201F44205A47A9008D1440A2038A9D1040CA10F9,1551D}kkADFC02C91CD0034C1444A9FF8DFC02AD8402D0034CD543AD7802C907D021AD1440C903F0DBEE1440207547AD16401869,1251Ikk058D16409003EE}174020E5434C0043C90BD01FAD1440F0B8CE1440208B47AD164038E9058D1640B003CE174020E5434C,6937Nkk0043C90ED035AD1440AABD10408D0240}C909F024FE1040205040A9178D0340AD18401869038D18409003EE194020DE43,1644Skk203842CE034010E74C0043C90DD033AD1440AABD10408D0240}F0EDDE1040205040A9178D0340AD184038E9038D1840B0,7069Xkk03CE194020DE43203842CE034010E74C00434C0043208D40AD1540D0F560A514C514}F0FC60A9E68514A514D0FC602061,6269]kk4720E7442071402024454CA4426020614720E54320674420F2442071402024454CA4426068682061472024}454CA442AE,7424bkk0540BD39408D1740BD32408D1640A9008D4040AD40408D0240205040203842AD16401869058D16409003EE1740EE4040,4710g}jjAD4040C904D0DFAE0540BD32408D1640BD39408D174060A9008D0540AE0540BD32401869158D1640BD394069008D1740,852lkkA9008D4040AE4040}BD08408D024020504020384220DE43AD16401869058D16409003EE1740EE4040AD4040C904D0D6EE,7486qkk0540AD0540C907D0B360A9608DCB44A970}8DCE44A900A8A20E990060990070C8D0F7EECB44EECE44CA10EE60A9C08DFE,7570vkk40A9418DFF4060A9E88DFE40A9418DFF4060A9108DFE40A9428D}FF4060A204BD1A409DC4029D16D0CA10F460AD0AD229,4109{kkF08D27408DC80260A204BD28409D2D40CA10F760A204A9009D2D40CA10F860488A48A2}07BD1F408D0AD48D18D0CA10F4,5560kkA204BD2D400D27408D0AD49D16D0CA10F1A900854D68AA6840AE0540BD32401869158D1640BD394069008D17}40A90B8D,4685kk00408D0240A9028D0440AD07408D0340CE0340301DAD00408D0240205040203842AD16401869058D16409003EE17404C,7431kk}8045CE0440F00CCE0040AD06408D03404C8045AD8402F0FB6020D24520DD45204346209446207140A062A2E4A907205C,3048kkE460A204A9009DC40}2CA10F860A200A000A9008D0140BD00CC990050990150BD00CD990051990151BD00CE9900529901,6968kk52BD00CF990053990153BD04CC990054990}154BD04CD990055990155BD04CE990056990156BD04CF990057990157C8C8,5459kkE8EE0140AD0140C904D0AB8A186904AAD09F60A9018D3002A9478}D3102A9678D0002A9468D0102A9C08D0ED4A9508DF4,2400kk02A90C8DC50260488A48A206BDF1468D0AD48D18D0A9508D09D4CA10EFA208BDF8468D0}AD48D18D0A9548D09D4CA10EF,7552jj68AA684020D346A907A246A0A1205CE46020A7464C62E4CEF0461020EE0647EE0947D006EE0747EE0A47CEEE4}6D008CE,358kkEF46100320D346A9038DF046ADF0468D04D460A94B8D06478D0947A94B8D07478D0A47A92E8DEE46A9038DEF46600000,2022kk0}406040200000000000000000204060808707070F0524B4B524B4B410147A9008D00D0AD01D0A200A9009D00829D8082,7614jjE8D0F5A200BDCF479D0}882BDDD479D8882E8E00ED0EFA9808D07D4A9018D08D08D09D0A92E8D2F02A9038D1DD0A90818,306jj6D27408DC0028DC1026020A14720C04760A900}8D00D08D01D060A92A8DCD47A9348DCE4760ADCD471869148DCD47ADCE,962kk471869148DCE4720C04760ADCD4738E9148DCD47ADCE4738E9148DCE4}720C04760206147A277BD00829D0D82A9009D00,2866jj82BD80829D8D82A9009D8082CA10E760ADCD478D00D0ADCE478D01D06000001F18181818181}81818181818181F1F0303,393kk030303030303030303031F7FFFFF6AAAAB6AAAAB6AAAAB6AAAAB6AAAAB6A00AB60000B60820B60820B6A82AB68002B}60,3274kk140B607D0B607D0B60140B60000B65555B6AAAAB6AAAAB6AAAAB6AAAAB6AAAAB5555557FFFFF6AAAAB6AA2AB6A80AB6A,6200kk80AB6}AA2AB6AAAAB6A000B6800036080AB6280AB6A80AB6AAAAB6A80AB6A00AB6828AB68A2AB6882AB6A8AAB6E8AAB7F,7498kk8AAB7FAAAB6EAAAB5555557}FFFFF656AAB6A55AB69556B65556B65555B65555B65555B65555B65555B69555B6BD56B6A,3766kkD56B6AD5AB6AD5AB6AD6AB6AD6AB6AD6AB6AD6AB6}ADAAB6ADAAB6ABAAB6AAAAB5555557FFFFF6AAAAB6AAAAB66AA9B65,2714kk555B65555B69556B6BD7EB6C3C3B6C3C3B6C3C3B6BD7EB69556B65FF5B6}7775B67FFDB67775B67FFDB65775B69FF6B55,2391kk5557567D975ABEA75555557FFFFF6AAAAB6AAAAB6AAAAB60000B63FFCB63FFCB63FFCB60000B6}0000B603C0B603C0B60,3195kk000B60000B603C0B603C0B603C0B603C0B60000B6AAAAB6AAAAB6AAAAB6AAAAB5555557FFFFF6AAAAB6AD7AB6AD7AB6}A,4162kkD7AB6ABEAB6ABEAB6ABEAB6ABEAB6ABEAB6A7DAB6A7DAB69556B69556B697D6B6A7DAB69556B69556B697D6B69556B6A,1787kk55AB6A}96AB6AAAAB5555557FFFFF6AAAAB6A02AB6A22AB6A22AB6A02AB6A8AAB6A8AAB6800AB6A8AAB6A8AAB6A8AAB6A,2056kk8AAB6A8AAB6A8AAB6A8AAB6A}8AAB628A2B628A2B6800AB6A8AAB6A8AAB6AAAAB5555557FFFFF6AAAAB6AAABB6FAAFB6F,5127kkEAFB6FFAFB6EFAFB6EFEFB6ABEEB6AAFEB6ABFEB6A}FFFB6ACFFB6BCFFB6BFFFB6BFFFB6AFFEB69FDAB6975AB6955AB69,6049kk65AB69A9AB6AAAAB5555557FFFFF6AAAAB6AAAAB6AAAAB6AAAAB6AAAAB60}000B6AA2AB6AA2AB68028363F08363F00363,1006kkF02B6800AB6A22AB60000B60000B6AAAAB6AAAAB6AAAAB6AAAAB6AAAAB6AAAAB5555557FFFFF6A}AAAB6AAAAB6AAAAB6A,1922 kkF2AB6AB2AB6AA2AB6AA2AB6BF2FB6FE3EB6FE3EB6BF2FB6BF2FB6FE3EB6FA3EB6FE2FB6BF20B60A00B68002B68002B6A},7142kk00AB5555575555575555557FFFFF6AAAAB67FFFB66AABB66AABB66AABB66AABB65695B6A6BAB6A6BAB6A6BAB6A6BAB6A,4544kk6BAB6A6}BAB6A6BAB6A6BAB6A6BAB6A6BAB6A6BAB6A6BAB6A6BAB6A55AB6AAAAB5555557FFFFF6AAAAB67FFFB66AABB66,4890jjAABB66AABB66955B66BAAB66B}AAB66BFAB66ABAB66ABAB66ABAB6695AB66BAAB66BAAB66BAAB66BAAB66BAAB66BAAB66,437 iiBAAB655AAB6AAAAB5555550000000000000000000000}0000000000000000000000000000000000000000000000000000,35%kk0000000000000000000000257374610076657273694E6E0064650007342F3135}2500390026212D210700667565007265,7428*kk616C697A61646100706F721A00322F240032352222253200790022292C2C003925333425322421390C}00706172610065,2121/kk6C0073547074696D6F006E4D6D65726F006465006C610032253629333421003334212B0E0E0E0000000000356E006772,787}84kk616E0073616C75646F0070617261006E75657374726F7300636F6C61626F7261646F726573007900636F6C756D6E6973,69179kk7461730C007}9006100746F646F73006C6F7300717565006E6F730061706F79616E00636F6E0069646561730079007375,7512>kk676572656E6369617300636F6E737}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 SAUTORUN SYSB\CARJUMPNM65B lASSEMB8 SRCB yRUTINCARSRCB4YAPA003 EXEUUUUUUUUUUUUUTUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUT***)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}