;                            ---------------
;                            PAiN!-EVER V1.0
;                            ---------------
;
;
; You may freely modify this tool to suit your needs...
;
; IF you leave my credits you are cool !
;
; But if you re-distribute your modified version you are
; an asshole not worth living !
;
; I've only included this source because i personally hate it
; if i got a kewl ppe and can't learn a little bit from it
; because the programmer thought he is cool and included some
; anti-decompilation-features...
; THIS IS TOO POOR, GUYS !!!
; PPL is toooooo easy to be proud of programming in !
; And if noone has the ability to learn something from other ppe's
; there will be always so many totally-crap-releases that are now.
; In my personal view you could forget 90% of all ppe's released !!!!
;
; Think about that !!
;
; Sorry for this structure but i've ever shitten on
; detailed explanations and good-looking structures.
; I even use no procedures hehe...
;
;


string s,ts,tts,cm,ss
string un(1),ex(10),dp,lame,drd,dsr
string u1,u2,u3,cku,ckd,ckt,cfu,cfd,cft,cu1,cu2,cu3,cuh,chl,cl1,cl2,cl3
integer j,i,o,mx,x,xx,y,mex,xy,mmx,lev,sx
integer sun(1),snfu(1),snfd(1),snft(1),stbd(1),stbu(1),stbt(1),ur(1),sur(1)
uword nfu(1),nfd(1),nft(1)
dreal tbd(1),tbu(1),tbt(1)
boolean exc

if (!(ansion())) then
cls
println "ANSi REQUiRED...SWiTCH 0N ANSi !"
delay 20
end
endif

if (grafmode()="R") then
cls
println "RiP-SUPP0RT WiLL F0LL0W S00N..."
delay 20
end
endif

goto st

:trn
let tts=""
if (len(ts)=1) then let tts="            "+ts:return:endif
if (len(ts)=2) then let tts="           "+ts:return:endif
if (len(ts)=3) then let tts="          "+ts:return:endif
if (len(ts)=4) then let tts="        "+left(ts,1)+dp+mid(ts,2,3):return:endif
if (len(ts)=5) then let tts="       "+left(ts,2)+dp+mid(ts,3,3):return:endif
if (len(ts)=6) then let tts="      "+left(ts,3)+dp+mid(ts,4,3):return:endif
if (len(ts)=7) then let tts="    "+left(ts,1)+dp+mid(ts,2,3)+dp+mid(ts,5,3):return:endif
if (len(ts)=8) then let tts="   "+left(ts,2)+dp+mid(ts,3,3)+dp+mid(ts,6,3):return:endif
if (len(ts)=9) then let tts="  "+left(ts,3)+dp+mid(ts,4,3)+dp+mid(ts,7,3):return:endif
if (len(ts)=10) then let tts=left(ts,1)+dp+mid(ts,2,3)+dp+mid(ts,5,3)+dp+mid(ts,8,3):return:endif
return

:st

let u1=left(readline(ppepath()+"p!-ever1.cfg",1),4)
let u2=left(readline(ppepath()+"p!-ever1.cfg",2),4)
let u3=left(readline(ppepath()+"p!-ever1.cfg",3),4)
let cku=left(readline(ppepath()+"p!-ever1.cfg",4),4)
let ckd=left(readline(ppepath()+"p!-ever1.cfg",5),4)
let ckt=left(readline(ppepath()+"p!-ever1.cfg",6),4)
let cfu=left(readline(ppepath()+"p!-ever1.cfg",7),4)
let cfd=left(readline(ppepath()+"p!-ever1.cfg",8),4)
let cft=left(readline(ppepath()+"p!-ever1.cfg",9),4)
let cu1=left(readline(ppepath()+"p!-ever1.cfg",10),4)
let cu2=left(readline(ppepath()+"p!-ever1.cfg",11),4)
let cu3=left(readline(ppepath()+"p!-ever1.cfg",12),4)
let cuh=left(readline(ppepath()+"p!-ever1.cfg",13),4)
let chl=left(readline(ppepath()+"p!-ever1.cfg",14),4)
let cl1=left(readline(ppepath()+"p!-ever1.cfg",15),4)
let cl2=left(readline(ppepath()+"p!-ever1.cfg",16),4)
let cl3=left(readline(ppepath()+"p!-ever1.cfg",17),4)
let dp=left(readline(ppepath()+"p!-ever1.cfg",22),1)
let lame=left(readline(ppepath()+"p!-ever1.cfg",23),13)
let drd=left(readline(ppepath()+"p!-ever1.cfg",24),40)
let dsr=left(readline(ppepath()+"p!-ever1.cfg",25),40)
let lev=s2i(readline(ppepath()+"p!-ever1.cfg",26),10)
let y=s2i(readline(ppepath()+"p!-ever1.cfg",27),10)
if ((y<0)|(y>7)) then
cls
println "ERR0R iN C0NFiG-FiLE = S0RT-0RDER 0UT 0F RANGE...EXiTiNG"
println
delay 20
end
endif

