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 SUB 24: RESTORE : READ h,i,a,b: LET c=1+INT (RND*5): GO SUB 29: PLOT 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: NEXT 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": READ b,c,d,e: IF PEEK (a+b)<>e THEN 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,245,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: LET 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-INT (a/10)*19-(2 AND g>30): BEEP h,45-g: NEXT g: LET a(31,2)=0: LET 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 TO 8: READ a,b: PRINT AT a,b;s$: PAPER g: GO SUB 28: BEEP h,g: PAPER 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$+CHR$ (144+g): BEEP h,g: NEXT g: PRINT #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: LET d$=d$( TO 23): FLASH 1: OVER 1: INK 8: FOR g=4 TO 14 STEP 2: OUT 254,23: PRINT AT g,4;d$;AT g+1,4;d$: OUT 254,0: NEXT g: OUT 254,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: INK 0: FLASH 0: DATA CHR$ 155,e$(LEN (e$)-3 TO )+"'s 24X16-px Speccy 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$="" THEN 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 LEN 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$: LET f$=STR$ (CODE e$(e*2-1)-46): LET g$=STR$ (CODE e$(e*2)-46): LET 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: PRINT #1;b$; OVER 0;AT 1,a-1; INK INT (RND*6)+1;a$(g): NEXT f: PRINT #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$="" THEN 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 STEP -.5: FOR f=0 TO g: PRINT #1; INK 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 CHR$ 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: INK 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,27,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 23733)+1)/1024)-16>16 THEN PRINT AT 0,26; INK 3; FLASH 1;"BIG"; INVERSE 1;"RAM"
  28 PRINT FLASH 1;AT 13,13;s$;AT 13,15;s$;AT 13,17;s$: RETURN
  29 PRINT #1;AT 1,0;: FOR g=0 TO 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[=pixels]&12-01)/2023-09(23[=flickering]+24+30)&10(08>11)&11(18>19+30)&12(04+08+13>17[=program]).