ELEC SRVC CALC.C
FILE INFORMATION
FILENAME(S): ELEC SRVC CALC.C
FILE TYPE(S): PRG
FILE SIZE: 8.2K
FIRST SEEN: 2025-11-30 21:07:09
APPEARS ON: 1 disk(s)
FILE HASH
0bce08288fe461bd6912a313ae27f88083f09f353298ef48e6c3f70763af975b
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| MORE MARCH 1 C | ELEC SRVC CALC.C | PRG | DuncanTwain | 19 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 28 08 0A 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |..(.... ********|
00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000020: 2A 2A 2A 2A 2A 2A 2A 2A 00 4F 08 0C 00 8F 20 2A |********.O.... *|
00000030: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 00 | *.|
00000050: 76 08 0E 00 8F 20 2A 20 20 20 20 20 20 20 20 20 |v.... * |
00000060: 20 20 45 4C 45 43 54 52 49 43 41 4C 20 20 20 20 | ELECTRICAL |
00000070: 20 20 20 20 20 2A 00 9D 08 10 00 8F 20 2A 20 20 | *...... * |
00000080: 20 20 20 20 20 53 45 52 56 49 43 45 20 43 41 4C | SERVICE CAL|
00000090: 43 55 4C 41 54 4F 52 20 20 20 20 20 2A 00 C4 08 |CULATOR *...|
000000A0: 12 00 8F 20 2A 20 20 20 20 20 20 20 20 20 20 20 |... * |
000000B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000000C0: 20 20 20 2A 00 EB 08 14 00 8F 20 2A 2A 2A 2A 2A | *...... *****|
000000D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000000E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 F1 08 16 00 |***********.....|
000000F0: 3A 00 14 09 18 00 8F 20 20 42 59 20 50 41 55 4C |:...... BY PAUL|
00000100: 20 52 4F 59 4C 45 20 20 20 20 20 20 28 4E 4F 56 | ROYLE (NOV|
00000110: 20 38 33 29 00 27 09 1A 00 8F 20 20 37 31 20 41 | 83).'.... 71 A|
00000120: 4D 4F 52 4F 20 44 52 00 3B 09 1C 00 8F 20 20 52 |MORO DR.;.... R|
00000130: 45 58 44 41 4C 45 20 4F 4E 54 2E 00 54 09 1D 00 |EXDALE ONT..T...|
00000140: 8F 20 20 4D 39 57 20 34 53 33 20 20 20 20 43 41 |. M9W 4S3 CA|
00000150: 4E 41 44 41 00 5A 09 1E 00 3A 00 87 09 20 00 58 |NADA.Z...:... .X|
00000160: 20 B2 C2 28 35 30 30 30 33 29 3A 97 35 30 30 30 | ..(50003):.5000|
00000170: 33 2C 30 3A 59 B2 C2 28 35 30 30 30 33 29 3A 97 |3,0:Y..(50003):.|
00000180: 35 30 30 30 33 2C 58 00 AA 09 22 00 55 43 B2 31 |50003,X...".UC.1|
00000190: 32 3A 4C 43 B2 31 34 3A 54 45 58 54 B2 35 39 34 |2:LC.14:TEXT.594|
000001A0: 36 38 3A 52 44 50 B2 31 34 34 00 C3 09 24 00 8B |68:RDP.144...$..|
000001B0: 59 B2 31 36 30 A7 53 4F 50 B2 38 38 3A 53 50 54 |Y.160.SOP.88:SPT|
000001C0: B2 38 35 00 DB 09 26 00 8B 59 B2 31 20 A7 53 4F |.85...&..Y.1 .SO|
000001D0: 50 B2 34 39 3A 53 50 54 B2 34 36 00 1A 0A 28 00 |P.49:SPT.46...(.|
000001E0: 8B 59 B2 30 A7 53 4F 50 B2 35 32 3A 53 50 54 B2 |.Y.0.SOP.52:SPT.|
000001F0: 34 39 3A 55 43 B2 32 31 3A 4C 43 B2 32 33 3A 54 |49:UC.21:LC.23:T|
00000200: 45 58 54 B2 35 33 32 37 32 3A 52 44 50 B2 37 38 |EXT.53272:RDP.78|
00000210: 38 3A 97 35 33 32 38 30 2C 36 00 31 0A 2A 00 97 |8:.53280,6.1.*..|
00000220: 20 54 45 58 54 2C 4C 43 3A 97 52 44 50 2C 53 4F | TEXT,LC:.RDP,SO|
00000230: 50 00 7D 0A 2C 00 86 20 54 57 4F 54 42 4C 24 28 |P.}.,.. TWOTBL$(|
00000240: 31 33 2C 32 29 2C 54 45 4E 54 42 4C 24 28 31 33 |13,2),TENTBL$(13|
00000250: 2C 32 29 2C 53 49 58 54 42 4C 28 36 2C 32 38 29 |,2),SIXTBL(6,28)|
00000260: 2C 52 4C 28 33 30 29 2C 52 57 28 33 30 29 2C 52 |,RL(30),RW(30),R|
00000270: 4D 24 28 33 30 29 2C 4E 52 28 33 30 29 00 A4 0A |M$(30),NR(30)...|
00000280: 2E 00 50 24 B2 22 C5 CC C5 C3 D4 D2 C9 C3 C1 CC |..P$."..........|
00000290: 20 D3 C5 D2 D6 C9 C3 C5 A0 C3 C1 CC C3 D5 CC C1 | ...............|
000002A0: D4 CF D2 22 00 B2 0A 30 00 99 22 93 1D 1D 11 11 |..."...0..".....|
000002B0: 22 3B 00 BE 0A 32 00 81 49 B2 31 A4 33 36 00 C8 |";...2..I.1.36..|
000002C0: 0A 34 00 99 22 A6 22 3B 00 CF 0A 36 00 82 49 00 |.4..".";...6..I.|
000002D0: DB 0A 38 00 81 49 B2 31 A4 31 39 00 E7 0A 3A 00 |..8..I.1.19...:.|
000002E0: 99 22 9D 11 A6 22 3B 00 ED 0A 3C 00 82 00 F9 0A |."...";...<.....|
000002F0: 3E 00 81 49 B2 31 A4 33 35 00 05 0B 40 00 99 22 |>..I.1.35...@.."|
00000300: 9D 9D A6 22 3B 00 0C 0B 42 00 82 49 00 18 0B 44 |...";...B..I...D|
00000310: 00 81 49 B2 31 A4 31 39 00 24 0B 46 00 99 22 9D |..I.1.19.$.F..".|
00000320: 91 A6 22 3B 00 2B 0B 48 00 82 49 00 56 0B 4A 00 |..";.+.H..I.V.J.|
00000330: 99 22 13 11 11 11 11 11 1D 1D 1D 1D 1D 1D 1D 1D |."..............|
00000340: 1D 1D D0 41 55 4C 20 D2 4F 59 4C 45 20 D3 4F 46 |...AUL .OYLE .OF|
00000350: 54 57 41 52 45 22 00 88 0B 4C 00 99 22 1D 1D 1D |TWARE"...L.."...|
00000360: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 11 D0 52 |...............R|
00000370: 45 53 45 4E 54 53 11 11 11 11 22 3A 81 54 B2 31 |ESENTS....":.T.1|
00000380: A4 31 30 30 20 3A 82 54 00 A4 0B 4E 00 81 20 49 |.100 :.T...N.. I|
00000390: B2 31 A4 B5 28 28 34 30 AB 28 C3 28 50 24 29 29 |.1..((40.(.(P$))|
000003A0: 29 AD 32 29 00 AE 0B 50 00 99 22 1D 22 3B 00 B5 |).2)...P..".";..|
000003B0: 0B 52 00 82 49 00 C4 0B 54 00 81 49 B2 31 A4 C3 |.R..I...T..I.1..|
000003C0: 28 50 24 29 00 D3 0B 56 00 81 54 B2 31 A4 31 30 |(P$)...V..T.1.10|
000003D0: 3A 82 54 00 E3 0B 58 00 99 CA 28 50 24 2C 49 2C |:.T...X...(P$,I,|
000003E0: 31 29 3B 00 EE 0B 5A 00 82 49 3A 99 22 22 00 0A |1);...Z..I:.""..|
000003F0: 0C 5C 00 81 20 49 B2 31 A4 B5 28 28 34 30 AB 28 |.\.. I.1..((40.(|
00000400: C3 28 50 24 29 29 29 AD 32 29 00 14 0C 5E 00 99 |.(P$))).2)...^..|
00000410: 22 1D 22 3B 00 1B 0C 60 00 82 49 00 34 0C 62 00 |".";...`..I.4.b.|
00000420: 99 22 9D B7 22 3B 3A 20 81 49 B2 31 A4 C3 28 50 |."..";: .I.1..(P|
00000430: 24 29 AA 31 00 43 0C 64 00 81 54 B2 31 A4 31 30 |$).1.C.d..T.1.10|
00000440: 3A 82 54 00 4D 0C 66 00 99 22 B7 22 3B 00 58 0C |:.T.M.f..".";.X.|
00000450: 68 00 82 49 3A 99 22 22 00 85 0C 6A 00 99 22 11 |h..I:.""...j..".|
00000460: 11 11 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 20 |............... |
00000470: C8 C9 D4 A0 D3 D0 C1 C3 C5 A0 D4 CF A0 D3 D4 C1 |................|
00000480: D2 D4 20 92 22 00 98 0C 6C 00 A1 41 24 3A 8B 41 |.. ."...l..A$:.A|
00000490: 24 B2 22 22 A7 31 30 38 00 B7 0C 6E 00 8D 20 33 |$."".108...n.. 3|
000004A0: 35 36 3A 20 8F 20 53 45 54 20 55 50 20 44 41 54 |56: . SET UP DAT|
000004B0: 41 20 54 41 42 4C 45 00 BD 0C 70 00 3A 00 DB 0C |A TABLE...p.:...|
000004C0: 72 00 8F 20 2A 2A 2A 2A 2A 20 20 20 4D 20 45 20 |r.. ***** M E |
000004D0: 4E 20 55 20 20 20 2A 2A 2A 2A 2A 00 E1 0C 74 00 |N U *****...t.|
000004E0: 3A 00 EF 0C 76 00 99 22 93 1D 1D 11 11 22 3B 00 |:...v..".....";.|
000004F0: FB 0C 78 00 81 49 B2 31 A4 33 36 00 05 0D 7A 00 |..x..I.1.36...z.|
00000500: 99 22 A6 22 3B 00 0C 0D 7C 00 82 49 00 18 0D 7E |.".";...|..I...~|
00000510: 00 81 49 B2 31 A4 31 39 00 24 0D 80 00 99 22 9D |..I.1.19.$....".|
00000520: 11 A6 22 3B 00 2A 0D 82 00 82 00 36 0D 84 00 81 |..";.*.....6....|
00000530: 49 B2 31 A4 33 35 00 42 0D 86 00 99 22 9D 9D A6 |I.1.35.B...."...|
00000540: 22 3B 00 49 0D 88 00 82 49 00 55 0D 8A 00 81 49 |";.I....I.U....I|
00000550: B2 31 A4 31 39 00 61 0D 8C 00 99 22 9D 91 A6 22 |.1.19.a...."..."|
00000560: 3B 00 68 0D 8E 00 82 49 00 6E 0D 90 00 99 00 9D |;.h....I.n......|
00000570: 0D 92 00 99 22 13 11 11 11 11 1D 1D 1D 1D 1D C5 |...."...........|
00000580: CC C5 C3 D4 D2 C9 C3 C1 CC 20 D3 C5 D2 D6 C9 C3 |......... ......|
00000590: C5 A0 C3 C1 CC C3 D5 CC C1 D4 CF D2 22 00 C7 0D |............"...|
000005A0: 94 00 99 22 1D 1D 1D 1D 1D B7 B7 B7 B7 B7 B7 B7 |..."............|
000005B0: B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 |................|
000005C0: B7 B7 B7 B7 B7 B7 22 00 E7 0D 96 00 99 22 11 1D |......"......"..|
000005D0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D CD |................|
000005E0: A0 C5 A0 CE A0 D5 22 00 06 0E 98 00 99 22 1D 1D |......"......"..|
000005F0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D B7 20 |............... |
00000600: B7 20 B7 20 B7 22 00 30 0E 9A 00 99 22 11 1D 1D |. . .".0...."...|
00000610: 1D 1D 12 31 92 20 20 D3 54 41 52 54 20 D3 45 52 |...1. .TART .ER|
00000620: 56 49 43 45 20 C3 41 4C 43 55 4C 41 54 4F 52 22 |VICE .ALCULATOR"|
00000630: 00 58 0E 9C 00 99 22 11 1D 1D 1D 1D 12 32 92 20 |.X...."......2. |
00000640: 20 D3 54 55 44 45 4E 54 27 53 20 C9 4E 53 54 52 | .TUDENT'S .NSTR|
00000650: 55 43 54 49 4F 4E 53 22 00 83 0E 9E 00 99 22 11 |UCTIONS"......".|
00000660: 1D 1D 1D 1D 12 33 92 20 20 C9 4E 53 54 52 55 43 |.....3. .NSTRUC|
00000670: 54 4F 52 27 53 20 C9 4E 53 54 52 55 43 54 49 4F |TOR'S .NSTRUCTIO|
00000680: 4E 53 22 00 A2 0E A0 00 99 22 11 1D 1D 1D 1D 12 |NS"......"......|
00000690: 34 92 20 20 CD 4F 44 49 46 49 43 41 54 49 4F 4E |4. .ODIFICATION|
000006A0: 53 22 00 B9 0E A2 00 99 22 11 1D 1D 1D 1D 12 35 |S"......"......5|
000006B0: 92 20 20 D1 55 49 54 20 22 00 E7 0E A4 00 85 22 |. .UIT "......"|
000006C0: 11 11 11 11 20 20 20 20 20 20 20 20 20 45 4E 54 |.... ENT|
000006D0: 45 52 20 41 20 4E 55 4D 42 45 52 20 20 20 20 BF |ER A NUMBER .|
000006E0: 9D 9D 9D 22 3B 4D 24 00 F6 0E A6 00 4D 24 B2 C8 |...";M$.....M$..|
000006F0: 28 4D 24 2C 31 29 00 06 0F A8 00 8B 4D 24 B2 22 |(M$,1)......M$."|
00000700: 31 22 A7 32 32 32 00 16 0F AA 00 8B 4D 24 B2 22 |1".222......M$."|
00000710: 32 22 A7 31 38 30 00 26 0F AC 00 8B 4D 24 B2 22 |2".180.&....M$."|
00000720: 33 22 A7 35 35 30 00 36 0F AE 00 8B 4D 24 B2 22 |3".550.6....M$."|
00000730: 34 22 A7 35 39 30 00 46 0F B0 00 8B 4D 24 B2 22 |4".590.F....M$."|
00000740: 35 22 A7 32 31 38 00 50 0F B2 00 89 20 31 31 36 |5".218.P.... 116|
00000750: 00 7A 0F B4 00 99 22 93 11 11 1D 1D 1D 1D 1D 1D |.z....".........|
00000760: 1D 1D 1D D3 D4 D5 C4 C5 CE D4 27 D3 A0 C9 CE D3 |..........'.....|
00000770: D4 D2 D5 C3 D4 C9 CF CE D3 22 00 A2 0F B6 00 99 |........."......|
00000780: 22 1D 1D 1D 1D 1D 1D 1D 1D B7 B7 B7 B7 B7 B7 B7 |"...............|
00000790: B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 |................|
000007A0: B7 22 00 D0 0F B8 00 99 22 11 11 20 20 20 20 D4 |."......".. .|
000007B0: 48 49 53 20 50 52 4F 47 52 41 4D 20 57 41 53 20 |HIS PROGRAM WAS |
000007C0: 57 52 49 54 54 45 4E 20 54 4F 20 4D 41 4B 45 22 |WRITTEN TO MAKE"|
000007D0: 00 FF 0F BA 00 99 22 D3 45 52 56 49 43 45 20 C3 |......".ERVICE .|
000007E0: 41 4C 43 55 4C 41 54 49 4F 4E 53 20 41 20 42 52 |ALCULATIONS A BR|
000007F0: 45 45 5A 45 2E 20 20 C9 4E 53 54 45 41 44 22 00 |EEZE. .NSTEAD".|
00000800: 2E 10 BC 00 99 22 4F 46 20 48 41 56 49 4E 47 20 |....."OF HAVING |
00000810: 54 4F 20 43 4F 4E 53 55 4C 54 20 54 48 45 20 45 |TO CONSULT THE E|
00000820: 4C 45 43 54 52 49 43 20 20 43 4F 44 45 22 00 5C |LECTRIC CODE".\|
00000830: 10 BE 00 99 22 20 42 4F 4F 4B 2C 20 59 4F 55 20 |...." BOOK, YOU |
00000840: 4A 55 53 54 20 48 41 56 45 20 54 4F 20 50 55 4E |JUST HAVE TO PUN|
00000850: 43 48 20 54 48 45 20 44 41 54 41 22 00 8B 10 C0 |CH THE DATA"....|
00000860: 00 99 22 20 49 4E 54 4F 20 54 48 45 20 43 4F 4D |.." INTO THE COM|
00000870: 50 55 54 45 52 2E 20 20 D9 4F 55 20 45 4E 54 45 |PUTER. .OU ENTE|
00000880: 52 20 54 48 45 20 53 49 5A 45 22 00 BA 10 C2 00 |R THE SIZE".....|
00000890: 99 22 20 4F 46 20 54 48 45 20 48 4F 55 53 45 2C |." OF THE HOUSE,|
000008A0: 20 54 48 45 20 53 4D 41 4C 4C 20 41 50 50 4C 49 | THE SMALL APPLI|
000008B0: 41 4E 43 45 20 4C 4F 41 44 22 00 E8 10 C4 00 99 |ANCE LOAD"......|
000008C0: 22 20 20 20 54 48 45 20 52 41 4E 47 45 20 4C 4F |" THE RANGE LO|
000008D0: 41 44 2C 20 41 4E 44 20 54 48 45 20 44 49 4D 45 |AD, AND THE DIME|
000008E0: 4E 54 49 4F 4E 53 20 22 00 16 11 C6 00 99 22 20 |NTIONS "......" |
000008F0: 4F 46 20 54 48 45 20 52 4F 4F 4D 53 2E 20 20 D4 |OF THE ROOMS. .|
00000900: 48 45 20 43 4F 4D 50 55 54 45 52 20 57 49 4C 4C |HE COMPUTER WILL|
00000910: 20 54 48 45 4E 22 00 45 11 C8 00 99 22 46 49 47 | THEN".E...."FIG|
00000920: 55 52 45 20 4F 55 54 20 54 48 45 20 43 4F 4E 44 |URE OUT THE COND|
00000930: 55 43 54 4F 52 20 53 49 5A 45 53 2C 20 43 4F 4E |UCTOR SIZES, CON|
00000940: 44 55 49 54 22 00 74 11 CA 00 99 22 20 53 49 5A |DUIT".t...." SIZ|
00000950: 45 53 2C 20 54 48 45 20 53 49 5A 45 20 4F 46 20 |ES, THE SIZE OF |
00000960: 54 48 45 20 4D 41 49 4E 20 44 49 53 43 4F 4E 4E |THE MAIN DISCONN|
00000970: 45 43 54 22 00 A3 11 CC 00 99 22 20 41 4E 44 20 |ECT"......" AND |
00000980: 54 48 45 20 4E 55 4D 42 45 52 20 4F 46 20 52 45 |THE NUMBER OF RE|
00000990: 43 45 50 54 41 43 4C 45 53 20 52 45 51 55 49 52 |CEPTACLES REQUIR|
000009A0: 45 44 22 00 D1 11 CE 00 99 22 20 D9 4F 55 20 43 |ED"......" .OU C|
000009B0: 41 4E 20 48 41 56 45 20 53 43 52 45 45 4E 20 4F |AN HAVE SCREEN O|
000009C0: 52 20 50 52 49 4E 54 45 52 20 4F 55 54 50 55 54 |R PRINTER OUTPUT|
000009D0: 22 00 FE 11 D0 00 99 22 20 20 20 20 C1 4C 4C 20 |"......" .LL |
000009E0: 59 4F 55 20 48 41 56 45 20 54 4F 20 44 4F 20 49 |YOU HAVE TO DO I|
000009F0: 53 20 41 4E 53 57 45 52 20 54 48 45 20 22 00 2A |S ANSWER THE ".*|
00000A00: 12 D2 00 99 22 20 20 20 20 43 4F 4D 50 55 54 45 |...." COMPUTE|
00000A10: 52 27 53 20 51 55 45 53 54 49 4F 4E 53 2E 20 20 |R'S QUESTIONS. |
00000A20: C8 C1 D6 C5 A0 C6 D5 CE 21 22 00 5E 12 D4 00 99 |........!".^....|
00000A30: 22 11 11 12 20 20 20 20 20 20 C8 49 54 20 D3 50 |"... .IT .P|
00000A40: 41 43 45 20 D4 4F 20 D2 45 54 55 52 4E 20 D4 4F |ACE .O .ETURN .O|
00000A50: 20 CD C5 CE D5 20 20 20 20 20 20 20 92 22 00 72 | .... .".r|
00000A60: 12 D6 00 A1 41 24 3A 8B 41 24 B2 22 22 A7 20 32 |....A$:.A$."". 2|
00000A70: 31 34 00 7C 12 D8 00 89 20 31 31 36 00 A1 12 DA |14.|.... 116....|
00000A80: 00 97 52 44 50 2C 53 50 54 3A 97 54 45 58 54 2C |..RDP,SPT:.TEXT,|
00000A90: 55 43 3A 8B 59 B2 30 A7 97 35 33 32 38 30 2C 31 |UC:.Y.0..53280,1|
00000AA0: 34 00 AC 12 DC 00 99 22 93 22 3A 80 00 CE 12 DE |4......".":.....|
00000AB0: 00 8F 20 2A 2A 2A 2A 2A 20 20 20 20 20 53 54 41 |.. ***** STA|
00000AC0: 52 54 20 20 20 20 20 2A 2A 2A 2A 2A 2A 2A 00 D4 |RT *******..|
00000AD0: 12 E0 00 3A 00 F8 12 E2 00 8F 20 2A 2A 20 49 4E |...:...... ** IN|
00000AE0: 50 55 54 53 20 41 4E 44 20 43 41 4C 43 55 4C 41 |PUTS AND CALCULA|
00000AF0: 54 49 4F 4E 53 20 2A 2A 00 FE 12 E4 00 3A 00 07 |TIONS **.....:..|
00000B00: 13 E6 00 8D 32 35 38 00 0D 13 E8 00 3A 00 31 13 |....258.....:.1.|
00000B10: EA 00 8F 20 2A 2A 2A 2A 2A 2A 20 20 20 52 45 43 |... ****** REC|
00000B20: 45 50 54 41 43 4C 45 53 20 20 20 2A 2A 2A 2A 2A |EPTACLES *****|
00000B30: 2A 00 37 13 EC 00 3A 00 40 13 EE 00 8D 34 30 34 |*.7...:.@....404|
00000B40: 00 46 13 F0 00 3A 00 6B 13 F2 00 8F 20 2A 2A 2A |.F...:.k.... ***|
00000B50: 2A 2A 2A 20 20 20 20 20 4F 55 54 50 55 54 20 20 |*** OUTPUT |
00000B60: 20 20 20 20 20 2A 2A 2A 2A 2A 2A 00 71 13 F4 00 | ******.q...|
00000B70: 3A 00 7A 13 F6 00 8D 34 34 36 00 80 13 F8 00 3A |:.z....446.....:|
00000B80: 00 9C 13 FA 00 89 20 31 31 36 3A 20 8F 20 52 45 |...... 116: . RE|
00000B90: 54 55 52 4E 20 54 4F 20 4D 45 4E 55 00 A2 13 FC |TURN TO MENU....|
00000BA0: 00 3A 00 C3 13 FE 00 8F 20 2A 2A 20 49 4E 50 55 |.:...... ** INPU|
00000BB0: 54 20 41 4E 44 20 43 41 4C 43 2E 20 41 52 45 41 |T AND CALC. AREA|
00000BC0: 20 2A 2A 00 C9 13 00 01 3A 00 D6 13 02 01 99 22 | **.....:......"|
00000BD0: 93 11 11 11 11 22 00 12 14 04 01 99 22 C5 4E 54 |....."......".NT|
00000BE0: 45 52 20 54 48 45 20 46 4C 4F 4F 52 53 50 41 43 |ER THE FLOORSPAC|
00000BF0: 45 20 4F 46 20 54 48 45 20 48 4F 55 53 45 20 49 |E OF THE HOUSE I|
00000C00: 4E 20 20 20 20 20 D3 51 55 41 52 45 20 C6 45 45 |N .QUARE .EE|
00000C10: 54 22 00 1B 14 06 01 85 20 46 53 00 28 14 08 01 |T"...... FS.(...|
00000C20: 47 4C 4C B2 35 30 30 30 00 38 14 0A 01 52 46 53 |GLL.5000.8...RFS|
00000C30: B2 46 53 AB 31 30 30 30 00 48 14 0C 01 8B 20 52 |.FS.1000.H.... R|
00000C40: 46 53 B3 30 A7 32 37 34 00 6B 14 0E 01 47 4C 4C |FS.0.274.k...GLL|
00000C50: B2 47 4C 4C AA 31 30 30 30 3A 52 46 53 B2 52 46 |.GLL.1000:RFS.RF|
00000C60: 53 AB 31 30 30 30 3A 89 32 36 38 00 71 14 10 01 |S.1000:.268.q...|
00000C70: 3A 00 AB 14 12 01 99 22 20 C5 4E 54 45 52 20 54 |:......" .NTER T|
00000C80: 48 45 20 53 4D 41 4C 4C 20 41 50 50 4C 49 41 4E |HE SMALL APPLIAN|
00000C90: 43 45 20 4C 4F 41 44 20 49 4E 20 20 20 20 20 20 |CE LOAD IN |
00000CA0: 20 4B 49 4C 4F 57 41 54 54 53 22 00 C3 14 14 01 | KILOWATTS".....|
00000CB0: 85 20 53 41 4C 20 3A 53 41 4C B2 53 41 4C AC 31 |. SAL :SAL.SAL.1|
00000CC0: 30 30 30 00 D3 14 16 01 54 45 4C B2 47 4C 4C AA |000.....TEL.GLL.|
00000CD0: 53 41 4C 00 E3 14 18 01 42 54 49 B2 54 45 4C AD |SAL.....BTI.TEL.|
00000CE0: 31 32 30 00 FD 14 1A 01 54 42 43 B2 B5 28 28 42 |120.....TBC..((B|
00000CF0: 54 49 AD 31 32 29 AA 2E 39 39 39 39 29 00 03 15 |TI.12)..9999)...|
00000D00: 1C 01 3A 00 3E 15 1E 01 99 22 11 C5 4E 54 45 52 |..:.>...."..NTER|
00000D10: 20 54 48 45 20 41 43 54 55 41 4C 20 52 41 4E 47 | THE ACTUAL RANG|
00000D20: 45 20 4C 4F 41 44 20 49 4E 20 20 20 20 20 20 20 |E LOAD IN |
00000D30: 20 20 20 20 4B 49 4C 4F 57 41 54 54 53 22 00 48 | KILOWATTS".H|
00000D40: 15 20 01 85 20 52 41 4E 00 59 15 22 01 52 41 4E |. .. RAN.Y.".RAN|
00000D50: B2 52 41 4E AC 31 30 30 30 00 76 15 24 01 41 52 |.RAN.1000.v.$.AR|
00000D60: 41 4E B2 36 30 30 30 AA 2E 34 AC 28 52 41 4E AB |AN.6000..4.(RAN.|
00000D70: 31 32 30 30 30 29 00 7C 15 26 01 3A 00 95 15 28 |12000).|.&.:...(|
00000D80: 01 52 54 45 4C B2 20 47 4C 4C AA 20 53 41 4C AA |.RTEL. GLL. SAL.|
00000D90: 20 41 52 41 4E 00 A5 15 2A 01 54 43 B2 52 54 45 | ARAN...*.TC.RTE|
00000DA0: 4C AD 32 34 30 00 AB 15 2C 01 3A 00 B7 15 2E 01 |L.240...,.:.....|
00000DB0: 81 49 B2 31 A4 31 33 00 D5 15 30 01 8B 20 C5 28 |.I.1.13...0.. .(|
00000DC0: 54 57 4F 54 42 4C 24 28 49 2C 32 29 29 B3 54 43 |TWOTBL$(I,2)).TC|
00000DD0: 20 A7 20 82 49 00 EB 15 32 01 4D 46 53 24 B2 54 | . .I...2.MFS$.T|
00000DE0: 57 4F 54 42 4C 24 28 49 2C 31 29 00 F1 15 34 01 |WOTBL$(I,1)...4.|
00000DF0: 3A 00 FD 15 36 01 81 49 B2 31 A4 31 33 00 23 16 |:...6..I.1.13.#.|
00000E00: 38 01 8B 20 C5 28 54 57 4F 54 42 4C 24 28 49 2C |8.. .(TWOTBL$(I,|
00000E10: 32 29 29 20 B3 20 28 52 41 4E AD 32 34 30 29 A7 |2)) . (RAN.240).|
00000E20: 20 82 49 00 3B 16 3A 01 43 52 53 B2 C5 28 54 57 | .I.;.:.CRS..(TW|
00000E30: 4F 54 42 4C 24 28 49 2C 31 29 29 00 41 16 3C 01 |OTBL$(I,1)).A.<.|
00000E40: 3A 00 4D 16 3E 01 81 49 B2 31 A4 31 33 00 6A 16 |:.M.>..I.1.13.j.|
00000E50: 40 01 8B 20 54 45 4E 54 42 4C 24 28 49 2C 31 29 |@.. TENTBL$(I,1)|
00000E60: B3 B1 4D 46 53 24 A7 20 82 49 00 82 16 42 01 43 |..MFS$. .I...B.C|
00000E70: 44 49 B2 C5 28 54 45 4E 54 42 4C 24 28 49 2C 32 |DI..(TENTBL$(I,2|
00000E80: 29 29 00 88 16 44 01 3A 00 94 16 46 01 81 49 B2 |))...D.:...F..I.|
00000E90: 31 A4 32 36 00 AE 16 48 01 8B 53 49 58 54 42 4C |1.26...H..SIXTBL|
00000EA0: 28 30 2C 49 29 B3 43 44 49 20 A7 20 82 49 00 B8 |(0,I).CDI . .I..|
00000EB0: 16 4A 01 43 41 50 B2 49 00 BE 16 4C 01 3A 00 C9 |.J.CAP.I...L.:..|
00000EC0: 16 4E 01 81 49 B2 31 A4 36 00 E2 16 50 01 8B 53 |.N..I.1.6...P..S|
00000ED0: 49 58 54 42 4C 28 49 2C 43 41 50 29 B3 33 A7 20 |IXTBL(I,CAP).3. |
00000EE0: 82 49 00 F5 16 52 01 43 53 B2 53 49 58 54 42 4C |.I...R.CS.SIXTBL|
00000EF0: 28 49 2C 30 29 00 FB 16 54 01 3A 00 06 17 56 01 |(I,0)...T.:...V.|
00000F00: 81 49 B2 31 A4 35 00 1B 17 58 01 8B 20 4D 44 53 |.I.1.5...X.. MDS|
00000F10: 28 49 29 B3 54 43 20 A7 20 82 49 00 29 17 5A 01 |(I).TC . .I.).Z.|
00000F20: 4D 44 B2 4D 44 53 28 49 29 00 2F 17 5C 01 8E 00 |MD.MDS(I)./.\...|
00000F30: 35 17 5E 01 3A 00 59 17 60 01 8F 20 20 2A 2A 2A |5.^.:.Y.`.. ***|
00000F40: 2A 20 53 45 54 20 55 50 20 44 41 54 41 20 54 41 |* SET UP DATA TA|
00000F50: 42 4C 45 53 20 2A 2A 2A 2A 00 5F 17 62 01 3A 00 |BLES ****._.b.:.|
00000F60: 90 17 64 01 99 22 93 11 11 20 20 20 20 D7 41 49 |..d.."... .AI|
00000F70: 54 20 57 48 49 4C 45 20 C9 20 53 45 54 20 55 50 |T WHILE . SET UP|
00000F80: 20 54 48 45 20 44 41 54 41 20 54 41 42 4C 45 22 | THE DATA TABLE"|
00000F90: 00 9D 17 66 01 81 49 B2 31 20 A4 20 32 00 AB 17 |...f..I.1 . 2...|
00000FA0: 68 01 81 4A B2 31 20 A4 20 31 33 00 BE 17 6A 01 |h..J.1 . 13...j.|
00000FB0: 87 20 54 57 4F 54 42 4C 24 28 4A 2C 49 29 00 C7 |. TWOTBL$(J,I)..|
00000FC0: 17 6C 01 82 4A 2C 49 00 CD 17 6E 01 3A 00 DA 17 |.l..J,I...n.:...|
00000FD0: 70 01 81 49 B2 31 20 A4 20 32 00 E8 17 72 01 81 |p..I.1 . 2...r..|
00000FE0: 4A B2 31 20 A4 20 31 33 00 FB 17 74 01 87 20 54 |J.1 . 13...t.. T|
00000FF0: 45 4E 54 42 4C 24 28 4A 2C 49 29 00 04 18 76 01 |ENTBL$(J,I)...v.|
00001000: 82 4A 2C 49 00 0A 18 78 01 3A 00 18 18 7A 01 81 |.J,I...x.:...z..|
00001010: 49 B2 30 20 A4 20 32 38 00 25 18 7C 01 81 4A B2 |I.0 . 28.%.|..J.|
00001020: 30 20 A4 20 36 00 37 18 7E 01 87 20 53 49 58 54 |0 . 6.7.~.. SIXT|
00001030: 42 4C 28 4A 2C 49 29 00 40 18 80 01 82 4A 2C 49 |BL(J,I).@....J,I|
00001040: 00 46 18 82 01 3A 00 51 18 84 01 81 49 B2 31 A4 |.F...:.Q....I.1.|
00001050: 35 00 5E 18 86 01 87 20 4D 44 53 28 49 29 00 65 |5.^.... MDS(I).e|
00001060: 18 88 01 82 49 00 6B 18 8A 01 3A 00 71 18 8C 01 |....I.k...:.q...|
00001070: 8E 00 77 18 8E 01 3A 00 9D 18 90 01 8F 20 20 49 |..w...:...... I|
00001080: 4E 50 55 54 20 52 4F 4F 4D 20 53 49 5A 45 53 20 |NPUT ROOM SIZES |
00001090: 46 4F 52 20 52 45 43 50 54 43 4C 53 2E 00 A3 18 |FOR RECPTCLS....|
000010A0: 92 01 3A 00 CA 18 94 01 99 22 93 11 11 C4 4F 20 |..:......"....O |
000010B0: 59 4F 55 20 57 41 4E 54 20 54 4F 20 4B 4E 4F 57 |YOU WANT TO KNOW|
000010C0: 20 48 4F 57 20 4D 41 4E 59 22 00 F2 18 96 01 99 | HOW MANY"......|
000010D0: 22 52 45 43 45 50 54 41 43 4C 45 53 20 41 52 45 |"RECEPTACLES ARE|
000010E0: 20 4E 45 45 44 45 44 20 50 45 52 20 52 4F 4F 4D | NEEDED PER ROOM|
000010F0: 3F 22 00 FA 18 98 01 85 41 24 00 0E 19 9A 01 8B |?"......A$......|
00001100: C8 28 41 24 2C 31 29 B2 22 4E 22 A7 20 8E 00 33 |.(A$,1)."N". ..3|
00001110: 19 9C 01 99 22 93 11 11 11 20 20 20 20 20 20 20 |....".... |
00001120: 20 20 20 20 20 20 20 D2 C5 C3 C5 D0 D4 C1 C3 CC | .........|
00001130: C5 D3 22 00 4A 19 9E 01 52 4E B2 31 3A 52 4D 24 |..".J...RN.1:RM$|
00001140: 28 31 29 B2 22 53 54 4F 50 22 00 50 19 A0 01 3A |(1)."STOP".P...:|
00001150: 00 7B 19 A2 01 99 22 C5 4E 54 45 52 20 54 48 45 |.{....".NTER THE|
00001160: 20 52 4F 4F 4D 20 4E 41 4D 45 20 20 28 53 54 4F | ROOM NAME (STO|
00001170: 50 20 54 4F 20 51 55 49 54 29 22 00 89 19 A4 01 |P TO QUIT)".....|
00001180: 85 20 52 4D 24 28 52 4E 29 00 A3 19 A6 01 8B 20 |. RM$(RN)...... |
00001190: 52 4D 24 28 52 4E 29 B2 22 53 54 4F 50 22 20 A7 |RM$(RN)."STOP" .|
000011A0: 34 33 38 00 A9 19 A8 01 3A 00 D6 19 AA 01 99 22 |438.....:......"|
000011B0: 20 CE 4F 57 20 45 4E 54 45 52 20 54 48 45 20 44 | .OW ENTER THE D|
000011C0: 49 4D 45 4E 53 49 4F 4E 53 20 4F 46 20 54 48 45 |IMENSIONS OF THE|
000011D0: 20 52 4F 4F 4D 22 00 EA 19 AC 01 85 20 52 4C 28 | ROOM"...... RL(|
000011E0: 52 4E 29 2C 52 57 28 52 4E 29 00 1D 1A AE 01 4E |RN),RW(RN).....N|
000011F0: 52 28 52 4E 29 20 B2 20 B5 20 28 28 28 28 20 52 |R(RN) . . (((( R|
00001200: 4C 28 52 4E 29 AA 20 52 57 28 52 4E 29 29 20 AC |L(RN). RW(RN)) .|
00001210: 32 29 20 AD 31 32 29 AA 2E 39 39 39 29 00 29 1A |2) .12)..999).).|
00001220: B0 01 52 4E B2 52 4E AA 31 00 32 1A B2 01 89 34 |..RN.RN.1.2....4|
00001230: 31 38 00 38 1A B4 01 3A 00 3E 1A B6 01 8E 00 44 |18.8...:.>.....D|
00001240: 1A B8 01 3A 00 64 1A BA 01 8F 20 20 2A 2A 2A 2A |...:.d.... ****|
00001250: 2A 20 20 4F 55 54 50 55 54 20 41 52 45 41 20 2A |* OUTPUT AREA *|
00001260: 2A 2A 2A 2A 00 6A 1A BC 01 3A 00 99 1A BE 01 99 |****.j...:......|
00001270: 22 93 11 11 C4 4F 20 59 4F 55 20 57 41 4E 54 20 |"....O YOU WANT |
00001280: 54 48 45 20 4F 55 54 50 55 54 20 4F 4E 20 54 48 |THE OUTPUT ON TH|
00001290: 45 20 53 43 52 45 45 4E 22 00 C6 1A C0 01 99 22 |E SCREEN"......"|
000012A0: 4F 52 20 54 48 45 20 50 52 49 4E 54 45 52 2E 20 |OR THE PRINTER. |
000012B0: 20 45 4E 54 45 52 20 12 20 D0 20 92 20 4F 52 20 | ENTER . . . OR |
000012C0: 12 20 D3 20 92 22 00 D0 1A C2 01 85 20 4F 55 24 |. . ."...... OU$|
000012D0: 00 D9 1A C4 01 99 22 93 22 00 FF 1A C6 01 8B C8 |......".".......|
000012E0: 28 4F 55 24 2C 31 29 B3 B1 22 50 22 AF 20 C8 28 |(OU$,1).."P". .(|
000012F0: 4F 55 24 2C 31 29 B3 B1 22 53 22 A7 34 34 36 00 |OU$,1).."S".446.|
00001300: 20 1B C8 01 8B C8 28 4F 55 24 2C 31 29 B2 22 50 | .....(OU$,1)."P|
00001310: 22 A7 20 9F 34 2C 34 3A 98 34 2C C7 28 31 37 29 |". .4,4:.4,.(17)|
00001320: 00 38 1B CA 01 8B C8 28 4F 55 24 2C 31 29 B2 22 |.8.....(OU$,1)."|
00001330: 53 22 A7 20 9F 34 2C 33 00 62 1B CC 01 98 34 2C |S". .4,3.b....4,|
00001340: 22 20 C5 CC C5 C3 D4 D2 C9 C3 C1 CC 20 D3 C5 D2 |" .......... ...|
00001350: D6 C9 C3 C5 20 C3 C1 CC C3 D5 CC C1 D4 C9 CF CE |.... ...........|
00001360: D3 22 00 6A 1B CE 01 98 34 2C 00 72 1B D0 01 98 |.".j....4,.r....|
00001370: 34 2C 00 9C 1B D2 01 98 34 2C 22 D4 48 45 20 48 |4,......4,".HE H|
00001380: 4F 55 53 45 20 49 53 20 22 3B 46 53 3B 22 20 53 |OUSE IS ";FS;" S|
00001390: 51 55 41 52 45 20 46 45 45 54 2E 22 00 A2 1B D4 |QUARE FEET."....|
000013A0: 01 99 00 D8 1B D6 01 98 34 2C 22 D4 48 45 20 53 |........4,".HE S|
000013B0: 4D 41 4C 4C 20 41 50 50 4C 49 41 4E 43 45 20 4C |MALL APPLIANCE L|
000013C0: 4F 41 44 20 49 53 20 22 3B 53 41 4C AD 31 30 30 |OAD IS ";SAL.100|
000013D0: 30 3B 22 20 4B 57 2E 22 00 DE 1B D8 01 99 00 14 |0;" KW."........|
000013E0: 1C DA 01 98 34 2C 22 D4 48 45 20 47 45 4E 45 52 |....4,".HE GENER|
000013F0: 41 4C 20 4C 49 47 48 54 49 4E 47 20 4C 4F 41 44 |AL LIGHTING LOAD|
00001400: 20 49 53 22 3B 47 4C 4C AD 31 30 30 30 3B 22 20 | IS";GLL.1000;" |
00001410: 4B 57 2E 22 00 1A 1C DC 01 99 00 44 1C DE 01 98 |KW.".......D....|
00001420: 34 2C 22 D4 48 45 20 52 41 4E 47 45 20 4C 4F 41 |4,".HE RANGE LOA|
00001430: 44 20 49 53 22 3B 52 41 4E AD 31 30 30 30 3B 22 |D IS";RAN.1000;"|
00001440: 20 4B 57 22 00 4C 1C E0 01 98 34 2C 00 63 1C E2 | KW".L....4,.c..|
00001450: 01 8B 20 C8 28 4F 55 24 2C 31 29 B2 22 50 22 A7 |.. .(OU$,1)."P".|
00001460: 34 39 30 00 89 1C E4 01 99 22 12 C8 49 54 20 D3 |490......"..IT .|
00001470: 50 41 43 45 20 D4 4F 20 C3 4F 4E 54 49 4E 55 45 |PACE .O .ONTINUE|
00001480: 20 CF 55 54 50 55 54 92 22 00 9C 1C E6 01 A1 42 | .UTPUT."......B|
00001490: 24 3A 8B 42 24 B2 22 22 A7 34 38 36 00 A6 1C E8 |$:.B$."".486....|
000014A0: 01 99 22 93 11 22 00 D9 1C EA 01 98 34 2C 22 D4 |..".."......4,".|
000014B0: 48 45 20 4C 49 47 48 54 49 4E 47 20 50 41 4E 45 |HE LIGHTING PANE|
000014C0: 4C 20 4E 45 45 44 53 20 22 3B 54 42 43 3B 22 20 |L NEEDS ";TBC;" |
000014D0: 42 52 41 4E 43 48 45 53 22 00 DF 1C EC 01 99 00 |BRANCHES".......|
000014E0: E5 1C EE 01 99 00 10 1D F0 01 98 34 2C 22 CD 41 |...........4,".A|
000014F0: 49 4E 20 46 45 45 44 45 52 53 20 23 22 3B 4D 46 |IN FEEDERS #";MF|
00001500: 53 24 3B 22 20 43 4F 4E 44 55 43 54 4F 52 53 22 |S$;" CONDUCTORS"|
00001510: 00 16 1D F2 01 99 00 40 1D F4 01 98 34 2C 22 C4 |.......@....4,".|
00001520: 49 41 4D 45 54 45 52 20 4F 46 20 43 4F 4E 44 55 |IAMETER OF CONDU|
00001530: 43 54 4F 52 20 22 3B 43 44 49 3B C7 28 33 34 29 |CTOR ";CDI;.(34)|
00001540: 00 46 1D F6 01 99 00 6B 1D F8 01 98 34 2C 22 CD |.F.....k....4,".|
00001550: 41 49 4E 20 43 4F 4E 44 55 49 54 20 53 49 5A 45 |AIN CONDUIT SIZE|
00001560: 20 22 3B 43 53 3B C7 28 33 34 29 00 71 1D FA 01 | ";CS;.(34).q...|
00001570: 99 00 96 1D FC 01 98 34 2C 22 CD 41 49 4E 20 44 |.......4,".AIN D|
00001580: 49 53 43 4F 4E 4E 45 43 54 20 22 3B 4D 44 3B 22 |ISCONNECT ";MD;"|
00001590: 20 41 4D 50 53 22 00 9C 1D FE 01 99 00 C6 1D 00 | AMPS"..........|
000015A0: 02 98 34 2C 22 D2 41 4E 47 45 20 46 45 45 44 45 |..4,".ANGE FEEDE|
000015B0: 52 20 23 22 3B 43 52 53 3B 22 20 43 4F 4E 44 55 |R #";CRS;" CONDU|
000015C0: 43 54 4F 52 53 22 00 CD 1D 02 02 98 34 00 E4 1D |CTORS"......4...|
000015D0: 04 02 8B 20 C8 28 4F 55 24 2C 31 29 B2 22 50 22 |... .(OU$,1)."P"|
000015E0: A7 35 32 34 00 0A 1E 06 02 99 22 12 C8 49 54 20 |.524......"..IT |
000015F0: D3 50 41 43 45 20 D4 4F 20 C3 4F 4E 54 49 4E 55 |.PACE .O .ONTINU|
00001600: 45 20 CF 55 54 50 55 54 92 22 00 1E 1E 08 02 A1 |E .UTPUT."......|
00001610: 42 24 3A 8B 42 24 B2 22 22 A7 20 35 32 30 00 29 |B$:.B$."". 520.)|
00001620: 1E 0A 02 99 22 93 11 11 22 00 32 1E 0C 02 52 4E |...."...".2...RN|
00001630: B2 31 00 4A 1E 0E 02 8B 52 4D 24 28 52 4E 29 B2 |.1.J....RM$(RN).|
00001640: 22 53 54 4F 50 22 A7 35 33 34 00 77 1E 10 02 98 |"STOP".534.w....|
00001650: 34 2C 52 4D 24 28 52 4E 29 3B 22 20 4E 45 45 44 |4,RM$(RN);" NEED|
00001660: 53 22 3B 4E 52 28 52 4E 29 3B 22 52 45 43 45 50 |S";NR(RN);"RECEP|
00001670: 54 41 43 4C 45 53 22 00 83 1E 12 02 52 4E B2 52 |TACLES".....RN.R|
00001680: 4E AA 31 00 8C 1E 14 02 89 35 32 36 00 94 1E 16 |N.1......526....|
00001690: 02 98 34 2C 00 9C 1E 18 02 98 34 2C 00 B1 1E 1A |..4,......4,....|
000016A0: 02 98 34 2C 22 C4 CF CE C5 22 3B C7 28 31 34 35 |..4,"....";.(145|
000016B0: 29 00 B8 1E 1C 02 A0 34 00 D5 1E 1E 02 99 22 C8 |)......4......".|
000016C0: 49 54 20 D3 50 41 43 45 20 D4 4F 20 C3 4F 4E 54 |IT .PACE .O .ONT|
000016D0: 49 4E 55 45 22 00 E9 1E 20 02 A1 42 24 3A 8B 42 |INUE"... ..B$:.B|
000016E0: 24 B2 22 22 A7 20 35 34 34 00 EF 1E 22 02 8E 00 |$."". 544..."...|
000016F0: F5 1E 24 02 3A 00 18 1F 26 02 8F 20 2A 2A 2A 2A |..$.:...&.. ****|
00001700: 20 49 4E 53 54 52 55 43 54 4F 52 53 20 49 4E 53 | INSTRUCTORS INS|
00001710: 54 2E 20 2A 2A 2A 2A 2A 00 1E 1F 28 02 3A 00 4C |T. *****...(.:.L|
00001720: 1F 2A 02 99 22 93 11 11 20 20 20 20 20 20 12 20 |.*.."... . |
00001730: C9 CE D3 D4 D2 D5 C3 D4 CF D2 27 D3 A0 C9 CE D3 |..........'.....|
00001740: D4 D2 D5 C3 D4 C9 CF CE D3 20 92 22 00 7A 1F 2C |......... .".z.,|
00001750: 02 99 22 11 11 20 20 D4 48 49 53 20 50 52 4F 47 |..".. .HIS PROG|
00001760: 52 41 4D 20 49 53 20 44 45 53 49 47 4E 45 44 20 |RAM IS DESIGNED |
00001770: 54 4F 20 44 45 53 49 47 4E 22 00 A5 1F 2E 02 99 |TO DESIGN"......|
00001780: 22 20 20 20 45 4C 45 43 54 52 49 43 41 4C 20 53 |" ELECTRICAL S|
00001790: 45 52 56 49 43 45 53 20 41 43 43 4F 52 44 49 4E |ERVICES ACCORDIN|
000017A0: 47 20 54 4F 22 00 D2 1F 30 02 99 22 20 54 48 45 |G TO"...0.." THE|
000017B0: 20 45 4C 45 43 54 52 49 43 41 4C 20 43 4F 44 45 | ELECTRICAL CODE|
000017C0: 53 2E 20 20 D4 48 45 20 50 52 4F 47 52 41 4D 27 |S. .HE PROGRAM'|
000017D0: 53 22 00 00 20 32 02 99 22 20 20 20 43 48 41 52 |S".. 2.." CHAR|
000017E0: 41 43 54 45 52 49 53 54 49 43 53 20 41 52 45 20 |ACTERISTICS ARE |
000017F0: 49 4E 20 54 48 45 20 53 54 55 44 45 4E 54 20 22 |IN THE STUDENT "|
00001800: 00 2E 20 34 02 99 22 20 20 49 4E 53 54 52 55 43 |.. 4.." INSTRUC|
00001810: 54 49 4F 4E 53 2E 20 20 D4 48 45 20 43 41 4C 43 |TIONS. .HE CALC|
00001820: 55 4C 41 54 49 4F 4E 53 20 41 4E 44 15 22 00 5A |ULATIONS AND.".Z|
00001830: 20 36 02 99 22 20 20 20 20 44 41 54 41 20 41 52 | 6.." DATA AR|
00001840: 45 20 42 41 53 45 44 20 4F 4E 20 54 48 45 20 C5 |E BASED ON THE .|
00001850: 4C 45 43 54 52 49 43 41 4C 22 00 88 20 38 02 99 |LECTRICAL".. 8..|
00001860: 22 20 20 D3 41 46 54 45 59 20 C3 4F 44 45 20 C2 |" .AFTEY .ODE .|
00001870: 4F 4F 4B 2E 20 20 C1 4E 59 20 4D 4F 44 49 46 49 |OOK. .NY MODIFI|
00001880: 43 41 54 49 4F 4E 53 22 00 B6 20 3A 02 99 22 20 |CATIONS".. :.." |
00001890: 20 43 41 4E 20 42 45 20 44 4F 4E 45 20 42 59 20 | CAN BE DONE BY |
000018A0: 53 49 4D 50 4C 59 20 43 48 41 4E 47 45 49 4E 47 |SIMPLY CHANGEING|
000018B0: 20 44 41 54 41 22 00 E4 20 3C 02 99 22 20 20 53 | DATA".. <.." S|
000018C0: 54 41 54 45 4D 45 4E 54 53 20 41 54 20 54 48 45 |TATEMENTS AT THE|
000018D0: 20 45 4E 44 20 4F 46 20 54 48 45 20 50 52 4F 47 | END OF THE PROG|
000018E0: 52 41 4D 22 00 12 21 3E 02 99 22 20 C3 48 45 43 |RAM"..!>.." .HEC|
000018F0: 4B 20 4F 55 54 20 54 48 45 20 27 4D 4F 44 49 46 |K OUT THE 'MODIF|
00001900: 49 43 41 54 49 4F 4E 53 27 20 53 45 43 54 49 4F |ICATIONS' SECTIO|
00001910: 4E 22 00 3F 21 40 02 99 22 20 20 46 4F 52 20 4D |N".?!@.." FOR M|
00001920: 4F 52 45 20 44 45 54 41 49 4C 53 20 4F 4E 20 43 |ORE DETAILS ON C|
00001930: 48 41 4E 47 45 49 4E 47 20 44 41 54 41 2E 22 00 |HANGEING DATA.".|
00001940: 6A 21 42 02 99 22 20 20 20 20 C9 46 20 59 4F 55 |j!B.." .F YOU|
00001950: 20 46 49 4E 44 20 41 4E 59 20 4D 49 53 54 41 4B | FIND ANY MISTAK|
00001960: 45 53 20 49 4E 20 54 48 45 22 00 96 21 44 02 99 |ES IN THE"..!D..|
00001970: 22 20 20 50 52 4F 47 52 41 4D 20 50 4C 45 41 53 |" PROGRAM PLEAS|
00001980: 45 20 46 49 58 20 54 48 45 4D 20 41 4E 44 20 54 |E FIX THEM AND T|
00001990: 52 59 20 54 4F 22 00 BD 21 46 02 99 22 20 20 20 |RY TO"..!F.." |
000019A0: 20 20 20 20 20 20 43 4F 4E 54 41 43 54 20 4D 45 | CONTACT ME|
000019B0: 20 41 42 4F 55 54 20 54 48 45 4D 2E 22 00 F1 21 | ABOUT THEM."..!|
000019C0: 48 02 99 22 11 11 12 20 20 20 20 20 20 C8 49 54 |H.."... .IT|
000019D0: 20 D3 50 41 43 45 20 D4 4F 20 D2 45 54 55 52 4E | .PACE .O .ETURN|
000019E0: 20 D4 4F 20 CD 45 4E 55 20 20 20 20 20 20 20 92 | .O .ENU .|
000019F0: 22 00 05 22 4A 02 A1 42 24 3A 8B 42 24 B2 22 22 |".."J..B$:.B$.""|
00001A00: A7 20 35 38 36 00 21 22 4C 02 89 20 31 31 36 3A |. 586.!"L.. 116:|
00001A10: 20 8F 20 52 45 54 55 52 4E 20 54 4F 20 4D 45 4E | . RETURN TO MEN|
00001A20: 55 00 44 22 4E 02 8F 20 2A 2A 2A 2A 2A 2A 20 20 |U.D"N.. ****** |
00001A30: 4D 4F 44 49 46 49 43 41 54 49 4F 4E 53 20 2A 2A |MODIFICATIONS **|
00001A40: 2A 2A 2A 2A 00 74 22 50 02 99 22 93 11 11 11 20 |****.t"P..".... |
00001A50: 20 20 20 20 20 20 12 20 CD 20 CF A0 C4 A0 C9 A0 | . . ......|
00001A60: C6 A0 C9 A0 C3 A0 C1 A0 D4 A0 C9 A0 CF A0 CE A0 |................|
00001A70: D3 20 92 22 00 A4 22 52 02 99 22 11 11 20 20 D4 |. .".."R..".. .|
00001A80: 48 49 53 20 50 52 4F 47 52 41 4D 20 57 41 53 20 |HIS PROGRAM WAS |
00001A90: 57 52 49 54 54 45 4E 20 53 4F 20 54 48 41 54 20 |WRITTEN SO THAT |
00001AA0: 41 4E 59 22 00 D3 22 54 02 99 22 20 4D 4F 44 49 |ANY".."T.." MODI|
00001AB0: 46 41 43 41 54 49 4F 4E 53 20 57 4F 55 4C 44 20 |FACATIONS WOULD |
00001AC0: 42 45 20 52 45 4C 45 54 49 56 45 4C 59 20 45 41 |BE RELETIVELY EA|
00001AD0: 53 59 22 00 01 23 56 02 99 22 20 20 20 54 4F 20 |SY"..#V.." TO |
00001AE0: 4D 41 4B 45 2E 20 20 C1 4C 4C 20 4F 46 20 54 48 |MAKE. .LL OF TH|
00001AF0: 45 20 44 41 54 41 20 49 53 20 53 54 4F 52 45 44 |E DATA IS STORED|
00001B00: 22 00 2F 23 58 02 99 22 20 20 20 49 4E 20 41 52 |"./#X.." IN AR|
00001B10: 52 41 59 53 2E 20 20 D4 48 45 53 45 20 41 52 52 |RAYS. .HESE ARR|
00001B20: 41 59 53 20 41 52 45 20 46 49 4C 4C 45 44 22 00 |AYS ARE FILLED".|
00001B30: 5D 23 5A 02 99 22 20 46 52 4F 4D 20 44 41 54 41 |]#Z.." FROM DATA|
00001B40: 20 53 54 41 54 45 4D 45 4E 54 53 20 53 54 41 52 | STATEMENTS STAR|
00001B50: 54 49 4E 47 20 41 54 20 4C 49 4E 45 22 00 8C 23 |TING AT LINE"..#|
00001B60: 5C 02 99 22 20 31 35 38 30 2E 20 20 D4 4F 20 4D |\.." 1580. .O M|
00001B70: 41 4B 45 20 41 4E 59 20 43 48 41 4E 47 45 53 20 |AKE ANY CHANGES |
00001B80: 4A 55 53 54 20 43 48 41 4E 47 45 22 00 BB 23 5E |JUST CHANGE"..#^|
00001B90: 02 99 22 44 41 54 41 20 53 54 41 54 45 4D 45 4E |.."DATA STATEMEN|
00001BA0: 54 53 20 41 43 43 4F 52 44 49 4E 47 20 54 4F 20 |TS ACCORDING TO |
00001BB0: 54 48 45 20 54 41 42 4C 45 53 22 00 E8 23 60 02 |THE TABLES"..#`.|
00001BC0: 99 22 20 20 41 53 20 46 4F 55 4E 44 20 49 4E 20 |." AS FOUND IN |
00001BD0: 54 48 45 20 52 45 41 52 20 4F 46 20 54 48 45 20 |THE REAR OF THE |
00001BE0: CF 4E 54 41 52 49 4F 22 00 11 24 62 02 99 22 20 |.NTARIO"..$b.." |
00001BF0: 20 20 20 20 20 C5 4C 45 43 54 52 49 43 41 4C 20 | .LECTRICAL |
00001C00: D3 41 46 45 54 59 20 C3 4F 44 45 20 C2 4F 4F 4B |.AFETY .ODE .OOK|
00001C10: 22 00 46 24 64 02 99 22 11 11 11 12 20 20 20 20 |".F$d..".... |
00001C20: 20 20 48 49 54 20 53 50 41 43 45 20 54 4F 20 52 | HIT SPACE TO R|
00001C30: 45 54 55 52 4E 20 54 4F 20 4D 45 4E 55 20 20 20 |ETURN TO MENU |
00001C40: 20 20 20 20 92 22 00 59 24 66 02 A1 41 24 3A 8B | .".Y$f..A$:.|
00001C50: 41 24 B2 22 22 A7 36 31 34 00 62 24 68 02 89 31 |A$."".614.b$h..1|
00001C60: 31 36 00 84 24 6A 02 8F 20 2A 2A 2A 2A 2A 2A 2A |16..$j.. *******|
00001C70: 20 44 20 41 20 54 20 41 20 2A 2A 2A 2A 2A 2A 2A | D A T A *******|
00001C80: 2A 2A 2A 2A 00 8A 24 6C 02 3A 00 A3 24 6E 02 8F |****..$l.:..$n..|
00001C90: 20 54 41 42 4C 45 20 54 57 4F 20 48 2E 45 2E 50 | TABLE TWO H.E.P|
00001CA0: 2E 43 2E 00 A9 24 70 02 3A 00 D2 24 72 02 83 20 |.C...$p.:..$r.. |
00001CB0: 31 34 2C 31 32 2C 31 30 2C 38 2C 36 2C 34 2C 33 |14,12,10,8,6,4,3|
00001CC0: 2C 32 2C 31 2C 30 2C 30 30 2C 30 30 30 2C 30 30 |,2,1,0,00,000,00|
00001CD0: 30 30 00 04 25 74 02 83 31 35 2C 32 30 2C 33 30 |00..%t..15,20,30|
00001CE0: 2C 34 30 2C 35 35 2C 37 30 2C 38 30 2C 31 30 30 |,40,55,70,80,100|
00001CF0: 2C 31 31 30 2C 31 32 35 2C 31 34 35 2C 31 36 35 |,110,125,145,165|
00001D00: 2C 31 39 35 00 0A 25 76 02 3A 00 23 25 78 02 8F |,195..%v.:.#%x..|
00001D10: 20 54 41 42 4C 45 20 54 45 4E 20 48 2E 45 2E 50 | TABLE TEN H.E.P|
00001D20: 2E 43 2E 00 29 25 7A 02 3A 00 52 25 7C 02 83 20 |.C..)%z.:.R%|.. |
00001D30: 31 34 2C 31 32 2C 31 30 2C 38 2C 36 2C 34 2C 33 |14,12,10,8,6,4,3|
00001D40: 2C 32 2C 31 2C 30 2C 30 30 2C 30 30 30 2C 30 30 |,2,1,0,00,000,00|
00001D50: 30 30 00 98 25 7E 02 83 2E 31 33 31 2C 2E 31 34 |00..%~...131,.14|
00001D60: 38 2C 2E 31 36 38 2C 2E 32 34 38 2C 2E 33 32 33 |8,.168,.248,.323|
00001D70: 2C 2E 33 37 32 2C 2E 34 30 31 2C 2E 34 33 33 2C |,.372,.401,.433,|
00001D80: 2E 35 30 38 2C 2E 35 34 39 2C 2E 35 39 35 2C 2E |.508,.549,.595,.|
00001D90: 36 34 37 2C 2E 37 30 35 00 9E 25 80 02 3A 00 B7 |647,.705..%..:..|
00001DA0: 25 82 02 8F 20 54 41 42 4C 45 20 53 49 58 20 48 |%... TABLE SIX H|
00001DB0: 2E 45 2E 50 2E 43 2E 00 BD 25 84 02 3A 00 D8 25 |.E.P.C...%..:..%|
00001DC0: 86 02 83 30 2C 2E 35 2C 2E 37 35 2C 31 2C 31 2E |...0,.5,.75,1,1.|
00001DD0: 32 35 2C 31 2E 35 2C 32 00 F4 25 88 02 83 2E 31 |25,1.5,2..%....1|
00001DE0: 2C 31 35 2C 32 37 2C 34 34 2C 37 36 2C 31 30 31 |,15,27,44,76,101|
00001DF0: 2C 31 37 31 00 10 26 8A 02 83 2E 31 31 2C 31 32 |,171..&....11,12|
00001E00: 2C 32 32 2C 33 36 2C 36 33 2C 38 35 2C 31 34 31 |,22,36,63,85,141|
00001E10: 00 2C 26 8C 02 83 2E 31 32 2C 31 30 2C 31 38 2C |.,&....12,10,18,|
00001E20: 33 30 2C 35 33 2C 37 32 2C 31 31 39 00 47 26 8E |30,53,72,119.G&.|
00001E30: 02 83 2E 31 33 2C 39 2C 31 35 2C 32 36 2C 34 35 |...13,9,15,26,45|
00001E40: 2C 36 31 2C 31 30 35 00 61 26 90 02 83 2E 31 34 |,61,105.a&....14|
00001E50: 2C 37 2C 31 33 2C 32 32 2C 33 39 2C 35 33 2C 38 |,7,13,22,39,53,8|
00001E60: 37 00 7B 26 92 02 83 2E 31 35 2C 36 2C 31 31 2C |7.{&....15,6,11,|
00001E70: 31 39 2C 33 33 2C 34 36 2C 37 36 00 95 26 94 02 |19,33,46,76..&..|
00001E80: 83 2E 31 36 2C 36 2C 31 30 2C 31 37 2C 32 39 2C |..16,6,10,17,29,|
00001E90: 34 30 2C 36 37 00 AE 26 96 02 83 2E 31 37 2C 35 |40,67..&....17,5|
00001EA0: 2C 39 2C 31 35 2C 32 36 2C 33 35 2C 35 39 00 C7 |,9,15,26,35,59..|
00001EB0: 26 98 02 83 2E 31 38 2C 34 2C 38 2C 31 33 2C 32 |&....18,4,8,13,2|
00001EC0: 33 2C 33 32 2C 35 33 00 E0 26 9A 02 83 2E 31 39 |3,32,53..&....19|
00001ED0: 2C 34 2C 37 2C 31 32 2C 32 31 2C 32 38 2C 34 37 |,4,7,12,21,28,47|
00001EE0: 00 F8 26 9C 02 83 2E 32 2C 33 2C 36 2C 31 30 2C |..&....2,3,6,10,|
00001EF0: 31 39 2C 32 36 2C 34 32 00 11 27 9E 02 83 2E 32 |19,26,42..'....2|
00001F00: 32 35 2C 33 2C 35 2C 38 2C 31 35 2C 32 30 2C 33 |25,3,5,8,15,20,3|
00001F10: 33 00 29 27 A0 02 83 2E 32 35 2C 31 2C 34 2C 37 |3.)'....25,1,4,7|
00001F20: 2C 31 32 2C 31 36 2C 32 37 00 42 27 A2 02 83 2E |,12,16,27.B'....|
00001F30: 32 37 35 2C 31 2C 33 2C 35 2C 31 30 2C 31 33 2C |275,1,3,5,10,13,|
00001F40: 32 32 00 58 27 A4 02 83 2E 33 2C 31 2C 33 2C 34 |22.X'....3,1,3,4|
00001F50: 2C 38 2C 31 31 2C 31 39 00 6F 27 A6 02 83 2E 33 |,8,11,19.o'....3|
00001F60: 32 35 2C 31 2C 31 2C 34 2C 37 2C 39 2C 31 36 00 |25,1,1,4,7,9,16.|
00001F70: 85 27 A8 02 83 2E 33 35 2C 31 2C 31 2C 33 2C 36 |.'....35,1,1,3,6|
00001F80: 2C 38 2C 31 33 00 9C 27 AA 02 83 2E 33 37 35 2C |,8,13..'....375,|
00001F90: 31 2C 31 2C 33 2C 35 2C 37 2C 31 32 00 B1 27 AC |1,1,3,5,7,12..'.|
00001FA0: 02 83 2E 34 2C 31 2C 31 2C 32 2C 34 2C 36 2C 31 |...4,1,1,2,4,6,1|
00001FB0: 30 00 C7 27 AE 02 83 2E 34 32 35 2C 31 2C 31 2C |0..'....425,1,1,|
00001FC0: 31 2C 34 2C 35 2C 39 00 DC 27 B0 02 83 2E 34 35 |1,4,5,9..'....45|
00001FD0: 2C 31 2C 31 2C 31 2C 33 2C 35 2C 38 00 F2 27 B2 |,1,1,1,3,5,8..'.|
00001FE0: 02 83 2E 34 37 35 2C 30 2C 31 2C 31 2C 33 2C 34 |...475,0,1,1,3,4|
00001FF0: 2C 37 00 06 28 B4 02 83 2E 35 2C 30 2C 31 2C 31 |,7..(....5,0,1,1|
00002000: 2C 33 2C 34 2C 36 00 1B 28 B6 02 83 2E 35 35 2C |,3,4,6..(....55,|
00002010: 30 2C 31 2C 31 2C 31 2C 33 2C 35 00 2F 28 B8 02 |0,1,1,1,3,5./(..|
00002020: 83 2E 36 2C 30 2C 31 2C 31 2C 31 2C 32 2C 34 00 |..6,0,1,1,1,2,4.|
00002030: 44 28 BA 02 83 2E 36 35 2C 30 2C 30 2C 31 2C 31 |D(....65,0,0,1,1|
00002040: 2C 31 2C 34 00 58 28 BC 02 83 2E 37 2C 30 2C 30 |,1,4.X(....7,0,0|
00002050: 2C 31 2C 31 2C 31 2C 33 00 6D 28 BE 02 83 2E 37 |,1,1,1,3.m(....7|
00002060: 35 2C 30 2C 30 2C 31 2C 31 2C 31 2C 33 00 73 28 |5,0,0,1,1,1,3.s(|
00002070: C0 02 3A 00 97 28 C2 02 8F 20 4D 41 49 4E 20 44 |..:..(... MAIN D|
00002080: 49 53 43 4F 4E 4E 45 43 54 20 53 49 5A 45 53 20 |ISCONNECT SIZES |
00002090: 49 4E 20 41 4D 50 53 00 9D 28 C4 02 3A 00 B5 28 |IN AMPS..(..:..(|
000020A0: C6 02 83 36 30 2C 31 30 30 2C 32 30 30 2C 34 30 |...60,100,200,40|
000020B0: 30 2C 36 30 30 00 00 00 |0,600... |
..(.... ********************************
.O.... * *.
V.... * ELECTRICAL *..
.... * SERVICE CALCULATOR *.D.
... * *....
.. ********************************.....
:...... BY PAUL ROYLE (NOV 83).'..
.. 71 AMORO DR.;.... REXDALE ONT..T...
. M9W 4S3 CANADA.Z...:... .X .B(5000
3):.50003,0:Y.B(50003):.50003,X...".UC.1
2:LC.14:TEXT.59468:RDP.144.C.$..Y.160.SO
P.88:SPT.85...&..Y.1 .SOP.49:SPT.46...(.
.Y.0.SOP.52:SPT.49:UC.21:LC.23:TEXT.5327
2:RDP.788:.53280,6.1.*.. TEXT,LC:.RDP,SO
P.}.,.. TWOTBL$(13,2),TENTBL$(13,2),SIXT
BL(6,28),RL(30),RW(30),RM$(30),NR(30)...
..P$."ELECTRICAL SERVICE CALCULATOR"...0
..".....";...2..I.1.36.H.4..".";.O.6..I.
..8..I.1.19...:.."...";...<.....>..I.1.3
5...@.."...";...B..I...D..I.1.19.$.F..".
..";.+.H..I.V.J.."................PAUL R
OYLE SOFTWARE"...L..".................PR
ESENTS....":.T.1.100 :.T...N.. I.1..((40
.(C(P$))).2)...P..".";...R..I.D.T..I.1.C
(P$).S.V..T.1.10:.T...X..J(P$,I,1);...Z.
.I:.""...\.. I.1..((40.(C(P$))).2)...^..
".";...`..I.4.B.."..";: .I.1.C(P$).1.C.D
..T.1.10:.T.M.F..".";.X.H..I:.""...J..".
............... HIT SPACE TO START ."...
L..A$:.A$."".108...N.. 356: . SET UP DAT
A TABLE...P.:...R.. ***** M E N U **
***...T.:...V..".....";...X..I.1.36...Z.
.".";...|..I...~..I.1.19.$...."...";.*..
...6....I.1.35.B...."...";.I....I.U....I
.1.19.A...."...";.H....I.N.........."...
.......ELECTRICAL SERVICE CALCULATOR".G.
..."..................................".
.....".................M E N U"......"..
............... . . .".0...."......1. S
TART SERVICE CALCULATOR".X...."......2.
STUDENT'S INSTRUCTIONS"......"......3.
INSTRUCTOR'S INSTRUCTIONS"... .."......
4. MODIFICATIONS"......"......5. QUIT
"......".... ENTER A NUMBER .
...";M$.....M$.H(M$,1)......M$."1".222..
....M$."2".180.&....M$."3".550.6....M$."
4".590.F....M$."5".218.P.... 116.Z....".
...........STUDENT'S INSTRUCTIONS"......
"................................".P....
".. THIS PROGRAM WAS WRITTEN TO MAKE"
......"SERVICE CALCULATIONS A BREEZE. I
NSTEAD"......"OF HAVING TO CONSULT THE E
LECTRIC CODE".\...." BOOK, YOU JUST HAV
E TO PUNCH THE DATA"......" INTO THE COM
PUTER. YOU ENTER THE SIZE"...B.." OF TH
E HOUSE, THE SMALL APPLIANCE LOAD"...D..
" THE RANGE LOAD, AND THE DIMENTIONS "
...F.." OF THE ROOMS. THE COMPUTER WILL
THEN".E.H.."FIGURE OUT THE CONDUCTOR SI
ZES, CONDUIT".T.J.." SIZES, THE SIZE OF
THE MAIN DISCONNECT"...L.." AND THE NUMB
ER OF RECEPTACLES REQUIRED".Q.N.." YOU C
AN HAVE SCREEN OR PRINTER OUTPUT"...P.."
ALL YOU HAVE TO DO IS ANSWER THE ".*
.R.." COMPUTER'S QUESTIONS. HAVE FUN
!".^.T.."... HIT SPACE TO RETURN TO
MENU .".R.V..A$:.A$."". 214.|.X..
116...Z..RDP,SPT:.TEXT,UC:.Y.0..53280,1
4......".":..N.... ***** START *
******.T...:...... ** INPUTS AND CALCULA
TIONS **.....:......258.....:.1.... ****
** RECEPTACLES ******.7...:.@....404
.F...:.K.... ****** OUTPUT ***
***.Q...:.Z....446.....:...... 116: . RE
TURN TO MENU.....:.C.... ** INPUT AND CA
LC. AREA **.I...:.V...."....."......"ENT
ER THE FLOORSPACE OF THE HOUSE IN SQ
UARE FEET"...... FS.(...GLL.5000.8...RFS
.FS.1000.H.... RFS.0.274.K...GLL.GLL.100
0:RFS.RFS.1000:.268.Q...:......" ENTER T
HE SMALL APPLIANCE LOAD IN KILOWAT
TS".C.... SAL :SAL.SAL.1000.S...TEL.GLL.
SAL.....BTI.TEL.120.....TBC..((BTI.12)..
9999).....:.>....".ENTER THE ACTUAL RANG
E LOAD IN KILOWATTS".H. .. RAN
.Y.".RAN.RAN.1000.V.$.ARAN.6000..4.(RAN.
12000).|.&.:...(.RTEL. GLL. SAL. ARAN...
*.TC.RTEL.240...,.:......I.1.13.U.0.. E(
TWOTBL$(I,2)).TC . .I...2.MFS$.TWOTBL$(I
,1)...4.:...6..I.1.13.#.8.. E(TWOTBL$(I,
2)) . (RAN.240). .I.;.:.CRS.E(TWOTBL$(I,
1)).A.<.:.M.>..I.1.13.J.@.. TENTBL$(I,1)
..MFS$. .I...B.CDI.E(TENTBL$(I,2))...D.:
...F..I.1.26...H..SIXTBL(0,I).CDI . .I..
.J.CAP.I...L.:.I.N..I.1.6...P..SIXTBL(I,
CAP).3. .I...R.CS.SIXTBL(I,0)...T.:...V.
.I.1.5...X.. MDS(I).TC . .I.).Z.MD.MDS(I
)./.\...5.^.:.Y.`.. **** SET UP DATA TA
BLES ****._.B.:...D.."... WAIT WHILE
I SET UP THE DATA TABLE"...F..I.1 . 2...
H..J.1 . 13...J.. TWOTBL$(J,I).G.L..J,I.
M.N.:.Z.P..I.1 . 2...R..J.1 . 13...T.. T
ENTBL$(J,I)...V..J,I...X.:...Z..I.0 . 28
.%.|..J.0 . 6.7.~.. SIXTBL(J,I).@....J,I
.F...:.Q....I.1.5.^.... MDS(I).E....I.K.
..:.Q.....W...:...... INPUT ROOM SIZES
FOR RECPTCLS......:.J...."...DO YOU WANT
TO KNOW HOW MANY"......"RECEPTACLES ARE
NEEDED PER ROOM?"......A$......H(A$,1).
"N". ..3....".... RECEPTACL
ES".J...RN.1:RM$(1)."STOP".P. .:.{...."E
NTER THE ROOM NAME (STOP TO QUIT)".....
. RM$(RN)...... RM$(RN)."STOP" .438.....
:.V...." NOW ENTER THE DIMENSIONS OF THE
ROOM"...... RL(RN),RW(RN).....NR(RN) .
. (((( RL(RN). RW(RN)) .2) .12)..999).).
..RN.RN.1.2....418.8...:.>.....D...:.D..
.. ***** OUTPUT AREA *****.J...:......
"...DO YOU WANT THE OUTPUT ON THE SCREEN
".F...."OR THE PRINTER. ENTER . P . OR
. S .".P.B.. OU$.Y.D.."."...F..H(OU$,1).
."P". H(OU$,1).."S".446. .H..H(OU$,1)."P
". .4,4:.4,G(17).8.J..H(OU$,1)."S". .4,3
.B.L..4," ELECTRICAL SERVICE CALCULATION
S".J.N..4,.R.P..4,...R..4,"THE HOUSE IS
";FS;" SQUARE FEET."...T...X.V..4,"THE S
MALL APPLIANCE LOAD IS ";SAL.1000;" KW."
...X.....Z..4,"THE GENERAL LIGHTING LOAD
IS";GLL.1000;" KW.".......D....4,"THE R
ANGE LOAD IS";RAN.1000;" KW".L....4,.C..
.. H(OU$,1)."P".490......".HIT SPACE TO
CONTINUE OUTPUT."......B$:.B$."".486....
.."..".Y....4,"THE LIGHTING PANEL NEEDS
";TBC;" BRANCHES"..................4,"MA
IN FEEDERS #";MFS$;" CONDUCTORS".......@
....4,"DIAMETER OF CONDUCTOR ";CDI;G(34)
.F.....K....4,"MAIN CONDUIT SIZE ";CS;G(
34).Q..........4,"MAIN DISCONNECT ";MD;"
AMPS".......F....4,"RANGE FEEDER #";CRS
;" CONDUCTORS".M....4...... H(OU$,1)."P"
.524......".HIT SPACE TO CONTINUE OUTPUT
."......B$:.B$."". 520.)...."...".2...RN
.1.J....RM$(RN)."STOP".534.W....4,RM$(RN
);" NEEDS";NR(RN);"RECEPTACLES".....RN.R
N.1......526......4,......4,......4,"DON
E";G(145)..... 4.U...."HIT SPACE TO CONT
INUE"... ..B$:.B$."". 544...".....$.:...
&.. **** INSTRUCTORS INST. *****...(.:.L
.*.."... . INSTRUCTOR'S INSTRUCTION
S .".Z.,..".. THIS PROGRAM IS DESIGNED
TO DESIGN"......" ELECTRICAL SERVICES
ACCORDING TO".R.0.." THE ELECTRICAL CODE
S. THE PROGRAM'S".. 2.." CHARACTERIST
ICS ARE IN THE STUDENT ".. 4.." INSTRUC
TIONS. THE CALCULATIONS AND.".Z 6.."
DATA ARE BASED ON THE ELECTRICAL".. 8..
" SAFTEY CODE BOOK. ANY MODIFICATIONS"
.. :.." CAN BE DONE BY SIMPLY CHANGEING
DATA".. <.." STATEMENTS AT THE END OF
THE PROGRAM"..!>.." CHECK OUT THE 'MODIF
ICATIONS' SECTION".?!@.." FOR MORE DETA
ILS ON CHANGEING DATA.".J!B.." IF YOU
FIND ANY MISTAKES IN THE"..!D.." PROGR
AM PLEASE FIX THEM AND TRY TO"..!F.."
CONTACT ME ABOUT THEM."..!H.."...
HIT SPACE TO RETURN TO MENU .
".."J..B$:.B$."". 586.!"L.. 116: . RETUR
N TO MENU.D"N.. ****** MODIFICATIONS **
****.T"P..".... . M O D I F I C A
T I O N S .".."R..".. THIS PROGRAM WAS
WRITTEN SO THAT ANY".S"T.." MODIFACATION
S WOULD BE RELETIVELY EASY"..#V.." TO
MAKE. ALL OF THE DATA IS STORED"./#X.."
IN ARRAYS. THESE ARRAYS ARE FILLED".
]#Z.." FROM DATA STATEMENTS STARTING AT
LINE"..#\.." 1580. TO MAKE ANY CHANGES
JUST CHANGE"..#^.."DATA STATEMENTS ACCOR
DING TO THE TABLES"..#`.." AS FOUND IN
THE REAR OF THE ONTARIO"..$B.." ELE
CTRICAL SAFETY CODE BOOK".F$D.."....
HIT SPACE TO RETURN TO MENU .".Y
$F..A$:.A$."".614.B$H..116..$J.. *******
D A T A ***********..$L.:..$N.. TABLE T
WO H.E.P.C...$P.:.R$R.. 14,12,10,8,6,4,3
,2,1,0,00,000,0000..%T..15,20,30,40,55,7
0,80,100,110,125,145,165,195..%V.:.#%X..
TABLE TEN H.E.P.C..)%Z.:.R%|.. 14,12,10
,8,6,4,3,2,1,0,00,000,0000..%~...131,.14
8,.168,.248,.323,.372,.401,.433,.508,.54
9,.595,.647,.705..%..:..%... TABLE SIX H
.E.P.C...%..:.X%...0,.5,.75,1,1.25,1.5,2
..%....1,15,27,44,76,101,171..&....11,12
,22,36,63,85,141.,&....12,10,18,30,53,72
,119.G&....13,9,15,26,45,61,105.A&....14
,7,13,22,39,53,87.{&....15,6,11,19,33,46
,76..&....16,6,10,17,29,40,67..&....17,5
,9,15,26,35,59.G&....18,4,8,13,23,32,53.
.&....19,4,7,12,21,28,47..&....2,3,6,10,
19,26,42..'....225,3,5,8,15,20,33.)' ...
25,1,4,7,12,16,27.B'....275,1,3,5,10,13,
22.X'....3,1,3,4,8,11,19.O'....325,1,1,4
,7,9,16..'....35,1,1,3,6,8,13..'....375,
1,1,3,5,7,12..'....4,1,1,2,4,6,10.G'....
425,1,1,1,4,5,9..'....45,1,1,1,3,5,8..'.
...475,0,1,1,3,4,7..(....5,0,1,1,3,4,6..
(....55,0,1,1,1,3,5./(....6,0,1,1,1,2,4.
D(....65,0,0,1,1,1,4.X(....7,0,0,1,1,1,3
.M(....75,0,0,1,1,1,3.S(..:..(B.. MAIN D
ISCONNECT SIZES IN AMPS..(D.:..(F..60,10
0,200,400,600...
> CLICK IMAGE PREVIEW FOR FULL MODAL