fopen 1,ppepath()+"p!-ever1.cfg",o_rd,s_dn
for i=1 to 35
fget 1,s
next

let exc=false
let i=0
:lp3
fget 1,ex(i)
if (len(ex(i))<2) goto lp4
inc i
let exc=true
goto lp3
:lp4
fclose 1
let mex=i-1
let mx=(fileinf(readline(pcbdat(),29),4))/400
if (mx<11) then
cls
println "PAiN!-EVER D0ESN'T SUPP0RT A USERBASE WiTH LESS THAN 20 USERS !"
delay 50
end
endif
cls
println drd
redim nfu,mx
redim nfd,mx
redim nft,mx
redim tbu,mx
redim tbd,mx
redim tbt,mx
redim un,mx
redim snfu,mx
redim snfd,mx
redim snft,mx
redim stbu,mx
redim stbd,mx
redim stbt,mx
redim sun,mx
redim ur,mx
redim sur,mx
let o=0
for i=1 to mx
getaltuser i
if (exc=true) then for j=0 to mex
if (u_name()=ex(j)) goto lp7
next
endif
let nfu(o)=u_ful()
let nfd(o)=u_fdl()
let nft(o)=nfu(o)+nfd(o)
let un(o)=u_name()
let tbu(o)=u_bul()
let tbd(o)=u_bdl()
let tbt(o)=tbu(o)+tbd(o)
let ur(o)=i
inc o
:lp7
next
let mmx=mx-mex-1
cls
println dsr
sort un,sun
sort nfu,snfu
sort nfd,snfd
sort nft,snft
sort tbu,stbu
sort tbd,stbd
sort tbt,stbt
sort ur,sur
let x=1
let xx=0
let y=1
println "@POFF@"
dispfile ppepath()+"p!-ever1.pcb",graph

:lp1
ansipos 4,2
print cu1+"S"+cu2+"0RTE"+cu3+"D "+cu1+"B"+cu2+"Y "
if (y=1) println cu1+"N"+cu2+"AM"+cu3+"E          "
if (y=2) println cu1+"B"+cu2+"YTE"+cu3+"S "+cu1+"U"+cu2+"/L'e"+cu3+"d       "
if (y=3) println cu1+"B"+cu2+"YTE"+cu3+"S "+cu1+"D"+cu2+"/L'e"+cu3+"d       "
if (y=4) println cu1+"B"+cu2+"YTE"+cu3+"S "+cu1+"T"+cu2+"RADE"+cu3+"D       "
if (y=5) println cu1+"F"+cu2+"iLE"+cu3+"S "+cu1+"U"+cu2+"PL0ADE"+cu3+"D     "
if (y=6) println cu1+"F"+cu2+"iLE"+cu3+"S "+cu1+"D"+cu2+"0WNL0ADE"+cu3+"D    "
if (y=7) println cu1+"F"+cu2+"iLE"+cu3+"S "+cu1+"T"+cu2+"RADE"+cu3+"D     "
if (y<5) then
ansipos 32,4
println cl1+" B"+cl2+"YTE"+cl3+"S "+cl1+"U"+cl2+"/L'e"+cl3+"d    "
ansipos 48,4
println cl1+" B"+cl2+"YTE"+cl3+"S "+cl1+"D"+cl2+"/L'e"+cl3+"d    "
ansipos 65,4
println cl1+"B"+cl2+"YTE"+cl3+"S "+cl1+"T"+cl2+"RADE"+cl3+"D     "
endif
if (y>4) then
ansipos 32,4
println cl1+"F"+cl2+"iLE"+cl3+"S "+cl1+"U"+cl2+"PL0ADE"+cl3+"D    "
ansipos 48,4
println cl1+"F"+cl2+"iLE"+cl3+"S "+cl1+"D"+cl2+"0WNL0ADE"+cl3+"D  "
ansipos 65,4
println cl1+" F"+cl2+"iLE"+cl3+"S "+cl1+"T"+cl2+"RADE"+cl3+"D     "
endif
ansipos 15,4
if (mx<10) println cu1+"00",mx
if ((mx>9)&(mx<100)) println cu1+"0",mx
if (mx>99) println cu1,mx

