{The following types and variables will be common to all modules}

TYPE
     FWstring=string[255];
     Str10=string[10];
     Str20=string[20];
     Str80=string[80];
     Theastuff=record
               Name:String[15];
               x:integer;
               y:integer;
               max:integer;
               end;
     Ship =    record
               ID:string[10];
               Model:char;   {S=Submarine    D=Destroyer    C=Cruiser
                              B=Battleship   A=Carrier      V=Convoy}
               Status:integer; {Status is undefined}
               Theater:integer; {Theater limitations}
               Attack:integer; {Attack value}
               Defense:integer; {Defense value}
               Damage:integer; {Amount of damage}
               Fleet:integer; {Theater fleet assignment}
               Work1:integer; {Work area 1}
               Work2:integer; {Work area 2}
               end;
      Fleet_Kind = array[1..20] of integer;

VAR
    Screen:array[1..24] of string[80];
    Theacnt:integer;
    Source: Text;
    Line:string[80];
    Picname: Str20;
    Name: Str10;
    Victory_Points:integer;
    Victory_Points_to_win:integer;
    Ships:integer;
    Theater:array[1..8] of Theastuff;
    Allied_Name:string[10];
    Axis_Name:string[10];
    Allied_Navy:array[1..20] of Ship;
    Axis_Navy:array[1..20] of Ship;
    Allied_Fleet:array[1..8] of Fleet_Kind;
    Axis_Fleet:array[1..8] of Fleet_Kind;
    Allied_Fleet_Count:array[1..8] of integer;
    Axis_Fleet_Count:array[1..8] of integer;
    Nextprog: File;
    Windx,Windy,Winddx,Winddy:integer;
    theano,theaix,portix,cx,cy,cmax:integer;
    ixloc:char;
    i,j,k,l,m,n:integer;
    c:char;
    quitsw:integer;
    init_factor:real;

Procedure FastWrite(stringfld:FWstring; fgatt,bgatt,cursor:integer);
          external 'FWNOST';

Procedure Snapshot(option:integer);external 'SNAPNOST';


Procedure Uncursor;

type
  BiosParamType = record
                    ax,bx,cx,dx,bp,si,di,ds,es,flags : integer;
                  end;

var
  BiosParam : BiosParamType;

begin
  with BiosParam do
  begin
    ax:=$0200;
    dx:=$1900;
    bx:=0;
  end;
  intr($10,BiosParam);
end;