home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / World_Of_Computer_Software-02-385-Vol-1of3.iso / c / chkprn2.zip / CHKPRN_.CPY < prev    next >
Text File  |  1992-01-31  |  201b  |  8 lines

  1.   X# = SUB(Mem:Device,4,1)
  2.   IF X#=0 THEN X#=1.
  3.   LOOP WHILE NOT ChkPrn_(X#)
  4.     IF PauseYN_('The printer is not ready!  Do you want try again?',,  |
  5.         eBeepOn) <> 'Y'
  6.       DO Quit
  7.   . .
  8.