/ Liren Large Software Subsidy 9 / 09.iso / e / e070 / 6.ddi / EXPLORER / SLIDES / IO.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 02 49 4f 04 |SON...QU|OTE..IO.|
|00000080| 10 02 04 10 02 0b 01 05 | 51 55 4f 54 45 07 06 4c |........|QUOTE..L|
|00000090| 45 53 53 4f 4e 07 02 49 | 4f 0b 01 04 4e 41 4d 45 |ESSON..I|O...NAME|
|000000a0| 07 02 49 4f 04 10 01 07 | 08 50 52 45 56 49 4f 55 |..IO....|.PREVIOU|
|000000b0| 53 07 0a 53 54 52 55 43 | 54 55 52 45 53 04 10 01 |S..STRUC|TURES...|
|000000c0| 07 04 4e 45 58 54 0b 01 | 04 52 45 41 44 04 10 01 |..NEXT..|.READ...|
|000000d0| 07 0b 4c 45 53 53 4f 4e | 2d 4e 41 4d 45 26 14 50 |..LESSON|-NAME&.P|
|000000e0| 72 69 6e 74 69 6e 67 20 | 75 73 69 6e 67 20 50 52 |rinting |using PR|
|000000f0| 49 4e 54 04 10 01 04 10 | 08 07 05 53 4c 49 44 45 |INT.....|...SLIDE|
|00000100| 07 0a 45 58 50 4f 53 49 | 54 49 4f 4e 23 01 00 00 |..EXPOSI|TION#...|
|00000110| 00 04 07 0a 45 58 50 4f | 53 49 54 49 4f 4e 25 38 |....EXPO|SITION%8|
|00000120| 02 00 00 0a 4c 49 53 50 | 20 69 73 20 68 61 70 70 |....LISP| is happ|
|00000130| 79 20 74 6f 20 70 72 69 | 6e 74 20 74 68 65 20 76 |y to pri|nt the v|
|00000140| 61 6c 75 65 73 20 6f 66 | 20 74 68 65 20 66 6f 72 |alues of| the for|
|00000150| 6d 73 20 79 6f 75 20 74 | 79 70 65 20 6f 6e 20 79 |ms you t|ype on y|
|00000160| 6f 75 72 0a 74 65 72 6d | 69 6e 61 6c 2c 20 62 75 |our.term|inal, bu|
|00000170| 74 20 79 6f 75 20 77 69 | 6c 6c 20 6f 66 74 65 6e |t you wi|ll often|
|00000180| 20 77 61 6e 74 20 74 6f | 20 70 72 69 6e 74 20 6f | want to| print o|
|00000190| 74 68 65 72 20 74 68 69 | 6e 67 73 20 77 68 69 6c |ther thi|ngs whil|
|000001a0| 65 20 61 0a 70 72 6f 63 | 65 64 75 72 65 20 69 73 |e a.proc|edure is|
|000001b0| 20 63 6f 6d 70 75 74 69 | 6e 67 2e 00 02 53 69 6d | computi|ng...Sim|
|000001c0| 69 6c 61 72 6c 79 2c 20 | 61 20 70 72 6f 63 65 64 |ilarly, |a proced|
|000001d0| 75 72 65 20 6d 61 79 20 | 61 73 6b 20 79 6f 75 20 |ure may |ask you |
|000001e0| 74 6f 0a 73 75 70 70 6c | 79 20 61 6e 20 65 78 70 |to.suppl|y an exp|
|000001f0| 72 65 73 73 69 6f 6e 20 | 74 68 61 74 20 69 74 20 |ression |that it |
|00000200| 64 69 73 63 6f 76 65 72 | 73 20 74 68 61 74 20 69 |discover|s that i|
|00000210| 74 20 6e 65 65 64 73 2e | 00 02 54 68 65 20 73 69 |t needs.|..The si|
|00000220| 6d 70 6c 65 0a 77 61 79 | 20 74 6f 20 64 6f 20 74 |mple.way| to do t|
|00000230| 68 65 73 65 20 74 68 69 | 6e 67 73 2c 20 61 6c 74 |hese thi|ngs, alt|
|00000240| 68 6f 75 67 68 20 6f 66 | 74 65 6e 20 74 68 65 20 |hough of|ten the |
|00000250| 69 6e 65 6c 65 67 61 6e | 74 20 77 61 79 2c 20 69 |inelegan|t way, i|
|00000260| 73 20 74 6f 0a 75 73 65 | 20 74 68 65 20 66 6f 6c |s to.use| the fol|
|00000270| 6c 6f 77 69 6e 67 20 70 | 72 69 6d 69 74 69 76 65 |lowing p|rimitive|
|00000280| 73 3a 0a 0a 4e 61 6d 65 | 00 0b 50 75 72 70 6f 73 |s:..Name|..Purpos|
|00000290| 65 0a 0a 50 52 49 4e 54 | 00 0a 50 72 69 6e 74 20 |e..PRINT|..Print |
|000002a0| 74 68 65 20 76 61 6c 75 | 65 20 6f 66 20 74 68 65 |the valu|e of the|
|000002b0| 20 61 72 67 75 6d 65 6e | 74 2e 0a 52 45 41 44 00 | argumen|t..READ.|
|000002c0| 0b 52 65 61 64 20 73 6f | 6d 65 74 68 69 6e 67 20 |.Read so|mething |
|000002d0| 61 6e 64 20 72 65 74 75 | 72 6e 20 69 74 20 77 69 |and retu|rn it wi|
|000002e0| 74 68 6f 75 74 20 65 76 | 61 6c 75 61 74 69 6e 67 |thout ev|aluating|
|000002f0| 2e 0a 0a 54 68 65 20 68 | 61 72 64 20 77 61 79 20 |...The h|ard way |
|00000300| 74 6f 20 70 72 69 6e 74 | 2c 20 61 6c 74 68 6f 75 |to print|, althou|
|00000310| 67 68 20 63 61 70 61 62 | 6c 65 20 6f 66 20 65 78 |gh capab|le of ex|
|00000320| 74 72 65 6d 65 20 65 6c | 65 67 61 6e 63 65 2c 20 |treme el|egance, |
|00000330| 69 73 0a 74 6f 20 75 73 | 65 20 46 4f 52 4d 41 54 |is.to us|e FORMAT|
|00000340| 2e 00 02 4c 65 74 27 73 | 20 6c 6f 6f 6b 20 61 74 |...Let's| look at|
|00000350| 20 74 68 65 6d 20 61 6c | 6c 2e 0a 23 10 00 00 00 | them al|l..#....|
|00000360| 10 01 04 27 03 00 00 00 | 2e 27 05 00 00 00 2e 07 |...'....|.'......|
|00000370| 05 53 4c 49 44 45 07 0a | 45 58 50 4f 53 49 54 49 |.SLIDE..|EXPOSITI|
|00000380| 4f 4e 23 02 00 00 00 04 | 07 0a 45 58 50 4f 53 49 |ON#.....|..EXPOSI|
|00000390| 54 49 4f 4e 25 53 02 00 | 00 0a 50 52 49 4e 54 20 |TION%S..|..PRINT |
|000003a0| 6a 75 73 74 20 70 72 69 | 6e 74 73 20 69 74 73 20 |just pri|nts its |
|000003b0| 61 72 67 75 6d 65 6e 74 | 27 73 20 76 61 6c 75 65 |argument|'s value|
|000003c0| 2c 20 77 69 74 68 20 61 | 20 6c 65 61 64 69 6e 67 |, with a| leading|
|000003d0| 20 6e 65 77 20 6c 69 6e | 65 0a 61 6e 64 20 61 20 | new lin|e.and a |
|000003e0| 74 72 61 69 6c 69 6e 67 | 20 73 70 61 63 65 2c 20 |trailing| space, |
|000003f0| 72 65 74 75 72 6e 69 6e | 67 20 74 68 65 20 61 72 |returnin|g the ar|
|00000400| 67 75 6d 65 6e 74 27 73 | 20 76 61 6c 75 65 20 61 |gument's| value a|
|00000410| 73 20 69 74 73 20 6f 77 | 6e 0a 76 61 6c 75 65 3a |s its ow|n.value:|
|00000420| 0a 0a 2a 20 28 50 52 49 | 4e 54 20 27 28 50 4c 45 |..* (PRI|NT '(PLE|
|00000430| 41 53 45 20 50 52 49 4e | 54 20 54 48 49 53 29 29 |ASE PRIN|T THIS))|
|00000440| 20 3b 50 52 49 4e 54 20 | 73 74 61 72 74 73 20 61 | ;PRINT |starts a|
|00000450| 20 6e 65 77 20 6c 69 6e | 65 2e 0a 28 50 4c 45 41 | new lin|e..(PLEA|
|00000460| 53 45 20 50 52 49 4e 54 | 20 54 48 49 53 29 20 11 |SE PRINT| THIS) .|
|00000470| c4 c4 c4 c4 c4 c4 c4 c4 | c4 20 3b 50 52 49 4e 54 |........|. ;PRINT|
|00000480| 20 70 75 74 73 20 61 20 | 73 70 61 63 65 20 68 65 | puts a |space he|
|00000490| 72 65 2e 0a 28 50 4c 45 | 41 53 45 20 50 52 49 4e |re..(PLE|ASE PRIN|
|000004a0| 54 20 54 48 49 53 29 00 | 0c 3b 56 61 6c 75 65 20 |T THIS).|.;Value |
|000004b0| 72 65 74 75 72 6e 65 64 | 2e 0a 0a 50 52 49 4e 31 |returned|...PRIN1|
|000004c0| 20 69 73 20 6c 69 6b 65 | 20 50 52 49 4e 54 20 77 | is like| PRINT w|
|000004d0| 69 74 68 6f 75 74 20 74 | 68 65 20 6e 65 77 20 6c |ithout t|he new l|
|000004e0| 69 6e 65 20 61 6e 64 20 | 74 68 65 20 73 70 61 63 |ine and |the spac|
|000004f0| 65 3a 0a 0a 28 50 52 49 | 4e 31 20 27 28 50 4c 45 |e:..(PRI|N1 '(PLE|
|00000500| 41 53 45 20 50 52 49 4e | 54 20 54 48 49 53 20 54 |ASE PRIN|T THIS T|
|00000510| 4f 4f 29 29 28 50 4c 45 | 41 53 45 20 50 52 49 4e |OO))(PLE|ASE PRIN|
|00000520| 54 20 54 48 49 53 20 54 | 4f 4f 29 0a 28 50 4c 45 |T THIS T|OO).(PLE|
|00000530| 41 53 45 20 50 52 49 4e | 54 20 54 48 49 53 20 54 |ASE PRIN|T THIS T|
|00000540| 4f 4f 29 00 08 3b 56 61 | 6c 75 65 20 72 65 74 75 |OO)..;Va|lue retu|
|00000550| 72 6e 65 64 2e 0a 0a 54 | 45 52 50 52 49 20 70 72 |rned...T|ERPRI pr|
|00000560| 69 6e 74 73 20 61 20 6e | 65 77 20 6c 69 6e 65 20 |ints a n|ew line |
|00000570| 61 6e 64 20 72 65 74 75 | 72 6e 73 20 4e 49 4c 3a |and retu|rns NIL:|
|00000580| 0a 0a 28 54 45 52 50 52 | 49 29 0a 00 12 3b 54 68 |..(TERPR|I)...;Th|
|00000590| 69 73 20 65 78 74 72 61 | 20 6e 65 77 20 6c 69 6e |is extra| new lin|
|000005a0| 65 20 69 73 20 54 45 52 | 50 52 49 27 73 20 73 69 |e is TER|PRI's si|
|000005b0| 64 65 20 65 66 66 65 63 | 74 2e 0a 4e 49 4c 00 0f |de effec|t..NIL..|
|000005c0| 3b 54 68 65 20 75 73 75 | 61 6c 20 6e 65 77 20 6c |;The usu|al new l|
|000005d0| 69 6e 65 20 69 73 20 6a | 75 73 74 20 62 65 66 6f |ine is j|ust befo|
|000005e0| 72 65 20 74 68 65 20 4e | 49 4c 2e 0a 23 14 00 00 |re the N|IL..#...|
|000005f0| 00 10 01 04 27 03 00 00 | 00 2e 27 05 00 00 00 2e |....'...|..'.....|
|00000600| 07 05 53 4c 49 44 45 07 | 08 45 58 41 4d 50 4c 45 |..SLIDE.|.EXAMPLE|
|00000610| 53 23 03 00 00 00 04 07 | 0d 45 58 41 4d 50 4c 45 |S#......|.EXAMPLE|
|00000620| 2d 47 52 4f 55 50 26 34 | 41 73 73 75 6d 65 20 52 |-GROUP&4|Assume R|
|00000630| 45 4d 41 52 4b 27 73 20 | 76 61 6c 75 65 20 69 73 |EMARK's |value is|
|00000640| 20 28 42 4c 4f 43 4b 20 | 41 20 49 53 20 4e 4f 54 | (BLOCK |A IS NOT|
|00000650| 20 53 55 50 50 4f 52 54 | 45 44 29 2e 23 01 00 00 | SUPPORT|ED).#...|
|00000660| 00 10 01 26 11 2a 20 28 | 50 52 49 4e 54 20 27 52 |...&.* (|PRINT 'R|
|00000670| 45 4d 41 52 4b 29 23 01 | 00 00 00 10 01 26 45 52 |EMARK)#.|.....&ER|
|00000680| 45 4d 41 52 4b 00 12 3b | 54 68 69 73 20 69 73 20 |EMARK..;|This is |
|00000690| 50 52 49 4e 54 27 73 20 | 73 69 64 65 20 65 66 66 |PRINT's |side eff|
|000006a0| 65 63 74 2e 0a 52 45 4d | 41 52 4b 00 12 3b 54 68 |ect..REM|ARK..;Th|
|000006b0| 69 73 20 69 73 20 50 52 | 49 4e 54 27 73 20 76 61 |is is PR|INT's va|
|000006c0| 6c 75 65 2e 23 02 00 00 | 00 10 01 27 04 00 00 00 |lue.#...|...'....|
|000006d0| 2e 07 0d 45 58 41 4d 50 | 4c 45 2d 47 52 4f 55 50 |...EXAMP|LE-GROUP|
|000006e0| 04 26 10 2a 20 28 50 52 | 49 4e 54 20 52 45 4d 41 |.&.* (PR|INT REMA|
|000006f0| 52 4b 29 23 01 00 00 00 | 10 01 26 4d 28 42 4c 4f |RK)#....|..&M(BLO|
|00000700| 43 4b 20 41 20 49 53 20 | 4e 4f 54 20 53 55 50 50 |CK A IS |NOT SUPP|
|00000710| 4f 52 54 45 44 29 00 09 | 3b 53 69 64 65 20 65 66 |ORTED)..|;Side ef|
|00000720| 66 65 63 74 2e 0a 28 42 | 4c 4f 43 4b 20 41 20 49 |fect..(B|LOCK A I|
|00000730| 53 20 4e 4f 54 20 53 55 | 50 50 4f 52 54 45 44 29 |S NOT SU|PPORTED)|
|00000740| 00 09 3b 56 61 6c 75 65 | 2e 23 02 00 00 00 10 01 |..;Value|.#......|
|00000750| 27 04 00 00 00 2e 07 0d | 45 58 41 4d 50 4c 45 2d |'.......|EXAMPLE-|
|00000760| 47 52 4f 55 50 04 26 18 | 2a 20 28 50 52 49 4e 54 |GROUP.&.|* (PRINT|
|00000770| 20 28 50 52 49 4e 54 20 | 52 45 4d 41 52 4b 29 29 | (PRINT |REMARK))|
|00000780| 23 01 00 00 00 10 01 26 | 98 28 42 4c 4f 43 4b 20 |#......&|.(BLOCK |
|00000790| 41 20 49 53 20 4e 4f 54 | 20 53 55 50 50 4f 52 54 |A IS NOT| SUPPORT|
|000007a0| 45 44 29 00 09 3b 53 69 | 64 65 20 65 66 66 65 63 |ED)..;Si|de effec|
|000007b0| 74 20 6f 66 20 69 6e 73 | 69 64 65 20 50 52 49 4e |t of ins|ide PRIN|
|000007c0| 54 2e 0a 28 42 4c 4f 43 | 4b 20 41 20 49 53 20 4e |T..(BLOC|K A IS N|
|000007d0| 4f 54 20 53 55 50 50 4f | 52 54 45 44 29 00 09 3b |OT SUPPO|RTED)..;|
|000007e0| 53 69 64 65 20 65 66 66 | 65 63 74 20 6f 66 20 6f |Side eff|ect of o|
|000007f0| 75 74 73 69 64 65 20 50 | 52 49 4e 54 2e 0a 28 42 |utside P|RINT..(B|
|00000800| 4c 4f 43 4b 20 41 20 49 | 53 20 4e 4f 54 20 53 55 |LOCK A I|S NOT SU|
|00000810| 50 50 4f 52 54 45 44 29 | 00 09 3b 56 61 6c 75 65 |PPORTED)|..;Value|
|00000820| 2e 23 03 00 00 00 10 01 | 27 04 00 00 00 2e 04 10 |.#......|'.......|
|00000830| 03 27 05 00 00 00 2e 07 | 05 53 4c 49 44 45 07 08 |.'......|.SLIDE..|
|00000840| 45 58 41 4d 50 4c 45 53 | 23 04 00 00 00 04 07 0d |EXAMPLES|#.......|
|00000850| 45 58 41 4d 50 4c 45 2d | 47 52 4f 55 50 26 34 41 |EXAMPLE-|GROUP&4A|
|00000860| 73 73 75 6d 65 20 52 45 | 4d 41 52 4b 27 73 20 76 |ssume RE|MARK's v|
|00000870| 61 6c 75 65 20 69 73 20 | 28 42 4c 4f 43 4b 20 41 |alue is |(BLOCK A|
|00000880| 20 49 53 20 4e 4f 54 20 | 53 55 50 50 4f 52 54 45 | IS NOT |SUPPORTE|
|00000890| 44 29 2e 23 01 00 00 00 | 10 01 26 31 2a 20 28 50 |D).#....|..&1* (P|
|000008a0| 52 4f 47 4e 20 28 54 45 | 52 50 52 49 29 20 28 50 |ROGN (TE|RPRI) (P|
|000008b0| 52 49 4e 31 20 27 52 45 | 4d 41 52 4b 29 20 28 50 |RIN1 'RE|MARK) (P|
|000008c0| 52 49 4e 31 20 52 45 4d | 41 52 4b 29 29 23 01 00 |RIN1 REM|ARK))#..|
|000008d0| 00 00 10 01 26 61 52 45 | 4d 41 52 4b 28 42 4c 4f |....&aRE|MARK(BLO|
|000008e0| 43 4b 20 41 20 49 53 20 | 4e 4f 54 20 53 55 50 50 |CK A IS |NOT SUPP|
|000008f0| 4f 52 54 45 44 29 00 03 | 3b 4e 6f 74 65 20 50 52 |ORTED)..|;Note PR|
|00000900| 49 4e 31 20 70 72 69 6e | 74 73 20 6e 6f 20 73 70 |IN1 prin|ts no sp|
|00000910| 61 63 65 20 62 65 74 77 | 65 65 6e 2e 0a 28 42 4c |ace betw|een..(BL|
|00000920| 4f 43 4b 20 41 20 49 53 | 20 4e 4f 54 20 53 55 50 |OCK A IS| NOT SUP|
|00000930| 50 4f 52 54 45 44 29 23 | 02 00 00 00 10 01 27 04 |PORTED)#|......'.|
|00000940| 00 00 00 2e 07 0d 45 58 | 41 4d 50 4c 45 2d 47 52 |......EX|AMPLE-GR|
|00000950| 4f 55 50 04 26 2a 2a 20 | 28 50 52 4f 47 4e 20 28 |OUP.&** |(PROGN (|
|00000960| 50 52 49 4e 54 20 27 52 | 45 4d 41 52 4b 29 20 28 |PRINT 'R|EMARK) (|
|00000970| 50 52 49 4e 31 20 52 45 | 4d 41 52 4b 29 20 54 29 |PRIN1 RE|MARK) T)|
|00000980| 23 01 00 00 00 10 01 26 | 59 52 45 4d 41 52 4b 20 |#......&|YREMARK |
|00000990| 28 42 4c 4f 43 4b 20 41 | 20 49 53 20 4e 4f 54 20 |(BLOCK A| IS NOT |
|000009a0| 53 55 50 50 4f 52 54 45 | 44 29 00 02 3b 4e 6f 74 |SUPPORTE|D)..;Not|
|000009b0| 65 20 50 52 49 4e 54 20 | 70 72 69 6e 74 73 20 73 |e PRINT |prints s|
|000009c0| 70 61 63 65 20 62 65 74 | 77 65 65 6e 2e 0a 54 00 |pace bet|ween..T.|
|000009d0| 22 3b 56 61 6c 75 65 20 | 6f 66 20 50 52 4f 47 4e |";Value |of PROGN|
|000009e0| 2e 0a 23 03 00 00 00 10 | 01 27 04 00 00 00 2e 04 |..#.....|.'......|
|000009f0| 10 02 27 05 00 00 00 2e | 07 05 53 4c 49 44 45 07 |..'.....|..SLIDE.|
|00000a00| 0a 45 58 50 4f 53 49 54 | 49 4f 4e 23 05 00 00 00 |.EXPOSIT|ION#....|
|00000a10| 04 07 0a 45 58 50 4f 53 | 49 54 49 4f 4e 25 0f 01 |...EXPOS|ITION%..|
|00000a20| 00 00 0a 52 65 6d 65 6d | 62 65 72 20 2e 2e 2e 0a |...Remem|ber ....|
|00000a30| 0a 6f 00 04 49 46 20 79 | 6f 75 20 77 61 6e 74 20 |.o..IF y|ou want |
|00000a40| 74 6f 20 70 72 69 6e 74 | 20 61 6e 20 65 78 70 72 |to print| an expr|
|00000a50| 65 73 73 69 6f 6e 2c 0a | 00 05 41 4e 44 20 79 6f |ession,.|..AND yo|
|00000a60| 75 20 64 6f 6e 27 74 20 | 63 61 72 65 20 68 6f 77 |u don't |care how|
|00000a70| 20 74 68 69 6e 67 73 20 | 6c 6f 6f 6b 2c 0a 00 05 | things |look,...|
|00000a80| 54 48 45 4e 20 75 73 65 | 20 50 52 49 4e 54 2e 0a |THEN use| PRINT..|
|00000a90| 0a 6f 00 04 49 46 20 79 | 6f 75 20 77 61 6e 74 20 |.o..IF y|ou want |
|00000aa0| 74 6f 20 70 72 69 6e 74 | 20 61 6e 20 65 78 70 72 |to print| an expr|
|00000ab0| 65 73 73 69 6f 6e 2c 0a | 00 05 41 4e 44 20 79 6f |ession,.|..AND yo|
|00000ac0| 75 20 77 61 6e 74 20 4e | 4f 20 6e 65 77 20 6c 69 |u want N|O new li|
|00000ad0| 6e 65 20 62 65 66 6f 72 | 65 20 61 6e 64 20 4e 4f |ne befor|e and NO|
|00000ae0| 20 73 70 61 63 65 20 61 | 66 74 65 72 2c 0a 00 05 | space a|fter,...|
|00000af0| 54 48 45 4e 20 75 73 65 | 20 50 52 49 4e 31 2e 0a |THEN use| PRIN1..|
|00000b00| 0a 6f 00 04 49 46 20 79 | 6f 75 20 77 61 6e 74 20 |.o..IF y|ou want |
|00000b10| 61 20 62 6c 61 6e 6b 20 | 6c 69 6e 65 2c 0a 00 05 |a blank |line,...|
|00000b20| 54 48 45 4e 20 75 73 65 | 20 54 45 52 50 52 49 2e |THEN use| TERPRI.|
|00000b30| 0a 23 0e 00 00 00 10 01 | 04 27 03 00 00 00 2e 27 |.#......|.'.....'|
|00000b40| 05 00 00 00 2e 27 05 00 | 00 00 04 27 05 00 00 00 |.....'..|...'....|
|00000b50| 2e 04 10 02 04 10 03 36 | 0b 01 04 53 45 54 46 07 |.......6|...SETF.|
|00000b60| 0a 47 45 54 2d 4c 45 53 | 53 4f 4e 0b 01 05 51 55 |.GET-LES|SON...QU|
|00000b70| 4f 54 45 0b 01 04 52 45 | 41 44 04 10 02 04 10 02 |OTE...RE|AD......|
|00000b80| 0b 01 05 51 55 4f 54 45 | 07 06 4c 45 53 53 4f 4e |...QUOTE|..LESSON|
|00000b90| 0b 01 04 52 45 41 44 0b | 01 04 4e 41 4d 45 0b 01 |...READ.|..NAME..|
|00000ba0| 04 52 45 41 44 04 10 01 | 07 08 50 52 45 56 49 4f |.READ...|..PREVIO|
|00000bb0| 55 53 07 02 49 4f 04 10 | 01 07 04 4e 45 58 54 0b |US..IO..|...NEXT.|
|00000bc0| 01 06 46 4f 52 4d 41 54 | 04 10 01 07 0b 4c 45 53 |..FORMAT|.....LES|
|00000bd0| 53 4f 4e 2d 4e 41 4d 45 | 26 12 52 65 61 64 69 6e |SON-NAME|&.Readin|
|00000be0| 67 20 75 73 69 6e 67 20 | 52 45 41 44 04 10 01 04 |g using |READ....|
|00000bf0| 10 08 07 05 53 4c 49 44 | 45 07 0a 45 58 50 4f 53 |....SLID|E..EXPOS|
|00000c00| 49 54 49 4f 4e 23 01 00 | 00 00 04 07 0a 45 58 50 |ITION#..|.....EXP|
|00000c10| 4f 53 49 54 49 4f 4e 25 | b5 01 00 00 0a 57 68 65 |OSITION%|.....Whe|
|00000c20| 6e 20 4c 49 53 50 20 65 | 6e 63 6f 75 6e 74 65 72 |n LISP e|ncounter|
|00000c30| 73 20 28 52 45 41 44 29 | 2c 20 6e 6f 74 68 69 6e |s (READ)|, nothin|
|00000c40| 67 20 68 61 70 70 65 6e | 73 20 75 6e 74 69 6c 20 |g happen|s until |
|00000c50| 79 6f 75 20 74 79 70 65 | 20 61 6e 0a 65 78 70 72 |you type| an.expr|
|00000c60| 65 73 73 69 6f 6e 2e 00 | 02 54 68 65 6e 20 52 45 |ession..|.Then RE|
|00000c70| 41 44 20 72 65 74 75 72 | 6e 73 20 74 68 61 74 20 |AD retur|ns that |
|00000c80| 65 78 70 72 65 73 73 69 | 6f 6e 20 61 73 20 69 74 |expressi|on as it|
|00000c90| 73 20 76 61 6c 75 65 2e | 0a 0a 2a 20 28 52 45 41 |s value.|..* (REA|
|00000ca0| 44 29 28 50 4c 45 41 53 | 45 20 52 45 41 44 20 4d |D)(PLEAS|E READ M|
|00000cb0| 45 29 00 05 3b 59 6f 75 | 20 74 79 70 65 20 28 50 |E)..;You| type (P|
|00000cc0| 4c 45 41 53 45 20 52 45 | 41 44 20 4d 45 29 2e 0a |LEASE RE|AD ME)..|
|00000cd0| 28 50 4c 45 41 53 45 20 | 52 45 41 44 20 4d 45 29 |(PLEASE |READ ME)|
|00000ce0| 00 0d 3b 56 61 6c 75 65 | 20 72 65 74 75 72 6e 65 |..;Value| returne|
|00000cf0| 64 20 69 73 20 28 50 4c | 45 41 53 45 20 52 45 41 |d is (PL|EASE REA|
|00000d00| 44 20 4d 45 29 2e 0a 0a | 2a 20 28 50 52 49 4e 54 |D ME)...|* (PRINT|
|00000d10| 20 28 50 52 49 4e 54 20 | 28 52 45 41 44 29 29 29 | (PRINT |(READ)))|
|00000d20| 28 50 4c 45 41 53 45 20 | 52 45 41 44 20 4d 45 20 |(PLEASE |READ ME |
|00000d30| 54 4f 4f 29 0a 28 50 4c | 45 41 53 45 20 52 45 41 |TOO).(PL|EASE REA|
|00000d40| 44 20 4d 45 20 54 4f 4f | 29 00 06 3b 52 65 73 75 |D ME TOO|)..;Resu|
|00000d50| 6c 74 20 6f 66 20 66 69 | 72 73 74 20 50 52 49 4e |lt of fi|rst PRIN|
|00000d60| 54 2e 0a 28 50 4c 45 41 | 53 45 20 52 45 41 44 20 |T..(PLEA|SE READ |
|00000d70| 4d 45 20 54 4f 4f 29 00 | 06 3b 52 65 73 75 6c 74 |ME TOO).|.;Result|
|00000d80| 20 6f 66 20 73 65 63 6f | 6e 64 20 50 52 49 4e 54 | of seco|nd PRINT|
|00000d90| 2e 0a 28 50 4c 45 41 53 | 45 20 52 45 41 44 20 4d |..(PLEAS|E READ M|
|00000da0| 45 20 54 4f 4f 29 00 06 | 3b 56 61 6c 75 65 20 72 |E TOO)..|;Value r|
|00000db0| 65 74 75 72 6e 65 64 20 | 69 73 20 28 50 4c 45 41 |eturned |is (PLEA|
|00000dc0| 53 45 20 52 45 41 44 20 | 4d 45 20 54 4f 4f 29 2e |SE READ |ME TOO).|
|00000dd0| 0a 23 0c 00 00 00 10 01 | 04 27 03 00 00 00 2e 27 |.#......|.'.....'|
|00000de0| 05 00 00 00 2e 07 05 53 | 4c 49 44 45 07 08 45 58 |.......S|LIDE..EX|
|00000df0| 41 4d 50 4c 45 53 23 02 | 00 00 00 04 07 0d 45 58 |AMPLES#.|......EX|
|00000e00| 41 4d 50 4c 45 2d 47 52 | 4f 55 50 26 1f 45 76 61 |AMPLE-GR|OUP&.Eva|
|00000e10| 6c 75 61 74 65 20 74 68 | 65 20 67 69 76 65 6e 20 |luate th|e given |
|00000e20| 65 78 70 72 65 73 73 69 | 6f 6e 73 2e 23 01 00 00 |expressi|ons.#...|
|00000e30| 00 10 01 26 3a 2a 20 28 | 53 45 54 46 20 49 4e 50 |...&:* (|SETF INP|
|00000e40| 55 54 20 28 52 45 41 44 | 29 29 54 41 42 4c 45 00 |UT (READ|))TABLE.|
|00000e50| 08 3b 55 73 65 72 20 74 | 79 70 65 73 20 54 41 42 |.;User t|ypes TAB|
|00000e60| 4c 45 20 61 6e 64 20 61 | 20 73 70 61 63 65 2e 23 |LE and a| space.#|
|00000e70| 01 00 00 00 10 01 26 05 | 54 41 42 4c 45 23 01 00 |......&.|TABLE#..|
|00000e80| 00 00 10 01 27 04 00 00 | 00 2e 07 0d 45 58 41 4d |....'...|....EXAM|
|00000e90| 50 4c 45 2d 47 52 4f 55 | 50 04 26 07 2a 20 49 4e |PLE-GROU|P.&.* IN|
|00000ea0| 50 55 54 23 01 00 00 00 | 10 01 26 05 54 41 42 4c |PUT#....|..&.TABL|
|00000eb0| 45 23 01 00 00 00 10 01 | 27 04 00 00 00 2e 04 10 |E#......|'.......|
|00000ec0| 02 27 05 00 00 00 2e 07 | 05 53 4c 49 44 45 07 08 |.'......|.SLIDE..|
|00000ed0| 45 58 41 4d 50 4c 45 53 | 23 03 00 00 00 04 07 0d |EXAMPLES|#.......|
|00000ee0| 45 58 41 4d 50 4c 45 2d | 47 52 4f 55 50 26 1d 41 |EXAMPLE-|GROUP&.A|
|00000ef0| 73 73 75 6d 65 20 74 68 | 61 74 20 41 27 73 20 76 |ssume th|at A's v|
|00000f00| 61 6c 75 65 20 69 73 20 | 42 31 37 2e 23 01 00 00 |alue is |B17.#...|
|00000f10| 00 10 01 26 8b 2a 20 28 | 49 46 20 28 45 51 55 41 |...&.* (|IF (EQUA|
|00000f20| 4c 20 28 52 45 41 44 29 | 20 27 54 41 42 4c 45 29 |L (READ)| 'TABLE)|
|00000f30| 00 1a 0a 00 06 28 41 50 | 50 45 4e 44 20 27 28 49 |.....(AP|PEND '(I|
|00000f40| 53 20 42 4c 4f 43 4b 29 | 20 28 4c 49 53 54 20 41 |S BLOCK)| (LIST A|
|00000f50| 29 20 27 28 4f 4e 20 54 | 48 45 20 54 41 42 4c 45 |) '(ON T|HE TABLE|
|00000f60| 29 29 0a 00 06 28 41 50 | 50 45 4e 44 20 27 28 57 |))...(AP|PEND '(W|
|00000f70| 48 41 54 20 49 53 20 42 | 4c 4f 43 4b 29 20 28 4c |HAT IS B|LOCK) (L|
|00000f80| 49 53 54 20 41 29 20 27 | 28 4f 4e 29 29 29 54 41 |IST A) '|(ON)))TA|
|00000f90| 42 4c 45 20 3b 4e 6f 74 | 65 20 69 6e 70 75 74 2e |BLE ;Not|e input.|
|00000fa0| 23 03 00 00 00 10 01 26 | 1b 28 49 53 20 42 4c 4f |#......&|.(IS BLO|
|00000fb0| 43 4b 20 42 31 37 20 4f | 4e 20 54 48 45 20 54 41 |CK B17 O|N THE TA|
|00000fc0| 42 4c 45 29 23 01 00 00 | 00 10 01 27 04 00 00 00 |BLE)#...|...'....|
|00000fd0| 2e 04 10 01 27 05 00 00 | 00 2e 07 05 53 4c 49 44 |....'...|....SLID|
|00000fe0| 45 07 08 45 58 41 4d 50 | 4c 45 53 23 04 00 00 00 |E..EXAMP|LES#....|
|00000ff0| 04 07 0d 45 58 41 4d 50 | 4c 45 2d 47 52 4f 55 50 |...EXAMP|LE-GROUP|
|00001000| 26 1d 41 73 73 75 6d 65 | 20 74 68 61 74 20 41 27 |&.Assume| that A'|
|00001010| 73 20 76 61 6c 75 65 20 | 69 73 20 42 31 37 2e 23 |s value |is B17.#|
|00001020| 01 00 00 00 10 01 25 16 | 01 00 00 2a 20 28 50 52 |......%.|...* (PR|
|00001030| 4f 47 4e 20 28 50 52 49 | 4e 54 20 27 28 57 48 41 |OGN (PRI|NT '(WHA|
|00001040| 54 20 49 53 20 54 48 45 | 20 42 4c 4f 43 4b 20 4f |T IS THE| BLOCK O|
|00001050| 4e 29 29 0a 00 09 28 54 | 45 52 50 52 49 29 0a 00 |N))...(T|ERPRI)..|
|00001060| 09 28 50 52 49 4e 31 20 | 27 2a 2a 2a 29 0a 00 09 |.(PRIN1 |'***)...|
|00001070| 28 4c 45 54 20 28 28 41 | 4e 53 57 45 52 20 28 52 |(LET ((A|NSWER (R|
|00001080| 45 41 44 29 29 29 0a 00 | 0b 28 49 46 20 28 45 51 |EAD)))..|.(IF (EQ|
|00001090| 55 41 4c 20 41 4e 53 57 | 45 52 20 27 54 41 42 4c |UAL ANSW|ER 'TABL|
|000010a0| 45 29 0a 00 0f 28 50 52 | 49 4e 54 20 27 28 4f 4b |E)...(PR|INT '(OK|
|000010b0| 20 49 54 53 20 4f 4e 20 | 54 48 45 20 54 41 42 4c | ITS ON |THE TABL|
|000010c0| 45 29 29 0a 00 0f 28 50 | 52 49 4e 54 20 27 28 4f |E))...(P|RINT '(O|
|000010d0| 4b 20 49 54 53 20 4e 4f | 54 20 4f 4e 20 54 48 45 |K ITS NO|T ON THE|
|000010e0| 20 54 41 42 4c 45 29 29 | 29 0a 00 0b 41 4e 53 57 | TABLE))|)...ANSW|
|000010f0| 45 52 29 29 0a 28 57 48 | 41 54 20 49 53 20 54 48 |ER)).(WH|AT IS TH|
|00001100| 45 20 42 4c 4f 43 4b 20 | 4f 4e 29 00 0d 3b 46 72 |E BLOCK |ON)..;Fr|
|00001110| 6f 6d 20 74 68 65 20 66 | 69 72 73 74 20 50 52 49 |om the f|irst PRI|
|00001120| 4e 54 2e 0a 2a 2a 2a 42 | 35 32 00 1d 3b 48 65 72 |NT..***B|52..;Her|
|00001130| 65 20 69 73 20 75 73 65 | 72 73 20 69 6e 70 75 74 |e is use|rs input|
|00001140| 2e 23 0a 00 00 00 10 01 | 26 48 28 4f 4b 20 49 54 |.#......|&H(OK IT|
|00001150| 53 20 4e 4f 54 20 4f 4e | 20 54 48 45 20 54 41 42 |S NOT ON| THE TAB|
|00001160| 4c 45 29 00 0a 3b 53 69 | 64 65 20 65 66 66 65 63 |LE)..;Si|de effec|
|00001170| 74 20 6f 66 20 50 52 49 | 4e 54 2e 0a 42 35 32 00 |t of PRI|NT..B52.|
|00001180| 20 3b 56 61 6c 75 65 20 | 6f 66 20 50 52 4f 47 4e | ;Value |of PROGN|
|00001190| 2e 0a 23 03 00 00 00 10 | 01 27 04 00 00 00 2e 04 |..#.....|.'......|
|000011a0| 10 01 27 05 00 00 00 2e | 07 05 53 4c 49 44 45 07 |..'.....|..SLIDE.|
|000011b0| 08 50 52 41 43 54 49 43 | 45 23 05 00 00 00 07 05 |.PRACTIC|E#......|
|000011c0| 46 4f 52 4d 53 0b 01 04 | 53 45 54 46 07 01 4c 0b |FORMS...|SETF..L.|
|000011d0| 01 05 51 55 4f 54 45 07 | 04 54 48 49 53 07 02 49 |..QUOTE.|.THIS..I|
|000011e0| 53 07 01 41 0b 01 04 4c | 49 53 54 04 10 04 04 10 |S..A...L|IST.....|
|000011f0| 02 04 10 03 04 10 01 04 | 10 02 26 5d 50 72 61 63 |........|..&]Prac|
|00001200| 74 69 63 65 20 75 73 69 | 6e 67 20 50 52 49 4e 54 |tice usi|ng PRINT|
|00001210| 2c 20 50 52 49 4e 31 2c | 20 54 45 52 50 52 49 2c |, PRIN1,| TERPRI,|
|00001220| 20 61 6e 64 20 52 45 41 | 44 2e 0a 59 6f 75 20 6d | and REA|D..You m|
|00001230| 61 79 20 61 73 73 75 6d | 65 20 4c 27 73 20 76 61 |ay assum|e L's va|
|00001240| 6c 75 65 20 69 73 20 28 | 54 48 49 53 20 49 53 20 |lue is (|THIS IS |
|00001250| 41 20 4c 49 53 54 29 2e | 0a 23 03 00 00 00 10 01 |A LIST).|.#......|
|00001260| 27 05 00 00 00 2e 07 05 | 53 4c 49 44 45 07 0a 45 |'.......|SLIDE..E|
|00001270| 58 50 4f 53 49 54 49 4f | 4e 23 06 00 00 00 04 07 |XPOSITIO|N#......|
|00001280| 0a 45 58 50 4f 53 49 54 | 49 4f 4e 26 46 0a 52 65 |.EXPOSIT|ION&F.Re|
|00001290| 6d 65 6d 62 65 72 20 2e | 2e 2e 0a 0a 6f 00 04 49 |member .|....o..I|
|000012a0| 46 20 79 6f 75 20 77 61 | 6e 74 20 74 6f 20 72 65 |F you wa|nt to re|
|000012b0| 61 64 20 61 6e 20 65 78 | 70 72 65 73 73 69 6f 6e |ad an ex|pression|
|000012c0| 2c 0a 00 05 54 48 45 4e | 20 75 73 65 20 52 45 41 |,...THEN| use REA|
|000012d0| 44 2e 0a 23 06 00 00 00 | 10 01 04 27 03 00 00 00 |D..#....|...'....|
|000012e0| 2e 27 05 00 00 00 2e 27 | 06 00 00 00 04 27 05 00 |.'.....'|.....'..|
|000012f0| 00 00 2e 04 10 02 04 10 | 03 36 0b 01 04 53 45 54 |........|.6...SET|
|00001300| 46 07 0a 47 45 54 2d 4c | 45 53 53 4f 4e 0b 01 05 |F..GET-L|ESSON...|
|00001310| 51 55 4f 54 45 0b 01 06 | 46 4f 52 4d 41 54 04 10 |QUOTE...|FORMAT..|
|00001320| 02 04 10 02 0b 01 05 51 | 55 4f 54 45 07 06 4c 45 |.......Q|UOTE..LE|
|00001330| 53 53 4f 4e 0b 01 06 46 | 4f 52 4d 41 54 0b 01 04 |SSON...F|ORMAT...|
|00001340| 4e 41 4d 45 0b 01 06 46 | 4f 52 4d 41 54 04 10 01 |NAME...F|ORMAT...|
|00001350| 07 04 4e 45 58 54 07 05 | 42 4f 58 45 53 04 10 01 |..NEXT..|BOXES...|
|00001360| 07 08 50 52 45 56 49 4f | 55 53 0b 01 04 52 45 41 |..PREVIO|US...REA|
|00001370| 44 04 10 01 07 0b 4c 45 | 53 53 4f 4e 2d 4e 41 4d |D.....LE|SSON-NAM|
|00001380| 45 26 15 50 72 69 6e 74 | 69 6e 67 20 75 73 69 6e |E&.Print|ing usin|
|00001390| 67 20 46 4f 52 4d 41 54 | 04 10 01 04 10 08 07 05 |g FORMAT|........|
|000013a0| 53 4c 49 44 45 07 0a 45 | 58 50 4f 53 49 54 49 4f |SLIDE..E|XPOSITIO|
|000013b0| 4e 23 01 00 00 00 04 07 | 0a 45 58 50 4f 53 49 54 |N#......|.EXPOSIT|
|000013c0| 49 4f 4e 25 db 01 00 00 | 0a 46 6f 72 20 65 6c 65 |ION%....|.For ele|
|000013d0| 67 61 6e 63 65 20 69 6e | 20 70 72 69 6e 74 69 6e |gance in| printin|
|000013e0| 67 2c 20 6e 6f 74 68 69 | 6e 67 20 62 65 61 74 73 |g, nothi|ng beats|
|000013f0| 20 46 4f 52 4d 41 54 2e | 00 02 45 78 70 65 72 74 | FORMAT.|..Expert|
|00001400| 73 20 77 69 74 68 0a 46 | 4f 52 4d 41 54 20 61 72 |s with.F|ORMAT ar|
|00001410| 65 20 63 6f 6e 73 69 64 | 65 72 65 64 20 74 61 6c |e consid|ered tal|
|00001420| 65 6e 74 65 64 20 61 72 | 74 69 73 74 73 2e 00 02 |ented ar|tists...|
|00001430| 42 75 74 20 73 69 6e 63 | 65 20 74 68 65 72 65 20 |But sinc|e there |
|00001440| 69 73 0a 6e 6f 74 68 69 | 6e 67 20 70 61 72 74 69 |is.nothi|ng parti|
|00001450| 63 75 6c 61 72 6c 79 20 | 4c 49 53 50 69 73 68 20 |cularly |LISPish |
|00001460| 74 6f 20 6c 65 61 72 6e | 20 66 72 6f 6d 20 74 68 |to learn| from th|
|00001470| 65 20 64 65 65 70 65 72 | 20 6f 66 20 46 4f 52 4d |e deeper| of FORM|
|00001480| 41 54 27 73 0a 6f 70 74 | 69 6f 6e 73 2c 20 6c 65 |AT's.opt|ions, le|
|00001490| 74 27 73 20 62 65 20 63 | 6f 6e 74 65 6e 74 20 77 |t's be c|ontent w|
|000014a0| 69 74 68 20 6b 6e 6f 77 | 69 6e 67 20 6a 75 73 74 |ith know|ing just|
|000014b0| 20 61 20 6c 69 74 74 6c | 65 2e 0a 0a 49 6e 20 70 | a littl|e...In p|
|000014c0| 61 72 74 69 63 75 6c 61 | 72 2c 20 6c 65 74 27 73 |articula|r, let's|
|000014d0| 20 62 65 20 63 6f 6e 74 | 65 6e 74 20 77 69 74 68 | be cont|ent with|
|000014e0| 20 6b 6e 6f 77 69 6e 67 | 20 77 68 79 20 74 68 65 | knowing| why the|
|000014f0| 20 66 6f 6c 6c 6f 77 69 | 6e 67 0a 64 6f 65 73 20 | followi|ng.does |
|00001500| 77 68 61 74 20 69 74 20 | 64 6f 65 73 2c 20 61 73 |what it |does, as|
|00001510| 73 75 6d 69 6e 67 20 4c | 27 73 20 76 61 6c 75 65 |suming L|'s value|
|00001520| 20 69 73 20 28 41 41 20 | 42 42 20 43 43 29 3a 0a | is (AA |BB CC):.|
|00001530| 0a 2a 20 28 46 4f 52 4d | 41 54 20 54 20 22 7e 25 |.* (FORM|AT T "~%|
|00001540| 54 68 65 20 6c 69 73 74 | 20 7e 41 20 68 61 73 20 |The list| ~A has |
|00001550| 7e 44 20 65 6c 65 6d 65 | 6e 74 7e 50 2e 22 20 0a |~D eleme|nt~P." .|
|00001560| 00 0c 4c 0a 00 0c 28 4c | 45 4e 47 54 48 20 4c 29 |..L...(L|ENGTH L)|
|00001570| 0a 00 0c 28 4c 45 4e 47 | 54 48 20 4c 29 29 0a 54 |...(LENG|TH L)).T|
|00001580| 68 65 20 6c 69 73 74 20 | 28 41 41 20 42 42 20 43 |he list |(AA BB C|
|00001590| 43 29 20 68 61 73 20 33 | 20 65 6c 65 6d 65 6e 74 |C) has 3| element|
|000015a0| 73 2e 0a 23 0f 00 00 00 | 10 01 04 27 03 00 00 00 |s..#....|...'....|
|000015b0| 2e 27 05 00 00 00 2e 07 | 05 53 4c 49 44 45 07 0a |.'......|.SLIDE..|
|000015c0| 45 58 50 4f 53 49 54 49 | 4f 4e 23 02 00 00 00 04 |EXPOSITI|ON#.....|
|000015d0| 07 0a 45 58 50 4f 53 49 | 54 49 4f 4e 25 79 01 00 |..EXPOSI|TION%y..|
|000015e0| 00 0a 54 68 65 20 67 65 | 6e 65 72 61 6c 20 66 6f |..The ge|neral fo|
|000015f0| 72 6d 20 66 6f 72 20 46 | 4f 52 4d 41 54 20 69 73 |rm for F|ORMAT is|
|00001600| 20 61 73 20 66 6f 6c 6c | 6f 77 73 3a 0a 0a 28 46 | as foll|ows:..(F|
|00001610| 4f 52 4d 41 54 20 3c 61 | 20 73 70 65 63 69 66 69 |ORMAT <a| specifi|
|00001620| 63 61 74 69 6f 6e 20 6f | 66 20 77 68 65 72 65 20 |cation o|f where |
|00001630| 74 6f 20 70 72 69 6e 74 | 3e 00 03 3b 44 65 73 63 |to print|>..;Desc|
|00001640| 72 69 62 65 64 20 68 65 | 72 65 2e 0a 00 08 3c 61 |ribed he|re....<a|
|00001650| 20 63 68 61 72 61 63 74 | 65 72 20 73 74 72 69 6e | charact|er strin|
|00001660| 67 20 77 69 74 68 20 64 | 69 72 65 63 74 69 76 65 |g with d|irective|
|00001670| 73 3e 00 02 3b 44 65 73 | 63 72 69 62 65 64 20 6c |s>..;Des|cribed l|
|00001680| 61 74 65 72 2e 0a 00 08 | 3c 61 6e 79 20 6e 75 6d |ater....|<any num|
|00001690| 62 65 72 20 6f 66 20 61 | 64 64 69 74 69 6f 6e 61 |ber of a|dditiona|
|000016a0| 6c 20 61 72 67 75 6d 65 | 6e 74 73 3e 29 20 3b 44 |l argume|nts>) ;D|
|000016b0| 65 73 63 72 69 62 65 64 | 20 6c 61 74 65 72 2e 0a |escribed| later..|
|000016c0| 0a 49 6e 20 6f 75 72 20 | 65 78 61 6d 70 6c 65 2c |.In our |example,|
|000016d0| 20 74 68 65 20 77 68 65 | 72 65 2d 74 6f 2d 70 72 | the whe|re-to-pr|
|000016e0| 69 6e 74 20 73 70 65 63 | 69 66 69 63 61 74 69 6f |int spec|ificatio|
|000016f0| 6e 20 69 73 3a 0a 0a 54 | 0a 0a 54 20 61 72 72 61 |n is:..T|..T arra|
|00001700| 6e 67 65 73 20 66 6f 72 | 20 74 68 65 20 70 72 69 |nges for| the pri|
|00001710| 6e 74 69 6e 67 20 74 6f | 20 62 65 20 6f 6e 20 74 |nting to| be on t|
|00001720| 68 65 20 74 65 72 6d 69 | 6e 61 6c 2c 20 72 61 74 |he termi|nal, rat|
|00001730| 68 65 72 20 74 68 61 6e | 0a 69 6e 20 61 6e 6f 74 |her than|.in anot|
|00001740| 68 65 72 20 70 6c 61 63 | 65 20 73 75 63 68 20 61 |her plac|e such a|
|00001750| 73 20 61 20 66 69 6c 65 | 2e 0a 23 0e 00 00 00 10 |s a file|..#.....|
|00001760| 01 04 27 03 00 00 00 2e | 27 05 00 00 00 2e 07 05 |..'.....|'.......|
|00001770| 53 4c 49 44 45 07 0a 45 | 58 50 4f 53 49 54 49 4f |SLIDE..E|XPOSITIO|
|00001780| 4e 23 03 00 00 00 04 07 | 0a 45 58 50 4f 53 49 54 |N#......|.EXPOSIT|
|00001790| 49 4f 4e 25 7e 02 00 00 | 0a 4e 6f 77 20 6c 65 74 |ION%~...|.Now let|
|000017a0| 27 73 20 6c 6f 6f 6b 20 | 61 74 20 61 6e 6f 74 68 |'s look |at anoth|
|000017b0| 65 72 20 70 61 72 74 20 | 6f 66 20 74 68 65 20 46 |er part |of the F|
|000017c0| 4f 52 4d 41 54 20 66 6f | 72 6d 3a 0a 0a 28 46 4f |ORMAT fo|rm:..(FO|
|000017d0| 52 4d 41 54 20 3c 61 20 | 73 70 65 63 69 66 69 63 |RMAT <a |specific|
|000017e0| 61 74 69 6f 6e 20 6f 66 | 20 77 68 65 72 65 20 74 |ation of| where t|
|000017f0| 6f 20 70 72 69 6e 74 3e | 0a 00 08 3c 61 20 63 68 |o print>|...<a ch|
|00001800| 61 72 61 63 74 65 72 20 | 73 74 72 69 6e 67 20 77 |aracter |string w|
|00001810| 69 74 68 20 64 69 72 65 | 63 74 69 76 65 73 3e 00 |ith dire|ctives>.|
|00001820| 02 3b 44 65 73 63 72 69 | 62 65 64 20 68 65 72 65 |.;Descri|bed here|
|00001830| 2e 0a 00 08 3c 61 6e 79 | 20 6e 75 6d 62 65 72 20 |....<any| number |
|00001840| 6f 66 20 61 64 64 69 74 | 69 6f 6e 61 6c 20 61 72 |of addit|ional ar|
|00001850| 67 75 6d 65 6e 74 73 3e | 29 0a 0a 41 20 63 68 61 |guments>|)..A cha|
|00001860| 72 61 63 74 65 72 20 73 | 74 72 69 6e 67 20 69 73 |racter s|tring is|
|00001870| 20 61 20 64 61 74 61 20 | 74 79 70 65 20 69 6e 20 | a data |type in |
|00001880| 4c 49 53 50 2c 20 6a 75 | 73 74 20 6c 69 6b 65 20 |LISP, ju|st like |
|00001890| 74 68 65 20 61 74 6f 6d | 0a 64 61 74 61 20 74 79 |the atom|.data ty|
|000018a0| 70 65 20 61 6e 64 20 74 | 68 65 20 6c 69 73 74 20 |pe and t|he list |
|000018b0| 64 61 74 61 20 74 79 70 | 65 2e 00 02 48 61 70 70 |data typ|e...Happ|
|000018c0| 69 6c 79 2c 20 61 20 63 | 68 61 72 61 63 74 65 72 |ily, a c|haracter|
|000018d0| 20 73 74 72 69 6e 67 20 | 69 73 0a 6a 75 73 74 20 | string |is.just |
|000018e0| 61 20 73 74 72 69 6e 67 | 20 6f 66 20 63 68 61 72 |a string| of char|
|000018f0| 61 63 74 65 72 73 2e 00 | 02 59 6f 75 20 63 72 65 |acters..|.You cre|
|00001900| 61 74 65 20 6f 6e 65 20 | 62 79 20 70 75 74 74 69 |ate one |by putti|
|00001910| 6e 67 20 74 68 65 0a 63 | 68 61 72 61 63 74 65 72 |ng the.c|haracter|
|00001920| 73 20 79 6f 75 20 77 61 | 6e 74 20 74 6f 20 62 65 |s you wa|nt to be|
|00001930| 20 69 6e 20 74 68 65 20 | 63 68 61 72 61 63 74 65 | in the |characte|
|00001940| 72 20 73 74 72 69 6e 67 | 20 62 65 74 77 65 65 6e |r string| between|
|00001950| 20 64 6f 75 62 6c 65 0a | 71 75 6f 74 65 20 6d 61 | double.|quote ma|
|00001960| 72 6b 73 2c 20 22 2e 00 | 02 4c 49 53 50 20 74 79 |rks, "..|.LISP ty|
|00001970| 70 65 73 20 74 68 65 6d | 20 6f 75 74 20 74 68 65 |pes them| out the|
|00001980| 20 73 61 6d 65 20 77 61 | 79 2c 20 62 65 74 77 65 | same wa|y, betwe|
|00001990| 65 6e 20 64 6f 75 62 6c | 65 0a 71 75 6f 74 65 73 |en doubl|e.quotes|
|000019a0| 2e 00 02 54 68 75 73 20 | 74 68 65 20 66 6f 6c 6c |...Thus |the foll|
|000019b0| 6f 77 69 6e 67 20 61 72 | 65 20 70 6c 61 69 6e 20 |owing ar|e plain |
|000019c0| 63 68 61 72 61 63 74 65 | 72 20 73 74 72 69 6e 67 |characte|r string|
|000019d0| 73 3a 0a 0a 22 54 68 69 | 73 20 69 73 20 61 20 63 |s:.."Thi|s is a c|
|000019e0| 68 61 72 61 63 74 65 72 | 20 73 74 72 69 6e 67 2e |haracter| string.|
|000019f0| 22 0a 22 41 42 43 22 0a | 22 62 3a 5c 5c 65 78 70 |"."ABC".|"b:\\exp|
|00001a00| 6c 6f 72 65 72 5c 5c 73 | 6c 69 64 65 73 5c 5c 61 |lorer\\s|lides\\a|
|00001a10| 74 74 2e 74 22 0a 23 12 | 00 00 00 10 01 04 27 03 |tt.t".#.|......'.|
|00001a20| 00 00 00 2e 27 05 00 00 | 00 2e 07 05 53 4c 49 44 |....'...|....SLID|
|00001a30| 45 07 0a 45 58 50 4f 53 | 49 54 49 4f 4e 23 04 00 |E..EXPOS|ITION#..|
|00001a40| 00 00 04 07 0a 45 58 50 | 4f 53 49 54 49 4f 4e 25 |.....EXP|OSITION%|
|00001a50| 11 01 00 00 0a 52 65 63 | 61 6c 6c 20 6f 75 72 20 |.....Rec|all our |
|00001a60| 65 78 61 6d 70 6c 65 3a | 0a 0a 2a 20 28 46 4f 52 |example:|..* (FOR|
|00001a70| 4d 41 54 20 54 20 22 7e | 25 54 68 65 20 6c 69 73 |MAT T "~|%The lis|
|00001a80| 74 20 7e 41 20 68 61 73 | 20 7e 44 20 65 6c 65 6d |t ~A has| ~D elem|
|00001a90| 65 6e 74 7e 50 2e 22 20 | 0a 00 0c 4c 0a 00 0c 28 |ent~P." |...L...(|
|00001aa0| 4c 45 4e 47 54 48 20 4c | 29 0a 00 0c 28 4c 45 4e |LENGTH L|)...(LEN|
|00001ab0| 47 54 48 20 4c 29 29 0a | 0a 54 68 65 20 63 68 61 |GTH L)).|.The cha|
|00001ac0| 72 61 63 74 65 72 20 73 | 74 72 69 6e 67 20 77 69 |racter s|tring wi|
|00001ad0| 74 68 20 64 69 72 65 63 | 74 69 76 65 73 20 69 73 |th direc|tives is|
|00001ae0| 3a 0a 0a 22 7e 25 54 68 | 65 20 6c 69 73 74 20 7e |:.."~%Th|e list ~|
|00001af0| 41 20 68 61 73 20 7e 44 | 20 65 6c 65 6d 65 6e 74 |A has ~D| element|
|00001b00| 7e 50 2e 22 20 0a 0a 54 | 68 65 20 74 68 69 6e 67 |~P." ..T|he thing|
|00001b10| 73 20 73 69 67 6e 61 6c | 65 64 20 62 79 20 74 69 |s signal|ed by ti|
|00001b20| 6c 64 65 73 2c 20 7e 2c | 20 61 72 65 20 64 69 72 |ldes, ~,| are dir|
|00001b30| 65 63 74 69 76 65 73 2e | 00 02 54 68 75 73 20 7e |ectives.|..Thus ~|
|00001b40| 25 2c 20 7e 41 2c 20 7e | 44 0a 61 6e 64 20 7e 50 |%, ~A, ~|D.and ~P|
|00001b50| 20 61 72 65 20 61 6c 6c | 20 64 69 72 65 63 74 69 | are all| directi|
|00001b60| 76 65 73 2e 0a 23 0f 00 | 00 00 10 01 04 27 03 00 |ves..#..|.....'..|
|00001b70| 00 00 2e 27 05 00 00 00 | 2e 07 05 53 4c 49 44 45 |...'....|...SLIDE|
|00001b80| 07 0a 45 58 50 4f 53 49 | 54 49 4f 4e 23 05 00 00 |..EXPOSI|TION#...|
|00001b90| 00 04 07 0a 45 58 50 4f | 53 49 54 49 4f 4e 25 3a |....EXPO|SITION%:|
|00001ba0| 02 00 00 0a 4e 6f 77 20 | 6c 65 74 27 73 20 6c 6f |....Now |let's lo|
|00001bb0| 6f 6b 20 61 74 20 74 68 | 65 20 6c 61 73 74 20 70 |ok at th|e last p|
|00001bc0| 61 72 74 20 6f 66 20 74 | 68 65 20 46 4f 52 4d 41 |art of t|he FORMA|
|00001bd0| 54 20 66 6f 72 6d 3a 0a | 0a 28 46 4f 52 4d 41 54 |T form:.|.(FORMAT|
|00001be0| 20 3c 61 20 73 70 65 63 | 69 66 69 63 61 74 69 6f | <a spec|ificatio|
|00001bf0| 6e 20 6f 66 20 77 68 65 | 72 65 20 74 6f 20 70 72 |n of whe|re to pr|
|00001c00| 69 6e 74 3e 0a 00 08 3c | 61 20 63 68 61 72 61 63 |int>...<|a charac|
|00001c10| 74 65 72 20 73 74 72 69 | 6e 67 20 77 69 74 68 20 |ter stri|ng with |
|00001c20| 64 69 72 65 63 74 69 76 | 65 73 3e 0a 00 08 3c 61 |directiv|es>...<a|
|00001c30| 6e 79 20 6e 75 6d 62 65 | 72 20 6f 66 20 61 64 64 |ny numbe|r of add|
|00001c40| 69 74 69 6f 6e 61 6c 20 | 61 72 67 75 6d 65 6e 74 |itional |argument|
|00001c50| 73 3e 29 20 3b 44 65 73 | 63 72 69 62 65 64 20 68 |s>) ;Des|cribed h|
|00001c60| 65 72 65 2e 0a 0a 49 6e | 20 6f 75 72 20 65 78 61 |ere...In| our exa|
|00001c70| 6d 70 6c 65 2c 20 74 68 | 65 20 6c 61 73 74 20 70 |mple, th|e last p|
|00001c80| 61 72 74 20 69 73 20 61 | 20 73 65 71 75 65 6e 63 |art is a| sequenc|
|00001c90| 65 20 6f 66 20 61 72 67 | 75 6d 65 6e 74 73 3a 0a |e of arg|uments:.|
|00001ca0| 0a 4c 20 28 4c 45 4e 47 | 54 48 20 4c 29 20 28 4c |.L (LENG|TH L) (L|
|00001cb0| 45 4e 47 54 48 20 4c 29 | 0a 0a 57 69 74 68 6f 75 |ENGTH L)|..Withou|
|00001cc0| 74 20 64 69 72 65 63 74 | 69 76 65 73 2c 20 46 4f |t direct|ives, FO|
|00001cd0| 52 4d 41 54 20 70 72 69 | 6e 74 73 20 6f 75 74 20 |RMAT pri|nts out |
|00001ce0| 74 68 65 20 63 68 61 72 | 61 63 74 65 72 20 73 74 |the char|acter st|
|00001cf0| 72 69 6e 67 0a 77 69 74 | 68 6f 75 74 20 74 68 65 |ring.wit|hout the|
|00001d00| 20 64 6f 75 62 6c 65 20 | 71 75 6f 74 65 73 20 66 | double |quotes f|
|00001d10| 6f 72 65 20 61 6e 64 20 | 61 66 74 3a 0a 0a 2a 20 |ore and |aft:..* |
|00001d20| 28 46 4f 52 4d 41 54 20 | 54 20 22 50 6c 65 61 73 |(FORMAT |T "Pleas|
|00001d30| 65 20 70 72 69 6e 74 20 | 74 68 69 73 2e 22 29 50 |e print |this.")P|
|00001d40| 6c 65 61 73 65 20 70 72 | 69 6e 74 20 74 68 69 73 |lease pr|int this|
|00001d50| 2e 0a 4e 49 4c 0a 0a 54 | 68 65 20 64 69 72 65 63 |..NIL..T|he direc|
|00001d60| 74 69 76 65 73 20 6d 61 | 6b 65 20 74 68 65 20 63 |tives ma|ke the c|
|00001d70| 68 61 72 61 63 74 65 72 | 20 73 74 72 69 6e 67 20 |haracter| string |
|00001d80| 69 6e 74 6f 20 61 20 73 | 6f 72 74 20 6f 66 20 74 |into a s|ort of t|
|00001d90| 65 6d 70 6c 61 74 65 0a | 74 6f 20 62 65 20 66 69 |emplate.|to be fi|
|00001da0| 6c 6c 65 64 20 69 6e 20 | 62 79 20 74 68 65 20 66 |lled in |by the f|
|00001db0| 69 6e 61 6c 20 61 72 67 | 75 6d 65 6e 74 73 20 61 |inal arg|uments a|
|00001dc0| 70 70 65 61 72 69 6e 67 | 20 69 6e 20 74 68 65 20 |ppearing| in the |
|00001dd0| 46 4f 52 4d 41 54 0a 66 | 6f 72 6d 2e 0a 23 15 00 |FORMAT.f|orm..#..|
|00001de0| 00 00 10 01 04 27 03 00 | 00 00 2e 27 05 00 00 00 |.....'..|...'....|
|00001df0| 2e 07 05 53 4c 49 44 45 | 07 0a 45 58 50 4f 53 49 |...SLIDE|..EXPOSI|
|00001e00| 54 49 4f 4e 23 06 00 00 | 00 04 07 0a 45 58 50 4f |TION#...|....EXPO|
|00001e10| 53 49 54 49 4f 4e 25 da | 01 00 00 0a 4d 6f 73 74 |SITION%.|....Most|
|00001e20| 20 64 69 72 65 63 74 69 | 76 65 73 20 68 61 76 65 | directi|ves have|
|00001e30| 20 74 68 65 69 72 20 6f | 77 6e 20 77 61 79 20 6f | their o|wn way o|
|00001e40| 66 20 72 65 70 6c 61 63 | 69 6e 67 20 74 68 65 6d |f replac|ing them|
|00001e50| 73 65 6c 76 65 73 20 77 | 69 74 68 0a 61 6e 20 61 |selves w|ith.an a|
|00001e60| 72 67 75 6d 65 6e 74 3a | 0a 0a 44 69 72 65 63 74 |rgument:|..Direct|
|00001e70| 69 76 65 00 03 41 63 74 | 69 6f 6e 0a 0a 7e 41 00 |ive..Act|ion..~A.|
|00001e80| 0a 50 72 69 6e 74 20 74 | 68 65 20 6e 65 78 74 20 |.Print t|he next |
|00001e90| 61 72 67 75 6d 65 6e 74 | 2c 20 77 68 69 63 68 20 |argument|, which |
|00001ea0| 6d 61 79 20 62 65 20 61 | 6e 79 20 65 78 70 72 65 |may be a|ny expre|
|00001eb0| 73 73 69 6f 6e 2e 0a 7e | 44 00 0a 50 72 69 6e 74 |ssion..~|D..Print|
|00001ec0| 20 74 68 65 20 6e 65 78 | 74 20 61 72 67 75 6d 65 | the nex|t argume|
|00001ed0| 6e 74 2c 20 77 68 69 63 | 68 20 6d 75 73 74 20 62 |nt, whic|h must b|
|00001ee0| 65 20 61 20 6e 75 6d 62 | 65 72 2e 0a 7e 50 00 0a |e a numb|er..~P..|
|00001ef0| 50 72 69 6e 74 20 6e 6f | 74 68 69 6e 67 20 69 66 |Print no|thing if|
|00001f00| 20 74 68 65 20 6e 65 78 | 74 20 61 72 67 75 6d 65 | the nex|t argume|
|00001f10| 6e 74 20 69 73 20 31 3b | 0a 00 0c 6f 74 68 65 72 |nt is 1;|...other|
|00001f20| 77 69 73 65 2c 20 70 72 | 69 6e 74 20 73 2e 00 02 |wise, pr|int s...|
|00001f30| 54 68 69 73 20 69 73 20 | 75 73 65 64 20 74 6f 20 |This is |used to |
|00001f40| 6d 61 6b 65 20 77 6f 72 | 64 73 0a 00 0c 70 6c 75 |make wor|ds...plu|
|00001f50| 72 61 6c 2c 20 77 68 65 | 6e 20 61 70 70 72 6f 70 |ral, whe|n approp|
|00001f60| 72 69 61 74 65 2e 0a 0a | 4f 6e 65 20 64 69 72 65 |riate...|One dire|
|00001f70| 63 74 69 76 65 20 70 75 | 74 73 20 69 6e 20 61 20 |ctive pu|ts in a |
|00001f80| 6e 65 77 20 6c 69 6e 65 | 3a 0a 0a 7e 25 00 0a 53 |new line|:..~%..S|
|00001f90| 74 61 72 74 20 61 20 6e | 65 77 20 6c 69 6e 65 2e |tart a n|ew line.|
|00001fa0| 0a 0a 4e 4f 54 45 3a 20 | 54 68 65 20 64 69 72 65 |..NOTE: |The dire|
|00001fb0| 63 74 69 76 65 20 7e 50 | 20 6d 61 79 20 6e 6f 74 |ctive ~P| may not|
|00001fc0| 20 62 65 20 61 76 61 69 | 6c 61 62 6c 65 20 69 6e | be avai|lable in|
|00001fd0| 20 74 68 69 73 20 76 65 | 72 73 69 6f 6e 20 6f 66 | this ve|rsion of|
|00001fe0| 0a 47 6f 6c 64 65 6e 20 | 43 6f 6d 6d 6f 6e 20 4c |.Golden |Common L|
|00001ff0| 49 53 50 2e 0a 23 13 00 | 00 00 10 01 04 27 03 00 |ISP..#..|.....'..|
|00002000| 00 00 2e 27 05 00 00 00 | 2e 07 05 53 4c 49 44 45 |...'....|...SLIDE|
|00002010| 07 0a 45 58 50 4f 53 49 | 54 49 4f 4e 23 07 00 00 |..EXPOSI|TION#...|
|00002020| 00 04 07 0a 45 58 50 4f | 53 49 54 49 4f 4e 25 de |....EXPO|SITION%.|
|00002030| 01 00 00 0a 48 65 6e 63 | 65 2c 20 77 65 20 67 65 |....Henc|e, we ge|
|00002040| 74 20 73 6f 6d 65 74 68 | 69 6e 67 20 73 65 6e 73 |t someth|ing sens|
|00002050| 69 62 6c 65 20 66 72 6f | 6d 20 74 68 69 73 3a 0a |ible fro|m this:.|
|00002060| 0a 00 28 da c4 c4 c4 c4 | c4 c4 c4 c4 c4 c4 c4 c4 |..(.....|........|
|00002070| c4 c4 c4 c4 c4 c4 c4 c4 | bf 0a 00 28 b3 00 14 b3 |........|...(....|
|00002080| 0a 00 1e da c4 c4 c4 c4 | c4 c4 c4 c4 c4 c5 c4 c4 |........|........|
|00002090| c4 c4 c4 c4 c4 c4 c4 bf | 00 0a b3 0a 00 1e b3 00 |........|........|
|000020a0| 09 b3 00 09 b3 00 0a b3 | 0a 00 09 4e 65 77 6c 69 |........|...Newli|
|000020b0| 6e 65 00 07 da c4 c4 c4 | c4 c4 c4 c5 c4 c4 c4 c4 |ne......|........|
|000020c0| c4 c4 c4 c4 c4 c5 c4 c4 | c4 bf 00 05 b3 00 0a b3 |........|........|
|000020d0| 0a 00 0c 1e 00 0a b3 00 | 06 b3 00 09 b3 00 03 b3 |........|........|
|000020e0| 00 05 b3 00 0a b3 0a 00 | 0c b3 00 0a 1f 00 06 1f |........|........|
|000020f0| 00 09 1f 00 03 b3 00 05 | b3 00 0a b3 0a 28 46 4f |........|.....(FO|
|00002100| 52 4d 41 54 20 54 20 22 | 7e 25 54 68 65 20 6c 69 |RMAT T "|~%The li|
|00002110| 73 74 20 7e 41 20 68 61 | 73 20 7e 44 20 65 6c 65 |st ~A ha|s ~D ele|
|00002120| 6d 65 6e 74 7e 50 2e 22 | 20 4c 20 28 4c 45 4e 47 |ment~P."| L (LENG|
|00002130| 54 48 20 4c 29 20 28 4c | 45 4e 47 54 48 20 4c 29 |TH L) (L|ENGTH L)|
|00002140| 29 0a 00 17 b3 00 06 b3 | 00 09 b3 0a 00 0e da c4 |).......|........|
|00002150| c4 c4 c4 c4 c4 c4 c4 d9 | 00 06 b3 00 09 b3 0a 00 |........|........|
|00002160| 0e b3 00 09 da c4 c4 c4 | c4 c4 d9 00 02 da c4 c4 |........|........|
|00002170| c4 c4 c4 c4 d9 20 0a 00 | 0e 1f 00 09 b3 00 08 b3 |..... ..|........|
|00002180| 0a 00 09 c4 c4 c4 c4 c4 | c4 c4 c4 c4 c4 00 05 1f |........|........|
|00002190| 00 08 1f 0a 54 68 65 20 | 6c 69 73 74 20 28 41 41 |....The |list (AA|
|000021a0| 20 42 42 20 43 43 29 20 | 68 61 73 20 33 20 65 6c | BB CC) |has 3 el|
|000021b0| 65 6d 65 6e 74 73 2e 0a | 0a 54 68 65 20 66 6f 6c |ements..|.The fol|
|000021c0| 6c 6f 77 69 6e 67 20 64 | 65 74 61 69 6c 73 20 73 |lowing d|etails s|
|000021d0| 6c 69 64 65 20 65 78 70 | 6c 61 69 6e 73 20 68 6f |lide exp|lains ho|
|000021e0| 77 20 79 6f 75 20 63 61 | 6e 20 61 76 6f 69 64 20 |w you ca|n avoid |
|000021f0| 63 6f 6d 70 75 74 69 6e | 67 0a 74 68 65 20 6c 65 |computin|g.the le|
|00002200| 6e 67 74 68 20 6f 66 20 | 4c 20 74 77 69 63 65 2e |ngth of |L twice.|
|00002210| 0a 23 15 00 00 00 10 01 | 07 05 53 4c 49 44 45 07 |.#......|..SLIDE.|
|00002220| 0a 45 58 50 4f 53 49 54 | 49 4f 4e 23 01 00 00 00 |.EXPOSIT|ION#....|
|00002230| 04 07 0a 45 58 50 4f 53 | 49 54 49 4f 4e 25 94 01 |...EXPOS|ITION%..|
|00002240| 00 00 0a 54 68 65 72 65 | 20 69 73 20 61 6e 20 61 |...There| is an a|
|00002250| 6c 74 65 72 6e 61 74 69 | 76 65 20 66 6f 72 6d 20 |lternati|ve form |
|00002260| 6f 66 20 74 68 65 20 7e | 50 20 64 69 72 65 63 74 |of the ~|P direct|
|00002270| 69 76 65 2c 00 02 6e 61 | 6d 65 6c 79 20 7e 3a 50 |ive,..na|mely ~:P|
|00002280| 2c 0a 77 68 6f 73 65 20 | 61 63 74 69 6f 6e 20 69 |,.whose |action i|
|00002290| 73 20 64 65 74 65 72 6d | 69 6e 65 64 20 62 79 20 |s determ|ined by |
|000022a0| 74 68 65 20 76 61 6c 75 | 65 20 6f 66 20 74 68 65 |the valu|e of the|
|000022b0| 20 70 72 65 76 69 6f 75 | 73 20 61 72 67 75 6d 65 | previou|s argume|
|000022c0| 6e 74 2e 20 0a 54 68 75 | 73 20 74 68 65 20 66 6f |nt. .Thu|s the fo|
|000022d0| 6c 6c 6f 77 69 6e 67 20 | 61 72 65 20 65 71 75 69 |llowing |are equi|
|000022e0| 76 61 6c 65 6e 74 3a 0a | 0a 28 46 4f 52 4d 41 54 |valent:.|.(FORMAT|
|000022f0| 20 54 20 22 7e 25 54 68 | 65 20 6c 69 73 74 20 7e | T "~%Th|e list ~|
|00002300| 41 20 68 61 73 20 7e 44 | 20 65 6c 65 6d 65 6e 74 |A has ~D| element|
|00002310| 7e 50 2e 22 20 4c 20 28 | 4c 45 4e 47 54 48 20 4c |~P." L (|LENGTH L|
|00002320| 29 20 28 4c 45 4e 47 54 | 48 20 4c 29 29 0a 0a 28 |) (LENGT|H L))..(|
|00002330| 46 4f 52 4d 41 54 20 54 | 20 22 7e 25 54 68 65 20 |FORMAT T| "~%The |
|00002340| 6c 69 73 74 20 7e 41 20 | 68 61 73 20 7e 44 20 65 |list ~A |has ~D e|
|00002350| 6c 65 6d 65 6e 74 7e 3a | 50 2e 22 20 4c 20 28 4c |lement~:|P." L (L|
|00002360| 45 4e 47 54 48 20 4c 29 | 29 0a 0a 41 6c 6c 20 74 |ENGTH L)|)..All t|
|00002370| 68 69 73 20 69 73 20 61 | 20 62 69 74 20 64 69 76 |his is a| bit div|
|00002380| 65 72 73 69 6f 6e 61 72 | 79 2c 20 73 69 6e 63 65 |ersionar|y, since|
|00002390| 20 6e 65 69 74 68 65 72 | 20 66 6f 72 6d 20 6f 66 | neither| form of|
|000023a0| 20 74 68 65 20 7e 50 0a | 64 69 72 65 63 74 69 76 | the ~P.|directiv|
|000023b0| 65 20 69 73 20 61 76 61 | 69 6c 61 62 6c 65 20 69 |e is ava|ilable i|
|000023c0| 6e 20 47 6f 6c 64 65 6e | 20 43 6f 6d 6d 6f 6e 20 |n Golden| Common |
|000023d0| 4c 49 53 50 2e 0a 23 0c | 00 00 00 10 01 04 27 03 |LISP..#.|......'.|
|000023e0| 00 00 00 2e 27 05 00 00 | 00 2e 27 01 00 00 00 27 |....'...|..'....'|
|000023f0| 03 00 00 00 2e 27 05 00 | 00 00 2e 07 05 53 4c 49 |.....'..|.....SLI|
|00002400| 44 45 07 08 45 58 41 4d | 50 4c 45 53 23 08 00 00 |DE..EXAM|PLES#...|
|00002410| 00 04 07 0d 45 58 41 4d | 50 4c 45 2d 47 52 4f 55 |....EXAM|PLE-GROU|
|00002420| 50 26 1f 41 73 73 75 6d | 65 20 4c 27 73 20 76 61 |P&.Assum|e L's va|
|00002430| 6c 75 65 20 69 73 20 28 | 41 41 20 42 42 20 43 43 |lue is (|AA BB CC|
|00002440| 29 2e 23 01 00 00 00 10 | 01 26 46 2a 20 28 46 4f |).#.....|.&F* (FO|
|00002450| 52 4d 41 54 20 54 20 22 | 7e 25 54 68 65 20 6c 69 |RMAT T "|~%The li|
|00002460| 73 74 20 7e 41 20 68 61 | 73 20 7e 44 20 65 6c 65 |st ~A ha|s ~D ele|
|00002470| 6d 65 6e 74 7e 50 2e 22 | 20 4c 20 28 4c 45 4e 47 |ment~P."| L (LENG|
|00002480| 54 48 20 4c 29 20 28 4c | 45 4e 47 54 48 20 4c 29 |TH L) (L|ENGTH L)|
|00002490| 29 23 01 00 00 00 10 01 | 26 23 54 68 65 20 6c 69 |)#......|&#The li|
|000024a0| 73 74 20 28 41 41 20 42 | 42 20 43 43 29 20 68 61 |st (AA B|B CC) ha|
|000024b0| 73 20 33 20 65 6c 65 6d | 65 6e 74 73 2e 23 01 00 |s 3 elem|ents.#..|
|000024c0| 00 00 10 01 27 04 00 00 | 00 2e 07 0d 45 58 41 4d |....'...|....EXAM|
|000024d0| 50 4c 45 2d 47 52 4f 55 | 50 26 1f 45 76 61 6c 75 |PLE-GROU|P&.Evalu|
|000024e0| 61 74 65 20 74 68 65 20 | 67 69 76 65 6e 20 65 78 |ate the |given ex|
|000024f0| 70 72 65 73 73 69 6f 6e | 73 2e 23 01 00 00 00 10 |pression|s.#.....|
|00002500| 01 26 1c 2a 20 28 46 4f | 52 4d 41 54 20 54 20 22 |.&.* (FO|RMAT T "|
|00002510| 7e 25 50 72 69 6e 74 20 | 74 68 69 73 2e 22 29 23 |~%Print |this.")#|
|00002520| 01 00 00 00 10 01 26 0b | 50 72 69 6e 74 20 74 68 |......&.|Print th|
|00002530| 69 73 2e 23 01 00 00 00 | 10 01 27 04 00 00 00 2e |is.#....|..'.....|
|00002540| 07 0d 45 58 41 4d 50 4c | 45 2d 47 52 4f 55 50 04 |..EXAMPL|E-GROUP.|
|00002550| 26 3d 2a 20 28 46 4f 52 | 4d 41 54 20 54 20 22 7e |&=* (FOR|MAT T "~|
|00002560| 25 50 72 69 6e 74 20 74 | 68 69 73 20 6f 6e 20 6f |%Print t|his on o|
|00002570| 6e 65 20 6c 69 6e 65 7e | 25 61 6e 64 20 74 68 69 |ne line~|%and thi|
|00002580| 73 20 6f 6e 20 61 6e 6f | 74 68 65 72 2e 22 29 23 |s on ano|ther.")#|
|00002590| 01 00 00 00 10 01 26 2b | 50 72 69 6e 74 20 74 68 |......&+|Print th|
|000025a0| 69 73 20 6f 6e 20 6f 6e | 65 20 6c 69 6e 65 0a 61 |is on on|e line.a|
|000025b0| 6e 64 20 74 68 69 73 20 | 6f 6e 20 61 6e 6f 74 68 |nd this |on anoth|
|000025c0| 65 72 2e 23 02 00 00 00 | 10 01 27 04 00 00 00 2e |er.#....|..'.....|
|000025d0| 04 10 03 27 05 00 00 00 | 2e 07 05 53 4c 49 44 45 |...'....|...SLIDE|
|000025e0| 07 08 45 58 41 4d 50 4c | 45 53 23 09 00 00 00 04 |..EXAMPL|ES#.....|
|000025f0| 07 0d 45 58 41 4d 50 4c | 45 2d 47 52 4f 55 50 26 |..EXAMPL|E-GROUP&|
|00002600| 27 41 73 73 75 6d 65 20 | 54 48 49 4e 47 53 2d 53 |'Assume |THINGS-S|
|00002610| 55 50 50 4f 52 54 45 44 | 27 73 20 76 61 6c 75 65 |UPPORTED|'s value|
|00002620| 20 69 73 20 28 41 29 2e | 23 01 00 00 00 10 01 26 | is (A).|#......&|
|00002630| 67 2a 20 28 46 4f 52 4d | 41 54 20 54 20 22 7e 25 |g* (FORM|AT T "~%|
|00002640| 54 68 65 20 62 6c 6f 63 | 6b 20 73 75 70 70 6f 72 |The bloc|k suppor|
|00002650| 74 73 20 7e 44 20 74 68 | 69 6e 67 7e 50 2e 22 0a |ts ~D th|ing~P.".|
|00002660| 00 0c 28 4c 45 4e 47 54 | 48 20 54 48 49 4e 47 53 |..(LENGT|H THINGS|
|00002670| 2d 53 55 50 50 4f 52 54 | 45 44 29 0a 00 0c 28 4c |-SUPPORT|ED)...(L|
|00002680| 45 4e 47 54 48 20 54 48 | 49 4e 47 53 2d 53 55 50 |ENGTH TH|INGS-SUP|
|00002690| 50 4f 52 54 45 44 29 29 | 23 03 00 00 00 10 01 26 |PORTED))|#......&|
|000026a0| 1b 54 68 65 20 62 6c 6f | 63 6b 20 73 75 70 70 6f |.The blo|ck suppo|
|000026b0| 72 74 73 20 31 20 74 68 | 69 6e 67 2e 23 01 00 00 |rts 1 th|ing.#...|
|000026c0| 00 10 01 27 04 00 00 00 | 2e 07 0d 45 58 41 4d 50 |...'....|...EXAMP|
|000026d0| 4c 45 2d 47 52 4f 55 50 | 26 2f 4e 6f 77 20 61 73 |LE-GROUP|&/Now as|
|000026e0| 73 75 6d 65 20 54 48 49 | 4e 47 53 2d 53 55 50 50 |sume THI|NGS-SUPP|
|000026f0| 4f 52 54 45 44 27 73 20 | 76 61 6c 75 65 20 69 73 |ORTED's |value is|
|00002700| 20 28 41 20 42 20 43 29 | 2e 23 01 00 00 00 10 01 | (A B C)|.#......|
|00002710| 26 67 2a 20 28 46 4f 52 | 4d 41 54 20 54 20 22 7e |&g* (FOR|MAT T "~|
|00002720| 25 54 68 65 20 62 6c 6f | 63 6b 20 73 75 70 70 6f |%The blo|ck suppo|
|00002730| 72 74 73 20 7e 44 20 74 | 68 69 6e 67 7e 50 2e 22 |rts ~D t|hing~P."|
|00002740| 0a 00 0c 28 4c 45 4e 47 | 54 48 20 54 48 49 4e 47 |...(LENG|TH THING|
|00002750| 53 2d 53 55 50 50 4f 52 | 54 45 44 29 0a 00 0c 28 |S-SUPPOR|TED)...(|
|00002760| 4c 45 4e 47 54 48 20 54 | 48 49 4e 47 53 2d 53 55 |LENGTH T|HINGS-SU|
|00002770| 50 50 4f 52 54 45 44 29 | 29 23 03 00 00 00 10 01 |PPORTED)|)#......|
|00002780| 26 1d 54 68 65 20 62 6c | 6f 63 6b 20 73 75 70 70 |&.The bl|ock supp|
|00002790| 6f 72 74 73 20 33 20 74 | 68 69 6e 67 73 2e 0a 23 |orts 3 t|hings..#|
|000027a0| 02 00 00 00 10 01 27 04 | 00 00 00 2e 04 10 02 27 |......'.|.......'|
|000027b0| 05 00 00 00 2e 07 05 53 | 4c 49 44 45 07 0a 45 58 |.......S|LIDE..EX|
|000027c0| 50 4f 53 49 54 49 4f 4e | 23 0a 00 00 00 04 07 0a |POSITION|#.......|
|000027d0| 45 58 50 4f 53 49 54 49 | 4f 4e 26 e5 0a 46 4f 52 |EXPOSITI|ON&..FOR|
|000027e0| 4d 41 54 20 65 6e 61 62 | 6c 65 73 20 74 72 75 6c |MAT enab|les trul|
|000027f0| 79 20 77 6f 6e 64 65 72 | 66 75 6c 20 70 72 69 6e |y wonder|ful prin|
|00002800| 74 69 6e 67 2c 20 62 75 | 74 20 64 6f 6e 27 74 20 |ting, bu|t don't |
|00002810| 74 72 79 20 74 6f 20 73 | 74 61 72 74 20 61 0a 63 |try to s|tart a.c|
|00002820| 6f 6d 70 6c 69 63 61 74 | 65 64 20 75 73 65 20 6f |omplicat|ed use o|
|00002830| 66 20 46 4f 52 4d 41 54 | 20 66 72 6f 6d 20 73 63 |f FORMAT| from sc|
|00002840| 72 61 74 63 68 2e 00 02 | 49 6e 73 74 65 61 64 2c |ratch...|Instead,|
|00002850| 20 6c 6f 6f 6b 20 61 74 | 20 74 68 65 0a 65 78 61 | look at| the.exa|
|00002860| 6d 70 6c 65 73 20 69 6e | 20 74 68 65 20 43 6f 6d |mples in| the Com|
|00002870| 6d 6f 6e 20 4c 49 53 50 | 20 52 65 66 65 72 65 6e |mon LISP| Referen|
|00002880| 63 65 20 4d 61 6e 75 61 | 6c 2c 20 66 69 6e 64 20 |ce Manua|l, find |
|00002890| 73 6f 6d 65 74 68 69 6e | 67 0a 63 6c 6f 73 65 20 |somethin|g.close |
|000028a0| 74 6f 20 77 68 61 74 20 | 79 6f 75 20 77 61 6e 74 |to what |you want|
|000028b0| 2c 20 61 6e 64 20 6d 6f | 64 69 66 79 20 69 74 2e |, and mo|dify it.|
|000028c0| 0a 23 06 00 00 00 10 01 | 04 27 03 00 00 00 2e 27 |.#......|.'.....'|
|000028d0| 05 00 00 00 2e 07 05 53 | 4c 49 44 45 07 08 50 52 |.......S|LIDE..PR|
|000028e0| 41 43 54 49 43 45 23 0b | 00 00 00 07 05 46 4f 52 |ACTICE#.|.....FOR|
|000028f0| 4d 53 0b 01 04 53 45 54 | 46 07 01 4c 0b 01 05 51 |MS...SET|F..L...Q|
|00002900| 55 4f 54 45 07 04 54 48 | 49 53 07 02 49 53 07 01 |UOTE..TH|IS..IS..|
|00002910| 41 0b 01 04 4c 49 53 54 | 04 10 04 04 10 02 04 10 |A...LIST|........|
|00002920| 03 0b 01 04 53 45 54 46 | 0b 01 01 4e 0b 01 05 51 |....SETF|...N...Q|
|00002930| 55 4f 54 45 23 4b 00 00 | 00 04 10 02 04 10 03 0b |UOTE#K..|........|
|00002940| 01 04 53 45 54 46 07 01 | 57 0b 01 05 51 55 4f 54 |..SETF..|W...QUOT|
|00002950| 45 07 06 48 41 43 4b 45 | 52 04 10 02 04 10 03 04 |E..HACKE|R.......|
|00002960| 10 03 04 10 02 25 27 01 | 00 00 50 72 61 63 74 69 |.....%'.|..Practi|
|00002970| 63 65 20 75 73 69 6e 67 | 20 66 6f 72 6d 61 74 2c |ce using| format,|
|00002980| 20 74 72 79 69 6e 67 20 | 6f 75 74 20 74 68 65 73 | trying |out thes|
|00002990| 65 20 64 69 72 65 63 74 | 69 76 65 73 3a 0a 0a 44 |e direct|ives:..D|
|000029a0| 69 72 65 63 74 69 76 65 | 00 05 41 63 74 69 6f 6e |irective|..Action|
|000029b0| 0a 0a 7e 25 00 0c 53 74 | 61 72 74 20 61 20 6e 65 |..~%..St|art a ne|
|000029c0| 77 20 6c 69 6e 65 2e 0a | 7e 41 00 0c 50 72 69 6e |w line..|~A..Prin|
|000029d0| 74 20 74 68 65 20 6e 65 | 78 74 20 61 72 67 75 6d |t the ne|xt argum|
|000029e0| 65 6e 74 2c 20 77 68 69 | 63 68 20 6d 61 79 20 62 |ent, whi|ch may b|
|000029f0| 65 20 61 6e 79 20 4c 49 | 53 50 20 65 78 70 72 65 |e any LI|SP expre|
|00002a00| 73 73 69 6f 6e 2e 0a 7e | 44 00 0c 50 72 69 6e 74 |ssion..~|D..Print|
|00002a10| 20 74 68 65 20 6e 65 78 | 74 20 61 72 67 75 6d 65 | the nex|t argume|
|00002a20| 6e 74 2c 20 77 68 69 63 | 68 20 6d 75 73 74 20 62 |nt, whic|h must b|
|00002a30| 65 20 61 20 6e 75 6d 62 | 65 72 2e 0a 0a 59 6f 75 |e a numb|er...You|
|00002a40| 20 6d 61 79 20 61 73 73 | 75 6d 65 20 4c 27 73 20 | may ass|ume L's |
|00002a50| 76 61 6c 75 65 20 69 73 | 20 28 54 48 49 53 20 49 |value is| (THIS I|
|00002a60| 53 20 41 20 4c 49 53 54 | 29 3b 0a 4e 27 73 20 76 |S A LIST|);.N's v|
|00002a70| 61 6c 75 65 20 69 73 20 | 37 35 3b 0a 57 27 73 20 |alue is |75;.W's |
|00002a80| 76 61 6c 75 65 20 69 73 | 20 48 41 43 4b 45 52 2e |value is| HACKER.|
|00002a90| 0a 23 0c 00 00 00 10 01 | 27 05 00 00 00 2e 07 05 |.#......|'.......|
|00002aa0| 53 4c 49 44 45 07 0a 45 | 58 50 4f 53 49 54 49 4f |SLIDE..E|XPOSITIO|
|00002ab0| 4e 23 0c 00 00 00 04 07 | 0a 45 58 50 4f 53 49 54 |N#......|.EXPOSIT|
|00002ac0| 49 4f 4e 25 f9 01 00 00 | 0a 52 65 6d 65 6d 62 65 |ION%....|.Remembe|
|00002ad0| 72 20 2e 2e 2e 0a 0a 6f | 00 04 49 46 20 79 6f 75 |r .....o|..IF you|
|00002ae0| 20 77 61 6e 74 20 74 6f | 20 70 72 69 6e 74 20 73 | want to| print s|
|00002af0| 6f 6d 65 74 68 69 6e 67 | 2c 0a 00 05 41 4e 44 20 |omething|,...AND |
|00002b00| 79 6f 75 20 63 61 72 65 | 20 61 20 67 72 65 61 74 |you care| a great|
|00002b10| 20 64 65 61 6c 20 68 6f | 77 20 69 74 20 6c 6f 6f | deal ho|w it loo|
|00002b20| 6b 73 2c 0a 00 05 54 48 | 45 4e 20 75 73 65 20 46 |ks,...TH|EN use F|
|00002b30| 4f 52 4d 41 54 2e 0a 0a | 00 05 28 46 4f 52 4d 41 |ORMAT...|..(FORMA|
|00002b40| 54 20 3c 61 20 73 70 65 | 63 69 66 69 63 61 74 69 |T <a spe|cificati|
|00002b50| 6f 6e 20 6f 66 20 77 68 | 65 72 65 20 74 6f 20 70 |on of wh|ere to p|
|00002b60| 72 69 6e 74 3e 0a 00 0d | 3c 61 20 63 68 61 72 61 |rint>...|<a chara|
|00002b70| 63 74 65 72 20 73 74 72 | 69 6e 67 20 77 69 74 68 |cter str|ing with|
|00002b80| 20 64 69 72 65 63 74 69 | 76 65 73 3e 0a 00 0d 3c | directi|ves>...<|
|00002b90| 61 6e 79 20 6e 75 6d 62 | 65 72 20 6f 66 20 61 64 |any numb|er of ad|
|00002ba0| 64 69 74 69 6f 6e 61 6c | 20 61 72 67 75 6d 65 6e |ditional| argumen|
|00002bb0| 74 73 3e 29 0a 0a 6f 00 | 04 54 68 65 20 6d 6f 73 |ts>)..o.|.The mos|
|00002bc0| 74 20 75 73 65 66 75 6c | 20 64 69 72 65 63 74 69 |t useful| directi|
|00002bd0| 76 65 73 20 61 72 65 20 | 74 68 65 73 65 3a 0a 0a |ves are |these:..|
|00002be0| 44 69 72 65 63 74 69 76 | 65 00 05 41 63 74 69 6f |Directiv|e..Actio|
|00002bf0| 6e 0a 0a 7e 25 00 0c 53 | 74 61 72 74 20 61 20 6e |n..~%..S|tart a n|
|00002c00| 65 77 20 6c 69 6e 65 2e | 0a 7e 41 00 0c 50 72 69 |ew line.|.~A..Pri|
|00002c10| 6e 74 20 74 68 65 20 6e | 65 78 74 20 61 72 67 75 |nt the n|ext argu|
|00002c20| 6d 65 6e 74 2c 20 77 68 | 69 63 68 20 6d 61 79 20 |ment, wh|ich may |
|00002c30| 62 65 20 61 6e 79 20 4c | 49 53 50 20 65 78 70 72 |be any L|ISP expr|
|00002c40| 65 73 73 69 6f 6e 2e 0a | 7e 44 00 0c 50 72 69 6e |ession..|~D..Prin|
|00002c50| 74 20 74 68 65 20 6e 65 | 78 74 20 61 72 67 75 6d |t the ne|xt argum|
|00002c60| 65 6e 74 2c 20 77 68 69 | 63 68 20 6d 75 73 74 20 |ent, whi|ch must |
|00002c70| 62 65 20 61 20 6e 75 6d | 62 65 72 2e 0a 7e 50 00 |be a num|ber..~P.|
|00002c80| 0c 50 72 69 6e 74 20 6e | 6f 74 68 69 6e 67 20 69 |.Print n|othing i|
|00002c90| 66 20 74 68 65 20 6e 65 | 78 74 20 61 72 67 75 6d |f the ne|xt argum|
|00002ca0| 65 6e 74 20 69 73 20 31 | 3b 0a 00 0e 6f 74 68 65 |ent is 1|;...othe|
|00002cb0| 72 77 69 73 65 2c 20 70 | 72 69 6e 74 20 73 2e 0a |rwise, p|rint s..|
|00002cc0| 0a 23 16 00 00 00 10 01 | 04 27 03 00 00 00 2e 27 |.#......|.'.....'|
|00002cd0| 05 00 00 00 2e 27 0c 00 | 00 00 04 27 05 00 00 00 |.....'..|...'....|
|00002ce0| 2e 04 10 02 04 10 03 36 | 0b 01 04 53 45 54 46 07 |.......6|...SETF.|
|00002cf0| 15 2a 4c 41 53 54 2d 4c | 4f 41 44 45 44 2d 4c 45 |.*LAST-L|OADED-LE|
|00002d00| 53 53 4f 4e 53 2a 0b 01 | 05 51 55 4f 54 45 07 02 |SSONS*..|.QUOTE..|
|00002d10| 49 4f 0b 01 04 52 45 41 | 44 0b 01 06 46 4f 52 4d |IO...REA|D...FORM|
|00002d20| 41 54 04 10 03 04 10 02 | 04 10 03 36 40          |AT......|...6@   |
+--------+-------------------------+-------------------------+--------+--------+