Re: CALLUP

[cld@xxxxxxxx]

Reply to note from Michael Norman :

> In a XY DosBox in XP, CALLUP works fine as long as I stay within the \XY
> directory tree.
>
> My main XY directory is C:\XY. When I have a DIR list of that directory on
> screen and position the cursor on the second line in the DIR list [. .
>
9-17-98 11:18am] -- to CALLUP up a DIR list of C:\ (in effect,
> to change directories) I get a *Path not found* message. In other words, I
> can't go up a directory level.

Yes, I can reproduce this; it's something I've been meaning to fix for quite a while. The
misbehavior isn't related to the Archive bit, but rather to quirks in the NT file system, or in the
way NTFS implements FAT16, or implements DOS calls to FAT16 -- or something. In any event, I
believe I've fixed it.

DECODE the following new frame CALLUP, DeFine the entire block of code, and issue ADD2U2. It works here (XP Home Edition; Xy4 running off a flash drive). Let me know if it works for you.


XPLeNCODE v2.0
b-gin [UNTITLED]
{{;5Callup*}} Point & shoot CAll|REad|ChDir command [CLD rev
{046} 12/29/04][cr|lf]{002}[XH_][BX_]es 1[Q2_][GT_][DX_]{<}SX01,{
<}CP{>}{>}{<}SX02,{<}VA$DR{>}{>}{<}IF{<}IS02{>}{240}"[..]"{>}
{<}SV02,..{>}{<}EI{>}[LB_]{<}IF{<}CP{>}<>{<}PV01{>}{>}{<}SV01
,Re{>}{<}GLa{>}{<}EI{>}[DO_][BX_]gofile {<}PV02{>}[Q2_]{<}IF@
not({<}ER{>}){>}{<}SV01,(File already open){>}{<}GLe{>}[cr|lf
]{<}EI{>}{<}SV01,ca{>}{<}LBa{>}[BX_](){<}SV03,{>}{<}SV04,{>}{
<}IF{<}VA$FR{>}{240}"/"{>}{<}SV03,/100{>}{<}IF{<}VA$1A{>}<1{>
}{<}SV04,[BX_]d 1a=0[Q2_]{>}[BX_]d 1a=1[Q2_]{<}EI{>}{<}EI{>}[
BX_]{<}PV01{>}{<}PV03{>} {<}PV02{>}[Q2_]{<}SX05,{<}VA$ER{>}{>
}{<}IF{<}PV05{>}==215{>}{<}GLc{>}{<}EI{>}{<}IF{<}PV05{>}==214
{>}{<}SX02,{<}VA@02:2{>}{>}{<}SV06,\{>}{<}LBb{>}{<}IF{<}IS02{
>}{240}"\"{>}{<}XS02,06,07,,08{>}{<}SX02,{<}IS07{>}+{<}IS08{>
}{>}{<}GLb{>}{<}EI{>}{<}GLa{>}{<}EI{>}{<}PV04{>}{<}SV03,{>}{<
}SV04,{>}{<}IF{<}VA|623{>}>0&{<}VA|625{>}>0{>}{<}IF{<}PV05{>}
==11&"caRe"{240}{<}IS01{>}&"{190}"{238}{<}IS623{>}==0&"{190}{
027}W{190}"{238}{<}IS625{>}==0{>}{<}SX627,{<}IS01{>}+" "+{<}I
S02{>}{>}[$S_]{<}GLe{>}{<}EI{>}{<}EI{>}{<}IF{<}PV05{>}==11{>}
{<}SV01,{>}{<}IF{<}VA$MG{>}<>""{>}{<}SX01,{<}VA$MG{>}{>}{<}EI
{>}{<}GLf{>}{<}EI{>}{<}IF{<}PV05{>}==214{>}{<}SX01,"File not{032}
found "+{<}IS02{>}{>}{<}GLf{>}{<}EI{>}{<}IF{<}PV05{>}<>217{>
}{<}GLd{>}{<}EI{>}{<}LBc{>}{<}SX01,"ChDir to "+{<}IS02{>}{>}{
<}SX05,{<}VA@02:1{>}+":"{>}[BX_]{<}PV05{>}[Q2_][BX_]wait[Q2_]
[BX_]cd {<}PV02{>}[Q2_][BX_]dir{<}IF{<}VA$FR{>}{240}"/"{>}/pa
{<}EI{>}[Q2_]{<}GLf{>}{<}LBd{>}{<}SX01,"{<}VA\"+{<}IS05{>}+"{
>}"{>}{<}SX01,{<}PV01{>}{>}{<}GLf{>}{<}LBe{>}{<}IF{<}IS01{>}=
="Re"{>}{<}SX01,{<}I
S01{>}+"ad-only"{>}{<}GLf{>}{<}EI{>}{<}IF"c"{238}{<}IS01{>}==
0{>}{<}SV01,{>}{<}IF{<}VA$MG{>}<>""{>}{<}SX01,{<}VA$MG{>}{>}{
<}EI{>}{<}EI{>}{<}LBf{>}[DO_][FF_]{<}PR@01{>}{<}EX{>}{002}[cr
|lf][cr|lf]
-nd
XPLeNCODE



--
Carl Distefano
cld@xxxxxxxx