(script 257)

(string
    string_0716 "Book"
    string_071b "LHead"
    string_0721 "Lillian"
    string_0729 "lillRead"
    string_0732 "reading"
)

(said
    said_054e /book
    said_0552 /doll
    said_0556 embrace/lil
    said_055c get/lil
    said_0562 get>
    said_0566 deliver,hold/lil
    said_056f abattre/lil
    said_0575 embrasser/lil
    said_057b ecouter/lil
    said_0581 look/lil
    said_0587 look>
    said_058b etudier/book
    said_0591 bonjour/lil
    said_0597 raconter,ask/lil
)

(synonym
    lil | lill | lillian | lilly = person | personne
    lil | lill | lillian | lilly = dame | femme | fille | girl | lady | maiden | woman
)

(local
    local0 = $0000
    local1 = $0000
)

// 05a6
(instance public lillRead of Rgn
    (properties
        script $0
        number $0
        timer $0
        keep $0
        initialized $0
    )
    (method (init) // method_003a
  003a:39 57            pushi 57 // $57 init
  003c:76               push0 
  003d:57 36 04         super Rgn 4 

  0040:89 76              lsg gMustDos 
  0042:35 01              ldi 1 
  0044:12                 and 
  0045:18                 not 
  0046:31 2d              bnt code_0075 
  0048:39 05            pushi 5 // $5 view
  004a:38 0084          pushi 84 // $84 stop
  004d:39 1d            pushi 1d // $1d back
  004f:39 5e            pushi 5e // $5e respondsTo
  0051:39 5f            pushi 5f // $5f yourself
  0053:39 60            pushi 60 // $60 size
  0055:45 15 0a         callb procedure_0015 a // LoadMany 

  0058:7a               push2 
  0059:38 0087          pushi 87 // $87 clean
  005c:39 29            pushi 29 // $29 edit
  005e:43 00 04         callk Load 4 

  0061:7a               push2 
  0062:38 0082          pushi 82 // $82 owner
  0065:38 0196          pushi 196 // $196 sel_406
  0068:43 00 04         callk Load 4 

  006b:7a               push2 
  006c:38 0080          pushi 80 // $80 timeLeft
  006f:38 0282          pushi 282 // $282 sel_642
  0072:43 00 04         callk Load 4 


        code_0075
  0075:7a               push2 
  0076:38 0087          pushi 87 // $87 clean
  0079:39 04            pushi 4 // $4 x
  007b:43 00 04         callk Load 4 

  007e:39 04            pushi 4 // $4 x
  0080:38 008f          pushi 8f // $8f moveTo
  0083:38 0196          pushi 196 // $196 sel_406
  0086:38 00f3          pushi f3 // $f3 close
  0089:38 0120          pushi 120 // $120 centerObj
  008c:45 15 08         callb procedure_0015 8 // LoadMany 

  008f:7a               push2 
  0090:38 0080          pushi 80 // $80 timeLeft
  0093:38 0389          pushi 389 // $389 sel_905
  0096:43 00 04         callk Load 4 

  0099:35 20              ldi 20 
  009b:a0 00d0            sag global208 
  009e:34 0120            ldi 120 
  00a1:a0 017e            sag global382 
  00a4:39 57            pushi 57 // $57 init
  00a6:76               push0 
  00a7:72 0568          lofsa $0612 // Lillian
  00aa:4a 04             send 4 

  00ac:39 57            pushi 57 // $57 init
  00ae:76               push0 
  00af:38 00c6          pushi c6 // $c6 stopUpd
  00b2:76               push0 
  00b3:72 05c4          lofsa $067a // LHead
  00b6:4a 08             send 8 

  00b8:39 57            pushi 57 // $57 init
  00ba:76               push0 
  00bb:38 00c6          pushi c6 // $c6 stopUpd
  00be:76               push0 
  00bf:72 0606          lofsa $06c8 // Book
  00c2:4a 08             send 8 

  00c4:39 7a            pushi 7a // $7a setScript
  00c6:78               push1 
  00c7:74 0514          lofss $05de // reading
  00ca:54 06             self 6 

  00cc:48                 ret 
    )

    (method (doit) // method_00cd
  00cd:39 3c            pushi 3c // $3c doit
  00cf:76               push0 
  00d0:57 36 04         super Rgn 4 

  00d3:48                 ret 
    )

    (method (dispose) // method_00d4
  00d4:39 58            pushi 58 // $58 dispose
  00d6:76               push0 
  00d7:57 36 04         super Rgn 4 

  00da:48                 ret 
    )

    (method (handleEvent) // method_00db
  00db:39 6f            pushi 6f // $6f handleEvent
  00dd:78               push1 
  00de:8f 01              lsp param1 
  00e0:57 36 06         super Rgn 6 

  00e3:39 4c            pushi 4c // $4c claimed
  00e5:76               push0 
  00e6:87 01              lap param1 
  00e8:4a 04             send 4 

  00ea:31 03              bnt code_00ef 
  00ec:35 01              ldi 1 
  00ee:48                 ret 

        code_00ef
  00ef:39 22            pushi 22 // $22 type
  00f1:76               push0 
  00f2:87 01              lap param1 
  00f4:4a 04             send 4 

  00f6:36                push 
  00f7:34 0080            ldi 80 
  00fa:1a                 eq? 
  00fb:30 00ad            bnt code_01ab 
  00fe:78               push1 
  00ff:74 0485          lofss $0587 // look>
  0102:43 25 02         callk Said 2 

  0105:31 43              bnt code_014a 
  0107:78               push1 
  0108:74 0443          lofss $054e // /book
  010b:43 25 02         callk Said 2 

  010e:31 24              bnt code_0134 
  0110:38 00ae          pushi ae // $ae distanceTo
  0113:78               push1 
  0114:74 04fb          lofss $0612 // Lillian
  0117:81 00              lag gEgo 
  0119:4a 06             send 6 

  011b:36                push 
  011c:35 28              ldi 28 
  011e:22                 lt? 
  011f:31 0d              bnt code_012e 
  0121:7a               push2 
  0122:38 0101          pushi 101 // $101 curPic
  0125:76               push0 
  0126:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  012c:33 04              jmp code_0132 

        code_012e
  012e:76               push0 
  012f:45 09 00         callb procedure_0009 0 // NotClose 


        code_0132
  0132:33 14              jmp code_0148 

        code_0134
  0134:78               push1 
  0135:74 041a          lofss $0552 // /doll
  0138:43 25 02         callk Said 2 

  013b:31 0b              bnt code_0148 
  013d:7a               push2 
  013e:38 0101          pushi 101 // $101 curPic
  0141:78               push1 
  0142:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0148
  0148:33 61              jmp code_01ab 

        code_014a
  014a:78               push1 
  014b:74 0414          lofss $0562 // get>
  014e:43 25 02         callk Said 2 

  0151:31 2d              bnt code_0180 
  0153:78               push1 
  0154:74 03f7          lofss $054e // /book
  0157:43 25 02         callk Said 2 

  015a:31 0d              bnt code_0169 
  015c:7a               push2 
  015d:38 0101          pushi 101 // $101 curPic
  0160:7a               push2 
  0161:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0167:33 15              jmp code_017e 

        code_0169
  0169:78               push1 
  016a:74 03e5          lofss $0552 // /doll
  016d:43 25 02         callk Said 2 

  0170:31 0c              bnt code_017e 
  0172:7a               push2 
  0173:38 0101          pushi 101 // $101 curPic
  0176:39 03            pushi 3 // $3 y
  0178:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_017e
  017e:33 2b              jmp code_01ab 

        code_0180
  0180:78               push1 
  0181:74 0407          lofss $058b // etudier/book
  0184:43 25 02         callk Said 2 

  0187:31 22              bnt code_01ab 
  0189:38 00ae          pushi ae // $ae distanceTo
  018c:78               push1 
  018d:74 0482          lofss $0612 // Lillian
  0190:81 00              lag gEgo 
  0192:4a 06             send 6 

  0194:36                push 
  0195:35 28              ldi 28 
  0197:22                 lt? 
  0198:31 0d              bnt code_01a7 
  019a:7a               push2 
  019b:38 0101          pushi 101 // $101 curPic
  019e:76               push0 
  019f:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  01a5:33 04              jmp code_01ab 

        code_01a7
  01a7:76               push0 
  01a8:45 09 00         callb procedure_0009 0 // NotClose 


        code_01ab
  01ab:48                 ret 
    )

)

