Re: Saving to USB drives from VDOS

[Carl Distefano cld@xxxxxxxx]

Paul,
I dusted off these frames, which I wrote for vDosXy but put aside on
the assumption that in any sane setup the vDosXy drive structure will
always mirror the Windows drive structure. I hadn't thought of the
scenario of the removeable drive that isn't a valid drive in vDosXy.

The usage is:
WCA d:\path\filename

This CAlls the file into XyWrite using a dummy filename.
If you wish you can edit the file in XyWrite and save it back to the
USB drive with:
WSA d:\path\filename

You can also create a new file on the USB drive with:
WNE d:\path\filename

Let me know if it works.
Here are the frames. DECode in the usual way, DeFine, and issue
ADD2U2 to add to U2.

XPLeNCODE v2.0 (ENCODE.A3X)
b-gin [UNTITLED]
{123}{123}5wca*,wne*{125}{125} CAll file from Windows into XyW
rite (vDosXy) {091}CLD rev.6/28/15{093}[cr|lf]{002}{<}IF{<}VA$
WA{>}>0{>}[BX_]es 1[Q2_]{<}SX41,{<}VA$FR{>}{>}{<}SX41,{<}VA@41
/2{>}{>}{<}IF{<}VA{021}41{>}<1{>}{<}SX41,{<}VADT{>}{>}{<}EI{>}
;*;[cr|lf]{<}IF{<}PV41{>}<1{>}{<}SV41,100{>}{<}EI{>}[JM_]2.Fil
l50[Q2_]{<}IF{<}VA|50{>}>0{>}[JM_]2.Quotes50[Q2_];*;[cr|lf]{<}
SX42,{<}IS50{>}{>}{<}SX50,"if not exist "{043}{<}IS50{>}{043}"
 rem>"{043}{<}IS50{>}{043}"&type "{043}{<}IS50{>}{>}[JM_]2.wy[Q2_]
;*;[cr|lf]{<}SX50,{<}VA$ED{>}{>}[JM_]2.GetPath[Q2_]{<}SX43,{<}
IS50{>}{043}"\"{>}{<}SX50,{<}IS42{>}{>}{<}SX42,{<}IS43{>}{>};*
;[cr|lf]{<}LBa{>}{<}SX43,{<}VA$WA{>}{>}{<}SX44,{<}IS42{>}{043}
"WINEDIT"{043}{<}IS43{>}{043}".TMP"{>};*;[cr|lf][BX_]gofile {<}
PV44{>}[Q2_]{<}IF@not({<}ER{>}){>}[BX_]ab/nv[Q2_]{<}GLa{>}{<}E
I{>};*;[cr|lf]{<}SX45,{<}IS42{>}{043}"$WFRM$.OUT"{>}{<}SX46,30
{>};*; <== timeout in seconds[cr|lf]{<}CUb,46{>}[BX_]exist {<}
PV45{>}[Q2_]{<}IF@not({<}ER{>}){>}{<}GLc{>}{<}EI{>}[BX_]p[Q2_]
{<}LBb{>}{<}PRNo output{>}{<}EX{>}[cr|lf]{<}LBc{>}[BX_]copy/nv
 {<}PV45{>} {<}PV44{>}[Q2_][BX_]wait[Q2_];*;[cr|lf][BX_]func #
{<}PV43{>}[Q2_][BX_]ca/{<}PV41{>} {<}PV44{>}[Q2_][BX_]wait[Q2_]
{<}IF{<}CP{>}<1&{<}VA$FE{>}>0{>}{<}SX41,"{<}L"{043}"B"{043}{<}
IS50{>}{043}"{>}"{>}{<}GT41{>}[BX_]sa[Q2_][BX_]wait[Q2_]{<}EI{>}
[BC_]WSA {<}PV50{>}[GT_]{<}PREditing @50{>}{<}EX{>}{<}EI{>}{<}
PRWCA{091}/#{093}|WNE{091}/#{093} {091}"{093}d:\\path\\host_fi
lename{091}"{093}{>}{<}EI{>}{<}PRNo window{>}{002}[cr|lf][cr|lf]
{123}{123}5wsa{125}{125} SAve file in Windows (vDosXy) {091}CL
D rev.11/28/14{093}[cr|lf]{002}{<}IF{<}VA$WS{>}==1{>}[BX_]es 1
[Q2_]{<}IF{<}VA|50{>}<1{>};*;[cr|lf]{<}SV01,{>}{<}IF{<}VA$DT{>}
{062}0&{<}VA$DT{>}<>8{>}[TG_]{<}SV01,[TG_]{>}{<}EI{>};*;[cr|lf]
{<}SX50,{<}CP{>}{>}[TF_][BX_]se "[w<]LB"[Q2_]{<}IF@not({<}ER{>}
)&{<}CP{>}==3{>}[YD_][DF_][BX_]se/f [w>][Q2_]{<}IF@not({<}ER{>}
){>}[DF_]{<}SV02{>}[YD_]{<}PV01{>}[JM_]2.ReJuMP[Q2_]{<}SX50,{<}
IS02{>}{>}{<}EI{>};*;[cr|lf]{<}EI{>}{<}EI{>}{<}IF{<}VA|50{>}>0
{>}[JM_]2.Quotes50[Q2_][BX_]sa[Q2_][BX_]wait[Q2_];*;[cr|lf]{<}
SX01,{<}IS50{>}{>}{<}SX11,{<}IS01{>}{>}{<}SX50,{<}VA$FP{>}{>}[JM_]
2.GetPath[Q2_];*;[cr|lf]{<}SX99,{<}IS51{>}{>}{<}SX50,{<}VA$ED{>}
{>}[JM_]2.GetPath[Q2_]{<}SX02,{<}IS50{>}{043}"\"{043}{<}IS99{>}
{>};*;[cr|lf]{<}SX50,"copy "{043}{<}IS02{>}{043}" "{043}{<}IS0
1{>}{>}[JM_]2.wy[Q2_]{<}SX01,"SAved to "{043}{<}IS11{>}{>}{<}P
R@01{>}{<}EX{>}[cr|lf]{<}EI{>}{<}PRWSA {091}"{093}d:\\path\\ho
st_filename{091}"{093}{>}{<}EX{>}{<}EI{>}{<}PRNo file{>}{002}[cr|lf]
[cr|lf]
-nd
XPLeNCODE

--
Carl Distefano
cld@xxxxxxxx