(script 262)

(string
    string_059c "CHead"
    string_05a2 "Celie"
    string_05a8 "celihome"
    string_05b1 "cook"
    string_05b6 "sitDown"
)

(said
    said_0438 /celie
    said_043c ecouter/celie
    said_0442 look/celie
    said_0448 bonjour>
)

(synonym
    celie | cook = person | personne
    celie | cook = dame | femme | fille | girl | lady | maiden | woman
)

(local
    local0 = $0000
    local1 = $0000
)

// 0452
(instance Celie of Act
    (properties
        y $0
        x $0
        z $0
        heading $0
        yStep $2
        view $1e0
        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
        illegalBits $8000
        xLast $0
        yLast $0
        xStep $3
        moveSpeed $0
        blocks $0
        baseSetter $0
        mover $0
        looper $0
        viewer $0
        avoider $0
    )
)

// 04b6
(instance CHead of Prop
    (properties
        y $66
        x $e3
        z $0
        heading $0
        yStep $2
        view $1e9
        loop $1
        cel $0
        priority $a
        underBits $0
        signal $10
        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
    )
)

// 0504
(instance public celihome of Rgn
    (properties
        script $0
        number $0
        timer $0
        keep $0
        initialized $0
    )
    (method (init) // method_0036
  0036:39 57            pushi 57 // $57 init
  0038:76               push0 
  0039:57 36 04         super Rgn 4 

  003c:7a               push2 
  003d:38 0087          pushi 87 // $87 clean
  0040:39 04            pushi 4 // $4 x
  0042:43 00 04         callk Load 4 

  0045:7a               push2 
  0046:38 0080          pushi 80 // $80 timeLeft
  0049:38 01e9          pushi 1e9 // $1e9 sel_489
  004c:43 00 04         callk Load 4 

  004f:7a               push2 
  0050:38 0087          pushi 87 // $87 clean
  0053:39 04            pushi 4 // $4 x
  0055:43 00 04         callk Load 4 

  0058:39 03            pushi 3 // $3 y
  005a:38 0080          pushi 80 // $80 timeLeft
  005d:38 01e0          pushi 1e0 // $1e0 sel_480
  0060:38 0385          pushi 385 // $385 sel_901
  0063:45 15 06         callb procedure_0015 6 // LoadMany 

  0066:35 02              ldi 2 
  0068:a0 00d5            sag global213 
  006b:81 6c              lag global108 
  006d:31 2c              bnt code_009b 
  006f:39 05            pushi 5 // $5 view
  0071:78               push1 
  0072:38 01e0          pushi 1e0 // $1e0 sel_480
  0075:39 12            pushi 12 // $12 illegalBits
  0077:78               push1 
  0078:76               push0 
  0079:39 06            pushi 6 // $6 loop
  007b:78               push1 
  007c:39 04            pushi 4 // $4 x
  007e:39 07            pushi 7 // $7 cel
  0080:78               push1 
  0081:76               push0 
  0082:38 00c5          pushi c5 // $c5 posn
  0085:7a               push2 
  0086:39 7b            pushi 7b // $7b cycleCnt
  0088:38 0093          pushi 93 // $93 advance
  008b:39 57            pushi 57 // $57 init
  008d:76               push0 
  008e:39 7a            pushi 7a // $7a setScript
  0090:78               push1 
  0091:74 04a8          lofss $053c // cook
  0094:72 03c1          lofsa $0458 // Celie
  0097:4a 2a             send 2a 

  0099:33 17              jmp code_00b2 

        code_009b
  009b:38 00c5          pushi c5 // $c5 posn
  009e:7a               push2 
  009f:39 7b            pushi 7b // $7b cycleCnt
  00a1:38 0093          pushi 93 // $93 advance
  00a4:39 57            pushi 57 // $57 init
  00a6:76               push0 
  00a7:39 7a            pushi 7a // $7a setScript
  00a9:78               push1 
  00aa:74 04bf          lofss $056c // sitDown
  00ad:72 03a8          lofsa $0458 // Celie
  00b0:4a 12             send 12 


        code_00b2
  00b2:48                 ret 
    )

    (method (doit) // method_00b3
  00b3:39 3c            pushi 3c // $3c doit
  00b5:76               push0 
  00b6:57 36 04         super Rgn 4 

  00b9:48                 ret 
    )

    (method (dispose) // method_00ba
  00ba:78               push1 
  00bb:38 03d9          pushi 3d9 // $3d9 sel_985
  00be:43 03 02         callk DisposeScript 2 

  00c1:39 58            pushi 58 // $58 dispose
  00c3:76               push0 
  00c4:57 36 04         super Rgn 4 

  00c7:48                 ret 
    )

    (method (handleEvent) // method_00c8
  00c8:39 4c            pushi 4c // $4c claimed
  00ca:76               push0 
  00cb:87 01              lap param1 
  00cd:4a 04             send 4 

  00cf:31 03              bnt code_00d4 
  00d1:35 01              ldi 1 
  00d3:48                 ret 

        code_00d4
  00d4:39 22            pushi 22 // $22 type
  00d6:76               push0 
  00d7:87 01              lap param1 
  00d9:4a 04             send 4 

  00db:36                push 
  00dc:34 0080            ldi 80 
  00df:1a                 eq? 
  00e0:30 01b5            bnt code_0298 
  00e3:78               push1 
  00e4:74 035b          lofss $0442 // look/celie
  00e7:43 25 02         callk Said 2 

  00ea:31 38              bnt code_0124 
  00ec:35 02              ldi 2 
  00ee:a0 00d5            sag global213 
  00f1:88 00cf            lsg global207 
  00f4:35 02              ldi 2 
  00f6:12                 and 
  00f7:31 1e              bnt code_0117 
  00f9:81 6c              lag global108 
  00fb:31 0d              bnt code_010a 
  00fd:7a               push2 
  00fe:38 0106          pushi 106 // $106 east
  0101:76               push0 
  0102:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0108:33 0b              jmp code_0115 

        code_010a
  010a:7a               push2 
  010b:38 0106          pushi 106 // $106 east
  010e:78               push1 
  010f:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0115
  0115:33 0a              jmp code_0121 

        code_0117
  0117:39 03            pushi 3 // $3 y
  0119:76               push0 
  011a:38 0106          pushi 106 // $106 east
  011d:7a               push2 
  011e:45 01 06         callb procedure_0001 6 // Say 


        code_0121
  0121:32 0174            jmp code_0298 

        code_0124
  0124:78               push1 
  0125:74 0320          lofss $0448 // bonjour>
  0128:43 25 02         callk Said 2 

  012b:30 0155            bnt code_0283 
  012e:78               push1 
  012f:74 0306          lofss $0438 // /celie
  0132:43 25 02         callk Said 2 

  0135:30 0149            bnt code_0281 
  0138:35 02              ldi 2 
  013a:a0 00d5            sag global213 
  013d:81 6c              lag global108 
  013f:31 72              bnt code_01b3 
  0141:8b 00              lsl local0 
  0143:3c                 dup 
  0144:35 00              ldi 0 
  0146:1a                 eq? 
  0147:31 0d              bnt code_0156 
  0149:39 03            pushi 3 // $3 y
  014b:78               push1 
  014c:38 0106          pushi 106 // $106 east
  014f:39 03            pushi 3 // $3 y
  0151:45 01 06         callb procedure_0001 6 // Say 

  0154:33 57              jmp code_01ad 

        code_0156
  0156:3c                 dup 
  0157:35 01              ldi 1 
  0159:1a                 eq? 
  015a:31 0d              bnt code_0169 
  015c:39 03            pushi 3 // $3 y
  015e:78               push1 
  015f:38 0106          pushi 106 // $106 east
  0162:39 04            pushi 4 // $4 x
  0164:45 01 06         callb procedure_0001 6 // Say 

  0167:33 44              jmp code_01ad 

        code_0169
  0169:3c                 dup 
  016a:35 02              ldi 2 
  016c:1a                 eq? 
  016d:31 0d              bnt code_017c 
  016f:39 03            pushi 3 // $3 y
  0171:78               push1 
  0172:38 0106          pushi 106 // $106 east
  0175:39 05            pushi 5 // $5 view
  0177:45 01 06         callb procedure_0001 6 // Say 

  017a:33 31              jmp code_01ad 

        code_017c
  017c:3c                 dup 
  017d:35 03              ldi 3 
  017f:1a                 eq? 
  0180:31 0d              bnt code_018f 
  0182:39 03            pushi 3 // $3 y
  0184:78               push1 
  0185:38 0106          pushi 106 // $106 east
  0188:39 06            pushi 6 // $6 loop
  018a:45 01 06         callb procedure_0001 6 // Say 

  018d:33 1e              jmp code_01ad 

        code_018f
  018f:3c                 dup 
  0190:35 04              ldi 4 
  0192:1a                 eq? 
  0193:31 0d              bnt code_01a2 
  0195:39 03            pushi 3 // $3 y
  0197:78               push1 
  0198:38 0106          pushi 106 // $106 east
  019b:39 07            pushi 7 // $7 cel
  019d:45 01 06         callb procedure_0001 6 // Say 

  01a0:33 0b              jmp code_01ad 

        code_01a2
  01a2:39 03            pushi 3 // $3 y
  01a4:78               push1 
  01a5:38 0106          pushi 106 // $106 east
  01a8:39 08            pushi 8 // $8 underBits
  01aa:45 01 06         callb procedure_0001 6 // Say 


        code_01ad
  01ad:3a                toss 
  01ae:c3 00              +al local0 
  01b0:32 00ce            jmp code_0281 

        code_01b3
  01b3:8b 00              lsl local0 
  01b5:3c                 dup 
  01b6:35 00              ldi 0 
  01b8:1a                 eq? 
  01b9:31 0e              bnt code_01c9 
  01bb:39 03            pushi 3 // $3 y
  01bd:78               push1 
  01be:38 0106          pushi 106 // $106 east
  01c1:39 09            pushi 9 // $9 nsTop
  01c3:45 01 06         callb procedure_0001 6 // Say 

  01c6:32 00b5            jmp code_027e 

        code_01c9
  01c9:3c                 dup 
  01ca:35 01              ldi 1 
  01cc:1a                 eq? 
  01cd:31 44              bnt code_0213 
  01cf:39 03            pushi 3 // $3 y
  01d1:78               push1 
  01d2:38 0106          pushi 106 // $106 east
  01d5:39 0a            pushi a // $a nsLeft
  01d7:45 01 06         callb procedure_0001 6 // Say 

  01da:39 03            pushi 3 // $3 y
  01dc:78               push1 
  01dd:38 0106          pushi 106 // $106 east
  01e0:39 0b            pushi b // $b nsBottom
  01e2:45 01 06         callb procedure_0001 6 // Say 

  01e5:39 03            pushi 3 // $3 y
  01e7:78               push1 
  01e8:38 0106          pushi 106 // $106 east
  01eb:39 0c            pushi c // $c nsRight
  01ed:45 01 06         callb procedure_0001 6 // Say 

  01f0:39 03            pushi 3 // $3 y
  01f2:78               push1 
  01f3:38 0106          pushi 106 // $106 east
  01f6:39 0d            pushi d // $d lsTop
  01f8:45 01 06         callb procedure_0001 6 // Say 

  01fb:39 03            pushi 3 // $3 y
  01fd:78               push1 
  01fe:38 0106          pushi 106 // $106 east
  0201:39 0e            pushi e // $e lsLeft
  0203:45 01 06         callb procedure_0001 6 // Say 

  0206:39 03            pushi 3 // $3 y
  0208:78               push1 
  0209:38 0106          pushi 106 // $106 east
  020c:39 0f            pushi f // $f lsBottom
  020e:45 01 06         callb procedure_0001 6 // Say 

  0211:33 6b              jmp code_027e 

        code_0213
  0213:3c                 dup 
  0214:35 02              ldi 2 
  0216:1a                 eq? 
  0217:31 0d              bnt code_0226 
  0219:39 03            pushi 3 // $3 y
  021b:78               push1 
  021c:38 0106          pushi 106 // $106 east
  021f:39 10            pushi 10 // $10 lsRight
  0221:45 01 06         callb procedure_0001 6 // Say 

  0224:33 58              jmp code_027e 

        code_0226
  0226:3c                 dup 
  0227:35 03              ldi 3 
  0229:1a                 eq? 
  022a:31 0d              bnt code_0239 
  022c:39 03            pushi 3 // $3 y
  022e:78               push1 
  022f:38 0106          pushi 106 // $106 east
  0232:39 11            pushi 11 // $11 signal
  0234:45 01 06         callb procedure_0001 6 // Say 

  0237:33 45              jmp code_027e 

        code_0239
  0239:3c                 dup 
  023a:35 04              ldi 4 
  023c:1a                 eq? 
  023d:31 0d              bnt code_024c 
  023f:39 03            pushi 3 // $3 y
  0241:78               push1 
  0242:38 0106          pushi 106 // $106 east
  0245:39 12            pushi 12 // $12 illegalBits
  0247:45 01 06         callb procedure_0001 6 // Say 

  024a:33 32              jmp code_027e 

        code_024c
  024c:3c                 dup 
  024d:35 05              ldi 5 
  024f:1a                 eq? 
  0250:31 0d              bnt code_025f 
  0252:39 03            pushi 3 // $3 y
  0254:78               push1 
  0255:38 0106          pushi 106 // $106 east
  0258:39 13            pushi 13 // $13 brTop
  025a:45 01 06         callb procedure_0001 6 // Say 

  025d:33 1f              jmp code_027e 

        code_025f
  025f:3c                 dup 
  0260:35 06              ldi 6 
  0262:1a                 eq? 
  0263:31 0d              bnt code_0272 
  0265:39 03            pushi 3 // $3 y
  0267:78               push1 
  0268:38 0106          pushi 106 // $106 east
  026b:39 14            pushi 14 // $14 brLeft
  026d:45 01 06         callb procedure_0001 6 // Say 

  0270:33 0c              jmp code_027e 

        code_0272
  0272:7a               push2 
  0273:38 0106          pushi 106 // $106 east
  0276:39 15            pushi 15 // $15 brBottom
  0278:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_027e
  027e:3a                toss 
  027f:c3 00              +al local0 

        code_0281
  0281:33 15              jmp code_0298 

        code_0283
  0283:78               push1 
  0284:74 01b5          lofss $043c // ecouter/celie
  0287:43 25 02         callk Said 2 

  028a:31 0c              bnt code_0298 
  028c:7a               push2 
  028d:38 0106          pushi 106 // $106 east
  0290:39 16            pushi 16 // $16 brRight
  0292:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0298
  0298:48                 ret 
    )

)

