home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / progm / grafx.zip / EXAMPLE.FOR < prev    next >
Text File  |  1989-01-23  |  1KB  |  44 lines

  1.     program example
  2. c
  3. c    ...driver for GRAFX examples
  4. c
  5.     call gset
  6. 200    continue
  7.     call gcls
  8.     call putstr(2,5,'GRAFX EXAMPLES - MAIN MENU')
  9.     call putstr(4,5,'0 - EXIT ')
  10.     call putstr(5,5,'1 - LINE DRAWING MODES ')
  11.     call putstr(6,5,'2 - X-Y PLOT ')
  12.     call putstr(7,5,'3 - TIME SERIES PLOT ')
  13.     call putstr(8,5,'4 - MULTIPLE OVERLAYED PLOTS ')
  14.     call putstr(9,5,'5 - HISTOGRAMS ')
  15.     call putstr(10,5,'6 - MULTIPLE VIEWS AND MID-LEVEL ROUTINES ')
  16.     call putstr(11,5,'7 - ERASING USING MID-LEVEL ROUTINES ')
  17.     call putstr(15,5,'ENTER OPTION: ')
  18.     read(*,*,err=800,end=900)ip
  19.     call gcls
  20.     if(ip.eq.0)goto 900
  21.     if(ip.eq.1)call lines
  22.     if(ip.eq.2)call csat
  23.     if(ip.eq.3)call smoth
  24.     if(ip.eq.4)call sfit
  25.     if(ip.eq.5)call stat
  26.     if(ip.eq.6)call view9
  27.     if(ip.eq.7)call worm
  28.     goto 200
  29. 800    continue
  30.     call error('INVALID INPUT - TRY A NUMBER FROM 1 TO 6')
  31.     goto 200
  32. 900    continue
  33.     call aset
  34.     end
  35. c    -------------------------------------------------------
  36.     include 'lines.for'
  37.     include 'csat.for'
  38.     include 'smoth.for'
  39.     include 'sfit.for'
  40.     include 'stat.for'
  41.     include 'view9.for'
  42.     INCLUDE 'worm.for'
  43. c    -------------------------------------------------------
  44.