100 POKE52,48:POKE56,48
110 POKE56334,PEEK(56334)AND254
120 POKE1,PEEK(1)AND251
130 FORI=0TO511
140 POKE12288+I,PEEK(53248+I)
150 NEXT
160 POKE1,PEEK(1)OR4
170 POKE56334,PEEK(56334)OR1
180 POKE53272,(PEEK(53272)AND240)+12
190 ADDRESS=12288+8*CHARACTER
200 FORX=ADDRESSTOADDRESS+7
210 READ DT
220 POKEX,DT
230 NEXT
240 DATA #'S THAT MAKE UP YOUR CHARACTER