10 mode 1
20 for i=0 to 15: read u: palette i,u:next i
30 data 0,8,7,15,112,120,119,127
40 data 0,8,7,15,112,120,119,127
50 paper 6:border 5: ink 2: cls

