' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]L L}BBL] 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"_]` L/浍굺L  !"#$%&'()*+,-./0123456789:;<=>?  1#"""  (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0EB H  @H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`HIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   vLDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^L iõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- ( D Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈m浍浭m䵍䵐`"L ŵ8ŵH ~(`F d ֠z# u` REYNOLDS$&v CALL APPLE JAN. 1981<& BILL DELAUNE MODSZ& ***********************& 1013,76:1014,0:1015,3: JMP $300& MACHINE LANGUAGE ROUTINE& STORED AT $300. CAN BE& BSAVED AT $300,L$70& AFTER IF IT IS POKED.C' 768,336% INDEX% S(INDEX)*% O(INDEX)1% I7% U%& ***********************q%0 AMPERSAND ROUTINE FOR%: SEARCHING FOR USE AS A%D POS$(A$,B$) SUBSTITUTE.%N TO FIND THE SUBSTRING%X B$ IN A$-->%b &A$,B$:PRINT PEEK(26) &l LEE$6 K$(36)$@ I135!$J K$(I)($T I=$^ EXCHANGE WORDSI$h X$(14)U$r I114`$| X$(I)g$ Iu$ ANSWERS$ A$(120)$ I1120$ A$(I)$ I$ KEYWORD ANSWER $ RELATIONSHIPS$ START,NUMBER OPTIONS$ S(36),O(36)% I1,51,4## 23,55,4,24,59,4,25,63,1A# 26,63,1,27,64,5,28,69,5_# 29,74,3,30,77,1,31,78,6}# 32,84,5,33,89,4,34,93,6# 35,99,7,36,106,15# **********************# INITIALIZE ARRAYS# **********************#" :#, KEYWORDS NING BUT I CAN'T QUITE HEAR YOUR TRUE THOUGHTS ON THAT."V" 1,1,4,2,5,1,3,6,4,4,6,4q" 5,10,4,6,14,3,7,17,4" 8,21,1,9,22,3,10,25,3" 11,28,2,12,30,2,13,32,3" 14,35,5,15,40,9,16,40,9" 17,40,9,18,40,9,19,40,9# 20,40,9,21,49,2,22YING TO SAY?"C!Z "PLEASE WORK ON GETTING AT YOUR REAL FEELINGS."!d "I AM TRYING, BUT I CAN'T QUITE EMPATHIZE WITH YOU ON THAT."!n "WHAT DO YOU THINK IS REALLY BEHIND ALL OF THIS?"!x "BUT ARE YOU FRUSTRATED BY THIS PROBLEM?"8" "I AM LISTETAND YOU FULLY.":  "COME COME ELUCIDATE YOUR THOUGHTS."\ ( "CAN YOU ELABORATE ON THAT?"~ 2 "THAT IS QUITE INTERESTING." < "IT IS DIFFICULT FOR ME TO INTERPRET THAT." F "WHAT AN INTERESTING STATEMENT. PLEASE CONTINUE." !P "WHAT ARE YOU TRDO WITH YOUR PROBLEM?"H "DON'T YOU THINK COMPUTERS CAN HELP PEOPLE?"{ "WHAT IS IT ABOUT MACHINES THAT WORRIES YOU?" "SAY, DO YOU HAVE ANY PSYCHOLOGICAL PROBLEMS?" "WHAT DOES THAT SUGGEST TO YOU?" "I SEE."  "I'M NOT SURE I UNDERSFRIENDS?"; "PERHAPS YOUR LOVE FOR FRIENDS WORRIES YOU."Z "DO COMPUTERS WORRY YOU?" "ARE YOU TALKING ABOUT ME IN PARTICULAR?" "ARE YOU FRIGHTENED BY MACHINES?" "WHY DO YOU MENTION COMPUTERS?" "WHAT DO YOU THINK COMPUTERS HAVE TO POSITIVE."V "ARE YOU SURE?"-` "I SEE."Bj "I UNDERSTAND."st "WHY DO YOU BRING UP THE TOPIC OF FRIENDS?"~ "DO YOUR FRIENDS WORRY YOU?" "DO YOUR FRIENDS PICK ON YOU?" "ARE YOU SURE YOU HAVE ANY FRIENDS?"  "DO YOU IMPOSE ON YOUR OU*" "DO YOU DOUBT YOU*"1 "IN WHAT WAY?"U "WHAT RESEMBLANCE DO YOU SEE?"$ "WHAT DOES THE SIMILIARITY SUGGEST TO YOU?". "WHAT OTHER CONNECTIONS DO YOU SEE?"8 "COULD THERE REALLY BE SOME CONNECTION?"B "HOW?" L "YOU SEEM QUITE ""WHY NO?"7"WHY ARE YOU CONCERNED ABOUT MY*"S"WHAT ABOUT YOUR OWN*""CAN YOU THINK OF A SPECIFIC EXAMPLE?""WHEN?""WHAT ARE YOU THINKING OF?""REALLY, ALWAYS?""DO YOU REALLY THINK SO?""BUT YOU ARE NOT SURE YT SEEM QUITE CERTAIN."5\"WHY THE UNCERTAIN TONE?"Xf"CAN'T YOU BE MORE POSITIVE?"pp"YOU AREN'T SURE?"z"DON'T YOU KNOW?""ARE YOU SAYING THAT JUST TO BE NEGATIVE?""YOU ARE BEING A BIT NEGATIVE.""WHY NOT?""ARE YOU SURE?E?"#"DON'T BE SO DEFENSIVE..!"O "WHAT DOES THAT DREAM SUGGEST TO YOU?"j*"DO YOU DREAM OFTEN?"4"WHAT PERSONS APPEAR IN YOUR DREAMS?">"ARE YOU DISTURBED BY YOUR DREAMS?"H"HOW DO YOU DO ... PLEASE STATE YOUR PROBLEM."R"YOU DONEAL REASON?"9"DON'T ANY OTHER REASONS COME TO MIND?"a"DOES THAT EXPLAIN ANYTHING ELSE?""WHAT OTHER REASONS MIGHT THERE BE?""PLEASE DON'T APOLOGIZE!""APOLOGIES ARE NOT NECESSARY." "WHAT FEELINGS DO YOU HAVE WHEN YOU APOLOGIZ YOU REALLY WANT TO KNOW?"="HAVE YOU ASKED ANYONE ELSE?"j"HAVE YOU ASKED SUCH QUESTIONS BEFORE?""WHAT ELSE COMES TO MIND WHEN YOU ASK THAT?""NAMES DON'T INTEREST ME.""I DON'T CARE ABOUT NAMES-- PLEASE GO ON." "IS THAT THE RLW10):30060I-u(AE$)LW30A$(AA$,10P)(A$,(A$)LW20):30060A$)LW20):30060I,vuAE$(A$,LW)3,uAA$(AE$,10):AE$(AE$,LW10)B,uBLANK$" "Z,uAA$,BLANK$:P(26)j,uP0ī30080,uP1ĺAE$:30130,uAE$AE$(AA$,P1):AE$,u(AE$)LW10A$(AA$,10P)(A$,(A$)LW):30060-u(AE$)LW20A$(AA$,10P)(A$,(A$)+p AN$"":662+u 51,191,+z I512767;+ X(I)128G+ X13ıX+ AN$AN$(X)_+ Ie+ k+0u:+:u **********************+Du ** OUTPUT WITH **+Nu ** LINE BREAKS **+Xu **********************+bu:+lu(A$)LWĺA$::105026:857,96Z** 858,230:859,26:860,165:861,27:862,197:863,26:864,144:865,8:866,230*4 867,6:868,208:869,2:870,230:871,7:872,208:873,224:874,169:875,0*> 876,133:877,26:878,240:879,233*H *R :*\ INPUT ANYTHING SUBROUTINE+f :197:828,25:829,144:830,26l) 831,165:832,25:833,240:834,22:835,165:836,24:837,56:838,229:839,25) 840,133:841,27:842,160:843,0:844,177:845,6:846,209:847,8:848,208 * 849,8:850,200:851,196:852,25:853,144:854,245:855,230:856,798,32:799,227:800,223:801,133:802,8:803,132( 804,9:805,160:806,0:807,177:808,8:809,133:810,25:811,200:812,177( 813,8:814,72:815,200:816,177:817,8:818,133:819,9:820,104:821,133) 822,8:823,165:824,24:825,240:826,30:827,2:769,227:770,223:771,133:772,6:773,132:774,7:775,160:776,0' 777,132:778,26:779,177:780,6:781,133:782,24:783,200:784,177:785,6' 786,72:787,200:788,177:789,6:790,133:791,7:792,104:793,133:794,61( 795,32:796,190:797,222:z#     Ϡՠ̠Ԡ'T( "THIS HELLO PROGRAM CREATED BY "L"MINDWARE ON NOVEMBER 23,1988"R S,2,230,210,104,164,208,96,169,160,96BLOAD": F$"EXEC": ; (Y$)201(Y$)193550N (Y$)194560a (Y$)212570w "AT LINE 625",Y$ &F$"RUN": 0F$"BRUN": :F$"EXEC": D NI768788:PP:I,PP:I XI0:$b 56,72,132,208,160,0,145,209,230,209,208ANT TO LOAD OR RUN ANY OF THESE PROGRAMS BEFORE DISPLAYING THE REST OF THE CATALOG ";] Z$k Z$"Y"ı| Z$"N"390 32,0:34,1:33,19:936: (Y$)201(Y$)193470 (Y$)194480 (Y$)212490 500 F$"LOAD": F$"* " ";X$:X((X$,2,4)):Y$(A$(X),2,2)9 "XJ1260H 'X$""ĉ:c ,(X$,1)"L"İ430:330~ 6(X$,1)"R"İ510:330 @260 J:936 TD$;F$;(A$(X),7,31);",V0" ^ h33,19:32,20:936: r32,0:34,20:33,40:936U |" DO YOU W" "3 (A$(J),7,15)" "ī260G J19J54İ360b J37İ370:Z$"Y"260 J;4);(A$(J),7,15):JJ1:220 32,0:34,20:33,40:936 "TO SELECT PROGRAM:TYPE R(RUN) OR L(LOAD)" "THEN PROGRAM NUMBER..EXAMPLE -> R7" xZZ3037, QQ(977)185:QQ0ZZ3220G Q(977)(978)256ZZa Z(107)(108)2568 (209),(Z):(210),(Z1) Q,0:Q1,3:Q2,18:Q3,3 D$;"CATALOG" D$;"PR#0":D$;"IN#0":936:33,20:34,1:936 J1 QQ0A$(0)B$% A$(100)*C$" "HB$" "f(I10011:A$(I)B$C$:r2I0:R0<QQ(977)185:QQ0A$(0)C$" "FQQ0A$(0)C$" "PD$(4):D$;"NOMON I,O,C"Z590dD$;"NOMON I,O,C"::936 nD$(4)     WHAT IF YOU NEVER GOT*"5X"I SOMETIMES ALSO WANT*"Lb"WHY DO YOU ASK?"tl"DOES THAT QUESTION INTEREST YOU?"v"WHAT ANSWER WOULD PLEASE YOU THE MOST?""WHAT DO YOU THINK?""ARE SUCH QUESTIONS ON YOUR MIND OFTEN?""WHAT IS IT THATWE WERE DISCUSSING YOU-- NOT ME."c "ARE YOU TRYING TO TURN THE FOCUS OF THIS INTERVIEW ON ME?"&"YOU'RE NOT REALLY TALKING ABOUT ME, ARE YOU?"0"WHAT WOULD IT MEAN TO YOU IF YOU GOT*":"WHY DO YOU WANT*"D"SUPPOSE YOU SOON GOT*"N"YOUR FANTASIES I AM*"7"HOW DO YOU KNOW YOU CAN'T*"N"HAVE YOU TRIED?"j"PERHAPS YOU CAN NOW*""DID YOU COME TO ME BECAUSE YOU ARE*""HOW LONG HAVE YOU BEEN*""DO YOU BELIEVE IT IS NORMAL TO BE*""DO YOU ENJOY BEING*"!"ALLY BELIEVE I DON'T*":"PERHAPS IN GOOD TIME I WILL*"T"DO YOU WANT ME TO*""DO YOU THINK YOU SHOULD BE ABLE TO*""WHY CAN'T YOU*""WHY ARE YOU INTERESTED IN WHY OR NOT I AM*""WOULD YOU PREFER IF I WERE NOT*""PERHAPS IN "DO YOU SOMETIMES WISH YOU WERE*":6"DON'T YOU REALLY*"P@"WHY DON'T YOU*"rJ"DO YOU WISH TO BE ABLE TO*"T"DOES THAT TROUBLE YOU?"^"TELL ME MORE ABOUT SUCH FEELINGS."h"DO YOU OFTEN FEEL*"r"DO YOU ENJOY FEELING*"|"DO YOU REE THAT YOU REALLY WANT ME TO*"@"YOU WANT ME TO BE ABLE TO*"f "PERHAPS YOU DON'T WANT ME TO*""DO YOU WANT TO BE ABLE TO*""WHAT MAKES YOU THINK I AM*""DOES IT PLEASE YOU TO BELIEVE I AM*"""PERHAPS YOU WOULD LIKE TO BE*"!,I ","MAYBE"E" NO","YOUR","ALWAYS","THINK","ALIKE","YES","FRIEND"V "COMPUTER" "ARE ","AM ","WERE ","WAS ","YOU ","I ","YOUR ","MY " "YOU'VE ","I'VE ","YOU'RE ","I'M ","YOU ","ME ""DON'T YOU BELIEVE THAT I CAN*" "ARE YOU SURA$A$"?":30000O "CAN YOU","CAN I","YOU ARE","YOU'RE","I DON'T","I FEEL" "WHY DON'T YOU","WHY CAN'T I","ARE YOU","I CAN'T","I AM","I'M""YOU ","I WANT","WHAT","HOW","WHO","WHERE","WHEN","WHY" "NAME","CAUSE","SORRY","DREAM","HELLO","HESENT1(X$(I))):1370bF(PRESENT)PRESENT(X$(I))(AN$)AN$(AN$,PRESENT1)X$(I1):1370PPRESENTAN$(AN$,PRESENT1)X$(I1)(AN$,(AN$)PRESENT1(X$(I)))ZIdA$A$AN$n(A$,1)" "A$(A$,(A$)1)x(A$,1)"?"ī30000(X$(I))(AN$)AN$(AN$,PRESENT1)X$(I1):1300 PRESENTAN$(AN$,PRESENT1)X$(I1)(AN$,(AN$)PRESENT1(X$(I))):SPTRUE I SPī1380 (I2142: FIRST PERSON 2AN$,X$(I):PRESENT(26)<PRESENT1AN$X$(I1)(AN$,(AN$)PR1)" "2 AN$(AN$,(AN$)PRESENT(K$(INDEX)))^ ((AN$,1))65AN$(AN$,(AN$)1)" "k SPFALSE I1132: SECOND PERSON AN$,X$(I):PRESENT(26) PRESENT1AN$X$(I1)(AN$,(AN$)PRESENT1(X$(I))):13003 (PRESENT)PRESENT* LAN$P$ĺ"DON'T REPEAT YOURSELF":10905 VP$AN$G `AN$"QUIT"ĀS jI136p tAN$,K$(I):PRESENT(26)| ~INDEXI PRESENTI36 I PRESENTINDEX36 C(O(INDEX)(1)):A$A$(S(INDEX)C) (A$,1)"*"ī30000 A$(A$,(A$)" TO STOP THIS INTERVIEW." :" SINCERELY, YOUR SHRINK":::"HELLO, I AM THE COMPUTER.":"WHAT SEEMS TO BE YOUR PROBLEM?"  *********************** $ MAIN PROGRAM LOOP . *********************** 8X(0): HOUSECLEAN B3410 MY COMPUTER. RESPOND TO IT IN"M "STANDARD ENGLISH, THE LONGER AND MORE"i "PERSONAL THE BETTER." :" THIS INTERACTION IS BASED ON THE":"ELIZA PROGRAM BY JOSEPH WEIZENBAUM.":"BILL DELAUNE WROTE THIS VERSION." "TYPE ";::"QUIT";::J%-:10:" **** WELCOME ****"W3110: INITIALIZE & SUBSTRING SEARCHu2820: INITIALIZE ARRAYSLW40:5:"DEAR CLIENT:":" ALTHOUGH I AM UNABLE TO BE HERE," "I AM LEAVING YOU IN THE CAPABLE HANDS" "OF               ::D$;"RUN MENU" $ D$(4)< "PRESS RETURN";KY$S D$;"UNLOCK HELLO"h D$;"SAVE HELLO"q 510 34,B:936 B$:C$) Z190:Z0 BB :190:34,11J 11S E10c E38141o E1E11 E114E114 11:E:(E$,E1);" " E ,250 6::::: J:" "; T:" PRESS RETURN KEY TO CONTINUE ": KY$ s  :D$(4)9A$"THE PUBLIC DOMAIN EXCHANGE"VB$"2076 C WALSH AVENUE"u(C$"SANTA CLARA, CA 95050"2E$"(408) 496-0624"d34,7:35,7:32,8i190:7nA1(A$)x(A$,A)A:25035,23:32,11B2181