{ Thanks To PackMAN for implementing the Printerdevice for MP3 }
{ greetings to all eastgermancoders !}
 
{$if not def AP_PRINT_H}
  
CONST 
      AP_PRINT_H = 0;

USES EXECIO;
{$incl "devices/printer.h","devices/prtbase.h"}


PROCEDURE PrtCom(PrtCommand:word;P0,P1,P2,P3:byte);

TYPE PrinterIO=Record 
                Case integer Of  
                 0: ( ios      : IOStdReq );
                 1: ( iodrp    : IODRPReq );
                 2: ( iopc     : IOPrtCmdReq );
               End;

VAR PrintMP  : ^MsgPort;
    PIO      : ^PrinterIO;
    doit     : byte;
    PD       : ^PrinterData;
    Dev      : byte;

BEGIN
 PrintMP:=CreatePort(NIL,0);
 PIO:=CreateExtIO(PrintMP,SizeOf(PrinterIO));
 Dev:=OpenDevice('printer.device',0,PTR(PIO),0);
 IF Dev<>0 THEN BEGIN 
   meldung('Konnte Printer.device nicht öffnen');
 END
 ELSE
 BEGIN 
  PIO^.iopc.io_Command   :=PRD_PRTCOMMAND;
  PIO^.iopc.io_PrtCommand:=PrtCommand;
  PIO^.iopc.io_Parm0     :=P0;
  PIO^.iopc.io_Parm1     :=P1;
  PIO^.iopc.io_Parm2     :=P2;
  PIO^.iopc.io_Parm3     :=P3;
  doit:=DOIO(PTR(PIO));
  CloseDevice(PTR(PIO));
 END; 
 DeleteExtIO(PIO);
 DeletePort(PrintMP);
END;

{
BEGIN
 PrtCom(asLrM  ,10,100,0,0); {linker Rand auf 10 Rechten auf 100}
END.}

{$endif}