(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)/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.LOGE1Dial Data/Telenet 718-522-6886 Savant format reqdTelenet Phone #Your D-Data User Code
put in UserIDCOM2: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 ^WPLEASE <USR>^R^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,-Warner Comp. Systems, (201-794-2880 for acct)Warner Access #1TSERV,#Warner Acct#IDYour Warner PWsswdCom2:1200,E,7,1"ATDT<PH>^R^WNECT ^P^R^P^R^W= ^R^W@$^PC 20168^R^Wse: ^P<USR>,<PW>^P^R^W!!^Y^W! Off^R^P+++^P^PATH^R
WARNER.LOG(1 !'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 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];41 !(Compuserve Portfolio Current Date Quotes11*go mqint^R^Wce: 100^R^W:12*
<SYM>^R^W:13*
<SYM>^R^W:1 S<KW>="<SYM>"; [POS]=[1,(" ")];1 M<KW>="<SYM>"; [POS]=[1,(" ")];1 I<KW>="<SYM>"; [POS]=[1,(" ")];1  <KW>="<SYM>"; [POS]=[1,(" ")];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^RRRR32*5^Wue: <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];;;;;;;;;;;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^RRRR42*-^Wue: <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];;;;;;;;;;45!1Compuserve Fundamental Data Retrieval (ValueLine)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!5A&<KW>="/<DT1>"; [POS]=[23,33,43,53,63];;;;;;;;5B-<KW>="Common Shares"; [POS]=[23,33,43,53,63];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 !: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 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 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  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  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 M<KW>="NAV"; [POS]=[44];;;;;;;;;;;;;;;12 !KGEnie Specific Date Portfolio Quotes. (GEnie historical quotes don't appear\2 !Hto support mutual funds. Because of clumsy user interface for GEnie his-2 !Ftorical quotes, the script is long, and thus only marginally reliable.2 !DHint: Disable quote retrieval for mutual funds & Indices using Alt+!2 !?Hint: increase "Pause" param on com. configs if script "hangs".Alt+!20*<DT#>="YYMMDD"; <ERR>="<Q>uit";21*#M780^R^W? ^P1^R^Wce? ^P4^R^Wier? ^P22*FT=<SYM>^R^W? ^PY^R^W? ^PI^R^W? ^PD^R^W? <DT1>^R^W? <DT2>^R^W? ^P^R^Wr?23*FT=<SYM>^R^W? ^PY^R^W? ^PI^R^W? ^PD^R^W? <DT1>^R^W? <DT2>^R^W? ^P^R^Wr?24*Q^R^C^W? BYE^R^P+++^PATH^R2 S<KW>="----"; [POS]=[33];2  <KW>="----"; [POS]=[33];23 !FGEnie cur. day quotes ("Star Service", no per min or per quote charge)3 !Does not do mutual funds30*!<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 !IGEnie Multi-Date Price History Quotes. Note: GEnie's clumsy interface for4 !=historical quotes makes this script only marginally reliable.40*<DT#>="YYMMDD"; <ERR>="<Q>uit";41*#M780^R^W? ^P1^R^Wce? ^P4^R^Wier? ^P42*HT=<SYM>^R^W? ^PY^R^W? ^PI^R^W? ^PD^R^W? <DT1>^R^W? <DT2>^R^W? ^P^R^Wier?43*HT=<SYM>^R^W? ^PY^R^W? ^PI^R^W? ^PD^R^W? <DT1>^R^W? <DT2>^R^W? ^P^R^Wier?44*Q^R^C^W?  BYE^R^P+++^PATH^R4 S#<KW>="----"; [POS]=[1,8,,15,24,33];;4  #<KW>="----"; [POS]=[1,8,,15,24,33];;41 !1Warner Computer Systems, Current Portfolio Quotes11*PRICE.FINLIB^P^R^WSUE:12*
<SYM>^R^WSUE:13*
<SYM>^R^WSUE:14*1 S[POS]=[5,(","," ")];1 M[POS]=[5,(","," ")];1  [POS]=[5,(","," ")];12 !7Warner Computer Systems, Specific Date Portfolio Quotes20*<DT#>="YYMMDD";21*PRICE.FINLIB^P^R^WSUE:22*<SYM>,D,<DT1>,<DT1>^R^WSUE:23*<SYM>,D,<DT1>,<DT1>^R^WSUE:24 2 S[POS]=[5,(","," ")];2 M[POS]=[5,(","," ")];2  [POS]=[5,(","," ")];23 !2Warner Computer Systems, Price Quotes, Single Date30*<DT#>="YYMMDD";31*PRICE.FINLIB^P^R^WSUE:32*<SYM>,D,<DT1>,<DT1>^R^WSUE:33*<SYM>,D,<DT1>,<DT1>^R^WSUE:34*3S[POS]=[1,2,,3,4,5,(","," ")];3M[POS]=[1,2,,3,4,5,(","," ")];3 [POS]=[1,2,,3,4,5,(","," ")];34!1Warner Computer Systems, Price Quotes, Multi-Datee4!2Change "D" in lines 2 & 3 to "W" for weekly quotes40*<DT#>="YYMMDD";41*PRICE.FINLIB^P^R^WSUE:42*<SYM>,D,<DT1>,<DT2>^R^WSUE:43*<SYM>,D,<DT1>,<DT2>^R^WSUE:44*4 S[POS]=[1,2,,3,4,5,(","," ")];4 M[POS]=[1,2,,3,4,5,(","," ")];4 [POS]=[1,2,,3,4,5,(","," ")];4