print char set for c64 basic

1 print chr$(147)
2 input"write backwards or forwards";a%
3 print chr$(147)
4 IF a%=1 then 6
5 IF a%=2 then 12

6 ad% = 1600
7 for i = 255 to 0 step -1
8      poke ad%, i
9      ad% = ad% - 1
10 next
11 goto  2

12 ad% = 1344
13 for i = 0 to 255 step 1
14        poke ad%, i
15        ad% = ad% + 1
16 next
17 goto 2