Home » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_30.ADF » P/FORM

P/FORM

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk: Home » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_30.ADF
Filename: P/FORM
Read OK:
File size: 10F4 bytes
Load address: FFFF0E00
Exec address: FFFF802B
File contents
   10MODE3
   20REM ELECTRICAL TEST SHEET GENERATING PROGRAM
   30PRINTTAB(0,0)"ELECTRICAL TEST SHEET GENERATING PROGRAM"
   40INPUT"ENTER CLIENT'S NAME "client$:PRINTTAB(50,1)client$
   50INPUT"ENTER CLIENT'S ADDRESS "address$:PRINTTAB(50,3)address$
   60PRINT"Type of Installation:"
   70PRINT"1=new 2=alteration 3=addition "
   80REPEAT:a%=INSTR("123",GET$):UNTILa%
   90IF a%=1 type$="                                   ---------- --------":PRINTTAB(50,5)"NEW"
  100IF a%=2 type$="                               ---            --------":PRINTTAB(50,5)"ALTERATION"
  110IF a%=3 type$="                               --- ---------- ":PRINTTAB(50,5)"ADDITION"
  120PRINT"Type of Earthing:"
  130PRINT"1=TN-C 2=TN-S 3=TN-C-S 4=TT 5=IT"
  140REPEAT:a%=INSTR("12345",GET$):UNTILa%
  150IF a%=1 earth$="                                         ----      ------      --      --":PRINTTAB(50,7)"TN-C"
  160IF a%=2 earth$="                               ----                ------      --      --":PRINTTAB(50,7)"TN-S"
  170IF a%=3 earth$="                               ----      ----                  --      --":PRINTTAB(50,7)"TN-C-S"
  180IF a%=4 earth$="                               ----      ----      ------              --":PRINTTAB(50,7)"TT"
  190IF a%=5 earth$="                               ----      ----      ------      --":PRINTTAB(50,7)"IT"
  200INPUT"ENTER EARTH ELECTRODE RESISTANCE"ohm:PRINTTAB(50,9)"Earth electrode R = ";ohm
  210INPUT"METHOD OF MEASUREMENT";method$:PRINTTAB(50,11)"Measurement method ";method$
  220INPUT"ENTER TYPE OF EARTH ELECTRODE AND LOCATION";typloc$:PRINTTAB(50,13)"Type and location ";typloc$
  410PRINT"PRESS SPACE TO PRINT":A=GET
  420MODE3
  430VDU2:REM Sends output to printer
  440VDU1,27,1,120,1,1:REM Puts printer into NLQ mode
  450PRINT"FORMS OF COMPLETION AND INSPECTION CERTIFICATE"
  460VDU1,27,1,15:REM Condensed print
  470PRINT"(as prescribed in the IEE Regulations for Electrical Installations(1))"
  480VDU1,18:REM CANCEL CONDENSED PRINTING
  490PRINT"DETAILS OF INSTALLATION"
  500VDU1,27,1,15
  510PRINT"Client "client$
  520PRINT
  530PRINT"Address "address$
  540PRINT
  550PRINT
  560PRINT
  570PRINT"_________________________________________________________________________"
  580PRINT
  590VDU1,18
  600PRINT"PARTICULARS OF INSTALLATION"
  610VDU1,27,1,15
  620PRINT"(Delete or complete items as appropriate)"
  630PRINT
  640PRINT"Type of installation           New/Alteration/Addition/to existing installation."
  650VDU1,27,1,10:PRINT type$:REM REVERSE LINE FEED TO CROSS OUT UNWANTED ITEMS
  660PRINT"Type of earthing (312-03)      TN-C      TN-S      TN-C-S      TT      IT"
  670VDU1,27,1,10:PRINT earth$
  680PRINT"Earth electrode:               Resistance "ohm" ohms"
  690PRINT
  700PRINT"                               Method of measurement  ";method$
  710PRINT
  720PRINT"                               Type (542-02-01) and location  ";typloc$
  730PRINT:REM QUESTIONS ONLY TAKEN THIS FAR
  740PRINT"Characteristics of the supply at the origin of the installation (313-01)"
  750PRINT
  760PRINT"               Nominal voltage.....................................volts"
  770PRINT
  780PRINT"               Frequency...........................................Hz"
  790PRINT
  800PRINT"               Number of phases..............."
  810PRINT
  820PRINT"   Prospective short-circuit current...............kA  how determined enquiry.....calculation.....measurement....."
  830PRINT
  840PRINT"   Earth fault loop impedance (Z";:VDU1,27,1,83,1,1:PRINT"e";:VDU1,27,1,84:PRINT") ...............ohms   how determined enquiry.....calculation.....measurement.....":REM SUBSCRIPE ON TO PRINT e THEN OFF AGAIN
  850PRINT
  860PRINT"               Maximum demand per phase ...........................A"
  870PRINT
  880PRINT"               Over current protective device - Type BS.................. Rating ..................A"
  890PRINT
  900PRINT"        Main switch or circuit breaker (460-01-02): Type BS............. Rating ............A No of poles........"
  910PRINT
  920PRINT"               (if an rcd rated residual current I";:VDU1,27,1,83,1,49:PRINT"an";:VDU1,27,1,84:PRINT"...............mA"
  930PRINT
  940PRINT
  950PRINT"Method of protection against indirect contact"
  960PRINT
  970PRINT"1. Earthed equipotential bonding and automatic disconnection of supply .........."
  980PRINT
  990PRINT"or"
 1000PRINT
 1010PRINT"2. Other ...... (Describe)................................................................................"
 1020PRINT
 1030PRINT"Main equipotential bonding conductors (413-02-01/02. 547-02-01): Size ...............mm";:VDU1,27,1,83,1,0:PRINT"2":VDU1,27,1,84  
 1040PRINT
 1050PRINT"Schedule of test results: Continuation ......................................pages"
 1060PRINT
 1070PRINT"Details of departures (if any from Wiring Regulations (120-04, 120-05) ........................"
 1080PRINT
 1090PRINT"Comments on existing installation, where applicable (743-01-01): .............."
 1100VDU3
 1110VDU1,18

