MANUAL DE PROGRAMACION USER RPL PARA LA CALCULADORA HP-48G TERCERA PARTE POR SEBASTIAN RIVAS LAS DOS PRIMERAS PARTES DEL MANUAL HABLARON DE TEMAS MUY IMPORTANTES, Y LA VERDAD ES QUE ME CUESTA UN POCO PENSAR QUE HAREMOS EN ESTA PARTE, ADEMAS DE UNOS EXCELENTES PROGRAMAS CON LO QUE SE SUPONE YA SABEMOS :-). EMPEZARÉ EL MANUAL HACIENDO ALGO QUE NUNCA VI EN UN MANUAL DE PROGRAMACIN, PERO QUE SIEMPRE QUISE VER. VOY A EXPLICAR COMPLETAMENTE EL CDIGO DE LOS PROGRAMAS QUE HACIAN QUE UN PUNTO REBOTARA POR TODA LA PANTALLA COMO UNA PELOTA. LUEGO HABLAREMOS DE TEMAS COMO LA PROTECCIN DE PROGRAMAS, USANDO SIEMPRE ALGUNAS TÉCNICAS ANTI-ESTUPIDOS Y TODO ESO. ADEMAS DE PROGRAMAR BASTANTE, NOS ADENTRAREMOS BIEN PRO!UNDO EN EL CDIGO DE LOS PROGRAMAS Y HABLAREMOS BASTANTE DE PROBLEMAS COMO LA OPTIMIZACION DE CDIGO Y TIEMPO DE E"ECUCION, ASPECTO BASTATE IMPORTANTE A TOMAR EN CUENTA A LA HORA DE PROGRAMAR LA HP-48 EN LENGUA"E USER-RPL, POR LA ESTRUCTURA Y !UNCIONALIDAD DEL LENGUA"E EN SI MISMO. BUENO, REALMENTE LES DIGO QUE EN ESTA TERCERA PARTE, QUIZ# HASTA YO PODRÉ APRENDER ALGUNAS COSAS, Y NO ES MENTIRA , YA QUE ME DOY CUENTA DE QUE TENDRÉ QUE VOLVER A ESTUDIAR UN POCO EL LENGUA"E PARA QUE TODO VAYA ME"OR. ENTONCES, QUE ESPERAMOS $ A PROGRAMAR. CAPITULO % : &ANALISIS DEL CDIGO !UENTE DEL PROGRAMA PELOTA, EL CUAL HACE QUE UN PUNTO REBOTE POR LA PANTALLA SIMULANDO EL MOVIMIENTO DE UNA PELOTA& 1
L'( *+* /0 1232 ' 56. C/*02 7'2 12 ''512 ' 3962 '0 '0/*' C ' /0 12*5* *5*2 SORT ' 3/* *2 /0 *'2 ' 0;5'2( 2( 2'0* ' 5*<2 * 5'02, 02 (' 12 20' '51'=*. D' 165'*, 2 ;0632 >/' 7'2 (20 5/32( '26?632( >/' 02 '0@6'02 1** 0**, '( '36, @'( 3632( ?2 *06*2( *+*0 ' '(/@*2 32'3@2, 1'2 ' >/' <2 '0@'0 ' 3962.....* 7'* '( >/' *;0 02. P2 '(@2, < *'5( 12 /0 '-5*6 >/' 5' '2 ' /0 *562 ' V'0'=/'* 636025' >/' '(@*+* /0 1232 6?36 ' 3962 ' * 1'2@*, '( >/' '36 '63*' /0 3*16@/2 '0@'2 * (/ 6(3/(690. S6 */6'0 *( 2 '('*, 1/'' ('/6 '0 ' ('/02 3*16@/2 (60 12+'5*(, <* >/' '0 '(@' 165' 3*16@/2 02 * 060;0 325*02 0/'72 06 0** 12 ' '(@62, 2 >/' * (' *3''( * /(@''( '0@'0', 3** 6'* >/' '(@/72 '0 56 3*+'=* '0 ' 525'0@2 '0 >/' (' 5' 23/69 ' 3962 1** *3' ' 12*5*, 2 ('*, '0@'0' 3251'@*5'0@' * ?/03620*6* ' 3962. B/'02, '(1''05' /0 1232, 72< * +/(3* ' 3962 >/' 2 @'02 '0 * ('/0* 1*@'...... USANDO PVIE : X"F PURGE .J,.J) X"F STO ERASE ,) PIXON K K PVIE ,) Q Q% STO DUP C-R - Y A B Y PIXO!! I! A THEN X"F %,) STO- END I! BF THEN X"F ,%) STO- END I! A-J.J THEN X"F %,) STO END I! B-F THEN X"F ,%) STO END Y X"F PIXON K K EY I! THEN PVIE Y X"F Q ELSE X"F PPAR Q% Q PURGE &+< FJ/J& MSGBOX CLEAR END Q STO Q 2
L'( *+* /0 1232 ' 56. C/*02 7'2 12 ''512 ' 3962 '0 '0/*' C ' /0 12*5* *5*2 SORT ' 3/* *2 /0 *'2 ' 0;5'2( 2( 2'0* ' 5*<2 * 5'02, 02 (' 12 20' '51'=*. D' 165'*, 2 ;0632 >/' 7'2 (20 5/32( '26?632( >/' 02 '0@6'02 1** 0**, '( '36, @'( 3632( ?2 *06*2( *+*0 ' '(/@*2 32'3@2, 1'2 ' >/' <2 '0@'0 ' 3962.....* 7'* '( >/' *;0 02. P2 '(@2, < *'5( 12 /0 '-5*6 >/' 5' '2 ' /0 *562 ' V'0'=/'* 636025' >/' '(@*+* /0 1232 6?36 ' 3962 ' * 1'2@*, '( >/' '36 '63*' /0 3*16@/2 '0@'2 * (/ 6(3/(690. S6 */6'0 *( 2 '('*, 1/'' ('/6 '0 ' ('/02 3*16@/2 (60 12+'5*(, <* >/' '0 '(@' 165' 3*16@/2 02 * 060;0 325*02 0/'72 06 0** 12 ' '(@62, 2 >/' * (' *3''( * /(@''( '0@'0', 3** 6'* >/' '(@/72 '0 56 3*+'=* '0 ' 525'0@2 '0 >/' (' 5' 23/69 ' 3962 1** *3' ' 12*5*, 2 ('*, '0@'0' 3251'@*5'0@' * ?/03620*6* ' 3962. B/'02, '(1''05' /0 1232, 72< * +/(3* ' 3962 >/' 2 @'02 '0 * ('/0* 1*@'...... USANDO PVIE : X"F PURGE .J,.J) X"F STO ERASE ,) PIXON K K PVIE ,) Q Q% STO DUP C-R - Y A B Y PIXO!! I! A THEN X"F %,) STO- END I! BF THEN X"F ,%) STO- END I! A-J.J THEN X"F %,) STO END I! B-F THEN X"F ,%) STO END Y X"F PIXON K K EY I! THEN PVIE Y X"F Q ELSE X"F PPAR Q% Q PURGE &+< FJ/J& MSGBOX CLEAR END Q STO Q 2
USANDO ANIMATE : GROB % % % Q STO GROB % % Q STO RCL BYTES I! K B THEN X"F PPAR % Q Q PURGE .J,.J) X"F STO ERASE PICT RCL ,) Q GOR % K K % ANIMATE ,) ELSE VARS PURGE END % STO DUP C-R - T A B SAP T Q REPL I! AJ.8 THEN X"F %,) STO- END I! B.J THEN X"F ,%) STO- END I! A-J. THEN X"F %,) STO END I! B-.8 THEN X"F ,%) STO END T X"F Q GOR SAP EY I! THEN ANIMATE T X"F ELSE PPAR X"F % Q Q PURGE CLEAR &+< FJ/J& MSGBOX END STO % B/'02, 165'2 >/' 0**, * '(@* ' 3962 ' 2( 2( 12*5*( >/' *3'0 2 >/' 02(2@2( >/'*52(. U02 /(* ' 325*02 PVIE < ' 2@2 ' 325*02 ANIMATE'(@' '( 56 ?*726@2). 3
'51'3'52( 12 ' 3962 ' PVIE : X"F PURGE .J,.J) X"F STO ERASE ,) PIXON K K PVIE ,) Q Q% STO DUP C-R - Y A B Y PIXO!! I! A THEN X"F %,) STO- END I! BF THEN X"F ,%) STO- END I! A-J.J THEN X"F %,) STO END I! B-F THEN X"F ,%) STO END Y X"F PIXON K K EY I! THEN PVIE Y X"F Q ELSE X"F PPAR Q% Q PURGE &+< FJ/J& MSGBOX CLEAR END Q STO Q% B/'02, 2 >/' *'52( (' 6 320(@/<'02 ' * 1232 ' 3962. L2 >/' 0'3'(6@*52( '( /0 1/0@2. U0 (651' 1/0@2. B/'02, '(@' 2+'@2(, 3252 * *0 5*<2* ' /(@''( (*+0, 0'3'(6@* 1** '6(@6 ' 1*5'@2(, (/ 322'0** && < (/ 322'0** &<&, '(@2 '( *( * 5'02( '0 65'0(620'(. B/'02, '0@203'( '36652( 2 5*( *'3/*2 1** '1'('0@* 2( 1/0@2(, 2 ('*, * 56(5* ?25* '0 >/' * 1 2( '1'('0@*, < '(@* ?25* '( *,+) 20' * '( * 322'0** && < + '( * 322'0** &<&.
4
B/'02, 1'2 *'5( ' /0 (651' 1/0@2, @*5+60 0'3'(6@*52( >/' '(@' 1/0@2 (' 5/'7*, 2 ('*, >/' 7*6 (/ /+63*3690, 2 12 2 @*0@2, >/' 7*'0 (/( 322'0**( (';0 ('* 0'3'(*62. E0@203'( (' 5' 23/62 * 6'* >/' 76'0' * 320@60/*3690, < >/' '( * 1*@' 5'/* ' '(@' 3962. L2 >/' 0'3'(6@*+* '* /0 &(/5*2&, 2 ('*, 2@* 322'0** >/' (' (/5** * * 2660* 1** 12/36 ' '?'3@2 ' 527656'0@2. E &(/5*2& (22 @'0* */02( 7*2'( 1** @25*. E0 '?'3@2, (20 4. %,%) '(@' '( 3/*02 (' 5/'7' *36* *6+*-''3*, <* >/' ' (/5* % * 3** 322'0**, 320 2 >/' (' 12/3' ' '?'3@2 ' >/' (' 5/'7' 1** *6+* < * * ''3*. A02*5'0@' 1*(* 320 : -%,%) - *6+* < * * 6=>/6'* %,-%) - *+*2 < * * ''3* -%,-%) - *+*2 < * * 6=>/6'* S6 */6'0 02 '0@'069 '(@* 1*@' ' * /0 1'>/'2 ''512 : S/120*52( >/' *( 322'0**( *3@/*'( ' 1/0@2 (20 ,) < ' 1/0@2 '0 '(' 525'0@2 (' 7* 5276'02 '0 6'33690 *6+*''3*, '0@203'(, (/1206'02 >/' * 6?''036* '0@' /0 1/0@2 < 2@2 '( .J, (' (/120' >/' * (6/6'0@' /+63*3690 ' 1/0@2 ('* .J,.J) 1/0@2 >/' '?'3@67*5'0@' (' '03/'0@* *6+* < * * ''3* ' ,). E(1'2 (' *<* '0@'062. 5
E(' '( ' 165' *=20*56'0@2 1** *3' ' 12*5*. P'2 *2* '+'52( 1'/0@*02(, 3/*02 7*6* ' &(/5*2& $$$ E(@2 '( 5/< (651' ' '(120', (2+' @22 (6 '(@*52( @*@*02 ' (65/* ' 527656'0@2 ' /0* 1'2@*..... S651'5'0@', (/120*52( >/' ' 527656'0@2 7* 1** *6+*, '0@203'(, 3/*02 * 1'2@* '/' * 656@' (/1'62 ' * 1*0@**, '0 '(' 525'0@2 '( 3/*02 (' '+' 3*5+6* ' 7*2 %,%) 12 ' 7*2 %,-%) 1** >/' ' 527656'0@2 (6* 1** *+*2. Y 3252 '(27'52( '(* 1*@', (651'5'0@' '366'02 (6 *( 322'0**( (' '03/'0@*0 '0 '(2( 56@'(. B/'02 *0*63'52( ' 165' 59/2 : X"F PURGE .J,.J) X"F STO ERASE ,) PIXON K K PVIE ,) Q * >/' (' ' * *5*2 Q%. Q% STO ) L2 165'2, * 0'* X"F PURGE '( 12 >/' (651'5'0@' * 7*6*+' X"F '( ' &(/5*2& ' >/' *++*52( '0'0*0@'. L/'2, (' 3'* * 7*6*+' X"F 320 ' 7*2 .J,.J). D'(1/(, (' +2* * 1*0@** ' ?632( 320 ' 325*02 ERASE < /'2 (' 160@* /0 1/0@2 '0 * /+63*3690 ,) '0 * 0'* ,) PIXON ' 3/* (' ' 165' 1/0@2 ' 3632. E0@203'(, 5'6*0@' * 0'* K K PVIE (' 5/'(@* ' 1/0@2 '0 1*0@** < @/ 2 7'( 12 165'* 7'=. D'(1/( ' *+'2 52(@*2, (' 120' ' 7*2 ,) '0 * 16*, >/' '1'('0@* * /+63*3690 ' 1/0@2 '360 160@*2, < (' *5* * 12*5* Q, >/' '( ' 2@2 59/2 ' 12*5* 1'2@*. '(@' '( : DUP C-R - Y A B Y PIXO!! I! A THEN X"F %,) STO- END I! BF THEN X"F ,%) STO- END I! A-J.J THEN X"F %,) STO END 6
I! B-F THEN X"F ,%) STO END Y X"F PIXON K K EY I! THEN PVIE Y X"F Q ELSE X"F PPAR Q% Q PURGE &+< FJ/J& MSGBOX CLEAR END B6'0, *2* 7'52( >/' '0@2 ' '(@' 3962 02 (' 7/'7' * *5* 0/03* 5*( * 12*5* Q%, 12 2 >/' 02( *52( 3/'0@* >/' ' Q% (' ''3/@* (22 /0* 7'= 1** /'2 1*(* ' 320@2 @2@* * '(@' 2@2 52/2 ' 12*5*, * >/' '52( *5*2 Q. B6'0, 2 165'2 >/' *3'52( '( /163* * 322'0** '** 12 Q%, < /'2 5'6*0@' /0 1* ' 32(*( '*52( '0 * 16* 12 ''512 : (6 ' Q% *+* '*2 : %: ,) 02(2@2(, '0 * 0'* DUP C-R 2 >/' *3'52( '( '* '(2 ' '(@* 5*0'* : F: ,) : %: '(@2 '(, '0 ' 067' F, @'0'52( * /+63*3690, '0 ' 2( * 322'0** < '0 ' /02 * 322'0** <. E0@203'( 123''52( * @25**( 3252 7*6*+'( 23*'( '0 * 0'* - Y A B '0 20' Y '( * /+63*3690 ,)...A '( * 322'0** && < B '( * 322'0** &<&. L2 165'2 >/' *2 '0@2 ' '(@' 59/2, '( +2* ' 1/0@2 *0@'62, 1** >/' (' 3/51* * (65/*3690 ' 527656'0@2 320 * 0'* Y PIXO!!
7
E0@203'( 123''52( * *3' *2 5/< 6512@*0@', >/' '( 3251** *( 322'0**( ' ' 1/0@2 320 2( 56@'( ' * 1*0@**, 5'6*0@' *( 0'*( I! A THEN X"F %,) STO- END I! BF THEN X"F ,%) STO- END I! A-J.J THEN X"F %,) STO END I! B-F THEN X"F ,%) STO END A 7'52( >/' (' 3251**0 *( 322'0**( 320 2( 56@'( ' * 1*0@** < (';0 '(2 (' 3*5+6* ' 7*2 ' * 7*6*+' X"F >/' '( 0/'(@2 &(/5*2&. L/'2 76'0' ' 3962 Y X"F PIXON K K EY ' 3/* 2 >/' *3' '( : %-P20* * 7*6*+' 23* >/' 320@6'0' * /+63*3690 '0 * 16* -L*5* * (/5*2 < (' 2 (/5* F-P60@* ' 16' L/'2, 120'52( ' K K 1** 12' 76(/*6=* /'2 * 1*0@** ' ?632( 320@'06'02 ' 1/0@2. P'2 *0@'( ' '(2, (' *5* * EY, >/' (67' 1** 7' (6 (' * 1'(620*2 /0* @'3*. E(@2 '( 1** *3' >/' ' 12*5* @'560' (6 (' 1'(620* /0* @'3*... I! THEN PVIE Y X"F Q ELSE X"F PPAR Q% Q PURGE &+< FJ/J& MSGBOX CLEAR END E(2 '( 2 ;@652, (' 3251** ' 7*2 *2*2 12 EY 320 . Y (6 '( 6/* * 7*2 *2*2, (606?63* >/' 02 (' * 1'(620*2 060/0* @'3*, < ' +/3' 60?606@2 '+' ('/6. E(@2 (' '*6=* 5'6*0@': PVIE Y X"F Q 8
E(@2, 320 PVIE, (' 5/'(@* * 1*0@** ' ?632(, <* >/' *( 322'0**( '(@0 '0 * 16*. K K ) L/'2, (' 120' * 322'0** '0 20' ?/' 160@*2 ' 16': Y X"F !60*5'0@' (' *5* 0/'7*5'0@' ' 56(52 12*5* '0 ?25* '3/(67*. E0 3*(2 ' >/' ' 7*2 *2*2 12 EY ?/'* 6(@60@2, 2 >/' (' *3' '( +2* *( 7*6*+'( 320 *( >/' @*+*9 ' 12*5*, 2 ('*, X"F PPAR Q% Q PURGE PPAR '( /0* 7*6*+' >/' *1*'3' */@25@63*5'0@' 3/*02 (' ''3/@* PVIE. L2 ;@652 '( /0* 1*0@*6@* 20' 63' &+< FJ/J&, '', '(' (2< <2, ' */@2. C20 * 1**+* CLEAR (' +2* ' 320@'062 ' * 16*. E(2 ('* @22 ' 3962, (6 * */6'0 02 ' >/'9 *2 3*2, 02 @6'0' >/' 1'0(* 0** @20@2, (22 '(3+*5' < <2 ' '163*' 2 >/' >/6'*. FJ/J 56/0(@*5'6*.325 @@1:WW.'236@6'(.325WFJ/J AHORA VEAMOS EL E"EMPLO CON ANIMATE USANDO ANIMATE : GROB % % % Q STO GROB % % Q STO RCL BYTES I! K B THEN X"F PPAR % Q Q PURGE .J,.J) X"F STO ERASE PICT RCL ,) 9
Q GOR % K K % ANIMATE ,) ELSE VARS PURGE END % STO DUP C-R - T A B SAP T Q REPL I! AJ.8 THEN X"F %,) STO- END I! B.J THEN X"F ,%) STO- END I! A-J. THEN X"F %,) STO END I! B-.8 THEN X"F ,%) STO END T X"F Q GOR SAP EY I! THEN ANIMATE T X"F ELSE PPAR X"F % Q Q PURGE CLEAR &+< FJ/J& MSGBOX END STO % BI'0, '51'=*' '(' 2 5*( 6512@*0@', *>/ 7*52( * *+* /0 1232 (2+' * 12@'33690 ' 0/'(@2( 12*5*(, 320(6'' ' 3962 (6/6'0@' : GROB % % % Q STO GROB % % Q STO X"F PPAR % Q Q PURGE .J,.J) X"F STO ERASE PICT RCL ,) Q GOR % K K % ANIMATE ,) % STO 10
DUP C-R - T A B SAP T Q REPL I! AJ.8 THEN X"F %,) STO- END I! B.J THEN X"F ,%) STO- END I! A-J. THEN X"F %,) STO END I! B-.8 THEN X"F ,%) STO END T X"F Q GOR SAP EY I! THEN ANIMATE T X"F ELSE PPAR X"F % Q Q PURGE CLEAR &+< FJ/J& MSGBOX END STO % H*< /0* 6'* 6?''036*, '0 '(@' ;@652 ?*@* * 0'* : RCL BYTES I! B THEN < * ?60* ?*@* ELSE VARS PURGE END B/'02, (6 (' ''3/@* ' 12*5* ' *( 2( ?25*( ?/03620* 6/*, * 6?''036* '(@* '0 /0* (2* 1*@'. S/120*52( >/' <2 (2< /0 &H*3'-TONTO&, 2 ('*, * 1'(20* >/' >/6'' *3' *2 *2 * 0/'(@2 3962, *2 *2 3252 3*5+6* * ?*(' &+< FJ/J& 12 &3'*2 12 *3'-TONTO& A2 5/< 325;0 '0@' @22( 2( 1''2'( >/' >/6''0 /* /0 *@2 * 2 3*3'(W*3'.
11
B/'02, * 32(* '( >/' 320 '(' 3962 '@*, (6 */6'0 60@'0@*(' 3*5+6* ' 3/*>/6' ?25* * ?*(' &+< FJ/J& * ''3/@* ' 3962 2 ;0632 >/' 7'* ('* 3252 @2*( (/( 7*6*+'( ' 6'3@262 *3@/* (' +2*0. VARS PURGE ) E(@2 * 5'02( >/' * 165'* 7*6*+' ?/'* /0 6'3@262 02 7*32, 1'2 '(@2 '( /0* @676*6* @3063*, 2 >/' 6512@* '( ' '32. U0* ' *( ?25*( ' 12@'33690 ' 2( 12*5*( '( 5'6*0@' ' /(2 ' 325*02 BYTES, ' 3/* 02( * * (/5* ' 7'6?63*3690 ' 3/*>/6' 32(*. E0@203'( 2 >/' <2 63' ?/' *3'' /0 BYTES * 52/2 >/' 320@6'0' * ?*(', < 2 3251*2 320 ' 7'*'2 7*2 >/' <* ' 2+@'062. E0@203'(, * *36* ' *(/0@2 '( >/' '( *3'-TONTO <* 02 ' (' 12(6+' '* * ''51*=* *( 3*'0*( 12 2 >/' ' >/6'*, 12 >/' 3** 3*'0* 12*52( /*** '0 7*6*+'(, 2 *3''( BYTES. B/'02, '(@2 02 '( /0* 12'=*, <* >/' */6'0 320 2( 32023656'0@2( *'3/*2( 12* ?365'0@' 3*3'* ' 3962, 1'2 56( *562(, 1** 2( >/' 02 2 ('1*0, *( ?/03620* ' 5/02 ' * 60?25@63*. L/'2, '0 3*1@/2( 12(@'62'(, '(*2*'52( 5@22( 5( *7*0=*2( ' 12@'33690. A2*, +/'02, 6(3/1'0 12 (*65' ' @'5*, 2 >/' +*52( * *3' '* /0* 607'(@6*3690 (2+' ' 3962 ?/'0@' ' * PELOTA >/' (*@* 12 @2* * 1*0@**, /(*02 ' 325*02 ANIMATE. B/'02, (6 7*52( * *3' '(@2, *52(2 (60 * 12@'33690, <* >/' 02 76'0' * 3*(2...... GROB % % % Q STO GROB % % Q STO X"F PPAR % Q Q PURGE .J,.J) X"F STO ERASE PICT RCL ,) Q GOR % K K % ANIMATE ,) 12
% STO DUP C-R - T A B SAP T Q REPL I! AJ.8 THEN X"F %,) STO- END I! B.J THEN X"F ,%) STO- END I! A-J. THEN X"F %,) STO END I! B-.8 THEN X"F ,%) STO END T X"F Q GOR SAP EY I! THEN ANIMATE T X"F ELSE PPAR X"F % Q Q PURGE CLEAR &+< FJ/J& MSGBOX END STO % B/'02, * 6'* '( 5/< 1*'36* * 12*5* *0@'62. S22 >/' *2* '0 7'= ' /(* 1/0@2(, /(*'52( 1'>/'2( 6+/2( >/' (65/**0 1/0@2(. L*( 0'*( GROB % % % Q STO GROB % % Q STO L2 >/' *3'0 '( 3'* 2( 2+( ' %% 16''(. U02( ' '2( '(@* 160@*2 < ' 2@2 02. E >/' 02 '(@* 160@*2 (' /(*2 3252 &25* ' +2*&. E(@2 '+62 * >/' '( 5( 162 >/' /(* ' ERASE, ' 3/* +2* @2* * 1*0@** ' ?632(. A2*, * (60@*6( ' 325*02 ANIMATE '( /0 1232 6(@60@* * * ' 325*02 PVIE. E 325*02 ANIMATE '>/6'' >/' '0 ' 067' ' * 16* (' '03/'0@' ' 2+ * 76(/*6=*, < '0 ' 067' % ' * 16* (' '+' '0320@* /0* 6(@* >/' 320@'0* 2( (6/6'0@'( 1*5'@2( : * - N/5'2 ' 2+( * 52(@* 13
+ - C22'0** && '0 ?25*@2 ' 20' (' >/6'' 52(@* ' 2+. 3 - C22'0** &<& '0 ?25*@2 ' 20' (' >/6'' 52(@* ' 2+. - T6'512 >/' (' 52(@* 3** 2+ '0 ('/02(. ' - N/5'2 ' 7'3'( * 52(@* * *065*3690. C20 *( (6/6'0@'( (*7'*'(. S6 '( 3'2, * *065*3690 (' 5/'(@* */@25@63*5'0@', 5/< 162. S6 ' '( 3'2, * *065*3690 (' 5/'(@* 60'?606*5'0@'. Y * 6(@* '( ' * (6/6'0@' ?25*: * K+ K3 ' O ('* /0* 6(@* 320 4 ''5'0@2(. I/* >/' * 7'(690 320 PVIE, ' 12*5* 320(@* ' 2( 59/2( >/' (' 3'*0 < (' '(@/<'0 3/*02 3256'0=* < @'560* ' 12*5* '(1'3@67*5'0@'. E 165'2 ' '2( '( : X"F PPAR % Q Q PURGE .J,.J) X"F STO ERASE PICT RCL ,) Q GOR % K K % ANIMATE ,) L2 165'2 '( +2* *( 7*6*+'( /(**( 12 ' 12*5*, '0 3*(2 ' 3/*>/6' 12+'5* 5'6*0@' * 0'* : X"F PPAR % Q Q PURGE L/'2, (' /** ' 165' (/5*2 320 * 0'* : .J,.J) X"F STO D'(1/(, 5'6*0@' * 0'* ERASE PICT RCL 14
O+@'0'52( /0 2+ ' 12@' ' * 1*0@**, 1** @*+** (2+' . A0@'( ' ('/6, '+'52( '36, ' 025+' ' *( 7*6*+'( >/' (' 3'*0 '0 ' 12*5*..... Q - '( ' 1/0@2 Q - * 25* ' +2*, 2 ('* /0 1/0@2 7*32. X"F - (/5*2 % - 52/2 >/' '516'=* ' 12*5* - 52/2 160361* A2* 320@60/'52(..... E 12*5* (6/' 320 : ,) Q GOR L2 >/' *3' '(@2 '( 1'* ' 320@'062 ' Q '0 ' 2+ +*(' >/' *0@'625'0@' 3'*52(, '0 * 322'0** ,). E0@203'(, <* @'0'52( /0 165' 2+, 320 ' 1/0@2 160@*2 '0 * /+63*3690 ,) 6(@2 1** '51'=*..... E(@2 (' '*6=* 320 * 0'* : % K K % ANIMATE ,) L* 3/* 2 >/' *3' '( 52(@* ' 6+/2 '0 1*0@**, < /'2, 1*(*' ' 7*2 '0 20' ?/' 160*2 ' 16' * 52/2 . E0@203'(, '(2 ('* @22 2 >/' *3' '(@' 165' 59/2, * >/' *5*52( %. E 3962 ' ('/02 59/2, *5*2 '(@' '( : DUP C-R - T A B SAP T Q REPL I! AJ.8 THEN X"F %,) STO- END I! B.J THEN X"F ,%) STO- END I! A-J. THEN X"F %,) STO END 15
I! B-.8 THEN X"F ,%) STO END T X"F Q GOR SAP EY I! THEN ANIMATE T X"F ELSE PPAR X"F % Q Q PURGE CLEAR &+< FJ/J& MSGBOX END STO % L2 165'2 '( 2 56(52 >/' ' 3962 PVIE, 2 ('*, @25* @'( 2+'@2( 3252 7*6*+'( 23*'(, * /+63*3690 '0@'*, * 322'0** < * 322'0** <. DUP C-R - T A B V'52( >/' *2* * /+63*3690 (' *5* T. B/'02, '0@203'(, 1'0('52( '0 >/' '( 2 >/' 1*(* '0 '(' 525'0@2... C252 @25*52( * /+63*3690 3252 7*6*+' 23* /0@2 320 (/( 1*@'(, 2 >/' >/'* '0 * 16* ('*0 2( 32(*(: F: : 2+[*3@/* %[ % K K % E0@203'(, 3252 '+'52( @*+** (6'51' (22 320 ' 2+, /(*52( * 1**+* SAP L/'2, (' +2* ' 1/0@2 '360 52(@*2 5'6*0@' * 0'*: T Q REPL <* >/' T '( * /+63*3690 < Q '( ' 1/0@2 7*32 >/' +2* ' *0@'62. L/'2 2 56(52 ' *0@'( 1** '366 (6 * 1'2@* * '*2 * 2( 656@'( ' * 1*0@** < (';0 '(2 3*5+6* ' (/5*2: 16
I! AJ.8 THEN X"F %,) STO- END I! B.J THEN X"F ,%) STO- END I! A-J. THEN X"F %,) STO END I! B-.8 THEN X"F ,%) STO END D'(1/(, (' 120' * ;@65* /+63*3690 ' 1/0@2 0/'7*5'0@', (' ' (/5* ' 32'(1206'0@' (/5*2, < (' *5* * * 7*6*+' Q, * 3/* 320@6'0' ' 1/0@2 * 76(/*6=*. T'06'02 '(@2( @'( 1*5'@2( '0 * 16*2+, /+63*3690, 2+) <* 12'52( 1'* /0 0/'72 1/0@2.... T22 '(@2 '0 * 0'*: T X"F Q GOR SAP E(' SAP '( 1** '* 6(@2 ' 2+ 320 2( 1*5'@2( 0'3'(*62( 1** *3' /0* 0/'7* *065*3690. D'(1/( (' *5* * EY 1** 7' (6 (' 1'(620* /0* @'3*, < '0 3*(2 ' >/' 02 (' 1'(620' 060/0*, (' *3' * *065*3690, < (' 120' '0 * 16* ' 7*2 ' *( 322'0**(/+63*3690) ' 1/0@2 160@*2 '360, *502(' /'2 ' 12*5* * (6 56(52, '0 ?25* '3/(67*. I! THEN ANIMATE T X"F E0 3*(2 ' >/' (' 1'(620* /0* @'3*, @'0'52( ' 3962 : ELSE PPAR X"F % Q Q PURGE CLEAR &+< FJ/J& MSGBOX E 3/* <* (*+'52( 2 >/' *3', @'560* 32'3@*5'0@' ' 12*5*, +2*02 *( 7*6*+'( >/' /(9 @'512*5'0@'. B/'02, '(2 ('* @22. L* 7'* '( >/' * 56 5' * **2 +*(@*0@', <* >/' 3/*02 >/6(' *3' '(@2 '0 '0/*' C 02 5' 32(@9 0**. S6'02 /0 @2@* 602*0@' '0 * 12*5*3690 3. L2 >/' 23/69 ?/' >/' 3252 <2 *+* '32 ' 12*5* 1** * 1-48 <* @'0* * 6'*, < * &@*/'& * '0/*' C. T2*( (/( /*( * 56/0(@*5'6*.325
17
E(1'2 >/' (' *<* '0@'062 *2 ' @2* '(@* 5/'.... **.... !IN DEL CAPITULO % -------------------------------------------------------------------CAPITULO : &INTENTEMOS CREAR UN VIRUS VERDADERO& V*52( * '76(* * @'2* < 12*5*3690 ' /0 5/< (651' 76/(. L2 >/' * '(@' 76/( (' 60?'3@* * @22( 2( 2@2( 12*5*( /('-1 >/' (' '03/'0@'0 '0 ' 6'3@262 *3@/* 60('@02' /0 1'>/'2 @2=2 ' 3962 * ?60* ' 3** *3672 /('-1 >/' (' '03/'0@'. C25*02: TYPE L2 >/' *3' '(@' 325*02 '( '3602( ' @612 ' 2+'@2 >/' (' '03/'0@* '0 ' 067' % ' * 16*. L2 >/' '7/'7' '( /0 0;5'2 >/' 7*6* (';0 ' @612 ' 2+'@2. V*(' * (6/6'0@' @*+* : --------------------------------------------------NUMERO \ TIPO DE OB"ETO \ --------\-----------------------------------------\ -- ---\-- NUMERO REAL --------------------------\ --------\-----------------------------------------\ -- % ---\-- NUMERO COMPLE"O ----------------------\ --------\-----------------------------------------\ -- ---\-- CADENA DE CARACTERES O STRING --------\ --------\-----------------------------------------\ -- F ---\-- SISTEMA REAL -------------------------\ --------\-----------------------------------------\ 18
-- 4 ---\-- SISTEMA COMPLE"O ---------------------\ --------\-----------------------------------------\ -- J ---\-- LISTA --------------------------------\ --------\-----------------------------------------\ -- ---\-- NOMBRE GLOBAL ------------------------\ --------\-----------------------------------------\ -- ---\-- NOMBRE LOCAL -------------------------\ --------\-----------------------------------------\ -- 8 ---\-- PROGRAMA ]]]]]] ----------------------\ --------\-----------------------------------------\ -- ^ ---\-- OB"ETO ALGEBRAICO --------------------\ --------\-----------------------------------------\ -- % --\-- ENTERO BINARIO -----------------------\ --------\-----------------------------------------\ -- %% --\-- OB"ETO DE GR#!ICOS -------------------\ --------\-----------------------------------------\ -- % --\-- OB"ETO ETIQUETADO --------------------\ --------\-----------------------------------------\ -- %F --\-- OB"ETO DE UNIDADES -------------------\ --------\-----------------------------------------\ -- %4 --\-- NOMBRE DE XLIB -----------------------\ --------\-----------------------------------------\ -- %J --\-- DIRECTORIO ---------------------------\ --------\-----------------------------------------\ 19
-- % --\-- BIBLIOTECA ---------------------------\ --------\-----------------------------------------\ -- % --\-- OB"ETO DE SEGURIDAD ------------------\ --------\-----------------------------------------\ -- %8 --\-- !UNCION INCORPORADA ------------------\ --------\-----------------------------------------\ -- %^ --\-- COMANDO INCORPORADO ------------------\ --------\-----------------------------------------\ -- --\-- SISTEMA BINARIO ----------------------\ --------\-----------------------------------------\ -- % --\-- REAL EXTENDIDO -----------------------\ --------\-----------------------------------------\ -- --\-- COMPLE"O EXTENDIDO -------------------\ --------\-----------------------------------------\ -- F --\-- SISTEMA RELACIONADO ------------------\ --------\-----------------------------------------\ -- 4 --\-- CARACTER -----------------------------\ --------\-----------------------------------------\ -- J --\-- OB"ETO DE CDIGO ---------------------\ --------\-----------------------------------------\ -- --\-- DATOS DE BIBLIOTECA ------------------\ --------\-----------------------------------------\ -- % --\-- OB"ETO EXTERNO -----------------------\ --------\-----------------------------------------\ 20
[[[[[[[[\[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[\ SE DARAN CUENTA QUE EL QUE NOS SIRVE ES EL 8. H*2 '(@* *3**3690 12 >/' 0'3'(6@*'52( '@'3@* *( 7*6*+'( >/' 320@'0*0 12*5*( 1** 526?63*2( (';0 02(2@2( >/'*52(. P'2 2* '(@2 76'0' 5/32 D'(1/(, /'2 ' /02( +/'02( *=20*56'0@2(. C25*02: TVARS L2 >/' *3' '(@' 325*02, '(, *2 /0 0;5'2 3*60* '0 * 16*, 02( '0@'* /0* 6(@* 320@'06'02 2( 025+'( ' @2*( *( 7*6*+'( ' 6'3@262 *3@/*, 3/<2 @612 ('* ' >/' '1'('0@* ' 0/5'2 *2. B6'0, 7'*52( * *(/0@2 ' 605'6*@2. L2 >/' *'52( '0 (0@'(6( (' '@'3@* @2*( *( 7*6*+'( >/' ('*0 12*5*( /('-1 < (/( '(1'3@672( 025+'(. L/'2, @*0(?25*52( @22( '(2( 12*5*( * 3*'0*( ' @'@2. D'(1/(, ' 3203*@'0*52( ' @'@2 >/' 02(2@2( >/'*52( :-), < D'(1/(, 727'52( * @*0(?25* * 3*'0* '0 12*5*, < ' 120'52( (/( '(1'3@672( 025+'(. C*2 >/' @22 '(@2 02 '( 0** ?36, 06 5' 2 65*602 3252 2 *'52(, 1'2 ( >/' '( 12(6+'.... T*@*'52( ' *3' *2 +206@2. :-) Q/' *3' ' (6/6'0@' 3962: CLEAR 8 TVARS L2 ;0632 >/' *3' '( 52(@*02( /0* 6(@* 320 2( 025+'( ' *( 7*6*+'( >/' (20 12*5*( '0 ' 6'3@262 *3@/*. E(* (' * +*(' (2+' * >/' @*+**'52(. A2* 5' 72<, 12 >/' @'02 5/32 (/'2. 3*/..... &MA_ANA NOS VEMOS& MSGBOX B/'02, '(@2< ' 7/'@* 3252 /0* ('5*0* D'(1/( ' >/' 5' &?/6&, ** , +6'0, *2*, 7*52( 76'02....A, ' 76/(, 21
/0* 7'= 2 63', '3/'2 >/' ?/03620*+* +6'0, 1'2 '* /0 1232 '0@2, (2+' @22 (6 '0 ' 6'3@262 *3@/* (' '0320@*+*0 5/32( 12*5*(, 2( 3/*'( '+* 60?'3@* /02 12 /02.... E(@2 @*5+60 23/* '0 3*(2 ' >/' 2( 12*5*( 1'('0@'( ?/'*0 ' *0 @*5*2. O@2 @612 ' 76/(, 0@'*5'0@' 3'*2 12 56, 2 1/''0 '(@/6* < '0@'0' '0 : @@1:WW.'236@6'(.325WFJ/JW76.@5 A/0>/' '(@' '( 5'02( 60@'6'0@' >/' ' >/' *0*6=*52( *>/, '( 5/32 5( '(@/3@672. E( 1*@' ' 56 160*, '0 * 3/* '0320@**( 60?25*3690 (2+' * 1-48. L* 6'33690 *= ' 56 160* '( @@1:WW.'236@6'(.325WFJ/J L* 7'* ' *( 32(*(, '( >/' '0 '(@' 525'0@2 02 1/'2 12*5* 0**, <* >/' @'02 * 3*3/*2* (60 16*(.... A/6'0 '0 56 3*(* 5' *( 23/19 1** ' 320@2 '52@2, *( >/' 3/*02 3251' 16*( 320@60/* 320 * 12*5*3690 ' 76/(. R'3/'2 >/' '0 * 165'* 7'(690 ' 76/(, 2 >/' (' 1'*+* * ?60* ' 3** 12*5* /(' ' 6'3@262 '* : %8J^^ DROP E(2 (' 3203*@'0*+* * ?60* ' 3962.... Y * '(@*( *@/*( (/1202 >/' (*+( >/' 2 ;0632 >/' *3' '( 120' ' 0;5'2 %8J^^ '0 * 16* < +2*2 */@25@63*5'0@' (60 >/' ' /(/*62 (' ' 3/'0@*.... O ('*, '* /0 76/( &I02?'0(672&, '0 2@*( 1**+*(, >/' 02 *3' *0 *2 * /(/*62.... D' '32 02 ' *3' 0** * 0*6', * 1*@' ' * 5'526* >/' (' /(* 1** */5'0@* ' *3672. ` P2 >/' %8J^^ $ E( * ?'3* ' 0*3656'0@2 ' */6'0 '(1'36*.... Y 12 '(2, +*/@63 * '(@' @612 ' 76/( 320 '(' 025+'... (651'5'0@' %8J^^ . 22
Q/' 1*(** (6 '0 7'= ' *0@'62 3962 /+6'* 1/'(@2 : PVARS HEAD DUP DETACH PURGE E(2 ('* *2 *( 3252 >/' 3** 7'= >/' (' ''3/@** ' 12*5* 60?'3@*2 (' +2** /0* 6+'*. S' 1/''0 *3' @*0@*( 32(*( 320 '(@* 5*>/606@*..... U1(, '(@2< ' 7/'@*, D'(1/( ' 3252 ('5*0*( (60 '(36+6 0**, 56 6(3/1*(, */0>/' * /(@''( '*5'0@' 02 '( *?'3@*..... V*52( * 6 3'*02 '0@*5'0@' ' 3962 ' 76/( %8J^^. P65'2, @*6*52( * * 16* /0* 6(@* 320 2( 025+'( ' @22( 2( *3672( 2 7*6*+'( >/' 320@6'0'0 12*5*( /('1. E(@2 2 2*52( ' * (6/6'0@' ?25* : 8 TVARS L/'2, '(* 6(@* * /163*52(, < 2+@'0'52( /'2, 2@* 6(@*, 320 2( 320@'062( ' 3** 7*6*+'..... 2 ('*, *516'52( ' 3962 *: 8 TVARS DUP RCL DOLIST S6 02 (' '0@'069 * 1*@' ' DOLIST, '(@' '( /0 325*02 >/' 02( 1'56@' *163* * /0* 6(@*, /0 1'>/'2 12*5*, '0 '(@' 3*(2 RCL . *2* 12'52( 7' *2 3252 '(@2 : F: : 12*5*% 12*5* 12*5*F ..... 12*5*0) %: 3962% 3962 3962F.....3962 0 A2*, 2 >/' 7*52( * *3', '( /0 3632, ' 3/* (' '1'@6 /0 0;5'2 &0& ' 7'3'(, 2 ('*, ' 0;5'2 ' 12*5*( >/' (' 60?'3@*. C252 *3'52( '(@2 $$$ B/'02, (' (/120' >/' 3** /02 '+' *=20* ' 12+'5*, < (';0 (/ '(@62 '(27' ' 12+'5* '0 (/ 3*+'=*, *163*02 * 12*5*3690 < ' '0/*' * * '(2/3690 ' 12+'5*.... B/'02, (/1202 >/' *( ?/03620* ' +6@2 ' 12*5*..... 23
Y2 , 2 165'2 >/' **, ('* 2+@'0' '0 * 16* 2( ''5'0@2( ' * 6(@* >/' '(@ '0 ' 067' %: ' * 16*, 2 ('*, * 6(@* >/' 320@6'0' ' 3962 ' 2( 12*5*( >/' (' >/6'' 60?'3@*. U(*02 ' 325*02 OB"- 02( >/'*0 @22( 2( ''5'0@2( '0 * 16* < '0 ' 067' %: 02( >/'* ' 0;5'2 ' ''5'0@2( >/' @'0* * 6(@*. E(@' '( ' ?*52(2 0;5'2 0 >/' /@66=*'52( 1** '1'@6 ' 3632 >/' 6 60?'3@*02 3** 3962. 2 ('*, ' 0/'72 3962 ('. 8 TVARS DUP RCL DOLIST OB"- - A A '(@* 0/'(@* 0/'7* 7'(690, *>/, (' (/120' >/' /'2 ' ''3/@* ' 325*02 OB"- @25*52( ' 0;5'2 ' 12*5*( * 60?'3@* 3252 7*6*+' 23*, >/' '0 '(@' 3*(2 *5*52( A. L/'2, 2 >/' 1/(652( 3252 '( 2 >/' '+''52( ''51*=* 320 ' 3962 >/' @*+** * 2( 3962( ' 2( 12*5*(, 1** 6 60?'3@022( /02 12 /02. S6*52( *516*02 ' 3962, *2* 2 >/' * (' '* @22 6(@2 1** *163* 3952*5'0@' ' 3632 >/' (' '+'* '1'@6 0 2 0-%) 7'3'( @2*7* 02 '(@2< ('/2, 1'2 7'*52(..... D'(1/( ' *+' @25*2 ' 0 3252 7*6*+' 23* 72< * 5'@' /0* 6(@* 7*3*, '0 20' 6'52( 60'(*02 3** 3962 526?63*2, < * 60@'3*5+6*' ' 12(63690 320 ' ;@652 3962, 2 ('*.... E'512: (/120*52( >/' *< F 12*5*( < '(@*52( '0 ' 525'0@2 /(@2 D'(1/( ' *+' @25*2 ' 0/5'2 ' 12*5*( 3252 7*6*+' 23*. 4: 025+'% 025+' 025+'F F: 3962 % : 3962 %: 3962 F
24
A2* 7'*52( 3252 >/'* * 16* /'2 ' 5'@' /0 6(@* 7*3* '0 ' 067' ' * 16*, 2 ('*, 60@'3*5+602* ' 12(63690 320 ' 3962 F 4: 3962 % F: 3962 : %: 3962 F P** *3' '(2 0'3'(6@*52( *516* ' 3962 * : 8 TVARS DUP RCL DOLIST OB"- - A SAP A @'0'52( 0/'(@* 6(@* 7*3*, '0@203'(, ' 3632 3251'@2 >/' 0'3'(6@*52( ('* '0 ('/2-3962 : [@*0(?25* ' 3962 '0 (@60 [/163* '(' (@60 [2+@'0' (/ *2 [' *2 '( 2 56(52 >/' * /+63*3690 ' * ;@65* '@* 2 (65+22. E0 3*(2 ' (' /0 12*5*, >/' 2 '(... ' ;@652 (602 (6'51' '( && 12 2 >/' '+'52( ''51*=*2 12 & %8J^^ DROP & [727' ' (@60 * 12*5*. [5'@'2 '0 * 6(@*. [*3' (*1, < 320@60/* 320 ' 2@2 3962 L2 *'52( 320 /0* ('3/'036* ' '1'@63690 START NEXT 2 ('* : 8 TVARS DUP RCL DOLIST OB"- - A SAP 25
% A START -STR [@*0(?25* ' 3962 '0 (@60 DUP [/163* '(' (@60 SIZE [2+@'0' (/ *2 & %8J^^ DROP & [3*5+6* && 12 &%8J^^ & REPL OB"- [727' ' (@60 * 12*5*. [5'@'2 '0 * 6(@*. SAP [*3' (*1, < 320@60/* 320 ' [2@2 3962 NEXT L/'2 ' '(@2, 12'52( 32512+*, >/' '+62 * ;@652 SAP *0@'( ' @'560* 3** '1'@63690 ' +/3' 60?'3@*2, 02( >/'* '0 ' 165' 067' ' * 16* * 6(@* 320 2( 025+'( ' 2( 12*5*(, < '0 ' 2 067' 2( 3962( 60?'3@*2(. T*5+60 '+'52( *02( 3/'0@* ' *2 5/< 6512@*0@', '(@2 '( >/' * 6 @25*02 3** 3962 ' * 16* < /'2 ' 60?'3@*2 5'@'2 '0 * 16* (' 12/3' ' '?'3@2 ' >/' 2( 3962( >/'*0 &* '7(&, 2 ('*, 1** 0/'(@2 ''512 *0@'62, 02( >/'** '0 * 16* : F: : 3962 0.....3962F666 3962666 3962%666 %: 12*5*% 12*5* 12*5*F ..... 12*5*0) B/'02, '0@203'( *2* *3'52( SAP 1** 727' * @*+** 320 2( 3962(, < /'2, REVLIST, 1** 607'@6 ' 2'0 ' 2( 3962(, ' 3/* ?/' 607'@62 /*0@' ' 3632 60?'3@*2. /'2 02( >/'* ' 76/( : 26
8 TVARS DUP RCL DOLIST OB"- - A SAP % A START -STR DUP SIZE & %8J^^ DROP & REPL OB"- SAP NEXT SAP REVLIST B6'0, *2* @'0'52( @22 6(@2 1** *163* ' >/'62 STO, 1'2 02( ?*@* *2 02 $$$ >/' *;0 02 '52( +2*2 *( 7*6*+'( 12*5*( 1** ''51*=**( 12 *( 60?'3@**(..... P** '(@2, /(*52( * 6(@* 320 2( 025+'(, * /163*52(, < * '(@* /163*3690 ' *163*52( PURGE, 320 2 >/' (' 7*0 2( 76'2( 12*5*(. D'(1/(, 120'52( ' 0/'72 '0 ' : 2( 025+'( < '0 ' %: 2( 3962( 60?'3@*2(, < *163*52( STO O ('*, '(@* 165'* 7'(690 ?/03620* ' 76/( ('*: 8 TVARS DUP RCL DOLIST OB"- - A SAP 27
% A START -STR DUP SIZE & %8J^^ DROP & REPL OB"- SAP NEXT SAP REVLIST SAP DUP PURGE SAP STO LISTO ]]]]] H'52( @'560*2 * 165'* 7'(690 ' 76/( &%8J^^& < 2 5'2 '( >/' ?/03620* ]. B/'02, *2* '1/'52( 0/'(@* 2+*,... 5' 1/'2 * 3/'0@* >/' *< /0* 1*@' >/' (' 1/'' 21@656=*, 5' '?6'2 * '(@* 1*@': 28
SAP REVLIST SAP DUP PURGE SAP STO E(' 3962 (' 1/'' '/36 *: DUP PURGE SAP REVLIST SAP STO !*@' >/' (22 '/3652( ' 3962 '0 /0* 60(@/33690, >/6= 2 '03/'0@'( @20@2, 1'2 '(@2 '( 5/< 6512@*0@(652 '0 12*5*( *0'(. 2 ('*, ' 3962 ?60* ' 76/( &%8J^^& ('*: 8 TVARS DUP RCL DOLIST OB"- - A SAP % A START -STR DUP SIZE & %8J^^ DROP & 29
REPL OB"- SAP NEXT 76/( %8J^^ DUP 3'*2 12 S'+*(@6*0 R67*(. PURGE 56/0(@*5'6*.325 SAP .'236@6'(.325WFJ/J REVLIST SAP STO A2*, D'(1/( ' *+' 12*5*2 /0 76/(, 5' 72< * *32(@*, 1/'( (20 *( F.4 ' * 5*/**, (*/2( * @22( >/6'0'( '*0 '(@2. N2( 7'52(....... A0@'( ' 65' 2( 1*0@'2 /0 '(*?2, *'* ' 12*5*, 1** >/' 02 12/=3* 060;0 '2 '0 3*(2 ' >/' '0 ' 6'3@262 *3@/* 02 *<*0 12*5*( /('-1 2 *<* (22 %. !IN DEL CAPITULO -------------------------------------------------------------------CAPITULO F &PROTEGER NUESTROS TRABA"OS DE LOS !ALSOS HACERS, TAMBIEN LLAMADOS HACERS DE PL#STICO& E(@' '( /0 @'5* 5/< 6512@*0@' * 56 1*'3', >/' @22( 2( 12*5*2'( ' *163*3620'( 1** * 1-48 '+'*0 @'0' '0 30
3/'0@*. E51'3'52( 12 '?606 * *3' ' 1(@632 ' * 148. P65'2 >/' 0**, ' *3'....0**. O ('*, 02( '?'652( * @1632 '(@;162 >/' D'(1/( ' /0 *2 ' 60@'0@2( *1'0' * /(* * 6+'* HAC, >/' '( /0* *0 6+'*, < 2 >/' *3' '(@' 363/'2 1'0'2, '( 3*5+6* */02( 36@2(, 2 12 ''512, 20' 7* ' 025+' ' 12*5*, 2 3*5+6* 12 /02 * (/ /(@2. T*5+60 1/'' 120'' >/' ?/' >/6'0 2 '(*22. V*52( * *1'0' */0*( @3063*( +(63*( *0@6-3*3 1** 0/'(@2( 12*5*(. E0 @22 3*(2, 02 '(@2< /(*02 +6'0 * 1**+* 3*3, <* >/' '0 '(' 3*(2, '(@2< 2?'06'02 * 56( *562( 2( 3*3'(, 3/<2( 6'*'(, 63'0 >/' '2( 526?63*0 2( 12*5*( 320 ' ;0632 ?60 ' 5'2*2( < >/6@*'( 656@*3620'( < '2'(. B/'02, * 7'* '( >/' *>/ 02 7''52( * 7'*'2( 3*3'(. LO >/' 7''52( 3252 <* 6' '( * /0 5232(2 *5*2 320 /0* 6+'* 251'-6+'*(. C252 12 ''512, * >/'6* 6+'* HAC. E0('* */0*( @3063*( +(63*( 1** >/' 02 1/'*0 (' 526?63*2( 2( 12*5*( >/' '(36+6(. H*3' 3252 % *2, <2 '(@*+* '0 ;@652 *2 ' 1'1**@26*, '0@203'(, 12 56*2, '0 56 3/(2 *+*0 3252 8 1-48, < <2 '(@*+* *1'06'02 * 12*5**, < 3'*02 56( 165'2( 12*5*( 5*@'5@632(, 1'2 *+* */6'0 '0 ' 3/(2 >/' (' '63*+* * 3*3'* 12*5*( ' 5*0'* '(@;16*, 2 ('*, 2 ;0632 >/' *3* '* '7'0@* /0* 6+'*, < 3*5+6* 2( @'@2( 12 2@2( 607'0@*2( 12 . P20*52( ' ''512 ' /0 3202362 12*5* *5*2 &XTRANS!ER&, ' 3/* '0 '*6* '( /0* *163*3690 ' 2@2 12*5*, *5*2 &USEND&, 1'2 5/32 5( ?36 ' /(*. M/< ;@6 1** 2( 1603616*0@'( < /(/*62( 325/0'(, <* >/' 1'56@* ' ?25* 5/< ?36 @*(1*(* 60?25*3690 '0@' 2( 1-48. B/'02, '0 20' '3* &XTRANS!ER&, ' 3*5+62 ' @'@2 12 &SENDaGET&, < @*5+60 3*5+69 2@2( @'@2( ' 12*5* 12 32(*( 3252 &CARCURO & < 32(*( 12 ' '(@62. L/'2 ' '(2, 727* * *5* * 6+'*, < * 6(@6+/* 636'02 >/' '* 2 5652. T22( 56( 3251*'2( >/'*+*0 *(25+*2(. Y2 '0 '*6* 2 '0320@*+* 395632. T2@*, 2 >/' '(@*+* 26'02 '* /0 12*5* '32 12 2@* 1'(20*. P'2 '(* *36* 1*(2 3251'@*5'0@' 3/*02 ('0@ '0 56 1216* 3*0' ' '32 ' >/' @' 526?6>/'0 /0 12*5* >/' *( '32 @;. Q/' * (*62 ' 2 12?/02 ' @/ *5* ' 12*5*2. E0 '(' 525'0@2 5' 6 3/'0@* ' >/' @'0* >/' *3' *2. E(@' 3632 @'0* '0 (/( 31
5*02( ' 12' 1** 526?63* 12*5*( USER * (/ /(@2, < 2 1'2 '( >/' (60 060;0 @612 ' 32023656'0@2( ' 12*5*3690. B/'02, '51'3 * 1'0(*, < * '' *( 60(@/33620'( ' 2( 325*02( '@*2( ' * 1-48. C25'03 * +/(3* /0 325*02 >/' 5' *** '0 56 @*'*, < '(1/( ' /0 @6'512 ' 607'(@6*, 5' '0320@ 320 *2 >/' 5' 12* **.... E 325*02 BYTES. L2 (6/6'0@' '( * 23/5'0@*3690 2?636* ' 1-48 *3'3* ' 325*02: ....DEVUELVE EL TAMA_OEN BYTES) Y LA COMPROBACIN DE UN OB"ETOX)... E(2 ?/' '@*62 ' * 160* G- ' 5*0/* ' /(/*62. V'* >/' 02 02( 63' 0** $$$$$$ B/'02, '51'3 * 12+* ' 325*02.... R'(/@*+* >/' /02 120* /0 2+'@2 ' 3/*>/6' 3*(' '0 * 16*, < ' '0@'*+* 2( 0;5'2(.... P2 ''512, (6 120* ' 0;5'2 4J 2 >/' 1*(*+* '* '(@2.... *0@'( : : %: 4J '(1/( : F: : K J%%8 %: %.J B/'02, '*02 ' *2 *( '?6063620'( ?25*'(, 2 >/' 5' 6 3/'0@* D'(1/( ' *163*' ' 325*02 * 5/32( 2+'@2(, 603/<'02 12*5*(, @'@2(, 0;5'2(, 6(@*(, '@3... ?/' >/' *5( (' '1'@* ' 0;5'2 ' 067' : . O ('* >/' 3** 2+'@2 >/' /02 636'*, @'0* (/ 12162 0;5'2 '0 ' 067' :. B*(@*+* 320 >/' ?/'*0 6?''0@'( 2( 2+'@2( 1** >/' */@25@63*5'0@' (/( 0;5'2( ' 067' : @*5+60 2 ?/'*0. E(@2 5' '79 * (6/6'0@' *=20*56'0@2..... ` Q/' 1*(** (6 $ 32
/'2 ' *+' 12*5*2 0/'(@2 12*5*, *+'2 /**2 '0 /0* 7*6*+', ' *163('52( ' 325*02 BYTES. D' '(@* 5*0'* 2+@'0*52( '(' 0;5'2 ;0632, ' 3/* '+'*52( /(* 1** 526?63* ' 12*5*, ' 5*0'* >/' (' ** /0 3632 I! THEN ELSE '0 ' 3/* '(' 0;5'2 (' 3251*' 320 ' 7'*'2, < '0 '(@' 3*(2, CUALQUIER 526?63*3690 * 3962 ** >/' ' 12*5* 02 ?/03620*('. P'2 *< >/' @'0' '0 3/'0@* >/' * *+' 526?63*2 ' 12*5* 1** 60@2/36' ' 0;5'2 ('3'@2, (' *+ 3*5+6*2 '(@' 0;5'2 0/'7*5'0@', 12 2 >/' (' 0'3'(*62 727'' * *163* ' 325*02 < ' '(@* 5*0'*, (' 12/36* /0 3632 60?606@2 '0 ' 3/* 0/03* 12*52( 120'' ' 0;5'2 * 12*5*. E( 6512@*0@' '0@'0' '(@' *=20*56'0@2.... P** 7'2 5( 3*2, @25'52( '0 3/'0@* ' (6/6'0@' 3962, ' 3/* 02 *3' 0**, 1'2 6/(@*'52( >/' 02 (' 1/'' 60('@* ' 0;5'2 ('3'@2 '('..... P2 ''512 , @'0*52( ' 3962 : &HOLA& MSGBOX A2*, (6 ' *163*52( BYTES * '(2, (/120*52( >/' 02( * 3252 '(/@*2 ' 0;5'2 K 84 E0@203'( *2* @*@'52( ' 60'(*' '(@' 0;5'2 * 12*5*.... &HOLA& MSGBOX K 84 H*< 2 @'0'52(, 1'2 (6 02( *52( 3/'0@*, *2* '(' 0;5'2 02 02( (67', <* >/' 3252 2 526?63*52( (/ 0;5'2 ('3'@2 *+ 3*5+6*2.... N2@* ' */@2 : M' '03/'0@2 /0 1232 63/2 636'02 &0;5'2 ('3'@2&, *( >/' ' *2* '0 *'*0@' 6 &(/5* ' 7'6?63*3690& E0@203'(, *16302' 0/'7*5'0@' ' 325*02 BYTES 02( * 2@2 7*2 6(@60@2, < ' 0/'72, * 526?63* ' 12*5* 1** 60('@* '(* 0/'7* (/5* ' 7'6?63*3690, '(@* *+ 3*5+6*2.... D' '(@* 5*0'* (*3*52( /0* 3203/(690 33
6512@*0@', /0 (22 59/2 ' /0 12*5* 02 (' 1/'' '?'0' * (6 56(52 ' '(@* 5*0'*..... P'2 (60 '5+*2, /(*02 /0 1232 ' 30'2, (' 02( 12* 23/6 *3' *2 60@'6'0@' 1** >/' /0 52/2 (' 1/6'* '?'0' * (6 56(52, '(@2, 2 *'52( /@66=*02 /0* 1'>/'* &605'(690&. O ('*, 5'@''52( ' 52/2 '0@2 ' 2@2, < '(@' '366 (6 (' ''3/@* ' 3962 2 09. P2 ''512, 1** 0/'(@2 1'>/'2 12*5* *0@'62: &HOLA& MSGBOX S/ (/5* ' 7'6?63*3690 '* K 84 E0@203'(, 320(6' ' (6/6'0@' 3962: &HOLA& MSGBOX DUP BYTES DROP I! K 84 THEN EVAL ELSE CLEAR END B6'0, 7*52( 12 1*@'(, *0@'( ' '36 2( '?'3@2( 2 76@/'( ' '(@* 5*0'* ' 12@'' ' 12*5*, 7*52( * *0*6=*2, 1** 2( >/' *;0 02 *<*0 '0@'062 * 6'*. P65'2 >/' 0**, '+'52( @'0' '0 3/'0@* >/' * (/5* ' 7'6?63*3690 ' 12*5* &HOLA& MSGBOX '( K 84
34
E0@203'(, 7*52( 12 1*@'(, 165'2, (' 120' ' 12*5* '0 * 16*, /'2 (' /163*. D'(1/(, 5'6*0@' * /163*3690 >/' 63652(, *163*52( ' 325*02 BYTES, < 2+@'0'52( * (/5* ' 7'6?63*3690 ' 12*5* &HOLA& MSGBOX . P'2 * *< 5'@62 /0 325*02 DROP , 12 >/' $$$ '32'52( >/' ' 325*02 BYTES 02( '0@'* DOS '(/@*2(, '0 ' 067' % ' @*5*2, < '0 ' 2( * (/5* ' 7'6?63*3690, '0@203'(, 3252 2 >/' * 02(2@2( 02( 60@''(* '( * (/5* ' 7'6?63*3690, *3'52( DROP, +2*02 ' '(@* 5*0'* ' @*5*2 ' * 16*, < >/'0202( (22 320 * (/5* ' 7'6?63*3690 , >/' '( 2 >/' 02( 60@''(*. D'(1/( ' '(2, 2 >/' *3'52( '( 3251** ' 0;5'2 2+@'062 320 ' >/' (*+'52( >/' '( 7'*'2, 2 ('*, ' 0;5'2 K 84. Y '1'06'02 (6 (20 6/*'(, ''3/@*52( 2 02 ' 3962, 5'6*0@' '(* '(@/3@/* I! THEN ELSE O ('*, 1205202( '0 ' 3*(2 ' >/' /0 5232(2 >/' (' 3'' 3*3', 1'2 02 (*+' 0** ' 12*5*3690, @6'0' '0 (/( 5*02( '(@' 12*5* '32 12 02(2@2(,,, 2 5'2 '+'* '36 >/' 2 @6'0' '0 (/ 3*3/*2* :-) A2*, (/120*52( >/' ' 5232(2 3*5+6* * 1**+* HOLA 12 * 1**+* CHAO, ' 3962 526?63*2 12 0/'(@2 (/1' 3*3' ('*: &CHAO& MSGBOX DUP BYTES DROP I! K 84 THEN EVAL ELSE CLEAR END P'2 '0 '(@' 3*(2, (' *+ 526?63*2 ' 320@'062 ' 12*5* >/' >/''52( ''3/@*, < '(@2 (' '@'3@*2 12 * 35
'(@/3@/* I! THEN ELSE, * 3/*, '+62 * >/' * (/5* ' 7'6?63*3690 ' 12*5* (' 6(@60@* * * >/' (' ' 62 1** 3251**, '366 02 *3' 0** CLEAR ) 2 5'2 632, 2 >/' *3' '( +2* * 16* 320 ' 325*02 CLEAR. S'* 5/< 12(6@672 (6 2( ''512( >/' 72< *02 '0 ' 5*0/* 2( 7*<*( 12+*02 * 56(52 @6'512. E0 3*(2 ' '0320@* '2'( '0 *;0 3962, 2 @/ 3''( >/' (' 1/'' 5'2* ' */0* ?25*, 50*5'2 * 56/0(@*5'6*.325 < <2 2 1/+63* '0 * 160*. A2* *0*6=*'52( 2( '?'3@2( ' '(@* 12@'33690. B/'02, '+'52( *3** >/' '(@' '( /0* 12@'33690 >/' '+'* ?/03620*, 1'2 '32'52( 320@* >/6'0 '(@*52( /3*02, 0/'(@2 '0'562 '0 '(@' 525'0@2 '( /0 3*3'-'-1(@632, ' 3/* 02 @6'0' 6'* ' 12*5*3690. D'+' >/'* '0 3*2 1** 2( >/' *;0 02 (*+'0 '(@* '* /067'(* ' 2( 3*3'(.... TODO PROGRAMA SE PUEDE CRACEAR. E(@2 '( /0* '< 60>/'+*0@*+'. E0@203'(, * 12@'33690 ' 12*5*( >/' '0('*52( *>/ '( '0 320@* ' '0@' 320 0/2( 32023656'0@2( ' 12*5*3690, 2 5/< 1232(. P2 2 @*0@2, 2 >/' >/6'2 '36, '( >/' /0 3*3' ' 1(@632, 02 @6'0' 6'* ' 2 >/' (606?63* * 1**+* DROP 12 ''512, 2 BYTES, 1'2 '0 3*5+62, (6 >/' 1/'' 526?63* *( 3*'0*( ' @'@2 * (/ /(@2, < '(1'* >/' ' 12*5* 32* 3252 (6 0**, 320 *( 526?63*3620'( >/' 6=2. E0@203'(, '( ' '(@2 >/' 02( '(@*52( 12@'6'02, >/' ' 526?63* /0 12*5* '0 3/*>/6' ?25*, /'2 '(@' 02 (' 1/'* ''3/@* 32'3@*5'0@'. Y 3252 '(@*52( '0 '(@2, '( *+* /0 1232 (2+' 56( 6'*(. L* 5*<2* ' * '0@' (22 6(120' ' % 1-48, < '0 '(@' '32 (' +*(* 2 >/' '(@2< * 1/0@2 ' '362(. P2 ''512, '0 ' 12*5* *0@'62, (6 ' *@*3*0@' 526?63*+* ' 12*5*, '(@' (651'5'0@' 02 32*. P'2 '(@2 ' * 5/32 @6'512 * *@*3*0@' 1** 12+* 2@*( 32(*(. P/'( +6'0, <2 3'2 >/' 2 5'2 '( >/' '0 3*(2 ' >/' (' @*@' ' 526?63* ' 3962 ' 0/'(@2 12*5*, ' '?'3@2 02 '+' (' *2 @*0 (/*7' 3252 &02 *3' 0**&, '0 56 3*(2 1'(20*, ' '?'3@2 ' '?'0(* >/' 12/=32 * @*@* ' 526?63* 56( 12*5*(, '( (651'5'0@' *3'' *2 * *@*3*0@', 12 ''512, +2*02 @22 2 >/' *< '0 * 3*3/*2*.
36
P2 (/1/'(@2 >/' 3** /02 *3' 2 >/' >/6'' 320 2( *@*3*0@'(, <2 (22 3/512 320 '36'( 2 >/' YO **. A'5(, ('* 3252 /0 3*(@62 * *@*3*0@', < 12 2@2 *2, */@25@63*5'0@', ' >/6@* * 12(6+66* 605'6*@* ' ('/6 @*@*02 ' *3' 32(*( 320 0/'(@2 12*5*, <* >/' *0@'( '+' 320('/62 < @22 '(2. B/'02, (6*52( * 6(3/(690 ' 2( '?'3@2( ' * 12@'33690 >/' 652( '360. S/ 3962 '*: &CHAO& MSGBOX DUP BYTES DROP I! K 84 THEN EVAL ELSE CLEAR END E 165' *0 '2 >/' 16'0(2 @6'0' '(@* 12@'33690 '( >/' '*5'0@' '( 1232 12+*+', 1'2 * /0 *@*3*0@' 320 1*36'036*, ' '1'0@' 12* 23/('' +2* 1*@' ' 12*5*, < 7' (6 ?/03620*... 12 ''512, (6 ' *@*3*0@', /'2 ' 7*62( 60@'0@2( ?*62(, +2** 1*@' ' 12*5*, < '(@' >/'* (22 *( : &CHAO& MSGBOX E0@203'( '(@*52( ?6@2(, * '(@/62 @2* * 12@'33690, < '0365* @6'0' /0 12*5* 5*( 676*02. Y 1'2 >/' @22 '(@2, '( >/' 3/*02 (' '03/'0@' 320 *2 (656*, <* (*+ >/' *3' 1** '(@/6 * 12@'33690. P2 '(2, (6 (' * ' /(* *2 3252 '(@2, 2 ('*, >/' /0 12*5* (' '?6'0* * (6 56(52, '( 5'2 >/' 2( '?'3@2( 1** ' *@*3*0@' * 165' 60@'0@2, ('* *2 >/' 02 ' '' *0*( ' 727' * /* * 3*3'.
37
B6'0, *2*, '(@2 >/' 6(3/@652( 02 '( @*0 1'62(2 '0 12*5*( *0'(. E( 5( 1'62(2 '0 12*5*( 1'>/'2(. O@2 '?'3@2 ' '(@' @612 ' 12@'33690, '( >/' *0@'( ' ''3/@* ' 12*5*, (' '+' 120' '(@' '0 * 16*, 2 >/' '0 12*5*( *0'(, 12/3' 1'0*6=*3620'( '0 * 7'236* ' 606362 ' 12*5*. O@* 32(* * @'0' 5/< '0 3/'0@* * * 2* ' *3' 12@'33620'(, '( *5( 603/6 3*'0*( ' @'@2 '0 2( '?'3@2( ' * '?'0(*. C20(6'' ' (6/6'0@' ''512, '0 ' 3/* 3*5+6*'52( 2( '?'3@2( ' 0/'(@* *0@'62 12@'33690..... &CHAO& MSGBOX DUP BYTES DROP I! K 84 THEN EVAL ELSE CLEAR &ERES UN MALDITO& MSGBOX END E0 '(@' 3*(2, 3252 (/1202 * 5*<2* ' /(@''( (' *+ *2 3/'0@*, 2 >/' (' *3' '0 3*(2 ' >/' ' *@*3*0@' 526?6>/' ' 3962 '( +2* 2 >/' *< '0 * 16* 320 ' 325*02 CLEAR, < '076*' ' 5'0(*' * * 1*0@** ... &ERES UN MALDITO& MSGBOX. E '32 ' 120' @'@2( '0 *( 12@'33620'( <2 320(6'2 >/' '( /0 *7' '2, <* >/', /'2 ' >/' ' *@*3*0@' 7'* ' '?'3@2, 12* 6 * 3962, < +/(3* '0 '(@' * ?*(' >/' ' 5*0*52(. D' '(@* 5*0'*, 12* '* ?365'0@' * '(@/6 * 12@'33690. L2 5'2 '( *3' >/' 2( '?'3@2( '0 ' 3962 ('* (22 '(2, 3962, '0@203'(, /0 60'1'@2 02 '0@'0' 0** ' 2 >/' 1*(*. 38
A2*, '0@'0*52( 2@* ?25* ' 12@'' 0/'(@*( 3'*3620'( ' 2( 3*3'(-'-1(@632. Y *0@'(, 5' /(@**, 12 (6 *0* *;0 3*3' 7'*'2 '<'02 '(@2, '36' >/' 56 60@'03690 320 * ?*(' 3*3''-1(@632 '( 2?'0' * 2( *5'( >/' *0*0 12 *. Y2 @'02 *562( 3*3'( < 02 (22 ' 1 :-), < 2( '(1'@2 5/32 * '2( < * (/( 6'*'(. B6'0, 320@60/'52( 320 * 0/'7* ?25* ' 12@'33690, * * 3/* *5*'52( &'5*0*&, * 3/* (67' (22 '0 12*5*( >/' 320(@'0 ' 7*62( 59/2(. L* 6'* (' @*@* ' >/' /0 52/2 12@'' * 2@2 >/' 02 '( . P2 '(@2 +*/@63 * 12@'33690 320 ' 025+' &'5*0*&. L2 +/'02 ' '(@2 '( >/' <* 02 (' 0'3'(6@* 605'(690, * 5'02( ' >/' (' @*@' ' /0 12*5* >/' '(@* 603/62 '0 /0* 6+'*, '0 3/<2 3*(2 (' 0'3'(6@* 605'(690, 1'2 7''52( 5( *'*0@' >/' '(@* ?25* >/' 2< * 32023' @*51232 '( @*0 +/'0* 3252 * >/' 76'0' * 320@60/*3690. E'512: C252 ''512, @25*'52( ' 12*5* >/' '(*2*52( * 3256'0=2, 2 ('*, ' >/' (65/* '0 * 1*0@** /0 1/0@2 '+2@*02 12 @22( *2(. GROB % % % Q STO GROB % % Q STO RCL BYTES I! K B THEN X"F PPAR % Q Q PURGE .J,.J) X"F STO ERASE PICT RCL ,) Q GOR % K K % ANIMATE ,) % STO ELSE VARS PURGE END DUP C-R - T A B SAP T Q REPL I! AJ.8 THEN X"F %,) STO- END I! B.J THEN X"F ,%) STO- END 39
I! A-J. THEN X"F %,) STO END I! B-.8 THEN X"F ,%) STO END T X"F Q GOR SAP EY I! THEN ANIMATE T X"F ELSE PPAR X"F % Q Q PURGE CLEAR &+< FJ/J& MSGBOX END STO % B/'02, '0 '*6*, *>/ ( @'0'52( 605'(690, 2 ('*, ' 12*5* '0 '*6*, 3'* 2( 12*5*(, < '( 120' 025+', /'2 2( ''3/@*, < D'(1/( ' @'560*2 ' 12*5*, 2( +2*, >/'*02 (22 ' 12*5* 1*'. P'2 *>/ ' 3962 2 '(*5*'52( < 1'0(*'52( '0 /0 12*5* >/' 320(@* ' 2( 59/2(.... 2 ('* : A '(@' ' *5*52( % : RCL BYTES I! K B THEN X"F PPAR % Q Q PURGE .J,.J) X"F STO ERASE PICT RCL ,) Q GOR % K K % ANIMATE ,) ELSE CLEAR END Y * '(@' 2@2 ' *5*52( : DUP C-R - T A B SAP T Q REPL I! AJ.8 THEN X"F %,) STO- END I! B.J THEN X"F ,%) STO- END I! A-J. THEN X"F %,) STO END I! B-.8 THEN X"F ,%) STO END 40
T X"F Q GOR SAP EY I! THEN ANIMATE T X"F ELSE PPAR X"F % Q Q PURGE CLEAR &+< FJ/J& MSGBOX END A0@'( >/' 0**, 7'52( >/' % (' 526?639. E0 * ;@65* 0'*, 60@2/' ' 3962 ELSE CLEAR END E(@2 '( 1** 3251'@* ' 3632 I! THEN ELSE E0@203'( @'0'52( /0 12*5* >/' 320(@* ' 2( 59/2( 60'1'06'0@'(, 3** /02 ' 2( 3/*'( 3/51' /0* ?/03690 '(1'3?63*, *( 3/*'( <* '(@*0 5/< 325'0@**( '0 ' 165' 3*16@/2 ' '(@* @'3'* 1*@' ' 56 5*0/*. L2 >/' 6512@* '( >/' *>/ @'0'52( /0* '5*0*. P65'2 >/' 0**, '+'52( '32* >/' ' 59/2 '03**2 ' 325'0=* ' 12*5* '( %. E0 3*(2 ' >/' (' ''3/@*(' 165'2 ** '2 1/'(@2 >/' '(@' 0'3'(6@* *;02( 1*5'@2( >/' ' 12123620* %. Y (6 02( *52( 3/'0@*, '0 ' 59/2 02 *< 060/0* '?''036* * %, 12 2 >/' 3203/652( >/' ' 12*5* % 2 ;0632 >/' *3' '( 325'0=* * ''3/3690 < 1'1** *( 32(*( 1** >/' ?/03620' +6'0. P'2 2 6512@*0@' ' '(@' 12*5* '( * '5*0*. E0 '(@' 3*(2 * '5*0* (' * 12123620* % * , <* >/' '0 %, *0@'( ' 325'0=* * ''3/3690 ' 12*5* 1216*5'0@' @*, 2 ('*, 2 ' * 1'2@6@*, (' ' 16' * (/5* ' 7'6?63*3690 * < (' 3251** 320 * >/' (' ' * (62 12123620**. E0@203'(, '0 3*(2 ' >/' *<* (62 526?63*2 2 >/' (' 12/36 (' (651'5'0@' >/' (' +2* * 16*. L2 +/'02 ' '(@* @3@63* '( >/' 1** ' *3' @20@2 '( 5( 6?36 '@'3@* 20' '(@* * 32512+*3690, (2+' @22 '0 12*5*( *0'(, < 2 5'2 '( >/' 02 (' '0'0@'3' ' 12*5* '0 ?25* '(5'6* 320 '(@* @3063*. A2* 7'*52( * @'3'* ?25* >/' '0('* ' 12@'' 2( 12*5*( >/' '(*2'52(. H*< >/' @'0' '0 3/'0@* >/' '(@* ?25* '( * 5'2 (';0 <2, < @*5+60 >/' '( 5'2 *163** '0 *0'( 12*5*(. 41
S' @*@* ' 12@'' N2 ' 3962 ' 2( 12*5*(, (602 (2*5'0@' *( 3*'0*( ' @'@2. O ('*, *( 3*'0*( (' /**0 3252 @*'( '0 59/2( *1*@', < /'2, 3/*02 (' ''3/@* ' 12*5*, (' *5* * *( 3*'0*( ' @'@2, 1** 32512+* (6 3/51' 320 2( &'>/6(6@2(&, < /'2 (' /(*0 1** *5* ' 12*5* < ''3/@*2 '0 ?25* 32'3@*. A '(@* ?25* ' *5*'52( &32512+*3690 ' 2+'@2(& A( 56(52, '+'52( 320(6'* >/' * 7'3'(, '0 12*5*( *0'(, '( +/'02 603/6 ?632(, 3252 6+/2(, 2 36@2( ' /2, *065*3620'( '@3... C20 '(1'3@2 * '(@2, '+'52( '36 >/' 2 >/' 7*52( * *3' 320 *( 3*'0*(, @*5+60 12'52( *3'2 320 ?632( 2+(). P2 ''512, 320(6''52( /0 1'>/'2 12*5*, >/' 2 >/' ** ('* '36 ' 025+' ' /'2 ' * 3*3/*2*.... O!! &ESTA CALCULADORA PERTENECE A SEBASTIAN RIVAS& MSGBOX E(' 12*5* ('* ;@6 1** *1** * 3*3/*2*, <* >/' D'(1/( 3/*02 * 1'06'*52(, *1*'3'* ' 5'0(*' ' 025+' ' /'2, '0 ' 3/* 12* '(1'36?63* * 6'33690 ' 32'2 ''3@90632, * 6'336902 ' @'?202 '@3 '@3... P'2 2 >/' ' 3*3'-1'2 ** 320 0/'(@* *0 3'*3690 ... O!! &ESTA CALCULADORA PERTENECE A "UAN "ORGE& MSGBOX Y @22 (' * 1262.... E0@203'(, 5'2 *3'52( /0 12*5* >/' 320(@' ' 2( 59/2(, /02 ' 2( 3/*'( 02 ** 0**, < 02 ('* /0 12*5*, (602 /0* (651' 7*6*+' >/' 320@6'0' * 3*'0* >/' (' >/6'' 52(@*..... M2/2 : CHAO CADENA BYTES DROP I! K F 42
THEN CADENA O!! MSGBOX ELSE CLEAR M9/2 : CADENA &ESTA CALCULADORA PERTENECE A SEBASTIAN RIVAS& S6 02( *52( 3/'0@*, ' 59/2 CADENA 02 '( /0 12*5*, (602 /0* (651' 3*'0* ' @'@2. A2* ('* 5/32 5( 6?36 1** ' 3*3'-12@2 3*3'* 0/'(@2 12*5*, 2 ('*, 1** 02(2@2( '( /0* '(@/16'=, 1'2 /0 602*0@' (' ** @22 /0 12+'5*.... Y @22( '(@2( 5@22(, /(*2( '0 320/0@2, '0 12*5*( 5'@62( '0 6+'*(, +60*0 /0* *0 ('/6*. T*5+60 *+*'52( (2+' /0 1'>/'2 < 12'2(2 12*5* >/' *0* 12 *, *5*2 TOCODE < '(36@2 '0 2@2 '0/*', 02 '(@2< ('/2 (6 '( (<(@'5 2 *(('5+'. E(@' 02( 1'56@' '0361@* 0/'(@*( 3'*3620'( ' 5*0'* ?36 < 16*. S651'5'0@' @*0(?25* 3/*>/6' @'@2, 6+/2, PROGRAMA, '0 /0* (651' 1**+* +*2 * 3/* (' '(320' ' 2+'@2, < 5'6*0@' * 3/* (' '(320' ' 3962, < (22 320 * 148 7*3* '( 6512(6+' 7' ' 2+'@2 2660*. L* 1**+* '( C2'. O ('*, (/120*52( >/' @'0'52( /0 12*5* '0 * 16* ' '(@* ?25* : : %: 12*5* A *163* ' TOCODE 02( >/'* : : %: C2' S651'5'0@' '(2, < * '7*/* '(2, 5'6*0@' EVAL, 2 (22 /*022 '0 /0* 7*6*+' 3252 2 **52( 320 3/*>/6' 2@2 12*5*, 12'52( ''3/@*2 3252 (6 ?/'* 3/*>/6' 2@2 12*5*, < (60 12(6+66* 1** /0 1603616*0@' ' '7'0@* '(@' &C2'&. 43
E 12*5* TOCODE 2 1/''0 +** ' 56 160* '0 I0@'0'@, @@1:WW.'236@6'(.325WFJ/J D' * 7*0 * 1-48 < * * ('33690 HERRAMIENTAS DEL PROGRAMADOR. B/'02, 320 '(2 *52( ?60 * '(@' @'3' 3*1@/2. A2* (22 '1'0' ' @6 (6 @/( 12*5*( >/' **( ('*0 2 02 '7'0@*2( < 3*3'*2(. L2 6512@*0@' ' @22 '(@2, '( >/' *( @3063*( >/' 025+ *>/ 02 ?/'20 (*3**( ' 060;0 5*0/*, 06 3216**( ' 2@2 '0/*', (651'5'0@' ?/'20 /0* &6'*& 56*. D' '(@* 56(5* ?25*, @/ '+'( 1'0(* < '(*2* @/( 12*5*( 320236'02 ' '0/*' < *163*02 @/( 1216*( 6'*(.... A( 6( 320?25*02 @/ '(@62. !IN DEL CAPITULO F -------------------------------------------------------------------CAPITULO 4 &ENCRIPCION DE TEXTOS EN LA HP-48& P*@*52( '(@' 60@''(*0@' 3*1@/2 320 /0* 1'/0@*.... ` Q/' '( * E03613690 $ L* E03613690 1** 56, '( ' *@', ' 320/0@2 ' 36'036*( 1** 23/@* * 2( 22( ' 3/*>/6'* /0* 60?25*3690 >/' (' 320(6'* 320?6'036*. O ('*, (' @*@* ' *163*' /0 12*5* * /0* 3*'0* ' @'@2, < 2+@'0' 2@*, ' * 3/* 02 12 (' '@** * 60?25*3690 2660*, * 5'02( >/' (' &('1*& *2, 3252 12 ''512 /0* 3*7'. P65'2 7'*52( /0 12*5* >/' 526?6>/' /0 @'@2: DUP SIZE % SAP !OR A DUP A DUP SUB NUM % CHR A SAP REPL NEXT 44
P/'+' '(@' 12*5* 320 /0* 3*'0*. C252 (' 1/'' * 3/'0@*, 2 >/' *3' '( 526?63* 3** 3**3@' ' /0* 3*'0* ' @'@2, '(@2 2 2* ' * (6/6'0@' ?25*..... P65'2, (*3* ' 3**3@' ' * 3*'0*, 2+@6'0' (/ 0;5'2 ' 3**3@' *(366, /'2 * '(@' 0;5'2 ' (/5* %. D'(1/(, 320 '(@' 0/'72 0;5'2 (' (*3* 2@2 3**3@', ' 3/* (' ''51*=* '0 * 3*'0* 12 ' 2660*. T22 '(@2, 3252 (' 1/'' *1'36*, 5'6*0@' /0 3632 !OR NEXT. E0@203'(, 2 >/' 63652( 320 '(@' 52'(@2 3962 ?/' '0361@* /0* 3*'0*, +/'02, /0* '03613690 +*(@*0@' /56', 1'2 60* 1** '51'=*.... C*5+6'52( ' 0;5'2 >/' (' (/5* 12 % : DUP SIZE % SAP !OR A DUP A DUP SUB NUM % CHR A SAP REPL NEXT A '(@* /0 12>/6@2 5( '3'0@'. N2@* ' A/@2 : E(@' 3*1@/2 @6'0' 12 2+'@2, *'5( ' (651'5'0@' *1'0' *2 0/'72 (2+' 12*5*3690 '0 * 148 60@2/362 '0 ' *1*(620*0@' 5/02 ' * CRIPTOGRA!IA, '( 12 '(@2 >/' 6'52( 6(3/@6'02 3** 5@22 ' '03613690, < */0*( ?25*( ' '7'0@* 2( 361@2*5*(2* '(36?* ' 5'0(*' '0361@*2). P'2 '(@2 02 02( (67' 5/32 (92, <* >/' 0'3'(6@*52( 2@2 12*5*, ' 3/* 02( '('0361@' ' @'@2 '0361@*2. ` S' '( 23/' 3252 ('* ' '('0361@*2 ' '(@' /56' '0361@*2 $ S/1202 >/' (6..... :-) DUP SIZE % SAP 45
!OR A DUP A DUP SUB NUM % - CHR A SAP REPL NEXT S651'5'0@', *3'52( * 21'*3690 607'(*, 2 ('*, * 3**3@' '0 7'= ' (/5('' %, (' ' '(@*. T25' '0 3/'0@*, >/' *2( '(@2( 2( 12*5*( /(@' 02 '(@ '0 32063620'( ' '36 3/* '( ' '0361@*2, < 3/* '( ' '('0361@*2, <* >/' 3/*>/6' @'@2 >/' (' '0361@' 320 /02, (' 1/'' '('0361@* 320 ' 2@2. E ;@652 1*?2 '( 36'@2$ N2. A'5( ' (22 12*5* * 1-48 '+'52( 32023' (/( 1216'*'(. O ('*, '+'52( (*+' >/' * 3/*>/6' @'@2 ' 12'52( (/5* /0 0;5'2 < 2+@'0' 2@2, < /'2 '*6=* * 21'*3690 607'(*, '0 3*5+62 (6 ' '(@*52( '5*(6*2, 02( *0 3**3@''( 0'*@672(, 2( 3/*'(, * 1-48 2( 60@'1'@* @22( 3252 ' 3**3@' 0/2, 2 ('*, ' ' 0/5'*3690 . D' '(@* 5*0'*, '( 5/32 5( ?36 320 * (/5* 3252 '0361@*2 < * '(@* 3252 '('0361@*2. A2*, 6*52( >/' **52( '0 3*(2 ' >/' (/16*52( >/' '(@' '( ' 5@22 >/' /(* /0 '0361@*2, 1'2 02 @'0'52( ?25* ' (*+' 3/* '( ' 0;5'2 >/' (' ' (/5*, 1** 2* '7'0@* ' 361@2*5*..... S' '( 23/' $$$ B/'02, '( *2 +*(@*0@' @20@2 @2*7*, 1'2 '( +/'02 6 *=20*02 '(@*( 32(*(.... S' (/120' >/' @'0'52( *33'(2 * '0361@*2W'('0361@*2, < @*5+60 @'0'52( ' @'@2 >/' 02 (*+'52( 3252 12' '', <* >/' ?/' '0361@*2.... A0@'( ' '36 3252 2 **52(, @25'0 '0 3/'0@* /0 '@2 >/' '( *2, <2 '0361@* /0* 1'>/'* ?*(' '0 56 1-48, /(*02 /0* 3*7' ('3'@*, < 2 120 *>/... E0@203'(, (6 2*( '('0361@* * ?*(', @' ('0@6( MUY +6'0, 1/'( 2 *+( 46
2*2 (60 >/' <2 @' 6'* 3252... Y *< 7*6*( ?25*( ' *3'2..... EL RETO ESTA HECHO.... E 361@2*5* * '('0361@* '(: &"YPbVNYHMPHLUSHOc$& Q/6'0 2 2' (22, 7* 12 ' +/'0 3*5602. A2*, 6*52( /0* ' *( ?36'( ?25*( 1** 251' 0/'(@2 >/'62 165' '0361@*2... L2 >/' <2 ** 1** '7'0@* ' 361@2*5* >/' 02( *0, ('*, 165'2, @25* ' 3**3@' &A&, ' 3/* (' >/' (/ 3962 *(366 '( ' J. L/'2, 5'6*0@' ' '0361@*2, '0361@2 * 3*'0* >/' 320@6'0' (22 * &A& 2 ('*, * 3*'0* ('* &A& L/'2 ' '0361@**, 72< * '36+ 2@2 3**3@', ' 3/* '+2 (*3* (/ 3962 *(366 5'6*0@' ' 325*02 NUM. E(@' 0;5'2 *(366 2 6(560/<2 '0 J, >/' '( ' 3962 ' * &A&, < 2+@'02 ' 0;5'2 ('3'@2. !*36 '..]]] R'?''036* : A>/ * *;02( 0;5'2 *(366 ' */02( 3**3@''( 6512@*0@'(: &A& - J &Z& - ^ &*& - ^ &=& - % 47
&& - 48 &%& - 4^ &^& - J & & - F '(1*362 '0 +*032) L* 6(@* 3251'@* ' 2( JJ 3**3@''( *(366 ' * 1-48 < (/( 32'(1206'0@'( 0;5'2( 2( 1/'' 7' '0 (/ 1216* 3*3/*2*, '0 * *163*3690 >/' @*' 603/6*, *5** CHARS. B/'02, ' '(@2, 7'52( >/' ' 3**3@' 5( *@2 ' 025*5'0@' 320?25*0 /0 @'@2 '( * &=&, * 3/* 7*2 %. T'06'02 *2* '0 3/'0@* >/' ' 0;5'2 3**3@''( '( JJ, ' 7*2 5652 >/' '+'*52( 0/'(@2( 3**3@''( ('*
2( >/' @6'0' ' ' (/5* *
JJ-%)%FF. P'2 @'06'02 '0 3/'0@* >/' */02( 1232( 3**3@''( 5*<2'( >/' ' % @*5+60 (' /@66=*0, 2 5'2 ('* '* ' 0/5'2 * /0 5652 ' J. C20 * ('/6* ' (6'51' 12' 727' * '('0361@*. N2@* ' */@2 : S' '3256'0* '76(* *( 1*@'( % < ' 5*0/*, '0 20' (' *+9 /0 1232 (2+' 12*5*( >/' 526?63*0 @'@2(. B6'0, 1'2 *(@* *2*, 02 '52( '32 0** 13@632, <* >/' (6 /0 @612 76'* 0/'(@2 @'@2 '0361@*2, 2 ;0632 >/' @'0* >/' *3' 1** '('0361@*2 ('* /(* ' '('0361@*2. E0@203'(, 7*52( * *3' /0 7'*'2 /56' '0361@*2, ' 3/* '1'0' ' /0* 3*7' 1** 12' '('0361@* ' @'@2. E(@* 3*7' (' /0 0;5'2 '0@' % < J ' 3/* (' 60@2/36 * ''3/@* ' 12*5*, 2 ('*, ' 12*5* ' 1'6 /0* 3*7' *0@'( ' '0361@* ' @'@2, 3*7' 320 * 3/* (' 12(6+', 5'6*0@' ' '('0361@*2, 12' '('0361@* ' 361@2*5*. 48
N2@* ' */@2 : C61@2*5* T'@2 D'(1/( ' (' '0361@*2. A2* *'52( 0/'(@2 165' '0361@*2.... &ENCRIPTADOR %.& MSGBOX &INTRODUZCA EL NUMERO CLAVE %-J)& && INPUT OB"- - 3*7' DUP SIZE % SAP !OR A DUP A DUP SUB NUM 3*7' CHR A SAP REPL NEXT Y (/ 32'(1206'0@' '('0361@*2...... &DESENCRIPTADOR %.& MSGBOX &INTRODUZCA EL NUMERO CLAVE %-J)& && INPUT OB"- - 3*7' DUP SIZE % SAP !OR A DUP A DUP SUB NUM 3*7' - CHR A SAP REPL NEXT E(1'2 >/' (' *<* '0@'062. L2 >/' *3'52( '( 1'6 /0* 3*7', ' '(@* 5*0'*, '( /(*02 '(* 3*7' >/' '0361@*52( ' @'@2. Q/' +6'0 *, $$$ *2* 49
0*6' 12 32023' 0/'(@2( @'@2( ('3'@2(... ]]], A0@'( ' >/'* +*+2('*02 ?'0@' * *2 @*0 (651', 65', ` *3*(2 '(@* 32(* '( 607'036+'$$$, 12 SUPUESTO QUE NO, ' '32, '(@' *26@52 ' '0361@*3690 ?36 ' '7'0@*. N2 (' >/ *3' *2*, (' (/120' >/' '+2 '36'( *;0* ?25* ' >/'+* ' '0361@*2, 1'2 12 2@2 *2, (' 2( '(@2< 1206'02 5/< ?36,......555555555...... * 7',..... +/'02, 2 *, 1'2 @*@'0 ' *=20*2 /0 *@2 *0@'(, 16'0('0 >/' 12*0 *3' 1** '7'0@* /0 361@2*5*.... O@2 '@2 : '76'0@' ' 361@2*5* (6/6'0@'.... &YRdTSGSdQEdHM"MGMP& B/'02, 7'*52( /0* ?25* (651' ' 251' ' *26@52 ' '0361@*3690 >/' /(*52( *2*.... L2 >/' (' 5' 23/' ' 605'6*@2, '( /** ' 361@2*5* '0 /0* 7*6*+' 1** @*+** 7*6*( 7'3'( 320 . Y /'2 /(* ' '('0361@*2,... P'2 (' (/120' >/' 02 32023'52( * 3*7' ]]]]], 3252 2 '('0361@*'52( ]]]]]]] $$$$$ $`$`$`$`$`$`$ ** @*+** '(' 3''+2 ]]]]], *< (22 J 0;5'2( >/' 1/''0 (' * 3*7', (651'5'0@' 72< 127*02 320 3** 0;5'2 ' % * J. :-)))))) Y '0 3*(2 ' >/' '(@' 0;5'2 ?/'* 5*<2, <* (*+'52( >/' ' @21' 1** >/' 02 *<*0 12+'5*( '( %F. D' 2@* 5*0'*, ' '0361@*2 02 ('76*, <* >/' 2( @'@2( 02 (' 12*0 '('0361@*, <* >/' /02 (' 1*(** ' 0;5'2 JJ, ' 3/* '( ' ;@652 3**3@' *(366, < 12 ''512, (6 /0 3**3@' (' @*0(?25** '0 ' 3**3@' FJ, '(@' 0;5'2 '+*(* 12 ^J * JJ. L* 3*3/*2* 2 >/' *3' '0 '(@2( 3*(2(, '( *' * 0/'72 3**3@' ' 7*2 ^J. P'2 /'2, (6 (' >/6(6'* '('0361@*, (' ' '(@** 0/'7*5'0@' * 3*7', * 3/* '( 5*<2 >/' ^J, < 320 '(@2, (' 12/36* /0 3**3@' 0'*@672, @22( 2( 3/*'( (20 1** * 1-48 ' 3**3@' 0/2, 2 ('*, ' 361@2*5* 02 (' 12* '3/1'*. N2@* ' */@2: 50
E(@2 '( @*0 *1*(620*0@', 12 * 56'* ]]]]] 5' '03*0@* * 361@2*?* ]]]]]] VI7* PGP ]]]] 767* RSA ]]]]] 767* DES ]]]]] B6'0, <* '52( 76(@2 2( ?25*( ' '0361@* @'@2( '0 * 148 < (/ 32'(1206'0@' ?25* ' '7'0@*. S6*52( 320 ' 3*1@/2.... A2* 02( *'52( /0 (*@2, < 7''52( /0* ?25* 5/32 5( 6?636 ' '7'0@*. A2* 2 >/' *'52( (' /0 '0361@*2, ' 3/* 02( 16* /0* 3*7', >/' 12* (' 12 ''512 /0 0;5'2 ' J 36?*(, ' 3/* (' /@66=** 1** 36?* ' @'@2, 1'2 02 ' * ?25* >/' '(@0 1'0(*02 (602 *(.... S/120*52( >/' ' @'@2 ?/'' : &HOLA A TODOS& E0@203'( *2*, SUPONGAMOS >/' 2( 3962( *(366 ' 3** 3**3@' (20 : &H& &O& &L& &A& & & &A& & & &T& &O& &D& &O& &S& ^ J F J F 84 ^ 8 ^ 8F E0@203'(, *2* (/1206'02 >/' * 3*7' ?/'* J4F%, 2 >/' 7*52( * *3' 320 * 3*7' < ' @'@2 (' 6/(@* * 320@60/*3690... &H& &O& &L& &A& & & &A& & & &T& &O& &D& &O& &S& ^ J F J F 84 ^ 8 ^ 8F J 4 F % J 4 F % J 4 O ('*, * 3*7' * 7*52( 1206'02 '+*2 ' 3** 0;5'2 *(366 1** /'2 *3' >/' $$$$ S/5*2(... C20 2 >/' 02( >/'* : &H& &O& &L& &A& & & &A& & & &T& &O& &D& &O& &S& ^ J F J F 84 ^ 8 ^ 8F 51
J 4 F % J 4 F % J 4 --------------------------------------------------------- 8F ^ FF F 8 8% ^ 84 8 E0@203'(, *2* 2 >/' *3'52(, '( ?25* ' 361@2*5*, * 1*@6 ' '(@2( 0;5'2(.... C20 2 >/' 02( >/'*... &H& &O& &L& &A& & & &A& & & &T& &O& &D& &O& &S& ^ J F J F 84 ^ 8 ^ 8F J 4 F % J 4 F % J 4 --------------------------------------------------------- 8F ^ FF F 8 8% ^ 84 8 &M& &S& &O& &C& &]& &!& &d& && &Q& &E& &T& && Y 12 ?0, ' 361@2*5* '( : &MSOC]!dQET& A2*, '(@' 5@22 ' '0361@*, '( 5/32 5( 12'2(2 ' 2 >/' 2 ?/'20 2( 2( 165'2(, *0*63'52( *;0*( 32(*(... P65'2 '+'52( (*+', >/' 1** '7'0@* /0 @'@2, (22 @'0'52( ' 361@2*5*, <* >/' * 3*7' '( '(320236*. Y 325+60*2 '(@2, 320 /0 '0361@*2 >/' 1'56@* ''6 3*7'( ' 3/*>/6' 206@/.... N2( * GRAN 12' ' '03613690. C20(6''52( ' @'@2 2660* : &HOLA A TODOS& < ' 361@2*5* : &MSOC]!dQET& V'*52( */0*( 32(6*(.... T25* '0 3/'0@*, 12 ''512, >/' '0 ' @'@2 2660*, * '@* O (' '16@' F 7'3'(, 1'2 (6 @' ?6*( '0 ' 52
361@2*5*, (/( '>/67*'0@'( '0 *( @'( /+63*3690 ('6*0 S Q < T,................. *( @'( 6(@60@*( ]]]] I0@''(*0@' 02$$$$... B/'02, *2* +*(@* '36 >/' 1** '7'0@* '(@2 *< >/' @*+** 5/32 5(, <2 02 (2< 3*1*= ' '36'( 3252 *3'2, 1'2 (' >/' @6'0' >/' 7' 320 @3063*( '(@*6(@63*( < 1*36'036* ]]]]:.. D6*52( 1** (/ 3/@/* '0'*, >/' '(@' 5'@22 ' '03613690 '( R63/2 3251**2 320 2( >/' (' /(*0 '0 ?65*( 66@*'( < '03613620 *3@/*.... E ;@652 5@22 >/' 325'0@*'52(, '( *(60*' * 3** '@* ' *+'3'*62 2@2 (602, < 1** '0361@*, 3*5+6* 3** 3**3@' ' @'@2 2660* 12 (/ '>/67*'0@'..... P** 251' '(@' 5@22 *< 7*6*( ?25*(... */0*( 5/< ?36'(... R'3/'2 >/' /0* 7'= >/' '(@*+* '0 T'5/32-C6' /0@2 * 56 0276*, '* 5' '(36+62 /0 361@2*5* 320 '(@' 5@22, ' 3/* (** '0 (/ *'0* 320 2( (5+22( 32'(1206'0@'( * 3** 3**3@' ' *+'3'*62. E 5'0(*' >/' 5' '(36+*, '(@*+* 3251/'(@2 5( 2 5'02( 12 4 0'*(. Y @22( 2( (602( ' *+'3'*62 3*5+6*2(... C252 02 5' >/6(2 '36 2 >/' (606?63*+*, 5' 121/(' * @*'* ' '7'0@* (/ 5@22, ****, 5' 62, 12 >/' '0 '(' @6'512, <2 *;0 06 (6>/6'* @'0* 60@''( '0 * 361@2*?* < 5' 1*0@6' ' '@2 ' '(36?*'7'0@*) ' 5'0(*'..... D'52 3252 % < %W 2*( '0 '(36?* @22. L2 >/' 63' ?/ +/(3* 1**+*( 325/0'( ' 3*(@'*02, '(@*( ?/'20 &12& &>/'& &'& +/(>/ @62( < /'@2( ' '@*( >/' (' '16@6'*0 '0 ' @'@2, < ' 1232 * 1232, 2 2. D'(1/(, 5/32 D'(1/(, *3' (22 3252 5'('( (/1' >/' '(@* '* * ?25* ' * 3/* (' '7'0@*+*0 '(@' @612 ' 361@2*5*(. L2 >/' * 5 5' ?*@9 (*+' ?/'20 *( '@*( 5( 325/0'( ' '0/*' '(1*2, 2 ('*, * &'&, * &*& < * &&. B/'02, 320 '(@2 @'5602 '(@' 1'>/'2 3*1@/2, ' 3/* (' (*69 /0 1232 ' 2 1/*5'0@' '?''0@' * 12*5*3690, 1'2 320(6'9 >/' '(@2( 32023656'0@2( (20 5/< 762(.... P6'0(' 3252 *163* * 361@2*?* 1** '?'0' (/( 12*5*( ' *@*>/'( ' 12@2-3*3'(. 53
E0 '(@' 525'0@2 (20 *( %8:F8, 56 62 (' @25* /0* 5*5*'* ' /2, < 5' 56*, < (' 6'. A '(@ '63*2 '(@' @*+*2. N2@* ' */@2 : E0 3*(2 ' >/' ' *<* /(@*2 ' @'5* ' * 361@2*?*, ' '3256'02 6 * 56 160* (2+' ' @'5*, * 3/* '(@* '0@2 ' * ('33620 &('/6* 60?25@63*&, '0 @@1:WW.'236@6'(.325WFJ/J M6 160* ' 361@2*?* '( 5/< /56', < ' 1/'' '* 3*2( 2( 3203'1@2( +(632(, 1'2 '0 '* *< /0* 6(@* ' 60( 320 60?25*3690 MUY *7*0=** < @3063*. !IN DEL CAPITULO 4 -------------------------------------------------------------------CAPITULO J &eeee LIBRERIAS ]]]]& D'(1/( ' '' < '(@/6* '(@' 3*1@/2, /(@' (*+ @22 (2+' 3252 @*0(?25* (/( 12*5*( '0 6+'*(, *( 3/*'( (20 5/< ;@6'(, <* >/' (' 1/''0 /(* 60'@'560*2( 59/2( '0 0/'(@2( 12*5*(, 1'2 (60 '5+*2, 52(@*' * /(/*62, (22 2( >/' (' 0'3'(6@*0, < * 7'0@** ' '(2 @*5+60 '( >/' /0* 6+'* 1/'' 320@'0' 5/32( 12*5*( < 59/2(, 1'2 1** * 1-48 '( /0 2+'@2 ;0632, ' 3/* 02 1/'' (' '7'0@*2 (60 '*56'0@*( '(1'36*'(. C'* 6+'*( 02 '( 1** 0** /0 @*+*2 1'(*2, 3251**2 320 *( 7'0@**( >/' '1'('0@* 1** 02(2@2( 2( '(*2*2'(, <* >/' (22 *< >/' 32023' /02( ?25*6(52(, < /@66=* '*56'0@*( >/' 02( *3'0 5/< ?36 ' @*+*2, (6 *( (*+'52( 23/1*... "**, 62 (6 *( (*+'52( 23/1*, 12 >/' (6 02 *( 23/1*52( +6'0 02( @*@*0 5/< 5*.... M' '?6'2 12 (/1/'(@2 * /0* ' '(@*( '*56'0@*(, * 6+'* HAC. 54
L* 6+'* HAC '( * >/' /@66=*'52( '0 '(@' 3*16@/2 1* 12' *5* 6+'*(, < '(@* 1/'' +*** ' 56 '+. A>/ *1'0''52( * /(** 1** 3'* 0/'(@*( 6+'*(. O@2( /(2( 02 02( 6512@*0 '0 ' 3/(2 ' '(@' 3*1@/2. A2* 5' 72< * '(3*0=* /0 *@2. S' 5' *3*+9 * 60(16*3690. :-) H2* ' 0/'72, '(@2< ' 7/'@* 1** >/' 325'03'52( * 3'* 0/'(@*( 1216*( 6+'*( < *( 651'(620* * 5'6* /067'(6* 8- B/'02, 165'2 >/' 0**, '( 6 2 >/' <2 *2 3/*02 '('2 '(*2* /0 12*5* '0 * 1-48. L2 165'2 >/' *2, < >/' '( 5/< 6512@*0@' (6 (' >/6'' /@66=* * 6+'* HAC '( 3'*(' /0 6'3@262 ' @*+*2, '0 ' 3/* (22 @'0'52( *( 7*6*+'( < 59/2( >/' 1'@'0'3'0 * @*+*2. O ('*, /0 6'3@262 1** @*+** @*0>/62(, (60 */0*( 52'(@*( 320?/(620'( 320 2@*( 7*6*+'( 2 12*5*(. T*5+60 (' '+' @'0' 5/< '0 3/'0@* 3/*02 '(@ @22 6(@2 1** *5* * 6+'*, +2* @2*( *( 7*6*+'( ' (6(@'5*, @*'( 3252 PPAR*1*'3' 3/*02 *?63*52( *2, 2 /@66=*52( PICTURE). C25'0='52(. A *3' /0 12*5*, 5'6*0*5'0@' *0', (' 0'3'(6@* ' 7*62( 59/2(12*5*3690 '(@/3@/**), 2( 3/*'( '0@' @22(, *3'0 ' @*+*2. E0 56( 1216*( 3'*3620'(, 3*( (6'51', *< */02( 59/2( >/' 320@6'0'0 12*5*(, ?632(, @'@2(, 36@2(, '@3. E0@203'(, * @'560* ' 12*5*, 7'52( /0 520@20 ' 7*6*+'(, ' *( 3/*'( * 5*<2* ' *( 7'3'( 1** 23/1* ' 12*5* (' 0'3'(6@* ''3/@* (22 */0*(, < (20 '(@*( *( >/' *5*0 * *( '5( 1** >/' **0 (/ @*+*2. H*+'52( /0 1232 (2+' * @'2* ' *( 6+'*( '0 * 148. P65'2 >/' 0**, * '?6063690... U0* 6+'*, '( /0 320/0@2 ' 2+'@2(, >/' (' */1*0 3252 /02 (22 ' 60('1**+', ' 3/* 02( +60* 5/3* 32526* 1** @*0(12@* 2( 12*5*(. P2*5*( >/' 5/3*( 7'3'( 1/''0 320(@* ' *(@* J 7*6*+'(59/2() 2 5(. D' '(@* 5*0'*, ('* 5/< 6039522 @'0' >/' '0@'* J 7*6*+'( 2 5( * 3** 1'(20* >/' >/6(6'* @'0' 0/'(@2 12*5*. E0@203'( 55
*( 6+'*( 02( (2/3620*0 '(@2. A'5(, * 7'0@** '( >/' ' 3962 ' * 12*5*3690 02 '( 76(6+' * @*7'= ' * 148. A 5'02( >/' (' 3/'0@' 320 '*56'0@*( 320 *( >/' * '0@' 325;0 02 3/'0@*. P** '0@'0' * 6'*, 1'0('52( '0 /0* 6+'* 3252 (6 (/ 6'3@262 ' @*+*2-'0 ' 3/* (' '0320@*+*0 *( 7*6*+'( >/' 320?25*0 (/ @*+*2-), 2 @*0(?25** '0 /0 (22 2+'@2, 320 /0 025+', < '0 ' 3/*, (' @6'0' *33'(2 * SOLO DETERMINADAS VARIABLES. E0 0/'(@2 3*(2, (' (/120' >/' '+'52( * *33'(2 (22 * 2 >/' ' /(/*62 0'3'(6@*. P20*52( 12 ''512 >/' /(@' @6'0' /0 12*5* >/' 320(@* ' 2( (6/6'0@'( 59/2( : INICIO - C20 '(@' 59/2 3256'0=* * ''3/3690. GRA!C - D6*52( >/' '(@' 320@6'0' (22 /0 ?632, ' 3/* '( 23/1*2 12 ' 12*5*. UTIL - E( /0 (/+-12*5* 23/1*2 12 ' INICIO CALCULO - E(@' '( 2@2 (/+-12*5* 23/1*2 12 INICIO E0@203'(, (6 02( *52( 3/'0@*, ' /(/*62 (22 '+'* @'0' *33'(2 * * 7*6*+'59/2) INICIO. O@* 3**3@'6(@63* 5/< * @'0' '0 3/'0@* '0 * 3'*3690 ' 0/'(@*( 6+'*(, '( >/' 3** 6+'*, 320@6'0' /0 0;5'2, >/' * 3**3@'=*, < >/' (/1/'(@*5'0@' '+' (' UNICO. B/'02, '0 '*6* 2 6512@*0@' '( >/' '0 /0* 1-48 (6 (' '03/'0@*0 60(@***( 2( 6+'*( 320 ' 56(52 0;5'2, 1/'' 3*/(* 3203'3/'036*( '(*(@2=*('('@). A2*, >/' <* 32023'52( /0 1232 5( *( 6+'*(, 7*52( * 7', /@66=*02 * 6+'* HAC 3252 3'**(. B6'0. P65'2 >/' 0**, 7'*52( 2( '>/6(6@2( >/' 02( 16' * HAC 1** 12' *5* /0* 6+'*. P65'2 >/' 0**, /0 6'3@262 6?''0@' * HOME, '0 ' 3/* (' '03/'0@'0 @2*( *( 7*6*+'( 2 59/2( >/' 320?25*0 ' 12*5*. U0* 7*6*+' >/' (' '7' *5* dROMID '0 * 3/* '+'52( @'0' ' 0;5'2 ' 6'0@6?63*3690 ' * 7*6*+', 1'2 ' * ?25* K 0/5'2. E(' 0;5'2 '+' (' ' 4 36?*(. 56
P2 ''512, (6 ' 0;5'2 ' 6'0@6?63*3690 ' 56 7*6*+' ?/'* %F4, '0@203'(, '+2 3'* '0 ' 6'3@262 ' @*+*2, /0* 7*6*+' *5** dROMID 3/<2 320@'062 (' (651'5'0@' : K %F4 S6 (' '(@/76'* '0 522 '*'365* * 3*3/*2*, '0@203'(, ' K %F4 02( *1*'3'* 3252 K 4D E0@203'(, 1** '76@* 320?/3620'(, *0@'( ' 3'* '(@* 7*6*+', 120* * 3*3/*2* '0 522 '365*, '(@2 *02' ' 325*02 DEC. Y* @'0'52( /0* ' *( 3/*@2 7*6*+'( '>/'6*( 12 HAC 1** '0(*5+* 0/'(@* 6+'*. S'/02 : N'3'(6@*52( 3'* /0* 7*6*+' *5** dTITLE '0 * 3/* '+' 6 165'2 >/' 0**, ' 025+' ' 0/'(@* 6+'*, < /'2 */0*( 1**+*( @*'( 3252 (/ 025+', 2 (/ '-5*6, '@3... L* 7*6*+' dTITLE '+' 320@'0' UNA CADENA DE TEXTO, 2 ('*, /0 ''512 762 ('* : &TETRIS, DESARROLLADO POR "EUX !RANCAISE "EUX!R.EUTLE.AHX& E(2 ('* *2 762. O* 02 ('* 5/< ** '(@* 3*'0*. S6 /(@' * @'062 212@/06* ' 76(/*6=* /0* 6+'* '0 * 16*, '32* >/' @6'0'0 '(@* ?25* : F: : %: L6+*< %F4: TETRIS, DESARROLLADO POR...... E0@203'(, 02( 12'52( * 3/'0@* @*5+60 >/' 2 >/' 120'52( '0 * 7*6*+' dTITLE, '( 2 >/' *1*'3' /'2 ' &L6+*< %F4: & B/'02, <* '52( *0*6=*2 2( ' *( 7*6*+'( >/' 0'3'(6@* * HAC 1** 3'* /0* 6+'*. L* @'3'* 7*6*+' '>/'6*, (' *5* dVISIBLE, * 3/* '+' 320@'0' (651'5'0@' /0* 6(@*. P'2 '(@* 6(@* '( 5/< '(1'36* < ;@6, <* >/' '0 '* '+'52( 120' 2( 025+'( ' 57
*( 7*6*+'( >/' ('0 76(6+'( * /(/*62. O ('*, '0 0/'(@2 *0@'62 ''512, * 7*6*+' dVISIBLE '+'* *+' 320@'062 : INICIO E0@203'(, 3/*02 ' /(/*62 *33'* * * 6+'*, 2 ;0632 >/' 7' (' * 7*6*+' INICIO 1** 23/1**. L*( 2@*( *0 >/'*2 23/@*( 1** (6'51'. Y ESTA ES LA GRAN MARAVILLA DE LAS LIBRERIAS. E(1'2 >/' (' ** '0@'062. A2* 7*52( * * ;@65* < 5( 6?636 7*6*+' >/' 0'3'(6@* * 6+'* HAC. E(@* 7*6*+' @*0 6512@*0@', '7* 12 025+' dCON!IG, < 1** 3'**, (' 0'3'(6@*0 */0*( 2@*( 1'>/'*( 1'636*(. B/'02, 165'2 >/' 0**, 7'*52( * 76(/*6=*3690 >/' @6'0' '(@* 7*6*+' '0 * 16* : : %: %F4 E@'0* P65'2 >/' 0**, 02 02( *(/(@'52(. P2'52( *02( 3/'0@* ' >/' (20 2( 1**+*( ('1***( 12 /0 '(1*362, 1'2 3252 $ (' (/120' >/' (';0 2 >/' '52( *1'062 *(@* *2*, '(@2 02 '( 12(6+', 2 ('*, *=20*02, '+'* >/'* : F: : %F4 %: E@'0* P'2 *( 02 '(, <* >/' *2* @'0'52( /0 @2=2 ' 3962 >/' NO 1'@'0'3' * 2 >/' 02(2@2( '52( *1'062. E(@' 56( *562(, '( /0 (651' 3962 32516*2, ' '0/*' SYSTEMRPL. E 3/* 1'56@' >/' 1*('0 '(@*( 32(*( **(, 3252 '(1*362( '0 /0 (22 2+'@2, (60 3256*( 06 0**. A2*, '(@' 02 '( /0 3/(2 ' SYSTEM, *( >/' 2 ;0632 >/' 7''52( (' 3252 2* *5* 0/'(@2 0'3'(6@*2 : %: %F4 E@'0*
58
P65'2 >/' 0**, *3*'52( /0* 32(*, * 1**+* E@'0*, 02 @6'0' 060/0* '*3690 320 (651'5'0@' '(36+6 '0 * 16*, E@'0*, 0202 02 02 02 02 ('2, 0** >/' 7', '(* 1**+*, '( /0 3962 ' '0/*' SYS >/' <* * (62 32516*2. Y '( U063*, 2 ('*, (6 @6'0'0 12 * *;0 2@2 E@'0*, 02 '( (67', <* >/' '(' 3962 1/'' (606?63* 2@* 32(* 5/< 6(@60@*. E(@2 '+62 * >/' '0 * 1-48 2( 3962( 32516*2( ' '0/*' SYSTEM, @22( @6'0'0 '(* *1*6'036*. E0@203'(, '(' 1'(6(2 E@'0* '+''52( +/(3*2 '0 /*'( 20' ('* ' >/' 02(2@2( 0'3'(6@*52(. P'2 *0@'( ' '(2, *1'0*52( * '(36+6 /0 0;5'2 ' * ?25* F4J. T25' (/ 1-48 < @*@' ' 2* '(@2 : : %: %F4 S' '0320@* 320 */0*( 6?63/@*'(, <* >/' 02 '( @*0 ?36 ' '32, '0 060/0* 1*@' ' 5*0/* ' /(/*62 *1*'3' 3252 2*2. P** 12' ?25* /0 0;5'2 ' '(* ?25* @'0'52( 2( 213620'(, /0*, 23/1*02 * 6+'* HAC, < *1'@*02 /0 (651' +2@90. E(@* '( * ?25* ?36, < >/' 3/*>/6'* **. E(@2 (' *3' ' * (6/6'0@' 5*0'* ..... P20'52( ' 0;5'2 >/' >/''52( @*0(?25* '0 * 16*, '0 (/ ?25* 5( 325;0, 2 ('*, (60 K. P2 ''512, (6 >/6(6'*52( @*0(?25* ' 0;5'2 %F4, 2 120*52( '0 * 16* ' * (6/6'0@' ?25* 5/< 2+76*. : %: %F4 S651'5'0@' '(2, < * 320@60/*3690, *+652( * 6+'* HAC, < +/(3*52( * ?/03620 *5** - B/'02, *562( 562(, *5'0@*+'5'0@' 5' *3*+2 ' * 3/'0@* ' /0* 7'* >/' 12* 2'.... E0 '*6* <2 <* 2 (*+*, 1'2 02 ' '(@* 5*0'*...
59
L2 >/' 1*(* '( >/' 12 * *0*0 *02 7/'@*( 7*6*( 7'(620'( ' * 6+'* HAC, < * >/' <2 2( 2?'=32 '0 56 160* 02 @6'0' * ?/03690 - *5'0@*+' '(@' '32, 1'2 *( '(... E0 @22 3*(2, *< 2@* 7'(690 12 * >/' (6 * @6'0', < '( 5/< 325;0, 1'2 *1'0*( '03/'0@' '(* 6+'* * 1202 '0 * 160*, < '( *76(2 * @22( 12 '-5*6, (6'51' >/' 5' *<*0 '(36@2, <* >/' @22( 2( '-5*6( ' '0@' >/' 5' * (*/*2 2 '32 320(/@*(, @'02 (/( '-5*6(, 1** 60?25*'( (2+' *3@/*6=*3690'(, 2 32(*( 3252 '(@*. B/'02, *2* >/' <* (*+'0 3252 *3' '(2 320 * 6+'* HAC, *2* <2 '( '0('* * 5*0'* >/' 23/1*0 2( >/' 02 0'3'(6@*0 ' 12*5*( 1** @22. ... ** :-) B/'02, '0 '*6* '(@* ?25* '( +*(@*0@' (651', 1'2 02 @*0@2 3252 23/1* * HAC. P65'2, '+'52( 120' ' 0;5'2 >/' >/''52( @*0(?25* '0 * 16*, 1'2 ' /0* 5*0'* 5/< '(1'36* : : %: :a: %F4 A(, 320 2( 56(52( (602(. L/'2 *1'@* * @'3* EVAL < <* '(@. : %: %F4 A2* <* @'0'52( * 56@* ' *3672 dCON!IG, >/' '( ' ;@652 >/' 02( ?*@* 1** 12' 3'* * 6+'*. La segunda mitad es bastante más dificil debido a esto, yo desarrolle un programa cual nos hace todo este trabajo sucio, o ponemos el nmero de nuestra librer!a en siguiente forma"
de obtener, pero llamado CONFIGS, el sea, nosotros la pila de la
#" $" $#%& ' luego simplemente apretamos el CONFIGS de mi programa, y el resultado es " 60
#" $" ($#%&d) *+ternal espu-s de esto, simplemente guardamos esto en la .ariable /CONFIG y ya estamos listos para armar la librer!a0 Si .a a usar este m-todo, puede saltarse lo 1ue biene a continuaci2n y espu-s de tener listo el directorio con todas sus .ariables y tambien con las cuatro re1ueridas por la librer!a 34C5, simplemente en la librer!a 34C5 use el comando 6)LI7 *ste comando se debe dar sin ningn objeto en la pila, ya 1ue el simplemente son arma la librer!a siempre y cuando se cumpla con las condiciones 1ue hemos anali8ado en este documento sobre la creaci2n de librer!as0 *n ese momento, luego de haber utili8ado el comando 6)LI7, aparecerá en la pila su librer!a armada y lista para ser distribuida, o sea, hemos terminado el trabajo0 *l programa CONFIGS creado por mi, lo pueden descargar directamente de la siguiente direcci2n " http"99:::0geocities0com9+j%;u;+9do:n9configs08ip ' debe tenerse muy en cuenta 1ue para usarlo se debe tener instalada la librer!a 34C5, cual1uier .ersi2n0
A2* 7''52( * ?25* (/36* < '0@* ' 2+@'0' '(' 1'36*2 E@'0*. L* ('/0* 56@* '( /0 1232 5( 325163** ' 2+@'0'. R'32'52( >/' 0'3'(6@*52( * 1**+* E@'0*, 1'2 02 3/*>/6' E@'0*, (609 /02 5/< '(1'36*. P** 2* '(@2, '+'52( '@*' ' *3672 dCON!IG ' 2@* 6+'* /(*02 * 56(5* HAC. P65'2, 120'52( /0* 6+'* 3/*>/6'* '0 * 16*, ' * (6/6'0@' ?25* : : %: L6+*< JJJJ : M*@'5*@63*( 12 S'+*(@6*0 R67*( L/'2 ' '(2, /(*02 * 6+'* HAC, /@66=*52( ' 325*02
61
OB- E0@203'(, 02( '0320@*'52( 320 >/' '0 * 1-48 * *1*'362 /0 0/'72 6'3@262, ' 3/* 320@6'0' * 6+'* '('0(*5+**. E(@*02 * 7*52( * +/(3* ' *3672 dCON!IG < (*3*52( (/ 320@'062. PONGA ATENCION, DI"E SACAR SU CONTENIDO, NO E"ECUTARLO, SI USTED LO E"ECUTA ES SU RESPONSABILIDAD POR SU CALCULADORA. E(1'2 >/' (' ('1* 3252 (*3* 16*5'0@' ' 320@'062 , '0 3*(2 ' >/' 02 (' ('1*, '5' '36' >/' 02 @6'0' 0** >/' *3' '0 '(@' 5*0/*, 7*<* * *7*(' ' 12@2, '(@' '( /0 5*0/* *7*0=*2 , 7*<* * 5*0/* ' /(/*62. P'2 ' @2*( ?25*(, /0* ?25* ?36 ' *3'2 '( '(36+6 '0 * 16* 2 (6/6'0@' : : %: dCON!IG Y /'2 *163* ' 325*02 RCL D'(1/( ' '(@2, 02( '+' >/'* '0 * 16* *2 3252 '(@2 : : %: XXXX E@'0* E0 20' XXXX '( ' 0;5'2 ' 6'0@6?63*3690 ' * 6+'* >/' '52( '('0(*5+*2. PONGA ATENCION A LO SIGUIENTE : EN CASO DE QUE EL CONTENIDO DE LA VARIABLE dCON!IG DE ESA LIBRERIA NO !UERA PARECIDO A LO QUE AQUf SE MUESTRA, LO ME"OR ES QUE SALGA DE AHI Y BORRE EL CONTENIDO DE ESE DIRECTORIO, YA QUE SIGNI!ICA QUE ESE dCON!IG NO NOS SIRVE, Y LO MAS PROBABLE ES QUE SI SIGA "UGANDO CON EL, RESETEE SU PROPIA CALCULADORA. EN ESE CASO, LO QUE SE DEBE HACER, ES ABRIR OTRA LIBRERIA EN BUSCA DE UN dCON!IG QUE NOS SIRVA. A2* (/120*52( >/' <* @'0'52( 2 >/' 0'3'(6@*52(, 2 ('*, : 62
%: XXXX E@'0* A2* (**52( ' 6'3@262 ' * 6+'* '('0(*5+**, < 7*<*52( * 0/'(@2 6'3@262 ' @*+*2 1** 325'0=* * @*@* '(@' 320@'062 XXXX E@'0* ). A0@'( >/' 0**, '3/'2 >/' /'2 ' *+' '@*62 320 '6@2 ' dCON!IG ' * 6+'*, 12'52( (651'5'0@' +2* ' 6'3@262 >/' 320@6'0' *( 7*6*+'( ' 63* 6+'*. N2@* ' */@2 : P** +2* 3251'@*5'0@' /0 6'3@262, *5*2 12 ''512 D4444 , < >/' 02 '(@ 7*32, (' '+' 23/1* ' 325*02 PGDIR, '(@*02 ' 025+' ' 6'3@262 '0 * 16* '03'*2 '0@' *7'( '(@2 '+'* (*+'(' * '(@*( *@/*( ' 3/(2. L6(@2, *2* >/' <* '(@*52( '0 0/'(@2 6'3@262 ' @*+*2 320 *( 1**+*( 563*( '0 * 16*, 02( 1'1**52( 1** 325'0=* * @*0(?25* '(@2 : XXXX E@'0* '( '(@2 : %F4 E@'0* L2 165'2 >/' '+'52( *3' '( *('/*02( ' >/' ' XXXX E@'0* '(@ '0 ' 165' 067' ' * 16*, 1** 12' @*+** 320 . 2 ('* .... : %: XXXX E@'0* 63
B/'02, *2*, 7*52( * 6 (6/6'02 2( (6/6'0@'( 1*(2(, /02 12 /02, < *>/ '( 6 52(@*02 2( '?'3@2( >/' '+'*0 6 76'02 * 5'6* >/' (' 7*0 *02 2( 1*(2(. R'32'52( *0@'( ' 325'0=*, >/' '+'52( @'0' * 5*02, ' %F4 >/' <* '0(' 3252 3'*2. L2 5'2 ('* @'0'2 /**2 '0 /0* 7*6*+' 12 56'0@*(, '(1/( ' >/' *<*52( 3/5162 0/'(@2 1219(6@2 ' *5* ' %F4 E@'0*, '+'52( +2* '(* 7*6*+'. T22 2 (6/6'0@', '+' 325'0=* 320 >/' /(@' @6'0' '(@2 '0 * 16* : : %: XXXX E@'0* [P65'2 : A+* * HAC < ' 325*02 OB- 4: F: XXXX : E@'0* %: E(' '( ' '?'3@2 >/' (' 12/3' * *3' '(2. [S'/02 : DROP F: : XXXX %: E@'0* [T'3'2 : SAP F: : E@'0* %: XXXX [C/*@2 : DROP 64
: %: E@'0* [Q/60@2 : R'3/1'' (/ 0;5'2 ' 6+'*, '0 '(@' 3*(2 %F4 F: : E@'0* %: %F4 [S'@2 : SAP F: : %F4 %: E@'0* [S'1@652 : I0'(' ' 0;5'2 4: F: %F4 : E@'0* %: [O3@*72 < ;@652 ]]] : A+* * HAC < *16>/' ' 325*02 -PRG %" #" $" ($#%&d) *+ternal
LISTO ]]]]]]]]]]] A2*, '(2 2 /**52( 320 ' 025+' >/' /(@''( '32*0..... dCON!IG
65
L/'2, (6 '( >/' ' 0;5'2 %F4 2 *+*52( /**2 '0 /0* 7*6*+' @'512*, +2*52( '(* 7*6*+'. 43O<4, 47<4 L4 34C5, ' * *L CO=4NO 6)LI7
H* 3'*2 (/ 165'* 6+'*. T'0* 5/< '0 3/'0@* '(@' 32('2 >/' ' 2<, *( 6+'*( >/' /(@' 3'', 120*'( 0;5'2( '0@' % < J. P** 5*<2 ('/6*. Y '3/'' (6'51' >/' '0 /0* 56(5* 1-48 02 '+'0 *+' 2( 6+'*( 320 ' 56(52 0;5'2 ' 6'0@6?63*3690. !IN DEL CAPITULO J -------------------------------------------------------------------CAPITULO &AL !ILO DE LA MUERTE, LIBEVAL Y SYSEVAL, LOS COMANDOS DEL IN!IERNO.& eQ/' @6@/2 1** '(@' 3*1@/2 ']. B/'02, '0 '(@' ;@652 3*1@/2 ' '(@* @'3'* 1*@' ' 5*0/* ' 12*5*3690 '0 '0/*' U('-R1 1** * 3*3/*2* 1-48, '0('*'52( &*/02(& /(2( ' 2( 325*02( 5/< '(1'36*'(. E(@2( 2( 325*02( '(1'36*'( (' *5*0 LIBEVAL < SYSEVAL. P65'2 >/' 0**, @'0* '0 3/'0@* >/' '0 2( 12652( *(, ' *('/2, >/' (6 (' 5'@' 320 '2( ' ?25* 6'(120(*+', '('@'* (/ 1-48 7*6*( 7'3'(. E(@2 '( '762 * >/' '(@2( 2( 325*02(, (20 2( 325*02( ' 60?6'02, '( ' 56@' '0 ' 3/* 3/=*0 (/( 3*5602( 2( '0/*'( U('-R1 < S<(@'5-R1. A @*7'= ' '2(, < 5( ' SYSEVAL, @'0'52( *33'(2 * ?/03620'( >/' 0/03* *+6*52( 65*60*2. O ('*, 12 ''512, ?/03620'( ' SYSTEM-RPL. N2@* ' */@2 : T*@' ' +/(3* '(@2( 325*02( '0 2( 5'0/( ' * 1-48. E( 6512(6+', <* >/' 02 *1*'3'0. `12 >/'$
66
H*+'52( ' */0*( 32(6*(. E0 ' '0/*' U('-R1, 2 ('*, ' >/' '(@*52( /(*02, 3** 7'= >/' 02( '>/6723*52( '0 *2, (651'5'0@' ' 12*5* (' '@6'0' < (' 02( 325/063* 0/'(@2 '2 320 /0 16@62 2 /0 5'0(*'. E(@2 '( '+62 * >/' ' '0/*' U('-R1, *3' 32512+*3620'( ' 3** 325*02, 2 ('*, 02( 12@'' ' (6@/*3620'( 222(*(. T25'52( 12 ''512, @*@* ' '*6=* /0* *065*3690, (60 @'0' @22( 2( 1*5'@2( 0'3'(*62( '0 * 16*. E0 '(' 3*(2, (' 02( 6 5'6*0@' /0 5'0(*' 0/'(@2 '2. E0 3*5+62, ' S<(@'5-R1 02 '*6=* 060;0 @612 ' 32512+*3690, '0 '(@' '0/*', '( ' 12*5*2 2 '(*2*2 ' '03**2 ' >/' (/( 12*5*( 02 320@'0*0 '2'(. P2 ''512 (6 (' *3' /0* 21'*3690 >/' 02 '(@* 1'56@6*, ' S<(@'5-R1 * 123'(* 6/*, < '(@2 ' ^^.^^g ' 2( 3*(2( @'560* '0 : MEMORY CLEAR E(@* '( /0* ' *( *=20'( 12 *( 3/*'( ' '0/*' SYSTEM '( 3252 /0*( 7'3'( 5( 162 >/' ' /('. N/'(@2 >/'62 U(' 02( 12@'', ' S<(@'5 02. B6'0, < *2*, 2 >/' *3'0 2( 325*02( LIBEVAL < SYSEVAL 02 '( 2 56(52, 2 >/' *3' LIBEVAL, 2 5'2 632, ' /(2 ' >/' *0*6=*'52( *>/, (' 1** @'0' *33'(2 5'6*0@' 12*5*3690 * /*'( '0 2( >/' 02 (' 1/'' *33''. Y ' SYSEVAL, '(@' >/' '( ' 5( 12'2(2 ' @22( 2( 325*02( ' * 1-48 ' *'52( */02( /(2( 67'(2(. LI7*>4L
H** /0 12*5* >/' 2 >/' ** ('* 60@2/362 '0 ' '(36@2 ' 5*@63'(. ` P/'' $ ` H*< *;0 325*02 >/' 02( 1'56@* '0@* '0 ' 5'0; 1** *?63* ?/03620'( $ P** '(@*( 32(*( '( >/' (67' ' 325*02 LIBEVAL. 67
P2 ''512, <2 2 /@66=2 '0 56 12*5* *5*2 ANTI-ALGEBRA P** 12' *33'' * '(36@2 ' 5*@63'(. Y '(@2 '( (651'5'0@' 2 >/' 6'52( *3'3* ' LIBEVAL. S/( /(2( >/'*0 * @/ 65*60*3690. A0@'( ' * /0* 6(@* ' 0;5'2( 1** LIBEVAL, 7'*52( * (60@*6( ' 325*02. L2 >/' LIBEVAL 0'3'(6@* 1** ?/03620* '( /0 0;5'2 '0 * 16* ' * ?25* : : %: K 0/5'2 O ('*, 320 K P'2 '3/'' >/' '( (/ '(120(*+66* (6 '('@'* (/ 1-48 320 0;5'2( >/' 02 32'(120'0 2 * 60?25*3690 >/' *>/ (' '0@'*. E0 @22 3*(2, (6'51' '( +/'02 12+* '523620'( ?/'@'( :-) A>/ '0@'2 /0* 6(@* 320 */02( 6512@*0@'( /(2( ' LIVEVAL, /0@2 320 ' 0;5'2 >/' 32'(120*, 1** >/' 2( /('( '0 @/( 3'*3620'(. !/03690 LIBEVAL M'0; ' S27' 12<0256* K B4C M'0; ' (6(@'5* ' '3/*3620'( K B4FF L* 7'0@*0* ' CMD K B E0@** * C*( K B% M'0; ' MODOS K B4%C% M'0; CHOOSE ' 2( !*( M22() K B4%C! E0@** 6'3@* * MEMORY K B4%D E0@** 6'3@* * SOLVE K B4 M'0; ' S27' E>/*@620 K B4% 68
M'0; ' S27' 6?'> E>/*@620 K B4% M'0; ' TVM K B4F8 M'0; ' PLOT K B44J M'0; ' SYMBOLIC K B4%%F M'0; ' I0@'*'( K B4%%4 M'0; ' 6?''036*'( K B4% M'0; ' STAT K B4%J M'0; ' SINGLE-VAR STADISTIC K B4% M'0; ' !'3/'036*( K B4%D M'0; ' '0@** ' *@2( !IT DATA) K B4%! M'0; ' SUMARY STADISTICS K B4%8! M'0; ' IWO K B4%^ M'0; ' S'0 @2 HP-48 K B4%^F M'0; ' I51'(690 K B4%^ M'0; ' @*0(?''036* TRANS!ER) K B4%A8 M'0; ' '3'13690 ' HP-HP K BJ!! M'0; ' TAYLOR K B4%B M'0; ' ISOLATE VAR K B4%D M'0; ' '3/*3690 C/**@63* K B4%F M'0; ' 5*061/*3690 ' '1'(620'( K B4%F% M'0; ' * A163*3690 TIME K B4%F E0@** ' *( **5*( K B4%F8 S'@ @65' *0 D*@' K B4%JB C*@*22 ' **5*( K B4%E 69
S6 '('*( /0* 6(@* 3251'@*, '(36+'5' * 56/0(@*5'6*.325 S'S*>4L
A2* '(@*52( '0 @''02 '*5'0@' 560*2. E(@' '( ' 325*02 5( 12'2(2 ' >/' 6(120'52( '0 ' '0/*' U('-R1 1** * 1-48. L2 >/' *3', '( (651'5'0@' *02( *33'(2 * ?/03620'( < 325*02( ' '0/*' S<(@'5-R1 P'2 '2 '0 3*2 ' >/' '(@' 02 '( /0 3/(2 ' S<(@'5-R1, (602 ' U(', 12 2 >/' <2 *>/ 02 '0('* 060;0 325*02 S<(@'5. L* (60@*6( ' 325*02 < (/ ?/03620*56'0@2, '( 1*'362 * ' LIBEVAL, 2 ('*, (' 0'3'(6@* /0 0;5'2 320 K 1** 12' ?/03620*, 1'2 '1'06'02 ' 3** 325*02 ' S<(@'5, '>/'6 (/( 12162( */5'0@2( 1** ?/03620*, 2 1** @*@* 2 5*061/*. L2( >/' 12*0 (' 0;5'2(, 0;5'2( 3251'2(, C*'0*(, D6+/2(2+(), '@3, 2 '(@2( 56(52( 325+60*2(. E0@203'(, 3/*02 /02 02 ' * * SYSEVAL 2 >/' 0'3'(6@*, ' (' '02* < * 5*<2* ' *( 7'3'( 02( '(@/<' * 5'526*. S6 '('*( @'0' 60?25*3690 *3'3* ' '0/*' SYSEVAL, 1/''( 666@' * 56 160* < +** ' 5*0/* 2?636* ' SYSTEM. @@1:WW.'236@6'(.325WFJ/J @@1:WW.'236@6'(.325WFJ/JW148.@5 P** 02 1*'3' @*0 '5@632 320 '(@' 325*02, * /0 ''512: E(@2 '( 1** >/' /(@' 3251/'+' ' PODER ' SYSEVAL. S6 /(@' *163* SYSEVAL 320 ' 0;5'2 K ^ '0 * 16*, '('@'* (/ 3*3/*2* 605'6*@*5'0@', (60 1'/0@*(. S651'5'0@' .... M'52< C'*. E(' '( /0 ''512. 70
A2*, '0 3*(2 ' >/' /(@', *<* >/'*2 '0*52*2 ' 325*02 SYSEVAL, '0 56 160*, '0 * ('33690 H'*56'0@*(, 1/'' '0320@* /0* 6(@* 3251'@* 320 2( 325*02( ' SYSTEM-RPL < (/ '(3613690 < (/ 0;5'2 ' SYSEVAL. E(@ '0 60( :-) @@1:WW.'236@6'(.325WFJ/J A>/ *< /0* 1'>/'6@* 6(@* : F^4 VERSTRING FAF8 M*'S@L*+' FAFEC M*'D6L*+' FAF8A M*'B2L*+' FA44E M*'I07L*+' FA%!C D6(1M'0/.% J!4 GARBAGE 4%!J *6@!2'< FJFAB SYMB IDS 4DJ L23A1* 4DF^ U023A1* FAAA %AW L23A 44CF% D2N'M*@6 44!E D2OM*@6 %F%4D TOADISP %F%FJ TOGDISP F^JF% CDA%I(S@*@ %FAC RECLAIMDISP 4EF4 TURNMENUON 71
JB%J d ID JBE^ ID FA%E8 D6(1M'0/ F^BAD D6(1S@*3 L2( 0;5'2(, 3252 (' 120 * 3/'0@* 12 *( '@*(, '(@0 '0 '*'365*. D' '(@2(, <2 02 1/'2 *'( 60?25*3690, <* >/' <2 12*52 < '0('2 U(', 1'2 3'2 >/' */02( >/' '( 12*0 (' ;@6'( ('*0: 4DJ L23A1* -- N2( 120' '0 522 E(36+6 4DF^ U023A1* -- S*' ' 522 E(36+6 4%!J *6@!2'< -- E(1'* * 1/(*3690 ' /0* @'3* J!4 GARBAGE -- R'32'33690 ' +*(/* L2( '5( '*5'0@' 02 '3/'2 1** >/ (67'0. P'2 '0 3*(2 ' >/' @' *<* 60@''(*2 '5*(6*2 '(@2, <* (*+'( 20' 1/''( 6. !IN DEL CAPITULO -------------------------------------------------------------------CAPITULO &EL DIRECTORIO OCULTO& E0 * 1-48 '6(@' /0 6'3@262 23/@2, 3/<2 025+' '( . T*@* ' *3' '(@2 : : %: E( 6512(6+', +/'02, * 5'02( >/' 3202=3*( /0 325*02 5/< 12'2(2 *5*2...... $$`$`$`$`$::::: (6.. SYSEVAL.
72
BI'0, '0 '(@' 6'3@262 23/@2, (' '03/'0@* 60?25*3690 *3'3* ' * *(60*3690 ' @'3*( < **5*(. U(@' 1/'' 1'0(* ` Y >/' @6'0' >/' 7' '(@2 320 12*5*3690$ L* '(1/'(@*, '( >/' 3252 <2 >/6(' * @22( 56( 32023656'0@2( '0 '(@' 5*0/*, '( 6 ' /(2 >/' <2 * 7'3'(, '0 '@'560*2( 12*5*( ' 2< * 6'3@262 23/@2. P** 56 '( ;@6 ' 6'3@262 23/@2 '0 *163*3620'( '0 *( 3/*'( *< *;0* 60?25*3620 >/' '+' (' 3'** 12 0/'(@2( 12*5*(, 12 ''512 /0* *'0* ' @'?202(. E0@203'(, ('* 5( 39522 1** ' /(/*62, >/' 3** 7'= >/' 0'3'(6@** /(* (/ *'0*, (' ?/'* * 12*5* >/' '52( 3'*2, 1'2 02 0'3'(6@** @'0' *33'(2 * * ?/'0@' ' *@2(. O ('*, * * 7*6*+' '0 20' 7*52( /**02 * 60?25*3690. D' '(@* 5*0'*, '0 3*(2( 3252 '(@2( '( 5/< ;@6 /@66=* ' 6'3@262 23/@2. A2*, /(@''( ' 1/''0 * ' /(2 >/' '(''0. S' '+' @'0' '0 3/'0@* 02 *@'* ' 320@'062 ' *( 7*6*+'( >/' (' '03/'0@*0 12 '?'3@2 '0 ' 6'3@262 23/@2. Y* >/' '(@*( (20 23/1**( 12 ' (6(@'5* < (/ 526?63*3690 12* (606?63* /0 32251656'0@2 ' * 5'526*5'52< 3'*). L2( 025+'( ' *( 7*6*+'( ' (6(@'5* >/' (' '03/'0@*0 '0 ' 6'3@262 23/@2 (20 : A*5( U(''<( < U(''<(.CRC A2*, 2 5( 6512@*0@', ` 3252 *33'' * 6'3@262 23/@2 $ C20 ' (6/6'0@' 0;5'2 ' SYSEVAL : K %J O '0 '365* : K 8^ Y /'2 ' *3' SYSEVAL 02( *1*'3' '(@2 : : %: hh 73
E0@203'(, '(@*02 '0 ' 6'3@262 HOME *3'52( EVAL < <* '(@. A2*, 1** (*6 ' 6'3@262 23/@2, (' *3' 6/* >/' 320 3/*>/6' 2@2 6'3@262 : UPDIR. A2* *0*6=*'52( 2@2 67'@62 /(2 ' 6'3@262 23/@2. E0 '*6* *+*'52( ' 3952 '(320' 3/*>/6' 6'3@262 ' * 76(@* ' /(/*62 325;0. P** '(@2, '+'52( '0@* '0 /0 (/+-6'3@262 3/*>/6'*, < /** 3/*>/6' 32(*, /0 0;5'2, @'@2, '@3, 320 ' 025+' . V' 3252 '(*1*'3'0 *( 7*6*+'( >/' *+* *. A2*, 1** @'0' *33'(2 * '(*( 7*6*+'( ('3'@*(, /(@' '+' @'3'* 5'6*0@' ' @'3*2 (/( 025+'(. B/'02, *(@* *>/ '* '(@* @'3'* 1*@' ' 5*0/* ' 12*5*3690 '0 '0/*' U('-R1 1** * 3*3/*2* 1-48. L* ' 1*(*2 5/< +6'0 *36'02 ' 5*0/*, < @'02 */02( 12<'3@2( '0 5'0@'. P65'2 >/' 0**, 72< * 3'* /0* 3/*@* 1*@', '0 * 3/* 02 (' *+* ' 12*5*3690, 2 ;0632 >/' 7* * 320@'0' 7*0 * (' 3962( ?/'0@' ' 12*5*( 3251'@2(, 1** >/' ('*0 *0*6=*2( 12 /(@''(, < '( (67*0 3252 '?''036*(. P** >/' '(@2 '(/@', 2 ;0632 >/' '( 162, 1'2 12 ?*72, H**02 ]]], '( '(36+65' /0 '-5*6 * 56/0(@*5'6*.325 636'025' >/' 76'20 56 5*0/*. E(@2 '( 5/< *@6?63*0@' 1** 5. M6 i063* 1**. G*36*( 12 '' '(@' 5*0/*, < 12 60@''(*(' '0 ' 5/02 ' * 12*5*3690 ' * 1-48. !IN S4L?OS ' 4G<4*CI=I*N@OS *ste trabajo está dedicado a mi hijo, Sebastian Aesus
anessa, my lo.e0 =i familia0 =is amigos del mundo real " Igor 4raneda0 74
Carlos Bue8ada0 anilo Sae80 4ndres Aofr-0 A0<0 aniel66Ne:anC0 Fernando FeDa 4burto00000 4nOr=aL nunca morirá EEEEEEEE Cristian Campos0 Felipe Campos0 Felipe
3aomaru0 *.iL0 y otros 1ue no puedo nombrar0 6 ' con amor, a mi amiga del otro mundo " M 5arla 5etterer0 M 4 las siguientes personas, las cuales incenti.aron esta creaci2n con sus ganas de aprender0 *llos saben 1uienes son " moramoon conalep8 jrlope8 omarfpr solisb ele# cacl gojeta& arcas#% jleal% AosP L @irado No cono8co a ninguno, pero G<4CI4S0 MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM Sebastian