home *** CD-ROM | disk | FTP | other *** search
- /* SillyDemo ©1997 by Felix Schwarz
- This script is simply silly :-)
- Use parts of it, if you want ..
- */
-
- options results
- address 'UConv'
- POPUPMENU 'Change scale|Change rotate|Change dithering|Cancel'
- pop=result
- SELECT
- WHEN pop=0 THEN DO
- SETSCALE 160 128 0 1
- SCALEREQ ON
- END
- WHEN pop=1 THEN DO
- SETROTATE 99
- ROTATEREQ ON
- END
- WHEN pop=2 THEN DO
- SETDITHER 122
- DITHERREQ ON
- END
- END
- EXIT
-