home *** CD-ROM | disk | FTP | other *** search
Wrap
on printForm 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 set doc to new(xtra("PrintOMatic_Lite")) if not objectp(doc) then exit end if setDocumentName(doc, "Application Form") setMargins(doc, rect(72, 90, 72, 90)) setTextSize(doc, 16) setTextStyle(doc, "bold") append(doc, "BARCLAYS PC BANKING PERSONAL APPLICATION FORM") setTextSize(doc, 9) setTextStyle(doc, "italic") append(doc, " " & RETURN & RETURN) 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) setTextSize(doc, 12) setTextStyle(doc, "bold") append(doc, RETURN & "SECTION 1: PERSONAL DETAILS OF APPLICANT" & RETURN) setTextSize(doc, 9) setTextStyle(doc, "normal") append(doc, "(please see notes 1a and 1b)" & RETURN & RETURN) setTextSize(doc, 12) append(doc, "Title:" && gTitle & RETURN) append(doc, "Surname:" && gSurname & RETURN) append(doc, "Forenames:" && gForeNames & RETURN) append(doc, "Date of Birth:" && gDoB & RETURN) append(doc, "Address:" && gAddress1 & RETURN) append(doc, " " && gAddress2 & RETURN) append(doc, " " && gAddress3 & RETURN) append(doc, " " && gAddress4 & RETURN) append(doc, "Postcode:" && gPostCode & RETURN) append(doc, "Home Phone No:" && gHomeNum & RETURN) append(doc, "Daytime Phone No:" && gDayNum & RETURN) setTextSize(doc, 12) setTextStyle(doc, "bold") append(doc, RETURN & "SECTION 2: SOFTWARE REQUIREMENTS" & RETURN) setTextSize(doc, 9) setTextStyle(doc, "normal") append(doc, "(please see note 2a)" & RETURN & RETURN) append(doc, "Please indicate which access method(s) you wish to use:" & RETURN & RETURN) setTextSize(doc, 12) append(doc, "Barclays PC Banking software: [ ") if gBSoft then append(doc, "x ]" & RETURN) else append(doc, " ]" & RETURN) end if append(doc, "Microsoft Money 97: [ ") if gMoney97 then append(doc, "x ]") else append(doc, " ]") end if setTextSize(doc, 9) append(doc, " (please see note 2b)" & RETURN) setTextSize(doc, 12) append(doc, "Microsoft Money 98: [ ") if gMoney98 then append(doc, "x ]") else append(doc, " ]") end if setTextSize(doc, 9) append(doc, " (please see note 2b)" & RETURN) setTextSize(doc, 12) setTextSize(doc, 12) setTextStyle(doc, "bold") append(doc, RETURN & "SECTION 3: ACCOUNT INFORMATION" & RETURN) setTextSize(doc, 9) setTextStyle(doc, "normal") append(doc, "(please see note 3)" & RETURN & RETURN) append(doc, "Joint accounts (please see note 4)" & RETURN & RETURN) setTextSize(doc, 10) append(doc, "CHARGING ACCOUNT" & RETURN) setTextSize(doc, 9) append(doc, "Please indicate below the account from which you would like the charges for Barclays PC Banking to be debited." & RETURN & RETURN) append(doc, "SORT CODE:" && gsort1 & RETURN) append(doc, "ACCOUNT NUMBER:" && gacno1 & RETURN) append(doc, "ACCOUNT NAME:" && gacname1 & RETURN) append(doc, "ACCOUNT TYPE:" && gtype1 & RETURN) if gcheck1 then append(doc, "JOINT ACCOUNT WITH ONLY ONE SIGNATURE REQUIRED: X" & RETURN) end if setTextSize(doc, 10) append(doc, RETURN & "OTHER ACCOUNTS" & RETURN) setTextSize(doc, 9) 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) if gosort1 <> "0" then append(doc, RETURN & "SORT CODE:" && gosort1 & RETURN) append(doc, "ACCOUNT NUMBER:" && goacno1 & RETURN) append(doc, "ACCOUNT NAME:" && goacname1 & RETURN) append(doc, "ACCOUNT TYPE:" && gotype1 & RETURN) if gocheck1 then append(doc, "JOINT ACCOUNT WITH ONLY ONE SIGNATURE REQUIRED: X" & RETURN) end if end if if gosort2 <> "0" then append(doc, RETURN & "SORT CODE:" && gosort2 & RETURN) append(doc, "ACCOUNT NUMBER:" && goacno2 & RETURN) append(doc, "ACCOUNT NAME:" && goacname2 & RETURN) append(doc, "ACCOUNT TYPE:" && gotype2 & RETURN) if gocheck2 then append(doc, "JOINT ACCOUNT WITH ONLY ONE SIGNATURE REQUIRED: X" & RETURN) end if end if if gosort3 <> "0" then append(doc, RETURN & "SORT CODE:" && gosort3 & RETURN) append(doc, "ACCOUNT NUMBER:" && goacno3 & RETURN) append(doc, "ACCOUNT NAME:" && goacname3 & RETURN) append(doc, "ACCOUNT TYPE:" && gotype3 & RETURN) if gocheck3 then append(doc, "JOINT ACCOUNT WITH ONLY ONE SIGNATURE REQUIRED: X" & RETURN) end if end if if gosort4 <> "0" then append(doc, RETURN & "SORT CODE:" && gosort4 & RETURN) append(doc, "ACCOUNT NUMBER:" && goacno4 & RETURN) append(doc, "ACCOUNT NAME:" && goacname4 & RETURN) append(doc, "ACCOUNT TYPE:" && gotype4 & RETURN) if gocheck4 then append(doc, "JOINT ACCOUNT WITH ONLY ONE SIGNATURE REQUIRED: X" & RETURN) end if end if setTextStyle(doc, "normal") setTextSize(doc, 10) append(doc, RETURN & "Please tick here if you would like a Barclays Instant Savings Account to be opened [ ]" & RETURN) setTextSize(doc, 9) append(doc, "(please see note 5)" & RETURN & RETURN) setTextSize(doc, 12) setTextStyle(doc, "bold") append(doc, "SECTION 4: AGREEMENT & AUTHORISATION" & RETURN & RETURN) setTextSize(doc, 8) setTextStyle(doc, "italic") append(doc, member "agree text") setTextStyle(doc, "normal") setTextSize(doc, 12) append(doc, RETURN & RETURN & "Signature 1" & RETURN & RETURN) append(doc, "Date" & RETURN & RETURN) append(doc, "Signature 2" & RETURN) setTextSize(doc, 9) append(doc, "(please see note 4a)" & RETURN & RETURN) setTextSize(doc, 12) append(doc, "Date" & RETURN & RETURN) setTextSize(doc, 12) setTextStyle(doc, "bold, italic") append(doc, RETURN & "FOR OFFICE USE" & RETURN & RETURN) setTextSize(doc, 10) setTextStyle(doc, "normal") append(doc, "[ ] C [ ] L [ ] N [ ] AD [ ] JT [ ] OS [ ] CH" & RETURN & RETURN) append(doc, "URN CID _ _ _ _ _ _ _ _ _ _" & RETURN) append(doc, "DAT" & RETURN) append(doc, "VER DI _ _ _ _ _ _" & RETURN & RETURN) setTextSize(doc, 9) setTextStyle(doc, "italic") append(doc, "Branch Stamp: ") setTextStyle(doc, "normal") append(doc, "Please tick : [ ] ACC [ ] DCL" & RETURN & RETURN & RETURN & RETURN & RETURN) append(doc, "Contact name:" & RETURN & RETURN) append(doc, "Ext:" & RETURN & RETURN) setTextStyle(doc, "italic, bold") 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) setTextSize(doc, 12) setTextStyle(doc, "bold") append(doc, RETURN & RETURN & "ACCOMPANYING NOTES" & RETURN & RETURN) setTextSize(doc, 8) setTextStyle(doc, "normal") append(doc, member "accomp notes text") setTextSize(doc, 12) setTextStyle(doc, "bold") append(doc, RETURN & RETURN & "TERMS AND CONDITIONS" & RETURN & RETURN) setTextSize(doc, 8) setTextStyle(doc, "normal") append(doc, member "full terms text") if doJobSetup(doc) then print(doc) set doc to 0 closeXLib() go("menu") cursor(-1) else set doc to 0 cursor(-1) end if end on settempGlobals global gSurname, gForeNames, gDoB, gAddress1, gAddress2, gAddress3, gAddress4, gPostCode, gHomeNum, gDayNum, gBSoft, gMoney97, gMoney98 end