// 05d8
(instance reading of Script
    (properties
        client $0
        state $ffff
        start $0
        timer $0
        cycles $0
        seconds $0
        lastSeconds $0
        register $0
        script $0
        caller $0
    )
    (method (doit) // method_01ac
  01ac:67 0a             pTos state 
  01ae:35 01              ldi 1 
  01b0:1a                 eq? 
  01b1:31 17              bnt code_01ca 
  01b3:39 07            pushi 7 // $7 cel
  01b5:76               push0 
  01b6:72 0459          lofsa $0612 // Lillian
  01b9:4a 04             send 4 

  01bb:36                push 
  01bc:35 04              ldi 4 
  01be:1a                 eq? 
  01bf:31 09              bnt code_01ca 
  01c1:38 0089          pushi 89 // $89 hide
  01c4:76               push0 
  01c5:72 0500          lofsa $06c8 // Book
  01c8:4a 04             send 4 


        code_01ca
  01ca:39 3c            pushi 3c // $3c doit
  01cc:76               push0 
  01cd:57 05 04         super Script 4 

  01d0:48                 ret 
    )

    (method (changeState) // method_01d1
  01d1:87 01              lap param1 
  01d3:65 0a             aTop state 
  01d5:36                push 
  01d6:3c                 dup 
  01d7:35 00              ldi 0 
  01d9:1a                 eq? 
  01da:31 41              bnt code_021d 
  01dc:80 00d8            lag global216 
  01df:18                 not 
  01e0:31 06              bnt code_01e8 
  01e2:35 ff              ldi ff 
  01e4:65 0a             aTop state 
  01e6:33 2e              jmp code_0216 

        code_01e8
  01e8:89 76              lsg gMustDos 
  01ea:35 01              ldi 1 
  01ec:12                 and 
  01ed:18                 not 
  01ee:31 1b              bnt code_020b 
  01f0:89 76              lsg gMustDos 
  01f2:35 01              ldi 1 
  01f4:14                  or 
  01f5:a1 76              sag gMustDos 
  01f7:39 7a            pushi 7a // $7a setScript
  01f9:78               push1 
  01fa:7a               push2 
  01fb:38 0196          pushi 196 // $196 sel_406
  01fe:76               push0 
  01ff:43 02 04         callk ScriptID 4 

  0202:36                push 
  0203:54 06             self 6 

  0205:35 ff              ldi ff 
  0207:65 0a             aTop state 
  0209:33 0b              jmp code_0216 

        code_020b
  020b:39 76            pushi 76 // $76 script
  020d:76               push0 
  020e:54 04             self 4 

  0210:31 04              bnt code_0216 
  0212:35 ff              ldi ff 
  0214:65 0a             aTop state 

        code_0216
  0216:35 01              ldi 1 
  0218:65 10             aTop cycles 
  021a:32 01af            jmp code_03cc 

        code_021d
  021d:3c                 dup 
  021e:35 01              ldi 1 
  0220:1a                 eq? 
  0221:31 14              bnt code_0237 
  0223:39 06            pushi 6 // $6 loop
  0225:78               push1 
  0226:39 06            pushi 6 // $6 loop
  0228:39 7e            pushi 7e // $7e setCycle
  022a:7a               push2 
  022b:51 1b            class Beg 
  022d:36                push 
  022e:7c            pushSelf 
  022f:72 03e0          lofsa $0612 // Lillian
  0232:4a 0e             send e 

  0234:32 0195            jmp code_03cc 

        code_0237
  0237:3c                 dup 
  0238:35 02              ldi 2 
  023a:1a                 eq? 
  023b:30 00e0            bnt code_031e 
  023e:39 06            pushi 6 // $6 loop
  0240:78               push1 
  0241:39 05            pushi 5 // $5 view
  0243:39 7e            pushi 7e // $7e setCycle
  0245:78               push1 
  0246:51 16            class Fwd 
  0248:36                push 
  0249:72 042e          lofsa $067a // LHead
  024c:4a 0c             send c 

  024e:38 00e2          pushi e2 // $e2 canInput
  0251:78               push1 
  0252:76               push0 
  0253:51 2b            class User 
  0255:4a 06             send 6 

  0257:8b 01              lsl local1 
  0259:3c                 dup 
  025a:35 00              ldi 0 
  025c:1a                 eq? 
  025d:31 0d              bnt code_026c 
  025f:7a               push2 
  0260:38 0101          pushi 101 // $101 curPic
  0263:39 04            pushi 4 // $4 x
  0265:40 fdb1 04        call proc_001a 4 

  0269:32 009b            jmp code_0307 

        code_026c
  026c:3c                 dup 
  026d:35 01              ldi 1 
  026f:1a                 eq? 
  0270:31 0d              bnt code_027f 
  0272:7a               push2 
  0273:38 0101          pushi 101 // $101 curPic
  0276:39 05            pushi 5 // $5 view
  0278:40 fd9e 04        call proc_001a 4 

  027c:32 0088            jmp code_0307 

        code_027f
  027f:3c                 dup 
  0280:35 02              ldi 2 
  0282:1a                 eq? 
  0283:31 0c              bnt code_0291 
  0285:7a               push2 
  0286:38 0101          pushi 101 // $101 curPic
  0289:39 06            pushi 6 // $6 loop
  028b:40 fd8b 04        call proc_001a 4 

  028f:33 76              jmp code_0307 

        code_0291
  0291:3c                 dup 
  0292:35 03              ldi 3 
  0294:1a                 eq? 
  0295:31 0c              bnt code_02a3 
  0297:7a               push2 
  0298:38 0101          pushi 101 // $101 curPic
  029b:39 07            pushi 7 // $7 cel
  029d:40 fd79 04        call proc_001a 4 

  02a1:33 64              jmp code_0307 

        code_02a3
  02a3:3c                 dup 
  02a4:35 04              ldi 4 
  02a6:1a                 eq? 
  02a7:31 0c              bnt code_02b5 
  02a9:7a               push2 
  02aa:38 0101          pushi 101 // $101 curPic
  02ad:39 08            pushi 8 // $8 underBits
  02af:40 fd67 04        call proc_001a 4 

  02b3:33 52              jmp code_0307 

        code_02b5
  02b5:3c                 dup 
  02b6:35 05              ldi 5 
  02b8:1a                 eq? 
  02b9:31 0c              bnt code_02c7 
  02bb:7a               push2 
  02bc:38 0101          pushi 101 // $101 curPic
  02bf:39 09            pushi 9 // $9 nsTop
  02c1:40 fd55 04        call proc_001a 4 

  02c5:33 40              jmp code_0307 

        code_02c7
  02c7:3c                 dup 
  02c8:35 06              ldi 6 
  02ca:1a                 eq? 
  02cb:31 0c              bnt code_02d9 
  02cd:7a               push2 
  02ce:38 0101          pushi 101 // $101 curPic
  02d1:39 0a            pushi a // $a nsLeft
  02d3:40 fd43 04        call proc_001a 4 

  02d7:33 2e              jmp code_0307 

        code_02d9
  02d9:3c                 dup 
  02da:35 07              ldi 7 
  02dc:1a                 eq? 
  02dd:31 0c              bnt code_02eb 
  02df:7a               push2 
  02e0:38 0101          pushi 101 // $101 curPic
  02e3:39 0b            pushi b // $b nsBottom
  02e5:40 fd31 04        call proc_001a 4 

  02e9:33 1c              jmp code_0307 

        code_02eb
  02eb:3c                 dup 
  02ec:35 08              ldi 8 
  02ee:1a                 eq? 
  02ef:31 0c              bnt code_02fd 
  02f1:7a               push2 
  02f2:38 0101          pushi 101 // $101 curPic
  02f5:39 0c            pushi c // $c nsRight
  02f7:40 fd1f 04        call proc_001a 4 

  02fb:33 0a              jmp code_0307 

        code_02fd
  02fd:7a               push2 
  02fe:38 0101          pushi 101 // $101 curPic
  0301:39 0d            pushi d // $d lsTop
  0303:40 fd13 04        call proc_001a 4 


        code_0307
  0307:3a                toss 
  0308:8b 01              lsl local1 
  030a:35 09              ldi 9 
  030c:22                 lt? 
  030d:31 04              bnt code_0313 
  030f:c3 01              +al local1 
  0311:33 04              jmp code_0317 

        code_0313
  0313:35 00              ldi 0 
  0315:a3 01              sal local1 

        code_0317
  0317:35 04              ldi 4 
  0319:65 12             aTop seconds 
  031b:32 00ae            jmp code_03cc 

        code_031e
  031e:3c                 dup 
  031f:35 03              ldi 3 
  0321:1a                 eq? 
  0322:31 22              bnt code_0346 
  0324:39 06            pushi 6 // $6 loop
  0326:78               push1 
  0327:39 05            pushi 5 // $5 view
  0329:39 7e            pushi 7e // $7e setCycle
  032b:78               push1 
  032c:76               push0 
  032d:72 034a          lofsa $067a // LHead
  0330:4a 0c             send c 

  0332:76               push0 
  0333:45 0f 00         callb procedure_000f 0 // cls 

  0336:38 00e2          pushi e2 // $e2 canInput
  0339:78               push1 
  033a:78               push1 
  033b:51 2b            class User 
  033d:4a 06             send 6 

  033f:35 03              ldi 3 
  0341:65 12             aTop seconds 
  0343:32 0086            jmp code_03cc 

        code_0346
  0346:3c                 dup 
  0347:35 04              ldi 4 
  0349:1a                 eq? 
  034a:31 2c              bnt code_0378 
  034c:39 06            pushi 6 // $6 loop
  034e:78               push1 
  034f:7a               push2 
  0350:39 7e            pushi 7e // $7e setCycle
  0352:78               push1 
  0353:51 1a            class End 
  0355:36                push 
  0356:72 02b9          lofsa $0612 // Lillian
  0359:4a 0c             send c 

  035b:7a               push2 
  035c:78               push1 
  035d:39 64            pushi 64 // $64 allTrue
  035f:43 40 04         callk Random 4 

  0362:36                push 
  0363:35 0f              ldi f 
  0365:22                 lt? 
  0366:31 04              bnt code_036c 
  0368:35 03              ldi 3 
  036a:65 0a             aTop state 

        code_036c
  036c:7a               push2 
  036d:39 06            pushi 6 // $6 loop
  036f:39 0c            pushi c // $c nsRight
  0371:43 40 04         callk Random 4 

  0374:65 12             aTop seconds 
  0376:33 54              jmp code_03cc 

        code_0378
  0378:3c                 dup 
  0379:35 05              ldi 5 
  037b:1a                 eq? 
  037c:31 1c              bnt code_039a 
  037e:39 06            pushi 6 // $6 loop
  0380:78               push1 
  0381:39 03            pushi 3 // $3 y
  0383:39 7e            pushi 7e // $7e setCycle
  0385:78               push1 
  0386:51 1a            class End 
  0388:36                push 
  0389:72 02ee          lofsa $067a // LHead
  038c:4a 0c             send c 

  038e:7a               push2 
  038f:39 03            pushi 3 // $3 y
  0391:39 08            pushi 8 // $8 underBits
  0393:43 40 04         callk Random 4 

  0396:65 12             aTop seconds 
  0398:33 32              jmp code_03cc 

        code_039a
  039a:3c                 dup 
  039b:35 06              ldi 6 
  039d:1a                 eq? 
  039e:31 2c              bnt code_03cc 
  03a0:39 7e            pushi 7e // $7e setCycle
  03a2:78               push1 
  03a3:51 1b            class Beg 
  03a5:36                push 
  03a6:72 02d1          lofsa $067a // LHead
  03a9:4a 06             send 6 

  03ab:7a               push2 
  03ac:78               push1 
  03ad:39 64            pushi 64 // $64 allTrue
  03af:43 40 04         callk Random 4 

  03b2:36                push 
  03b3:35 19              ldi 19 
  03b5:22                 lt? 
  03b6:31 06              bnt code_03be 
  03b8:35 03              ldi 3 
  03ba:65 0a             aTop state 
  03bc:33 04              jmp code_03c2 

        code_03be
  03be:35 01              ldi 1 
  03c0:65 0a             aTop state 

        code_03c2
  03c2:7a               push2 
  03c3:39 03            pushi 3 // $3 y
  03c5:39 08            pushi 8 // $8 underBits
  03c7:43 40 04         callk Random 4 

  03ca:65 12             aTop seconds 

        code_03cc
  03cc:3a                toss 
  03cd:48                 ret 
    )

)

