home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / extensions / jd / procs / _chartline.amos / _chartline.amosSourceCode
AMOS Source Code  |  1994-02-02  |  242b  |  14 lines
  1. BASELINE=100
  2. NUMMER=1
  3. H�HE=90
  4. CHARTLINE[BASELINE,NUMMER,H�HE]
  5. Procedure CHARTLINE[BL,NR,H]
  6.    Ink 2
  7.    X=NR*15
  8.    Bar X,BL-H To X+10,BL
  9.    Plot X-1,BL-H+1
  10.    Plot X+9,BL+1
  11.    Ink 4
  12.    Bar X-2,BL-H+2 To X+8,BL+2
  13.    Plot X+9,BL-H+1
  14. End Proc