Code: Select all
#include once "dislin.bi"
METAFL ("CONS")
DISINI
NAME ("X-axis", "X")
NAME ("Y-axis", "Y")
TITLIN ("This is a Title", 2)
DIM intarr(...) as integer = {1,2,3,4,5,6}
QPLBAR(intarr(), ubound(intarr)+1)
END
Code: Select all
rndislin_bar.bas(13) warning 1(1): Passing scalar as pointer, at parameter 1 of QPLBAR()
rndislin_bar.bas(13) error 1: Argument count mismatch, found '(' in 'qplbar(intarr(), ubound(intarr)+1)'
Function listing is at: http://www2.mps.mpg.de/dislin/dishlp.html
Thanks for your help.