Color Bars

Gallery

Source Code

    8 BORDER 0: PAPER 0
    9 LET k=1
   10 FOR i=0 TO 21
   15 LET k=k+1
   16 IF k=7 THEN LET k=1
   20 FOR j=0 TO 31
   30 PRINT INK k;AT i,j;"\::"
   40 NEXT j
   50 NEXT i
   60 PAUSE 0
  109 LET k=1
  110 FOR i=0 TO 31
  111 IF i=16 THEN PAUSE 0
  115 LET k=k+1
  116 IF k=7 THEN LET k=1
  120 FOR j=0 TO 21
  130 PRINT INK k;AT j,i;"\::"
  140 NEXT j
  150 NEXT i
  160 PAUSE 0
  210 PRINT INK 7;AT 16,25;"\::\::\: \: \: \: \: "
  220 PRINT INK 7;AT 17,25;"\::\::\: \: \: \: \: "
  221 PRINT INK 7;AT 18,25;"\::\::\: \: \: \: \: "
  223 PRINT INK 7;AT 19,25;"\::\::\: \: \: \: \: "
  225 PRINT INK 7;AT 20,25;"\::\::\: \: \: \: \: "
  226 PRINT INK 7;AT 21,25;"\::\::\: \: \: \: \: "
  230 PAUSE 0
  310 FOR i=0 TO 31
  320 FOR j=0 TO 21
  330 PRINT INK 7;AT j,i;"\.'"
  340 NEXT j
  350 NEXT i
  360 PAUSE 0
  410 FOR i=0 TO 31
  420 FOR j=0 TO 21
  430 PRINT INK 7;AT j,i;"#"
  440 NEXT j
  450 NEXT i
  460 PAUSE 0
  510 CLS 
  520 PRINT INK 7;AT 10,15;"\:'"
  530 PAUSE 0
  540 PRINT INK 7;AT 0,0;"\. ";AT 0,31;"\. ";AT 21,0;"\. ";AT 21,31;"\. "
  550 PAUSE 0
  560 PRINT INK 7;AT 5,0;"\.    \.     \.     \.     \.     \.     \. "
  570 PRINT INK 7;AT 16,0;"\.     \.     \.     \.     \.     \.     \. "
  580 PAUSE 0
 1000 GO TO 5
 9997 STOP 
 9998 SAVE "COLOR BARS" LINE 0