Página 188 - Apuntes de análisis de decisiones I
Versión de HTML Básico
461..1
,'IIf.;,x.
470
Nl-= 1
~ i~
..·)·"
I
480
COLOR
0 , 7
,}';O LOC.... TE
7.3: FRHII
NEI.JU!l' (;. ,
300
COLOR
7,(I:5CREEN
0,0,3,:.5
SIO
I<EY
( 1 1)
OH : üi.J
i·.f'::·'
i
1 1 )
GU6uB
6 3'Yu
::;20
'<EY
<12i
Ol~ :
lJl.J 1<1:. ·,· ( 12)
GOSUB
63YÚ
:.:..:>...'
l--:EY
<1 :.;
ú¡·J:
uN
.(F, .1:3 ,
BOSUB
)" 191)
:>4 0
k~~
(14)
ON:ON
kEl·
(.i-l)
GOSUB
7190
:i:¡0
LüLúH 1b,, : i....UCiYiE
~3 ,J.:f'RINr
a!:> o la. lQlra. cut"! espulldiente
~GO R~~INKEV~ : lf R~~ ' "
. HEN
~60
~· f.tr"a
sel ecc
i
orlar usa 1 as tec 1 as de
-f
1 ec:h
" ; : t.;OLUR 1 ,0
570 IF
(H~
.... " A" OR
I(' /' P " ) ..
"...tU
R~<>CHR$(lJ)
SS'.) IF
f("=..CHI", ~(l_"
Ihd.J
¡ Ou
:''iú
NI ={\SC
{".t.l
" 64
60u LuC..·\",· E u ...
·;·lt:¡, J, ; ¡...n¡I~1
l'ic.NU1o <NA1;
(.010
CGLOJ~
ú,
i
6¿0 LUCHfi::
c:., ..
iH , ....
:Í""fdN¡ I"IENU$iNJI ;
6.:..;0
COLUI;;
i ,
v
,-,,¡ O GGSuJ..·
b1U(J
¿:.,;",
I F R$= " S" lHE:H i'(l0
...¿'( J
LDCH I E
6 JIH, :S :Pf"::iI.J ¡ HEHU$UH)
~
670 CiJLOn
0 , 1
6 8t,.)
LCCH7E
¿'~I'I
..\ • .
;' :PhI¡-"¡¡
l'II:.HU;'O'U,j;
6 ··)(1
NI "'I.JA:GOH.J
~üv
IHE.1Io! BEEP:GOTO 560
:c,G FUI',
1<"" 11
,·0
J.·¡;h.E,
~I·, J t.J r- t · ~I,,~. )..j : SCF\·!:.Er-l (I~ O ,(I,O : O'"
NI GOfO
7 30~99(1~1250,J 5!lO ~
1
7 b'~I,
"¿(I':'¿v ,
:':¿c0 ~
2 ::; '10 ,
2/9(1,
3 ü41.1, 3:"'::90,
~. :.'j8(1,
.38 70, 4080 , 5 190, 5630
;"· 1 U
h Ci.
t."I¿'<.'c\c\t."\<:\dc\n.deld<:\c01ddd.¿"<:\e-I¿tdacid.;\da.:tt3dddditit
aai:ld~da"daAaa
7::20 REII
"'ddc\t."\
ad.;o.aa
/':".0
L:LS~r'¡El1
e\",c\ ..
~d
Ct-lLCULO DEL
\/f~LUR
FUluliO E("!UIW1LEN'IE
aaBaa
7 4 0
nr::¡.¡
,:,0 ¡.EH
.~bO
GOSUD 612(,
;' ;'Ü
LOCr.: ;::: S,
11.: ,·, .•
f.; " flb/üt·.1Lü:
, : ~üL Uj.(
o,/ : I-RINI " t- "'¡"' II· / F",l i. ,III " ;: CUl.OR
"1 , '.1
78() LOC(-\lE ::;,1 : FidHT ·' I..
l.jIIl::.HO DE
HilOS :
' ; : CULOf-(
1),
1:
I~'r<
I N·I
SI-"AtE$
(.3 ) ; :
COLOR
7
~
(1
;. ~,' t)
LOC:nE 7 ,1:r¡.; IH "¡"I-iS,;
lJi..:.
lHIc:.;";l:::":b: " ;:L.:uLUR
O, 7 : ....RINI
bf ·'HLE.$(6); : COLW;;
7~ú
8')0
LOCArE
'i,
1
I
rH
lt~
¡ ,. · ...
'.·fLUR
f."1"':t;..6ENH:':
" ; :
COLLJk
(.o, "j :
FR 1I.J r
SPACE$ (
15) ; :
COLOr;:
7
~
O
a l 0 ULE:...3 rSUE,· ..
1 :l j·- 1t:h ',, ····3:,JOSUl::.
S¡·uO
5.20
¡ ¡.:
'(~""CHR'<~::-/)
"HIEJ-4 LUCf.flE 1 , 1, Ú:60rO
9bU
8:;0
NA~.:; ·v!p
640
UU;>~6~SUri'"~ 1 :/1 :.;. 18;·,,·"'"·,:GUSUB
5 1 00
a~o
I r- ·,'.='CH!í'¡;'CL::n rHEt.J LOC/lfE
1,1,O: GO"TO
(y60
GüO
"T
¡
. <..',' .t
6 "/0
hiLf:.=lSrBU[;"'1:H"" 18 : V=:t :GOSUB
S'/OO
800 1F Y·¡ :..CHR$ (27) TI iEI·J
LOCA l '::' 1, 1 , O :
GOTU 760
:;í..)
'Jr$.= Ys.
700 GOSUB 62::J0
71 0
Ir
RS .... .. i-4"
TH¿i.J
·18 (;
'720
NA:..:o.VAL
(N{I$) :,. I -"V(.,L <11 :.) /
100 :
VP=VAL
(vr·$)
~30 F-~P'C 1 ·"lI) ·' N~
7 ·h)
Loe/HE
14 ,1 :f.kll.J1 " W iLDR
fUTURO
<":
";~PRJNi
USING
" ""*U##U#ij##ij,.6ü ·';F ;
';:;0 80:-;0(;
6~2G:CLS
9.~0
SCREEll
ú,O,3 , 3 :NA~NI:UOTO ~ 10
:, : u r,Ei I
bbhbbbbububtJbubbbbLJbbbbbbbbhbbt.>bbbhhbhbbbbLbbbbl'bbbb
760 nE¡·1
ulJbbI.J
bbbbb
)''7'(;
Ci....S :
; ,;'::;·1
lJlJLbLJ C{·ILLULO
ü~L VALlj.~
f-·RESEN
I
t;.. E<.-JUIVAI..EN
I E
bbbbLJ
l .)(¡ü REI I
I.JbLJbLJ
bbbbb
¡
t...
1
o
r;'EII
blJiAI,~uubLtl1Ji.)I~lllllJhbbbbbbbb b bl.bLJbbbbbbbbLJtJbbbbt
.. bbbbbbb
lf;;::O
GGSi..JD
ó
l :LO
J. .:...
!.(I
l.Uc"tfi [.
~.
'11 :
F r~ ll.J1
'·f.ll:.IIOI-lIUJ: .. ;:
LUU)/·.;
1), 1 :
F"HINl "F'"'''F (F / F,
i
l.,
lo) " ; :
CULOR
"1 ,
(!
1(¡ 4(l LO(.;r-nE
:-.i,l : F·¡; HH
· iiUJli:.hU
Dk:: (.lrí05:
" ; : t:OLOR
O, 7 : F'RUIT
SPACE$~3);:COLOI";:
7 ,0
103(1
LUl:rl1 E
,,1:
F·idi,jl ..
r
tI!.:>r.
DE
Ji..
J
EJ-{ES : "; : COLUR
0,7 :
PIUNT
SF'ACEt (6) ; : COL OR
7 .
(J
1(,'::"0 LOCArE
~¡
•
.i.;f"R1t1T
"Vt.Lun FUIUHO
"):CúLOF<
O,7:PRINT
SPACE$(lS); : COLor...:
7,0
I I.} J~ () ¡.JLE "":!.:SU[i ~· 1 :H= 18 : \.:o' !.i: OtJ ~UH
s ·, ou
l e so IF
YS '""'CHR-j;( ~:7) I: H~j~
l.Ue/·IIt:: 1 .•
1,V: GtJ·iLJ i ·¿Lu
188
