home *** CD-ROM | disk | FTP | other *** search
/ Invenzioni E Inventori 1: Lavoro E Vita Quotidiana / invenzioni-inventori-1.iso / mac / Invenzio / Indart.cst / 00025_Script_25 < prev    next >
Text File  |  1997-10-14  |  485b  |  20 lines
  1. on inizializzastampa
  2.   global printer
  3.   
  4.   if not objectP(printer) then
  5.     if the machinetype = 256 then
  6.       openxlib (char 1 of the moviepath&":\invenzio\pmatic.dll")
  7.     else
  8.       openxlib "INVENZIONI:INVENZIO:PMATIC.XOB"
  9.     end if
  10.     
  11.     put PrintOMatic(mNew) into printer
  12.     if not objectP(printer) then
  13.       Alert "Non ci sono stampanti collegate al sistema."
  14.       EXIT      
  15.     end if
  16.     printer (mregister,"POMX130-925-01031")
  17.     
  18.   end if
  19.   
  20. end