// 0536
(instance cook 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_0299
  0299:87 01              lap param1 
  029b:65 0a             aTop state 
  029d:36                push 
  029e:3c                 dup 
  029f:35 00              ldi 0 
  02a1:1a                 eq? 
  02a2:31 2c              bnt code_02d0 
  02a4:39 7e            pushi 7e // $7e setCycle
  02a6:78               push1 
  02a7:51 17            class Walk 
  02a9:36                push 
  02aa:39 12            pushi 12 // $12 illegalBits
  02ac:78               push1 
  02ad:76               push0 
  02ae:38 00d4          pushi d4 // $d4 setAvoider
  02b1:78               push1 
  02b2:39 56            pushi 56 // $56 new
  02b4:76               push0 
  02b5:51 21            class Avoid 
  02b7:4a 04             send 4 

  02b9:36                push 
  02ba:38 00d3          pushi d3 // $d3 setMotion
  02bd:39 04            pushi 4 // $4 x
  02bf:51 1d            class MoveTo 
  02c1:36                push 
  02c2:38 00c0          pushi c0 // $c0 gx
  02c5:39 7f            pushi 7f // $7f setReal
  02c7:7c            pushSelf 
  02c8:72 018d          lofsa $0458 // Celie
  02cb:4a 1e             send 1e 

  02cd:32 008b            jmp code_035b 

        code_02d0
  02d0:3c                 dup 
  02d1:35 01              ldi 1 
  02d3:1a                 eq? 
  02d4:31 23              bnt code_02f9 
  02d6:39 05            pushi 5 // $5 view
  02d8:78               push1 
  02d9:38 01e2          pushi 1e2 // $1e2 sel_482
  02dc:39 06            pushi 6 // $6 loop
  02de:78               push1 
  02df:39 04            pushi 4 // $4 x
  02e1:38 00d4          pushi d4 // $d4 setAvoider
  02e4:78               push1 
  02e5:76               push0 
  02e6:38 00a4          pushi a4 // $a4 cycleSpeed
  02e9:78               push1 
  02ea:78               push1 
  02eb:39 7e            pushi 7e // $7e setCycle
  02ed:7a               push2 
  02ee:51 1a            class End 
  02f0:36                push 
  02f1:7c            pushSelf 
  02f2:72 0163          lofsa $0458 // Celie
  02f5:4a 20             send 20 

  02f7:33 62              jmp code_035b 

        code_02f9
  02f9:3c                 dup 
  02fa:35 02              ldi 2 
  02fc:1a                 eq? 
  02fd:31 2a              bnt code_0329 
  02ff:38 0089          pushi 89 // $89 hide
  0302:76               push0 
  0303:80 0175            lag global373 
  0306:4a 04             send 4 

  0308:39 06            pushi 6 // $6 loop
  030a:78               push1 
  030b:39 05            pushi 5 // $5 view
  030d:38 00a4          pushi a4 // $a4 cycleSpeed
  0310:78               push1 
  0311:78               push1 
  0312:39 7e            pushi 7e // $7e setCycle
  0314:78               push1 
  0315:51 16            class Fwd 
  0317:36                push 
  0318:72 013d          lofsa $0458 // Celie
  031b:4a 12             send 12 

  031d:7a               push2 
  031e:39 03            pushi 3 // $3 y
  0320:39 08            pushi 8 // $8 underBits
  0322:43 40 04         callk Random 4 

  0325:65 12             aTop seconds 
  0327:33 32              jmp code_035b 

        code_0329
  0329:3c                 dup 
  032a:35 03              ldi 3 
  032c:1a                 eq? 
  032d:31 2c              bnt code_035b 
  032f:38 00ca          pushi ca // $ca show
  0332:76               push0 
  0333:80 0175            lag global373 
  0336:4a 04             send 4 

  0338:39 06            pushi 6 // $6 loop
  033a:78               push1 
  033b:39 04            pushi 4 // $4 x
  033d:39 07            pushi 7 // $7 cel
  033f:78               push1 
  0340:39 03            pushi 3 // $3 y
  0342:39 7e            pushi 7e // $7e setCycle
  0344:78               push1 
  0345:51 1b            class Beg 
  0347:36                push 
  0348:72 010d          lofsa $0458 // Celie
  034b:4a 12             send 12 

  034d:35 00              ldi 0 
  034f:65 0a             aTop state 
  0351:7a               push2 
  0352:39 03            pushi 3 // $3 y
  0354:39 08            pushi 8 // $8 underBits
  0356:43 40 04         callk Random 4 

  0359:65 12             aTop seconds 

        code_035b
  035b:3a                toss 
  035c:48                 ret 
    )

)

