---
title: "Moving Waves"
type: "article"
slug: "moving-waves"
url: "http://localhost/article/moving-waves/"
markdown_url: "http://localhost/article/moving-waves.md"
published_at: "2022-10-07T12:28:13+00:00"
modified_at: "2024-06-30T08:16:31+00:00"
featured_image:
  url: "http://localhost/wp-content/uploads/2022/04/20230809-041332.jpg"
category:
  - name: "The RAMTOP"
    slug: "the-ramtop"
    taxonomy: "category"
    url: "http://localhost/category/periodicals/the-ramtop/"
post_tag:
  - name: "Downloadable"
    slug: "downloadable"
    taxonomy: "post_tag"
    url: "http://localhost/tag/downloadable/"
  - name: "TS 2068"
    slug: "ts2068"
    taxonomy: "post_tag"
    url: "http://localhost/tag/ts2068/"
  - name: "Type-in program"
    slug: "type-in-program"
    taxonomy: "post_tag"
    url: "http://localhost/tag/type-in-program/"
model:
  - name: "Timex/Sinclair 2068"
    slug: "ts-2068"
    taxonomy: "model"
    url: "http://localhost/model/ts-2068/"
indiv:
  - name: "Everett Pence"
    slug: "everett-pence"
    taxonomy: "indiv"
    url: "http://localhost/indiv/everett-pence/"
publication_r:
  id: 39272
  title: "The RAMTOP"
  type: "periodical"
  url: "http://localhost/periodical/the-ramtop/"
authors: "Everett Pence"
issues_articles:
  - id: 39866
    title: "The RAMTOP Feb 1986"
    type: "issue"
    url: "http://localhost/issue/the-ramtop-feb-1986/"
pages: "7"
pubdate: "February 1986"
archive_link: false
article_media:
  - id: 55587
    title: "Moving Waves"
    type: "computer_media"
    url: "http://localhost/computer_media/moving-waves/"
---

# Moving Waves

## Source Code: 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
```