1 OVER 0: INVERSE 0: FLASH 0:
 BORDER 7: POKE 23624,63: PAPER 
7: INK 0: BRIGHT 0: CLS : LET s$
=CHR$ 32: LET t$=s$+s$+s$: GO SU
B 24: RESTORE : READ h,i,a,b: LE
T c=1+INT (RND*5): GO SUB 29: PL
OT a,b: FOR g=0 TO 15: READ a,b:
 OUT 254,7: DRAW INK c-INT (g/8)
*c; BRIGHT 1;a,b: OUT 254,23: NE
XT g: DATA .002,1,215,39,-7,0,0,
-8,-169,0,0,8,-8,0,0,105,185,0,0
,-106,-7,0,0,-8,-171,0,0,8,-8,0,
0,107,187,0,0,-107
   2 GO SUB 29: LET a=USR "a": R
EAD b,c,d,e: IF PEEK (a+b)<>e TH
EN FOR g=0 TO b: READ f: POKE a+
g,f: BEEP h,(e-f)/2-60: NEXT g: 
DATA 103,85,c*2,255,0,0,112,0,0,
c,0,42,0,0,0,0,0,c,0,d,1,1,1,1,1
,81,1,169,0,21,0,106,0,128,213,2
45,0,c,0,d,0,0,c,c,2,86,5,173,9,
2,c,c,0,0,0,0,0,0,63,15,0,0,0,0,
0,0,e,e,1,1,0,1,0,3,e,e-1,0,0,0,
0,0,0,0,0,0,0,24,60,60,24,0,0,d,
d,c,c,d,d,c,c,1,3,7,15,31,63,127
,e
   3 GO SUB 29: RESTORE 3: READ 
a$,a,b: FOR g=0 TO 33: READ c: L
ET a$=a$+CHR$ c: BEEP h,g: NEXT 
g: READ b$: GO SUB 29: FOR g=34 
TO 45: READ c: LET b$=b$+CHR$ c:
 BEEP h,g: NEXT g: DATA "",16,17
,20,1,22,0,29,a,1,b,6,144,a,0,b,
7,145,b,4,146,22,1,29,b,7,147,b,
5,19,1,148,19,0,b,6,149,"",22,1,
29,21,1,b,8,19,8,150,151,152
   4 GO SUB 29: DIM a(40,3): FOR
 g=1 TO 40: LET a=g-1: LET a(g,1
)=INT (a/10)*2: LET a(g,2)=a*2-I
NT (a/10)*19-(2 AND g>30): BEEP 
h,45-g: NEXT g: LET a(31,2)=0: L
ET a(31,3)=1: LET a(40,3)=1: DIM
 b(10): FOR g=1 TO 10: READ b(g)
: BEEP h,15-g: NEXT g: DATA 1,2,
4,8,12,16,32,64,96,128
   5 GO SUB 29: INK 7: FOR g=0 T
O 8: READ a,b: PRINT AT a,b;s$: 
PAPER g: GO SUB 28: BEEP h,g: PA
PER 7: NEXT g: FOR g=0 TO 9: LET
 c=g*2: PRINT AT 9,5+c;s$;AT 11,
6+c;s$;AT 13,7+c;s$;AT 15,6+c;s$
: BEEP h,9-g: NEXT g: DATA 6,5,a
,a,a,7,15,5,a,25,16,24,14,25,13,
26,12,b
   6 GO SUB 29: PRINT #1;AT 1,0;
 INK 0,,AT 1,29; INK 7;t$: LET c
$="": FOR g=0 TO 8: LET c$=c$+CH
R$ (144+g): BEEP h,g: NEXT g: PR
INT #1; INK 8; INVERSE 1;AT 0,29
;c$( TO 3);AT 1,29;c$(4 TO 6)
   7 READ d$: FOR g=0 TO 4: LET 
d$=d$+d$: BEEP h,4-g: NEXT g: LE
T d$=d$( TO 23): FLASH 1: OVER 1
: INK 8: FOR g=4 TO 14 STEP 2: O
UT 254,23: PRINT AT g,4;d$;AT g+
1,4;d$: OUT 254,0: NEXT g: OUT 2
54,23: PRINT AT g,4;d$;AT g+1,5;
d$( TO 21): OVER 0: INK 4: READ 
d$: PRINT AT 0,0; INVERSE 1;d$: 
READ d$: FOR n=1 TO 3: PRINT AT 
17+n,27;d$(n TO n+2): NEXT n: IN
K 0: FLASH 0: DATA CHR$ 155,e$(L
EN (e$)-3 TO )+"'s 24X16-px Spec
cy Keyboard:",s$+s$+CHR$ 156+CHR
$ 143+CHR$ 143
   8 OUT 254,0: OUT 254,23: FOR 
g=7 TO 1 STEP -1: PRINT #1; OVER
 1; INK g-1;AT 0,29;t$;AT 1,29;c
$(7 TO 9): OUT 254,8-g: PAUSE g/
2: OUT 254,23: NEXT g: PRINT #1;
a$
   9 IF INKEY$<>"" THEN PRINT #1
