string name(999),nac,bc,couleur,city(999),gac,coul(3),curname,coul2(4),verif,group,r$,com(6),ulname,ulby
 real num,upbytes(999)
 integer i,rnum(999),y,decr,i2,maxuser,flag,o,n,lev(5),z
 For n=1 to 4
 coul2(n)=readline(ppepath()+"userl.cnf",n)
 next

 lev(1)=readline(ppepath()+"userl.cnf",5)
 lev(2)=readline(ppepath()+"userl.cnf",7)
 lev(3)=readline(ppepath()+"userl.cnf",9)
 lev(4)=readline(ppepath()+"userl.cnf",11)
 lev(5)=readline(ppepath()+"userl.cnf",13)
 com(1)=readline(ppepath()+"userl.cnf",6)
 com(2)=readline(ppepath()+"userl.cnf",8)
 com(3)=readline(ppepath()+"userl.cnf",10)
 com(4)=readline(ppepath()+"userl.cnf",12)
 com(5)=readline(ppepath()+"userl.cnf",14)
 com(6)=readline(ppepath()+"userl.cnf",16)
 let ulby=readline(ppepath()+"userl.cnf",17)
 let num=1
 let y=6
 let coul(1)="@X08"
 let coul(2)="@X07"
 let coul(3)="@X0F"
 let name=""
 let curname=u_name()
 let i=1
 let flag=0
 
while (!(flag=2)) do
 getaltuser i
 let name=u_name()
 if (name=curname) inc flag
 inc i
endwhile
 
 let maxuser=i-2

:debut
 let verif="NOUSER"
 cls
 dispfile ppepath()+"udisp",defs
 for i=1 to maxuser
 let verif="NOUSER"
 let z=1
 GETALTUSER num
 let ulname=MID(u_name(),0,14)
 while (verif!="") do
 verif=readline(ulby+"\ulby.dat",z)
 if (verif=u_name()) then
 let ulname=readline(ULBY+"\ulby.dat",z+1)
 endif
 inc z
 endwhile
 let group=MID(u_city,0,23)
 ansipos 0,y
 print coul2(1),ulname
 ansipos 16,y
 print coul2(2),group
 ansipos 41,y
 print coul2(3),u_bul()/1000
 ansipos 51,y
 print coul2(4),u_bdl()/1000
 ansipos 58,y
 if ((u_bul()/1000)<=lev(1)) Print coul(2),com(1)
 if (((u_bul()/1000)>lev(1))&(u_bul()/1000<=lev(2))) Print com(2)  
 if (((u_bul()/1000)>lev(2))&(u_bul()/1000<=lev(3))) Print com(3)   
 if (((u_bul()/1000)>lev(3))&(u_bul()/1000<=lev(4))) Print com(4)    
 if (((u_bul()/1000)>lev(4))&(u_bul()/1000<=lev(5))) Print com(5)     
 if ((u_bul()/1000)>lev(5)) Print com(6)
 inc y
 inc num
 inc o
 if (o=13) gosub eff
 next
  
 :fin
 let r$=""
 ansipos 0,22
 clreol
 For n=1 to 3
 ansipos 20,22
 print coul(n)+"<Press ESC To Abort,Anything else to Continue>"
 delay 3
 next n  
 while (r$="") r$=inkey()
 :fin2
 cls
 For n=1 to 3
 ansipos 25,11
 print coul(n)+"<User List PPE | Coded By ÄÍFLyGuyÍÄ>"
 delay 6
 next n  
 delay 6
 cls
 end
 
 :eff
 let r$=""
 For n=1 to 3
 ansipos 20,22
 print coul(n)+"<Press ESC To Abort,Enter to Continue>"
 delay 3
 next n 
 while (r$="") r$=inkey()
 if (r$=chr(27)) goto fin2
 integer ay,ai
 let ai=0
 let ay=0
 string barre
 let barre="@X0FÄ@X07Ä@X08ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ@X08ÄÄ@X07ÄÄ@X0FÄ"
 for ai=1 to 23 
 ansipos 1,ay
 print barre
 ansipos 1,(23-ay)
  print barre
 delay 1
 inc ay
 ansipos 1,ay-1
 clreol
 ansipos 1,24-ay
 clreol
 next 
 
 
 dispfile ppepath()+"udisp",defs
 let o=0
 let y=6
 return