---
title: "More on GETPUT"
type: "article"
slug: "more-on-getput"
url: "http://localhost/article/more-on-getput/"
markdown_url: "http://localhost/article/more-on-getput.md"
published_at: "2022-10-07T12:24:57+00:00"
modified_at: "2026-07-26T11:45:40+00:00"
featured_image:
  url: "http://localhost/wp-content/uploads/2022/04/20230809-041332.jpg"
excerpt: "Please refer to the June issue of THE PLOTTER for details of this program. A handy program format follows for Larken users. The CODE has been saved as “getput.C1” at address 60000, 396. This is the code entered in GETPUT. This program makes it easy to enter formulas, text, etc, to be scrolled in part…"
category:
  - name: "The Plotter"
    slug: "the-plotter"
    taxonomy: "category"
    url: "http://localhost/category/periodicals/the-plotter/"
post_tag:
  - name: "Best of Timex/Sinclair 2068 Articles and Documents"
    slug: "ts2068best"
    taxonomy: "post_tag"
    url: "http://localhost/tag/ts2068best/"
  - 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: "Dick Wagner"
    slug: "dick-wagner"
    taxonomy: "indiv"
    url: "http://localhost/indiv/dick-wagner/"
  - name: "Michael DiRienzo"
    slug: "michael-dirienzo"
    taxonomy: "indiv"
    url: "http://localhost/indiv/michael-dirienzo/"
publication_r:
  id: 21216
  title: "The Plotter"
  type: "periodical"
  url: "http://localhost/periodical/the-plotter/"
authors: "Dick Wagner"
authors_r:
  - name: "Dick Wagner"
    slug: "dick-wagner"
    taxonomy: "indiv"
    url: "http://localhost/indiv/dick-wagner/"
volume: "8"
issue: "7-8"
issues_articles:
  - id: 39499
    title: "The Plotter v8 n7-8"
    type: "issue"
    url: "http://localhost/issue/the-plotter-v8-n7-8/"
pages: "3-4"
pubdate: "July - August 1990"
related_articles:
  - id: 44707
    title: "Mike’s Notebook: GETPUT"
    type: "article"
    url: "http://localhost/article/mikes-notebook-3/"
  - id: 45505
    title: "Mike’s Notebook: GETPUT"
    type: "article"
    url: "http://localhost/article/mikes-notebook-14/"
archive_link: false
---

# More on GETPUT

Please refer to the June issue of THE PLOTTER for details of this program.

A handy program format follows for Larken users. The CODE has been saved as “getput.C1” at address 60000, 396. This is the code entered in GETPUT. This program makes it easy to enter formulas, text, etc, to be scrolled in part across the screen.

If an image is on the screen when “Getput” is loaded, the star will rotate back and forth, dragging part of the text with it.

### BASIC Listing[1](#getput-fn1)

```
  2 REM "GETPUT" by Mike De Rienzo
  3 REM see program in THE PLOTTER 6/90 issue for details
  5 RANDOMIZE USR 100: LOAD "getput.C1"CODE
 10 LET get=60000
 20 LET put=60006
 30 PLOT 9,142: DRAW 57,10,4000
 40 RANDOMIZE USR get: PRINT AT 0,0;10,10,50000
 45 PRINT FLASH 1;AT 4,2; INK 2;"GETPUT"; INVERSE 1;AT 5,2; INK 1;"Demo!!": PRINT AT 10,5;"Press a key to start...": PAUSE 0
 50 LET d=-1: LET dx=d: LET dy=d: LET x=-d: LET y=-d
 55 CLS
 60 LET x=x+dx: LET y=d+dy
 70 IF NOT x OR x=22 THEN LET dx=dx*d: BEEP .01,y
 80 IF NOT y OR y=14 THEN LET dy=dy*d: BEEP .01,x
 90 RANDOMIZE USR put: PRINT AT y,x;10,10,50000
100 GO TO 60
```

Line 60 is reproduced as printed and does not run correctly as printed.[2](#getput-fn2)

***

### Notes

1. The listing is set in a narrow column and several statements wrap. Line 2 breaks after `De Rien`, line 3 after `THE PLOTT`, line 5 after `LOAD "get`, line 40 after `PRINT AT`, line 50 after `LET dy=d`, and line 70 breaks across the page boundary after `THEN LET d`, resuming at the top of page 4 with `x=dx*d`. All wraps have been rejoined; no character was added or dropped in doing so. [↩](#getput-ref1)
2. Line 60 as printed reads `LET x=x+dx: LET y=d+dy`. The second assignment should almost certainly be `LET y=y+dy`, matching the form of the first and the `dy=dy*d` reversal at line 80; as printed, `y` is recomputed from the constant `d` on every pass and never advances, so the vertical motion the program is written for cannot occur. Reproduced as printed because nothing else in the article independently establishes the intended form. [↩](#getput-ref2)