Tons of changes from trip to Charlotte over Thanksgiving. See CHANGELOG.
authorRyan C. Gordon <icculus@icculus.org>
Sat, 25 Nov 2000 05:35:11 +0000
changeset 9 0b73727e49c7
parent 8 36b046e7fa76
child 10 5ca3db916a21
Tons of changes from trip to Charlotte over Thanksgiving. See CHANGELOG.
CHANGELOG
archive1.pas
archive2.pas
archive3.pas
bb.pas
bbs.pas
common.pas
common1.pas
common2.pas
common3.pas
conv17a.pas
conv17a9.pas
conv18a.pas
cuser.pas
doors.pas
execbat.pas
execswap.pas
file0.pas
file1.pas
file10.pas
file11.pas
file12.pas
file13.pas
file14.pas
file2.pas
file3.pas
file4.pas
file5.pas
file6.pas
file7.pas
file8.pas
file9.pas
fvtype.pas
ifl.pas
init.pas
initp.pas
logon1.pas
logon2.pas
mail0.pas
mail1.pas
mail2.pas
mail3.pas
mail4.pas
mail5.pas
mail6.pas
mail9.pas
mdek.pas
menus.pas
menus2.pas
menus3.pas
menus4.pas
miniterm.pas
misc1.pas
misc2.pas
misc3.pas
misc4.pas
miscx.pas
mmodem.pas
msgpack.pas
myio.pas
newusers.pas
pibo.pas
sepmsgs.pas
stubs.pas
sysop1.pas
sysop10.pas
sysop11.pas
sysop2.pas
sysop21.pas
sysop2a.pas
sysop2b.pas
sysop2c.pas
sysop2d.pas
sysop2e.pas
sysop2f.pas
sysop2fa.pas
sysop2g.pas
sysop2h.pas
sysop2i.pas
sysop2s.pas
sysop2z.pas
sysop3.pas
sysop4.pas
sysop5.pas
sysop6.pas
sysop7.pas
sysop7m.pas
sysop8.pas
sysop9.pas
t2t.pas
ta2z.pas
timejunk.pas
tmpcom.pas
tmpcommm.pas
wfcmenu.pas
--- a/CHANGELOG	Sat Nov 25 05:34:28 2000 +0000
+++ b/CHANGELOG	Sat Nov 25 05:35:11 2000 +0000
@@ -1,3 +1,22 @@
+2000-11-24  Ryan C. Gordon   <icculus@lokigames.com>
+    * Aha! I think I stumbled upon the keypressed() problem. Looks like a
+      piece of the overlay code was still in there and causing problems.
+      Will investigate more some other time. Ugh.
+    * Changed timer() in common.pas to not use int21h services.
+    * Lots more DOSisms removed. Did a grep for the DOS backslash pathchar.
+    * Added TODO.
+    * Hack for Y2K bug in ageuser() (common.pas).
+    * Changed all implementations of exdrv(). So much code duplication...
+    * Lots of the system seems to be working, now, at first glance.
+
+2000-11-23  Ryan C. Gordon   <icculus@lokigames.com>
+
+    * Oh my god. Almost every damn source file has {$D-} in it, which
+      turns off debugging symbols. Removed, and now I can run bbs under
+      GDB. Thank heavens. I wonder if {$D-} means something different under
+      Turbo Pascal 6.0...in fact, there's a lot of these sort of things in
+      the source that should probably be controlled via the Makefile instead.
+
 2000-11-18  Ryan C. Gordon   <icculus@lokigames.com>
 
     * Stubbed DOSism in file2.pas.
--- a/archive1.pas	Sat Nov 25 05:34:28 2000 +0000
+++ b/archive1.pas	Sat Nov 25 05:35:11 2000 +0000
@@ -1,4 +1,4 @@
-{$A+,B+,D-,E+,F+,I+,L-,N-,O+,R-,S+,V-}
+{$A+,B+,E+,F+,I+,L-,N-,O+,R-,S+,V-}
 unit archive1;
 
 interface
@@ -40,7 +40,9 @@
     att:word;
 begin
   s:=fexpand(s);
