Category : BBS Programs+Doors
Archive   : TWVIEW93.ZIP
Filename : OFFLINE.PAS

{ I keep forgetting to turn off 286 instruction set. So, better force it
off here, before I confuse any more 286 people. }
{$A+} { speed up us 80x86 guys }
{$B-} { I dig short circuits }
{$I+} { pisses people off when they hit a letter, but its better than
gigo. }
{$G-} { turn OFF 286 instruction set }



program offline;
{ This will do the various sorts of computations you might want to do with
your data base but while not playing. You might plan itineraries, identify
defensible structures, identify areas of control, spot high traffic areas,
and so on. }

{$I headers.inc}

var {globals}
space : TheVoid;
BBSname : string;
quit : boolean;
distances : distancearray;
verbose : boolean;

{$I misc.inc }
{$I GSDATA.INC }
{$I queue.inc }
{$I distance.inc }
{$I decount.inc }
{$I control.inc }
{$I status.inc }
{$I textdisp.inc }
{$I basepath.inc }
{$I hitrffic.inc }
{$I statistc.inc }
{$I tour.inc }
{$I multpath.inc }
{$I unknown.inc }
{$I oneway.inc}

procedure menu;
begin
writeln;
writeln('ontrolled sector status');
writeln('ead end analysis');
writeln('suggest therprobe targets');
writeln('visit ultiple sectors efficiently');
writeln('ne way warps');
writeln('uit');
writeln('tellar dispersion');
writeln('raffic area analysis');
writeln('known sectors');
writeln('isit every sector');
writeln;
end; {menu}

function choice : char;
var
ch : char;
begin
write('(', BBSName, ') [C, D, E, M, O, Q, S, T, U, V] Your choice? ');
readln( ch );
choice := upcase( ch );
end;

begin
writeln('Tradewars Offline Data Base Inquiry program: ', version);
writeln( author );
writeln( source );
writeln;
Quit := false;
verbose := false;
InitSpace( Space );
if paramcount > 0 then
BBSName := paramstr( 1 )
else
BBSName := '';
GetData( Space, BBSName );
menu;
repeat
case choice of
'C' : Control;
'D' : DeadEndAnalysis;
'E' : SuggestEtherProbes;
'M' : MultiPassSector;
'O' : OneWaySectorList;
'Q' : quit := true;
'S' : StellarDispersion;
'T' : HighTraffic;
'U' : UnknownSectors;
'V' : VisitEverySector;
else
menu;
end; {case}
until quit;
end.