Graphics Bonus

   1 REM "opus"
   5 LET x=144
  10 FOR n=0 TO 7
  15 READ r: IF r=256 THEN GO TO 1000
  20 POKE USR CHR$ x+n,r
  30 NEXT n
  35 LET x=x+1: GO TO 10
 100 DATA 0,0,0,0,0,0,0,0
 110 DATA 0,0,0,0,0,63,64,64
 120 DATA 0,15,31,63,31,95,95,31
 130 DATA 0,128,192,224,224,240,240,240
 200 DATA 0,1,1,1,0,0,0,0
 210 DATA 144,144,0,255,0,0,1,2
 220 DATA 55,3,3,131,67,35,70,189
 230 DATA 249,249,233,192,152,56,120,252
 300 DATA 0,0,0,0,0,0,0,0
 310 DATA 2,2,1,0,1,2,4,8
 320 DATA 161,191,99,131,3,3,3,3
 330 DATA 252,252,252,252,252,252,252,252
 400 DATA 0,0,0,2,13,20,18,40
 410 DATA 16,16,32,34,221,101,106,96
 420 DATA 3,3,3,131,69,69,69,69
 430 DATA 252,252,252,252,252,252,248,244
 500 DATA 32,28,2,1,1,0,0,0
 510 DATA 80,88,72,36,152,152,255
 520 DATA 129,129,177,72,8,16,224,255
 530 DATA 244,236,236,236,236,110,15,255
 600 DATA 256
1000 PRINT "ABCD"'"EFGH"'"IJKL","MNOP","QRST": REM "ABCD", etc. are to be typed in the GRAPHICS mode.