> Filer v0.43 dA=&8000:A%=fx(135,0)256:&80+A%+(A%=7):sz:wd%<40:&86:sz n[ctrl%30,data%80:X%=ctrl%:Y%=X%256:A$=OS_GetEnv:quit$=cl(" -q",1):in%=0:err:end xs0,0)c(1)(wd%2-19)"Textual Filer 0.43 (C)1998 J.G.Harston"(wd%-)c(0);:md$=cl("-m",1):debug%=cl("-d",0) ?cl("-?",0):"Syntax: "run$" () (-quit )":end ;Init:md$="":fx(130,0):fx(133,&80)>+&1000:md$="0" 'md$<>"":A$=md$:md$="":A$&80:sz nexit$="":run$<>"":exit$=" -quit "+run$+" -mode "+(fx(135,0)256):quit$<>"":exit$=exit$+" -quit "+quit$ ChkDate:err:end ,:X%=ctrl%:Y%=X%256:RdDir:Disp:menu :end: ;Init:y%=3:err%=:X%=ctrl%:Y%=X%256:max%=max%:max%: Hmax%=35:n$(max%),l%(max%),e%(max%),n%(max%),a%(max%),t%(max%):w$="" Kt$(19):t$(0)="Data":t$(1)="File":t$(2)="Directory":t$(3)="Application" It$(4)="Text":t$(5)="Exec":t$(6)="MCode":t$(7)="Utility":t$(8)="Basic" Gt$(9)="ROM":t$(10)="Teletext":t$(11)="Archive":t$(12)="Font":ptr%=0 Dt$(13)="Screen":dw%=1:fs%=fs:Drv:Path$=p:Sc$="":Ar$="":Tr$="" :z%=02:a$="$.%.",5-2*z%,2):d$=a$:d$="":d$=Path$+"." 3Sc$="":file(d$+"Scroll",5)=1:Sc$=d$+"Scroll" "5Ar$="":file(d$+"Archive",5)=1:Ar$=d$+"Archive" ,UTr$="":file(d$+"TreeCopy",10+3*(fs=4)),5)=1:Tr$=d$+"TreeCopy",10+3*(fs=4)) 6)A%=(Sc$<>""Ar$<>""Tr$<>""):A%:z%=3 @#A%z%=0:file("%",5)<>2:z%=1 J: ^on:23,1;0;0;0;0:*FX4,2 h*FX225,128 r |off:23,1,1;0;0;0;:*FX4  *FX225,1  =end:off:c(0);:quit$<>"":A$=quit$:quit$="":os(A$):  ݤS=$(+8) 1ݤerr:c(1);0,y%);(80);0,y%-1);::c(0); !CloseIn:A%=(50):=debug%-1 $CloseIn:in%:A%=in%:in%=0:#A%  FoswD(A%,D%,E%):X%,Y%:X%=data%:Y%=X%256:!X%=D%:X%!4=E%:&FFF1: )ݤbyte(A%,X%,Y%)=((&FFF4)&FF00)256 5ݤfx(A%,X%):Y%:Y%=X%256:=((&FFF4)&FFFF00)256 Bݤfile(A$,A%):$data%=A$:?X%=data%:X%?1=data%256:=(&FFDD)&FF Uݤgbpb(A%):X%!1=data%:&FFD1:A%=data%+((A%<>5)(1+?data%)):A%?(1+?A%)=13:=$(A%+1)  ݤfs:A%,Y%,E%:=(&FFDA)&FF &6ݤtime:A%=14:?X%=0:&FFF1:?X%:X%?24=13:=$X% ="" 0ݤDofW(d$):=0 :"ݤh(A%,N%)="0000000"+~A%,N%) D!ݤd(A%,N%)="0000000"+A%,N%) NOݤu(A$):A%,B$:A%=1A$:B$=B$+(A$,A%,1)+32*(A$,A%,1)>"`"))::=B$,A$) Xݤp:fs=4:"DIR$":="$" bn$,p$:A%=6: lXX%!1=data%:&FFD1:?(data%+2+?data%+?(data%+?data%+1))=13:n$=$(data%+2+?data%):*DIR ^ v/n$=n$,n$+" "," ")-1):p$=n$+"."+p$:n$="$"  p$=p$,p$-1):"DIR "+p$:=p$ 6ݤOS_GetEnv:A$:A%=0:X%=1:os%=((&FFF4)&FF00)256 6os%=6>&8000:ș"OS_GetEnv"A$:A$=A$,1+A$," ")) os%=32:A$=$&100 /A$=0:?(P-3):A$=$&600 A$=0:A$=$&3800 AA%=0:A%=A%+1:A%=A$A$,A%)<32A$,A%)>126:A%<>A$:A$="" 7A%=A$+" "," "):run$=A$,A%-1):run$<>"":=A$,A%+1) uX%=ctrl%:Y%=X%256:A%=9:?X%=0:X%!1=data%:!data%=0:&FFD1:!data%?data%+data%?2<>8:data%?(1+data%)=13:=$(data%+1) ="" *ݤcl(l$,n%):l$=32 A$<>"":A$=" "+A$ bI%=A$,l$):l$="":I%>0n%>0:l$=A$,A$+" "," ",I%+1)+1):A$,I%,1)<>" ":l$=l$,l$+" "," ")-1) qI%:A$,I%,1)=" ":A$=A$,2+(A$<>32),I%-2-(I%=1)) I%:A$=A$,I%-1)+A$,A$+" "," ",A$+" "," ",I%)+l$)+1) "A$=s(A$):n%:=s(l$) =I%<>0 (os(A$):A$=""A$=42:A$: A$: )Key(A$):"Key0"+A$:"FX138,0,192":  /ݤs(A$):A$,1)=" ":A$=A$,2):A$,1)<>" " *+A$,1)=" ":A$=A$,A$-1):A$,1)<>" " 4=A$ >Xݤget(P%,V%):p%,v%,A$:p%=:v%=:P%,V%);time,17);p%,v%);:A$=(100):A$<>"":=A$ HTsz:wd%=byte(160,10,0)-byte(160,8,0)+1:ht%=byte(160,9,0)-byte(160,11,0)+1: R*ݤc(A%):7(A%=0):128+(7(A%<>0)):="" fQChkDate:A$=time:A$<>"" A$,5,2)<>"00" A$<>"Fri,31 Dec 1999.23:59:59": pO" Enter the date (DD/MM/YY): "d$:d$," ")=0 d$<>"":d$=d$+" 0"+äday(d$) zfs=16:"HSETDATE "+d$ F" Enter the time (HH:MM): "t$:t$<>"":=(60*t$+t$,2))*60*100  Kݤday(d$):d%=d$:m%=d$,d$,"/")+1):y%=1900+d$,2):y%<1980:y%=y%+100 ~y%=y%400:=(y%*365.25+m%*30+d%+"120112234455",m%,1)+((y%4)=0)-((y%-1)100)-(m%>2 ((y%4)=0 (y%100)<>0 y%=0))+3)7+1 Drv:Dir$=s(gbpb(6)):data%?(1+?data%)=13:Drive$=s($(data%+1)):Disk$=s(gbpb(5)):A%=fs:I%=1+"00405060816",A%)2:FS$="DISKNETHADFS"+A%,"110105110908",I%*2-1,2),"543545",I%,1)): RdDir:err%: 'Hdr:err%=:fs<>fs%:Drv:Path$=p %a%=8:a%=10:in%=("@"):in%=0:a%=8 p%=0:n%=0:sel%=0:fs%=fs: ;?X%=in%:X%!1=data%:X%!5=1:X%!9=p%:!data%=0:A%=a%:&FFD1 1r%=X%!5:A%=10:r%=1-r%:X%!9=0r%=0:a%=8:r%=2 !p%=X%!9:r%=0:RdName:n%=n%+1 !r%=1n%>max%:err%=:CloseIn  .bRdName:A%=8:data%?(1+?data%)=13:f$=$(data%+1) data%?40=13:f$=$(data%+20):f$=f$,f$,0)-1) 8f$=s(f$):f$=46:n%=n%-1: Bn$(n%)=f$:A%<>8:t%(n%)=data%!16:A%=data% X%!14=0:t%(n%)=file(f$,5):A%=X%+2:fs%=5:$(data%+8)=f$:oswD(&14,&12002000,&40000000):X%!15=data%!10 LCl%(n%)=!A%:e%(n%)=A%!4:n%(n%)=A%!8:a%(n%)=A%!12(-129(fs%<>8)) V1t%(n%)=2:f$,1)="!":t%(n%)=3: t%(n%)=2: `3(!A%A%!4)=0(A%!1&FFFFFF)=&FFFFFD:t%(n%)=0: j9(!A%&FFFF)=&8000 (A%!1&FFFFFF)=&FFFBBC:t%(n%)=9: t'(A%!1&FFFFFF)=&FFFF7C:t%(n%)=10: ~'(A%!1&FFFFFF)=&FFFFF7:t%(n%)=12: A%!4=:t%(n%)=5: &(A%!1&FFFFFF)=&FFFFFF:t%(n%)=4: (A%!1&FFF)=&FFB((A%!2&FFFF)=(A%!6&FFFF)((?A%=0(A%?5&C0)=&80)(!A%&80 A%?1>&1F))):t%(n%)=8: "A%?1>&0F A%?1<&7C:t%(n%)=6: A(A%!2&FFFF)=(A%!6&FFFF)((A%?1&F8)=8A%?1=&DD):t%(n%)=7:  /ݤa(A%,T%):A%=A%&FF:A$:fs%<>16:A%=A%&7F A%1:A%=A%&FB A%16:A%=A%&BF A%&80:A$="P" 5A%=256*(A%15)A%:T%=2T%=3:A$=A$+"D":A%=A%&880  -T%=19:(A%&800):A$=A$+"LEWRewr",T%,1) T%=4:A$=A$+"/":A%=A%*2 A%=A%*2::=A$+" ",7) (4ݤdt(A%):A%=(A%&FFFF00)256:A%=0:="00/00/0000" 2U=d(A%31,2)+"/"+d((A%&F00)256,2)+"/"+d(1981+((A%&F000)&1000)+(A%&E0)2,4) <6ݤat(p%):(wd%x%)*(p%x%),1-(wd%<80)+p%x%);:="" F;ݤat2(p%):sz%+(wd%x%)*(p%x%),1-(wd%<80)+p%x%);:="" P;pr(z%):" "c(t%(z%)&10000);n$(z%)+" ",10); Z<(dw%4):" "h(l%(z%),8)" "h(e%(z%),8)" "h(n%(z%),6); d'(dw%1):" "a(a%(z%),t%(z%)&FF); n(dw%4):" "dt(a%(z%)); x0(dw%2):" "t$(t%(z%)&FF)+" ",9); Ac(0);((dw%2)+2+((dw%3)=1)-(dw%=2));:>(wd%-14)(dw%4)  Hdr:c(0);::c(1)" Drive "+Drive$,-80*(Drive$<>""))((78--wd%/2)-(FS$+Disk$+Path$,57+22*(wd%<80)))2)FS$+"::"+Disk$+"."+Path$,60+22*(wd%<80))(wd%-)c(0);: 3)wd%<80:dw%=dw%3:dw%=2:dw%=3 wd%=80 dw%=3:dw%=5 XHdr:err%:11:::n%=0n%=0:"Empty" z%=0:pr(z%):z%=z%+1:z%=n% =ht%-3:: y%=:ptr%>=n%:ptr%=n%-1 c(1)" Access, Copy, Delete, Full info, Goto,"((wd%<80)1)" cHange drive, Load, Move, New dir""ectory",-6*(wd%>40))","(1+((wd%<80)5))"OS Command, Quit, Rename, setType, Up,"(1-(wd%<80)); "^A=All, ^C=Clear, RETURN=Run, *"(wd%-)c(0);:sz%=11+8*(dw%1)+5*(dw%2)+9*(dw%4):x%=wd%(sz%+1):w$<>"" err%=0:err%=:"."+w$:err%=  Tݤmenu:err%=:on:B$="!!"::at(ptr%);:ptr%=ptr%+(>ht%-4):"at2(ptr%)"<"; :c(1);:A$=get(wd%-9,0):A$>"`" A$<"{":A$=(A$-32) "A$="^":A$="U" ,6n%=0 "ACDLMOPRST"+1+3+13,A$)<>0:A$="!" 6P"*ACDFGHLMNOPQRSTUWZ"+1+3+13,A$):B$=A$+B$,1):c(0);:n%=0:ptr%=0 @"",A$):at(ptr%)" "at2(ptr%)" ";:ptr%=ptr%+(A$="")-(A$="")+x%*(A$="")-x%*(A$=""):ptr%=ptr%(ptr%>0):ptr%>=n%:ptr%=n%-1 J("ACDMORTS",A$)sel%<1)(A$=13 ((t%(ptr%)&10000)=0)):t%(ptr%)=t%(ptr%)&10000:at(ptr%);:pr(ptr%):sel%=sel%+1:A$=13:A$="!":optr%=ptr% T`秽1+3,A$):z%=0n%-1:t%(z%)=(t%(z%)&FFFF)((A$=1)&10000)::sel%=n%(A$=1):Disp:A$="!" ^ A$=13 B$<>13+13:A$="!" hXA$="" (t%(ptr%)&10000):t%(ptr%)=t%(ptr%)&FFFF:at(ptr%);:pr(ptr%):sel%=sel%-1 r"LR",A$)sel%>1:A$="!" |2A$="Z":dw%="1235.7.0",dw%+1,1):Disp:A$="!" 4A$="W":w:"Output window: "w$:A$="!":Disp:on 4A$="F":dw%=(1(dw%>2))+(7(dw%<3)):Disp:A$="!" P"!",A$)=0:f$=n$(ptr%):sel%=1:f$=n$(optr%) sel%>1:f$="" &w:B$=13+13 sel%=1:Run(""):=0 A$=13:=0 A$="O":"*"A$:0,y%)" "A$" "f$;" ";:""a$:11(sel%>1):c(sel%>1);:do(A$):ChkEx:A%=((sel%<2 >y%+1)&7FFF):"**** Press SPACE ****",A%);:A%=(A%):=0 0A$="*":"*"A$:c(0);:A$:A$="":fs%=0:=0 I%="ACDGHLMNQRSTU",A$):"Set Access ofCopyDeleteGoto directoryChange to driveLoadMoveNew directoryQuitRenameStampSetType ofGo Up","*01141824385357617478848999",I%*2,2),"*13040614150404130406051005",I%*2,2));" "; 1"ACDLMRST",A$):f$;:"ACLMRT",A$):" to "; !a$="!":"QU",A$)=0:""a$:11  on:A$="A":do("Access"):=0 "CM",A$):Copy(A$="M"):=0 A$="D":do("Delete"):=0 A$="G":Goto(a$):=0 -A$="H":Goto(":"+a$,1-(a$,1)=":"))):=0 A$="L":Load:=0 & a$="":=0 0A$="N":"CDir "+a$:=0 :#A$="R":"Rename "+f$+" "+a$:=0 DA$="S":do("!Stamp"):=0 N+A$="T":a$=type(a$):do("!SetType"):=0 XA$="U":Up:=0 b =A$="Q" lCw:0,y%);c(1);(wd%)c(0)(80+(wd%80))1,y%);c(1);:off: fCall(N$,A$,B$):A$<>"":os(A$+" "+B$+exit$) 13;" '"N$"' not available"(wd%-);13;:A%=(50)  #ChkEx:byte(198,0,255): FRun(a$):0,y%)c(1)" Select "f$" "a$c(0);:T%=t%(ptr%)&FF:off T%=2T%=3:Dir(f$): $:T%=4:Call("Scroll",Sc$,f$): T%=5:"Exec "+f$: #(T%&FE)=6:"Run "+f$+" "+a$: 5T%=8 (l%(ptr%)&FFF00)=&FFB00:Call("",f$,a$): -T%=8 e%(ptr%)=&7B00:"Run "+f$+" "+a$: T%=8:f$: 7T%=9:Key("/SrLoad "+f$+" I|MCH."""+run$+"""|M"):  T%=10  $T%=11:Call("Archive",Ar$,f$): T%=12:"Exec "+f$:""f$:   4OLoad:0,y%)c(1)" Load "f$" to "a$;c(0);:T%=t%(ptr%)&FF:off:a$=u(a$) >a$="VIEW"a$="WORD":T%=4 Ha$="BASIC":T%=8 R2(T%&FE)=4 a$="":Key("LOAD "+f$+"|M"):*WORD \+(T%&FE)=4:Key("READ "+f$+"|M"):*WORD f)T%=1(T%&FE)=6:"Load "+f$+" "+a$: p*T%=8:Key("LOAD"""+f$+"""|F|M"):21: z 4Dir(f$):"DIR "+f$:f$=1 "$%&",f$):Path$="" 1:0,y%)c(1);" "A$,1-(A$,1)="!"))" "n$(z%)" "a$;(wd%--1)13; Ado%:A$,1)="!":A%=("FN"+A$,2))do%:A$+" "+n$(z%)+" "+a$ :sel%>1:(wd%--1)13; $ 8(ݤStamp:"Stamp "+n$(z%):SetDate:=0 B*ݤtype(a$):a$=u(a$):a$="TEXT":="FFF" La$="EXEC":="FFE" Va$="DATA":="FFD" `a$="BASIC":="FFB" ja$="FONT":="FF7" ta$="TELETEXT":="F7C" ~a$="ROM":="BBC" =a$ >ݤSetType:X%!2=&FFF00000+&100*("&"+a$):A%=file(n$(z%),2) JX%!6=e%(z%):X%!14=a%(z%):a$="FFE"a$="FF7":X%!6=-1:A%=file(n$(z%),3) SetDate:=0 -SetDate:(t%(z%)&FF)=2:X%!2=-1:X%!6=-1 #X%?5<>&FF (X%?4 &F0)<>&F0: 7(X%!2 &FFFFFF)>&FF0000 (X%!2 &FFFFFF)<&FF8000: (X%!2 &FFFF00)=&FFDD00: (X%!15 &FF1F)=0: Cdy%=X%?15 31:mn%=X%?16 15:yr%=1981+(X%?16 16)+(X%?15 &E0)/2 (ConvDate(data%,dy%,mn%,yr%,0,0,0,0) 1X%!6=!data%:X%?2=data%?4:A%=file(n$(z%),1): @ConvDate(mem%,d%,m%,y%,hr%,mn%,sc%,cs%):y%<100:y%=y%+1900 y%=y%400 qd%=y%*365.25+m%*30+d%+"120112234455",m%,1)+((y%4)=0)-((y%-1)100)-(m%>2((y%4)=0(y%100)<>0y%=0))+36493 d%>146096:d%=d%-146097 (=d%=d%*&41EB:mem%!1=d%+d%:d%=((hr%*60+mn%)*60+sc%)*100+cs% 2#?mem%=d%:mem%!1=mem%!1+d%256: F3ݤRename:"Rename "+n$(z%)+" "+a$+"."+n$(z%):=0 ZTݤCopy:file(a$,5)=2:"Copy "+n$(z%)+" "+a$+"."+n$(z%) "Copy "+n$(z%)+" "+a$ dMv%:"Delete "+n$(z%) n=0 =Copy(Mv%):a$="":a$=w$:10+f$,y%)a$;:" "A$:A$<>"": $Mv%a$,":")=0:do("!Rename"): ,sel%>1(t%(ptr%)&FF)<>2:do("!Copy"): JCall("TreeCopy",Tr$,f$+" "+a$+"."+f$+" A~C"+"~",1+Mv%)+"DEF~PR~S"):