home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Magazin 1996 September / CD_06_96.ISO / par / main.par < prev    next >
Text File  |  1995-10-02  |  409b  |  32 lines
  1. ; Fenster 1,9,10 dürfen nicht benutzt werden!
  2. switch event
  3.  
  4.     case EV_START
  5.  
  6.         random @1,3
  7.         inc @1
  8.         sset atest$,"pix\\%ld.pic",@1
  9.         pic 2,atest$
  10.         page set 2
  11.         center
  12.         page show 2
  13.         set finished,0
  14.         paint
  15.         return
  16.  
  17.     case EV_LBUTUP
  18.     case EV_RBUTUP
  19.     case EV_KEYDN
  20.         set finished,1
  21.         break
  22.  
  23.     case EV_SHUTDOWN
  24.  
  25.         page hide 2
  26.         page open 2,10,10
  27.         ;page close 2
  28.  
  29. endswitch
  30.  
  31. return
  32.