Re: Workaround for DIR in VBox

[Carl Distefano cld@xxxxxxxx]

Harry, here it is again -- both attached and XYENCoded. The guillemets
check out as balanced here. I've included both BDIR and an update to
frame TYPEIT. I've tweaked the latter so that it pauses consistently
on commas, and the ends of sentences and paragraphs. Oh, maybe you
want BDIR.DMO again, too. It's also attached and XYENCoded. Put the
frames in U2, and command RUN BDIR.DMO.

'%--_XYENCode_start--
{{5bdir*}}_Display_DOS_dir_listings_in_XyWrite_(Win32',_after_
BIGDIR.PM)_[CLD_rev.12/8/13]'^~B',*',_______Usage_BDIR[/switch
es]_[filespec]'^~>0~>'BXes_1'Q2'DX~',*','^~~>~~~+~+"/-n/-p"~>',*','^~<0~>
~~~~>~~>'JM2.GetPath
'Q2',*','^~+"\DIR.TMP"~>'BXernv_~'Q2'BXwa
it'Q2',*','^~~>~+"'Q2"~>
'BXd_xd=0'Q2',*','^~+"\DIR.T0P"~>'BXernv_~
'Q2'BXwait'Q2~'BXsa_'/06,~'Q2'BXwait'Q2',*','^~<
SX06,"@echo_off'^cmd.exe_/c_"+~~>~>0~>~+"_"+~~>~',*','^~+">"+~+"'^del_"+~+"'^"~>~+"\DIRT0P.BAT"~>'BX
sa_'/06,~'Q2'BXwait'Q2',*','^'BXdos/nv/x/z_/c_~'Q2
'BXwait'Q2',*','^~~'BXexist_~'Q2~~>~'BXp'Q2~',*','^~~~'^~'BXernv_~'Q2'BXwait'Q2'BXernv_~<
PV03~>'Q2'BXwait'Q2',*','^~~>'BXfunc_#~'Q2
'BXdir/pa_~'Q2'TG'TF'YD'DF'BF'BF'DF'DN~~~>~',*','^'BXme_~'Q2'BXwait'Q2'BXernv_~<
PV02~>'Q2'BXwait'Q2',*','^'TF~~'BXse_"~J;X;X;X;
X;X;X;X;X_"'Q2~)~>~~'^~'TG'TF~<
PV04~>~~>~~~~~B
'^'^{{5typeit}}_Simulate_typing_for_an_on-screen_demo_[CLD_rev
%.8/6/14]'^~B',*',________Usage'._~'JM2.
typeit'Q2'^'BXes'Q2'DO~~>~~>'BXd_
cr=1,1'Q2',*','^',*','^'BXd_eb=100,50'Q2',*',_Key_pause_value'^
~',*',_____Comma_pause_value'^',*','^~'NO~~>~~',*','^~~>0~>~~~>~'FF~~>',*','^~&~==1~>~~<
EI~>',*','^~&~==1~>'BXp'Q2~',*
','^~=="'^"~>~+1~>~>1~>'BX
p_2'Q2~~',*','^~'BXbeep'Q2~~'BXd
_eb=~'Q2~B'^'^
'%--_XYENCode___end--

'%--_XYENCode_start--
',*',_BDIR_Demo_-_CLD_rev.8/5/14_(frames_BDIR_and_TYPEIT_must_
be_in_U2)'^',*','^'BX?'Q2'BXp_5'Q2'ES'JM2.drives/nv'Q2~~="E"~>'BXe'.'Q2'BXcd_\'Q2~~~>'BXd_nw=
3'Q2'BXne/9'Q2~~'^~>~~'JM2.typeit
'Q2'BXp'Q2~_produces_a_
directory_listing.~>'JM2.typeit'Q2'BXp_2'Q2~'JM2.typeit'Q2'BXp_4'Q2~'JM
2.typeit'Q2'BXp'Q2'BXab/nv'Q2',*','^',*','^'BC~'JM2
%.typeit'Q2'BXp'Q2'XC~~>~~>~+"~>"~>~~>~'BXp_2'Q2',*','^~<
PRSee?_You_get_an_error,_and_nothing_happens...~>~'BXp_3'Q2
',*','^~'BXp_3'Q2',*','^'BC~'JM2.typeit'Q2'BXp'Q2'JM2.PrsSG50'Q2'BXwait'Q2'DO'FF',*','^'BX
p_2'Q2'PD'BXp'Q2'PD'BXp'Q2'BF'BXp'Q2'TF'BXp'Q2'BXab/nv'Q2',*',
'^'BC~'JM2.typeit'Q2'BXp'Q2'JM2.PrsSG50'Q2
'BXwait'Q2'DO'FF',*','^'BXp'Q2'BXse__;~[;~['Q2'BXse_";Stxt"'Q2
~)~>'LB'BC'BXp_2'Q2~'JM2.typeit'Q2'BXp
'Q2',*','^'GT~'BXp_2'Q2~'BXp_2'Q2'XC',*','^'BXp'Q2'PD'BXp
'Q2'PD'BXp'Q2'BF'BXp'Q2'TF'BXp'Q2~'BXab/nv'Q2',*','^',*',
'^'BXne/9'Q2~~'^~>~~'JM2.typeit'Q2'BXp
'Q2'BXab/nv'Q2'BXd_nw=~'Q2'BX?'Q2'BXp_10'Q2'ES~'^'^

'%--_XYENCode___end--
While I'm at it, here's CONST.DMO too. Illustrates how TYPEIT inserts
pauses, eliminating the need to insert them manually in the DeMO.

'%--_XYENCode_start--
'BXne/9'Q2'BXfc'Q2~'JM2.typeit'Q2'BXfl'Q2~'JM2.typeit'Q2'TF~
'%--_XYENCode___end--


Quoting Harry Binswanger :
Carl,

XYDEC said there are syntax errors in the code. Running U2's SYNTAX, it
seems to think there's unbalanced guillemets. Checking the source, there
are 2 more >'s than <'s. Is this an actual error?
Attachment:
BDIR2.FRM

Description: Binary data
Attachment:
CONST.DMO

Description: Binary data