easymint/FSELCOOK.LST at master · ragnar76/easymint · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
> FUNCTION fsel_cookie
  $F%
  LOCAL a&,a%
  IF @get_cookie("FSEL",a%)=TRUE
    IF a%
      IF MKL$({a%})="SLCT"                             ! Selectric...
        a&=INT{a%+6}
        IF BTST(a&,0)                                  ! aktiv?...
          IF id_ltmf!                                  ! LTMF leider auch...
            RETURN 1                                   ! ...Box rettet den Hintergrund nicht
          ELSE
            RETURN 2                                   ! ...=2
          ENDIF
        ENDIF
      ELSE                                             ! Jede andere Box...
        RETURN 1                                       ! ...=1
      ENDIF
    ENDIF
  ENDIF
  RETURN 0                                           ! Kein Fsel-Cookie
ENDFUNC