CheckPTR.BAS

De hieonder afgedrukte functie is voor PowerBasic geschreven. Het werkt zowel op  matrix- als op 
inkjetprinters.Het kan zonder meer aan uw basicprogramma toegevoegd worden.
Ik vermoed dat het ook op een laserprinter werkt, maar zeker weet ik dat niet. Als u zo'n printer heeft zou ik dat 
graag van u willen horen.                     
 J.M.

FUNCTION CheckPrinter%
   ! xor  ax,ax
   ! mov  ah,2
   ! mov  dx,0
   ! int  &H17
   ! cmp  ah,&H90
   ! jnz  NotReady
   CheckPrinter% = -1
   EXIT FUNCTION
 NotReady:
   CheckPrinter% = 0
 END FUNCTION

