> EditPassL2 1.01 % Password file editor for Lv2 FS  (C) 1997 J.G.Harston (+ Based on SJ Password File Editor 1.02 2( (C) 1988 S.R.Lawrence, SJ Research <: F+&87:N$="31dec97":J$="$.PASSWORDS":*fx4 P@%=3:l%=:DhA Z *FX 200,0 dg%12,G 80,d%80:M$=0(A%)+0(X%)+0(Y%)+0(P%):O$=0(F%)+0(G%)+0(H%):d0%=M%:A%=0:H 20,J 256:I%=0&FF:J!I%=0::Q=400:H$(3):H$(0)="Off":H$(1)="Load":H$(2)="Run":H$(3)="Exec":G$=11," "):$d%="":K=0:I=11:L=24:M=13:m%=:O:v%Q:Q n)Q%0:k%=-Q%-1300:k%<128"No room": xa%k%,O 17 r"Level 2 Password file editor ";N$':"Maximum number of users=";k%17':X%=:>X%+150:R:$O=2:@:I$="":l%= :m%B *fx4,1 `%=@(_%):*fx15,1 X%=:X%="*"B X%=&8A_%<=M%C X%=&8B_%>1D &2F"":26,12:I$:*fx4 ,E: 6(E:M$="SJ Research Menu"*FX 200,1 @ JLM$="SJ Research Menu"X(g%):M%=d0%:"..returning to menu";:o=(200):O$ T *FX 4 ^: h26:=170,24)(39);:0,24)"Abandon (Y/N) ";:n%=&5F:n%="Y"n%="N":(n%);:n%="Y"0,24)(20);:0,24)"Abandoned";:E r=17l%@:tL@ |=17(l%):tB@  F0,23)(39);0,22);::" at line ";'"Press any key";::DhA l%@:tL@:tB@  ^F(A%,e0%,f0%,g0%,h0%):X%,Y%:?d%=e0%:d%!1=f0%:d%!5=g0%:d%!9=h0%:X%=d%:Y%=X%256:&FFD1: =ݤ7:A%,X%,Y%:$d%=J$:A%=&40:X%=d%:Y%=X%256:=(&FFCE)&FF 2ݤ0(h%):!g%=h%:=(g%?3)+(g%?2)+(g%?1)+(?g%) SX(h%):A%=3("SJ R",h%):X%=3("esea",h%):Y%=3("rch ",h%):P%=3("Menu",h%):: 4ݤ3(Q$,h%):w%=14:h%?(4-w%)=(Q$,w%,1))::=!h% 25:G("Add Delete Find Save Load Quit *",0): C:(-2)_%=M%:@: (-1)Y: H(L-2):_%=_%+1: 1H(A%):0,A%):B%=_%+(L-2-I)+1:B%<=M%3(B%)  0,I);: D:(-2)_%=1:@: &(-1)Z: 0*0,K);:11:B%=_%-(I-K)-1:B%>=13(B%) :_%=_%-1:0,I);: DY:_%=_%+22:_%>M%_%=M% N@: XZ:_%=_%-22:_%<1_%=1 b@: l?S:R=::E%+64>k%0(0):"User table full";:I%=:R=:dZB vt0(0):"New user:";:2(10):5(G)=0(S(G,10),1)<="9"S(G,10),1)>="0")0(0):"Invalid user name!";:I%=:dZB $G=""dZB 4:e%=0::e%=e%+1:`%=@(e%):?`%<33 e%=M%+1 S(G,10)=r(S(`%,10)):S(G,10)=r(S(`%,10)):0(0):"Already got that user!";:I%=:dZB (e%-_%)>11:_%=e%:@:t|B :e%>_%:C  e%<_%:D e%=_%:10  PROCI:VDU11:PROC4 e%=M%+1:M%=M%+1 ,$`%=A$:`%?10=13:`%?16=&80:0,I);:3(e%) $G=""R:5: T:_%>M% +!`%=0:`%!10=0:`%?&10=0:13:3(_%):13: =U:_1%:_1%=_%:0(0):"Find user:";:2(10):$G=""7:5: J_%=0::_%=_%+1:`%=@(_%):G$=r(1(`%,10)):G$=$G _%=M%:G$<>$G:_%=_1%  @: u@:26,12:G("User id Password option priVilege",1):5:4:0,0);:I%=_%-(I-K)_%+(L-2-I):0L-20,+1); *:0,I);: 4/r:0(0):"Load file:";:2(29):$G="":5: >8J$=$G:J%=J$,":"):J%>1J$,1)<>"-":J%=J$,":",J%+1) H1J%:$O=J$,J%+1,J$+".",".",J%)-J%-1) $O=2 R R:@: \R:I%:_:I%=0J: fI%<>1:J$" not a file": p(E%>k%"Password file is too long": zE%<128J: )M%=0:I%=0:W%=7:F(3,W%,a%,E%,0):#W% fI%=a%:J%=a% a%+E% 17:!I%=!J%:I%!4=J%!4:I%!8=J%!8:I%!12=J%!12:I%?16=J%?16:?I%:I%=I%+17:M%=M%+1 &:_%=1: J%=I% a%+E%-1:?J%=0:: J`:I%=1M%:o%=a%!(I%*&40+28)&FFFF:o%>0J?(o%8)=(J?(o%8))2^(o%8) : KJ:I%:I%=0604:a%!I%=0::I%=641244:a%!I%=-1::M%=0:_%=1:E%=128: IV::I%=0:x%=0::I%=I%+1:(?(@(I%)+&10)&40)<>0 ?@(I%)>32:x%=x%+1 OI%>M%::x%=0:'"WARNINGThere are no system privileged"'"WARNINGusers"' G"Save file "J$" to disc "$O" (Y/N) ?";:笤6:''"Save as: "J$:drC ގ2<>$O J$,":")=0:''"WARNINGYou are about to save the"'"WARNINGpassword file from "$O'"WARNINGto "2'':"Save (Y/N) ?";:笤6:@: I$="Password File saved" $W%=(J$):F(1,W%,a%,E%,0):#W%: pݤ5(z%):f%,u%:f%=-1::f%=f%+1:u%="""#$%&*.;:@[\]^{}|~,",((z%?f%)&7F)):(z%?f%&7F)=13f%=9u%>0:u%>0= =  B:*fx4 ::tL@ $m%26,12 . m%=::"*"$G:$G<>""a($G) 8$G="":DhA B @:m%=: L*3(_%):c%:c%=@(_%):?c%=0:(39);: V01(c%,10);10;11,);1(c%+10,6);6;18,); `N(c%?&10)3;" ";H$((c%?&10)3)" ";27,);:(c%?&10)&40:"System "; 7; j t7b:`%?&10=(X%-&30)((`%?&10)&FC):13:3(_%):13: ~am:A%,B%:0(0):"New password :";:2(6):A%=`%?&10:$(`%+10)=$G:`%?&10=A%:5:13:3(_%):13: ,n:`%?&10=(`%?&10)&40:13:3(_%):13: 0ݤ6:X%:X%=&5F:X%=&4EX%=&59:X%:=X%=&59 'G(K$,s%):0(s%):K$;:4:0,I);: ݤ@(_%)=a%+17*_%-17 0(s%):28,0,s%,39,s%,12: 4:28,0,24,39,2: I:28,0,24,39,I+2: 8(K,W):28,0,K+W-1,39,K: A:b%=G?I%:I%=I%+1: +s:("SAVE editpass! "+~+" "+~P): tݤ2:H!1=d%:X%=H:Y%=X%256:A%=5:&FFD1:i%=?d%:L$="":f%=1::i0%=d%?f%:L$=L$+(d%?f%):f%=f%+1:f%=i%+1d%?f%=32:=L$ #ݤ1(A%,N%):A%?N%:A%?N%=13:=$A% ݤr(A$):A$="":=""  EA%=1A$:A$,A%,1)>"`":A$=A$,A%-1)+(A$,A%,1)&5F)+A$,A%+1)  :=A$  Q: (>_:$G=J$:!H=G:A%=5:X%=H:Y%=X%256:I%=&FFDD255:E%=H!10: 2,a($d%):X%,Y%:X%=d%:Y%=X%256:&FFF7: <3O:X%=H:Y%=X%256:A%=&13:?H=5:H?1=255:&FFF1: F]2(i%):A%,X%,Y%:A%=0:X%=H:Y%=X%256:!H=G:H?2=i%:H?3=32:H?4=127:&FFF1:A$=$G:$G=r($G): P$ݤS(A%,N%): A%?N%:A%?N%=13:=$A%