8-Bit Software Online Conversion

Textual Filer - Listing

10REM > Filer 20REM Text-based desktop system 50HIMEM=&8000:A%=FNfx(135,0)DIV256:MO DE&80+A%+(A%=7):PROCsz:IFwd%<40:MODE&86: PROCsz 60quit$="":test%=TRUE:ver$="0.15":ONE RROR:REPORT:PROCend:END 70PRINTFNc(1)SPC(wd%DIV2-19)"Textual Filer "ver$" (C)1997 J.G.Harston"SPC(wd% -POS)FNc(0);:PROCInit:A$=FNOS`GetEnv:md$ =FNcl("-m") 80quit$=FNcl(" -q"):Z$=FNcl("-?"):A$= FNcl(" "):IFA$="""""":A$="" 90IFmd$<>"":MODE&80+VALmd$:PROCsz 100exit$="":IFMe$<>"":exit$=" -quit "+ Me$+" -mode "+STR$(FNfx(135,0)DIV256):IF quit$<>"":exit$=exit$+" -quit "+quit$ 110IFINSTR(" "+A$+Z$," -?"):PRINT"Synt ax: Desktop (<dir>) (-quit <fname>)":PRO Cend:END 120PROCChkDate:ONERRORIFFNerr:PROCend 130REPEAT:X%=ctrl%:Y%=X%DIV256:PROCRdD ir:PROCDisp:UNTILFNmenu:PRINT:PROCend 140END 150: 160DEFPROCInit:err%=FALSE:max%=35:DIMc trl%30:X%=ctrl%:Y%=X%DIV256 170DIMdata%80,n$(max%),l%(max%),e%(max %),n%(max%),a%(max%),t%(max%):w$="" 180DIMt$(19):t$(0)="Data":t$(1)="File" :t$(2)="Directory":t$(3)="Application" 190t$(4)="Text":t$(5)="Exec":t$(6)="MC ode":t$(7)="Utility":t$(8)="Basic" 200t$(9)="ROM":t$(10)="Teletext":t$(11 )="Archive":REM Screen? 210ptr%=0:dw%=1:fs%=FNfs:PROCDrv:Path$ =FNp:Me$="":Sc$="":Ar$="":Tr$="" 220FORz%=0TO2:a$=MID$("$.%.",5-2*z%,2) :d$=a$:IFd$="":d$=Path$+"." 230IFMe$="":IFFNfile(a$+FNS,5)=1:Me$=d $+FNS 240IFSc$="":IFFNfile(a$+"Scroll",5)=1: Sc$=d$+"Scroll" 250IFAr$="":IFFNfile(a$+"Archive",5)=1 :Ar$=d$+"Archive" 260IFTr$="":IFFNfile(a$+LEFT$("TreeCop y",10+3*(FNfs=4)),5)=1:Tr$=d$+LEFT$("Tre eCopy",10+3*(FNfs=4)) 270A%=(Me$<>""ANDSc$<>""ANDAr$<>""ANDT r$<>""):IFA%:z%=3 280IFNOTA%ANDz%=0:IFFNfile("%",5)<>2:z %=1 290NEXT:ENDPROC 300: 310DEFPROCon:VDU23,1;0;0;0;0:*FX4,2 320*FX225,128 330ENDPROC 340DEFPROCoff:VDU23,1,1;0;0;0;:*FX4 350*FX225,1 360ENDPROC 370DEFPROCend:PROCoff:PRINTFNc(0);:IFq uit$<>"":PROCos(quit$):END 380END 390DEFFNS=$(PAGE+8) 400DEFFNerr:PRINTFNc(1);TAB(0,y%);SPC( 80);TAB(0,y%-1);:REPORT:PRINTFNc(0); 410A%=INKEY(50):=test%ANDINKEY-1 420: 430DEFFNbyte(A%,X%,Y%)=((USR&FFF4)AND& FF00)DIV256 440DEFFNfx(A%,X%):LOCALY%:Y%=X%DIV256: =((USR&FFF4)AND&FFFF00)DIV256 450DEFFNfile(A$,A%):$data%=A$:?X%=data %:X%?1=data%DIV256:=(USR&FFDD)AND&FF 460DEFFNgbpb(A%):X%!1=data%:CALL&FFD1: A%=data%+((A%<>5)AND(1+?data%)):A%?(1+?A %)=13:=$(A%+1) 470DEFFNfs:LOCALA%,Y%,E%:=(USR&FFDA)AN D&FF 480DEFFNtime:A%=14:?X%=0:CALL&FFF1:IF? X%:X%?24=13:=$X% ELSE ="" 490DEFFNDofW(d$):=0 500DEFFNh(A%,N%)=RIGHT$("0000000"+STR$ ~A%,N%) 510DEFFNd(A%,N%)=RIGHT$("0000000"+STR$ A%,N%) 520DEFFNu(A$):LOCALA%,B$:FORA%=1TOLENA $:B$=B$+CHR$(ASCMID$(A$,A%,1)+32*(MID$(A $,A%,1)>"£")):NEXT:=LEFT$(B$,LENA$) 530DEFFNp:IFFNfs=4:OSCLI"DIR$":="$" 540LOCALn$,p$:A%=6:REPEAT 550X%!1=data%:CALL&FFD1:?(data%+2+?dat a%+?(data%+?data%+1))=13:n$=$(data%+2+?d ata%):*DIR ^ 560n$=LEFT$(n$,INSTR(n$+" "," ")-1):p$ =n$+"."+p$:UNTILn$="$" 570p$=LEFT$(p$,LENp$-1):OSCLI"DIR "+p$ :=p$ 580DEFFNOS`GetEnv:A$="":IFINKEY(0)=0:R EPEATA%=INKEY(0):A$=A$+CHR$A%:UNTILA%=-1 :OSCLI"KEY0":=LEFT$(A$,LENA$-1+(RIGHT$(A $,2)<" ")) 590IF(INKEY-256 AND&F0)=&A0 ANDPAGE>&8 000:LOADATN"OS`GetEnv"TOA$:=MID$(A$,1+IN STR(A$," ",1+INSTR(A$," ",1+INSTR(A$," " )))) 600A%=9:?X%=0:X%!1=data%:!data%=0:CALL &FFD1:IF!data%AND?data%+data%?2<>8:data% ?(1+?data%)=13:=$(data%+1) 610IF?&FFF7=&6C:A$=$&780:$&780="":=A$ 620="" 630DEFFNcl(l$):LOCALI%:IFASCl$=32 AND A$<>"":A$=" "+A$ 640I%=INSTR(A$,l$):l$="":IFI%:l$=MID$( A$,INSTR(A$," ",I%+1)+1):IFMID$(A$,I%,1) <>" ":l$=LEFT$(l$,INSTR(l$," ")-1) 650IFI%:IFMID$(A$,I%,1)=" ":A$=LEFT$(A $,I%-1) ELSE IFI%:A$=MID$(A$,INSTR(A$,l$ )+1+LENl$) 660=l$ 670: 680DEFPROCos(A$):IFLEFT$(A$,1)="*":OSC LIA$:ENDPROC 690I%=INSTR(A$," "):IFI%:PROCKey("|@"+ MID$(A$,I%+1)) 700CHAINA$:ENDPROC 710DEFPROCKey(A$):OSCLI"Key0"+A$:OSCLI "FX138,0,192":ENDPROC 720DEFFNs(A$)=LEFT$(A$,INSTR(A$+" "," ")-1) 730DEFFNget(P%,V%):LOCALp%,v%,A$:p%=PO S:v%=VPOS:REPEATPRINTTAB(P%,V%);MID$(FNt ime,17);TAB(p%,v%);:A$=INKEY$(100):UNTIL A$<>"":=A$ 740DEFPROCsz:wd%=FNbyte(160,10,0)-FNby te(160,8,0)+1:ht%=FNbyte(160,9,0)-FNbyte (160,11,0)+1:ENDPROC 750DEFFNc(A%):COLOUR7AND(A%=0):COLOUR1 28+(7AND(A%<>0)):="" 760: 770DEFPROCChkDate:A$=FNtime:IFA$<>"" A NDMID$(A$,5,2)<>"00" AND A$<>"Fri,31 Dec 1999.23:59:59":ENDPROC 780INPUT" Enter the date (DD/MM/YY): " d$:IFINSTR(d$," ")=0 AND d$<>"":d$=d$+" 0"+STR$FNday(d$) 790IFFNfs=16:OSCLI"HSETDATE "+d$ 800INPUTLINE" Enter the time (HH:MM): "t$:IFt$<>"":TIME=(60*INTVALt$+VALRIGHT$ (t$,2))*60*100 810ENDPROC 820DEFFNday(d$):d%=VALd$:m%=VALMID$(d$ ,INSTR(d$,"/")+1):y%=1900+VALRIGHT$(d$,2 ):IFy%<1980:y%=y%+100 830y%=y%MOD400:=(y%*365.25+m%*30+d%+VA LMID$("120112234455",m%,1)+((y%MOD4)=0)- ((y%-1)DIV100)-(m%>2 AND((y%MOD4)=0 AND( y%MOD100)<>0 ORy%=0))+3)MOD7+1 840: 850DEFPROCDrv:Dir$=FNs(FNgbpb(6)):data %?(1+?data%)=13:Drive$=FNs($(data%+1)):D isk$=FNs(FNgbpb(5)):A%=FNfs:I%=1+INSTR(" 00405060816",STR$A%)DIV2:FS$=MID$("DISKN ETHADFS"+STR$A%,VALMID$("110105110908",I %*2-1,2),VALMID$("543545",I%,1)):ENDPROC 860DEFPROCRdDir:IFerr%:ENDPROC 870err%=TRUE:IFFNfs<>fs%:PROCDrv:Path$ =FNp 880p%=0:n%=0:sel%=0:fs%=FNfs:REPEAT 890X%!1=data%:X%!5=1:X%!9=p%:A%=8:CALL &FFD1 900p%=X%!9:r%=X%!5:IFr%=0:PROCRdName:n %=n%+1 910UNTILr%=1ORn%>max%:err%=FALSE:ENDPR OC 920DEFPROCRdName:data%?(1+?data%)=13:f $=FNs($(data%+1)):IFASCf$=46:n%=n%-1:END PROC 930n$(n%)=f$:X%!14=0:t%(n%)=FNfile(f$, 5) 940l%(n%)=X%!2:e%(n%)=X%!6:n%(n%)=X%!1 0:a%(n%)=X%!14AND(-129OR(fs%<>8)) 950IFt%(n%)=2:IFLEFT$(f$,1)="!":t%(n%) =3:ENDPROC ELSEIFt%(n%)=2:ENDPROC 960IF(X%!2ORX%!6)=0OR(X%!3AND&FFFFFF)= &FFFFFD:t%(n%)=0:ENDPROC 970IF(X%!2AND&FFFF)=&8000 OR(X%!3AND&F FFFFF)=&FFFBBC:t%(n%)=9:ENDPROC 980IF(X%!3AND&FFFFFF)=&FFFFFF:t%(n%)=4 :ENDPROC 990IF(X%!3AND&FFF)=&FFBOR((X%!4AND&FFF F)=(X%!8AND&FFFF)AND((X%?2=0AND(X%?7AND& 80)=&80)OR(X%!2<X%!6ANDX%?7<&80 ANDX%!2+ X%!10-X%!6<&200 ANDX%!10>&200 ANDX%?3>&1 F))):t%(n%)=8:ENDPROC 1000IFX%!6=TRUE:t%(n%)=5:ENDPROC 1010IFX%?3>&0F ANDX%?3<&7C:t%(n%)=6:END PROC 1020IF(X%!4AND&FFFF)=(X%!8AND&FFFF)AND( (X%?3AND&F8)=8ORX%?3=&DD):t%(n%)=7:ENDPR OC 1030IF(X%!3AND&FFFFFF)=&FFFF7C:t%(n%)=1 0:ENDPROC 1040ENDPROC 1050: 1060DEFFNa(A%,T%):LOCALA$:IF(A%AND128)A ND(fs%<>5):A$="P" 1070IFT%=2:A$=A$+"D" 1080IF(A%AND8):A$=A$+"L" 1090IFT%=2:=LEFT$(A$+"/ ",7) 1100IF(A%AND5)=4:A$=A$+"E" 1110IF(A%AND2):A$=A$+"W" 1120IF(A%AND1):A$=A$+"R" 1130A$=A$+"/":IF(A%AND80)=64:A$=A$+"E" 1140IF(A%AND32):A$=A$+"W" 1150IF(A%AND16):A$=A$+"R" 1160=LEFT$(A$+" ",7) 1170DEFFNdt(A%):A%=(A%AND&FFFF00)DIV256 :IFA%=0:="00/00/0000" 1180=FNd(A%AND31,2)+"/"+FNd((A%AND&F00) DIV256,2)+"/"+FNd(1981+((A%AND&F000)DIV& 1000)+(A%AND&E0)DIV2,4) 1190DEFFNat(p%):PRINTTAB((wd%DIVx%)*(p% MODx%),1-(wd%<80)+p%DIVx%);:="" 1200DEFFNat2(p%):PRINTTAB(sz%+(wd%DIVx% )*(p%MODx%),1-(wd%<80)+p%DIVx%);:="" 1210DEFPROCpr(z%):PRINT" "FNc(t%(z%)AND &10000);LEFT$(n$(z%)+" ",10); 1220IF(dw%AND4):PRINT" "FNh(l%(z%),8)" "FNh(e%(z%),8)" "FNh(n%(z%),6); 1230IF(dw%AND1):PRINT" "FNa(a%(z%),t%(z %)AND&FF); 1240IF(dw%AND4):PRINT" "FNdt(a%(z%)); 1250IF(dw%AND2):PRINT" "LEFT$(t$(t%(z%) AND&FF)+" ",9); 1260PRINTFNc(0);SPC((dw%AND2)+2+((dw%AN D3)=1)-(dw%=2));:IFPOS>(wd%-14)OR(dw%AND 4)PRINT 1270ENDPROC 1280: 1290DEFPROCDisp:IF(dw%AND7)>1 ANDwd%<80 :dw%=dw%AND1 1300PRINTFNc(0);:CLS:PRINTFNc(1)LEFT$(" Drive "+Drive$,-80*(Drive$<>""))SPC((70 -wd%/2)-LEN(LEFT$(FS$+Disk$+Path$,57+22* (wd%<80)))DIV2)RIGHT$(FS$+"::"+Disk$+"." +Path$,60+22*(wd%<80))SPC(wd%-POS)FNc(0) ; 1310IFerr%:VDU11:REPORT:PRINT:n%=0ELSEI Fn%=0:PRINT"Empty" ELSE z%=0:REPEATPROCp r(z%):z%=z%+1:UNTILz%=n% OR VPOS=ht%-3:I FPOS:PRINT 1320y%=VPOS:IFptr%>=n%:ptr%=n%-1 1330PRINTFNc(1)" Access, Copy, Delete, Expand, Goto, "SPC((wd%<80)AND4)"cHange drive, Load, Move, New dir"LEFT$("ectory ",-6*(wd%>40))","SPC(4+((wd%<80)AND2))"O S Command, Quit, Rename, setType, Up,"SP C(1-(wd%<80)); 1340PRINT"siZe, RETURN=Run, *"SPC(wd%-P OS)FNc(0);:sz%=11+8*(dw%AND1)+5*(dw%AND2 )+9*(dw%AND4):x%=wd%DIV(sz%+1):IFw$<>"" ANDerr%=0:err%=TRUE:OSCLI"."+w$:err%=FAL SE 1350ENDPROC 1360: 1370DEFFNmenu:err%=FALSE:PROCon:B$="!!" :REPEAT:REPEATPRINTFNat(ptr%);:ptr%=ptr% +(VPOS>ht%-4):UNTILVPOS<ht%-3 1380IFn%:PRINTFNat(ptr%)">"FNat2(ptr%)" <";:REM TAB(0,y%)FNc(1)" "t$(t%(ptr%)AND &FFFF)" "n$(ptr%)SPC(wd%-POS)FNc(0); 1390PRINTFNc(1);:REPEATA$=FNget(wd%-9,0 ):IFA$>"£" ANDA$<"¼":A$=CHR$(ASCA$-32) 1400IFA$="^":A$="U" 1410IFn%=0 AND INSTR("ACDLMOPRST  CHR$1+CHR$3+CHR$13,A$)<>0:A$="!" 1420UNTILINSTR("*ACDEGHLMNOPQRSTUWZ "+CHR$1+CHR$3+CHR$13,A$):B$=A$+LEFT$(B$ ,1):PRINTFNc(0);:IFn%=0:ptr%=0 1430IFINSTR("  "FNat2(ptr%)" ";:ptr%=ptr%+(A$=" ")-(A$ ="    ND(ptr%>0):IFptr%>=n%:ptr%=n%-1 1440IF(INSTR("ACDMORTS",A$)ANDsel%<1)OR (A$=CHR$13 AND((t%(ptr%)AND&10000)=0)):t %(ptr%)=t%(ptr%)OR&10000:PRINTFNat(ptr%) ;:PROCpr(ptr%):sel%=sel%+1:IFA$=CHR$13:A $="!" 1450IFINSTR(CHR$1+CHR$3,A$):FORz%=0TOn% -1:t%(z%)=(t%(ptr%)AND&FFFF)OR((A$=CHR$1 )AND&10000):NEXT:sel%=n%AND(A$=CHR$1):PR OCDisp:A$="!" 1460IFA$=CHR$13 AND B$<>CHR$13+CHR$13:A $="!" 1470IFA$=" " AND(t%(ptr%)AND&10000):t%( ptr%)=t%(ptr%)AND&FFFF:PRINTFNat(ptr%);: PROCpr(ptr%):sel%=sel%-1 1480IFINSTR("LR",A$)ANDsel%>1:A$="!" 1490IFA$="Z":dw%=VALMID$("125..7.0",dw% +1,1):PROCDisp:A$="!" 1500IFA$="W":PROCw:INPUT"Output window: "w$:A$="!":PROCDisp:PROCon 1510IFA$="E":dw%=7:PROCDisp:A$="!" 1520UNTILINSTR("!  %):IFsel%>1:f$="<selection>" 1530PROCw:IFB$=CHR$13+CHR$13 ANDsel%=1: PROCRun(""):=0 1540IFA$=CHR$13:=0 1550IFA$="O":INPUT"*"A$:PRINTTAB(0,y%)" "A$" "f$;" ";:INPUT""a$:PRINTFNc(0);:PR OCdo(A$):A$="*" 1560IFA$="*":REPEATINPUTLINE"*"A$:PRINT FNc(0);:OSCLIA$:UNTILA$="":=0 1570I%=INSTR("ACDGHLMNQRSTU",A$):PRINTM ID$("Set Access ofCopyDeleteGoto directo ryChange to driveLoadMoveNew directoryQu itRenameStampSetType ofGo Up",VALMID$("* 01141824385357617478848999",I%*2,2),VALM ID$("*13040614150404130406051005",I%*2,2 ));" "; 1580IFINSTR("ACDLMRST",A$):PRINTf$;:IFI NSTR("ACLMRT",A$):PRINT" to "; 1590a$="!":IFINSTR("QU",A$)=0:INPUT""a$ :VDU11 1600PROCon:IFA$="A":PROCdo("Access"):=0 1610IFINSTR("CM",A$):PROCCopy(A$="M"):= 0 1620IFA$="D":PROCdo("Delete"):=0 1630IFA$="G":PROCGoto(a$):=0 1640IFA$="H":PROCGoto(MID$(":"+a$,1-(LE FT$(a$,1)=":"))):=0 1650IFA$="L":PROCLoad:=0 1660IFA$="S":PROCdo("!Stamp"):=0 1670IFa$="":=0 1680IFA$="N":OSCLI"CDir "+a$:=0 1690IFA$="R":OSCLI"Rename "+f$+" "+a$:= 0 1700IFA$="S":PROCdo("!Stamp"):=0 1710IFA$="T":PROCdo("!SetType"):=0 1720IFA$="U":PROCUp:=0 1730=A$="Q" 1740DEFPROCw:PRINTTAB(0,y%);FNc(1);SPC( wd%)FNc(0)SPC(80+(wd%MOD80))TAB(1,y%);FN c(1);:PROCoff:ENDPROC 1750: 1760DEFPROCCall(N$,A$,B$):IFA$<>"":PROC os(A$+" "+B$+exit$) ELSE PRINTCHR$13;" ' "N$"' not available"SPC(wd%-POS);CHR$13; :A%=INKEY(50) 1770ENDPROC 1780: 1790DEFPROCRun(a$):PRINTTAB(0,y%)FNc(1) " Select "f$" "a$FNc(0);:T%=t%(ptr%)AND& FF:PROCoff 1800IFT%=2:PROCDir(f$):ENDPROC 1810IFT%=4:PROCCall("Scroll",Sc$,f$):EN DPROC 1820IFT%=5:OSCLI"Exec "+f$:END 1830IF(T%AND&FE)=6:OSCLI"Run "+f$+" "+a $:ENDPROC 1840IFT%=8 AND(l%(ptr%)AND&FFF00)=&FFB0 0:PROCCall("",f$,a$):ENDPROC 1850IFT%=8 ANDe%(ptr%)=&7B00:OSCLI"Run "+f$+" "+a$:ENDPROC 1860IFT%=8:CHAINf$:ENDPROC 1870IFT%=9:PROCKey("/SrLoad "+f$+" I|MC H."""+Me$+"""|M"):END 1880IFT%=10:REM Teletext 1890IFT%=11:PROCCall("Archive",Ar$,f$): ENDPROC 1900ENDPROC 1910: 1920DEFPROCLoad:PRINTTAB(0,y%)FNc(1)" L oad "f$" to "a$;FNc(0);:T%=t%(ptr%)AND&F F:PROCoff:a$=FNu(a$) 1930IFa$="VIEW"ORa$="WORD":T%=4 1940IFa$="BASIC":T%=8 1950IF(T%AND&FE)=4 ANDa$="":PROCKey("LO AD "+f$+"|M"):*WORD 1960IF(T%AND&FE)=4:PROCKey("READ "+f$+" |M"):*WORD 1970IFT%=1OR(T%AND&FE)=6:OSCLI"Load "+f $+" "+a$:ENDPROC 1980IFT%=8:PROCKey("LOAD"""+f$+"""|F|M" ):VDU21:END 1990ENDPROC 2000: 2010DEFPROCDir(f$):OSCLI"DIR "+f$:IFLEN f$=1 ANDINSTR("$%&",f$):Path$="" 2020PROCDrv:Path$=Path$+"."+Dir$:IFLEFT $(Path$,1)=".":Path$=MID$(Path$,2) 2030ENDPROC 2040: 2050DEFPROCUp:OSCLI"DIR ^":IFINSTR(Path $,"."):REPEATPath$=LEFT$(Path$,LENPath$- 1):UNTILRIGHT$(Path$,1)=".":Path$=LEFT$( Path$,LENPath$-1) 2060ENDPROC 2070: 2080DEFPROCGoto(a$):IFLEFT$(a$,1)="-":I %=INSTR(a$,"-",2):IFI%:a$=MID$(a$,2,I%-2 )+":"+MID$(a$,I%+1) 2090fs$="":I%=INSTR(a$,":",2):IFI%:fs$= LEFT$(a$,I%-1):a$=MID$(a$,I%+1) 2100fs%=0:OSCLIfs$:OSCLI"Dir "+a$:ENDPR OC 2110: 2120DEFPROCdo(A$):IFA$="":PROCRun(a$):E NDPROC 2130FORz%=0TOn%-1:A%=t%(z%)AND&10000:IF A%:IFLEFT$(A$,1)="!":A%=EVAL("FN"+MID$(A $,2))ELSEIFA%:OSCLIA$+" "+n$(z%)+" "+a$ 2140NEXT:ENDPROC 2150: 2160DEFFNStamp:PRINTTAB(0,0)"Stamp ";n$ (z%):=0 2170: 2180DEFFNSetType:REM A%=FNfile(n$(z%),5 ) 2190ctrl%!2=&FFF00000+&100*EVAL("&"+a$) :A%=FNfile(n$(z%),2):=0 2200: 2210DEFFNRename:OSCLI"Rename "+n$(z%)+" "+a$+"."+n$(z%):=0 2220: 2230DEFFNCopy:OSCLI"Copy "+n$(z%)+" "+a $+"."+n$(z%):IFMv%:OSCLI"Delete "+n$(z%) 2240=0 2250: 2260DEFPROCCopy(Mv%):IFa$="":a$=w$:PRIN TTAB(10+LENf$,y%)a$;:INPUT" "A$:IFA$<>"" :ENDPROC 2270IFMv%ANDINSTR(a$,":")=0:PROCdo("!Re name"):ENDPROC 2280IFsel%>1OR(t%(ptr%)AND&FF)<>2:PROCd o("!Copy"):ENDPROC 2290PROCCall("TreeCopy",Tr$,f$+" "+a$+" ."+f$+" A~C"+LEFT$("~",1+Mv%)+"DEF~PR~S" ):ENDPROC 2300REM A do All dfs directories 2310REM ~C No Confirm 2320REM ?D Delete after copying 2330REM E Expand into dfs directories 2340REM F Force overwriting 2350REM ~P No Pause 2360REM R Recurse 2370REM ~S Not put dfs directories into Subdirectories 2380REM ?U copy User account informatio n