---
title: "The Organizer"
type: "article"
slug: "the-organizer"
url: "http://localhost/article/the-organizer/"
markdown_url: "http://localhost/article/the-organizer.md"
published_at: "2025-07-24T21:13:16+00:00"
modified_at: "2026-08-01T11:52:16+00:00"
featured_image:
  url: "http://localhost/wp-content/uploads/2022/04/20230809-041332.jpg"
excerpt: "Type in this program for the 48K Spectrum and save it as SAVE \"ORGANISER\" LINE 1. But do not forget that this program goes along with the SCREEN SPLITTER program by the same two people, and must have in memory the LOADCODE: 60000: 37 3E FF CC 21 00 48 11 11 =715 60009: 00…"
category:
  - name: "The Data Expansion"
    slug: "the-data-expansion"
    taxonomy: "category"
    url: "http://localhost/category/periodicals/the-data-expansion/"
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/"
publication_r:
  id: 50143
  title: "The Data Expansion"
  type: "periodical"
  url: "http://localhost/periodical/the-data-expansion/"
authors: "Craig Turner, Richard Fawley"
volume: "5"
issue: "2"
issues_articles:
  - id: 50244
    title: "The Data Expansion v5 n2"
    type: "issue"
    url: "http://localhost/issue/the-data-expansion-v5-n2/"
pages: "4-5"
pubdate: "February 1988"
related_articles:
  - id: 55824
    title: "Screen Splitter"
    type: "article"
    url: "http://localhost/article/screen-splitter/"
  - id: 60168
    title: "Screen Splitter – Continued"
    type: "article"
    url: "http://localhost/article/screen-splitter-continued/"
archive_link: false
---

# The Organizer

Type in this program for the 48K Spectrum and save it as `SAVE "ORGANISER" LINE 1`. But do not forget that this program goes along with the SCREEN SPLITTER program by the same two people, and must have in memory the LOADCODE:

```
60000: 37 3E FF CC 21 00 48 11 11  =715
60009: 00 08 CD 56 05 C9 00 00     =505
```

#### BASIC Listing

