Search

... Begin a:=ffinfo.attr; If (a And 8)=8 Then exit; AnsiColor(11); S:=ffinfo.name; i:=1; While i<= length(...

...Num); UpString(UD.FileName); FSplit(ud.filename,path,_name,_ext); AnsiReset; if (n=1) then GoXY(FilePos[2,1],FilePos[2,2]) else GoXY(...

...npt) Do If Not (inpt[B] in ['-','A'..'Z','a'..'z']) Then Begin Ansicolor(117); For I:=1 to Length(inpt) Do SendFull(^H); Wri...

...iigraphics, { display only ascii graphics } ansigraphics, { display ansi/ascii graphics } ...

... boolean; isNew : boolean; allowLogin : boolean; fromLogonAnsi : boolean; {:::::::::::::::::::::::::::::::::::::::::::::::::::::::::...

...::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::} {$I ANSIS.SKA} Procedure Show(S : String); Begin gotoxy(3,wherey); ...

...)-5)); end else begin if (node<>cfg.nodenum) then begin AnsiColor(URec.Color1); multiColor('|03<'); AnsiColor(URec.Color3...

...::::::::::::::::::::::::::::::::::::::::::::} const realnum = 257; {$I ANSIS.SKA} {::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::...

...::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::} {$I ANSIS.SKA} var mInFile : file; mOutFile : text; mMenuData : menuR...

...oolean; MsgConference : Array[1..99] Of Boolean; End; {$I ANSIS.SKA} pVersion = '.01a'; Var TFile, OldTFile : File Of Lstr; ...

...ws, subsOvr, chatStuf, subs2, textRet, mailRet, userRet, flags, ansiEdit, protocol, mainR2, overRet1, topUser, rumors, mess0, me...

...::::::::::::::::::::::::::::::::::::::} Const sTotalStrings = 260; {$I ANSIS.SKA} {::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::...

...ay', 'Jun','Jul','Aug','Sep','Oct','Nov','Dec'); {$I ANSIS.SKA} Const FilesOpen : Boolean = FALSE; Type BufArray = Array[1.....

... 1; U.UDLevel := 101; U.UDPoints := 101; U.Config := [ansigraphics, asciigraphics, lowercase, eightycols, linefeeds, postprompts]...

...rret1,rumors,MyComman,FileLock,playshit; Procedure ShowCREDITS; BEGIN ansicls; ansiColor(7); sendfull(' The Infusion Bulletin Board System - ve...

... Windows, StatRet, TextRet, Subs1, SubsOvr, Subs2, UserRet, MailRet, AnsiEdit, Protocol, FileLock; Function ReEdit (Var M : Message; G ...

...ed(mCount[2])*cfg.genDescriptionPadding),cfg.genStartYPos+mCount[1]); ansiColor(cfg.genKeyBoxColor); sendFull(cfg.genKeyBoxCharz[1]); ansiCo...

... Until b; getapath:=p End; begin formatbfile; AnsiCls; WriteHdr('Creating Area Number: '+curboardname+'...'); w...

... Procedure PlaceBar(Hi : Boolean); Begin If Hi Then ansicolor(urec.color7) Else ansicolor(urec.color6); GoXy(9,...

...essfully!'^M); Writelog(0,0,'Uploaded a QWK Packet'); HoldScreen; AnsiCls; Seek(T, 1); S[0] := #128; Total:=0; SendCr(''); Wri...