1 DATA1,12,6,3,14,13,15
2 HOME : GR : FOR I = 1 TO 7
3                 READ C(I) : NEXT
4 FOR I = 0 TO 39
5     COLOR= C(I / 5)
6     VLIN 0,39 AT I : NEXT