@L|}6CD l0C)HCC WhL/h `CmCDiD`  R@W1  Y0@R !L` D  C D     )16CS S)  C)D1 p p 0 C9DI pCDL~CiCDiD` D  C D     )16CS S)  C)D1 p p }0 C9DI pCDL~CiCDiD` DD˙` d J)L !}D L(( LL()  L| L( S LH 0p n  } CY?  q  L L  ` )} `A! d߰")-݆ "  $G@LLL&0") $G% }H0 3S8`G ȱG ȱG   Gȭ Gȭ GG}GHiH8(()) G$H% `(0 })8` d)L ݆ & LGȘ ݆LL d  ! LL d)N>Q  HH) }  hyhyB q L> Lm JJ  Ln*` dB%' }8  H H` 1 { LL   !L     Hh SY?  q  1L }  !? S   q 1 L   Ll  Lg E`L   !L)  q 1L}) `L0AM݊L݉ ML  N݆LLLNLMLHG!@}1F GȱGLLEEȩÑEȑEEȑE Ed E7EȩE  q} L !,0,0SGɛ L 1 !L EHEh W G gLLSROTCES EERF } G) *Gȩ GȽG GȌd q q G`  8   0G  `D}CEDC0X:Ȣ Y ȱC* ? 0.. , 0%n ?A[ 0 : L`L  `, 0`Y}`piH n0)բY? 08`0 }  0$L GGȽG L `8L`L}8`  05G)݁,G)ȱGȱGHh0})Hh` B! 8`8iiiLE`}E8FEh( l0`ɃLL L8^~jj8jHi hEEEiEȱEiE` dTE} H8EEȱEEȩEh J E8   . m  i`LI!)E1FR}1LJ舩9GIH`LJJ`HGHh l`} S gL   8 rii `дCDCG W  }C  Lq` X٨`DOS SYS IIIIIIIIIIIIIIIC`0 ߩ0}}p}+=  |||DDOS DOSDOS SYS }}}}B}CDOS SYSB*+DUP SYSB,UEDIT BDOCTOR BHANOI B CLISP BBAUTORUN SYS} 0`BDELV !B }`LVUQ   ]   TU J ]L!T  #      TU  } L ? .  t`GBJ V~DEHI B V0dV!}QDEHI VF9 ,0 ,0 s0hhL  L` H hDHEh"}DEL8HI   0 HI,0 0  9 .G VLO#},0 L4*IJ`llD1:AUTORUN.SYSNEED MEM.SAV TO LOAD THIS FILE.D1:MEM.SAV J y08 B|DEHI$} V0 0`B;DELV䌚 !B y`@ʆ v s? F0Ξ05: [ BDEHI%} VY8 B V  @  /DE `E:D1:DUP.SYSERROR-SAVING USER MEMORY ON DISKTYPE Y TO &}STILL RUN DOS B;DE J V (` 9 V⪍ ઍ  -'}LLu DEHILV 9 .l 9 .l  `` s$B VBH(}I|DE V BLV nB,DE J V* \*` B V BLVDEHI BLVL)}1u H232435; 1 ;  hh@2 e1i1LHҍ 00) 08 109hh@ Ҡ2e*}1i1232435ޥ<<8} 3E:}DISK OPERATING SYSTEM II VERSION 2.0SCOPYRIGHT 1980 ATARIA. DISK DIRECTORY I. FORMAT DISKB. RUN CARTRIDGE J. D,}UPLICATE DISKC. COPY FILE K. BINARY SAVED. DELETE FILE(S) L. BINARY LOADE. RENAME FILE M. RUN AT ADDRESSF. LOCK F-}ILE N. CREATE MEM.SAVG. UNLOCK FILE O. DUPLICATE FILEH. WRITE DOS FILES9!&x#!7&p))'&X*./)L''-؆莟.}R'S  vW DEHHI 1A#! @ ~0ɛ8A0.) ȅ 1 1i/}il ! 1L NO SUCH ITEMSELECT ITEM OR FOR MENU! 0 .{z:*{}.|~ 1 0 00}JB 18L^%|DLl%DIRECTORY--SEARCH SPEC,LIST FILE? # 0 0 n&|D! 1L NOT A DISK FILE1}N !B 1L " 1 !BDED:}:1BJ|DE 1DEBH2}I 1 h0ߢ 0.  0?詛 1 ~0YЛ 1 "L<" "L 3} BL1TYPE "Y" TO DELETE...DELETE FILE SPECCOPY--FROM, TO?OPTION NOT ALLOWED COPYING---DN:4}# 0|D .L$A#B#C#JB|DE 1BHIDD#E 1D#0: B5} 1L B#C#C#B# B 1N#$0SYS1}:e#D# d# D# .d#ȽD# d# 𩛙d#X# 1,A#6}PdD#ELO- A.BJdD#E 1 1HH 0hh|DL^%1}:e# Lt% e#dD#EL%7} 1 0 . .0% 1L WILD CARDS NOT ALLOWED IN DESTINATION 0 A.|K@C}//3Hu ξL/L DRIVE TO WRITE DOS FILES TO?WRITING NEW DOS FILESTYPE "Y" TO WRITE DOS TO DRIVE 1.?}D1:DOS.SYSERROR - NOT VERSION 2 FORMAT. , &* բ( 1L `[) 0NΞ 0 L1M) 1@} L BAD LOAD FILELOAD FROM WHAT FILE?) 0 0#B 1L WHAT FILE TO LOCK?) 0 0$B 1L WHAT FILE TO UNLOCK?DUA}P DISK-SOURCE,DEST DRIVES?TYPE "Y" IF OK TO USE PROGRAM AREACAUTION: A "Y" INVALIDATES MEM.SAV. h  ,B}  `)  <0 2 2 0  ,   ,,ޢ* 1L ,K* 1 ~0 0C}FINSERT BOTH DISKS, TYPE RETURNERROR - DRIVES INCOMPATIBLE., 1 ~038  , 1L D}, &*  Lz+, 0 , 1 ~0 + Y,0!,0 ,L+ ,mm  v,"ǭE}0Ξ, 05,Lt+L +,Hh` NOT ENOUGH ROOMINSERT SOURCE DISK,TYPE RETURNF}INSERT DESTINATION DISK,TYPE RETURN`    `L,8,0( rG}L1(`ߢ) 1* 1 ~0Y`hhL S SL1) 8`NAME OF FILE TO MOVE?- 0 0|DLtH}% A., 1 <0 0 .@L# .BJ 1  DEHIB V L1 ,5 1 <0,L. I} JB|,A#Pd#DE 1 HI BDEHHII 1 B 1 , 1 <0,0Lf- B VJ},A#P, 1 <0 0L#L ߢ) 1* 1 ~0Yj383}mm ݭK}}`8}``|* ? ɛ,`|:(|/ 1L `DESTINATION CANT L}BE DOS.SYS0 0H{ $22Δ $28/L /) $2 Π $2 0 ξM}hAΞB,0 J 1 BޝDEHI,HDE 1HIHIDELSAVE-N}GIVE FILE,START,END(,INIT,RUN)O X0 1`BDEPHI V` X0H 1 L O}0 0 1L0`PLEASE TYPE 1 LETTER,0`hhL <0 1L0LA1 ,;ɛ7,"ɛ:ݦ1ݥP}A"D|ݤD|ȩ:|ȩ|ɛ,,(/+.ީ1 1,ɛ`轤{Q}NAME TOO LONG B VL ` L1I H1EӝDL1|mDiE` V0`8d/8 i:"2!22 1R} L ERROR- 128ɛ+,' 20*.. өw2 1``2TOO MANY DIGITSINVALIDS} HEXADECIMAL PARAMETER800 0 8 00`,0'D800H,ɛh`2L1NEED D1 THRU D4uT} HEXADECIMAL PARAMETER800 0 8 00`,0'D800H,ɛh`2L1NEED D1 THRU D4u(EDIT E EF H L S C X PASTE EQUAL GETCMD MAPCAR COMMANDS PSET SETP R A D B LI RE CONZ PRE I DEL G PP P PPRINT PPAUX MULTARGS PV}PARGS TABRET FORMATS LPAR BLANK RPAR LINE-WIDTH NCONC PU LOCK UNLOCK GETLST)(DEFINEQ EDIT '(LAMBDA (S-EXP) (PROG (CURR PREV W}X) T (PSET S-EXP) (SETQ PREV (LIST S-EXP)) LOOP (POKE 128 0) (COND ((EQ (SETQ X (GETCMD (QUOTE "> "))) (QUOTE EX)) (RETURX}N (QUOTE EXIT)))) (POKE 128 63) (COND ((EQ X (QUOTE T)) (GO T)) ((MEMBER X COMMANDS) (APPLY* X)) ((PRIN2 (LIST (QUOTE ILL) (QY}UOTE COMMAND-->) X)) (TERPRI))) (GO LOOP))))(DEFINEQ E '(LAMBDA NIL ((LAMBDA (X) (PROGN (SETQ S-EXP (COND ((EVAL X)) (T (POZ}KE 128 0) (PRIN1 (QUOTE -->)) (PRINT X) (SET X (GETLST (GETCMD (QUOTE "> "))))))) (GO T))) (READ))))(DEFINEQ E[}F '(LAMBDA NIL ((LAMBDA (X) (PROGN (SETQ S-EXP (COND ((GETD X)) (T (POKE 128 0) (PRIN1 (QUOTE -->)) (PRINT X) (DEFINE\} X (GETLST (GETCMD (QUOTE "> "))))))) (GO T))) (READ))))(DEFINEQ H '(LAMBDA NIL (PRIN1 (LIST (QUOTE COMMANDS:) COMMAND]}S))))(DEFINEQ L '(LAMBDA NIL ((LAMBDA (FILE) (PROGN (LOAD FILE) (PRIN1 (QUOTE "--> ")) (PRINT (EVAL FILE)))) (GETCMD ^}(QUOTE "> ")))))(DEFINEQ S '(LAMBDA NIL (PROGN (SAVE (EVAL (GETCMD (QUOTE "> "))) (GETCMD (QUOTE "> "))) _}(PRINT (QUOTE )))))(DEFINEQ C '(LAMBDA NIL (DIR (READ))))(SETQ X 'S)(DEFINEQ X '(LAMBDA NIL (PROGN (PASTE CURR (RE`}AD) (READ)) (PSET CURR))))(DEFINEQ PASTE '(LAMBDA (X Y Z) (COND ((EQUAL X)) ((ATOM X)) ((EQUAL (CAR X) Y) (RPLACA X Z) (PASa}TE (CDR X) Y Z)) (T (PASTE (CAR X) Y Z) (PASTE (CDR X) Y Z)))))(DEFINEQ EQUAL '(LAMBDA (X Y) (COND ((ATOM X) (EQ X Y)) ((ATb}OM Y) (EQ X Y)) ((AND (EQUAL (CAR X) (CAR Y)) (EQUAL (CDR X) (CDR Y)))))))(DEFINEQ GETCMD '(LAMBDA (X) (PROGN (POKE 128 0) c}(TERPRI) (PRIN1 X) (READ))))(DEFINEQ MAPCAR '(LAMBDA (X FN) (COND ((EQ X) NIL) (T (CONS (APPLY* FN (CAR X)) (MAPCAR (CDR X)d} FN))))))(SETQ COMMANDS '(A D B P R DEL I G LI RE PP PRE C E EF X S L H PU LOCK UNLOCK))(DEFINEQ PSET '(LAMBDA (L) (PRINTe} (CAR (SETQ CURR L)))))(DEFINEQ SETP '(LAMBDA (FUNCTION) (COND ((ATOM (APPLY* FUNCTION CURR)) (PRINT (QUOTE ))) f}(T (SETQ PREV (CONS CURR PREV)) (PSET (APPLY* FUNCTION CURR))))))(DEFINEQ R '(LAMBDA NIL (PRINT (CAR (RPLACA CURR (READ))))g}))(SETQ A '(A))(DEFINEQ A '(LAMBDA NIL (SETP (QUOTE CDR))))(DEFINEQ D '(LAMBDA NIL (SETP (QUOTE CAR))))(DEFINEQ B '(Lh}AMBDA NIL (COND ((EQ (CDR PREV)) (PRINT (QUOTE )) (PSET CURR)) (T (PSET (CAR PREV)) (SETQ PREV (CDR PREV))))))(Di}EFINEQ LI '(LAMBDA NIL (PSET (RPLACA CURR (LIST (CAR CURR))))))(DEFINEQ RE '(LAMBDA NIL (COND ((ATOM (CAR CURR)) (PRIN1 (QUj}OTE )) (TERPRI)) (T (PROG NIL (NCONC (CAR CURR) (CDR CURR)) (PSET (CONZ CURR (CAR (CAR CURR)) (CDR (CAR CURR)))))))k}))(DEFINEQ CONZ '(LAMBDA (X Y Z) (RPLACA (RPLACD X Z) Y)))(DEFINEQ PRE '(LAMBDA NIL (PSET (RPLACA CURR (CONS (READ) (LISTl} (CAR CURR)))))))(DEFINEQ I '(LAMBDA NIL (PROG NIL (RPLACD CURR (CONS (READ) (CDR CURR))) (A))))(DEFINEQ DEL '(LAMBDA NILm} (PROG NIL ((LAMBDA (X) (COND ((EQ CURR X) (CONZ CURR (CAR (CDR CURR)) (CDR (CDR CURR)))) ((EQ CURR (CDR X)) (RPLACD X (CDR Cn}URR))) (T (RPLACA X (CDR CURR))))) (CAR PREV)) (B))))(DEFINEQ G '(LAMBDA NIL (PROG (X Y) (SETQ Y CURR) L (SETQ X (GETCMD (Qo}UOTE "> "))) (COND ((EQ X (QUOTE A)) (COND ((EQ (CDR Y)) (PRINT (QUOTE ))) (T (PRINT (CAR (SETQ Y (CDR Y)))))p})) ((EQ X (QUOTE G)) (RETURN (COND ((EQ CURR Y) (LI)) (T (CONZ CURR (CONS (CAR CURR) (CDR CURR)) (CDR Y)) (RPLACD Y NIL) (PRIq}NT (CAR CURR)))))) (T (RETURN (PRINT (QUOTE ))))) (GO L))))(DEFINEQ PP '(LAMBDA NIL (PPRINT S-EXP 2)))(DEFINEQ P 'r}(LAMBDA NIL (PPRINT (CAR CURR) 2)))(DEFINEQ PPRINT '(LAMBDA (X IND) (PROG (TFLG) (PPAUX X IND) (TERPRI))))(DEFINEQ PPAUX s}'(LAMBDA (X INDTN) (COND ((ATOM X) (PRIN2 X) (SETQ TFLG)) ((ATOM (CAR X)) ((LAMBDA (Y) (COND (Y (MULTARGS X INDTN (CDR Y))) (t}(PROGN (PRIN1 LPAR) (PRIN2 (CAR X)) (PPARGS (CDR X) INDTN) (PRIN1 RPAR) (SETQ TFLG))))) (ASSOC (CAR X) FORMATS))) (((LAMBDA (u}IND1) (PROGN (PRIN1 LPAR) (SETQ TFLG T) (PPAUX (CAR X) IND1) (TABRET INDTN) (PPARGS (CDR X) IND1) (PRIN1 RPAR) (SETQ TFLG))) v}(+ INDTN))))))(DEFINEQ MULTARGS '(LAMBDA (X INDTN L) ((LAMBDA (INDTN2) (PROGN (TABRET INDTN) (PRIN1 LPAR) (PRIN2 (CAR X)) (w}PRIN1 BLANK) (PPAUX (CAR (CDR X)) INDTN2) (COND ((CDR (CDR X)) (MAPCAR (CDR (CDR X)) (QUOTE (LAMBDA (Y) (PROG NIL (TABRET INDx}TN2) (PPAUX Y INDTN2))))))) (PRIN1 RPAR) (SETQ TFLG))) (+ INDTN (CAR L)))))(DEFINEQ PPARGS '(LAMBDA (X INDTN) (PROG NIL LOOy}P (COND ((EQ X) (RETURN))) (PRIN1 BLANK) (PPAUX (CAR X) INDTN) (SETQ X (CDR X)) (GO LOOP))))(DEFINEQ TABRET '(LAMBDA (N) (Pz}ROG NIL (COND (TFLG (RETURN)) ((TERPRI))) (SETQ TFLG T) (COND ((> N LINE-WIDTH) (TERPRI) (TAB (SUB N LINE-WIDTH))) ((TAB N))){})))(SETQ FORMATS '((COND 6) (LAMBDA 2) (PROG 6) (PROGN 7) (AND 5) (OR 4) (MAPCAR 8) (NLAMBDA 2) (MACRO 2)))(SETQ LPAR '"(|}")(SETQ BLANK '" ")(SETQ RPAR '))(SETQ LINE-WIDTH '39)(DEFINEQ NCONC '(LAMBDA (X Y) (PROGN (RPLACD (LAST X) Y) X)))}}(DEFINEQ PU '(LAMBDA NIL ((LAMBDA (X) (PROGN (COND ((EQ (GETCMD (QUOTE "٧> ")) (QUOTE Y)) (XIO 33 7 0 0 X) ~}(CLOSE 7))) (DIR))) (READ))))(DEFINEQ LOCK '(LAMBDA NIL ((LAMBDA (X) (PROGN (XIO 35 7 0 0 X) (CLOSE 7))) (READ))))(DEFINE}Q UNLOCK '(LAMBDA NIL ((LAMBDA (X) (PROG (STAT) (SETQ STAT (XIO 36 7 0 0 X)) (COND ((EQ STAT 1)) (T (PRIN1 (QUOTE ͠}Һ)) (PRINT STAT))) (CLOSE 7))) (READ))))(DEFINEQ GETLST '(LAMBDA (X) (COND ((ATOM X) (LIST X)) (X))))NILOTE ͠n(DOCTOR RESTRICT MATCH BADWORDS BADWORD ATOMCAR ATOMCDR TEST)(DEFINEQ DOCTOR '(LAMBDA NIL (PROG (L MOTHER S) (POKE 128 0) (P }RINT (QUOTE (SPEAK UP))) LOOP (SETQ S (READ)) (COND ((ATOM S) (SETQ S (LIST S)))) (COND ((MATCH (QUOTE (I AM WORRIED +L)) S) }(PRINT (APPEND (QUOTE (HOW LONG HAVE YOU BEEN WORRIED)) L))) ((MATCH (QUOTE (+ MOTHER +)) S) (SETQ MOTHER T) (PRINT (QUOTE (T }ELL ME MORE ABOUT YOUR FAMILY)))) ((MATCH (QUOTE (+ COMPUTERS +)) S) (PRINT (QUOTE (DO MACHINES FRIGHTEN YOU)))) ((OR (MATCH }(QUOTE (NO)) S) (MATCH (QUOTE (YES)) S)) (PRINT (QUOTE (PLEASE DO NOT BE SO SHORT WITH ME)))) ((MATCH (QUOTE (+ (RESTRICT > B }ADWORD) +)) S) (PRINT (QUOTE (PLEASE DO NOT USE WORDS LIKE THAT)))) (MOTHER (SETQ MOTHER NIL) (PRINT (QUOTE (EARLIER YOU SPOK }E OF YOUR MOTHER)))) (T (PRINT (QUOTE (I AM SORRY OUR TIME IS UP))) (RETURN (QUOTE GOODBYE)))) (GO LOOP))))(DEFINEQ MATCH ' }(LAMBDA (P D) (COND ((AND (EQ P) (EQ D)) T) ((OR (EQ P) (EQ D)) NIL) ((EQ (ATOM (CAR P))) (COND ((AND (EQ (CAR (CAR P)) (QUOT }E RESTRICT)) (EQ (CAR (CDR (CAR P))) (QUOTE >)) (TEST (CDR (CDR (CAR P))) (CAR D))) (MATCH (CDR P) (CDR D))) ((AND (EQ (CAR ( }CAR P)) (QUOTE RESTRICT)) (EQ (ATOMCAR (CAR (CDR (CAR P)))) (QUOTE >)) (TEST (CDR (CDR (CAR P))) (CAR D)) (MATCH (CDR P) (CDR } D))) (SET (ATOMCDR (CAR (CDR (CAR P)))) (CAR D)) T))) ((OR (EQ (CAR P) (QUOTE >)) (EQ (CAR P) (CAR D))) (MATCH (CDR P) (CDR }D))) ((AND (EQ (ATOMCAR (CAR P)) (QUOTE >)) (MATCH (CDR P) (CDR D))) (SET (ATOMCDR (CAR P)) (CAR D)) T) ((EQ (CAR P) (QUOTE + })) (COND ((MATCH (CDR P) (CDR D)) T) (T (MATCH P (CDR D))))) ((EQ (ATOMCAR (CAR P)) (QUOTE +)) (COND ((MATCH (CDR P) (CDR D)) } (SET (ATOMCDR (CAR P)) (LIST (CAR D))) T) ((MATCH P (CDR D)) (SET (ATOMCDR (CAR P)) (CONS (CAR D) (EVAL (ATOMCDR (CAR P))))) } T))))))(SETQ BADWORDS '(DARN HELL))(DEFINEQ BADWORD '(LAMBDA (WORD) (MEMBER WORD BADWORDS)))(DEFINEQ ATOMCAR '(LAMBDA }(X) (CAR (UNPACK X))))(DEFINEQ ATOMCDR '(LAMBDA (X) (PACK (CDR (UNPACK X)))))(DEFINEQ TEST '(LAMBDA (PREDICATES ARGUMENT) } (PROG NIL LOOP (COND ((EQ PREDICATES) (RETURN T))) (COND ((APPLY* (CAR PREDICATES) ARGUMENT) (SETQ PREDICATES (CDR PREDICATE }S)) (GO LOOP)) (T (RETURN))))))NIL) (RETURN T))) (COND ((APPLY* (CAR PREDICATES) ARGUMENT) (SETQ PREDICATES (CDR PREDICATE %(HANOI OTHER MOVE DISPLAY HLIN CADR LOC VTAB GOXY)(DEFINEQ HANOI '(LAMBDA NIL (PROG (ONE TWO THREE) (GR 20) (PAGE) (POKE 752} 1) (TAB 4) (PRIN1 (QUOTE -ONE-)) (TAB 17) (PRIN1 (QUOTE -TWO-)) (TAB 29) (PRINT (QUOTE -THREE-)) (COL 1) (HLIN 13 13 20) (HL}IN 11 15 22) (HLIN 9 17 24) (HLIN 7 19 26) (HLIN 5 21 28) (HLIN 3 23 30) (HLIN 1 25 32) (SETQ ONE (QUOTE (0 1 2 3 4 5 6))) (M}OVE 7 (QUOTE ONE) (QUOTE THREE)) (READC) (SOUND 0 0 0 0) (POKE 752 0))))(DEFINEQ OTHER '(LAMBDA (X Y) (COND ((EQ X (QUOTE O}NE)) (COND ((EQ Y (QUOTE TWO)) (QUOTE THREE)) (T (QUOTE TWO)))) ((EQ X (QUOTE TWO)) (COND ((EQ Y (QUOTE ONE)) (QUOTE THREE)) }(T (QUOTE ONE)))) ((EQ X (QUOTE THREE)) (COND ((EQ Y (QUOTE ONE)) (QUOTE TWO)) (T (QUOTE ONE)))))))(DEFINEQ MOVE '(LAMBDA (}D E F) (COND ((EQ D 1) (PROGN (SET F (CONS (CAR (EVAL E)) (EVAL F))) (SET E (CDR (EVAL E))) (DISPLAY E F))) (T (PROGN (MOVE (}SUB D 1) E (OTHER E F)) (SET F (CONS (CAR (EVAL E)) (EVAL F))) (SET E (CDR (EVAL E))) (DISPLAY E F) (MOVE (SUB D 1) (OTHER E }F) F))))))(DEFINEQ DISPLAY '(LAMBDA (X Y) (PROG NIL (SETQ Z (CAR (EVAL Y))) (COL 0) (HLIN (SUB (CADR (ASSOC X LOC)) (+ Z Z)}) (+ (CADR (ASSOC X LOC)) (+ Z Z)) (+ (+ Z Z) 20)) (COL 1) (HLIN (SUB (CADR (ASSOC Y LOC)) (+ Z Z)) (+ (CADR (ASSOC Y LOC)) (}+ Z Z)) (+ (+ Z Z) 20)) (GOXY 10 2) (PRIN1 (LIST (QUOTE MOVE) X (QUOTE TO) Y)) (PRIN1 (QUOTE " ")) (SOUND 0 (+ 120 (* 10 Z))} 10 15))))(DEFINEQ HLIN '(LAMBDA (X1 X2 Y) (PROGN (PLOT X1 Y) (DRAW X2 Y))))(DEFINEQ CADR '(LAMBDA (X) (CAR (CDR X))))(}SETQ LOC '((ONE 13) (TWO 40) (THREE 66)))(DEFINEQ VTAB '(LAMBDA (R) (POKE 656 R)))(DEFINEQ GOXY '(LAMBDA (X Y) (PROGN (VT}AB Y) (TAB X))))NILWO 40) (THREE 66)))(DEFINEQ VTAB '(LAMBDA (R) (POKE 656 R)))(DEFINEQ GOXY '(LAMBDA (X Y) (PROGN (VT(CLISP TRANSLATE WEIGHT OPCODE)(DEFINEQ CLISP '(LAMBDA (FUN) (DEFINE FUN (TRANSLATE (GETD FUN)))))(DEFINEQ TRANSLATE '(LAM}BDA (S-EXP) (PROG (OPERANDS OPERATORS) (COND ((ATOM S-EXP) (RETURN S-EXP))) (COND ((EQ (OPCODE (CAR (CDR S-EXP)))) (RETURN (M}APCAR S-EXP (QUOTE TRANSLATE))))) (SETQ OPERATORS (QUOTE (DUMMY))) STUFF (COND ((EQ S-EXP) (COND ((EQ (CAR OPERATORS) (QUOTE }DUMMY)) (RETURN (QUOTE *ERROR*))) (T (RETURN (LIST (TRANSLATE (CAR OPERANDS)) (TRANSLATE (CAR OPERATORS)))))))) (SETQ OPERAND}S (CONS (COND ((ATOM (CAR S-EXP)) (CAR S-EXP)) ((TRANSLATE (CAR S-EXP)))) OPERANDS)) (SETQ S-EXP (CDR S-EXP)) SCAN (COND ((AN}D (EQ S-EXP) (EQ (CAR OPERATORS) (QUOTE DUMMY))) (RETURN (CAR OPERANDS)))) (COND ((OR (EQ S-EXP) (EQ (> (WEIGHT (CAR S-EXP)) }(WEIGHT (CAR OPERATORS))))) (SETQ OPERANDS ((LAMBDA (X) (COND ((EQ X) (CONS (LIST (CAR (CDR OPERANDS)) (CAR OPERATORS) (CAR O}PERANDS)) (CDR (CDR OPERANDS)))) (T (CONS (LIST X (CAR (CDR OPERANDS)) (CAR OPERANDS)) (CDR (CDR OPERANDS)))))) (OPCODE (CAR }OPERATORS)))) (SETQ OPERATORS (CDR OPERATORS)) (GO SCAN)) (T (SETQ OPERATORS (CONS (CAR S-EXP) OPERATORS)) (SETQ S-EXP (CDR S}-EXP)) (GO STUFF))))))(DEFINEQ WEIGHT '(LAMBDA (OP) (COND ((EQ OP (QUOTE DUMMY)) -1) ((EQ OP (QUOTE =)) 0) ((EQ OP (QUOTE +})) 1) ((EQ OP (QUOTE -)) 1) ((EQ OP (QUOTE *)) 2) ((EQ OP (QUOTE /)) 2) (T 4))))(DEFINEQ OPCODE '(LAMBDA (OP) (COND ((EQ OP} (QUOTE DUMMY)) (QUOTE DUMMY)) ((EQ OP (QUOTE =)) (QUOTE SETQ)) ((EQ OP (QUOTE +)) (QUOTE +)) ((EQ OP (QUOTE -)) (QUOTE SUB))} ((EQ OP (QUOTE *)) (QUOTE *)) ((EQ OP (QUOTE /)) (QUOTE /)))))NILOP (QUOTE +)) (QUOTE +)) ((EQ OP (QUOTE -)) (QUOTE SUB))E"" *2HH"+" U' # # E#L" B#,"C" * Щ*D"Z"& B( 1 *8["q" 0 * # }* * #r"" E# * E#""3 U' *Į"" # # E#L""" & * #λ& &""}`0j`8` """0ģ` &"# #` & 3#`#+# * &L&˥ȥʈ`,#A# &̥ͥȑ}̈`B#W# * P#L# * X#`X#o#ɕơL# "L'p##( ;2HH( * &## X#, & "$## #HH} & X#hhL### #. * # X#hh)L*## L*& *`## *ɕ#$ .L1"0j$&$}̨̪ &`'$=$`( ;2HHH>$U$HHH o) #ȥ̥V$l$̄m$$0> * #*BDx**EHILVE** *R ** B**HIDE V}**` c4 ٥ *`**:8j *+…栩Ʃ :++©`+++`,+C+xԆ} +r2D+Z+ O+腼([+q+ͱ$ ) Ir++IŢȆǤ++8ʆ$}++Ǒ̄ȥȑ̈L+IL+++X`++j +,++Ɠ$,,I} jȱ,.,ܤ +, +,M/,F,`Iȱ̥̅G,^, ̤چˆ͘jӱ_,u,$Ъʑ̥ ʆȱ̪}v,,̥ʆˆˆ ,,нj#ʪ$вȱ ,,ʥ L,LK,$̾,,Џ̪Iȱㆷ,,̥ }̐ȦˆL~,,-` * "--L&` * "L&L7"-3- & * o)4-J-` & " K}-b- *`hhhL7"c-z-88 A- #L-{-- A-( "` #--` &05` &-- m4 *섍} 4 `ڥ-- *0ąˤ`-- &5 "1ͱ̅ȱ̅-. & #ᤝ &.. #L-`L# & ".6}.L**LP# * "07.L. &"M.d.L'ȱ " *򤅦`e.|.ȑ`ơ`}.. **P0*})1*Ɠ..L**0*11*L** **..L** **L** BL... * 0 * "( &*..EDBԝJ Vԩ./} L3L7" 0ԅ // * 0ԅ 0 * "݈/6/ &*EDBJ7/L/ԝKL. *&B .M/c/*LԽM 3}d/z/*Nԩ 3L)-{// *%B 0*ԝLՑ//M 0*)NL.// " & #// &L}/``// 0 0?0pB/0>D0EJK .00# *' 60L&p E0#Ɉ020ɛ * *30I0}L0p .L**D1:*.*BJ0a0DEIHL.b0y0p* .# 0z00` *'* .Ɛ00 U' & " U' $}İ00者Ʃ .pL.` .00ʈ 0) 00)Ԣ`*0L"/S:01 c4LѦ *' *'11} *' %141!҆ф & #51K1 &҄ % &L1c1 &҄Ѥ` L7" &d1y1j &}z11L1ѪѨφ҄ &j11 &ĝݠ`*11BHI V0` .11`8` & "0ģ11 }*` L7"12 1L# 1L3# )22 & & 272 )L2 &L&XԠơ82O2L7"xԤ¥ }2P2g2ˆĈׄºr2r2h22x2h22hXԤ`xԘ22r22222}r2r222м 2L28822ȥ͑̊򨥗ȥ̤̈́23` ,+&&e3$3e…8凅ԥ刅} %3;3L3} *L**Ʃ*<3S3  (L\(T3k3 ؐ`hh 3L!)l33DŽ &ȄǠԑȑ33}`ћ33䂐 ,+ ơL7"33L7" y3i`33 30ȱ0 *)33 *`ȱ}34󅝩4'4L " & #(4>4 &L4`?4V4 " & #䤙 &W4n4L?4}` &0LFڠo44ȱՠ`44 &0LFڠȱ44` c4 4 fڲ44L3 c4 L3 c4 44L}3 c4 4L` 4L344 40`` 044ԍ4L**45 0) 0 5+5 0 )L** G5,5C54 L*}* G5`B .D5[5L** 0ԅUՅV 0ԅT4\5r5` 0) 0ԅs55 0 0Ҋ55L** 0Ԧխ} 55L**UVL** 055ԅԄ L3 c4 ٦ԥ55 c4 ٥Ԡ` c456 4 L3 c4 4 (L366 c4 f}J $ 6-6 D `L3ơr2.6D6#L" &E6[6Ԣp** .# \6r6 6` E#s66} &; *' $ 666 & ' 6 & #Մ66 6 ' 666 E#*pL. #' * E#66) *L#( * #L}#L7"66 &* " c4 ٥67ԅƞ0Ɲ &7,7`8f & &-7D7` &` &E7[7$0} &ěङ$0\7s7L& Ӎө Ӎ 0t77)jӰ)J77JJJԩ Ly3 077)`L**} &77L**j0 & )77 ( \( )78 &L&L7"88 & &0j &808} (L\(18G8 &+ * *H8_8 E#` & $`8u8 )-L$ԅ * "v88 8 L3 *}ȍ88 &`NILT().88'QUOTELAMBDANLAMBDA88SUBRNSUBRRESETRETURN88MACROEVAL#GETD#88CAR,CDR }-PRINT@#89PRIN1'.PRIN2K#CONS-9,9APPEND2SETx-DEFINEf--9B9EQ-STICK_7STRIG7C9X9READS'QUOTE*COND-Y9p9SUBR},BAKTRACE18APPLY*q99P8READA'XIO/NOTE99?/POINTy/RPLACA199RPLACD1UNPACK7PACK997PLOT'5COL4DRAW559}9SETCOL4SOUND`5TAB599PEEK5POKE5ATOM.#9:-+4SUB4*5/5INT:%:6>4EXP4LOG4@6&:;:LISTc.CLOSE}.OPEN.<:S:LOADa0DIR/SAVE<6IN#T:j:{.PR#.ASSOC7MEMBERk::7LAST8LENGTHf8PROGN::/DEFINEQa-SETQk-::RESET}r.BREAK%"NEW"::OBLIST/GR0TERPRI$*::PROG0GO]1RETURN#MEM::2PAGE(3READC23OR4:;AND54S= }; ; *L;#% !;6;6  D<7;M; *8 (N;d;˱+e;|;Ȅ}˱Рڢ8};; ( "+++;; "ܢ8 ;;; 3#;; 3# 3# 3# ;;;} ;襬;< L< ( < <˪!<7<L<˱L<8>> INTER-LISP/65 < X 0) X) (T%} (SUB 0 X)))))NIL(LAMBDA (N) (COND ((EQ N 0) 1) (T (* N (! (SUB N 1)))))))(DEFINEQ ABS '(LAMBDA (X) (COND ((> X 0) X) (T$ P2) (LIST (QUOTE SAME))) ((EQ P1 (SPOUSE-OF P2)) (LIST (SEX-OF-SPOUSE P1))) (T (DESCRIBE-RELATION P1 P2 (FIND-PATH-BETWEEN P!}1 P2))))))(DEFINEQ REMEMBER '(LAMBDA (NODE LIST) (COND ((NULL LIST) NIL) ((EQ (CAR LIST) NODE) (REMEMBER NODE (CDR LIST))) !}(T (CONS (CAR LIST) (REMEMBER NODE (CDR LIST)))))))(DEFINEQ RETRIPLES '(LAMBDA (N U) (COND ((NULL U) NIL) ((OR (EQ N (CAAR ! }U)) (EQ N (CADDAR U))) (RETRIPLES N (CDR U))) (T (CONS (CAR U) (RETRIPLES N (CDR U)))))))(DEFINEQ ADD-TRIPLE '(LAMBDA (N1 E! } N2) (SETQ UNIVERSE-EDGE-LIST (APPEND UNIVERSE-EDGE-LIST (LIST (LIST N1 E N2))))))(DEFINEQ CAAR '(LAMBDA (X) (CAR (CAR X)))! })(DEFINEQ CADDAR '(LAMBDA (X) (CAR (CDR (CDR (CAR X))))))(DEFINEQ DESCRIBE-RELATION '(LAMBDA (P1 P2 PATH-UP-AND-DOWN) (CO! }ND ((NULL PATH-UP-AND-DOWN) (QUOTE (NOT RELATED BY BLOOD))) (T ((LAMBDA (D1 D2) (COND ((EQ D1 0) (DIRECT-ANCESTOR P1 D2)) ((E! }Q D2 0) (DIRECT-DESCENDENT P1 D1)) (T (NOT-DIRECT-RELATIONS P1 P2 D1 D2)))) (CAR PATH-UP-AND-DOWN) (CAR (CDR PATH-UP-AND-DOWN!})))))))NILCT-DESCENDENT P1 D1)) (T (NOT-DIRECT-RELATIONS P1 P2 D1 D2)))) (CAR PATH-UP-AND-DOWN) (CAR (CDR PATH-UP-AND-DOWN (RAN GOXY VTAB TIME MOD HLIN VLIN REFLECT NORMAL)(DEFINEQ RAN '(LAMBDA (RANGE) (* RANGE (/ (+ (PEEK 53770) (* 256 (PEEK 5377)}0))) 65536))))(DEFINEQ GOXY '(LAMBDA (X Y) (PROGN (VTAB Y) (TAB X))))(DEFINEQ VTAB '(LAMBDA (R) (POKE 656 R)))(DEFINEQ )}TIME '(LAMBDA NIL (PROG (TIME HOURS MINUTES SECONDS) (SETQ TIME (INT (/ (+ (* (PEEK 18) 4048) (+ (* (PEEK 19) 256) (PEEK 20)))}) 60))) (SETQ HOURS (INT (SUB (/ TIME 3600) .5))) (SETQ MINUTES (INT (SUB (/ (SUB TIME (* 3600 HOURS)) 60) .5))) (SETQ SECOND)}S (SUB TIME (+ (* HOURS 3600) (* MINUTES 60)))) (COND ((> 10 HOURS) (PRIN1 0))) (PRIN1 HOURS) (PRIN1 (QUOTE :)) (COND ((> 10 )}MINUTES) (PRIN1 0))) (PRIN1 MINUTES) (PRIN1 (QUOTE :)) (COND ((> 10 SECONDS) (PRIN1 0))) (PRINT SECONDS) (RETURN TIME))))(D)}EFINEQ MOD '(LAMBDA (X Y) (SUB X (* (INT (SUB (/ X Y) .5)) Y))))(DEFINEQ HLIN '(LAMBDA (X1 X2 Y) (PROGN (PLOT X1 Y) (DRAW X)}2 Y))))(DEFINEQ VLIN '(LAMBDA (Y1 Y2 X) (PROGN (PLOT X Y1) (DRAW X Y2))))(DEFINEQ REFLECT '(LAMBDA NIL (POKE 755 4)))(D)}EFINEQ NORMAL '(LAMBDA NIL (POKE 755 2)))NILN (PLOT X Y1) (DRAW X Y2))))(DEFINEQ REFLECT '(LAMBDA NIL (POKE 755 4)))(D(/(CALC PUSH POP BINARY UNARY - E N L S D P)(DEFINEQ CALC '(LAMBDA NIL (PROG (X Y OP STACK) LOOP (POKE 128 0) (TERPRI) (PRINT -}STACK) (TERPRI) (PRIN1 (QUOTE "> ")) (SETQ IN (READ)) (COND ((# IN) (PUSH IN)) ((MEMBER IN BINARY) (PUSH (APPLY* IN (POP-}) (POP)))) ((MEMBER IN UNARY) (PUSH (APPLY* IN (POP)))) ((EQ IN (QUOTE Q)) (RETURN)) (T (PRIN1 (QUOTE "")))) (GO LOOP))))(-}DEFINEQ PUSH '(LAMBDA (ITEM) (SETQ STACK (CONS ITEM STACK))))(DEFINEQ POP '(LAMBDA NIL (PROG (X) (SETQ X (CAR STACK)) (SETQ-} STACK (CDR STACK)) X)))(SETQ BINARY '(+ * - / P))(SETQ UNARY '(E L N D S))(DEFINEQ - '(LAMBDA (X Y) (SUB X Y)))(DEFI-}NEQ E '(LAMBDA (X) (EXP X)))(DEFINEQ N '(LAMBDA (X) (SUB 0 X)))(DEFINEQ L '(LAMBDA (X) (LOG X)))(DEFINEQ S '(LAMBDA (X)-} (EXP (/ (LOG X) 2))))(DEFINEQ D '(LAMBDA (X) (PROGN (PUSH X) X)))(DEFINEQ P '(LAMBDA (X Y) (EXP (* Y (LOG X)))))NILX),{b'DOS SYSb*+DUP SYSb,UEDIT bDOCTOR bHANOI b CLISP bBAUTORUN SYSbMACLISP b GENE bMATHEXP b UTILS bCALC