home *** CD-ROM | disk | FTP | other *** search
- /* Test of getintervall2 */
- address "MPlot_ARexx"
- options results
-
- getintervall2 stem a.
-
- say "Mode X " a.xmode
- say "Mode Y " a.ymode
- say "Xstring Min " a.xmin
- say "Xstring Max " a.xmax
- say "Ystring Min " a.ymin
- say "Ystring Max " a.ymax
- say "Xreal Min " a.xminreal
- say "Xreal Max " a.xmaxreal
- say "Yreal Min " a.yminreal
- say "Yreal Max " a.ymaxreal
- say
-
-
- /* Test of Info */
- info stem b.
-
- say "Screen Name " b.pubscreen
- say "ARexxPort " b.arexxport
- say "ModeID " b.modeid
- say "Colors " b.colors
- say "ResX " b.resx
- say "ResY " b.resy
- say "LeftEdge " b.leftedge
- say "TopEdge " b.topedge
- say
-
- /* Test of gettext */
- /* display some of the text */
- gettext 0
- say result
-
- gettext 1
- say result
-