for i=0 to 9
ansipos 1,6+i
let xy=i+1+xx
if (xy<10) print cuh+"00"+i2s(xy,10)
if ((xy>9)&(xy<100)) print cuh+"0"+i2s(xy,10)
if (xy>99) print cuh+i2s(xy,10)

if (y=1) then
let s=un(sun(i+xx))
ansipos 5,6+i
println "                         "
ansipos 5,6+i
println u1+left(s,1)+u2+mid(s,2,len(s)-2)+u3+mid(s,len(s),1)
ansipos 33,6+i
let ts=i2s(tbu(sun(i+xx)),10)
gosub trn
println cku+tts
ansipos 49,6+i
let ts=i2s(tbd(sun(i+xx)),10)
gosub trn
println ckd+tts
ansipos 65,6+i
let ts=i2s(tbt(sun(i+xx)),10)
gosub trn
if (tts<>"            0") println ckt+tts
if (tts="            0") println cl1+lame
endif

if (y=2) then
let s=un(stbu(mx-(i+1+xx)+1))
ansipos 5,6+i
println "                         "
ansipos 5,6+i
println u1+left(s,1)+u2+mid(s,2,len(s)-2)+u3+mid(s,len(s),1)
ansipos 33,6+i
let ts=i2s(tbu(stbu(mx-(i+1+xx)+1)),10)
gosub trn
println cku+tts
ansipos 49,6+i
let ts=i2s(tbd(stbu(mx-(i+1+xx)+1)),10)
gosub trn
println ckd+tts
ansipos 65,6+i
let ts=i2s(tbt(stbu(mx-(i+1+xx)+1)),10)
gosub trn
if (tts<>"            0") println ckt+tts
if (tts="            0") println cl1+lame
endif

if (y=3) then
let s=un(stbd(mx-(i+1+xx)+1))
ansipos 5,6+i
println "                         "
ansipos 5,6+i
println u1+left(s,1)+u2+mid(s,2,len(s)-2)+u3+mid(s,len(s),1)
ansipos 33,6+i
let ts=i2s(tbu(stbd(mx-(i+1+xx)+1)),10)
gosub trn
println cku+tts
ansipos 49,6+i
let ts=i2s(tbd(stbd(mx-(i+1+xx)+1)),10)
gosub trn
println ckd+tts
ansipos 65,6+i
let ts=i2s(tbt(stbd(mx-(i+1+xx)+1)),10)
gosub trn
if (tts<>"            0") println ckt+tts
if (tts="            0") println cl1+lame
endif

if (y=4) then
let s=un(stbt(mx-(i+1+xx)+1))
ansipos 5,6+i
println "                         "
ansipos 5,6+i
println u1+left(s,1)+u2+mid(s,2,len(s)-2)+u3+mid(s,len(s),1)
ansipos 33,6+i
let ts=i2s(tbu(stbt(mx-(i+1+xx)+1)),10)
gosub trn
println cku+tts
ansipos 49,6+i
let ts=i2s(tbd(stbt(mx-(i+1+xx)+1)),10)
gosub trn
println ckd+tts
ansipos 65,6+i
let ts=i2s(tbt(stbt(mx-(i+1+xx)+1)),10)
gosub trn
if (tts<>"            0") println ckt+tts
if (tts="            0") println cl1+lame
endif

if (y=5) then
let s=un(snfu(mx-(i+1+xx)+1))
ansipos 5,6+i
println "                         "
ansipos 5,6+i
println u1+left(s,1)+u2+mid(s,2,len(s)-2)+u3+mid(s,len(s),1)
ansipos 33,6+i
let ts=i2s(nfu(snfu(mx-(i+1+xx)+1)),10)
gosub trn
println cfu+tts
ansipos 49,6+i
let ts=i2s(nfd(snfu(mx-(i+1+xx)+1)),10)
gosub trn
println cfd+tts
ansipos 65,6+i
let ts=i2s(nft(snfu(mx-(i+1+xx)+1)),10)
gosub trn
if (tts<>"            0") println ckt+tts
if (tts="            0") println cl1+lame
endif

