dBASE downloads - What about 'dot.prg'?

Author

What about 'dot.prg'?

Michael Nunn

2005-06-08, 9:25 am

Following Ken's tour de force with a reinvigorated version/alternative to
'SNAP!', I still have a copy of 'Dot'. I probably got it from the old dBase
TechNotes.

What this did was to imitate the dot/command prompt in a command window. It
ran with RUNTIME and enabled direct access to dbf files. I used it a lot
with dBase IV.

It includes commands not now recognised (READ etc), so doesn't work with
current versions.

But could it be adapted to provide similar functonality?

Attached is the code as I have it.

Mike

begin 666 DOT.PRG
M*E!R;V-E9'5R92!$;W0-"E!U8FQI8R!M1&]T7U)O=RQM1&]T7T-O;"QM1&]T
M7U!R;VUP= T**E-E="!C;VYS;VQE(&]F9@T**D1O=%]%<G)O<B ](# -"BI/
M;B!%<G)O<B!$;W1?17)R;W(@/2!%<G)O<B@I#0HJ268@1&]T7T5R<F]R(#T@
M.30-"FU$;W1?4F]W(#T@24E&*%-%5"@B4U1!5%53(BD@/2 B3TXB+#(Q+#(T
M*2 K.PT*("!)248H(C0S(B D(%-%5" @B1$E34$Q!62(I+#$X+#
I("T@24E&
M*")$3U,B("0@3U,H*2PP+#$I#0IM1&]T7T-O;" ](# -"FU$;W1?4')O;7!T
M(#T@(BXB#0HJ16YD:68
-"E)E;&5A<V4@1&]T7T5R<F]R#0I$;R!$;W1?4'5B
M;&EC#0I)9B!4>7!E*")M7W!R;V<B*2 ](" =5)PT*(%!U8FQI8R!M7W
!R;V<-
M"B!M7W!R;V<@/2!P<F]G<F%M*"D-"D5N9&EF#0I$;W1?5&%L:R ](%-%5"@B
M5$%,2R(I#0I3970@=&%L:R!O9F8-"D-L96%R#0I3970@8V]N<V]L92!O;@T*
M+R]3970@9F]R;6%T('1
O#0I3970@97-C87!E(&]N#0I/;B!E<V-A<&4@1&]T
M7T5S8V%P92 ](# -"D]N(&5R<F]R(&1O(&1O=%]E<G(@=VET:"!E<G)O<B@I
M+&UE<W-A9V4H*0T*3VX@:V5Y(&QA8F5L($-T< FPM1CD@0V%N8V5L#0I)9
B N
M;F]T+B B4G5N=&EM92(@)"!5<'!E<BA697)S:6]N*# I*0T*($]N(&ME>2!L
M86)E;"!&,2!H96QP#0I%;'-E#0H@3VX@:V5Y(&QA8F5L($8Q($ME>6)O87)D
M(")(14Q0(B K($-(4B@Q,RD-"D5N9&EF#0I$;W1?<F]W(#T@;41O=%]R;W<-
M"D1O=%]C;VP@/2!M1&]T7V-O; T*1&]T7W!R;VUP=" ](&U$;W1?4')O;7!T
M#0I296QE87-E(&U$;W1?<F]W+&U$;W1?8V]L+$U$;W1?<')O;7!T#0I$;W1?
M<&]P(#T@+D8N#0I$;W1?:&ES=" ](#(P#0I$96-L87)E($1O=%]!<G)A>5M$
M;W1?2&ES=%T-"D1O=%]L96X@/2 X," M("A$;W1?8V]L("L@;&5N*$1O=%]P
M<F]M<'0I("L@,2D-"D1O=%]P:6,@/2 G(D!3)R K($QT<FEM*%-T<BA$;W1?
M;&5N*2D@*R G(B<-"D1O=%\Q<W0@/2 B(@T*1&\@<V5T7V-O;&]R#0I$;R!W
M:&EL92 N5"X-"B!)9B!D;W1?,7-T(#P^(") (B N86YD+B!$;W1?,7-T(#P^
M("(_(B N86YD+B!$;W1?=&%L:R ]("=/3B<-"B @/PT*($5N9&EF#0H@1&]T
M7T-O;6T@/2!S<&%C92@R-30I#0HO+R! ($1O=%]2;W<L1&]T7T-O;"!305D@
M1&]T7W!R;VUP="!'150@1&]T7T-O;6T@.PT*+R\@4&EC='5R92 F1&]T7U!I
M8R!#;VQO<B F1&]T7T-O;&]R#0HO+R!214%$#0H@1&]T7T-O;6T@/2!2=')I
M;2A,5')I;2A$;W1? 0V]M;2DI#0H@268@34]$
*%)E861K97DH*2PR-38I(#T@
M- T*("!$;R!$;W1?2V5Y#0H@16YD:68-"B!)9B B(B \/B!$;W1?0V]M;2 N
M86YD+B!$;W1?2&ES=" ^(# -"B @1&\@1&]T7U-T86-K#0H@16YD:68-"B!)
M9B!5<'!E<BA$;W1?0V]M;2D@/2 G15A)5"<-"B @17AI= T*($5N9&EF#0H@
M268@57!P97(H1&]T7T-O;6TI(#T@(E-%5"!404Q+(@T*("!$;W1?=&%L:R ]
M($E)1BA5<'!E<BA$;W1?0V]M;2D@/2 B4T54(%1!3$L@3TXB+")/3B(L(D]&
M1B(I#0H@16YD:68-"B!)9B B(B \/B!$;W1?0V]M;2 N86YD+B!5<'!E<BA$
M;W1?0V]M;2D@/#X@(E-%5"!404Q+(@T*("!/;B!E<G)O<B!$;W1?97)R;W(@
M/2!%<G)O<B@I#0H@($1O=%]C;G0@/2 P#0H@($1O('=H:6QE("(F(B D($1O
M=%]#;VUM#0H@("!$;R!-86-R;W-U8@T*(" @1&]T7V-N=" ]($1O=%]#;G0@
M*R Q#0H@("!)9B!$;W1?8VYT(#X](#,R#0H@(" @17AI= T*(" @16YD:68-
M"B @16YD9&\-"B @3VX@97)R;W(@9&\@9&]T7V5R<B!W:71H(&5R<F]R*"DL
M365S< V%G92@I#0H@($1O($ES4
E1I;64-"B!%;F1I9@T*16YD9&\-"E-E="!T
M86QK("9$;W1?5&%L:PT*3VX@97)R;W(-"E)E='5R;@T*#0I0<F]C961U<F4@
M1&]T7TME>0T*268@1&]T7W!O< T*($1E9FEN92!P;W!U<"!$;W1?<&]P(&9R
M;VT@,"PP#0H@8V]U;G1E<B ](#$-"B!M7T9I<G- T(#T@,0T*($1O('=H:6Q
E
M(&-O=6YT97(@/#T@1&]T7TAI<W0-"B @268@5'EP92@B1&]T7T%R<F%Y6V-O
M=6YT97)=(BD@/2 B3"(-"B @(&U?1FER<W0@/2!M7T9I<G-T("L@,0T*("!%
M;'-E#0H@(" !$969I;F4@0F%R(#$@*R
H8V]U;G1E<B M(&U?1FER<W0I(&]F
M(&1O=%]P;W @<')O;7!T(#L-"B @($1O=%]A<G)A>5MC;W5N=&5R70T*("!%
M;F1I9@T*("!C;W5N=&5R(#T@8V]U;G1E<B K(#$-"B!%;F1D;PT*($]N('-E
M;&5C=&EO;B!P;W!U<"!D;W1?<&]P(&1E86-T:79A=&4@<&]P=7 -"B!)9B!C
M;W5N=&5R("T@;5]&:7)S=" ^(# -"B @06-T:79A=&4@<&]P=7 @9&]T7W!O
M< T*("!M7T)A<B ]($)A<B@I#0H@($EF(&U?0F%R(#P^(# -"B @($ @9&]T
M7W)O=RPP#0H@("!$;W1?0V]M;2 ]($Q4<FEM*%)4<FEM*$1O=%]A<G)A>5MM
M7T)A<B K(&U?1FER<W0@+2 Q72DI#0H@($5N9&EF#0H@16YD:68-"D5L<V4-
M"B!3=&%C:U]N=6T@/2!$;W1?2&ES= T*($1O('=H:6QE("Y4+@T*("!M7U1E
M;7 @/2!$;W1?07)R87E;4W1A8VM?;G5M70T*("!M5&5M<" ]($E)1BA465!%
M*")M7U1E;7 B*2 ]("),(BQ3<&%C92@R-30I+&U?5&5M<" K.PT*(" @<W!A
M8V4H,C4T("T@;&5N*&U?5&5M<"DI*0T*("! ($1O=%]2;W<L1&]T7T-O;"!#
M;&5A<B!T;R!$;W1?4F]W+#<Y#0H@($ @1&]T7U)O=RQ$;W1?0V]L(%-!62!$
M;W1?4')O;7!T($=%5"!M7U1E;7 [#0H@("!P:6-T=7)E("9$;W1?4&EC($-O
M;&]R("9$;W1?0V]L;W(-"B @2V5Y8F]A< F0@0TA2*#(I#0H@(%)%0
40-"B @
M1&\@0V%S90T*(" @0V%S92!-3T0H4F5A9&ME>2@I+#(U-BD@/2 T#0H@(" @
M268@4W1A8VM?;G5M(#X@,0T*(" @("!3=&%C:U]N=6T@/2!3=&%C:U].=6T@
M+2 Q#0H@(" @16YD:68-"B @($-A< V4@36]D*%)E861K97DH*
2PR-38I(#T@
M-0T*(" @($EF(%-T86-K7VYU;2 \($1O=%]H:7-T#0H@(" @(%-T86-K7VYU
M;2 ](%-T86-K7VYU;2 K(#$-"B @("!%;'-E#0H@(" @($1O=%\Q<W0@/2 B
M/R(-"B @(" @17AI= T*(" @($5N9&EF#0H@("!#87-E($QA<W1K97DH*2 ]
M(#(W#0H@(" @17AI= T*(" @0V%S92!4>7!E*")M7U1E;7 B*2 \/B B3"(-
M"B @("!$;W1?0V]M;2 ]($Q4<FEM*%)T<FEM*&U?5&5M<"DI#0H@(" @17AI
M= T*("!%;F1C87-E#0H@16YD9&\-"D5N9&EF#0I2971U<FX-"@T*4')O8V5D
M=7)E($1O=%]0=6)L:6,
-"E!U8FQI8R!$;W1?,7-T+$1O=%]297-T+$1O=%]#
M;VQO<BQ$;W1?0V]M;2Q$;W1?17AA8W0-"E!U8FQI8R!$;W1?4&EC+$1O=%],
M96XL1&]T7U1A;&LL1&]T7U!R;VUP="Q$;W1?4F]W+$1O=%]#;VP-"E!U8FQI
M8R!$;W1?87)R87DL1&]T7TAI<W0L1&]T7W!O<"Q$;W1?17)R;W(L1&]T7T5S
M8V%P90T*4F5T=7)N#0H
-"E!R;V-E9'5R92!$;W1? 4F5L96%S90T*4F5L96%S

M92!$;W1?,7-T+$1O=%]#;VQO<BQ$;W1?0V]M;2Q$;W1?17AA8W0-"E)E;&5A
M<V4@1&]T7U!I8RQ$;W1?3& 5N+$1O=%]486QK+$1O=%
]0<F]M<'0L1&]T7U)O
M=RQ$;W1?0V]L#0I296QE87-E($1O=%]A<G)A>2Q$;W1?2&ES="Q$;W1?<&]P
M+$1O=%]3869E='D-"E)E;&5A<V4@1&]T7T5R<F]R+$1O=%]%<V-A<&4-"E)E
M='5R;@T*#0I0<F]C961U<F4@1&]T7U-A=F4-"D1O=%]3869E='D@/2!3150H
M(E-!1D5462(I#0I3970@<V%F971Y(&]F9@T*4V%V92!A;&P@;&EK92!$;W1?
M*B!T;R!$;W1?,0T*1&\@0V%S90T*($-A<V4@(D-,14%2(B ](&U&:7)S= T*
M("!#;&5A<B F1&]T7U)E<W0-"B!#87-E("),3T=/550B(#T@;49I<G-T#0H@
M(%-A=F4@=&\@1&]T7S(@86QL(&QI:V4@;5]0<F]G*@T*("!3879E('1O($1O
M=%\S(&%L;"!L:6ME(&U$;W1?4F]W#0H@($QO9V]U= T*("!3970@=&%L:R!O
M9F8-"B @4'5B;&EC(&U?4')O9RQM1&]T7U)O=PT*("!297-T;W)E(&9R;VT@
M1&]T7S(@861D:71I=F4-"B @4F5S=&]R92!F<F]M($1O=%\S(&%D9&ET:79E
M#0H@($5R87-E($1O=%\R+FUE;0T*("!%<F%S92!$;W1?,RYM96T-"B!#87-E
M(")214Q%05-%(B ](&U&:7)S= T*("!#;&5A<B!-96UO<GD-"B!#87-E(")3
M059%(B ](&U&:7)S= T*("!3879E("9$;W1?4F5S= T*16YD8V%S90T*1&\@
M1&]T7U!U8FQI8PT*4F5S=&]R92!F<F]M($1O=%\Q(&%D9&ET:79E#0I%<F%S
M92!$;W1?,2YM96T-"E-E=" !S869E='D@)D1O=%]386
9E='D-"E)E='5R;@T*
M#0I0<F]C961U<F4@1&]T7U-T86-K#0I)9B!4>7!E*")$;W1?07)R87E;1&]T
M7TAI<W1=(BD@/2 B3"(@+F]R+B [#0H@1&]T7T%R<F%Y6T1O=%](:7-T72 \
M/B!$;W1?0V]M;0T*(&U?5&5M<" ](#$-"B!$;R!W:&EL92!M7U1E;7 @/"!$
M;W1?2&ES= T*("!$;W1?07)R87E;;5]496UP72 ]($1O=%]!<G)A>5MM7U1E
M;7 @*R Q70T*("!M7U1E;7 @/2!M7U1E;7 @*R Q#0H@16YD9&\-"B!$;W1?
M07)R87E;;5]T96UP72 ]($1O=%]#;VUM#0I%;F1
I9@T*4F5T=7)N#0H-"E!R
M;V-E9'5R92!)<U)4:6UE#0I$;W1?17AA8W0@/2!3150H(D5804-4(BD-"E-E
M="!E>&%C="!O9F8-"DEF($%4*"(@(BQ$;W1?0V]M;2D@/2 P#0H@1&]T7S%S
M=" ](%5P<& 5R*$1O=%]#;VUM*0T*($
1O=%]297-T(#T@(B B#0I%;'-E#0H@
M1&]T7S%S=" ](%5P<&5R*$QE9G0H1&]T7T-O;6TL050H(B B+$1O=%]#;VUM
M*2 M(#$I*0T*($1O=%]297-T(#T@4FEG:'0H1&]T7T-O;6TL;&5N*$1O=%]C
M;VUM*2 M.PT*("!!5"@B("(L1&]T7T-O;6TI*0T*16YD:68-"DEF(%1Y<&4H
M(D%S,U]2=6YT:6UE(BD
@/#X@(E4B#0H@268@1&]T7S%S=" \/B B/R(@+F%N
M9"X@1&]T7S%S=" \/B B4T54(@T*("!3970@=&%L:R!O;@T*($5L<V4-"B @
M4V5T('1A;&L@;V9F#0H@16YD:68-"D5N9&EF#0I$;R!#87-E#0H@0V%S92!,
M969T*$1O=%]#;VUM+#$
I(#T@(C\B#0H@($1O=%]
297-T(#T@4DE'2%0H1&]T
M7T-O;6TL3$5.*$1O=%]#;VUM*2 M($%4*"(_(BQ$;W1?0V]M;2DI#0H@(&U?
M5&5M<" ]($%4*")3150H(BQ5<'!E<BA$;W1?4F5S="DI#0H@($EF(&U?5&5M
M<" ^(# -"B @(&U?5&5X=" ](%5P<&5R*%-U8G-T<BA$;W1?4F5S="Q!5"@B
M4T54*"(L57!P97(H1&]T7U)E<W0I*3L-"B @("L@-2Q!5"@B*2(L57!P97(H
M1&]T7U)E<W0I*2 M.PT*(" @*$%4*")3150H(BQ5<'!E<BA$;W1?4F5S="DI
M("L@-BDI*0T*(" @268@;5]497AT("0@(D5804-4(%1!3$LB#0H@(" @1&]T
M7U)E<W0@/2!35%5&1BA$;W1?4F5S="Q!5"@B4T54*"(L57!P97(H1&]T7U)E
M<W0I*2P[#0H@(" @-2P@(D1O=%\B*0T*(" @($1O=%]297-T(#T@3&5F="A$
M;W1?4F5S="Q!5"@B*2(L1&]T7U)E<W0I("T@,BD@*R [#0H@(" @($E)1B@B
M15A!0R(@/2!M7U1E>'0L(E0B+"(B*0T*(" @16YD:68-"B @16YD:68-"B @
M/R9$;W1?4F5S= T*(" _#0H@0V%S92!,969T*$1
O=%]#;VUM+#$I(#T@(D B
M#0H@($1O=%]297-T(#T@4FEG:'0H1&]T7T-O;6TL3&5N*$1O=%]#;VUM*2U!
M5"@B0"(L1&]T7T-O;6TI*0T*("! ("9$;W1?4F5S= T*($-A<V4@3&5F="A$
M;W1?0V]M;2PQ*2 ]("(A(@T*("!$;W1?4F5S=" ](%)I9VAT*$1O=%]#;VU
M
M+$QE;BA$;W1? 0V]M;2DM050H(B$B+$1O
=%]#;VUM*2D-"B @(%)U;B F1&]T
M7U)E<W0-"B!#87-E(")!0T-%4%0B(#T@1&]T7S%S= T*("!M7U1E;7 @/2!2
M:6=H="A$;W1?4F5S="Q,96XH1&]T7U)E<W0I("T@.PT*("!!5"@B(%1/("(L
M57!P97(H1&]T7U)E<W0I*2TS*0T*("!0=6)L:6,@)FU?5&5M< T*("!!8V-E
M<'0@)D1O=%]297-T#0H@0V%S92 B04-4259!5$4B(#T@1&]T7S%S= T*("!!
M8W1I=F%T92 F1&]T7U)E<W0-"B!#87-E(")!4%!%3D0B(#T@1&]T7S%S= T*
M("!!<'!E;F0@)D1O=%]297-T#0H@0V%S92 B059%4D%'12(@/2!$;W1?,7-T
M#0H@($%V97)A9V4@)D1
O=%]297-T#0H@0V%S92 B0E)/5U-%(B ]($1O=%\Q
M<W0-"B @0G)O=W-E("9$;W1?4F5S= T*($-A<V4@(D-!3$-53$%412(@/2!$
M;W1?,7-T#0H@($-A;&-U;&%T92 F1&]T7U)E<W0-"B!#87-E(")#04Q,(B ]
M($1O=%\Q<W0-"B @0V%L;" F1&]T7U)E<W0-"B!#87-E(")#04Y#14PB(#T@
M1&]T7S%S= T*("!#86YC96P-"B!#87-E(")#2$%.1T4B(#T@1&]T7S%S= T*
M("!#:&%N9V4@)D1O=%]297-T#0H@0V%S92 B0TQ%05(B(#T@1&]T7S%S= T*
M("!)9B B(B ](%1R:6TH1&]T7U)E<W0I#0H@("!#;&5A<@T*("!%;'-E#0H@
M("!$;R!$;W1? 4V%V92!W:71H($1O=%\Q
<W0-"B @16YD:68-"B!#87-E(")#
M3$]312(@/2!$;W1?,7-T#0H@($-L;W-E("9$;W1?4F5S= T*($-A<V4@(D-/
M35!)3$4B(#T@1&]T7S%S= T*("!)9B N3D]4+B B4E5.5$E-12(@)"!5<'!E
M<BA697)S:6]N*# I*0T*(" @0V]M<&EL92 F1&]T7U)E<W0-"B @16YD:68-
M"B!#87-E(")#3TY424Y512(@/2!$;W1?,7-T#0H@($-O;G1I;G5E#0H@0V%S
M92 B0T].5D525"(@/2!$;W1?,7-T#0H@($-O;G9E<G0@)D1O=%]297-T#0H@
M0V%S92 B0T]062(@/2!$;W1?,7-T#0H@($-O<'D@)D1O=%]297-T#0H@0V%S
M92 B0T]53E0B(#T@1&]T7S%S= T*("!#;W5N=" F1&]T7U)E<W0-"B!#87-E
M(")#4D5!5$4B(#T@1&]T7S%S= T*("!)9B N;F]T+B B4E5.5$E-12(@)"!5
M<'!E<BA697)S:6]N*# I*0T*(" @0W)E871E("9$;W1?4F5S= T*("!%;'-E
M#0H@("!)9B!,969T*%5P<&5R*%1R:6TH1&]T7U)E<W0I*2PT*2 ](")62457
M(CL-"B @(" N86YD+B!M7U1E;7 @/2!3=6)S='(H1&]T7U)E<W0L-BQ!5"@B
M($923TT@14Y622(L.PT*(" @(%5P<&5R*$1O=%]297-T*2DM-BD-"B @("!#
M<F5A=&4@5FEE=R F;5]496UP(& 9R;VT@16YV:7)O;FUE;G
0-"B @($5L<V4-
M"B @("!)9B!&24Q%*")5< V5R7T1E9BY$0D\B*0T*(
" @("!$;R!5<V5R7T1E
M9@T*(" @("!2971U<FX-"B @("!%;F1I9@T*(" @16YD:68-"B @16YD:68-
M"B!#87-E(")$14%#5$E6051%(B ]($1O=%\Q<W0-"B @1&5A8W1I=F%T92 F
M1&]T7U)E<W0-"B!#87-E(")$14)51R(@/2!$;W1?,7-T#0H@($EF("YN;W0N
M(")254Y424U%(B D(%5P<&5R*%9E<G-I;VXH,"DI#0H@("!$96)U9R F1&]T
M7U)E<W0-"B @16YD:68-"B!#87-E(")$14-,05)%(B ]($1O=%\Q<W0-"B @
M1&5C;&%R92 F1&]T7U)E<W0-"B!#87-E(")$149)3D4B(#T@1&]T7S%S= T*
M(" !$969I;F4@)D1O=%]297
-T#0H@0V%S92 B1$5,151%(B ]($1O=%\Q<W0-
M"B @1&5L971E("9$;W1?4F5S= T*($-A<V4@(D1)4B(@/2!$;W1?,7-T#0H@
M($1I<B F1&]T7U)E<W0-"B!#87-E(")$25-03$%9(B ]($1O=%\Q<W0-"B @
M1&ES<&QA>2 F1&]T7U)E<W0-"B!#87-E(")$3R(@/2!$;W1?,7-T#0H@($1O
M("9$;W1?4F5S= T*($-A<V4@(D5$250B(#T@1&]T7S%S= T*("!%9&ET("9$
M;W1?4F5S= T*($-A<V4@(D5*14-4(B ]($1O=%\Q<W0-"B @16IE8W0@)D1O
M=%]297-T#0H@0V%S92 B15)!4T4B(#T@1&]T7S%S= T*("!%<F%S92 F1&]T
M7U)E<W0-"B!#87-E(")%6%!/4E0B(#T@1&]T7S%S= T*("!%>'!O<G0@)D1O
M=%]297-T#0H@0V%S92 B1DE.1"(@/2!$;W1?,7- T#0H@($9I;F0@)D1O=%]
2
M97-T#0H@0V%S92 B1T\B(#T@1&]T7S%S= T*("!';R F1&]T7U)E<W0-"B!#
M87-E("))35!/4E0B(#T@1&]T7S%S= T*("!);7!O<G0@)D1O=%]297-T#0H@
M0V%S92 B24Y$15@B(#T@1&]T7S%S= T*("!);F1E>" F1&]T7U)E<W0-"B!#
M87-E("))3E!55"(@/2!$;W1?,7-T#0H@(&U?5&5M<" ](%)I9VAT*$1O=%]2
M97-T+&QE;BA$;W1?4F5S="DM.PT*("!!5"@B(%1/("(L57!P97(H1&]T7U)E
M<W0I*2TS*0T*("!0=6)L:6,@)FU?5&5M< T*("!);G!U=" F1&]T7U)E<W0-
M"B!#87-E("))3E-%4E0B(#T@1&]T7S%S= T*("!);G-E<G0@)D1O=%]297-T
M#0H@0V%S92 B2D])3B(@/2!$;W1?,7- T#0H@($IO:6X@)D1O=%]
297-T#0H@
M0V%S92 B2T590D]!4D0B(#T@1&]T7S%S= T*("!+97EB;V%R9" F1&]T7U)E
M<W0-"B!#87-E("),04)%3"(@/2!$;W1?,7-T#0H@($QA8F5L("9$;W1?4F5S
M= T*($-A<V4@(DQ)4U0B(#T@1&]T7S%S= T*("!,:7-T("9$;W1?4F5S= T*
M($-A<V4@(DQ/040B(#T@1&]T7S%S= T*("!,;V%D("9$;W1?4F5S= T*($-A
M<V4@(DQ/0T%412(@/2!$;W1?,7-T#0H@($QO8V%T92 F1&]T7U)E<W0-"B!#
M87-E("),3T=/550B(#T@1&]T7S%S= T*("!$;R!$;W1?4V%V92!W:71H($1O
M=%\Q<W0-"B!#87-E(")-3T1)1EDB(#T@1&]T7S%S= T*("!)9B N;F]T+B B
M4E5.5$E-12(@)"!5<'!E<BA697)S:6]N*# I*0T*(" @36]D:69Y("9$;W1?
M4F5S= T*("!%;F1I9@T*($-A<V4@(DU/5D4B(#T@1&]T7S%S= T*("!-;W9E
M("9$;W1?4F5S= T*($-A<V4@(D].(B ]($1O=%\Q<W0-"B @268@+FYO="X@
M*")%4T-!(B D(%5P<&5R*$1O=%]297-T*2 N;W(N(")%4E)/(B D(%5P<&5R
M*$1O=%]297-T*2D-"B @($]N("9$;W1?4F5S= T*("!%;F1I9@T*($-A<V4@
M(E!!0TLB(#T@1&]T7S%S= T*("!086-K#0H@0V%S92 B4$Q!62(@/2!$;W1?
M,7- T#0H@(%!L87D@)D1O=%]
297-T#0H@0V%S92 B4%))5D%412(@/2!$;W1?
M,7-T#0H@(%!R:79A=&4@)D1O=%]297-T#0H@0V%S92 B4%5"3$E#(B ]($1O
M=%\Q<W0-"B @4'5B;&EC("9$;W1?4F5S= T*($-A<V4@(E%5250B(#T@1&]T
M7S%S= T*("!1=6ET("9$;W1?4F5S= T*($-A<V4@(E)%040B(#T@1&]T7S%S
M= T*("!214%$("9$;W1?4F5S= T*($-A<V4@(E)%0T%,3"(@/2!$;W1?,7-T
M#0H@(%)E8V%L;" F1&]T7U)E<W0-"B!#87-E(")214E.1$58(B ]($1O=%\Q
M<W0-"B @4F5I;F1E>" F1&]T7U)E<W0-"B!#87-E(")214Q%05-%(B ]($1O
M=%\Q<W0-"B @268@57!P97(H5')I;2A
$;W1?4F5S="DI(#T@)T%,3"<-"B @
M($1O($1O=%]S879E('=
I=&@@1&]T7S%S= T*("!%;'-E#0H@("!296QE87-E
M("9$;W1?4F5S= T*("!%;F1I9@T*($-A<V4@(E)%3D%-12(@/2!$;W1?,7-T
M#0H@(%)E;F%M92 F1&]T7U)E<W0-"B!#87-E(")215!,04-%(B ]($1O=%\Q
M<W0-"B @4F5P;&%C92 F1&]T7U)E<W0-"B!#87-E(")215!/4E0B(#T@1&]T
M7S%S= T*("!297!O<G0@)D1O=%]297-T#0H@0V%S92 B4D53150B(#T@1&]T
M7S%S= T*("!297-E=" F1&]T7U)E<W0-"B!#87-E(")215-43U)%(B ]($1O
M=%\Q<W0-"B @1&]T7U)E<W0@/2!$;W1?4F5S=" K($E)1B@B($%$1$DB("0@
M.PT*("!5<'!E<BA$;W1?4F5S="DL("(B+" B($%$1$E4259%(BD-"B @4F5S
M=&]R92 F1&]T7U)E<W0-"B!#87-E(")23TQ,0D%#2R(@/2!$;W1?,7-T#0H@
M(%)O;&QB86-K("9$;W1?4F5S= T*($-A<V4@(E)53B(@/2!$;W1?,7-T#0H@
M(%)U;B F1&]T7U)E<W0-"B!#87-E(")3059%(B ]($1O=%\Q<W0-"B @1&\@
M1&]T7U-A=F4@=VET:"!$;W1?,7-T#0H@0V%S92 B4T5%2R(@/2!$;W1?,7-T
M#0H@(%-E96L@)D1O=%]297-T#0H@0V%S92 B4T5,14-4(B ]($1O=%\Q<W0-
M"B @4V5L96-T("9$;W1?4F5S= T*($-A<V4@(E-%5"(@/2!$;W1?,7-T#0H@
M($1O=%]496UP(#T@57!
P97(H;&5F="A,5')I;2A$;W1?4F5S="DL-"DI#0H@
M($1O($-A<V4-"B @($-A<V4@(DA)4U0B(#T@1&]T7U1E;7 -"B @("!)1B B
M(%1/("(@)"!5<'!E<BA$;W1?4F5S="D-"B @(" @;5]496UP(#T@5D%,*%)
I
M9VAT*$1O=%]297-T+$Q%3BA$;W1?4F5S="DM.PT*(" @("!!5"@B(%1/("(L
M57!P97(H1&]T7U)E<W0I*2TS*2D-"B @(" @1&\@0V%S90T*(" @(" @0V%S
M92!M7U1E;7 @/2 P("YA;F0N(%)I9VAT*%)T<FEM*$1O=%]297-T*2PQ*3TB
M,"(-"B @(" @("!296QE87-E($1O=%]!<G)A>0T*(" @(" @($1O=%](:7-T
M(#T@, T*(" @(" @0V%S92!M7U1E;7 @/B P#0H@(" @(" @268@;5]496UP
M(#P^($1O=%](:7-T#0H@(" @(" @($1O=%](:7-T(#T@;5]496UP#0H@(" @
M(" @($1E8VQA<F4@1&]T7T%R<F%Y6T1O=%](:7-T70T*(" @(" @($5N9&EF
M#0H@(" @($5N9&-A<V4-"B @("!%;F1I9@T*(" @0V%S92 B(B \/B!$;W1?
M5&5M<" N86YD+B N;F]T+B!$;W1?5&5M<" D(#L-"B @(" B1D]234%41$5"
M54=$3TA)4U1/4EE%0TA/ 24Y35%)50U1344P@4U1%
4%1205 B#0H@(" @1&]T
M7W1?<W0@/2!3150H(E-405154R(I#0H@(" @1&]T7W1?9&D@/2!3150H(D1)
M4U!,05DB*0T*(" @(%-E=" F1&]T7U)E<W0-"B @("!$;R!S971?8V]L;W(-
M"B @("!)9B B1$E34$Q!62(@/2!$;W1?5&5M<" N;W(N(")35$%455,B(#T@
M1&]T7U1E;7 -"B @(" @268@4T54*")35$%455,B*2 \/B!$;W1?=%]S= T*
M(" @(" @1&]T7U)O=R ]($1O=%]2;W<@*R!)248H4T54*")35$%455,B*2 ]
M(")/3B(L("TS+#,I#0H@(" @($5N9&EF#0H@(" @($EF(%-%5"@B1$E34$Q!
M62(I(#P^($1O=%]T7V1
I#0H@(" @("!$;W1?4F]W(#T@1&]T7U)O=R K(#L-
M"B @(" @($E)1BA2:6=H=" A3150H(D1)4U!,05DB*2
PR*2 ]("(T,R(L,3@L
M+3$X*0T*(" @("!%;F1I9@T*(" @("!$;W1?4F]W(#T@34E.*$E)1B@B-#,B
M("0@4T54*")$25-03$%9(BDL-#(L,C0I+$1O=%]2;W<I#0H@(" @16YD:68-
M"B @("!296QE87-E($1O=%]47W-T+$1O=%]T7V1I#0H@("!%;F1C87-E#0H@
M("!296QE87-E($1O=%]496UP#0H@($-A<V4@(E-(3U<B(#T@1&]T7S%S= T*
M(" @4VAO=R F1&]T7U)E<W0-"B @0V%S92 B4TM)4"(@/2!$;W1?,7-T#0H@
M("!3:VEP("9$;W1?<F5S= T*("!#87-E(")33U)4(B ]($1O=%\Q<W0-"B @
M(%-O<G0@)D1O=%]297-T#0H@($-A<V4@(E-43U)%(B ]($1O=%\Q<W0-"B @
M(%-T;W)E("9$;W1?4F5S= T*("!#87-E(")354TB(#T@1&]T7S%S= T*(" @
M4W5M("9$;W1?4F5S= T*("!#87-E(")43U1!3"(@/2!$;W1?,7-T#0H@("!4
M;W1A;" F1&]T7U)E<W0-"B @0V%S92 B5%E012(@/2!$;W1?,7-T#0H@("!4
M>7!E("9$;W1?4F5S= T*("!#87-E(")53DQ/0TLB(#T@1&]T7S%S= T*(" @
M56YL;V-K("9$;W1?4F5S= T*("!#87-E(")54$1!5$4B(#T@1&]T7S%S= T*
M(" @57!D871E("9$;W1?4F5S= T*("!#87-E(")54T4B(#T@1&]T7S%S= T*
M(" @57-E("9$;W1?4F5S= T*("!#87-E(")704E4(B ]($1O=%\Q<W0-"B @
M($EF(")43R(@)"!5<'!E<BA$;W1?4F5S="D-"B @("!M7U1E;7 @/2!2:6=H
M="A$;W1?4F5S="Q,14XH1&]T7U)E<W0I("T[#0H@(" @050H(B!43R B+%5P
M<&5R*$1O=%]297-T*2D@+2 S*0T*(" @("!0=6)L:6,@)FU?5&5M< T*(" @
M16YD:68-"B @(%=A:70@)D1O=%]297-T#0H@($-A<V4@(EI!4"(@/2!$;W1?
M,7-T#0H@("!:87 -"B @0V%S92 B/2(@)"!$;W1?0V]M;0T*(" @;5-T;W)E
M5F%R(#T@3&5F="A$;W1?0V]M;2Q!5"@B/2(L1&]T7T-O;6TI("TQ*0T*(" @
M;7-T;W)E(#T@<W5B< W1R*$1O=%]#;VUM+$%4*
"(](BQ$;W1?0V]M;2D@*R Q
M+$Q%3BA$;W1?0V]M;2DI#0H@("!0=6)L:6,@)FUS=&]R979A<@T*(" @4W1O
M<F4@)DUS=&]R92!T;R F;7-T;W)E=F%R#0H@($-A<V4@5D%,*$1O=%]#;VUM
M*2 ^(# -"B @($=O("9$;W1?0V]M;0T*($5N9&-A<V4-"E-E="!T86QK(&]F
M9@T*268@(B(@/#X@1&]T7S%S= T*($1O(%5S97)?1&5F:6YE9 T*16YD:68-
M"E-E="!E>&%C=" F1&]T7T5X86-T#0I2971U<FX-"@T*4')O8V5D=7)E($UA
M8W)O<W5B#0I$96-L87)E(%-934)/3%LQ,5T-"E-934)/3%LQ72 ]("(M(@T*
M4UE- 0D],6S)=(#T@(BLB#0I3
64U"3TQ;,UT@/2 B/CTB#0I364U"3TQ;-%T@
M/2 B/#TB#0I364U"3TQ;-5T@/2 B/#XB#0I364U"3TQ;-ET@/2 B(R(-"E-9
M34)/3%LW72 ]("(J(@T*4UE- 0D],6SA=(#T@(B\B#0I3
64U"3TQ;.5T@/2 B
M/2(-"E-934)/3%LQ,%T@/2 B/"(-"E-934)/3%LQ,5T@/2 B/B(-"FU?8VYT
M(#T@,0T*1&\@=VAI;&4@;5]C;G0@/#T@. T*($1O('=H:6QE($%4*%
-934)/
M3%MM7V-N=%TL1&]T7T-O;6TI(#X@," N86YD+B [#0H@("AS=6)S='(H1&]T
M7T-O;6TL050H4UE-0D],6VU?8VYT72Q$;W1?0V]M;2D@*R [#0H@($Q%3BA3
M64U"3TQ;;5]C;G1=*2PQ*2 \/B!#2%(H,S(I("YO<BX@.PT*("!3=6)S='(H
M1&]T7T-O;6TL050H4UE-0D],6VU?8VYT72Q$;W1?0V]M;2DM,2PQ*3L-"B @
M/#X@0TA2*#,R*2D-"B @1&]T7T-O;6T@/2!3='5F9BA$;W1?0V]M;2Q!5"A3
M64U" 3TQ;;5]C;G1=+$1O=%]#
;VUM*2P[#0H@($Q%3BA364U"3TQ;;5]C;G1=
M*2PB("(@*R!#2%(H,2D@*R B("(I#0H@16YD9&\-"B!$;R!W:&EL92!!5"A#
M2%(H,2DL1&]T7T-O;6TI(#X@, T*("!$;W1?0V]M;2 ](%-T=69F*$1O=%]#
M;VUM+$%4*$-(4B@Q*2Q$;W1?0V]M;2DL,2Q364U" 3TQ;;5]C;G1=*0T*($5N

M9&1O#0H@;5]C;G0@/2!M7V-N=" K(#$-"D5N9&1O#0I$;R!W:&EL92!M7V-N
M=" \/2 Q,0T*($1O('=H:6QE($%
4*%-934)/3%MM7V-N=%TL1&]T7T-O;6TI
M(#X@," N86YD+CL-"B @*"@N3D]4+B!3=6)S='(H1&]T7T-O;6TL050H4UE-
M0D],6VU?8VYT72Q$;W1?0V]M;2D@*SL-"B @3$5.*%-934)/3%MM7V-N=%TI
M+#$I("0@(B \+#XL/2(I("YO<BX@.PT*(" H+FYO="X@<W5B<W1R*$1O=%]#
M;VUM+$%4*%-934)/3%MM7V-N=%TL1&]T7T-O;6TI("T@.PT*(" Q+#$I("0@
M(B L/"P^+#TB*2D-"B @1&]T7T-O;6T@/2!3='5F9BA$;W1?0V]M;2Q!5"A3
M64U" 3TQ;;5]C;G1=+$1O=%]#
;VUM*2P[#0H@($Q%3BA364U"3TQ;;5]C;G1=
M*2PB("(@*R!#2%(H,2D@*R B("(@*0T*($5N9&1O#0H@1&\@=VAI;&4@050H
M0TA2*#$I+$1O=%]#;VU
M*2 ^(# -"B @1&]T7T-O;6T@/2!3='5F9BA$;W1?
M0V]M;2Q!5"A#2%(H,2DL1&]T7T-O;6TI+#$L4UE-0D],6VU?8VYT72D-"B!%
M;F1D;PT*(&U?8VYT(#T@;5]C;G0@*R Q#0I%;F1D;PT*1&]T7T-O;6T@/2!,
M5%)I;2A2=')I;2A$;W1
?0V]M;2DI#0IP87)T,2 ]('-U8G-T<BA$;W1?0V]M
M;2Q!5"@B)B(L1&]T7T-O;6TI("L@,2Q,14XH1&]T7T-O;6TI*0T*268@050H
M(BXB+'!A<G0Q*2 ](# -"B!)<U]$;W0@/2 N1BX-"B!M7U!O<R ]($E)1BA!
M5"@B("(L<&%R=#$I(#T@,"Q,14XH4&%R=#$I+$%4*"(@(BQP87)T,2D@+2 Q
M*0T*16QS90T*($ES7T1
O=" ]("Y4+@T*($EF($%4*"(@(BQP87)T,2D@/2 P
M#0H@(&U?<&]S(#T@050H(BXB+'!A< G0Q*2TQ#0H@16QS90T*(
"!M7W!O<R ]
M($U)3BA!5"@B+B(L<&%R=#$I+$%4*"(@(BQP87)T,2DI+3$-"B!%;F1I9@T*
M16YD:68-"G!A<G0R(#T@3&5F="AP87)T,2QM7W!O<RD-"G!A<G0S(#T@<FEG
M:'0H1&]T7T-O;6TL3$5.*$1O=%]#;VUM*2 M($%4*"(F(BQ$;W1?0V]M;2D@
M+3L-"B!M7U!O<R M($E)1BA)<U]$;W0L,2PP*2D-"D1O=%]#;VUM(#T@3&5F
M="A$;W1?0V]M;2Q!5"@B)B(L1&]T7T-O;6TI+3%?("L@)G!A<G0R("L@<&%R
M=#,-"E)E='5R;@T*( T*4')O8V5D=7)E(%-E=%]C;VQO<@T*1&]T7T-O;&]R
M(#T@3&5F=" A3150H(D%45%))0E5415
,B*2Q!5"@B+"(L4T54*")!5%1224)5
M5$53(BDI+3$I#0I$;W1
?0V]L;W(@/2!$;W1?0V]L;W(@*R B+"(@*R!$;W1?
M0V]L;W(-"E)E='5R;@T*#0I0<F]C961U<F4@57-E<E]$969I;F5D#0I)9B!&
M24Q%*")5< V5R7T1E9BY$0D\B*0T*(
$1O(%5S97)?1&5F#0I%;F1I9@T*268@
M1FEL92@B061A;5]$968
N1$)/(BD-"B!$;R!!9&%M7T1E9@T*16YD:68-"E)E
M='5R;@T*#0I0<F]C961U<F4@1&]T7T5R<@T*4&%R86UE=&5R<R!M1&]T7T5R
M<BQM1&]T7TUS9PT*1&]T7T5R<F]R(#T@;41O=%]%<G(-"DEF("YN;W0N($Q4
M4FEM*%-T<BA$;W1?17)R;W(I*2 D("(Q,"(-"B!3879E(%-C<F5E;B!T;R!%
M<G)?4V-R965N#0H@0" X+#$U($- L96%R('1O(#$T+#8P#0H
@0" X+#$U('1O
M(#$T+#8P(&1O=6)L90T*($ @.2PR," !305D@(D524D]2($YU;6
)E<B Z("(@
M*R!,=')I;2A3='(H;41
O=%]%<G(I*0T*($ @,3$L,C @4T%9(&U$;W1?;7-G
M#0H@0" Q,RPR,"!305D@(E!R97-S(&%N>2!K97D@=&\@8V]N=&EN=64@+BXN
M(@T*(&D]26YK97DH,"D-"B!297-T;W)E('-C<F5E;B!F<F]M($5R<E]S8W)E
M96X-"B!296QE87-E('-C<F5E;B!%<G)?<V- R965N#0I%;F1I9@T*4F5
T=7)N
+#0H@#0H-"B -"AH`
`
end

Ken Mayer [dBVIPS]

2005-06-08, 9:25 am

Michael Nunn wrote:
> Following Ken's tour de force with a reinvigorated version/alternative to
> 'SNAP!', I still have a copy of 'Dot'. I probably got it from the old dBase
> TechNotes.
>
> What this did was to imitate the dot/command prompt in a command window. It
> ran with RUNTIME and enabled direct access to dbf files. I used it a lot
> with dBase IV.
>
> It includes commands not now recognised (READ etc), so doesn't work with
> current versions.
>
> But could it be adapted to provide similar functonality?

There's a Command Window program in the dUFLP, you know ... <g>

Ken

--
/(Opinions expressed are purely my own, not those of dataBased
Intelligence, Inc.)/

*Ken Mayer* [dBVIPS]
/Golden Stag Productions/
dBASE at goldenstag dot net
http://www.goldenstag.net/GSP
http://www.goldenstag.net/dbase

Sponsored Links