home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / World_Of_Computer_Software-02-385-Vol-1of3.iso / c / chkprn2.zip / SETDEST_.CLA < prev    next >
Text File  |  1992-01-31  |  641b  |  30 lines
  1.          MEMBER                 !DPP_NO_OPEN
  2. SetDest_     PROCEDURE(Dest_)
  3. Dest_           BYTE
  4.  
  5.   CODE
  6.   CASE Dest_
  7.     OF eToPrinter;  InitPC_Prn_
  8.             IF NOT Mem:Device
  9.               Mem:Device = 'PRN'
  10.             .
  11.     OF eToScreen;   InitPC_View_
  12.             IF NOT Mem:Device
  13.               Mem:Device = RandomFile_()
  14.             .
  15.     OF eToDisk;        InitPC_Disk_
  16.             IF NOT Mem:Device
  17.               PauseMsg_('Filename missing from Mem:Device',,  |
  18.               eBeepOn,sErrMsgFHue,sErrMsgBHue)
  19.               GoDOS(1)
  20.             .
  21.     ELSE        PauseMsg_('Invalid call to SetDest_()',,  |
  22.             eBeepOn,sErrMsgFHue,sErrMsgBHue)
  23.             GoDOS(1)
  24.   .
  25.  
  26. Quit ROUTINE
  27.   RETURN
  28.  
  29.   EJECT
  30.