(script 277)

(string
    string_06d2 "Dog"
    string_06d6 "Rudy"
    string_06db "petDog"
    string_06e2 "rudypet"
)

(said
    said_0500 /beauregard>
    said_0505 /bone
    said_0509 /rudolph>
    said_050e ask//*<about
    said_0518 embrace
    said_051b feed,deliver/*/beauregard>
    said_0528 feed,deliver/*<beauregard>
    said_0535 feed/aliments
    said_053b draguer//rudolph
    said_0542 get
    said_0545 get,bouger,attirer,get
    said_0551 deliver,hold/*/beauregard
    said_055d deliver,hold/*<beauregard
    said_0569 deliver/*[/rudolph]
    said_0574 deliver/*[<rudolph]
    said_057f abattre
    said_0582 embrasser
    said_0585 ecouter
    said_0588 look
    said_058b look/rudolph
    said_0591 caliner
    said_0594 hold/*/[rudolph]
    said_059f hold/*[<rudolph]
    said_05aa bonjour
    said_05ad raconter//*<about
    said_05b7 balancer/bone
)

(synonym
    rudolph | rudy = person | personne
    rudolph | rudy = fellow | gars | gentleman | guy | homme | man | type
)

(local
    local0 = $0000
    local1 = $0000
    local2 = $0000
)

// 05c4
(instance Dog of Prop
    (properties
        y $93
        x $6c
        z $0
        heading $0
        yStep $2
        view $208
        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
    )
    (method (handleEvent) // method_001a
  001a:78               push1 
  001b:74 04fd          lofss $051b // feed,deliver/*/beauregard>
  001e:43 25 02         callk Said 2 

  0021:2f 09               bt code_002c 
  0023:78               push1 
  0024:74 0501          lofss $0528 // feed,deliver/*<beauregard>
  0027:43 25 02         callk Said 2 

  002a:31 48              bnt code_0074 

        code_002c
  002c:38 00ee          pushi ee // $ee has
  002f:78               push1 
  0030:39 0c            pushi c // $c nsRight
  0032:81 00              lag gEgo 
  0034:4a 06             send 6 

  0036:31 16              bnt code_004e 
  0038:78               push1 
  0039:74 04c9          lofss $0505 // /bone
  003c:43 25 02         callk Said 2 

  003f:31 0d              bnt code_004e 
  0041:7a               push2 
  0042:38 0115          pushi 115 // $115 maxPause
  0045:76               push0 
  0046:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  004c:33 1b              jmp code_0069 

        code_004e
  004e:80 00db            lag global219 
  0051:31 12              bnt code_0065 
  0053:80 00e0            lag global224 
  0056:31 0d              bnt code_0065 
  0058:7a               push2 
  0059:38 0115          pushi 115 // $115 maxPause
  005c:78               push1 
  005d:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0063:33 04              jmp code_0069 

        code_0065
  0065:76               push0 
  0066:45 0d 00         callb procedure_000d 0 // DontHave 


        code_0069
  0069:39 4c            pushi 4c // $4c claimed
  006b:78               push1 
  006c:78               push1 
  006d:87 01              lap param1 
  006f:4a 06             send 6 

  0071:32 00da            jmp code_014e 

        code_0074
  0074:78               push1 
  0075:74 04d9          lofss $0551 // deliver,hold/*/beauregard
  0078:43 25 02         callk Said 2 

  007b:2f 09               bt code_0086 
  007d:78               push1 
  007e:74 04dc          lofss $055d // deliver,hold/*<beauregard
  0081:43 25 02         callk Said 2 

  0084:31 1e              bnt code_00a4 

        code_0086
  0086:80 00db            lag global219 
  0089:31 12              bnt code_009d 
  008b:80 00e0            lag global224 
  008e:31 0d              bnt code_009d 
  0090:7a               push2 
  0091:38 0115          pushi 115 // $115 maxPause
  0094:7a               push2 
  0095:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  009b:33 04              jmp code_00a1 

        code_009d
  009d:76               push0 
  009e:45 0d 00         callb procedure_000d 0 // DontHave 


        code_00a1
  00a1:32 00aa            jmp code_014e 

        code_00a4
  00a4:78               push1 
  00a5:74 050f          lofss $05b7 // balancer/bone
  00a8:43 25 02         callk Said 2 

  00ab:31 0f              bnt code_00bc 
  00ad:7a               push2 
  00ae:38 0115          pushi 115 // $115 maxPause
  00b1:39 03            pushi 3 // $3 y
  00b3:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  00b9:32 0092            jmp code_014e 

        code_00bc
  00bc:78               push1 
  00bd:74 0440          lofss $0500 // /beauregard>
  00c0:43 25 02         callk Said 2 

  00c3:30 0088            bnt code_014e 
  00c6:78               push1 
  00c7:74 04be          lofss $0588 // look
  00ca:43 25 02         callk Said 2 

  00cd:31 0e              bnt code_00dd 
  00cf:7a               push2 
  00d0:38 0115          pushi 115 // $115 maxPause
  00d3:39 04            pushi 4 // $4 x
  00d5:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  00db:33 71              jmp code_014e 

        code_00dd
  00dd:78               push1 
  00de:74 0464          lofss $0545 // get,bouger,attirer,get
  00e1:43 25 02         callk Said 2 

  00e4:31 0e              bnt code_00f4 
  00e6:7a               push2 
  00e7:38 0115          pushi 115 // $115 maxPause
  00ea:39 05            pushi 5 // $5 view
  00ec:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  00f2:33 5a              jmp code_014e 

        code_00f4
  00f4:78               push1 
  00f5:74 0499          lofss $0591 // caliner
  00f8:43 25 02         callk Said 2 

  00fb:31 0e              bnt code_010b 
  00fd:7a               push2 
  00fe:38 0115          pushi 115 // $115 maxPause
  0101:39 06            pushi 6 // $6 loop
  0103:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0109:33 43              jmp code_014e 

        code_010b
  010b:78               push1 
  010c:74 049b          lofss $05aa // bonjour
  010f:43 25 02         callk Said 2 

  0112:31 0e              bnt code_0122 
  0114:7a               push2 
  0115:38 0115          pushi 115 // $115 maxPause
  0118:39 07            pushi 7 // $7 cel
  011a:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0120:33 2c              jmp code_014e 

        code_0122
  0122:78               push1 
  0123:74 0459          lofss $057f // abattre
  0126:43 25 02         callk Said 2 

  0129:31 0e              bnt code_0139 
  012b:7a               push2 
  012c:38 0115          pushi 115 // $115 maxPause
  012f:39 08            pushi 8 // $8 underBits
  0131:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0137:33 15              jmp code_014e 

        code_0139
  0139:78               push1 
  013a:74 0445          lofss $0582 // embrasser
  013d:43 25 02         callk Said 2 

  0140:31 0c              bnt code_014e 
  0142:7a               push2 
  0143:38 0115          pushi 115 // $115 maxPause
  0146:39 09            pushi 9 // $9 nsTop
  0148:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_014e
  014e:48                 ret 
    )

)

