home *** CD-ROM | disk | FTP | other *** search
/ CD-X 1 / cdx_01.iso / melyviz / cdrombol / pcxcdp3.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1994-10-23  |  527 b   |  24 lines
  1. program PCXCDP3; { PC-X CD-ROM Player }
  2.  
  3. uses PCXCDU3, CRT;
  4.  
  5. var
  6.    i : Byte;
  7.  
  8. begin
  9.    ClrScr;
  10.    if CD_Letters=0 then
  11.       WriteLn('Error: No CD-ROM drives found!')
  12.    else begin
  13.       WriteLn('Number of CD-ROM drives detected: ',CD_Letters);
  14.       WriteLn('The first CD-ROM drive is ',Chr(CD_Startletter+65),':');
  15.       WriteLn('Currently used CD-ROM drive is ',Chr(CD_Startletter+65),':');
  16.       WriteLn;
  17.       for i:=1 to 26 do
  18.          Write(i,':',CD_Drives[i],' ');
  19.       WriteLn;
  20.    end;
  21. end.
  22.  
  23.  
  24.