/* Rotate.rexx 1.1 (16.10.96) by NDY's */

OPTIONS RESULTS
rxport="FinalWrapperPort"
IF ~Show("P",rxport) THEN EXIT 10
ADDRESS VALUE rxport
Use MDEF
SetState ROT 1
SetMode ROT 2
SetVal ROT 90
SetVal XGAD 5
SetVal YGAD 5
SetVal WGAD 10
SetVal HGAD 10
SetVal TGAD "ANOTHER EXAMPLE OF A FANCY EFFECT "
PopFront
Use MTEXT
EXIT