var ch5 : char;

type
   byteptr = ^byte;
   byte16 = array[1..16] of byte;
   byte16ptr = ^byte16;

type
     tristate = integer; { 1=true, 0=false, -1=abort }

var panic : integer;

const
 s1:nstring ='';
 s2:nstring ='';
 s3:nstring ='';


const
   paged =1;
   SCR   =2;
   HEX   =4;
   PRT   =8;
   TITLE =$10;

type
      dirtag = record
                 place : integer;
                 tag   : char;
               end;
var
     thisdir : array[0..71] of dirtag;
blestep in 1.2 meg drive *)
  MediaEST = $10; (* 1 = don't let machine test for itself *)
  MediaState = $0F;  (* 3 = 360kb in 360kb established.
                        4 = 360kb in 1.2 meg established.
                        5 = 1.2meg  in 1.2meg  established *)
  mystate = $70;