home *** CD-ROM | disk | FTP | other *** search
/ .net 1998 February / netCD41.iso / pc / PC16.DIR / 00143.ls < prev    next >
Encoding:
Text File  |  1997-12-08  |  8.0 KB  |  189 lines

  1. on printForm
  2.   global gSurname, gForeNames, gDoB, gAddress1, gAddress2, gTitle, gAddress3, gAddress4, gPostCode, gHomeNum, gDayNum, gBSoft, gMoney97, gMoney98, gsort1, gacno1, gacname1, gtype1, gcheck1, gosort1, goacno1, goacname1, gotype1, gocheck1, gosort2, goacno2, goacname2, gotype2, gocheck2, gosort3, goacno3, goacname3, gotype3, gocheck3, gosort4, goacno4, goacname4, gotype4, gocheck4
  3.   set doc to new(xtra("PrintOMatic_Lite"))
  4.   if not objectp(doc) then
  5.     exit
  6.   end if
  7.   setDocumentName(doc, "Application Form")
  8.   setMargins(doc, rect(72, 90, 72, 90))
  9.   setTextSize(doc, 16)
  10.   setTextStyle(doc, "bold")
  11.   append(doc, "BARCLAYS PC BANKING PERSONAL APPLICATION FORM")
  12.   setTextSize(doc, 9)
  13.   setTextStyle(doc, "italic")
  14.   append(doc, " " & RETURN & RETURN)
  15.   append(doc, "This application form is for applicants wishing to access only personal accounts using the Barclays PC Banking service. Please read the notes prior to completing and returning your application. Once you have filled in all the details, please print the application form and sign it. Then return it to: Barclays PC Banking, FREEPOST, Altrincham, Cheshire WA14 1AR" & RETURN)
  16.   setTextSize(doc, 12)
  17.   setTextStyle(doc, "bold")
  18.   append(doc, RETURN & "SECTION 1: PERSONAL DETAILS OF APPLICANT" & RETURN)
  19.   setTextSize(doc, 9)
  20.   setTextStyle(doc, "normal")
  21.   append(doc, "(please see notes 1a and 1b)" & RETURN & RETURN)
  22.   setTextSize(doc, 12)
  23.   append(doc, "Title:" && gTitle & RETURN)
  24.   append(doc, "Surname:" && gSurname & RETURN)
  25.   append(doc, "Forenames:" && gForeNames & RETURN)
  26.   append(doc, "Date of Birth:" && gDoB & RETURN)
  27.   append(doc, "Address:" && gAddress1 & RETURN)
  28.   append(doc, "               " && gAddress2 & RETURN)
  29.   append(doc, "               " && gAddress3 & RETURN)
  30.   append(doc, "               " && gAddress4 & RETURN)
  31.   append(doc, "Postcode:" && gPostCode & RETURN)
  32.   append(doc, "Home Phone No:" && gHomeNum & RETURN)
  33.   append(doc, "Daytime Phone No:" && gDayNum & RETURN)
  34.   setTextSize(doc, 12)
  35.   setTextStyle(doc, "bold")
  36.   append(doc, RETURN & "SECTION 2: SOFTWARE REQUIREMENTS" & RETURN)
  37.   setTextSize(doc, 9)
  38.   setTextStyle(doc, "normal")
  39.   append(doc, "(please see note 2a)" & RETURN & RETURN)
  40.   append(doc, "Please indicate which access method(s) you wish to use:" & RETURN & RETURN)
  41.   setTextSize(doc, 12)
  42.   append(doc, "Barclays PC Banking software: [ ")
  43.   if gBSoft then
  44.     append(doc, "x ]" & RETURN)
  45.   else
  46.     append(doc, "  ]" & RETURN)
  47.   end if
  48.   append(doc, "Microsoft Money 97: [ ")
  49.   if gMoney97 then
  50.     append(doc, "x ]")
  51.   else
  52.     append(doc, "  ]")
  53.   end if
  54.   setTextSize(doc, 9)
  55.   append(doc, "  (please see note 2b)" & RETURN)
  56.   setTextSize(doc, 12)
  57.   append(doc, "Microsoft Money 98: [ ")
  58.   if gMoney98 then
  59.     append(doc, "x ]")
  60.   else
  61.     append(doc, "  ]")
  62.   end if
  63.   setTextSize(doc, 9)
  64.   append(doc, "  (please see note 2b)" & RETURN)
  65.   setTextSize(doc, 12)
  66.   setTextSize(doc, 12)
  67.   setTextStyle(doc, "bold")
  68.   append(doc, RETURN & "SECTION 3: ACCOUNT INFORMATION" & RETURN)
  69.   setTextSize(doc, 9)
  70.   setTextStyle(doc, "normal")
  71.   append(doc, "(please see note 3)" & RETURN & RETURN)
  72.   append(doc, "Joint accounts (please see note 4)" & RETURN & RETURN)
  73.   setTextSize(doc, 10)
  74.   append(doc, "CHARGING ACCOUNT" & RETURN)
  75.   setTextSize(doc, 9)
  76.   append(doc, "Please indicate below the account from which you would like the charges for Barclays PC Banking to be debited." & RETURN & RETURN)
  77.   append(doc, "SORT CODE:" && gsort1 & RETURN)
  78.   append(doc, "ACCOUNT NUMBER:" && gacno1 & RETURN)
  79.   append(doc, "ACCOUNT NAME:" && gacname1 & RETURN)
  80.   append(doc, "ACCOUNT TYPE:" && gtype1 & RETURN)
  81.   if gcheck1 then
  82.     append(doc, "JOINT ACCOUNT WITH ONLY ONE SIGNATURE REQUIRED:  X" & RETURN)
  83.   end if
  84.   setTextSize(doc, 10)
  85.   append(doc, RETURN & "OTHER ACCOUNTS" & RETURN)
  86.   setTextSize(doc, 9)
  87.   append(doc, "Please indicate below all other accounts to which you require direct access and on which you will be able to raise entries on your PC" & RETURN)
  88.   if gosort1 <> "0" then
  89.     append(doc, RETURN & "SORT CODE:" && gosort1 & RETURN)
  90.     append(doc, "ACCOUNT NUMBER:" && goacno1 & RETURN)
  91.     append(doc, "ACCOUNT NAME:" && goacname1 & RETURN)
  92.     append(doc, "ACCOUNT TYPE:" && gotype1 & RETURN)
  93.     if gocheck1 then
  94.       append(doc, "JOINT ACCOUNT WITH ONLY ONE SIGNATURE REQUIRED:  X" & RETURN)
  95.     end if
  96.   end if
  97.   if gosort2 <> "0" then
  98.     append(doc, RETURN & "SORT CODE:" && gosort2 & RETURN)
  99.     append(doc, "ACCOUNT NUMBER:" && goacno2 & RETURN)
  100.     append(doc, "ACCOUNT NAME:" && goacname2 & RETURN)
  101.     append(doc, "ACCOUNT TYPE:" && gotype2 & RETURN)
  102.     if gocheck2 then
  103.       append(doc, "JOINT ACCOUNT WITH ONLY ONE SIGNATURE REQUIRED:  X" & RETURN)
  104.     end if
  105.   end if
  106.   if gosort3 <> "0" then
  107.     append(doc, RETURN & "SORT CODE:" && gosort3 & RETURN)
  108.     append(doc, "ACCOUNT NUMBER:" && goacno3 & RETURN)
  109.     append(doc, "ACCOUNT NAME:" && goacname3 & RETURN)
  110.     append(doc, "ACCOUNT TYPE:" && gotype3 & RETURN)
  111.     if gocheck3 then
  112.       append(doc, "JOINT ACCOUNT WITH ONLY ONE SIGNATURE REQUIRED:  X" & RETURN)
  113.     end if
  114.   end if
  115.   if gosort4 <> "0" then
  116.     append(doc, RETURN & "SORT CODE:" && gosort4 & RETURN)
  117.     append(doc, "ACCOUNT NUMBER:" && goacno4 & RETURN)
  118.     append(doc, "ACCOUNT NAME:" && goacname4 & RETURN)
  119.     append(doc, "ACCOUNT TYPE:" && gotype4 & RETURN)
  120.     if gocheck4 then
  121.       append(doc, "JOINT ACCOUNT WITH ONLY ONE SIGNATURE REQUIRED:  X" & RETURN)
  122.     end if
  123.   end if
  124.   setTextStyle(doc, "normal")
  125.   setTextSize(doc, 10)
  126.   append(doc, RETURN & "Please tick here if you would like a Barclays Instant Savings Account to be opened   [       ]" & RETURN)
  127.   setTextSize(doc, 9)
  128.   append(doc, "(please see note 5)" & RETURN & RETURN)
  129.   setTextSize(doc, 12)
  130.   setTextStyle(doc, "bold")
  131.   append(doc, "SECTION 4: AGREEMENT & AUTHORISATION" & RETURN & RETURN)
  132.   setTextSize(doc, 8)
  133.   setTextStyle(doc, "italic")
  134.   append(doc, member "agree text")
  135.   setTextStyle(doc, "normal")
  136.   setTextSize(doc, 12)
  137.   append(doc, RETURN & RETURN & "Signature 1" & RETURN & RETURN)
  138.   append(doc, "Date" & RETURN & RETURN)
  139.   append(doc, "Signature 2" & RETURN)
  140.   setTextSize(doc, 9)
  141.   append(doc, "(please see note 4a)" & RETURN & RETURN)
  142.   setTextSize(doc, 12)
  143.   append(doc, "Date" & RETURN & RETURN)
  144.   setTextSize(doc, 12)
  145.   setTextStyle(doc, "bold, italic")
  146.   append(doc, RETURN & "FOR OFFICE USE" & RETURN & RETURN)
  147.   setTextSize(doc, 10)
  148.   setTextStyle(doc, "normal")
  149.   append(doc, "[   ] C    [   ] L    [   ] N    [   ] AD    [   ] JT    [   ] OS    [   ] CH" & RETURN & RETURN)
  150.   append(doc, "URN                                             CID _ _ _ _ _ _ _ _ _ _" & RETURN)
  151.   append(doc, "DAT" & RETURN)
  152.   append(doc, "VER                                               DI _ _ _ _ _ _" & RETURN & RETURN)
  153.   setTextSize(doc, 9)
  154.   setTextStyle(doc, "italic")
  155.   append(doc, "Branch Stamp:  ")
  156.   setTextStyle(doc, "normal")
  157.   append(doc, "Please tick :  [   ] ACC    [   ] DCL" & RETURN & RETURN & RETURN & RETURN & RETURN)
  158.   append(doc, "Contact name:" & RETURN & RETURN)
  159.   append(doc, "Ext:" & RETURN & RETURN)
  160.   setTextStyle(doc, "italic, bold")
  161.   append(doc, RETURN & "Regulated by IMRO and the Personal Investment Authority. Barclays Bank PLC represents only the Barclays Marketing Group for life assurance, pensions and unit trust business. Registered in England. Reg No: 1026167. Reg Office: 54 Lombard Street, London, EC3P 3AH." & RETURN)
  162.   setTextSize(doc, 12)
  163.   setTextStyle(doc, "bold")
  164.   append(doc, RETURN & RETURN & "ACCOMPANYING NOTES" & RETURN & RETURN)
  165.   setTextSize(doc, 8)
  166.   setTextStyle(doc, "normal")
  167.   append(doc, member "accomp notes text")
  168.   setTextSize(doc, 12)
  169.   setTextStyle(doc, "bold")
  170.   append(doc, RETURN & RETURN & "TERMS AND CONDITIONS" & RETURN & RETURN)
  171.   setTextSize(doc, 8)
  172.   setTextStyle(doc, "normal")
  173.   append(doc, member "full terms text")
  174.   if doJobSetup(doc) then
  175.     print(doc)
  176.     set doc to 0
  177.     closeXLib()
  178.     go("menu")
  179.     cursor(-1)
  180.   else
  181.     set doc to 0
  182.     cursor(-1)
  183.   end if
  184. end
  185.  
  186. on settempGlobals
  187.   global gSurname, gForeNames, gDoB, gAddress1, gAddress2, gAddress3, gAddress4, gPostCode, gHomeNum, gDayNum, gBSoft, gMoney97, gMoney98
  188. end
  189.