// 060c
(instance Lillian of Act
    (properties
        y $8d
        x $bb
        z $0
        heading $0
        yStep $2
        view $1fa
        loop $6
        cel $5
        priority $0
        underBits $0
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
        lsTop $0
        lsLeft $0
        lsBottom $0
        lsRight $0
        brTop $0
        brLeft $0
        brBottom $0
        brRight $0
        cycleSpeed $0
        script $0
        cycler $0
        timer $0
        illegalBits $0
        xLast $0
        yLast $0
        xStep $3
        moveSpeed $0
        blocks $0
        baseSetter $0
        mover $0
        looper $0
        viewer $0
        avoider $0
    )
    (method (handleEvent) // method_03ce
  03ce:78               push1 
  03cf:74 01bf          lofss $0591 // bonjour/lil
  03d2:43 25 02         callk Said 2 

  03d5:31 52              bnt code_0429 
  03d7:35 06              ldi 6 
  03d9:a0 00d5            sag global213 
  03dc:8b 00              lsl local0 
  03de:3c                 dup 
  03df:35 00              ldi 0 
  03e1:1a                 eq? 
  03e2:31 0d              bnt code_03f1 
  03e4:39 03            pushi 3 // $3 y
  03e6:78               push1 
  03e7:38 0101          pushi 101 // $101 curPic
  03ea:39 0e            pushi e // $e lsLeft
  03ec:45 01 06         callb procedure_0001 6 // Say 

  03ef:33 32              jmp code_0423 

        code_03f1
  03f1:3c                 dup 
  03f2:35 01              ldi 1 
  03f4:1a                 eq? 
  03f5:31 0d              bnt code_0404 
  03f7:39 03            pushi 3 // $3 y
  03f9:78               push1 
  03fa:38 0101          pushi 101 // $101 curPic
  03fd:39 0f            pushi f // $f lsBottom
  03ff:45 01 06         callb procedure_0001 6 // Say 

  0402:33 1f              jmp code_0423 

        code_0404
  0404:3c                 dup 
  0405:35 02              ldi 2 
  0407:1a                 eq? 
  0408:31 0d              bnt code_0417 
  040a:39 03            pushi 3 // $3 y
  040c:78               push1 
  040d:38 0101          pushi 101 // $101 curPic
  0410:39 10            pushi 10 // $10 lsRight
  0412:45 01 06         callb procedure_0001 6 // Say 

  0415:33 0c              jmp code_0423 

        code_0417
  0417:7a               push2 
  0418:38 0101          pushi 101 // $101 curPic
  041b:39 11            pushi 11 // $11 signal
  041d:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0423
  0423:3a                toss 
  0424:c3 00              +al local0 
  0426:32 011f            jmp code_0548 

        code_0429
  0429:78               push1 
  042a:74 016a          lofss $0597 // raconter,ask/lil
  042d:43 25 02         callk Said 2 

  0430:31 0f              bnt code_0441 
  0432:7a               push2 
  0433:38 0101          pushi 101 // $101 curPic
  0436:39 12            pushi 12 // $12 illegalBits
  0438:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  043e:32 0107            jmp code_0548 

        code_0441
  0441:78               push1 
  0442:74 0121          lofss $0566 // deliver,hold/lil
  0445:43 25 02         callk Said 2 

  0448:31 0f              bnt code_0459 
  044a:7a               push2 
  044b:38 0101          pushi 101 // $101 curPic
  044e:39 13            pushi 13 // $13 brTop
  0450:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0456:32 00ef            jmp code_0548 

        code_0459
  0459:78               push1 
  045a:74 011e          lofss $057b // ecouter/lil
  045d:43 25 02         callk Said 2 

  0460:31 0f              bnt code_0471 
  0462:7a               push2 
  0463:38 0101          pushi 101 // $101 curPic
  0466:39 14            pushi 14 // $14 brLeft
  0468:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  046e:32 00d7            jmp code_0548 

        code_0471
  0471:78               push1 
  0472:74 00e7          lofss $055c // get/lil
  0475:43 25 02         callk Said 2 

  0478:31 0f              bnt code_0489 
  047a:7a               push2 
  047b:38 0101          pushi 101 // $101 curPic
  047e:39 15            pushi 15 // $15 brBottom
  0480:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0486:32 00bf            jmp code_0548 

        code_0489
  0489:78               push1 
  048a:74 00e2          lofss $056f // abattre/lil
  048d:43 25 02         callk Said 2 

  0490:31 0f              bnt code_04a1 
  0492:7a               push2 
  0493:38 0101          pushi 101 // $101 curPic
  0496:39 16            pushi 16 // $16 brRight
  0498:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  049e:32 00a7            jmp code_0548 

        code_04a1
  04a1:78               push1 
  04a2:74 00d0          lofss $0575 // embrasser/lil
  04a5:43 25 02         callk Said 2 

  04a8:31 0f              bnt code_04b9 
  04aa:7a               push2 
  04ab:38 0101          pushi 101 // $101 curPic
  04ae:39 17            pushi 17 // $17 name
  04b0:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  04b6:32 008f            jmp code_0548 

        code_04b9
  04b9:78               push1 
  04ba:74 0099          lofss $0556 // embrace/lil
  04bd:43 25 02         callk Said 2 

  04c0:31 0e              bnt code_04d0 
  04c2:7a               push2 
  04c3:38 0101          pushi 101 // $101 curPic
  04c6:39 18            pushi 18 // $18 key
  04c8:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  04ce:33 78              jmp code_0548 

        code_04d0
  04d0:88 00cf            lsg global207 
  04d3:35 20              ldi 20 
  04d5:12                 and 
  04d6:18                 not 
  04d7:31 3b              bnt code_0514 
  04d9:39 03            pushi 3 // $3 y
  04db:7c            pushSelf 
  04dc:8f 01              lsp param1 
  04de:39 03            pushi 3 // $3 y
  04e0:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  04e6:2f 09               bt code_04f1 
  04e8:78               push1 
  04e9:74 0095          lofss $0581 // look/lil
  04ec:43 25 02         callk Said 2 

  04ef:31 23              bnt code_0514 

        code_04f1
  04f1:88 00cf            lsg global207 
  04f4:35 20              ldi 20 
  04f6:14                  or 
  04f7:a0 00cf            sag global207 
  04fa:35 06              ldi 6 
  04fc:a0 00d5            sag global213 
  04ff:39 4c            pushi 4c // $4c claimed
  0501:78               push1 
  0502:78               push1 
  0503:87 01              lap param1 
  0505:4a 06             send 6 

  0507:39 03            pushi 3 // $3 y
  0509:76               push0 
  050a:38 0101          pushi 101 // $101 curPic
  050d:39 19            pushi 19 // $19 time
  050f:45 01 06         callb procedure_0001 6 // Say 

  0512:33 34              jmp code_0548 

        code_0514
  0514:88 00cf            lsg global207 
  0517:35 20              ldi 20 
  0519:12                 and 
  051a:31 2c              bnt code_0548 
  051c:39 03            pushi 3 // $3 y
  051e:7c            pushSelf 
  051f:8f 01              lsp param1 
  0521:39 03            pushi 3 // $3 y
  0523:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0529:2f 09               bt code_0534 
  052b:78               push1 
  052c:74 0052          lofss $0581 // look/lil
  052f:43 25 02         callk Said 2 

  0532:31 14              bnt code_0548 

        code_0534
  0534:39 4c            pushi 4c // $4c claimed
  0536:78               push1 
  0537:78               push1 
  0538:87 01              lap param1 
  053a:4a 06             send 6 

  053c:7a               push2 
  053d:38 0101          pushi 101 // $101 curPic
  0540:39 1a            pushi 1a // $1a text
  0542:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0548
  0548:48                 ret 
  0549:00                bnot 
    )

)

