' JJJJ ?\>' L-=l>  ԠéԠˠ#~?  xDIR ERA TYPESAVEREN USERY!yO#< Ty#O 3ǯ21y_͸2y2ͽ:ķ˜1͘A͌>>͌92^ :˷¥.!_~#fow]ɭʎʥ!v"!çREAD ERRORçNO FILE^:˷#͘*~ "Ʒ"͌#>?͌͘ =_.:;<> Oƅo$>!Y2*O"ʉ@G:ʐ:wÖx2p0ʹ#*©6?ëw˜0ï#6 ¹.0#*6?w0#6 #6"  Ň!˶2:2a{_:˷ʖ:˷>Ľʖ:=2–!B!6#5ʖ:˷Ľ!ͬʧ )!F#xʺ~0wëw!" !~6ͽ:ý(!\X COPYRIGHT (C) 1979, DIGITAL RESEARCH _͌> ͒> Ò> Ò͘~#͌ì _2<į2: :):>:(y2E!|"*wɍ`JX)^>EE??++ ԩ  [\ ĭ ?  JL ``LLL $Lq<`ΧԠĠڸčԠԠ͠Ԡ؍2>o:= gw8H<8H=` }Hx / hJ Leh<> > @A @A>i =<>+ LeÍڍh@(L>*// -П( ( $8` %  ZNx`. }x$50x.$50xL JJJJ`Hjf5 }h $50x`  Ȍ` Hx  -(hL(h8֩`Lx (`H݌hHhHh݌>?F؅G(jf5(  ;  R( FGj 0x j $xxH` ( Rh RL.xxH h  !"#$%&'()*+,-./0123456789:;<=>?x&& 8 , P ; ' / \ ; & ; x)*++`FGG8`0($ p,&" cI꽌ɪVɭ&Y & &Y &   꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`V0 ^ *^ *>`+*xS&x'8*3IxiU ,>J>V J>V `8'x0| &HhHh V Y V '&Y V x ꪽV ' `Hh` ! ~ 3#0 Wx x ƀ Ƃ G ~ # 3x~#B!Y~ɯ2:˷=!˾ý:˷=!˾:ý^T!~  6?#ˆ:`O> K{͘A͒>:͒͢>:͒͢xK > K > ͒x  ͢ØÆ^ BRͧ9!5‚#~Y‚#"T<ÆALL (Y/N)?^ Tʧ͘!6!~ڇ ɯw4!Y~ʆ͌†t=ʆf ^ T ɯ2o&)|+!<ͧЯ2*C!!~~#~O~G#n,-.‹! w! yG!x͢.:E<ʄ! q!pQ:E<. ʄ$.:E<ʄi6}2ExN! ~态O>G~G!~G} *C!r#r#r ^ͥ_y#x#{2>2T*CGͻ:ẅ́n>2;O ^DM;}H>"*C :ٷ:ddslO s#r:EϷ͊:==»y==»*Ww#*"͸*:G#š"͸:!پw4!iw:Z!E~=26 w ~>2!E5T*C!"C"C!w# F! w͌xѯ2͢*C ~<wʃG:٠!٦ʎì 4~ʶ¬:<ʶ$ʶïZͻЯx>2>2ͻ:!پZկ2:EϷẅ́͊Ͳ> *C ^OT *C~wD -'  -@ͦ~^*C Ox! N!Fwyxʋ>ڋ>*Cw~#+w#w+ɯ2E22i^ *C :ٷ~w~͔͔# # ::/GyO>2!q*C"͡ʔ*JҔ^:Oyʃ?|x | sӖ-|N-# S:2E!~Яw>T D^6k-äPYy 5*{zBK5:AϾ#~$=2Ek͌ ):BO!yoxg*:BO}!N#F "*#*s#r^ ~!J! J*:مo$*C~i6iw**{#zr+s{ozg**͕** Ѿ,w͜͸Ͳ!!N#F$**O!~#O: \зSЀ*C :ٷqn& ^#V>O^"*}:*)=":O:١o"*C *C!ͮ~2~2ͦ:٦2ͮ:ЯO:فw:w |g}o*ٯ# 2E>! ^#V w#P:BO|^#V#"##"##"##"!O*!O*|!6ʝ6>گ*w#w*w#w'û*ڷ! J*""!N#F*^#V*~#foyx*{_zW+*x: 2 p&x~+é7ͯ2 H! >w_: ! Ͼ5ͤNkͱ¦ͱxʊ#Nx: Ϸ! ϖ2 ͤ! 5™#wO~x½p Hy<< ڷʑ :!qMD# O͐  :ϷE B 2>: Ϸb# : Ϸy! 4 5~yy5 6yҐ^H@Oy H H: –ͬ  #H: ! Ͼ Hù H H $O͐: 2 *CN# ʽY̙̥̫̱"C{2!"E9"1Aϯ22!ty)K!G_^#V*Cΐ~؃E؜إث ,&-AGMSϛ!!ô!ô!Bdos Err On : $Bad Sector$Select$File R/O$:BA2!~6=qf^!~2>`~2˯2\!!B!~> >#0~O#Cx2͘1)ͽÂf zͧÆBAD LOADCOMf^: !˶ Â$$$ SUBÆNO SPACE^ :Ty!B*O=?_s#"^sG!~Yʸpsp2mÆÆf ͧÆFILE EXISTS _: É: :˷ʉ=2)ͽÉ T!@k!}|qs+p+q-*C ͥ!!q#p#w*:BOYG}*MD "ã:!BϾw!>2*C~=2u:B2~2wE:A*C϶w>"!""ٯ2B!"!rQQQâ~?ͦ~?rQ*"CQ-Q͜QüQrQ$Q*):B"*)*)Q;*"E:;:A2AQÓQÜQ*C}/_|/*٤W}_*"}o|g":ٷʑ*C6:ٷʑw:2E**E}DQ>2C0T"I !>"H>2J: !͢:d::d!s~B#1!P!J߇o~,foɷp:BB Apple ][ CP/M 56K Ver. 2.20B (C) 1980 Microsoft ;ۯ2>EE??++B#1!P!J߇o~,foɷp;ۯ2:޷;ۯ2e ]~6(*} *:޽ y(3:޷s:2G<2x/a2:oa":޷zޯ2{![:޷ <2:>sɯ2>!>2!;:*     1>2>2*"?ۯ2:08 !"Y"BT"->2:8Y"/:8Y"F~!xq!;`~0,~!M;!x~1.~8[q>:޷ 2y2!!{o!:=8 ~y!3w.y2Cɯ2>!w#w#wOa."y .:g"*"!~((5:# :*޽ :޼ $| 8g,"ޯ2!"_!ޅoN!޷((+! ~O#O:x >2ޯ2:޷*(*D*:wk*(:$_"~28 ?@wx( !;!܅ony 2$8!2E!y>>?22!ɯog"$2E!.B...X&*}(8.|8&"$պ`~(,qy2E[22G: 2:O*:P!O#~#'۹~y/:02?"2O: K*:*(0**:8'(*:08* *: 8(*7!w˹#~(=5:!( +_ywɷ+ͱ*:]lc_O{- OMG!~_ :( 6>83! ~èCfuÇKmVÉÎÓãݯ`iޓښ:ޓڦJޓڲZޓھjޓzޓߊ / !~ `66= !; !{g1:Q!͢گ22>2!"2!"͎>2MULISP COMJ MUSTAR SYSp UTILITY LIB(TRACE LIB !METAMINDLIB:"#$%&'()ANIMAL LIB:*+,-./01DOCTOR LIB42345678SCRIPT LIBv9:;<=>?@ABCDEFG!=n&~+fo:%S:%:%8s#r*%++++++;<&:%ڔT]#####~+ngڽ&ڗ ^#V#!&ͫʇ!&ͫ¶^#V#ͽ  S!&ͫʪ!&ͫ¶SW D `iý:%d S:%g RDM:%j `iN#F:%DMS:%- bk####j͌" &!8&"8&>$qͣ}|&:%:%?͋7y7!7$?X_f0:?A[?a{?ɧ"%͋().[], X?O:%0Gyz{xy{#zͫ\\\=G+>:%ҾS8+͕+ÞBKT]+:%SR`iA+*%6DM:%ҫR͈N~N#_͈ҞʞDM#w&+~*%w#6ͫͱ͈ڴ+:%ڦ>2%A2%:%ڞ:%BKC`i"%:%ڞڞ`CONTALK LIB HI:%R&bk*%ͫ####s#rs#rs#r+8:%DM##^#VWp+q\Ҟ~=ʔ+~Û:%Ҕ!&,ڔ!&:%ڞ!&%ʔ!&\Ҟž~=ö\ҞʞÔ*%;ÛÛ,,ڞͫÆ,Ҕ\Ҟ\Ҟž\S##~#fo##~#fo~#fo##~#fo##~#fo##~#fo##~#fo~#fo~#fo##~#fo~#fo##~#fo^#V#~#fo,##~##~#fo7:%####+\?~=7+~l?\~=*% S:% _ GK:% ? 7 7\~+=  1 %́"m"muLISP-80 2.0 Copyright (C) 1980 MICROSOFT Lic. from The SOFT WAREHOUSEË~# f~+ o}o|gɯ|g}o͌""%!%w*%&!N#F#ͱ¥.$"%"%"% ##"%"%$++"%#6s#r#"%"%$"%"%ya*%!`&&Mʔ†O# ʞÑX%DM+:%Ҟ1+`i8Ô+:%{:%ҞRcÐDM:%Sz~{~!&BK:%ڼ:%S:%Ҟžž7:%S:%ҼPY¼7+͕8+#~+ng\ &ڗ ^#V#!&ͫ~^#V#  R!&ͫ¡Su ͌ !& ͽ :%d S:%g R:%j `iS͠ ++~#fo!&ͫ¶ ^#V#'  `iä:%DM^#V#:%& bk#####~+ng+ &!%5̭!^#V#!&ͫ*H&%_ *X&%$í" $* &%9ͭ"ll%elg~a^ [?@ɯx?2%N*%o?\Ҟ++#:%w#<*%#*%+<*%*%#/!%#:%w#0*%!&####͋##ͫC*%!9͋ͫZ*%*%ͫv͋j*%*%ͫ####}N#F#:%*%ͱ+:%w#*%*%*%*%/!%0*%!&##ͫ*%!9ͫ*%*%ͫ ͽ :% ڗ S ~ڮ :%P %:% . ~ ڞ^#V#!##F ~ڮ :%ډ %ʝ  ~ ڝ ^#V#ͽ  ^#V#ͽ ~ڞÝ :% %!& ڞ ~ڪ :%3 ^#V#!##~#fo ~ڪ :%q ^%~#"%u#t#6#6&#O>2%x*%16+q+p?y=6+q?6*%~=k*%+r+s+6&+:%w+t+u"%"% *%͓%ʌ>ڌj#ʌ"X&!&"X&*X&%#ͪ xҽG½ÞxG:%:%x 2%:%xV#:%*%ͫu#t#####ͫ!9:%2%2%2%!ALL Spaces Exhausted!"%"%"%"%2%>DM|G\|Gk|Io&)):%E|2%O:%E|2%O:%E|2%O2%ë>2%͋M{M2%\   ^#V#e  !&ͦ H ~d ^#V#ͽ g ^#V#ͽ j `i^#V#ͽ ͦ !&&&:% S!&ͫŽ S D !&ͫ¶S D 33Ͳ æ # ^#V#:% ^#Vҭ # ^#V#ͺ Ԧ ò ~#foõ + %ʲ PY3"<B*%7ڤ" P >2%pc͚B0O"0&*%w#6ͫ"0&"^"w#P*%"%6+"%6X҂_0G:%2%>x*%N*%q+ ʰ>ãҽ*%4ilw#4++l*%"%p?8"0&͋w#%%1GN#F#*%ͱ:%ÝBK:%W](+~ͱ$BK:%W]>~#ͱ:!<=I%j2%>j&#"@&!&"@&([ʪyq*%͆cuʤ"ʞÍPÍpG)]ͭʞ.tq)]p͎͚#V#ͽ ##~#fo :%ғ ^#V#+ ^#V#N#F^q#Vp#~#fos#r~& :% ^#V#] ^#V#N#F#~#foq#p~X SN#F^q#Vp#~#fos#r:%q %N#F##~#for+sq#pSN#F#~#foq#p:%ګ %N#Fq#p<>M%\DM*%*%$$ͫ*%:%%2%͈>>(S %9:%>. >)͟*P&%Y~͒#O~m|#~+O~"|u|͒#g͐~ʐ͒"̐#>"G:%x>2%A2%:%o& #z:%> > > !% 4  ~56:%\2%ҥõk6# ͥ#͵\6 M6{/<2%*%*%x:%*%*%x:%*%*%x:%*%!9x:%ͪ*%*%Øͪ*%*%/!%0*%*%*%!&ͫ±*%!9ͫ*%*%ͫ*%*%ͫ#F#:%:%3  +:%N#F#^#V`iN # V+^#6  +DM%  _ W7N#fi :%ҭ S##~#foW :%ҭ S##~#fou S:%Ҟ× :%Ҷ ##^#Vͭ :%Ү %&:% ڞS## :%Ү  %*(&%xf m" End-Of-File Read jzP4:%5 #2%g"}Ϳ!14:%5V#2%* &%:%z6*@&%!%#͚>2%p-7?>2%p͚>-& ʿ#ñ*%ͫ®*% ######N#F#*%ɾ! q#p#s#r#"ͫ=####~5++++~54ͫ=~s#~r#~#~#"%*%DMMͱJ*%DM!&####ͱ[*%DM!9ͱq*%*%>|aM|a\|a!%>5*%6*%^#V#Ϳ*%ͫ4SͿÿ^#V#*%ͫ*%ͫN#Fq#p#^#!%4>L*% "%ML *% "%\L*% "%kL*% "%*%DM!&͵͵####ͱD*%DM!9Կͱ]*%*%++++++~wͫr*%ͫDM++++++~ҝ5Æ`i`"%*%ͫҬ5*% | } ###~ +~##~#foNo"% +p+qé`i"%*%6*%~\Ҟ>2%!D?́?\Ҟ5\Ҟ>FNyQHFy*%qO 7?aw++] x>+ n6*%4FNxڳ¨# ʖxHڳAO:%2%*%qyO 7?w++ w+ *%5*%6\\: ESC, ALT; Restart: RUB, DEL; System: Ctrl-C? " `"g"K"S"!]6 Û>?ͭ"3"m" }s"~ͭ"#s"SYS*""!%~/w/w:$ҏ" _ ©"͠"ij!> é"+5͠"" "m" "é"*8&%"+6x*5# **%*%N7? + 76E*%N+~w :*%F*%~wO +~w S*%k5d*%p}_|W5wO*%6+"%o:%O*%F}o|g #^zW{_zүï/w© z*%5}o|gɒNILTLAMBDANLAMBDAECHOq^#V#ͽ %£ 33:%SR% 33 J Ͳ Ҥ !%5̭!6 !%5̭!J ~ڰ ^#V#ͽ ^#V#ͽ n S:%RÈ ~ ^#V#ͽ %œ !&:% S%´ ð ~ڰ ^#V#ͽ % !&:%Ұ S% 1!>2%7Ҟڞ"%*%6N ?#~2%>+>=*%N7? U+~w M_+6*%4:%2%Ң*%F*%N7?+ ʄʦwtʘ>+*%4ÅҢ6*%4@>w+ ¦Ù5"%"%ͦx*%~*%N7+ ~w6*%4*%*%"%*%"%́$m" No Disk Space ͌%*$ͫ#w#"$w#M$M$q#F$ F$[\$ IM$w#M$ 6!i$~G4#> "x#o|g~!\4$!"$\!"$\>7*$ͫ=#~#"$7?!$4$$5#ʿ#!$F6B#N6A#~6K$$!$f!$p#q#w$ÿ#!$4$$! %"$$7#> $ %*$ͫ# %$! %"$$READRATOM-READCHORDSPRINTPRIN1oWRSDRIVERCAR+CDRCADR%CDDRCADDRCDDDR8CAARGCDAR4CAAARCCDAARCADAR!CDDAR2CAADRACDADRCONSCRPLACAHRPLACDNNCONC>SETASSOCPUT GET\MEMBERREMPROPXFLAGP!FLAG~ڰ ^#V#:%!!~*!^#Vͽ s#r&%!S~#fo#!F!~`!~#fo:%`!~#foSs#r!&ɒ!~`!^#V#~`!~#fo:%`!ͽ ~#fo>S%`!~#fo:%`!Ã!62͠"""g"!*** INTERRUPT: To Continue Type: RET;`"s"m" Executive*%"%?*%"%2%?m" ZERO Divide Error !&5"%"%ͦx?*%~=?*%N7+ l~w?]6*%4?5ů2%"%"%ͦx*%"%?~=?*%́?*%Ny*%~*%G<p&&+Dx&&J&&%QONS: MAPCLINEWORDENTER CHOICE: QUERY$TEXT:RD-LIN$RD-WRD$CRDEL-CHARUP-LIN$UPLINEBACKUP$BCK-SPACE$BACKHOME$HOMESPACE$CHAR$ PRIN2APPENDADD1*DRIVE*CTRL-ZTYPE CTRL-Z: LIN-LEN$PAG-LEN$*** The muSTAR AIDS ***EXECUTIVEFEDITFUNCTIO.Y7.Y7.Y7.&$C7.&2C7.&>C7.&K7.&H 8.&lK8.&NN!8.&G)8.&*D08.&@D78.&K>8.&hEN8/&@DU8/&E\8/&Nc8/&TEo8 /&Fv8(/&L}80/&E88/&VF8@/&M8H/&M8P/&G8X/&\G8`/&N8h/&L8p/&H8x/&H8/&PK8(&6 d(&` k(& s(& y(&!~(&A!(&f!(&4(&4(& 4(& 4(&<4(&4(&4(& 4)&6<04)&H<64)&<4)&^<@4 )&p'&'&'& '&\ '&('&X0'&!8'&1@'& H'&P'&X'&F"`'&j)h'&2p'&;x'&E'&N/&`90&b90&,Mj90&s90&x90&|90&O90&90&90&90&90&TQ90& Q90&P90&91&P91&91&P91&9 1&Q9(1&R901&jR981&:@1&nS :H1&R:P1&S:X1&':`1&4:h1&8:p1&=:x1&B:1&d:/&I8/&L8/&I8/&9/&I9/&I9/&!9/&%9/&dJ)9/&29/&49+&69.&89/&:9.&<9P/&>9.&@9.&B9,&D9p/&F9.&H9/&J9X/&L9/&N9.&P9/&R98/&T9.&V9x/&X9.&Z9 /&\90/&^9)&4)&4)&4)&=4)&4)W4)&=4)&>4/&4)&B4)&N>4/&4)&|>4)&>4/&4*&>4/&5*&> 5*&5 *Z5(*&>50*&>58*&>%5&&*51&F25P*&953&G53&P5h*&Y5p*&q5x*X{5*&}53%D3%D3%D3%D3%D3%D3&;3&;3&;3&;3&;3&;3&;3&;3&;3&;3&;3&;3&;3&;MUSTARLIBSTOPDEFUNFUNCEXP*** REDEFINING SETQQPUTQQATMFLAGQQPACK$TOKENUNPACK$RDC$LSTTAILCHOP$SPLIT$NUMSUB1MENU$OPTI-xW7-|W7-W7-W7-W7-W7-W7-W7-W7-W7-W7-W7-W7-W7-W7.W7.W7.W7.\X7 .`X7(.dX70.hX78.lX7@.pX7H.tX7P.xX7X.|X7`.X7h.&J7p.Y7x.\7.Y7'&xU'&\'&c'&i'&r'&w'&M'&'& '&'&'&'&'&'&(&(&(&(& (&((&0(&f8(& @(&H(&(P(& &X(&.`(&97h(&uBp(&Nx(&U(&]1&Ti:1&Uq:1&6Uy:1&:1&:1&:1&:H*&:1&:FD1%HD1%JD1%LD1%ND1%PD1%RD1%TD1%VD2%XD2%ZD2%\D2%^D2%`D 2%bD&2%dD,2%fD22%hD82%jD>2%lDD2%nDJ2%pDP2%rDV2%tD\2%vDb2%xDh2%zDn2%|Dt2%~Dz2%D2%D2+&vMd6+&l6+&v6+&vT6+&6+&6+&6+&6+&6+&6+&6+&6+&6+&TM6+&6,&B6,&C6,&6,Y7 ,&7(,X 70,& 78,&R7@,&7H,&J%7P,&K07X,&M<7`,YJ7h,XL7p,XN7x,XP7,XR7*&5*\5*&5*X5*&5*X5*&5*X5*&5*&S5*\5*&:T5*X5*&5*\5+&5+X5+&5+&5 +&5(+&A50+&N58+&6@+&6O6H+&$6P+&tO.6X+&96`+&?<6h+&A6p+&D6x+&N6+&?]6NVVARIABLEPPROPERTYELISPQEVAL-QUOTETRACEUUNTRACERFILEWWRITEDSELECTDRIVEFUNCTION NAME(S)EDIT-TXTDEF-TO-TXTVARIABLE NAME(S)SET-TO-TXTINDICATORPUT-TO-TXT* EXIT# FILE NAMEFILE NOT FOUNDW-EXECPRT-TXTFUNCTIONSVARIABLESEVTRACE()(*D&DQ)()DDDDD&+fC(+D9)|B+&BD!)D1*()bDDD(+D9)|B+(DD'bD'B'<(()C)3CEDDD..E'Ei&+ ED.(()zC&<GE'JE*()(() E&&t>bE^E'zC(+|B&z>EEEEEEE|E(EEBE')'`)&z>>(>>>(`)"=Q&)>'f>&&>>Q&*I&*&>>'* **&>>Q&((P&&<>>&>>1*H)'@)&z>>A(`)3&z> ?I(`)3&$??( ??(<>&A)(&&??????????t?p?l?H?(h?^?P?'T?'*Z?y(p*(*d?q)p)'3Q&h*'3?x?(`*3?(`*(X*CTRL-XCTRL-RPRT-ROWMOVE-CURCTRL-CCTRL-NROW-PRT-LENROLL-DWN-ROWCTRL-GCTRL-TDELETE-TOKENCTRL-YROLL-UP-ROWCTRL-OFIND NAME? CTRL-LSRCH-TXTROWCOLSRCH-ROW  MUSTAR2REPL-ROWNUM0VARTXTEXP-TO-TX+BY)+`*(++++++++*8&&BBBBBBY,++3I,*BBB(()BQ,'+BB'Bq&+Q&B(B>B'*By(@,*()&B CC CCBi.*BCC(()BCC'BQ&*&>,C6B(*V=&&8C(+B&BCCCCCC~CnC\CVC&B()kC`C&+fC&+'()&+tC1*zC*i&+CCCCC&()))&<<=(>====q')'0&) >>()) >')()>)))&= >(,>&>(0&)?>:>2>Y'6>q') >&(D>=)'V=J>y()&z>x>t>X>(p>j>`>c>'f>(`)(`)"=Q&)Q&)=a)&z>>>>)`stuvwxyz!#$&'*+-/;<=>?@\^_`{|}~%"INSERT-DEL,().[]CTRL-PCTRL-VCTRL-DNEXT-RIGHT-TOKENCTRL-MMOVE-RIGHT-TOKENPRT-TOKCTRL-JCTRL-BCTRL-SMOVE-LEFT-TOKENCTRL-ECTRL-HCTRL-ATOK-PRT-LENCTRL-QCTRL-WSPLICE-TOKEN' &&BBBA(BvBnBBB BAAAA(AA9,A&&A1*AA1*A+q&+q'+'*Ay(*A'*Ay(,(*Aq)Ay(ABBA),0,*, ,)*,)'Bi'+ ,(hB\BBOB2B$B'.B*Bq(+'*;B6B,*(DB@B(*)'*JBy(,WBRB)*)'*J>_B'.BdBy(+(*V=++++(+|By&+(++(stuvwxyz!#$&'*+-/;<=>?@\^_`{|}~%"INSERT-DEL,().[]CTO</  &2<*<< <(I'((!<<<'&'('(&XEEDE(EEBE'E(E`)E'B(`)EFFFF1/I* F'+'C&&TFJF:F0F"FnB%F-F(F(+'E(6F+Q)+&+@F&FFA(+MFQFD'CE&z>FFlFBfFnB(+|B(FFFzFxF=(`)"=E&+FT111`11a11p1& UUTSTTTTI&.(TTTTQ&1T'1Q&T'T(1TTT(TTTT'1Q&T(1T'1TTQ&1(0UA(03'0a11&2U&UUS"UU1I&1Q&1(0,UI(03a11&RUNUJU@U&FUT'TTTT&1nN`NZN)()(*kNdN)()P&'X&NxNtN)*O(TOPOFO&0LO&GO0&0ZOq&^O0jOdOq(@AO'&O(00O&OzO0OOq(,A0)(G`*&+H&+(+G(+pG'CHHBY/'++&It>II&pG&'J&RR(RRRRR'0R&'R'81(0RI10R&'0(0RA1)/081&L)h'(LL`=(`)L0L`)()L')(`)L0=3(h'Li)Li'))`)h'&(MMMLt>(MML)M'/(`) M0J`)(/Mq'/' Mi)$Mi'//`)&NMt>JMDM:M`)'>MI(h'`)(`)EA///h'`)&pMlMFhM`MI/)//+)'3)//&=|M)MMy(M&&FFA(6F+(`)FI(`*3E&&GGFFFF`=FFFFI/+++&+F&F(+&+F&+(F+y&+A/Fi&+'Fi)`**FFB'+AG GF'E F&z>ZGTG&GB GnB(+|B(NGHG>GGGDtGjGi/pG`)q&+GxG(`)3GGG(`)P((1(((POPOP*PO0ZP0ZP'(x.0OO(03O(X*3(03(03(@)+0000&PPPfPPOOPO100_POTP0P*PO100APO8PO0I?IFIFIII/IF'+A/F'X*(+Ii&=Q&/'Ia/F&&ICIF/+++I&^JI(RJJJJ(/ Jy&/KJDJJ(>J"JJ(/5J.J(J(+/(+/(/:J//(/ J(/+'NJq&/YJ.J(J(/:J))//&JjJ(JJ~JtJyJ/'/+(/J/'(ES'()p.(()~JNSSSR(/MS&')()M&<4TS)@)Sy(S&.T$TTTSSSI&x1Q&`1TSI'`1Sq(TSSq(+`1Sp1y&h1i&h1'T Ty(PA'`1p1(p1TY'Tq(`1-(h1*TQ'`1a1h1p1(03&<@T)@)FTy(JT&rThTRTeT^TXTA'&p1A'p1`1Q'p1(p1nTY'Ta1p1&TT~T1`1T'p1JJM`=q&)&JMM)J.'4L&pMFMMMM(MMM.Mi&)()M')/'M() J(M`=MM'/)&FN@N:N.N$Nt>NNM(N NN.Ni&/(/NJN'//'N(/ J)N>(`)0(`)4NI(>0)J.(0E//`)0&L&&/DL!)4L(RLNL'0L'JLL<^L(vLlLfL&/@)&/rL9*4LyL(>~L'L*JJ&+J&JJ&*1)zCJJC&+J&JB'zC&>JJEC&+J&*BJJ&+J9*zC(KJ**(zC&BJKFK:K4K*KKK*&B()kC$K*&+fC(*0K&C(()CC@K()&+fCkC&(()C&O(TOPOFO&0LO&GO0&0ZOq&^O0jOdOq(@AO'&O(00O&OzO0OOq(,A0)constructor returning the expression resulting from replacing all occurrences of OLD by NEW in EXPN. % (DEFUN SUBST (LAMBDA (OLD NEW EXPN) ((EQUAL OLD EXPN) NEW) ((ATOM EXPN) EXPN) (CONS (SUBST OLD NEW (CAR EXPN)) (SUBST OLD NEW (CDR EXPN))) )MBDA (LST1 LST2) ((NULL LST1) LST2) (CONS (CAR LST1) (APPEND (CDR LST1) LST2)) )) % Function COPY returns a copy of its argument. % (DEFUN COPY (LAMBDA (EXPN) ((ATOM EXPN) EXPN) (CONS (COPY (CAR EXPN)) (COPY (CDR EXPN))) )) % Funct,\X&p*X,\,&,&,&,&,&,&&X&XX&+&X&p*X,&,&,&, [,d\,W,&&XYX(YXYXX&(XYYY&Y&' Y@&&'YY&(&& Y&'$Y'&(,YY0YY4YlY8YPY(x.0OO(03O(X*3(03(03(@)+0000&PPPfPPOOPO100_POTP0P*PO100APO8PO0_B'.BdBy(+(*NOT (PLAY-AND-OFFER-NEW-ROUND)) (SAVE-MEMORY) (QUOTE Thanks" for all the info about animals, I'll remember it!") ) ) )) (DEFUN OFFER-INSTRUCTIONS (LAMBDA NIL ((OR *NEW* (QUERY (QUOTE (Do you want instructions?))(PUTD DEFUN (QUOTE (NLAMBDA (FUNC EXP) ((EQUAL (GETD FUNC) EXP)) (((NULL (GETD FUNC))) (PRIN1 ***" REDEFINING ") (PRINT FUNC)) (PUTD FUNC EXP) FUNC))) (DEFUN SETQQ (NLAMBDA (NAME EXP) (SET NAME EXP) NAME)) (DEFUN PUTQQ (NLAMBDA (NAME ATM EXP) (PUT NAMEDA () (SETQ SEED (REMAINDER (PLUS 2113233 (TIMES SEED 271821)) 9999991)) (REMAINDER SEED 4) )) PUTD (CONSNIL (LAMBDA (X) ((NULL X) NIL) (CONS NIL X) )) PUTD (CONSNULL (LAMBDA (X Y) ((NULL X) (CONSNIL Y) ) (CONS X Y) )) PUTD (NODE) (CAR NODE) )) (DEFUN EXTRACT-TERMINAL (LAMBDA (NODE) (CAR NODE) )) (DEFUN LEAF? (LAMBDA (NODE) (ATOM (CAR NODE)) )) (DEFUN QUESTION-NODE? (LAMBDA (NODE) (NOT (ATOM (CAR NODE))) )) (DEFUN INTERSECT (LAMBDA (X Y) (LOOP ) )) (DEFUN RESTORE-MEMORY (LAMBDA NIL ((QUERY (Do you want to refresh my memory from a previous session we had?)) (DISPLAY (What is your first name?)) (SETQ *FIRST-NAME* (READ-NOUN)) ((RDS *FIRST-NAME* MEM) (SETQ *MEMO)) X )) (DEFUN DELETE (LAMBDA (ITEM LST) ((ATOM LST) LST) ((EQUAL ITEM (CAR LST)) (DELETE ITEM (CDR LST)) ) (CONS (CAR LST) (DELETE ITEM (CDR LST))) )) (DEFUN ALREADY-EXISTS (LAMBDA (NEW-ANIMAL ANSWERS TREE) ((LEAF? TREE) NIL) (DISPLAY1 X) )) (DEFUN DISPLAY1 (LAMBDA (X) (LOOP ((NULL X) NIL) ( ((ATOM (CAR X)) (PRIN1 (CAR X)) ((EQ (CAR X) ')) ((MEMBER (CADR X) DELIMITERS)) (PRIN1 " ") ) (DISPLAY1 (CAR X)) ) (SETQ Xirst name?)) (SETQ *FIRST-NAME* (READ-NOUN)) ) ) (WRS *FIRST-NAME* MEM) (SETQ PRIN1 NIL) (PRT-TREE *MEMORY* 0) (SETQ PRIN1 T) (TERPRI) (WRS) ) )) (DEFUN PLAY-AND-OFFER-NEW-ROUND (LAMBDA NIL (DISPLAY (Type RETURNn) (EXTRACT-QUESTION NEW-TREE) (incorrectly"."))) ) (DISPLAY (LIST (What YES//NO question could I ask to distinguish) (@ NEW-ANIMAL) NEW-ANIMAL)) (DISPLAY (LIST from (@ (EXTRACT-TERMINAL X)) (EXTRACT-TERMINAL X) ?)) (SETQ NEW-QUESTY (LIST (I bet it's) (@ GUESS) GUESS "...?")) NIL) X )) (DEFUN @ (LAMBDA (X) ((MEMBER (CAR (UNPACK X)) VOWELS) an) a )) (DEFUN QUERY (LAMBDA (X ANSWER) (LOOP (DISPLAY X) (SETQ ANSWER (READ-NOUN)) ( ((ATOM ANSWER) (RY* (READ-TREE)) (RDS) ) (DISPLAY (I can't seem to find a record of that session"...")) (RESTORE-MEMORY) ) (SETQ *FIRST-NAME*) ((EQ *MEMORY* (QUOTE *MEMORY*)) (SETQ *MEMORY* ((IS IT WARM BLOODED) ((DOES IT LIVE IN THE WATER) MEMBER (RATOM) TERMINATORS) LST) (SETQ LST (NCONC LST (LIST RATOM))) ) )) (DEFUN LEARN (LAMBDA (X NEW-ANIMAL NEW-QUESTION OLD-NODE NEW-TREE) (DISPLAY (I give up"," what animal were you thinking of?)) (SETQ NEW-ANIMAL (READ-NOUN)) ((EQ NEW- (CDR X)) ) )) (DEFUN READ-NOUN (LAMBDA (NOUN) (SETQ NOUN (READ)) ((ATOM NOUN) NOUN) ((CDR NOUN) (DISPLAY (Just one word please"...")) (READ-NOUN) ) (CAR NOUN) )) (DEFUN READ-SENTENCE (LAMBDA (LST) (SETQ LST) (LOOP (( when you have thought of an animal".")) (READCH) (READCH) (GUESS-HIS-ANIMAL) (DISPLAY (Thanks for the game".")) (QUERY (Another game?)) )) (DEFUN GUESS-HIS-ANIMAL (LAMBDA (RESULT) (SETQ *ANSWERS* NIL) ((SETQ RESULT (QUESTIONER *MEMION (DELETE ? (READ-SENTENCE))) (SETQ OLD-NODE (COPY X)) (SETQ NEW-TREE (CONSTRUCT-TERMINAL NEW-ANIMAL)) (DISPLACE X (CONSTRUCT-QUESTION NEW-QUESTION OLD-NODE NEW-TREE)) )) (DEFUN DISPLACE (LAMBDA (X Y) (RPLACA X (CAR Y)) (RPLACD X (CDR YSETQ ANSWER (CONS ANSWER)) ) ) ((INTERSECT (QUOTE (OK YES Y YAH TRUE)) ANSWER)) ((INTERSECT (QUOTE (NO N NIL NOPE NAW)) ANSWER) NIL) (DISPLAY (I'm sorry"," I don't understand your response".")) ) )) (DEFUN DISPLAY (LAMBDA (X) (TERPRI) (RATTLE" SNAKE") (TUNA" FISH")) ((DOES IT MILK ITS YOUNG?) (ROBIN) (DOG)))) ) )) (DEFUN SAVE-MEMORY (LAMBDA NIL ((QUERY (Would you like to save your session for antiquity?)) ( ((NULL *FIRST-NAME*) (DISPLAY (What is your fANIMAL (EXTRACT-TERMINAL X)) (DISPLAY (That's what I just guessed"." Stop fooling around".")) ) (SETQ NEW-TREE (ALREADY-EXISTS NEW-ANIMAL (REVERSE *ANSWERS*) *MEMORY*)) ((NOT (NULL NEW-TREE)) (DISPLAY (LIST (I think you answered the questioREE (EXTRACT-BRANCH TREE ANSWER)) ) )) (DEFUN EXTRACT-BRANCH (LAMBDA (TREE ANSWER) ((NULL ANSWER) (EXTRACT-NO-BRANCH TREE) ) (EXTRACT-YES-BRANCH TREE) )) (DEFUN FINALLY-GUESS (LAMBDA (X GUESS) (SETQ GUESS (EXTRACT-TERMINAL X)) ((QUERGRAPH KEY) ((NULL KEY) NIL) (CONS GRAPH (NUROW GRAPH (CDR KEY))) )) PUTD (PRTMOVE (LAMBDA (MOVE) (SPACES 8) (PRIN(QUERY (Another game?)) )) (DEFUN GUESS-HIS-ANIMAL (LAMBDA (RESULT) (SETQ *ANSWERS* NIL) ((SETQ RESULT (QUESTIONER *MEM((EQ (CAR ANSWERS) T) ((MEMBER-TREE NEW-ANIMAL (EXTRACT-NO-BRANCH TREE)) TREE) (ALREADY-EXISTS NEW-ANIMAL (CDR ANSWERS) (EXTRACT-YES-BRANCH TREE)) ) ((MEMBER-TREE NEW-ANIMAL (EXTRACT-YES-BRANCH TREE)) TREE) (ALREADY-EXISTS NEW-ANIMAL (CDR AQUOTE PRIORITY)) (GETP (CDDR FLAG) (QUOTE PRIORITY)) ))) FLAG ) (CONS (REVERSE RULE) KEYSTACK) ) ( ((GETP WORD (QUOTE MEMR)) (SETQ MEMSTACK (APPEND (GETP WORD (QUOTE MEMR)) MEMSTACK)) ) ) ( ((GETP WORD (QUOTE PRIORITY)) ((Q (EVAL (READ)) STOP)) ) (RDS CONTALK LIB) (LOOP ((EQ (EVAL (READ)) STOP)) ) (RDS) (DOCTOR) ) (PUTD DEFUN (QUOTE (NLAMBDA (FUNC DEF) (PUTD FUNC DEF) FUNC ))) (DEFUN DOCTOR (LAMBDA (FILE SENTENCE KEYSTACK MEMSTACK FLIPFLOP) ( TREE)) (PRT-TREE (EXTRACT-NO-BRANCH TREE) (PLUS INDENT 2)) (PRT-TREE (EXTRACT-YES-BRANCH TREE) (PLUS INDENT 2)) )) (DEFUN READ-TREE (LAMBDA (TREE) (SETQ TREE (READ)) ((ATOM TREE) (LIST TREE) ) (LIST TREE (READ-TREE) (READ-TREE)) )) ) (MEMORY) ) )) (DEFUN MAKSEN (LAMBDA (SENTENCE WORD FLAG RULE KEYSTACK) (SETQ KEYSTACK (CONS)) (LOOP ((NULL SENTENCE) (CONS (REVERSE RULE) KEYSTACK) ) (SETQ WORD (CAR SENTENCE)) ( ((NUMBERP WORD) (SETQ WORD (COND NSWERS) (EXTRACT-NO-BRANCH TREE)) )) (DEFUN MEMBER-TREE (LAMBDA (ANIMAL TREE) ((LEAF? TREE) (EQ (EXTRACT-TERMINAL TREE) ANIMAL) ) ((MEMBER-TREE ANIMAL (EXTRACT-NO-BRANCH TREE))) (MEMBER-TREE ANIMAL (EXTRACT-YES-BRANCH TREE)) )) (DEFUN ESENTENCES WITH A """.""" """?""" OR """!""" AND THEN HIT THE """RETURN""" KEY "."))) (TERPRI) (SETNONE) (LOOP (PRIN1 "P. ") (SETQ SENTENCE (MAKSEN (READSENT))) (SETQ KEYSTACK (CDR SENTENCE)) (SETQ SENTENCE (CAR SENTENCE)) ((NULL FILE)) (WRS (CAR FILE) (CADR FILE) (CADDR FILE)) (SETQ ECHO T) ) (TERPRI) (PRTSENT (QUOTE (I AM AT YOUR SERVICE ";" JUST TELL ME ANYTHING THAT TROUBLES OR CONCERNS YOU "."))) (PRIN1 " ") (PRTSENT (QUOTE (PLEASE END YOUR (SETQQ VOWELS (A E I O U)) (SETQQ DELIMITERS ("," ')) (SETQQ TERMINATORS ("." ? !)) (RDS) ,)'Bi'+ ,(hB\BBOB2B$B'.B*Bq(+'*;B6B,*(DB@B(*)'*JBy(,WBRB)*)'*J>_B'.BdBy(+(*((ZEROP WORD) ZERO) ((EQ WORD 1) ONE) ((EQ WORD 2) TWO) (NUMBER) )) ) ) ((MEMBER WORD PCTLIS) (SETQ FLAG (MAKSEN (CDR SENTENCE))) ((NULL (CDR KEYSTACK)) FLAG) ((AND (CDDR FLAG) (NOT (GREATERP (GETP (CDR KEYSTACK) (% The Doctor is busy right now. Please relax and he will be ready to serve you in a minute... - The Doctor's secretary % (SETQ ECHO) %File: DOCTOR.LIB 05/20/80 The Soft Warehouse % (PROG1 "" (LOOP ((EXTRACT-NO-BRANCH (LAMBDA (NODE) (CADR NODE) )) (DEFUN EXTRACT-YES-BRANCH (LAMBDA (NODE) (CADDR NODE) )) (DEFUN PRT-TREE (LAMBDA (TREE INDENT) (SPACES INDENT) ((LEAF? TREE) (PRINT (EXTRACT-TERMINAL TREE)) ) (PRINT (EXTRACT-QUESTION ((EQUAL SENTENCE (GOODBYE)) (TERPRI) (PRIN1 "D. ") (PRTSENT (QUOTE (I HOPE I HAVE BEEN OF SOME SERVICE ";" LET'S GET TOGETHER AGAIN "."))) "" ) (TERPRI) (PRIN1 "D. ") (PRTSENT (ANALYZE)) (TERPRIAND (CDR KEYSTACK) (GREATERP (GETP WORD (QUOTE PRIORITY)) (GETP (CDR KEYSTACK) (QUOTE PRIORITY)) )) (RPLACD KEYSTACK (CONS (CDR KEYSTACK) (CDR WORD))) ) (BCONC (CDR WORD) KEYSTACK) ) ) (SETQ WORD (COND ((GETP WORD (QUOTE T (RPLACA (CDDR X) Z) ) (SETQ X (CDDR X)) ((NULL X) (RPLACD XX (CONS Y (CONS Z (CDR XX)))) ) ) Z )) (DEFUN NTH (LAMBDA (X Y) ((ZEROP Y) (CONS NIL X) ) (LOOP (SETQ Y (DIFFERENCE Y 1)) ((ZEROP Y) X) (SETQ X LOOP ((NULL D) ((NOT S) (SETQ PARSLST (CAR PARSLST)) T ) (RN) ) (SETQ CD (CAR D)) ((ZEROP CD) (TCONC S PARSLST) (SETQ D (CDR D)) ((NULL D) (SETQ PARSLST (CAR PARSLST)) T ) (LOOP ((TEST D S) (CAR KEYSTACK)) (SETQ RULES (GETP KEYSTACK (QUOTE RULES))) ) ((ATOM (CAR RULES)) (SETQ RULES (GETP (CAR RULES) (QUOTE RULES))) ) (SETQ PARSLST (CONS)) ((NOT (TEST (CAAR RULES) SENTENCE)) (SETQ RULES (CDR RUCA (CAR Y) X) (RPLACA Y (CAAR Y)) )) (DEFUN TCONC (LAMBDA (X Y) (SETQ X (CONS X NIL)) ((NULL Y) (CONS X X) ) ((NULL (CDR Y)) (RPLACA Y X) (RPLACD Y X) ) (RPLACD (CDR Y) X) (RPLACD Y (CDDR Y)) )) (DEFUN GETP (LAMBDA (X((CDAR (CDAR RULES))) )) )) (DEFUN RECONSTRUCT (LAMBDA (RULE PARSLST WORD SENTENCE V1) (LOOP ((NULL RULE) (REVERSE SENTENCE) ) (SETQ WORD (CAR RULE)) ( ((NUMBERP WORD) (SETQ WORD (NTH PARSLST WORD)) (SETQ V1 (CAR WORD)) (LRANSLATION))) (WORD) )) (SETQ RULE (CONS WORD RULE)) (SETQ SENTENCE (CDR SENTENCE)) ) )) (DEFUN ANALYZE (LAMBDA (RULES PARSLST CR EXIT) (SETQ FLIPFLOP (NOT FLIPFLOP)) (BCONC (GETP (QUOTE NONE) (COND ((NULL FLIPFLOP) () ((NULL S) NIL) ((NUMBERP CD) (TCONC S PARSLST) (SETQ S (NTH S CD)) ) ((COND ((ATOM CD) (EQ CD (CAR S)) ) ((CAR CD) (MEMBER (CAR S) CD) ) ((TEST4 (CAR S) (CDR CD))) ) (TCONC S PARSLST) T ) )) (DEF T) (SETQ S (CDR S)) ((NULL S) (RN) ) ) ) ((NOT (RNP)) (RN) ) (SETQ S (CDR S)) (SETQ D (CDR D)) ) )) (DEFUN RN (LAMBDA () (RPLACD PARSLST (COND ((NOT PSV) NIL) ((RPLACD PSV NIL)) )) NIL)) (DEFUN RNP (LAMBDA LES)) ) (SETQ RULES (CAR (ADVANCE RULES))) (SETQ CR (CAR RULES)) ((ATOM CR)) ((EQ (CAR CR) (QUOTE PRE)) (SETQ SENTENCE (RECONSTRUCT (CADR CR) PARSLST)) (SETQ RULES (CDDR CR)) ) (SETQ EXIT T) ) ((EVA Y) (LOOP (SETQ X (CDR X)) ((NULL X) NIL) ((EQ (CAR X) Y) (CADR X) ) (SETQ X (CDR X)) ) )) (DEFUN PUTP (LAMBDA (X Y Z XX) (SETQ XX X) (LOOP ((NULL (CDR X)) (RPLACD X (LIST Y Z)) ) ((EQ (CADR X) Y) OOP ((EQ V1 (CADR WORD))) (SETQ SENTENCE (CONS (CAR V1) SENTENCE)) (SETQ V1 (CDR V1)) ) ) (SETQ SENTENCE (CONS WORD SENTENCE)) ) (SETQ RULE (CDR RULE)) ) )) (DEFUN TEST (LAMBDA (D S CD PSV) (SETQ PSV (CDR PARSLST)) ( (QUOTE MEM) ) ((QUOTE LASTRESORT)) )) KEYSTACK ) (SETQ KEYSTACK (CDR KEYSTACK)) (SETQ RULES (GETP KEYSTACK (QUOTE RULES))) (LOOP (SETQ EXIT NIL) ( ((OR (NULL RULES) (EQ (CAR RULES) (QUOTE NEWKEY))) (SETQ KEYSTACKUN TEST4 (LAMBDA (CS L) (LOOP ((GETP CS (CAR L))) (SETQ L (CDR L)) ((NULL L) NIL) ) )) (DEFUN BCONC (LAMBDA (X Y) (SETQ X (CONS NIL X)) ((NULL Y) (CONS X X) ) ((NULL (CAR Y)) (RPLACD Y X) (RPLACA Y X) ) (RPLAS (CAR X) (CONS (RECONSTRUCT (CAAR (ADVANCE MEMSTACK)) PARSLST) (CDAR X) ))) ) ) (SETQ MEMSTACK (CDR MEMSTACK)) ) )) (DEFUN ADVANCE (LAMBDA (RULES) (RPLACA (CDAR RULES) (COND ((NULL (CDAR (CDAR RULES))) (CDDAR RULES) ) L EXIT) (RECONSTRUCT CR PARSLST) ) ) )) (DEFUN MEMORY (LAMBDA (PARSLST X) (LOOP ((NULL MEMSTACK)) (SETQ PARSLST (CONS)) ( ((TEST (CAAR MEMSTACK) SENTENCE) (SETQ X (CDAR (CADR (GETP (QUOTE NONE) (QUOTE MEM))))) (RPLACA X (CON(CDR X)) ) )) (DEFUN APPEND (LAMBDA (X Y) ((ATOM X) Y) (CONS (CAR X) (APPEND (CDR X) Y)) )) (DEFUN SETNONE (LAMBDA (A) (SETQ A XXXX) (RPLACD A (GETP (QUOTE NONE) (QUOTE LASTRESORT))) (PUTP (QUOTE NONE) (QUOTE MEM) (LIST (QUOTE RULOU SAID YOUR 2 3 ".") (BUT YOUR 2 3 ".") (DOES THAT HAVE ANYTHING TO DO WITH THE FACT THAT YOUR 2 3) ) ((0 YOUR 1 0) (NIL) (EARLIER YOU SAID YOUR 3 4) (BUT YOUR 3 4) (DOES THAT HAVE ANYTHING TO DO WITH YOUR 3 4) ) ((0 YOUR 1) ) )) (RPLACD IF (LIST PRIORITY 3 RULES (QUOTE ( ((0 IF 0 HAD 0) (NIL) (PRE (1 2 3 MIGHT HAVE 5) IF) ) ((0 IF 0) (NIL) (DO YOU THINK ITS LIKELY THAT 3) (DO YOU WISH THAT 3) (WHAT DO YOU THINK ABOUT 3) (REALLY"," IF 3) ) )) LES (((WHEN (DO DID DOES WILL) 0) (NIL) XXWHAT) ((0) (NIL) (IS THERE ANY OTHER TIME) (WHY THEN"," DO YOU SUPPOSE)))) (RPLQQ ALIKE PRIORITY 10 RULES (DIT)) (RPLQQ SAME PRIORITY 3 RULES (DIT)) (RPLQQ CERTAINLY PRIORITY 0 RULES (YES)) (NIL) (PRE (DO I REMEMBER 2) REMEMBER) ) ((YOU REMEMBER 0) (NIL) (DO YOU OFTEN THINK OF 3) (WHAT ELSE DOES THINKING OF 3 BRING TO MIND) (WHAT ELSE DO YOU REMEMBER) (WHY DO YOU REMEMBER 3 JUST NOW) (WHAT IN THE PRESENT SITUATION RES) (LIST (LIST (LIST 0) (LIST NIL) A))) ) )) (RDS SCRIPT LIB) E) ANIMAL) ) ((MEMBER-TREE ANIMAL (EXTRACT-NO-BRANCH TREE))) (MEMBER-TREE ANIMAL (EXTRACT-YES-BRRIORITY 4 RULES (DREAMT)) (RPLQQ DREAM PRIORITY 3 RULES (((0 YOU DREAM (OF ABOUT) 0) (NIL) (WHAT MIGHT 5 REPRESENT) (WHAT DOES 5 SUGGEST TO YOU) (HOW DOES THAT DREAM RELATE TO YOUR PROBLEM)) ((0) (NIL) (WHAT DOES THAT DREAM SUGGEST TO YOU))) (RPLQQ DREAMT PRIORITY 4 RULES (((0 YOU DREAMT 0) (NIL) (REALLY 4) (HAVE YOU EVER FANTASIZED 4 WHILE YOU WERE AWAKE) (HAVE YOU DREAMT 4 BEFORE) DREAM NEWKEY) ((0) (NIL) DREAM NEWKEY) )) (RPLQQ DREAMED TRANSLATION DREAMT P%File: SCRIPT.LIB (c) 05/16/80 The Soft Warehouse % (DEFUN RPLQQ (NLAMBDA ARG (RPLACD (CAR ARG) (CDR ARG)) (CAR ARG) )) (RPLACD NONE (LIST LASTRESORT (QUOTE (RULES (((0) (NIL) (I AM NOT SURE I UNDERSTAND YOU FULLY ".") (PLEASE GO (RPLQQ FEEL BELIEF T) (RPLQQ THINK BELIEF T) (RPLQQ BELIEVE BELIEF T) (RPLQQ WISH BELIEF T) (RPLQQ BET BELIEF T) (RPLACD MY (LIST MEMR (QUOTE ( ((YOUR 2 0) (NIL) (LET'S DISCUSS FURTHER WHY YOUR 2 3 ".") (EARLIER YEMINDS YOU OF 3) (WHAT IS THE CONNECTION BETWEEN ME AND 3) ) ((DO I REMEMBER 0) (NIL) (WHY DID YOU THINK I WOULD FORGET 4) (WHY DO YOU THINK I SHOULD RECALL 4 NOW) (WHAT ABOUT 4) WHAT (YOU MENTIONED 4) ) ((0) (NIL) NEWKEY) ) (WHAT DO YOU DREAM ABOUT) (WHAT PERSONS APPEAR IN YOUR DREAMS) (WOULD YOU LIKE TO FLEE FROM REALTY) NEWKEY))) (RPLQQ DREAMS TRANSLATION DREAM PRIORITY 3 RULES (DREAM)) (RPLQQ HOW RULES (WHAT) PRIORITY 0) (RPLQQ WHEN PRIORITY 0 RU(WHAT FEELINGS DO YOU HAVE WHEN YOU APOLOGIZE) ))) )) (RPLACD DONT (LIST TRANSLATION DON'T)) (RPLACD CANT (LIST TRANSLATION CAN'T)) (RPLACD WONT (LIST TRANSLATION WON'T)) (RPLACD REMEMBER (LIST PRIORITY 5 RULES (QUOTE ( ((REMEMBER 0) ON ".") (WHAT DOES THAT SUGGEST TO YOU) (WHAT ELSE WOULD YOU LIKE TO DISCUSS) (WHY DO YOU SAY THAT JUST NOW) ))) ))) (RPLACD SORRY (LIST PRIORITY 2 RULES (QUOTE (((0) (NIL) (PLEASE DON'T APOLOGIZE ".") (APOLOGIES ARE NOT NECESSARY ".") (NIL) (WOULD YOU LIKE TO DISCUSS YOUR 3) (PERHAPS THAT CONCERNS YOUR 3 ".") (TELL ME MORE ABOUT YOUR 3 ".") ) )) PRIORITY 0 TRANSLATION YOUR RULES (QUOTE ( ((0 YOUR 0 (NIL FAMILY) 0) (NIL) (TELL ME MORE ABOUT YOUR FAMILY ".") PRIORITY 0 TRANSLATION YOU'RE RULES (((0 YOU'RE 0) (NIL) (PRE (YOU ARE 3) I)))) (RPLQQ MYSELF TRANSLATION YOURSELF) (RPLQQ YOURSELF TRANSLATION MYSELF) (RPLQQ MOTHER FAMIY T) (RPLQQ MOM TRANSLATION MOTHER FAMILY T) (RPLQQ HERE 2 4) ARE)) ((THERE (ARE IS) 0) (NIL) (2 THERE REALLY 3) (WHY 2 THERE 3) (HOW 3 THE 4 RELATED TO YOU)) ((ARE I 0) (NIL) (WHY ARE YOU INTERESTED IN WHETHER I AM 3 OR NOT) (WOULD YOU PREFER IF I WEREN'T 3) (PERHAPS I AM 3 IN YOUR FANTASIES "."PRIORITY 0 RULES (((0) (NIL) (YOU DON'T SEEM QUITE CERTAIN ".") (WHY THE UNCERTAIN TONE) (CAN'T YOU BE MORE POSITIVE) (YOU AREN'T SURE) (DON'T YOU KNOW)))) (RPLQQ MAYBE PRIORITY 0 RULES (PERHAPS)) (RPLQQ NAME PRIORITY 15 RULES (((0) MEAN IF YOU WERE 3) XXWHAT) ((YOU WAS 0) (NIL) (WERE YOU REALLY) (WHY DO YOU TELL ME YOU WERE 3 NOW) (PERHAPS I ALREADY KNEW YOU WERE 3 ".")) ((WAS I 0) (NIL) (WOULD YOU LIKE TO BELIEVE I WAS 3) (WHAT SUGGESTS THAT I WAS 3) (WHAT DO YOU THINK) HINES PRIORITY 8 RULES (COMPUTER)) (RPLQQ COMPUTERS PRIORITY 10 RULES (COMPUTER)) (RPLQQ AM PRIORITY 0 TRANSLATION ARE RULES (((ARE YOU 0) (NIL) (DO YOU BELIEVE YOU ARE 3) (WOULD YOU WANT TO BE 3) (YOU WISH I WOULD TELL YOU YOU ARE (WHO ELSE IN YOUR FAMILY 5) (YOUR 4) (WHAT ELSE COMES TO MIND WHEN YOU THINK OF YOUR 4) ) ((YOUR 2 0) (NIL) (IS IT IMPORTANT TO YOU THAT YOUR 2 3) (DO YOU SUPPOSE ANYONE ELSE'S 2 3) (WHAT MAKES YOU THINK YOUR 2 3) (SUPPOSE I DIDN'T BELY 1 REALLY 2 NOT 3 ".") (TELL ME MORE ABOUT 1 ".") (DID YOU THINK 1 MIGHT NOT BE 3) (1 PERHAPS 2 3 ".")))) (RPLQQ YOUR PRIORITY 0 TRANSLATION MY RULES (((0 MY 1) (NIL) (WHY ARE YOU CONCERNED OVER MY 3) (WHAT ABOUT YOUR OWN 3) (ARE YOU WORR) (DO YOU SOMETIMES THINK I AM 3) XXWHAT) ((ARE 0) (NIL) XXWHAT) ((0 1 (ARE IS) NOT 0) (NIL)) (POSSIBLY THAT IS FOR THE BETTER ".") (WHAT IF 2 WERE 5) (WHAT DO YOU REALLY KNOW ABOUT 2)) ((0 (ARE IS) 0) (NIL) (SUPPOSE 1 WERE NOT 3 ".") (POSSIB (NIL) (I AM NOT INTERESTED IN NAMES ".") (I'VE TOLD YOU BEFORE I DON'T CARE ABOUT NAMES - PLEASE CONTINUE ".")))) (RPLQQ DEUTSCH PRIORITY 0 RULES (((0) (NIL) (I AM SORRY"," I SPEAK ONLY ENGLISH)))) (RPLQQ FRANCAIS PRIORITY 0 RULES (DEUTS(PERHAPS I WAS 3 ".") (WHAT IF I HAD BEEN 3)))) (RPLQQ WERE PRIORITY 0 TRANSLATION WAS RULES (WAS)) (RPLQQ ME TRANSLATION YOU) (RPLQQ YOU'RE PRIORITY 0 TRANSLATION I'M RULES (((0 I'M 0) (NIL) (PRE (I ARE 3) YOU)))) (RPLQQ I'M 3 ".") (WHAT WOULD IT MEAN IF YOU WERE 3) XXWHAT) ((0) (NIL) (WHY DO YOU SAY 'AM') (I DON'T UNDERSTAND THAT)))) (RPLQQ ARE PRIORITY 0 RULES (((THERE (ARE IS) (NO NOT) 0) (NIL) (WHAT IF THERE WERE 4) (DID YOU THINK THERE MIGHT BE 4) (PRE (TLIEVE THAT YOUR 2 3 ".") ) ((0 YOUR 1) (NIL) (YOUR 3) (WHY DO YOU SAY YOUR 3) (WHO ELSE KNOWS ABOUT YOUR 3) (WHY DO YOU MENTION YOUR 3 JUST NOW) (WHY IS YOUR 3 IMPORTANT TO YOU) (DO YOU OFTEN DISCUSS YOUR 3) ) )) )) (RPLQQ PERHAPS IED ABOUT SOMEONE ELSE'S 3) (REALLY"," MY 3)) ((MY 0) (NIL) (PERHAPS YOUR OWN 2 ".") (ARE YOU WORRIED THAT MY 2)))) (RPLQQ WAS PRIORITY 2 RULES (((WAS YOU 0) (NIL) (WHAT IF YOU WERE 3) (DO YOU THINK YOU WERE 3) (WERE YOU 3) (WHAT WOULD IT TY 8 RULES (((0) (NIL) (DO COMPUTERS WORRY YOU) (WHY DO YOU MENTION COMPUTERS) (WHAT DO YOU THINK MACHINES HAVE TO DO WITH YOUR PROBLEM) (DON'T YOU THINK COMPUTERS CAN HELP PEOPLE)))) (RPLQQ MACHINE PRIORITY 8 RULES (COMPUTER)) (RPLQQ MACCH)) (RPLQQ SVENSKA PRIORITY 0 RULES (DEUTSCH)) (RPLQQ ITALIANO PRIORITY 0 RULES (DEUTSCH)) (RPLQQ ESPANOL PRIORITY 0 RULES (DEUTSCH)) (RPLQQ HELLO PRIORITY 0 RULES (((0) (NIL) (HI"," HOW ARE YOU)))) (RPLQQ COMPUTER PRIORIDAD TRANSLATION FATHER FAMILY T) (RPLQQ FATHER FAMILY T) (RPLQQ SISTER FAMILY T) (RPLQQ BROTHER FAMILY T) (RPLQQ WIFE FAMILY T) (RPLQQ CHILDREN FAMILY T) (RPLQQ I PRIORITY 0 TRANSLATION YOU RULES (((0 YOU (WANT NEED) 0) (NHAT ANSWER WOULD PLEASE YOU MOST) (WHAT DO YOU THINK) (WHEN HAVE YOU ASKED SUCH QUESTIONS BEFORE) (WHO ELSE HAVE YOU ASKED)))) (RPLQQ BECAUSE PRIORITY 0 RULES (((0) (NIL) (IS THAT THE REAL REASON) (I SEE ".") (DON'T ANY OTHER REASONS COME TO MIND4 ".") (DO YOU SOMETIMES WISH YOU WERE 4)) ((0 I 0 YOU) (NIL) (WHY DO YOU THINK I 3 YOU) (YOU LIKE TO THINK I 3 YOU - DON'T YOU) (WHAT MAKES YOU THINK I 3 YOU) (REALLY? I 3 YOU) (DO YOU WISH TO BELIEVE I 3 YOU) (SUPPOSE I DID 3 YOU - WHAT WOULD THNOT SURE YOU 5) (DO YOU REALLY DOUBT YOU 5)) ((0 YOU 0 (NIL BELIEF) 0 I 0) (NIL) (PRE (6 7) YOU)) ((0 YOU ARE 0) (NIL) (IS IT BECAUSE YOU ARE 4 THAT YOU CAME TO ME) (HOW LONG HAVE YOU BEEN 4) (DO YOU BELIEVE IT NORMAL TO BE 4) (DO YOU ENJOY BEINE TO BE ABLE TO 3 YOURSELF ".")) ((CAN YOU 0) (NIL) (WHETHER OR NOT YOU CAN 3 DEPENDS ON YOU MORE THAN ON ME ".") (DO YOU WANT TO BE ABLE TO 3) (PERHAPS YOU DON'T WANT TO 3 ".") XXWHAT))) (RPLQQ IS PRIORITY 0 RULES (((IS 0) (NIL) XXWHAT) ARE))ABORATE ON THAT) (DO YOU SAY 2 3 4 FOR SOME SPECIAL REASON) (TELL ME MORE ABOUT YOURSELF ".") (OH? 2 3 4) (THAT'S QUITE INTERESTING "."))) MEMR (((0 YOU ARE 0) (NIL) (ARE YOU STILL 4) (EARLIER YOU SAID YOU WERE 4 ".") (MAYBE NOW WE CAN DISCUSS WHIL) (WHAT WOULD IT MEAN TO YOU IF YOU GOT 4) (WHY DO YOU WANT 4) (WHAT WOULD GETTING 4 MEAN TO YOU)) ((0 YOU ARE 0 (SAD UNHAPPY DEPRESSED SICK ILL) 0) (NIL) (I AM SORRY TO HEAR YOU ARE 5 ".") (DO YOU THINK COMING HERE WILL HELP YOU NOT TO BE 5) (CA MORE INFORMATIVE) (PERHAPS YOU'D RATHER TALK ABOUT SOMETHING ELSE ".") (PLEASE TELL ME MORE ".")))) (RPLQQ YES PRIORITY -1 RULES (((0) (NIL) XXYYZZ (WHY ARE YOU SO SURE) (I SEE ".") (I UNDERSTAND ".")))) (RPLQQ NO PRIORITY -1 RULES (((AT MEAN) (DOES SOMEONE ELSE BELIEVE I 3 YOU)) ((0 I 1 0) (NIL) (SUPPOSE YOU 3 4 ".") (OH? I 3 4) (WHAT MAKES YOU THINK I 3 4) (WHO ARE YOU REALLY TALKING ABOUT)))) (RPLQQ XXYYZZ RULES (((0) (NIL) (IS THERE SOMETHING BOTHERING YOU) (CAN YOU BEG 4)) ((0 YOU (CAN'T CANNOT) 0) (NIL) (HOW DO YOU KNOW YOU CAN'T 4) (HAVE YOU TRIED) (PERHAPS YOU COULD 4 NOW ".") (DO YOU REALLY WANT TO BE ABLE TO 4)) ((0 YOU (DON'T WON'T) 0) (NIL) (DON'T YOU REALLY 4) (WHY DON'T YOU 4) (DO YOU WISH YOU DID 4 (RPLQQ WHERE PRIORITY 0 RULES (WHAT)) (RPLQQ WHAT PRIORITY 0 RULES ((((HOW WHERE WHAT WHY) 0) (NIL) XXWHAT))) (RPLQQ XXWHAT RULES (((0) (NIL) (WHY DO YOU ASK) (WHY DOES THAT QUESTION INTEREST YOU) (WHY ARE SUCH QUESTIONS ON YOUR MIND) (WY YOU ARE 4 ".") (DID YOU TELL ME YOU WERE 4)))) (RPLQQ YOU PRIORITY 0 TRANSLATION I RULES (((0 I REMIND YOU OF 0) (NIL) DIT) ((0 I ARE 0) (NIL) (WHAT MAKES YOU THINK I AM 4) (DOES IT PLEASE YOU TO BELIEVE I AM 4) (PERHAPS YOU WOULD LIKE TO BE N YOU EXPLAIN WHAT MADE YOU 5)) ((0 YOU ARE 0 (HAPPY ELATED GLAD BETTER) 0) (NIL) (HOW HAVE I HELPED YOU TO BE 5) (HAS YOUR TREATMENT MADE YOU 5) (WHAT MAKES YOU 5 JUST NOW)) ((0 YOU (NIL BELIEF) YOU 0) (NIL) (DO YOU REALLY THINK SO) (BUT YOU ARE 0 NO (BODY ONE) 0) (NIL) NOBODY) ((0) (NIL) XXYYZZ (VERY WELL ".") (WHY NOT) (WHY 'NO') NEWKEY))) (RPLQQ CAN PRIORITY 0 RULES (((CAN I 0) (NIL) (YOU BELIEVE I CAN 3 DON'T YOU) XXWHAT (YOU WANT ME TO BE ABLE TO 3 ".") (PERHAPS YOU WOULD LIKSH TO 2 ME) (YOU SEEM TO NEED TO 2 ME ".") (DO YOU 2 ANYONE ELSE)) ((0 YOU (NIL EMOTION) 0) (NIL) (WHAT ELSE DO YOU 3) (TELL ME MORE ABOUT 4 ".") (WHY DO YOU 3 4) (I DOUBT THAT YOU REALLY 3 4 ".")) ((0 YOU 1 0) (NIL) (YOU SAY 2 3 4) (CAN YOU EL) (DOES THAT TROUBLE YOU)) ((0 YOU FEEL 0) (NIL) (TELL ME MORE ABOUT SUCH FEELINGS ".") (DO YOU OFTEN FEEL 4) (DO YOU ENJOY FEELING 4) (OF WHAT DOES FEELING 4 REMIND YOU)) ((YOU 0 I) (NIL) (PERHAPS IN YOUR FANTASY WE 2 EACH OTHER ".") (DO YOU WI) (DOES THAT REASON SEEM TO EXPLAIN ANYTHING ELSE) (AND WHAT DOES THAT SUGGEST) (WHAT OTHER REASONS MIGHT THERE BE)))) (RPLQQ WHY PRIORITY 0 RULES (((0 WHY (DON'T WON'T) I 0) (NIL) (DO YOU BELIEVE I DON'T 5) (PERHAPS I WILL 5 IN GOOD TIME ".") ".") (DO YOU KNOW MANY 2)))) (RPLQQ GIRL PRIORITY 3 PERSON T RULES (BOY)) (RPLQQ MAN PRIORITY 3 PERSON T RULES (BOY)) (RPLQQ WOMEN PRIORITY 3 PERSON T RULES (BOY)) (RPLQQ SEXY PRIORITY 5 RULES (SEX)) (RPLQQ SEXUAL PRIORITY 5 RULES (SEX)) )) (RPLQQ NOBODY PRIORITY 2 RULES (((0) (NIL) (SURELY SOMEONE"...") (PERHAPS YOU JUST DON'T KNOW OF ANYONE ".")))) (RPLQQ NOONE PRIORITY 2 RULES (NOBODY)) (RPLQQ ALWAYS PRIORITY 1 RULES (((0) (NIL) (CAN YOU THINK OF A SPECIFIC EXAMPLE) (WHENOUR FRIENDS)))) (RPLQQ CRY PRIORITY 2 RULES (LAUGH)) (RPLQQ LAUGH PRIORITY 2 RULES (((0 (LAUGH CRY) 0) (NIL) (WHAT WOULD MAKE YOU 2) (REALLY 2) (WOULD YOU LIKE TO LAUGH) NEWKEY))) (RPLQQ LOVE EMOTION T) (RPLQQ HATE EMOTION T) (RPLQQ DRIORITY 3 RULES (((0 (GIRLS WOMEN) 0) (NIL) (PRE (1 2 S 3) BOY)))) (RPLQQ WOMEN PRIORITY 3 RULES (GIRLS)) (RPLQQ BOY PRIORITY 3 PERSON T RULES (((0 (NIL PERSON) FRIEND 0) (NIL)) (I WOULD LIKE TO MEET YOUR 2 FRIEND ".") (PRE (1 FRIEND 4) FR(SHOULD YOU 5 YOURSELF) (YOU WANT ME TO 5 ".") WHAT) ((0 WHY CAN'T YOU 0) (NIL) (DO YOU THINK YOU SHOULD BE ABLE TO 5) (DO YOU WANT TO BE ABLE TO 5) (DO YOU BELIEVE THIS WILL HELP YOU TO 5) (HAVE YOU ANY IDEA WHY YOU CAN'T 5) WHAT) WHAT)) (RPLUT SEX) (WHY DO YOU MENTION SEX) (COULD SEX BE PART OF YOUR PROBLEM) NEWKEY)) MEMR (((0 YOU 0 SEX 0) (NIL) (EARLIER YOU SAID YOU 3 4 5 ".") (TELL ME AGAIN WHY YOU 3 4 5 ".") (DO YOU SAY THAT BECAUSE YOU 3 4 5)))) (RPLQQ FRIENDLY PRIORITY 0 RULE (RPLQQ SEX PRIORITY 5 RULES (((0 YOU 0 SEX 0) (NIL) (ARE YOU SURE YOU REALLY 3 IT 5) (DO YOU REALLY WANT TO DISCUSS SEX) (PERHAPS YOU ARE WORRIED THAT YOU 3 IT 5) NEWKEY) ((0) (NIL) (WHAT ARE YOUR REAL FEELINGS ABOUT SEX) (DO YOU EVER DREAM ABO) (WHAT INCIDENT ARE YOU THINKING OF) (REALLY"," ALWAYS)))) (RPLQQ LIKE RULES (((0 (AM IS ARE WAS) 0 LIKE 0) (NIL) DIT)) EMOTION T PRIORITY 3) (RPLQQ DIT RULES (((0) (NIL) (IN WHAT WAY) (WHAT RESEMBLANCE DO YOU SEE) (WHAT DOES THAT SIMILARITISLIKE EMOTION NIL) STOP :::::::::::::::::::::::::::::::::::IEND) (SUPPOSE THE FRIEND WERE NOT A 2 ".")) ((0 (NIL PERSON) 0) (NIL) (WHY DO YOU SAY A 2) (WHAT 2 ARE YOU THINKING OF) NEWKEY) ((0 (NIL PERSON) S 0) (NIL) (WHAT GROUP OF 2 ARE YOU THINKING OF) (I EXPECTED THAT YOU WOULD WANT TO TALK ABOUT 2QQ EVERYONE PRIORITY 2 RULES (((0) (NIL) (CAN YOU THINK OF ANYONE IN PARTICULAR) (WHO"," FOR EXAMPLE) (YOU ARE THINKING OF A VERY SPECIAL PERSON ".") (YOU HAVE A PARTICULAR PERSON IN MIND"," DON'T YOU)))) (RPLQQ EVERYBODY PRIORITY 2 RULES (EVERYONES (FRIEND)) (RPLQQ FRIEND PRIORITY 1 RULES (((0 YOUR FRIEND 0) (NIL) (WHAT ELSE CAN YOU TELL ME ABOUT YOUR FRIEND) (WHAT MIGHT YOUR FRIENDS HAVE TO DO WITH YOUR PROBLEM)) ((0) (NIL) (DO YOU THINK FRIENDS ARE IMPORTANT) (WHAT DO YOU THINK ABOUT Y (RPLQQ EVERY PRIORITY 0 RULES (((0 EVERY (ONE BODY) 0) (NIL) EVERYONE) ((0 EVERY TIME 0) (NIL) ALWAYS))) (RPLQQ DO PRIORITY 0 RULES (((DO I 0) (NIL) (PRE (I 3) YOU) XXWHAT) ((DO YOU 0) (NIL) (PRE (YOU 3) I)) XXWHAT))) (RPLQQ GIRLS PY SUGGEST TO YOU) (WHAT OTHER CONNECTIONS DO YOU SEE) (WHAT IS THE CONNECTION"," DO YOU SUPPOSE) (HOW)))) (RPLQQ OH PRIORITY 10 RULES (((0 YOUR OH YOUR 0)) (NIL) (PRE (1 MY-OH-MY 5) NEWKEY)) ((0 OH YOUR 0) (NIL) (PRE (1 OH-MY 4) NEWKEY)))) %File: CONTALK.LIB (c) 06/17/80 The Soft Warehouse % (DEFUN READSENT (LAMBDA (SENTENCE WORD) (LOOP ( ((MEMBER (RATOM) SEPLIS) (SETQ WORD (PACK (LIST WORD RATOM (RATOM)))) (SETQ SENTENCE (CDR SENTENCE)) ) (SETQ WORD RATOM) ) ) ) ( ((MEMBER WORD PCTLIS)) (SPACES 1) ) ( ((MEMBER WORD CAPLIS) (PRTCAP WORD) ) (PRIN1 WORD) ) ) (SETQ PRINT T) )) (DEFUN PRTCAP (LAMBDA (WORD) ((NUMBERP WORD) (PRIN1 WORD) ) (PRETERPRI WORD) (SETQ WORD (UNP ((MEMBER WORD TRMLIS) (REVERSE SENTENCE) ) (SETQ SENTENCE (CONS WORD SENTENCE)) ) )) (DEFUN PRTSENT (LAMBDA (SENTENCE WORD) (SETQ PRINT) (PRTCAP (CAR SENTENCE)) (SETQ SENTENCE (CDR SENTENCE)) (LOOP ((NULL SENTENCE) ACK WORD)) (SETQ PRINT T) (PRIN1 (CAR WORD)) (SETQ PRINT) (LOOP (SETQ WORD (CDR WORD)) ((NULL WORD)) (PRIN1 (CAR WORD)) ) )) (DEFUN PRETERPRI (LAMBDA (WORD) ((GREATERP (PLUS (SPACES) (LENGTH WORD)) (DIFFERENCE (LINELENGT (PRIN1 (QUOTE ?)) ) (SETQ WORD (CAR SENTENCE)) (SETQ SENTENCE (CDR SENTENCE)) ((MEMBER WORD TRMLIS) (PRIN1 WORD) ) ( ((OR (NULL SENTENCE) (MEMBER (CAR SENTENCE) TRMLIS) (MEMBER (CAR SENTENCE) PCTLIS) ) (PRETERPRI WORD)H) 10) % FOR MULISP79 % % (LINELENGTH) % % FOR MULISP80 % ) (TERPRI) ) )) (SETQ CAPLIS (I HAWAII)) (SETQ TRMLIS ("." ! ?)) (SETQ PCTLIS ("," ; "(" ")" :)) (SETQ SEPLIS (' -)) (SETQ READ) STOP