Página 207 - Apuntes de análisis de decisiones I

BAU\l'~CE
C21c~lo de balance
{GiC1TO::' E5~·
{GET LABEL. I'Cü!"'1PANIA~ !I ~ E;::;:::-··'"
{C;ETLABEL "A\O: ",(ojO::"··
{ GOTO}ES"'·
{F'ANELOFF} "..
/ F:F'f1;~ ~ K51 ro"
/ RUD16.D18~·/RUD20 . D20 ~i RUD22 ~ D23~~
i RUD32.D32 -/RUD34.D36 -/RUE43 .E43 "
IRUH16.H1S-/RUH27.H29 "
/ RlI H38 . H40~ / RIC16.D18~¡RI C:2 ü.D2ü ~
/RIC22.D23 ~/RIC32 . D32-/RIC34.D36~
/ RIC43 . E43 '~! RIG16.H1 8-/RIG27.H2S ~·
/F:IGJ::::.1-I40 ....·
{ESe} ......
{ GOTO}E26- +@SUM(D16.D23)~
(GOTO}E39~ +@SUM(D32.D36)~
( GOTO}E46~+@SUM(E26+E39+E4 3)'~
(GOTO}I21 ~+@SUM(H 16.H18;­
( GOTO}I32~·+ @SUM(H27 . H29) ­
{C;OTO::I43-+@SUMeH38.H40 ;–
(GOTO}I46~+@SljM ( I21+132+I4J)~
(IF E46< >I46}(BRANCH 043 )~
:: GETLAEiEL "DEf;EA H1F'F:HlI F: :' (S/ N) ", L:2.: ...
<IF L2 <>"S'¡>{H F~ ANCH ():3 : :}''''
OS \ 015~P53"' QLAG~ (ESC}~
{GOTO}E5~( BRANCH 042} ~
'::BEEP::' .,.
.:: F'ANELON ::' .,.
{GETLABEL "NO Cu¡")[>H?) OTVA (:OF:RrD{~;· (:;/1\1) " ~L l ::- -..
{IF Ll::!I~;! '}{BRANCH Clll ::"·
.:: PANELON:: ~· <: BEEP}-·
-:: GETLt')¡E:EL. 11 T E F:: ~/! 1 t·,! A ti! U ~;! ! I " >;:::1 ::: :: ""
/ ::<0 "··
207