home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / mbug / mbug117.arc / TURBO.LBR / WHOAMI.PZS / WHOAMI.PAÓ
Text File  |  1979-12-31  |  1KB  |  32 lines
  1. program whoami;
  2.  
  3. var
  4.    coltest, banktest : byte;
  5.    iscolor, ispremium : boolean;
  6.    temp1, temp2 : byte;
  7.  
  8. const
  9.      colramstart = -2048;
  10.  
  11. begin
  12.      iscolor := False;
  13.      ispremium := False;
  14.      mem[colramstart] := 20;
  15.      port [8] :=64;
  16.      mem[colramstart] := 10;
  17.      port [8] :=0;
  18.      temp1 := mem[colramstart];
  19.      if temp1 = 10 then iscolor:= false else iscolor := True;
  20.  
  21.      mem[colramstart] :=0;
  22.      port [28] := 129;
  23.      mem[colramstart] := 10;
  24.      port [28] := 128;
  25.      temp2 := mem[colramstart];
  26.      if temp2 = 10 then ispremium:= false else ispremium :=true;
  27.      if ispremium = True then writeln ('This Machine is a PREMIUM');
  28.      if iscolor = true then writeln ('This Machine is Colour');
  29.      if iscolor = False then writeln ('This Machine isn`t Colour');
  30.      if ispremium = false then writeln ('This Machine is a STANDARD Bee');
  31.  
  32. end.