home *** CD-ROM | disk | FTP | other *** search
/ Sauce 'n' Code 2 / sauce-n-code-02.adf / ASCII_Source / NWPlasma1.asc < prev    next >
Encoding:
Text File  |  1995-07-02  |  1.2 KB  |  68 lines
  1. ' °°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°° 
  2. ' °                                    ° 
  3. ' ° Plasma 1                           ° 
  4. ' °                                    ° 
  5. ' ° By Neil Wright Of Nothing But AMOS ° 
  6. ' °                                    ° 
  7. ' ° 2/10/93                            ° 
  8. ' °                                    ° 
  9. ' °°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°° 
  10. '
  11. '
  12. Screen Open 0,320,256,32,Lowres
  13. Curs Off : Cls 0 : Flash Off : Hide 
  14. Palette $0,$111,$222,$333,$444,$555,$666,$777,$888,$999,$AAA,$BBB,$CCC,$DDD,$EEE,$FFF,$EEE,$DDD,$CCC,$BBB,$AAA,$999,$888,$777,$666,$555,$444,$333,$222,$111,$0
  15. '
  16. Screen Open 1,320,256,32,Lowres
  17. Curs Off : Cls 0 : Hide : Flash Off 
  18. Get Palette 0
  19. Screen To Back 1
  20. '
  21. Screen 1
  22. '
  23. Degree 
  24. '
  25. CO=0
  26. TIM=2
  27. '
  28. For X=0 To 320
  29.    Ink CO
  30.    Draw X,0 To X,256
  31.    If TIM=10
  32.       Inc CO
  33.       TIM=0
  34.    End If 
  35.    If CO>30
  36.       CO=0
  37.    End If 
  38.    Inc TIM
  39. Next X
  40. '
  41. For Y=0 To 256
  42.    P#=Sin(POS#)*25
  43.    Screen Copy 1,0,Y,320,Y+1 To 0,P#,Y
  44.    POS#=POS#+10
  45. Next Y
  46. '
  47. Screen Copy 0,0,0,320,256 To 1,0,0
  48. '
  49. For X=0 To 320
  50.    P#=Sin(POS#)*25
  51.    Screen Copy 1,X,0,X+1,256 To 0,X,P#
  52.    POS#=POS#+10
  53. Next X
  54. '
  55. Screen 0
  56. '
  57. '
  58. Shift Up 4,0,30,1
  59. '
  60. Do 
  61.    Exit If Key State(69)=True
  62. Loop 
  63.  
  64.  
  65.  
  66.  
  67.  
  68.