home *** CD-ROM | disk | FTP | other *** search
/ Suzie / Suzie.iso / suzie / suzie.sxt < prev    next >
Encoding:
Text File  |  1996-07-25  |  545 b   |  30 lines
  1. SlideShow: 
  2.     
  3.     $filename = "photo0" ,x, ".bmp"
  4.     display element $filename
  5.  
  6.     mouse mode OFF
  7.     
  8.     win_msg = 0
  9.     while win_msg != WM_KEYDOWN && win_msg != WM_RBUTTONDOWN && x <= y
  10.         peek message win_msg, wpm, x_parm, y_parm
  11.         
  12.         switch win_msg
  13.  
  14.             case WM_LBUTTONDOWN
  15.                 x = x + 1
  16.                 if x <= y
  17.                     undisplay element $filename
  18.                     $filename = "photo0" ,x, ".bmp"
  19.                     display element $filename
  20.                 
  21.     mouse mode ON
  22.     return
  23.             
  24. CheckSound:
  25.  
  26.     if (SOUND_DEVICE)
  27.         goto screen "leader"
  28.     else
  29.         goto screen "leader no sound"
  30.