-  while copy(s,length(s),1)='\' do s:=copy(s,1,length(s)-1);
+  {rcg11242000 DOSism}
+  {while copy(s,length(s),1)='\' do s:=copy(s,1,length(s)-1);}
+  while copy(s,length(s),1)='/' do s:=copy(s,1,length(s)-1);
   getdir(0,odir); getdir(exdrv(s),odir2);
   chdir(s);
   findfirst('*.*',AnyFile-Directory,dirinfo);
@@ -62,12 +64,20 @@
 
 procedure arcdecomp(var ok:boolean; atype:integer; fn,fspec:astr);
 begin
-  purgedir(systat.temppath+'1\');
+  {rcg11242000 DOSism.}
+  {purgedir(systat.temppath+'1\');}
+  purgedir(systat.temppath+'1/');
 
   shel1;
+  {rcg11242000 DOSism.}
+  {
   execbatch(ok,TRUE,'tgtemp1.bat','tgtest1.$$$',systat.temppath+'1\',
             arcmci(systat.filearcinfo[atype].unarcline,fn,fspec),
             systat.filearcinfo[atype].succlevel);
+  }
+  execbatch(ok,TRUE,'tgtemp1.bat','tgtest1.$$$',systat.temppath+'1/',
+            arcmci(systat.filearcinfo[atype].unarcline,fn,fspec),
+            systat.filearcinfo[atype].succlevel);
   shel2;
 
   if (not ok) then
@@ -81,15 +91,23 @@
  *}
 begin
   shel1;
+  {rcg11242000 DOSism.}
+  {
   execbatch(ok,TRUE,'tgtemp1.bat','tgtest1.$$$',systat.temppath+'1\',
             arcmci(systat.filearcinfo[atype].arcline,fn,fspec),
             systat.filearcinfo[atype].succlevel);
+  }
+  execbatch(ok,TRUE,'tgtemp1.bat','tgtest1.$$$',systat.temppath+'1/',
+            arcmci(systat.filearcinfo[atype].arcline,fn,fspec),
+            systat.filearcinfo[atype].succlevel);
   shel2;
 
   if (not ok) then
     sysoplog('Archive "'+fn+'": Errors during compression');
 
-  purgedir(systat.temppath+'1\');
+  {rcg11242000 DOSism.}
+  {purgedir(systat.temppath+'1\');}
+  purgedir(systat.temppath+'1/');
 end;
 
 procedure arccomment(var ok:boolean; atype,cnum:integer; fn:astr);
@@ -104,9 +122,16 @@
 
     shel1;
     b:=systat.swapshell; systat.swapshell:=FALSE;
+
+    {rcg11242000 DOSism.}
+    {
     execbatch(ok,FALSE,'tgtemp1.bat','tgtest1.$$$',systat.temppath+'1\',
               arcmci(systat.filearcinfo[atype].cmtline,fn,'')+' <'+tfn,
               systat.filearcinfo[atype].succlevel);
+    }
+    execbatch(ok,FALSE,'tgtemp1.bat','tgtest1.$$$',systat.temppath+'1/',
+              arcmci(systat.filearcinfo[atype].cmtline,fn,'')+' <'+tfn,
+              systat.filearcinfo[atype].succlevel);
     systat.swapshell:=b;
     shel2;
 
@@ -118,9 +143,15 @@
 begin
   if (systat.filearcinfo[atype].testline<>'') then begin
     shel1;
+    {rcg11242000 DOSism.}
+    {
     execbatch(ok,TRUE,'tgtemp1.bat','tgtest1.$$$',systat.temppath+'1\',
               arcmci(systat.filearcinfo[atype].testline,fn,''),
               systat.filearcinfo[atype].succlevel);
+    }
+    execbatch(ok,TRUE,'tgtemp1.bat','tgtest1.$$$',systat.temppath+'1/',
+              arcmci(systat.filearcinfo[atype].testline,fn,''),
+              systat.filearcinfo[atype].succlevel);
     shel2;
   end;
 end;
@@ -203,7 +234,9 @@
   nl;
   prompt('Already in TEMP: ');
   numfiles:=0; tsiz:=0;
-  findfirst(systat.temppath+'3\*.*',anyfile-dos.directory,dirinfo);
+  {rcg11242000 DOSism.}
+  {findfirst(systat.temppath+'3\*.*',anyfile-dos.directory,dirinfo);}
+  findfirst(systat.temppath+'3/*.*',anyfile-dos.directory,dirinfo);
   found:=(doserror=0);
   while (found) do begin
     inc(tsiz,dirinfo.size);
@@ -325,9 +358,15 @@
                 ok:=TRUE;
                 s:=sqoutsp(s);
                 shel1;
+                {rcg11242000 DOSism}
+                {
                 execbatch(ok,TRUE,'tgtemp1.bat','tgtest1.$$$',systat.temppath+'3\',
                           arcmci(systat.filearcinfo[atype].unarcline,fn,s),
                           systat.filearcinfo[atype].succlevel);
+                }
+                execbatch(ok,TRUE,'tgtemp1.bat','tgtest1.$$$',systat.temppath+'3/',
+                          arcmci(systat.filearcinfo[atype].unarcline,fn,s),
+                          systat.filearcinfo[atype].succlevel);
                 shel2;
 
                 if (not ok) then begin
@@ -342,7 +381,9 @@
           until (done) or (hangup);
         end;
         if (tocopy) then begin
-          s:=systat.temppath+'3\'+ns+es; (*sqoutsp(f.filename);*)
+          {rcg11242000 DOSism.}
+          {s:=systat.temppath+'3\'+ns+es; (*sqoutsp(f.filename);*)}
+          s:=systat.temppath+'3/'+ns+es; (*sqoutsp(f.filename);*)
           sprompt(#3#5+'Progress: ');
           copyfile(ok,nospace,TRUE,fn,s);
           if (ok) then
@@ -405,7 +446,9 @@
       'A':begin
             nl; prt('Archive name: '); input(fn,12);
             if (hangup) then exit;
-            fn:=systat.temppath+'3\'+fn;
+            {rcg11242000 DOSism.}
+            {fn:=systat.temppath+'3\'+fn;}
+            fn:=systat.temppath+'3/'+fn;
             loaduboard(fileboard);
             if (pos('.',fn)=0) and (memuboard.arctype<>0) then
               fn:=fn+'.'+systat.filearcinfo[memuboard.arctype].ext;
@@ -424,9 +467,15 @@
                 nl;
                 ok:=TRUE;
                 shel1;
+                {rcg11242000 DOSism.}
+                {
                 execbatch(ok,TRUE,'tgtemp1.bat','tgtest1.$$$',systat.temppath+'3\',
                           arcmci(systat.filearcinfo[atype].arcline,fn,s),
                           systat.filearcinfo[atype].succlevel);
+                }
+                execbatch(ok,TRUE,'tgtemp1.bat','tgtest1.$$$',systat.temppath+'3/',
+                          arcmci(systat.filearcinfo[atype].arcline,fn,s),
+                          systat.filearcinfo[atype].succlevel);
                 shel2;
                 if (not ok) then begin
                   sysoplog('Archive "'+fn+'": Errors during user compression');
@@ -442,7 +491,9 @@
             if (hangup) then exit;
             if (not okname(s)) then print('Illegal filename.')
             else begin
-              s:=systat.temppath+'3\'+s;
+              {rcg11242000 DOSism.}
+              {s:=systat.temppath+'3\'+s;}
+              s:=systat.temppath+'3/'+s;
               assign(fi,s);
               {$I-} reset(fi); {$I+}
               if (ioresult=0) then begin
@@ -468,8 +519,13 @@
                   fiscan(pl); { loads in memuboard }
                   su:=memuboard;
                   with memuboard do begin
+                    {rcg11242000 DOSisms.}
+                    {
                     dlpath:=systat.temppath+'3\';
                     ulpath:=systat.temppath+'3\';
+                    }
+                    dlpath:=systat.temppath+'3/';
+                    ulpath:=systat.temppath+'3/';
                     name:='Temporary directory';
                     fbstat:=[];
                   end;
@@ -492,7 +548,9 @@
           end;
       'L':begin
             nl;
-            dir(systat.temppath+'3\','*.*',TRUE);
+            {rcg11242000 DOSism.}
+            {dir(systat.temppath+'3\','*.*',TRUE);}
+            dir(systat.temppath+'3/','*.*',TRUE);
             nl;
           end;
       'R':begin
@@ -500,7 +558,9 @@
             if (hangup) then exit;
             if (isul(s)) then print('Illegal filename.')
             else begin
-              s:=systat.temppath+'3\'+s;
+              {rcg11242000 DOSism.}
+              {s:=systat.temppath+'3\'+s;}
+              s:=systat.temppath+'3/'+s;
               ffile(s);
               if (not found) then
                 print('File not found.')
@@ -509,7 +569,9 @@
                   if not ((dirinfo.attr and VolumeID=VolumeID) or
                           (dirinfo.attr and Directory=Directory)) then begin
                     s:=dirinfo.name;
-                    assign(fi,systat.temppath+'3\'+s);
+                    {rcg11242000 DOSism.}
+                    {assign(fi,systat.temppath+'3\'+s);}
+                    assign(fi,systat.temppath+'3/'+s);
                     {$I-} erase(fi); {$I+}
                     if (ioresult<>0) then begin
                       sysoplog('Error removing from temp. dir: "'+s+'"');
@@ -527,7 +589,9 @@
             if (hangup) then exit;
             if (not okname(s)) then print('Illegal filename.')
             else begin
-              s1:=systat.temppath+'3\'+s;
+              {rcg11242000 DOSism.}
+              {s1:=systat.temppath+'3\'+s;}
+              s1:=systat.temppath+'3/'+s;
               if (not exist(s1)) then
                 print('File not found.')
               else begin
@@ -541,9 +605,13 @@
             nl; prt('File mask: '); input(fn,12);
             if (hangup) then exit;
             abort:=FALSE; next:=FALSE;
-            ffile(systat.temppath+'3\'+fn);
+            {rcg11242000 DOSism.}
+            {ffile(systat.temppath+'3\'+fn);}
+            ffile(systat.temppath+'3/'+fn);
             repeat
-              lfi(systat.temppath+'3\'+dirinfo.name,abort,next);
+              {rcg11242000 DOSism.}
+              {lfi(systat.temppath+'3\'+dirinfo.name,abort,next);}
+              lfi(systat.temppath+'3/'+dirinfo.name,abort,next);
               nfile;
             until (not found) or (abort) or (hangup);
           end;
--- a/archive2.pas	Sat Nov 25 05:34:28 2000 +0000
+++ b/archive2.pas	Sat Nov 25 05:35:11 2000 +0000
@@ -1,4 +1,4 @@
-{$A+,B+,D-,E+,F+,I+,L-,N-,O+,R-,S+,V-}
+{$A+,B+,E+,F+,I+,L-,N-,O+,R-,S+,V-}
 unit archive2;
 
 interface
@@ -79,7 +79,9 @@
     end else begin
       oldnumfl:=numfl;
       fsplit(fn,dstr,nstr,estr); s:=dstr;
-      while (copy(s,length(s),1)='\') do s:=copy(s,1,length(s)-1);
+      {rcg11242000 DOSism.}
+      {while (copy(s,length(s),1)='\') do s:=copy(s,1,length(s)-1);}
+      while (copy(s,length(s),1)='/') do s:=copy(s,1,length(s)-1);
       {$I-} chdir(s); {$I+}
       if ioresult<>0 then print('Path not found.')
       else begin
@@ -199,7 +201,9 @@
           else begin
             ok:=TRUE;
             s:=copy(fn,1,pos('.',fn))+systat.filearcinfo[toa].ext;
-            conva(ok,atype,bb,systat.temppath+'1\',sqoutsp(fn),sqoutsp(s));
+            {rcg11242000 DOSism}
+            {conva(ok,atype,bb,systat.temppath+'1\',sqoutsp(fn),sqoutsp(s));}
+            conva(ok,atype,bb,systat.temppath+'1/',sqoutsp(fn),sqoutsp(s));
             if (ok) then begin
               assign(fi,sqoutsp(fn));
               {$I-} reset(fi); {$I+}
@@ -331,9 +335,15 @@
                           ok:=TRUE;
                           star('Adding '+cstr(j)+' files to archive...');
                           shel1;
+                          {rcg11242000 DOSism}
+                          {
                           execbatch(ok,TRUE,'tgtemp1.bat','tgtemp1.$$$',
                                     systat.temppath+'1\',s1,
                                     systat.filearcinfo[atype].succlevel);
+                          }
+			  execbatch(ok,TRUE,'tgtemp1.bat','tgtemp1.$$$',
+                                    systat.temppath+'1/',s1,
+                                    systat.filearcinfo[atype].succlevel);
                           shel2;
                           if (not ok) then begin
                             star('Errors in adding files');
@@ -492,7 +502,9 @@
                     star('Converting "'+fn+'"');
                     ok:=TRUE;
                     s:=copy(fn,1,pos('.',s))+systat.filearcinfo[bb].ext;
-                    conva(ok,atype,bb,systat.temppath+'1\',fn,s);
+                    {rcg11242000 DOSism.}
+                    {conva(ok,atype,bb,systat.temppath+'1\',fn,s);}
+                    conva(ok,atype,bb,systat.temppath+'1/',fn,s);
                     if (ok) then begin
                       assign(fi,sqoutsp(fn));
                       {$I-} reset(fi); {$I+}
--- a/archive3.pas	Sat Nov 25 05:34:28 2000 +0000
+++ b/archive3.pas	Sat Nov 25 05:35:11 2000 +0000
@@ -1,4 +1,4 @@
-{$A+,B+,D-,E+,F+,I+,L-,N-,O+,R-,S+,V-}
+{$A+,B+,E+,F+,I+,L-,N-,O+,R-,S+,V-}
 unit archive3;
 
 interface
@@ -53,7 +53,12 @@
               close(fi);
             end;
             shel1;
-            execbatch(ok,TRUE,'tgtemp1.bat','tgtest1.$$$',systat.temppath+'1\',
+            {rcg11242000 DOSism}
+            {
+	    execbatch(ok,TRUE,'tgtemp1.bat','tgtest1.$$$',systat.temppath+'1\',
+                      rezipcmd+' '+sqoutsp(fn),-1);
+            }
+            execbatch(ok,TRUE,'tgtemp1.bat','tgtest1.$$$',systat.temppath+'1/',
                       rezipcmd+' '+sqoutsp(fn),-1);
             shel2;
             assign(fi,sqoutsp(fn));
@@ -67,7 +72,9 @@
           end else begin
             ok:=TRUE;
             s:=fn;
-            conva(ok,atype,atype,systat.temppath+'1\',sqoutsp(fn),sqoutsp(s));
+            {rcg11242000 DOSism}
+            {conva(ok,atype,atype,systat.temppath+'1\',sqoutsp(fn),sqoutsp(s));}
+            conva(ok,atype,atype,systat.temppath+'1/',sqoutsp(fn),sqoutsp(s));
             if (ok) then begin
               fsplit(fn,ps,ns,es); fn:=ps+ns+'.#$%';
               assign(fi,sqoutsp(fn));
--- a/bb.pas	Sat Nov 25 05:34:28 2000 +0000
+++ b/bb.pas	Sat Nov 25 05:35:11 2000 +0000
@@ -1,4 +1,4 @@
-{$A+,B+,D-,E+,F+,I+,L+,N-,O+,R-,S+,V-}
+{$A+,B+,E+,F+,I+,L+,N-,O+,R-,S+,V-}
 {$M 32150,0,0}          { Declared here suffices for all Units as well! }
 
 program BatchBackup;
@@ -17,7 +17,9 @@
         end;
 
 const
-  lastspec='c:\lastbak.txt';
+  {rcg11242000 uh...DOSism. uh...}
+  {lastspec='c:\lastbak.txt';}
+  lastspec='./lastbak.txt';
   cline='tape SBK @D:\/S-\TRAP*.MSG/S-\BBS.OVR/S-\BBS.EXE/S/A/C/C+/-O/R@T/LBAK@D@N';
   lodrv:char='C';
   hidrv:char='E';
--- a/bbs.pas	Sat Nov 25 05:34:28 2000 +0000
+++ b/bbs.pas	Sat Nov 25 05:35:11 2000 +0000
@@ -11,7 +11,7 @@
  *       written by Eric Oman, and Martin Pollard.                           *
  *                                                                           *
  *****************************************************************************}
-{$A+,B+,D-,E+,F+,I+,L-,N-,O+,R-,S+,V-}
+{$A+,B+,E+,F+,I+,L-,N-,O+,R-,S+,V-}
 {$M 60000,0,45000}      { Memory Allocation Sizes }
 
 Program BBS;
@@ -225,7 +225,6 @@
     ovrinitems; if (ovrresult=ovrok) then overlayinems:=TRUE;
   end;
   ovrsetbuf(ovrmaxsize); ovrsetretry(ovrmaxsize div 2);
-  }
 
   initexecswap2:=initexecswap;
   execwithswap2:=execwithswap;
@@ -233,6 +232,7 @@
 
   findvertypeout(ovrpath,vercs,vertype,vertypes,serialnumber,licenseinfo,sitedatetime);
   ver:=ver+' '+vertype;
+  }
 
   init;
 
--- a/common.pas	Sat Nov 25 05:34:28 2000 +0000
+++ b/common.pas	Sat Nov 25 05:35:11 2000 +0000
@@ -1,4 +1,4 @@
-{$A+,B+,D-,E+,F+,I+,L-,N-,O-,R-,S+,V-}
+{$A+,B+,E+,F+,I+,L-,N-,O-,R-,S+,V-}
 unit common;
 
 interface
@@ -745,13 +745,22 @@
 end;
 
 function timer:real;
+ {rcg11242000 not needed.}
+{
 var r:registers;
     h,m,s,t:real;
+}
+var h,m,s,t:word;
 begin
+{
   r.ax:=44*256;
   msdos(dos.registers(r));
   h:=(r.cx div 256); m:=(r.cx mod 256); s:=(r.dx div 256); t:=(r.dx mod 256);
   timer:=h*3600+m*60+s+t/100;
+}
+  {rcg11242000 linux/freepascal implementation.}
+  GetTime(h,m,s,t);
+  timer:=h*3600+m*60+s+t/100;
 end;
 
 function fbaseac(b:byte):boolean;
@@ -937,7 +946,11 @@
                     pr('');
                     if (not ulfo) then close(ulf);
                   end;
-              'r':sendfilep(start_dir+'\err.log');
+
+              {rcg11242000 DOSism}
+              {'r':sendfilep(start_dir+'\err.log');}
+              'r':sendfilep(start_dir+'/err.log');
+
               't':begin
                     pr('');
                     assign(tf,systat.gfilepath+'gfiles.dat');
@@ -1032,7 +1045,7 @@
 end;
 
 function sysop1:boolean;
-{rcg11172000 ?!}
+{rcg11172000 $0000:$0417 contains value of scroll lock key.}
 {
 var a:byte absolute $0000:$0417;
 begin
@@ -1155,6 +1168,10 @@
 var i:integer;
 begin
   i:=value(copy(date,7,2))-value(copy(bday,7,2));
+
+  {rcg11242000 Y2K hack.}
+  i := i + 100;
+
   if (daynum(copy(bday,1,6)+copy(date,7,2))>daynum(date)) then dec(i);
   ageuser:=i;
 end;
@@ -1383,8 +1400,12 @@
 
 function exdrv(s:string):byte;
 begin
+  {rcg11242000 point at root drive always. Ugh.}
+  {
   s:=fexpand(s);
   exdrv:=ord(s[1])-64;
+  }
+  exdrv:=3;
 end;
 
 function mlnnomci(s:string; l:integer):string;
--- a/common1.pas	Sat Nov 25 05:34:28 2000 +0000
+++ b/common1.pas	Sat Nov 25 05:35:11 2000 +0000
@@ -1,4 +1,4 @@
-{$A+,B+,D-,E+,F+,I+,L+,N-,O+,R-,S+,V-}
+{$A+,B+,E+,F+,I+,L+,N-,O+,R-,S+,V-}
 unit common1;
 
 interface
@@ -572,12 +572,19 @@
     end
     else if ((xx='/HELP') or (xx='/?')) then begin
       nl;
-      sprint('^5/TYPE d:\path\filename.ext^3: Type a file');
+      {rcg11242000 DOSism.}
+      {sprint('^5/TYPE d:\path\filename.ext^3: Type a file');}
+      sprint('^5/TYPE /path/filename.ext^3: Type a file');
       sprint('^5/BYE^3:   Hang up');
       sprint('^5/CLS^3:   Clear the screen');
       sprint('^5/PAGE^3:  Page the SysOp and User');
+      {rcg11242000 DOSism}
+      {
       if (thisuser.sl=255) then
         sprint('^5/SHELL^3: Shell to DOS with user (255 SL ^5ONLY^3)');
+      }
+      if (thisuser.sl=255) then
+        sprint('^5/SHELL^3: Shell to operating system with user (255 SL ^5ONLY^3)');
       sprint('^5/Q^3:     Exit chat mode');
       nl;
     end
--- a/common2.pas	Sat Nov 25 05:34:28 2000 +0000
+++ b/common2.pas	Sat Nov 25 05:35:11 2000 +0000
@@ -1,4 +1,4 @@
-{$A+,B+,D-,E+,F+,I+,L+,N-,O+,R-,S+,V-}
+{$A+,B+,E+,F+,I+,L+,N-,O+,R-,S+,V-}
 unit common2;
 
 interface
@@ -328,7 +328,9 @@
 procedure savesystat;
 var systatf:file of systatrec;
 begin
-  assign(systatf,start_dir+'\status.dat');
+  {rcg11242000 DOSism.}
+  {assign(systatf,start_dir+'\status.dat');}
+  assign(systatf,start_dir+'/status.dat');
   rewrite(systatf); write(systatf,systat); close(systatf);
 end;
 
--- a/common3.pas	Sat Nov 25 05:34:28 2000 +0000
+++ b/common3.pas	Sat Nov 25 05:35:11 2000 +0000
@@ -1,4 +1,4 @@
-{$A+,B+,D-,E+,F+,I+,L+,N-,O+,R-,S+,V-}
+{$A+,B+,E+,F+,I+,L+,N-,O+,R-,S+,V-}
 unit common3;
 
 interface
--- a/conv17a.pas	Sat Nov 25 05:34:28 2000 +0000
+++ b/conv17a.pas	Sat Nov 25 05:35:11 2000 +0000
@@ -231,8 +231,12 @@
 
 function exdrv(s:astr):byte;
 begin
+  {rcg11242000 point at root drive always. Ugh.}
+  {
   s:=fexpand(s);
   exdrv:=ord(s[1])-64;
+  }
+  exdrv:=3;
 end;
 
 procedure movefile(srcname,destpath:string);
@@ -587,7 +591,9 @@
       i,j:integer;
   begin
     for i:=1 to 3 do begin
-      while copy(newpath[i],length(newpath[i]),1)='\' do
+      {rcg11242000 DOSism.}
+      {while copy(newpath[i],length(newpath[i]),1)='\' do}
+      while copy(newpath[i],length(newpath[i]),1)='/' do
         newpath[i]:=copy(newpath[i],1,length(newpath[i])-1);
       case i of 1:s:='AFILES'; 2:s:='TRAP'; 3:s:='TEMP'; end;
       star(s+' path ("'+fexpand(newpath[i])+'")');
@@ -599,14 +605,20 @@
       end;
       if (i=3) then
         for j:=1 to 3 do begin
-          {$I-} mkdir(fexpand(newpath[i]+'\'+cstr(j))); {$I+}
+          {rcg11242000 DOSism.}
+          (*{$I-} mkdir(fexpand(newpath[i]+'\'+cstr(j))); {$I+}*)
+          {$I-} mkdir(fexpand(newpath[i]+'/'+cstr(j))); {$I+}
           if (ioresult<>0) then begin
             writeln;
-            star('Error creating directory "'+fexpand(newpath[i]+'\'+cstr(j))+'"');
+            {rcg11242000 DOSism.}
+            {star('Error creating directory "'+fexpand(newpath[i]+'\'+cstr(j))+'"');}
+            star('Error creating directory "'+fexpand(newpath[i]+'/'+cstr(j))+'"');
             halt(1);
           end;
         end;
-      newpath[i]:=newpath[i]+'\';
+      {rcg11242000 DOSism.}
+      {newpath[i]:=newpath[i]+'\';}
+      newpath[i]:=newpath[i]+'/';
     end;
   end;
 
--- a/conv17a9.pas	Sat Nov 25 05:34:28 2000 +0000
+++ b/conv17a9.pas	Sat Nov 25 05:35:11 2000 +0000
@@ -1,4 +1,4 @@
-{$A+,B+,D-,E+,F+,I+,L+,N-,O+,R-,S+,V-}
+{$A+,B+,E+,F+,I+,L+,N-,O+,R-,S+,V-}
 {$M 50000,0,1024}       { Declared here suffices for all Units as well! }
 
 uses
@@ -256,8 +256,12 @@
 
 function exdrv(s:astr):byte;
 begin
+  {rcg11242000 point at root drive always. Ugh.}
+  {
   s:=fexpand(s);
   exdrv:=ord(s[1])-64;
+  }
+  exdrv:=3;
 end;
 
 procedure movefile(srcname,destpath:string);
@@ -613,7 +617,9 @@
       i,j:integer;
   begin
     for i:=1 to 3 do begin
-      while copy(newpath[i],length(newpath[i]),1)='\' do
+      {rcg11242000 DOSism.}
+      {while copy(newpath[i],length(newpath[i]),1)='\' do}
+      while copy(newpath[i],length(newpath[i]),1)='/' do
         newpath[i]:=copy(newpath[i],1,length(newpath[i])-1);
       case i of 1:s:='AFILES'; 2:s:='TRAP'; 3:s:='TEMP'; end;
       star(s+' path ("'+fexpand(newpath[i])+'")');
@@ -625,14 +631,20 @@
       end;
       if (i=3) then
         for j:=1 to 3 do begin
-          {$I-} mkdir(fexpand(newpath[i]+'\'+cstr(j))); {$I+}
+          {rcg11242000 dosism.}
+          (*{$I-} mkdir(fexpand(newpath[i]+'\'+cstr(j))); {$I+}*)
+          {$I-} mkdir(fexpand(newpath[i]+'/'+cstr(j))); {$I+}
           if (ioresult<>0) then begin
             writeln;
-            star('Error creating directory "'+fexpand(newpath[i]+'\'+cstr(j))+'"');
+            {rcg11242000 dosism.}
+            {star('Error creating directory "'+fexpand(newpath[i]+'\'+cstr(j))+'"');}
+            star('Error creating directory "'+fexpand(newpath[i]+'/'+cstr(j))+'"');
             halt(1);
           end;
         end;
-      newpath[i]:=newpath[i]+'\';
+      {rcg11242000 dosism.}
+      {newpath[i]:=newpath[i]+'\';}
+      newpath[i]:=newpath[i]+'/';
     end;
   end;
 
--- a/conv18a.pas	Sat Nov 25 05:34:28 2000 +0000
+++ b/conv18a.pas	Sat Nov 25 05:35:11 2000 +0000
@@ -1,4 +1,4 @@
-{$A+,B+,D-,E+,F+,I+,L+,N-,O+,R-,S+,V-}
+{$A+,B+,E+,F+,I+,L+,N-,O+,R-,S+,V-}
 {$M 50000,0,1024}
 
 uses crt,dos,
@@ -241,8 +241,12 @@
 
 function exdrv(s:astr):byte;
 begin
+  {rcg11242000 point at root drive always. Ugh.}
+  {
   s:=fexpand(s);
   exdrv:=ord(s[1])-64;
+  }
+  exdrv:=3;
 end;
 
 procedure movefile(srcname,destpath:string);
@@ -714,7 +718,9 @@
       i,j:integer;
   begin
     for i:=1 to 3 do begin
-      while copy(newpath[i],length(newpath[i]),1)='\' do
+      {rcg11242000 Dosism.}
+      {while copy(newpath[i],length(newpath[i]),1)='\' do}
+      while copy(newpath[i],length(newpath[i]),1)='/' do
         newpath[i]:=copy(newpath[i],1,length(newpath[i])-1);
       case i of 1:s:='AFILES'; 2:s:='TRAP'; 3:s:='TEMP'; end;
       star(s+' path ("'+fexpand(newpath[i])+'")');
@@ -726,14 +732,20 @@
       end;
       if (i=3) then
         for j:=1 to 3 do begin
-          {$I-} mkdir(fexpand(newpath[i]+'\'+cstr(j))); {$I+}
+          {rcg11242000 DOSism.}
+          (*{$I-} mkdir(fexpand(newpath[i]+'\'+cstr(j))); {$I+}*)
+          {$I-} mkdir(fexpand(newpath[i]+'/'+cstr(j))); {$I+}
           if (ioresult<>0) then begin
             writeln;
-            star('Error creating directory "'+fexpand(newpath[i]+'\'+cstr(j))+'"');
+            {rcg11242000 DOSism.}
+            {star('Error creating directory "'+fexpand(newpath[i]+'\'+cstr(j))+'"');}
+            star('Error creating directory "'+fexpand(newpath[i]+'/'+cstr(j))+'"');
             halt(1);
           end;
         end;
-      newpath[i]:=newpath[i]+'\';
+      {rcg11242000 DOSism.}
+      {newpath[i]:=newpath[i]+'\';}
+      newpath[i]:=newpath[i]+'/';
     end;
   end;
 
--- a/cuser.pas	Sat Nov 25 05:34:28 2000 +0000
+++ b/cuser.pas	Sat Nov 25 05:35:11 2000 +0000
@@ -1,4 +1,4 @@
-{$A+,B+,D-,E+,F+,I+,L+,N-,O+,R-,S+,V-}
+{$A+,B+,E+,F+,I+,L+,N-,O+,R-,S+,V-}
 unit cuser;
 
 interface
--- a/doors.pas	Sat Nov 25 05:34:28 2000 +0000
+++ b/doors.pas	Sat Nov 25 05:35:11 2000 +0000
@@ -5,7 +5,7 @@
 (*>  Online door procedures.                                                <*)
 (*>                                                                         <*)
 (*****************************************************************************)
-{$A+,B+,D-,E+,F+,I+,L+,N-,O+,R-,S+,V-}
+{$A+,B+,E+,F+,I+,L+,N-,O+,R-,S+,V-}
 unit doors;
 
 interface
@@ -60,7 +60,9 @@
         'I':begin
               loaduboard(fileboard);
               sda:=systat.gfilepath;
-              if (copy(sda,length(sda),1)<>'\') then sda:=sda+'\';
+              {rcg11242000 DOSism.}
+              {if (copy(sda,length(sda),1)<>'\') then sda:=sda+'\';}
+              if (copy(sda,length(sda),1)<>'/') then sda:=sda+'/';
               sda:=sda+memuboard.filename+'.DIR';
             end;
         'L':begin
--- a/execbat.pas	Sat Nov 25 05:34:28 2000 +0000
+++ b/execbat.pas	Sat Nov 25 05:35:11 2000 +0000
@@ -1,4 +1,4 @@
-{$A+,B+,D-,E+,F+,I+,L+,N-,O+,R-,S+,V-}
+{$A+,B+,E+,F+,I+,L+,N-,O+,R-,S+,V-}
 unit execbat;
 
 interface
@@ -47,7 +47,9 @@
 
   getdir(0,odir);
   dir:=fexpand(dir);
-  while copy(dir,length(dir),1)='\' do dir:=copy(dir,1,length(dir)-1);
+  {rcg11242000 DOSism.}
+  {while copy(dir,length(dir),1)='\' do dir:=copy(dir,1,length(dir)-1);}
+  while copy(dir,length(dir),1)='/' do dir:=copy(dir,1,length(dir)-1);
   assign(bfp,bfn);
   rewrite(bfp);
   writeln(bfp,'echo off');
@@ -90,7 +92,9 @@
 
   getdir(0,odir);
   dir:=fexpand(dir);
-  while copy(dir,length(dir),1)='\' do dir:=copy(dir,1,length(dir)-1);
+  {rcg11242000 DOSism.}
+  {while copy(dir,length(dir),1)='\' do dir:=copy(dir,1,length(dir)-1);}
+  while copy(dir,length(dir),1)='/' do dir:=copy(dir,1,length(dir)-1);
   assign(bfp,bfn);
   rewrite(bfp);
   writeln(bfp,'echo off');
--- a/execswap.pas	Sat Nov 25 05:34:28 2000 +0000
+++ b/execswap.pas	Sat Nov 25 05:35:11 2000 +0000
@@ -13,7 +13,7 @@
   flush swap file before execing
 }
 
-{$A+,B-,D-,E+,F+,I-,L-,N-,O-,R-,S-,V-}
+{$A+,B-,E+,F+,I-,L-,N-,O-,R-,S-,V-}
 
 unit ExecSwap;
   {-Memory-efficient DOS EXEC call}
--- a/file0.pas	Sat Nov 25 05:34:28 2000 +0000
+++ b/file0.pas	Sat Nov 25 05:35:11 2000 +0000
@@ -1,4 +1,4 @@
-{$A+,B+,D-,E+,F+,I+,L+,N-,O+,R-,S+,V-}
+{$A+,B+,E+,F+,I+,L+,N-,O+,R-,S+,V-}
 unit file0;
 
 interface
@@ -107,6 +107,7 @@
     okd:boolean;
 begin
   okd:=TRUE;
+{ !!! Check this! }
   s:=bslash(FALSE,fexpand(s));
 
   if ((length(s)=2) and (copy(s,2,1)=':')) then begin
--- a/file1.pas	Sat Nov 25 05:34:28 2000 +0000
+++ b/file1.pas	Sat Nov 25 05:35:11 2000 +0000
@@ -1,4 +1,4 @@
-{$A+,B+,D-,E+,F+,I+,L+,N-,O+,R-,S+,V-}
+{$A+,B+,E+,F+,I+,L+,N-,O+,R-,S+,V-}
 unit file1;
 
 interface
@@ -1011,7 +1011,9 @@
 var s:astr;
 begin
   nl;
-  print('Enter file name to download (d:path\filename.ext)');
+  {rcg11242000 DOSism.}
+  {print('Enter file name to download (d:path\filename.ext)');}
+  print('Enter file name to download (path/filename.ext)');
   prt(':'); mpl(78); input(s,78);
   unlisted_download(s);
 end;
--- a/file10.pas	Sat Nov 25 05:34:28 2000 +0000
+++ b/file10.pas	Sat Nov 25 05:35:11 2000 +0000
@@ -1,4 +1,4 @@
-{$A+,B+,D-,E+,F+,I+,L+,N-,O+,R-,S+,V-}
+{$A+,B+,E+,F+,I+,L+,N-,O+,R-,S+,V-}
 unit file10;
 
 interface
--- a/file11.pas	Sat Nov 25 05:34:28 2000 +0000
+++ b/file11.pas	Sat Nov 25 05:35:11 2000 +0000
@@ -1,4 +1,4 @@
-{$A+,B+,D-,E+,F+,I+,L+,N-,O+,R-,S+,V-}
+{$A+,B+,E+,F+,I+,L+,N-,O+,R-,S+,V-}
 unit file11;
 
 interface
--- a/file12.pas	Sat Nov 25 05:34:28 2000 +0000
+++ b/file12.pas	Sat Nov 25 05:35:11 2000 +0000
@@ -1,4 +1,4 @@
-{$A+,B+,D-,E+,F+,I+,L+,N-,O+,R-,S+,V-}
+{$A+,B+,E+,F+,I+,L+,N-,O+,R-,S+,V-}
 unit file12;
 
 interface
@@ -199,8 +199,13 @@
       getdatetime(xferstart);
       if (useron) then shel(caps(thisuser.name)+' is batch uploading!')
                   else shel('Receiving file(s)...');
+      {rcg11242000 DOSism.}
+      {
       execbatch(dok,FALSE,'tgtemp1.bat','tgtest1.$$$',systat.temppath+'2\',
                 bproline1(protocol.ulcmd),-1);
+      }
+      execbatch(dok,FALSE,'tgtemp1.bat','tgtest1.$$$',systat.temppath+'2/',
+                bproline1(protocol.ulcmd),-1);
       shel2;
       getdatetime(xferend);
       timediff(tooktime,xferstart,xferend);
@@ -222,7 +227,9 @@
       tconvtime:=0.0; takeawayulrefundgot:=0.0;
       totb:=0; totfils:=0; totb1:=0; totfils1:=0; totpts:=0;
 
-      findfirst(systat.temppath+'2\*.*',anyfile-directory,dirinfo);
+      {rcg11242000 DOSism.}
+      {findfirst(systat.temppath+'2\*.*',anyfile-directory,dirinfo);}
+      findfirst(systat.temppath+'2/*.*',anyfile-directory,dirinfo);
       while (doserror=0) do begin
         inc(totfils1);
         inc(totb1,dirinfo.size);
@@ -279,7 +286,9 @@
 
         print('Uploads detected:');
         nl;
-        dir(systat.temppath+'2\','*.*',TRUE);
+        {rcg11242000 DOSism.}
+        {dir(systat.temppath+'2\','*.*',TRUE);}
+        dir(systat.temppath+'2/','*.*',TRUE);
         nl;
         star('# files uploaded:   '+cstr(totfils1)+' files.');
         star('File size uploaded: '+cstrl(totb1)+' bytes.');
@@ -296,7 +305,9 @@
       {* files already in the upload batch queue done during the second pass *}
 
       for passn:=1 to 2 do begin
-        findfirst(systat.temppath+'2\*.*',anyfile-directory,dirinfo);
+        {rcg11242000 DOSism.}
+        {findfirst(systat.temppath+'2\*.*',anyfile-directory,dirinfo);}
+        findfirst(systat.temppath+'2/*.*',anyfile-directory,dirinfo);
         while (doserror=0) do begin
           fn:=sqoutsp(dirinfo.name);
           nl;
@@ -358,7 +369,12 @@
 
             close(ulff); fiscan(pl);
 
-            arcstuff(ok,convt,blks,convtime,TRUE,systat.temppath+'2\',
+            {rcg11242000 DOSism.}
+            {
+	    arcstuff(ok,convt,blks,convtime,TRUE,systat.temppath+'2\',
+                     fn,f.description);
+            }
+            arcstuff(ok,convt,blks,convtime,TRUE,systat.temppath+'2/',
                      fn,f.description);
             tconvtime:=tconvtime+convtime; f.blocks:=blks;
             doffstuff(f,fn,gotpts);
@@ -368,7 +384,9 @@
             if (ok) then begin
               star('Moving file to '+#3#5+memuboard.name);
               sprompt(#3#5+'Progress: ');
-              movefile(fok,nospace,TRUE,systat.temppath+'2\'+fn,memuboard.dlpath+fn);
+              {rcg11242000 DOSism.}
+              {movefile(fok,nospace,TRUE,systat.temppath+'2\'+fn,memuboard.dlpath+fn);}
+              movefile(fok,nospace,TRUE,systat.temppath+'2/'+fn,memuboard.dlpath+fn);
               if (fok) then begin
                 nl;
                 newff(f,v);
@@ -391,7 +409,9 @@
                 dyny:=TRUE;
                 if pynq('Save file for a later resume? ') then begin
                   sprompt(#3#5+'Progress: ');
-                  movefile(fok,nospace,TRUE,systat.temppath+'2\'+fn,memuboard.dlpath+fn);
+                  {rcg11242000 DOSism}
+                  {movefile(fok,nospace,TRUE,systat.temppath+'2\'+fn,memuboard.dlpath+fn);}
+                  movefile(fok,nospace,TRUE,systat.temppath+'2/'+fn,memuboard.dlpath+fn);
                   if (fok) then begin
                     nl;
                     doffstuff(f,fn,gotpts);
@@ -406,7 +426,9 @@
               end;
               if (not (resumelater in f.filestat)) then begin
                 s:='file deleted';
-                assign(fi,systat.temppath+'2\'+fn); erase(fi);
+                {rcg11242000 DOSism.}
+                {assign(fi,systat.temppath+'2\'+fn); erase(fi);}
+                assign(fi,systat.temppath+'2/'+fn); erase(fi);
               end;
               sysoplog(#3#3+'Errors batch uploading "'+sqoutsp(fn)+'" - '+s);
             end;
--- a/file13.pas	Sat Nov 25 05:34:28 2000 +0000
+++ b/file13.pas	Sat Nov 25 05:35:11 2000 +0000
@@ -1,4 +1,4 @@
-{$A+,B+,D-,E+,F+,I+,L+,N-,O+,R-,S+,V-}
+{$A+,B+,E+,F+,I+,L+,N-,O+,R-,S+,V-}
 
 unit file13;
 
--- a/file14.pas	Sat Nov 25 05:34:28 2000 +0000
+++ b/file14.pas	Sat Nov 25 05:35:11 2000 +0000
@@ -1,4 +1,4 @@
-{$A+,B+,D-,E+,F+,I+,L+,N-,O+,R-,S+,V-}
+{$A+,B+,E+,F+,I+,L+,N-,O+,R-,S+,V-}
 unit file14;
 
 interface
--- a/file2.pas	Sat Nov 25 05:34:28 2000 +0000
+++ b/file2.pas	Sat Nov 25 05:35:11 2000 +0000
@@ -1,4 +1,4 @@
-{$A+,B+,D-,E+,F+,I+,L+,N-,O+,R-,S+,V-}
+{$A+,B+,E+,F+,I+,L+,N-,O+,R-,S+,V-}
 unit file2;
 
 interface
--- a/file3.pas	Sat Nov 25 05:34:28 2000 +0000
+++ b/file3.pas	Sat Nov 25 05:35:11 2000 +0000
@@ -1,4 +1,4 @@
-{$A+,B+,D-,E+,F+,I+,L+,N-,O+,R-,S+,V-}
+{$A+,B+,E+,F+,I+,L+,N-,O+,R-,S+,V-}
 unit file3;
 
 interface
--- a/file4.pas	Sat Nov 25 05:34:28 2000 +0000
+++ b/file4.pas	Sat Nov 25 05:35:11 2000 +0000
@@ -42,7 +42,7 @@
  *            3.  Corrected errors in and updated documentation.
  *)
 
-{$A+,B+,D-,E+,F+,I+,L+,N-,O+,R-,S+,V-}
+{$A+,B+,E+,F+,I+,L+,N-,O+,R-,S+,V-}
 unit file4;
 
 interface
@@ -473,8 +473,15 @@
           reset(fp,1);                      {* back to start of file *}
 
           p:=0;                             {* drop drive and pathname *}
+
+          {rcg11242000 DOSism.}
+          {
+	  for i:=1 to length(infile) do
+            if infile[i] in [':','\'] then p:=i;
+          }
           for i:=1 to length(infile) do
-            if infile[i] in [':','\'] then p:=i;
+            if infile[i] in [':','/'] then p:=i;
+
           filename:=copy(infile,p+1,length(infile)-p);
 
           accum_csize:=0; accum_usize:=0;   {* set accumulators to 0 *}
--- a/file5.pas	Sat Nov 25 05:34:28 2000 +0000
+++ b/file5.pas	Sat Nov 25 05:35:11 2000 +0000
@@ -1,4 +1,4 @@
-{$A+,B+,D-,E+,F+,I+,L+,N-,O+,R-,S+,V-}
+{$A+,B+,E+,F+,I+,L+,N-,O+,R-,S+,V-}
 unit file5;
 
 interface
@@ -74,7 +74,9 @@
     abort:=FALSE; next:=FALSE; nocmd:=FALSE;
     for i:=1 to 9 do xword[i]:=allcaps(xword[i]);
     s:=xword[1];
-    if ((pos('\',xword[2])<>0) or (pos('..',xword[2])<>0)) and
+    {rcg11242000 DOSism.}
+    {if ((pos('\',xword[2])<>0) or (pos('..',xword[2])<>0)) and}
+    if ((pos('/',xword[2])<>0) or (pos('..',xword[2])<>0)) and
        (restr) then exit;
 
     if (s='DIR/W') then s:='DIR *.* /W';
@@ -138,8 +140,11 @@
       if (s2='') then s2:='*.*';
       if (not iswildcard(xword[2])) then begin
         ffile(xword[2]);
-        if ((found) and (dirinfo.attr=directory)) or
-           ((length(s1)=3) and (s1[3]='\')) then begin   {* root directory *}
+        {rcg11242000 DOSism.}
+        (*if ((found) and (dirinfo.attr=directory)) or
+           ((length(s1)=3) and (s1[3]='\')) then begin   {* root directory *}*)
+        if (((found) and (dirinfo.attr=directory)) or
+           (s1[1]='/')) then begin   {* root directory *}
           s1:=bslash(TRUE,xword[2]);
           s2:='*.*';
         end;
@@ -173,6 +178,8 @@
           xword[3]:=fexpand(xword[3]);
           ffile(xword[3]);
           b:=((found) and (dirinfo.attr and directory=directory));
+
+{rcg11242000 !!! Look at this. }
           if ((not b) and (copy(xword[3],2,2)=':\') and
               (length(xword[3])=3)) then b:=TRUE;
 
@@ -226,6 +233,8 @@
           xword[3]:=fexpand(xword[3]);
           ffile(xword[3]);
           b:=((found) and (dirinfo.attr and directory=directory));
+
+{rcg11242000 !!! Look at this. }
           if ((not b) and (copy(xword[3],2,2)=':\') and
               (length(xword[3])=3)) then b:=TRUE;
 
@@ -390,7 +399,12 @@
             if (j=0) then invarc
             else begin
               ok:=TRUE;
-              conva(ok,i,j,systat.temppath+'1\',sqoutsp(fexpand(xword[2])),
+              {rcg11242000 DOSism.}
+              {
+	      conva(ok,i,j,systat.temppath+'1\',sqoutsp(fexpand(xword[2])),
+                    sqoutsp(fexpand(s3)));
+              }
+              conva(ok,i,j,systat.temppath+'1/',sqoutsp(fexpand(xword[2])),
                     sqoutsp(fexpand(s3)));
               if (ok) then begin
                 assign(fi,sqoutsp(fexpand(xword[2])));
--- a/file6.pas	Sat Nov 25 05:34:28 2000 +0000
+++ b/file6.pas	Sat Nov 25 05:35:11 2000 +0000
@@ -1,4 +1,4 @@
-{$A+,B+,D-,E+,F+,I+,L+,N-,O+,R-,S+,V-}
+{$A+,B+,E+,F+,I+,L+,N-,O+,R-,S+,V-}
 unit file6;
 
 interface
--- a/file7.pas	Sat Nov 25 05:34:28 2000 +0000
+++ b/file7.pas	Sat Nov 25 05:35:11 2000 +0000
@@ -1,4 +1,4 @@
-{$A+,B+,D-,E+,F+,I+,L+,N-,O+,R-,S+,V-}
+{$A+,B+,E+,F+,I+,L+,N-,O+,R-,S+,V-}
 unit file7;
 
 interface
--- a/file8.pas	Sat Nov 25 05:34:28 2000 +0000
+++ b/file8.pas	Sat Nov 25 05:35:11 2000 +0000
@@ -1,4 +1,4 @@
-{$A+,B+,D-,E+,F+,I+,L+,N-,O+,R-,S+,V-}
+{$A+,B+,E+,F+,I+,L+,N-,O+,R-,S+,V-}
 unit file8;
 
 interface
--- a/file9.pas	Sat Nov 25 05:34:28 2000 +0000
+++ b/file9.pas	Sat Nov 25 05:35:11 2000 +0000
@@ -1,4 +1,4 @@
-{$A+,B+,D-,E+,F+,I+,L+,N-,O+,R-,S+,V-}
+{$A+,B+,E+,F+,I+,L+,N-,O+,R-,S+,V-}
 unit file9;
 
 interface
@@ -64,7 +64,9 @@
     dfs:longint;
     numfiles:integer;
 begin
-  if (copy(cd,length(cd),1)<>'\') then cd:=cd+'\';
+  {rcg11242000 DOSism.}
+  {if (copy(cd,length(cd),1)<>'\') then cd:=cd+'\';}
+  if (copy(cd,length(cd),1)<>'/') then cd:=cd+'/';
   abort:=FALSE;
   cd:=cd+x;
   if (fso) then begin
--- a/fvtype.pas	Sat Nov 25 05:34:28 2000 +0000
+++ b/fvtype.pas	Sat Nov 25 05:35:11 2000 +0000
@@ -1,4 +1,4 @@
-{$A+,B+,D-,E+,F+,I+,L+,N-,O+,R-,S+,V-}
+{$A+,B+,E+,F+,I+,L+,N-,O+,R-,S+,V-}
 unit fvtype;
 
 interface
--- a/ifl.pas	Sat Nov 25 05:34:28 2000 +0000
+++ b/ifl.pas	Sat Nov 25 05:35:11 2000 +0000
@@ -41,7 +41,7 @@
                to allow redirection of I/O *}
 
 
-{$A+,B+,D-,E+,F+,I+,L+,N-,O+,R-,S+,V-}
+{$A+,B+,E+,F+,I+,L+,N-,O+,R-,S+,V-}
 {$I ifl.inc}
 
 const
--- a/init.pas	Sat Nov 25 05:34:28 2000 +0000
+++ b/init.pas	Sat Nov 25 05:35:11 2000 +0000
@@ -9,7 +9,7 @@
 (*****************************************************************************)
 program init;
 
-{$A+,B+,D-,E+,F+,I+,L+,N-,O+,R-,S+,V-}
+{$A+,B+,E+,F+,I+,L+,N-,O+,R-,S+,V-}
 {$M 50000,0,1024}       { Declared here suffices for all Units as well! }
 
 uses
--- a/initp.pas	Sat Nov 25 05:34:28 2000 +0000
+++ b/initp.pas	Sat Nov 25 05:35:11 2000 +0000
@@ -1,4 +1,4 @@
-{$A+,B+,D-,E+,F+,I+,L+,N-,O+,R-,S+,V-}
+{$A+,B+,E+,F+,I+,L+,N-,O+,R-,S+,V-}
 unit initp;
 
 interface
@@ -167,6 +167,7 @@
   procedure showmem;
   var i,p:longint;
   begin
+exit;
     textbackground(1); textcolor(15); gotoxy(20,13);
     p:=40-(((40*memavail) div MaxHeapSpace)+1);
     for i:=1 to 40 do
--- a/logon1.pas	Sat Nov 25 05:34:28 2000 +0000
+++ b/logon1.pas	Sat Nov 25 05:35:11 2000 +0000
@@ -5,7 +5,7 @@
 (*>  Logon functions -- Part 1.                                             <*)
 (*>                                                                         <*)
 (*****************************************************************************)
-{$A+,B+,D-,E+,F+,I+,L+,N-,O+,R-,S+,V-}
+{$A+,B+,E+,F+,I+,L+,N-,O+,R-,S+,V-}
 unit logon1;
 
 interface
--- a/logon2.pas	Sat Nov 25 05:34:28 2000 +0000
+++ b/logon2.pas	Sat Nov 25 05:35:11 2000 +0000
@@ -6,7 +6,7 @@
 (*>                                                                         <*)
 (*>                                                                         <*)
 (*****************************************************************************)
-{$A+,B+,D-,E+,F+,I+,L+,N-,O+,R-,S+,V-}
+{$A+,B+,E+,F+,I+,L+,N-,O+,R-,S+,V-}
 unit logon2;
 
 interface
@@ -391,9 +391,15 @@
 
   if ((useron) and (usernum>0)) then
   begin
+    {rcg11242000 dosisms.}
+    {
     purgedir(systat.temppath+'1\');
     purgedir(systat.temppath+'2\');
     purgedir(systat.temppath+'3\');
+    }
+    purgedir(systat.temppath+'1/');
+    purgedir(systat.temppath+'2/');
+    purgedir(systat.temppath+'3/');
 
     slogging:=TRUE;
 
--- a/mail0.pas	Sat Nov 25 05:34:28 2000 +0000
+++ b/mail0.pas	Sat Nov 25 05:35:11 2000 +0000
@@ -1,4 +1,4 @@
-{$A+,B+,D-,E+,F+,I+,L+,N-,O+,R-,S+,V-}
+{$A+,B+,E+,F+,I+,L+,N-,O+,R-,S+,V-}
 unit mail0;
 
 interface
--- a/mail1.pas	Sat Nov 25 05:34:28 2000 +0000
+++ b/mail1.pas	Sat Nov 25 05:35:11 2000 +0000
@@ -1,4 +1,4 @@
-{$A+,B+,D-,E+,F+,I+,L+,N-,O+,R-,S+,V-}
+{$A+,B+,E+,F+,I+,L+,N-,O+,R-,S+,V-}
 unit mail1;
 
 interface
--- a/mail2.pas	Sat Nov 25 05:34:28 2000 +0000
+++ b/mail2.pas	Sat Nov 25 05:35:11 2000 +0000
@@ -1,4 +1,4 @@
-{$A+,B+,D-,E+,F+,I+,L+,N-,O+,R-,S+,V-}
+{$A+,B+,E+,F+,I+,L+,N-,O+,R-,S+,V-}
 unit mail2;
 
 interface
--- a/mail3.pas	Sat Nov 25 05:34:28 2000 +0000
+++ b/mail3.pas	Sat Nov 25 05:35:11 2000 +0000
@@ -1,4 +1,4 @@
-{$A+,B+,D-,E+,F+,I+,L+,N-,O+,R-,S+,V-}
+{$A+,B+,E+,F+,I+,L+,N-,O+,R-,S+,V-}
 unit mail3;
 
 interface
--- a/mail4.pas	Sat Nov 25 05:34:28 2000 +0000
+++ b/mail4.pas	Sat Nov 25 05:35:11 2000 +0000
@@ -1,4 +1,4 @@
-{$A+,B+,D-,E+,F+,I+,L+,N-,O+,R-,S+,V-}
+{$A+,B+,E+,F+,I+,L+,N-,O+,R-,S+,V-}
 unit mail4;
 
 interface
--- a/mail5.pas	Sat Nov 25 05:34:28 2000 +0000
+++ b/mail5.pas	Sat Nov 25 05:35:11 2000 +0000
@@ -1,4 +1,4 @@
-{$A+,B+,D-,E+,F+,I+,L+,N-,O+,R-,S+,V-}
+{$A+,B+,E+,F+,I+,L+,N-,O+,R-,S+,V-}
 unit mail5;
 
 interface
--- a/mail6.pas	Sat Nov 25 05:34:28 2000 +0000
+++ b/mail6.pas	Sat Nov 25 05:35:11 2000 +0000
@@ -1,4 +1,4 @@
-{$A+,B+,D-,E+,F+,I+,L+,N-,O+,R-,S+,V-}
+{$A+,B+,E+,F+,I+,L+,N-,O+,R-,S+,V-}
 unit mail6;
 
 interface
--- a/mail9.pas	Sat Nov 25 05:34:28 2000 +0000
+++ b/mail9.pas	Sat Nov 25 05:35:11 2000 +0000
@@ -1,4 +1,4 @@
-{$A+,B+,D-,E+,F+,I+,L+,N-,O+,R-,S+,V-}
+{$A+,B+,E+,F+,I+,L+,N-,O+,R-,S+,V-}
 unit mail9;
 
 interface
--- a/mdek.pas	Sat Nov 25 05:34:28 2000 +0000
+++ b/mdek.pas	Sat Nov 25 05:35:11 2000 +0000
@@ -1,4 +1,4 @@
-{$A+,B+,D-,E+,F+,I+,L+,N-,O+,R-,S+,V-}
+{$A+,B+,E+,F+,I+,L+,N-,O+,R-,S+,V-}
 unit mdek;
 
 interface
--- a/menus.pas	Sat Nov 25 05:34:28 2000 +0000
+++ b/menus.pas	Sat Nov 25 05:35:11 2000 +0000
@@ -8,7 +8,7 @@
  *   08/20/91 - 1.00 - E?O - Original Version                                *
  *                                                                           *
  *****************************************************************************}
-{$A+,B+,D-,E+,F+,I+,L+,N-,O-,R-,S+,V-}
+{$A+,B+,E+,F+,I+,L+,N-,O-,R-,S+,V-}
 Unit Menus;
 
 Interface
--- a/menus2.pas	Sat Nov 25 05:34:28 2000 +0000
+++ b/menus2.pas	Sat Nov 25 05:35:11 2000 +0000
@@ -5,7 +5,7 @@
 (*>  Other menu functions - generic, list, etc.                             <*)
 (*>                                                                         <*)
 (*****************************************************************************)
-{$A+,B+,D-,E+,F+,I+,L+,N-,O+,R-,S+,V-}
+{$A+,B+,E+,F+,I+,L+,N-,O+,R-,S+,V-}
 unit menus2;
 
 interface
--- a/menus3.pas	Sat Nov 25 05:34:28 2000 +0000
+++ b/menus3.pas	Sat Nov 25 05:35:11 2000 +0000
@@ -5,7 +5,7 @@
 (*>  Menu command execution routines.                                       <*)
 (*>                                                                         <*)
 (*****************************************************************************)
-{$A+,B+,D-,E+,F+,I+,L+,N-,O+,R-,S+,V-}
+{$A+,B+,E+,F+,I+,L+,N-,O+,R-,S+,V-}
 unit menus3;
 
 interface
--- a/menus4.pas	Sat Nov 25 05:34:28 2000 +0000
+++ b/menus4.pas	Sat Nov 25 05:35:11 2000 +0000
@@ -6,7 +6,7 @@
 (*>                                                                         <*)
 (*>                                                                         <*)
 (*****************************************************************************)
-{$A+,B+,D-,E+,F+,I+,L+,N-,O+,R-,S+,V-}
+{$A+,B+,E+,F+,I+,L+,N-,O+,R-,S+,V-}
 unit menus4;
 
 interface
--- a/miniterm.pas	Sat Nov 25 05:34:28 2000 +0000
+++ b/miniterm.pas	Sat Nov 25 05:35:11 2000 +0000
@@ -5,7 +5,7 @@
 (*>                 and Todd Bolitho - All Rights Reserved.                 <*)
 (*>                                                                         <*)
 (*****************************************************************************)
-{$A+,B+,D-,E+,F+,I+,L+,N-,O-,R-,S+,V-}
+{$A+,B+,E+,F+,I+,L+,N-,O-,R-,S+,V-}
 {$M $4000,0,0}
 
 program miniterm;
@@ -340,11 +340,15 @@
       s:astr;
   begin
     b:=0;
-    for a:=1 to length(fn) do if fn[a]='\' then b:=a;
+    {rcg11242000 dosism.}
+    {for a:=1 to length(fn) do if fn[a]='\' then b:=a;}
+    for a:=1 to length(fn) do if fn[a]='/' then b:=a;
     if b<>0 then filepath:=copy(fn,1,b)
     else begin
       getdir(0,s);
-      filepath:=s+'\';
+      {rcg11242000 dosism.}
+      {filepath:=s+'\';}
+      filepath:=s+'/';
     end;
   end;
 
@@ -1047,9 +1051,16 @@
       if (waitbaud=9600) then maxs:=4;
     end;
 
+    {rcg11242000 dosisms.}
+    {
     loading(start_dir+'\miniterm.fon');
     if not exist(start_dir+'\miniterm.fon') then begin
       assign(fil,start_dir+'\miniterm.fon');
+    }
+
+    loading(start_dir+'/miniterm.fon');
+    if not exist(start_dir+'/miniterm.fon') then begin
+      assign(fil,start_dir+'/miniterm.fon');
       rewrite(fil);
       with ns[1] do begin
         name:='Grosse Pointe Centrale';
@@ -1060,7 +1071,9 @@
       close(fil);
     end;
 
-    assign(fil,start_dir+'\miniterm.fon');
+    {rcg11242000 DOSism.}
+    {assign(fil,start_dir+'\miniterm.fon');}
+    assign(fil,start_dir+'/miniterm.fon');
     reset(fil);
     hientrynum:=0;
     repeat
@@ -1072,17 +1085,28 @@
     pages:=((hientrynum-1) div 10)+1;
     pagnum:=1;
 
+    {rcg11242000 DOSisms.}
+    {
     loading(start_dir+'\miniterm.cfg');
     if not exist(start_dir+'\miniterm.cfg') then begin
       assign(cfgfil,start_dir+'\miniterm.cfg');
+    }
+
+    loading(start_dir+'/miniterm.cfg');
+    if not exist(start_dir+'/miniterm.cfg') then begin
+      assign(cfgfil,start_dir+'/miniterm.cfg');
       rewrite(cfgfil);
       with mini do begin
-        dpath:=start_dir+'\';
+        {rcg11242000 dosism.}
+        {dpath:=start_dir+'\';}
+        dpath:=start_dir+'/';
       end;
       write(cfgfil,mini);
       close(cfgfil);
     end;
-    assign(cfgfil,start_dir+'\miniterm.cfg');
+    {rcg11242000 DOSism.}
+    {assign(cfgfil,start_dir+'\miniterm.cfg');}
+    assign(cfgfil,start_dir+'/miniterm.cfg');
     reset(cfgfil); read(cfgfil,mini); close(cfgfil);
 
     removewindow(wind);
--- a/misc1.pas	Sat Nov 25 05:34:28 2000 +0000
+++ b/misc1.pas	Sat Nov 25 05:35:11 2000 +0000
@@ -6,7 +6,7 @@
 (*>                                                                         <*)
 (*>                                                                         <*)
 (*****************************************************************************)
-{$A+,B+,D-,E+,F+,I+,L+,N-,O+,R-,S+,V-}
+{$A+,B+,E+,F+,I+,L+,N-,O+,R-,S+,V-}
 unit misc1;
 
 interface
--- a/misc2.pas	Sat Nov 25 05:34:28 2000 +0000
+++ b/misc2.pas	Sat Nov 25 05:35:11 2000 +0000
@@ -6,7 +6,7 @@
 (*>                                                                         <*)
 (*>                                                                         <*)
 (*****************************************************************************)
-{$A+,B+,D-,E+,F+,I+,L+,N-,O+,R-,S+,V-}
+{$A+,B+,E+,F+,I+,L+,N-,O+,R-,S+,V-}
 unit misc2;
 
 interface
@@ -462,7 +462,9 @@
     nl;
     prompt('Already in TEMP: ');
     numfiles:=0; tsiz:=0;
-    findfirst(systat.temppath+'3\*.*',anyfile-dos.directory,dirinfo);
+    {rcg11242000 DOSism.}
+    {findfirst(systat.temppath+'3\*.*',anyfile-dos.directory,dirinfo);}
+    findfirst(systat.temppath+'3/*.*',anyfile-dos.directory,dirinfo);
     found:=(doserror=0);
     while (found) do begin
       inc(tsiz,dirinfo.size);
@@ -495,7 +497,9 @@
       if (gftit[i].gfile) then begin
         seek(gfil,gftit[i].arn); read(gfil,b);
         s:=systat.tfilepath+b.filen;
-        s2:=systat.temppath+'3\'+b.filen;
+        {rcg11242000 DOSism.}
+        {s2:=systat.temppath+'3\'+b.filen;}
+        s2:=systat.temppath+'3/'+b.filen;
         sprompt(#3#5+'Progress: ');
         copyfile(ok,nospace,TRUE,s,s2);
         if (ok) then
--- a/misc3.pas	Sat Nov 25 05:34:28 2000 +0000
+++ b/misc3.pas	Sat Nov 25 05:35:11 2000 +0000
@@ -6,7 +6,7 @@
 (*>                                                                         <*)
 (*>                                                                         <*)
 (*****************************************************************************)
-{$A+,B+,D-,E+,F+,I+,L+,N-,O+,R-,S+,V-}
+{$A+,B+,E+,F+,I+,L+,N-,O+,R-,S+,V-}
 unit misc3;
 
 interface
--- a/misc4.pas	Sat Nov 25 05:34:28 2000 +0000
+++ b/misc4.pas	Sat Nov 25 05:35:11 2000 +0000
@@ -3,7 +3,7 @@
 (*>  MISC4   .PAS -  InfoForm questionairre system.                         <*)
 (*>                                                                         <*)
 (*****************************************************************************)
-{$A+,B+,D-,E+,F+,I+,L+,N-,O+,R-,S+,V-}
+{$A+,B+,E+,F+,I+,L+,N-,O+,R-,S+,V-}
 unit misc4;
 
 interface
--- a/miscx.pas	Sat Nov 25 05:34:28 2000 +0000
+++ b/miscx.pas	Sat Nov 25 05:35:11 2000 +0000
@@ -1,4 +1,4 @@
-{$A+,B+,D-,E+,F+,I+,L+,N-,O+,R-,S+,V-}
+{$A+,B+,E+,F+,I+,L+,N-,O+,R-,S+,V-}
 unit miscx;
 
 interface
@@ -182,9 +182,15 @@
 
   realsl:=thisuser.sl; realdsl:=thisuser.dsl;
   commandline('Purging files in TEMP directories 1, 2, and 3 ...');
+  {rcg11242000 DOSisms.}
+  {
   purgedir(systat.temppath+'1\');
   purgedir(systat.temppath+'2\');
   purgedir(systat.temppath+'3\');
+  }
+  purgedir(systat.temppath+'1/');
+  purgedir(systat.temppath+'2/');
+  purgedir(systat.temppath+'3/');
 
   if (systat.lastdate<>date) then begin
     prompt('Please wait ....');
--- a/mmodem.pas	Sat Nov 25 05:34:28 2000 +0000
+++ b/mmodem.pas	Sat Nov 25 05:35:11 2000 +0000
@@ -1,4 +1,4 @@
-{$A+,B+,D-,E+,F+,I+,L+,N-,O+,R-,S+,V-}
+{$A+,B+,E+,F+,I+,L+,N-,O+,R-,S+,V-}
 unit mmodem;
 
 interface
--- a/msgpack.pas	Sat Nov 25 05:34:28 2000 +0000
+++ b/msgpack.pas	Sat Nov 25 05:35:11 2000 +0000
@@ -1,4 +1,4 @@
-{$A+,B+,D-,E+,F+,I+,L+,N-,O+,R-,S+,V-}
+{$A+,B+,E+,F+,I+,L+,N-,O+,R-,S+,V-}
 unit msgpack;
 
 interface
--- a/myio.pas	Sat Nov 25 05:34:28 2000 +0000
+++ b/myio.pas	Sat Nov 25 05:35:11 2000 +0000
@@ -1,4 +1,4 @@
-{$A+,B+,D-,E+,F+,I+,L+,N-,O+,R-,S+,V-}
+{$A+,B+,E+,F+,I+,L+,N-,O+,R-,S+,V-}
 unit myio;
 
 interface
--- a/newusers.pas	Sat Nov 25 05:34:28 2000 +0000
+++ b/newusers.pas	Sat Nov 25 05:35:11 2000 +0000
@@ -6,7 +6,7 @@
 (*>                                                                         <*)
 (*>                                                                         <*)
 (*****************************************************************************)
-{$A+,B+,D-,E+,F+,I+,L+,N-,O+,R-,S+,V-}
+{$A+,B+,E+,F+,I+,L+,N-,O+,R-,S+,V-}
 unit newusers;
 
 interface
--- a/pibo.pas	Sat Nov 25 05:34:28 2000 +0000
+++ b/pibo.pas	Sat Nov 25 05:35:11 2000 +0000
@@ -1,4 +1,4 @@
-{$A+,B+,D-,E+,F+,I+,L+,N-,O+,R-,S+,V-}
+{$A+,B+,E+,F+,I+,L+,N-,O+,R-,S+,V-}
 unit pibo;
 
 interface
--- a/sepmsgs.pas	Sat Nov 25 05:34:28 2000 +0000
+++ b/sepmsgs.pas	Sat Nov 25 05:35:11 2000 +0000
@@ -1,6 +1,6 @@
 uses crt,dos;
 
-{$A+,B+,D-,E+,F+,I+,L+,N-,O+,R-,S+,V-}
+{$A+,B+,E+,F+,I+,L+,N-,O+,R-,S+,V-}
 {$M 50000,0,90000}      { Declared here suffices for all Units as well! }
 {$I rec16e1.pas}
 
@@ -55,8 +55,12 @@
 
 function exdrv(s:astr):byte;
 begin
+  {rcg11242000 point at root drive always. Ugh.}
+  {
   s:=fexpand(s);
   exdrv:=ord(s[1])-64;
+  }
+  exdrv:=3;
 end;
 
 procedure movefile(srcname,destpath:string);
@@ -123,7 +127,9 @@
     f:file;
     lastm,thism:messages;   {* keep track of mass-mail duplicates *}
 begin
-  while copy(npath,length(npath),1)='\' do
+  {rcg11242000 DOSism.}
+  {while copy(npath,length(npath),1)='\' do}
+  while copy(npath,length(npath),1)='/' do
     npath:=copy(npath,1,length(npath)-1);
   getdir(0,odir);
   {$I-} chdir(npath); {$I+}
@@ -150,8 +156,13 @@
           thism:=mr.msg;
           gotoxy(wherex,wherey-1); clreol;
           inc(k);
+          {rcg11242000 DOSism.}
+          {
+	  star('Message file #'+cstr(k)+' of '+
+                cstr(filesize(mailfile))+': '+npath+'\'+s);
+          }
           star('Message file #'+cstr(k)+' of '+
-                cstr(filesize(mailfile))+': '+npath+'\'+s);
+                cstr(filesize(mailfile))+': '+npath+'/'+s);
           if ((thism.ltr<>lastm.ltr) or
               (thism.number<>lastm.number) or
               (thism.ext<>lastm.ext)) then begin
@@ -159,7 +170,9 @@
             {$I-} reset(f); {$I+}
             if ioresult=0 then begin
               close(f);
-              movefile(s1,npath+'\');
+              {rcg11242000 DOSism.}
+              {movefile(s1,npath+'\');}
+              movefile(s1,npath+'/');
               lastm:=thism;
             end else star('File does not exist: '+s1);
             lastm:=thism;
@@ -177,7 +190,9 @@
     f:file;
     mary:array[0..200] of messagerec;
 begin
-  while copy(npath,length(npath),1)='\' do
+  {rcg11242000 DOSism.}
+  {while copy(npath,length(npath),1)='\' do}
+  while copy(npath,length(npath),1)='/' do
     npath:=copy(npath,1,length(npath)-1);
   with brd do begin
     getdir(0,odir);
@@ -211,9 +226,15 @@
               close(f);
               gotoxy(wherex,wherey-1); clreol;
               inc(k);
-              star('Message file #'+cstr(k)+' of '+
+              {rcg11242000 DOSisms.}
+              {
+	      star('Message file #'+cstr(k)+' of '+
                     cstr(mary[0].message.number)+': '+npath+'\'+s);
               movefile(s1,npath+'\');
+              }
+              star('Message file #'+cstr(k)+' of '+
+                    cstr(mary[0].message.number)+': '+npath+'/'+s);
+              movefile(s1,npath+'/');
             end else star('File does not exist: '+s1);
           end;
       end else star('Unable to open file: '+systat.gfilepath+brd.filename+'.BRD');
@@ -233,14 +254,14 @@
   star('This program can do all the work of seperating all the messages');
   star('in each base into their own directories.');
   writeln;
-  star('Message directories will be created off of your current Telegard MSGS\');
+  star('Message directories will be created off of your current Telegard MSGS/');
   star('directory according to the *.BRD FILENAMEs of each message base.');
   writeln;
   star('Example:');
-  star('"'+systat.pmsgpath+'EMAIL\" for private mail');
-  star('"'+systat.pmsgpath+'GENERAL\" for message base #1');
+  star('"'+systat.pmsgpath+'EMAIL/" for private mail');
+  star('"'+systat.pmsgpath+'GENERAL/" for message base #1');
   star(' (if msg base #1 filename is "GENERAL")');
-  star('"'+systat.pmsgpath+'MISC\" for message base #2');
+  star('"'+systat.pmsgpath+'MISC/" for message base #2');
   star(' (if msg base #2 filename is "MISC")');
   star('And so on.');
   writeln;
@@ -257,15 +278,23 @@
   reset(bf);
   for i:=0 to filesize(bf)-1 do begin
     seek(bf,i); read(bf,brd);
-    brd.msgpath:=brd.msgpath+brd.filename+'\';
+    {rcg11242000 DOSism.}
+    {brd.msgpath:=brd.msgpath+brd.filename+'\';}
+    brd.msgpath:=brd.msgpath+brd.filename+'/';
     seek(bf,i); write(bf,brd);
     star('Moving messages in '+brd.filename+'.BRD ('+brd.name+') to "'+brd.msgpath+'"');
     movemsgbase(brd,brd.msgpath,i+1);
   end;
   close(bf);
   chdir(sp);
+  {rcg11242000 DOSisms.}
+  {
   ttl('Moving private mail into "'+systat.pmsgpath+'EMAIL\"');
   moveprivmail(systat.pmsgpath+'EMAIL\');
   systat.pmsgpath:=systat.pmsgpath+'EMAIL\';
+  }
+  ttl('Moving private mail into "'+systat.pmsgpath+'EMAIL/"');
+  moveprivmail(systat.pmsgpath+'EMAIL/');
+  systat.pmsgpath:=systat.pmsgpath+'EMAIL/';
   rewrite(systatf); write(systatf,systat); close(systatf);
 end.
--- a/stubs.pas	Sat Nov 25 05:34:28 2000 +0000
+++ b/stubs.pas	Sat Nov 25 05:35:11 2000 +0000
@@ -1,6 +1,6 @@
 {rcg11172000 stub functions.}
 
-{$A+,B+,D-,E+,F+,I+,L-,N-,O-,R-,S+,V-}
+{$A+,B+,E+,F+,I+,L-,N-,O-,R-,S+,V-}
 unit stubs;
 
 interface
--- a/sysop1.pas	Sat Nov 25 05:34:28 2000 +0000
+++ b/sysop1.pas	Sat Nov 25 05:35:11 2000 +0000
@@ -5,7 +5,7 @@
 (*>  SysOp functions: Protocol editor.                                      <*)
 (*>                                                                         <*)
 (*****************************************************************************)
-{$A+,B+,D-,E+,F+,I+,L+,N-,O+,R-,S+,V-}
+{$A+,B+,E+,F+,I+,L+,N-,O+,R-,S+,V-}
 unit sysop1;
 
 interface
--- a/sysop10.pas	Sat Nov 25 05:34:28 2000 +0000
+++ b/sysop10.pas	Sat Nov 25 05:35:11 2000 +0000
@@ -5,7 +5,7 @@
 (*>  SysOp functions: Voting question editor, voting results output.        <*)
 (*>                                                                         <*)
 (*****************************************************************************)
-{$A+,B+,D-,E+,F+,I+,L+,N-,O+,R-,S+,V-}
+{$A+,B+,E+,F+,I+,L+,N-,O+,R-,S+,V-}
 unit sysop10;
 
 interface
--- a/sysop11.pas	Sat Nov 25 05:34:28 2000 +0000
+++ b/sysop11.pas	Sat Nov 25 05:35:11 2000 +0000
@@ -5,7 +5,7 @@
 (*>  SysOp functions: Voting question editor, voting results output.        <*)
 (*>                                                                         <*)
 (*****************************************************************************)
-{$A+,B+,D-,E+,F+,I+,L+,N-,O+,R-,S+,V-}
+{$A+,B+,E+,F+,I+,L+,N-,O+,R-,S+,V-}
 unit sysop11;
 
 interface
--- a/sysop2.pas	Sat Nov 25 05:34:28 2000 +0000
+++ b/sysop2.pas	Sat Nov 25 05:35:11 2000 +0000
@@ -6,7 +6,7 @@
 (*>                                                                         <*)
 (*>                                                                         <*)
 (*****************************************************************************)
-{$A+,B+,D-,E+,F+,I+,L+,N-,O+,R-,S+,V-}
+{$A+,B+,E+,F+,I+,L+,N-,O+,R-,S+,V-}
 unit sysop2;
 
 interface
--- a/sysop21.pas	Sat Nov 25 05:34:28 2000 +0000
+++ b/sysop21.pas	Sat Nov 25 05:35:11 2000 +0000
@@ -6,7 +6,7 @@
 (*>                                                                         <*)
 (*>                                                                         <*)
 (*****************************************************************************)
-{$A+,B+,D-,E+,F+,I+,L+,N-,O+,R-,S+,V-}
+{$A+,B+,E+,F+,I+,L+,N-,O+,R-,S+,V-}
 unit sysop21;
 
 interface
--- a/sysop2a.pas	Sat Nov 25 05:34:28 2000 +0000
+++ b/sysop2a.pas	Sat Nov 25 05:35:11 2000 +0000
@@ -8,7 +8,7 @@
 (*>                     (Modem Configuration)                               <*)
 (*>                                                                         <*)
 (*****************************************************************************)
-{$A+,B+,D-,E+,F+,I+,L+,N-,O+,R-,S+,V-}
+{$A+,B+,E+,F+,I+,L+,N-,O+,R-,S+,V-}
 unit sysop2a;
 
 interface
--- a/sysop2b.pas	Sat Nov 25 05:34:28 2000 +0000
+++ b/sysop2b.pas	Sat Nov 25 05:35:11 2000 +0000
@@ -6,7 +6,7 @@
 (*>                                                                         <*)
 (*>                                                                         <*)
 (*****************************************************************************)
-{$A+,B+,D-,E+,F+,I+,L+,N-,O+,R-,S+,V-}
+{$A+,B+,E+,F+,I+,L+,N-,O+,R-,S+,V-}
 unit sysop2b;
 
 interface
@@ -190,7 +190,9 @@
               prt(' path:');
               nl; mpl(79); input(s,79);
               if (s<>'') then begin
-                if (copy(s,length(s),1)<>'\') then s:=s+'\';
+                {rcg11242000 DOSism.}
+                {if (copy(s,length(s),1)<>'\') then s:=s+'\';}
+                if (copy(s,length(s),1)<>'\') then s:=s+'/';
                 if (wantit) then
                   case c of
                     '1':gfilepath:=s;     '2':afilepath:=s;
--- a/sysop2c.pas	Sat Nov 25 05:34:28 2000 +0000
+++ b/sysop2c.pas	Sat Nov 25 05:35:11 2000 +0000
@@ -6,7 +6,7 @@
 (*>                                                                         <*)
 (*>                                                                         <*)
 (*****************************************************************************)
-{$A+,B+,D-,E+,F+,I+,L+,N-,O+,R-,S+,V-}
+{$A+,B+,E+,F+,I+,L+,N-,O+,R-,S+,V-}
 unit sysop2c;
 
 interface
--- a/sysop2d.pas	Sat Nov 25 05:34:28 2000 +0000
+++ b/sysop2d.pas	Sat Nov 25 05:35:11 2000 +0000
@@ -6,7 +6,7 @@
 (*>                                                                         <*)
 (*>                                                                         <*)
 (*****************************************************************************)
-{$A+,B+,D-,E+,F+,I+,L+,N-,O+,R-,S+,V-}
+{$A+,B+,E+,F+,I+,L+,N-,O+,R-,S+,V-}
 unit sysop2d;
 
 interface
--- a/sysop2e.pas	Sat Nov 25 05:34:28 2000 +0000
+++ b/sysop2e.pas	Sat Nov 25 05:35:11 2000 +0000
@@ -5,7 +5,7 @@
 (*>  SysOp functions: System Configuration Editor -- "E" command.           <*)
 (*>                                                                         <*)
 (*****************************************************************************)
-{$A+,B+,D-,E+,F+,I+,L+,N-,O+,R-,S+,V-}
+{$A+,B+,E+,F+,I+,L+,N-,O+,R-,S+,V-}
 unit sysop2e;
 
 interface
--- a/sysop2f.pas	Sat Nov 25 05:34:28 2000 +0000
+++ b/sysop2f.pas	Sat Nov 25 05:35:11 2000 +0000
@@ -5,7 +5,7 @@
 (*>  SysOp functions: System Configuration Editor -- "F" command.           <*)
 (*>                                                                         <*)
 (*****************************************************************************)
-{$A+,B+,D-,E+,F+,I+,L+,N-,O+,R-,S+,V-}
+{$A+,B+,E+,F+,I+,L+,N-,O+,R-,S+,V-}
 unit sysop2f;
 
 interface
@@ -48,7 +48,9 @@
       printacr(s,abort,next);
       printacr('H. Auto-validate ALL files ULed?  :'+syn(validateallfiles),abort,next);
       printacr('I. Remote DOS re-direction device :'+systat.remdevice,abort,next);
-      printacr('J. Max k-bytes allowed in TEMP\3\ :'+cstr(systat.maxintemp),abort,next);
+      {rcg11242000 DOSism.}
+      {printacr('J. Max k-bytes allowed in TEMP\3\ :'+cstr(systat.maxintemp),abort,next);}
+      printacr('J. Max k-bytes allowed in TEMP/3/ :'+cstr(systat.maxintemp),abort,next);
       printacr('K. Min k-bytes to save for resume :'+cstr(systat.minresume),abort,next);
       nl;
       prt('Enter selection (A-K) [Q]uit : '); onek(c,'QABCDEFGHIJK'^M);
--- a/sysop2fa.pas	Sat Nov 25 05:34:28 2000 +0000
+++ b/sysop2fa.pas	Sat Nov 25 05:35:11 2000 +0000
@@ -6,7 +6,7 @@
 (*>                                                                         <*)
 (*>                                                                         <*)
 (*****************************************************************************)
-{$A+,B+,D-,E+,F+,I+,L+,N-,O+,R-,S+,V-}
+{$A+,B+,E+,F+,I+,L+,N-,O+,R-,S+,V-}
 unit sysop2fa;
 
 interface
--- a/sysop2g.pas	Sat Nov 25 05:34:28 2000 +0000
+++ b/sysop2g.pas	Sat Nov 25 05:35:11 2000 +0000
@@ -6,7 +6,7 @@
 (*>                                                                         <*)
 (*>                                                                         <*)
 (*****************************************************************************)
-{$A+,B+,D-,E+,F+,I+,L+,N-,O+,R-,S+,V-}
+{$A+,B+,E+,F+,I+,L+,N-,O+,R-,S+,V-}
 unit sysop2g;
 
 interface
--- a/sysop2h.pas	Sat Nov 25 05:34:28 2000 +0000
+++ b/sysop2h.pas	Sat Nov 25 05:35:11 2000 +0000
@@ -6,7 +6,7 @@
 (*>                                                                         <*)
 (*>                                                                         <*)
 (*****************************************************************************)
-{$A+,B+,D-,E+,F+,I+,L+,N-,O+,R-,S+,V-}
+{$A+,B+,E+,F+,I+,L+,N-,O+,R-,S+,V-}
 unit sysop2h;
 
 interface
--- a/sysop2i.pas	Sat Nov 25 05:34:28 2000 +0000
+++ b/sysop2i.pas	Sat Nov 25 05:35:11 2000 +0000
@@ -6,7 +6,7 @@
 (*>                                                                         <*)
 (*>                                                                         <*)
 (*****************************************************************************)
-{$A+,B+,D-,E+,F+,I+,L+,N-,O+,R-,S+,V-}
+{$A+,B+,E+,F+,I+,L+,N-,O+,R-,S+,V-}
 unit sysop2i;
 
 interface
--- a/sysop2s.pas	Sat Nov 25 05:34:28 2000 +0000
+++ b/sysop2s.pas	Sat Nov 25 05:35:11 2000 +0000
@@ -6,7 +6,7 @@
 (*>                                                                         <*)
 (*>                                                                         <*)
 (*****************************************************************************)
-{$A+,B+,D-,E+,F+,I+,L+,N-,O+,R-,S+,V-}
+{$A+,B+,E+,F+,I+,L+,N-,O+,R-,S+,V-}
 unit sysop2s;
 
 interface
--- a/sysop2z.pas	Sat Nov 25 05:34:28 2000 +0000
+++ b/sysop2z.pas	Sat Nov 25 05:35:11 2000 +0000
@@ -6,7 +6,7 @@
 (*>                                                                         <*)
 (*>                                                                         <*)
 (*****************************************************************************)
-{$A+,B+,D-,E+,F+,I+,L+,N-,O+,R-,S+,V-}
+{$A+,B+,E+,F+,I+,L+,N-,O+,R-,S+,V-}
 unit sysop2z;
 
 interface
--- a/sysop3.pas	Sat Nov 25 05:34:28 2000 +0000
+++ b/sysop3.pas	Sat Nov 25 05:35:11 2000 +0000
@@ -5,7 +5,7 @@
 (*>  SysOp functions: User Editor.                                          <*)
 (*>                                                                         <*)
 (*****************************************************************************)
-{$A+,B+,D-,E+,F+,I+,L+,N-,O+,R-,S+,V-}
+{$A+,B+,E+,F+,I+,L+,N-,O+,R-,S+,V-}
 unit sysop3;
 
 interface
--- a/sysop4.pas	Sat Nov 25 05:34:28 2000 +0000
+++ b/sysop4.pas	Sat Nov 25 05:35:11 2000 +0000
@@ -6,7 +6,7 @@
 (*>                                                                         <*)
 (*>                                                                         <*)
 (*****************************************************************************)
-{$A+,B+,D-,E+,F+,I+,L+,N-,O+,R-,S+,V-}
+{$A+,B+,E+,F+,I+,L+,N-,O+,R-,S+,V-}
 unit sysop4;
 
 interface
--- a/sysop5.pas	Sat Nov 25 05:34:28 2000 +0000
+++ b/sysop5.pas	Sat Nov 25 05:35:11 2000 +0000
@@ -6,7 +6,7 @@
 (*>  Vote printer.                                                          <*)
 (*>                                                                         <*)
 (*****************************************************************************)
-{$A+,B+,D-,E+,F+,I+,L+,N-,O+,R-,S+,V-}
+{$A+,B+,E+,F+,I+,L+,N-,O+,R-,S+,V-}
 unit sysop5;
 
 interface
--- a/sysop6.pas	Sat Nov 25 05:34:28 2000 +0000
+++ b/sysop6.pas	Sat Nov 25 05:35:11 2000 +0000
@@ -5,7 +5,7 @@
 (*>  SysOp functions: Event editor                                          <*)
 (*>                                                                         <*)
 (*****************************************************************************)
-{$A+,B+,D-,E+,F+,I+,L+,N-,O+,R-,S+,V-}
+{$A+,B+,E+,F+,I+,L+,N-,O+,R-,S+,V-}
 unit sysop6;
 
 interface
--- a/sysop7.pas	Sat Nov 25 05:34:28 2000 +0000
+++ b/sysop7.pas	Sat Nov 25 05:35:11 2000 +0000
@@ -5,7 +5,7 @@
 (*>  SysOp functions: Menu editor                                           <*)
 (*>                                                                         <*)
 (*****************************************************************************)
-{$A+,B+,D-,E+,F+,I+,L+,N-,O+,R-,S+,V-}
+{$A+,B+,E+,F+,I+,L+,N-,O+,R-,S+,V-}
 unit sysop7;
 
 interface
--- a/sysop7m.pas	Sat Nov 25 05:34:28 2000 +0000
+++ b/sysop7m.pas	Sat Nov 25 05:35:11 2000 +0000
@@ -5,7 +5,7 @@
 (*>  SysOp functions: Menu editor -- "M" command (modify commands)          <*)
 (*>                                                                         <*)
 (*****************************************************************************)
-{$A+,B+,D-,E+,F+,I+,L+,N-,O+,R-,S+,V-}
+{$A+,B+,E+,F+,I+,L+,N-,O+,R-,S+,V-}
 unit sysop7m;
 
 interface
--- a/sysop8.pas	Sat Nov 25 05:34:28 2000 +0000
+++ b/sysop8.pas	Sat Nov 25 05:35:11 2000 +0000
@@ -5,7 +5,7 @@
 (*>  SysOp functions: Message base editor                                   <*)
 (*>                                                                         <*)
 (*****************************************************************************)
-{$A+,B+,D-,E+,F+,I+,L+,N-,O+,R-,S+,V-}
+{$A+,B+,E+,F+,I+,L+,N-,O+,R-,S+,V-}
 unit sysop8;
 
 interface
@@ -420,15 +420,24 @@
                       end;
                       nl; prompt('Current message path: ');
                       if (msgpath<>'') then print(msgpath) else print('*NONE*');
-                      nl; print('Press <CR> to use default path "'+systat.msgpath+filename+'\"');
+                      {rcg11242000 DOSism.}
+                      {nl; print('Press <CR> to use default path "'+systat.msgpath+filename+'\"');}
+                      nl; print('Press <CR> to use default path "'+systat.msgpath+filename+'/"');
                       nl; print('Enter new message path:');
                       prt(':'); mpl(40); input(s,40); s:=sqoutsp(s);
                       if (s<>'') then begin
-                        while (copy(s,length(s)-1,2)='\\') do s:=copy(s,1,length(s)-1);
+                        {rcg11242000 DOSisms.}
+                        {
+			while (copy(s,length(s)-1,2)='\\') do s:=copy(s,1,length(s)-1);
                         if (copy(s,length(s),1)<>'\') then s:=s+'\';
+                        }
+                        while (copy(s,length(s)-1,2)='//') do s:=copy(s,1,length(s)-1);
+                        if (copy(s,length(s),1)<>'/') then s:=s+'/';
                         msgpath:=s;
                       end;
-                      if ((s='') and (msgpath='')) then msgpath:=systat.msgpath+filename+'\';
+                      {rcg11242000 DOSism.}
+                      {if ((s='') and (msgpath='')) then msgpath:=systat.msgpath+filename+'\';}
+                      if ((s='') and (msgpath='')) then msgpath:=systat.msgpath+filename+'/';
                       if (not existdir(msgpath)) then begin
                         nl; print('"'+msgpath+'" does not exist.');
                         if (pynq('Create message directory now? ')) then begin
--- a/sysop9.pas	Sat Nov 25 05:34:28 2000 +0000
+++ b/sysop9.pas	Sat Nov 25 05:35:11 2000 +0000
@@ -5,7 +5,7 @@
 (*>  SysOp functions: File base editor                                      <*)
 (*>                                                                         <*)
 (*****************************************************************************)
-{$A+,B+,D-,E+,F+,I+,L+,N-,O+,R-,S+,V-}
+{$A+,B+,E+,F+,I+,L+,N-,O+,R-,S+,V-}
 unit sysop9;
 
 interface
@@ -129,7 +129,9 @@
         getdir(0,s);
         name:='<< Not Used >>';
         filename:='NEWDIR';
-        dlpath:=s[1]+':DLOADS\';
+        {rcg11242000 DOSism.}
+        {dlpath:=s[1]+':DLOADS\';}
+        dlpath:=s[1]+':DLOADS/';
         ulpath:=dlpath;
         maxfiles:=2000;
         password:='';
@@ -287,8 +289,13 @@
                     print('Enter new download path:');
                     prt(':'); mpl(40); input(s,40); s:=sqoutsp(s);
                     if (s<>'') then begin
+                      {rcg11242000 DOSisms.}
+                      {
                       while (copy(s,length(s)-1,2)='\\') do s:=copy(s,1,length(s)-1);
                       if (copy(s,length(s),1)<>'\') then s:=s+'\';
+                      }
+                      while (copy(s,length(s)-1,2)='//') do s:=copy(s,1,length(s)-1);
+                      if (copy(s,length(s),1)<>'/') then s:=s+'/';
                       if (s<>dlpath) then changed:=TRUE;
                       dlpath:=s;
                       if (not existdir(s)) then begin
@@ -308,8 +315,13 @@
                     prt(':'); mpl(40); input(s,40); s:=sqoutsp(s);
                     if ((s='D') or (s='d')) then s:=dlpath;
                     if (s<>'') then begin
-                      while (copy(s,length(s)-1,2)='\\') do s:=copy(s,1,length(s)-1);
+                      {rcg11242000 DOSism.}
+                      {
+		      while (copy(s,length(s)-1,2)='\\') do s:=copy(s,1,length(s)-1);
                       if (copy(s,length(s),1)<>'\') then s:=s+'\';
+                      }
+		      while (copy(s,length(s)-1,2)='//') do s:=copy(s,1,length(s)-1);
+                      if (copy(s,length(s),1)<>'/') then s:=s+'/';
                       if (s<>ulpath) then changed:=TRUE;
                       ulpath:=s;
                       if (not existdir(s)) then begin
--- a/t2t.pas	Sat Nov 25 05:34:28 2000 +0000
+++ b/t2t.pas	Sat Nov 25 05:35:11 2000 +0000
@@ -1,4 +1,4 @@
-{$A+,B+,D-,E+,F+,I+,L+,N-,O+,R-,S+,V-}
+{$A+,B+,E+,F+,I+,L+,N-,O+,R-,S+,V-}
 {$M 50000,0,1000}      { Declared here suffices for all Units as well! }
 
 uses
@@ -86,8 +86,13 @@
 
 procedure alignpathname(var s:astr);
 begin
+  {rcg11242000 DOSisms.}
+  {
   if copy(s,length(s),1)<>'\' then s:=s+'\';
   while (copy(s,length(s)-1,2)='\\') and (length(s)>2) do
+  }
+  if copy(s,length(s),1)<>'/' then s:=s+'/';
+  while (copy(s,length(s)-1,2)='//') and (length(s)>2) do
     s:=copy(s,1,length(s)-1);
 end;
 
@@ -182,8 +187,12 @@
 
 function exdrv(s:astr):byte;
 begin
+  {rcg11242000 point at root drive always. Ugh.}
+  {
   s:=fexpand(s);
   exdrv:=ord(s[1])-64;
+  }
+  exdrv:=3;
 end;
 
 procedure movefile(srcname,destpath:string);
@@ -1187,7 +1196,9 @@
     writeln('Now you need to enter your Telegard MSGS directory, where you');
     writeln('will later be putting all of your message files in.');
     writeln;
-    writeln('This is probably "'+tgpath+'MSGS\" ...');
+    {rcg11242000 DOSism.}
+    {writeln('This is probably "'+tgpath+'MSGS\" ...');}
+    writeln('This is probably "'+tgpath+'MSGS/" ...');
     writeln;
     textcolor(9); write('Telegard MSGS Path: '); infield(tmsgpath,40);
     if (tmsgpath='') then ee('ABORTED');
--- a/ta2z.pas	Sat Nov 25 05:34:28 2000 +0000
+++ b/ta2z.pas	Sat Nov 25 05:35:11 2000 +0000
@@ -1,4 +1,4 @@
-{$A+,B+,D-,E+,F+,I+,L+,N-,O+,R-,S+,V-}
+{$A+,B+,E+,F+,I+,L+,N-,O+,R-,S+,V-}
 {$M 32150,0,0}          { Declared here suffices for all Units as well! }
 
 uses
@@ -140,8 +140,13 @@
 
 procedure alignpathname(var s:astr);
 begin
+  {rcg11242000 DOSisms.}
+  {
   if copy(s,length(s),1)<>'\' then s:=s+'\';
   while (copy(s,length(s)-1,2)='\\') and (length(s)>2) do
+  }
+  if copy(s,length(s),1)<>'/' then s:=s+'/';
+  while (copy(s,length(s)-1,2)='//') and (length(s)>2) do
     s:=copy(s,1,length(s)-1);
 end;
 
--- a/timejunk.pas	Sat Nov 25 05:34:28 2000 +0000
+++ b/timejunk.pas	Sat Nov 25 05:35:11 2000 +0000
@@ -1,4 +1,4 @@
-{$A+,B+,D-,E+,F+,I+,L+,N-,O+,R-,S+,V-}
+{$A+,B+,E+,F+,I+,L+,N-,O+,R-,S+,V-}
 unit timejunk;
 
 interface
--- a/tmpcom.pas	Sat Nov 25 05:34:28 2000 +0000
+++ b/tmpcom.pas	Sat Nov 25 05:35:11 2000 +0000
@@ -1,4 +1,4 @@
-{$A+,B+,D-,E+,F+,I+,L+,N-,O+,R-,S+,V-}
+{$A+,B+,E+,F+,I+,L+,N-,O+,R-,S+,V-}
 UNIT tmpcom;
 
 {Version 3.0}
--- a/tmpcommm.pas	Sat Nov 25 05:34:28 2000 +0000
+++ b/tmpcommm.pas	Sat Nov 25 05:35:11 2000 +0000
@@ -1,4 +1,4 @@
-{$A+,B+,D-,E+,F+,I+,L+,N-,O-,R-,S+,V-}
+{$A+,B+,E+,F+,I+,L+,N-,O-,R-,S+,V-}
 unit tmpcom;
 
 interface
--- a/wfcmenu.pas	Sat Nov 25 05:34:28 2000 +0000
+++ b/wfcmenu.pas	Sat Nov 25 05:35:11 2000 +0000
@@ -6,7 +6,7 @@
 (*>  various status reports, and log on locally.                            <*)
 (*>                                                                         <*)
 (*****************************************************************************)
-{$A+,B+,D-,E+,F+,I+,L+,N-,O+,R-,S+,V-}
+{$A+,B+,E+,F+,I+,L+,N-,O+,R-,S+,V-}
 unit wfcmenu;
 
 interface