```
 1 GO TO 9000
 2 POKE 23658,8: BORDER 0: PAPER 0: BRIGHT 1: INK 4: CLS: PRINT AT 0,9;"THE ORGANISER": PRINT AT 21,0;"BY CRAIG TURNER & RICHARD FAWLEY"
 3 PRINT AT 2,0;"1 - T B A",,"2 - T A B",,"3 - B T A",,"4 - B A T",,"5 - A T B",,"6 - A B T",,"7 - T M B A",,"8 - T M A B",,"9 - T B A M",,"10 - T B M A",,"11 - T A B M",,"12 - T A M B",,"13 - M B A T",,"14 - M B T A",,"15 - M T B A"
 4 PRINT AT 2,16;"16 - M T A B";AT 3,16;"17 - M A B T";AT 4,16;"18 - M A T B";AT 5,16;"19 - B A T M";AT 6,16;"20 - B A M T";AT 7,16;"21 - B M T A";AT 8,18;"22 - B M A T";AT 9,16;"23 - B A T M"
 5 PRINT AT 10,16;"24 - B T M";AT 11,16;"25 - A T M B";AT 12,16;"26 - A T M B";AT 13,16;"27 - A M B T";AT 14,16;"28 - A M T B";AT 15,16;"29 - A B M T";AT 16,16;"30 - A B T M"
 6 PRINT AT 19,3;"INPUT '0' TO VIEW THE KEY"
 7 INPUT U: IF U=0 THEN GO TO 8400
 8 IF U>30 THEN GO TO 7
 9 CLS: PRINT AT 0,0;"YOUR PROGRAM SHOULD CONTAIN THESE LINES.": PRINT: PRINT
10 IF U=1 THEN PRINT T$,,B$,,A$
11 IF U=2 THEN PRINT T$,,A$,,B$
12 IF U=3 THEN PRINT B$,,T$,,A$
13 IF U=4 THEN PRINT B$,,A$,,T$
14 IF U=5 THEN PRINT A$,,T$,,B$
15 IF U=6 THEN PRINT A$,,B$,,T$
16 IF U=7 THEN PRINT L$,,M$,,N$,,A$
17 IF U=8 THEN PRINT L$,,M$,,A$,,N$
18 IF U=9 THEN PRINT L$,,N$,,A$,,M$
19 IF U=10 THEN PRINT L$,,M$,,N$,,A$
20 IF U=11 THEN PRINT L$,,A$,,N$,,M$
21 IF U=12 THEN PRINT L$,,A$,,M$,,N$
22 IF U=13 THEN PRINT M$,,N$,,A$,,L$
23 IF U=14 THEN PRINT M$,,N$,,L$,,A$
24 IF U=15 THEN PRINT M$,,L$,,N$,,A$
25 IF U=16 THEN PRINT M$,,L$,,A$,,N$
26 IF U=17 THEN PRINT M$,,A$,,N$,,L$
27 IF U=18 THEN PRINT M$,,A$,,L$,,N$
28 IF U=19 THEN PRINT N$,,A$,,M$,,L$
29 IF U=20 THEN PRINT N$,,A$,,M$,,L$
30 IF U=21 THEN PRINT N$,,M$,,L$,,A$
31 IF U=22 THEN PRINT N$,,M$,,A$,,L$
32 IF U=23 THEN PRINT N$,,L$,,A$,,M$
33 IF U=24 THEN PRINT N$,,L$,,M$,,A$
34 IF U=25 THEN PRINT A$,,L$,,N$,,M$
35 IF U=26 THEN PRINT A$,,L$,,M$,,N$
36 IF U=27 THEN PRINT A$,,M$,,N$,,L$
37 IF U=28 THEN PRINT A$,,M$,,L$,,N$
38 IF U=29 THEN PRINT A$,,N$,,M$,,L$
39 IF U=30 THEN PRINT A$,,N$,,L$,,M$
8000 INPUT "COPY TO ZX-PRINTER (Y/N) ";D$: IF D$="Y" THEN COPY
8010 PRINT #0;AT 0,3;"PRESS ANY KEY TO CONTINUE"
8020 PAUSE 0
8030 GO TO 1
8400 CLS: PRINT AT 4,6;"A=ATTRIBUTES";AT 6,6;"T=TOP 1/2 PIXELS  1";AT 8,6;"B=BOTTOM 1/2 PIXELS  TO 6";AT 10,6;"T=TOP 1/3 PIXELS  7";AT 12,6;"M=MIDDLE 1/3 PIXELS  TO";AT 14,6;"B=BOTTOM 1/3 PIXELS  30"
8410 PRINT AT 20,3;"PRESS ANY KEY TO CONTINUE"
8420 PAUSE 0: GO TO 1
9000 LET A$="POKE 60005,0:POKE 60006,88:POKE 60008,255:POKE 60009,2:RANDOMIZE USR 60000"
9010 LET T$="POKE 60005,0:POKE 60006,64:POKE 60008,0:POKE 60009,12:RANDOMIZE USR 60000"
9020 LET L$="POKE 60005,0:POKE 60006,64:POKE 60008,0:POKE 60009,8:RANDOMIZE USR 60000"
9030 LET M$="POKE 60005,0:POKE 60006,72:POKE 60008,0:POKE 60009,8:RANDOMIZE USR 60000"
9040 LET N$="POKE 60005,0:POKE 60006,80:POKE 60008,0:POKE 60009,8:RANDOMIZE USR 60000"
9050 LET B$="POKE 60005,0:POKE 60006,76:POKE 60008,0:POKE 60009,12:RANDOMIZE USR 60000"
9060 GO TO 2
9999 SAVE "ORGANISER" LINE 1
```