// 0674
(instance LHead of Prop
    (properties
        y $8d
        x $bd
        z $21
        heading $0
        yStep $2
        view $1fa
        loop $3
        cel $0
        priority $0
        underBits $0
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
        lsTop $0
        lsLeft $0
        lsBottom $0
        lsRight $0
        brTop $0
        brLeft $0
        brBottom $0
        brRight $0
        cycleSpeed $0
        script $0
        cycler $0
        timer $0
    )
)

// 06c2
(instance Book of Prop
    (properties
        y $7b
        x $b1
        z $0
        heading $0
        yStep $2
        view $a3
        loop $2
        cel $2
        priority $0
        underBits $0
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
        lsTop $0
        lsLeft $0
        lsBottom $0
        lsRight $0
        brTop $0
        brLeft $0
        brBottom $0
        brRight $0
        cycleSpeed $0
        script $0
        cycler $0
        timer $0
    )
)



(procedure proc_001a
  001a:39 0b            pushi b // $b nsBottom
  001c:59 01            &rest 1 
  001e:39 43            pushi 43 // $43 at
  0020:39 28            pushi 28 // $28 message
  0022:39 0a            pushi a // $a nsLeft
  0024:39 21            pushi 21 // $21 font
  0026:39 04            pushi 4 // $4 x
  0028:39 46            pushi 46 // $46 width
  002a:39 7d            pushi 7d // $7d set
  002c:39 1e            pushi 1e // $1e mode
  002e:78               push1 
  002f:39 53            pushi 53 // $53 draw
  0031:39 58            pushi 58 // $58 dispose
  0033:46 00ff 0000 16  calle ff procedure_0000 16 // Print 

  0039:48                 ret 
)

