home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / sri314_b.zip / DEMOPRGS.ZIP / EFFECTS.PRG < prev    next >
Text File  |  1990-04-18  |  2KB  |  88 lines
  1. ***************************************************************************
  2. **  EFFECTS.PRG
  3. **  (C) Copyright 1990, Sub Rosa Publishing Inc.
  4. **  A demonstration program provided to SR-Info and VP-Info users.
  5. **  This program may be copied freely. If it is used in commercial code,
  6. **  please credit the source, Sub Rosa Publishing Inc.
  7. **
  8. **  EFFECTS demonstrates the use of the SOUND and SCREEN commands.
  9. **  EFFECTS is compatible with all current versions of VP-Info.
  10. **  CAUTION: The Sub Rosa special effects package has been tested on
  11. **  a wide range of systems. Please consult theFASTART file.
  12. **  If you have a Noeffects command in your .SET file, this program
  13. **  will still run, but quietly and with less flair.
  14. **  EFFECTS moves displays between VPI-Info screens, and produces a range
  15. **  of sounds in the process.
  16. **
  17. **  Bernie Melman and Sid Bursten
  18. **  April, 1990
  19. ***************************************************************************
  20. temp=0
  21. cls ; clears screen
  22. SCREEN 2 ; write to background screen 2 nothing will show
  23. cls ; clear this screen as well
  24. BOX 1,1,24,78 ; single line box
  25. :color=iff(:color<>7,116,7)  ; red on grey
  26. COLOR :color,2,2,23,77,3 ; hearts that the reason for red
  27. SCREEN 2,3 ; copy screen 2 to screen 3
  28. ** put a smaller box of clubs inside the hearts
  29. SCREEN 3
  30. :color=iff(:color=7,7,112) ; black on grey
  31. BOX 5,5,19,74 double
  32. COLOR :color,6,6,18,73,5 ; clubs
  33. SCREEN 3,4
  34. ** put a smaller box of diamonds inside the clubs
  35. SCREEN 4
  36. :color=iff(:color=7,7,116)
  37. BOX 8,9,16,70
  38. COLOR :color,9,10,15,69,4 ; diamonds
  39. SCREEN 1 ; back to home screen
  40. SCREEN t ; use tear effect to put up 1st screen
  41. * produce a variety of sound effects while rotating the display
  42. REPEAT 9 times varying temp
  43.    SOUND temp
  44.    DELAY .5
  45.    SCREEN 2,1
  46.    DELAY .5
  47.    SCREEN 3,1
  48.    DELAY .5
  49.    SCREEN 4,1
  50. ENDREPEAT
  51. * now show off screen effects - all of which move screen 2 to screen 1
  52. delay 3
  53. cls
  54. screen T ; Tear
  55. delay 1
  56. cls
  57. screen R ; Right
  58. delay 1
  59. cls
  60. screen L ; Left
  61. delay 1
  62. cls
  63. screen U
  64. delay 1
  65. cls
  66. screen D
  67. delay 1
  68. cls
  69. delay 3
  70. :color=iff(:color=7,7,31)
  71. cls
  72. ? "Now watch some screen swapping with no delays and no special effects."
  73. ? "Press any key - except the escape key, please."
  74. dummy = inkey()
  75. perform fast
  76. :color=iff(:color=7,7,31)
  77. ? "end of demo."
  78. delay 2
  79. cls
  80. ***************************************
  81. procedure fast
  82. repeat 10 times
  83. screen 2,1
  84. screen 3,1
  85. screen 4,1
  86. endrepeat
  87. endprocedure; fast
  88.