home *** CD-ROM | disk | FTP | other *** search
/ CD Direkt 1995 #1 / Image.iso / cdd / winanw / demo_pf / bmpview.prf < prev    next >
Text File  |  1994-01-05  |  335b  |  16 lines
  1. Declare Name$
  2. 'WindowTitle "BILD-BETRACHTER"
  3. CLS
  4. ShowMax
  5.  
  6. Let Name$=@LoadFile$("Bilddateien","*.BMP")
  7. WhileNot @Equ$(Name$,"")
  8.   Cls
  9.   LoadBmp Name$,0,0; 0
  10. '  WindowTitle @Add$("BILD-BETRACHTER - [",@Add$(Name$,"]"))
  11.   WaitMouse
  12.   Case @Equ(%MouseKey,2):ScreenCopy
  13.   Let Name$=@LoadFile$("Bilddateien","*.BMP")
  14. Wend
  15.  
  16. End