�3
.� ELECTRICAL TEST SHEET GENERATING PROGRAM
4�0,0)"ELECTRICAL TEST SHEET GENERATING PROGRAM"
(1�"ENTER CLIENT'S NAME "client$:�50,1)client$
26�"ENTER CLIENT'S ADDRESS "address$:�50,3)address$
<�"Type of Installation:"
F%�"1=new 2=alteration 3=addition "
P�:a%=�"123",�):�a%
ZV� a%=1 type$="                                   ---------- --------":�50,5)"NEW"
d]� a%=2 type$="                               ---            --------":�50,5)"ALTERATION"
nS� a%=3 type$="                               --- ---------- ":�50,5)"ADDITION"
x�"Type of Earthing:"
�'�"1=TN-C 2=TN-S 3=TN-C-S 4=TT 5=IT"
��:a%=�"12345",�):�a%
�k� a%=1 earth$="                                         ----      ------      --      --":�50,7)"TN-C"
�k� a%=2 earth$="                               ----                ------      --      --":�50,7)"TN-S"
�m� a%=3 earth$="                               ----      ----                  --      --":�50,7)"TN-C-S"
�i� a%=4 earth$="                               ----      ----      ------              --":�50,7)"TT"
�a� a%=5 earth$="                               ----      ----      ------      --":�50,7)"IT"
�L�"ENTER EARTH ELECTRODE RESISTANCE"ohm:�50,9)"Earth electrode R = ";ohm
�J�"METHOD OF MEASUREMENT";method$:�50,11)"Measurement method ";method$
�^�"ENTER TYPE OF EARTH ELECTRODE AND LOCATION";typloc$:�50,13)"Type and location ";typloc$
��"PRESS SPACE TO PRINT":A=�
��3
� �2:� Sends output to printer
�0�1,27,1,120,1,1:� Puts printer into NLQ mode
�5�"FORMS OF COMPLETION AND INSPECTION CERTIFICATE"
� �1,27,1,15:� Condensed print
�M�"(as prescribed in the IEE Regulations for Electrical Installations(1))"
�%�1,18:� CANCEL CONDENSED PRINTING
��"DETAILS OF INSTALLATION"
��1,27,1,15
��"Client "client$
�
�"Address "address$
�
&�
0�
:P�"_________________________________________________________________________"
D�
N	�1,18
X"�"PARTICULARS OF INSTALLATION"
b�1,27,1,15
l0�"(Delete or complete items as appropriate)"
v�
�W�"Type of installation           New/Alteration/Addition/to existing installation."
�F�1,27,1,10:� type$:� REVERSE LINE FEED TO CROSS OUT UNWANTED ITEMS
�P�"Type of earthing (312-03)      TN-C      TN-S      TN-C-S      TT      IT"
��1,27,1,10:� earth$
�;�"Earth electrode:               Resistance "ohm" ohms"
��
�E�"                               Method of measurement  ";method$
��
�M�"                               Type (542-02-01) and location  ";typloc$
�%�:� QUESTIONS ONLY TAKEN THIS FAR
�O�"Characteristics of the supply at the origin of the installation (313-01)"
��
�O�"               Nominal voltage.....................................volts"
�
L�"               Frequency...........................................Hz"
�
 5�"               Number of phases..............."
