LUSCHER.C
FILE INFORMATION
FILENAME(S): LUSCHER.C
FILE TYPE(S): PRG
FILE SIZE: 8.8K
FIRST SEEN: 2025-12-01 01:48:31
APPEARS ON: 1 disk(s)
FILE HASH
944ae81e2926646754002df03932109a8ef5c74cda6a7a6e6bd5561102d0017d
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| C64 6 | LUSCHER.C | PRG | hedning, Mattias H00r | 22 | 6 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1B 08 E8 03 8F 20 4C 55 53 43 48 45 52 20 |....... LUSCHER |
00000010: 43 4F 4C 4F 55 52 20 54 45 53 54 00 21 08 F2 03 |COLOUR TEST.!...|
00000020: 8F 00 43 08 FC 03 8F 20 42 41 53 45 44 20 4F 4E |..C.... BASED ON|
00000030: 20 54 48 45 20 45 4E 47 4C 49 53 48 20 54 52 41 | THE ENGLISH TRA|
00000040: 4E 53 2D 00 67 08 06 04 8F 20 4C 41 54 49 4F 4E |NS-.g.... LATION|
00000050: 20 4F 46 20 54 48 45 20 4F 52 49 47 49 4E 41 4C | OF THE ORIGINAL|
00000060: 20 47 45 52 4D 41 4E 00 86 08 10 04 8F 20 54 45 | GERMAN...... TE|
00000070: 58 54 20 42 59 20 44 52 2E 20 4D 41 58 20 4C 55 |XT BY DR. MAX LU|
00000080: 53 43 48 45 52 2E 00 8C 08 1A 04 8F 00 B0 08 24 |SCHER..........$|
00000090: 04 8F 20 52 45 41 44 20 54 48 45 20 46 4F 4C 4C |.. READ THE FOLL|
000000A0: 4F 57 49 4E 47 20 50 41 50 45 52 42 41 43 4B 3A |OWING PAPERBACK:|
000000B0: 00 D0 08 2E 04 8F 20 22 54 48 45 20 4C 55 53 43 |...... "THE LUSC|
000000C0: 48 45 52 20 43 4F 4C 4F 55 52 20 54 45 53 54 22 |HER COLOUR TEST"|
000000D0: 00 FA 08 38 04 8F 20 54 52 41 4E 53 4C 41 54 45 |...8.. TRANSLATE|
000000E0: 44 20 41 4E 44 20 45 44 49 54 54 45 44 20 42 59 |D AND EDITTED BY|
000000F0: 20 49 41 4E 20 53 43 4F 54 54 00 10 09 42 04 8F | IAN SCOTT...B..|
00000100: 20 53 42 4E 20 36 37 31 2D 37 38 30 37 33 2D 35 | SBN 671-78073-5|
00000110: 00 34 09 4C 04 8F 20 50 4F 43 4B 45 54 20 42 4F |.4.L.. POCKET BO|
00000120: 4F 4B 20 45 44 49 54 49 4F 4E 20 53 45 50 54 2E |OK EDITION SEPT.|
00000130: 31 39 37 31 00 3A 09 56 04 8F 00 54 09 60 04 8F |1971.:.V...T.`..|
00000140: 20 50 52 4F 47 52 41 4D 20 57 52 49 54 54 45 4E | PROGRAM WRITTEN|
00000150: 20 42 59 3A 00 70 09 6A 04 8F 20 20 20 20 20 20 | BY:.p.j.. |
00000160: 20 20 20 47 4C 45 4E 20 43 2E 20 42 4F 44 49 45 | GLEN C. BODIE|
00000170: 00 92 09 74 04 8F 20 20 20 20 20 20 20 20 20 39 |...t.. 9|
00000180: 30 20 4B 49 4E 47 53 4D 4F 55 4E 54 20 50 4B 20 |0 KINGSMOUNT PK |
00000190: 52 44 00 B1 09 7E 04 8F 20 20 20 20 20 20 20 20 |RD...~.. |
000001A0: 20 54 4F 52 4F 4E 54 4F 2C 20 4F 4E 54 41 52 49 | TORONTO, ONTARI|
000001B0: 4F 00 CD 09 88 04 8F 20 20 20 20 20 20 20 20 20 |O...... |
000001C0: 28 34 31 36 29 34 36 31 2D 33 34 38 33 00 D3 09 |(416)461-3483...|
000001D0: 92 04 8F 00 F8 09 9C 04 8F 20 2A 2A 2A 2A 2A 2A |......... ******|
000001E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000001F0: 2A 2A 2A 2A 2A 2A 2A 2A 00 1D 0A A6 04 8F 20 2A |********...... *|
00000200: 20 50 45 52 4D 49 53 53 49 4F 4E 20 47 52 41 4E | PERMISSION GRAN|
00000210: 54 45 44 20 54 4F 20 55 53 45 2C 20 2A 00 42 0A |TED TO USE, *.B.|
00000220: B0 04 8F 20 2A 20 43 4F 50 59 20 41 4E 44 20 44 |... * COPY AND D|
00000230: 49 53 54 52 49 42 55 54 45 20 42 55 54 20 4E 4F |ISTRIBUTE BUT NO|
00000240: 54 2A 00 67 0A BA 04 8F 20 2A 20 46 4F 52 20 50 |T*.g.... * FOR P|
00000250: 52 4F 46 49 54 20 4F 46 20 41 4E 59 20 4B 49 4E |ROFIT OF ANY KIN|
00000260: 44 2E 20 20 20 20 2A 00 8C 0A C4 04 8F 20 2A 2A |D. *...... **|
00000270: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000280: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 92 0A CE |************....|
00000290: 04 8F 00 A7 0A D8 04 8F 20 49 4E 49 54 49 41 4C |........ INITIAL|
000002A0: 49 5A 41 54 49 4F 4E 00 C5 0A E2 04 97 20 35 33 |IZATION...... 53|
000002B0: 32 38 30 2C 31 3A 20 97 20 35 33 32 38 31 2C 31 |280,1: . 53281,1|
000002C0: 3A 20 5A B2 30 00 D3 0A EC 04 86 20 42 43 28 31 |: Z.0...... BC(1|
000002D0: 2C 37 29 00 EF 0A F6 04 81 20 49 B2 30 20 A4 20 |,7)...... I.0 . |
000002E0: 37 3A 20 87 20 42 43 28 30 2C 49 29 3A 20 82 00 |7: . BC(0,I): ..|
000002F0: 13 0B 00 05 83 20 31 35 32 2C 33 31 2C 33 30 2C |..... 152,31,30,|
00000300: 31 32 39 2C 31 35 38 2C 31 35 36 2C 31 34 39 2C |129,158,156,149,|
00000310: 31 34 34 00 49 0B 0A 05 99 20 22 93 90 11 11 11 |144.I.... ".....|
00000320: 11 11 11 11 44 4F 20 59 4F 55 20 57 41 4E 54 20 |....DO YOU WANT |
00000330: 4F 55 54 50 55 54 20 4F 4E 20 54 48 45 20 53 43 |OUTPUT ON THE SC|
00000340: 52 45 45 4E 20 28 53 29 22 00 6D 0B 14 05 99 20 |REEN (S)".m.... |
00000350: 22 4F 52 20 4F 4E 20 54 48 45 20 54 59 50 45 52 |"OR ON THE TYPER|
00000360: 20 28 54 29 3F 20 22 3B 3A 20 44 B2 34 00 88 0B | (T)? ";: D.4...|
00000370: 1E 05 A1 20 4B 24 3A 20 8B 20 4B 24 B2 22 22 20 |... K$: . K$."" |
00000380: A7 20 89 20 31 33 31 30 00 A3 0B 28 05 8B 20 4B |. . 1310...(.. K|
00000390: 24 B2 22 53 22 20 A7 20 44 B2 33 3A 20 89 20 31 |$."S" . D.3: . 1|
000003A0: 33 34 30 00 BA 0B 32 05 8B 20 4B 24 B3 B1 22 54 |340...2.. K$.."T|
000003B0: 22 20 A7 20 89 20 31 33 31 30 00 D2 0B 3C 05 99 |" . . 1310...<..|
000003C0: 20 4B 24 3A 20 9F 20 31 2C 44 3A 20 8D 20 33 30 | K$: . 1,D: . 30|
000003D0: 30 30 00 04 0C 46 05 99 20 22 11 11 11 11 11 44 |00...F.. ".....D|
000003E0: 4F 20 59 4F 55 20 4E 45 45 44 20 49 4E 53 54 52 |O YOU NEED INSTR|
000003F0: 55 43 54 49 4F 4E 53 20 28 59 20 4F 52 20 4E 29 |UCTIONS (Y OR N)|
00000400: 3F 20 22 3B 00 1F 0C 50 05 A1 20 4B 24 3A 20 8B |? ";...P.. K$: .|
00000410: 20 4B 24 B2 22 22 20 A7 20 89 20 31 33 36 30 00 | K$."" . . 1360.|
00000420: 3D 0C 5A 05 8B 20 4B 24 B2 22 59 22 20 A7 20 8D |=.Z.. K$."Y" . .|
00000430: 20 32 33 35 30 3A 20 89 20 31 34 30 30 00 54 0C | 2350: . 1400.T.|
00000440: 64 05 8B 20 4B 24 B3 B1 22 4E 22 20 A7 20 89 20 |d.. K$.."N" . . |
00000450: 31 33 36 30 00 5D 0C 6E 05 99 20 4B 24 00 83 0C |1360.].n.. K$...|
00000460: 78 05 85 20 22 11 11 45 4E 54 45 52 20 59 4F 55 |x.. "..ENTER YOU|
00000470: 52 20 4E 41 4D 45 2C 20 50 4C 45 41 53 45 3A 22 |R NAME, PLEASE:"|
00000480: 3B 4E 24 00 B1 0C 82 05 97 20 31 39 38 2C 31 3A |;N$...... 198,1:|
00000490: 20 97 20 36 33 31 2C 33 34 3A 20 85 20 22 11 11 | . 631,34: . "..|
000004A0: 41 4E 44 20 54 48 45 20 44 41 54 45 3A 22 3B 44 |AND THE DATE:";D|
000004B0: 24 00 CB 0C 8C 05 8D 20 33 30 34 30 3A 20 54 B2 |$...... 3040: T.|
000004C0: 30 3A 20 58 B2 BB 28 AB 54 49 29 00 ED 0C 96 05 |0: X..(.TI).....|
000004D0: 8F 20 57 52 49 54 45 20 54 48 45 20 45 49 47 48 |. WRITE THE EIGH|
000004E0: 54 20 43 4F 4C 4F 55 52 20 42 41 52 53 00 F8 0C |T COLOUR BARS...|
000004F0: A0 05 8D 20 33 30 30 30 00 20 0D AA 05 81 20 49 |... 3000. .... I|
00000500: B2 30 20 A4 20 37 3A 20 42 43 28 31 2C 49 29 B2 |.0 . 7: BC(1,I).|
00000510: AB 31 3A 20 54 28 54 2C 49 29 B2 AB 31 3A 20 82 |.1: T(T,I)..1: .|
00000520: 00 36 0D B4 05 99 20 22 93 22 3B 3A 20 81 20 49 |.6.... ".";: . I|
00000530: B2 30 20 A4 20 37 00 5D 0D BE 05 58 B2 B5 28 BB |.0 . 7.]...X..(.|
00000540: 28 31 29 AC 38 29 3A 20 8B 20 42 43 28 31 2C 58 |(1).8): . BC(1,X|
00000550: 29 B1 B2 30 20 A7 20 89 20 31 34 37 30 00 7D 0D |)..0 . . 1470.}.|
00000560: C8 05 42 43 28 31 2C 58 29 B2 49 3A 20 4A B2 A5 |..BC(1,X).I: J..|
00000570: 4A 28 49 29 3A 20 4B B2 A5 4B 28 49 29 00 A0 0D |J(I): K..K(I)...|
00000580: D2 05 99 20 22 13 22 3B 3A 20 81 20 4E B2 31 20 |... ".";: . N.1 |
00000590: A4 20 4B 3A 20 99 20 22 11 22 3B 3A 20 82 20 4E |. K: . ".";: . N|
000005A0: 00 CD 0D DC 05 81 20 4E B2 31 20 A4 20 36 3A 20 |...... N.1 . 6: |
000005B0: 99 20 A3 4A 29 C7 28 42 43 28 30 2C 58 29 29 22 |. .J).(BC(0,X))"|
000005C0: 12 20 20 20 20 20 20 22 3A 20 82 20 4E 00 E9 0D |. ": . N...|
000005D0: E6 05 99 20 A3 4A AA 32 29 22 11 90 22 C7 28 36 |... .J.2)"..".(6|
000005E0: 35 AA 49 29 3A 20 82 20 49 00 08 0E F0 05 8F 20 |5.I): . I...... |
000005F0: 47 45 54 20 54 48 45 20 55 53 45 52 27 53 20 53 |GET THE USER'S S|
00000600: 45 4C 45 43 54 49 4F 4E 00 38 0E FA 05 99 20 22 |ELECTION.8.... "|
00000610: 11 90 43 48 4F 4F 53 45 20 54 48 45 20 43 4F 4C |..CHOOSE THE COL|
00000620: 4F 55 52 20 28 4C 45 54 54 45 52 20 41 20 54 4F |OUR (LETTER A TO|
00000630: 20 48 29 20 46 4F 52 22 00 61 0E 04 06 99 20 22 | H) FOR".a.... "|
00000640: 57 48 49 43 48 20 59 4F 55 20 48 41 56 45 20 54 |WHICH YOU HAVE T|
00000650: 48 45 20 4D 4F 53 54 20 53 59 4D 50 41 54 48 59 |HE MOST SYMPATHY|
00000660: 22 00 6F 0E 0E 06 81 20 49 B2 30 20 A4 20 37 00 |".o.... I.0 . 7.|
00000670: 7B 0E 18 06 97 20 31 39 38 2C 30 00 96 0E 22 06 |{.... 198,0...".|
00000680: A1 20 4B 24 3A 20 8B 20 4B 24 B2 22 22 20 A7 20 |. K$: . K$."" . |
00000690: 89 20 31 35 37 30 00 B5 0E 2C 06 8B 20 4B 24 B3 |. 1570...,.. K$.|
000006A0: 22 41 22 20 B0 20 4B 24 B1 22 48 22 20 A7 20 89 |"A" . K$."H" . .|
000006B0: 20 31 35 36 30 00 E5 0E 36 06 4B B2 C6 28 4B 24 | 1560...6.K..(K$|
000006C0: 29 AB 36 35 3A 20 81 20 58 B2 30 20 A4 20 37 3A |).65: . X.0 . 7:|
000006D0: 20 8B 20 42 43 28 31 2C 58 29 B2 4B 20 A7 20 89 | . BC(1,X).K . .|
000006E0: 20 31 36 31 30 00 F5 0E 40 06 82 20 58 3A 20 89 | 1610...@.. X: .|
000006F0: 20 31 35 36 30 00 20 0F 4A 06 54 28 54 2C 49 29 | 1560. .J.T(T,I)|
00000700: B2 58 3A 20 42 43 28 31 2C 58 29 B2 AB 31 3A 20 |.X: BC(1,X)..1: |
00000710: 4A B2 A5 4A 28 4B 29 3A 20 4B B2 A5 4B 28 4B 29 |J..J(K): K..K(K)|
00000720: 00 43 0F 54 06 99 20 22 13 22 3B 3A 20 81 20 4E |.C.T.. ".";: . N|
00000730: B2 31 20 A4 20 4B 3A 20 99 20 22 11 22 3B 3A 20 |.1 . K: . ".";: |
00000740: 82 20 4E 00 67 0F 5E 06 81 20 4E B2 31 20 A4 20 |. N.g.^.. N.1 . |
00000750: 38 3A 20 99 20 A3 4A 29 22 05 12 20 20 20 20 20 |8: . .J)".. |
00000760: 20 22 3A 20 82 20 4E 00 7F 0F 68 06 82 20 49 3A | ": . N...h.. I:|
00000770: 20 8B 20 54 B2 31 20 A7 20 89 20 31 37 31 30 00 | . T.1 . . 1710.|
00000780: B9 0F 72 06 54 B2 31 3A 20 99 20 22 93 90 11 11 |..r.T.1: . "....|
00000790: 11 11 11 11 11 11 11 11 11 11 4C 45 54 27 53 20 |..........LET'S |
000007A0: 54 52 59 20 49 54 20 4F 4E 43 45 20 4D 4F 52 45 |TRY IT ONCE MORE|
000007B0: 2E 2E 2E 2E 2E 2E 2E 2E 22 00 E7 0F 7C 06 99 20 |........"...|.. |
000007C0: 22 11 11 52 45 4D 45 4D 42 45 52 20 2D 20 44 4F |"..REMEMBER - DO|
000007D0: 4E 27 54 20 54 52 59 20 54 4F 20 43 4F 4E 53 43 |N'T TRY TO CONSC|
000007E0: 49 4F 55 53 4C 59 22 00 17 10 86 06 99 20 22 52 |IOUSLY"...... "R|
000007F0: 45 50 45 41 54 20 4F 52 20 4E 4F 54 20 52 45 50 |EPEAT OR NOT REP|
00000800: 45 41 54 20 54 48 45 20 46 49 52 53 54 20 43 48 |EAT THE FIRST CH|
00000810: 4F 49 43 45 53 2E 22 00 48 10 90 06 99 20 22 11 |OICES.".H.... ".|
00000820: 54 52 45 41 54 20 54 48 49 53 20 41 53 20 49 46 |TREAT THIS AS IF|
00000830: 20 49 54 20 57 41 53 20 54 48 45 20 46 49 52 53 | IT WAS THE FIRS|
00000840: 54 20 54 49 4D 45 2E 22 00 64 10 9A 06 81 20 49 |T TIME.".d.... I|
00000850: B2 31 20 A4 20 37 35 30 30 3A 20 82 3A 20 89 20 |.1 . 7500: .: . |
00000860: 31 34 34 30 00 85 10 A4 06 8F 20 45 43 48 4F 20 |1440...... ECHO |
00000870: 43 4F 4C 4F 55 52 20 4E 55 4D 42 45 52 53 20 43 |COLOUR NUMBERS C|
00000880: 48 4F 53 45 4E 00 BA 10 AE 06 5A B2 31 3A 20 8D |HOSEN.....Z.1: .|
00000890: 20 33 30 30 30 3A 20 81 20 54 B2 30 20 A4 20 31 | 3000: . T.0 . 1|
000008A0: 3A 20 98 31 2C 22 11 54 45 53 54 20 23 22 28 54 |: .1,".TEST #"(T|
000008B0: AA 31 29 22 3A 20 20 20 22 3B 00 DA 10 B8 06 81 |.1)": ";......|
000008C0: 20 49 B2 30 20 A4 20 37 3A 20 98 31 2C 54 28 54 | I.0 . 7: .1,T(T|
000008D0: 2C 49 29 3B 3A 20 82 3A 20 99 00 03 11 C2 06 98 |,I);: .: .......|
000008E0: 31 2C A6 31 33 29 22 AD C3 C3 C3 C3 BD AD C3 C3 |1,.13)".........|
000008F0: C3 C3 BD AD C3 C3 C3 C3 BD AD C3 C3 C3 C3 BD 22 |..............."|
00000900: 3A 20 82 00 27 11 CC 06 98 31 2C A6 31 33 29 22 |: ..'....1,.13)"|
00000910: 20 20 20 2B 20 20 20 20 20 58 20 20 20 20 20 3D | + X =|
00000920: 20 20 20 20 20 2D 22 00 53 11 D6 06 98 31 2C 22 | -".S....1,"|
00000930: 11 43 4F 4C 4F 55 52 53 3A 20 20 30 20 3D 20 47 |.COLOURS: 0 = G|
00000940: 52 45 59 20 20 22 A6 36 29 22 31 20 3D 20 42 4C |REY ".6)"1 = BL|
00000950: 55 45 22 00 77 11 E0 06 98 31 2C A6 31 30 29 22 |UE".w....1,.10)"|
00000960: 32 20 3D 20 47 52 45 45 4E 20 22 A6 36 29 22 33 |2 = GREEN ".6)"3|
00000970: 20 3D 20 52 45 44 22 00 9E 11 EA 06 98 31 2C A6 | = RED"......1,.|
00000980: 31 30 29 22 34 20 3D 20 59 45 4C 4C 4F 57 22 A6 |10)"4 = YELLOW".|
00000990: 36 29 22 35 20 3D 20 50 55 52 50 4C 45 22 00 C4 |6)"5 = PURPLE"..|
000009A0: 11 F4 06 98 31 2C A6 31 30 29 22 36 20 3D 20 42 |....1,.10)"6 = B|
000009B0: 52 4F 57 4E 20 22 A6 36 29 22 37 20 3D 20 42 4C |ROWN ".6)"7 = BL|
000009C0: 41 43 4B 22 00 F6 11 FE 06 98 31 2C 22 11 54 48 |ACK"......1,".TH|
000009D0: 45 20 44 49 46 46 45 52 45 4E 54 20 47 52 4F 55 |E DIFFERENT GROU|
000009E0: 50 49 4E 47 53 20 41 52 45 20 44 45 53 49 47 4E |PINGS ARE DESIGN|
000009F0: 41 54 45 44 3A 22 00 22 12 08 07 81 20 41 B2 30 |ATED:".".... A.0|
00000A00: 20 A4 20 33 3A 20 98 31 2C 22 20 20 22 49 24 28 | . 3: .1," "I$(|
00000A10: 30 2C 41 29 22 20 20 20 20 22 44 24 28 41 29 3A |0,A)" "D$(A):|
00000A20: 20 82 00 43 12 12 07 98 31 2C 22 20 20 2B 2F 2D | ..C....1," +/-|
00000A30: 20 20 22 44 24 28 34 29 20 20 20 20 20 20 20 20 | "D$(4) |
00000A40: 20 20 20 00 51 12 1C 07 9F 20 31 35 2C 38 2C 31 | .Q.... 15,8,1|
00000A50: 35 00 7B 12 26 07 81 20 41 B2 30 20 A4 20 34 3A |5.{.&.. A.0 . 4:|
00000A60: 20 46 4C 24 B2 22 4C 55 53 43 48 45 52 2E 54 45 | FL$."LUSCHER.TE|
00000A70: 58 54 22 AA C7 28 34 38 AA 41 29 00 B1 12 30 07 |XT"..(48.A)...0.|
00000A80: 9F 20 32 2C 38 2C 32 2C 22 30 3A 22 AA 46 4C 24 |. 2,8,2,"0:".FL$|
00000A90: AA 22 2C 53 2C 52 22 3A 20 84 31 35 2C 45 4E 3A |.",S,R": .15,EN:|
00000AA0: 20 8B 20 45 4E B3 B1 30 20 A7 20 89 20 33 33 32 | . EN..0 . . 332|
00000AB0: 30 00 E1 12 3A 07 81 20 49 B2 30 20 A4 20 36 33 |0...:.. I.0 . 63|
00000AC0: 3A 20 81 20 4C B2 30 20 A4 20 33 3A 20 84 32 2C |: . L.0 . 3: .2,|
00000AD0: 41 24 28 4C 2C 49 29 3A 20 82 20 4C 3A 20 82 20 |A$(L,I): . L: . |
00000AE0: 49 00 E9 12 44 07 A0 20 32 00 1D 13 4E 07 81 20 |I...D.. 2...N.. |
00000AF0: 54 B2 30 20 A4 20 31 3A 20 8B 20 41 B2 34 20 A7 |T.0 . 1: . A.4 .|
00000B00: 20 43 31 B2 54 28 54 2C 30 29 3A 20 43 32 B2 54 | C1.T(T,0): C2.T|
00000B10: 28 54 2C 37 29 3A 20 89 20 31 38 39 30 00 3C 13 |(T,7): . 1890.<.|
00000B20: 58 07 43 31 B2 54 28 54 2C 41 AC 32 29 3A 20 43 |X.C1.T(T,A.2): C|
00000B30: 32 B2 54 28 54 2C 41 AC 32 AA 31 29 00 58 13 62 |2.T(T,A.2.1).X.b|
00000B40: 07 8D 20 32 39 37 30 3A 20 98 31 2C 22 11 22 44 |.. 2970: .1,"."D|
00000B50: 24 28 41 29 22 3A 11 22 00 8B 13 6C 07 98 31 2C |$(A)":."...l..1,|
00000B60: A6 31 30 29 22 54 45 53 54 20 23 22 28 54 AA 31 |.10)"TEST #"(T.1|
00000B70: 29 22 3A 20 22 49 24 28 30 2C 41 29 43 31 3B 49 |)": "I$(0,A)C1;I|
00000B80: 24 28 31 2C 41 29 43 32 22 11 22 00 C1 13 76 07 |$(1,A)C2"."...v.|
00000B90: 49 B2 43 31 AC 38 AA 43 32 3A 20 81 20 4C B2 30 |I.C1.8.C2: . L.0|
00000BA0: 20 A4 20 33 3A 20 8B 20 41 24 28 4C 2C 49 29 B2 | . 3: . A$(L,I).|
00000BB0: 22 2A 22 20 A7 20 41 24 28 4C 2C 49 29 B2 22 20 |"*" . A$(L,I)." |
00000BC0: 22 00 D3 13 80 07 98 31 2C 41 24 28 4C 2C 49 29 |"......1,A$(L,I)|
00000BD0: 3A 20 82 00 F8 13 8A 07 91 20 41 AA 31 20 89 20 |: ....... A.1 . |
00000BE0: 31 39 34 30 2C 31 39 36 30 2C 31 39 39 30 2C 31 |1940,1960,1990,1|
00000BF0: 39 34 30 2C 31 39 39 30 00 28 14 94 07 98 31 2C |940,1990.(....1,|
00000C00: 22 11 11 50 45 52 43 45 4E 54 41 47 45 20 4F 46 |"..PERCENTAGE OF|
00000C10: 20 50 4F 50 55 4C 41 54 49 4F 4E 20 57 48 49 43 | POPULATION WHIC|
00000C20: 48 20 43 48 4F 53 45 22 00 68 14 9E 07 98 31 2C |H CHOSE".h....1,|
00000C30: 22 54 48 49 53 20 43 4F 4C 4F 55 52 20 50 41 49 |"THIS COLOUR PAI|
00000C40: 52 20 49 4E 20 54 48 49 53 20 50 4F 53 49 54 49 |R IN THIS POSITI|
00000C50: 4F 4E 3A 22 50 28 41 AD 33 2C 49 29 22 9D 25 22 |ON:"P(A.3,I)".%"|
00000C60: 3A 20 89 20 31 39 39 30 00 99 14 A8 07 98 31 2C |: . 1990......1,|
00000C70: 22 11 11 54 48 45 20 50 52 45 56 49 4F 55 53 4C |"..THE PREVIOUSL|
00000C80: 59 20 44 45 53 43 52 49 42 45 44 20 2B 2F 2B 20 |Y DESCRIBED +/+ |
00000C90: 46 55 4E 43 54 49 4F 4E 22 00 C6 14 B2 07 98 31 |FUNCTION"......1|
00000CA0: 2C 22 49 53 20 41 4E 20 41 54 54 45 4D 50 54 20 |,"IS AN ATTEMPT |
00000CB0: 54 4F 20 43 4F 4D 50 45 4E 53 41 54 45 20 46 4F |TO COMPENSATE FO|
00000CC0: 52 20 54 48 45 22 00 F5 14 BC 07 98 31 2C 22 43 |R THE"......1,"C|
00000CD0: 4F 4E 46 4C 49 43 54 20 57 48 49 43 48 20 4D 41 |ONFLICT WHICH MA|
00000CE0: 59 20 42 45 20 44 45 53 43 52 49 42 45 44 20 48 |Y BE DESCRIBED H|
00000CF0: 45 52 45 2E 22 00 02 15 C6 07 82 20 54 3A 20 82 |ERE."...... T: .|
00000D00: 20 41 00 2F 15 D0 07 8D 20 32 39 37 30 3A 20 98 | A./.... 2970: .|
00000D10: 31 2C 22 11 11 22 A6 31 30 29 22 53 54 52 45 53 |1,"..".10)"STRES|
00000D20: 53 20 43 41 4C 43 55 4C 41 54 49 4F 4E 53 22 00 |S CALCULATIONS".|
00000D30: 4A 15 DA 07 81 20 54 B2 30 20 A4 20 31 3A 20 8B |J.... T.0 . 1: .|
00000D40: 20 54 B2 31 20 A7 20 58 B2 53 00 72 15 E4 07 53 | T.1 . X.S.r...S|
00000D50: B2 30 3A 20 8B 20 54 28 54 2C 30 29 B2 30 20 B0 |.0: . T(T,0).0 .|
00000D60: 20 54 28 54 2C 30 29 B1 B2 36 20 A7 20 53 B2 53 | T(T,0)..6 . S.S|
00000D70: AA 33 00 95 15 EE 07 8B 20 54 28 54 2C 31 29 B2 |.3...... T(T,1).|
00000D80: 30 20 B0 20 54 28 54 2C 31 29 B1 B2 36 20 A7 20 |0 . T(T,1)..6 . |
00000D90: 53 B2 53 AA 32 00 B8 15 F8 07 8B 20 54 28 54 2C |S.S.2...... T(T,|
00000DA0: 32 29 B2 30 20 B0 20 54 28 54 2C 32 29 B1 B2 36 |2).0 . T(T,2)..6|
00000DB0: 20 A7 20 53 B2 53 AA 31 00 DC 15 02 08 8B 20 54 | . S.S.1...... T|
00000DC0: 28 54 2C 35 29 B1 B2 31 20 AF 20 54 28 54 2C 35 |(T,5)..1 . T(T,5|
00000DD0: 29 B3 B2 34 20 A7 20 53 B2 53 AA 31 00 00 16 0C |)..4 . S.S.1....|
00000DE0: 08 8B 20 54 28 54 2C 36 29 B1 B2 31 20 AF 20 54 |.. T(T,6)..1 . T|
00000DF0: 28 54 2C 36 29 B3 B2 34 20 A7 20 53 B2 53 AA 32 |(T,6)..4 . S.S.2|
00000E00: 00 24 16 16 08 8B 20 54 28 54 2C 37 29 B1 B2 31 |.$.... T(T,7)..1|
00000E10: 20 AF 20 54 28 54 2C 37 29 B3 B2 34 20 A7 20 53 | . T(T,7)..4 . S|
00000E20: B2 53 AA 33 00 58 16 20 08 98 31 2C 22 11 54 45 |.S.3.X. ..1,".TE|
00000E30: 53 54 20 23 22 28 54 AA 31 29 22 3A 22 53 54 28 |ST #"(T.1)":"ST(|
00000E40: 53 29 22 9D 25 20 4F 46 20 54 48 45 20 50 4F 50 |S)".% OF THE POP|
00000E50: 55 4C 41 54 49 4F 4E 22 00 79 16 2A 08 98 31 2C |ULATION".y.*..1,|
00000E60: A6 31 37 29 22 48 41 44 20 4C 45 53 53 20 53 54 |.17)"HAD LESS ST|
00000E70: 52 45 53 53 2E 22 3A 20 82 00 8D 16 34 08 8B 20 |RESS.": ....4.. |
00000E80: 53 B3 B2 58 20 A7 20 89 20 32 31 34 30 00 BF 16 |S..X . . 2140...|
00000E90: 3E 08 98 31 2C 22 11 54 48 49 53 20 49 4E 43 52 |>..1,".THIS INCR|
00000EA0: 45 41 53 45 20 49 4E 20 53 54 52 45 53 53 20 42 |EASE IN STRESS B|
00000EB0: 45 54 57 45 45 4E 20 54 48 45 20 54 57 4F 22 00 |ETWEEN THE TWO".|
00000EC0: F0 16 48 08 98 31 2C 22 54 45 53 54 53 20 4D 41 |..H..1,"TESTS MA|
00000ED0: 59 20 49 4E 44 49 43 41 54 45 20 41 20 50 52 4F |Y INDICATE A PRO|
00000EE0: 42 4C 45 4D 20 57 48 49 43 48 20 57 49 4C 4C 22 |BLEM WHICH WILL"|
00000EF0: 00 18 17 52 08 98 31 2C 22 42 45 20 51 55 49 54 |...R..1,"BE QUIT|
00000F00: 45 20 44 49 46 46 49 43 55 4C 54 20 54 4F 20 52 |E DIFFICULT TO R|
00000F10: 45 53 4F 4C 56 45 2E 22 00 23 17 5C 08 8D 20 32 |ESOLVE.".#.\.. 2|
00000F20: 39 37 30 00 52 17 66 08 98 31 2C 22 11 57 48 45 |970.R.f..1,".WHE|
00000F30: 52 45 20 54 48 45 20 54 57 4F 20 54 45 53 54 53 |RE THE TWO TESTS|
00000F40: 20 50 52 4F 44 55 43 45 44 20 53 49 47 4E 49 46 | PRODUCED SIGNIF|
00000F50: 2D 22 00 81 17 70 08 98 31 2C 22 49 43 41 4E 54 |-"...p..1,"ICANT|
00000F60: 4C 59 20 44 49 46 46 45 52 45 4E 54 20 52 45 53 |LY DIFFERENT RES|
00000F70: 55 4C 54 53 2C 20 54 48 45 20 53 45 43 4F 4E 44 |ULTS, THE SECOND|
00000F80: 22 00 AE 17 7A 08 98 31 2C 22 4F 4E 45 20 49 53 |"...z..1,"ONE IS|
00000F90: 20 45 58 50 45 43 54 45 44 20 54 4F 20 42 45 20 | EXPECTED TO BE |
00000FA0: 4D 4F 52 45 20 43 4F 52 52 45 43 54 2E 22 00 DA |MORE CORRECT."..|
00000FB0: 17 84 08 98 31 2C 22 11 49 4E 20 41 4C 4C 20 43 |....1,".IN ALL C|
00000FC0: 41 53 45 53 2C 20 54 48 45 20 41 4E 41 4C 59 53 |ASES, THE ANALYS|
00000FD0: 49 53 20 4F 46 20 54 48 45 22 00 0B 18 8E 08 98 |IS OF THE"......|
00000FE0: 31 2C 22 43 4F 4C 4F 55 52 53 20 53 45 4C 45 43 |1,"COLOURS SELEC|
00000FF0: 54 45 44 20 53 48 4F 55 4C 44 20 4F 4E 4C 59 20 |TED SHOULD ONLY |
00001000: 42 45 20 54 52 45 41 54 45 44 22 00 3A 18 98 08 |BE TREATED".:...|
00001010: 98 31 2C 22 41 53 20 49 4E 44 49 43 41 54 4F 52 |.1,"AS INDICATOR|
00001020: 53 20 4F 46 20 41 52 45 41 53 20 57 48 45 52 45 |S OF AREAS WHERE|
00001030: 20 50 52 4F 46 45 53 53 2D 22 00 6A 18 A2 08 98 | PROFESS-".j....|
00001040: 31 2C 22 49 4F 4E 41 4C 20 41 53 53 49 53 54 41 |1,"IONAL ASSISTA|
00001050: 4E 43 45 20 53 48 4F 55 4C 44 20 42 45 20 43 4F |NCE SHOULD BE CO|
00001060: 4E 53 49 44 45 52 45 44 2E 22 00 99 18 AC 08 98 |NSIDERED."......|
00001070: 31 2C 22 11 54 48 49 53 20 50 52 4F 47 52 41 4D |1,".THIS PROGRAM|
00001080: 20 48 41 53 20 4F 4E 4C 59 20 42 45 45 4E 20 47 | HAS ONLY BEEN G|
00001090: 49 56 45 4E 20 54 48 45 22 00 C7 18 B6 08 98 31 |IVEN THE"......1|
000010A0: 2C 22 41 42 49 4C 49 54 59 20 54 4F 20 44 4F 20 |,"ABILITY TO DO |
000010B0: 56 45 52 59 20 53 49 4D 50 4C 45 58 20 41 4E 41 |VERY SIMPLEX ANA|
000010C0: 4C 59 53 45 53 2E 22 00 F6 18 C0 08 98 31 2C 22 |LYSES."......1,"|
000010D0: 57 48 45 52 45 20 4D 4F 52 45 20 44 45 54 41 49 |WHERE MORE DETAI|
000010E0: 4C 20 49 53 20 44 45 53 49 52 45 44 20 49 4E 20 |L IS DESIRED IN |
000010F0: 54 45 52 4D 53 22 00 27 19 CA 08 98 31 2C 22 4F |TERMS".'....1,"O|
00001100: 46 20 54 48 45 20 49 4E 54 45 52 41 43 54 49 4F |F THE INTERACTIO|
00001110: 4E 53 20 4F 46 20 54 48 45 20 43 4F 4C 4F 55 52 |NS OF THE COLOUR|
00001120: 53 20 53 45 4C 2D 22 00 55 19 D4 08 98 31 2C 22 |S SEL-".U....1,"|
00001130: 45 43 54 45 44 20 4F 52 20 54 48 45 20 44 49 46 |ECTED OR THE DIF|
00001140: 46 45 52 45 4E 43 45 53 20 42 45 54 57 45 45 4E |FERENCES BETWEEN|
00001150: 20 54 48 45 22 00 85 19 DE 08 98 31 2C 22 54 57 | THE"......1,"TW|
00001160: 4F 20 53 45 4C 45 43 54 49 4F 4E 53 2C 20 54 48 |O SELECTIONS, TH|
00001170: 45 20 55 53 45 52 20 49 53 20 41 44 56 49 53 45 |E USER IS ADVISE|
00001180: 44 20 54 4F 22 00 A7 19 E8 08 98 31 2C 22 52 45 |D TO"......1,"RE|
00001190: 41 44 20 54 48 45 20 46 4F 4C 4C 4F 57 49 4E 47 |AD THE FOLLOWING|
000011A0: 20 42 4F 4F 4B 3A 22 00 CB 19 F2 08 98 31 2C 22 | BOOK:"......1,"|
000011B0: 20 20 20 54 48 45 20 4C 55 53 43 48 45 52 20 43 | THE LUSCHER C|
000011C0: 4F 4C 4F 55 52 20 54 45 53 54 22 00 F9 19 FC 08 |OLOUR TEST".....|
000011D0: 98 31 2C 22 20 20 20 54 52 41 4E 53 4C 41 54 45 |.1," TRANSLATE|
000011E0: 44 20 26 20 45 44 49 54 54 45 44 20 42 59 20 49 |D & EDITTED BY I|
000011F0: 41 4E 20 53 43 4F 54 54 22 00 1D 1A 06 09 98 31 |AN SCOTT"......1|
00001200: 2C 22 20 20 20 52 41 4E 44 4F 4D 20 48 4F 55 53 |," RANDOM HOUS|
00001210: 45 2C 20 4E 4F 56 2E 20 31 39 36 39 22 00 39 1A |E, NOV. 1969".9.|
00001220: 10 09 98 31 2C 22 20 20 20 53 42 4E 20 36 37 31 |...1," SBN 671|
00001230: 2D 37 38 30 37 33 2D 35 22 00 43 1A 1A 09 A0 31 |-78073-5".C....1|
00001240: 3A 20 80 00 63 1A 24 09 8F 20 49 4E 53 54 52 55 |: ..c.$.. INSTRU|
00001250: 43 54 49 4F 4E 53 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |CTIONS..........|
00001260: 2E 2E 2E 00 6E 1A 2E 09 8D 20 33 30 30 30 00 9C |....n.... 3000..|
00001270: 1A 38 09 98 31 2C 22 57 48 45 4E 20 54 48 45 20 |.8..1,"WHEN THE |
00001280: 45 49 47 48 54 20 43 4F 4C 4F 55 52 20 42 41 52 |EIGHT COLOUR BAR|
00001290: 53 20 41 50 50 45 41 52 20 4F 4E 22 00 CB 1A 42 |S APPEAR ON"...B|
000012A0: 09 98 31 2C 22 54 48 45 20 53 43 52 45 45 4E 2C |..1,"THE SCREEN,|
000012B0: 20 4C 4F 4F 4B 20 54 48 45 4D 20 4F 56 45 52 20 | LOOK THEM OVER |
000012C0: 41 4E 44 20 44 45 43 49 44 45 22 00 F9 1A 4C 09 |AND DECIDE"...L.|
000012D0: 98 31 2C 22 57 48 49 43 48 20 43 4F 4C 4F 55 52 |.1,"WHICH COLOUR|
000012E0: 20 59 4F 55 20 4C 49 4B 45 20 54 48 45 20 42 45 | YOU LIKE THE BE|
000012F0: 53 54 2E 20 20 12 44 4F 22 00 28 1B 56 09 98 31 |ST. .DO".(.V..1|
00001300: 2C 22 12 4E 4F 54 20 54 52 59 20 54 4F 20 41 53 |,".NOT TRY TO AS|
00001310: 53 4F 43 49 41 54 45 20 54 48 45 20 43 4F 4C 4F |SOCIATE THE COLO|
00001320: 55 52 20 57 49 54 48 22 00 57 1B 60 09 98 31 2C |UR WITH".W.`..1,|
00001330: 22 12 53 4F 4D 45 54 48 49 4E 47 20 45 4C 53 45 |".SOMETHING ELSE|
00001340: 92 2C 20 53 55 43 48 20 41 53 20 41 20 43 41 52 |., SUCH AS A CAR|
00001350: 20 4F 52 20 41 20 22 00 88 1B 6A 09 98 31 2C 22 | OR A "...j..1,"|
00001360: 44 52 45 53 53 2E 20 4A 55 53 54 20 43 48 4F 4F |DRESS. JUST CHOO|
00001370: 53 45 20 54 48 45 20 43 4F 4C 4F 55 52 20 46 4F |SE THE COLOUR FO|
00001380: 52 20 57 48 49 43 48 22 00 B8 1B 74 09 98 31 2C |R WHICH"...t..1,|
00001390: 22 59 4F 55 20 46 45 45 4C 20 54 48 45 20 4D 4F |"YOU FEEL THE MO|
000013A0: 53 54 20 53 59 4D 50 41 54 48 59 2E 20 20 50 52 |ST SYMPATHY. PR|
000013B0: 45 53 53 20 54 48 45 22 00 E7 1B 7E 09 98 31 2C |ESS THE"...~..1,|
000013C0: 22 4B 45 59 20 43 4F 52 52 45 53 50 4F 4E 44 49 |"KEY CORRESPONDI|
000013D0: 4E 47 20 54 4F 20 54 48 45 20 4C 45 54 54 45 52 |NG TO THE LETTER|
000013E0: 20 55 4E 44 45 52 22 00 18 1C 88 09 98 31 2C 22 | UNDER"......1,"|
000013F0: 59 4F 55 52 20 53 45 4C 45 43 54 45 44 20 43 4F |YOUR SELECTED CO|
00001400: 4C 4F 55 52 20 41 4E 44 20 54 48 45 20 43 4F 4C |LOUR AND THE COL|
00001410: 4F 55 52 20 42 41 52 22 00 46 1C 92 09 98 31 2C |OUR BAR".F....1,|
00001420: 22 57 49 4C 4C 20 42 45 20 45 52 41 53 45 44 20 |"WILL BE ERASED |
00001430: 54 4F 20 53 48 4F 57 20 54 48 41 54 20 59 4F 55 |TO SHOW THAT YOU|
00001440: 20 48 41 56 45 22 00 74 1C 9C 09 98 31 2C 22 43 | HAVE".t....1,"C|
00001450: 48 4F 53 45 4E 20 54 48 41 54 20 43 4F 4C 4F 55 |HOSEN THAT COLOU|
00001460: 52 2E 20 20 4E 4F 57 20 4C 4F 4F 4B 20 41 54 20 |R. NOW LOOK AT |
00001470: 54 48 45 22 00 A5 1C A6 09 98 31 2C 22 52 45 4D |THE"......1,"REM|
00001480: 41 49 4E 49 4E 47 20 43 4F 4C 4F 55 52 53 2E 20 |AINING COLOURS. |
00001490: 43 48 4F 4F 53 45 20 54 48 45 20 4F 4E 45 20 57 |CHOOSE THE ONE W|
000014A0: 48 49 43 48 22 00 D5 1C B0 09 98 31 2C 22 59 4F |HICH"......1,"YO|
000014B0: 55 20 4E 4F 57 20 4C 49 4B 45 20 54 48 45 20 42 |U NOW LIKE THE B|
000014C0: 45 53 54 20 41 4E 44 20 53 45 4C 45 43 54 20 49 |EST AND SELECT I|
000014D0: 54 20 41 53 22 00 06 1D BA 09 98 31 2C 22 42 45 |T AS"......1,"BE|
000014E0: 46 4F 52 45 2E 20 43 4F 4E 54 49 4E 55 45 20 43 |FORE. CONTINUE C|
000014F0: 48 4F 4F 53 49 4E 47 20 43 4F 4C 4F 55 52 53 20 |HOOSING COLOURS |
00001500: 55 4E 54 49 4C 22 00 22 1D C4 09 98 31 2C 22 54 |UNTIL"."....1,"T|
00001510: 48 45 59 20 41 52 45 20 41 4C 4C 20 47 4F 4E 45 |HEY ARE ALL GONE|
00001520: 2E 22 00 2D 1D CE 09 8D 20 32 39 37 30 00 5D 1D |.".-.... 2970.].|
00001530: D8 09 98 31 2C 22 57 48 45 4E 20 59 4F 55 20 48 |...1,"WHEN YOU H|
00001540: 41 56 45 20 43 4F 4D 50 4C 45 54 45 44 20 54 48 |AVE COMPLETED TH|
00001550: 45 20 46 49 52 53 54 20 53 45 4C 2D 22 00 8D 1D |E FIRST SEL-"...|
00001560: E2 09 98 31 2C 22 45 43 54 49 4F 4E 2C 20 59 4F |...1,"ECTION, YO|
00001570: 55 20 57 49 4C 4C 20 42 45 20 41 53 4B 45 44 20 |U WILL BE ASKED |
00001580: 54 4F 20 44 4F 20 49 54 20 41 4C 4C 22 00 BD 1D |TO DO IT ALL"...|
00001590: EC 09 98 31 2C 22 4F 56 45 52 20 41 47 41 49 4E |...1,"OVER AGAIN|
000015A0: 2E 20 20 44 4F 20 4E 4F 54 20 43 4F 4E 53 43 49 |. DO NOT CONSCI|
000015B0: 4F 55 53 4C 59 20 54 52 59 20 54 4F 22 00 EE 1D |OUSLY TRY TO"...|
000015C0: F6 09 98 31 2C 22 52 45 50 52 4F 44 55 43 45 20 |...1,"REPRODUCE |
000015D0: 59 4F 55 52 20 46 49 52 53 54 20 53 45 4C 45 43 |YOUR FIRST SELEC|
000015E0: 54 49 4F 4E 2E 20 20 44 4F 20 4E 4F 54 22 00 1D |TION. DO NOT"..|
000015F0: 1E 00 0A 98 31 2C 22 43 4F 4E 53 43 49 4F 55 53 |....1,"CONSCIOUS|
00001600: 4C 59 20 54 52 59 20 4E 4F 54 20 54 4F 20 52 45 |LY TRY NOT TO RE|
00001610: 50 52 4F 44 55 43 45 20 59 4F 55 52 22 00 48 1E |PRODUCE YOUR".H.|
00001620: 0A 0A 98 31 2C 22 46 49 52 53 54 20 53 45 4C 45 |...1,"FIRST SELE|
00001630: 43 54 49 4F 4E 2E 20 20 4A 55 53 54 20 43 48 4F |CTION. JUST CHO|
00001640: 4F 53 45 20 54 48 45 22 00 78 1E 14 0A 98 31 2C |OSE THE".x....1,|
00001650: 22 43 4F 4C 4F 55 52 53 20 41 53 20 49 46 20 59 |"COLOURS AS IF Y|
00001660: 4F 55 20 57 45 52 45 20 53 45 45 49 4E 47 20 54 |OU WERE SEEING T|
00001670: 48 45 4D 20 46 4F 52 22 00 A9 1E 1E 0A 98 31 2C |HEM FOR"......1,|
00001680: 22 54 48 45 20 46 49 52 53 54 20 54 49 4D 45 2E |"THE FIRST TIME.|
00001690: 20 57 48 45 4E 20 59 4F 55 20 48 41 56 45 20 43 | WHEN YOU HAVE C|
000016A0: 4F 4D 50 4C 45 54 45 44 22 00 DA 1E 28 0A 98 31 |OMPLETED"...(..1|
000016B0: 2C 22 54 48 45 20 53 45 43 4F 4E 44 20 53 45 4C |,"THE SECOND SEL|
000016C0: 45 43 54 49 4F 4E 2C 20 59 4F 55 20 57 49 4C 4C |ECTION, YOU WILL|
000016D0: 20 42 45 20 47 49 56 45 4E 22 00 08 1F 32 0A 98 | BE GIVEN"...2..|
000016E0: 31 2C 22 41 20 56 45 52 59 20 52 4F 55 47 48 20 |1,"A VERY ROUGH |
000016F0: 41 4E 41 4C 59 53 49 53 20 4F 46 20 59 4F 55 52 |ANALYSIS OF YOUR|
00001700: 20 43 4F 4C 4F 55 52 22 00 1E 1F 3C 0A 98 31 2C | COLOUR"...<..1,|
00001710: 22 50 52 45 46 45 52 45 4E 43 45 53 2E 22 00 29 |"PREFERENCES.".)|
00001720: 1F 46 0A 8D 20 32 39 37 30 00 5A 1F 50 0A 98 31 |.F.. 2970.Z.P..1|
00001730: 2C 22 54 48 45 20 50 52 49 43 49 50 4C 45 20 4F |,"THE PRICIPLE O|
00001740: 46 20 54 48 45 20 4C 55 53 43 48 45 52 20 43 4F |F THE LUSCHER CO|
00001750: 4C 4F 55 52 20 54 45 53 54 22 00 8A 1F 5A 0A 98 |LOUR TEST"...Z..|
00001760: 31 2C 22 49 53 20 54 48 41 54 20 41 43 43 55 52 |1,"IS THAT ACCUR|
00001770: 41 54 45 20 50 53 59 43 48 4F 4C 4F 47 49 43 41 |ATE PSYCHOLOGICA|
00001780: 4C 20 49 4E 46 4F 52 4D 2D 22 00 BB 1F 64 0A 98 |L INFORM-"...d..|
00001790: 31 2C 22 41 54 49 4F 4E 20 43 41 4E 20 42 45 20 |1,"ATION CAN BE |
000017A0: 47 41 49 4E 45 44 20 41 42 4F 55 54 20 41 20 50 |GAINED ABOUT A P|
000017B0: 45 52 53 4F 4E 20 54 48 52 55 22 00 EB 1F 6E 0A |ERSON THRU"...n.|
000017C0: 98 31 2C 22 48 49 53 20 43 48 4F 49 43 45 53 20 |.1,"HIS CHOICES |
000017D0: 41 4E 44 20 52 45 4A 45 43 54 49 4F 4E 53 20 4F |AND REJECTIONS O|
000017E0: 46 20 43 4F 4C 4F 55 52 53 2E 22 00 1C 20 78 0A |F COLOURS.".. x.|
000017F0: 98 31 2C 22 41 20 53 49 4D 50 4C 49 46 49 45 44 |.1,"A SIMPLIFIED|
00001800: 20 56 45 52 53 49 4F 4E 20 4F 46 20 54 48 45 20 | VERSION OF THE |
00001810: 54 45 53 54 20 4D 41 59 20 42 45 22 00 4D 20 82 |TEST MAY BE".M .|
00001820: 0A 98 31 2C 22 54 41 4B 45 4E 20 41 4E 44 20 49 |..1,"TAKEN AND I|
00001830: 4E 54 45 52 50 52 45 54 45 44 20 51 55 49 43 4B |NTERPRETED QUICK|
00001840: 4C 59 2E 20 20 48 4F 57 45 56 45 52 22 00 7C 20 |LY. HOWEVER".| |
00001850: 8C 0A 98 31 2C 22 44 45 53 50 49 54 45 20 54 48 |...1,"DESPITE TH|
00001860: 45 20 45 41 53 45 20 41 4E 44 20 53 50 45 45 44 |E EASE AND SPEED|
00001870: 20 57 49 54 48 20 57 48 49 43 48 22 00 AC 20 96 | WITH WHICH".. .|
00001880: 0A 98 31 2C 22 49 54 20 43 41 4E 20 42 45 20 41 |..1,"IT CAN BE A|
00001890: 44 4D 49 4E 49 53 54 45 52 45 44 2C 20 49 54 20 |DMINISTERED, IT |
000018A0: 49 53 20 41 20 27 44 45 45 50 27 22 00 DA 20 A0 |IS A 'DEEP'".. .|
000018B0: 0A 98 31 2C 22 50 53 59 43 48 4F 4C 4F 47 49 43 |..1,"PSYCHOLOGIC|
000018C0: 41 4C 20 54 45 53 54 20 44 45 56 45 4C 4F 50 45 |AL TEST DEVELOPE|
000018D0: 44 20 46 4F 52 20 54 48 45 22 00 08 21 AA 0A 98 |D FOR THE"..!...|
000018E0: 31 2C 22 55 53 45 20 4F 46 20 50 53 59 43 48 49 |1,"USE OF PSYCHI|
000018F0: 41 54 52 49 53 54 53 2C 20 50 53 59 43 48 4F 4C |ATRISTS, PSYCHOL|
00001900: 4F 47 49 53 54 53 2C 22 00 37 21 B4 0A 98 31 2C |OGISTS,".7!...1,|
00001910: 22 50 48 59 53 49 43 49 41 4E 53 20 41 4E 44 20 |"PHYSICIANS AND |
00001920: 54 48 4F 53 45 20 57 48 4F 20 41 52 45 20 50 52 |THOSE WHO ARE PR|
00001930: 4F 46 45 53 53 2D 22 00 68 21 BE 0A 98 31 2C 22 |OFESS-".h!...1,"|
00001940: 49 4F 4E 41 4C 4C 59 20 49 4E 56 4F 4C 56 45 44 |IONALLY INVOLVED|
00001950: 20 57 49 54 48 20 54 48 45 20 43 4F 4E 53 43 49 | WITH THE CONSCI|
00001960: 4F 55 53 20 41 4E 44 22 00 98 21 C8 0A 98 31 2C |OUS AND"..!...1,|
00001970: 22 55 4E 43 4F 4E 53 43 49 4F 55 53 20 43 48 41 |"UNCONSCIOUS CHA|
00001980: 52 41 43 54 45 52 49 53 54 49 43 53 20 41 4E 44 |RACTERISTICS AND|
00001990: 20 4D 4F 54 49 56 2D 22 00 C2 21 D2 0A 98 31 2C | MOTIV-"..!...1,|
000019A0: 22 41 54 49 4F 4E 53 20 4F 46 20 4F 54 48 45 52 |"ATIONS OF OTHER|
000019B0: 53 2E 20 20 49 54 20 49 53 20 12 4E 4F 54 92 20 |S. IT IS .NOT. |
000019C0: 41 22 00 F2 21 DC 0A 98 31 2C 22 50 41 52 4C 4F |A"..!...1,"PARLO|
000019D0: 55 52 20 47 41 4D 45 2C 20 41 4E 44 20 4D 4F 53 |UR GAME, AND MOS|
000019E0: 54 20 45 4D 50 48 41 54 49 43 41 4C 4C 59 20 49 |T EMPHATICALLY I|
000019F0: 54 22 00 23 22 E6 0A 98 31 2C 22 49 53 20 4E 4F |T".#"...1,"IS NO|
00001A00: 54 20 41 20 57 45 41 50 4F 4E 20 54 4F 20 42 45 |T A WEAPON TO BE|
00001A10: 20 55 53 45 44 20 49 4E 20 41 20 47 45 4E 45 52 | USED IN A GENER|
00001A20: 41 4C 22 00 48 22 F0 0A 98 31 2C 22 43 4F 4E 54 |AL".H"...1,"CONT|
00001A30: 45 53 54 20 4F 46 20 27 4F 4E 45 2D 55 50 4D 41 |EST OF 'ONE-UPMA|
00001A40: 4E 53 48 49 50 27 2E 22 00 53 22 FA 0A 8D 20 32 |NSHIP'.".S"... 2|
00001A50: 39 37 30 00 82 22 04 0B 99 20 22 46 4F 52 20 41 |970.."... "FOR A|
00001A60: 43 43 55 52 41 43 59 20 4F 46 20 52 45 53 55 4C |CCURACY OF RESUL|
00001A70: 54 53 2C 20 50 4C 45 41 53 45 20 41 44 4A 55 53 |TS, PLEASE ADJUS|
00001A80: 54 22 00 B2 22 0E 0B 99 20 22 54 48 45 20 54 49 |T".."... "THE TI|
00001A90: 4E 54 2C 20 43 4F 4C 4F 55 52 2C 20 42 52 49 47 |NT, COLOUR, BRIG|
00001AA0: 48 54 4E 45 53 53 20 26 20 43 4F 4E 54 52 41 53 |HTNESS & CONTRAS|
00001AB0: 54 22 00 E2 22 18 0B 99 20 22 43 4F 4E 54 52 4F |T".."... "CONTRO|
00001AC0: 4C 53 20 4F 46 20 59 4F 55 52 20 54 45 4C 45 56 |LS OF YOUR TELEV|
00001AD0: 49 53 49 4F 4E 20 53 4F 20 54 48 41 54 20 54 48 |ISION SO THAT TH|
00001AE0: 45 22 00 0F 23 22 0B 99 20 22 46 4F 4C 4C 4F 57 |E"..#".. "FOLLOW|
00001AF0: 49 4E 47 20 43 4F 4C 4F 55 52 53 20 41 50 50 45 |ING COLOURS APPE|
00001B00: 41 52 20 43 4F 52 52 45 43 54 4C 59 2E 11 22 00 |AR CORRECTLY..".|
00001B10: 44 23 2C 0B 99 20 C7 28 42 43 28 30 2C 30 29 29 |D#,.. .(BC(0,0))|
00001B20: 22 47 52 45 59 20 20 20 20 22 A6 35 29 22 12 20 |"GREY ".5)". |
00001B30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001B40: 20 20 11 22 00 79 23 36 0B 99 20 C7 28 42 43 28 | .".y#6.. .(BC(|
00001B50: 30 2C 31 29 29 22 42 4C 55 45 20 20 20 20 22 A6 |0,1))"BLUE ".|
00001B60: 35 29 22 12 20 20 20 20 20 20 20 20 20 20 20 20 |5)". |
00001B70: 20 20 20 20 20 20 20 11 22 00 AE 23 40 0B 99 20 | ."..#@.. |
00001B80: C7 28 42 43 28 30 2C 32 29 29 22 47 52 45 45 4E |.(BC(0,2))"GREEN|
00001B90: 20 20 20 22 A6 35 29 22 12 20 20 20 20 20 20 20 | ".5)". |
00001BA0: 20 20 20 20 20 20 20 20 20 20 20 20 11 22 00 E3 | ."..|
00001BB0: 23 4A 0B 99 20 C7 28 42 43 28 30 2C 33 29 29 22 |#J.. .(BC(0,3))"|
00001BC0: 52 45 44 20 20 20 20 20 22 A6 35 29 22 12 20 20 |RED ".5)". |
00001BD0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001BE0: 20 11 22 00 18 24 54 0B 99 20 C7 28 42 43 28 30 | ."..$T.. .(BC(0|
00001BF0: 2C 34 29 29 22 59 45 4C 4C 4F 57 20 20 22 A6 35 |,4))"YELLOW ".5|
00001C00: 29 22 12 20 20 20 20 20 20 20 20 20 20 20 20 20 |)". |
00001C10: 20 20 20 20 20 20 11 22 00 4D 24 5E 0B 99 20 C7 | .".M$^.. .|
00001C20: 28 42 43 28 30 2C 35 29 29 22 50 55 52 50 4C 45 |(BC(0,5))"PURPLE|
00001C30: 20 20 22 A6 35 29 22 12 20 20 20 20 20 20 20 20 | ".5)". |
00001C40: 20 20 20 20 20 20 20 20 20 20 20 11 22 00 82 24 | ."..$|
00001C50: 68 0B 99 20 C7 28 42 43 28 30 2C 36 2B FF FF FF |h.. .(BC(0,6+...|
00001C60: FF D0 FF DD FF FF FF FF FC FF FF FF FF FF FF FF |................|
00001C70: FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF |................|
00001C80: 67 FF FF 75 FF FF F7 33 FF B5 FF FF FF FF FF FF |g..u...3........|
00001C90: FF FF FF FF FF FF FF FF D7 FF FF FF FF FC FF FF |................|
00001CA0: FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF |................|
00001CB0: FF FF FF FF FF 2F FF FF FF FF 4A F6 3B FF FF FF |...../....J.;...|
00001CC0: FF FF FF A3 FF FF 0B 8E 00 E7 24 90 0B 8F 20 43 |..........$... C|
00001CD0: 4F 4E 54 49 4E 55 45 20 26 20 57 52 49 54 45 20 |ONTINUE & WRITE |
00001CE0: 48 45 41 44 49 4E 47 00 FA 24 9A 0B 8B 20 44 B2 |HEADING..$... D.|
00001CF0: 34 20 A7 20 89 20 33 30 30 30 00 2F 25 A4 0B 98 |4 . . 3000./%...|
00001D00: 31 2C 22 11 50 52 45 53 53 20 41 4E 59 20 4B 45 |1,".PRESS ANY KE|
00001D10: 59 20 54 4F 20 43 4F 4E 54 49 4E 55 45 2E 2E 2E |Y TO CONTINUE...|
00001D20: 2E 2E 2E 2E 2E 22 3A 20 97 20 31 39 38 2C 30 00 |.....": . 198,0.|
00001D30: 4A 25 AE 0B A1 20 4B 24 3A 20 8B 20 4B 24 B2 22 |J%... K$: . K$."|
00001D40: 22 20 A7 20 89 20 32 39 39 30 00 6F 25 B8 0B 98 |" . . 2990.o%...|
00001D50: 31 2C 22 93 90 22 A6 31 30 29 22 4C 55 53 43 48 |1,"..".10)"LUSCH|
00001D60: 45 52 20 43 4F 4C 4F 55 52 20 54 45 53 54 22 00 |ER COLOUR TEST".|
00001D70: 9B 25 C2 0B 98 31 2C A6 31 30 29 22 B7 B7 B7 B7 |.%...1,.10)"....|
00001D80: B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 22 |..............."|
00001D90: 3A 20 8B 20 5A B2 30 20 A7 20 8E 00 BB 25 CC 0B |: . Z.0 . ...%..|
00001DA0: 98 31 2C 22 52 45 53 55 4C 54 53 20 46 4F 52 20 |.1,"RESULTS FOR |
00001DB0: 22 4E 24 A6 35 29 44 24 3A 20 8E 00 CD 25 D6 0B |"N$.5)D$: ...%..|
00001DC0: 8F 20 44 45 46 49 4E 45 20 44 41 54 41 00 F7 25 |. DEFINE DATA..%|
00001DD0: E0 0B 99 20 22 11 11 57 41 49 54 20 57 48 49 4C |... "..WAIT WHIL|
00001DE0: 45 20 44 41 54 41 20 49 53 20 49 4E 49 54 49 41 |E DATA IS INITIA|
00001DF0: 4C 49 5A 45 44 2E 22 00 2A 26 EA 0B 86 20 54 28 |LIZED.".*&... T(|
00001E00: 31 2C 37 29 2C 53 54 28 31 33 29 2C 49 24 28 31 |1,7),ST(13),I$(1|
00001E10: 2C 34 29 2C 44 24 28 34 29 2C 41 24 28 33 2C 36 |,4),D$(4),A$(3,6|
00001E20: 33 29 2C 50 28 31 2C 36 33 29 00 49 26 F4 0B 96 |3),P(1,63).I&...|
00001E30: 20 A5 20 4A 28 49 29 B2 28 49 AB B5 28 49 AD 34 | . J(I).(I..(I.4|
00001E40: 29 AC 34 29 AC 31 30 AA 32 00 61 26 FE 0B 96 20 |).4).10.2.a&... |
00001E50: A5 20 4B 28 49 29 B2 B5 28 49 AD 34 29 AC 39 AA |. K(I)..(I.4).9.|
00001E60: 33 00 7B 26 08 0C 81 20 49 B2 30 20 A4 20 34 3A |3.{&... I.0 . 4:|
00001E70: 20 87 20 44 24 28 49 29 3A 20 82 00 AB 26 12 0C | . D$(I): ...&..|
00001E80: 83 20 22 44 45 53 49 52 45 44 20 4F 42 4A 45 43 |. "DESIRED OBJEC|
00001E90: 54 49 56 45 53 22 2C 22 45 58 49 53 54 49 4E 47 |TIVES","EXISTING|
00001EA0: 20 53 49 54 55 41 54 49 4F 4E 22 00 E9 26 1C 0C | SITUATION"..&..|
00001EB0: 83 20 22 52 45 53 54 52 41 49 4E 45 44 20 43 48 |. "RESTRAINED CH|
00001EC0: 41 52 41 43 54 45 52 49 53 54 49 43 53 22 2C 22 |ARACTERISTICS","|
00001ED0: 52 45 4A 45 43 54 45 44 20 43 48 41 52 41 43 54 |REJECTED CHARACT|
00001EE0: 45 52 49 53 54 49 43 53 22 00 04 27 26 0C 83 20 |ERISTICS"..'&.. |
00001EF0: 22 54 48 45 20 41 43 54 55 41 4C 20 50 52 4F 42 |"THE ACTUAL PROB|
00001F00: 4C 45 4D 22 00 32 27 30 0C 81 20 49 B2 30 20 A4 |LEM".2'0.. I.0 .|
00001F10: 20 34 3A 20 81 20 4A B2 30 20 A4 20 31 3A 20 87 | 4: . J.0 . 1: .|
00001F20: 20 49 24 28 4A 2C 49 29 3A 20 82 20 4A 3A 20 82 | I$(J,I): . J: .|
00001F30: 20 49 00 60 27 3A 0C 83 20 22 2B 22 2C 22 2B 22 | I.`':.. "+","+"|
00001F40: 2C 22 58 22 2C 22 58 22 2C 22 3D 22 2C 22 3D 22 |,"X","X","=","="|
00001F50: 2C 22 2D 22 2C 22 2D 22 2C 22 2B 22 2C 22 2D 22 |,"-","-","+","-"|
00001F60: 00 7B 27 44 0C 81 20 49 B2 30 20 A4 20 31 32 3A |.{'D.. I.0 . 12:|
00001F70: 20 87 20 53 54 28 49 29 3A 20 82 00 BF 27 4E 0C | . ST(I): ...'N.|
00001F80: 83 20 30 2C 32 35 2E 39 2C 33 38 2E 31 2C 35 32 |. 0,25.9,38.1,52|
00001F90: 2E 34 2C 36 34 2E 31 2C 37 32 2E 37 2C 38 31 2E |.4,64.1,72.7,81.|
00001FA0: 38 2C 38 37 2E 33 2C 39 32 2E 31 2C 39 35 2E 35 |8,87.3,92.1,95.5|
00001FB0: 2C 39 37 2E 39 2C 39 39 2E 33 2C 39 39 2E 39 00 |,97.9,99.3,99.9.|
00001FC0: E2 27 58 0C 8F 20 2B 3F 2B 3F 20 46 55 4E 43 54 |.'X.. +?+? FUNCT|
00001FD0: 49 4F 4E 53 20 50 52 4F 42 41 42 49 4C 49 54 49 |IONS PROBABILITI|
00001FE0: 45 53 00 18 28 62 0C 81 20 4A B2 30 20 A4 20 37 |ES..(b.. J.0 . 7|
00001FF0: 3A 20 81 20 4B B2 30 20 A4 20 37 3A 20 4C B2 4A |: . K.0 . 7: L.J|
00002000: AC 38 AA 4B 3A 20 87 20 50 28 30 2C 4C 29 3A 20 |.8.K: . P(0,L): |
00002010: 82 20 4B 3A 20 82 20 4A 00 5F 28 6C 0C 83 20 32 |. K: . J._(l.. 2|
00002020: 2E 37 2C 30 2E 36 2C 30 2E 34 2C 30 2E 35 2C 30 |.7,0.6,0.4,0.5,0|
00002030: 2E 33 2C 30 2E 32 2C 30 2E 36 2C 30 2E 32 2C 31 |.3,0.2,0.6,0.2,1|
00002040: 2E 32 2C 31 35 2E 39 2C 33 2E 38 2C 33 2E 36 2C |.2,15.9,3.8,3.6,|
00002050: 31 2E 34 2C 34 2E 34 2C 31 2E 31 2C 30 2E 35 00 |1.4,4.4,1.1,0.5.|
00002060: A8 28 76 0C 83 20 30 2E 37 2C 33 2E 35 2C 31 38 |.(v.. 0.7,3.5,18|
00002070: 2E 31 2C 35 2E 32 2C 32 2E 33 2C 34 2E 32 2C 31 |.1,5.2,2.3,4.2,1|
00002080: 2E 38 2C 30 2E 35 2C 30 2E 39 2C 34 2E 34 2C 36 |.8,0.5,0.9,4.4,6|
00002090: 2E 36 2C 32 38 2E 39 2C 31 31 2E 30 2C 33 2E 35 |.6,28.9,11.0,3.5|
000020A0: 2C 32 2E 31 2C 30 2E 33 00 F0 28 80 0C 83 20 30 |,2.1,0.3..(... 0|
000020B0: 2E 35 2C 31 2E 32 2C 32 2E 32 2C 36 2E 37 2C 31 |.5,1.2,2.2,6.7,1|
000020C0: 32 2E 35 2C 31 2E 32 2C 30 2E 36 2C 30 2E 33 2C |2.5,1.2,0.6,0.3,|
000020D0: 30 2E 33 2C 34 2E 31 2C 34 2E 38 2C 33 2E 33 2C |0.3,4.1,4.8,3.3,|
000020E0: 31 2E 38 2C 31 35 2E 33 2C 30 2E 36 2C 30 2E 34 |1.8,15.3,0.6,0.4|
000020F0: 00 36 29 8A 0C 83 20 30 2E 36 2C 30 2E 37 2C 31 |.6)... 0.6,0.7,1|
00002100: 2E 32 2C 31 2E 31 2C 30 2E 35 2C 30 2E 34 2C 34 |.2,1.1,0.5,0.4,4|
00002110: 2E 37 2C 30 2E 32 2C 30 2E 33 2C 30 2E 34 2C 30 |.7,0.2,0.3,0.4,0|
00002120: 2E 33 2C 30 2E 32 2C 30 2E 33 2C 30 2E 32 2C 30 |.3,0.2,0.3,0.2,0|
00002130: 2E 31 2C 31 2E 38 00 55 29 94 0C 8F 20 58 3F 58 |.1,1.8.U)... X?X|
00002140: 3F 20 46 55 4E 43 54 49 4F 4E 53 20 2D 20 4E 4F |? FUNCTIONS - NO|
00002150: 20 44 41 54 41 00 74 29 9E 0C 8F 20 3D 3F 3D 3F | DATA.t)... =?=?|
00002160: 20 46 55 4E 43 54 49 4F 4E 53 20 2D 20 4E 4F 20 | FUNCTIONS - NO |
00002170: 44 41 54 41 00 89 29 A8 0C 8F 20 2D 3F 2D 3F 20 |DATA..)... -?-? |
00002180: 46 55 4E 43 54 49 4F 4E 53 00 BF 29 B2 0C 81 20 |FUNCTIONS..)... |
00002190: 4A B2 30 20 A4 20 37 3A 20 81 20 4B B2 30 20 A4 |J.0 . 7: . K.0 .|
000021A0: 20 37 3A 20 4C B2 4A AC 38 AA 4B 3A 20 87 20 50 | 7: L.J.8.K: . P|
000021B0: 28 31 2C 4C 29 3A 20 82 20 4B 3A 20 82 20 4A 00 |(1,L): . K: . J.|
000021C0: 07 2A BC 0C 83 20 32 33 2E 31 2C 30 2E 39 2C 30 |.*... 23.1,0.9,0|
000021D0: 2E 34 2C 30 2E 35 2C 31 2E 37 2C 31 2E 37 2C 33 |.4,0.5,1.7,1.7,3|
000021E0: 2E 38 2C 31 35 2E 33 2C 31 2E 35 2C 34 2E 37 2C |.8,15.3,1.5,4.7,|
000021F0: 30 2E 32 2C 30 2E 32 2C 30 2E 33 2C 32 2E 30 2C |0.2,0.2,0.3,2.0,|
00002200: 30 2E 36 2C 34 2E 39 00 4D 2A C6 0C 83 20 30 2E |0.6,4.9.M*... 0.|
00002210: 37 2C 30 2E 33 2C 32 2E 38 2C 30 2E 32 2C 30 2E |7,0.3,2.8,0.2,0.|
00002220: 34 2C 31 2E 30 2C 30 2E 37 2C 31 2E 37 2C 30 2E |4,1.0,0.7,1.7,0.|
00002230: 38 2C 30 2E 32 2C 30 2E 31 2C 33 2E 34 2C 31 2E |8,0.2,0.1,3.4,1.|
00002240: 35 2C 30 2E 38 2C 30 2E 37 2C 30 2E 39 00 94 2A |5,0.8,0.7,0.9..*|
00002250: D0 0C 83 20 32 2E 31 2C 30 2E 32 2C 30 2E 32 2C |... 2.1,0.2,0.2,|
00002260: 30 2E 39 2C 38 2E 36 2C 31 2E 32 2C 31 2E 31 2C |0.9,8.6,1.2,1.1,|
00002270: 33 2E 34 2C 31 2E 37 2C 30 2E 39 2C 30 2E 35 2C |3.4,1.7,0.9,0.5,|
00002280: 30 2E 33 2C 30 2E 39 2C 31 31 2E 30 2C 31 2E 30 |0.3,0.9,11.0,1.0|
00002290: 2C 33 2E 36 00 DD 2A DA 0C 83 20 35 2E 38 2C 30 |,3.6..*... 5.8,0|
000022A0: 2E 35 2C 30 2E 32 2C 30 2E 36 2C 31 2E 33 2C 31 |.5,0.2,0.6,1.3,1|
000022B0: 2E 35 2C 31 31 2E 34 2C 35 2E 33 2C 31 30 2E 35 |.5,11.4,5.3,10.5|
000022C0: 2C 31 2E 37 2C 30 2E 38 2C 30 2E 37 2C 32 2E 35 |,1.7,0.8,0.7,2.5|
000022D0: 2C 33 2E 30 2C 33 2E 35 2C 33 35 2E 31 00 FC 2A |,3.0,3.5,35.1..*|
000022E0: E4 0C 8F 20 2B 3F 2D 3F 20 46 55 4E 43 54 49 4F |... +?-? FUNCTIO|
000022F0: 4E 53 20 2D 20 4E 4F 20 44 41 54 41 00 02 2B EE |NS - NO DATA..+.|
00002300: 0C 8E 00 29 2B F8 0C 99 20 22 44 49 53 4B 20 45 |...)+... "DISK E|
00002310: 52 52 4F 52 20 23 22 45 4E 3A 20 A0 31 3A 20 A0 |RROR #"EN: .1: .|
00002320: 32 3A 20 A0 31 35 3A 20 80 00 00 00 |2: .15: .... |
....... LUSCHER COLOUR TEST.!.....C....
BASED ON THE ENGLISH TRANS-.G.... LATION
OF THE ORIGINAL GERMAN...... TEXT BY DR
. MAX LUSCHER..........$.. READ THE FOLL
OWING PAPERBACK:.P.... "THE LUSCHER COLO
UR TEST"...8.. TRANSLATED AND EDITTED BY
IAN SCOTT...B.. SBN 671-78073-5.4.L.. P
OCKET BOOK EDITION SEPT.1971.:.V...T.`..
PROGRAM WRITTEN BY:.P.J.. GLEN
C. BODIE...T.. 90 KINGSMOUNT PK
RD...~.. TORONTO, ONTARIO.M....
(416)461-3483.S.......... ******
************************...... * PERMISS
ION GRANTED TO USE, *.B.... * COPY AND D
ISTRIBUTE BUT NOT*.G.... * FOR PROFIT OF
ANY KIND. *...D.. ******************
************...N.....X.. INITIALIZATION.
E.... 53280,1: . 53281,1: Z.0.S.... BC(1
,7)...... I.0 . 7: . BC(0,I): ....... 15
2,31,30,129,158,156,149,144.I.... ".....
....DO YOU WANT OUTPUT ON THE SCREEN (S)
".M.... "OR ON THE TYPER (T)? ";: D.4...
... K$: . K$."" . . 1310...(.. K$."S" .
D.3: . 1340...2.. K$.."T" . . 1310.R.<..
K$: . 1,D: . 3000...F.. ".....DO YOU NE
ED INSTRUCTIONS (Y OR N)? ";...P.. K$: .
K$."" . . 1360.=.Z.. K$."Y" . . 2350: .
1400.T.D.. K$.."N" . . 1360.].N.. K$...
X.. "..ENTER YOUR NAME, PLEASE:";N$.....
. 198,1: . 631,34: . "..AND THE DATE:";D
$.K.... 3040: T.0: X..(.TI)...... WRITE
THE EIGHT COLOUR BARS... .. 3000. .... I
.0 . 7: BC(1,I)..1: T(T,I)..1: ..6.... "
.";: . I.0 . 7.]...X..(.(1).8): . BC(1,X
)..0 . . 1470.}.H.BC(1,X).I: J..J(I): K.
.K(I). .R.. ".";: . N.1 . K: . ".";: . N
.M.... N.1 . 6: . .J)G(BC(0,X))". "
: . N...... .J.2)".."G(65.I): . I......
GET THE USER'S SELECTION.8.... "..CHOOSE
THE COLOUR (LETTER A TO H) FOR".A.... "
WHICH YOU HAVE THE MOST SYMPATHY".O....
I.0 . 7.{.... 198,0...".. K$: . K$."" .
. 1570...,.. K$."A" . K$."H" . . 1560...
6.K.F(K$).65: . X.0 . 7: . BC(1,X).K . .
1610...@.. X: . 1560. .J.T(T,I).X: BC(1
,X)..1: J..J(K): K..K(K).C.T.. ".";: . N
.1 . K: . ".";: . N.G.^.. N.1 . 8: . .J)
".. ": . N..H.. I: . T.1 . . 1710.
..R.T.1: . "..............LET'S TRY IT O
NCE MORE........"...|.. "..REMEMBER - DO
N'T TRY TO CONSCIOUSLY"...... "REPEAT OR
NOT REPEAT THE FIRST CHOICES.".H.... ".
TREAT THIS AS IF IT WAS THE FIRST TIME."
.D.... I.1 . 7500: .: . 1440...... ECHO
COLOUR NUMBERS CHOSEN.....Z.1: . 3000: .
T.0 . 1: .1,".TEST #"(T.1)": ";.Z....
I.0 . 7: .1,T(T,I);: .: ....B..1,.13)".
CCCC..CCCC..CCCC..CCCC.": ..'.L..1,.13)"
+ X = -".S.V..1,".COLOURS
: 0 = GREY ".6)"1 = BLUE".W....1,.10)"
2 = GREEN ".6)"3 = RED"......1,.10)"4 =
YELLOW".6)"5 = PURPLE".D....1,.10)"6 = B
ROWN ".6)"7 = BLACK"......1,".THE DIFFER
ENT GROUPINGS ARE DESIGNATED:".".... A.0
. 3: .1," "I$(0,A)" "D$(A): ..C....
1," +/- "D$(4) .Q.... 15,8,1
5.{.&.. A.0 . 4: FL$."LUSCHER.TEXT".G(48
.A)...0.. 2,8,2,"0:".FL$.",S,R": .15,EN:
. EN..0 . . 3320...:.. I.0 . 63: . L.0
. 3: .2,A$(L,I): . L: . I...D. 2...N..
T.0 . 1: . A.4 . C1.T(T,0): C2.T(T,7): .
1890.<.X.C1.T(T,A.2): C2.T(T,A.2.1).X.B
.. 2970: .1,"."D$(A)":."...L..1,.10)"TES
T #"(T.1)": "I$(0,A)C1;I$(1,A)C2".".A.V.
I.C1.8.C2: . L.0 . 3: . A$(L,I)."*" . A$
(L,I)." ".S....1,A$(L,I): ....... A.1 .
1940,1960,1990,1940,1990.(....1,"..PERCE
NTAGE OF POPULATION WHICH CHOSE".H....1,
"THIS COLOUR PAIR IN THIS POSITION:"P(A.
3,I)".%": . 1990......1,"..THE PREVIOUSL
Y DESCRIBED +/+ FUNCTION".F....1,"IS AN
ATTEMPT TO COMPENSATE FOR THE"......1,"C
ONFLICT WHICH MAY BE DESCRIBED HERE."...
F.. T: . A./.P.. 2970: .1,"..".10)"STRES
S CALCULATIONS".J.Z.. T.0 . 1: . T.1 . X
.S.R...S.0: . T(T,0).0 . T(T,0)..6 . S.S
.3...... T(T,1).0 . T(T,1)..6 . S.S.2...
... T(T,2).0 . T(T,2)..6 . S.S.1...... T
(T,5)..1 . T(T,5)..4 . S.S.1...... T(T,6
)..1 . T(T,6)..4 . S.S.2.$.... T(T,7)..1
. T(T,7)..4 . S.S.3.X. ..1,".TEST #"(T.
1)":"ST(S)".% OF THE POPULATION".Y.*..1,
.17)"HAD LESS STRESS.": ....4.. S..X . .
2140...>..1,".THIS INCREASE IN STRESS B
ETWEEN THE TWO"...H..1,"TESTS MAY INDICA
TE A PROBLEM WHICH WILL"...R..1,"BE QUIT
E DIFFICULT TO RESOLVE.".#.\.. 2970.R.F.
.1,".WHERE THE TWO TESTS PRODUCED SIGNIF
-"...P..1,"ICANTLY DIFFERENT RESULTS, TH
E SECOND"...Z..1,"ONE IS EXPECTED TO BE
MORE CORRECT.".Z....1,".IN ALL CASES, TH
E ANALYSIS OF THE"......1,"COLOURS SELEC
TED SHOULD ONLY BE TREATED".:....1,"AS I
NDICATORS OF AREAS WHERE PROFESS-".J....
1,"IONAL ASSISTANCE SHOULD BE CONSIDERED
."......1,".THIS PROGRAM HAS ONLY BEEN G
IVEN THE".G....1,"ABILITY TO DO VERY SIM
PLEX ANALYSES."......1,"WHERE MORE DETAI
L IS DESIRED IN TERMS".'.J..1,"OF THE IN
TERACTIONS OF THE COLOURS SEL-".U.T..1,"
ECTED OR THE DIFFERENCES BETWEEN THE"...
...1,"TWO SELECTIONS, THE USER IS ADVISE
D TO"......1,"READ THE FOLLOWING BOOK:".
K....1," THE LUSCHER COLOUR TEST".....
.1," TRANSLATED & EDITTED BY IAN SCOTT
"......1," RANDOM HOUSE, NOV. 1969".9.
...1," SBN 671-78073-5".C... 1: ..C.$.
. INSTRUCTIONS..............N.... 3000..
.8..1,"WHEN THE EIGHT COLOUR BARS APPEAR
ON".K.B..1,"THE SCREEN, LOOK THEM OVER
AND DECIDE"...L..1,"WHICH COLOUR YOU LIK
E THE BEST. .DO".(.V..1,".NOT TRY TO AS
SOCIATE THE COLOUR WITH".W.`..1,".SOMETH
ING ELSE., SUCH AS A CAR OR A "...J..1,"
DRESS. JUST CHOOSE THE COLOUR FOR WHICH"
...T..1,"YOU FEEL THE MOST SYMPATHY. PR
ESS THE"...~..1,"KEY CORRESPONDING TO TH
E LETTER UNDER"......1,"YOUR SELECTED CO
LOUR AND THE COLOUR BAR".F....1,"WILL BE
ERASED TO SHOW THAT YOU HAVE".T....1,"C
HOSEN THAT COLOUR. NOW LOOK AT THE"....
..1,"REMAINING COLOURS. CHOOSE THE ONE W
HICH".U....1,"YOU NOW LIKE THE BEST AND
SELECT IT AS"......1,"BEFORE. CONTINUE C
HOOSING COLOURS UNTIL".".D..1,"THEY ARE
ALL GONE.".-.N.. 2970.].X..1,"WHEN YOU H
AVE COMPLETED THE FIRST SEL-"......1,"EC
TION, YOU WILL BE ASKED TO DO IT ALL"...
...1,"OVER AGAIN. DO NOT CONSCIOUSLY TR
Y TO"......1,"REPRODUCE YOUR FIRST SELEC
TION. DO NOT"......1,"CONSCIOUSLY TRY N
OT TO REPRODUCE YOUR".H....1,"FIRST SELE
CTION. JUST CHOOSE THE".X....1,"COLOURS
AS IF YOU WERE SEEING THEM FOR"......1,
"THE FIRST TIME. WHEN YOU HAVE COMPLETED
".Z.(..1,"THE SECOND SELECTION, YOU WILL
BE GIVEN"...2..1,"A VERY ROUGH ANALYSIS
OF YOUR COLOUR"...<..1,"PREFERENCES.".)
.F.. 2970.Z.P..1,"THE PRICIPLE OF THE LU
SCHER COLOUR TEST"...Z..1,"IS THAT ACCUR
ATE PSYCHOLOGICAL INFORM-"...D..1,"ATION
CAN BE GAINED ABOUT A PERSON THRU"...N.
.1,"HIS CHOICES AND REJECTIONS OF COLOUR
S.".. X..1,"A SIMPLIFIED VERSION OF THE
TEST MAY BE".M ...1,"TAKEN AND INTERPRET
ED QUICKLY. HOWEVER".| ...1,"DESPITE TH
E EASE AND SPEED WITH WHICH".. ...1,"IT
CAN BE ADMINISTERED, IT IS A 'DEEP'".Z
..1,"PSYCHOLOGICAL TEST DEVELOPED FOR TH
E"..!...1,"USE OF PSYCHIATRISTS, PSYCHOL
OGISTS,".7!...1,"PHYSICIANS AND THOSE WH
O ARE PROFESS-".H!...1,"IONALLY INVOLVED
WITH THE CONSCIOUS AND"..!H..1,"UNCONSC
IOUS CHARACTERISTICS AND MOTIV-".B!R..1,
"ATIONS OF OTHERS. IT IS .NOT. A"..!...
1,"PARLOUR GAME, AND MOST EMPHATICALLY I
T".#"...1,"IS NOT A WEAPON TO BE USED IN
A GENERAL".H"...1,"CONTEST OF 'ONE-UPMA
NSHIP'.".S"... 2970.."... "FOR ACCURACY
OF RESULTS, PLEASE ADJUST".."... "THE TI
NT, COLOUR, BRIGHTNESS & CONTRAST".."...
"CONTROLS OF YOUR TELEVISION SO THAT TH
E"..#".. "FOLLOWING COLOURS APPEAR CORRE
CTLY..".D#,.. G(BC(0,0))"GREY ".5)".
.".Y#6.. G(BC(0,1))"BL
UE ".5)". ."..#@..
G(BC(0,2))"GREEN ".5)".
."..#J.. G(BC(0,3))"RED ".5)".
."..$T.. G(BC(0,4))"YEL
LOW ".5)". .".M$^.. G
(BC(0,5))"PURPLE ".5)".
."..$H.. G(BC(0,6+....P..............
................G..U...3................
W............................/....J.;...
..........$... CONTINUE & WRITE HEADING.
.$... D.4 . . 3000./%...1,".PRESS ANY KE
Y TO CONTINUE........": . 198,0.J%... K$
: . K$."" . . 2990.O%...1,"..".10)"LUSCH
ER COLOUR TEST"..%B..1,.10)"............
.......": . Z.0 . ...%L..1,"RESULTS FOR
"N$.5)D$: ..M%V.. DEFINE DATA..%... "..W
AIT WHILE DATA IS INITIALIZED.".*&... T(
1,7),ST(13),I$(1,4),D$(4),A$(3,63),P(1,6
3).I&... . J(I).(I..(I.4).4).10.2.A&...
. K(I)..(I.4).9.3.{&... I.0 . 4: . D$(I)
: ...&... "DESIRED OBJECTIVES","EXISTING
SITUATION"..&... "RESTRAINED CHARACTERI
STICS","REJECTED CHARACTERISTICS"..'&..
"THE ACTUAL PROBLEM".2'0.. I.0 . 4: . J.
0 . 1: . I$(J,I): . J: . I.`':.. "+","+"
,"X","X","=","=","-","-","+","-".{'D.. I
.0 . 12: . ST(I): ...'N.. 0,25.9,38.1,52
.4,64.1,72.7,81.8,87.3,92.1,95.5,97.9,99
.3,99.9..'X.. +?+? FUNCTIONS PROBABILITI
ES..(B.. J.0 . 7: . K.0 . 7: L.J.8.K: .
P(0,L): . K: . J._(L.. 2.7,0.6,0.4,0.5,0
.3,0.2,0.6,0.2,1.2,15.9,3.8,3.6,1.4,4.4,
1.1,0.5..(V.. 0.7,3.5,18.1,5.2,2.3,4.2,1
.8,0.5,0.9,4.4,6.6,28.9,11.0,3.5,2.1,0.3
..(... 0.5,1.2,2.2,6.7,12.5,1.2,0.6,0.3,
0.3,4.1,4.8,3.3,1.8,15.3,0.6,0.4.6)... 0
.6,0.7,1.2,1.1,0.5,0.4,4.7,0.2,0.3,0.4,0
.3,0.2,0.3,0.2,0.1,1.8.U)... X?X? FUNCTI
ONS - NO DATA.T)... =?=? FUNCTIONS - NO
DATA..)... -?-? FUNCTIONS..)... J.0 . 7:
. K.0 . 7: L.J.8.K: . P(1,L): . K: . J.
.*... 23.1,0.9,0.4,0.5,1.7,1.7,3.8,15.3,
1.5,4.7,0.2,0.2,0.3,2.0,0.6,4.9.M*F.. 0.
7,0.3,2.8,0.2,0.4,1.0,0.7,1.7,0.8,0.2,0.
1,3.4,1.5,0.8,0.7,0.9..*P.. 2.1,0.2,0.2,
0.9,8.6,1.2,1.1,3.4,1.7,0.9,0.5,0.3,0.9,
11.0,1.0,3.6..*Z.. 5.8,0.5,0.2,0.6,1.3,1
.5,11.4,5.3,10.5,1.7,0.8,0.7,2.5,3.0,3.5
,35.1..*... +?-? FUNCTIONS - NO DATA..+.
...)+... "DISK ERROR #"EN: 1: 2: 15:
....
> CLICK IMAGE PREVIEW FOR FULL MODAL