/ Liren Large Software Subsidy 9 / 09.iso / e / e070 / 6.ddi / EXPLORER / SLIDES / BLOCKS.TF

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 46 41 53 4c 20 46 49 4c | 45 0d 0a 43 6f 70 79 72 |FASL FIL|E..Copyr|
|00000010| 69 67 68 74 20 28 63 29 | 20 31 39 38 34 20 53 61 |ight (c)| 1984 Sa|
|00000020| 6e 20 4d 61 72 63 6f 20 | 41 73 73 6f 63 69 61 74 |n Marco |Associat|
|00000030| 65 73 0d 0a 09 41 6c 6c | 20 72 69 67 68 74 73 20 |es...All| rights |
|00000040| 72 65 73 65 72 76 65 64 | 2e 0d 0a 1a ff 07 04 55 |reserved|.......U|
|00000050| 53 45 52 0e 0d 00 00 00 | 00 07 04 4c 49 53 50 0e |SER.....|...LISP.|
|00000060| 0b 01 04 53 45 54 46 07 | 0a 47 45 54 2d 4c 45 53 |...SETF.|.GET-LES|
|00000070| 53 4f 4e 0b 01 05 51 55 | 4f 54 45 07 06 42 4c 4f |SON...QU|OTE..BLO|
|00000080| 43 4b 53 04 10 02 04 10 | 02 0b 01 05 51 55 4f 54 |CKS.....|....QUOT|
|00000090| 45 07 06 4c 45 53 53 4f | 4e 07 06 42 4c 4f 43 4b |E..LESSO|N..BLOCK|
|000000a0| 53 0b 01 04 4e 41 4d 45 | 07 06 42 4c 4f 43 4b 53 |S...NAME|..BLOCKS|
|000000b0| 04 10 01 07 04 4e 45 58 | 54 07 09 53 45 41 52 43 |.....NEX|T..SEARC|
|000000c0| 48 49 4e 47 04 10 01 07 | 08 50 52 45 56 49 4f 55 |HING....|.PREVIOU|
|000000d0| 53 07 06 4f 4e 57 41 52 | 44 04 10 01 07 0b 4c 45 |S..ONWAR|D.....LE|
|000000e0| 53 53 4f 4e 2d 4e 41 4d | 45 26 10 54 68 65 20 42 |SSON-NAM|E&.The B|
|000000f0| 6c 6f 63 6b 73 20 57 6f | 72 6c 64 04 10 01 04 10 |locks Wo|rld.....|
|00000100| 08 07 05 53 4c 49 44 45 | 07 0a 45 58 50 4f 53 49 |...SLIDE|..EXPOSI|
|00000110| 54 49 4f 4e 23 01 00 00 | 00 04 07 0a 45 58 50 4f |TION#...|....EXPO|
|00000120| 53 49 54 49 4f 4e 25 e8 | 02 00 00 0a 57 65 20 6e |SITION%.|....We n|
|00000130| 6f 77 20 65 78 61 6d 69 | 6e 65 20 61 20 73 69 6d |ow exami|ne a sim|
|00000140| 70 6c 65 20 70 72 6f 62 | 6c 65 6d 20 73 6f 6c 76 |ple prob|lem solv|
|00000150| 65 72 20 74 68 61 74 20 | 6d 6f 76 65 73 20 62 6c |er that |moves bl|
|00000160| 6f 63 6b 73 20 61 72 6f | 75 6e 64 0a 6f 6e 20 74 |ocks aro|und.on t|
|00000170| 68 65 20 73 63 72 65 65 | 6e 20 69 6e 20 72 65 73 |he scree|n in res|
|00000180| 70 6f 6e 73 65 20 74 6f | 20 79 6f 75 72 20 63 6f |ponse to| your co|
|00000190| 6d 6d 61 6e 64 73 2e 20 | 0a 0a 54 68 65 20 70 72 |mmands. |..The pr|
|000001a0| 6f 62 6c 65 6d 20 73 6f | 6c 76 65 72 20 69 6e 76 |oblem so|lver inv|
|000001b0| 6f 6c 76 65 73 20 61 6c | 6c 20 74 68 65 20 70 72 |olves al|l the pr|
|000001c0| 6f 63 65 64 75 72 65 73 | 20 66 72 6f 6d 20 57 69 |ocedures| from Wi|
|000001d0| 6e 73 74 6f 6e 20 61 6e | 64 0a 48 6f 72 6e 2c 20 |nston an|d.Horn, |
|000001e0| 53 65 63 6f 6e 64 20 45 | 64 69 74 69 6f 6e 2c 20 |Second E|dition, |
|000001f0| 43 68 61 70 74 65 72 20 | 31 33 2c 20 54 68 65 20 |Chapter |13, The |
|00000200| 42 6c 6f 63 6b 73 20 57 | 6f 72 6c 64 2c 20 69 6e |Blocks W|orld, in|
|00000210| 63 6c 75 64 69 6e 67 20 | 74 68 65 0a 66 6f 6c 6c |cluding |the.foll|
|00000220| 6f 77 69 6e 67 3a 0a 0a | 50 55 54 2d 4f 4e 20 70 |owing:..|PUT-ON p|
|00000230| 75 74 73 20 6f 6e 65 20 | 62 6c 6f 63 6b 20 6f 6e |uts one |block on|
|00000240| 20 74 6f 70 20 6f 66 20 | 61 6e 6f 74 68 65 72 2e | top of |another.|
|00000250| 0a 47 45 54 2d 53 50 41 | 43 45 20 66 69 6e 64 73 |.GET-SPA|CE finds|
|00000260| 20 61 20 70 6c 61 63 65 | 20 66 6f 72 20 6f 6e 65 | a place| for one|
|00000270| 20 62 6c 6f 63 6b 20 6f | 6e 20 61 6e 6f 74 68 65 | block o|n anothe|
|00000280| 72 2e 0a 46 49 4e 44 2d | 53 50 41 43 45 20 64 6f |r..FIND-|SPACE do|
|00000290| 65 73 20 47 45 54 2d 53 | 50 41 43 45 27 73 20 6a |es GET-S|PACE's j|
|000002a0| 6f 62 20 77 68 65 6e 20 | 6e 6f 74 68 69 6e 67 20 |ob when |nothing |
|000002b0| 6e 65 65 64 20 62 65 20 | 6d 6f 76 65 64 2e 0a 4d |need be |moved..M|
|000002c0| 41 4b 45 2d 53 50 41 43 | 45 20 63 6c 65 61 72 73 |AKE-SPAC|E clears|
|000002d0| 20 61 77 61 79 20 63 6c | 75 74 74 65 72 2c 20 61 | away cl|utter, a|
|000002e0| 73 20 6e 65 63 65 73 73 | 61 72 79 2e 0a 50 55 54 |s necess|ary..PUT|
|000002f0| 2d 41 54 20 61 72 72 61 | 6e 67 65 73 20 74 6f 20 |-AT arra|nges to |
|00000300| 70 75 74 20 61 20 62 6c | 6f 63 6b 20 61 74 20 61 |put a bl|ock at a|
|00000310| 20 70 61 72 74 69 63 75 | 6c 61 72 20 70 6c 61 63 | particu|lar plac|
|00000320| 65 2e 0a 47 52 41 53 50 | 20 67 72 61 73 70 73 20 |e..GRASP| grasps |
|00000330| 61 20 62 6c 6f 63 6b 2c | 20 63 6c 65 61 72 69 6e |a block,| clearin|
|00000340| 67 20 61 6e 79 20 62 6c | 6f 63 6b 73 20 6f 6e 20 |g any bl|ocks on |
|00000350| 74 6f 70 20 66 69 72 73 | 74 2e 0a 43 4c 45 41 52 |top firs|t..CLEAR|
|00000360| 2d 54 4f 50 20 68 65 6c | 70 73 20 47 52 41 53 50 |-TOP hel|ps GRASP|
|00000370| 20 63 6c 65 61 72 20 61 | 77 61 79 20 61 6c 6c 20 | clear a|way all |
|00000380| 62 6c 6f 63 6b 73 20 69 | 6e 20 74 68 65 20 77 61 |blocks i|n the wa|
|00000390| 79 2e 0a 47 45 54 2d 52 | 49 44 2d 4f 46 20 70 75 |y..GET-R|ID-OF pu|
|000003a0| 74 73 20 61 20 62 6c 6f | 63 6b 20 74 68 61 74 20 |ts a blo|ck that |
|000003b0| 69 73 20 69 6e 20 74 68 | 65 20 77 61 79 20 6f 6e |is in th|e way on|
|000003c0| 20 74 68 65 20 74 61 62 | 6c 65 2e 0a 4d 4f 56 45 | the tab|le..MOVE|
|000003d0| 2d 4f 42 4a 45 43 54 20 | 6d 6f 76 65 73 20 61 6e |-OBJECT |moves an|
|000003e0| 20 6f 62 6a 65 63 74 20 | 77 68 65 6e 20 65 76 65 | object |when eve|
|000003f0| 72 79 74 68 69 6e 67 20 | 69 73 20 72 65 61 64 79 |rything |is ready|
|00000400| 2e 0a 55 4e 47 52 41 53 | 50 20 6c 65 74 73 20 67 |..UNGRAS|P lets g|
|00000410| 6f 2e 0a 23 13 00 00 00 | 10 01 04 27 03 00 00 00 |o..#....|...'....|
|00000420| 2e 27 05 00 00 00 2e 07 | 05 53 4c 49 44 45 07 0a |.'......|.SLIDE..|
|00000430| 45 58 50 4f 53 49 54 49 | 4f 4e 23 02 00 00 00 04 |EXPOSITI|ON#.....|
|00000440| 07 0a 45 58 50 4f 53 49 | 54 49 4f 4e 26 a0 0a 4c |..EXPOSI|TION&..L|
|00000450| 65 74 27 73 20 6c 6f 6f | 6b 20 61 74 20 73 6f 6d |et's loo|k at som|
|00000460| 65 20 65 78 61 6d 70 6c | 65 73 2e 00 02 4c 65 74 |e exampl|es...Let|
|00000470| 27 73 20 62 75 69 6c 64 | 20 74 77 6f 20 74 77 6f |'s build| two two|
|00000480| 2d 62 6c 6f 63 6b 20 74 | 6f 77 65 72 73 2c 0a 62 |-block t|owers,.b|
|00000490| 79 20 77 72 61 70 70 69 | 6e 67 20 74 77 6f 20 50 |y wrappi|ng two P|
|000004a0| 55 54 2d 4f 4e 20 63 6f | 6d 6d 61 6e 64 73 20 77 |UT-ON co|mmands w|
|000004b0| 69 74 68 20 61 20 50 52 | 4f 47 4e 3a 0a 0a 28 50 |ith a PR|OGN:..(P|
|000004c0| 52 4f 47 4e 20 28 50 55 | 54 2d 4f 4e 20 27 42 34 |ROGN (PU|T-ON 'B4|
|000004d0| 20 27 42 31 29 20 28 50 | 55 54 2d 4f 4e 20 27 42 | 'B1) (P|UT-ON 'B|
|000004e0| 37 20 27 42 32 29 20 27 | 44 4f 4e 45 29 0a 23 06 |7 'B2) '|DONE).#.|
|000004f0| 00 00 00 10 01 04 27 03 | 00 00 00 2e 27 05 00 00 |......'.|....'...|
|00000500| 00 2e 07 05 53 4c 49 44 | 45 07 06 42 4c 4f 43 4b |....SLID|E..BLOCK|
|00000510| 53 23 03 00 00 00 07 05 | 46 4f 52 4d 53 0b 01 01 |S#......|FORMS...|
|00000520| 54 07 09 46 55 4e 43 54 | 49 4f 4e 53 0b 01 01 54 |T..FUNCT|IONS...T|
|00000530| 07 05 53 54 41 52 54 0b | 01 05 50 52 4f 47 4e 07 |..START.|..PROGN.|
|00000540| 06 50 55 54 2d 4f 4e 0b | 01 05 51 55 4f 54 45 07 |.PUT-ON.|..QUOTE.|
|00000550| 02 42 34 04 10 02 0b 01 | 05 51 55 4f 54 45 07 02 |.B4.....|.QUOTE..|
|00000560| 42 31 04 10 02 04 10 03 | 07 06 50 55 54 2d 4f 4e |B1......|..PUT-ON|
|00000570| 0b 01 05 51 55 4f 54 45 | 07 02 42 37 04 10 02 0b |...QUOTE|..B7....|
|00000580| 01 05 51 55 4f 54 45 07 | 02 42 32 04 10 02 04 10 |..QUOTE.|.B2.....|
|00000590| 03 0b 01 05 51 55 4f 54 | 45 07 04 44 4f 4e 45 04 |....QUOT|E..DONE.|
|000005a0| 10 02 04 10 04 04 10 01 | 04 10 06 07 04 54 45 58 |........|.....TEX|
|000005b0| 54 23 00 00 00 00 07 04 | 43 4e 55 4d 23 00 00 00 |T#......|CNUM#...|
|000005c0| 00 04 10 01 04 10 02 26 | 60 52 65 6d 65 6d 62 65 |.......&|`Remembe|
|000005d0| 72 20 74 68 61 74 20 74 | 68 65 20 69 6e 73 74 72 |r that t|he instr|
|000005e0| 75 63 74 69 6f 6e 73 20 | 61 72 65 20 61 73 20 66 |uctions |are as f|
|000005f0| 6f 6c 6c 6f 77 73 3a 0a | 0a 28 50 52 4f 47 4e 20 |ollows:.|.(PROGN |
|00000600| 28 50 55 54 2d 4f 4e 20 | 27 42 34 20 27 42 31 29 |(PUT-ON |'B4 'B1)|
|00000610| 20 28 50 55 54 2d 4f 4e | 20 27 42 37 20 27 42 32 | (PUT-ON| 'B7 'B2|
|00000620| 29 20 27 44 4f 4e 45 29 | 0a 23 04 00 00 00 10 01 |) 'DONE)|.#......|
|00000630| 27 04 00 00 00 2e 04 10 | 01 27 05 00 00 00 2e 07 |'.......|.'......|
|00000640| 05 53 4c 49 44 45 07 0a | 45 58 50 4f 53 49 54 49 |.SLIDE..|EXPOSITI|
|00000650| 4f 4e 23 04 00 00 00 04 | 07 0a 45 58 50 4f 53 49 |ON#.....|..EXPOSI|
|00000660| 54 49 4f 4e 26 7e 0a 4e | 6f 77 20 6c 65 74 27 73 |TION&~.N|ow let's|
|00000670| 20 70 75 74 20 42 31 20 | 6f 6e 20 42 32 2c 20 66 | put B1 |on B2, f|
|00000680| 6f 72 63 69 6e 67 20 62 | 6f 74 68 20 74 6f 77 65 |orcing b|oth towe|
|00000690| 72 73 20 74 6f 20 62 65 | 20 75 6e 73 74 61 63 6b |rs to be| unstack|
|000006a0| 65 64 2e 00 02 54 68 65 | 0a 69 6e 73 74 72 75 63 |ed...The|.instruc|
|000006b0| 74 69 6f 6e 20 69 73 20 | 61 73 20 66 6f 6c 6c 6f |tion is |as follo|
|000006c0| 77 73 3a 0a 0a 28 50 52 | 4f 47 4e 20 28 50 55 54 |ws:..(PR|OGN (PUT|
|000006d0| 2d 4f 4e 20 27 42 31 20 | 27 42 32 29 20 27 44 4f |-ON 'B1 |'B2) 'DO|
|000006e0| 4e 45 29 0a 23 06 00 00 | 00 10 01 04 27 03 00 00 |NE).#...|....'...|
|000006f0| 00 2e 27 05 00 00 00 2e | 07 05 53 4c 49 44 45 07 |..'.....|..SLIDE.|
|00000700| 06 42 4c 4f 43 4b 53 23 | 05 00 00 00 07 05 46 4f |.BLOCKS#|......FO|
|00000710| 52 4d 53 07 06 50 55 54 | 2d 4f 4e 0b 01 05 51 55 |RMS..PUT|-ON...QU|
|00000720| 4f 54 45 07 02 42 34 04 | 10 02 0b 01 05 51 55 4f |OTE..B4.|.....QUO|
|00000730| 54 45 07 02 42 31 04 10 | 02 04 10 03 07 06 50 55 |TE..B1..|......PU|
|00000740| 54 2d 4f 4e 0b 01 05 51 | 55 4f 54 45 07 02 42 37 |T-ON...Q|UOTE..B7|
|00000750| 04 10 02 0b 01 05 51 55 | 4f 54 45 07 02 42 32 04 |......QU|OTE..B2.|
|00000760| 10 02 04 10 03 04 10 02 | 07 09 46 55 4e 43 54 49 |........|..FUNCTI|
|00000770| 4f 4e 53 0b 01 01 54 07 | 05 53 54 41 52 54 0b 01 |ONS...T.|.START..|
|00000780| 05 50 52 4f 47 4e 07 06 | 50 55 54 2d 4f 4e 0b 01 |.PROGN..|PUT-ON..|
|00000790| 05 51 55 4f 54 45 07 02 | 42 31 04 10 02 0b 01 05 |.QUOTE..|B1......|
|000007a0| 51 55 4f 54 45 07 02 42 | 32 04 10 02 04 10 03 0b |QUOTE..B|2.......|
|000007b0| 01 05 51 55 4f 54 45 07 | 04 44 4f 4e 45 04 10 02 |..QUOTE.|.DONE...|
|000007c0| 04 10 03 04 10 01 04 10 | 06 07 04 54 45 58 54 23 |........|...TEXT#|
|000007d0| 00 00 00 00 07 04 43 4e | 55 4d 23 00 00 00 00 04 |......CN|UM#.....|
|000007e0| 10 01 04 10 02 26 4d 52 | 65 6d 65 6d 62 65 72 20 |.....&MR|emember |
|000007f0| 74 68 61 74 20 74 68 65 | 20 69 6e 73 74 72 75 63 |that the| instruc|
|00000800| 74 69 6f 6e 20 69 73 20 | 61 73 20 66 6f 6c 6c 6f |tion is |as follo|
|00000810| 77 73 3a 0a 0a 28 50 52 | 4f 47 4e 20 28 50 55 54 |ws:..(PR|OGN (PUT|
|00000820| 2d 4f 4e 20 27 42 31 20 | 27 42 32 29 20 27 44 4f |-ON 'B1 |'B2) 'DO|
|00000830| 4e 45 29 0a 23 04 00 00 | 00 10 01 27 04 00 00 00 |NE).#...|...'....|
|00000840| 2e 04 10 01 27 05 00 00 | 00 2e 07 05 53 4c 49 44 |....'...|....SLID|
|00000850| 45 07 0a 45 58 50 4f 53 | 49 54 49 4f 4e 23 06 00 |E..EXPOS|ITION#..|
|00000860| 00 00 04 07 0a 45 58 50 | 4f 53 49 54 49 4f 4e 26 |.....EXP|OSITION&|
|00000870| 85 0a 4e 6f 77 20 6c 65 | 74 27 73 20 6c 6f 6f 6b |..Now le|t's look|
|00000880| 20 61 74 20 74 68 65 20 | 6c 61 73 74 20 61 63 74 | at the |last act|
|00000890| 69 6f 6e 20 73 65 71 75 | 65 6e 63 65 20 75 73 69 |ion sequ|ence usi|
|000008a0| 6e 67 20 74 68 65 20 53 | 61 6e 20 4d 61 72 63 6f |ng the S|an Marco|
|000008b0| 0a 49 6e 73 70 65 63 74 | 6f 72 2e 00 02 48 65 72 |.Inspect|or...Her|
|000008c0| 65 20 69 73 20 74 68 65 | 20 69 6e 73 74 72 75 63 |e is the| instruc|
|000008d0| 74 69 6f 6e 3a 0a 0a 28 | 50 52 4f 47 4e 20 28 50 |tion:..(|PROGN (P|
|000008e0| 55 54 2d 4f 4e 20 27 42 | 31 20 27 42 32 29 20 27 |UT-ON 'B|1 'B2) '|
|000008f0| 44 4f 4e 45 29 0a 23 06 | 00 00 00 10 01 04 27 03 |DONE).#.|......'.|
|00000900| 00 00 00 2e 27 05 00 00 | 00 2e 07 05 53 4c 49 44 |....'...|....SLID|
|00000910| 45 07 06 42 54 52 41 43 | 45 23 07 00 00 00 07 05 |E..BTRAC|E#......|
|00000920| 46 4f 52 4d 53 07 06 50 | 55 54 2d 4f 4e 0b 01 05 |FORMS..P|UT-ON...|
|00000930| 51 55 4f 54 45 07 02 42 | 34 04 10 02 0b 01 05 51 |QUOTE..B|4......Q|
|00000940| 55 4f 54 45 07 02 42 31 | 04 10 02 04 10 03 07 06 |UOTE..B1|........|
|00000950| 50 55 54 2d 4f 4e 0b 01 | 05 51 55 4f 54 45 07 02 |PUT-ON..|.QUOTE..|
|00000960| 42 37 04 10 02 0b 01 05 | 51 55 4f 54 45 07 02 42 |B7......|QUOTE..B|
|00000970| 32 04 10 02 04 10 03 04 | 10 02 07 09 46 55 4e 43 |2.......|....FUNC|
|00000980| 54 49 4f 4e 53 07 06 50 | 55 54 2d 4f 4e 07 09 47 |TIONS..P|UT-ON..G|
|00000990| 45 54 2d 53 50 41 43 45 | 07 0a 46 49 4e 44 2d 53 |ET-SPACE|..FIND-S|
|000009a0| 50 41 43 45 07 0a 4d 41 | 4b 45 2d 53 50 41 43 45 |PACE..MA|KE-SPACE|
|000009b0| 07 06 50 55 54 2d 41 54 | 07 05 47 52 41 53 50 07 |..PUT-AT|..GRASP.|
|000009c0| 09 43 4c 45 41 52 2d 54 | 4f 50 07 0a 47 45 54 2d |.CLEAR-T|OP..GET-|
|000009d0| 52 49 44 2d 4f 46 07 0b | 4d 4f 56 45 2d 4f 42 4a |RID-OF..|MOVE-OBJ|
|000009e0| 45 43 54 07 07 55 4e 47 | 52 41 53 50 04 10 0a 07 |ECT..UNG|RASP....|
|000009f0| 05 53 54 41 52 54 0b 01 | 05 50 52 4f 47 4e 07 06 |.START..|.PROGN..|
|00000a00| 50 55 54 2d 4f 4e 0b 01 | 05 51 55 4f 54 45 07 02 |PUT-ON..|.QUOTE..|
|00000a10| 42 31 04 10 02 0b 01 05 | 51 55 4f 54 45 07 02 42 |B1......|QUOTE..B|
|00000a20| 32 04 10 02 04 10 03 0b | 01 05 51 55 4f 54 45 07 |2.......|..QUOTE.|
|00000a30| 04 44 4f 4e 45 04 10 02 | 04 10 03 04 10 01 04 10 |.DONE...|........|
|00000a40| 06 07 04 54 45 58 54 23 | 00 00 00 00 07 04 43 4e |...TEXT#|......CN|
|00000a50| 55 4d 23 00 00 00 00 04 | 10 01 04 10 02 26 96 57 |UM#.....|.....&.W|
|00000a60| 65 20 73 74 61 72 74 20 | 77 69 74 68 20 74 68 65 |e start |with the|
|00000a70| 20 74 77 6f 20 74 6f 77 | 65 72 73 20 61 6c 72 65 | two tow|ers alre|
|00000a80| 61 64 79 20 62 75 69 6c | 74 20 61 6e 64 20 72 65 |ady buil|t and re|
|00000a90| 61 64 79 20 74 6f 20 62 | 65 0a 64 69 73 61 73 73 |ady to b|e.disass|
|00000aa0| 65 6d 62 6c 65 64 20 62 | 79 20 74 68 65 20 66 6f |embled b|y the fo|
|00000ab0| 6c 6c 6f 77 69 6e 67 20 | 69 6e 73 74 72 75 63 74 |llowing |instruct|
|00000ac0| 69 6f 6e 3a 0a 00 32 42 | 34 00 04 42 37 0a 28 50 |ion:..2B|4..B7.(P|
|00000ad0| 52 4f 47 4e 20 28 50 55 | 54 2d 4f 4e 20 27 42 31 |ROGN (PU|T-ON 'B1|
|00000ae0| 20 27 42 32 29 20 27 44 | 4f 4e 45 29 00 14 42 31 | 'B2) 'D|ONE)..B1|
|00000af0| 00 04 42 32 0a 23 05 00 | 00 00 10 01 27 04 00 00 |..B2.#..|....'...|
|00000b00| 00 2e 07 04 54 45 58 54 | 23 01 00 00 00 07 04 43 |....TEXT|#......C|
|00000b10| 4e 55 4d 23 01 00 00 00 | 04 10 01 04 10 02 26 0e |NUM#....|......&.|
|00000b20| 0a 42 34 00 04 42 37 0a | 42 31 00 04 42 32 23 03 |.B4..B7.|B1..B2#.|
|00000b30| 00 00 00 10 01 27 04 00 | 00 00 2e 07 04 54 45 58 |.....'..|.....TEX|
|00000b40| 54 23 f6 ff 00 00 07 04 | 43 4e 55 4d 23 f6 ff 00 |T#......|CNUM#...|
|00000b50| 00 04 10 01 04 10 02 26 | 0e 0a 42 34 0a 42 31 00 |.......&|..B4.B1.|
|00000b60| 04 42 32 00 1e 42 37 23 | 03 00 00 00 10 01 27 04 |.B2..B7#|......'.|
|00000b70| 00 00 00 2e 07 04 54 45 | 58 54 23 ec ff 00 00 07 |......TE|XT#.....|
|00000b80| 04 43 4e 55 4d 23 ec ff | 00 00 04 10 01 04 10 02 |.CNUM#..|........|
|00000b90| 26 12 0a 0a 42 31 00 04 | 42 32 00 0a 42 34 00 12 |&...B1..|B2..B4..|
|00000ba0| 42 37 00 04 23 03 00 00 | 00 10 01 27 04 00 00 00 |B7..#...|...'....|
|00000bb0| 2e 07 04 54 45 58 54 23 | ea ff 00 00 07 04 43 4e |...TEXT#|......CN|
|00000bc0| 55 4d 23 ea ff 00 00 04 | 10 01 04 10 02 26 15 0a |UM#.....|.....&..|
|00000bd0| 00 06 42 31 0a 00 06 42 | 32 00 0a 42 34 00 12 42 |..B1...B|2..B4..B|
|00000be0| 37 00 04 0a 23 04 00 00 | 00 10 01 27 04 00 00 00 |7...#...|...'....|
|00000bf0| 2e 04 10 05 27 05 00 00 | 00 2e 07 05 53 4c 49 44 |....'...|....SLID|
|00000c00| 45 07 0a 45 58 50 4f 53 | 49 54 49 4f 4e 23 08 00 |E..EXPOS|ITION#..|
|00000c10| 00 00 04 07 0a 45 58 50 | 4f 53 49 54 49 4f 4e 26 |.....EXP|OSITION&|
|00000c20| 9a 0a 4e 6f 77 20 6c 65 | 74 27 73 20 77 61 74 63 |..Now le|t's watc|
|00000c30| 68 20 73 6f 6d 65 74 68 | 69 6e 67 20 6d 6f 72 65 |h someth|ing more|
|00000c40| 20 63 6f 6d 70 6c 69 63 | 61 74 65 64 2e 00 02 54 | complic|ated...T|
|00000c50| 68 65 72 65 20 77 69 6c | 6c 20 62 65 20 61 20 6c |here wil|l be a l|
|00000c60| 6f 74 0a 6f 66 20 63 6c | 75 74 74 65 72 20 74 6f |ot.of cl|utter to|
|00000c70| 20 62 65 20 63 6c 65 61 | 72 65 64 20 66 72 6f 6d | be clea|red from|
|00000c80| 20 74 68 65 20 74 61 72 | 67 65 74 20 6f 62 6a 65 | the tar|get obje|
|00000c90| 63 74 20 61 73 20 77 65 | 6c 6c 20 61 73 20 66 72 |ct as we|ll as fr|
|00000ca0| 6f 6d 0a 74 68 65 20 6f | 62 6a 65 63 74 20 74 6f |om.the o|bject to|
|00000cb0| 20 62 65 20 6d 6f 76 65 | 64 2e 0a 23 05 00 00 00 | be move|d..#....|
|00000cc0| 10 01 04 27 03 00 00 00 | 2e 27 05 00 00 00 2e 07 |...'....|.'......|
|00000cd0| 05 53 4c 49 44 45 07 06 | 42 4c 4f 43 4b 53 23 09 |.SLIDE..|BLOCKS#.|
|00000ce0| 00 00 00 07 05 46 4f 52 | 4d 53 07 06 50 55 54 2d |.....FOR|MS..PUT-|
|00000cf0| 4f 4e 0b 01 05 51 55 4f | 54 45 07 02 42 31 04 10 |ON...QUO|TE..B1..|
|00000d00| 02 0b 01 05 51 55 4f 54 | 45 07 02 42 33 04 10 02 |....QUOT|E..B3...|
|00000d10| 04 10 03 07 06 50 55 54 | 2d 4f 4e 0b 01 05 51 55 |.....PUT|-ON...QU|
|00000d20| 4f 54 45 07 02 42 34 04 | 10 02 0b 01 05 51 55 4f |OTE..B4.|.....QUO|
|00000d30| 54 45 07 02 42 33 04 10 | 02 04 10 03 07 06 50 55 |TE..B3..|......PU|
|00000d40| 54 2d 4f 4e 0b 01 05 51 | 55 4f 54 45 07 02 42 32 |T-ON...Q|UOTE..B2|
|00000d50| 04 10 02 0b 01 05 51 55 | 4f 54 45 07 02 42 36 04 |......QU|OTE..B6.|
|00000d60| 10 02 04 10 03 07 06 50 | 55 54 2d 4f 4e 0b 01 05 |.......P|UT-ON...|
|00000d70| 51 55 4f 54 45 07 02 42 | 38 04 10 02 0b 01 05 51 |QUOTE..B|8......Q|
|00000d80| 55 4f 54 45 07 02 42 36 | 04 10 02 04 10 03 07 06 |UOTE..B6|........|
|00000d90| 50 55 54 2d 4f 4e 0b 01 | 05 51 55 4f 54 45 07 02 |PUT-ON..|.QUOTE..|
|00000da0| 42 37 04 10 02 0b 01 05 | 51 55 4f 54 45 07 02 42 |B7......|QUOTE..B|
|00000db0| 32 04 10 02 04 10 03 04 | 10 05 07 09 46 55 4e 43 |2.......|....FUNC|
|00000dc0| 54 49 4f 4e 53 0b 01 01 | 54 07 05 53 54 41 52 54 |TIONS...|T..START|
|00000dd0| 0b 01 05 50 52 4f 47 4e | 07 06 50 55 54 2d 4f 4e |...PROGN|..PUT-ON|
|00000de0| 0b 01 05 51 55 4f 54 45 | 07 02 42 36 04 10 02 0b |...QUOTE|..B6....|
|00000df0| 01 05 51 55 4f 54 45 07 | 02 42 33 04 10 02 04 10 |..QUOTE.|.B3.....|
|00000e00| 03 0b 01 05 51 55 4f 54 | 45 07 04 44 4f 4e 45 04 |....QUOT|E..DONE.|
|00000e10| 10 02 04 10 03 04 10 01 | 04 10 06 07 04 54 45 58 |........|.....TEX|
|00000e20| 54 23 00 00 00 00 07 04 | 43 4e 55 4d 23 00 00 00 |T#......|CNUM#...|
|00000e30| 00 04 10 01 04 10 02 26 | 83 54 68 65 20 6f 62 6a |.......&|.The obj|
|00000e40| 65 63 74 69 76 65 20 68 | 65 72 65 20 69 73 20 74 |ective h|ere is t|
|00000e50| 6f 20 70 75 74 20 62 6c | 6f 63 6b 20 42 36 20 6f |o put bl|ock B6 o|
|00000e60| 6e 20 74 6f 70 20 6f 66 | 20 62 6c 6f 63 6b 20 42 |n top of| block B|
|00000e70| 33 2c 20 63 61 6c 6c 65 | 64 0a 66 6f 72 20 62 79 |3, calle|d.for by|
|00000e80| 20 74 68 65 20 66 6f 6c | 6c 6f 77 69 6e 67 20 69 | the fol|lowing i|
|00000e90| 6e 73 74 72 75 63 74 69 | 6f 6e 3a 0a 0a 28 50 52 |nstructi|on:..(PR|
|00000ea0| 4f 47 4e 20 28 50 55 54 | 2d 4f 4e 20 27 42 36 20 |OGN (PUT|-ON 'B6 |
|00000eb0| 27 42 33 29 20 27 44 4f | 4e 45 29 2e 23 04 00 00 |'B3) 'DO|NE).#...|
|00000ec0| 00 10 01 27 04 00 00 00 | 2e 07 04 54 45 58 54 23 |...'....|...TEXT#|
|00000ed0| 01 00 00 00 07 04 43 4e | 55 4d 23 01 00 00 00 04 |......CN|UM#.....|
|00000ee0| 10 01 04 10 02 26 55 4e | 6f 74 65 20 74 68 61 74 |.....&UN|ote that|
|00000ef0| 20 74 68 65 20 61 72 67 | 75 6d 65 6e 74 73 20 61 | the arg|uments a|
|00000f00| 6e 64 20 76 61 6c 75 65 | 73 20 6f 66 20 4d 4f 56 |nd value|s of MOV|
|00000f10| 45 2d 4f 42 4a 45 43 54 | 20 61 72 65 20 65 78 70 |E-OBJECT| are exp|
|00000f20| 6f 73 65 64 20 69 6e 0a | 74 68 65 20 6d 69 64 64 |osed in.|the midd|
|00000f30| 6c 65 20 77 69 6e 64 6f | 77 2e 00 02 23 02 00 00 |le windo|w...#...|
|00000f40| 00 10 01 27 04 00 00 00 | 2e 07 04 54 45 58 54 23 |...'....|...TEXT#|
|00000f50| ff ff 00 00 07 04 43 4e | 55 4d 23 ff ff 00 00 04 |......CN|UM#.....|
|00000f60| 10 01 04 10 02 26 e7 4e | 6f 74 65 20 61 6c 73 6f |.....&.N|ote also|
|00000f70| 20 74 68 61 74 20 74 68 | 65 20 76 61 6c 75 65 20 | that th|e value |
|00000f80| 72 65 74 75 72 6e 65 64 | 20 69 73 20 6a 75 73 74 |returned| is just|
|00000f90| 20 74 68 65 20 73 79 6d | 62 6f 6c 20 4e 4f 54 2d | the sym|bol NOT-|
|00000fa0| 55 53 45 46 55 4c 2e 0a | 57 65 20 68 61 76 65 20 |USEFUL..|We have |
|00000fb0| 6d 6f 64 69 66 69 65 64 | 20 74 68 65 20 70 72 6f |modified| the pro|
|00000fc0| 63 65 64 75 72 65 73 20 | 69 6e 20 74 68 65 20 62 |cedures |in the b|
|00000fd0| 6f 6f 6b 20 74 68 61 74 | 20 72 65 74 75 72 6e 65 |ook that| returne|
|00000fe0| 64 20 6c 61 72 67 65 2c | 0a 62 75 74 20 75 73 65 |d large,|.but use|
|00000ff0| 6c 65 73 73 20 76 61 6c | 75 65 73 2e 00 02 54 68 |less val|ues...Th|
|00001000| 65 79 20 6e 6f 77 20 6a | 75 73 74 20 72 65 74 75 |ey now j|ust retu|
|00001010| 72 6e 20 74 68 65 20 73 | 79 6d 62 6f 6c 20 4e 4f |rn the s|ymbol NO|
|00001020| 54 2d 55 53 45 46 55 4c | 2c 0a 77 68 69 63 68 20 |T-USEFUL|,.which |
|00001030| 6d 61 6b 65 73 20 74 72 | 61 63 69 6e 67 20 6c 65 |makes tr|acing le|
|00001040| 73 73 20 63 75 6d 62 65 | 72 73 6f 6d 65 2e 23 04 |ss cumbe|rsome.#.|
|00001050| 00 00 00 10 01 27 04 00 | 00 00 2e 07 04 54 45 58 |.....'..|.....TEX|
|00001060| 54 23 01 00 00 00 07 04 | 43 4e 55 4d 23 01 00 00 |T#......|CNUM#...|
|00001070| 00 04 10 01 04 10 02 26 | cb 41 73 20 74 68 65 20 |.......&|.As the |
|00001080| 63 6c 75 74 74 65 72 20 | 69 73 20 63 6c 65 61 72 |clutter |is clear|
|00001090| 65 64 2c 20 6e 6f 74 65 | 20 74 68 61 74 20 65 61 |ed, note| that ea|
|000010a0| 63 68 20 62 6c 6f 63 6b | 20 68 61 73 20 61 20 68 |ch block| has a h|
|000010b0| 6f 6d 65 0a 70 6f 73 69 | 74 69 6f 6e 20 6f 6e 20 |ome.posi|tion on |
|000010c0| 74 68 65 20 74 61 62 6c | 65 2e 00 02 54 68 69 73 |the tabl|e...This|
|000010d0| 20 69 73 20 61 20 63 6f | 6e 76 65 6e 74 69 6f 6e | is a co|nvention|
|000010e0| 20 74 68 61 74 20 6d 61 | 6b 65 73 20 69 74 20 65 | that ma|kes it e|
|000010f0| 61 73 79 0a 66 6f 72 20 | 46 49 4e 44 2d 53 50 41 |asy.for |FIND-SPA|
|00001100| 43 45 20 74 6f 20 77 6f | 72 6b 20 69 6e 20 74 68 |CE to wo|rk in th|
|00001110| 65 20 73 70 65 63 69 61 | 6c 20 63 61 73 65 20 77 |e specia|l case w|
|00001120| 68 65 72 65 20 74 68 65 | 20 74 61 72 67 65 74 0a |here the| target.|
|00001130| 6f 62 6a 65 63 74 20 69 | 73 20 74 68 65 20 74 61 |object i|s the ta|
|00001140| 62 6c 65 2e 23 04 00 00 | 00 10 01 27 04 00 00 00 |ble.#...|...'....|
|00001150| 2e 07 04 54 45 58 54 23 | ff ff 00 00 07 04 43 4e |...TEXT#|......CN|
|00001160| 55 4d 23 ff ff 00 00 04 | 10 01 04 10 02 26 cc 41 |UM#.....|.....&.A|
|00001170| 73 20 74 68 65 20 63 6c | 75 74 74 65 72 20 69 73 |s the cl|utter is|
|00001180| 20 63 6c 65 61 72 65 64 | 2c 20 6e 6f 74 65 20 74 | cleared|, note t|
|00001190| 68 61 74 20 65 61 63 68 | 20 62 6c 6f 63 6b 20 68 |hat each| block h|
|000011a0| 61 73 20 61 20 68 6f 6d | 65 0a 70 6f 73 69 74 69 |as a hom|e.positi|
|000011b0| 6f 6e 20 6f 6e 20 74 68 | 65 20 74 61 62 6c 65 2e |on on th|e table.|
|000011c0| 00 02 54 68 69 73 20 69 | 73 20 61 20 63 6f 6e 76 |..This i|s a conv|
|000011d0| 65 6e 74 69 6f 6e 20 74 | 68 61 74 20 6d 61 6b 65 |ention t|hat make|
|000011e0| 73 20 69 74 20 65 61 73 | 79 0a 66 6f 72 20 46 49 |s it eas|y.for FI|
|000011f0| 4e 44 2d 53 50 41 43 45 | 20 74 6f 20 77 6f 72 6b |ND-SPACE| to work|
|00001200| 20 69 6e 20 74 68 65 20 | 73 70 65 63 69 61 6c 20 | in the |special |
|00001210| 63 61 73 65 20 77 68 65 | 72 65 20 74 68 65 20 74 |case whe|re the t|
|00001220| 61 72 67 65 74 0a 6f 62 | 6a 65 63 74 20 69 73 20 |arget.ob|ject is |
|00001230| 74 68 65 20 74 61 62 6c | 65 2e 0a 23 05 00 00 00 |the tabl|e..#....|
|00001240| 10 01 27 04 00 00 00 2e | 04 10 05 27 05 00 00 00 |..'.....|...'....|
|00001250| 2e 07 05 53 4c 49 44 45 | 07 0a 45 58 50 4f 53 49 |...SLIDE|..EXPOSI|
|00001260| 54 49 4f 4e 23 0a 00 00 | 00 04 07 0a 45 58 50 4f |TION#...|....EXPO|
|00001270| 53 49 54 49 4f 4e 25 ea | 01 00 00 0a 54 68 65 20 |SITION%.|....The |
|00001280| 62 65 73 74 20 77 61 79 | 20 74 6f 20 65 78 70 65 |best way| to expe|
|00001290| 72 69 6d 65 6e 74 20 77 | 69 74 68 20 74 68 65 20 |riment w|ith the |
|000012a0| 62 6c 6f 63 6b 73 20 77 | 6f 72 6c 64 20 69 73 20 |blocks w|orld is |
|000012b0| 74 6f 20 6c 65 61 76 65 | 20 74 68 65 0a 53 61 6e |to leave| the.San|
|000012c0| 20 4d 61 72 63 6f 20 4c | 49 53 50 20 45 78 70 6c | Marco L|ISP Expl|
|000012d0| 6f 72 65 72 2c 20 63 61 | 6c 6c 20 75 70 20 74 68 |orer, ca|ll up th|
|000012e0| 65 20 42 6c 6f 63 6b 73 | 20 57 6f 72 6c 64 2c 20 |e Blocks| World, |
|000012f0| 61 6e 64 20 73 74 61 72 | 74 0a 69 73 73 75 69 6e |and star|t.issuin|
|00001300| 67 20 50 55 54 2d 4f 4e | 20 63 6f 6d 6d 61 6e 64 |g PUT-ON| command|
|00001310| 73 2e 00 02 48 65 72 65 | 20 69 73 20 68 6f 77 3a |s...Here| is how:|
|00001320| 0a 0a 6f 00 04 50 72 65 | 73 73 20 46 31 20 74 6f |..o..Pre|ss F1 to|
|00001330| 20 72 65 74 75 72 6e 20 | 74 6f 20 47 6f 6c 64 65 | return |to Golde|
|00001340| 6e 20 43 6f 6d 6d 6f 6e | 20 4c 49 53 50 2e 0a 0a |n Common| LISP...|
|00001350| 6f 00 04 54 79 70 65 20 | 74 68 65 20 66 6f 6c 6c |o..Type |the foll|
|00001360| 6f 77 69 6e 67 20 74 6f | 20 63 61 6c 6c 20 75 70 |owing to| call up|
|00001370| 20 74 68 65 20 62 6c 6f | 63 6b 73 20 77 6f 72 6c | the blo|cks worl|
|00001380| 64 3a 0a 0a 00 05 28 49 | 4e 53 50 45 43 54 20 3a |d:....(I|NSPECT :|
|00001390| 42 4c 4f 43 4b 53 29 0a | 0a 6f 00 04 49 73 73 75 |BLOCKS).|.o..Issu|
|000013a0| 65 20 63 6f 6d 6d 61 6e | 64 73 20 62 79 20 74 79 |e comman|ds by ty|
|000013b0| 70 69 6e 67 20 66 6f 72 | 6d 73 20 6c 69 6b 65 20 |ping for|ms like |
|000013c0| 74 68 65 20 66 6f 6c 6c | 6f 77 69 6e 67 3a 0a 0a |the foll|owing:..|
|000013d0| 00 05 28 50 55 54 2d 4f | 4e 20 27 42 36 20 27 42 |..(PUT-O|N 'B6 'B|
|000013e0| 33 29 0a 0a 6f 00 04 54 | 65 72 6d 69 6e 61 74 65 |3)..o..T|erminate|
|000013f0| 20 79 6f 75 72 20 77 6f | 72 6b 20 77 69 74 68 20 | your wo|rk with |
|00001400| 74 68 65 20 62 6c 6f 63 | 6b 73 20 77 6f 72 6c 64 |the bloc|ks world|
|00001410| 2c 20 61 73 20 69 6e 73 | 74 72 75 63 74 65 64 2c |, as ins|tructed,|
|00001420| 0a 00 05 61 6e 64 20 74 | 68 65 6e 20 74 79 70 65 |...and t|hen type|
|00001430| 20 74 68 65 20 66 6f 6c | 6c 6f 77 69 6e 67 20 74 | the fol|lowing t|
|00001440| 6f 20 72 65 74 75 72 6e | 20 74 6f 20 74 68 69 73 |o return| to this|
|00001450| 20 73 6c 69 64 65 3a 0a | 0a 00 05 28 45 58 50 4c | slide:.|...(EXPL|
|00001460| 4f 52 45 29 0a 23 14 00 | 00 00 10 01 04 27 03 00 |ORE).#..|.....'..|
|00001470| 00 00 2e 27 05 00 00 00 | 2e 27 0a 00 00 00 04 27 |...'....|.'.....'|
|00001480| 05 00 00 00 2e 04 10 02 | 04 10 03 36 0b 01 04 53 |........|...6...S|
|00001490| 45 54 46 07 15 2a 4c 41 | 53 54 2d 4c 4f 41 44 45 |ETF..*LA|ST-LOADE|
|000014a0| 44 2d 4c 45 53 53 4f 4e | 53 2a 0b 01 05 51 55 4f |D-LESSON|S*...QUO|
|000014b0| 54 45 07 06 42 4c 4f 43 | 4b 53 04 10 01 04 10 02 |TE..BLOC|KS......|
|000014c0| 04 10 03 36 40          |                         |...6@   |        |
+--------+-------------------------+-------------------------+--------+--------+