PSYCHE
FILE INFORMATION
FILENAME(S): PSYCHE
FILE TYPE(S): PRG
FILE SIZE: 8.5K
FIRST SEEN: 2025-12-02 02:14:52
APPEARS ON: 1 disk(s)
FILE HASH
86717198f10f3e54e42c48c31f0045cbea8aa4242a5af6a7f0e9998459924c12
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| PANS TOOLS 07 | PSYCHE | PRG | The BAM Archive | 13 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 20 08 0A 00 8F 20 20 20 20 20 20 20 2A 2A |.. .... **|
00000010: 2A 2A 2A 20 50 53 59 43 48 45 20 2A 2A 2A 2A 2A |*** PSYCHE *****|
00000020: 00 3D 08 0B 00 8F 20 20 20 20 20 20 20 20 20 43 |.=.... C|
00000030: 2D 36 34 20 42 41 53 49 43 20 56 2D 32 00 59 08 |-64 BASIC V-2.Y.|
00000040: 0C 00 8F 20 20 20 20 20 20 20 20 20 20 52 42 44 |... RBD|
00000050: 20 44 45 43 20 31 39 38 33 00 74 08 0D 00 8F 20 | DEC 1983.t.... |
00000060: 20 20 20 20 20 20 20 20 20 20 2A 20 2A 20 2A 2A | * * **|
00000070: 20 2A 20 2A 00 C0 08 0E 00 8F 20 20 43 4F 4E 56 | * *...... CONV|
00000080: 45 52 53 41 54 49 4F 4E 41 4C 20 50 52 4F 47 52 |ERSATIONAL PROGR|
00000090: 41 4D 4D 45 20 49 4E 20 20 20 20 20 20 20 20 20 |AMME IN |
000000A0: 20 20 20 57 48 49 43 48 20 54 48 45 20 43 4F 4D | WHICH THE COM|
000000B0: 50 55 54 45 52 20 49 4D 49 54 41 54 45 53 20 41 |PUTER IMITATES A|
000000C0: 00 07 09 0F 00 8F 20 50 53 59 43 48 49 41 54 52 |...... PSYCHIATR|
000000D0: 49 53 54 20 43 4F 4E 44 55 43 54 49 4E 47 20 41 |IST CONDUCTING A|
000000E0: 20 53 45 53 53 49 4F 4E 20 20 20 20 20 20 20 55 | SESSION U|
000000F0: 53 49 4E 47 20 54 48 45 20 27 4E 4F 4E 44 49 52 |SING THE 'NONDIR|
00000100: 45 43 54 49 56 45 27 00 53 09 10 00 8F 20 41 50 |ECTIVE'.S.... AP|
00000110: 50 52 4F 41 43 48 20 4F 46 20 43 41 52 4C 20 52 |PROACH OF CARL R|
00000120: 4F 47 45 52 53 2E 20 20 20 20 20 20 20 20 20 20 |OGERS. |
00000130: 20 20 20 20 20 20 20 20 42 41 53 45 44 20 4F 4E | BASED ON|
00000140: 20 27 45 4C 49 5A 41 20 2F 20 44 4F 43 54 45 52 | 'ELIZA / DOCTER|
00000150: 20 42 59 00 6C 09 11 00 8F 20 4A 4F 53 45 50 48 | BY.l.... JOSEPH|
00000160: 20 57 45 49 5A 45 4E 42 41 55 4D 2E 00 93 09 12 | WEIZENBAUM.....|
00000170: 00 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..**************|
00000180: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000190: 2A 2A 2A 00 BA 09 13 00 8F 2A 2A 2A 2A 2A 2A 2A |***......*******|
000001A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000001B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 DF 09 F4 01 8F |**********......|
000001C0: 20 2A 2A 2A 2A 20 49 4E 49 54 49 41 4C 49 53 49 | **** INITIALISI|
000001D0: 4E 47 20 52 4F 55 54 49 4E 45 20 2A 2A 2A 2A 00 |NG ROUTINE ****.|
000001E0: 24 0A FE 01 4E 4D B2 32 38 3A 8F 20 4E 55 4D 42 |$...NM.28:. NUMB|
000001F0: 45 52 20 4F 46 20 57 4F 52 44 53 20 49 4E 20 20 |ER OF WORDS IN |
00000200: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000210: 20 20 20 20 53 57 41 50 50 49 4E 47 20 52 4F 55 | SWAPPING ROU|
00000220: 54 49 4E 45 00 63 0A 08 02 4E 55 B2 37 38 3A 8F |TINE.c...NU.78:.|
00000230: 20 4E 55 4D 42 45 52 20 4F 46 20 4B 45 59 57 4F | NUMBER OF KEYWO|
00000240: 52 44 53 20 41 4E 44 20 20 20 20 20 20 20 20 20 |RDS AND |
00000250: 20 20 20 20 20 20 20 20 20 4B 45 59 50 48 52 41 | KEYPHRA|
00000260: 53 45 53 00 9E 0A 0D 02 53 57 B2 37 3A 8F 20 4E |SES.....SW.7:. N|
00000270: 55 4D 42 45 52 20 4F 46 20 53 57 45 41 52 57 4F |UMBER OF SWEARWO|
00000280: 52 44 53 20 41 4E 44 20 20 20 20 20 20 20 20 20 |RDS AND |
00000290: 20 20 20 20 20 20 20 50 48 52 41 53 45 53 00 B8 | PHRASES..|
000002A0: 0A 0E 02 53 46 B2 30 3A 8F 20 53 57 45 41 52 57 |...SF.0:. SWEARW|
000002B0: 4F 52 44 20 46 4C 41 47 00 D4 0A 12 02 99 22 93 |ORD FLAG......".|
000002C0: 9C 22 3A 97 35 33 32 38 30 2C 30 3A 97 35 33 32 |.":.53280,0:.532|
000002D0: 38 31 2C 30 00 F1 0A 1C 02 99 20 A3 31 35 29 22 |81,0...... .15)"|
000002E0: 4D 59 20 4E 41 4D 45 20 49 53 22 3A 99 3A 99 3A |MY NAME IS":.:.:|
000002F0: 99 00 1E 0B 26 02 99 22 20 20 50 50 50 50 20 20 |....&.." PPPP |
00000300: 53 53 53 53 20 20 59 20 20 20 59 20 20 43 43 43 |SSSS Y Y CCC|
00000310: 43 20 20 48 20 20 48 20 20 45 45 45 45 22 00 48 |C H H EEEE".H|
00000320: 0B 27 02 99 22 20 20 50 20 20 50 20 20 53 20 20 |.'.." P P S |
00000330: 20 20 20 59 20 20 20 59 20 20 43 20 20 20 20 20 | Y Y C |
00000340: 48 20 20 48 20 20 45 22 00 72 0B 28 02 99 22 20 |H H E".r.(.." |
00000350: 20 50 20 20 50 20 20 53 20 20 20 20 20 20 59 20 | P P S Y |
00000360: 59 20 20 20 43 20 20 20 20 20 48 20 20 48 20 20 |Y C H H |
00000370: 45 22 00 9E 0B 29 02 99 22 20 20 50 50 50 50 20 |E"...).." PPPP |
00000380: 20 53 53 53 53 20 20 20 20 59 20 20 20 20 43 20 | SSSS Y C |
00000390: 20 20 20 20 48 48 48 48 20 20 45 45 45 22 00 C8 | HHHH EEE"..|
000003A0: 0B 2A 02 99 22 20 20 50 20 20 20 20 20 53 53 53 |.*.." P SSS|
000003B0: 53 20 20 20 20 59 20 20 20 20 43 20 20 20 20 20 |S Y C |
000003C0: 48 20 20 48 20 20 45 22 00 F2 0B 2B 02 99 22 20 |H H E"...+.." |
000003D0: 20 50 20 20 20 20 20 20 20 20 53 20 20 20 20 59 | P S Y|
000003E0: 20 20 20 20 43 20 20 20 20 20 48 20 20 48 20 20 | C H H |
000003F0: 45 22 00 1C 0C 2C 02 99 22 20 20 50 20 20 20 20 |E"...,.." P |
00000400: 20 20 20 20 53 20 20 20 20 59 20 20 20 20 43 20 | S Y C |
00000410: 20 20 20 20 48 20 20 48 20 20 45 22 00 4F 0C 2D | H H E".O.-|
00000420: 02 99 22 20 20 50 20 20 20 20 20 53 53 53 53 20 |.." P SSSS |
00000430: 20 20 20 59 20 20 20 20 43 43 43 43 20 20 48 20 | Y CCCC H |
00000440: 20 48 20 20 45 45 45 45 22 3A 99 3A 99 3A 99 00 | H EEEE":.:.:..|
00000450: 62 0C 30 02 81 20 49 B2 30 20 A4 20 32 30 30 30 |b.0.. I.0 . 2000|
00000460: 3A 82 00 8E 0C 3A 02 99 22 20 49 20 43 41 4E 20 |:....:.." I CAN |
00000470: 48 45 4C 50 20 59 4F 55 20 49 46 20 59 4F 55 20 |HELP YOU IF YOU |
00000480: 57 49 4C 4C 20 54 52 55 53 54 20 4D 45 22 00 A1 |WILL TRUST ME"..|
00000490: 0C 44 02 81 20 49 B2 30 20 A4 20 32 30 30 30 3A |.D.. I.0 . 2000:|
000004A0: 82 00 E1 0C 4E 02 99 3A 99 3A 99 22 20 53 49 54 |....N..:.:." SIT|
000004B0: 20 44 4F 57 4E 20 43 4F 4D 46 4F 52 54 41 42 4C | DOWN COMFORTABL|
000004C0: 59 20 41 4E 44 20 54 45 4C 4C 20 4D 45 20 59 4F |Y AND TELL ME YO|
000004D0: 55 52 20 20 50 52 4F 42 4C 45 4D 22 3A 99 22 1E |UR PROBLEM":.".|
000004E0: 22 00 EB 0C 58 02 85 20 50 41 24 00 FA 0C 62 02 |"...X.. PA$...b.|
000004F0: 99 22 93 22 3A 89 20 37 34 30 00 20 0D BA 02 8F |.".":. 740. ....|
00000500: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000510: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000520: 00 46 0D BB 02 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.F....**********|
00000530: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000540: 2A 2A 2A 2A 2A 2A 00 64 0D BC 02 8F 20 2A 2A 2A |******.d.... ***|
00000550: 2A 20 49 4E 50 55 54 20 52 4F 55 54 49 4E 45 20 |* INPUT ROUTINE |
00000560: 2A 2A 2A 2A 00 80 0D C6 02 8C 3A 8F 20 52 45 53 |****......:. RES|
00000570: 45 54 53 20 44 41 54 41 20 50 4F 49 4E 54 45 52 |ETS DATA POINTER|
00000580: 00 90 0D D0 02 99 22 1E 22 3A 50 41 24 B2 22 22 |......".":PA$.""|
00000590: 00 9A 0D DA 02 85 20 50 41 24 00 B0 0D E4 02 8B |...... PA$......|
000005A0: 20 50 41 24 B2 22 45 4E 44 22 A7 20 34 35 30 30 | PA$."END". 4500|
000005B0: 00 B6 0D EE 02 99 00 F8 0D F8 02 8B 20 50 41 24 |............ PA$|
000005C0: B2 42 4C 41 4E 4B 24 20 A7 20 99 22 9C 44 4F 20 |.BLANK$ . .".DO |
000005D0: 59 4F 55 20 48 41 56 45 20 41 20 50 52 4F 42 4C |YOU HAVE A PROBL|
000005E0: 45 4D 20 43 4F 4D 4D 55 4E 49 43 41 54 49 4E 47 |EM COMMUNICATING|
000005F0: 3F 22 3A 89 20 37 30 30 00 2F 0E 02 03 8B 20 50 |?":. 700./.... P|
00000600: 41 24 B2 50 52 24 20 A7 20 99 22 9C 50 4C 45 41 |A$.PR$ . .".PLEA|
00000610: 53 45 20 44 4F 4E 27 54 20 52 45 50 45 41 54 20 |SE DON'T REPEAT |
00000620: 59 4F 55 52 53 45 4C 46 22 3A 89 20 37 30 30 00 |YOURSELF":. 700.|
00000630: 3B 0E 0C 03 50 52 24 B2 50 41 24 00 4F 0E 16 03 |;...PR$.PA$.O...|
00000640: 50 41 24 B2 22 20 22 AA 50 41 24 AA 22 20 22 00 |PA$." ".PA$." ".|
00000650: 75 0E 1E 03 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |u....***********|
00000660: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000670: 2A 2A 2A 2A 2A 00 9B 0E 1F 03 8F 2A 2A 2A 2A 2A |*****......*****|
00000680: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000690: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 C1 0E 20 03 |***********... .|
000006A0: 8F 2A 2A 53 57 41 50 20 57 4F 52 44 20 46 4F 52 |.**SWAP WORD FOR|
000006B0: 20 4F 50 50 4F 53 49 54 45 20 46 4F 52 4D 20 2A | OPPOSITE FORM *|
000006C0: 2A 00 D2 0E 2A 03 81 20 43 B2 31 20 A4 20 4E 4D |*...*.. C.1 . NM|
000006D0: AD 32 00 E0 0E 34 03 87 20 54 45 24 2C 54 4E 24 |.2...4.. TE$,TN$|
000006E0: 00 FD 0E 3E 03 81 20 50 53 B2 31 20 A4 20 C3 28 |...>.. PS.1 . .(|
000006F0: 50 41 24 29 AB C3 28 54 45 24 29 AA 31 00 1E 0F |PA$)..(TE$).1...|
00000700: 48 03 8B 20 54 45 24 B2 CA 28 50 41 24 2C 50 53 |H.. TE$..(PA$,PS|
00000710: 2C C3 28 54 45 24 29 29 20 A7 20 38 38 30 00 27 |,.(TE$)) . 880.'|
00000720: 0F 52 03 82 20 50 53 00 2F 0F 5C 03 82 20 43 00 |.R.. PS./.\.. C.|
00000730: 3A 0F 66 03 89 20 31 30 30 30 00 69 0F 70 03 50 |:.f.. 1000.i.p.P|
00000740: 41 24 B2 C8 28 50 41 24 2C 50 53 AB 31 29 AA 54 |A$..(PA$,PS.1).T|
00000750: 4E 24 AA CA 28 50 41 24 2C 50 53 AA C3 28 54 45 |N$..(PA$,PS..(TE|
00000760: 24 29 29 3A 89 20 38 35 30 00 AA 0F 7A 03 83 20 |$)):. 850...z.. |
00000770: 22 20 4D 55 4D 20 22 2C 22 20 4D 4F 54 48 45 52 |" MUM "," MOTHER|
00000780: 20 22 2C 22 20 44 41 44 20 22 2C 22 20 46 41 54 | "," DAD "," FAT|
00000790: 48 45 52 20 22 2C 22 20 44 52 45 41 4D 53 20 22 |HER "," DREAMS "|
000007A0: 2C 22 20 44 52 45 41 4D 20 22 00 ED 0F 84 03 83 |," DREAM "......|
000007B0: 20 22 20 49 20 22 2C 22 20 59 4F 55 40 20 22 2C | " I "," YOU@ ",|
000007C0: 22 20 59 4F 55 20 22 2C 22 20 49 20 22 2C 22 20 |" YOU "," I "," |
000007D0: 4D 45 20 22 2C 22 20 59 4F 55 20 22 2C 22 20 4D |ME "," YOU "," M|
000007E0: 59 20 22 2C 22 20 59 4F 55 52 2A 20 22 00 34 10 |Y "," YOUR* ".4.|
000007F0: 8E 03 83 20 22 20 59 4F 55 52 20 22 2C 22 20 4D |... " YOUR "," M|
00000800: 59 20 22 2C 22 20 4D 59 53 45 4C 46 20 22 2C 22 |Y "," MYSELF ","|
00000810: 20 59 4F 55 52 53 45 4C 46 2A 20 22 2C 22 20 59 | YOURSELF* "," Y|
00000820: 4F 55 52 53 45 4C 46 20 22 2C 22 20 4D 59 53 45 |OURSELF "," MYSE|
00000830: 4C 46 20 22 00 81 10 98 03 83 22 20 49 27 4D 20 |LF "......" I'M |
00000840: 22 2C 22 20 59 4F 55 27 52 45 2A 20 22 2C 22 20 |"," YOU'RE* "," |
00000850: 59 4F 55 27 52 45 20 22 2C 22 20 49 27 4D 20 22 |YOU'RE "," I'M "|
00000860: 2C 22 20 41 4D 20 22 2C 22 20 41 52 45 40 20 22 |," AM "," ARE@ "|
00000870: 2C 22 20 57 45 52 45 20 22 2C 22 20 57 41 53 20 |," WERE "," WAS |
00000880: 22 00 A7 10 E6 03 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A |"......*********|
00000890: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000008A0: 2A 2A 2A 2A 2A 2A 2A 00 CD 10 E7 03 8F 2A 2A 2A |*******......***|
000008B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000008C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 F0 10 |*************...|
000008D0: E8 03 8F 20 2A 2A 2A 2A 20 4B 45 59 57 4F 52 44 |... **** KEYWORD|
000008E0: 20 50 52 4F 43 45 53 53 49 4E 47 20 2A 2A 2A 2A | PROCESSING ****|
000008F0: 00 13 11 E9 03 8F 20 2A 20 41 2E 20 43 48 45 43 |...... * A. CHEC|
00000900: 4B 49 4E 47 20 46 4F 52 20 4B 45 59 57 4F 52 44 |KING FOR KEYWORD|
00000910: 53 20 2A 00 30 11 ED 03 8D 20 34 33 30 30 3A 8F |S *.0.... 4300:.|
00000920: 20 53 57 45 41 52 57 4F 52 44 20 43 41 54 43 48 | SWEARWORD CATCH|
00000930: 00 3F 11 F2 03 81 20 43 B2 31 20 A4 20 4E 55 00 |.?.... C.1 . NU.|
00000940: 4C 11 FC 03 87 20 4B 45 24 2C 4A 55 00 69 11 06 |L.... KE$,JU.i..|
00000950: 04 81 20 50 53 B2 31 20 A4 20 C3 28 50 41 24 29 |.. PS.1 . .(PA$)|
00000960: AB C3 28 4B 45 24 29 AA 31 00 8A 11 10 04 8B 20 |..(KE$).1...... |
00000970: 4B 45 24 B2 CA 28 50 41 24 2C 50 53 2C C3 28 4B |KE$..(PA$,PS,.(K|
00000980: 45 24 29 29 A7 20 31 30 38 30 00 93 11 1A 04 82 |E$)). 1080......|
00000990: 20 50 53 00 9B 11 24 04 82 20 43 00 A6 11 2E 04 | PS...$.. C.....|
000009A0: 89 20 31 35 30 30 00 BF 11 38 04 44 52 24 B2 CA |. 1500...8.DR$..|
000009B0: 28 50 41 24 2C 50 53 AA C3 28 4B 45 24 29 29 00 |(PA$,PS..(KE$)).|
000009C0: D2 11 42 04 8B 20 44 52 24 B2 22 22 A7 20 31 38 |..B.. DR$."". 18|
000009D0: 30 30 00 F0 11 4C 04 44 52 24 B2 C8 28 44 52 24 |00...L.DR$..(DR$|
000009E0: 2C C3 28 44 52 24 29 AB 31 29 3A 89 31 38 30 30 |,.(DR$).1):.1800|
000009F0: 00 15 12 55 04 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |...U..**********|
00000A00: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000A10: 2A 2A 2A 2A 2A 00 38 12 56 04 8F 20 2A 2A 2A 2A |*****.8.V.. ****|
00000A20: 20 42 2E 20 4B 45 59 57 4F 52 44 20 4C 49 42 52 | B. KEYWORD LIBR|
00000A30: 41 52 59 20 2A 2A 2A 2A 00 74 12 60 04 83 20 22 |ARY ****.t.`.. "|
00000A40: 20 38 30 20 37 33 20 38 33 20 38 33 22 2C 34 32 | 80 73 83 83",42|
00000A50: 2C 22 20 38 33 20 37 32 20 37 33 20 38 34 22 2C |," 83 72 73 84",|
00000A60: 34 32 2C 22 20 37 30 20 38 35 20 36 37 20 37 35 |42," 70 85 67 75|
00000A70: 22 2C 34 32 00 A1 12 61 04 83 20 22 20 36 37 20 |",42...a.. " 67 |
00000A80: 38 35 20 37 38 20 38 34 22 2C 34 32 2C 22 20 38 |85 78 84",42," 8|
00000A90: 30 20 38 32 20 37 33 20 36 37 20 37 35 22 2C 34 |0 82 73 67 75",4|
00000AA0: 32 00 C8 12 62 04 83 20 22 20 38 33 20 36 37 20 |2...b.. " 83 67 |
00000AB0: 38 32 20 36 39 20 38 37 20 33 32 20 38 39 20 37 |82 69 87 32 89 7|
00000AC0: 39 20 38 35 22 2C 34 32 00 F5 12 63 04 83 20 22 |9 85",42...c.. "|
00000AD0: 20 37 31 20 36 39 20 38 34 20 33 32 20 38 33 20 | 71 69 84 32 83 |
00000AE0: 38 34 20 38 35 20 37 30 20 37 30 20 36 39 20 36 |84 85 70 70 69 6|
00000AF0: 38 22 2C 34 32 00 3B 13 6A 04 83 20 43 4F 4D 50 |8",42.;.j.. COMP|
00000B00: 55 54 45 52 53 2C 31 2C 4D 41 43 48 49 4E 45 53 |UTERS,1,MACHINES|
00000B10: 2C 31 2C 22 20 4E 41 4D 45 20 22 2C 32 2C 41 4C |,1," NAME ",2,AL|
00000B20: 49 4B 45 2C 33 2C 22 20 4C 49 4B 45 20 22 2C 33 |IKE,3," LIKE ",3|
00000B30: 2C 22 20 53 41 4D 45 20 22 2C 33 00 76 13 74 04 |," SAME ",3.v.t.|
00000B40: 83 20 22 59 4F 55 40 20 52 45 4D 45 4D 42 45 52 |. "YOU@ REMEMBER|
00000B50: 22 2C 34 2C 22 44 4F 20 49 20 52 45 4D 45 4D 42 |",4,"DO I REMEMB|
00000B60: 45 52 22 2C 35 2C 22 59 4F 55 40 20 44 52 45 41 |ER",5,"YOU@ DREA|
00000B70: 4D 45 44 22 2C 36 00 A8 13 7E 04 83 20 22 20 44 |MED",6...~.. " D|
00000B80: 52 45 41 4D 20 22 2C 37 2C 22 20 49 46 20 22 2C |REAM ",7," IF ",|
00000B90: 38 2C 45 56 45 52 59 42 4F 44 59 2C 39 2C 45 56 |8,EVERYBODY,9,EV|
00000BA0: 45 52 59 4F 4E 45 2C 39 00 DE 13 88 04 83 20 4E |ERYONE,9...... N|
00000BB0: 4F 42 4F 44 59 2C 39 2C 22 4E 4F 20 4F 4E 45 22 |OBODY,9,"NO ONE"|
00000BC0: 2C 39 2C 22 57 41 53 20 59 4F 55 40 22 2C 31 30 |,9,"WAS YOU@",10|
00000BD0: 2C 22 59 4F 55 40 20 57 41 53 22 2C 31 31 00 23 |,"YOU@ WAS",11.#|
00000BE0: 14 92 04 83 20 22 57 41 53 20 49 22 2C 31 32 2C |.... "WAS I",12,|
00000BF0: 59 4F 55 52 2A 20 4D 4F 54 48 45 52 22 2C 31 33 |YOUR* MOTHER",13|
00000C00: 2C 22 59 4F 55 52 20 46 41 54 48 45 52 22 2C 31 |,"YOUR FATHER",1|
00000C10: 33 2C 22 59 4F 55 52 2A 20 53 49 53 54 45 52 22 |3,"YOUR* SISTER"|
00000C20: 2C 31 33 00 5F 14 9C 04 83 20 22 59 4F 55 52 2A |,13._.... "YOUR*|
00000C30: 20 42 52 4F 54 48 45 52 22 2C 31 33 2C 22 59 4F | BROTHER",13,"YO|
00000C40: 55 52 2A 20 57 49 46 45 22 2C 31 33 2C 22 59 4F |UR* WIFE",13,"YO|
00000C50: 55 52 2A 20 48 55 53 42 41 4E 44 22 2C 31 33 00 |UR* HUSBAND",13.|
00000C60: 82 14 A6 04 83 20 22 59 4F 55 52 2A 20 43 48 49 |..... "YOUR* CHI|
00000C70: 4C 44 52 45 4E 22 2C 31 33 2C 59 4F 55 52 2A 2C |LDREN",13,YOUR*,|
00000C80: 31 34 00 C0 14 B0 04 41 4C 57 41 59 53 2C 31 35 |14.....ALWAYS,15|
00000C90: 2C 22 41 52 45 20 49 22 2C 31 36 2C 22 41 52 45 |,"ARE I",16,"ARE|
00000CA0: 40 20 59 4F 55 40 22 2C 31 38 2C 22 20 48 4F 57 |@ YOU@",18," HOW|
00000CB0: 20 22 2C 32 35 2C 42 45 43 41 55 53 45 2C 31 39 | ",25,BECAUSE,19|
00000CC0: 00 EC 14 BA 04 83 20 22 43 41 4E 20 49 22 2C 32 |...... "CAN I",2|
00000CD0: 30 2C 22 43 41 4E 20 59 4F 55 40 22 2C 32 31 2C |0,"CAN YOU@",21,|
00000CE0: 43 45 52 54 41 49 4E 4C 59 2C 32 32 00 2E 15 C4 |CERTAINLY,22....|
00000CF0: 04 83 20 44 45 55 54 53 43 48 2C 32 33 2C 45 53 |.. DEUTSCH,23,ES|
00000D00: 50 41 4E 4F 4C 2C 32 33 2C 46 52 41 4E 43 41 49 |PANOL,23,FRANCAI|
00000D10: 53 2C 32 33 2C 49 54 41 4C 49 41 4E 4F 2C 32 33 |S,23,ITALIANO,23|
00000D20: 2C 4E 45 44 45 52 4C 41 4E 44 53 2C 32 33 00 63 |,NEDERLANDS,23.c|
00000D30: 15 CE 04 83 20 48 45 4C 4C 4F 2C 32 34 2C 22 49 |.... HELLO,24,"I|
00000D40: 20 52 45 4D 49 4E 44 20 59 4F 55 20 4F 46 22 2C | REMIND YOU OF",|
00000D50: 33 2C 22 49 20 41 52 45 22 2C 32 36 2C 49 27 4D |3,"I ARE",26,I'M|
00000D60: 2C 32 36 00 B0 15 D8 04 83 20 4D 41 59 42 45 2C |,26...... MAYBE,|
00000D70: 32 38 2C 22 20 4D 59 20 22 2C 32 39 2C 22 20 4E |28," MY ",29," N|
00000D80: 4F 20 22 2C 33 30 2C 50 45 52 48 41 50 53 2C 32 |O ",30,PERHAPS,2|
00000D90: 38 2C 53 4F 52 52 59 2C 33 31 2C 22 57 48 41 54 |8,SORRY,31,"WHAT|
00000DA0: 20 22 2C 32 35 2C 22 57 48 45 4E 20 22 2C 32 35 | ",25,"WHEN ",25|
00000DB0: 00 E2 15 E2 04 83 20 22 57 48 59 20 44 4F 4E 27 |...... "WHY DON'|
00000DC0: 54 20 49 22 2C 33 32 2C 22 57 48 59 20 43 41 4E |T I",32,"WHY CAN|
00000DD0: 27 54 20 59 4F 55 40 22 2C 33 33 2C 59 45 53 2C |'T YOU@",33,YES,|
00000DE0: 32 32 00 1A 16 EC 04 83 20 22 59 4F 55 40 20 57 |22...... "YOU@ W|
00000DF0: 41 4E 54 22 2C 33 34 2C 22 59 4F 55 40 20 4E 45 |ANT",34,"YOU@ NE|
00000E00: 45 44 22 2C 33 34 2C 22 20 41 52 45 20 22 2C 31 |ED",34," ARE ",1|
00000E10: 37 2C 22 20 49 20 22 2C 32 37 00 44 16 F6 04 83 |7," I ",27.D....|
00000E20: 20 22 59 4F 55 40 20 41 52 45 40 20 53 41 44 22 | "YOU@ ARE@ SAD"|
00000E30: 2C 33 35 2C 22 59 4F 55 27 52 45 2A 20 53 41 44 |,35,"YOU'RE* SAD|
00000E40: 22 2C 33 35 00 76 16 00 05 83 20 22 59 4F 55 40 |",35.v.... "YOU@|
00000E50: 20 41 52 45 40 20 55 4E 48 41 50 50 59 22 2C 33 | ARE@ UNHAPPY",3|
00000E60: 35 2C 22 59 4F 55 27 52 45 2A 20 55 4E 48 41 50 |5,"YOU'RE* UNHAP|
00000E70: 50 59 22 2C 33 35 00 AC 16 0A 05 83 20 22 59 4F |PY",35...... "YO|
00000E80: 55 40 20 41 52 45 40 20 44 45 50 52 45 53 53 45 |U@ ARE@ DEPRESSE|
00000E90: 44 22 2C 33 35 2C 22 59 4F 55 27 52 45 2A 20 44 |D",35,"YOU'RE* D|
00000EA0: 45 50 52 45 53 53 45 44 22 2C 33 35 00 D8 16 14 |EPRESSED",35....|
00000EB0: 05 83 20 22 59 4F 55 40 20 41 52 45 40 20 53 49 |.. "YOU@ ARE@ SI|
00000EC0: 43 4B 22 2C 33 35 2C 22 59 4F 55 27 52 45 2A 20 |CK",35,"YOU'RE* |
00000ED0: 53 49 43 4B 22 2C 33 35 00 06 17 1E 05 83 20 22 |SICK",35...... "|
00000EE0: 59 4F 55 40 20 41 52 45 40 20 48 41 50 50 59 22 |YOU@ ARE@ HAPPY"|
00000EF0: 2C 33 36 2C 22 59 4F 55 27 52 45 2A 20 48 41 50 |,36,"YOU'RE* HAP|
00000F00: 50 59 22 2C 33 36 00 36 17 28 05 83 20 22 59 4F |PY",36.6.(.. "YO|
00000F10: 55 40 20 41 52 45 40 20 45 4C 41 54 45 44 22 2C |U@ ARE@ ELATED",|
00000F20: 33 36 2C 22 59 4F 55 27 52 45 2A 20 45 4C 41 54 |36,"YOU'RE* ELAT|
00000F30: 45 44 22 2C 33 36 00 62 17 32 05 83 20 22 59 4F |ED",36.b.2.. "YO|
00000F40: 55 40 20 41 52 45 40 20 47 4C 41 44 22 2C 33 36 |U@ ARE@ GLAD",36|
00000F50: 2C 22 59 4F 55 27 52 45 2A 20 47 4C 41 44 22 2C |,"YOU'RE* GLAD",|
00000F60: 33 36 00 92 17 3C 05 83 20 22 59 4F 55 40 20 41 |36...<.. "YOU@ A|
00000F70: 52 45 40 20 42 45 54 54 45 52 22 2C 33 36 2C 22 |RE@ BETTER",36,"|
00000F80: 59 4F 55 27 52 45 2A 20 42 45 54 54 45 52 22 2C |YOU'RE* BETTER",|
00000F90: 33 36 00 C1 17 46 05 83 20 22 59 4F 55 40 20 46 |36...F.. "YOU@ F|
00000FA0: 45 45 4C 20 59 4F 55 40 22 2C 33 37 2C 22 59 4F |EEL YOU@",37,"YO|
00000FB0: 55 40 20 54 48 49 4E 4B 20 59 4F 55 40 22 2C 33 |U@ THINK YOU@",3|
00000FC0: 37 00 F2 17 50 05 83 20 22 59 4F 55 40 20 42 45 |7...P.. "YOU@ BE|
00000FD0: 4C 49 45 56 45 20 59 4F 55 40 22 2C 33 37 2C 22 |LIEVE YOU@",37,"|
00000FE0: 59 4F 55 40 20 57 49 53 48 20 59 4F 55 40 22 2C |YOU@ WISH YOU@",|
00000FF0: 33 37 00 23 18 5A 05 83 20 22 20 59 4F 55 40 20 |37.#.Z.. " YOU@ |
00001000: 41 52 45 40 22 2C 33 38 2C 59 4F 55 27 52 45 2A |ARE@",38,YOU'RE*|
00001010: 2C 33 38 2C 22 59 4F 55 40 20 43 41 4E 27 54 22 |,38,"YOU@ CAN'T"|
00001020: 2C 33 39 00 59 18 64 05 83 20 22 59 4F 55 40 20 |,39.Y.d.. "YOU@ |
00001030: 43 41 4E 4E 4F 54 22 2C 33 39 2C 22 59 4F 55 40 |CANNOT",39,"YOU@|
00001040: 20 44 4F 4E 27 54 22 2C 34 30 2C 22 59 4F 55 40 | DON'T",40,"YOU@|
00001050: 20 46 45 45 4C 22 2C 34 31 00 7E 18 DB 05 8F 2A | FEEL",41.~....*|
00001060: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001070: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 A3 |**************..|
00001080: 18 DC 05 8F 20 2A 2A 2A 2A 20 43 2E 20 4E 4F 20 |.... **** C. NO |
00001090: 4B 45 59 57 4F 52 44 53 20 46 4F 55 4E 44 20 2A |KEYWORDS FOUND *|
000010A0: 2A 2A 2A 00 BB 18 E6 05 8B 20 59 4F 24 B2 42 4C |***...... YO$.BL|
000010B0: 41 4E 4B 24 20 A7 20 31 35 34 30 00 CE 18 F0 05 |ANK$ . 1540.....|
000010C0: 52 4E B2 B5 28 BB 28 30 29 AC 35 29 AA 31 00 F2 |RN..(.(0).5).1..|
000010D0: 18 FA 05 91 20 52 4E 20 89 20 31 35 34 30 2C 31 |.... RN . 1540,1|
000010E0: 35 34 30 2C 31 35 34 30 2C 31 35 39 30 2C 31 35 |540,1540,1590,15|
000010F0: 39 30 00 20 19 04 06 52 4E B2 B5 28 BB 28 30 29 |90. ...RN..(.(0)|
00001100: AC 34 29 AA 31 3A 91 20 52 4E 20 89 20 31 35 35 |.4).1:. RN . 155|
00001110: 30 2C 31 35 36 30 2C 31 35 37 30 2C 31 35 38 30 |0,1560,1570,1580|
00001120: 00 52 19 0E 06 99 22 9C 49 27 4D 20 4E 4F 54 20 |.R....".I'M NOT |
00001130: 53 55 52 45 20 49 20 55 4E 44 45 52 53 54 41 4E |SURE I UNDERSTAN|
00001140: 44 20 59 4F 55 20 46 55 4C 4C 59 22 3A 89 20 37 |D YOU FULLY":. 7|
00001150: 30 30 00 6D 19 18 06 99 22 9C 50 4C 45 41 53 45 |00.m....".PLEASE|
00001160: 20 47 4F 20 4F 4E 22 3A 89 20 37 30 30 00 99 19 | GO ON":. 700...|
00001170: 22 06 99 22 9C 57 48 41 54 20 44 4F 45 53 20 54 |"..".WHAT DOES T|
00001180: 48 41 54 20 53 55 47 47 45 53 54 20 54 4F 20 59 |HAT SUGGEST TO Y|
00001190: 4F 55 22 3A 89 20 37 30 30 00 DB 19 2C 06 99 22 |OU":. 700...,.."|
000011A0: 9C 44 4F 20 59 4F 55 20 46 45 45 4C 20 53 54 52 |.DO YOU FEEL STR|
000011B0: 4F 4E 47 4C 59 20 41 42 4F 55 54 20 44 49 53 43 |ONGLY ABOUT DISC|
000011C0: 55 53 53 49 4E 47 20 20 20 53 55 43 48 20 54 48 |USSING SUCH TH|
000011D0: 49 4E 47 53 22 3A 89 20 37 30 30 00 04 1A 36 06 |INGS":. 700...6.|
000011E0: 52 4E B2 B5 28 BB 28 30 29 AC 33 29 AA 31 3A 91 |RN..(.(0).3).1:.|
000011F0: 20 52 4E 20 89 20 31 36 30 30 2C 31 36 31 30 2C | RN . 1600,1610,|
00001200: 31 36 32 30 00 35 1A 40 06 99 22 9C 4C 45 54 27 |1620.5.@..".LET'|
00001210: 53 20 44 49 53 43 55 53 53 20 46 55 52 54 48 45 |S DISCUSS FURTHE|
00001220: 52 20 57 48 59 20 59 4F 55 52 22 AA 59 4F 24 3A |R WHY YOUR".YO$:|
00001230: 89 20 37 30 30 00 5D 1A 4A 06 99 22 9C 45 41 52 |. 700.].J..".EAR|
00001240: 4C 49 45 52 20 59 4F 55 20 53 41 49 44 20 59 4F |LIER YOU SAID YO|
00001250: 55 52 22 AA 59 4F 24 3A 89 20 37 30 30 00 A6 1A |UR".YO$:. 700...|
00001260: 54 06 99 22 9C 44 4F 45 53 20 54 48 41 54 20 48 |T..".DOES THAT H|
00001270: 41 56 45 20 41 4E 59 54 48 49 4E 47 20 54 4F 20 |AVE ANYTHING TO |
00001280: 44 4F 20 57 49 54 48 20 54 48 45 20 20 46 41 43 |DO WITH THE FAC|
00001290: 54 20 54 48 41 54 20 59 4F 55 52 22 AA 59 4F 24 |T THAT YOUR".YO$|
000012A0: 3A 89 20 37 30 30 00 CB 1A 07 07 8F 2A 2A 2A 2A |:. 700......****|
000012B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000012C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 ED 1A 08 07 |***********.....|
000012D0: 8F 20 2A 2A 2A 2A 20 44 2E 20 4D 41 52 4B 45 52 |. **** D. MARKER|
000012E0: 20 52 45 4D 4F 56 41 4C 20 2A 2A 2A 2A 00 01 1B | REMOVAL ****...|
000012F0: 12 07 81 20 50 53 B2 31 20 A4 20 C3 28 44 52 24 |... PS.1 . .(DR$|
00001300: 29 00 14 1B 1C 07 4D 24 B2 CA 28 44 52 24 2C 50 |).....M$..(DR$,P|
00001310: 53 2C 31 29 00 46 1B 26 07 8B 20 4D 24 B2 22 40 |S,1).F.&.. M$."@|
00001320: 22 B0 20 4D 24 B2 22 2A 22 A7 20 44 52 24 B2 C8 |". M$."*". DR$..|
00001330: 28 44 52 24 2C 50 53 AB 31 29 AA CA 28 44 52 24 |(DR$,PS.1)..(DR$|
00001340: 2C 50 53 AA 31 29 00 4F 1B 30 07 82 20 50 53 00 |,PS.1).O.0.. PS.|
00001350: 74 1B CE 07 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |t....***********|
00001360: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001370: 2A 2A 2A 2A 00 99 1B CF 07 8F 2A 2A 2A 2A 2A 2A |****......******|
00001380: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001390: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 BB 1B D0 07 8F 20 |*********...... |
000013A0: 2A 2A 2A 2A 20 52 45 50 4C 59 20 46 4F 52 4D 55 |**** REPLY FORMU|
000013B0: 4C 41 54 49 4F 4E 20 2A 2A 2A 2A 00 DD 1B D1 07 |LATION ****.....|
000013C0: 8F 20 2A 2A 2A 20 41 2E 20 52 45 50 4C 59 20 53 |. *** A. REPLY S|
000013D0: 45 4C 45 43 54 49 4F 4E 20 2A 2A 2A 2A 00 E7 1B |ELECTION ****...|
000013E0: DA 07 99 22 9C 22 3B 00 24 1C E4 07 91 20 4A 55 |...".";.$.... JU|
000013F0: 20 89 20 33 30 32 30 2C 33 30 33 30 2C 33 30 34 | . 3020,3030,304|
00001400: 30 2C 33 30 35 30 2C 33 30 36 30 2C 33 30 37 30 |0,3050,3060,3070|
00001410: 2C 33 30 38 30 2C 33 30 39 30 2C 33 31 30 30 2C |,3080,3090,3100,|
00001420: 33 31 31 30 00 31 1C EE 07 4A 55 B2 4A 55 AB 31 |3110.1...JU.JU.1|
00001430: 30 00 6E 1C F8 07 91 20 4A 55 20 89 20 33 31 32 |0.n.... JU . 312|
00001440: 30 2C 33 31 33 30 2C 33 31 34 30 2C 33 31 35 30 |0,3130,3140,3150|
00001450: 2C 33 31 36 30 2C 33 31 37 30 2C 33 31 38 30 2C |,3160,3170,3180,|
00001460: 33 31 39 30 2C 33 32 30 30 2C 33 32 31 30 00 7B |3190,3200,3210.{|
00001470: 1C 02 08 4A 55 B2 4A 55 AB 31 30 00 B8 1C 0C 08 |...JU.JU.10.....|
00001480: 91 20 4A 55 20 89 20 33 32 32 30 2C 33 32 33 30 |. JU . 3220,3230|
00001490: 2C 33 32 34 30 2C 33 32 35 30 2C 33 32 36 30 2C |,3240,3250,3260,|
000014A0: 33 32 37 30 2C 33 32 38 30 2C 33 32 39 30 2C 33 |3270,3280,3290,3|
000014B0: 33 30 30 2C 33 33 31 30 00 C5 1C 16 08 4A 55 B2 |300,3310.....JU.|
000014C0: 4A 55 AB 31 30 00 0C 1D 20 08 91 20 4A 55 20 89 |JU.10... .. JU .|
000014D0: 20 33 33 32 30 2C 33 33 37 30 2C 33 33 38 30 2C | 3320,3370,3380,|
000014E0: 33 33 39 30 2C 33 34 30 30 2C 33 34 31 30 2C 33 |3390,3400,3410,3|
000014F0: 34 32 30 2C 33 34 33 30 2C 33 34 34 30 2C 33 34 |420,3430,3440,34|
00001500: 35 30 2C 33 34 36 30 2C 33 34 37 30 00 31 1D B7 |50,3460,3470.1..|
00001510: 0B 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..**************|
00001520: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001530: 2A 00 52 1D B8 0B 8F 20 2A 2A 2A 2A 20 42 2E 20 |*.R.... **** B. |
00001540: 52 45 50 4C 59 20 4C 49 42 52 41 52 59 20 2A 2A |REPLY LIBRARY **|
00001550: 2A 2A 00 75 1D CC 0B 99 22 44 4F 20 4D 41 43 48 |**.u...."DO MACH|
00001560: 49 4E 45 53 20 57 4F 52 52 59 20 59 4F 55 22 3A |INES WORRY YOU":|
00001570: 89 20 37 30 30 00 9F 1D D6 0B 99 22 49 20 41 4D |. 700......"I AM|
00001580: 20 4E 4F 54 20 49 4E 54 45 52 45 53 54 45 44 20 | NOT INTERESTED |
00001590: 49 4E 20 4E 41 4D 45 53 22 3A 89 20 37 30 30 00 |IN NAMES":. 700.|
000015A0: B8 1D E0 0B 99 22 49 4E 20 57 48 41 54 20 57 41 |....."IN WHAT WA|
000015B0: 59 22 3A 89 20 37 30 30 00 DF 1D EA 0B 99 22 44 |Y":. 700......"D|
000015C0: 4F 20 59 4F 55 20 4F 46 54 45 4E 20 54 48 49 4E |O YOU OFTEN THIN|
000015D0: 4B 20 4F 46 22 AA 44 52 24 3A 89 20 37 30 30 00 |K OF".DR$:. 700.|
000015E0: 0D 1E F4 0B 99 22 44 49 44 20 59 4F 55 20 54 48 |....."DID YOU TH|
000015F0: 49 4E 4B 20 49 20 57 4F 55 4C 44 20 46 4F 52 47 |INK I WOULD FORG|
00001600: 45 54 22 AA 44 52 24 3A 89 20 37 30 30 00 26 1E |ET".DR$:. 700.&.|
00001610: FE 0B 99 22 52 45 41 4C 4C 59 2C 22 AA 44 52 24 |..."REALLY,".DR$|
00001620: 3A 89 20 37 30 30 00 57 1E 08 0C 99 22 57 48 41 |:. 700.W...."WHA|
00001630: 54 20 44 4F 45 53 20 54 48 41 54 20 44 52 45 41 |T DOES THAT DREA|
00001640: 4D 20 53 55 47 47 45 53 54 20 54 4F 20 59 4F 55 |M SUGGEST TO YOU|
00001650: 22 3A 89 20 37 30 30 00 89 1E 12 0C 99 22 44 4F |":. 700......"DO|
00001660: 20 59 4F 55 20 54 48 49 4E 4B 20 49 54 27 53 20 | YOU THINK IT'S |
00001670: 4C 49 4B 45 4C 59 20 54 48 41 54 20 49 46 22 AA |LIKELY THAT IF".|
00001680: 44 52 24 3A 89 20 37 30 30 00 A3 1E 1C 0C 99 22 |DR$:. 700......"|
00001690: 52 45 41 4C 4C 59 2C 20 22 AA 4B 45 24 3A 89 20 |REALLY, ".KE$:. |
000016A0: 37 30 30 00 C5 1E 26 0C 99 22 57 48 41 54 20 49 |700...&.."WHAT I|
000016B0: 46 20 59 4F 55 20 57 45 52 45 22 AA 44 52 24 3A |F YOU WERE".DR$:|
000016C0: 89 20 37 30 30 00 E2 1E 30 0C 99 22 57 45 52 45 |. 700...0.."WERE|
000016D0: 20 59 4F 55 20 52 45 41 4C 4C 59 22 3A 89 20 37 | YOU REALLY":. 7|
000016E0: 30 30 00 13 1F 3A 0C 99 22 57 4F 55 4C 44 20 59 |00...:.."WOULD Y|
000016F0: 4F 55 20 4C 49 4B 45 20 54 4F 20 42 45 4C 49 45 |OU LIKE TO BELIE|
00001700: 56 45 20 49 20 57 41 53 22 AA 44 52 24 3A 89 20 |VE I WAS".DR$:. |
00001710: 37 30 30 00 3F 1F 44 0C 99 22 54 45 4C 4C 20 4D |700.?.D.."TELL M|
00001720: 45 20 4D 4F 52 45 20 41 42 4F 55 54 20 59 4F 55 |E MORE ABOUT YOU|
00001730: 52 20 46 41 4D 49 4C 59 22 3A 89 20 37 30 30 00 |R FAMILY":. 700.|
00001740: 56 1F 4E 0C 99 22 59 4F 55 52 22 AA 44 52 24 3A |V.N.."YOUR".DR$:|
00001750: 89 20 34 30 30 30 00 87 1F 58 0C 99 22 43 41 4E |. 4000...X.."CAN|
00001760: 20 59 4F 55 20 54 48 49 4E 4B 20 4F 46 20 41 20 | YOU THINK OF A |
00001770: 53 50 45 43 49 46 49 43 20 45 58 41 4D 50 4C 45 |SPECIFIC EXAMPLE|
00001780: 22 3A 89 20 37 30 30 00 C6 1F 62 0C 99 22 57 48 |":. 700...b.."WH|
00001790: 59 20 41 52 45 20 59 4F 55 20 49 4E 54 45 52 45 |Y ARE YOU INTERE|
000017A0: 53 54 45 44 20 49 4E 20 57 48 45 54 48 45 52 20 |STED IN WHETHER |
000017B0: 4F 52 20 4E 4F 54 20 49 20 41 4D 22 AA 44 52 24 |OR NOT I AM".DR$|
000017C0: 3A 89 20 37 30 30 00 F7 1F 6C 0C 99 22 44 49 44 |:. 700...l.."DID|
000017D0: 20 59 4F 55 20 54 48 49 4E 4B 20 54 48 45 59 20 | YOU THINK THEY |
000017E0: 4D 49 47 48 54 20 4E 4F 54 20 42 45 22 AA 44 52 |MIGHT NOT BE".DR|
000017F0: 24 3A 89 20 37 30 30 00 1F 20 76 0C 99 22 44 4F |$:. 700.. v.."DO|
00001800: 20 59 4F 55 20 42 45 4C 49 45 56 45 20 59 4F 55 | YOU BELIEVE YOU|
00001810: 20 41 52 45 22 AA 44 52 24 3A 89 20 37 30 30 00 | ARE".DR$:. 700.|
00001820: 44 20 80 0C 99 22 49 53 20 54 48 41 54 20 54 48 |D ..."IS THAT TH|
00001830: 45 20 52 45 41 4C 20 52 45 41 53 4F 4E 22 3A 89 |E REAL REASON":.|
00001840: 20 37 30 30 00 74 20 8A 0C 99 22 59 4F 55 20 42 | 700.t ..."YOU B|
00001850: 45 4C 49 45 56 45 20 49 20 43 41 4E 22 AA 44 52 |ELIEVE I CAN".DR|
00001860: 24 AA 22 2C 20 44 4F 4E 27 54 20 59 4F 55 22 3A |$.", DON'T YOU":|
00001870: 89 37 30 30 00 B7 20 94 0C 99 22 57 48 45 54 48 |.700.. ..."WHETH|
00001880: 45 52 20 59 4F 55 20 43 41 4E 22 AA 44 52 24 AA |ER YOU CAN".DR$.|
00001890: 22 20 44 45 50 45 4E 44 53 20 4F 4E 20 59 4F 55 |" DEPENDS ON YOU|
000018A0: 20 4D 4F 52 45 20 54 48 41 4E 20 4F 4E 20 4D 45 | MORE THAN ON ME|
000018B0: 22 3A 89 20 37 30 30 00 DC 20 9E 0C 99 22 59 4F |":. 700.. ..."YO|
000018C0: 55 20 53 45 45 4D 20 51 55 49 54 45 20 50 4F 53 |U SEEM QUITE POS|
000018D0: 49 54 49 56 45 22 3A 89 20 37 30 30 00 09 21 A8 |ITIVE":. 700..!.|
000018E0: 0C 99 22 49 20 41 4D 20 53 4F 52 52 59 2C 49 20 |.."I AM SORRY,I |
000018F0: 4F 4E 4C 59 20 53 50 45 41 4B 20 45 4E 47 4C 49 |ONLY SPEAK ENGLI|
00001900: 53 48 22 3A 89 20 37 30 30 00 24 21 B2 0C 99 22 |SH":. 700.$!..."|
00001910: 48 4F 57 20 44 4F 20 59 4F 55 20 44 4F 22 3A 89 |HOW DO YOU DO":.|
00001920: 20 37 30 30 00 40 21 BC 0C 99 22 57 48 59 20 44 | 700.@!..."WHY D|
00001930: 4F 20 59 4F 55 20 41 53 4B 22 3A 89 20 37 30 30 |O YOU ASK":. 700|
00001940: 00 6B 21 C6 0C 99 22 57 48 41 54 20 4D 41 4B 45 |.k!..."WHAT MAKE|
00001950: 53 20 59 4F 55 20 54 48 49 4E 4B 20 49 20 41 4D |S YOU THINK I AM|
00001960: 22 AA 44 52 24 3A 89 20 37 30 30 00 96 21 D0 0C |".DR$:. 700..!..|
00001970: 99 22 57 45 20 57 45 52 45 20 44 49 53 43 55 53 |."WE WERE DISCUS|
00001980: 53 49 4E 47 20 59 4F 55 2C 4E 4F 54 20 4D 45 22 |SING YOU,NOT ME"|
00001990: 3A 89 20 37 30 30 00 C0 21 DA 0C 99 22 59 4F 55 |:. 700..!..."YOU|
000019A0: 20 44 4F 4E 27 54 20 53 45 45 4D 20 51 55 49 54 | DON'T SEEM QUIT|
000019B0: 45 20 43 45 52 54 41 49 4E 22 3A 89 20 37 30 30 |E CERTAIN":. 700|
000019C0: 00 EF 21 E4 0C 99 22 57 48 59 20 41 52 45 20 59 |..!..."WHY ARE Y|
000019D0: 4F 55 20 43 4F 4E 43 45 52 4E 45 44 20 4F 56 45 |OU CONCERNED OVE|
000019E0: 52 20 4D 59 22 AA 44 52 24 3A 89 20 37 30 30 00 |R MY".DR$:. 700.|
000019F0: 24 22 EE 0C 99 22 41 52 45 20 59 4F 55 20 53 41 |$"..."ARE YOU SA|
00001A00: 59 49 4E 47 20 27 4E 4F 27 20 4A 55 53 54 20 54 |YING 'NO' JUST T|
00001A10: 4F 20 42 45 20 4E 45 47 41 54 49 56 45 22 3A 89 |O BE NEGATIVE":.|
00001A20: 20 37 30 30 00 52 22 F8 0C 52 4E B2 B5 28 BB 28 | 700.R"..RN..(.(|
00001A30: 30 29 AC 34 29 AA 31 3A 91 20 52 4E 20 89 20 33 |0).4).1:. RN . 3|
00001A40: 33 33 30 2C 33 33 34 30 2C 33 33 35 30 2C 33 33 |330,3340,3350,33|
00001A50: 36 30 00 76 22 02 0D 99 22 50 4C 45 41 53 45 20 |60.v"..."PLEASE |
00001A60: 44 4F 4E 27 54 20 41 50 4F 4C 4F 47 49 53 45 22 |DON'T APOLOGISE"|
00001A70: 3A 89 20 37 30 30 00 9F 22 0C 0D 99 22 41 50 4F |:. 700.."..."APO|
00001A80: 4C 4F 47 49 45 53 20 41 52 45 20 4E 4F 54 20 4E |LOGIES ARE NOT N|
00001A90: 45 43 45 53 53 41 52 59 22 3A 89 20 37 30 30 00 |ECESSARY":. 700.|
00001AA0: DE 22 16 0D 99 22 57 48 41 54 20 46 45 45 4C 49 |."..."WHAT FEELI|
00001AB0: 4E 47 53 20 44 4F 20 59 4F 55 20 48 41 56 45 20 |NGS DO YOU HAVE |
00001AC0: 57 48 45 4E 20 59 4F 55 20 20 20 20 20 20 41 50 |WHEN YOU AP|
00001AD0: 4F 4C 4F 47 49 53 45 22 3A 89 20 37 30 30 00 12 |OLOGISE":. 700..|
00001AE0: 23 20 0D 99 22 59 4F 55 20 4E 45 45 44 4E 27 54 |# .."YOU NEEDN'T|
00001AF0: 20 46 45 45 4C 20 59 4F 55 20 48 41 56 45 20 54 | FEEL YOU HAVE T|
00001B00: 4F 20 41 50 4F 4C 4F 47 49 53 45 22 3A 89 20 37 |O APOLOGISE":. 7|
00001B10: 30 30 00 3A 23 2A 0D 99 22 44 4F 20 59 4F 55 20 |00.:#*.."DO YOU |
00001B20: 42 45 4C 49 45 56 45 20 49 20 44 4F 4E 27 54 22 |BELIEVE I DON'T"|
00001B30: AA 44 52 24 3A 89 20 37 30 30 00 73 23 34 0D 99 |.DR$:. 700.s#4..|
00001B40: 22 44 4F 20 59 4F 55 20 54 48 49 4E 4B 20 59 4F |"DO YOU THINK YO|
00001B50: 55 20 53 48 4F 55 4C 44 20 42 45 20 41 42 4C 45 |U SHOULD BE ABLE|
00001B60: 20 54 4F 20 20 20 20 20 22 AA 44 52 24 3A 89 20 | TO ".DR$:. |
00001B70: 37 30 30 00 A9 23 3E 0D 99 22 57 48 41 54 20 57 |700..#>.."WHAT W|
00001B80: 4F 55 4C 44 20 49 54 20 4D 45 41 4E 20 54 4F 20 |OULD IT MEAN TO |
00001B90: 59 4F 55 20 49 46 20 59 4F 55 20 47 4F 54 22 AA |YOU IF YOU GOT".|
00001BA0: 44 52 24 3A 89 20 37 30 30 00 B4 23 48 0D 8D 20 |DR$:. 700..#H.. |
00001BB0: 34 32 30 30 00 E0 23 49 0D 99 22 49 20 41 4D 20 |4200..#I.."I AM |
00001BC0: 53 4F 52 52 59 20 54 4F 20 48 45 41 52 20 59 4F |SORRY TO HEAR YO|
00001BD0: 55 20 41 52 45 22 AA 44 52 24 3A 89 20 37 30 30 |U ARE".DR$:. 700|
00001BE0: 00 EB 23 52 0D 8D 20 34 32 30 30 00 18 24 53 0D |..#R.. 4200..$S.|
00001BF0: 99 22 48 4F 57 20 48 41 56 45 20 49 20 48 45 4C |."HOW HAVE I HEL|
00001C00: 50 45 44 20 59 4F 55 20 54 4F 20 42 45 22 AA 44 |PED YOU TO BE".D|
00001C10: 52 24 3A 89 20 37 30 30 00 3C 24 5C 0D 99 22 44 |R$:. 700.<$\.."D|
00001C20: 4F 20 59 4F 55 20 52 45 41 4C 4C 59 20 54 48 49 |O YOU REALLY THI|
00001C30: 4E 4B 20 53 4F 22 3A 89 20 37 30 30 00 7A 24 66 |NK SO":. 700.z$f|
00001C40: 0D 99 22 49 53 20 49 54 20 42 45 43 41 55 53 45 |.."IS IT BECAUSE|
00001C50: 20 59 4F 55 20 41 52 45 22 AA 44 52 24 AA 22 20 | YOU ARE".DR$." |
00001C60: 54 48 41 54 20 59 4F 55 20 43 41 4D 45 20 54 4F |THAT YOU CAME TO|
00001C70: 20 4D 45 22 3A 89 20 37 30 30 00 A5 24 70 0D 99 | ME":. 700..$p..|
00001C80: 22 48 4F 57 20 44 4F 20 59 4F 55 20 4B 4E 4F 57 |"HOW DO YOU KNOW|
00001C90: 20 59 4F 55 20 43 41 4E 27 54 22 AA 44 52 24 3A | YOU CAN'T".DR$:|
00001CA0: 89 20 37 30 30 00 C7 24 7A 0D 99 22 44 4F 4E 27 |. 700..$z.."DON'|
00001CB0: 54 20 59 4F 55 20 52 45 41 4C 4C 59 22 AA 44 52 |T YOU REALLY".DR|
00001CC0: 24 3A 89 20 37 30 30 00 F5 24 84 0D 99 22 54 45 |$:. 700..$..."TE|
00001CD0: 4C 4C 20 4D 45 20 4D 4F 52 45 20 41 42 4F 55 54 |LL ME MORE ABOUT|
00001CE0: 20 53 55 43 48 20 46 45 45 4C 49 4E 47 53 22 3A | SUCH FEELINGS":|
00001CF0: 89 20 37 30 30 00 07 25 8E 0D 8B 20 53 46 B1 30 |. 700..%... SF.0|
00001D00: 20 A7 20 33 34 37 35 00 51 25 8F 0D 99 22 49 20 | . 3475.Q%..."I |
00001D10: 53 48 41 4C 4C 20 4E 4F 54 20 54 4F 4C 45 52 41 |SHALL NOT TOLERA|
00001D20: 54 45 20 53 55 43 48 20 4C 41 4E 47 55 41 47 45 |TE SUCH LANGUAGE|
00001D30: 2E 20 49 46 20 20 59 4F 55 20 43 41 4E 4E 4F 54 |. IF YOU CANNOT|
00001D40: 20 42 45 20 50 4F 4C 49 54 45 20 59 4F 55 20 22 | BE POLITE YOU "|
00001D50: 3B 00 6D 25 90 0D 99 22 57 49 4C 4C 20 48 41 56 |;.m%..."WILL HAV|
00001D60: 45 20 54 4F 20 20 20 4C 45 41 56 45 22 00 7F 25 |E TO LEAVE"..%|
00001D70: 91 0D 53 46 B2 53 46 AA 31 3A 89 20 37 30 30 00 |..SF.SF.1:. 700.|
00001D80: C0 25 93 0D 99 22 49 20 54 4F 4C 44 20 59 4F 55 |.%..."I TOLD YOU|
00001D90: 20 49 20 57 4F 55 4C 44 20 4E 4F 54 20 53 54 41 | I WOULD NOT STA|
00001DA0: 4E 44 20 46 4F 52 20 54 48 41 54 20 20 20 4B 49 |ND FOR THAT KI|
00001DB0: 4E 44 20 4F 46 20 4C 41 4E 47 55 41 47 45 2E 22 |ND OF LANGUAGE."|
00001DC0: 00 03 26 94 0D 99 22 54 48 49 53 20 44 49 53 43 |..&..."THIS DISC|
00001DD0: 55 53 53 49 4F 4E 20 49 53 20 43 4C 4F 53 45 44 |USSION IS CLOSED|
00001DE0: 2E 4D 59 20 53 45 43 52 45 54 41 52 59 20 20 57 |.MY SECRETARY W|
00001DF0: 49 4C 4C 20 53 48 4F 57 20 59 4F 55 20 4F 55 54 |ILL SHOW YOU OUT|
00001E00: 22 3A 80 00 28 26 9E 0F 8F 2A 2A 2A 2A 2A 2A 2A |":..(&...*******|
00001E10: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001E20: 2A 2A 2A 2A 2A 2A 2A 2A 00 4D 26 9F 0F 8F 2A 2A |********.M&...**|
00001E30: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001E40: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 72 26 |*************.r&|
00001E50: A0 0F 8F 20 2A 2A 2A 2A 20 20 20 53 54 4F 52 45 |... **** STORE|
00001E60: 20 52 45 4D 41 52 4B 20 49 46 20 20 20 20 2A 2A | REMARK IF **|
00001E70: 2A 2A 00 97 26 A1 0F 8F 20 2A 2A 2A 2A 20 50 41 |**..&... **** PA|
00001E80: 54 49 45 4E 54 20 53 41 59 53 20 27 4D 59 2E 2E |TIENT SAYS 'MY..|
00001E90: 2E 27 20 2A 2A 2A 2A 00 BC 26 A2 0F 8F 20 2A 2A |.' ****..&... **|
00001EA0: 2A 2A 20 50 4C 55 53 20 4C 4F 4E 47 45 52 20 53 |** PLUS LONGER S|
00001EB0: 45 4E 54 45 4E 43 45 20 2A 2A 2A 2A 00 D6 26 AA |ENTENCE ****..&.|
00001EC0: 0F 8B 20 C3 28 44 52 24 29 B1 31 31 20 A7 20 59 |.. .(DR$).11 . Y|
00001ED0: 4F 24 B2 44 52 24 00 E0 26 B4 0F 89 20 37 30 30 |O$.DR$..&... 700|
00001EE0: 00 05 27 67 10 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..'g..**********|
00001EF0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001F00: 2A 2A 2A 2A 2A 00 2A 27 68 10 8F 20 2A 2A 2A 2A |*****.*'h.. ****|
00001F10: 20 52 45 4D 4F 56 45 20 4D 41 52 4B 45 52 53 20 | REMOVE MARKERS |
00001F20: 46 52 4F 4D 20 20 2A 2A 2A 2A 00 4F 27 69 10 8F |FROM ****.O'i..|
00001F30: 20 2A 2A 2A 2A 20 4B 45 59 50 48 52 41 53 45 20 | **** KEYPHRASE |
00001F40: 49 46 20 50 52 45 53 45 4E 54 20 2A 2A 2A 2A 00 |IF PRESENT ****.|
00001F50: 79 27 72 10 8B 20 CA 28 4B 45 24 2C 34 2C 31 29 |y'r.. .(KE$,4,1)|
00001F60: B2 22 40 22 A7 20 44 52 24 B2 C9 28 4B 45 24 2C |."@". DR$..(KE$,|
00001F70: C3 28 4B 45 24 29 AB 39 29 00 A3 27 7C 10 8B 20 |.(KE$).9)..'|.. |
00001F80: CA 28 4B 45 24 2C 37 2C 31 29 B2 22 2A 22 A7 20 |.(KE$,7,1)."*". |
00001F90: 44 52 24 B2 C9 28 4B 45 24 2C C3 28 4B 45 24 29 |DR$..(KE$,.(KE$)|
00001FA0: AB 37 29 00 A9 27 86 10 8E 00 CE 27 CB 10 8F 2A |.7)..'.....'...*|
00001FB0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001FC0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 F3 |**************..|
00001FD0: 27 CC 10 8F 20 2A 2A 2A 2A 2A 20 53 57 45 41 52 |'... ***** SWEAR|
00001FE0: 57 4F 52 44 20 43 41 54 43 48 49 4E 47 20 2A 2A |WORD CATCHING **|
00001FF0: 2A 2A 2A 00 18 28 CD 10 8F 20 2A 2A 2A 2A 2A 20 |***..(... ***** |
00002000: 20 20 20 20 20 52 4F 55 54 49 4E 45 20 20 20 20 | ROUTINE |
00002010: 20 20 20 2A 2A 2A 2A 2A 00 23 28 D6 10 53 57 24 | *****.#(..SW$|
00002020: B2 22 22 00 37 28 E0 10 81 20 50 53 B2 31 20 A4 |."".7(... PS.1 .|
00002030: 20 C3 28 50 41 24 29 00 4B 28 EA 10 4C 54 24 B2 | .(PA$).K(..LT$.|
00002040: CA 28 50 41 24 2C 50 53 2C 31 29 00 59 28 F4 10 |.(PA$,PS,1).Y(..|
00002050: 4E 4C B2 C6 28 4C 54 24 29 00 67 28 FE 10 4E 4C |NL..(LT$).g(..NL|
00002060: 24 B2 C4 28 4E 4C 29 00 77 28 08 11 53 57 24 B2 |$..(NL).w(..SW$.|
00002070: 53 57 24 AA 4E 4C 24 00 80 28 12 11 82 20 50 53 |SW$.NL$..(... PS|
00002080: 00 90 28 1C 11 81 20 43 52 B2 31 20 A4 20 53 57 |..(... CR.1 . SW|
00002090: 00 9D 28 26 11 87 20 4B 45 24 2C 4A 55 00 BA 28 |..(&.. KE$,JU..(|
000020A0: 30 11 81 20 53 53 B2 31 20 A4 20 C3 28 53 57 24 |0.. SS.1 . .(SW$|
000020B0: 29 AB C3 28 4B 45 24 29 AA 31 00 DB 28 3A 11 8B |)..(KE$).1..(:..|
000020C0: 20 4B 45 24 B2 CA 28 53 57 24 2C 53 53 2C C3 28 | KE$..(SW$,SS,.(|
000020D0: 4B 45 24 29 29 A7 20 32 30 30 30 00 E4 28 44 11 |KE$)). 2000..(D.|
000020E0: 82 20 53 53 00 ED 28 4E 11 82 20 43 52 00 F3 28 |. SS..(N.. CR..(|
000020F0: 58 11 8E 00 18 29 93 11 8F 2A 2A 2A 2A 2A 2A 2A |X....)...*******|
00002100: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002110: 2A 2A 2A 2A 2A 2A 2A 2A 00 3D 29 94 11 8F 20 2A |********.=)... *|
00002120: 2A 2A 2A 2A 20 20 20 45 4E 44 49 4E 47 20 52 4F |**** ENDING RO|
00002130: 55 54 49 4E 45 20 20 20 2A 2A 2A 2A 2A 00 7D 29 |UTINE *****.})|
00002140: 9E 11 99 3A 99 22 9C 49 20 48 4F 50 45 20 59 4F |...:.".I HOPE YO|
00002150: 55 20 48 41 56 45 20 46 4F 55 4E 44 20 54 48 49 |U HAVE FOUND THI|
00002160: 53 20 44 49 53 43 55 53 53 49 4F 4E 20 20 20 43 |S DISCUSSION C|
00002170: 4F 4D 46 4F 52 54 49 4E 47 2E 20 22 3B 00 BD 29 |OMFORTING. ";..)|
00002180: A8 11 99 22 50 4C 45 41 53 45 20 54 41 4C 4B 20 |..."PLEASE TALK |
00002190: 54 4F 20 4D 59 20 53 45 43 52 45 54 41 52 59 20 |TO MY SECRETARY |
000021A0: 41 42 4F 55 54 20 59 4F 55 52 20 4E 45 58 54 20 |ABOUT YOUR NEXT |
000021B0: 41 50 50 4F 49 4E 54 4D 45 4E 54 2E 22 00 CE 29 |APPOINTMENT."..)|
000021C0: B2 11 99 3A 99 22 47 4F 4F 44 42 59 45 22 00 D4 |...:."GOODBYE"..|
000021D0: 29 BC 11 80 00 F9 29 F6 11 8F 2A 2A 2A 2A 2A 2A |).....)...******|
000021E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000021F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 1E 2A F7 11 8F 2A |*********..*...*|
00002200: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002210: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 00 |**************..|
00002220: 00 00 |.. |
.. .... ***** PSYCHE *****.=....
C-64 BASIC V-2.Y.... RBD
DEC 1983.T.... * * ** * *....
.. CONVERSATIONAL PROGRAMME IN
WHICH THE COMPUTER IMITATES A...... P
SYCHIATRIST CONDUCTING A SESSION U
SING THE 'NONDIRECTIVE'.S.... APPROACH O
F CARL ROGERS. BASED ON
'ELIZA / DOCTER BY.L.... JOSEPH WEIZENB
AUM.......******************************
***......*******************************
**...... **** INITIALISING ROUTINE ****.
$...NM.28:. NUMBER OF WORDS IN
SWAPPING ROUTINE.C...NU.78:.
NUMBER OF KEYWORDS AND
KEYPHRASES.....SW.7:. NUMBER OF SWEARWO
RDS AND PHRASES.....SF.0:
. SWEARWORD FLAG.T...."..":.53280,0:.532
81,0...... .15)"MY NAME IS":.:.:....&.."
PPPP SSSS Y Y CCCC H H EEEE".H
.'.." P P S Y Y C H H E"
.R.(.." P P S Y Y C H H
E"...).." PPPP SSSS Y C HHHH
EEE".H.*.." P SSSS Y C
H H E"...+.." P S Y C
H H E"...,.." P S Y C
H H E".O.-.." P SSSS Y
CCCC H H EEEE":.:.:..B.0.. I.0 . 2000
:....:.." I CAN HELP YOU IF YOU WILL TRU
ST ME"...D.. I.0 . 2000:....N..:.:." SIT
DOWN COMFORTABLY AND TELL ME YOUR PROB
LEM":."."...X.. PA$...B..".":. 740. ....
********************************.F....**
******************************.D.... ***
* INPUT ROUTINE ****...F..:. RESETS DATA
POINTER...P..".":PA$.""...Z.. PA$......
PA$."END". 4500............ PA$.BLANK$
. .".DO YOU HAVE A PROBLEM COMMUNICATING
?":. 700./.... PA$.PR$ . .".PLEASE DON'T
REPEAT YOURSELF":. 700.;...PR$.PA$.O...
PA$." ".PA$." ".U....*******************
*************......*********************
***********.A. ..**SWAP WORD FOR OPPOSIT
E FORM **.R.*.. C.1 . NM.2...4.. TE$,TN$
...>.. PS.1 . C(PA$).C(TE$).1...H.. TE$.
J(PA$,PS,C(TE$)) . 880.'.R.. PS./.\.. C.
:.F.. 1000.I.P.PA$.H(PA$,PS.1).TN$.J(PA$
,PS.C(TE$)):. 850...Z.. " MUM "," MOTHER
"," DAD "," FATHER "," DREAMS "," DREAM
"...... " I "," YOU@ "," YOU "," I ","
ME "," YOU "," MY "," YOUR* ".4.... " YO
UR "," MY "," MYSELF "," YOURSELF* "," Y
OURSELF "," MYSELF "......" I'M "," YOU'
RE* "," YOU'RE "," I'M "," AM "," ARE@ "
," WERE "," WAS "......*****************
***************.M....*******************
*************...... **** KEYWORD PROCESS
ING ****...... * A. CHECKING FOR KEYWORD
S *.0.... 4300:. SWEARWORD CATCH.?.... C
.1 . NU.L.... KE$,JU.I.... PS.1 . C(PA$)
.C(KE$).1...... KE$.J(PA$,PS,C(KE$)). 10
80...... PS...$.. C...... 1500...8.DR$.J
(PA$,PS.C(KE$)).R.B.. DR$."". 1800...L.D
R$.H(DR$,C(DR$).1):.1800...U..**********
*********************.8.V.. **** B. KEYW
ORD LIBRARY ****.T.`.. " 80 73 83 83",42
," 83 72 73 84",42," 70 85 67 75",42...A
.. " 67 85 78 84",42," 80 82 73 67 75",4
2.H.B.. " 83 67 82 69 87 32 89 79 85",42
...C.. " 71 69 84 32 83 84 85 70 70 69 6
8",42.;.J.. COMPUTERS,1,MACHINES,1," NAM
E ",2,ALIKE,3," LIKE ",3," SAME ",3.V.T.
. "YOU@ REMEMBER",4,"DO I REMEMBER",5,"Y
OU@ DREAMED",6...~.. " DREAM ",7," IF ",
8,EVERYBODY,9,EVERYONE,9...... NOBODY,9,
"NO ONE",9,"WAS YOU@",10,"YOU@ WAS",11.#
.... "WAS I",12,YOUR* MOTHER",13,"YOUR F
ATHER",13,"YOUR* SISTER",13._.... "YOUR*
BROTHER",13,"YOUR* WIFE",13,"YOUR* HUSB
AND",13...... "YOUR* CHILDREN",13,YOUR*,
14.....ALWAYS,15,"ARE I",16,"ARE@ YOU@",
18," HOW ",25,BECAUSE,19...... "CAN I",2
0,"CAN YOU@",21,CERTAINLY,22...D.. DEUTS
CH,23,ESPANOL,23,FRANCAIS,23,ITALIANO,23
,NEDERLANDS,23.C.N.. HELLO,24,"I REMIND
YOU OF",3,"I ARE",26,I'M,26...X.. MAYBE,
28," MY ",29," NO ",30,PERHAPS,28,SORRY,
31,"WHAT ",25,"WHEN ",25...... "WHY DON'
T I",32,"WHY CAN'T YOU@",33,YES,22......
"YOU@ WANT",34,"YOU@ NEED",34," ARE ",1
7," I ",27.D.... "YOU@ ARE@ SAD",35,"YOU
'RE* SAD",35.V.... "YOU@ ARE@ UNHAPPY",3
5,"YOU'RE* UNHAPPY",35...... "YOU@ ARE@
DEPRESSED",35,"YOU'RE* DEPRESSED",35.X..
.. "YOU@ ARE@ SICK",35,"YOU'RE* SICK",35
...... "YOU@ ARE@ HAPPY",36,"YOU'RE* HAP
PY",36.6.(.. "YOU@ ARE@ ELATED",36,"YOU'
RE* ELATED",36.B.2.. "YOU@ ARE@ GLAD",36
,"YOU'RE* GLAD",36...<.. "YOU@ ARE@ BETT
ER",36,"YOU'RE* BETTER",36.A.F.. "YOU@ F
EEL YOU@",37,"YOU@ THINK YOU@",37...P..
"YOU@ BELIEVE YOU@",37,"YOU@ WISH YOU@",
37.#.Z.. " YOU@ ARE@",38,YOU'RE*,38,"YOU
@ CAN'T",39.Y.D.. "YOU@ CANNOT",39,"YOU@
DON'T",40,"YOU@ FEEL",41.~....*********
**********************...... **** C. NO
KEYWORDS FOUND ****...... YO$.BLANK$ . 1
540.N...RN..(.(0).5).1...... RN . 1540,1
540,1540,1590,1590. ...RN..(.(0).4).1:.
RN . 1550,1560,1570,1580.R....".I'M NOT
SURE I UNDERSTAND YOU FULLY":. 700.M....
".PLEASE GO ON":. 700..."..".WHAT DOES T
HAT SUGGEST TO YOU":. 700...,..".DO YOU
FEEL STRONGLY ABOUT DISCUSSING SUCH TH
INGS":. 700...6.RN..(.(0).3).1:. RN . 16
00,1610,1620.5.@..".LET'S DISCUSS FURTHE
R WHY YOUR".YO$:. 700.].J..".EARLIER YOU
SAID YOUR".YO$:. 700...T..".DOES THAT H
AVE ANYTHING TO DO WITH THE FACT THAT Y
OUR".YO$:. 700.K....********************
***********...... **** D. MARKER REMOVAL
****...... PS.1 . C(DR$).....M$.J(DR$,P
S,1).F.&.. M$."@". M$."*". DR$.H(DR$,PS.
1).J(DR$,PS.1).O.0.. PS.T.N..***********
********************...O..**************
*****************...P.. **** REPLY FORMU
LATION ****...Q.. *** A. REPLY SELECTION
****...Z..".";.$.... JU . 3020,3030,304
0,3050,3060,3070,3080,3090,3100,3110.1..
.JU.JU.10.N.... JU . 3120,3130,3140,3150
,3160,3170,3180,3190,3200,3210.{...JU.JU
.10...... JU . 3220,3230,3240,3250,3260,
3270,3280,3290,3300,3310.E...JU.JU.10...
.. JU . 3320,3370,3380,3390,3400,3410,3
420,3430,3440,3450,3460,3470.1....******
*************************.R.... **** B.
REPLY LIBRARY ****.U.L.."DO MACHINES WOR
RY YOU":. 700...V.."I AM NOT INTERESTED
IN NAMES":. 700......"IN WHAT WAY":. 700
......"DO YOU OFTEN THINK OF".DR$:. 700.
....."DID YOU THINK I WOULD FORGET".DR$:
. 700.&...."REALLY,".DR$:. 700.W...."WHA
T DOES THAT DREAM SUGGEST TO YOU":. 700.
....."DO YOU THINK IT'S LIKELY THAT IF".
DR$:. 700......"REALLY, ".KE$:. 700.E.&.
."WHAT IF YOU WERE".DR$:. 700...0.."WERE
YOU REALLY":. 700...:.."WOULD YOU LIKE
TO BELIEVE I WAS".DR$:. 700.?.D.."TELL M
E MORE ABOUT YOUR FAMILY":. 700.V.N.."YO
UR".DR$:. 4000...X.."CAN YOU THINK OF A
SPECIFIC EXAMPLE":. 700.F.B.."WHY ARE YO
U INTERESTED IN WHETHER OR NOT I AM".DR$
:. 700...L.."DID YOU THINK THEY MIGHT NO
T BE".DR$:. 700.. V.."DO YOU BELIEVE YOU
ARE".DR$:. 700.D ..."IS THAT THE REAL R
EASON":. 700.T ..."YOU BELIEVE I CAN".DR
$.", DON'T YOU":.700.. ..."WHETHER YOU C
AN".DR$." DEPENDS ON YOU MORE THAN ON ME
":. 700.. ..."YOU SEEM QUITE POSITIVE":.
700..!..."I AM SORRY,I ONLY SPEAK ENGLI
SH":. 700.$!..."HOW DO YOU DO":. 700.@!.
.."WHY DO YOU ASK":. 700.K!F.."WHAT MAKE
S YOU THINK I AM".DR$:. 700..!P.."WE WER
E DISCUSSING YOU,NOT ME":. 700..!Z.."YOU
DON'T SEEM QUITE CERTAIN":. 700..!..."W
HY ARE YOU CONCERNED OVER MY".DR$:. 700.
$"..."ARE YOU SAYING 'NO' JUST TO BE NEG
ATIVE":. 700.R"..RN..(.(0).4).1:. RN . 3
330,3340,3350,3360.V"..."PLEASE DON'T AP
OLOGISE":. 700.."..."APOLOGIES ARE NOT N
ECESSARY":. 700.."..."WHAT FEELINGS DO Y
OU HAVE WHEN YOU APOLOGISE":. 700..
# .."YOU NEEDN'T FEEL YOU HAVE TO APOLOG
ISE":. 700.:#*.."DO YOU BELIEVE I DON'T"
.DR$:. 700.S#4.."DO YOU THINK YOU SHOULD
BE ABLE TO ".DR$:. 700..#>.."WHAT W
OULD IT MEAN TO YOU IF YOU GOT".DR$:. 70
0..#H.. 4200..#I.."I AM SORRY TO HEAR YO
U ARE".DR$:. 700..#R.. 4200..$S.."HOW HA
VE I HELPED YOU TO BE".DR$:. 700.<$\.."D
O YOU REALLY THINK SO":. 700.Z$F.."IS IT
BECAUSE YOU ARE".DR$." THAT YOU CAME TO
ME":. 700..$P.."HOW DO YOU KNOW YOU CAN
'T".DR$:. 700.G$Z.."DON'T YOU REALLY".DR
$:. 700..$..."TELL ME MORE ABOUT SUCH FE
ELINGS":. 700..%... SF.0 . 3475.Q%..."I
SHALL NOT TOLERATE SUCH LANGUAGE. IF YO
U CANNOT BE POLITE YOU ";.M%..."WILL HAV
E TO LEAVE".%..SF.SF.1:. 700..%..."I
TOLD YOU I WOULD NOT STAND FOR THAT KI
ND OF LANGUAGE."..&..."THIS DISCUSSION I
S CLOSED.MY SECRETARY WILL SHOW YOU OUT
":..(&...*******************************
.M&...*******************************.R&
.. **** STORE REMARK IF ****..&...
**** PATIENT SAYS 'MY...' ****..&... **
** PLUS LONGER SENTENCE ****.V&... C(DR$
).11 . YO$.DR$..&... 700..'G..**********
*********************.*'H.. **** REMOVE
MARKERS FROM ****.O'I.. **** KEYPHRASE
IF PRESENT ****.Y'R.. J(KE$,4,1)."@". DR
$.I(KE$,C(KE$).9)..'|.. J(KE$,7,1)."*".
DR$.I(KE$,C(KE$).7)..'....N'K..*********
**********************..'L.. ***** SWEAR
WORD CATCHING *****..(M.. ***** ROU
TINE *****.#(V.SW$."".7(... PS.1 .
C(PA$).K(..LT$.J(PA$,PS,1).Y(..NL.F(LT$
).G(..NL$.D(NL).W(..SW$.SW$.NL$..(... PS
..(... CR.1 . SW..(&.. KE$,JU..(0.. SS.1
. C(SW$).C(KE$).1..(:.. KE$.J(SW$,SS,C(
KE$)). 2000..(D.. SS..(N.. CR..(X....)..
.*******************************.=)... *
**** ENDING ROUTINE *****.})...:.".I
HOPE YOU HAVE FOUND THIS DISCUSSION C
OMFORTING. ";..)..."PLEASE TALK TO MY SE
CRETARY ABOUT YOUR NEXT APPOINTMENT.".N)
...:."GOODBYE".T).....)...**************
*****************..*...*****************
**************....
> CLICK IMAGE PREVIEW FOR FULL MODAL