XProfan

Declare spalte%,zeile%,steig%
Declare EE%,E1%,WIN1%
DECLARE font0%,txt%
font0%=CREATE("FONT","COMIC SANS MS",40,0,1,0,0)
######################################
DEF add(2) @!(1) + @!(2)
DEF sub(2) @!(1) - @!(2)
DEF mul(2) @!(1) * @!(2)
DEF div(2) @!(1) / @!(2)
DEF div&(2) @!(1)  @!(2)
DEF pow(2) @!(1) ^ @!(2)
DEF mod(2) @!(1) mod @!(2)
DEF or(2) @!(1) | @!(2)
DEF and(2) @!(1) & @!(2)
DEF equ(2) @!(1) = @!(2)
DEF neq(2) @!(1) <> @!(2)
DEF lt(2) @!(1) < @!(2)
DEF gt(2) @!(1) > @!(2)
DEF add$(2) @$(1) + @$(2)
DEF equ$(2) @$(1) = @$(2)
DEF neq$(2) @$(1) <> @$(2)
DEF lt$(2) @$(1) < @$(2)
DEF gt$(2) @$(1) > @$(2)
--------------------------------
spalte%=DIV(%MaxX,7)
zeile%=DIV(%MaxY,3)
steig%=30
--------------------------------

PROC MELDUNG

    WIN1%=CREATE("WINDOW",%HWnd,"",0,0,%MaxX,%MaxY)
    txt%=CreateText(WIN1%,"Schmeissen Sie Ihren PC aus den",spalte%,200,%MaxX,100)
    SETFONT txt%,font0%
    txt%=CreateText(WIN1%,ADD$("WINDOWS  ",$winver)+"   ;o)",SUB(MUL(spalte%,2),20),300,%MaxX,100)
    SetFont txt%,font0%
    WaitInput
    END

ENDPROC

--------------------------------
WindowStyle 80
WINDOW 0,0-%MaxX,%MaxY
CLS rgb(0,0,255)
ShowCursor 0
TextColor rgb(255,255,255),-1
UseFont "ARIAL",DIV(%MaxX,48),0,0,0,0
DrawText spalte%,zeile%,"ACHTUNG !   Das System ist überlastet !"
Add zeile%,steig%
DrawText spalte%,zeile%,"Schwerer Ausnahmefehler"
TextColor rgb(0,0,0),rgb(255,255,255)
DrawText MUL(spalte%,3),zeile%," gh-6709000-nbg5jh "
TextColor rgb(255,255,255),-1
Add zeile%,steig%
DrawText spalte%,zeile%,"Benutzen Sie nicht    Strg-Alt-Entf    Sie verlieren sonst Ihre Daten !!!"
Add zeile%,MUL(steig%,2)
DrawText spalte%,zeile%,"Drücken Sie die ESC-Taste und folgen Sie den Anweisungen !"
EE%=0

WhileNot EE%

    waitinput
    Case (%Key,27):MELDUNG

WEND

END