/Compuserve Info. Services 614-457-8600 for acctCIS Phone ##Your CIS Acct #D #Your CIS PasswordCOM2:1200,E,7,1AT DT<PH>^R^WNECTCT#^P^C^WID: <USR>/GO:MQUOTE\<PW>^R^W!W!^C^W! /OFF^R^P^P+++^P^PATH^RCIS.LOGK(Dow Jones NR/(Tymnet); call 609-452-1511Tymnet Phone #eN/AYour DJ PasswordrdCOM2:1200,E,7,1ATDT<PH>^R^WNECTECT*^PA^W: DOW1;;^W?? DJNS^R^W@@ <PW>^R^WQUERYRY^PDISC^R^P+++^P^PATH^R^P	DJNRS.LOG+-Dial Data 718-522-6886, Techserve format reqdreqdTelenet Phone #
D-Data_UserIDode CodePassword ChrgCodeCOM2:1200,E,7,1:ATDT<PH>^R^WECT ^P^R^R^W= D1^R^W@ C 2121065,TDC01,DIAL01^R9^WED ^R^Wme: USR.DDX.001^R^Wrd: SESAME^R^WSE <USR> <PW>^RR^P^R^P+++^P^PATH^RDIALDATA.LOG'GEnie (1-800-638-9636 for acct)Genie Access #Your Genie UserID,PWN/ACOM2:1200,E,7,1 +ATDT<PH>^R^WNECTECT^PH^R^W=^Q <USR>^R^Wnue?#^C^PQUIT^R^W? Bye^R^P^P+++^P^PATH^R	GENIE.LOG(1Dow Jones NR/(Tymnet) //HQ Quote Method #2, 3 & 44Tymnet Phone #eN/AYour DJ PasswordrdCOM2:1200,E,7,1ATDT<PH>^R^WNECTECT*^PA^W: DOW1;;^W?? DJNS^R^W@@ <PW>^R^WQUERYRY^PDISC^R^P+++^P^PATH^R^P	DJNRS.LOG*+ALL QUOTES, Inc. call 800 888-7559 for info1-212-425-8941=Stk Access CodeodeNot Applic.COM2:2400,N,8,1ATDT<PH>^R^WNECT^P^R^WCODE: <USR>^R^P^R^PLOGOFF^R^P+++^PATH^RAQ.LOG,Warner (no longer in service, use Dial/Data)1 !=Compuserve Portfolio Current Date Quotes (BASICQUOTE Service)1!KCompuserve limits BasicQuote to about 20 quotes/session. The error recovery1!Fscript #4 below allows retrieval of add'l quotes after waiting for std1!Dscript to time out. Reduce Comspec "Receive Wait" for shorter pause.1!<See manual for MQINT quotes for alternative retrieval specs.10* <ERR>="more !";11*go basicquote^R^Wsue:^W:12*
<SYM>^R^Wsue:13*
<SYM>^R^Wsue:14*go basicquote^R^Wsue:1<KW>="-----"; [POS]=[55];1S<KW>="-----"; [POS]=[55];1M<KW>="-----"; [POS]=[55];1I<KW>="-----"; [POS]=[55];12 !&Compuserve Portfolio Spec. Date Quotes20*<DT#>="YYMMDD";21*go mqint^R^Wce: 100,,<DT1>^R^W:22*
<SYM>^R^W:23*
<SYM>^R^W:2 S<KW>="<SYM>"; [POS]=[1,(" ")];2 M<KW>="<SYM>"; [POS]=[1,(" ")];2 I<KW>="<SYM>"; [POS]=[1,(" ")];2  <KW>="<SYM>"; [POS]=[1,(" ")];23 !)Compuserve Price Rec. Quotes, Single Date3!FCIS doesn't prompt for second date if first date is most recent market3!Hclose date.  In that case you must remove first "<DT1>^R^W?" from scriptt3!line #2 below.30*<DT#>="MM/DD/YY";31*scroll on^R^W! go prices^R^Wue:32*/<SYM>^R^W: D^R^W? <DT1>^R^W? <DT1>^R^W! ^R^Wue:::::::33*<SYM>^R^W! ^R^Wue:3 B)<KW>="-----"; [POS]=[1,12/100,,23,37,48];3 S)<KW>="-----"; [POS]=[1,12/100,,23,37,48];3 M)<KW>="-----"; [POS]=[1,12/100,,23,37,48];3  )<KW>="-----"; [POS]=[1,12/100,,23,37,48];3 I#<KW>="-----"; [POS]=[1,,,14,14,14];;;;;;;34 !,Compuserve Price Rec. Quotes, Multiple Dates4!3First date may not be most recent market close date4 !DChange "D^R" in #2 to "W^R" or "M^R" for Weekly or Monthly intervals40*!<DT#>="MM/DD/YY";  <ERR>="found";;;41*scroll on^R^W! go prices^R^Wue:42*'<SYM>^R^W: D^R^W? <DT1>^R^W? <DT2>^R^W!!!!!!!43*^R^Wue: <SYM>^R^W!44*
<SYM>^R^W!4 B)<KW>="-----"; [POS]=[1,12/100,,23,37,48];4 S)<KW>="-----"; [POS]=[1,12/100,,23,37,48];4 M)<KW>="-----"; [POS]=[1,12/100,,23,37,48];4  )<KW>="-----"; [POS]=[1,12/100,,23,37,48];4 I#<KW>="-----"; [POS]=[1,,,15,15,15];;;;;;45!?Compuserve Fundamental Data Retrieval (ValueLine, CAPTOOL only)5!=Warning: CIS will not accept date range beyond available data50*
<DT#>="YY"51*scroll on^R^W! Go VLANN^R52*1^WCompany: <SYM>^R^W! 1,2,4^R^W? <DT1>,<DT2>^R^W!53*9^R^W: ^R^WCompany: <SYM>^R^W! 1,2,4^R^W? <DT1>,<DT2>^R^W!5A0<KW>="-------"; [POS]=[23,33,43,53,63,0]; [L-2];5B/<KW>="Common Shares"; [POS]=[23,33,43,53,63,0];5C-<KW>="Gross Revenue"; [POS]=[23,33,43,53,63];5D*<KW>="Net Income"; [POS]=[23,33,43,53,63];;;;5E3<KW>="Depreciation, Amort"; [POS]=[23,33,43,53,63];5F,<KW>="Total Equity"; [POS]=[23,33,43,53,63];;5G,<KW>="Cash & Equiv"; [POS]=[23,33,43,53,63];;5H3<KW>="Total Current Asset"; [POS]=[23,33,43,53,63];5I-<KW>="Notes Payable"; [POS]=[23,33,43,53,63];5I/<KW>="Account Payable"; [POS]=[23,33,43,53,63];5I-<KW>="Taxes Payable"; [POS]=[23,33,43,53,63];5I2<KW>="Other Current Liab"; [POS]=[23,33,43,53,63];;5J.<KW>="Long-Term Debt"; [POS]=[23,33,43,53,63];5J4<KW>="Other Long-Term Liab"; [POS]=[23,33,43,53,63];5K-<KW>="Dividends Per"; [POS]=[23,33,43,53,63];51 !'Dow Jones Portfolio Current Date Quotes11*12*//CQ^R^W^^^Q <PFX><SYM>^R^W^^^Q13*<PFX><SYM>^R^W^^^Q1  (<KW>="BID"; <PFX>=","; [POS]=[12,(" ")];1 S(<KW>="BID"; <PFX>=","; [POS]=[12,(" ")];1 M'<KW>="BID"; <PFX>="+"; [POS]=[8,(" ")];1 T'<KW>="BID"; <PFX>="#"; [POS]=[3,(" ")];1 B'<KW>="BID"; <PFX>="/"; [POS]=[8,(" ")];1 2 !6Dow Jones Portfolio Specific Date Quote from Tradeline20*<DT#>="MM/DD/YY"; <ERR>="(N)o:"21*//TRADELINE^R^W^^^Q22*/2^R^W):  DU^R^W): 1,<DT1>^R^W^^^Q <SYM>^R^W^^^Q23*
<SYM>^R^W^^^Q24*	N^R^W^^^Q2  <KW>="-----"; [POS]=[55];2 I<KW>="-----"; [POS]=[55];2 S<KW>="-----"; [POS]=[55];2 M<KW>="-----"; [POS]=[55];2 T$<KW>="-----"; <PFX>="#"; [POS]=[55];23 !*Dow Jones Price Record Quotes, Single Date30*<DT#>="MM/DD/YY"; <ERR>="(N)o:"31*#//TRADELINE^R^W^^^Q /Scroll^R^W^^^Q32*.2^R^W): DU^R^W): 1,<DT1>^R^W^^^Q <SYM>^R^W^^^Q33*
<SYM>^R^W^^^Q34*	N^R^W^^^Q3 S4<KW>="-----"; <PFX>=" "; [POS]=[1,14/100,,28,41,55];3 M4<KW>="-----"; <PFX>=" "; [POS]=[1,14/100,,28,41,55];3  4<KW>="-----"; <PFX>=" "; [POS]=[1,14/100,,28,41,55];;3 4 !-Dow Jones Price Record Quotes, Multiple Dates40* <DT#>="MM/DD/YY"; <ERR>="(N)o:";41*#//Tradeline^R^W^^^Q /Scroll^R^W^^^Q42*42^R^W): DU^R^W^^^Q <DT1>,<DT2>^R^W^^^Q <SYM>^R^W^^^Q43*
<SYM>^R^W^^^Q44*	N^R^W^^^Q4 S4<KW>="-----"; <PFX>=" "; [POS]=[1,14/100,,28,41,55];4 M4<KW>="-----"; <PFX>=" "; [POS]=[1,14/100,,28,41,55];4  4<KW>="-----"; <PFX>=" "; [POS]=[1,14/100,,28,41,55];451 !:Dial Data (Track Data) Current Date Position Record Quotes11*^WSION ^R^WUE:12*<SYM>,D^R^WUE:13*<SYM>,D^R^WUE:1 S)<KW>="<SYM>"; [POS]=[5,(" ",",")]; [L+2];1 I)<KW>="<SYM>"; [POS]=[5,(" ",",")]; [L+2];1 M)<KW>="<SYM>"; [POS]=[5,(" ",",")]; [L+2];1  )<KW>="<SYM>"; [POS]=[5,(" ",",")]; [L+2];12 !.Dial Data Specific Date Position Record Quotes20*<DT#>="YYMMDD";21*^WSION ^R^WUE:22*<SYM>,D,<DT1>,<DT1>^R^WUE:23*<SYM>,D,<DT1>,<DT1>^R^WUE:2 S)<KW>="<SYM>"; [POS]=[5,(" ",",")]; [L+2];2 I)<KW>="<SYM>"; [POS]=[5,(" ",",")]; [L+2];2 M)<KW>="<SYM>"; [POS]=[5,(" ",",")]; [L+2];2  )<KW>="<SYM>"; [POS]=[5,(" ",",")]; [L+2];23!*Dial Data Price Record Quotes, Single Date30*<DT#>="YYMMDD";31*^WSION ^R^WUE:32*<SYM>,D,<DT1>,<DT1>^R^WUE:33*<SYM>,D,<DT1>,<DT1>^R^WUE:3 S2<KW>="<SYM>"; [POS]=[1,2,,3,4,5,(" ",",")]; [L+2];3 M2<KW>="<SYM>"; [POS]=[1,2,,3,4,5,(" ",",")]; [L+2];3 I2<KW>="<SYM>"; [POS]=[1,2,,3,4,5,(" ",",")]; [L+2];3  2<KW>="<SYM>"; [POS]=[1,2,,3,4,5,(" ",",")]; [L+2];34 !*Dial Data Price Record Quotes, Multi-Dates40*<DT#>="YYMMDD";41*^WSION ^R^WUE:42*<SYM>,D,<DT1>,<DT2>^R^WUE:43*<SYM>,D,<DT1>,<DT2>^R^WUE:4 S2<KW>="<SYM>"; [POS]=[1,2,,3,4,5,(" ",",")]; [L+2];4 M2<KW>="<SYM>"; [POS]=[1,2,,3,4,5,(" ",",")]; [L+2];4 I2<KW>="<SYM>"; [POS]=[1,2,,3,4,5,(" ",",")]; [L+2];4  2<KW>="<SYM>"; [POS]=[1,2,,3,4,5,(" ",",")]; [L+2];41 !0GEnie Current Day Quotes ("Star Service" quotes)))))))))))))))))))))))))))))10*<ERR>="Y/N)?";;11*
M8008^R^W?? 1^R^Wce? 2^R^Wfier? ^PPP12*1^R^W? 3^R^W? <SYM>^R^W?13*
<SYM>^R^W???????????????14*Y^R^W?ier? ^PP1  <KW>="Close"; [POS]=[61];;;;;;;;;;;;;1 S<KW>="Close"; [POS]=[61];;;;;;;;;;;;;1 I<KW>="Close"; [POS]=[61];;;;;;;;;;;;;1 M<KW>="NAV"; [POS]=[44];;;;;;;;;;;;;;;12 !KGEnie Specific Date Portfolio Quotes. (GEnie cancelled M780 quotes 8/17/91)\2!EATTN: As an alternative to the cancelled M780 quotes the script below2!H      will access Dow Jones //HQ quotes via GEnie. First you must "sign-up2!G      up for DJ. Do this by using SmartTerm & Move to Pg 260 and select2!D      item #3 (Initialize DJNR Access).  Note that DJ //HQ quotes do2!)      not appear to support mutual funds.20*<DT#>="MM/DD/YY"; <ERR>="<N>o";;;21* M260^R^W? 4^R^W^^^Q //HQ^R^W^^^Q ^P22*;<SYM> <DT1>^R^W^^^Q23*;<SYM> <DT1>^R^W^^^Q24*	N^R^W^^^QBYE^R^P+++^PATH^R2 S#<KW>="VOL("; <PFX>=","; [POS]=[30];2 I#<KW>="VOL("; <PFX>=","; [POS]=[30];2  #<KW>="VOL("; <PFX>=","; [POS]=[30];23 !FGEnie cur. day quotes ("Star Service", no per min or per quote charge)3 !May not do mutual fundss30*!<DT#>="MM/DD/YY"; <ERR>="(Y/N)?";31*
M8008^R^W?32*1^R^W? 3^R^W? <SYM>^R^W?33*
<SYM>^R^W????????34*Y^R^W?3  $<KW>="Close"; [POS]=[,71,,43,52,61];;;;;;;;3 S$<KW>="Close"; [POS]=[,71,,43,52,61];;;;;;;;3M<KW>="NAV"; [POS]=[,,,,,44];;34 !&GEnie Multi-Date Price History Quotes. Note: GEnie's clumsy interface for4 !=GEnie discontinued support of this service on 8/17/91. Sorry.41 !'Dow Jones Portfolio Current Date Quotes11*12*//CQ^R^W^^^Q <PFX><SYM>^R^W^^^Q13*<PFX><SYM>^R^W^^^Q1  (<KW>="BID"; <PFX>=","; [POS]=[12,(" ")];1 S(<KW>="BID"; <PFX>=","; [POS]=[12,(" ")];1 M'<KW>="BID"; <PFX>="+"; [POS]=[8,(" ")];1 T'<KW>="BID"; <PFX>="#"; [POS]=[3,(" ")];1 B'<KW>="BID"; <PFX>="/"; [POS]=[8,(" ")];1 2 !5Dow Jones Portfolio Specific Date Quotes, //HQ methode2!G//HQ Method only retrieves Stock & Warrent Quotes (no Mut. Funds, etc).2!*Quotes may be limited to most recent year.20*<DT#>="MM/DD/YY"; <ERR>="(N)o:"21*//HQ^R^W^^^QR^W^^^Q22*;<SYM> <DT1>^R^W^^^Q23*;<SYM> <DT1>^R^W^^^Q24*	N^R^W^^^Q2  #<KW>="VOL("; <PFX>=","; [POS]=[30];2 S#<KW>="VOL("; <PFX>=","; [POS]=[30];23 !7Dow Jones Price Record Quotes, Single Date, //HQ Method3!A//HQ method limited to Stocks and Warrents, most recent year only30*<DT#>="MM/DD/YY"; <ERR>="(N)o:"31*//HQ^R^W^^^QQQQQQQQQQQQQQQQQQQQQQQQ32*;<SYM> <DT1>^R^W^^^Q33*;<SYM> <DT1>^R^W^^^Q34*	N^R^W^^^Q3 S/<KW>="VOL("; <PFX>=","; [POS]=[1,40,,10,20,30];;;;;;3  /<KW>="VOL("; <PFX>=","; [POS]=[1,40,,10,20,30];;;;;;3 4 !:Dow Jones Price Record Quotes, Multiple Dates, //HQ methodethod)4!GThis script retrieves stock quotes for the past 98 days only.  You must4!4specify the start & end dates to bracket this range.40* <DT#>="MM/DD/YY"; <ERR>="(N)o:";41*//HQ^R^W^^^QR^W^^^Q /Scroll^R^W^^^Q42*G;<SYM> P1^R^W^^^Q ^R^W^^^Q ^R^W^^^Q ^R^W^^^Q ^R^W^^^Q ^R^W^^^Q ^R^W^^^Q43*G;<SYM> P1^R^W^^^Q ^R^W^^^Q ^R^W^^^Q ^R^W^^^Q ^R^W^^^Q ^R^W^^^Q ^R^W^^^Q44*	N^R^W^^^Q4 S/<KW>="VOL("; <PFX>=","; [POS]=[1,40,,10,20,30];;;;;;4  /<KW>="VOL("; <PFX>=","; [POS]=[1,40,,10,20,30];;;;;;41!#ALL QUOTES Portfolio Current Quotes11*12*^WNAME): <SYM>^R^W?13*Q^R ^WNAME): <SYM>^R^W?1 <KW>="Low"; [POS]=[13];;;;;;;;;;;1S<KW>="Low"; [POS]=[13];;;;;;;;;;;1M<KW>="Fund"; [POS]=[17] [L+1];;;;14!IALL QUOTES Historical Quotes.  All Quotes provides a 6 mo. history start-4!Jing from the current date, regardless of date range specified.  Only dates4!Jfalling within the specified date range will be pulled in to Price History41*42*+^WNAME): <SYM>^R^W? H^R ^WTINUE C^R^WNAME)::43*"<SYM>^R^W? H^R ^WTINUE C^R^WNAME):4'<KW>="DATE"; [POS]=[2,36/100,,9,18,27];4S'<KW>="DATE"; [POS]=[2,36/100,,9,18,27];4M'<KW>="DATE"; [POS]=[2,36/100,,9,18,27];423