home *** CD-ROM | disk | FTP | other *** search
/ Inside Multimedia 1995 August / IMM0895.ISO01.iso / magazin / optix / disk1 / optxppac.set / BOXEN.OPT < prev    next >
Text File  |  1995-04-21  |  503b  |  47 lines
  1.  
  2. DEF(X)
  3. DEF(Y)
  4.  
  5. DEF(COL)
  6.  
  7. DEF(XX,50)
  8. DEF(YY,50)
  9.  
  10. DEFS(HS)
  11.  
  12. DEF(I)
  13.  
  14.  
  15. BEGIN
  16.    SETPVGA
  17.    SETALLPAL
  18.  
  19.    REPEAT
  20.       RANDOM(150,XX)
  21.       INC(XX,5)
  22.  
  23.       RANDOM(150,YY)
  24.       INC(YY,5)
  25.  
  26.       RANDOM(XMAX-XX,X)
  27.       RANDOM(YMAX-YY,Y)
  28.       RANDOM(16,COL)
  29.  
  30.       VIEWPORT(X,Y,X+XX,Y+YY)
  31.       CBOX(0,COL,0)
  32.       INC(I,1)
  33.  
  34.    UNTIL MOUSEK <> 0
  35.  
  36.    SYSFONT(3,0)
  37.    SETCOLOR(15)
  38.    STR(I,5,HS)
  39.    PRINTAT(200,200,HS)
  40.  
  41.    REPEAT
  42.  
  43.    UNTIL KEYPRESSED = ESC
  44.  
  45. END
  46.  
  47.