if (y=6) then
let s=un(snfd(mx-(i+1+xx)+1))
ansipos 5,6+i
println "                         "
ansipos 5,6+i
println u1+left(s,1)+u2+mid(s,2,len(s)-2)+u3+mid(s,len(s),1)
ansipos 33,6+i
let ts=i2s(nfu(snfd(mx-(i+1+xx)+1)),10)
gosub trn
println cfu+tts
ansipos 49,6+i
let ts=i2s(nfd(snfd(mx-(i+1+xx)+1)),10)
gosub trn
println cfd+tts
ansipos 65,6+i
let ts=i2s(nft(snfd(mx-(i+1+xx)+1)),10)
gosub trn
if (tts<>"            0") println ckt+tts
if (tts="            0") println cl1+lame
endif

if (y=7) then
let s=un(snft(mx-(i+1+xx)+1))
ansipos 5,6+i
println "                         "
ansipos 5,6+i
println u1+left(s,1)+u2+mid(s,2,len(s)-2)+u3+mid(s,len(s),1)
ansipos 33,6+i
let ts=i2s(nfu(snft(mx-(i+1+xx)+1)),10)
gosub trn
println cfu+tts
ansipos 49,6+i
let ts=i2s(nfd(snft(mx-(i+1+xx)+1)),10)
gosub trn
println cfd+tts
ansipos 65,6+i
let ts=i2s(nft(snft(mx-(i+1+xx)+1)),10)
gosub trn
if (tts<>"            0") println ckt+tts
if (tts="            0") println cl1+lame
endif
next

:lp5
ansipos 1,5+x
let xy=x+xx
if (xy<10) print chl+"00"+i2s(xy,10)
if ((xy>9)&(xy<100)) print chl+"0"+i2s(xy,10)
if (xy>99) print chl+i2s(xy,10)

:lp2
let s=inkey()
if (s="") goto lp2
ansipos 1,5+x
if (xy<10) print cuh+"00"+i2s(xy,10)
if ((xy>9)&(xy<100)) print cuh+"0"+i2s(xy,10)
if (xy>99) print cuh+i2s(xy,10)
if (s=chr(32)) then
inc y
if (y>7) let y=1
goto lp1
endif

if ((s="DOWN")&(xx+x<mx-1)) then
inc x
if (x>10) then
dec x
inc xx
if ((xx+x)>mmx) dec xx
goto lp1
endif
goto lp5
endif

if (s="UP") then
dec x
if ((x<1)&(xx=0)) then
inc x
goto lp5
endif
if (x<1) then
inc x
dec xx
if (xx<0) inc xx
goto lp1
endif
goto lp5
endif

if ((s="LEFT")&(xx>0)) then
let xx=xx-10
if (xx<0) let xx=0
goto lp1
endif

if ((s="RIGHT")&(xx+x<mx-10)) then
let xx=xx+10
if (xx+x>mmx-10) then
let xx=mmx-10
let x=0
:lp10
inc x
if (xx+x<mmx) goto lp10
endif
goto lp1
endif

if (s="HOME") then
let x=1
let xx=0
goto lp1
endif

if (s="END") then
let xx=mmx-10
let x=0
:lp9
inc x
if (xx+x<mmx) goto lp9
goto lp1
endif

if (s=chr(13)) then
for i=1 to 10
ansipos 5,5+i
print "                         "
if (!(i=x)) then
ansipos 33,5+i
print "             "
ansipos 49,5+i
print "             "
ansipos 65,5+i
print "             "
endif
next
if (y=1) getaltuser u_recnum(un(sun(x-1+xx)))
if (y=2) getaltuser u_recnum(un(stbu(mx-(x+xx)+1)))
if (y=3) getaltuser u_recnum(un(stbd(mx-(x+xx)+1)))
if (y=4) getaltuser u_recnum(un(stbt(mx-(x+xx)+1)))
if (y=5) getaltuser u_recnum(un(snfu(mx-(x+xx)+1)))
if (y=6) getaltuser u_recnum(un(snfd(mx-(x+xx)+1)))
if (y=7) getaltuser u_recnum(un(snft(mx-(x+xx)+1)))
ansipos 6,7
println cl1+u_name()
ansipos 6,8
println cl2+u_city()
ansipos 6,10
println u1+"L"+u2+"EVE"+u3+"L        : "+cl2+i2s(u_sec(),10)
ansipos 6,11
println u1+"L"+u2+"0G0N"+u3+"S       : "+cl2+i2s(u_logons(),10)
ansipos 6,12
println u1+"L"+u2+"AS"+u3+"T "+u1+"L"+u2+"0G0"+u3+"N   : "+cl2,u_ldate()
ansipos 6,13
println u1+"M"+u2+"SG"+u3+"S "+u1+"W"+u2+"RiTTE"+u3+"N : "+cl2+i2s(u_msgwr(),10)
ansipos 6,14
println u1+"M"+u2+"SG"+u3+"S "+u1+"R"+u2+"EA"+u3+"D    : "+cl2+i2s(u_msgrd(),10)
ansipos 1,23
wait
goto lp1
endif

