File: CHKDRV.PAS

package info (click to toggle)
texlive-lang 2016.20170123-5
  • links: PTS
  • area: main
  • in suites: stretch
  • size: 1,093,148 kB
  • ctags: 15,901
  • sloc: perl: 46,074; xml: 29,603; makefile: 5,248; sh: 3,179; python: 2,949; ansic: 2,846; ruby: 945; lisp: 726; awk: 636; java: 159; sed: 142; cpp: 12
file content (30 lines) | stat: -rw-r--r-- 665 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
 
USES Dos,Crt;
VAR Lw: Char;

FUNCTION Checkdrive(Drive : Byte): Boolean;
  VAR Regs: Registers;
    Anz_Floppy,A_Or_B: Byte;

  BEGIN
    Anz_Floppy:=((Mem[$40:$10] And 192) Shr 6)+1;
    A_Or_B:=Mem[$50:$04];
    If ((Drive=1) And (Anz_Floppy=1) And (A_Or_B=00))
    Or ((Drive=0) And (Anz_Floppy=1) And (A_Or_B=01)) Then
    BEGIN
      Checkdrive:=False;
      Exit;
    END;
    Checkdrive:=Not(Disksize(Drive+1)=-1);
  END;

BEGIN
  REPEAT
    BEGIN
      Lw:=Readkey;
      Lw:=Upcase(Lw);
      If Not Checkdrive(Ord(Lw)-65) Then
      Writeln('Laufwerk ',Lw,' nicht vorhanden')
      Else Writeln('Laufwerk ',Lw,' vorhanden');
    END;
  UNTIL Lw=#13;
END.