---
title: "Just for Fun"
type: "article"
slug: "just-for-fun-9"
url: "http://localhost/article/just-for-fun-9/"
markdown_url: "http://localhost/article/just-for-fun-9.md"
published_at: "2020-10-27T17:19:10+00:00"
modified_at: "2024-10-05T13:04:29+00:00"
featured_image:
  url: "http://localhost/wp-content/uploads/2022/04/20230809-041332.jpg"
excerpt: "If Betsy Ross Had Had a ZX81... Think of a Number The Psychic ZX Decimal Alignment"
category:
  - name: "SYNC"
    slug: "sync"
    taxonomy: "category"
    url: "http://localhost/category/periodicals/sync/"
post_tag:
  - name: "1984"
    slug: "year-1984"
    taxonomy: "post_tag"
    url: "http://localhost/tag/year-1984/"
  - name: "Downloadable"
    slug: "downloadable"
    taxonomy: "post_tag"
    url: "http://localhost/tag/downloadable/"
  - name: "TS 1000"
    slug: "ts1000"
    taxonomy: "post_tag"
    url: "http://localhost/tag/ts1000/"
  - name: "Type-in program"
    slug: "type-in-program"
    taxonomy: "post_tag"
    url: "http://localhost/tag/type-in-program/"
model:
  - name: "Timex/Sinclair 1000"
    slug: "ts-1000"
    taxonomy: "model"
    url: "http://localhost/model/ts-1000/"
indiv:
  - name: "Cecil Johnson (W5SRQ)"
    slug: "cecil-johnson"
    taxonomy: "indiv"
    url: "http://localhost/indiv/cecil-johnson/"
  - name: "Dan Matejczyk"
    slug: "dan-matejczyk"
    taxonomy: "indiv"
    url: "http://localhost/indiv/dan-matejczyk/"
  - name: "Richard W. McDaniel"
    slug: "richard-w-mcdaniel"
    taxonomy: "indiv"
    url: "http://localhost/indiv/richard-w-mcdaniel/"
  - name: "Robert Midura"
    slug: "robert-midura"
    taxonomy: "indiv"
    url: "http://localhost/indiv/robert-midura/"
publication: "Sync"
publication_r:
  id: 10243
  title: "SYNC"
  type: "periodical"
  url: "http://localhost/periodical/sync-magazine/"
authors: "Dan Matejczyk; Cecil Johnson; Richard Wilson McDaniel; Robert Midura"
volume: "4"
issue: "1"
issues_articles:
  - id: 26653
    title: "SYNC v4 n1"
    type: "issue"
    url: "http://localhost/issue/sync-v4-n1/"
pages: "17-21"
pubdate: "January/February 1984"
archive_link: false
volumeissue: "v4n1"
companies_articles:
  - id: 11237
    title: "Robert J. Midura"
    type: "company"
    url: "http://localhost/company/robert-j-midura/"
article_media:
  - id: 57254
    title: "Psychic"
    type: "computer_media"
    url: "http://localhost/computer_media/psychic-2/"
---

# Just for Fun

- If Betsy Ross Had Had a ZX81…
- Think of a Number
- [The Psychic ZX](http://localhost/computer_media/psychic/)
- Decimal Alignment

## Source Code: Psychic

```
  10 REM PSYCHIC
  20 REM SYNC JAN/FEB 84 PP 19-20
  30 REM GAME
  40 DIM R$(9,3)
  50 FOR A=1 TO 9
  60 FOR B=1 TO 3
  70 LET R$(A,B)=CHR$ (34+A*3+B)
  80 NEXT B
  90 NEXT A
 100 LET R$(9,3)=" "
 110 FOR I=1 TO 30
 120 LET A=INT (RND*9)+1
 130 LET B=INT (RND*3)+1
 140 LET T$=R$(A,B)
 150 LET R$(A,B)=R$(5,2)
 160 LET R$(5,2)=T$
 170 NEXT I
 180 FOR I=1 TO 3
 190 PRINT TAB 4;"ROW 1";TAB 13;"ROW 2";TAB 22;"ROW 3",,
 200 FOR A=1 TO 9
 210 PRINT TAB 6;
 220 FOR B=1 TO 3
 230 PRINT R$(A,B);"        ";
 240 NEXT B
 250 PRINT 
 260 NEXT A
 270 PRINT "ENTER THE ROW CONTAINING YOUR   LETTER."
 280 INPUT C
 290 IF C<1 OR C>3 THEN GOTO 280
 300 IF I=3 THEN GOTO 470
 310 FOR A=1 TO 9
 320 LET T$=R$(A,2)
 330 LET R$(A,2)=R$(A,C)
 340 LET R$(A,C)=T$
 350 NEXT A
 360 LET T$=""
 370 FOR A=1 TO 3
 380 FOR B=1 TO 9
 390 LET T$=T$+R$(B,A)
 400 NEXT B
 410 NEXT A
 420 FOR A=1 TO 9
 430 FOR B=1 TO 3
 440 LET R$(A,B)=T$(A*3+B-3)
 450 NEXT B
 460 NEXT A
 470 CLS 
 480 NEXT I
 490 PRINT ,,"I MYSTICALLY PERCEIVE YOUR","LETTER TO BE ";R$(5,C);"."
 500 PRINT "WOULD YOU LIKE TO TEST MY MAGIC ABILITIES AGAIN?(Y/N)"
 510 INPUT T$
 520 CLS 
 530 IF (T$+" ")(1)="Y" THEN GOTO 180
 600 STOP 
 700 SAVE "1014%4"
 710 RUN
```