{$R-}    {Range checking off}
{$B+}    {Boolean complete evaluation on}
{$S+}    {Stack checking on}
{$I+}    {I/O checking on}
{$N-}    {No numeric coprocessor}
(*{$M 65500,16384,655360} {Turbo 3 default stack and heap}*)

program BOB ;

uses Crt ;

var j, k : integer ; S : string [1] ; C : word ; TA : byte ;

BEGIN
TA := TextAttr ;
if ParamCount>0 then begin        { Why? }
  S := ParamStr(1) ; C := Ord(not Odd(Ord(S[1]))) ;
  asm  mov AX,1003h ; mov BX,[C] ; int 10h  end
  end ;

TextBackground(Blue) ; TextColor(LightMagenta) ;
Writeln ;
Writeln('BOB.PAS - To show all colour combinations :':60, '':18) ;
Write(#10'          ') ; TextColor(LightCyan) ;
Write('------------------------ TextBackGround ------------------------') ;
Writeln('    ') ;
TextColor(Yellow)  ; Write('TextColor ') ; TextColor(LightCyan) ;
for J := 1 to 2 do for K := Black to LightGray do Write(K:2, '  ') ;
TextColor(Yellow) ;  Writeln('    ') ;
for J := Black to White do begin
   Write(J:8, ' ') ; TextColor(J) ;
   for K := Black to LightGray do begin
      TextBackground(K) ; Write(K:3, ' ') end ;
   TextColor(J+Blink) ;
   for K := Black to LightGray do begin
      TextBackground(K) ; Write(K:3, ' ') end ;
   TextBackground(Blue) ; TextColor(Yellow) ; Writeln(J+Blink:4, ' ') ;
   end ;

Write('':8) ; TextColor(LightCyan) ;
for J := 1 to 2 do for K := Black to LightGray do Write(16*K:4) ;
Writeln('':6) ; TextBackground(Black) ; TextColor(LightGreen) ;

(* K := 16 ; Write('':K) ;
for J := 0 to 3 do begin
   for K := K to 63 do Write(char(J*64+K)) ;
   Writeln ; K := 0 end ; *)

ClrEol ;
Write('     Finished BOB.PAS',
  '   www.merlyn.demon.co.uk   >= 2001-03-09   see source.') ;
TextAttr := TA ; Writeln(#32) ;
END. J R Stockton.