home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware 1 2 the Maxx
/
sw_1.zip
/
sw_1
/
PROGRAM
/
DOORDR50.ZIP
/
UNITINTR.ARJ
/
DOORDRIV.INT
< prev
Wrap
Text File
|
1992-02-02
|
6KB
|
107 lines
unit doordriv;
{$V-}
interface
uses dos, crt, comio, ddscott, ddansi, ddovr,ddovr2;
type
CharOriginType=(localchar,remotechar);
strptr=^string;
const
version= 'Version 5.00; 8-20-90';
progname: string[60] = 'Your Door Name';
graphics_codes: array[1..4] of string[4] = ('','.ASC','.ANS','.MUS');
ack=#6;
nak=#21;
sot=#1;
var
mintime: byte; {Minimum time left before user kicked off}
notime: string; {Out of time filename }
macro,macro_str: string; {Used in the macro routines }
node_num: byte; {Node number }
time_credit: integer; {Time credit +/- (arrow keys) }
CharOrigin: CharOrigInType; {Where character came from }
fouled_up: char; {Internal use }
localcol: boolean; {From .CTL file: Local color enabled }
ansion: boolean; {Process ANSI locally }
time_check: boolean; {Check time left - halt if < mintime }
curlinenum: integer; {current line num - used by <more> }
morechk: boolean; {display <more> prompt? }
stacked: string; {used internally - stacked commands }
current_foreground: byte; {current foreground color }
current_background: byte; {current background color }
color_chg: boolean; {send ANSI color change sequences? }
default_fore: integer; {default foreground color }
default_back: integer; {default background color }
cdropped: boolean; {carrier dropped? }
bbs_time_left: integer; {from DROP FILE: time left }
com_port: byte; {from DROP FILE: com port }
bbs_software: byte; {from .CTL file: bbs type }
baud_rate: word; {from DROP FILE: baud rate }
statfore,statback: byte; {status line foreground }
statline: boolean; {status line background }
graphics: byte; {from DROP FILE: graphics code }
local: boolean; {from DROP FILE: local mode }
user_access_level: word; {from DROP FILE: user's access level }
user_first_name: string[30]; {from DROP FILE: user's first name }
user_last_name: string[30]; {from DROP FILE: user's last name }
sysop_first_name: string[30]; {from .CTL file: sysop's first name }
sysop_last_name: string[30]; {from .CTL file: sysop's last name }
board_name: string[70]; {from .CTL file: board name }
st_hr, st_mn, st_sc: word; {used by timer calculations }
quiet: boolean; {from .CTL file: quiet mode }
color1: boolean; {from .CTL file: color1 mode }
line43: boolean; {from .CTL file: 43 line mode }
stackon: boolean; {process stacked commands? }
badchar: string; {internal use }
fossilIO: boolean; {from .CTL file: fossil I/O used }
maxtime: word; {from .CTL file: maximum time in door }
numlines: byte; {from .CTL file: number of lines/screen }
oldtextmode: word; {original text mode }
sbon: boolean; {sound blaster on? }
sbaddr: word; {sound blaster address }
sbint: word; {sound blaster interupt }
lastsetfore: byte; {last set_foreground color }
setforecheck: boolean; {check repetetive set_foreground calls? }
doorfilepath: string; {from .CTL file: door file path }
soutput: text; {Simultanious output file }
proc_call_ptr: pointer; {used internally }
altkeys: array['A'..'Z'] of pointer;
althelp: array['A'..'Z'] of strptr;
procedure display_macro(s: string);
procedure record_macro(var s: string);
procedure close_async_port;
procedure open_async_port;
function skeypressed: boolean;
procedure sendtext(s: string);
procedure sgoto_xy(x,y: integer);
procedure sclrscr;
procedure sclreol;
procedure swrite(s: string);
procedure swriteln(s: string);
procedure sread_char(var ch: char);
procedure sread(var s: string);
procedure sread_num(var n: integer);
procedure sread_num_word(var n: word);
procedure sread_num_longint(var n: longint);
function time_left: integer;
procedure set_foreground(f: integer);
procedure set_background(b: integer);
procedure set_foreback(fgc,bgc:byte);
procedure prompt(var s: string; le: integer; pc: boolean);
procedure displayfile(filen: string);
Procedure elapsed(time1_hour, time1_min, time1_sec, time2_hour, time2_min,
time2_sec: longint; var elap_hour, elap_min, elap_sec: word);
procedure get_stacked(var s: string);
procedure sread_char_filtered(var ch: char);
procedure display_status;
procedure InitDoorDriver(ConfigFileName: string);
procedure DDAssignSoutput(var f: text);
function Time_used: integer;