---
title: "2068 Art"
type: "article"
slug: "2068-art"
url: "http://localhost/article/2068-art/"
markdown_url: "http://localhost/article/2068-art.md"
published_at: "2020-10-27T17:09:36+00:00"
modified_at: "2024-05-26T13:21:20+00:00"
featured_image:
  url: "http://localhost/wp-content/uploads/2020/10/20230809-041325.png"
excerpt: "This short program will have you staring at your screen for hours."
category:
  - name: "SyncWare News"
    slug: "syncware-news"
    taxonomy: "category"
    url: "http://localhost/category/periodicals/syncware-news/"
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: "David Kulp"
    slug: "david-kulp"
    taxonomy: "indiv"
    url: "http://localhost/indiv/david-kulp/"
publication: "SyncWare News"
publication_r:
  id: 10245
  title: "SyncWare News"
  type: "periodical"
  url: "http://localhost/periodical/syncware-news/"
authors: "David Kulp"
volume: "2"
issue: "4"
issues_articles:
  - id: 26683
    title: "SyncWare News v2 n4"
    type: "issue"
    url: "http://localhost/issue/syncware-news-v2-n4/"
pages: "17"
pubdate: "Mar-Apr 1985"
download: "https://archive.org/download/timex-sinclair-software-archive/2068%20Art%20%281985%29%28Kulp%2C%20David%29%28TS2068%29%28US%29%28Program%29.zip"
archive_link: false
volumeissue: "v2n4"
article_media:
  - id: 55026
    title: "2068 Art"
    type: "computer_media"
    url: "http://localhost/computer_media/2068-art/"
---

# 2068 Art

This short program will have you staring at your screen for hours.

[![Image](http://localhost/wp-content/uploads/2023/07/2068-art.png)](http://localhost/wp-content/uploads/2023/07/2068-art.png)

## Source Code: 2068 Art

```
    1 GO TO 200
   60 FOR z=1 TO 200
   62 PLOT A,B: DRAW X-A,Y-B
   70 LET A=A+A1: LET B=B+B1
   80 LET X=X+X1: LET Y=Y+Y1
  100 IF A>=255 OR A<=0 THEN LET A1=-A1: LET A=A+A1
  110 IF X>=255 OR X<=0 THEN LET X1=-X1: LET X=X+X1
  120 IF B>=175 OR B<=0 THEN LET B1=-B1: LET B=B+B1
  130 IF Y>=175 OR Y<=0 THEN LET Y1=-Y1: LET Y=Y+Y1
  135 NEXT Z
  136 PAUSE 300
  137 CLS 
  140 GO TO 60
  190 REM ART
  191 REM SW NEWS,MAR-APR 85,P.17
  200 PAPER 0: INK 7: CLS 
  210 LET A=INT (RND*255): LET B=INT (RND*175)
  220 LET X=INT (RND*255): LET Y=INT (RND*175)
  230 LET A1=2: LET B1=2: LET X1=4: LET Y1=4
  240 GO TO 60
 9998 SAVE "ART" LINE 1
```