home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format 82 / af082sub.adf / FINALWRITER / FINAL.lzx / FinalWriter / FinalWrapper / FW_Macros / FW_ColourCycle.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1978-01-01  |  540 b   |  32 lines
  1. /* FW_ColourCycle.rexx 1.0 (04.01.95) by NDY's
  2.  
  3. Creates a series of wrap texts with alternating colours.
  4. You should use a different colour for oval fill and border and for the text. */
  5.  
  6. /* Init */
  7. OPTIONS RESULTS
  8. rxport="FinalWrapperPort"
  9. IF ~Show("P",rxport) THEN EXIT 10
  10. ADDRESS VALUE rxport
  11. Lock ON
  12. Prefs STORE
  13. Set ZIP 1 /* Make window small */
  14. oldzip=RESULT
  15. SIGNAL ON ERROR
  16.  
  17. /* Main */
  18. SetState ZOO 1
  19. SetMode ZOO 0
  20. DO i=0 TO 5
  21.   SetMode INK i//3
  22.   SetVal ZOO i*10+50
  23.   Go
  24. END
  25.  
  26. /* Exit */
  27. ERROR:
  28. Set ZIP oldzip
  29. Prefs RESET
  30. Lock OFF
  31. EXIT
  32.