diff options
Diffstat (limited to 'Master/texmf-dist/doc/latex/einfuehrung2/CHKDRV.PAS')
-rw-r--r-- | Master/texmf-dist/doc/latex/einfuehrung2/CHKDRV.PAS | 30 |
1 files changed, 0 insertions, 30 deletions
diff --git a/Master/texmf-dist/doc/latex/einfuehrung2/CHKDRV.PAS b/Master/texmf-dist/doc/latex/einfuehrung2/CHKDRV.PAS deleted file mode 100644 index a8bf84b0f06..00000000000 --- a/Master/texmf-dist/doc/latex/einfuehrung2/CHKDRV.PAS +++ /dev/null @@ -1,30 +0,0 @@ -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. |