// 0616
(instance public rudypet of Rgn
    (properties
        script $0
        number $0
        timer $0
        keep $0
        initialized $0
    )
    (method (init) // method_014f
  014f:39 57            pushi 57 // $57 init
  0151:76               push0 
  0152:57 36 04         super Rgn 4 

  0155:7a               push2 
  0156:38 0087          pushi 87 // $87 clean
  0159:39 04            pushi 4 // $4 x
  015b:43 00 04         callk Load 4 

  015e:34 0100            ldi 100 
  0161:a0 00c3            sag global195 
  0164:89 76              lsg gMustDos 
  0166:35 04              ldi 4 
  0168:12                 and 
  0169:18                 not 
  016a:31 2d              bnt code_0199 
  016c:7a               push2 
  016d:38 0087          pushi 87 // $87 clean
  0170:39 29            pushi 29 // $29 edit
  0172:43 00 04         callk Load 4 

  0175:7a               push2 
  0176:38 0080          pushi 80 // $80 timeLeft
  0179:38 0282          pushi 282 // $282 sel_642
  017c:43 00 04         callk Load 4 

  017f:39 05            pushi 5 // $5 view
  0181:38 0084          pushi 84 // $84 stop
  0184:39 1d            pushi 1d // $1d back
  0186:39 5e            pushi 5e // $5e respondsTo
  0188:39 5f            pushi 5f // $5f yourself
  018a:39 60            pushi 60 // $60 size
  018c:45 15 0a         callb procedure_0015 a // LoadMany 

  018f:7a               push2 
  0190:38 0082          pushi 82 // $82 owner
  0193:38 0196          pushi 196 // $196 sel_406
  0196:43 00 04         callk Load 4 


        code_0199
  0199:39 57            pushi 57 // $57 init
  019b:76               push0 
  019c:72 042b          lofsa $05ca // Dog
  019f:4a 04             send 4 

  01a1:39 57            pushi 57 // $57 init
  01a3:76               push0 
  01a4:72 04d7          lofsa $067e // Rudy
  01a7:4a 04             send 4 

  01a9:39 7a            pushi 7a // $7a setScript
  01ab:78               push1 
  01ac:74 049f          lofss $064e // petDog
  01af:54 06             self 6 

  01b1:48                 ret 
    )

    (method (doit) // method_01b2
  01b2:39 3c            pushi 3c // $3c doit
  01b4:76               push0 
  01b5:57 36 04         super Rgn 4 

  01b8:48                 ret 
    )

    (method (dispose) // method_01b9
  01b9:39 58            pushi 58 // $58 dispose
  01bb:76               push0 
  01bc:57 36 04         super Rgn 4 

  01bf:48                 ret 
    )

    (method (handleEvent) // method_01c0
  01c0:3f 01             link 1 // (var $1)
  01c2:39 6f            pushi 6f // $6f handleEvent
  01c4:78               push1 
  01c5:8f 01              lsp param1 
  01c7:57 36 06         super Rgn 6 

  01ca:39 4c            pushi 4c // $4c claimed
  01cc:76               push0 
  01cd:87 01              lap param1 
  01cf:4a 04             send 4 

  01d1:31 03              bnt code_01d6 
  01d3:35 01              ldi 1 
  01d5:48                 ret 

        code_01d6
  01d6:39 22            pushi 22 // $22 type
  01d8:76               push0 
  01d9:87 01              lap param1 
  01db:4a 04             send 4 

  01dd:36                push 
  01de:34 0080            ldi 80 
  01e1:1a                 eq? 
  01e2:31 2b              bnt code_020f 
  01e4:78               push1 
  01e5:74 03a3          lofss $058b // look/rudolph
  01e8:43 25 02         callk Said 2 

  01eb:31 0e              bnt code_01fb 
  01ed:7a               push2 
  01ee:38 0115          pushi 115 // $115 maxPause
  01f1:39 0a            pushi a // $a nsLeft
  01f3:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  01f9:33 14              jmp code_020f 

        code_01fb
  01fb:78               push1 
  01fc:74 0336          lofss $0535 // feed/aliments
  01ff:43 25 02         callk Said 2 

  0202:31 0b              bnt code_020f 
  0204:7a               push2 
  0205:38 0115          pushi 115 // $115 maxPause
  0208:78               push1 
  0209:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_020f
  020f:39 6f            pushi 6f // $6f handleEvent
  0211:78               push1 
  0212:8f 01              lsp param1 
  0214:57 36 06         super Rgn 6 

  0217:48                 ret 
    )

)

