(script 997)

(string
    string_051c "  "
    string_0520 "    Quitter    "
    string_0530 "  Continue  "
    string_053d "  Red{marrer  "
    string_054c " Action "
    string_0555 " Continue "
    string_0560 " Fichier "
    string_056a " Son "
    string_0570 " Vitesse "
    string_057a "A propos de Bequest:Help`#1"
    string_0596 "Activer"
    string_059e "Donner "
    string_05a6 "Eteindre"
    string_05af "Interroger sur "
    string_05bf "Montrer "
    string_05c8 "Parler sur "
    string_05d4 "Pause`^p:Inventaire`^i:R{{crire`#3:Interroger sur...`^a:Parler sur...`^t:Montrer...`^s:Donner...`^g:Regarder...`^l"
    string_0647 "Rapide`+:Normal`[:Lent`-"
    string_0660 "Regarder "
    string_066a "Sauver`#5:Charger`#7:-!:Red{marrer`#9:Quitter`^q"
    string_069b "Teleport to room:"
    string_06ad "TheMenuBar"
    string_06b8 "Volume (1 - 16)?"
    string_06c9 "Volume`^v:-!:Eteindre=1`#2"
)

(said
    said_04b8 aider[/game]
    said_04c0 inventaire
    said_04c3 pause[/game]
    said_04cb quit[/game]
    said_04d3 redemarrer[/game]
    said_04db restaurer[/game]
    said_04e3 sauver[/game]
)

(local
)

// 04f2
(class TheMenuBar of MenuBar
    (properties
        state $0
    )
    (method (init) // method_004c
  004c:35 01              ldi 1 
  004e:a0 00d7            sag global215 
  0051:7a               push2 
  0052:74 04c7          lofss $051c //   
  0055:74 0522          lofss $057a // A propos de Bequest:Help`#1
  0058:43 22 04         callk AddMenu 4 

  005b:7a               push2 
  005c:74 0501          lofss $0560 //  Fichier 
  005f:74 0608          lofss $066a // Sauver`#5:Charger`#7:-!:Red{marrer`#9:Quitter`^q
  0062:43 22 04         callk AddMenu 4 

  0065:7a               push2 
  0066:74 04e3          lofss $054c //  Action 
  0069:74 0568          lofss $05d4 // Pause`^p:Inventaire`^i:R{{crire`#3:Interroger sur...`^a:Parler sur...`^t:Montrer...`^s:Donner...`^g:Regarder...`^l
  006c:43 22 04         callk AddMenu 4 

  006f:7a               push2 
  0070:74 04fd          lofss $0570 //  Vitesse 
  0073:74 05d1          lofss $0647 // Rapide`+:Normal`[:Lent`-
  0076:43 22 04         callk AddMenu 4 

  0079:7a               push2 
  007a:74 04ed          lofss $056a //  Son 
  007d:74 0649          lofss $06c9 // Volume`^v:-!:Eteindre=1`#2
  0080:43 22 04         callk AddMenu 4 

  0083:39 03            pushi 3 // $3 y
  0085:38 0503          pushi 503 // $503 sel_1283
  0088:39 6e            pushi 6e // $6e indexOf
  008a:78               push1 
  008b:39 04            pushi 4 // $4 x
  008d:43 31 02         callk DoSound 2 

  0090:31 05              bnt code_0097 
  0092:72 0511          lofsa $05a6 // Eteindre
  0095:33 03              jmp code_009a 

        code_0097
  0097:72 04fc          lofsa $0596 // Activer

        code_009a
  009a:36                push 
  009b:43 60 06         callk SetMenu 6 

  009e:39 03            pushi 3 // $3 y
  00a0:38 0102          pushi 102 // $102 keep
  00a3:39 6d            pushi 6d // $6d addAfter
  00a5:74 0410          lofss $04b8 // aider[/game]
  00a8:43 60 06         callk SetMenu 6 

  00ab:39 03            pushi 3 // $3 y
  00ad:38 0201          pushi 201 // $201 sel_513
  00b0:39 6d            pushi 6d // $6d addAfter
  00b2:74 042e          lofss $04e3 // sauver[/game]
  00b5:43 60 06         callk SetMenu 6 

  00b8:39 03            pushi 3 // $3 y
  00ba:38 0202          pushi 202 // $202 sel_514
  00bd:39 6d            pushi 6d // $6d addAfter
  00bf:74 0419          lofss $04db // restaurer[/game]
  00c2:43 60 06         callk SetMenu 6 

  00c5:39 03            pushi 3 // $3 y
  00c7:38 0204          pushi 204 // $204 sel_516
  00ca:39 6d            pushi 6d // $6d addAfter
  00cc:74 0404          lofss $04d3 // redemarrer[/game]
  00cf:43 60 06         callk SetMenu 6 

  00d2:39 03            pushi 3 // $3 y
  00d4:38 0205          pushi 205 // $205 sel_517
  00d7:39 6d            pushi 6d // $6d addAfter
  00d9:74 03ef          lofss $04cb // quit[/game]
  00dc:43 60 06         callk SetMenu 6 

  00df:39 03            pushi 3 // $3 y
  00e1:38 0301          pushi 301 // $301 sel_769
  00e4:39 6d            pushi 6d // $6d addAfter
  00e6:74 03da          lofss $04c3 // pause[/game]
  00e9:43 60 06         callk SetMenu 6 

  00ec:39 03            pushi 3 // $3 y
  00ee:38 0302          pushi 302 // $302 sel_770
  00f1:39 6d            pushi 6d // $6d addAfter
  00f3:74 03ca          lofss $04c0 // inventaire
  00f6:43 60 06         callk SetMenu 6 

  00f9:48                 ret 
    )

    (method (handleEvent) // method_00fa
  00fa:3e 0105           link 105 // (var $105)
  00fd:34 03e7            ldi 3e7 
  0100:a0 00dd            sag global221 
  0103:38 00fe          pushi fe // $fe setCursor
  0106:7a               push2 
  0107:38 03e7          pushi 3e7 // $3e7 sel_999
  010a:78               push1 
  010b:81 01              lag gGame 
  010d:4a 08             send 8 

  010f:39 6f            pushi 6f // $6f handleEvent
  0111:78               push1 
  0112:8f 01              lsp param1 
  0114:57 0b 06         super MenuBar 6 

  0117:a5 00              sat temp0 
  0119:36                push 
  011a:3c                 dup 
  011b:34 0101            ldi 101 
  011e:1a                 eq? 
  011f:31 33              bnt code_0154 
  0121:38 0086          pushi 86 // $86 pause
  0124:78               push1 
  0125:78               push1 
  0126:51 0a            class Sound 
  0128:4a 06             send 6 

  012a:a5 05              sat temp5 
  012c:39 09            pushi 9 // $9 nsTop
  012e:38 03e5          pushi 3e5 // $3e5 sel_997
  0131:76               push0 
  0132:39 21            pushi 21 // $21 font
  0134:89 17              lsg gSmallFont 
  0136:39 43            pushi 43 // $43 at
  0138:39 0a            pushi a // $a nsLeft
  013a:39 0a            pushi a // $a nsLeft
  013c:39 46            pushi 46 // $46 width
  013e:38 0122          pushi 122 // $122 xTilt
  0141:46 00ff 0000 12  calle ff procedure_0000 12 // Print 

  0147:38 0086          pushi 86 // $86 pause
  014a:78               push1 
  014b:8d 05              lst temp5 
  014d:51 0a            class Sound 
  014f:4a 06             send 6 

  0151:32 035e            jmp code_04b2 

        code_0154
  0154:3c                 dup 
  0155:34 0102            ldi 102 
  0158:1a                 eq? 
  0159:31 1d              bnt code_0178 
  015b:38 0086          pushi 86 // $86 pause
  015e:78               push1 
  015f:78               push1 
  0160:51 0a            class Sound 
  0162:4a 06             send 6 

  0164:a5 05              sat temp5 
  0166:76               push0 
  0167:40 feca 00        call proc_0035 0 

  016b:38 0086          pushi 86 // $86 pause
  016e:78               push1 
  016f:8d 05              lst temp5 
  0171:51 0a            class Sound 
  0173:4a 06             send 6 

  0175:32 033a            jmp code_04b2 

        code_0178
  0178:3c                 dup 
  0179:34 0201            ldi 201 
  017c:1a                 eq? 
  017d:31 1c              bnt code_019b 
  017f:80 00be            lag global190 
  0182:31 0d              bnt code_0191 
  0184:7a               push2 
  0185:38 03e5          pushi 3e5 // $3e5 sel_997
  0188:78               push1 
  0189:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  018f:33 07              jmp code_0198 

        code_0191
  0191:39 4e            pushi 4e // $4e save
  0193:76               push0 
  0194:81 01              lag gGame 
  0196:4a 04             send 4 


        code_0198
  0198:32 0317            jmp code_04b2 

        code_019b
  019b:3c                 dup 
  019c:34 0202            ldi 202 
  019f:1a                 eq? 
  01a0:31 1c              bnt code_01be 
  01a2:80 00be            lag global190 
  01a5:31 0d              bnt code_01b4 
  01a7:7a               push2 
  01a8:38 03e5          pushi 3e5 // $3e5 sel_997
  01ab:7a               push2 
  01ac:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  01b2:33 07              jmp code_01bb 

        code_01b4
  01b4:39 4f            pushi 4f // $4f restore
  01b6:76               push0 
  01b7:81 01              lag gGame 
  01b9:4a 04             send 4 


        code_01bb
  01bb:32 02f4            jmp code_04b2 

        code_01be
  01be:3c                 dup 
  01bf:34 0204            ldi 204 
  01c2:1a                 eq? 
  01c3:31 3e              bnt code_0203 
  01c5:38 0086          pushi 86 // $86 pause
  01c8:78               push1 
  01c9:78               push1 
  01ca:51 0a            class Sound 
  01cc:4a 06             send 6 

  01ce:a5 05              sat temp5 
  01d0:39 0a            pushi a // $a nsLeft
  01d2:38 03e5          pushi 3e5 // $3e5 sel_997
  01d5:39 03            pushi 3 // $3 y
  01d7:39 21            pushi 21 // $21 font
  01d9:76               push0 
  01da:39 51            pushi 51 // $51 button
  01dc:74 035e          lofss $053d //   Red{marrer  
  01df:78               push1 
  01e0:39 51            pushi 51 // $51 button
  01e2:74 0370          lofss $0555 //  Continue 
  01e5:76               push0 
  01e6:46 00ff 0000 14  calle ff procedure_0000 14 // Print 

  01ec:31 08              bnt code_01f6 
  01ee:38 00fa          pushi fa // $fa restart
  01f1:76               push0 
  01f2:81 01              lag gGame 
  01f4:4a 04             send 4 


        code_01f6
  01f6:38 0086          pushi 86 // $86 pause
  01f9:78               push1 
  01fa:8d 05              lst temp5 
  01fc:51 0a            class Sound 
  01fe:4a 06             send 6 

  0200:32 02af            jmp code_04b2 

        code_0203
  0203:3c                 dup 
  0204:34 0205            ldi 205 
  0207:1a                 eq? 
  0208:31 36              bnt code_0240 
  020a:38 0086          pushi 86 // $86 pause
  020d:78               push1 
  020e:78               push1 
  020f:51 0a            class Sound 
  0211:4a 06             send 6 

  0213:a5 05              sat temp5 
  0215:39 0a            pushi a // $a nsLeft
  0217:38 03e5          pushi 3e5 // $3e5 sel_997
  021a:39 04            pushi 4 // $4 x
  021c:39 21            pushi 21 // $21 font
  021e:76               push0 
  021f:39 51            pushi 51 // $51 button
  0221:74 02fc          lofss $0520 //     Quitter    
  0224:78               push1 
  0225:39 51            pushi 51 // $51 button
  0227:74 032b          lofss $0555 //  Continue 
  022a:76               push0 
  022b:46 00ff 0000 14  calle ff procedure_0000 14 // Print 

  0231:a1 04              sag gQuit 
  0233:38 0086          pushi 86 // $86 pause
  0236:78               push1 
  0237:8d 05              lst temp5 
  0239:51 0a            class Sound 
  023b:4a 06             send 6 

  023d:32 0272            jmp code_04b2 

        code_0240
  0240:3c                 dup 
  0241:34 0301            ldi 301 
  0244:1a                 eq? 
  0245:31 2e              bnt code_0275 
  0247:38 0086          pushi 86 // $86 pause
  024a:78               push1 
  024b:78               push1 
  024c:51 0a            class Sound 
  024e:4a 06             send 6 

  0250:a5 05              sat temp5 
  0252:39 07            pushi 7 // $7 cel
  0254:38 03e5          pushi 3e5 // $3e5 sel_997
  0257:39 05            pushi 5 // $5 view
  0259:39 21            pushi 21 // $21 font
  025b:76               push0 
  025c:39 51            pushi 51 // $51 button
  025e:74 02cf          lofss $0530 //   Continue  
  0261:76               push0 
  0262:46 00ff 0000 0e  calle ff procedure_0000 e // Print 

  0268:38 0086          pushi 86 // $86 pause
  026b:78               push1 
  026c:8d 05              lst temp5 
  026e:51 0a            class Sound 
  0270:4a 06             send 6 

  0272:32 023d            jmp code_04b2 

        code_0275
  0275:3c                 dup 
  0276:34 0302            ldi 302 
  0279:1a                 eq? 
  027a:31 39              bnt code_02b5 
  027c:78               push1 
  027d:38 0800          pushi 800 // $800 sel_2048
  0280:45 08 02         callb procedure_0008 2 // HaveMem 

  0283:18                 not 
  0284:31 0e              bnt code_0294 
  0286:7a               push2 
  0287:38 03e5          pushi 3e5 // $3e5 sel_997
  028a:39 06            pushi 6 // $6 loop
  028c:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0292:33 1e              jmp code_02b2 

        code_0294
  0294:38 0086          pushi 86 // $86 pause
  0297:78               push1 
  0298:78               push1 
  0299:51 0a            class Sound 
  029b:4a 06             send 6 

  029d:a5 05              sat temp5 
  029f:39 5a            pushi 5a // $5a showSelf
  02a1:78               push1 
  02a2:89 00              lsg gEgo 
  02a4:51 34            class Inv 
  02a6:4a 06             send 6 

  02a8:38 0086          pushi 86 // $86 pause
  02ab:78               push1 
  02ac:8d 05              lst temp5 
  02ae:51 0a            class Sound 
  02b0:4a 06             send 6 


        code_02b2
  02b2:32 01fd            jmp code_04b2 

        code_02b5
  02b5:3c                 dup 
  02b6:34 0303            ldi 303 
  02b9:1a                 eq? 
  02ba:31 1c              bnt code_02d8 
  02bc:39 4c            pushi 4c // $4c claimed
  02be:78               push1 
  02bf:76               push0 
  02c0:39 22            pushi 22 // $22 type
  02c2:78               push1 
  02c3:39 04            pushi 4 // $4 x
  02c5:39 28            pushi 28 // $28 message
  02c7:78               push1 
  02c8:38 00e4          pushi e4 // $e4 echo
  02cb:76               push0 
  02cc:51 2b            class User 
  02ce:4a 04             send 4 

  02d0:36                push 
  02d1:87 01              lap param1 
  02d3:4a 12             send 12 

  02d5:32 01da            jmp code_04b2 

        code_02d8
  02d8:3c                 dup 
  02d9:34 0304            ldi 304 
  02dc:1a                 eq? 
  02dd:31 2c              bnt code_030b 
  02df:39 4c            pushi 4c // $4c claimed
  02e1:78               push1 
  02e2:76               push0 
  02e3:39 22            pushi 22 // $22 type
  02e5:78               push1 
  02e6:39 04            pushi 4 // $4 x
  02e8:39 28            pushi 28 // $28 message
  02ea:78               push1 
  02eb:38 00e4          pushi e4 // $e4 echo
  02ee:76               push0 
  02ef:51 2b            class User 
  02f1:4a 04             send 4 

  02f3:36                push 
  02f4:87 01              lap param1 
  02f6:4a 12             send 12 

  02f8:7a               push2 
  02f9:38 00e7          pushi e7 // $e7 inputLineAddr
  02fc:76               push0 
  02fd:51 2b            class User 
  02ff:4a 04             send 4 

  0301:36                push 
  0302:74 02aa          lofss $05af // Interroger sur 
  0305:43 4b 04         callk StrCpy 4 

  0308:32 01a7            jmp code_04b2 

        code_030b
  030b:3c                 dup 
  030c:34 0305            ldi 305 
  030f:1a                 eq? 
  0310:31 2c              bnt code_033e 
  0312:39 4c            pushi 4c // $4c claimed
  0314:78               push1 
  0315:76               push0 
  0316:39 22            pushi 22 // $22 type
  0318:78               push1 
  0319:39 04            pushi 4 // $4 x
  031b:39 28            pushi 28 // $28 message
  031d:78               push1 
  031e:38 00e4          pushi e4 // $e4 echo
  0321:76               push0 
  0322:51 2b            class User 
  0324:4a 04             send 4 

  0326:36                push 
  0327:87 01              lap param1 
  0329:4a 12             send 12 

  032b:7a               push2 
  032c:38 00e7          pushi e7 // $e7 inputLineAddr
  032f:76               push0 
  0330:51 2b            class User 
  0332:4a 04             send 4 

  0334:36                push 
  0335:74 0290          lofss $05c8 // Parler sur 
  0338:43 4b 04         callk StrCpy 4 

  033b:32 0174            jmp code_04b2 

        code_033e
  033e:3c                 dup 
  033f:34 0306            ldi 306 
  0342:1a                 eq? 
  0343:31 2c              bnt code_0371 
  0345:39 4c            pushi 4c // $4c claimed
  0347:78               push1 
  0348:76               push0 
  0349:39 22            pushi 22 // $22 type
  034b:78               push1 
  034c:39 04            pushi 4 // $4 x
  034e:39 28            pushi 28 // $28 message
  0350:78               push1 
  0351:38 00e4          pushi e4 // $e4 echo
  0354:76               push0 
  0355:51 2b            class User 
  0357:4a 04             send 4 

  0359:36                push 
  035a:87 01              lap param1 
  035c:4a 12             send 12 

  035e:7a               push2 
  035f:38 00e7          pushi e7 // $e7 inputLineAddr
  0362:76               push0 
  0363:51 2b            class User 
  0365:4a 04             send 4 

  0367:36                push 
  0368:74 0254          lofss $05bf // Montrer 
  036b:43 4b 04         callk StrCpy 4 

  036e:32 0141            jmp code_04b2 

        code_0371
  0371:3c                 dup 
  0372:34 0307            ldi 307 
  0375:1a                 eq? 
  0376:31 2c              bnt code_03a4 
  0378:39 4c            pushi 4c // $4c claimed
  037a:78               push1 
  037b:76               push0 
  037c:39 22            pushi 22 // $22 type
  037e:78               push1 
  037f:39 04            pushi 4 // $4 x
  0381:39 28            pushi 28 // $28 message
  0383:78               push1 
  0384:38 00e4          pushi e4 // $e4 echo
  0387:76               push0 
  0388:51 2b            class User 
  038a:4a 04             send 4 

  038c:36                push 
  038d:87 01              lap param1 
  038f:4a 12             send 12 

  0391:7a               push2 
  0392:38 00e7          pushi e7 // $e7 inputLineAddr
  0395:76               push0 
  0396:51 2b            class User 
  0398:4a 04             send 4 

  039a:36                push 
  039b:74 0200          lofss $059e // Donner 
  039e:43 4b 04         callk StrCpy 4 

  03a1:32 010e            jmp code_04b2 

        code_03a4
  03a4:3c                 dup 
  03a5:34 0308            ldi 308 
  03a8:1a                 eq? 
  03a9:31 2c              bnt code_03d7 
  03ab:39 4c            pushi 4c // $4c claimed
  03ad:78               push1 
  03ae:76               push0 
  03af:39 22            pushi 22 // $22 type
  03b1:78               push1 
  03b2:39 04            pushi 4 // $4 x
  03b4:39 28            pushi 28 // $28 message
  03b6:78               push1 
  03b7:38 00e4          pushi e4 // $e4 echo
  03ba:76               push0 
  03bb:51 2b            class User 
  03bd:4a 04             send 4 

  03bf:36                push 
  03c0:87 01              lap param1 
  03c2:4a 12             send 12 

  03c4:7a               push2 
  03c5:38 00e7          pushi e7 // $e7 inputLineAddr
  03c8:76               push0 
  03c9:51 2b            class User 
  03cb:4a 04             send 4 

  03cd:36                push 
  03ce:74 028f          lofss $0660 // Regarder 
  03d1:43 4b 04         callk StrCpy 4 

  03d4:32 00db            jmp code_04b2 

        code_03d7
  03d7:3c                 dup 
  03d8:34 0401            ldi 401 
  03db:1a                 eq? 
  03dc:31 14              bnt code_03f2 
  03de:89 03              lsg gSpeed 
  03e0:35 01              ldi 1 
  03e2:1e                 gt? 
  03e3:31 0a              bnt code_03ef 
  03e5:38 00fd          pushi fd // $fd setSpeed
  03e8:78               push1 
  03e9:e9 03              -sg gSpeed 
  03eb:81 01              lag gGame 
  03ed:4a 06             send 6 


        code_03ef
  03ef:32 00c0            jmp code_04b2 

        code_03f2
  03f2:3c                 dup 
  03f3:34 0402            ldi 402 
  03f6:1a                 eq? 
  03f7:31 0d              bnt code_0406 
  03f9:38 00fd          pushi fd // $fd setSpeed
  03fc:78               push1 
  03fd:39 06            pushi 6 // $6 loop
  03ff:81 01              lag gGame 
  0401:4a 06             send 6 

  0403:32 00ac            jmp code_04b2 

        code_0406
  0406:3c                 dup 
  0407:34 0403            ldi 403 
  040a:1a                 eq? 
  040b:31 0d              bnt code_041a 
  040d:38 00fd          pushi fd // $fd setSpeed
  0410:78               push1 
  0411:c9 03              +sg gSpeed 
  0413:81 01              lag gGame 
  0415:4a 06             send 6 

  0417:32 0098            jmp code_04b2 

        code_041a
  041a:3c                 dup 
  041b:34 0501            ldi 501 
  041e:1a                 eq? 
  041f:31 49              bnt code_046a 
  0421:89 0b              lsg gCurRoomNum 
  0423:35 4a              ldi 4a 
  0425:1c                 ne? 
  0426:31 40              bnt code_0468 
  0428:89 0b              lsg gCurRoomNum 
  042a:35 40              ldi 40 
  042c:1c                 ne? 
  042d:31 39              bnt code_0468 
  042f:7a               push2 
  0430:74 0285          lofss $06b8 // Volume (1 - 16)?
  0433:78               push1 
  0434:78               push1 
  0435:39 08            pushi 8 // $8 underBits
  0437:43 31 02         callk DoSound 2 

  043a:02                 add 
  043b:36                push 
  043c:46 00ff 0003 04  calle ff procedure_0003 4 // GetNumber 

  0442:a5 01              sat temp1 
  0444:36                push 
  0445:35 ff              ldi ff 
  0447:1c                 ne? 
  0448:31 1e              bnt code_0468 
  044a:ed 01              -st temp1 
  044c:35 00              ldi 0 
  044e:22                 lt? 
  044f:31 04              bnt code_0455 
  0451:35 00              ldi 0 
  0453:a5 01              sat temp1 

        code_0455
  0455:8d 01              lst temp1 
  0457:35 0f              ldi f 
  0459:1e                 gt? 
  045a:31 04              bnt code_0460 
  045c:35 0f              ldi f 
  045e:a5 01              sat temp1 

        code_0460
  0460:7a               push2 
  0461:39 08            pushi 8 // $8 underBits
  0463:8d 01              lst temp1 
  0465:43 31 04         callk DoSound 4 


        code_0468
  0468:33 48              jmp code_04b2 

        code_046a
  046a:3c                 dup 
  046b:34 0503            ldi 503 
  046e:1a                 eq? 
  046f:31 32              bnt code_04a3 
  0471:78               push1 
  0472:39 04            pushi 4 // $4 x
  0474:43 31 02         callk DoSound 2 

  0477:a5 01              sat temp1 
  0479:31 0f              bnt code_048a 
  047b:39 03            pushi 3 // $3 y
  047d:38 0503          pushi 503 // $503 sel_1283
  0480:39 6e            pushi 6e // $6e indexOf
  0482:74 0111          lofss $0596 // Activer
  0485:43 60 06         callk SetMenu 6 

  0488:33 0d              jmp code_0497 

        code_048a
  048a:39 03            pushi 3 // $3 y
  048c:38 0503          pushi 503 // $503 sel_1283
  048f:39 6e            pushi 6e // $6e indexOf
  0491:74 0112          lofss $05a6 // Eteindre
  0494:43 60 06         callk SetMenu 6 


        code_0497
  0497:7a               push2 
  0498:39 04            pushi 4 // $4 x
  049a:85 01              lat temp1 
  049c:18                 not 
  049d:36                push 
  049e:43 31 04         callk DoSound 4 

  04a1:33 0f              jmp code_04b2 

        code_04a3
  04a3:80 0188            lag global392 
  04a6:31 0a              bnt code_04b2 
  04a8:39 3c            pushi 3c // $3c doit
  04aa:78               push1 
  04ab:8d 00              lst temp0 
  04ad:80 0188            lag global392 
  04b0:4a 06             send 6 


        code_04b2
  04b2:3a                toss 
  04b3:48                 ret 
    )

)


// EXPORTED procedure #2 (proc997_2)
(procedure proc_0010
  0010:3f 01             link 1 // (var $1)
  0012:78               push1 
  0013:74 0685          lofss $069b // Teleport to room:
  0016:46 00ff 0003 02  calle ff procedure_0003 2 // GetNumber 

  001c:a5 00              sat temp0 
  001e:38 00f8          pushi f8 // $f8 newRoom
  0021:78               push1 
  0022:8d 00              lst temp0 
  0024:35 01              ldi 1 
  0026:22                 lt? 
  0027:31 04              bnt code_002d 
  0029:35 01              ldi 1 
  002b:33 02              jmp code_002f 

        code_002d
  002d:85 00              lat temp0 

        code_002f
  002f:36                push 
  0030:87 01              lap param1 
  0032:4a 06             send 6 

  0034:48                 ret 
)


(procedure proc_0035
  0035:39 06            pushi 6 // $6 loop
  0037:38 03e5          pushi 3e5 // $3e5 sel_997
  003a:39 07            pushi 7 // $7 cel
  003c:39 21            pushi 21 // $21 font
  003e:39 04            pushi 4 // $4 x
  0040:39 46            pushi 46 // $46 width
  0042:38 0113          pushi 113 // $113 pauseCel
  0045:46 00ff 0000 0c  calle ff procedure_0000 c // Print 

  004b:48                 ret 
)

