Программа для вывода разноцветных полосок (сгодится для тестирования).
10 FOR C =1 TO 22
20 FOR S= 0 TO 7
30 PRINT PAPER S; " "; (4 ПРОБЕЛА)
40 NEXT S: NEXT C