if (upper(s)="S") then
ansipos 5,21
print "@X01ENTER USERNAME T0 SEARCH F0R..."
delay 1
ansipos 5,21
print "@X09ENTER USERNAME T0 SEARCH F0R..."
delay 1
ansipos 5,21
print "@X03ENTER USERNAME T0 SEARCH F0R..."
delay 1
ansipos 5,21
print "@X0BENTER USERNAME T0 SEARCH F0R..."
delay 1
ansipos 5,21
print "@X0FENTER USERNAME T0 SEARCH F0R..."
delay 1
ansipos 5,21
print cl1+"E"+cl2+"NTE"+cl3+"R "+cl1+"U"+cl2+"SERNAM"+cl3+"E "+cl1+"T"+cl2+"0 "+cl1+"S"+cl2+"EARC"+cl3+"H "+cl1+"F"+cl2+"0"+cl3+"R..."

let cm=""
let sX=0
:lp40
ansipos 38+((26-len(cm))/2),21
if (sx>2) print " "+u1+left(cm,1)+u2+mid(cm,2,sx-2)+u3+right(cm,1)
if (sx=2) print " "+u1+left(cm,1)+u2+right(cm,1)
if (sx<2) print " "+u1+cm
print "@X84▒ "
ansipos 1,1
:lp41
let ss=inkey()
if (ss="") goto lp41
if (ss=chr(13)) goto lp42
if (ss=chr(8)) then
if (sx>1) then
dec sx
let cm=left(cm,len(cm)-1)
goto lp40
endif
if (sx=1) then
let sx=0
let cm=""
goto lp40
endif
if (sx=0) goto lp40
endif

if (len(ss)=1) then
if (sx<26) then
inc sx
let cm=cm+upper(ss)
endif
goto lp40
endif
goto lp40

:lp42
ansipos 3,21
print "                                                              "
if (sx<2) goto lp1
ansipos 26,21
print "@X8D          SEARCHiNG...           "
s=upper(cm)
for i=0 to mmx
if (y=1) if ((un(sun(i-1)))=s) goto jo
if (y=2) if (un(stbu(mx-(i)+1))=s) goto jo
if (y=3) if (un(stbd(mx-(i)+1))=s) goto jo
if (y=4) if (un(stbt(mx-(i)+1))=s) goto jo
if (y=5) if (un(snfu(mx-(i)+1))=s) goto jo
if (y=6) if (un(snfd(mx-(i)+1))=s) goto jo
if (y=7) if (un(snft(mx-(i)+1))=s) goto jo
next
ansipos 26,21
print "                                "
ansipos 31,21
print "@X01USER N0T F0UND..."
delay 1
ansipos 31,21
print "@X09USER N0T F0UND..."
delay 1
ansipos 31,21
print "@X03USER N0T F0UND..."
delay 1
ansipos 31,21
print "@X0BUSER N0T F0UND..."
delay 1
ansipos 31,21
print "@X0FUSER N0T F0UND..."
delay 1
ansipos 31,21
print "@X0BUSER N0T F0UND..."
delay 1
ansipos 31,21
print "@X03USER N0T F0UND..."
delay 1
ansipos 31,21
print "@X09USER N0T F0UND..."
delay 1
ansipos 31,21
print "@X01USER N0T F0UND..."
delay 1
ansipos 31,21
print "                                "
goto no
:jo
ansipos 26,21
print "                                "
if ((i>10)&(i<mmx-10)) then
let xx=i-5
if (xx<0) let xx=0
let x=5
endif
if ((i>10)&(i>=mmx-10)) then
let xx=i-10
let x=10
endif
if (i<10) then
let xx=0
let x=i
endif

