/* Simple test of beep */
address "MPlot_ARexx"
options results

beep

/* getfunc, getXderive */
getfunc     number 0 var sinus
get1derive  number 0 var sinus1
get2derive  NUMBER 0 var sinus2

say "The first  function   is "sinus
say "The first  derivation is "sinus1
say "The second derivation is "sinus2

/* Get the version string */
version var version
say "The version string is "version
say

/* Test getcolor/setcolor */
clear force

setcolor    plotcolor 1
getfunc     0 var func
get1derive  0 var deri
getcolor plotcolor var first
plot 0 normal
setcolor plotcolor 2
plot 0 derive1
getcolor plotcolor var second

say "First, the color was "first" function "func
say "Then, it was         "second" function "deri

/* Test the labels and color */
setcolor axiscolor 3
showaxis

getcolor plotcolor axiscolor
say result


getcolor plotcolor axiscolor stem a.
say a.plotcolor "," a.axiscolor