XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Rolladen für Windows
PRFellow - Vorlage
Autor: Thomas Hölzer
Stammt aus 1995 (mit 1 aktuellen Ergänzung für Profan 6)
Ein kleiner Rolladen - Bildschirmschoner für meinen Vater
Seine realen Fenster und Rolladen haben mir vieles ermöglicht ...
SetErrorLevel 0
Declare a%,s%,y%,o%,c%

Proc Wait

    Declare w%

    While Lt(w%,1000)

        Inc w%

    Wend

EndProc

Proc Up

    UsePen 0,3,15360
    Line 0,Sub(y%,5)-%maxX,Sub(y%,5)
    MCopyBmp 0,y%-%maxX, 10 > 0,y%;0
    Dec y%

    If Lt(y%,0)

        Let a%=20
        Let c%=Rnd(32766)
        Wait
        Let o%=0

    EndIf

EndProc

Proc Down

    UsePen 0,5,15360
    UseBrush 2,c%
    Rectangle 0,0-%maxX,a%
    Add a%,2

    If Gt(a%,%maxY)

        Let y%=%maxY
        Wait
        Let o%=1

    EndIf

EndProc

WindowTitle Rolladen für Windows
WindowStyle $F0
Window 0,0-%maxX,%maxY
ShowCursor 0
Hier mußte früher mal eine temp. Datei angelegt werden
MCLS %maxX,%maxY
CopyBmpToMem 0,0-%maxX,%maxY > 0,0
Let a%=20
Let s%=4
Let y%=%maxY
Randomize
Let c%=Rnd(32766)

While Gt(s%,0)

    If o%

        Up

    Else

        Down

    EndIf

    Case %getinputstate: Dec s%

Wend

ShowCursor 1