J<&MJ=JJJ@F 3 C @>) <]?J@* JJ<JJJ)JJ*J@@A f2*'&>J l@ȑ @ Б = 3JAJ*J&6H777777777777JJJJx 77 L778777777776 77H67 77777 7`77 77 7777`x =(`(8`5775I7`B` 76`77`2>&JJJ;ȱ>'JJJ3;ȱ>*JJJf;ȱ>J&*J&'J&&;ȱ>J&*J&'J;&*)<')3<*)f<>)Ƚ3Ƚfȥ&);>ȥ');>`+*xS&x'8*3Ixix&& 8 l:: {:' o:: {:& {:x)*++`FG8`0($ p,&" (0 8@ HPX !"#$`h%&px')*+,-./12345679:;<>                -<L >    HIHHHHhHH݌hHh݌H6 ( FG HZXj 80x e9$xxH` >( K>h K>L=.x"xH >hh@(L9>7H/L>HH/Hh/ ۠-HЕ( 8( 9$8 H` j8HNx`. >x$50x.$50xL:JJJJ`HHjf5 >h $50x`xA :JPG'K݌$HhHhꝍ݌KGHhHhꝍ݌ ? ? ?/ ?A ?K ?/EAEKHJJ݌h ? ? ? ? ?F HhHh݌FG$Ki K ,KL>HhG02HhHhHh e9- GL>AA# :GȄGL>@L9>L7>HJJ݌h Hhꝍ݌``L%c*p*q*` ['*` ~.3 #3 L3LA@@&E&&A@@&AA)߅CBBH&E&&A@B& ChLQhBAȌy8zx8v{v I7H7@)*AL@m{@AAA,+i(ˢ3Z@[A@ /@v wm{@8/e@@eAA3]ͥ@\ƊiY?AyC@B@B|ACLT$VXZdflpx|~**7777(*377558:=?@##topmnU^_R ij^_lk 󅔆nmLY^^ȱ^ȱ^eȱ^e(ӊ0Цe^^u**`*5".Q`pN%$#$$b"p"t""%%%%"""m%2"<"("-"P"y%%0#\##|"6$6$$$e<%%g< 7JJJJj*7h*I * aUL@* kU8*  L % Q(^*R*(jQ*0l^l\ * wU*u**W* '* H &h@ ['_* /QSIRb*_*L!`LLL*L7`**`LQ(LYLeLXLeLee Q*H\*(h0L&& $`(* &R*  \*Z*Ll8 R* HH\*`\*Z*[*Y*S*6`*LxQ*ɿu3'R*Ͳ*ʎR*ʎ]*]*]*ɍuLɍ}R*LR*ɍ*g^H8* ^&hZ*LɍR* &LͲ*ɊR*R*%* Q(L$Ͳ* Z*@ -^*  \*[*Z* Q(Y*\*[*Z*8`l6L_*Ȍb*_*Ͳ*]* !)Y( h( (֭Ͳ*Lɍ ['LL&_*_* ^& 9 )L&3 9 )a  ! 0L jLY ! u*< !(_*9 ) ˭*ɠu*ɠK_*9 )?L ˆʎ55L $ 5 55555 &a*5`*5` "L&5_*b*JL%u**Lz%`** $  Q(lXJ̥KlV $  Q(lV eօ3L e3L &%R*L &%Q*L d' "L4% N'e*)n*5 5 &`@-e*f*f* 5 "L# "5f*`L %.* *t*Q*L$ %L&*L` "O**P**u** d' "L% N'e*)n*o*o*n* &8ɍ` ^&f\*555L& ^&NR* & "R*ΩL&)\*Z* ʽ LH*v 3h`0h8` " ['L & N'С55 &5`*A*@` + d'@55`  \* ?*0 '\* '  Q( ^&\*lZl^?*c*q)H c*h`f*5h*5j*555@O*AP*`u*@`@5&`Q*R*`E 'Ls' ' ' @DAE@u*`8` %@ @A@`@`**@*A`M5 ) "L&`8@AW*c*@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@c*h8&ȑ@Hȑ@Ah@L'Hȑ@ȑ@* htphso`hMhL`9V*8U*897T*6S*67`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- ( Ϡ734@~3!+,W,o,*--,,9,-.-~3~3,,,,~3~3,,,,~3_*3 j.5 *H*H`Lc3 (+L3 +55555 1^3_* )3J Q*L_3Ls3443 D23455545554 70 / 7 :/354545455454555535L^/5-5I5555 55` / 4/ 2-5! / 08555454 70L3 (+50+5B5C3 2 70L35 *H*H`Lg3L{3505 *H*H` 3 ,5L3 3 1 ,H 1hBL, 0 BH [1 1h`Lo3 35 ,L3 3 1B , 1L,H 0hB@ 55 [1L133 (+4D4E B. 4  /. 02L3 Ν3 3`HD٤33DEEhiHLG.h ` /5B5-` /5B-` + X05I33383 33DH /4 E03744Ȍ7 X040 7 J7L35B5C`,5p` / R0-55`50` K/ R0-55`575755` 4/ K/ /( 55L/BȱBL/58` D2BH5BH :/ 75Bȭ5Bhh55 R0B5m55ȱB5m55` /LR0557755`*/B58` 41L 15ȱB5 /5555 /5`3 D23ȑB55B5 / 7 55`5555555555 5555`555`55BC55`5555`L3 /5B5C355 0Q340"B4 3` 02۰Ϭ33B438`3i#`3ЗLw35!50>5555`53 /3m3 3 3733i35 3583 /35ЉLw35`H /5h 25L/~43 533`55555555J5m55m5jn5n5n5ۭ55m5555m55m55`"L? 585H ~.(3` d ֠ z#  u*` -cc '" # $ $@ %Mi ' - /p#q3 - ,.A0ʩ # , s. &__Ln +Hh йA+ $ # # #  {$ $( i$ 2$@ $L P#L1 I< B$PL8  y zzL   = Ln4CRwMsĥ `b  PJ TuVTvP` P&Q&R&S8RTSURSP`/T P 8/`Z8`l6 00000000Ȍb_Ͳ] )Y h( )煤h' hBHP% Q % hMLQǡ~q~ȱ~ň~Ĉ~~ ie~~PL8L~ȩ~%Q);~7~~ Y ^ U h= U U  hʥąŅ hLnīеeL!! ~8!P!Q)' Y ^ U  8~!P!Q  `|ňpMlŝ |Ŝ|尪H|J*0 !qiJㄮ8񮪥 8@ ȑ||`|| `嚪}囨ee|J*0 ȱ|e||}}@ |!}!|Jː~|}|H jh8e||}}M|} j| j u|J 0  j 奇|} S|J|} |J|8嚅}Ƭ񅥭!樥)| PQ  ~ | |饿 ~|}M5| |8e||}|  |8e|}|}M u,|ɂ   ||}(  (P u|J L}||ȥ||} Z|J|LDȱȅȱĩ!ŠL^ȱą ĝ ĞHȅh0 L Ln I%Ln|!}` u|)| `j-j+*8*0ȱ0 `8* 0ȱ𾪈ư̥HH hhL! ……zȥ{ zz à…ȱLl )  L  S c 8Lh ʵȱȱ L ʵ ʈ ` Sȱ-H y zz{zhH {zhLn!   a G Ln ű0@ ȱ ȱ!ȱȅȱȅȱȱȱȱǠ`ȅƥɅ`   -åʅ ȱ••Bؠ H…hنL L  赾 ʆ`Ll  \ Lb  y {Ñzzˆz \ y  {¥ząȱąуֈуϩ` ȅĥɅ Ln S ȱLn S ̑ȥ͑Ll y zĥ{ y ȈĥͅzȈĥ̅zˑz{ĈʑzzĠőȈđLn S 2ąȱąǠȪƑȥǑLfȆɅȠLb  ` 3RSTȱU ]RSЗQ0f/P  c PzȥQzL  c 0 ȱ8JJtzȩzL  SȅȱLlʑȥˑ aLn ȴʕʔ ɀQ0ȱȰLfLbȅȱȅ`Īȱ`ņĢ Ln|) ȱ|!|` LbPR RS c ȅPʅTvȅQʅU ~F/P zȵzL   c 8ʑzȱp`    <!>!? Lb a SW h^ !8!! ALn` ȅɅ` ȅQȅP` jHHlP jPPQL8 jʠPʅLl u|1 ,|¥} y zzÅ}z…|z{z Ln  Ln ,-w!-J'-! --,-o!&-a,<-!7-)!A0-+-!--w!K-J'}-R!i-O,d-f!_-J'Z-U-x-!s-J'n-AP-F-A--o!-a,-!-)!D--`--w!-J'-R!-f!-J'V--O,-!-J'----/-3.o!-+ ,!,%-+-+,(,*-,;,{(1,f!,,T'-',6,*-",-+$.+-*-W,E1 !x,J's, )!COMMANDa,=n,8\,.",0",,w!,a,,![,y,,&,o!,a,,!,)!.Q,,,,J'.,.!-o!,a,,!,)!R,M,$+2)+*** *$+!+T',+)+E,!=+!8+%3+[+{(Q+f!L+T'G+V+*B++w!e+*}+y$o+*x+t+)j+)`+@,"+w!+T'+!+T',+f++!+"+T'+!+T'-+)++!+%+T'R++!+,&+!+T'o8*$*^)3*!*T'** *.*!)*%*) *E*+)))E)*%"~*w!Q*^)y*E)e*f!`*T'![*t*$o*^),j*!V*+L*,G**w!*T'*!*T'!*!*+),),r), !*T'*)!RN***,*J,!)+"*!*T'*+E)*T' +( )$)()(((()!#)%*)$()A)*LINEWIDTH&T)CHARCOUNT !m)T'h) )!+LEFT^):Y)*!)!|)T'w))!)l%)^))%)T'D)?))$)^))%)T'l) )T)k) )*!*"B*&)!)T')=*E))T''''(!(%(p'(v(G!<(!7( )!^VALUE+(E&(A(%X(!S()!MISK(F(](%l(!g('b(q(%)!((**SUPERPRINT{((f!(p'*(*((G!*(( (' (XTAB !()!S(*((G!)(-)")&)#)w!(c9F2le_/DE )!NAME)!'Xk'ASUPERVISOR !' )!XMASp'1z'''("'0")''G!'!')!6^EVALUATE'!''%'!')!T:'O''%a'(w!'p'(+&'\!'!')%. m$UNTIL s$FSUBRP&ERRORCOUNT&ERRORSET &CALL &PEEK &POKE &OBLIST &APPLY 'MAPC 'MAP 'CHARACTER 'ORDINAL 'EXPLODE 'IMPLODE $'PR# *'IN# 0'GETCHAR yM %$RPLACA +$RPLACD 1$CHARS %DOLLAR%CR 7$MESSON <'MESSOFF =$GET C$PUT I$REMPROPO$GREATERP U$PLIST%$% [$CHARP a$LISTP g$ASSOC 6'DOS %LPAR %BLANK %RPAR %PERIOD%(% %!%IW5KyPe a #PLUS#DIFFERENCE #MINUS #SUBRP #TIMES$QUOTIENT$REMAINDER $LESSP $SUB1 $ADD1 $RECLAINUMBERP #ZEROP #ONEP #MINUSPF #SAVE #LOAD   >*2":&.  i{ h]69   A#PROGN G#LOOP M#WHILE S#PAGEY#PAGELINES _#LIST e#CAAR k#CADR q#CDAR w#CDDR }#CAAAR #CAADR #CADAR #CADDR #CDAAR #CDADR #CDDAR #CDDDR #AND#OR #ERROR !NOT #8/!T !LAMBDA NIL "QUOTE)!)!UNDEFINEDVALUE !NULL !PRINT !CONS !EVAL !CAR!EQ !SETQ !SET !ATOM !READ !CDR !PRIN0 "COND^6B0  $66%7!7)!EOF 777%*7!%7/ 76C7w!97T'>7*477"a7&\7#W7T'R7M77w!k70-7R!u7T'z70-p7f77w!7T'7$7T'H77H77B277(37!70-77!7477!7.77*7-#8/5c6"6!6 )!MAXIMUM 66"6%<6!76 )!DISCS,6'6A6%P6!K6K(F6U6%^6 Z62635056@%{6w6r6645866G!)66G!6/7G!6!6 )!THE6866%6!6 )!FAMOUS666%6!6 )!TOWER685&%5# 5w! 545$5455544<57GR !A5]5M&O5"K5X5T5_F5y5M&k5Sg5t5p52b55M&5P5557~559&5655 !5*50-55455.55T'55m6!h6l%5*5 573*)3H33m3F !44 )!5DELAY4+4d&4/4P4M&B4>4K4G4694l4M&^4Z4g4Lc4U44M&z4v444q44M&444444V240-4 444V24)!B44444V24.44D4/5"*f2,23/ 3/22!2N22! 23MOVE !h3 )!FROM73N3)!!TOF3^3 )!SPARES3c3*WA34!3o!w3*3|35r3313733F3533 4!3(33733S33F33$3*33313733F3534(33S33F33734$1 2\!21323131=2!2182!32\!.213)2$242Q2 4DRAWB2L2S a2DRAW1 !2)!GLf2r2/2/|2w2m2#3!2=!2f22202/2 22/2222/123!3$3/2/2f!2f223V23!20P1$F1!.1o!1/112 1)1%1 1A1!<1&81311K1/10 d13TEXT !i11M&w1"s11|1n11M&1Q111D1: 1REPEG !1 )!PEG111 )!PEG21N12!112R!1f!1\!1114UP//=0 e0HLIN00/ 0 0/0$*0/%080400[00G0/L0/Q0/V0/B0`0/ !0/o0/t0/0 )!COLOURy0j009&0d00y0200M&000$0/0/000M&0,00y$0/0/200U19&02/V%/./!/ )!OLDDEF //-/\!(/.#/.Z/!7 !97)!* )!INSERT: 8LGETFILEJ'{77@%77G77%7 )!OPEN7!777J'77%7!!777J'77G!7)!?7!7775546y$6 6*6 6TOKENS16%6T' 66/65 !5T'C66!j6=!W6T'R6e6a6\66!t6T'o66~6y66y$656f!6T'66666!6T'6666M6 !H6T'6 7w!637y$656T'4)B443L435%35T'5 554#5(5!!-53475-4<5&A534K5-4P5F5U525Z54_5&}5l%s53x53n5i5d5"55$~453`45555!55-5545!55- 45 !5 >6TOKENST'596!6!5T'55PRIN0**4,T'4T'!4*2)4$4$4T')4A).434 484"=4T',%T'f!Q4*V4[4*)*e4y$j4o4)*t4w!y4T',!44fT'4w!4T'-!44)T'4"4T'o!4%-*-(4T'-f!4*-44l%434343G42^3!3! 3T'33T'3Y3R!63213f!,3T''3"3O32J3!E3T'@3;33T32 !2 )! BACK )!DOWN )!KILL )!RIGHT5SPRINTER]7EDTOKENS"7SPTOKENSU>LINEPRINTT'32)3O3&33{(3T' 7S.1c2!^2";2%"2!2T'8212 %'2T',2."262k012Y2w!E2T'T2!O2T'1J21@21 2211 !1 Z=REMOBT'T'2)!!22 x&2 !2.22_%2T'2f!2.222!222z%2T'22 c3dCOPYT''0.1k001!,1o!1.1k01'1T'"1E1!61k011@1k0;11!1R!r10Y1T'^1.m1f!h1k0'c1"T110|1T'1.1!1k0O1@w1JO1J11 ! 1 m20NCONCT'1.1k001811w!1k01T'1h2!1=!1T'811 !D/ H?MEMBERT'0.!%"0.T'10f!,0.4'0!.4w!@0.O0!J0.4E0!;03 05REVERSET'w0)!#Zk0r0f00"0%"0T'0k000w!0k00R!0f!0T'00k0000w!0T'0!0T'000 !|0 1TSUBSTT.T'.!/./!/T' //./... !.T'?/.://!b/o!S/T'X/.N/]//"v/!q/T'l//!/.{/g////"/./f!/T'//f!/.///./!/T'//!/.////I/- .!.T'1.1-1-%.f! .T's. eBTYI d. TYO*<.Z.!U.&P.*K.F._.! !A.$VGC,p0ED AED1 F=EDPRINTAJB)!K)!I / EQUAL J3APPENDT'.)!Y..0/!.=!.T'....+/!&/R!/f!-PJlC,-, ,7-w!-J'2-R!(-!!#---J'---J+* U-EDIT !j- )!FNAMEZ-0e--V%t-Z--!- )!OLDDEF~-y--\!-Z--o--!-Z--*-\!-Z-- -T-1 !-T'.!-f!-T'-.R!-!- !!77D !D)!+V7EE%E!EV73E/ED CONSTANTT'%D9D"4DT'/D !*DDVARMATCHERT'SDD"lD!gDT' bDD"D"{DT'wvDqDDo!D&DT'#DD@DDH]D! !XD THfMATCH# VAR@?T'DD&D!D&DT'DD'MAPCAR )!ZZZ LET1CC\!CR!rCR!6C !!,C1CmCR!YCBECf!TCf!OCCJC@ChC!cCC^C;C'CCB|C]"Cf!CCCwC"CC !CDCONMATCHERT'GC D"C!CT'CC"C"CT' C)CDo!C&CT'PROG1T'B BT' !B B5TYIPEEK!.B&)B$B0&3B8B!B=Bw!BBGBBLBAQBVB[B !`B BSCANIB"B%"B"Bo!BBB BBBo!BBB BBB~BB*.ByB !tB( BGMREAD1 !B CLET @J'f!@AM?Aw! AJ'!AAJ'!Aw!&A+AA0A@5A@:A.!DAIA*NAo!SAa7!]AbA!gA!qA\!vAJ'{AAR!AAJ'Aw!AAlAAXAAA?AA@AT@A!AA?A?A?As?Ai?A"AAd?A !A B3!??!@J'f!@@y.@J'!"@'@@,@R!1@6@J';@w!@@E@ @J@?O@^+!Y@^@*c@o!h@3 !r@w@!|@J'f!@J'!@@y.@@@@R!@@J'@w!@@@@m@@.!@@*@o!@|3!@@ !>>3>>>?"? ?4>? !?."0 ?60&%?*?T00/?"4?9?40>? !C? &aKILLREG*Z?J'_?0"J'.n?V7!x?}?!?& ?*?w!?.!??*?o!?h3!??!?J'????&? ,!??*?o!?r== !{=G!&>>>G!$>>3)>3.> >3>@%F>B>=>8>3K> !P>' >DEFT'g>>">o!{>T'>)!!>>v>q> !l> ?MEMQ.!T'>.%">.4f!>>!T'>o!>.4>>&>.4!>>!.>w!<<<< !=(= =<=T'=G!T'3#=G!-=(=2==7==<= !A=!2K=2}2P= !U= >MAXT'v=*r=m=h=>"=%"=T'=*==!=l%=f!=T'==*==w!=*=f!=T'===A==w!=T'=!=T'=@;<$<*< <<;;$<+;;UP\PXPPy$fPNP!P%P]"zP KuPP8KpPkPaPP!P3LP9PI"PKP]"P KPPNP8KPP!PCPPPPPPPN"Oo! O KO!O!OO-O"(O K#OO|OI"wOI"KO!FONAOTOPOrOI"hO!cO!^OmO KYOqCOMPEXPKK KK$K*KK8KII III !I $oFOOJ0J vBAR'J )!BLETCH5J )!BARFFJ )!LLLLUJb=!_JdJiJUJf!sJxJ\!}J.!JUJ!JJJJR!JJ\!JJJJIJJJnJJ!JJUJJ !J J+WSP )!!LCOM4 OASSOCE I+I"IHI+IEI !I8,II!SI=!@I8X;INIJIEI{I$qIHlI!gI8bI]IXIvI6I !1I 5/APPEND1 JDROPT'IJ!I=!IT'III J!JR!II"If!IT'IIJII!IT'"GGGGfE]E Ho!HHH HHG"HPG'HF,HF1H.F6HF;H!@HEHEJH !OH*YHH!|H#mH*hHwHrHH#H*HH!HHEH*HHHHEH$H*HHHHHcH !^HM7PP ILENGTH g$FF]E&GDG Go!GfE!G]EE#GfE(G-G!2G7GGG]EEGfEGG!GGGGӀfE]EEo!FFE F]E6=!FfE=!F$FF)F]E%3FfE%=F]Ef!GFfEf!QFVFLF[FD`F]E!jFfE!tFyFoF~FDFFeFFBFF"FF8FF]E&FDFFo!FfE"F]EEFfEFF!FFFF"FF^^ ^&_4^_!_k0 _ _!_^ !^)!M2k0B_5_G_XL_NQ_8Keo!j_S"e_k0`_s_o_!}_Oy$_N_!_%_g"_k0__8K_f_f!_3L_f!_k0f__5__y$_X__f__N_8Kfo!]N^^ ^8K tLOADAC^!^k0O^$/^+^J^ 0_CCOUNT4^E^k0@^&^X^T^v^$b^Nq^4^l^k0!g^]^{^8K~dCLASSIFYk0^+_!^=!^k0^^^^_o!^S"^k0^^^^_y$^^^4^^!^k0^R]]8K\.]K]"]V]$]N)]8K]}]I"Z]I"G]!B]:S=]P]L]U]88]x]I"n]!i]DLd]s]R_]3]]T]!]V]]N]8]8K]\\]r;]%]]Z !ZV]N]8Kk0 "tCOMPLIS]]k0a[\\ \8[[>\T*\!%\V \/\N4\89\8K\[[\o!\\S"W\VR\k\!f\!a\M\\I"\K\"\V2\\N\8Kz\\I"\I"\!\DL\\8P\U\Zu\p\] !\R\]I" ]R\S"\V\\N\!8[=![V[3[I".[I"$[![DL[)[8[[ [H\"`["[[!V[S"Q[VL[G[B[[o!t[{"o[Vnj[[!~[=!y[e[[=!["[V![D[6=[C\I"[K[ LoPCADAAR[[V[[N[8KM[\I"\I"[![ )!JUMPE[Y KYYuZI"pZI" Z!ZJQZ%ZX\Zy$/ZNWZ!RZ%HZ]"CZ K>ZMZ8K9Z4Z*ZkZ!fZ3LaZZ ZZZR!ZI"Z!ZJQZZXZXZZoXZ]"Z KZZXZNZ8KZZZX !XVZNZ8Z8KZ]Y!Y!Y]" Y KYYYI"YI"0Y!+YCP&Y5YXlYy$?YNgY!bY%XY]"SY KNY]Y8KIYDY:Y{Y!vY3LqY!YYYYR!YI"Y!YCPYYXYXYYoXY]"Y KYYXYNY8K-YYYXXzZ!Z]" KWX! X!XWW`X"8X!3X]".X K)X$X[XWVX]"QX )!EXPPGXBX=XXW !W ZCOMPC KX)!N2XXNX8KzXZ!X!X KXX )!ERRXX!XoX XXXYo!Xf!X KXX!Xf!XXV:VWWWI"3WK$Wf!WVW)WN.W8KWZW!UWDNBW3LKWGW=WPW8WWUnW!iWVVdWW$xWNW}WsWW8Kn_W WWV !V jX CCCHAIN KWeX"X"Wo!Wf!W KWW!Wf!WWXo!Xf!W!CADDARU V K V#V$VNV* VnV )!APEND(VdV|LGV"BV K=V_V$UVQVZVNLV8ViV8K3VUVL}V*xVUUVHV!V KVVVUV!V!VV!VVV)!UUVVNV8KVW! W=!VKTyUI"tUI"U!U9&U1UH,U!'U K"UU`UI"LU!GU)!E@U;U[Uf!VU KQU6UoU!jU(eU UUTTVo!US"U K UU!U !UUV !U*UVI"U WSTACKUPUU!U KUUNU8KUsVKV )KST! T!TSMT ]COMCONDT4T!/T K*T9TNCTr; >THT8K%TTTo!fTf!aT K\TuT!pT!kTWTTI"TI"T!TNTTTT KTTzTU!Tf!T KTT~UI"ToCOMPLISATT!T KTTNT8RSI"+S!&SNSS!S!S!S SS\SI"IS!DS )!JRST:S5SRSNSWSR0SzSI"pS!kSDLfSuSRaSS!SNSSSS$SSSI"S!SDLSSRSRRRSr;SSr;SSRRTo!Sf!S lR lf!lVllNl8ld l8KkRlg9l!4lV/l>lNCl8HldMl8K*lkWl k !kVplNul8zlRldl8Kklym!l=!lVllelRllm=!l!lVllmRlf!lVllNlRl"ld ll8KjckI"^k )!LST kKk!2kd-k!(kgf#kkFk!de! eVeCeR!9eR!%e!e4eg"/eV*e e>eEeHeede>dfe!aeV\eeR!zef!ueVpeeEkeedWeed !d3LeNe8ede )!VPTReerk!fo!e3Le!e!eef!fd f kck0cdN dy$d.dd d%d8Kc*dV4dyd eCLASS2>djd sCLASS1Od`dVed[dodtd!Jd !9dVdEd )!FLGdde!d=!dVddEdRe"dddo!dS"dVddddbNc8K!%cDNc3Lcc cp c!/ck08Ko!HcS"Cck0>cQcMc9ccI"~cKocg"jck0ectcNyc8K`cc!co!c.cccccc!cI"cI"c!cOcc.cccccc[cVc/d]d!aNb8Ka&abR!CbI"%b! bOb*bX/b5_>b!9b3L4bbb^Wb!Rbk0Mboby$ab5_jbfb\bby$ybXb~btbbNb8KHbbbk0bNb.b8KI=!bk0bbo!bS"bk0ibbbRKbg"bk0bXa`g` aNa8Kg`gS"!ak0h!I"\aY0WaoXCag">ak09aHaXMaNRa8K4a/aa^pa!kak0faua5_ay$aXaavzaaNa8Kaag*alo!aS"ak0aaa0ab^a!ak0]aaaay$aXaaIa`S"`k0_` `I"%`! `N`*`XR`I">`!9`!f4`M`g"H`k0C`/`g^f`!a`k0f\`k`5_`y$u`X~`z`gp``N`8KgW`go!`S"`k0g````I"`!`Ng``X`g"`k0`h^`!`k0g``5_ay$`2/V%/./!/ )!OLDDEF //-/\!(/.#/.Z/!0*0/R0/ !/ BBMEMBERT'w0$/!r00"0%"0$/00&0o!0T'0f!0$/40!00$/400w!0$/0!0$/40!0304 !|0 {15REVERSET'1)!K)!I a0 EQUAL /3APPENDT'+/)!Y$///!N/=!?/T':/I/$/D//!/R!g/f!b/T']///{/!v/T'q//$/l/X/S/5/ !0/T'/$//\0!/o!/T'/$////"/!/T'//!/$/////W- .!.T'1.1-1-%.f! .T's. KFFTYI d. TYO*<.Z.!U.&P.*K.F._.! !A.$VGC.0EDZ-Ny..V%.Z-.~-!...\!.Z-5.0..!.Z-. EED1..\!.Z-...0 !~. ?EDPRINT)!B-)!lC,-, ,7-w!-J'2-R!(-!!#---J'---J+* U-EDIT !j- )!FNAMEZ-0e--V%t-Z--!- )!OLDDEF~-y--\!-Z--o--!-Z--*-\!-Z-- -T-1 !-T'.!-f!-T'-.R!-!- ! !EF~-E!F&F F0&FF!E#Fw!(F-FE2FE7FG!>>?>?> ? !?!?~-3!3&?33+? !0? ?MAXT'Q?*M?H?C??"o?%"e?T'j?*`??!?l%?f!?T'~??*y??w!?*?f!?T'???At??w!?T'?!?T'?@?[? !V??~-'@G!&? ==D=M=>~-I>!4=> =!>w!&>+>:*0>w!5>:> > !D>+@)!GS>!Z>_>N>R!d>i>&n>s>W=x>&}>>=">>:>><> !>$\48(G!(>>M&>>>>>> !>(>>>>T'>G!T'64<=*< EQGENl%= =!===/=+=&=H=$>= =9=C="=&a=#\=*W==&=R!z= =!p=u==+@k=f=R==w!=+=R!=&=y$=0==$=*= =====+==>w!=*>$=*=; <$>GENSYM+M&;$; ;(:::;J';;.: !#; ;MINT'D;*@;;;6;;"b;%"X;T'];*S;;!;${;f!v;T'q;;*l;;w!;*;f!;T';;;g;;w!;T';!;T';;N; !I; $<ABST' ;LIK*LSK9L ,!/L4L%LfLG!aLI"WLV%!MLRL\L\KHLCLpL~-LHLpK!zLLLSKuLLG!LI"L|K!LLLK!LLLeKLLL LL!LLKLFLLKL !LHMJLICIJo!KK K JKJKhJKJ!KI&K}I+K!0K5KZI:K !?K QkLCG18 )!TEXP )!DST SCONST )!!#CONST )!BLDI)!L#)!O^Kf~-DK)!V&SKK\KeKKKKHKKK'IKKK/IKKK9IKKIIIII"J JIJCI&JHJ"Jo!'JLI"1JCIH;JLI@JEJ!JJOJ6JTJ"YJ^J,JcJCI&mJHrJwJo!|JLI!JCIHJLIJJ!JJJJ"JJJJCI&JHJJo!JCIHJLIJJ!JJJIH II8II"IIHOP HEXP1 IEXP2 )!PPP )!DDDLICIUICI"_ILICIiIo!nIsIdIxICI6=!ILI=!IIIICI%ILI%ICIf!ILIf!IIIIHICI!ILI!IIIIHIG$H CONSTANTT' HH"HT'H !HHVARMATCHERT'9HH"RH!MHT' HHkH"fH"aHT'w\HWHHo!H&zHT'#uHH@HpHHCH! !>H UKMATCH# VAR@?T'HH&H!H&HT'HHH !H)!+8T1FG\!{GR!XGR!G !!GGSGR!?GF+Gf!:Gf!5GF0G&GNG!IGFDG!G GvGFbG]"qGf!lGFgG]GGG !FGCONMATCHERT'GGG"G!GT'GG"G"GT' G)GGo!G>'GG#G!GFG' !33 !3 )! BACK )!DOWN )!KILL )!RIGHT!7D4SPRINTERI4~-668EDTOKENS{8SPTOKENSD@?LINEPRINTT'42)4O~4&44{(4T' v8SPRIN0**4,T'4T'!4*2)4$44T'4A)44 44"4T',1 !^2 5??REMOBT'313w!3T',3)!!"3'3 33x&r3 !E3$/@3c3_%O3T'^3f!Y3$/T3J3;3!h3m33z%|3T'w363 !3 4dCOPYT'34!3!3T'33T'33R!333f!3T'33333!3T'333'1"1&21 2T'2$/!2!20O2@2J111 !1 20NCONCT'O2$/Y200T28J2r2w!h20m2T'c22!2=!2T'8|22$/22!2"2%"2!2T'822 %2T'2$/220122w!2T'2!2T'1212122w2)!#Z010v1"&1%"1T'!101S1w!010N1R!D1f!?1T':1I1051+1q1w!]1T'l1!g1T'b1X11 ! 1 :2TSUBSTT'1$/10152!1o!1$/1011T'11!10110102!+2R!211T'1$/1f!100"%0/0f! 0T'0 0f!0$/00M0/90!40T'/0H0!C0$/>0*0/R0/ !/ BBMEMBERT'w0$/!r00"0%"0$/00&0o!0T'0f!0$/40!00$/400w!0$/0!0$/40!0304 !|0 {15REVERSET'1)!K)!I a0 EQUAL /3APPENDT'+/)!Y$///!N/=!?/T':/I/$/D//!/R!g/f!b/T']///{/!v/T'q//$/l/X/S/5/ !0/T'/$//\0!/o!/T'/$////"/!/T'//!/$/////W- .!.T'1.1-1-%.f! .T's. KFFTYI d. TYO*<.Z.!U.&P.*K.F._.! !A.$VGC.0EDZ-Ny..V%.Z-.~-!...\!.Z-5.0..!.Z-. EED1..\!.Z-...0 !~. ?EDPRINT)!B-)!lC,-, ,7-w!-J'2-R!(-!!#---J'---J+* U-EDIT !j- )!FNAMEZ-0e--V%t-Z--!- )!OLDDEF~-y--\!-Z--o--!-Z--*-\!-Z-- -T-1 !-T'.!-f!-T'-.R!-!- !*,.02468  ` s` ` ?>>ȱ>i8i`  `  CLL ȟ Q ^\lZl^?cq !"#$%&'( )*+,-./0123456789:;<=> ?@ABCDEFGHIJKLMNOPQRST L \E? 5Y0.i  ,ҥDkHi n hxLV ILHJ݌h$$ Hhꝍ݌` x  xL `L ^NR  RΩ "$&(*VVUUVU !UH>V80V,V9V5V'VZV8LVHVUVQVCV-#nVS!dViVVT!TULIU0B UCISULIUU!$U)UU.U"3U8UT=ULICIGUo!LUQUVU BU[UT`UTeU9TjUSoUlStUNSyU!~UU+SU !U*UV!U#U*UUUU#U*UU!UUQU*UUUV]P V$USo!SLI"TCIS TLITT!T TT%T"*T/TS4TCI&>THCTHTo!MTLI!WTCISaTLIfTkT!pTuT\TzT"TTRTTCI&THTTo!TCISTLITT!TTTTCI&TKTTo!TT'KTKTHT@A)!232-5052AAT@@)!HAFIDELITY ,ACA)!225-20975AMAT@0A )!xAPOOL-\AsA)!353-5822eA}AT@`A )!ABLOCKERAA)!980-6087A AT@A' +BADEFT'AAo!AT'A)!!AAA !AA~-AT'??G! @@4@4@?@y4@ !"@@%5@1@,@@y4:@ !?@ )!_@ADAMS )!PHONEd@T@@)!@NOFTSKER|@T@@ )!CMOTEL9@@)!%979-1400@@w@@@@@)!883-0515@D@@)!454-4681@)!APOSTGATE>G!>>?>?> ? !?!?~-3!3&?33+? !0? ?MAXT'Q?*M?H?C??"o?%"e?T'j?*`??!?l%?f!?T'~??*y??w!?*?f!?T'???At??w!?T'?!?T'?@?[? !V??~-'@G!&? ==D=M=>~-I>!4=> =!>w!&>+>:*0>w!5>:> > !D>+@)!GS>!Z>_>N>R!d>i>&n>s>W=x>&}>>=">>:>><> !>$\48(G!(>>M&>>>>>> !>(>>>>T'>G!T'64<=*< EQGENl%= =!===/=+=&=H=$>= =9=C="=&a=#\=*W==&=R!z= =!p=u==+@k=f=R==w!=+=R!=&=y$=0==$=*= =====+==>w!=*>$=*=; <$>GENSYM+M&;$; ;(:::;J';;.: !#; ;MINT'D;*@;;;6;;"b;%"X;T'];*S;;!;${;f!v;T'q;;*l;;w!;*;f!;T';;;g;;w!;T';!;T';;N; !I; $<ABST' ;H UKMATCH# VAR@?T'HH&H!H&HT'HHH !H)!+8T1FG\!{GR!XGR!G !!GGSGR!?GF+Gf!:Gf!5GF0G&GNG!IGFDG!G GvGFbG]"qGf!lGFgG]GGG !FGCONMATCHERT'GGG"G!GT'GG"G"GT' G)GGo!G>'GG#G!GFG' ! !EF~-E!F&F F0&FF!E#Fw!(F-FE2FE7FLIK*LSK9L ,!/L4L%LfLG!aLI"WLV%!MLRL\L\KHLCLpL~-LHLpK!zLLLSKuLLG!LI"L|K!LLLK!LLLeKLLL LL!LLKLFLLKL !LHM 1979" 77,(116)) D$;"BRUN LISP"/ b "(( ))";:)c dD$(4)n936!x1000R"(( APPLE ][ LISP ))";\1000"(( COPYRIGHT OWL COMPUTERS 1979 ))";100010"MASTER DISKETTE DOS3.2""VOLUME 51" :"LISP VERSION 1.2 AUGUST   _ = ȥLn  * y zzʈzʈzz{ LnLf  LfLbQLfڠҠLf ɅЙLl Ln   <!>!? L SP h Y Ln Ln 2.*&"   ȅɅmHhʼmLn 3 Lf D LbLb D Lf…ƥÅǥƅ¥Džå D Ln y zz{Ll = L `PȱQ - U P RSU T RR 0攥PQ U `qiei`  Y - Y Lb 7Z ^ȑ` Ll ňĈ G ӥ åą D Ln = =  D P`|0 ȱ|e||}!}!` L9  Y 赾膉 h뵼Llĥ`Ƀ JL F( U ¥ U  h0ŅM ) U Ln $1 F U QPL OL U qQ-/ q80 XP P&QK  eePPȥQ / ,eQQ&eQ!Q q/P  c QzPz`曥Ŝ` u8喅PPiQ |4ȱ|Q-|i}iPч}|z!}{` åQ i zi{i  z{Ln - $ - Dž膖 - Ŏ - LÅ .  x y z{ Ċĥ{…ÆąŠȥ . - x Ĉ LK x Ln٨`). ( LA ȱ…ȱ…ȱªȱ†…` - )` - Ƌ…ÅhhLn/P $ƆDžƠ0Lu ȱƅȱƅ G Ln (2H$ PQ h28f o(&٩挦)` 3 L - '@©! - x Ƌ y zz{ťz y z{Ln(g$5  -  -  ,ƅL Hh ȱƅȱƅlhh4 #ȱȱȱȱǥL 0z  D BL 西 مą$ɐ ȱHhЧL   HąhŠ0ąŅ  ^G.C. BYTES COLLECTED, BYTES FREESUBR ^ERROR NUMBER ^ARG :  Ƀ @08ȱ` Ȉ G G `ȱ ȱ!L9 hhƥǢ 1 D B西 i   `( U ( U U ` / X I   N I   #  ) U ) 桥Ţ 8f (&`APPLE ][ LISCOPYRIGHT 1979 OWL COMPUTERS ) ^EVALUATE : ^VALUE IS :NI . BLOA BSAV,A$2100,L INSUFFICIENT MEMOR ~h~h~~HH`~8! !  ~~iH~~~~h~ȵ`  !ze!{i~  !!z0z)zȩ!zz`zz`ح!8Mhhh ) U (`' ! ~M/ j G = hL>802*(ȱ !~+~~~~Ȋ~e~~ȱ~~H~H~8~eii~`~ʥ! !  ~hhȥ~             + ,!,%-+-+,(,*-,;,{(1,f!,,T'-',6,*-",-+$.+-*-W,E1 !x,J's, )!COMMANDa,=n,8\,.",0",,w!,a,,![,y,,&,o!,a,,!,)!.Q,,,,J'.,.!-o!,a,,!,)!R,M,$+2)+*** *$+!+T',+)+E,!=+!8+%3+[+{(Q+f!L+T'G+V+*B++w!e+*}+y$o+*x+t+)j+)`+@,"+w!+T'+!+T',+f++!+"+T'+!+T'-+)++!+%+T'R++!+,&+!+T'o8*$*^)3*!*T'** *.*!)*%*) *E*+)))E)*%"~*w!Q*^)y*E)e*f!`*T'![*t*$o*^),j*!V*+L*,G**w!*T'*!*T'!*!*+),),r), !*T'*)!RN***,*J,!)+"*!*T'*+E)*T' +( )$)()(((()!#)%*)$()A)*LINEWIDTH&T)CHARCOUNT !m)T'h) )!+LEFT^):Y)*!)!|)T'w))!)l%)^))%)T'D)?))$)^))%)T'l) )T)k) )*!*"B*&)!)T')=*E))T''''(!(%(p'(v(G!<(!7( )!^VALUE+(E&(A(%X(!S()!MISK(F(](%l(!g('b(q(%)!((**SUPERPRINT{((f!(p'*(*((G!*(( (' (XTAB !()!S(*((G!)(-)")&)#)w!(c9F2le_/DE )!NAME)!'Xk'ASUPERVISOR !' )!XMASp'1z'''("'0")''G!'!')!6^EVALUATE'!''%'!')!T:'O''%a'(w!'p'(+&'\!'!')%. m$UNTIL s$FSUBRP&ERRORCOUNT&ERRORSET &CALL &PEEK &POKE &OBLIST &APPLY 'MAPC 'MAP 'CHARACTER 'ORDINAL 'EXPLODE 'IMPLODE $'PR# *'IN# 0'GETCHAR yM %$RPLACA +$RPLACD 1$CHARS %DOLLAR%CR 7$MESSON <'MESSOFF =$GET C$PUT I$REMPROPO$GREATERP U$PLIST%$% [$CHARP a$LISTP g$ASSOC 6'DOS %LPAR %BLANK %RPAR %PERIOD%(% %!%IW5KyPe a #PLUS#DIFFERENCE #MINUS #SUBRP #TIMES$QUOTIENT$REMAINDER $LESSP $SUB1 $ADD1 $RECLAINUMBERP #ZEROP #ONEP #MINUSPF #SAVE #LOAD   >*2":&.  i{ h]69   A#PROGN G#LOOP M#WHILE S#PAGEY#PAGELINES _#LIST e#CAAR k#CADR q#CDAR w#CDDR }#CAAAR #CAADR #CADAR #CADDR #CDAAR #CDADR #CDDAR #CDDDR #AND#OR #ERROR !NOT #!8!T !LAMBDA NIL "QUOTE)!)!UNDEFINEDVALUE !NULL !PRINT !CONS !EVAL !CAR!EQ !SETQ !SET !ATOM !READ !CDR !PRIN0 "COND^6B0  $      ,o!,*,!,)!D ,,`+^,w!',J'Y,R!;,f!6,J'V1,T,*O,!J,J'E,@,,,",/,,o!m,*|,!w,T'r,h,,w!,J',!,J',,,,o!,*,!,!,,,G!,,{(,J',,G!,,<-o!,* -!+w!+* +![+y*E+&;+o! +*6+!1+)!.Q*+%++@+J'.+A-!+o!T+*j+!e+)!R^+MY+O++w!y+J'+!~+t+o++o!+*+!+"JA++++w!+J'+R!+*+f!+J'+++!+J'+A+++c$)Z)/*!*T'** ***!%*!*)*E*+)))E)*%"z*w!M*Z)u*A)a*f!\*T'!W*p*$k*Z),f*!R*+H*,C**w!*T'*!*T'!*!*+),),n),)!RN*E1 !*J'* )!COMMAND*=*8*F-"*0"*( )$)()(((()!#)%*)$()Z>*LINEWIDTHP)CHARCOUNT !i)T'd) )!+LEFTZ):U)*!)!x)T's))!)l%)Z))%)T'D)?))$)Z))%)T'l) )T)k) })*!*">*&)!)T')9*A))T'4*'''(!(%(p'(v(G!<(!7( )!^VALUE+(E&(A(%X(!S()!MISK(F(](%l(!g('b(q(%)!((M7*SUPERPRINT{((f!(p'*(*((G!*(( (' (XTAB !()!S(*((G!)(-)")&)#)w!(c9F2le-DE )!NAMEE'Xk'ASUPERVISOR !' )!XMASp'1z'''("'0")''G!'!')!6^EVALUATE'!''%'!')!T:'O''%a'(w!'p'(+&'\!'!')%. m$UNTIL s$FSUBRP&ERRORCOUNT&ERRORSET &CALL &PEEK &POKE &OBLIST &APPLY 'MAPC 'MAP 'CHARACTER 'ORDINAL 'EXPLODE 'IMPLODE $'PR# *'IN# 0'GETCHAR yM %$RPLACA +$RPLACD 1$CHARS %DOLLAR%CR 7$MESSON <'MESSOFF =$GET C$PUT I$REMPROPO$GREATERP U$PLIST%$% [$CHARP a$LISTP 'IASSOC 6'DOS %LPAR %BLANK %RPAR %PERIOD%(% %!%IW5KyPe a #PLUS#DIFFERENCE #MINUS #SUBRP #TIMES$QUOTIENT$REMAINDER $LESSP $SUB1 $ADD1 $RECLAINUMBERP #ZEROP #ONEP #MINUSPF #SAVE #LOAD   >*2":&.  i{ h]69   A#PROGN G#LOOP M#WHILE S#PAGEY#PAGELINES _#LIST e#CAAR k#CADR q#CDAR w#CDDR }#CAAAR #CAADR #CADAR #CADDR #CDAAR #CDADR #CDDAR #CDDDR #AND#OR #ERROR !NOT #!Uv!T !LAMBDA NIL "QUOTE)!)!UNDEFINEDVALUE !NULL !PRINT !CONS !EVAL !CAR!EQ !SETQ !SET !ATOM !READ !CDR !PRIN0 "COND^6B0  $                                    + ,!,%-+-+,(,*-,;,{(1,f!,,T'-',6,*-",-+$.+-*-W,E1 !x,J's, )!COMMANDa,=n,8\,.",0",,w!,a,,![,y,,&,o!,a,,!,)!.Q,,,,J'.,.!-o!,a,,!,)!R,M,$+2)+*** *$+!+T',+)+E,!=+!8+%3+[+{(Q+f!L+T'G+V+*B++w!e+*}+y$o+*x+t+)j+)`+@,"+w!+T'+!+T',+f++!+"+T'+!+T'-+)++!+%+T'R++!+,&+!+T'o8*$*^)3*!*T'** *.*!)*%*) *E*+)))E)*%"~*w!Q*^)y*E)e*f!`*T'![*t*$o*^),j*!V*+L*,G**w!*T'*!*T'!*!*+),),r), !*T'*)!RN***,*J,!)+"*!*T'*+E)*T' +( )$)()(((()!#)%*)$()A)*LINEWIDTH&T)CHARCOUNT !m)T'h) )!+LEFT^):Y)*!)!|)T'w))!)l%)^))%)T'D)?))$)^))%)T'l) )T)k) )*!*"B*&)!)T')=*E))T''''(!(%(p'(v(G!<(!7( )!^VALUE+(E&(A(%X(!S()!MISK(F(](%l(!g('b(q(%)!((**SUPERPRINT{((f!(p'*(*((G!*(( (' (XTAB !()!S(*((G!)(-)")&)#)w!(c9F2le_/DE )!NAME)!'Xk'ASUPERVISOR !' )!XMASp'1z'''("'0")''G!'!')!6^EVALUATE'!''%'!')!T:'O''%a'(w!'p'(+&'\!'!')%. m$UNTIL s$FSUBRP&ERRORCOUNT&ERRORSET &CALL &PEEK &POKE &OBLIST &APPLY 'MAPC 'MAP 'CHARACTER 'ORDINAL 'EXPLODE 'IMPLODE $'PR# *'IN# 0'GETCHAR yM %$RPLACA +$RPLACD 1$CHARS %DOLLAR%CR 7$MESSON <'MESSOFF =$GET C$PUT I$REMPROPO$GREATERP U$PLIST%$% [$CHARP a$LISTP g$ASSOC 6'DOS %LPAR %BLANK %RPAR %PERIOD%(% %!%IW5KyPe a #PLUS#DIFFERENCE #MINUS #SUBRP #TIMES$QUOTIENT$REMAINDER $LESSP $SUB1 $ADD1 $RECLAINUMBERP #ZEROP #ONEP #MINUSPF #SAVE #LOAD   >*2":&.  i{ h]69   A#PROGN G#LOOP M#WHILE S#PAGEY#PAGELINES _#LIST e#CAAR k#CADR q#CDAR w#CDDR }#CAAAR #CAADR #CADAR #CADDR #CDAAR #CDADR #CDDAR #CDDDR #AND#OR #ERROR !NOT #!/!T !LAMBDA NIL "QUOTE)!)!UNDEFINEDVALUE !NULL !PRINT !CONS !EVAL !CAR!EQ !SETQ !SET !ATOM !READ !CDR !PRIN0 "COND^6B0  $      ,o!,*,!,)!D ,,`+^,w!',J'Y,R!;,f!6,J'V1,T,*O,!J,J'E,@,,,",/,,o!m,*|,!w,T'r,h,,w!,J',!,J',,,,o!,*,!,!,,,G!,,{(,J',,G!,,<-o!,* -!+w!+* +![+y*E+&;+o! +*6+!1+)!.Q*+%++@+J'.+A-!+o!T+*j+!e+)!R^+MY+O++w!y+J'+!~+t+o++o!+*+!+)!A++++w!+J'+R!+*+f!+J'+++!+J'+A+++c$)Z)/*!*T'** ***!%*!*)*E*+)))E)*%"z*w!M*Z)u*A)a*f!\*T'!W*p*$k*Z),f*!R*+H*,C**w!*T'*!*T'!*!*+),),n),)!RN*E1 !*J'* )!COMMAND*=*8*F-"*0"*( )$)()(((()!#)%*)$()A*LINEWIDTHP)CHARCOUNT !i)T'd) )!+LEFTZ):U)*!)!x)T's))!)l%)Z))%)T'D)?))$)Z))%)T'l) )T)k) })*!*">*&)!)T')9*A))T'4*'''(!(%(p'(v(G!<(!7( )!^VALUE+(E&(A(%X(!S()!MISK(F(](%l(!g('b(q(%)!((8*SUPERPRINT{((f!(p'*(*((G!*(( (' (XTAB !()!S(*((G!)(-)")&)#)w!(c9F2le-DE )!NAMEH'Xk'ASUPERVISOR !' )!XMASp'1z'''("'0")''G!'!')!6^EVALUATE'!''%'!')!T:'O''%a'(w!'p'(+&'\!'!')%. m$UNTIL s$FSUBRP&ERRORCOUNT&ERRORSET &CALL &PEEK &POKE &OBLIST &APPLY 'MAPC 'MAP 'CHARACTER 'ORDINAL 'EXPLODE 'IMPLODE $'PR# *'IN# 0'GETCHAR yM %$RPLACA +$RPLACD 1$CHARS %DOLLAR%CR 7$MESSON <'MESSOFF =$GET C$PUT I$REMPROPO$GREATERP U$PLIST%$% [$CHARP a$LISTP g$ASSOC 6'DOS %LPAR %BLANK %RPAR %PERIOD%(% %!%IW5KyPe a #PLUS#DIFFERENCE #MINUS #SUBRP #TIMES$QUOTIENT$REMAINDER $LESSP $SUB1 $ADD1 $RECLAINUMBERP #ZEROP #ONEP #MINUSPF #SAVE #LOAD   >*2":&.  i{ h]69   A#PROGN G#LOOP M#WHILE S#PAGEY#PAGELINES _#LIST e#CAAR k#CADR q#CDAR w#CDDR }#CAAAR #CAADR #CADAR #CADDR #CDAAR #CDADR #CDDAR #CDDDR #AND#OR #ERROR !NOT #!s5sV!T !LAMBDA NIL "QUOTE)!)!UNDEFINEDVALUE !NULL !PRINT !CONS !EVAL !CAR!EQ !SETQ !SET !ATOM !READ !CDR !PRIN0 "COND^6B0  $                           ^a9i( ۤi  υ  L$       EEHJ݌h     aiq0֩$$ $Hh ai  ,꽌ɪɵ'*&%&E'зЮ꽌ɪФ`+*xJ&x'8*7Ixix&&  + ') +7 &п x) ++`FG8`0($ p,&"   n *  N0|'x&Hh &    Y@'&Y@xꪽ@'    `Hh` aI꽌ɪ򠚽ɭ&Ya&&Ya&a 꽌ɪ\8`&& eeh) tt L [ _HH`]ɍ]ɬ` ɠ``DE ɤ<(LΡ DE`80!  eDeE eDDeEE8`D&E`( 80 0 DDLDLDL^ t^`,tP ȟpMt-^^`DH hWL8B ,ee"eȱe eȱe PS /!jqȥ q8/8eeeeP` ie i:ih `aaa+C nLH" SINGLE DRIV E COPY NOT POSSIBLE.";(7);(7);(7)::110{ ***** DO NOT CHANGE ***** LINE 63999 .(122)256(121)35: H Xʽ8Keee<ȥq<8< =C:260:A,N16:Q 280:N;::4:" DRIVE: ";:L1:H2:260:A9,(A)N1:_ LM1270u K$:K$(13)270 K$(48L)K$(48H)262 N(K$)48 20:N;" ": :22:"DEFAULT = ";:((41)256(40)14),96:F":(AD4)68ĺ"***** DUPLICATE WRITE PROTECTED *****";(7);(7);(7):220 ::"DO YOU WISH TO MAKE ANOTHER COPY?";I$:(I$)0230 (I$,1)"Y"230 4:958:(978)64160 100 "MAXFILES3": :280:N;::1:I$;" SLOT: ";:L1:H7EY TO BEGIN COPY ---":I$* (I$)3230C (1017)256(1016)n (978)64Ľ:AD(1017)256(1016)56 :(AD12)0ĺ"****** UNABLE TO READ ******";(7);(7);(7):220 (AD11)11ĺ"****** UNABLE TO WRITE ******";(7);(7);(7):220H 40:SSN:N1:MSSSN3MD9 250:SDN::MSSSMDSD290 ::10:"ORIGINAL IN SLOT ";MS:21:"DRIVE ";MD:9:"DUPLICATE IN SLOT ";SS:21:"DRIVE ";SD (978)64Ċ0:0:1012,0 ((37)3):11:"INSERT DUPLICATE THEN";(7):"--- PRESS 'RETURN' K(1015)256(1014)k d"APPLE DISKETTE DUPLICATION PROGRAM":(6):" ... PLEASE INSERT ORIGINAL ...":(8) nCS(766)16:LM0 I$" ORIGINAL":NCS:AD(1016)(1017)256179:AAD:240:MSN:N(767):250:MDN:I$"DUPLICATE":NMS:AA1 LM1 2 :, (7):"COPY MAY BE SAVED ONLY"Q(7):"BEFORE IT HAS BEEN RUN":j COPYRIGHT 1979 BY ( APPLE COMPUTER INCK"MAXFILES1"P106,(116)1:105,(115)T108,(116)1:110,(116)1X107,(115):109,(115)Z63999 _    ,o!,*,!,)!D ,,`+^,w!',J'Y,R!;,f!6,J'V1,T,*O,!J,J'E,@,,,",/,,o!m,*|,!w,T'r,h,,w!,J',!,J',,,,o!,*,!,!,,,G!,,{(,J',,G!,,<-o!,* -!+w!+* +![+y*E+&;+o! +*6+!1+)!.Q*+%++@+J'.+A-!+o!T+*j+!e+)!R^+MY+O++w!y+J'+!~+t+o++o!+*+!+)!A++++w!+J'+R!+*+f!+J'+++!+J'+A+++c$)Z)/*!*T'** ***!%*!*)*E*+)))E)*%"z*w!M*Z)u*A)a*f!\*T'!W*p*$k*Z),f*!R*+H*,C**w!*T'*!*T'!*!*+),),n),)!RN*E1 !*J'* )!COMMAND*=*8*F-"*0"*( )$)()(((()!#)%*)$()A*LINEWIDTHP)CHARCOUNT !i)T'd) )!+LEFTZ):U)*!)!x)T's))!)l%)Z))%)T'D)?))$)Z))%)T'l) )T)k) })*!*">*&)!)T')9*A))T'4*'''(!(%(p'(v(G!<(!7( )!^VALUE+(E&(A(%X(!S()!MISK(F(](%l(!g('b(q(%)!((8*SUPERPRINT{((f!(p'*(*((G!*(( (' (XTAB !()!S(*((G!)(-)")&)#)w!(c9F2le-DE )!NAMEH'Xk'ASUPERVISOR !' )!XMASp'1z'''("'0")''G!'!')!6^EVALUATE'!''%'!')!T:'O''%a'(w!'p'(+&'\!'!')%. m$UNTIL s$FSUBRP&ERRORCOUNT&ERRORSET &CALL &PEEK &POKE &OBLIST &APPLY 'MAPC 'MAP 'CHARACTER 'ORDINAL 'EXPLODE 'IMPLODE $'PR# *'IN# 0'GETCHAR yM %$RPLACA +$RPLACD 1$CHARS %DOLLAR%CR 7$MESSON <'MESSOFF =$GET C$PUT I$REMPROPO$GREATERP U$PLIST%$% [$CHARP a$LISTP g$ASSOC 6'DOS %LPAR %BLANK %RPAR %PERIOD%(% %!%IW5KyPe a #PLUS#DIFFERENCE #MINUS #SUBRP #TIMES$QUOTIENT$REMAINDER $LESSP $SUB1 $ADD1 $RECLAINUMBERP #ZEROP #ONEP #MINUSPF #SAVE #LOAD   >*2":&.  i{ h]69   A#PROGN G#LOOP M#WHILE S#PAGEY#PAGELINES _#LIST e#CAAR k#CADR q#CDAR w#CDDR }#CAAAR #CAADR #CADAR #CADDR #CDAAR #CDADR #CDDAR #CDDDR #AND#OR #ERROR !NOT #!f5fV!T !LAMBDA NIL "QUOTE)!)!UNDEFINEDVALUE !NULL !PRINT !CONS !EVAL !CAR!EQ !SETQ !SET !ATOM !READ !CDR !PRIN0 "COND^6B0  $          +w!+* +![+y*E+&;+o! +*6+!1+)!.Q*+%++@+J'.+A-!+o!T+*j+!e+)!R^+MY+O++w!y+J'+!~+t+o++o!+*+!+rcA++++w!+J'+R!+*+f!+J'+++!+J'+A+++c$)Z)/*!*T'** ***!%*!*)*E*+)))E)*%"z*w!M*Z)u*A)a*f!\*T'!W*p*$k*Z),f*!R*+H*,C**w!*T'*!*T'!*!*+),),n),)!RN*E1 !*J'* )!COMMAND*=*8*F-"*0"*( )$)()(((()!#)%*)$()I@*LINEWIDTHP)CHARCOUNT !i)T'd) )!+LEFTZ):U)*!)!x)T's))!)l%)Z))%)T'D)?))$)Z))%)T'l) )T)k) })*!*">*&)!)T')9*A))T'4*'''(!(%(p'(v(G!<(!7( )!^VALUE+(E&(A(%X(!S()!MISK(F(](%l(!g('b(q(%)!((8*SUPERPRINT{((f!(p'*(*((G!*(( (' (XTAB !()!S(*((G!)(-)")&)#)w!(c9F2le-DE )!NAME~G'Xk'ASUPERVISOR !' )!XMASp'1z'''("'0")''G!'!')!6^EVALUATE'!''%'!')!T:'O''%a'(w!'p'(+&'\!'!')%. m$UNTIL s$FSUBRP&ERRORCOUNT&ERRORSET &CALL &PEEK &POKE &OBLIST &APPLY 'MAPC 'MAP 'CHARACTER 'ORDINAL 'EXPLODE 'IMPLODE $'PR# *'IN# 0'GETCHAR yM %$RPLACA +$RPLACD 1$CHARS %DOLLAR%CR 7$MESSON <'MESSOFF =$GET C$PUT I$REMPROPO$GREATERP U$PLIST%$% [$CHARP a$LISTP ^ASSOC 6'DOS %LPAR %BLANK %RPAR %PERIOD%(% %!%IW5KyPe a #PLUS#DIFFERENCE #MINUS #SUBRP #TIMES$QUOTIENT$REMAINDER $LESSP $SUB1 $ADD1 $RECLAINUMBERP #ZEROP #ONEP #MINUSPF #SAVE #LOAD   >*2":&.  i{ h]69   A#PROGN G#LOOP M#WHILE S#PAGEY#PAGELINES _#LIST e#CAAR k#CADR q#CDAR w#CDDR }#CAAAR #CAADR #CADAR #CADDR #CDAAR #CDADR #CDDAR #CDDDR #AND#OR #ERROR !NOT #!XHXi!T !LAMBDA NIL "QUOTE)!)!UNDEFINEDVALUE !NULL !PRINT !CONS !EVAL !CAR!EQ !SETQ !SET !ATOM !READ !CDR !PRIN0 "COND^6B0  $                        UUVU !UH1V8#VV,V(VVMV8?V;VHVDV6V-#aVIK!WV\VS78l78! 8T'88787 !7T'08b8w!?8\4]8y$S8&7N8T'I8X8\4D8:8q8!l8T'g8 !58"T'8\48888648T'8 !8)!* )!INSERT: 9LGETFILEJ'88@%88G89% 9 )!6!66-Y67J67! 77-47 !7 7TOKENST'277!Y7!F7T'A7T7P7K77y$g7c77 +8TOKENS1l7~7T' y7^77<7 !77T'7&8!7=!7T'77777!7T'7777!8y$7&77f!7T'755"55$F56(5 656!66-56!"6'6-4,6 !16l%@6\4E6N4;644O6)4T64 54h6%4r6T'm6c6w6x5|66!!6456-56&66456-566666_56&6l%6\46N4666"66$F5664#566^6!44)45%! 5T'f!5*55{(#5*)*-5y$2575)*<5w!A5T',!K5P5fT'U5w!Z5T'-!d5i5)T'n5"s5T'R%}5!55x555!!5T'o!5%-!55-55&5*-(5T'-f!5*-55{(55-555555_33 !3 )! BACK )!DOWN )!KILL )!RIGHT!7D4SPRINTERI4~-668EDTOKENS{8SPTOKENSD@?LINEPRINTT'42)4O~4&44{(4T' v8SPRIN0**4,T'4T'!4*2)4$44T'4A)44 44"4T',1 !^2 5??REMOBT'313w!3T',3)!!"3'3 33x&r3 !E3$/@3c3_%O3T'^3f!Y3$/T3J3;3!h3m33z%|3T'w363 !3 4dCOPYT'34!3!3T'33T'33R!333f!3T'33333!3T'333'1"1&21 2T'2$/!2!20O2@2J111 !1 20NCONCT'O2$/Y200T28J2r2w!h20m2T'c22!2=!2T'8|22$/22!2"2%"2!2T'822 %2T'2$/220122w!2T'2!2T'1212122w2)!#Z010v1"&1%"1T'!101S1w!010N1R!D1f!?1T':1I1051+1q1w!]1T'l1!g1T'b1X11 ! 1 :2TSUBSTT'1$/10152!1o!1$/1011T'11!10110102!+2R!211T'1$/1f!100"%0/0f! 0T'0 0f!0$/00M0/90!40T'/0H0!C0$/>0*0/R0/ !/ xAFAMEMBERT'w0$/!r00"0%"0$/00&0o!0T'0f!0$/40!00$/400w!0$/0!0$/40!0304 !|0 {15REVERSET'1)!K)!I a0 EQUAL 1d_APPENDT'+/)!Y$///!N/=!?/T':/I/$/D//!/R!g/f!b/T']///{/!v/T'q//$/l/X/S/5/ !0/T'/$//\0!/o!/T'/$////"/!/T'//!/$/////W- .!.T'1.1-1-%.f! .T's. DDTYI d. TYO*<.Z.!U.&P.*K.F._.! !A.$VGC.0EDZ-Ny..V%.Z-.~-!...\!.Z-5.0..!.Z-. #DED1..\!.Z-...0 !~. ?EDPRINTcB-clC,-, ,7-w!-J'2-R!(-!!#---J'---J+* U-EDIT !j- )!FNAMEZ-0e--V%t-Z--!- )!OLDDEF~-y--\!-Z--o--!-Z--*-\!-Z-- -T-1 !-T'.!-f!-T'-.R!-!- !,o!,*,!,)!D ,,`+^,w!',J'Y,R!;,f!6,J'V1,T,*O,!J,J'E,@,,,",/,,o!m,*|,!w,T'r,h,,w!,J',!,J',,,,o!,*,!,!,,,G!,,{(,J',,G!,,<-o!,* -!Eo!EQD E ED)Eo!EQD$E EEDD=E*.8ED !D( aEGMREAD1 !\E FLET 'MAPCAR )!ZZZ LET1{EF\! FR!ER!E !!EEER!EoEEf!Ef!E{EEEE!E{EEEEFoEE]"Ff!E BCACADADA D"DDAD !D BDPROG1T'3D=DT' !8DD(D^D LE5TYIPEEKQDDw!hDQD|D&wD&rD0mD!cDLD !GDD~-D!D&DD0&DD!QDDw!DDQDD(DDDD !D GESCANIBE"3E%".E"BB.!CC* Co!C!4!CC !$CJ'f!.C3C}A8Cw!=CJ'!GCLCJ'QCw!VC[CBC`C)CeCCjC/!tCyC*~Co!C8!CC!C!C\!CJ'CCR!CCJ'Cw!CCCCCCCoCCBCBC!CCAJ'AAAB&B ,!BB*Bo! B4!*B/B!4BJ'f!>BCB.HBJ'!RBWBMB\BR!aBfBJ'kBw!pBuB9BzB%BB^+!BB*Bo!B+4 !BB!BJ'f!BJ'!BB.BBBBR!BBJ'Bw!BBBB$/4@@&A$/4! AA!$/Aw!AA3A#A@(A"-A2A4@7A !G!>>?>?> ? !?!?~-3!3&?33+? !0? ?MAXT'Q?*M?H?C??"o?%"e?T'j?*`??!?l%?f!?T'~??*y??w!?*?f!?T'???At??w!?T'?!?T'?@?[? !V??~-'@G!&? ==D=M=>~-I>!4=> =!>w!&>+>:*0>w!5>:> > !D>+@)!GS>!Z>_>N>R!d>i>&n>s>W=x>&}>>=">>:>><> !>$\48(G!(>>M&>>>>>> !>(>>>>T'>G!T'64<=*< dQGENl%= =!===/=+=&=H=$>= =9=C="=&a=#\=*W==&=R!z= =!p=u==+@k=f=R==w!=+=R!=&=y$=0==$=*= =====+==>w!=*>$=*=; <$>GENSYM+M&;$; ;(:::;J';;.: !#; ;MINT'D;*@;;;6;;"b;%"X;T'];*S;;!;${;f!v;T'q;;*l;;w!;*;f!;T';;;g;;w!;T';!;T';;N; !I; $<ABST' ;ICIIHIG&RIHGWI\Io!aIG;GkIGpIuI!zIIfIIGGIo!III IIMIIHIHI+HI HI!IIGI !I )!TEXP WJCONST)!O^If~-GGo!GHGHG6=!HG=!H!HH&HG%0HG%:HGf!DHGf!NHSHIHXH,G]HG!gHG!qHvHlH{H,GHHbHH?HH"HH5HHG&H7GHHo!HG"HG;GHGHH!HHHH"HHHFGo!G& GT'#GG@GGHF! !F LIMATCH# VAR@?T'LGtG&oG!jG&eGT'`G[GVG !QG)!+8GGGG8GGGGGOP GEXP1 GEXP2 )!PPP )!DDDGGGG"GG{EEEEE !EFCONMATCHERT'G*FF"CF!>FT'9F\F"WF"RFT' MF)HF~Fo!pF&kFT'fFyF#uF!aFF4F' !/FF CONSTANTT'FF"FT'F !F'GVARMATCHERT'F"G"F!FT' FF"F"FT'wF:^O_!"_=!_:X ____J_$@_Y;_!6_:1_,_'_E__ !_ /APPEND1:_!_=!u_:bp__z__Y__\!_f!_:___c&_/_!_:____k_ !f__3~-_ ``DROPT'_[`!`I" ^!^,^^*^^^*&^"^]]]b^!]^ )!POPJ?^N^TNI^X^S^:^6]']^Y^ )! VARSSv^q^l^ !"]^~-^ !1]b\Y^^^^^]^ !^ g$OASSOCI^+^^^^+^I^ !^ !v\ ^^COMP)!FN ]]b\]I]^ !1]*,]g^/]I"{]I"X]!S] )!LAPJ]E]]] ]v]!q] )!SUBRg]b]@];]][]*]]]]N]I]$]*]]Z]b\]]]]5^I"0^I"]!](Y]]!]TN]+^" \!\T[\!\TN\\M[I\[,\*D\y$6\M?\;\ 1\'\[N\[ ![ )!VARSb\q\*l\\!\=!\b\\\\\R!\R!\f!\b\\\*\\Z\!\b\\\y$\*\\\\\\{\MZZl[I"g[I"[![(Y[-[!([TN#[b[I"A[!<[,7[F[*O[K[T[*][Y[2[[ [_ZPZ[Y[![I[{[v[KZ[![[VU !QU ]\MKPUSH*[M[X\![$[*[M[[ [S\R!"\I_LENGTHYZ!ZI ZZYX[o!7ZS"2ZI-ZFZ!AZ !V%4VI9VM/V*V VWV!RVTNMVVUUW"Vo!Vf!zVIuVV!V"VpVVo!Vf!VIVV!V"VVVo!Vf!VIVV!V"VVkVW !WOV)!U!UxMTU$UMUU U$UMTT.UT !|TIGUMLUMBU[!U=!`UI[UU )!MOVEIjU~UzUUUuUU!UUeUUo!UIU!UUjUUUU!!UUUU!UUUfV!UIUTTN!STSGTS*Ty$T*%T!TTBTy$4T.=T9T/TTSLTS !S =UCOMPLISxMrTMwTMmT8U!T=!TxMTTT3U/TNTf!TxMTTMTMTT )!PUSHTTTNTTTT!TT)U`TRSMSMR:SI"0SI"&SO!S!S+S:S5SOSbS`RNS!ISxMDSSSMXS:]SM?SRRvS<qSlS{SR !R [TLOADAC*S.SVT!Sl%S*SSSSSQTR! TI"S )!MOVES!SSS.S*hUhadhdiuUid idididiT id%iSd*iDd/i-#Si )!LCOM0>i!IiNi&gegxegPehTh8e hehUhadhd!huU&hd+hd0hd5hd:hT?hdDhSdIhDdNh]h~-ShI^bh|gghXdlheqhTgvhJg{h,ghghfhThfhfhfhThrfhTfh,fhThfhThehehehThehxehPehTh8eheffffSfqYqe gcYgeg,ggTN"g(Y'gR!RY1g(6g;ge@g9&EgXd\OOg"^"6dYg^^g6dcg,hgmgTNrg(YwgI^g|ggXdgegTggJgg,ggggfgTgfgfgfgTgrfgTfg,fgTgfgTgegegegTTNTffV fSfTNTff Y"fS'fqYqe1fcY6fe;f,@fEf+TNJf(YOf!YYf(^fcfehf9&mfTNTwf{f YfSfqYqefcYfef,ff>TNf(Yf_Yf(ffef9&fTNTff YfSfTNTd )!G25eQO eNeTNT%e)eV.eS3eTNT=eAe YFeSKeqYq!eUecYZe!e_e,deieZTNne(Ysef!fY}e(ee!ee9&eTNTee YeSeqYqeecYeee,eemTNe(YeI"IYe(eeee9&ec\!cccdY_ dddcd!d"dc'd !,dg]g_:dJ]?d]TNIdTNd )!G23 )!G24TNTndrdVwdS|dTNTdd YdSdqYqjddcYdjdd,dd!TNd(Yd=!=Yd(ddjdd9&dadt4RdNdXd9OMbbgQcR*R! cc8RI"ccI"c#cQ(c/-c2c7ccaacXa XaVaUaUaeUa!aaBUa !aaR~-S?SSaRaRa/aaRa !aavSa=!`T'_ ``V`!Q`R!3`I".`f!)`T'$``L`_G`!B`T'=`8` ``_ !_ ``COMPILE )!NAMr`{``I"`r``]"`\!`r````"`\!`r```` !``~-`]``{`` !``~-[*YY