USING GRAPHIC CHARACTERS IN DATA STATEMENTS

The following program allows you to create a sprite using blanks and solid circles <SHIFT+Q> in DATA statements. The sprite and the numbers POKED into the sprite data registers are displayed.

``` 10 print"{clear}":fori=0to63:poke832+i,0:next
20 gosub60000
999 end
60000 data"         QQQQQQQ        "
60001 data"       QQQQQQQQQQQ      "
60002 data"      QQQQQQQQQQQQQ     "
60003 data"      QQQQQ   QQQQQ     "
60004 data"     QQQQQ QQQ  QQQQ    "
60005 data"     QQQQQ QQQ QQQQQ    "
60006 data"     QQQQQ QQQ  QQQQ    "
60007 data"      QQQQQ   QQQQQ     "
60008 data"      QQQQQQQQQQQQQ     "
60009 data"      QQQQQQQQQQQQQ     "
60010 data"      Q QQQQQQQQQ Q     "
60011 data"       Q QQQQQQQ Q      "
60012 data"       Q  QQQQQ  Q      "
60013 data"        Q  QQQ  Q       "
60014 data"        Q  QQQ  Q       "
60015 data"         Q  Q  Q        "
60016 data"         Q  Q  Q        "
60017 data"          QQQQQ         "
60018 data"          QQQQQ         "
60019 data"          QQQQQ         "
60020 data"           QQQ          "
60100 v=53248:pokev,200:pokev+1,100:pokev+21,1:pokev+39,14:poke2040,13
60105 pokev+23,1:pokev+29,1
60110 fori=0to20:reada\$:fork=0to2:t=0:forj=0to7:b=0
60140 ifmid\$(a\$,j+k*8+1,1)="Q"thenb=1
60150 t=t+b*2^(7-j):next:printt;:poke832+i*3+k,t:next:print:next
60200 return
```

 This page has been created by Sami Rautiainen. Read the small print. Last updated December 11, 2002.