*�
4y�"   Prospective short-circuit current...............kA  how determined enquiry.....calculation.....measurement....."
>�
H��"   Earth fault loop impedance (Z";:�1,27,1,83,1,1:�"e";:�1,27,1,84:�") ...............ohms   how determined enquiry.....calculation.....measurement.....":� SUBSCRIPE ON TO PRINT e THEN OFF AGAIN
R�
\K�"               Maximum demand per phase ...........................A"
f�
pk�"               Over current protective device - Type BS.................. Rating ..................A"
z�
�x�"        Main switch or circuit breaker (460-01-02): Type BS............. Rating ............A No of poles........"
��
�q�"               (if an rcd rated residual current I";:�1,27,1,83,1,49:�"an";:�1,27,1,84:�"...............mA"
��
��
�4�"Method of protection against indirect contact"
��
�X�"1. Earthed equipotential bonding and automatic disconnection of supply .........."
��
�	�"or"
��
�q�"2. Other ...... (Describe)................................................................................"
��
��"Main equipotential bonding conductors (413-02-01/02. 547-02-01): Size ...............mm";:�1,27,1,83,1,0:�"2":�1,27,1,84  
�
Y�"Schedule of test results: Continuation ......................................pages"
$�
.f�"Details of departures (if any from Wiring Regulations (120-04, 120-05) ........................"
8�
BV�"Comments on existing installation, where applicable (743-01-01): .............."
L�3
V	�1,18
�
00000000  0d 00 0a 06 eb 33 0d 00  14 2e f4 20 45 4c 45 43  |.....3..... ELEC|
00000010  54 52 49 43 41 4c 20 54  45 53 54 20 53 48 45 45  |TRICAL TEST SHEE|
00000020  54 20 47 45 4e 45 52 41  54 49 4e 47 20 50 52 4f  |T GENERATING PRO|
00000030  47 52 41 4d 0d 00 1e 34  f1 8a 30 2c 30 29 22 45  |GRAM...4..0,0)"E|
00000040  4c 45 43 54 52 49 43 41  4c 20 54 45 53 54 20 53  |LECTRICAL TEST S|
00000050  48 45 45 54 20 47 45 4e  45 52 41 54 49 4e 47 20  |HEET GENERATING |
00000060  50 52 4f 47 52 41 4d 22  0d 00 28 31 e8 22 45 4e  |PROGRAM"..(1."EN|
00000070  54 45 52 20 43 4c 49 45  4e 54 27 53 20 4e 41 4d  |TER CLIENT'S NAM|
00000080  45 20 22 63 6c 69 65 6e  74 24 3a f1 8a 35 30 2c  |E "client$:..50,|
00000090  31 29 63 6c 69 65 6e 74  24 0d 00 32 36 e8 22 45  |1)client$..26."E|
000000a0  4e 54 45 52 20 43 4c 49  45 4e 54 27 53 20 41 44  |NTER CLIENT'S AD|
000000b0  44 52 45 53 53 20 22 61  64 64 72 65 73 73 24 3a  |DRESS "address$:|
000000c0  f1 8a 35 30 2c 33 29 61  64 64 72 65 73 73 24 0d  |..50,3)address$.|
000000d0  00 3c 1c f1 22 54 79 70  65 20 6f 66 20 49 6e 73  |.<.."Type of Ins|
000000e0  74 61 6c 6c 61 74 69 6f  6e 3a 22 0d 00 46 25 f1  |tallation:"..F%.|
000000f0  22 31 3d 6e 65 77 20 32  3d 61 6c 74 65 72 61 74  |"1=new 2=alterat|
00000100  69 6f 6e 20 33 3d 61 64  64 69 74 69 6f 6e 20 22  |ion 3=addition "|
00000110  0d 00 50 16 f5 3a 61 25  3d a7 22 31 32 33 22 2c  |..P..:a%=."123",|
00000120  be 29 3a fd 61 25 0d 00  5a 56 e7 20 61 25 3d 31  |.):.a%..ZV. a%=1|
00000130  20 74 79 70 65 24 3d 22  20 20 20 20 20 20 20 20  | type$="        |
00000140  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000150  20 20 20 20 20 20 20 20  20 20 20 2d 2d 2d 2d 2d  |           -----|
00000160  2d 2d 2d 2d 2d 20 2d 2d  2d 2d 2d 2d 2d 2d 22 3a  |----- --------":|
00000170  f1 8a 35 30 2c 35 29 22  4e 45 57 22 0d 00 64 5d  |..50,5)"NEW"..d]|
00000180  e7 20 61 25 3d 32 20 74  79 70 65 24 3d 22 20 20  |. a%=2 type$="  |
00000190  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000001a0  20 20 20 20 20 20 20 20  20 20 20 20 20 2d 2d 2d  |             ---|
000001b0  20 20 20 20 20 20 20 20  20 20 20 20 2d 2d 2d 2d  |            ----|
000001c0  2d 2d 2d 2d 22 3a f1 8a  35 30 2c 35 29 22 41 4c  |----":..50,5)"AL|
000001d0  54 45 52 41 54 49 4f 4e  22 0d 00 6e 53 e7 20 61  |TERATION"..nS. a|
000001e0  25 3d 33 20 74 79 70 65  24 3d 22 20 20 20 20 20  |%=3 type$="     |
000001f0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000200  20 20 20 20 20 20 20 20  20 20 2d 2d 2d 20 2d 2d  |          --- --|
00000210  2d 2d 2d 2d 2d 2d 2d 2d  20 22 3a f1 8a 35 30 2c  |-------- ":..50,|
00000220  35 29 22 41 44 44 49 54  49 4f 4e 22 0d 00 78 18  |5)"ADDITION"..x.|
00000230  f1 22 54 79 70 65 20 6f  66 20 45 61 72 74 68 69  |."Type of Earthi|
00000240  6e 67 3a 22 0d 00 82 27  f1 22 31 3d 54 4e 2d 43  |ng:"...'."1=TN-C|
00000250  20 32 3d 54 4e 2d 53 20  33 3d 54 4e 2d 43 2d 53  | 2=TN-S 3=TN-C-S|
00000260  20 34 3d 54 54 20 35 3d  49 54 22 0d 00 8c 18 f5  | 4=TT 5=IT".....|
00000270  3a 61 25 3d a7 22 31 32  33 34 35 22 2c be 29 3a  |:a%=."12345",.):|
00000280  fd 61 25 0d 00 96 6b e7  20 61 25 3d 31 20 65 61  |.a%...k. a%=1 ea|
00000290  72 74 68 24 3d 22 20 20  20 20 20 20 20 20 20 20  |rth$="          |
000002a0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000002b0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 2d  |               -|
000002c0  2d 2d 2d 20 20 20 20 20  20 2d 2d 2d 2d 2d 2d 20  |---      ------ |
000002d0  20 20 20 20 20 2d 2d 20  20 20 20 20 20 2d 2d 22  |     --      --"|
000002e0  3a f1 8a 35 30 2c 37 29  22 54 4e 2d 43 22 0d 00  |:..50,7)"TN-C"..|
000002f0  a0 6b e7 20 61 25 3d 32  20 65 61 72 74 68 24 3d  |.k. a%=2 earth$=|
00000300  22 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |"               |
00000310  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000320  2d 2d 2d 2d 20 20 20 20  20 20 20 20 20 20 20 20  |----            |
00000330  20 20 20 20 2d 2d 2d 2d  2d 2d 20 20 20 20 20 20  |    ------      |
00000340  2d 2d 20 20 20 20 20 20  2d 2d 22 3a f1 8a 35 30  |--      --":..50|
00000350  2c 37 29 22 54 4e 2d 53  22 0d 00 aa 6d e7 20 61  |,7)"TN-S"...m. a|
00000360  25 3d 33 20 65 61 72 74  68 24 3d 22 20 20 20 20  |%=3 earth$="    |
00000370  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000380  20 20 20 20 20 20 20 20  20 20 20 2d 2d 2d 2d 20  |           ---- |
00000390  20 20 20 20 20 2d 2d 2d  2d 20 20 20 20 20 20 20  |     ----       |
000003a0  20 20 20 20 20 20 20 20  20 20 20 2d 2d 20 20 20  |           --   |
000003b0  20 20 20 2d 2d 22 3a f1  8a 35 30 2c 37 29 22 54  |   --":..50,7)"T|
000003c0  4e 2d 43 2d 53 22 0d 00  b4 69 e7 20 61 25 3d 34  |N-C-S"...i. a%=4|
000003d0  20 65 61 72 74 68 24 3d  22 20 20 20 20 20 20 20  | earth$="       |
000003e0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000003f0  20 20 20 20 20 20 20 20  2d 2d 2d 2d 20 20 20 20  |        ----    |
00000400  20 20 2d 2d 2d 2d 20 20  20 20 20 20 2d 2d 2d 2d  |  ----      ----|
00000410  2d 2d 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |--              |
00000420  2d 2d 22 3a f1 8a 35 30  2c 37 29 22 54 54 22 0d  |--":..50,7)"TT".|
00000430  00 be 61 e7 20 61 25 3d  35 20 65 61 72 74 68 24  |..a. a%=5 earth$|
00000440  3d 22 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |="              |
00000450  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000460  20 2d 2d 2d 2d 20 20 20  20 20 20 2d 2d 2d 2d 20  | ----      ---- |
00000470  20 20 20 20 20 2d 2d 2d  2d 2d 2d 20 20 20 20 20  |     ------     |
00000480  20 2d 2d 22 3a f1 8a 35  30 2c 37 29 22 49 54 22  | --":..50,7)"IT"|
00000490  0d 00 c8 4c e8 22 45 4e  54 45 52 20 45 41 52 54  |...L."ENTER EART|
000004a0  48 20 45 4c 45 43 54 52  4f 44 45 20 52 45 53 49  |H ELECTRODE RESI|
000004b0  53 54 41 4e 43 45 22 6f  68 6d 3a f1 8a 35 30 2c  |STANCE"ohm:..50,|
000004c0  39 29 22 45 61 72 74 68  20 65 6c 65 63 74 72 6f  |9)"Earth electro|
000004d0  64 65 20 52 20 3d 20 22  3b 6f 68 6d 0d 00 d2 4a  |de R = ";ohm...J|
000004e0  e8 22 4d 45 54 48 4f 44  20 4f 46 20 4d 45 41 53  |."METHOD OF MEAS|
000004f0  55 52 45 4d 45 4e 54 22  3b 6d 65 74 68 6f 64 24  |UREMENT";method$|
00000500  3a f1 8a 35 30 2c 31 31  29 22 4d 65 61 73 75 72  |:..50,11)"Measur|
00000510  65 6d 65 6e 74 20 6d 65  74 68 6f 64 20 22 3b 6d  |ement method ";m|
00000520  65 74 68 6f 64 24 0d 00  dc 5e e8 22 45 4e 54 45  |ethod$...^."ENTE|
00000530  52 20 54 59 50 45 20 4f  46 20 45 41 52 54 48 20  |R TYPE OF EARTH |
00000540  45 4c 45 43 54 52 4f 44  45 20 41 4e 44 20 4c 4f  |ELECTRODE AND LO|
00000550  43 41 54 49 4f 4e 22 3b  74 79 70 6c 6f 63 24 3a  |CATION";typloc$:|
00000560  f1 8a 35 30 2c 31 33 29  22 54 79 70 65 20 61 6e  |..50,13)"Type an|
00000570  64 20 6c 6f 63 61 74 69  6f 6e 20 22 3b 74 79 70  |d location ";typ|
00000580  6c 6f 63 24 0d 01 9a 1f  f1 22 50 52 45 53 53 20  |loc$....."PRESS |
00000590  53 50 41 43 45 20 54 4f  20 50 52 49 4e 54 22 3a  |SPACE TO PRINT":|
000005a0  41 3d a5 0d 01 a4 06 eb  33 0d 01 ae 20 ef 32 3a  |A=......3... .2:|
000005b0  f4 20 53 65 6e 64 73 20  6f 75 74 70 75 74 20 74  |. Sends output t|
000005c0  6f 20 70 72 69 6e 74 65  72 0d 01 b8 30 ef 31 2c  |o printer...0.1,|
000005d0  32 37 2c 31 2c 31 32 30  2c 31 2c 31 3a f4 20 50  |27,1,120,1,1:. P|
000005e0  75 74 73 20 70 72 69 6e  74 65 72 20 69 6e 74 6f  |uts printer into|
000005f0  20 4e 4c 51 20 6d 6f 64  65 0d 01 c2 35 f1 22 46  | NLQ mode...5."F|
00000600  4f 52 4d 53 20 4f 46 20  43 4f 4d 50 4c 45 54 49  |ORMS OF COMPLETI|
00000610  4f 4e 20 41 4e 44 20 49  4e 53 50 45 43 54 49 4f  |ON AND INSPECTIO|
00000620  4e 20 43 45 52 54 49 46  49 43 41 54 45 22 0d 01  |N CERTIFICATE"..|
00000630  cc 20 ef 31 2c 32 37 2c  31 2c 31 35 3a f4 20 43  |. .1,27,1,15:. C|
00000640  6f 6e 64 65 6e 73 65 64  20 70 72 69 6e 74 0d 01  |ondensed print..|
00000650  d6 4d f1 22 28 61 73 20  70 72 65 73 63 72 69 62  |.M."(as prescrib|
00000660  65 64 20 69 6e 20 74 68  65 20 49 45 45 20 52 65  |ed in the IEE Re|
00000670  67 75 6c 61 74 69 6f 6e  73 20 66 6f 72 20 45 6c  |gulations for El|
00000680  65 63 74 72 69 63 61 6c  20 49 6e 73 74 61 6c 6c  |ectrical Install|
00000690  61 74 69 6f 6e 73 28 31  29 29 22 0d 01 e0 25 ef  |ations(1))"...%.|
000006a0  31 2c 31 38 3a f4 20 43  41 4e 43 45 4c 20 43 4f  |1,18:. CANCEL CO|
000006b0  4e 44 45 4e 53 45 44 20  50 52 49 4e 54 49 4e 47  |NDENSED PRINTING|
000006c0  0d 01 ea 1e f1 22 44 45  54 41 49 4c 53 20 4f 46  |....."DETAILS OF|
000006d0  20 49 4e 53 54 41 4c 4c  41 54 49 4f 4e 22 0d 01  | INSTALLATION"..|
000006e0  f4 0e ef 31 2c 32 37 2c  31 2c 31 35 0d 01 fe 15  |...1,27,1,15....|
000006f0  f1 22 43 6c 69 65 6e 74  20 22 63 6c 69 65 6e 74  |."Client "client|
00000700  24 0d 02 08 05 f1 0d 02  12 17 f1 22 41 64 64 72  |$.........."Addr|
00000710  65 73 73 20 22 61 64 64  72 65 73 73 24 0d 02 1c  |ess "address$...|
00000720  05 f1 0d 02 26 05 f1 0d  02 30 05 f1 0d 02 3a 50  |....&....0....:P|
00000730  f1 22 5f 5f 5f 5f 5f 5f  5f 5f 5f 5f 5f 5f 5f 5f  |."______________|
00000740  5f 5f 5f 5f 5f 5f 5f 5f  5f 5f 5f 5f 5f 5f 5f 5f  |________________|
*
00000770  5f 5f 5f 5f 5f 5f 5f 5f  5f 5f 5f 22 0d 02 44 05  |___________"..D.|
00000780  f1 0d 02 4e 09 ef 31 2c  31 38 0d 02 58 22 f1 22  |...N..1,18..X"."|
00000790  50 41 52 54 49 43 55 4c  41 52 53 20 4f 46 20 49  |PARTICULARS OF I|
000007a0  4e 53 54 41 4c 4c 41 54  49 4f 4e 22 0d 02 62 0e  |NSTALLATION"..b.|
000007b0  ef 31 2c 32 37 2c 31 2c  31 35 0d 02 6c 30 f1 22  |.1,27,1,15..l0."|
000007c0  28 44 65 6c 65 74 65 20  6f 72 20 63 6f 6d 70 6c  |(Delete or compl|
000007d0  65 74 65 20 69 74 65 6d  73 20 61 73 20 61 70 70  |ete items as app|
000007e0  72 6f 70 72 69 61 74 65  29 22 0d 02 76 05 f1 0d  |ropriate)"..v...|
000007f0  02 80 57 f1 22 54 79 70  65 20 6f 66 20 69 6e 73  |..W."Type of ins|
00000800  74 61 6c 6c 61 74 69 6f  6e 20 20 20 20 20 20 20  |tallation       |
00000810  20 20 20 20 4e 65 77 2f  41 6c 74 65 72 61 74 69  |    New/Alterati|
00000820  6f 6e 2f 41 64 64 69 74  69 6f 6e 2f 74 6f 20 65  |on/Addition/to e|
00000830  78 69 73 74 69 6e 67 20  69 6e 73 74 61 6c 6c 61  |xisting installa|
00000840  74 69 6f 6e 2e 22 0d 02  8a 46 ef 31 2c 32 37 2c  |tion."...F.1,27,|
00000850  31 2c 31 30 3a f1 20 74  79 70 65 24 3a f4 20 52  |1,10:. type$:. R|
00000860  45 56 45 52 53 45 20 4c  49 4e 45 20 46 45 45 44  |EVERSE LINE FEED|
00000870  20 54 4f 20 43 52 4f 53  53 20 4f 55 54 20 55 4e  | TO CROSS OUT UN|
00000880  57 41 4e 54 45 44 20 49  54 45 4d 53 0d 02 94 50  |WANTED ITEMS...P|
00000890  f1 22 54 79 70 65 20 6f  66 20 65 61 72 74 68 69  |."Type of earthi|
000008a0  6e 67 20 28 33 31 32 2d  30 33 29 20 20 20 20 20  |ng (312-03)     |
000008b0  20 54 4e 2d 43 20 20 20  20 20 20 54 4e 2d 53 20  | TN-C      TN-S |
000008c0  20 20 20 20 20 54 4e 2d  43 2d 53 20 20 20 20 20  |     TN-C-S     |
000008d0  20 54 54 20 20 20 20 20  20 49 54 22 0d 02 9e 17  | TT      IT"....|
000008e0  ef 31 2c 32 37 2c 31 2c  31 30 3a f1 20 65 61 72  |.1,27,1,10:. ear|
000008f0  74 68 24 0d 02 a8 3b f1  22 45 61 72 74 68 20 65  |th$...;."Earth e|
00000900  6c 65 63 74 72 6f 64 65  3a 20 20 20 20 20 20 20  |lectrode:       |
00000910  20 20 20 20 20 20 20 20  52 65 73 69 73 74 61 6e  |        Resistan|
00000920  63 65 20 22 6f 68 6d 22  20 6f 68 6d 73 22 0d 02  |ce "ohm" ohms"..|
00000930  b2 05 f1 0d 02 bc 45 f1  22 20 20 20 20 20 20 20  |......E."       |
00000940  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000950  20 20 20 20 20 20 20 20  4d 65 74 68 6f 64 20 6f  |        Method o|
00000960  66 20 6d 65 61 73 75 72  65 6d 65 6e 74 20 20 22  |f measurement  "|
00000970  3b 6d 65 74 68 6f 64 24  0d 02 c6 05 f1 0d 02 d0  |;method$........|
00000980  4d f1 22 20 20 20 20 20  20 20 20 20 20 20 20 20  |M."             |
00000990  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000009a0  20 20 54 79 70 65 20 28  35 34 32 2d 30 32 2d 30  |  Type (542-02-0|
000009b0  31 29 20 61 6e 64 20 6c  6f 63 61 74 69 6f 6e 20  |1) and location |
000009c0  20 22 3b 74 79 70 6c 6f  63 24 0d 02 da 25 f1 3a  | ";typloc$...%.:|
000009d0  f4 20 51 55 45 53 54 49  4f 4e 53 20 4f 4e 4c 59  |. QUESTIONS ONLY|
000009e0  20 54 41 4b 45 4e 20 54  48 49 53 20 46 41 52 0d  | TAKEN THIS FAR.|
000009f0  02 e4 4f f1 22 43 68 61  72 61 63 74 65 72 69 73  |..O."Characteris|
00000a00  74 69 63 73 20 6f 66 20  74 68 65 20 73 75 70 70  |tics of the supp|
00000a10  6c 79 20 61 74 20 74 68  65 20 6f 72 69 67 69 6e  |ly at the origin|
00000a20  20 6f 66 20 74 68 65 20  69 6e 73 74 61 6c 6c 61  | of the installa|
00000a30  74 69 6f 6e 20 28 33 31  33 2d 30 31 29 22 0d 02  |tion (313-01)"..|
00000a40  ee 05 f1 0d 02 f8 4f f1  22 20 20 20 20 20 20 20  |......O."       |
00000a50  20 20 20 20 20 20 20 20  4e 6f 6d 69 6e 61 6c 20  |        Nominal |
00000a60  76 6f 6c 74 61 67 65 2e  2e 2e 2e 2e 2e 2e 2e 2e  |voltage.........|
00000a70  2e 2e 2e 2e 2e 2e 2e 2e  2e 2e 2e 2e 2e 2e 2e 2e  |................|
00000a80  2e 2e 2e 2e 2e 2e 2e 2e  2e 2e 2e 2e 76 6f 6c 74  |............volt|
00000a90  73 22 0d 03 02 05 f1 0d  03 0c 4c f1 22 20 20 20  |s"........L."   |
00000aa0  20 20 20 20 20 20 20 20  20 20 20 20 46 72 65 71  |            Freq|
00000ab0  75 65 6e 63 79 2e 2e 2e  2e 2e 2e 2e 2e 2e 2e 2e  |uency...........|
00000ac0  2e 2e 2e 2e 2e 2e 2e 2e  2e 2e 2e 2e 2e 2e 2e 2e  |................|
*
00000ae0  48 7a 22 0d 03 16 05 f1  0d 03 20 35 f1 22 20 20  |Hz"....... 5."  |
00000af0  20 20 20 20 20 20 20 20  20 20 20 20 20 4e 75 6d  |             Num|
00000b00  62 65 72 20 6f 66 20 70  68 61 73 65 73 2e 2e 2e  |ber of phases...|
00000b10  2e 2e 2e 2e 2e 2e 2e 2e  2e 2e 2e 2e 22 0d 03 2a  |............"..*|
00000b20  05 f1 0d 03 34 79 f1 22  20 20 20 50 72 6f 73 70  |....4y."   Prosp|
00000b30  65 63 74 69 76 65 20 73  68 6f 72 74 2d 63 69 72  |ective short-cir|
00000b40  63 75 69 74 20 63 75 72  72 65 6e 74 2e 2e 2e 2e  |cuit current....|
00000b50  2e 2e 2e 2e 2e 2e 2e 2e  2e 2e 2e 6b 41 20 20 68  |...........kA  h|
00000b60  6f 77 20 64 65 74 65 72  6d 69 6e 65 64 20 65 6e  |ow determined en|
00000b70  71 75 69 72 79 2e 2e 2e  2e 2e 63 61 6c 63 75 6c  |quiry.....calcul|
00000b80  61 74 69 6f 6e 2e 2e 2e  2e 2e 6d 65 61 73 75 72  |ation.....measur|
00000b90  65 6d 65 6e 74 2e 2e 2e  2e 2e 22 0d 03 3e 05 f1  |ement....."..>..|
00000ba0  0d 03 48 c8 f1 22 20 20  20 45 61 72 74 68 20 66  |..H.."   Earth f|
00000bb0  61 75 6c 74 20 6c 6f 6f  70 20 69 6d 70 65 64 61  |ault loop impeda|
00000bc0  6e 63 65 20 28 5a 22 3b  3a ef 31 2c 32 37 2c 31  |nce (Z";:.1,27,1|
00000bd0  2c 38 33 2c 31 2c 31 3a  f1 22 65 22 3b 3a ef 31  |,83,1,1:."e";:.1|
00000be0  2c 32 37 2c 31 2c 38 34  3a f1 22 29 20 2e 2e 2e  |,27,1,84:.") ...|
00000bf0  2e 2e 2e 2e 2e 2e 2e 2e  2e 2e 2e 2e 6f 68 6d 73  |............ohms|
00000c00  20 20 20 68 6f 77 20 64  65 74 65 72 6d 69 6e 65  |   how determine|
00000c10  64 20 65 6e 71 75 69 72  79 2e 2e 2e 2e 2e 63 61  |d enquiry.....ca|
00000c20  6c 63 75 6c 61 74 69 6f  6e 2e 2e 2e 2e 2e 6d 65  |lculation.....me|
00000c30  61 73 75 72 65 6d 65 6e  74 2e 2e 2e 2e 2e 22 3a  |asurement.....":|
00000c40  f4 20 53 55 42 53 43 52  49 50 45 20 4f 4e 20 54  |. SUBSCRIPE ON T|
00000c50  4f 20 50 52 49 4e 54 20  65 20 54 48 45 4e 20 4f  |O PRINT e THEN O|
00000c60  46 46 20 41 47 41 49 4e  0d 03 52 05 f1 0d 03 5c  |FF AGAIN..R....\|
00000c70  4b f1 22 20 20 20 20 20  20 20 20 20 20 20 20 20  |K."             |
00000c80  20 20 4d 61 78 69 6d 75  6d 20 64 65 6d 61 6e 64  |  Maximum demand|
00000c90  20 70 65 72 20 70 68 61  73 65 20 2e 2e 2e 2e 2e  | per phase .....|
00000ca0  2e 2e 2e 2e 2e 2e 2e 2e  2e 2e 2e 2e 2e 2e 2e 2e  |................|
00000cb0  2e 2e 2e 2e 2e 2e 41 22  0d 03 66 05 f1 0d 03 70  |......A"..f....p|
00000cc0  6b f1 22 20 20 20 20 20  20 20 20 20 20 20 20 20  |k."             |
00000cd0  20 20 4f 76 65 72 20 63  75 72 72 65 6e 74 20 70  |  Over current p|
00000ce0  72 6f 74 65 63 74 69 76  65 20 64 65 76 69 63 65  |rotective device|
00000cf0  20 2d 20 54 79 70 65 20  42 53 2e 2e 2e 2e 2e 2e  | - Type BS......|
00000d00  2e 2e 2e 2e 2e 2e 2e 2e  2e 2e 2e 2e 20 52 61 74  |............ Rat|
00000d10  69 6e 67 20 2e 2e 2e 2e  2e 2e 2e 2e 2e 2e 2e 2e  |ing ............|
00000d20  2e 2e 2e 2e 2e 2e 41 22  0d 03 7a 05 f1 0d 03 84  |......A"..z.....|
00000d30  78 f1 22 20 20 20 20 20  20 20 20 4d 61 69 6e 20  |x."        Main |
00000d40  73 77 69 74 63 68 20 6f  72 20 63 69 72 63 75 69  |switch or circui|
00000d50  74 20 62 72 65 61 6b 65  72 20 28 34 36 30 2d 30  |t breaker (460-0|
00000d60  31 2d 30 32 29 3a 20 54  79 70 65 20 42 53 2e 2e  |1-02): Type BS..|
00000d70  2e 2e 2e 2e 2e 2e 2e 2e  2e 2e 2e 20 52 61 74 69  |........... Rati|
00000d80  6e 67 20 2e 2e 2e 2e 2e  2e 2e 2e 2e 2e 2e 2e 41  |ng ............A|
00000d90  20 4e 6f 20 6f 66 20 70  6f 6c 65 73 2e 2e 2e 2e  | No of poles....|
00000da0  2e 2e 2e 2e 22 0d 03 8e  05 f1 0d 03 98 71 f1 22  |...."........q."|
00000db0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 28  |               (|
00000dc0  69 66 20 61 6e 20 72 63  64 20 72 61 74 65 64 20  |if an rcd rated |
00000dd0  72 65 73 69 64 75 61 6c  20 63 75 72 72 65 6e 74  |residual current|
00000de0  20 49 22 3b 3a ef 31 2c  32 37 2c 31 2c 38 33 2c  | I";:.1,27,1,83,|
00000df0  31 2c 34 39 3a f1 22 61  6e 22 3b 3a ef 31 2c 32  |1,49:."an";:.1,2|
00000e00  37 2c 31 2c 38 34 3a f1  22 2e 2e 2e 2e 2e 2e 2e  |7,1,84:.".......|
00000e10  2e 2e 2e 2e 2e 2e 2e 2e  6d 41 22 0d 03 a2 05 f1  |........mA".....|
00000e20  0d 03 ac 05 f1 0d 03 b6  34 f1 22 4d 65 74 68 6f  |........4."Metho|
00000e30  64 20 6f 66 20 70 72 6f  74 65 63 74 69 6f 6e 20  |d of protection |
00000e40  61 67 61 69 6e 73 74 20  69 6e 64 69 72 65 63 74  |against indirect|
00000e50  20 63 6f 6e 74 61 63 74  22 0d 03 c0 05 f1 0d 03  | contact".......|
00000e60  ca 58 f1 22 31 2e 20 45  61 72 74 68 65 64 20 65  |.X."1. Earthed e|
00000e70  71 75 69 70 6f 74 65 6e  74 69 61 6c 20 62 6f 6e  |quipotential bon|
00000e80  64 69 6e 67 20 61 6e 64  20 61 75 74 6f 6d 61 74  |ding and automat|
00000e90  69 63 20 64 69 73 63 6f  6e 6e 65 63 74 69 6f 6e  |ic disconnection|
00000ea0  20 6f 66 20 73 75 70 70  6c 79 20 2e 2e 2e 2e 2e  | of supply .....|
00000eb0  2e 2e 2e 2e 2e 22 0d 03  d4 05 f1 0d 03 de 09 f1  |....."..........|
00000ec0  22 6f 72 22 0d 03 e8 05  f1 0d 03 f2 71 f1 22 32  |"or"........q."2|
00000ed0  2e 20 4f 74 68 65 72 20  2e 2e 2e 2e 2e 2e 20 28  |. Other ...... (|
00000ee0  44 65 73 63 72 69 62 65  29 2e 2e 2e 2e 2e 2e 2e  |Describe).......|
00000ef0  2e 2e 2e 2e 2e 2e 2e 2e  2e 2e 2e 2e 2e 2e 2e 2e  |................|
*
00000f30  2e 2e 2e 2e 2e 2e 2e 2e  2e 22 0d 03 fc 05 f1 0d  |........."......|
00000f40  04 06 80 f1 22 4d 61 69  6e 20 65 71 75 69 70 6f  |...."Main equipo|
00000f50  74 65 6e 74 69 61 6c 20  62 6f 6e 64 69 6e 67 20  |tential bonding |
00000f60  63 6f 6e 64 75 63 74 6f  72 73 20 28 34 31 33 2d  |conductors (413-|
00000f70  30 32 2d 30 31 2f 30 32  2e 20 35 34 37 2d 30 32  |02-01/02. 547-02|
00000f80  2d 30 31 29 3a 20 53 69  7a 65 20 2e 2e 2e 2e 2e  |-01): Size .....|
00000f90  2e 2e 2e 2e 2e 2e 2e 2e  2e 2e 6d 6d 22 3b 3a ef  |..........mm";:.|
00000fa0  31 2c 32 37 2c 31 2c 38  33 2c 31 2c 30 3a f1 22  |1,27,1,83,1,0:."|
00000fb0  32 22 3a ef 31 2c 32 37  2c 31 2c 38 34 20 20 0d  |2":.1,27,1,84  .|
00000fc0  04 10 05 f1 0d 04 1a 59  f1 22 53 63 68 65 64 75  |.......Y."Schedu|
00000fd0  6c 65 20 6f 66 20 74 65  73 74 20 72 65 73 75 6c  |le of test resul|
00000fe0  74 73 3a 20 43 6f 6e 74  69 6e 75 61 74 69 6f 6e  |ts: Continuation|
00000ff0  20 2e 2e 2e 2e 2e 2e 2e  2e 2e 2e 2e 2e 2e 2e 2e  | ...............|
00001000  2e 2e 2e 2e 2e 2e 2e 2e  2e 2e 2e 2e 2e 2e 2e 2e  |................|
00001010  2e 2e 2e 2e 2e 2e 2e 70  61 67 65 73 22 0d 04 24  |.......pages"..$|
00001020  05 f1 0d 04 2e 66 f1 22  44 65 74 61 69 6c 73 20  |.....f."Details |
00001030  6f 66 20 64 65 70 61 72  74 75 72 65 73 20 28 69  |of departures (i|
00001040  66 20 61 6e 79 20 66 72  6f 6d 20 57 69 72 69 6e  |f any from Wirin|
00001050  67 20 52 65 67 75 6c 61  74 69 6f 6e 73 20 28 31  |g Regulations (1|
00001060  32 30 2d 30 34 2c 20 31  32 30 2d 30 35 29 20 2e  |20-04, 120-05) .|
00001070  2e 2e 2e 2e 2e 2e 2e 2e  2e 2e 2e 2e 2e 2e 2e 2e  |................|
00001080  2e 2e 2e 2e 2e 2e 2e 22  0d 04 38 05 f1 0d 04 42  |......."..8....B|
00001090  56 f1 22 43 6f 6d 6d 65  6e 74 73 20 6f 6e 20 65  |V."Comments on e|
000010a0  78 69 73 74 69 6e 67 20  69 6e 73 74 61 6c 6c 61  |xisting installa|
000010b0  74 69 6f 6e 2c 20 77 68  65 72 65 20 61 70 70 6c  |tion, where appl|
000010c0  69 63 61 62 6c 65 20 28  37 34 33 2d 30 31 2d 30  |icable (743-01-0|
000010d0  31 29 3a 20 2e 2e 2e 2e  2e 2e 2e 2e 2e 2e 2e 2e  |1): ............|
000010e0  2e 2e 22 0d 04 4c 06 ef  33 0d 04 56 09 ef 31 2c  |.."..L..3..V..1,|
000010f0  31 38 0d ff                                       |18..|
000010f4
P/FORM.m0
P/FORM.m1
P/FORM.m2
P/FORM.m4
P/FORM.m5