contrib/pep8analysis/tests/privat/06-menu.pep

   1 ; Semaine 6
   2 ; Programme qui affiche un menu
   3 ; Jean Privat (C) 2010
   4 menu:    STRO    menuTxt,d   ; print(menu)
   5          DECI    opt,d       ; opt = readNumber()
   6          LDX     opt,d
   7          CPX     1,i
   8          BRLT    err
   9          CPX     5,i
  10          BRGT    err         ; if (opt<1 || opt>5) throws new Error();
  11          SUBX    1,i
  12          ASLX
  13          BR      case,x      ; switch(opt) { // X = (opt-1)*2
  14 case:    .ADDRSS cas1
  15          .ADDRSS cas2
  16          .ADDRSS cas3
  17          .ADDRSS cas4
  18 cas1:    STRO    cas1Msg,d   ; case 1: ...
  19          BR      menu        ; break;
  20 cas2:    STRO    cas2Msg,d   ; case 2: ...
  21          BR      menu        ; break;
  22 cas3:    STRO    cas3Msg,d   ; case 3: ...
  23          BR      menu        ; break;
  24 cas4:    STOP                ; case 4: ...
  25 err:     STRO    errMsg,d
  26          BR      menu
  27 menuTxt: .ASCII  "******************\n"
  28          .ASCII  "*     M E N U    *\n"
  29          .ASCII  "* [1]-raz        *\n"
  30          .ASCII  "* [2]-ajouter    *\n"
  31          .ASCII  "* [3]-soustraire *\n"
  32          .ASCII  "* [4]-quitter    *\n"
  33          .ASCII  "******************\n"
  34          .ASCII  "Votre choix : \x00"
  35 opt:     .BLOCK  2
  36 errMsg:  .ASCII  "Erreur: Option invalide\n\x00"
  37 cas1Msg: .ASCII  "RAZ\n\x00"
  38 cas2Msg: .ASCII  "...\n\x00"
  39 cas3Msg: .ASCII  "...\n\x00"
  40          .END