---
title: "Shuffle"
type: "article"
slug: "shuffle"
url: "http://localhost/article/shuffle/"
markdown_url: "http://localhost/article/shuffle.md"
published_at: "2022-10-07T12:28:00+00:00"
modified_at: "2026-06-19T18:13:31+00:00"
featured_image:
  url: "http://localhost/wp-content/uploads/2022/04/20230809-041332.jpg"
excerpt: "The January issue of SUM contained a program for solving Jumbled Word Puzzles. Robert Fischer went to work and developed a much shorter version of the BASIC pro- gram which will also allow words of any length up to 16 characters (but only 6 fit in the on-screen box). To start over, push the zero…"
category:
  - name: "SUM"
    slug: "sum"
    taxonomy: "category"
    url: "http://localhost/category/periodicals/sum/"
post_tag:
  - 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: "Robert Fischer"
    slug: "robert-fischer"
    taxonomy: "indiv"
    url: "http://localhost/indiv/robert-fischer/"
publication_r:
  id: 10242
  title: "SUM"
  type: "periodical"
  url: "http://localhost/periodical/sum/"
authors: "Robert Fischer"
authors_r:
  - name: "Robert Fischer"
    slug: "robert-fischer"
    taxonomy: "indiv"
    url: "http://localhost/indiv/robert-fischer/"
volume: "4"
issue: "3"
issues_articles:
  - id: 39352
    title: "SUM v4 n3"
    type: "issue"
    url: "http://localhost/issue/sum-v4-n3/"
pages: "6"
pubdate: "March 1986"
archive_link: false
---

# Shuffle

The January issue of SUM contained a program for solving Jumbled Word Puzzles. [Robert Fischer](http://localhost/indiv/robert-fischer/) went to work and developed a much shorter version of the BASIC pro- gram which will also allow words of any length up to 16 characters (but only 6 fit in the on-screen box). To start over, push the zero key. To communicate with Mr. Fischer, write to 221 Scoggins Street, Summerville, GA 30747.

## Source Code

```
     10 POKE 23658,8: BORDER 0: PAPPER 0: INK 7: CLS : PRINT AT 2,9; INK 2;"S H U F F L E": INK 7: PLOT 72,103: DRAW 104,0: DRAW 0,-25: DRAW -104,0: DRAW 0,25: PRINT AT 20,6; INK 1; "ENTER 2 TO 6 LETTERS": INPUT B$: LET A=LEN B$
    110 PRINT AT 20,3;"PRESS ANY KEY TO CONTINUE ",TAB 10;"0 RESTARTS": LET Z$=B$: LET C$="": FOR I=1 TO A
    140 LET R=INT (A*END)+1: IF B$(R)="0" THEN GO TO 140
    160 LET C$=C$+B$(R)+" ": LET B$(R)="0": NEXT I: PRINT AT 10,16-A;INK 6;C$
    220 LET B$=Z$: PAUSE 0: LET A$=INKEY$: GO TO 110-(100 AND A$="0")
    450 SAVE "SHUFFLE" LINE 10
```