Moving Waves

    1 PRINT "Yes my mind is going going gone."
    2 ON ERR GO TO 30
    3 BEEP 3,33
    4 PRINT "I am working with a black and   white  TV that cost me nothing  at all so I am color blind on   this CRT "
    5 REM Moving waves by                        Everett Pence
    7 PAPER 0: INK 7: BORDER 0: CLS : CLS 
    9 LET g=0: LET r=0
   10 PRINT 
   11 LET r=r+.05
   12 LET e=0
   13 POKE 23692,0
   15 LET g=g+.5
   16 PLOT 130,0: DRAW 0,8
   17 PLOT 130+r*SIN g,e
   20 GO TO 10
   26 POKE 23627,INT RND*255: POKE 23628,INT RND*255
   30 PRINT "but what about the person that  thought this up!"
   35 PRINT "Its not worth it!!!!"
   40 NEW 
   50 REM  hey ya'll out there       welcome to   Texas-land                      the ability to play around   never ceases does it
 9999 SAVE "MovingWave" LINE 1