tipc
Banned
What language/vendor was it written in ... how many lines of code ... how long did it take you'll ... how many cycles of revision before it was stable.
What language/vendor was it written in ... how many lines of code ... how long did it take you'll ... how many cycles of revision before it was stable.
I guess it'd have to be this: https://int10h.org/blog/2019/05/fontraption-vga-text-mode-font-editor/
Written in fasm; everything included, it's (...*counts*...) 7334 lines of code, 66 different revisions. :lol: Must've worked on it for 3-4 months on and off.
Professionally? Probably some kind of PDF catalogue generator with Excel sheets as input, written in VBA, but that was years ago so I don't really recall or have the stats anymore.
The bbs software in basic ... that impresses me especially somehow . How did it run?
Of course, "lines" isn't really an ideal comparison.
Real Programmers™ don't write applications--they write systems code.
if Length(PP.curdir)<36 then
pt:=' '+PP.curdir+' '
else pt:=' \...'+Copy(PP.curdir,Length(PP.curdir)-30,31)+' ';
Ptr:=PP.f_ptr;
if PP.vol='' then PP.vol:='No Label';
WriteString(1,cc+(40-length(pt)) div 2,pt,Pal[8]);
WriteString(22,cc+1+(cc*(34-length(PP.vol))) div 40,'['+PP.vol+']',Pal[7]);
if PP.vol='No Label' then PP.vol:='';
{if PP.empty then exit;}
inc(ptr,sizeof(filrec)*row);
for i:=row to n+row do begin
if (i <PP.files) and (not PP.empty) then
begin fname:=ptr^.filename;
{if (ptr^.fileattr and 16) = 0 then StrLwr(fname);}
if (Ptr^.fileattr and 2) <> 0
then fname[1]:=upcase(fname[1]);
if ((Ptr^.fileattr and Hidden) <> 0) and (Pos('.',Fname)>0)
then fname[Pos('.',Fname)+1]:=upcase(fname[Pos('.',Fname)+1]);
SortFIle(fname);
for a := length(fname) to 11 do fname:=fname+' ';
fname:=fname+'│';
if (Ptr^.fileattr and 16) = 0
then Str(Ptr^.filesize:10,pt)
else if fname[1]='.'
then pt:='�UP──-DIR�'
else pt:='�SUB─-DIR�';
fname:=fname+pt+'│';
DateTimeCnv(pt,Ptr^.filedttm);
fname:=fname+pt; {SetFattr}
if Ptr^.selected then WriteString(2+i-row,cc,fname,Pal[1]) else
WriteString(2+i-row,cc,fname,Pal[2]);
inc(ptr,sizeof(filrec));
end
else WriteString(2+i-row,cc,' │ │ │ ',Pal[1]);
end;
end;
procedure Put_File(PP:Panel;cc,row,x:word;active:boolean);
var
fname,pt:string;
{ptr:P_filrec;}
begin
if PP.empty then exit;
ptr:=PP.F_ptr;
inc(ptr,sizeof(filrec)*(row+x));
fname:=ptr^.filename;
{if (ptr^.fileattr and 16) = 0 then StrLwr(fname);}
if (Ptr^.fileattr and 2) <> 0 then fname[1]:=upcase(fname[1]);
if ((Ptr^.fileattr and Hidden) <> 0) and (Pos('.',Fname)>0) then fname[Pos('.',Fname)+1]:=upcase(fname[Pos('.',Fname)+1]);
SortFile(fname);
for a := length(fname) to 11 do fname:=fname+' ';
fname:=fname+'│';
if (Ptr^.fileattr and 16) = 0 then Str(Ptr^.filesize:10,pt)
else if fname[1]='.' then pt:='�UP──-DIR�'
else pt:='�SUB─-DIR�';
fname:=fname+pt+'│';
DateTimeCnv(pt,Ptr^.filedttm);
fname:=fname+pt;
if active
then If Ptr^.selected
then WriteString(2+x,cc,fname,Pal[3])
else WriteString(2+x,cc,fname,Pal[4])
else if Ptr^.selected
then WriteString(2+x,cc,fname,Pal[1])
else WriteString(2+x,cc,fname,Pal[2])
The bbs software in basic ... that impresses me especially somehow . How did it run?
Pretty well! When I closed up shop in 1988, one of the members took it over. He was extremely surprised to find that the entire BBS ran off of 4 floppies. He thought for sure I had a rear admiral (which I desperately wanted at the time but could not afford. )
None of us have studied as programmers yet, so there is code like this: