(script 990)

(string
    string_0966 " Sauver"
    string_096e "Annuler"
    string_0976 "Ce r{pertoire ne peut contenir plus de sauvegardes. Vous devez changer de r{pertoire o^ {craser une sauvegarde existante."
    string_09f0 "Changer
\nR{pertoire"
    string_0a04 "Charger"
    string_0a0c "Charger un jeu"
    string_0a1b "Choisissez le jeu que vous voulez charger."
    string_0a46 "Entrez une description pour le jeu sauv{."
    string_0a70 "GetReplaceName"
    string_0a7f "OK"
    string_0a82 "Remplacer"
    string_0a8c "Restore"
    string_0a94 "SRDialog"
    string_0a9d "Sauver un jeu"
    string_0aab "Save"
    string_0ab0 "avec:"
    string_0ab6 "button1"
    string_0abe "button2"
    string_0ac6 "cancelI"
    string_0ace "changeDirI"
    string_0ad9 "editI"
    string_0adf "newName"
    string_0ae7 "okI"
    string_0aeb "oldName"
    string_0af3 "selectorI"
    string_0afd "text1"
    string_0b03 "text2"
    string_0b09 "textI"
    string_0b0f ""
)

(said
)

(local
    local0 = $0000
    local1 = $0000
    local2 = $0000
    local3 = $0000
    local4 = $0000
    local5 = $0a04
    local6 = $0966
    local7 = $0a82
    local8 = $0a82
    local9 = $0a1b
    local10 = $0a46
    local11 = $0976
    local12 = $0976
)

// 05dc
(class SRDialog of Dialog
    (properties
        elements $0
        size $0
        text $0
        window $0
        theItem $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
        time $0
        timer $0
        busy $0
    )
    (method (init) // method_00d0
  00d0:51 2f            class SysWindow 
  00d2:65 0e             aTop window 
  00d4:35 00              ldi 0 
  00d6:65 16             aTop nsBottom 
  00d8:39 03            pushi 3 // $3 y
  00da:39 17            pushi 17 // $17 name
  00dc:76               push0 
  00dd:81 01              lag gGame 
  00df:4a 04             send 4 

  00e1:36                push 
  00e2:8f 02              lsp param2 
  00e4:8f 03              lsp param3 
  00e6:43 61 06         callk GetSaveFiles 6 

  00e9:a3 02              sal local2 
  00eb:36                push 
  00ec:35 ff              ldi ff 
  00ee:1a                 eq? 
  00ef:31 03              bnt code_00f4 
  00f1:35 00              ldi 0 
  00f3:48                 ret 

        code_00f4
  00f4:76               push0 
  00f5:40 ff13 00        call proc_000c 0 

  00f9:a3 04              sal local4 
  00fb:36                push 
  00fc:35 01              ldi 1 
  00fe:1a                 eq? 
  00ff:31 2e              bnt code_012f 
  0101:39 1a            pushi 1a // $1a text
  0103:78               push1 
  0104:7a               push2 
  0105:8f 01              lsp param1 
  0107:8f 02              lsp param2 
  0109:43 4b 04         callk StrCpy 4 

  010c:36                push 
  010d:39 21            pushi 21 // $21 font
  010f:78               push1 
  0110:89 17              lsg gSmallFont 
  0112:38 008d          pushi 8d // $8d setSize
  0115:76               push0 
  0116:38 008f          pushi 8f // $8f moveTo
  0119:7a               push2 
  011a:39 04            pushi 4 // $4 x
  011c:39 04            pushi 4 // $4 x
  011e:72 0625          lofsa $0746 // editI
  0121:4a 18             send 18 

  0123:39 61            pushi 61 // $61 add
  0125:78               push1 
  0126:74 061d          lofss $0746 // editI
  0129:38 008d          pushi 8d // $8d setSize
  012c:76               push0 
  012d:54 0a             self a 


        code_012f
  012f:39 1a            pushi 1a // $1a text
  0131:78               push1 
  0132:8f 02              lsp param2 
  0134:39 21            pushi 21 // $21 font
  0136:78               push1 
  0137:89 17              lsg gSmallFont 
  0139:38 008d          pushi 8d // $8d setSize
  013c:76               push0 
  013d:38 008f          pushi 8f // $8f moveTo
  0140:7a               push2 
  0141:39 04            pushi 4 // $4 x
  0143:67 16             pTos nsBottom 
  0145:35 04              ldi 4 
  0147:02                 add 
  0148:36                push 
  0149:39 20            pushi 20 // $20 state
  014b:78               push1 
  014c:7a               push2 
  014d:72 05be          lofsa $070e // selectorI
  0150:4a 1e             send 1e 

  0152:39 0c            pushi c // $c nsRight
  0154:76               push0 
  0155:72 05b6          lofsa $070e // selectorI
  0158:4a 04             send 4 

  015a:36                push 
  015b:35 04              ldi 4 
  015d:02                 add 
  015e:a3 01              sal local1 
  0160:39 1a            pushi 1a // $1a text
  0162:78               push1 
  0163:83 04              lal local4 
  0165:9b 05             lsli local5 
  0167:38 008d          pushi 8d // $8d setSize
  016a:76               push0 
  016b:38 008f          pushi 8f // $8f moveTo
  016e:7a               push2 
  016f:8b 01              lsl local1 
  0171:39 09            pushi 9 // $9 nsTop
  0173:76               push0 
  0174:72 0597          lofsa $070e // selectorI
  0177:4a 04             send 4 

  0179:36                push 
  017a:39 20            pushi 20 // $20 state
  017c:78               push1 
  017d:8b 04              lsl local4 
  017f:35 03              ldi 3 
  0181:1a                 eq? 
  0182:31 04              bnt code_0188 
  0184:35 00              ldi 0 
  0186:33 02              jmp code_018a 

        code_0188
  0188:35 03              ldi 3 

        code_018a
  018a:36                push 
  018b:72 05ea          lofsa $0778 // okI
  018e:4a 18             send 18 

  0190:38 008d          pushi 8d // $8d setSize
  0193:76               push0 
  0194:38 008f          pushi 8f // $8f moveTo
  0197:7a               push2 
  0198:8b 01              lsl local1 
  019a:39 0b            pushi b // $b nsBottom
  019c:76               push0 
  019d:72 05d8          lofsa $0778 // okI
  01a0:4a 04             send 4 

  01a2:36                push 
  01a3:35 04              ldi 4 
  01a5:02                 add 
  01a6:36                push 
  01a7:39 20            pushi 20 // $20 state
  01a9:78               push1 
  01aa:39 20            pushi 20 // $20 state
  01ac:76               push0 
  01ad:72 05f6          lofsa $07a6 // cancelI
  01b0:4a 04             send 4 

  01b2:36                push 
  01b3:35 f7              ldi f7 
  01b5:12                 and 
  01b6:36                push 
  01b7:72 05ec          lofsa $07a6 // cancelI
  01ba:4a 12             send 12 

  01bc:38 008d          pushi 8d // $8d setSize
  01bf:76               push0 
  01c0:38 008f          pushi 8f // $8f moveTo
  01c3:7a               push2 
  01c4:8b 01              lsl local1 
  01c6:39 0b            pushi b // $b nsBottom
  01c8:76               push0 
  01c9:72 05da          lofsa $07a6 // cancelI
  01cc:4a 04             send 4 

  01ce:36                push 
  01cf:35 04              ldi 4 
  01d1:02                 add 
  01d2:36                push 
  01d3:39 20            pushi 20 // $20 state
  01d5:78               push1 
  01d6:39 20            pushi 20 // $20 state
  01d8:76               push0 
  01d9:72 05f8          lofsa $07d4 // changeDirI
  01dc:4a 04             send 4 

  01de:36                push 
  01df:35 f7              ldi f7 
  01e1:12                 and 
  01e2:36                push 
  01e3:72 05ee          lofsa $07d4 // changeDirI
  01e6:4a 12             send 12 

  01e8:39 61            pushi 61 // $61 add
  01ea:39 04            pushi 4 // $4 x
  01ec:74 051f          lofss $070e // selectorI
  01ef:74 0586          lofss $0778 // okI
  01f2:74 05b1          lofss $07a6 // cancelI
  01f5:74 05dc          lofss $07d4 // changeDirI
  01f8:38 008d          pushi 8d // $8d setSize
  01fb:76               push0 
  01fc:54 10             self 10 

  01fe:39 1a            pushi 1a // $1a text
  0200:78               push1 
  0201:83 04              lal local4 
  0203:9b 09             lsli local9 
  0205:38 008d          pushi 8d // $8d setSize
  0208:78               push1 
  0209:67 18             pTos nsRight 
  020b:63 14             pToa nsLeft 
  020d:04                 sub 
  020e:36                push 
  020f:35 08              ldi 8 
  0211:04                 sub 
  0212:36                push 
  0213:38 008f          pushi 8f // $8f moveTo
  0216:7a               push2 
  0217:39 04            pushi 4 // $4 x
  0219:39 04            pushi 4 // $4 x
  021b:72 05e4          lofsa $0802 // textI
  021e:4a 14             send 14 

  0220:39 0b            pushi b // $b nsBottom
  0222:76               push0 
  0223:72 05dc          lofsa $0802 // textI
  0226:4a 04             send 4 

  0228:36                push 
  0229:35 04              ldi 4 
  022b:02                 add 
  022c:a3 01              sal local1 
  022e:39 62            pushi 62 // $62 eachElementDo
  0230:39 03            pushi 3 // $3 y
  0232:38 008e          pushi 8e // $8e move
  0235:76               push0 
  0236:8b 01              lsl local1 
  0238:54 0a             self a 

  023a:39 61            pushi 61 // $61 add
  023c:78               push1 
  023d:74 05c2          lofss $0802 // textI
  0240:38 008d          pushi 8d // $8d setSize
  0243:76               push0 
  0244:38 0098          pushi 98 // $98 center
  0247:76               push0 
  0248:38 0097          pushi 97 // $97 open
  024b:7a               push2 
  024c:39 04            pushi 4 // $4 x
  024e:39 0f            pushi f // $f lsBottom
  0250:54 16             self 16 

  0252:35 01              ldi 1 
  0254:48                 ret 
    )

    (method (doit) // method_0255
  0255:3e 01aa           link 1aa // (var $1aa)
  0258:7c            pushSelf 
  0259:51 31            class Restore 
  025b:1a                 eq? 
  025c:31 33              bnt code_0291 
  025e:87 00              lap paramTotal 
  0260:31 2f              bnt code_0291 
  0262:87 01              lap param1 
  0264:31 2b              bnt code_0291 
  0266:78               push1 
  0267:39 04            pushi 4 // $4 x
  0269:5a 0004 0182       lea 4 182 
  026e:36                push 
  026f:38 03de          pushi 3de // $3de sel_990
  0272:76               push0 
  0273:39 17            pushi 17 // $17 name
  0275:76               push0 
  0276:81 01              lag gGame 
  0278:4a 04             send 4 

  027a:36                push 
  027b:43 4c 08         callk Format 8 

  027e:36                push 
  027f:43 29 02         callk FOpen 2 

  0282:a5 01              sat temp1 
  0284:36                push 
  0285:35 ff              ldi ff 
  0287:1a                 eq? 
  0288:31 01              bnt code_028b 
  028a:48                 ret 

        code_028b
  028b:78               push1 
  028c:8d 01              lst temp1 
  028e:43 2c 02         callk FClose 2 


        code_0291
  0291:39 57            pushi 57 // $57 init
  0293:39 03            pushi 3 // $3 y
  0295:8f 01              lsp param1 
  0297:5b 04 04           lea 4 4 
  029a:36                push 
  029b:5a 0004 016d       lea 4 16d 
  02a0:36                push 
  02a1:54 0a             self a 

  02a3:18                 not 
  02a4:31 03              bnt code_02a9 
  02a6:35 ff              ldi ff 
  02a8:48                 ret 

        code_02a9
  02a9:35 01              ldi 1 
  02ab:30 01e3            bnt code_0491 
  02ae:8b 04              lsl local4 
  02b0:3c                 dup 
  02b1:35 00              ldi 0 
  02b3:1a                 eq? 
  02b4:31 09              bnt code_02bf 
  02b6:83 02              lal local2 
  02b8:31 03              bnt code_02bd 
  02ba:72 04bb          lofsa $0778 // okI

        code_02bd
  02bd:33 19              jmp code_02d8 

        code_02bf
  02bf:3c                 dup 
  02c0:35 01              ldi 1 
  02c2:1a                 eq? 
  02c3:31 05              bnt code_02ca 
  02c5:72 047e          lofsa $0746 // editI
  02c8:33 0e              jmp code_02d8 

        code_02ca
  02ca:3c                 dup 
  02cb:35 02              ldi 2 
  02cd:1a                 eq? 
  02ce:31 05              bnt code_02d5 
  02d0:72 04a5          lofsa $0778 // okI
  02d3:33 03              jmp code_02d8 

        code_02d5
  02d5:72 04fc          lofsa $07d4 // changeDirI

        code_02d8
  02d8:3a                toss 
  02d9:a3 00              sal local0 
  02db:39 3c            pushi 3c // $3c doit
  02dd:78               push1 
  02de:8b 00              lsl local0 
  02e0:57 12 06         super Dialog 6 

  02e3:a3 01              sal local1 
  02e5:39 6e            pushi 6e // $6e indexOf
  02e7:78               push1 
  02e8:39 24            pushi 24 // $24 cursor
  02ea:76               push0 
  02eb:72 0420          lofsa $070e // selectorI
  02ee:4a 04             send 4 

  02f0:36                push 
  02f1:72 041a          lofsa $070e // selectorI
  02f4:4a 06             send 6 

  02f6:a3 03              sal local3 
  02f8:36                push 
  02f9:35 12              ldi 12 
  02fb:06                 mul 
  02fc:a5 03              sat temp3 
  02fe:8b 01              lsl local1 
  0300:72 04d1          lofsa $07d4 // changeDirI
  0303:1a                 eq? 
  0304:30 0092            bnt code_0399 
  0307:78               push1 
  0308:89 1e              lsg gCurSaveDir 
  030a:40 fd1e 02        call proc_002c 2 

  030e:30 0085            bnt code_0396 
  0311:39 03            pushi 3 // $3 y
  0313:39 17            pushi 17 // $17 name
  0315:76               push0 
  0316:81 01              lag gGame 
  0318:4a 04             send 4 

  031a:36                push 
  031b:5b 04 04           lea 4 4 
  031e:36                push 
  031f:5a 0004 016d       lea 4 16d 
  0324:36                push 
  0325:43 61 06         callk GetSaveFiles 6 

  0328:a3 02              sal local2 
  032a:36                push 
  032b:35 ff              ldi ff 
  032d:1a                 eq? 
  032e:31 07              bnt code_0337 
  0330:35 ff              ldi ff 
  0332:a5 02              sat temp2 
  0334:32 015a            jmp code_0491 

        code_0337
  0337:83 04              lal local4 
  0339:a5 00              sat temp0 
  033b:76               push0 
  033c:40 fccc 00        call proc_000c 0 

  0340:a3 04              sal local4 
  0342:36                push 
  0343:3c                 dup 
  0344:35 00              ldi 0 
  0346:1a                 eq? 
  0347:31 02              bnt code_034b 
  0349:33 42              jmp code_038d 

        code_034b
  034b:3c                 dup 
  034c:85 00              lat temp0 
  034e:1a                 eq? 
  034f:31 27              bnt code_0378 
  0351:39 65            pushi 65 // $65 contains
  0353:78               push1 
  0354:74 03ef          lofss $0746 // editI
  0357:54 06             self 6 

  0359:31 1b              bnt code_0376 
  035b:39 24            pushi 24 // $24 cursor
  035d:78               push1 
  035e:78               push1 
  035f:7a               push2 
  0360:8f 01              lsp param1 
  0362:5b 04 04           lea 4 4 
  0365:36                push 
  0366:43 4b 04         callk StrCpy 4 

  0369:36                push 
  036a:43 4a 02         callk StrLen 2 

  036d:36                push 
  036e:39 53            pushi 53 // $53 draw
  0370:76               push0 
  0371:72 03d2          lofsa $0746 // editI
  0374:4a 0a             send a 


        code_0376
  0376:33 15              jmp code_038d 

        code_0378
  0378:39 58            pushi 58 // $58 dispose
  037a:76               push0 
  037b:39 57            pushi 57 // $57 init
  037d:39 03            pushi 3 // $3 y
  037f:8f 01              lsp param1 
  0381:5b 04 04           lea 4 4 
  0384:36                push 
  0385:5a 0004 016d       lea 4 16d 
  038a:36                push 
  038b:54 0e             self e 


        code_038d
  038d:3a                toss 
  038e:39 53            pushi 53 // $53 draw
  0390:76               push0 
  0391:72 037a          lofsa $070e // selectorI
  0394:4a 04             send 4 


        code_0396
  0396:32 00f5            jmp code_048e 

        code_0399
  0399:8b 04              lsl local4 
  039b:35 02              ldi 2 
  039d:1a                 eq? 
  039e:31 2c              bnt code_03cc 
  03a0:8b 01              lsl local1 
  03a2:72 03d3          lofsa $0778 // okI
  03a5:1a                 eq? 
  03a6:31 24              bnt code_03cc 
  03a8:39 3c            pushi 3c // $3c doit
  03aa:78               push1 
  03ab:7a               push2 
  03ac:8f 01              lsp param1 
  03ae:85 03              lat temp3 
  03b0:5b 14 04           lea 14 4 
  03b3:36                push 
  03b4:43 4b 04         callk StrCpy 4 

  03b7:36                push 
  03b8:72 031f          lofsa $06da // GetReplaceName
  03bb:4a 06             send 6 

  03bd:31 0a              bnt code_03c9 
  03bf:83 03              lal local3 
  03c1:94 016d           lati temp365 
  03c4:a5 02              sat temp2 
  03c6:32 00c8            jmp code_0491 

        code_03c9
  03c9:32 fedd            jmp code_02a9 

        code_03cc
  03cc:8b 04              lsl local4 
  03ce:35 01              ldi 1 
  03d0:1a                 eq? 
  03d1:31 6d              bnt code_0440 
  03d3:8b 01              lsl local1 
  03d5:72 03a0          lofsa $0778 // okI
  03d8:1a                 eq? 
  03d9:2f 08               bt code_03e3 
  03db:8b 01              lsl local1 
  03dd:72 0366          lofsa $0746 // editI
  03e0:1a                 eq? 
  03e1:31 5d              bnt code_0440 

        code_03e3
  03e3:78               push1 
  03e4:8f 01              lsp param1 
  03e6:43 4a 02         callk StrLen 2 

  03e9:36                push 
  03ea:35 00              ldi 0 
  03ec:1a                 eq? 
  03ed:31 08              bnt code_03f7 
  03ef:76               push0 
  03f0:40 fccb 00        call proc_00bf 0 

  03f4:32 feb2            jmp code_02a9 

        code_03f7
  03f7:35 ff              ldi ff 
  03f9:a5 02              sat temp2 
  03fb:35 00              ldi 0 
  03fd:a3 01              sal local1 

        code_03ff
  03ff:8b 01              lsl local1 
  0401:83 02              lal local2 
  0403:22                 lt? 
  0404:31 1a              bnt code_0420 
  0406:7a               push2 
  0407:8f 01              lsp param1 
  0409:8b 01              lsl local1 
  040b:35 12              ldi 12 
  040d:06                 mul 
  040e:5b 14 04           lea 14 4 
  0411:36                push 
  0412:43 49 04         callk StrCmp 4 

  0415:a5 02              sat temp2 
  0417:18                 not 
  0418:31 02              bnt code_041c 
  041a:33 04              jmp code_0420 

        code_041c
  041c:c3 01              +al local1 
  041e:33 df              jmp code_03ff 

        code_0420
  0420:85 02              lat temp2 
  0422:18                 not 
  0423:31 07              bnt code_042c 
  0425:83 01              lal local1 
  0427:94 016d           lati temp365 
  042a:33 10              jmp code_043c 

        code_042c
  042c:8b 02              lsl local2 
  042e:35 14              ldi 14 
  0430:1a                 eq? 
  0431:31 07              bnt code_043a 
  0433:83 03              lal local3 
  0435:94 016d           lati temp365 
  0438:33 02              jmp code_043c 

        code_043a
  043a:83 02              lal local2 

        code_043c
  043c:a5 02              sat temp2 
  043e:33 51              jmp code_0491 

        code_0440
  0440:8b 01              lsl local1 
  0442:72 0333          lofsa $0778 // okI
  0445:1a                 eq? 
  0446:31 0b              bnt code_0453 
  0448:83 03              lal local3 
  044a:94 016d           lati temp365 
  044d:a5 02              sat temp2 
  044f:33 40              jmp code_0491 
  0451:33 3b              jmp code_048e 

        code_0453
  0453:8b 01              lsl local1 
  0455:35 00              ldi 0 
  0457:1a                 eq? 
  0458:2f 08               bt code_0462 
  045a:8b 01              lsl local1 
  045c:72 0347          lofsa $07a6 // cancelI
  045f:1a                 eq? 
  0460:31 08              bnt code_046a 

        code_0462
  0462:35 ff              ldi ff 
  0464:a5 02              sat temp2 
  0466:33 29              jmp code_0491 
  0468:33 24              jmp code_048e 

        code_046a
  046a:8b 04              lsl local4 
  046c:35 01              ldi 1 
  046e:1a                 eq? 
  046f:31 1d              bnt code_048e 
  0471:39 24            pushi 24 // $24 cursor
  0473:78               push1 
  0474:78               push1 
  0475:7a               push2 
  0476:8f 01              lsp param1 
  0478:85 03              lat temp3 
  047a:5b 14 04           lea 14 4 
  047d:36                push 
  047e:43 4b 04         callk StrCpy 4 

  0481:36                push 
  0482:43 4a 02         callk StrLen 2 

  0485:36                push 
  0486:39 53            pushi 53 // $53 draw
  0488:76               push0 
  0489:72 02ba          lofsa $0746 // editI
  048c:4a 0a             send a 


        code_048e
  048e:32 fe18            jmp code_02a9 

        code_0491
  0491:39 58            pushi 58 // $58 dispose
  0493:76               push0 
  0494:54 04             self 4 

  0496:85 02              lat temp2 
  0498:48                 ret 
    )

)

// 0634
(class Restore of SRDialog
    (properties
        elements $0
        size $0
        text"Charger un jeu"
        window $0
        theItem $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
        time $0
        timer $0
        busy $0
    )
)

// 0684
(class Save of SRDialog
    (properties
        elements $0
        size $0
        text"Sauver un jeu"
        window $0
        theItem $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
        time $0
        timer $0
        busy $0
    )
)

// 06d4
(instance GetReplaceName of Dialog
    (properties
        elements $0
        size $0
        text $0
        window $0
        theItem $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
        time $0
        timer $0
        busy $0
    )
    (method (doit) // method_0499
  0499:3f 01             link 1 // (var $1)
  049b:51 2f            class SysWindow 
  049d:65 0e             aTop window 
  049f:38 008d          pushi 8d // $8d setSize
  04a2:76               push0 
  04a3:38 008f          pushi 8f // $8f moveTo
  04a6:7a               push2 
  04a7:39 04            pushi 4 // $4 x
  04a9:39 04            pushi 4 // $4 x
  04ab:72 0384          lofsa $0832 // text1
  04ae:4a 0c             send c 

  04b0:39 61            pushi 61 // $61 add
  04b2:78               push1 
  04b3:74 037c          lofss $0832 // text1
  04b6:38 008d          pushi 8d // $8d setSize
  04b9:76               push0 
  04ba:54 0a             self a 

  04bc:39 1a            pushi 1a // $1a text
  04be:78               push1 
  04bf:8f 01              lsp param1 
  04c1:39 21            pushi 21 // $21 font
  04c3:78               push1 
  04c4:89 17              lsg gSmallFont 
  04c6:38 008d          pushi 8d // $8d setSize
  04c9:76               push0 
  04ca:38 008f          pushi 8f // $8f moveTo
  04cd:7a               push2 
  04ce:39 04            pushi 4 // $4 x
  04d0:67 16             pTos nsBottom 
  04d2:72 03bd          lofsa $0892 // oldName
  04d5:4a 18             send 18 

  04d7:39 61            pushi 61 // $61 add
  04d9:78               push1 
  04da:74 03b5          lofss $0892 // oldName
  04dd:38 008d          pushi 8d // $8d setSize
  04e0:76               push0 
  04e1:54 0a             self a 

  04e3:38 008d          pushi 8d // $8d setSize
  04e6:76               push0 
  04e7:38 008f          pushi 8f // $8f moveTo
  04ea:7a               push2 
  04eb:39 04            pushi 4 // $4 x
  04ed:67 16             pTos nsBottom 
  04ef:72 0370          lofsa $0862 // text2
  04f2:4a 0c             send c 

  04f4:39 61            pushi 61 // $61 add
  04f6:78               push1 
  04f7:74 0368          lofss $0862 // text2
  04fa:38 008d          pushi 8d // $8d setSize
  04fd:76               push0 
  04fe:54 0a             self a 

  0500:39 1a            pushi 1a // $1a text
  0502:78               push1 
  0503:8f 01              lsp param1 
  0505:39 21            pushi 21 // $21 font
  0507:78               push1 
  0508:89 17              lsg gSmallFont 
  050a:38 008d          pushi 8d // $8d setSize
  050d:76               push0 
  050e:38 008f          pushi 8f // $8f moveTo
  0511:7a               push2 
  0512:39 04            pushi 4 // $4 x
  0514:67 16             pTos nsBottom 
  0516:72 03a9          lofsa $08c2 // newName
  0519:4a 18             send 18 

  051b:39 61            pushi 61 // $61 add
  051d:78               push1 
  051e:74 03a1          lofss $08c2 // newName
  0521:38 008d          pushi 8d // $8d setSize
  0524:76               push0 
  0525:54 0a             self a 

  0527:39 0a            pushi a // $a nsLeft
  0529:78               push1 
  052a:76               push0 
  052b:39 09            pushi 9 // $9 nsTop
  052d:78               push1 
  052e:76               push0 
  052f:38 008d          pushi 8d // $8d setSize
  0532:76               push0 
  0533:72 03be          lofsa $08f4 // button1
  0536:4a 10             send 10 

  0538:39 0a            pushi a // $a nsLeft
  053a:78               push1 
  053b:76               push0 
  053c:39 09            pushi 9 // $9 nsTop
  053e:78               push1 
  053f:76               push0 
  0540:38 008d          pushi 8d // $8d setSize
  0543:76               push0 
  0544:72 03db          lofsa $0922 // button2
  0547:4a 10             send 10 

  0549:38 008f          pushi 8f // $8f moveTo
  054c:7a               push2 
  054d:67 18             pTos nsRight 
  054f:39 0c            pushi c // $c nsRight
  0551:76               push0 
  0552:72 03cd          lofsa $0922 // button2
  0555:4a 04             send 4 

  0557:36                push 
  0558:35 04              ldi 4 
  055a:02                 add 
  055b:04                 sub 
  055c:36                push 
  055d:67 16             pTos nsBottom 
  055f:72 03c0          lofsa $0922 // button2
  0562:4a 08             send 8 

  0564:38 008f          pushi 8f // $8f moveTo
  0567:7a               push2 
  0568:39 0a            pushi a // $a nsLeft
  056a:76               push0 
  056b:72 03b4          lofsa $0922 // button2
  056e:4a 04             send 4 

  0570:36                push 
  0571:39 0c            pushi c // $c nsRight
  0573:76               push0 
  0574:72 037d          lofsa $08f4 // button1
  0577:4a 04             send 4 

  0579:36                push 
  057a:35 04              ldi 4 
  057c:02                 add 
  057d:04                 sub 
  057e:36                push 
  057f:67 16             pTos nsBottom 
  0581:72 0370          lofsa $08f4 // button1
  0584:4a 08             send 8 

  0586:39 61            pushi 61 // $61 add
  0588:7a               push2 
  0589:74 0368          lofss $08f4 // button1
  058c:74 0393          lofss $0922 // button2
  058f:38 008d          pushi 8d // $8d setSize
  0592:76               push0 
  0593:38 0098          pushi 98 // $98 center
  0596:76               push0 
  0597:38 0097          pushi 97 // $97 open
  059a:7a               push2 
  059b:76               push0 
  059c:39 0f            pushi f // $f lsBottom
  059e:54 18             self 18 

  05a0:39 3c            pushi 3c // $3c doit
  05a2:78               push1 
  05a3:74 031c          lofss $08c2 // newName
  05a6:57 12 06         super Dialog 6 

  05a9:a5 00              sat temp0 
  05ab:39 58            pushi 58 // $58 dispose
  05ad:76               push0 
  05ae:54 04             self 4 

  05b0:78               push1 
  05b1:8f 01              lsp param1 
  05b3:43 4a 02         callk StrLen 2 

  05b6:18                 not 
  05b7:31 09              bnt code_05c2 
  05b9:76               push0 
  05ba:40 fb01 00        call proc_00bf 0 

  05be:35 00              ldi 0 
  05c0:a5 00              sat temp0 

        code_05c2
  05c2:8d 00              lst temp0 
  05c4:72 02fb          lofsa $08c2 // newName
  05c7:1a                 eq? 
  05c8:2f 08               bt code_05d2 
  05ca:8d 00              lst temp0 
  05cc:72 0325          lofsa $08f4 // button1
  05cf:1a                 eq? 
  05d0:31 02              bnt code_05d4 

        code_05d2
  05d2:35 01              ldi 1 

        code_05d4
  05d4:48                 ret 
  05d5:00                bnot 
    )

)

// 0708
(instance selectorI of DSelector
    (properties
        type $6
        state $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
        key $0
        said $0
        value $0
        font $0
        x $24
        y $8
        text $0
        cursor $0
        lsTop $0
        mark $0
    )
)

// 0740
(instance editI of DEdit
    (properties
        type $3
        state $1
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
        key $0
        said $0
        value $0
        text $0
        font $0
        max $23
        cursor $0
    )
)

// 0772
(instance okI of DButton
    (properties
        type $1
        state $3
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
        key $0
        said $0
        value $0
        text $0
        font $0
    )
)

// 07a0
(instance cancelI of DButton
    (properties
        type $1
        state $3
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
        key $0
        said $0
        value $0
        text"Annuler"
        font $0
    )
)

// 07ce
(instance changeDirI of DButton
    (properties
        type $1
        state $3
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
        key $0
        said $0
        value $0
        text"Changer

R{pertoire"
        font $0
    )
)

// 07fc
(instance textI of DText
    (properties
        type $2
        state $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
        key $0
        said $0
        value $0
        text $0
        font $0
        mode $0
    )
)

// 082c
(instance text1 of DText
    (properties
        type $2
        state $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
        key $0
        said $0
        value $0
        text"Remplacer"
        font $0
        mode $0
    )
)

// 085c
(instance text2 of DText
    (properties
        type $2
        state $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
        key $0
        said $0
        value $0
        text"avec:"
        font $0
        mode $0
    )
)

// 088c
(instance oldName of DText
    (properties
        type $2
        state $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
        key $0
        said $0
        value $0
        text $0
        font $1
        mode $0
    )
)

// 08bc
(instance newName of DEdit
    (properties
        type $3
        state $1
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
        key $0
        said $0
        value $0
        text $0
        font $0
        max $23
        cursor $0
    )
)

// 08ee
(instance button1 of DButton
    (properties
        type $1
        state $3
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
        key $0
        said $0
        value $0
        text"Remplacer"
        font $0
    )
)

// 091c
(instance button2 of DButton
    (properties
        type $1
        state $3
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
        key $0
        said $0
        value $0
        text"Annuler"
        font $0
    )
)


// EXPORTED procedure #0 (GetDirectory)
(procedure proc_002c
  002c:3f 4a             link 4a // (var $4a)

        code_002e
  002e:35 01              ldi 1 
  0030:31 7e              bnt code_00b0 
  0032:39 0d            pushi d // $d lsTop
  0034:38 03de          pushi 3de // $3de sel_990
  0037:78               push1 
  0038:39 21            pushi 21 // $21 font
  003a:76               push0 
  003b:39 29            pushi 29 // $29 edit
  003d:7a               push2 
  003e:5b 04 01           lea 4 1 
  0041:36                push 
  0042:8f 01              lsp param1 
  0044:43 4b 04         callk StrCpy 4 

  0047:36                push 
  0048:39 1d            pushi 1d // $1d back
  004a:39 51            pushi 51 // $51 button
  004c:74 0a30          lofss $0a7f // OK
  004f:78               push1 
  0050:39 51            pushi 51 // $51 button
  0052:74 0919          lofss $096e // Annuler
  0055:76               push0 
  0056:46 00ff 0000 1a  calle ff procedure_0000 1a // Print 

  005c:a5 00              sat temp0 
  005e:18                 not 
  005f:31 03              bnt code_0064 
  0061:35 00              ldi 0 
  0063:48                 ret 

        code_0064
  0064:78               push1 
  0065:5b 04 01           lea 4 1 
  0068:36                push 
  0069:43 4a 02         callk StrLen 2 

  006c:18                 not 
  006d:31 08              bnt code_0077 
  006f:78               push1 
  0070:5b 04 01           lea 4 1 
  0073:36                push 
  0074:43 62 02         callk GetCWD 2 


        code_0077
  0077:78               push1 
  0078:5b 04 01           lea 4 1 
  007b:36                push 
  007c:43 64 02         callk ValidPath 2 

  007f:31 0f              bnt code_0090 
  0081:7a               push2 
  0082:8f 01              lsp param1 
  0084:5b 04 01           lea 4 1 
  0087:36                push 
  0088:43 4b 04         callk StrCpy 4 

  008b:35 01              ldi 1 
  008d:48                 ret 
  008e:33 1d              jmp code_00ad 

        code_0090
  0090:39 03            pushi 3 // $3 y
  0092:39 04            pushi 4 // $4 x
  0094:5b 04 22           lea 4 22 
  0097:36                push 
  0098:38 03de          pushi 3de // $3de sel_990
  009b:7a               push2 
  009c:5b 04 01           lea 4 1 
  009f:36                push 
  00a0:43 4c 08         callk Format 8 

  00a3:36                push 
  00a4:39 21            pushi 21 // $21 font
  00a6:76               push0 
  00a7:46 00ff 0000 06  calle ff procedure_0000 6 // Print 


        code_00ad
  00ad:32 ff7e            jmp code_002e 

        code_00b0
  00b0:48                 ret 
)


(procedure proc_000c
  000c:7c            pushSelf 
  000d:51 31            class Restore 
  000f:1a                 eq? 
  0010:31 04              bnt code_0016 
  0012:35 00              ldi 0 
  0014:33 15              jmp code_002b 

        code_0016
  0016:76               push0 
  0017:40 0096 00        call proc_00b1 0 

  001b:31 04              bnt code_0021 
  001d:35 01              ldi 1 
  001f:33 0a              jmp code_002b 

        code_0021
  0021:83 02              lal local2 
  0023:31 04              bnt code_0029 
  0025:35 02              ldi 2 
  0027:33 02              jmp code_002b 

        code_0029
  0029:35 03              ldi 3 

        code_002b
  002b:48                 ret 
)

(procedure proc_00b1
  00b1:8b 02              lsl local2 
  00b3:35 14              ldi 14 
  00b5:22                 lt? 
  00b6:31 06              bnt code_00be 
  00b8:78               push1 
  00b9:89 1e              lsg gCurSaveDir 
  00bb:43 63 02         callk CheckFreeSpace 2 


        code_00be
  00be:48                 ret 
)

(procedure proc_00bf
  00bf:39 04            pushi 4 // $4 x
  00c1:38 03de          pushi 3de // $3de sel_990
  00c4:39 03            pushi 3 // $3 y
  00c6:39 21            pushi 21 // $21 font
  00c8:76               push0 
  00c9:46 00ff 0000 08  calle ff procedure_0000 8 // Print 

  00cf:48                 ret 
)

