home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / aminet / jdlib4_6.lha / Procs / _ChartLine.AMOS / _ChartLine.amosSourceCode
AMOS Source Code  |  2008-12-10  |  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