Search
Categories (1)
Files (631)
-
install.dat
in
inf15a20.zip
... ≤Æw% MSGS/EMAIL.MAPPK !få%≤c╩╪┌ n MSGS/BBSANSI.TXT¡Æ1o┬0à#17⌐:▒ ▌ ü¼╠ ëì. ¥· N╬° íⁿ{£ñ¡┌NτIû<}·▐│c╙ è.QpΓ 6 ² ...
-
ACS.PAS
in
infusrc.zip
...s,2,length(s)-1); vsi:= valu(vs); case s[1] of 'A':res := ANSIGraphics IN U.CONFIG; 'B':res := (connectbaud >= valu(vs+'00')) ...
-
ANSIEDIT.PAS
in
infusrc.zip
{$I DIRECT.INC} unit ansiedit; {::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::} interface {:::::::::::::::::::::::::::...
-
ANSIS.SKA
in
infusrc.zip
{ TheDraw Pascal Screen Image. Date: 07/10/97 } const IMAGEDATA_WIDTH=80; IMAGEDATA_DEPTH=25; IMAGEDATA_LENGTH=4000; IMAGEDATA : ar...
-
ARCHIVE.PAS
in
infusrc.zip
...reen; Var X : Byte; Begin NoBreak := True; AnsiCls; SendFull(^R'Viewing File'^O': '^S); Tab(FName,15...
-
BULLETIN.PAS
in
infusrc.zip
...dCr(^S'Your Msg Length: '^O+strr(total)+' characters'); End; ansireset; End; Procedure ConfigMsgHeader; Var Classified : Bool...
-
CHATSTUF.PAS
in
infusrc.zip
... If (W[1]<=0) or (W[2]<=0) Then Exit; GoXy(W[1],W[2]); AnsiColor(StatColor); Case Id Of 1:SendStr(cfg.sysopname); ...
-
CONFIG.PAS
in
infusrc.zip
...rawScreens(scrn : byte; id : byte); begin if (scrn=0) then begin ansiCls; multiColor('|08┌────────────────────|07:|15: |03infusion onlin...
-
CONFIG2.PAS
in
infusrc.zip
...wScreens(scrn : byte); begin if (scrn=1) then begin ansiCls; multiColor('|08┌|07:|15: |03infusion conference editor |15:...
-
CONFIGUR.PAS
in
infusrc.zip
...,bk:integer; hi,bl:boolean; begin getcolorvar (a,fg,bk,hi,bl); ansicolor (a); if bl then SendFull('Blinking '); if hi then SendFull(...
-
DOORS.PAS
in
infusrc.zip
...Param; ChDir(Copy(cfg.infusionDir,1,Length(cfg.infusionDir)-1)); AnsiReset; AnsiCLS; SetUpBottom; BottomLine; WriteHdr('...
-
EMAIL.PAS
in
infusrc.zip
... = (2,8,14,21,28,34,40,46,52); Begin If Hi Then Ansicolor(Urec.Color7) Else Ansicolor(Urec.Color3); Sen...
-
FEEDBACK.PAS
in
infusrc.zip
...f Byte = (2,8,14,21,28,34,40,46,52); Begin If Hi Then Ansicolor(Urec.Color7) Else Ansicolor(Urec.Color3); SendStr...
-
FILE0.PAS
in
infusrc.zip
...R Descrip : BigDescrip; FileName : SStr); Var K : Char; Begin AnsiCls; SendCr(^R'File Description Of'^A': '^S+FileName+' '^R'E['^A'...
-
FILE2.PAS
in
infusrc.zip
... K : Char; Procedure PlaceBar(Hi : Boolean); Begin If Hi Then ansicolor(urec.color7) Else ansicolor(urec.color6); GoXy(9,i + 3)...
-
FILE3.PAS
in
infusrc.zip
... 0 : S := S+'ASCii'; 1 : S := S+'ANSi'; 2 : S := S+'ANSiMation'; ...
-
FILE4.PAS
in
infusrc.zip
...egin DoDescrip(Index.Descrip,UD.FileName); AnsiCls; End; End; Until (K='Q') or (HungUpOn); Write...
-
FILEPACK.PAS
in
infusrc.zip
...e,udindexbak:file of udindexrec; udrecfile:file of udrec; {$I ANSIS.SKA} Procedure Show(S : String); Begin gotoxy(3,wherey); ...
-
FILESORT.PAS
in
infusrc.zip
... Then K:='Q'; If K='Q' Then Exit; writelog(16,6,''); AnsiCls; If DoALL Then For a:=1 To numareas Do Begin setar...
-
FILESYS1.PAS
in
infusrc.zip
...Y); SendFull(#27+'[K'+M); End; Begin A := Area; AnsiCLS; FWD := False; BKWD := False; SendCr(^R'Modifing Ar...