/* 

   ALL 1.0

	Add ALL to the bbsmenu by:

		ALL, Access Level Lister|/#0Pfiles:ALL_1.0/

	Thats it. Enjoy the software!

	Greetings to:
			Lord Berek
			Heavy Metal
			Lazarus Long
			Light Speed
			

	Call the Underground BBS (207) 882-7787

*/






options results

signal on ERROR
signal on SYNTAX

title="\f1\c1\z6 Access Level Lister \q1 \z2\c1                               \q1\n1"
unused='<<<UNUSED>>>'

Accounts=0
call open(UData,"SysData:bbs.adata","R")
do zz=1 to 24
  Account_Pos=0
  call seek(UData,Account_Pos)
  Account=readch(UData,21)
  Null_Pos=pos(d2c(0),Account)
  Purged=0
  if Null_Pos>0 then do
    if Null_Pos=1 then purged=1
    if purged=0 then Account=substr(Account,1,Null_Pos-1)
  end
  if purged=1 then Account=Unused
  Acc.Accounts=Account
  Accounts=Accounts+1	  
  Next_Account=135
  call seek(UData,Next_Account)
end
call close(UData)

display:
transmit title
do i=1 to 12
j=2*i;x=j-1;y=j;x=x-1;y=y-1
one=(left(acc.x,21));two=(left(acc.y,21))
v=y')';d=x')'
mmm=(right(v,3));nnn=(right(d,3))
col='\z1\c4';num='\z5\c1';cool=col
if acc.x=unused then  col='\z1\c6'
if acc.y=unused then cool='\z1\c6'
transmit '\q1'num''nnn'\q1 'col' 'one'\q1 'num''mmm'\q1 'cool' 'two'\q1 '
end
transmit '\n1\z2\c1                              \q1 \z6\c1    by:\c7  Alex Dread   \q1'