SCREEN 11
DIM tile(1 TO 15) AS STRING
FOR i = 1 TO 15
  FOR j = 1 TO 8
    READ temp$
    tile(i) = tile(i) + CHR$(VAL("&H" + temp$))
  NEXT j
NEXT i
FOR i = 1 TO 15
  LINE (40 * i - 20, 100)-STEP(35, 200), , B
  PAINT (40 * i - 19, 101), tile(i)
NEXT i
END

DATA FF, C1, BE, A2, A2, A2, BE, C1
DATA FB, A, FB, AA, BF, A0, BF, AA
DATA BE, 20, AF, A8, BE, 8A, FA, 2
DATA 88, 10, 26, 29, 9C, 4A, 32, 4
DATA EE, 22, BB, 88, EE, 22, BB, 88
DATA 80, 53, 44, 35, 8, 56, 11, 65
DATA 8, 1C, 3E, 7F, FF, 7F, 3E, 1C
DATA FE, 8A, FB, 2A, EF, A8, BF, A2
DATA 88, 15, 22, 51, 88, 15, 22, 51
DATA B3, 3B, 6E, E6, B3, 3B, 6E, E6
DATA FF, 22, FF, 88, FF, 22, FF, 88
DATA 62, 91, 89, 46, 62, 91, 89, 46
DATA 38, 44, BA, AA, BA, 44, 38, 0
DATA 3C, 42, 99, BD, BD, 99, 42, 3C
DATA FF, 80, 80, 80, FF, 8, 8, 8

如对PAINT语句有不解之处，请参见[url=http://www.programfan.com/club/showbbs.asp?id=71171]屏幕操作语句（教程）[/url]

SCREEN 11
DIM tile(1 TO 15) AS STRING
FOR i = 1 TO 15
  FOR j = 1 TO 8
    READ temp$
    tile(i) = tile(i) + CHR$(VAL("&H" + temp$))
  NEXT j
NEXT i
FOR i = 1 TO 15
  LINE (40 * i - 20, 100)-STEP(35, 200), , B
  PAINT (40 * i - 19, 101), tile(i)
NEXT i
END


DATA FB, A, FB, AA, BF, A0, BF, AA   'hengchage
DATA 15, 22, 54, 88, 45, 22, 51, 88   'xiechage
DATA BE, 20, AF, A8, BE, 8A, FA, 2    'fangsihua
DATA 88, 10, 26, 29, 9C, 4A, 32, 4    'xiesihua
DATA EE, 22, BB, 88, EE, 22, BB, 88   'xiewen
DATA 80, 53, 44, 35, 8, 56, 11, 65    'huaxu
DATA FE, 8A, FB, 2A, EF, A8, BF, A2   'hengge
DATA 88, 15, 22, 51, 88, 15, 22, 51   'xiege
DATA FF, 22, FF, 88, FF, 22, FF, 88   'changchen small
DATA FF, 80, 80, 80, FF, 8, 8, 8      'changchen big
DATA 54, 7C, 7C, 38, 92, 7C, 00, 00   'hua
DATA 20, 60, 64, 3C, 3C, 24, 00, 00   'gou
DATA B3, 3B, 6E, E6, B3, 3B, 6E, E6   'liuxu
DATA 62, 91, 89, 46, 62, 91, 89, 46
DATA 38, 44, BA, AA, BA, 44, 38, 0
DATA 3C, 42, 99, BD, BD, 99, 42, 3C
DATA FF, C1, BE, A2, A2, A2, BE, C1   
DATA 8, 1C, 3E, 7F, FF, 7F, 3E, 1C    'xiefangge