Search

...Rec; Procedure ShowUDRec; Begin With UD Do Begin AnsiCLS; SendCr(^R'File Change '^O'['^P+UpString(ud.filename)+^O']...

...Then Begin Close(NuvFile); Yes:=0; No:=0; AnsiReset; AnsiCls; WriteHdr('Your New User Voting'); ...

...rBreak; { d = # of lines down } NoBreak := True; AnsiReset; SendFull(^O); SendStr(#27+'['+Strr(a)+';'+Strr(b)+'H'); ...

... begin if (scrn=1) then begin ansiCls; multiColor('|08┌|07:|15: |03infusion protocol editor |15:|...

...= 'Q' Then Begin PickProto := ''; Close(Fp); AnsiCls; SendCr(^M^S'Aborted...'); Exit; End; ...

...owForms : Boolean; Var X : Byte; Begin ShowForms := False; AnsiCls; ListingFile(Cfg.TextFileDir + 'FORMS.TOP',True); For X :...

...ctor, Sounds); { Character/Text Files } TYPE CharacterFiles = (ASCII, ANSi, ANSiMation, RIP, PCBoard, AVATAR_); { Graphics files BITMAP } TYP...

... RandomFile(FileName : String) : String; procedure clearbreak; procedure ansicolor (attrib:byte); procedure ansireset; procedure specialmsg (q:any...

...skername : mstr = 'None'; force_pause : boolean = false; Var AnsiEditInUse, DefYes : Boolean; Password, InptColor, I...

... : Byte; Temp, Temp2 : Real; T : LongInt; Begin AnsiColor(9); Temp := 0; If (RealValu(First) > 0) AND (RealValu(Z) > ...

...M^S'Mail Error! (Text pointer out of range)'^M); Exit; End; AnsiColor(Urec.Color3); SendCr(''); reset(textfile); Seek(TextFile...

...s,skashit; Var UFile : File Of UserRec; NumUsers : Word; {$I ANSIS.SKA} Procedure MakeTopTen; Type HighestPCR = Record Name :...

... SendFull(^O'│ '); TabUl(Tt[Cnt].Name+' ',28); AnsiColor(Urec.Color6); Tab(' '+Strr(Tt[Cnt].PCR)+ToSay,10); ...

... (u,sizeof(u),0); u.config:=[lowercase,eightycols,linefeeds,postprompts,ansigraphics,asciigraphics]; u.color1:=cfg.Defcolor1; u.color2:=cfg.D...

...load Batch Que/Single File'); SendCr(^O' -Type'^P': '^R'View any Ansi Screen'); SendCr(^O' -View'^P': '^R'View the files of any AR...

...r; Online := True; Urec.Config := [Lowercase, Linefeeds, Eightycols, Ansigraphics]; IF NOT BaudSupported THEN Hangup ELSE BEGIN IF...

...k (B : Boolean); Procedure SetUpBottom; Procedure BottomLine; Procedure AnsiCls; Implementation { $I SCREENS.INC} Procedure InitWinds; Be...

...o chat with users, and to hang-up on users. 4. Zipster now has a built-in ANSI processor, and BIOS screen writes rather than regular DOS writes a...

...A W ▀▀▀█▀ Ansi Screen Editor Coded By ...

... Q : Why doesn't ACiDDRAW list all of my files when I am loading up an ANSI? ...