; MuiTestt (c) 1998 Lutz Rodenhauser
; $VER: MuiTest 1.001 (9.9.98)

(user 2)
(set @abort-button "Abbrechen")
(set @pretend FALSE)

(procedure P_LIBversion #name (
  (set #ausgabe (cat "\n\n\n\nTeste " #name))
  (working #ausgabe)
  (set #vpur (getversion #name))
  (set #vers (shiftright #vpur 16))
  (set #revi (bitand #vpur $FFFF))
  (set #version (cat #vers "." #revi))
  ))

(procedure P_LIBsize #name (
  (set #groesse (getsize #name))
  ))

(procedure P_LIBfalsch #name #version #korrekt (
  (set #ausgabe (cat #header "\n\n" #name " hat Version " #version "\n\n"
       "MUI 3.8 verlangt aber Version " #korrekt))
  (if (= #version "0.0") (set #ausgabe (cat #header "\n\n" #name "nicht vorhanden!")))
  (message #ausgabe)
  ))

(procedure P_LIBfehler #name #groesse #richtig (
  (set #ausgabe (cat #header "\n\n" #name " hat eine Größe von " #groesse " Byte.\n\n"
       "Richtig wären " #richtig " Byte!!!"))
  (message #ausgabe)
  ))

(set #prog "\n\nMUI-Tester 1.001")
(set #mess1 (cat #prog "\n\n(c) 1998 Lutz Rodenhauser\n\nTest jetzt starten?"))
(set #header (cat #prog "  (c) 1998 Lutz Rodenhauser\n\n"))
(message #mess1)
;

(set #name "mui:mui")
(set #korrekt "19.14")
(set #richtig "7460")
(P_LIBversion #name)
(if (<> #version #korrekt) (P_LIBfalsch)
    ((P_LIBsize #name)
     (if (<> #richtig #groesse) (P_LIBfehler #name #groesse #richtig))))
;

(set #name "mui:psi")
(set #korrekt "19.8")
(set #richtig "32888")
(P_LIBversion #name)
(if (<> #version #korrekt) (P_LIBfalsch)
    ((P_LIBsize #name)
     (if (<> #richtig #groesse) (P_LIBfehler #name #groesse #richtig))))

;

(set #name "mui:libs/muimaster.library")
(set #korrekt "19.35")
(set #richtig "166412")
(P_LIBversion #name)
(if (<> #version #korrekt) (P_LIBfalsch)
    ((P_LIBsize #name)
     (if (<> #richtig #groesse) (P_LIBfehler #name #groesse #richtig))))

;

(set #name "mui:libs/muipropg.class")
(set #korrekt "19.9")
(set #richtig "4572")
(P_LIBversion #name)
(if (<> #version #korrekt) (P_LIBfalsch)
    ((P_LIBsize #name)
     (if (<> #richtig #groesse) (P_LIBfehler #name #groesse #richtig))))
;

(set #name "mui:libs/muiwinscroller.class")
(set #korrekt "19.9")
(set #richtig "2864")
(P_LIBversion #name)
(if (<> #version #korrekt) (P_LIBfalsch)
    ((P_LIBsize #name)
     (if (<> #richtig #groesse) (P_LIBfehler #name #groesse #richtig))))
;

(set #name "mui:libs/muiwinborder.class")
(set #korrekt "19.9")
(set #richtig "4428")
(P_LIBversion #name)
(if (<> #version #korrekt) (P_LIBfalsch)
    ((P_LIBsize #name)
     (if (<> #richtig #groesse) (P_LIBfehler #name #groesse #richtig))))
;

(set #name "mui:libs/muiconfig.library")
(set #korrekt "19.20")
(set #richtig "8272")
(P_LIBversion #name)
(if (<> #version #korrekt) (P_LIBfalsch)
    ((P_LIBsize #name)
     (if (<> #richtig #groesse) (P_LIBfehler #name #groesse #richtig))))
;

(set #name "mui:libs/muirexx.library")
(set #korrekt "19.9")
(set #richtig "5224")
(P_LIBversion #name)
(if (<> #version #korrekt) (P_LIBfalsch)
    ((P_LIBsize #name)
     (if (<> #richtig #groesse) (P_LIBfehler #name #groesse #richtig))))
;

(set #name "mui:libs/muilocale.library")
(set #korrekt "19.14")
(set #richtig "12588")
(P_LIBversion #name)
(if (<> #version #korrekt) (P_LIBfalsch)
    ((P_LIBsize #name)
     (if (<> #richtig #groesse) (P_LIBfehler #name #groesse #richtig))))
;

(set #name "mui:libs/muispecial.library")
(set #korrekt "19.11")
(set #richtig "3056")
(P_LIBversion #name)
(if (<> #version #korrekt) (P_LIBfalsch)
    ((P_LIBsize #name)
     (if (<> #richtig #groesse) (P_LIBfehler #name #groesse #richtig))))
;

(set #name "mui:libs/muilowlevel.library")
(set #korrekt "19.9")
(set #richtig "4172")
(P_LIBversion #name)
(if (<> #version #korrekt) (P_LIBfalsch)
    ((P_LIBsize #name)
     (if (<> #richtig #groesse) (P_LIBfehler #name #groesse #richtig))))
;

(set #name "mui:libs/muipop.library")
(set #korrekt "19.10")
(set #richtig "14284")
(P_LIBversion #name)
(if (<> #version #korrekt) (P_LIBfalsch)
    ((P_LIBsize #name)
     (if (<> #richtig #groesse) (P_LIBfehler #name #groesse #richtig))))
;

(set #name "mui:libs/muigfx.library")
(set #korrekt "19.9")
(set #richtig "27908")
(P_LIBversion #name)
(if (<> #version #korrekt) (P_LIBfalsch)
    ((P_LIBsize #name)
     (if (<> #richtig #groesse) (P_LIBfehler #name #groesse #richtig))))
;

(set #name "mui:libs/muihelp.library")
(set #korrekt "19.9")
(set #richtig "5224")
(P_LIBversion #name)
(if (<> #version #korrekt) (P_LIBfalsch)
    ((P_LIBsize #name)
     (if (<> #richtig #groesse) (P_LIBfehler #name #groesse #richtig))))
;

(set #name "mui:libs/muiscreen.library")
(set #korrekt "19.12")
(set #richtig "7028")
(P_LIBversion #name)
(if (<> #version #korrekt) (P_LIBfalsch)
    ((P_LIBsize #name)
     (if (<> #richtig #groesse) (P_LIBfehler #name #groesse #richtig))))
;
;mui:libs/mui/...
;

(set #name "mui:libs/mui/dtpic.mui")
(set #korrekt "19.13")
(set #richtig "2620")
(P_LIBversion #name)
(if (<> #version #korrekt) (P_LIBfalsch)
    ((P_LIBsize #name)
     (if (<> #richtig #groesse) (P_LIBfehler #name #groesse #richtig))))
;

(set #name "mui:libs/mui/popasl.mui")
(set #korrekt "19.8")
(set #richtig "6388")
(P_LIBversion #name)
(if (<> #version #korrekt) (P_LIBfalsch)
    ((P_LIBsize #name)
     (if (<> #richtig #groesse) (P_LIBfehler #name #groesse #richtig))))

;

(set #name "mui:libs/mui/popscreen.mui")
(set #korrekt "19.8")
(set #richtig "2748")
(P_LIBversion #name)
(if (<> #version #korrekt) (P_LIBfalsch)
    ((P_LIBsize #name)
     (if (<> #richtig #groesse) (P_LIBfehler #name #groesse #richtig))))
;

(set #name "mui:libs/mui/poppen.mui")
(set #korrekt "19.9")
(set #richtig "2860")
(P_LIBversion #name)
(if (<> #version #korrekt) (P_LIBfalsch)
    ((P_LIBsize #name)
     (if (<> #richtig #groesse) (P_LIBfehler #name #groesse #richtig))))
;

(set #name "mui:libs/mui/popframe.mui")
(set #korrekt "19.9")
(set #richtig "2868")
(P_LIBversion #name)
(if (<> #version #korrekt) (P_LIBfalsch)
    ((P_LIBsize #name)
     (if (<> #richtig #groesse) (P_LIBfehler #name #groesse #richtig))))
;

(set #name "mui:libs/mui/popimage.mui")
(set #korrekt "19.9")
(set #richtig "2900")
(P_LIBversion #name)
(if (<> #version #korrekt) (P_LIBfalsch)
    ((P_LIBsize #name)
     (if (<> #richtig #groesse) (P_LIBfehler #name #groesse #richtig))))
;

(set #name "mui:libs/mui/aboutmui.mui")
(set #korrekt "19.8")
(set #richtig "14212")
(P_LIBversion #name)
(if (<> #version #korrekt) (P_LIBfalsch)
    ((P_LIBsize #name)
     (if (<> #richtig #groesse) (P_LIBfehler #name #groesse #richtig))))
;

(set #name "mui:libs/mui/pendisplay.mui")
(set #korrekt "19.8")
(set #richtig "5460")
(P_LIBversion #name)
(if (<> #version #korrekt) (P_LIBfalsch)
    ((P_LIBsize #name)
     (if (<> #richtig #groesse) (P_LIBfehler #name #groesse #richtig))))
;

(set #name "mui:libs/mui/imagedisplay.mui")
(set #korrekt "19.8")
(set #richtig "3020")
(P_LIBversion #name)
(if (<> #version #korrekt) (P_LIBfalsch)
    ((P_LIBsize #name)
     (if (<> #richtig #groesse) (P_LIBfehler #name #groesse #richtig))))
;

(set #name "mui:libs/mui/framedisplay.mui")
(set #korrekt "19.8")
(set #richtig "2716")
(P_LIBversion #name)
(if (<> #version #korrekt) (P_LIBfalsch)
    ((P_LIBsize #name)
     (if (<> #richtig #groesse) (P_LIBfehler #name #groesse #richtig))))
;

(set #name "mui:libs/mui/imageadjust.mui")
(set #korrekt "19.14")
(set #richtig "10400")
(P_LIBversion #name)
(if (<> #version #korrekt) (P_LIBfalsch)
    ((P_LIBsize #name)
     (if (<> #richtig #groesse) (P_LIBfehler #name #groesse #richtig))))
;

(set #name "mui:libs/mui/frameadjust.mui")
(set #korrekt "19.14")
(set #richtig "4128")
(P_LIBversion #name)
(if (<> #version #korrekt) (P_LIBfalsch)
    ((P_LIBsize #name)
     (if (<> #richtig #groesse) (P_LIBfehler #name #groesse #richtig))))
;

(set #name "mui:libs/mui/settings.mui")
(set #korrekt "19.18")
(set #richtig "16432")
(P_LIBversion #name)
(if (<> #version #korrekt) (P_LIBfalsch)
    ((P_LIBsize #name)
     (if (<> #richtig #groesse) (P_LIBfehler #name #groesse #richtig))))
;

(set #name "mui:libs/mui/settingsgroup.mui")
(set #korrekt "19.15")
(set #richtig "28316")
(P_LIBversion #name)
(if (<> #version #korrekt) (P_LIBfalsch)
    ((P_LIBsize #name)
     (if (<> #richtig #groesse) (P_LIBfehler #name #groesse #richtig))))
;

(set #name "mui:libs/mui/numericbutton.mui")
(set #korrekt "19.8")
(set #richtig "4684")
(P_LIBversion #name)
(if (<> #version #korrekt) (P_LIBfalsch)
    ((P_LIBsize #name)
     (if (<> #richtig #groesse) (P_LIBfehler #name #groesse #richtig))))
;

(set #name "mui:libs/mui/penadjust.mui")
(set #korrekt "19.8")
(set #richtig "5524")
(P_LIBversion #name)
(if (<> #version #korrekt) (P_LIBfalsch)
    ((P_LIBsize #name)
     (if (<> #richtig #groesse) (P_LIBfehler #name #groesse #richtig))))
;

(set #name "mui:libs/mui/scrollgroup.mui")
(set #korrekt "19.8")
(set #richtig "3976")
(P_LIBversion #name)
(if (<> #version #korrekt) (P_LIBfalsch)
    ((P_LIBsize #name)
     (if (<> #richtig #groesse) (P_LIBfehler #name #groesse #richtig))))
;

(set #name "mui:libs/mui/palette.mui")
(set #korrekt "19.8")
(set #richtig "5676")
(P_LIBversion #name)
(if (<> #version #korrekt) (P_LIBfalsch)
    ((P_LIBsize #name)
     (if (<> #richtig #groesse) (P_LIBfehler #name #groesse #richtig))))
;

(set #name "mui:libs/mui/coloradjust.mui")
(set #korrekt "19.8")
(set #richtig "9456")
(P_LIBversion #name)
(if (<> #version #korrekt) (P_LIBfalsch)
    ((P_LIBsize #name)
     (if (<> #richtig #groesse) (P_LIBfehler #name #groesse #richtig))))
;

(set #name "mui:libs/mui/colorfield.mui")
(set #korrekt "19.8")
(set #richtig "3092")
(P_LIBversion #name)
(if (<> #version #korrekt) (P_LIBfalsch)
    ((P_LIBsize #name)
     (if (<> #richtig #groesse) (P_LIBfehler #name #groesse #richtig))))

;

(set #name "mui:libs/mui/virtgroup.mui")
(set #korrekt "19.10")
(set #richtig "7864")
(P_LIBversion #name)
(if (<> #version #korrekt) (P_LIBfalsch)
    ((P_LIBsize #name)
     (if (<> #richtig #groesse) (P_LIBfehler #name #groesse #richtig))))
;

(set #name "mui:libs/mui/boopsi.mui")
(set #korrekt "19.8")
(set #richtig "3844")
(P_LIBversion #name)
(if (<> #version #korrekt) (P_LIBfalsch)
    ((P_LIBsize #name)
     (if (<> #richtig #groesse) (P_LIBfehler #name #groesse #richtig))))
;

(set #name "mui:libs/mui/scale.mui")
(set #korrekt "19.8")
(set #richtig "5160")
(P_LIBversion #name)
(if (<> #version #korrekt) (P_LIBfalsch)
    ((P_LIBsize #name)
     (if (<> #richtig #groesse) (P_LIBfehler #name #groesse #richtig))))
;

(set #name "mui:libs/mui/levelmeter.mui")
(set #korrekt "19.10")
(set #richtig "8864")
(P_LIBversion #name)
(if (<> #version #korrekt) (P_LIBfalsch)
    ((P_LIBsize #name)
     (if (<> #richtig #groesse) (P_LIBfehler #name #groesse #richtig))))
;

(set #name "mui:libs/mui/knob.mui")
(set #korrekt "19.10")
(set #richtig "5912")
(P_LIBversion #name)
(if (<> #version #korrekt) (P_LIBfalsch)
    ((P_LIBsize #name)
     (if (<> #richtig #groesse) (P_LIBfehler #name #groesse #richtig))))
;

(set #name "mui:libs/mui/gauge.mui")
(set #korrekt "19.9")
(set #richtig "5496")
(P_LIBversion #name)
(if (<> #version #korrekt) (P_LIBfalsch)
    ((P_LIBsize #name)
     (if (<> #richtig #groesse) (P_LIBfehler #name #groesse #richtig))))
;

(set #name "mui:libs/mui/dirlist.mui")
(set #korrekt "19.8")
(set #richtig "11028")
(P_LIBversion #name)
(if (<> #version #korrekt) (P_LIBfalsch)
    ((P_LIBsize #name)
     (if (<> #richtig #groesse) (P_LIBfehler #name #groesse #richtig))))
;

(set #name "mui:libs/mui/floattext.mui")
(set #korrekt "19.8")
(set #richtig "3672")
(P_LIBversion #name)
(if (<> #version #korrekt) (P_LIBfalsch)
    ((P_LIBsize #name)
     (if (<> #richtig #groesse) (P_LIBfehler #name #groesse #richtig))))
;

(set #name "mui:libs/mui/volumelist.mui")
(set #korrekt "19.8")
(set #richtig "6824")
(P_LIBversion #name)
(if (<> #version #korrekt) (P_LIBfalsch)
    ((P_LIBsize #name)
     (if (<> #richtig #groesse) (P_LIBfehler #name #groesse #richtig))))
;

(set #name "mui:libs/mui/listtree.mcp")
(set #korrekt "17.14")
(set #richtig "10192")
(P_LIBversion #name)
(if (<> #version #korrekt) (P_LIBfalsch)
    ((P_LIBsize #name)
     (if (<> #richtig #groesse) (P_LIBfehler #name #groesse #richtig))))
;

(set #name "mui:libs/mui/busy.mcp")
(set #korrekt "16.32")
(set #richtig "10908")
(P_LIBversion #name)
(if (<> #version #korrekt) (P_LIBfalsch)
    ((P_LIBsize #name)
     (if (<> #richtig #groesse) (P_LIBfehler #name #groesse #richtig))))
;

(set #name "mui:libs/mui/magicwb.mcc")
(set #korrekt "19.5")
(set #richtig "13500")
(P_LIBversion #name)
(if (<> #version #korrekt) (P_LIBfalsch)
    ((P_LIBsize #name)
     (if (<> #richtig #groesse) (P_LIBfehler #name #groesse #richtig))))
;

(set #name "mui:libs/mui/listtreename.mcc")
(set #korrekt "17.6")
(set #richtig "3624")
(P_LIBversion #name)
(if (<> #version #korrekt) (P_LIBfalsch)
    ((P_LIBsize #name)
     (if (<> #richtig #groesse) (P_LIBfehler #name #groesse #richtig))))
;

(set #name "mui:libs/mui/listtree.mcc")
(set #korrekt "17.36")
(set #richtig "25016")
(P_LIBversion #name)
(if (<> #version #korrekt) (P_LIBfalsch)
    ((P_LIBsize #name)
     (if (<> #richtig #groesse) (P_LIBfehler #name #groesse #richtig))))
;

(set #name "mui:libs/mui/crawling.mcc")
(set #korrekt "16.8")
(set #richtig "2060")
(P_LIBversion #name)
(if (<> #version #korrekt) (P_LIBfalsch)
    ((P_LIBsize #name)
     (if (<> #richtig #groesse) (P_LIBfehler #name #groesse #richtig))))
;

(set #name "mui:libs/mui/busy.mcc")
(set #korrekt "16.36")
(set #richtig "10028")
(P_LIBversion #name)
(if (<> #version #korrekt) (P_LIBfalsch)
    ((P_LIBsize #name)
     (if (<> #richtig #groesse) (P_LIBfehler #name #groesse #richtig))))
;


(exit "\n\n\nKeine (weiteren) Fehler gefunden\n\nTest beendet."
    (quiet)
)
(welcome)