home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / CLIPPER / MISC / VPI1_330.ZIP / EFFECTS.PRG < prev    next >
Encoding:
Text File  |  1992-01-08  |  2.7 KB  |  100 lines
  1. ***************************************************************************
  2. **  EFFECTS.PRG
  3. **  (C) Copyright 1990-92, Sub Rosa Publishing Inc.
  4. **
  5. **  A demonstration program provided to VP-Info users.
  6. **  This program may be copied freely. If it is used in commercial code,
  7. **  please credit the source, Sub Rosa Publishing Inc.
  8. **
  9. **  EFFECTS is compatible with all current versions (3.30 and over) of
  10. **  VP-Info.
  11. **
  12. **  CAUTION: The Sub Rosa special effects package has been tested on
  13. **  a wide range of systems. There are a few hardware/combinations with
  14. **  which these features confilict.
  15. **
  16. **  VP-Info Level 1 users can control the effects package with the
  17. **  SET SOUND command (default is SOUND ON). For other Info users,
  18. **  a Noeffects command in your .SET file will disable these effects.
  19. **  This program will still run, but quietly and with less flair.
  20. **
  21. **  EFFECTS.PRG moves displays between VPI-Info screens, and produces a range
  22. **  of sounds in the process.
  23. **
  24. **  Bernie Melman and Sid Bursten
  25. ***************************************************************************
  26. temp=0
  27. CLS ; clears screen
  28. SET SOUND ON
  29. SCREEN 2 ; write to background screen 2 nothing will show
  30. CLS ; clear this screen as well
  31. BOX 1,1,24,78 ; single line box
  32. :color=iff(:color<>7,116,7)  ; red on grey
  33. COLOR :color,2,2,23,77,3 ; hearts that the reason for red
  34. SCREEN 2,3 ; copy screen 2 to screen 3
  35. ** put a smaller box of clubs inside the hearts
  36. SCREEN 3
  37. :color=iff(:color=7,7,112) ; black on grey
  38. BOX 5,5,19,74 double
  39. COLOR :color,6,6,18,73,5 ; clubs
  40. SCREEN 3,4
  41. ** put a smaller box of diamonds inside the clubs
  42. SCREEN 4
  43. :color=iff(:color=7,7,116)
  44. BOX 8,9,16,70
  45. COLOR :color,9,10,15,69,4 ; diamonds
  46. SCREEN 1 ; back to home screen
  47. SCREEN t ; use tear effect to put up 1st screen
  48. * produce a variety of sound effects while rotating the display
  49. REPEAT 9 times varying temp
  50.    SOUND temp
  51.    DELAY .5
  52.    SCREEN 2,1
  53.    DELAY .5
  54.    SCREEN 3,1
  55.    DELAY .5
  56.    SCREEN 4,1
  57. ENDREPEAT
  58. * now show off screen effects - all of which move screen 2 to screen 1
  59. DELAY 3
  60. CLS
  61. SCREEN T ; Tear
  62. DELAY 1
  63. CLS
  64. SCREEN R ; Right
  65. DELAY 1
  66. CLS
  67. SCREEN L ; Left
  68. DELAY 1
  69. CLS
  70. SCREEN U
  71. DELAY 1
  72. CLS
  73. SCREEN D
  74. DELAY 1
  75. CLS
  76. DELAY 3
  77. :color=iff(:color=7,7,31)
  78. CLS
  79. ? "Now watch some screen swapping with no delays and no special effects."
  80. ? "Press any key - except the escape key, please."
  81. DUMMY = inkey()
  82. PERFORM fast
  83. :color=iff(:color=7,7,31)
  84. ? "end of demo - one moment please."
  85. DELAY 2
  86. CLS
  87. WAIT
  88. SET sound off
  89. CHAIN samples
  90. *
  91. PROCEDURE fast
  92.    REPEAT 10 times
  93.       SCREEN 2,1
  94.       SCREEN 3,1
  95.       SCREEN 4,1
  96.    ENDREPEAT
  97. ENDPROCEDURE; fast
  98. *
  99. *                         *** end of program EFFECTS.PRG ***
  100.