home *** CD-ROM | disk | FTP | other *** search
/ .net 1998 February / netCD41.iso / pc / web / XTRAS / FORMMOVIE.DIR / 00001.ls next >
Encoding:
Text File  |  1997-09-18  |  7.1 KB  |  144 lines
  1. on printForm
  2.   global gSurname, gForeNames, gTitle, gDoB, gAddress1, gAddress2, gAddress3, gAddress4, gPostCode, gHomeNum, gDayNum, gBSoft, gMoney97, gMoney98
  3.   set doc to new(xtra("PrintOMatic_Lite"))
  4.   if not objectp(doc) then
  5.     exit
  6.   end if
  7.   setDocumentName(doc, "Barclay PC Banking")
  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." & RETURN)
  16.   setTextSize(doc, 12)
  17.   setTextStyle(doc, "bold")
  18.   append(doc, RETURN & "PERSONAL DETAILS" & RETURN & RETURN)
  19.   setTextStyle(doc, "normal")
  20.   append(doc, "Surname:" && gSurname & RETURN)
  21.   append(doc, "Forenames:" && gForeNames & RETURN)
  22.   append(doc, "Date of Birth:" && gDoB & RETURN)
  23.   append(doc, "Address:" && gAddress1 & RETURN)
  24.   append(doc, "               " && gAddress2 & RETURN)
  25.   append(doc, "               " && gAddress3 & RETURN)
  26.   append(doc, "               " && gAddress4 & RETURN)
  27.   append(doc, "Postcode:" && gPostCode & RETURN)
  28.   append(doc, "Home Phone No:" && gHomeNum & RETURN)
  29.   append(doc, "DaytimePhone No:" && gDayNum & RETURN)
  30.   setTextSize(doc, 12)
  31.   setTextStyle(doc, "bold")
  32.   append(doc, RETURN & "SOFTWARE REQUIREMENTS" & RETURN & RETURN)
  33.   setTextStyle(doc, "normal")
  34.   append(doc, "Barclays PC Banking software: [ ")
  35.   if gBSoft then
  36.     append(doc, "x ]" & RETURN)
  37.   else
  38.     append(doc, "  ]" & RETURN)
  39.   end if
  40.   append(doc, "Microsoft Money 97: [ ")
  41.   if gMoney97 then
  42.     append(doc, "x ]" & RETURN)
  43.   else
  44.     append(doc, "  ]" & RETURN)
  45.   end if
  46.   append(doc, "Microsoft Money 98: [ ")
  47.   if gMoney98 then
  48.     append(doc, "x ]" & RETURN)
  49.   else
  50.     append(doc, "  ]" & RETURN)
  51.   end if
  52.   setTextSize(doc, 12)
  53.   setTextStyle(doc, "bold")
  54.   append(doc, RETURN & "ACCOUNT INFORMATION" & RETURN & RETURN)
  55.   setTextStyle(doc, "normal")
  56.   setTextSize(doc, 10)
  57.   append(doc, "CHARGING ACCOUNT" & RETURN)
  58.   setTextSize(doc, 9)
  59.   append(doc, "Please indicate below the account from which you would like the charges for Barclays PC Banking to be debited." & RETURN & RETURN)
  60.   append(doc, "SORT CODE                    ACCOUNT NUMBER                     ACCOUNT NAME                ACCOUNT TYPE" & RETURN)
  61.   setTextSize(doc, 9)
  62.   setTextStyle(doc, "italic")
  63.   append(doc, "                               |                                                    |                                                  |           CURRENT           |  * " & RETURN & RETURN)
  64.   setTextStyle(doc, "normal")
  65.   setTextSize(doc, 10)
  66.   append(doc, "OTHER ACCOUNTS" & RETURN)
  67.   setTextSize(doc, 9)
  68.   append(doc, "Please indicate below other accounts to which you require direct access and on which you will be able to raise entries on your PC." & RETURN & RETURN)
  69.   append(doc, "SORT CODE                    ACCOUNT NUMBER                     ACCOUNT NAME                ACCOUNT TYPE" & RETURN)
  70.   setTextStyle(doc, "italic")
  71.   repeat with n = 1 to 9
  72.     append(doc, "                               |                                                    |                                                  |                                       |  * " & RETURN)
  73.   end repeat
  74.   append(doc, RETURN & "* For any joint account please tick to confirm that only one signature is required on cheques" & RETURN & RETURN & RETURN)
  75.   setTextStyle(doc, "normal")
  76.   setTextSize(doc, 10)
  77.   append(doc, "Please tick here if you would like a Barclays Instant savings Account to be opened   [       ]" & RETURN)
  78.   setTextSize(doc, 16)
  79.   setTextStyle(doc, "bold")
  80.   append(doc, "BARCLAYS PC BANKING PERSONAL APPLICATION FORM")
  81.   setTextSize(doc, 12)
  82.   setTextStyle(doc, "bold")
  83.   append(doc, " " & RETURN)
  84.   append(doc, RETURN & "AGREEMENT & AUTHORISATION" & RETURN & RETURN)
  85.   setTextSize(doc, 8)
  86.   setTextStyle(doc, "italic")
  87.   append(doc, "In signing below, you are: 1. Applying to us, Barclays Bank PLC, for banking services including Barclays PC Banking. 2. Confirming that any details you have supplied are true and complete. 3. Authorising us to make credit references and other enquiries whenever you request any credit facilities, or if we wish to consider increasing your agreed limit or offering you other leading products. 4. Agreeing to accept the Personal Customer Terms and Conditions (March 1997) which contain your obligations to us and our obligations to you. These apply to all your present and future personal accounts with us. 5. You agree that if we or you terminate the PC Banking Service, you will return to us any software or equipment provided by us in connection with the service. If we need to revise the PC Banking service or software you will return, at our request, the software we have provided." & RETURN)
  88.   setTextStyle(doc, "normal")
  89.   setTextSize(doc, 12)
  90.   append(doc, RETURN & "Signature 1" & RETURN & RETURN)
  91.   append(doc, "Date" & RETURN & RETURN)
  92.   append(doc, "Signature 2" & RETURN & RETURN)
  93.   append(doc, "Date" & RETURN & RETURN)
  94.   setTextSize(doc, 12)
  95.   setTextStyle(doc, "bold, italic")
  96.   append(doc, RETURN & "FOR OFFICE USE" & RETURN & RETURN)
  97.   setTextSize(doc, 10)
  98.   setTextStyle(doc, "normal")
  99.   append(doc, "[   ] C    [   ] L    [   ] N    [   ] AD    [   ] JT    [   ] OS    [   ] CH" & RETURN & RETURN)
  100.   append(doc, "URN                                             CID _ _ _ _ _ _ _ _ _ _" & RETURN)
  101.   append(doc, "DAT" & RETURN)
  102.   append(doc, "VER                                               DI _ _ _ _ _ _" & RETURN & RETURN)
  103.   setTextSize(doc, 9)
  104.   setTextStyle(doc, "italic")
  105.   append(doc, "Branch Stamp: Please tick :  [   ] ACC    [   ] DCL" & RETURN & RETURN)
  106.   append(doc, "Contact name:" & RETURN & RETURN)
  107.   append(doc, "Ext:" & RETURN & RETURN)
  108.   setTextStyle(doc, "italic, bold")
  109.   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)
  110.   setTextSize(doc, 12)
  111.   setTextStyle(doc, "bold")
  112.   append(doc, RETURN & RETURN & "ACCOMPANYING NOTES" & RETURN & RETURN)
  113.   setTextSize(doc, 8)
  114.   setTextStyle(doc, "normal")
  115.   append(doc, member "notes text")
  116.   setTextSize(doc, 12)
  117.   setTextStyle(doc, "bold")
  118.   append(doc, RETURN & RETURN & "TERMS AND CONDITIONS" & RETURN & RETURN)
  119.   setTextSize(doc, 8)
  120.   setTextStyle(doc, "normal")
  121.   append(doc, member "terms text")
  122.   if doJobSetup(doc) then
  123.     print(doc)
  124.   end if
  125.   set doc to 0
  126. end
  127.  
  128. on settempGlobals
  129.   global gSurname, gForeNames, gDoB, gAddress1, gAddress2, gAddress3, gAddress4, gPostCode, gHomeNum, gDayNum, gBSoft, gMoney97, gMoney98
  130.   set gSurname to "Smith"
  131.   set gForeNames to "Bill Heidi"
  132.   set gDoB to "12/34/64"
  133.   set gAddress1 to "The House"
  134.   set gAddress2 to "The Street"
  135.   set gAddress3 to "The City"
  136.   set gAddress4 to EMPTY
  137.   set gPostCode to "LF6 8SD"
  138.   set gHomeNum to "01234 567890"
  139.   set gDayNum to "01234 098765"
  140.   set gBSoft to 1
  141.   set gMoney97 to 0
  142.   set gMoney98 to 1
  143. end
  144.