home *** CD-ROM | disk | FTP | other *** search
/ PC World 1998 June / PCWorld_1998-06_cd.bin / software / Programy / Ozogan / CHART.IPS < prev    next >
Encoding:
Text File  |  1997-10-09  |  584 b   |  30 lines
  1. VAR
  2.    r : integer
  3.    s : integer
  4.    X : integer
  5.    Y : integer
  6.    Z : integer
  7. ENDVAR
  8.  
  9. PROCEDURE main
  10.    r := 3;
  11.    s := 5;
  12.    ChartShow;
  13.    ChartInit(r, s);
  14.    FOR X := 1 TO R;
  15.        FOR Y := 1 TO S;
  16.            ChartData(x,y,random(50));
  17.        ENDFOR;
  18.    ENDFOR;
  19.    ChartUpdate;
  20.    ChartTitle(0,'LEV▌ POPIS')
  21.    ChartTitle(1,'PRAV▌ POPIS')
  22.    ChartTitle(2,'HORN═ POPIS')
  23.    ChartTitle(3,'DOLN═ POPIS')
  24.    ChartLegend(1-1,'leden')
  25.    ChartLegend(2-1,'·nor')
  26.    ChartLegend(3-1,'b°ezen')
  27.    ChartLegend(4-1,'duben')
  28.    ChartLegend(5-1,'kv∞ten')
  29. ENDPROC;
  30.