// 0566
(instance sitDown 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_035d
  035d:87 01              lap param1 
  035f:65 0a             aTop state 
  0361:36                push 
  0362:3c                 dup 
  0363:35 00              ldi 0 
  0365:1a                 eq? 
  0366:31 2d              bnt code_0395 
  0368:39 7e            pushi 7e // $7e setCycle
  036a:78               push1 
  036b:51 17            class Walk 
  036d:36                push 
  036e:39 12            pushi 12 // $12 illegalBits
  0370:78               push1 
  0371:76               push0 
  0372:38 00d4          pushi d4 // $d4 setAvoider
  0375:78               push1 
  0376:39 56            pushi 56 // $56 new
  0378:76               push0 
  0379:51 21            class Avoid 
  037b:4a 04             send 4 

  037d:36                push 
  037e:38 00d3          pushi d3 // $d3 setMotion
  0381:39 04            pushi 4 // $4 x
  0383:51 1d            class MoveTo 
  0385:36                push 
  0386:38 00d5          pushi d5 // $d5 ignoreHorizon
  0389:38 008a          pushi 8a // $8a enable
  038c:7c            pushSelf 
  038d:72 00c8          lofsa $0458 // Celie
  0390:4a 1e             send 1e 

  0392:32 009d            jmp code_0432 

        code_0395
  0395:3c                 dup 
  0396:35 01              ldi 1 
  0398:1a                 eq? 
  0399:31 24              bnt code_03bf 
  039b:39 05            pushi 5 // $5 view
  039d:78               push1 
  039e:38 01e9          pushi 1e9 // $1e9 sel_489
  03a1:38 00d4          pushi d4 // $d4 setAvoider
  03a4:78               push1 
  03a5:76               push0 
  03a6:39 07            pushi 7 // $7 cel
  03a8:78               push1 
  03a9:76               push0 
  03aa:39 7e            pushi 7e // $7e setCycle
  03ac:7a               push2 
  03ad:51 1a            class End 
  03af:36                push 
  03b0:7c            pushSelf 
  03b1:72 00a4          lofsa $0458 // Celie
  03b4:4a 1a             send 1a 

  03b6:78               push1 
  03b7:38 03d9          pushi 3d9 // $3d9 sel_985
  03ba:43 03 02         callk DisposeScript 2 

  03bd:33 73              jmp code_0432 

        code_03bf
  03bf:3c                 dup 
  03c0:35 02              ldi 2 
  03c2:1a                 eq? 
  03c3:31 31              bnt code_03f6 
  03c5:35 02              ldi 2 
  03c7:a0 00d5            sag global213 
  03ca:39 03            pushi 3 // $3 y
  03cc:78               push1 
  03cd:38 0106          pushi 106 // $106 east
  03d0:39 17            pushi 17 // $17 name
  03d2:45 01 06         callb procedure_0001 6 // Say 

  03d5:39 06            pushi 6 // $6 loop
  03d7:78               push1 
  03d8:7a               push2 
  03d9:72 007c          lofsa $0458 // Celie
  03dc:4a 06             send 6 

  03de:39 57            pushi 57 // $57 init
  03e0:76               push0 
  03e1:72 00d8          lofsa $04bc // CHead
  03e4:4a 04             send 4 

  03e6:76               push0 
  03e7:45 0f 00         callb procedure_000f 0 // cls 

  03ea:7a               push2 
  03eb:39 06            pushi 6 // $6 loop
  03ed:39 0c            pushi c // $c nsRight
  03ef:43 40 04         callk Random 4 

  03f2:65 12             aTop seconds 
  03f4:33 3c              jmp code_0432 

        code_03f6
  03f6:3c                 dup 
  03f7:35 03              ldi 3 
  03f9:1a                 eq? 
  03fa:31 17              bnt code_0413 
  03fc:39 7e            pushi 7e // $7e setCycle
  03fe:78               push1 
  03ff:51 1a            class End 
  0401:36                push 
  0402:72 00b7          lofsa $04bc // CHead
  0405:4a 06             send 6 

  0407:7a               push2 
  0408:39 06            pushi 6 // $6 loop
  040a:39 0c            pushi c // $c nsRight
  040c:43 40 04         callk Random 4 

  040f:65 12             aTop seconds 
  0411:33 1f              jmp code_0432 

        code_0413
  0413:3c                 dup 
  0414:35 04              ldi 4 
  0416:1a                 eq? 
  0417:31 19              bnt code_0432 
  0419:39 7e            pushi 7e // $7e setCycle
  041b:78               push1 
  041c:51 1b            class Beg 
  041e:36                push 
  041f:72 009a          lofsa $04bc // CHead
  0422:4a 06             send 6 

  0424:35 02              ldi 2 
  0426:65 0a             aTop state 
  0428:7a               push2 
  0429:39 06            pushi 6 // $6 loop
  042b:39 0c            pushi c // $c nsRight
  042d:43 40 04         callk Random 4 

  0430:65 12             aTop seconds 

        code_0432
  0432:3a                toss 
  0433:48                 ret 
    )

)



