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 >
Wrap
Text File
|
1992-01-31
|
201b
|
8 lines
X# = SUB(Mem:Device,4,1)
IF X#=0 THEN X#=1.
LOOP WHILE NOT ChkPrn_(X#)
IF PauseYN_('The printer is not ready! Do you want try again?',, |
eBeepOn) <> 'Y'
DO Quit
. .