?login_element?

Subversion Repositories NedoOS

Rev

Blame | Last modification | View Log | Download | RSS feed

  1.     ORG $1234
  2.     ; by default listing is ON (full listing)
  3.         IF 1
  4.             ; 1. active branch
  5.         ELSE
  6.             ; 1. ~LISTED~
  7.         ENDIF
  8.     OPT push listact    ; remember current state, switch listing to active-only
  9.         IF 1
  10.             ; 2. active branch (only)
  11.         ELSE
  12.             !!!ERROR!!! ; 2. ~SKIPPED~
  13.         ENDIF
  14.     OPT listall         ; switch listing back to ALL lines
  15.         IF 1
  16.             ; 3. active branch
  17.         ELSE
  18.             ; 3. ~LISTED~
  19.         ENDIF
  20.     OPT pop             ; restoring original state
  21.         IF 1
  22.             ; 4. active branch
  23.         ELSE
  24.             ; 4. ~LISTED~
  25.         ENDIF
  26.     OPT listact         ; switch listing to active-only
  27.         IF 1
  28.             ; 5. active branch (only)
  29.         ELSE
  30.             !!!ERROR!!! ; 5. ~SKIPPED~
  31.         ENDIF
  32.     OPT reset           ; reset to default state
  33.         IF 1
  34.             ; 6. active branch
  35.         ELSE
  36.             ; 6. ~LISTED~
  37.         ENDIF
  38.  
  39.     ; nested listing adjusting by suggested push+pop technique
  40.     OPT push listact    ; switch active listing twice
  41.     OPT push listact
  42.         IF 1
  43.             ; 7. active branch (only)
  44.         ELSE
  45.             !!!ERROR!!! ; 7. ~SKIPPED~
  46.         ENDIF
  47.     OPT push listoff    ; switch listing completely off temporarily
  48.         IF 1
  49.             ; 8. !!! HIDDEN !!!
  50.         ELSE
  51.             !!!ERROR!!! ; 8. ~SKIPPED~
  52.         ENDIF
  53.     OPT pop             ; restored to active listing
  54.         IF 1
  55.             ; 9. active branch (only)
  56.         ELSE
  57.             !!!ERROR!!! ; 9. ~SKIPPED~
  58.         ENDIF
  59.     OPT pop
  60.         IF 1
  61.             ; A. active branch (only)
  62.         ELSE
  63.             !!!ERROR!!! ; A. ~SKIPPED~
  64.         ENDIF
  65.     OPT pop             ; restored to full listing
  66.         IF 1
  67.             ; B. active branch
  68.         ELSE
  69.             ; B. ~LISTED~
  70.         ENDIF
  71.