// 0648
(instance petDog of Script
    (properties
        client $0
        state $ffff
        start $0
        timer $0
        cycles $0
        seconds $0
        lastSeconds $0
        register $0
        script $0
        caller $0
    )
    (method (changeState) // method_0218
  0218:87 01              lap param1 
  021a:65 0a             aTop state 
  021c:36                push 
  021d:3c                 dup 
  021e:35 00              ldi 0 
  0220:1a                 eq? 
  0221:31 2d              bnt code_0250 
  0223:89 0c              lsg gPrevRoomNum 
  0225:35 1f              ldi 1f 
  0227:1a                 eq? 
  0228:31 1f              bnt code_0249 
  022a:39 04            pushi 4 // $4 x
  022c:76               push0 
  022d:81 00              lag gEgo 
  022f:4a 04             send 4 

  0231:36                push 
  0232:35 76              ldi 76 
  0234:1c                 ne? 
  0235:2f 0e               bt code_0245 
  0237:39 03            pushi 3 // $3 y
  0239:76               push0 
  023a:81 00              lag gEgo 
  023c:4a 04             send 4 

  023e:36                push 
  023f:34 0090            ldi 90 
  0242:1c                 ne? 
  0243:31 04              bnt code_0249 

        code_0245
  0245:35 ff              ldi ff 
  0247:65 0a             aTop state 

        code_0249
  0249:35 01              ldi 1 
  024b:65 10             aTop cycles 
  024d:32 00c3            jmp code_0313 

        code_0250
  0250:3c                 dup 
  0251:35 01              ldi 1 
  0253:1a                 eq? 
  0254:31 40              bnt code_0296 
  0256:80 00d8            lag global216 
  0259:18                 not 
  025a:31 06              bnt code_0262 
  025c:35 00              ldi 0 
  025e:65 0a             aTop state 
  0260:33 2e              jmp code_0290 

        code_0262
  0262:89 76              lsg gMustDos 
  0264:35 04              ldi 4 
  0266:12                 and 
  0267:18                 not 
  0268:31 1b              bnt code_0285 
  026a:89 76              lsg gMustDos 
  026c:35 04              ldi 4 
  026e:14                  or 
  026f:a1 76              sag gMustDos 
  0271:39 7a            pushi 7a // $7a setScript
  0273:78               push1 
  0274:7a               push2 
  0275:38 0196          pushi 196 // $196 sel_406
  0278:76               push0 
  0279:43 02 04         callk ScriptID 4 

  027c:36                push 
  027d:54 06             self 6 

  027f:35 00              ldi 0 
  0281:65 0a             aTop state 
  0283:33 0b              jmp code_0290 

        code_0285
  0285:39 76            pushi 76 // $76 script
  0287:76               push0 
  0288:54 04             self 4 

  028a:31 04              bnt code_0290 
  028c:35 00              ldi 0 
  028e:65 0a             aTop state 

        code_0290
  0290:35 01              ldi 1 
  0292:65 10             aTop cycles 
  0294:33 7d              jmp code_0313 

        code_0296
  0296:3c                 dup 
  0297:35 02              ldi 2 
  0299:1a                 eq? 
  029a:31 1b              bnt code_02b7 
  029c:38 00a4          pushi a4 // $a4 cycleSpeed
  029f:78               push1 
  02a0:78               push1 
  02a1:39 06            pushi 6 // $6 loop
  02a3:78               push1 
  02a4:78               push1 
  02a5:39 07            pushi 7 // $7 cel
  02a7:78               push1 
  02a8:7a               push2 
  02a9:39 7e            pushi 7e // $7e setCycle
  02ab:7a               push2 
  02ac:51 1b            class Beg 
  02ae:36                push 
  02af:7c            pushSelf 
  02b0:72 03cb          lofsa $067e // Rudy
  02b3:4a 1a             send 1a 

  02b5:33 5c              jmp code_0313 

        code_02b7
  02b7:3c                 dup 
  02b8:35 03              ldi 3 
  02ba:1a                 eq? 
  02bb:31 26              bnt code_02e3 
  02bd:39 06            pushi 6 // $6 loop
  02bf:78               push1 
  02c0:76               push0 
  02c1:39 7e            pushi 7e // $7e setCycle
  02c3:78               push1 
  02c4:51 16            class Fwd 
  02c6:36                push 
  02c7:72 03b4          lofsa $067e // Rudy
  02ca:4a 0c             send c 

  02cc:39 7e            pushi 7e // $7e setCycle
  02ce:78               push1 
  02cf:51 16            class Fwd 
  02d1:36                push 
  02d2:72 02f5          lofsa $05ca // Dog
  02d5:4a 06             send 6 

  02d7:7a               push2 
  02d8:39 03            pushi 3 // $3 y
  02da:39 05            pushi 5 // $5 view
  02dc:43 40 04         callk Random 4 

  02df:65 12             aTop seconds 
  02e1:33 30              jmp code_0313 

        code_02e3
  02e3:3c                 dup 
  02e4:35 04              ldi 4 
  02e6:1a                 eq? 
  02e7:31 2a              bnt code_0313 
  02e9:39 7e            pushi 7e // $7e setCycle
  02eb:78               push1 
  02ec:76               push0 
  02ed:72 02da          lofsa $05ca // Dog
  02f0:4a 06             send 6 

  02f2:39 06            pushi 6 // $6 loop
  02f4:78               push1 
  02f5:78               push1 
  02f6:39 07            pushi 7 // $7 cel
  02f8:78               push1 
  02f9:76               push0 
  02fa:39 7e            pushi 7e // $7e setCycle
  02fc:78               push1 
  02fd:51 1a            class End 
  02ff:36                push 
  0300:72 037b          lofsa $067e // Rudy
  0303:4a 12             send 12 

  0305:35 01              ldi 1 
  0307:65 0a             aTop state 
  0309:7a               push2 
  030a:39 06            pushi 6 // $6 loop
  030c:39 0c            pushi c // $c nsRight
  030e:43 40 04         callk Random 4 

  0311:65 12             aTop seconds 

        code_0313
  0313:3a                toss 
  0314:48                 ret 
    )

)

