XProfan

Source watts on the 15.07.2007 from the MMJ-Quellcodesammlung (Dietmar horn) in The Babyklappe on XProfan.Com stored:
Bitmap-display
executable ex Profan-Version 5.0
-----------------------------------------------
cover:    Einfache Bitmapanzeige
Author:    Rolf cook - ROKO-SOFTWARE
e-mail:   webmaster@rokosoft.de
homepage: http://www.rokosoft.de
date:    14.01.2001
-----------------------------------------------
Statement:
----------
One Window is beautiful and well, but what should one
Window without graphic u.s.w.
Profan supported of House from The Images in the stature
*.bmp - others Formate only with suitable Bibliotheken.
here have I aware Images taken, which in the Windows directory
C:windows lying (usually is the Yes the way).
declare end%				variables preparing
WINDOW 30,30 - 300,300			Window create
WINDOWTITLE Einfache Bitmapbefehle	Window Title
here now The gängigsten Anzeigeoptionen:
******************************************************************************
LoadSizedBmp C:WINDOWSSETUP.BMP,0,0-300,300;0
LoadSizedBmp SATURN.BMP,0,0-300,300;0
with Loadsizedbmp can one the Image the Window adjust. means here:
Image C:WINDOWSSETUP.BMP becomes with 0,0 in the left oberen corner
in 300,300 - means Size the Fensters with the KOPIERWERT 0 (normal) displayed!
******************************************************************************
LOADBMP C:WINDOWSKACHELN.BMP,30,30;0
LOADBMP WOLKEN.BMP,30,30;0
displayed becomes here The File tile.bmp on the position
X=30 Y=30 (means supra integrally left) with 0 means normal How the Image looks displayed!
******************************************************************************
LOADBMP C:WINDOWSÄgypten.BMP,80,30;-1
LOADBMP WINLOGO.BMP,80,30;-1
displayed becomes here The File Ägypten.bmp on the position
X=80 Y=30 (means supra integrally left) with -1 (linkes downstairs Pixel definiert The)
colour (lt. Profanhilfe), which tranzparent attend should) displayed!
******************************************************************************
CopyBmp 10,10-40,40 > 140,30;0
The area 10,10 (linkes supreme corner) in of/ one Size 40x40 becomes on
position 140,30 in the Normalmodus (0) copies and displayed.
******************************************************************************
CopySizedBmp 10,10-40,40>190,30-30,30;0
very the same thing How with Copybmp, however with the Difference:
the copied area becomes minimizes (The back 30,30) displayed.
Hinweis!!!: Looks in the Help to further Bitmapbefehlen to.
any command relating itself in the Endeffekt on the here beschriebene system.
have I in all Demodateien circa a Dummyschleife To achieve!:

WHILENOT end%				as long as not Variable end%=1

    WAITINPUT				wait on mouse or Button
    WEND					back To WHILENOT end%