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