this is what i did inst
ead. while not feof(fptr) do begin
freadrec(fptr,urec);tmphandle := urec.name;tm
plevel := urec.level;if urec.on_now = true then
beginwritepipe(' '+padrt(tmphandle,35,' '));
writepipe(' '+padrt(int2str(tmppoints),10,' '));writ
epipe(''+ padrt(int2str(tmplevel),2,' '));writepipe
ln('On');end; end;writeln('
|PA');fclose(fptr);readplayer(tmpindex);
end; .úùDream Maste
rùú. øùúùøøùú
ùø DoRE!ACiDiC!Demonic
[dreamland.darktech.org]
--- Mystic BBS v1.12 A31 (Windows)
* Origin: |08--[|15!|07dreamland BBS dreamland.darktech.org (21:1/163)