(script 276)

(string
    string_0648 "Clarence"
    string_0651 "cHead"
    string_0657 "desk"
    string_065c "noteBook"
    string_0665 ""
)

(said
    said_04d0 /attorney
    said_04d4 /attorney>
    said_04d9 /bureau
    said_04dd /carnet
    said_04e1 <dans/carnet
    said_04e8 ask//*<about
    said_04f2 embrace
    said_04f5 draguer
    said_04f8 get
    said_04fb get,open/carnet
    said_0504 deliver/*
    said_050a abattre
    said_050d embrasser
    said_0510 ecouter
    said_0513 look/attorney
    said_0519 look>
    said_051d etudier/carnet
    said_0523 hold/*
    said_0529 bonjour
    said_052c raconter//*<about
)

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

(local
    local0 = $0000
    local1 = $0000
)

// 053c
(instance Clarence of Prop
    (properties
        y $8a
        x $10b
        z $0
        heading $0
        yStep $2
        view $19b
        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_003b
  003b:88 00cf            lsg global207 
  003e:35 40              ldi 40 
  0040:12                 and 
  0041:18                 not 
  0042:31 3a              bnt code_007e 
  0044:39 03            pushi 3 // $3 y
  0046:7c            pushSelf 
  0047:8f 01              lsp param1 
  0049:39 03            pushi 3 // $3 y
  004b:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0051:2f 09               bt code_005c 
  0053:78               push1 
  0054:74 04bc          lofss $0513 // look/attorney
  0057:43 25 02         callk Said 2 

  005a:31 22              bnt code_007e 

        code_005c
  005c:88 00cf            lsg global207 
  005f:35 40              ldi 40 
  0061:14                  or 
  0062:a0 00cf            sag global207 
  0065:35 07              ldi 7 
  0067:a0 00d5            sag global213 
  006a:39 4c            pushi 4c // $4c claimed
  006c:78               push1 
  006d:78               push1 
  006e:87 01              lap param1 
  0070:4a 06             send 6 

  0072:39 03            pushi 3 // $3 y
  0074:76               push0 
  0075:38 0114          pushi 114 // $114 minPause
  0078:76               push0 
  0079:45 01 06         callb procedure_0001 6 // Say 

  007c:33 33              jmp code_00b1 

        code_007e
  007e:88 00cf            lsg global207 
  0081:35 40              ldi 40 
  0083:12                 and 
  0084:31 2b              bnt code_00b1 
  0086:39 03            pushi 3 // $3 y
  0088:7c            pushSelf 
  0089:8f 01              lsp param1 
  008b:39 03            pushi 3 // $3 y
  008d:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0093:2f 09               bt code_009e 
  0095:78               push1 
  0096:74 047a          lofss $0513 // look/attorney
  0099:43 25 02         callk Said 2 

  009c:31 13              bnt code_00b1 

        code_009e
  009e:39 4c            pushi 4c // $4c claimed
  00a0:78               push1 
  00a1:78               push1 
  00a2:87 01              lap param1 
  00a4:4a 06             send 6 

  00a6:7a               push2 
  00a7:38 0114          pushi 114 // $114 minPause
  00aa:78               push1 
  00ab:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_00b1
  00b1:48                 ret 
    )

)

// 058e
(instance cHead of Prop
    (properties
        y $63
        x $10c
        z $0
        heading $0
        yStep $2
        view $19b
        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_00b2
  00b2:88 00cf            lsg global207 
  00b5:35 40              ldi 40 
  00b7:12                 and 
  00b8:18                 not 
  00b9:31 3a              bnt code_00f5 
  00bb:39 03            pushi 3 // $3 y
  00bd:7c            pushSelf 
  00be:8f 01              lsp param1 
  00c0:39 03            pushi 3 // $3 y
  00c2:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  00c8:2f 09               bt code_00d3 
  00ca:78               push1 
  00cb:74 0445          lofss $0513 // look/attorney
  00ce:43 25 02         callk Said 2 

  00d1:31 22              bnt code_00f5 

        code_00d3
  00d3:88 00cf            lsg global207 
  00d6:35 40              ldi 40 
  00d8:14                  or 
  00d9:a0 00cf            sag global207 
  00dc:35 07              ldi 7 
  00de:a0 00d5            sag global213 
  00e1:39 4c            pushi 4c // $4c claimed
  00e3:78               push1 
  00e4:78               push1 
  00e5:87 01              lap param1 
  00e7:4a 06             send 6 

  00e9:39 03            pushi 3 // $3 y
  00eb:76               push0 
  00ec:38 0114          pushi 114 // $114 minPause
  00ef:76               push0 
  00f0:45 01 06         callb procedure_0001 6 // Say 

  00f3:33 33              jmp code_0128 

        code_00f5
  00f5:88 00cf            lsg global207 
  00f8:35 40              ldi 40 
  00fa:12                 and 
  00fb:31 2b              bnt code_0128 
  00fd:39 03            pushi 3 // $3 y
  00ff:7c            pushSelf 
  0100:8f 01              lsp param1 
  0102:39 03            pushi 3 // $3 y
  0104:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  010a:2f 09               bt code_0115 
  010c:78               push1 
  010d:74 0403          lofss $0513 // look/attorney
  0110:43 25 02         callk Said 2 

  0113:31 13              bnt code_0128 

        code_0115
  0115:39 4c            pushi 4c // $4c claimed
  0117:78               push1 
  0118:78               push1 
  0119:87 01              lap param1 
  011b:4a 06             send 6 

  011d:7a               push2 
  011e:38 0114          pushi 114 // $114 minPause
  0121:78               push1 
  0122:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0128
  0128:48                 ret 
    )

)

// 05e0
(instance public desk of Rgn
    (properties
        script $0
        number $0
        timer $0
        keep $0
        initialized $0
    )
    (method (init) // method_0129
  0129:39 57            pushi 57 // $57 init
  012b:76               push0 
  012c:57 36 04         super Rgn 4 

  012f:7a               push2 
  0130:38 0087          pushi 87 // $87 clean
  0133:39 04            pushi 4 // $4 x
  0135:43 00 04         callk Load 4 

  0138:35 40              ldi 40 
  013a:a0 00c3            sag global195 
  013d:39 42            pushi 42 // $42 setPri
  013f:78               push1 
  0140:39 0a            pushi a // $a nsLeft
  0142:39 57            pushi 57 // $57 init
  0144:76               push0 
  0145:72 044c          lofsa $0594 // cHead
  0148:4a 0a             send a 

  014a:39 57            pushi 57 // $57 init
  014c:76               push0 
  014d:72 03f2          lofsa $0542 // Clarence
  0150:4a 04             send 4 

  0152:39 7a            pushi 7a // $7a setScript
  0154:78               push1 
  0155:74 04c0          lofss $0618 // noteBook
  0158:54 06             self 6 

  015a:48                 ret 
    )

    (method (doit) // method_015b
  015b:39 3c            pushi 3c // $3c doit
  015d:76               push0 
  015e:57 36 04         super Rgn 4 

  0161:48                 ret 
    )

    (method (dispose) // method_0162
  0162:39 58            pushi 58 // $58 dispose
  0164:76               push0 
  0165:57 36 04         super Rgn 4 

  0168:48                 ret 
    )

    (method (handleEvent) // method_0169
  0169:3f 01             link 1 // (var $1)
  016b:39 6f            pushi 6f // $6f handleEvent
  016d:78               push1 
  016e:8f 01              lsp param1 
  0170:57 36 06         super Rgn 6 

  0173:39 4c            pushi 4c // $4c claimed
  0175:76               push0 
  0176:87 01              lap param1 
  0178:4a 04             send 4 

  017a:31 01              bnt code_017d 
  017c:48                 ret 

        code_017d
  017d:39 22            pushi 22 // $22 type
  017f:76               push0 
  0180:87 01              lap param1 
  0182:4a 04             send 4 

  0184:36                push 
  0185:34 0080            ldi 80 
  0188:1a                 eq? 
  0189:30 021d            bnt code_03a9 
  018c:35 07              ldi 7 
  018e:a0 00d5            sag global213 
  0191:78               push1 
  0192:74 0384          lofss $0519 // look>
  0195:43 25 02         callk Said 2 

  0198:31 5b              bnt code_01f5 
  019a:78               push1 
  019b:74 0332          lofss $04d0 // /attorney
  019e:43 25 02         callk Said 2 

  01a1:31 0d              bnt code_01b0 
  01a3:7a               push2 
  01a4:38 0114          pushi 114 // $114 minPause
  01a7:78               push1 
  01a8:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  01ae:33 42              jmp code_01f2 

        code_01b0
  01b0:78               push1 
  01b1:74 0325          lofss $04d9 // /bureau
  01b4:43 25 02         callk Said 2 

  01b7:31 0d              bnt code_01c6 
  01b9:7a               push2 
  01ba:38 0114          pushi 114 // $114 minPause
  01bd:7a               push2 
  01be:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  01c4:33 2c              jmp code_01f2 

        code_01c6
  01c6:78               push1 
  01c7:74 0317          lofss $04e1 // <dans/carnet
  01ca:43 25 02         callk Said 2 

  01cd:31 0e              bnt code_01dd 
  01cf:7a               push2 
  01d0:38 0114          pushi 114 // $114 minPause
  01d3:39 03            pushi 3 // $3 y
  01d5:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  01db:33 15              jmp code_01f2 

        code_01dd
  01dd:78               push1 
  01de:74 02fc          lofss $04dd // /carnet
  01e1:43 25 02         callk Said 2 

  01e4:31 0c              bnt code_01f2 
  01e6:7a               push2 
  01e7:38 0114          pushi 114 // $114 minPause
  01ea:39 04            pushi 4 // $4 x
  01ec:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_01f2
  01f2:32 01b4            jmp code_03a9 

        code_01f5
  01f5:78               push1 
  01f6:74 02ef          lofss $04e8 // ask//*<about
  01f9:43 25 02         callk Said 2 

  01fc:31 2d              bnt code_022b 
  01fe:8b 01              lsl local1 
  0200:3c                 dup 
  0201:35 00              ldi 0 
  0203:1a                 eq? 
  0204:31 0f              bnt code_0215 
  0206:39 03            pushi 3 // $3 y
  0208:78               push1 
  0209:38 0114          pushi 114 // $114 minPause
  020c:39 05            pushi 5 // $5 view
  020e:45 01 06         callb procedure_0001 6 // Say 

  0211:c3 01              +al local1 
  0213:33 12              jmp code_0227 

        code_0215
  0215:3c                 dup 
  0216:35 01              ldi 1 
  0218:1a                 eq? 
  0219:31 0c              bnt code_0227 
  021b:7a               push2 
  021c:38 0114          pushi 114 // $114 minPause
  021f:39 06            pushi 6 // $6 loop
  0221:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0227
  0227:3a                toss 
  0228:32 017e            jmp code_03a9 

        code_022b
  022b:78               push1 
  022c:74 02fd          lofss $052c // raconter//*<about
  022f:43 25 02         callk Said 2 

  0232:31 0f              bnt code_0243 
  0234:7a               push2 
  0235:38 0114          pushi 114 // $114 minPause
  0238:39 07            pushi 7 // $7 cel
  023a:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0240:32 0166            jmp code_03a9 

        code_0243
  0243:78               push1 
  0244:74 02dc          lofss $0523 // hold/*
  0247:43 25 02         callk Said 2 

  024a:31 1f              bnt code_026b 
  024c:80 00db            lag global219 
  024f:31 13              bnt code_0264 
  0251:80 00e0            lag global224 
  0254:31 0e              bnt code_0264 
  0256:7a               push2 
  0257:38 0114          pushi 114 // $114 minPause
  025a:39 08            pushi 8 // $8 underBits
  025c:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0262:33 04              jmp code_0268 

        code_0264
  0264:76               push0 
  0265:45 0d 00         callb procedure_000d 0 // DontHave 


        code_0268
  0268:32 013e            jmp code_03a9 

        code_026b
  026b:78               push1 
  026c:74 0295          lofss $0504 // deliver/*
  026f:43 25 02         callk Said 2 

  0272:31 1f              bnt code_0293 
  0274:80 00db            lag global219 
  0277:31 13              bnt code_028c 
  0279:80 00e0            lag global224 
  027c:31 0e              bnt code_028c 
  027e:7a               push2 
  027f:38 0114          pushi 114 // $114 minPause
  0282:39 09            pushi 9 // $9 nsTop
  0284:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  028a:33 04              jmp code_0290 

        code_028c
  028c:76               push0 
  028d:45 0d 00         callb procedure_000d 0 // DontHave 


        code_0290
  0290:32 0116            jmp code_03a9 

        code_0293
  0293:78               push1 
  0294:74 023d          lofss $04d4 // /attorney>
  0297:43 25 02         callk Said 2 

  029a:30 00e0            bnt code_037d 
  029d:78               push1 
  029e:74 0288          lofss $0529 // bonjour
  02a1:43 25 02         callk Said 2 

  02a4:31 4d              bnt code_02f3 
  02a6:8b 00              lsl local0 
  02a8:3c                 dup 
  02a9:35 00              ldi 0 
  02ab:1a                 eq? 
  02ac:31 0d              bnt code_02bb 
  02ae:39 03            pushi 3 // $3 y
  02b0:78               push1 
  02b1:38 0114          pushi 114 // $114 minPause
  02b4:39 0a            pushi a // $a nsLeft
  02b6:45 01 06         callb procedure_0001 6 // Say 

  02b9:33 32              jmp code_02ed 

        code_02bb
  02bb:3c                 dup 
  02bc:35 01              ldi 1 
  02be:1a                 eq? 
  02bf:31 0d              bnt code_02ce 
  02c1:39 03            pushi 3 // $3 y
  02c3:78               push1 
  02c4:38 0114          pushi 114 // $114 minPause
  02c7:39 0b            pushi b // $b nsBottom
  02c9:45 01 06         callb procedure_0001 6 // Say 

  02cc:33 1f              jmp code_02ed 

        code_02ce
  02ce:3c                 dup 
  02cf:35 02              ldi 2 
  02d1:1a                 eq? 
  02d2:31 0d              bnt code_02e1 
  02d4:39 03            pushi 3 // $3 y
  02d6:78               push1 
  02d7:38 0114          pushi 114 // $114 minPause
  02da:39 0c            pushi c // $c nsRight
  02dc:45 01 06         callb procedure_0001 6 // Say 

  02df:33 0c              jmp code_02ed 

        code_02e1
  02e1:7a               push2 
  02e2:38 0114          pushi 114 // $114 minPause
  02e5:39 0d            pushi d // $d lsTop
  02e7:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_02ed
  02ed:3a                toss 
  02ee:c3 00              +al local0 
  02f0:32 0088            jmp code_037b 

        code_02f3
  02f3:78               push1 
  02f4:74 0219          lofss $0510 // ecouter
  02f7:43 25 02         callk Said 2 

  02fa:31 0e              bnt code_030a 
  02fc:7a               push2 
  02fd:38 0114          pushi 114 // $114 minPause
  0300:39 0e            pushi e // $e lsLeft
  0302:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0308:33 71              jmp code_037b 

        code_030a
  030a:78               push1 
  030b:74 01ea          lofss $04f8 // get
  030e:43 25 02         callk Said 2 

  0311:31 0e              bnt code_0321 
  0313:7a               push2 
  0314:38 0114          pushi 114 // $114 minPause
  0317:39 0f            pushi f // $f lsBottom
  0319:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  031f:33 5a              jmp code_037b 

        code_0321
  0321:78               push1 
  0322:74 01e5          lofss $050a // abattre
  0325:43 25 02         callk Said 2 

  0328:31 0e              bnt code_0338 
  032a:7a               push2 
  032b:38 0114          pushi 114 // $114 minPause
  032e:39 10            pushi 10 // $10 lsRight
  0330:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0336:33 43              jmp code_037b 

        code_0338
  0338:78               push1 
  0339:74 01d1          lofss $050d // embrasser
  033c:43 25 02         callk Said 2 

  033f:31 0e              bnt code_034f 
  0341:7a               push2 
  0342:38 0114          pushi 114 // $114 minPause
  0345:39 11            pushi 11 // $11 signal
  0347:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  034d:33 2c              jmp code_037b 

        code_034f
  034f:78               push1 
  0350:74 019f          lofss $04f2 // embrace
  0353:43 25 02         callk Said 2 

  0356:31 0e              bnt code_0366 
  0358:7a               push2 
  0359:38 0114          pushi 114 // $114 minPause
  035c:39 12            pushi 12 // $12 illegalBits
  035e:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0364:33 15              jmp code_037b 

        code_0366
  0366:78               push1 
  0367:74 018b          lofss $04f5 // draguer
  036a:43 25 02         callk Said 2 

  036d:31 0c              bnt code_037b 
  036f:7a               push2 
  0370:38 0114          pushi 114 // $114 minPause
  0373:39 13            pushi 13 // $13 brTop
  0375:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_037b
  037b:33 2c              jmp code_03a9 

        code_037d
  037d:78               push1 
  037e:74 017a          lofss $04fb // get,open/carnet
  0381:43 25 02         callk Said 2 

  0384:31 0e              bnt code_0394 
  0386:7a               push2 
  0387:38 0114          pushi 114 // $114 minPause
  038a:39 14            pushi 14 // $14 brLeft
  038c:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0392:33 15              jmp code_03a9 

        code_0394
  0394:78               push1 
  0395:74 0185          lofss $051d // etudier/carnet
  0398:43 25 02         callk Said 2 

  039b:31 0c              bnt code_03a9 
  039d:7a               push2 
  039e:38 0114          pushi 114 // $114 minPause
  03a1:39 03            pushi 3 // $3 y
  03a3:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_03a9
  03a9:48                 ret 
    )

)

// 0612
(instance noteBook 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_03aa
  03aa:87 01              lap param1 
  03ac:65 0a             aTop state 
  03ae:36                push 
  03af:3c                 dup 
  03b0:35 00              ldi 0 
  03b2:1a                 eq? 
  03b3:31 41              bnt code_03f6 
  03b5:80 00d8            lag global216 
  03b8:18                 not 
  03b9:31 06              bnt code_03c1 
  03bb:35 ff              ldi ff 
  03bd:65 0a             aTop state 
  03bf:33 2e              jmp code_03ef 

        code_03c1
  03c1:89 76              lsg gMustDos 
  03c3:35 08              ldi 8 
  03c5:12                 and 
  03c6:18                 not 
  03c7:31 1b              bnt code_03e4 
  03c9:89 76              lsg gMustDos 
  03cb:35 08              ldi 8 
  03cd:14                  or 
  03ce:a1 76              sag gMustDos 
  03d0:39 7a            pushi 7a // $7a setScript
  03d2:78               push1 
  03d3:7a               push2 
  03d4:38 0196          pushi 196 // $196 sel_406
  03d7:76               push0 
  03d8:43 02 04         callk ScriptID 4 

  03db:36                push 
  03dc:54 06             self 6 

  03de:35 ff              ldi ff 
  03e0:65 0a             aTop state 
  03e2:33 0b              jmp code_03ef 

        code_03e4
  03e4:39 76            pushi 76 // $76 script
  03e6:76               push0 
  03e7:54 04             self 4 

  03e9:31 04              bnt code_03ef 
  03eb:35 ff              ldi ff 
  03ed:65 0a             aTop state 

        code_03ef
  03ef:35 01              ldi 1 
  03f1:65 10             aTop cycles 
  03f3:32 00d3            jmp code_04c9 

        code_03f6
  03f6:3c                 dup 
  03f7:35 01              ldi 1 
  03f9:1a                 eq? 
  03fa:31 37              bnt code_0433 
  03fc:39 06            pushi 6 // $6 loop
  03fe:78               push1 
  03ff:39 05            pushi 5 // $5 view
  0401:39 07            pushi 7 // $7 cel
  0403:78               push1 
  0404:76               push0 
  0405:38 00a4          pushi a4 // $a4 cycleSpeed
  0408:78               push1 
  0409:39 03            pushi 3 // $3 y
  040b:39 7e            pushi 7e // $7e setCycle
  040d:78               push1 
  040e:51 1a            class End 
  0410:36                push 
  0411:72 0180          lofsa $0594 // cHead
  0414:4a 18             send 18 

  0416:38 00a4          pushi a4 // $a4 cycleSpeed
  0419:78               push1 
  041a:78               push1 
  041b:39 7e            pushi 7e // $7e setCycle
  041d:78               push1 
  041e:51 16            class Fwd 
  0420:36                push 
  0421:72 011e          lofsa $0542 // Clarence
  0424:4a 0c             send c 

  0426:7a               push2 
  0427:39 05            pushi 5 // $5 view
  0429:39 0c            pushi c // $c nsRight
  042b:43 40 04         callk Random 4 

  042e:65 12             aTop seconds 
  0430:32 0096            jmp code_04c9 

        code_0433
  0433:3c                 dup 
  0434:35 02              ldi 2 
  0436:1a                 eq? 
  0437:31 20              bnt code_0459 
  0439:39 7e            pushi 7e // $7e setCycle
  043b:78               push1 
  043c:76               push0 
  043d:72 0102          lofsa $0542 // Clarence
  0440:4a 06             send 6 

  0442:39 7e            pushi 7e // $7e setCycle
  0444:78               push1 
  0445:51 1b            class Beg 
  0447:36                push 
  0448:72 0149          lofsa $0594 // cHead
  044b:4a 06             send 6 

  044d:7a               push2 
  044e:39 03            pushi 3 // $3 y
  0450:39 05            pushi 5 // $5 view
  0452:43 40 04         callk Random 4 

  0455:65 12             aTop seconds 
  0457:33 70              jmp code_04c9 

        code_0459
  0459:3c                 dup 
  045a:35 03              ldi 3 
  045c:1a                 eq? 
  045d:31 1f              bnt code_047e 
  045f:39 06            pushi 6 // $6 loop
  0461:78               push1 
  0462:78               push1 
  0463:39 07            pushi 7 // $7 cel
  0465:78               push1 
  0466:76               push0 
  0467:39 7e            pushi 7e // $7e setCycle
  0469:78               push1 
  046a:51 1a            class End 
  046c:36                push 
  046d:72 0124          lofsa $0594 // cHead
  0470:4a 12             send 12 

  0472:7a               push2 
  0473:39 03            pushi 3 // $3 y
  0475:39 05            pushi 5 // $5 view
  0477:43 40 04         callk Random 4 

  047a:65 12             aTop seconds 
  047c:33 4b              jmp code_04c9 

        code_047e
  047e:3c                 dup 
  047f:35 04              ldi 4 
  0481:1a                 eq? 
  0482:31 17              bnt code_049b 
  0484:39 7e            pushi 7e // $7e setCycle
  0486:78               push1 
  0487:51 1b            class Beg 
  0489:36                push 
  048a:72 0107          lofsa $0594 // cHead
  048d:4a 06             send 6 

  048f:7a               push2 
  0490:39 03            pushi 3 // $3 y
  0492:39 05            pushi 5 // $5 view
  0494:43 40 04         callk Random 4 

  0497:65 12             aTop seconds 
  0499:33 2e              jmp code_04c9 

        code_049b
  049b:3c                 dup 
  049c:35 05              ldi 5 
  049e:1a                 eq? 
  049f:31 28              bnt code_04c9 
  04a1:7a               push2 
  04a2:78               push1 
  04a3:7a               push2 
  04a4:43 40 04         callk Random 4 

  04a7:36                push 
  04a8:3c                 dup 
  04a9:35 01              ldi 1 
  04ab:1a                 eq? 
  04ac:31 06              bnt code_04b4 
  04ae:35 00              ldi 0 
  04b0:65 0a             aTop state 
  04b2:33 0a              jmp code_04be 

        code_04b4
  04b4:3c                 dup 
  04b5:35 02              ldi 2 
  04b7:1a                 eq? 
  04b8:31 04              bnt code_04be 
  04ba:35 02              ldi 2 
  04bc:65 0a             aTop state 

        code_04be
  04be:3a                toss 
  04bf:7a               push2 
  04c0:39 03            pushi 3 // $3 y
  04c2:39 05            pushi 5 // $5 view
  04c4:43 40 04         callk Random 4 

  04c7:65 12             aTop seconds 

        code_04c9
  04c9:3a                toss 
  04ca:48                 ret 
  04cb:00                bnot 
    )

)



