contrib/pep8analysis/tests/privat/05-0et100.pep

   1 ; Semaine 5
   2 ; Programme qui demande (poliment) un nombre ;
   3 ; indique s'il est négatif, compris entre 0 et 100 ou plus grand que 100 ;
   4 ; puis dit au revoir.
   5 ; Jean Privat (C) 2010
   6          STRO    bjourMsg,d  ; print ...
   7          DECI    nb,d
   8          LDA     nb,d        ; A = readInt();
   9          CPA     min,i
  10          BRGE    pasNeg      ; if (A<min) {
  11          STRO    negMsg,d    ;   print ...
  12          BR      bye
  13 pasNeg:  CPA     max,i
  14          BRGT    pasMoyen    ; } else if (a<=max) {
  15          STRO    moyenMsg,d  ;   print...
  16          BR      bye         ; } else {
  17 pasMoyen:STRO    grandMsg,d  ;   print ... }
  18 bye:     STRO    byeMsg,d    ; print ...
  19          STOP
  20 bjourMsg:.ASCII  "Entrez un nombre (SVP) : \x00"
  21 moyenMsg:.ASCII  "Compris entre 0 et 100\n\x00"
  22 grandMsg:.ASCII  "Plus grand que 100\n\x00"
  23 negMsg:  .ASCII  "Négatif\n\x00"
  24 byeMsg:  .ASCII  "Au revoir.\n\x00"
  25 nb:      .BLOCK  2
  26 min:     .EQUATE 0
  27 max:     .EQUATE 100
  28          .END