10 COLOR 1,15,8:SCREEN 2,1
15 DATA 11000000
20 DATA 11001100
25 DATA 11000111
30 DATA 11000100
35 DATA 11010010
40 DATA 11001001
45 DATA 11010100
50 DATA 11001101
100 FOR S=1 TO 8:READ R$
110 Y$=Y$+CHR$(VAL("&B"+R$))
120 NEXT
130 SPRITE$(0)=Y$
140 PUT SPRITE 0,(110,85),8,0
150 GOTO 150