Category : Lotus and other Spreadsheets
Archive   : BESTLOTU.ZIP
Filename : STOCK.WK1

 (–<

( !/





ÿ  Hd h
œ@isaaf(h
@isapp(GDISPLAY

GDIVFRMLA  GDOWJ

GDTEST  GDTPROMPT # #GFORMULAS
GFUND  GGETDATE  GINPUT

GPROMPT  GRESP1 & &GRESP2 ( (GSIGGSTARTUP


GUPDATEG\D  G\U ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ0


ÿÿÿÿ ÿÿÿÿ# ÿÿÿÿgÿÿÿÿÿÿÿÿÿÿÿÿi(ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿfÿÿÿÿÿÿÿÿ$
%ò&ò'((
LB)
'*ÿÿÿÿÿÿÿÿ-·
ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqq
!ÿ'INVESTMENT-TIMER WORKSHEET ÿ'\uÿ '{GOTO}input~ÿ
'{getdate "Enter date "}ÿ '@DATEVALUE(resp1){CALC}~ÿ\=
ÿ '{DOWN}ÿ'ACTION:/ÿڟð
€ €
BUY/HOLDWAIT/SELL;3ÿBUY/HOLD<ÿ '{GETNUMBER "Enter end-of-week price ",resp1}/Cresp1~~ÿ\=
ÿ '{DOWN}@ÿ '{GETNUMBER "Enter end-of-week Dow Jones ",resp1}/Cresp1~~ÿ^MOV AVG
ÿ^% DIFF&ÿ '{GOTO}startup~{UP}{END}{DOWN 2}ÿ"DATE
ùVù\=ù\= ùÿ '/RTinput~~!ÿ 'DREYFUS GROWTH OPPORTUNITY
ÿ …ëQ¸…%@
ÿ ¤p=
×#%@"± † IÐ$h’?
þ¿€
ÿ€€

ÿ€€ *ÿ '{IF @COUNT(startup)<11}{HOME}{QUIT}ÿ
'DOW JONES INDUSTRIAL AVG
ÿ

×£p=ë¡@
ÿ
–C‹l'ã¡@"±
½Ãkî\?
þ¿€
ÿ€€

ÿ€€ ÿ
'{RIGHT 3}/Cformulas~~ÿ '/RV~fund~ÿ
'MACRO-U TO UPDATE PRICES#ÿ 'MACRO-D TO SUBTRACT DIVIDENDÿ '{RIGHT}/RV~dowj~&ÿ
'{RIGHT}/RV~sig~{RECALC display}
ÿ '{HOME}ÿ^DREYFUS
ÿ^DOW
ÿ^SIGNALÿ
^DATEÿ^DREYFUS
ÿ^DOWÿ^MOV AVGÿ^MOV AVG
€ð?ÿ
\=ÿ\=ÿ\=ÿ\=ÿ\=ÿ\= ÿ'\d'ÿ '{getdate "Enter dividend date "}
ù

ÿ¤p=
×#$@
ÿ®Gáz”$¡@$ÿ '{LET resp1,@DATEVALUE(resp1)}ù
@Âß@Y

6
ÿ=
×£p=$@
ÿq=
×#d¡@1ÿ '{GETNUMBER "Enter dividend amount ",resp2}ù
Äß@Y
6
ÿ=
×£p½$@
ÿ…ëQ¸v¡@ÿ '{GOTO}update~ù
ÀÅß@Y
6
ÿ\Âõ(Ü$@
ÿ…ëQ¸%¢@,ÿ '/Cdivfrmla~.{RIGHT}{END}{DOWN}{LEFT}~ù
€Çß@Y6
ÿ¤p=
×#%@
ÿ€6¢@ ÿ '/RV{END}{DOWN}~{RIGHT 2}~ù
@Éß@Y
6
ÿ
×£p=
%@
ÿq=
×#Ü¡@ÿ '/RE{END}{DOWN}~ù
Ëß@Y6
ÿÃõ(\B%@
ÿq=
×£)¢@
ÿ '{HOME}ù
ÀÌß@Y6
ÿö(\Âõ$@
ÿ®Gáz‹¡@
ù
:
ÿ)\Âõ(%@
ÿ®Gáz”Ä¡@ÿ'divfrmla,ÿ 

€€
&
€€
(

€€;
ù
A
ÿHáz®G%@
ÿáz®GÔ¡@ÿoƒÀÊá$@ þ¿÷¿þ¿€Q
ÿ@5^º‰À¡@ þ¿÷¿þ¿€Q
T€ð?E
þ¿€
ü¿€
ÿ¿€
ý¿€

€ÿ¿

ÿ¿€
ý¿€
þ¿€
ü¿€
;;
ù
H
ÿ¸…ëQ8%@
ÿáz®Gè¡@ÿ=
×£pý$@ þ¿÷¿þ¿€Q
ÿøSã¥Ô¡@ þ¿÷¿þ¿€Q
T€ð?E
þ¿€
ü¿€
ÿ¿€
ý¿€

€ÿ¿

ÿ¿€
ý¿€
þ¿€
ü¿€
;;
ù
N
ÿö(\Âõ$@
ÿ®Gáz†¡@ÿZd;ß%@ þ¿÷¿þ¿€Q
ÿ˜nƒ€×¡@ þ¿÷¿þ¿€Q
T€E
þ¿€
ü¿€
ÿ¿€
ý¿€

€ÿ¿

ÿ¿€
ý¿€
þ¿€
ü¿€
;;ÿ'getdate.ÿ '{DEFINE dtprompt:string}{RECALC prompt}
ù
V
ÿ…ëQ¸…%@
ÿ
×£p=ë¡@ÿ¤p=
×#%@ þ¿÷¿þ¿€Q
ÿ–C‹l'ã¡@ þ¿÷¿þ¿€Q
T€ð?E
þ¿€
ü¿€
ÿ¿€
ý¿€

€ÿ¿

ÿ¿€
ý¿€
þ¿€
ü¿€
;;
ÿ'prompt,ÿ ð{GETLABEL
€€,resp1} ÿ'dtest2ÿ '{IF #NOT#@ISERR(@DATEVALUE(resp1))}{RETURN}:ÿ '{BEEP}{GETLABEL "Invalid date - try again: ",resp1}ÿ !'{BRANCH dtest}ÿ#'dtprompt ÿ&'resp1 ÿ('resp2