(script 260)

(string
    string_02b0 "Clarence"
    string_02b9 "csleep"
    string_02c0 "snores"
    string_02c7 "snoring"
    string_02cf ""
)

(said
    said_0174 (*,!*)>
    said_017d /attorney
    said_0181 ask,raconter//*<about
    said_018e deliver,hold/*
    said_0197 look/attorney
    said_019d look[<at]/bed
)

(synonym
    attorney | clarence | lawyer = person | personne
    attorney | clarence | lawyer = fellow | gars | gentleman | guy | homme | man | type
)

(local
    local0 = $0000
    local1 = $0000
)

// 01ae
(instance Clarence of Prop
    (properties
        y $5c
        x $f2
        z $0
        heading $0
        yStep $2
        view'look[<at]/bed'
        loop $0
        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 0179          lofss $0197 // look/attorney
  001e:43 25 02         callk Said 2 

  0021:2f 18               bt code_003b 
  0023:78               push1 
  0024:74 0176          lofss $019d // look[<at]/bed
  0027:43 25 02         callk Said 2 

  002a:2f 0f               bt code_003b 
  002c:39 03            pushi 3 // $3 y
  002e:7c            pushSelf 
  002f:8f 01              lsp param1 
  0031:39 03            pushi 3 // $3 y
  0033:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0039:31 13              bnt code_004e 

        code_003b
  003b:39 4c            pushi 4c // $4c claimed
  003d:78               push1 
  003e:78               push1 
  003f:87 01              lap param1 
  0041:4a 06             send 6 

  0043:7a               push2 
  0044:38 0104          pushi 104 // $104 picture
  0047:76               push0 
  0048:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_004e
  004e:48                 ret 
    )

)

// 0200
(instance public csleep of Rgn
    (properties
        script $0
        number $0
        timer $0
        keep $0
        initialized $0
    )
    (method (init) // method_004f
  004f:39 57            pushi 57 // $57 init
  0051:76               push0 
  0052:57 36 04         super Rgn 4 

  0055:35 40              ldi 40 
  0057:a0 00c3            sag global195 
  005a:39 42            pushi 42 // $42 setPri
  005c:78               push1 
  005d:39 06            pushi 6 // $6 loop
  005f:38 00a4          pushi a4 // $a4 cycleSpeed
  0062:78               push1 
  0063:39 04            pushi 4 // $4 x
  0065:39 7e            pushi 7e // $7e setCycle
  0067:78               push1 
  0068:51 16            class Fwd 
  006a:36                push 
  006b:39 57            pushi 57 // $57 init
  006d:76               push0 
  006e:72 0143          lofsa $01b4 // Clarence
  0071:4a 16             send 16 

  0073:39 42            pushi 42 // $42 setPri
  0075:78               push1 
  0076:39 06            pushi 6 // $6 loop
  0078:39 57            pushi 57 // $57 init
  007a:76               push0 
  007b:72 01ba          lofsa $0238 // snores
  007e:4a 0a             send a 

  0080:39 03            pushi 3 // $3 y
  0082:38 0084          pushi 84 // $84 stop
  0085:39 72            pushi 72 // $72 cycles
  0087:39 73            pushi 73 // $73 seconds
  0089:45 15 06         callb procedure_0015 6 // LoadMany 

  008c:48                 ret 
    )

    (method (doit) // method_008d
  008d:38 0081          pushi 81 // $81 prevSignal
  0090:76               push0 
  0091:72 01f2          lofsa $0286 // snoring
  0094:4a 04             send 4 

  0096:36                push 
  0097:35 ff              ldi ff 
  0099:1a                 eq? 
  009a:31 24              bnt code_00c0 
  009c:39 2b            pushi 2b // $2b number
  009e:76               push0 
  009f:72 01e4          lofsa $0286 // snoring
  00a2:4a 04             send 4 

  00a4:36                push 
  00a5:35 72              ldi 72 
  00a7:1a                 eq? 
  00a8:31 16              bnt code_00c0 
  00aa:39 2b            pushi 2b // $2b number
  00ac:78               push1 
  00ad:39 73            pushi 73 // $73 seconds
  00af:39 06            pushi 6 // $6 loop
  00b1:78               push1 
  00b2:78               push1 
  00b3:38 0081          pushi 81 // $81 prevSignal
  00b6:78               push1 
  00b7:76               push0 
  00b8:39 2a            pushi 2a // $2a play
  00ba:76               push0 
  00bb:72 01c8          lofsa $0286 // snoring
  00be:4a 16             send 16 


        code_00c0
  00c0:39 07            pushi 7 // $7 cel
  00c2:76               push0 
  00c3:72 00ee          lofsa $01b4 // Clarence
  00c6:4a 04             send 4 

  00c8:36                push 
  00c9:35 00              ldi 0 
  00cb:1a                 eq? 
  00cc:31 20              bnt code_00ee 
  00ce:39 2b            pushi 2b // $2b number
  00d0:78               push1 
  00d1:39 72            pushi 72 // $72 cycles
  00d3:39 06            pushi 6 // $6 loop
  00d5:78               push1 
  00d6:78               push1 
  00d7:39 2a            pushi 2a // $2a play
  00d9:76               push0 
  00da:72 01a9          lofsa $0286 // snoring
  00dd:4a 10             send 10 

  00df:39 07            pushi 7 // $7 cel
  00e1:78               push1 
  00e2:76               push0 
  00e3:39 7e            pushi 7e // $7e setCycle
  00e5:78               push1 
  00e6:51 1a            class End 
  00e8:36                push 
  00e9:72 014c          lofsa $0238 // snores
  00ec:4a 0c             send c 


        code_00ee
  00ee:39 3c            pushi 3c // $3c doit
  00f0:76               push0 
  00f1:57 36 04         super Rgn 4 

  00f4:48                 ret 
    )

    (method (dispose) // method_00f5
  00f5:39 58            pushi 58 // $58 dispose
  00f7:76               push0 
  00f8:57 36 04         super Rgn 4 

  00fb:48                 ret 
    )

    (method (handleEvent) // method_00fc
  00fc:39 4c            pushi 4c // $4c claimed
  00fe:76               push0 
  00ff:87 01              lap param1 
  0101:4a 04             send 4 

  0103:31 03              bnt code_0108 
  0105:35 01              ldi 1 
  0107:48                 ret 

        code_0108
  0108:39 22            pushi 22 // $22 type
  010a:76               push0 
  010b:87 01              lap param1 
  010d:4a 04             send 4 

  010f:36                push 
  0110:34 0080            ldi 80 
  0113:1a                 eq? 
  0114:31 59              bnt code_016f 
  0116:78               push1 
  0117:74 0074          lofss $018e // deliver,hold/*
  011a:43 25 02         callk Said 2 

  011d:31 1d              bnt code_013c 
  011f:80 00db            lag global219 
  0122:31 12              bnt code_0136 
  0124:80 00e0            lag global224 
  0127:31 0d              bnt code_0136 
  0129:7a               push2 
  012a:38 0104          pushi 104 // $104 picture
  012d:78               push1 
  012e:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0134:33 04              jmp code_013a 

        code_0136
  0136:76               push0 
  0137:45 0d 00         callb procedure_000d 0 // DontHave 


        code_013a
  013a:33 33              jmp code_016f 

        code_013c
  013c:78               push1 
  013d:74 0041          lofss $0181 // ask,raconter//*<about
  0140:43 25 02         callk Said 2 

  0143:31 0d              bnt code_0152 
  0145:7a               push2 
  0146:38 0104          pushi 104 // $104 picture
  0149:78               push1 
  014a:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0150:33 1d              jmp code_016f 

        code_0152
  0152:78               push1 
  0153:74 001e          lofss $0174 // (*,!*)>
  0156:43 25 02         callk Said 2 

  0159:31 14              bnt code_016f 
  015b:78               push1 
  015c:74 001e          lofss $017d // /attorney
  015f:43 25 02         callk Said 2 

  0162:31 0b              bnt code_016f 
  0164:7a               push2 
  0165:38 0104          pushi 104 // $104 picture
  0168:78               push1 
  0169:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_016f
  016f:48                 ret 
    )

)

// 0232
(instance snores of Prop
    (properties
        y $44
        x $e4
        z $0
        heading $0
        yStep $2
        view'look[<at]/bed'
        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 $1
        script $0
        cycler $0
        timer $0
    )
)

// 0280
(instance snoring of Sound
    (properties
        state $0
        number $0
        priority $0
        loop $1
        handle $0
        signal $0
        prevSignal $0
        client $0
        owner $0
    )
)



