Make a game for your Spectrum.

  10 BORDER 7: PAPER 7: BRIGHT 1: INK 0: POKE 23624,120: CLS
  20 LET a$="198x": LET c$="2645"
  30 FOR i=1 TO 4: LET p=VAL c$(i): LET n=CODE a$(i)
  40 FOR y=0 TO 7: LET b=PEEK (15616+8*(n-32)+y)
  50 FOR x=7 TO 0 STEP -1
  60 IF b-2*INT (b/2)=1 THEN PRINT AT y+2,8*(i-1)+x; PAPER p;" "
  70 LET b=INT (b/2): NEXT x: NEXT y: NEXT i
  80 FOR r=12 TO 21: PRINT AT r,36-r; PAPER 2;"  "; PAPER 6;"  ";
  85 PRINT PAPER 4;"  "; PAPER 5;"  ": NEXT r
  90 PRINT AT 13,2;"CODE LIKE IT'S 198X"
 100 PRINT AT 15,2;"CODE198X.COM"
 110 PAUSE 0

  10 BORDER 7: PAPER 7: BRIGHT 1: INK 0: POKE 23624,120: CLS
  20 FOR a=0 TO 23
  30 INK 1+a-6*INT (a/6)
  40 CIRCLE 128+40*COS (a*PI/12),92+40*SIN (a*PI/12),40
  50 NEXT a
  60 INK 0: PRINT AT 21,10;"CODE198X.COM"
  70 PAUSE 0

10 BORDER 7: PAPER 7: INK 0: BRIGHT 1: CLS
20 FOR y=0 TO 28: READ n
30 FOR x=28 TO 0 STEP -1
40 LET b=n-2*INT (n/2): LET n=INT (n/2)
50 IF b=0 THEN GO TO 80
60 FOR p=0 TO 3
70 PLOT 70+4*x,143-4*y-p: DRAW 3,0: NEXT p
80 NEXT x: NEXT y
90 PRINT AT 21,9;"SCAN THIS CODE": PAUSE 0
100 DATA 533870719,274210369,391459933
110 DATA 390666589,391872093,273104193
120 DATA 534074751,962560,335120535
130 DATA 462459798,91993236,377526745
140 DATA 24556001,111140095,216635285
150 DATA 44246773,108218280,480302998
160 DATA 536685193,506818860,527227902
170 DATA 1277208,534084440,274681617
180 DATA 391902203,391954049,390722871
190 DATA 273014829,534426032