10    D$=" "
20    for I=1 to 12:gosub 100
30    next I
40    for I=21 to 31:gosub 100
50    next I
60    I=254:gosub 100:I=255:gosub 100
70    end 
100   poke 18049,I:lprint using "&&&&####";D$;I
110   return