goto lp1
:no
ansipos 26,21
print "                                "
endif

if (s="?") then
getuser
println "@CLS@@POFF@@X0F                                 @X03─[ @X0BPA@X03i@X0BN! @X03]─"
println "@X03               @X01▄▄▄▄▄▄▄▄▄   ▄▄▄▄▄  ▄▄   ▄▄▄▄▄▄▄▄▄   ▄▄▄▄▄▄▄▄▄▄▄"
println "@X01              @X05▐@X5D░▒▓▓█@X1D▀@X0D▀▀@X01▀  @X05▐@X5D░▒▓▓█@X01▌@X5D▐@X0D█@X1D▌@X01  @X05▐@X5D░▒▓▓█@X1D▀@X0D▀▀@X01▀  @X05▐@X5D░▒▓▓█@X1D▀@X0D▀@X5D▀@X0D██@X01█"
println "@X01    .∙.      @X03▌@X05▐@X5D▒▓▓██@X1D▄@X0D▄    @X05▐@X5D▒▓▓██▌@X0D██@X01▌  @X05▐@X5D▒▓▓██@X1D▄@X0D▄@X01▄   @X05▐@X5D▒▓▓██@X1D▄@X0D▄@X5D▄@X0D██@X01█ @X03▌"
println "@X01──∙°   °∙──■@X09▌@X03▌@X05▐@X5D▓▓██@X0D█@X1D▀@X0D▀    @X05▐@X5D▓▓██@X0D███@X1D▌@X0F   @X05▐@X5D▓▓██@X0D█@X1D▀@X0D▀@X01▀   @X05▐@X5D▓▓██@X0D███@X1D▄@X01▄   @X03▌@X09▌@X01■──∙.   .∙───"
println "@X01             @X03▌@X05▐@X3B▄@X5D▓█@X0D████@X5D▓@X01█  @X05▐@X3B▄@X5D▓█@X0D████@X01▌   @X05▐@X3B▄@X5D▓█@X0D█████@X15 @X01  @X05▐@X3B▄@X5D▓█@X0D██@X15▀@X5D▀@X0D██@X1D▄@X01▄ @X03▌      @X01°∙°"
println "@X01              @X05▐@X0F█@X3B▄@X3D▀█▀@X0D███@X01█  @X05▐@X0F█@X3B▄@X3D▀█▀@X0D█@X1D▌@X0F    @X05▐@X0F█@X3B▄@X3D▀█▀@X0D███@X15 @X01  @X05▐@X0F█@X3B▄@X3D▀█▀@X15 @X05 █@X0D██@X1D▌@X07"
println "@X0D               @X05▀▀▀▀▀▀▀▀    ▀▀▀▀▀▀      ▀▀▀▀▀▀▀▀    ▀▀▀▀▀  ▀▀@X0D▀@X01▀               ."
println "@X01                       .∙.          @X05V 0.1            @X01.∙.                    ."
println "@X01   .∙───∙.   .∙──────∙°   °∙───────∙.   .∙─────────∙°   °∙─────∙.   .∙────∙°"
println "@X01 .°       °∙°                        °∙°                         °∙°"
println "@X01.   @X09iDEA BY JULiE / PAiN!-S0A-DZNP            iNSPiRATi0N BY CHUG LEE / CNC"
println
println "@X09                             @X01(C) 1995 TYGER/PAiN!"
if (u_sec()>=lev) then
println
println "@X03(C0)SYS0P @X01-> @X0BPRESS @X08<@X07U@X08> T0 EDiT VALUES"
endif
println
wait
dispfile ppepath()+"p!-ever1.pcb",graph
goto lp1
endif