// 0678
(instance Rudy of Prop
    (properties
        y $93
        x $85
        z $0
        heading $0
        yStep $2
        view $186
        loop $1
        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
    )
    (method (handleEvent) // method_0315
  0315:35 09              ldi 9 
  0317:a0 00d5            sag global213 
  031a:78               push1 
  031b:74 01f0          lofss $050e // ask//*<about
  031e:43 25 02         callk Said 2 

  0321:31 2d              bnt code_0350 
  0323:8b 01              lsl local1 
  0325:3c                 dup 
  0326:35 00              ldi 0 
  0328:1a                 eq? 
  0329:31 0f              bnt code_033a 
  032b:39 03            pushi 3 // $3 y
  032d:78               push1 
  032e:38 0115          pushi 115 // $115 maxPause
  0331:39 0b            pushi b // $b nsBottom
  0333:45 01 06         callb procedure_0001 6 // Say 

  0336:c3 01              +al local1 
  0338:33 12              jmp code_034c 

        code_033a
  033a:3c                 dup 
  033b:35 01              ldi 1 
  033d:1a                 eq? 
  033e:31 0c              bnt code_034c 
  0340:7a               push2 
  0341:38 0115          pushi 115 // $115 maxPause
  0344:39 0c            pushi c // $c nsRight
  0346:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_034c
  034c:3a                toss 
  034d:32 01ab            jmp code_04fb 

        code_0350
  0350:78               push1 
  0351:74 0259          lofss $05ad // raconter//*<about
  0354:43 25 02         callk Said 2 

  0357:31 2d              bnt code_0386 
  0359:8b 02              lsl local2 
  035b:3c                 dup 
  035c:35 00              ldi 0 
  035e:1a                 eq? 
  035f:31 0f              bnt code_0370 
  0361:39 03            pushi 3 // $3 y
  0363:78               push1 
  0364:38 0115          pushi 115 // $115 maxPause
  0367:39 0d            pushi d // $d lsTop
  0369:45 01 06         callb procedure_0001 6 // Say 

  036c:c3 02              +al local2 
  036e:33 12              jmp code_0382 

        code_0370
  0370:3c                 dup 
  0371:35 01              ldi 1 
  0373:1a                 eq? 
  0374:31 0c              bnt code_0382 
  0376:7a               push2 
  0377:38 0115          pushi 115 // $115 maxPause
  037a:39 0e            pushi e // $e lsLeft
  037c:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0382
  0382:3a                toss 
  0383:32 0175            jmp code_04fb 

        code_0386
  0386:78               push1 
  0387:74 01df          lofss $0569 // deliver/*[/rudolph]
  038a:43 25 02         callk Said 2 

  038d:2f 09               bt code_0398 
  038f:78               push1 
  0390:74 01e1          lofss $0574 // deliver/*[<rudolph]
  0393:43 25 02         callk Said 2 

  0396:31 27              bnt code_03bf 

        code_0398
  0398:39 4c            pushi 4c // $4c claimed
  039a:78               push1 
  039b:78               push1 
  039c:87 01              lap param1 
  039e:4a 06             send 6 

  03a0:80 00db            lag global219 
  03a3:31 13              bnt code_03b8 
  03a5:80 00e0            lag global224 
  03a8:31 0e              bnt code_03b8 
  03aa:7a               push2 
  03ab:38 0115          pushi 115 // $115 maxPause
  03ae:39 0f            pushi f // $f lsBottom
  03b0:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  03b6:33 04              jmp code_03bc 

        code_03b8
  03b8:76               push0 
  03b9:45 0d 00         callb procedure_000d 0 // DontHave 


        code_03bc
  03bc:32 013c            jmp code_04fb 

        code_03bf
  03bf:78               push1 
  03c0:74 01d1          lofss $0594 // hold/*/[rudolph]
  03c3:43 25 02         callk Said 2 

  03c6:2f 09               bt code_03d1 
  03c8:78               push1 
  03c9:74 01d3          lofss $059f // hold/*[<rudolph]
  03cc:43 25 02         callk Said 2 

  03cf:31 27              bnt code_03f8 

        code_03d1
  03d1:39 4c            pushi 4c // $4c claimed
  03d3:78               push1 
  03d4:78               push1 
  03d5:87 01              lap param1 
  03d7:4a 06             send 6 

  03d9:80 00db            lag global219 
  03dc:31 13              bnt code_03f1 
  03de:80 00e0            lag global224 
  03e1:31 0e              bnt code_03f1 
  03e3:7a               push2 
  03e4:38 0115          pushi 115 // $115 maxPause
  03e7:39 10            pushi 10 // $10 lsRight
  03e9:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  03ef:33 04              jmp code_03f5 

        code_03f1
  03f1:76               push0 
  03f2:45 0d 00         callb procedure_000d 0 // DontHave 


        code_03f5
  03f5:32 0103            jmp code_04fb 

        code_03f8
  03f8:78               push1 
  03f9:74 010d          lofss $0509 // /rudolph>
  03fc:43 25 02         callk Said 2 

  03ff:30 00e4            bnt code_04e6 
  0402:78               push1 
  0403:74 017f          lofss $0585 // ecouter
  0406:43 25 02         callk Said 2 

  0409:31 0f              bnt code_041a 
  040b:7a               push2 
  040c:38 0115          pushi 115 // $115 maxPause
  040f:39 11            pushi 11 // $11 signal
  0411:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0417:32 00ca            jmp code_04e4 

        code_041a
  041a:78               push1 
  041b:74 0124          lofss $0542 // get
  041e:43 25 02         callk Said 2 

  0421:31 0f              bnt code_0432 
  0423:7a               push2 
  0424:38 0115          pushi 115 // $115 maxPause
  0427:39 12            pushi 12 // $12 illegalBits
  0429:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  042f:32 00b2            jmp code_04e4 

        code_0432
  0432:78               push1 
  0433:74 0149          lofss $057f // abattre
  0436:43 25 02         callk Said 2 

  0439:31 0f              bnt code_044a 
  043b:7a               push2 
  043c:38 0115          pushi 115 // $115 maxPause
  043f:39 13            pushi 13 // $13 brTop
  0441:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0447:32 009a            jmp code_04e4 

        code_044a
  044a:78               push1 
  044b:74 0134          lofss $0582 // embrasser
  044e:43 25 02         callk Said 2 

  0451:31 0f              bnt code_0462 
  0453:7a               push2 
  0454:38 0115          pushi 115 // $115 maxPause
  0457:39 14            pushi 14 // $14 brLeft
  0459:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  045f:32 0082            jmp code_04e4 

        code_0462
  0462:78               push1 
  0463:74 00b2          lofss $0518 // embrace
  0466:43 25 02         callk Said 2 

  0469:31 0e              bnt code_0479 
  046b:7a               push2 
  046c:38 0115          pushi 115 // $115 maxPause
  046f:39 14            pushi 14 // $14 brLeft
  0471:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0477:33 6b              jmp code_04e4 

        code_0479
  0479:78               push1 
  047a:74 012d          lofss $05aa // bonjour
  047d:43 25 02         callk Said 2 

  0480:31 62              bnt code_04e4 
  0482:35 09              ldi 9 
  0484:a0 00d5            sag global213 
  0487:8b 00              lsl local0 
  0489:3c                 dup 
  048a:35 00              ldi 0 
  048c:1a                 eq? 
  048d:31 0d              bnt code_049c 
  048f:39 03            pushi 3 // $3 y
  0491:78               push1 
  0492:38 0115          pushi 115 // $115 maxPause
  0495:39 15            pushi 15 // $15 brBottom
  0497:45 01 06         callb procedure_0001 6 // Say 

  049a:33 45              jmp code_04e1 

        code_049c
  049c:3c                 dup 
  049d:35 01              ldi 1 
  049f:1a                 eq? 
  04a0:31 0d              bnt code_04af 
  04a2:39 03            pushi 3 // $3 y
  04a4:78               push1 
  04a5:38 0115          pushi 115 // $115 maxPause
  04a8:39 16            pushi 16 // $16 brRight
  04aa:45 01 06         callb procedure_0001 6 // Say 

  04ad:33 32              jmp code_04e1 

        code_04af
  04af:3c                 dup 
  04b0:35 02              ldi 2 
  04b2:1a                 eq? 
  04b3:31 0d              bnt code_04c2 
  04b5:39 03            pushi 3 // $3 y
  04b7:78               push1 
  04b8:38 0115          pushi 115 // $115 maxPause
  04bb:39 17            pushi 17 // $17 name
  04bd:45 01 06         callb procedure_0001 6 // Say 

  04c0:33 1f              jmp code_04e1 

        code_04c2
  04c2:3c                 dup 
  04c3:35 03              ldi 3 
  04c5:1a                 eq? 
  04c6:31 0d              bnt code_04d5 
  04c8:39 03            pushi 3 // $3 y
  04ca:78               push1 
  04cb:38 0115          pushi 115 // $115 maxPause
  04ce:39 18            pushi 18 // $18 key
  04d0:45 01 06         callb procedure_0001 6 // Say 

  04d3:33 0c              jmp code_04e1 

        code_04d5
  04d5:7a               push2 
  04d6:38 0115          pushi 115 // $115 maxPause
  04d9:39 19            pushi 19 // $19 time
  04db:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_04e1
  04e1:3a                toss 
  04e2:c3 00              +al local0 

        code_04e4
  04e4:33 15              jmp code_04fb 

        code_04e6
  04e6:78               push1 
  04e7:74 0051          lofss $053b // draguer//rudolph
  04ea:43 25 02         callk Said 2 

  04ed:31 0c              bnt code_04fb 
  04ef:7a               push2 
  04f0:38 0115          pushi 115 // $115 maxPause
  04f3:39 1a            pushi 1a // $1a text
  04f5:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_04fb
  04fb:48                 ret 
    )

)