;b$: GO TO 9
  10 PRINT #1;b$: IF INKEY$="" T
HEN GO TO 10
  11 PRINT AT 0,0,,: FOR g=18 TO
 20: PRINT AT g,27,: NEXT g: LET
 d$=CHR$ 21+CHR$ 1+CHR$ 16+CHR$ 
8+CHR$ 17+CHR$ 8+CHR$ 153
  12 READ a$,c$,e$: LET a=LEN a$
: LET g=1: PRINT #1;b$: DATA "© 
1982 Sinclair Research Ltd"+s$,"
u}Uj.BM~.VW./_.7^.6X.0~.Vul.DMh.
@{.Sx.Ps.Kk.Ch.@d.<~.Vud.<Mc.;l.
Dc.;k.Cd.<x.Pp.H~.Vus.KMe.=m.EtL
.","8g8e8b8£9g9e9b9£:g:e8z8w8u9}
9z9w9u:}:z:wB=B:B8C?C=C:C8D?D=D:
BTBOBMCUCRCOCMDUDRDPLA"
  13 LET j=USR "j": FOR b=1 TO L
EN c$: LET c=CODE c$(b)-46: LET 
d=1 AND c>40: LET e=ABS (c-d*40)
: PRINT #1;b$
  14 IF c THEN PRINT AT 9+a(e,1)
,5+a(e,2); PAPER 7 AND NOT d;s$+
(s$ AND a(e,3)): PRINT #1;b$: LE
T f$=STR$ (CODE e$(e*2-1)-46): L
ET g$=STR$ (CODE e$(e*2)-46): LE
T f=j+VAL g$(1): POKE f,b(VAL g$
(2)+1): PRINT #1;AT VAL f$(1)-1,
VAL f$(2)+29;d$;b$: POKE f,0: IF
 d THEN BEEP h,e
  15 IF NOT c THEN LET i=CODE a$
(g): FOR f=0 TO INT (RND*4)+1: P
RINT #1;b$; OVER 0;AT 1,a-1; INK
 INT (RND*6)+1;a$(g): NEXT f: PR
INT #1;AT 1,a-g; INK 8;a$( TO g)
;b$: BEEP (i<>32)/32,i/16: FOR f
=0 TO (20+INT (RND*40)) AND i=32
: PRINT #1;b$: NEXT f: LET g=g+1
  16 NEXT b
  17 PRINT #1;b$: IF INKEY$="" T
HEN GO TO 17
  18 IF INKEY$<>"" THEN PRINT #1
;b$: GO TO 18
  19 FOR g=1 TO 7: PRINT #1;AT 1
,0; INK g;a$; INK 8;b$: NEXT g: 
READ a$,b$,a,b: FOR g=6 TO 0 STE
P -.5: FOR f=0 TO g: PRINT #1; I
NK g;AT 1,0,: NEXT f: PRINT #1; 
OVER 1;AT 0,29; INK 6-g;t$;AT 1,
29;a$;AT 1,0; INK g;b$: BEEP a,b
: NEXT g: PRINT #1; INK 7; PAPER
 7;AT 0,29;t$;AT 1,29;t$: DATA C
HR$ 150+CHR$ 151+CHR$ 152,"0 OK,
 1010:10",4e-5,69
  20 PAPER 0: BRIGHT 1: READ c$,
a,b,g: FOR g=1 TO g: READ i,f: I
NK i: OUT 254,i+16: FOR f=1 TO f
: READ c: PRINT AT a+a(c,1),b+a(
c,2);c$: NEXT f: BORDER 7: NEXT 
g: DATA CHR$ 154,9,5,4,2,4,21,22
,12,2,6,4,15,14,24,35,4,3,7,17,2
7,5,3,19,20,30
  21 IF INKEY$="" THEN GO TO 21
  22 IF INKEY$<>"" THEN GO TO 22
  23 OUT 254,23: POKE 23693,56: 
CLEAR : GO TO 1e3
  24 RESTORE 12: READ a$,c$,e$: 
LET a$=a$( TO LEN a$-2): FOR g=1
 TO LEN a$: LET a=5432: IF CHR$ 
PEEK (a+g)<>a$(g) THEN GO TO 26
  25 NEXT g: GO TO 27
  26 PRINT AT 0,0; INK 2; FLASH 
1;"NEW"; INVERSE 1;"ROM"
  27 IF (((PEEK 23732+256*PEEK 2
3733)+1)/1024)-16>16 THEN PRINT 
AT 0,26; INK 3; FLASH 1;"BIG"; I
NVERSE 1;"RAM"
  28 PRINT FLASH 1;AT 13,13;s$;A
T 13,15;s$;AT 13,17;s$: RETURN 
  29 PRINT #1;AT 1,0;: FOR g=0 T
O 31: PRINT #1; INK i;"_";: OUT 
254,23: BORDER 7: NEXT g: LET i=
i+1: RETURN 
1010 ::::::::: REM "24x16 16KB" 
(dpla's Speccy): 2016(11-30[=pix
els]&12-01)/2023-09(23[=flickeri
ng]+24+30)&10(08>11)&11(18>19+30
)&12(04+08+13>17[=program]).