home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS - Coast to Coast / simteldosarchivecoasttocoast.iso / gif / gifv412.zip / GIFV.SLJ < prev    next >
Text File  |  1993-02-18  |  755b  |  34 lines
  1. ;
  2. ; GIFV.SLJ
  3. ; This script illustrates the usage of the GOSUB command
  4. ; All files on F:\*.GIF are displayed and after begin displayed have the
  5. ; RED and BLUE color levels increased 20 times and then reset.
  6. ;
  7.         change-path f:\*.gif
  8. :loop
  9.         loadnext :exit
  10.         gosub :gosub-here
  11.         goto :loop
  12. :gosub-here
  13. ;
  14. ; Here is my routine to increase RED a 20 times and
  15. ; then increase blue 20 times then it resets the colors
  16. ;
  17.         set v1 1
  18. :more-red
  19.         more-red
  20.         set v1 +
  21.         if v1=20 :NoMoreRed
  22.         goto :more-red
  23. :NoMoreRed
  24.         set v1 1
  25. :more-blue
  26.         more-blue
  27.         set v1 +
  28.         if v1=20 :NoMoreblue
  29.         goto :more-blue
  30. :NoMoreBlue
  31.         reset-colors
  32. sub-end
  33. :exit
  34.