home *** CD-ROM | disk | FTP | other *** search
/ Invenzioni E Inventori 1: Lavoro E Vita Quotidiana / invenzioni-inventori-1.iso / mac / Invenzio / Tori / Sharedi.cst / 03068_Script_3068 < prev    next >
Text File  |  1997-10-08  |  498b  |  19 lines
  1. on inizializzastampa
  2.   global printer
  3.   
  4.   if not objectP(printer) then
  5.     if the machinetype = 256 then
  6.       set per to (char 1 of the moviepath&":\invenzio\pmatic.dll" )
  7.     else 
  8.       set per to "invenzioni:invenzio:pmatic.xob"
  9.     end if
  10.     openxlib per
  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.   end if
  18.   
  19. end