XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Bitmaps anzeigen
Lauffähig ab Profan-Version 5.0
Declare Name$
Let Name$=*

WhileNot @Equ$(Name$,)

    Cls
    Let Name$=@LoadFile$(Bilddateien,*.BMP)

    If @Neq$(Name$,)

        LoadSizedBmp Name$,10,20 - 160,120 ;0
        WindowTitle @Add$(BILD-BETRACHTER - [,
        @Add$(Name$,]))
        print   drücke eine Taste
        WaitInput

    EndIf

Wend

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Bitmaps anzeigen
Declare Name$
WindowTitle BILD-BETRACHTER
CLS
ShowMax
Name$=LoadFile$(Bilddateien,Bitmaps (*.bmp)|*.BMP)

While Name$ <>

    Cls
    LoadBmp Name$,0,0; 0
    WindowTitle BILD-BETRACHTER - [ + Name$ + ]
    WaitMouse
    Name$=LoadFile$(Bilddateien,Bitmaps (*.bmp)|*.BMP)

EndWhile

End