Memory Problems with win98 (1st edition)

Hello,

I´ve a dos-program and I`m in full size mode.

Under Dos 6.22 there are no errors.
Under win98 following works sometimes and sometimes not:

- shell "pkxarc a:test ewsum.dat"
- shell "copy "a:\kasarc.arc c:\refo\kasarc.arc"
- sometimes files will not appear onto Disk; but the disk is ok

Is it possible, that i use too much memory ??? ( no error code there)

Any other Idea´s ?

( The code is too big to get it to the forum )

so I send only a little
[CODE]

'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ[Verkaufsdaten auf Disk_]ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
if zahl="6060" or zahl="6666" then
lw$="a:"

diskfrei 'check diskplace
do
'data there
if vkdaten_nicht_da? then exit loop
'diskspace ok
if zuwenig_diskettenplatz? then exit loop

'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ[packe ewjou.dat_]ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
dati$="xfer."+zaehl$("",999,1)
'pack all
shell "pkarc -u "+lauf$+dati$+" "+lauf+"ewjou.dat >nul"
' shell "pkarc -a "+lauf$+dati$+" "+lauf+"neu_ean.txt>nul"

'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ[Sicherung EC-daten dazupacken]ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
anzeige "Sicherung EC-Daten"
datiec$="EC"+zaehl$("",9999,1)+".arc"
shell "pkarc -u "+lauf$+datiec$+" "+lauf+"eckauf.dat >nul"
shell "pkarc -u "+lauf$+dati$+" "+lauf$+datiec$+">nul"

anzeige "Sicherung Punktdatei "+ld$
shell "pkarc -u "+lauf$+dati$+" "+ld$+" >nul"
'check packed file
if tesarc%(lauf$+dati$) then
anzeige "arc ok "+dati$
else
fehler "Festplatte ? -bea-dis.bas"
anzeige "Festplatte ? -bea-dis.bas"
sleep:nix$=inkey$
exit loop
end if

'xfer123.arc wird auf Lw$ kopiert !!!!
'hier gibt's fehler probiere es mit xcopy

if copyfile(lauf$+dati$,lw$+dati$) = -1 then

'shell "copy "+lauf$+dati$+" "+lw$+dati$+" >nul"

'shell "copy "+lauf$+dati$+" "+vkdat$+" /V >nul"

if tesarc%(lW$+dati$) then
name lauf$+"ewjou.dat" as lauf$+"ewjou."+zaehl$("",999,0)
'if dir$(lauf$+"neu_ean.txt")<>"" then
'kill lauf$+"neu_ean.txt"
'end if
anzeige dati$+" auf Laufwerk "+lw$+" kopiert"
else
fehler "keine Daten auf "+lw$+dati$
name lauf$+dati$ as lauf$+"xxxx."+zaehl$("",999,0)
'benenne sicherung um auf xxxx.999
sleep:nix$=inkey$
exit loop
end if
anzeige "Datendiskette erfolgreich erstellt "+zahl
sleep:nix$=inkey$
else
'error on copy sometimes
fehler "Fehler beim Copieren von "+lw$+dati$
end if

exit loop 'zwangsausstieg
loop

zahl=""

end if

[CODE]

Best regards

Matthias Kuhn

------------------

Announcement