Search

{$I DIRECT.INC} Unit File4; Interface Uses GenTypes; Procedure DeleteDSZLog; Procedure EditUpload; Procedure GetFileNum(Prompt : string;...

{$I DIRECT.INC} Unit FileSys0; {/ low level file sysop routines /} Interface Uses GenTypes; Type AskType = (AutoM...

{$I DIRECT.INC} Unit FileSys1; {/ misc. file sysop routines /} Interface Uses GenTypes; Procedure ModArea; Proce...

{$I DIRECT.INC} Unit FileXfer; {:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::} Interface Uses GenTypes; {::::::::::...

...::::::::::::::::::::} BBSRec = Record { online bbs lister data struct } Name : string[30]; { syst...

{$I DIRECT.INC} unit GetLogin; {::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::} interface uses gentypes,dataproc; ...

{$I DIRECT.INC} unit group; interface uses gentypes; const groupclassstr:array [groupclass] of string[8]= ('Public','Private','...

{$I DIRECT.INC} unit group1; interface uses gentypes; Const CurGroup : Integer = 0; Var CG : GroupRec; procedure selectgroup; proce...

program infuInit; uses crt,dos,control,skaShit,genSubs,genTypes,configRt; {:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::...

{ infusion bbs irc module, written by skaboy101. } {$I DIRECT.INC} Unit InfuIrc; Interface Procedure DoInfusionIrc; Implementation ...

program string_converter; uses crt,dos,gentypes,configrt,skashit,gensubs; {:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::...

program menuExport; uses crt,dos,gentypes,configrt,skashit; {:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::} {...

{$I DIRECT.INC} {$M 30720,0,1024} Program Packer; Uses Dos, Crt, ConfigRt, GenTypes, StatRet, Gensubs, Fi...

program infusion; {$I DIRECT.INC} {$M 65520,1024,30000} { ▄ ▌ ▐▌ ▐ ▌ ██ ▐█ █ ▐ ▐█ ▐ ...

{ Infusion bbs string editor started on (09/01/98) by skaboy of COURSE! } Program InfusionStringEditor; Uses crt,dos,gentypes,configrt,s...

{$I DIRECT.INC} {$M $DDDD,1200,8000} Uses Dos, Crt, DosMem, FileLock, GenSubs, ConfigRt, GenTypes, skash...

{$I DIRECT.INC} Unit Login2; Interface Procedure RandomWelcome; Procedure RandomStat; Procedure Check_Waiting_Mail; Procedure Check_Feedba...

{$I DIRECT.INC} unit mainmenu; interface Procedure ShowCredits; Procedure EditStatus; Procedure BlackList; procedure editusers; procedure...

... END; 'B' : Begin UpdateNode('Looking at the BBS List...',''); Check_Is_Okay:=False; CASE C2...

{$I DIRECT.INC} Unit Mess0; {/ low level message area routines /} Interface Uses GenTypes; Const FidoSig = '.:. i...