|
In
the Begining
Is the Dictionary |
|
|
4th.CoSy
20121012
A bump in interest on Twitter in my work
motivates me getting out a cleaner copy of
Ron
Aaron's Reva Forth
|
###################################################################### |
| \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/
\/ \/ \/ \/ \/ \/ \/ |
|
######################################################################
|
revaver type | >| 7.0.10
.needs
res> >t0
t0 Help
res> Help
help create
s" a@ " CShelp
R ` _d v@
R ` wintext v@
| ------------------------ |
`( ToDo ref Addrs )` 1 _iv at dsc ->
>- R resvar v@ stype
| ------------------------ |
resvar
text> daylncut s" " con 0 _iv cut
nil D>
nil R ` _n v!
R { rho } eachMcr { Type@^ } eachMcr
R i( 0 2 )i at flip
R ` ToDo >t0> v@
t0 dmp
DMP
see D>
R dnames ` i5 ?sym
see R
s" rplc " CShelp
dnames
(
` iota
` HA
` HO
` i5
)
R ` iota v@
text> stype
(
` wintext
` words
` DIGITS
` LE
` help
` winbk
` IntroHelp
` LL
` L
` Types
` File
` Typenm
` curwrd
` Daylns
` ASCIIbrowser
` -
` tmp
` one2
` Fact
` tmp.WPweather
` LP.Manh.Bw0705
` People.RonMoore
` BROWSER
` ToDo
` _ATR
` _d
` ref
` Ref
` state
` res
` lastSave
` Addrs
` People.MikeMarkowski
` t0
` R0
` restxt
` resvar
)
(
` wintext
` words
` DIGITS
` LE
` help
` winbk
` IntroHelp
` LL
` L
` Types
` File
` Typenm
` curwrd
` Daylns
` ASCIIbrowser
` -
` tmp
` one2
` Fact
` tmp.WPweather
` LP.Manh.Bw0705
` People.RonMoore
` BROWSER
` ToDo
` _ATR
` _d
` ref
` Ref
` state
` res
` lastSave
` Addrs
` People.MikeMarkowski
` t0
` R0
` restxt
` resvar
) see sym
_d rho
s" " sym
R ` Fact v@
` Planet.avgTemp v@
see res
help callback
words~ ~string
help
see refs+
70. 3. f/ f.
see `\
s" shell> " CShelp
help delete
.needs
include strings\regex
ioerr @
see ymd.hm
text> "lf "bl cL |=| str cL
toksplt >t0>
t0 i( 100 )i ' take each
R `ref v@
s" dir" ^!!
help ::
see ^!!
s" ^!! " CShelp
help shell$
s" !! shell$ shell_code" Help
s" qwer qwrwe pewr tydfl; " s" t" ss
R0 rh0
s" : cL " CShelp
: plus. ( n n -- sum ) + . ;
1 2 plus.
: ex execute ;
1 2 ' + ex .
R ` Fact v@ ` Fact v@
cS saveText
s" : _mod " CShelp
help s>d
f( 1920 1200 300 )f ' f- across
i( 10 20 30 )i 12 _iota i( 3 4 )i take ^+
s" Hi " enc s" Ron Danny Helmar" "bl toksplt ' cL aaply
i( 1 2 3 4 )i i( 1 0 )i +i
R rho
R i( 0 )i at
R ` ToDo v@
`ToDo
s" :{ " CShelp
s" shell" CShelp
text> s" /reva/cosy/text.txt" Foverwrite
!! /reva/cosy/text.txt
: ^!! ( str -- ) dup van shell ref0del ;
s" /reva/cosy/text.txt" ^!!
file-dlg >t0>
t0 ^slurp >t1>
t1 R ` ToDo v!
drop t0 vbody
R ` ToDo v@ s" /reva/CoSy/ToDo.txt" Foverwrite
s" 2p" CShelp
f( 1 2 3 4 }f ' f+ across
s" : refs@ " CShelp
i( 2 1 0 -1 -2 )i enc i( -1 0 1 )i cL i( 0 1
)i ^=
needs db/mysql
| ================================== |
R >aux> DMP cr aux@ 24 dump
aux@ dup vsize str >t0> rho
t0 DMP
t0 rho
t0 12 _take 4 byteVecInit cL >t1> DMP
t1 t0 i( 12 )i _ dsc cL >t1> DMP
t1 DMP
001D2858 01 00 00 00 0C 00 00 00 01 00 08 00 00 00 00 00
................
001D2868 03 00 00 00 02 00 20 00 00 00 00 00 31 3E 20 44 ......
.....1> D
t1 van $.s
R ` Fact v@ ` Fact v@
res> R ` Fact v@ ` Fact v!
R `( Fact Fact )` ' v@ acrossY stype
: Dv@ R swap ['] v@ acrossY ;
`( Fact Fact )` Dv@
R ` Fact v@ >t0> rho
450. 25. f/ f.
help splitws
: nlfy ( str -- lst_of_strs ) refs+> van splitws
R ` Addrs >t0> v@ stype
help strings
res> >t0> Help
' .needs (spool) str >t0> "bl toksplt
t0 splitws
see spool
R ` Fact v@ ` Fact v@
f( 480000 )f f( 640 )f /f
help callback
res> Help
2. 31. fswap f^ f.
214748364
help math/floats
.s
_d
drop type
text> "lf toksplt rho lst
` ToDo R ` t0 v!
R R ` t0 v@ v@ stype
res> R R ` t0 v@ v!
help catch
res> Help
L lst
F( 80.4 )f f( 3.14 )f *f
>t0> lst
s" _inn "
needs string/regex
s" asdf asdf" name?_ .
t0 dup i# not not swap strym?_
~strings words
text> "lf toksplt rho lst
R { -1 _take } eachM> >t0>
rho lst
R { i( -1 )i cut } eachM>
>t0> rho lst
i( 1 2 3 4 )i i( -1 )i _
R 2 i@ i( -1 )i _ >t0> lst
i( 1 2 3 )i f( 1. 2.3 3.134 )f cL
`( asd we= zxck )` lst
s" conditionals flow-control program-control" Help
t1 rho lst
s" C:/reva/CoSy/CoSy.bk" >t1> van (restorefile)
t1 ` ToDo v@ stype
t0 lst
s" //COSY2009/Public/Documents/ToDo.txt" ^slurp
>t1> stype
R ` ToDo v@ s" //COSY2009/Public/Documents/ToDo.txt"
Foverwrite
R ` ToDo v@ s" c:/ToDo.txt" Foverwrite
R savelst C:/Users/Public/Documents/CoSy.csy
s" ( rare earths ;
http://www.reuters.com/article/idUSTRE6BE1D320101215?pageNumber=2 ) " R
` Mkt.Ideas v!
s" dnames " CShelp
help string/regex
exist? objCnt |>| no
objCnt ? ATptr @ .>
FTptr @ .> - .
: $^ ( sym -- ) " source" (sym) R " res"
(sym) ;
res>
text> >t0> lst
R ` ToDo v@ show`txt
R 0 i@ lst
help cr
t0 lst
t0 s" C:/CoSy/text.txt" >t1> Foverwrite
see Foverwrite
!! C:\CoSy\text.txt
s" C:/CoSy/text.txt" ^slurp stype
s" //COSYBOB-ASUS/CoSy/text.tmp" ^slurp stype
ed >t0
t0 ` source nil dicapnd
t0 ` ts ymdhm str dicapnd
t0 lst
t0 R ` res a!
: tst R ;
R tst
$^
words .
R 2 i@ nil lst
R ` People.RonMoore >t0> v@ stype
R ` someName dds
res> R ` People.MikeMarkowski v!
` People.MikeMarkowski >t0
file-dlg >t0> lst
s" C:/CoSy/CoSy/Markowski/text.htm" >t1> van
slurp
str stype
help '
R ' rho eachM> lst
R { -1 i@ } eachM> lst
R 2 i@ i( -1 )i _ >t0> lst
t0 lst
t0 dsc rho lst
R { i-1 _ dsc } eachM> >t0
str
>t1> lst
t0 lst
t0 ' R rplc
t1 D>
` Addrs R 0 i@ -1 ix
rplc
lastSave
` lastSave refs+> value lastSave
: svts time&date _ymdhms str R lastSave v! ;
R ` lastSave v@ lst
help write
res> Help
R ` state v@
s"
file-dlg >t0>
s" D:/reva/CoSy/CoSy.csy"
t0 ^slurp >t1> rho
t1 vbody restorelst >t1> rho
t1 ` wintext v@ >t0>
s" restorelst " CShelp
dnames
" /revaArk/reva/CoSy/CoSy - Copy.csy"
(restorefile) >t0> rho lst
t0 (dnames)
t0 ` ref v@ R ` ref v!
file-dlg >t0
t0 van (restorefile) >t0> rho lst
t0 ` ToDo v@ lst
s" C:/CoSy/Science/HeartlandProposal0811.htm"
^slurp
>t0> lst
t0 rho
t0 van
t0 ' ws? eachMcr
>t1> rho lst
help ws?
help strings
help link
" c:/reva/bin/libgobject-2.0-0.dll" lib libgobject
" libgtk-win32-2.0-0.dll" lib libgtk
help libgtk
libgobject
" asdf" lib tst
help last
help prompt | throw-codes
s" THROW_BADFUNC THROW_BADLIB THROW_GENERIC
THROW_NEEDS" Help
ref
dnames
res> s" C:/CoSy/tmp.txt" Write
s" C:/CoSy/tmp.txt" ^slurp >t0
|
######################################################################
|
help help/
help/ help
help at
32 ' . x$
.
R ' rho aaplym
' Type@ fntype
R 1 i@ { Type@ _iv } eachM> >t0> lst
t0 ' lst x$
R `. Types
R 0 i@ { TypeS over Type! Type@ _iv } eachM>
`( Type0 TypeC TypeI TypeFl TypeS TypeV TypeA TypeFv )`
>t1
t1 { van eval _iv } eachM> ' cL across o
t1 swap cL
R ` Types v!
dnames
R `. Typenm
s" `. " CShelp
s" eachright" CShelp
R 0 i@ 0 i@ D>
help ((cmp))
btnswdo @
see i
help i
: tst 5 0 do remains . loop ;
help remains
s" cb: stdcb: } { {{ }}" Help
: tst _n >r .rs cr 2 0 do .rs cr loop r>
;
: tst $ffff >r .rs cr r> drop ;
: tst $fffffff >r { .rs cr } 5 0 do dup execute loop
drop r> drop ;
: .rs rdepth 1- dup lparen (.) type rparen space 0 max dup 0;
10 min 3 do i rpick .x loop drop ;
.rs
: tst { I . } 5 0do dup execute loop drop ;
see remains
: ii 3 rpick 2 rpick - ; | or
should the name be I ?
help {
>t0>
0 i@ D>
' dsc eachM>
variable tmp
allocTrace tmp @>+! c+ DMP
$95C18 D>
R ' i# eachM>
R storelst
Ilst @ DMP
CoSyDir DMP cr TypeC $.
help write
" test text " $744 write ioerr @
" text" foc
help write
text> >t0> van --bca write
allocTrace ATptr @ mem>iv >t0
t0 $I.
t0 i( 20 )i at
t0 i( $9FFE8 )i ' = f?
t0 swap i@
freeTrace
t0 $I.
$I.
see TypeC
TypeC 16 disassemble
help disassemble
help /char
D>
20 dump
TypeC execute
s" v@ " CShelp
help
R ` _ATR v@ ` CoSySource v@
help compile
res> Help
help gregorian>fixed
s" DAYLNS" CShelp
| \/ \/ FLOATS \/ \/ |
================================================= |
1. fexp fln f.
: fexp inline{ D9 EA } f** ;
: 1/f inline{ d9 e8 de f9 } ;inline
2. 1/f f.
: f** inline{ D9 F1 D9 C0 D9
FC DC E9 D9 C9 D9 F0 D9 E8 DE C1 D9 FD DD
D9 } ;
see f**
.25 .1 f** f.
0.56234 157. f* f. 88.28737
-.25 .7 f** f. |>|
0.91469
10
2. 32. fswap f** f. |>|
143.99999
2. 12. swap f** f.
help d>f see d>f
| /\ /\ FLOATS /\ /\ |
======================================================
s" =" i( 70 )i take
R0
help search
s" shell !! shell$ shell_code" Help
| ===================================== |
R `. wintext
R `. _ATR
t0 "lf toksplt o >t1
t0
t1 0 i@ >t0> lst
t0 "ht eq lst
t1 0 i@ "ht 0 i@ ' _f?
t1 0 i@ { "ht ' = f?
}
t1 0 i@ i( 0 $D )i cut
t1 0 i@
s" f?" CShelp
t1 0 i@ "ht ' eq f?
"cr "lf cL D>
s" " refs+> dup vbody dup CR swap
c! LF swap 1+ c! constant "nl
t0 "nl toksplt o
"nl DMP
t0 lst
help/ line-text?
help create
res> Help
help/ win
help shell_code
t0 lst
dnames
>t0
t0 "cr tokc
>t0> "bl ' cL eachleft
>t0> ' cL across o
s" CShelp" s" CoSy/Derived.f" (CShelp) lst
s" CShelp" s" CoSy/CoSy.f" (CShelp) lst
s" CoSy/CoSy.f" sslurp >t0> lst
t0 blankline ss lst
Daylns ASCIIbrowser - tmp one2 Fact tmp.WPweather
LP.Manh.Bw0705 People.RonMoore BROWSER ToDo _ATR "
` IntroHelp show`txt
addr dlgH 2@ swap $. $. | $113AAD0
$113AF50
exist? Job
text> cs-> winbk
s" cs-> " CShelp
words
res> >t0> "bl toksplt
>t1> lst
t1 i( 2 0 )i nth >t0
t0 o
t0 i# .
R v. dup i# _iota enc swap enc cL
>t1> lst
t1 flip lst
R 0 i@ dup i# _iota enc swap
enc c'>t0> lst
t0 1 i@ i# .
ev i( 1 2 3 4 )i swap cL lst
i( 1 2 3 4 )i i( 2 )i at i( 1 2 3 4 )i i( 0 )i at cL `( asdf
qwer yiert )` cL lst
lst
t1 dup 0 i@ @
{ @ <> }
>aux over refs+ over i#
sWdo @ z" TITLE" z"
_______________________" IupSetAttribute
.s
flip lst
t0 i( 1 0 )i 5 nth lst
t0 flip lst
t0 reverse 1 nth lst
sWdo @ z" TITLE" IupGetAttribute
$.sUpdate
see xi
R i( 0 0 )i at
>t1> lst
t1 flip lst
12 _iota i( 2 4 )i reshape >t0> lst
t0 i( 0 2 )i dti t0 lst
R ` _ATR v@ o >t0> lst
t0 ` ToDo dds
2dup 2p
(wheresym)
L@ o swap
dti
R `. _ATR
t0 i( 1 )i 2p
L@ i# .
L@ lst
: tst 0 ?do i . loop ;
: tst 0 ?do dup execute loop drop ;
{ j . } 5 tst
dup ` ToDo dds
` delete >t0> >t1
' nil $. |>| $413F14
R nil enc R d# _take enc cL >t0
R t0 enc cL
t0 d# .
t0 0 i@ lst
t1 flip >t0> i#
t1 storelst
t0 addr R rplc
R 2 i@ lst
see R
R i# .
s" .Fact.Planets" s" ." toksplt lst
R `. Fact
dnames
` DISPLAY enc R ` _ATR v@ ` DISPLAY v@
enc cL nil enc cL o
dup i# .
exist? ><
R ` ToDo a!
help xt>name
see swap see r> see >r
` People.RonMoore show`txt
` ToDo show`txt
see not
newwdo addr dlgH 2!
R over v@
over DMP
' see xt>name
type
txtH swap settxt
dlgH z" 300x200" setsize
dlgH swap settit
dlgH 800 100 showXY
curwdo 1 c+ @ gettxt R curwdo @ gettit v!
: svtxt txtH gettxt R dlgH gettit v! ;
dlgH z" K_F3" ' svtxt IupSetCallback
dlgH z" KILLFOCUS_CB" ' svtxt IupSetCallback
dlgH IupShow drop
dnames
R `. tmp
R `. ToDo
R
dlgH IupDestroy drop
curwdo 1 c+ @ gettxt
R ` ToDo rot v!
curwdo @ z" X" IupGetAttribute zcount
>single
addr txtbxH addr dlgH
1 2 addr txtbxH 2!
curwdo @ z" X" IupGetAttribute .
see getsize
help write
s" then ;then then,> then>" Help
res> Help
dic `@ Fact `. Fact
dic v. lst
dic `. tmp
dic ` tmp i( 1 2 3 )i
2refs+> 2dup 2>aux
auxx@ $.
--abcab
(vx)
dup _n = .
rplc
2refs-
text> van " text.txt" foverwrite
s" text.txt" sslurp >t0> i# .
t0 lst
savetext
savedic
$.s
: `@ ( dic <sym> -- val ) sym (v@) ;
: sym parsews (sym) compiling? if refs+ literal
;then @ ;
sym asdf D>
dup lst
DMP
` ToDo >t0
dic
0 1 2
2 pick
swap
2drop
see 2>aux
see `@
see swap
dic s _ATR
dic ``
aux@ lst
` DEFAULT `@ _ATR (v@)
` ToDo `@ _ATR (vx)
drop ` DEFAULT `@ _ATR >aux> (v@)
` ToDo aux@
(v!)
lst
help strings
d1 @ z" X" IupGetAttribute ztype
ev ev ,l refs+> >t0> lst
t0 constant ed
ed DMP
sWdo @ z" TITLE" z" People.RonMoore show-text"
IupSetAttribute drop
textwdo @ z" CARET" IupGetAttribute
textwdo @ z" MODKEYSTATE" IupGetAttribute
textwdo @ z" TABSIZE" z" 8" IupSetAttribute drop
drop
.needs
see show-text
` ToDo show-text
`. ToDo
` ATR ` ToDo symdot dup vx
drop DMP
`. ASCIIbrowser
dnames
` People.RonMoore show-text
help/ >r
res> Help
include CoSy/Job.f
res> define-txtwdo
getval
$.s | (2) 113AAC0 113A720
value edwdo
value dgwdo
dgwdo show
dgwdo KeyDefs
dgwdo 0 topmost
swap show
2drop
drop
getval type
swap hide
destroy
| 2038 | | 2038 | | 2038 || 2040 | 20070610.2040| 2041
| | 2038 |
(
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
)
719-337-2733
: ref " notepad \\cosy\\ref.txt" shell ;
ref
s" C:/reva/CoSy/Derived.f" >t0> sslurp S.
res> >t1
t1 van t0 van foverwrite
0 topmost
s"
C:/CoSy/Liberty/y2007/LogicOfLibertyGlobalTemperature.wps" dsc shell
`. Fact
--------
' i! needs to check ref counts
could be optimization by reversing order of args of
VecInit
Forum s"
/home/cosy/mainwebsite_html/Forum/lang/English/register.php" wording
change
User : CoSyBob ; ID : WuWaGoGo
(
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
)
revaver type
help flow-control
help/ -
s" (while) 0do ?do again back do eleave i j later leave loop
more remains repeat skip unloop while" >t0
s" -link link" Help
help/ quote
needs os/dir
help/ linux
help exception
help strings
words~ ~os
words s
s" zxcv \ asdf \\ qwer " rho
\
s" s\" "
s" '\ " CShelp
dir
s" dir C:\\CoSy\\images\y11\Nikon\100NIKON\MinnowBrook
/b " shell>
vm
s" enquote" CShel
help strings
res> >t0> Help
| DAYLNs | \/ \/ \/ |
23 5 2008 date>fixed _iv >t0>
lst | |>| 732667 | Convert current date to fixed
t0 4 _iota ' + aaply >t1
| Created
next 30 days' fixed dates .
t1 :: fixed>date dayln type cr ;
eachM | Create dayline for each
| DAYLNs | /\ /\ /\ |
dnames
.contexts
.~
with~ ~help
dup i# .
text> "cr tokcut i# .
file-dlg unixslash str >t0> lst
t0 dsc sslurp >t1> van type
res> `! tmp
`@ tmp dsc
t0 dsc foverwrite
type
" C:/CoSy/tmp.txt" open/rw dup .
" C:/CoSy/tmp.txt" sslurp >t0> van type
s" creat open/r open/rw read write fsize seek tell rename
delete stat mtime (seek) close" Help
1884
" Overwriting previous contents " "
C:/CoSy/tmp.txt" foverwrite
close
sWdo @
"
" title
res> dup van " C:/CoSy/tmp.txt" foverwrite
s" C:/CoSy/tmp.txt" dup dsc type
dup
res> dup van
3 pick
close
`@ File van sslurp >t
CoSyDir type space CoSyFile type
` wintext v@ van type
dic savelst cosy/cosy.csy
90. 9. 5. f/ f* 32. f+ f. |>|
193.99999
: c>f 9. 5. f*/ 32. f+ ;
.s
reset
bye
(
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
)
help (s0) help s0
s0
.~
words~ ~ui
.qwer
(
######################################################################
)
include CoSy/furniture.f
dt |>| ( 2006 8 7 3 29 34 )
( Blew away all window text since first created to window
resize experiment .
So what is here does not contain the earliest
efforts . )
s" ~" i( 70 )i reshape lst
R ` Addrs >t0> stype
t0 v@ stype
res> R ` Addrs v!
(
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ )
s"
C:/CoSyWebresellers/SmartFTP/cpmove-cosycom/CoSy.csy" ^slurp
>t0> rho lst
" C:/revaArk/reva/CoSy/CoSy.csy"
(restorefile) >t0> rho lst
t0 ` wintext v@ lst
file-dlg >t0>
t0 ^slurp >t0> rho
t0 restorelist >t1> rho
t0 s" tmp.csy" Foverwrite
s" tmp.csy" ^slurp
t1 ` wintext v@ stype
R ` ToDo v!
s" C:/reva/CoSy/CoSy.csy" ^slurp restorelist
>t0> rho
s" //COSYBOB-PC/reva/CoSy/CoSy.csy" ^slurp restorelist
>t0> rho
R ` ref v@ rho
t1 ` wintext v@
t0 ` ToDo v@
R ` ToDo v@
s" R " CShelp
t0 dsyms
see dnames
s" restorelst " CShelp
t0 vbody restorelst >t1
t1 500 dump
t0 ` ToDo v@ R ` ToDo v!
R ` ToDo v@
t0 ` wintext v@
res> >t0
resvar
R ` tmp v@ t0
cL >t1> lst
_d lst
words Type
`( TypeFv TypeA TypeV TypeFl TypeS TypeC TypeI TypeN Type0 )`
>t0> lst
t0 { van eval _iv } eachM> >t1
t1 Type@
dnames
file-dlg >t0>
s" C:/Users/Bob/Downloads/CoSy/CoSy/CoSy.csy" >t0
s" //ACER-PC/reva/CoSy/CoSy.csy" >t0>
t0 ^slurp >t0> rho
t0 vbody restorelst >t1> rho
t1 ` wintext v@
t1 dsyms
t1 2 i@
t1 ` ref v@
t1 ` qwerw v@
t1 ' ,I acrossIc >t1
t0 t1 { ['] ,l }
s" C:/reva/CoSy/y2006.txt" ^slurp lst
s" C:/reva/CoSy/y2007.txt" ^slurp lst
s" C:/reva/CoSy/y2008.txt" ^slurp lst
!! C:\reva\CoSy\y2008.txt
s" C:/reva/CoSy/y2009.txt" ^slurp >t0
!! C:\reva\CoSy\y2009.txt
!! C:\reva\CoSy\y2010.txt
s" C:/reva/CoSy/y2010.txt" ^slurp >t0
s" C:/reva/CoSy/y2011.txt" ^slurp >t0>
| text> >t0> s"
C:/reva/CoSy/y2011.txt"
!! C:\reva\CoSy\y2011.txt
text> >t0>
dnames
s" //ACER-PC/reva/CoSy/CoSy.csy" ^slurp >t0>
t1 ` res v@
R ` ToDo v@
t0 rho
t0 vm dup+ s" wilson" conn >t1> at
t0 daylncut >t1> s" vic's " con
s" dup " CShelp
s" : at " CShelp
vm >t0> s" walmart" conn
see daycut
s" C:/reva/CoSy/y20" s" 0607080910" i( 0 2 4 6 8 )i
_ ' cL eachright
R0 each
text> stype
t0 stype
res> >t0> s" C:/reva/CoSy/y2009.txt"
Foverwrite
see Foverwrite
|
###################################################################### |
| \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ | 2012 | \/ \/ \/
\/ \/ \/ \/ \/ \/ \/ |
| ======================== | Sun.Jan,20120101 |
======================== |
| ======================== | Sat.Sep,20130914 |
======================== |
Minnowbrook ? |
14.5 273.15 f+ f.
2. 287. f/ f.
288.8 288. f/ f.
.00277 5800. f* f.
R ` Fact v@
8. 4.70 f* f.
(
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
)
see ref
s" dayln" CShelp
2.5 4. 3. f/ f* f.
| ------------------------ |
1 `( ToDo ref Addrs )` swap _iv at dsc ->
>- R resvar v@ stype
resvar
R ` res v@ stype
| ------------------------ |
R ` ref v@ vm s" bui" con
R ` ref v@ vm >t0> s" watch" conn
t0 R0 10 _iota +i at
text> vm s" 202" con
text>
text> daylncut s" 202" con >t0>
t0 1 _iv cut
4000 1200 1920 */ .
help */
477738. 411971. f/ f.
help needs
res> Help
words nl
"nl rho lst
text> nl toksplt rho lst
` ToDo show`txt
libdir type
r >t1
sp t0 ` ,s eachright
R t0 v@ stype
see Fwrite
t1 stype
curln
| res> R ` ref v!
res> >t1
text>
s" C:/CoSy/ref.txt" Fwrite
t1 s" C:/CoSy/tmp.txt" Foverwrite
!! C:\CoSy\tmp.txt
!! C:\CoSy\text.txt
ref
help !!
t0 stype
s" C:/CoSy/text.txt" ^slurp >t0> rho lst
rho lst
s" I:/text.txt" ^slurp >t0>
|
######################################################################
|
uranium processig : USEC | mining Cameco
F5_Networks
ABB
Magellan Midstream Partners (NYSE: MMP).
| /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\
/\ /\ /\ /\ /\ /\ /\ |
|
###################################################################### |
|
######################################################################
|
+| 2 7 2010 60 DAYLNS
|
|