if (upper(s)="R") then
for i=1 to 10
ansipos 5,5+i
print "                         "
ansipos 33,5+i
print "             "
ansipos 49,5+i
print "             "
ansipos 65,5+i
print "             "
next
ansipos 32,4
clreol
if (y=1) getaltuser u_recnum(un(sun(x-1+xx)))
if (y=2) getaltuser u_recnum(un(stbu(mx-(x+xx)+1)))
if (y=3) getaltuser u_recnum(un(stbd(mx-(x+xx)+1)))
if (y=4) getaltuser u_recnum(un(stbt(mx-(x+xx)+1)))
if (y=5) getaltuser u_recnum(un(snfu(mx-(x+xx)+1)))
if (y=6) getaltuser u_recnum(un(snfd(mx-(x+xx)+1)))
if (y=7) getaltuser u_recnum(un(snft(mx-(x+xx)+1)))
ansipos 6,6
println cl1+u_name()
let dsr=u_name()
ansipos 6,7
println cl2+u_city()
ansipos 6,9
println cu3+"[CATEG0RY]"
ansipos 24,9
println "[RANK]"
ansipos 39,9
println "[BYTES]"
ansipos 6,10
println cu1+"B"+cu2+"YTE"+cu3+"S "+cu1+"U"+cu2+"PL0ADE"+cu3+"D   :"
ansipos 6,11
println cu1+"B"+cu2+"YTE"+cu3+"S "+cu1+"D"+cu2+"0WNL0ADE"+cu3+"D :"
ansipos 6,12
println cu1+"B"+cu2+"YTE"+cu3+"S "+cu1+"T"+cu2+"RADE"+cu3+"D     :"
ansipos 6,13
println cu1+"F"+cu2+"iLE"+cu3+"S "+cu1+"U"+cu2+"PL0ADE"+cu3+"D   :"
ansipos 6,14
println cu1+"F"+cu2+"iLE"+cu3+"S "+cu1+"D"+cu2+"0WNL0ADE"+cu3+"D :"
ansipos 6,15
println cu1+"F"+cu2+"iLE"+cu3+"S "+cu1+"T"+cu2+"RADE"+cu3+"D     :"

ansipos 25,10
println "@X8FWAiT"
for i=1 to mx
if (un(stbu(mx-(i)+1))=dsr) goto jo1
next
:jo1
ansipos 25,10
print cl1+"#"+cl2
if (i<10) println "00",i
if ((i>9)&(i<100)) println "0",i
if (i>99) println i
let ts=i2s(tbu(stbu(mx-(i)+1)),10)
gosub trn
ansipos 33,10
println cfu+tts

ansipos 25,11
println "@X8FWAiT"
for i=1 to mx
if (un(stbd(mx-i+1))=dsr) goto jo2
next
:jo2
ansipos 25,11
print cl1+"#"+cl2
if (i<10) println "00",i
if ((i>9)&(i<100)) println "0",i
if (i>99) println i
let ts=i2s(tbd(stbd(mx-i+1)),10)
gosub trn
ansipos 33,11
println cfu+tts

ansipos 25,12
println "@X8FWAiT"
for i=1 to mx
if (un(stbt(mx-(i)+1))=dsr) goto jo3
next
:jo3
ansipos 25,12
print cl1+"#"+cl2
if (i<10) println "00",i
if ((i>9)&(i<100)) println "0",i
if (i>99) println i
let ts=i2s(tbt(stbt(mx-i+1)),10)
gosub trn
ansipos 33,12
println cfu+tts

ansipos 25,13
println "@X8FWAiT"
for i=1 to mx
if (un(snfu(mx-(i)+1))=dsr) goto jo4
next
:jo4
ansipos 25,13
print cl1+"#"+cl2
if (i<10) println "00",i
if ((i>9)&(i<100)) println "0",i
if (i>99) println i
let ts=i2s(nfu(snfu(mx-i+1)),10)
gosub trn
ansipos 33,13
println cfu+tts

ansipos 25,14
println "@X8FWAiT"
for i=1 to mx
if (un(snfd(mx-(i)+1))=dsr) goto jo5
next
:jo5
ansipos 25,14
print cl1+"#"+cl2
if (i<10) println "00",i
if ((i>9)&(i<100)) println "0",i
if (i>99) println i
let ts=i2s(nfd(snfd(mx-i+1)),10)
gosub trn
ansipos 33,14
println cfu+tts

ansipos 25,15
println "@X8FWAiT"
for i=1 to mx
if (un(snft(mx-(i)+1))=dsr) goto jo6
next
:jo6
ansipos 25,15
print cl1+"#"+cl2
if (i<10) println "00",i
if ((i>9)&(i<100)) println "0",i
if (i>99) println i
let ts=i2s(nft(snft(mx-i+1)),10)
gosub trn
ansipos 33,15
println cfu+tts

ansipos 1,23
wait

goto lp1
endif

 if (s=chr(27)) then cls:end:endif
 goto lp5