home *** CD-ROM | disk | FTP | other *** search
/ Inside Multimedia 1995 August / IMM0895.BIN / magazin / optix / disk1 / optxppac.set / DISKS.OPT < prev    next >
Text File  |  1995-04-27  |  705b  |  56 lines
  1. DEF(X0)
  2. DEF(Y0)
  3. DEF(XM)
  4. DEF(YM)
  5. DEF(COL)
  6.  
  7. DEF(SMAX, 50)
  8.  
  9. BEGIN
  10.    SETPVGA
  11.    SETALLPAL
  12.    SYSFONT(3,0)
  13.    SETCOLOR(255)
  14.    SETBCOLOR(0)
  15.  
  16.    REPEAT
  17.       RANDOM(SMAX-10,XM)
  18.       RANDOM(XMAX, X0)
  19.       RANDOM(YMAX, Y0)
  20.       INC(COL,1)
  21.  
  22.       DISK(X0, Y0, XM+10, COL)
  23.  
  24.    UNTIL READKEY <> 0
  25.  
  26.  
  27.    PRINTAT(100,100, ' Bitte bewegen Sie die Maus. ')
  28.  
  29.    XM := 0
  30.    YM := 0
  31.    REPEAT
  32.       IF XM <> MOUSEX
  33.       GOTO('DSK')
  34.       ENDIF
  35.       IF YM <> MOUSEY
  36.       GOTO('DSK')
  37.       ELSE
  38.       GOTO('LL')
  39.       ENDIF
  40.  
  41. :DSK
  42.       XM := MOUSEX
  43.       YM := MOUSEY
  44.       DISK(XM, YM, SMAX, COL)
  45.       INC(COL,1)
  46.  
  47. :LL
  48.  
  49.    UNTIL MOUSEK <> KEYPRESSED
  50.  
  51.  
  52. :EE
  53. END
  54.  
  55.  
  56.