home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 451-475 / apd470 / neil_wright / screenfader.amos / screenfader.amosSourceCode
AMOS Source Code  |  1993-03-07  |  1KB  |  50 lines
  1. ' *********************************************************************  
  2. ' * This routine does a screen fade into black and makes it reappear. *    
  3. ' * Feel free to any of use it - the useful stuff's in the procedures.*      
  4. ' * Written by Stephan Scholz                       La Oroya 1993     *  
  5. ' *********************************************************************      
  6. Dim CLV(16)
  7. Screen Open 0,320,256,16,Lowres
  8. Cls 15
  9. For N=0 To 15
  10. Pen N
  11. Paper 15-N
  12. Locate N,N+7
  13. Print "Greetings from La Oroya";
  14. Next N
  15. Flash Off 
  16. Bell 55
  17. Wait 100
  18. 'screen goes black 
  19. DARK
  20. Bell 45
  21. Wait 100
  22. 'screen recovers its original colours and lights up again
  23. LIGHT
  24. End 
  25. Procedure DARK
  26. Shared CLV(),DAY
  27. For N=0 To 15 : CLV(N)=Colour(N) : Next N : DAY=1
  28. Do 
  29. For N=0 To 15
  30. If Colour(N)=0 Then COUNT=COUNT+1
  31. If COUNT=16 Then COUNT=0 : Pop Proc
  32. CL=Colour(N)
  33. RED=256
  34. If CL<256 Then RED=16
  35. If RED=16 and CL<16 Then RED=1
  36. CL=CL-RED
  37. If CL<0 Then CL=0
  38. Colour(N),CL
  39. For P=1 To 500 : Next P
  40. Next N
  41. COUNT=0
  42. Loop 
  43. End Proc
  44. Procedure LIGHT
  45. Shared CLV()
  46. For N=0 To 15
  47. Colour(N),CLV(N)
  48. For P=1 To 2000 : Next P
  49. Next N
  50. End Proc