10 DIM pattern 7
20 GCOLPAT pattern
30 pattern?0=&F8
40 pattern?1=&74
50 pattern?2=&22
60 pattern?3=&47
70 pattern?4=&8F
80 pattern?5=&17
90 pattern?6=&22
100 pattern?7=&71
110 CLG
120 pattern?0=&77
130 pattern?1=&89
140 pattern?2=&8F
150 pattern?3=&8F
160 pattern?4=&77
170 pattern?5=&98
180 pattern?6=&F8
190 pattern?7=&F8
200 MOVE 48,32
210 PLOT 153,24,0
220 MOVE 48,32
230 PLOT 145,24,0
240 REPEAT:UNTIL INKEY(0)<>-1