home *** CD-ROM | disk | FTP | other *** search
/ 321 GAMES / 321GAMES.iso / logic / runes / runes.exe / runes.DXR / 00183.ls < prev    next >
Encoding:
Text File  |  1996-07-01  |  2.1 KB  |  59 lines
  1. on printText textString
  2.   global WHICHDOC
  3.   set printingFont to "courier"
  4.   set XObjFile to "pmatic.dll"
  5.   openXLib(XObjFile)
  6.   set printer to PrintOMatic(mnew)
  7.   if not objectp(printer) then
  8.     alert("There is no currently selected printer. Printing features are disabled.")
  9.   else
  10.     printer(mRegister, "PMAT130-989-01018")
  11.     printer(mSetMargins, 72, 72, 72, 72)
  12.     set W to printer(mGetPageWidth)
  13.     set h to printer(mGetPageHeight)
  14.     set printingFont to "arial"
  15.     printer(mSetTextSize, 18)
  16.     printer(mSetTextJust, "left")
  17.     printer(mSetTextStyle, "BOLD")
  18.     printer(mDrawText, "SOLEAU SOFTWARE REGISTRATION FORM", 4, -10)
  19.     printer(mSetTextSize, 12)
  20.     printer(mDrawText, " " & the date, W - 68, -10)
  21.     printer(mDrawText, "Soleau Software   163 Amsterdam Ave   Suite 213   New York   New York   10023", 9, h)
  22.     printer(mDrawText, "                      Citibank Account #  46862503   Routing # 021000089", 9, h + 14)
  23.     printer(mDrawText, "              For Orders:   Voice/Message: 212.721.2361   Fax: 212.873.4994", 9, h + 28)
  24.     set printingFont to "courier"
  25.     printer(mSetTextFont, printingFont)
  26.     if WHICHDOC = 2 then
  27.       printer(mSetTextSize, 10)
  28.     end if
  29.     if (WHICHDOC = 1) or (WHICHDOC = 3) then
  30.       printer(mSetTextSize, 12)
  31.     end if
  32.     printer(mSetTextStyle, "normal")
  33.     printer(mNewPage)
  34.     printer(mTextBox, 0, 0, W, h, 0)
  35.     printer(mSetText, textString, 1)
  36.     updateStage()
  37.     printer(mPrint)
  38.     printer(mReset)
  39.     printer(mSetDocumentName, "SOLEAU SOFTWARE GAMES")
  40.     set W to printer(mGetPageWidth)
  41.     set h to printer(mGetPageHeight)
  42.     printer(mRegister, "PMAT130-989-01018")
  43.     printer(mSetMargins, 72, 72, 72, 72)
  44.     printer(mNewPage)
  45.     printer(mSetTextSize, 18)
  46.     printer(mSetTextJust, "left")
  47.     printer(mSetTextStyle, "BOLD")
  48.     printer(mDrawText, "OTHER GAMES BY SOLEAU SOFTWARE", 0, -10)
  49.     printer(mTextBox, 0, 0, W, h, 0)
  50.     printer(mSetTextSize, 10)
  51.     printer(mSetTextStyle, "normal")
  52.     set textString1 to the text of cast "solgames"
  53.     printer(mSetText, textString1, 1)
  54.     printer(mPrint)
  55.     printer(mdispose)
  56.   end if
  57.   closeXLib(XObjFile)
  58. end
  59.