رنگین کمان

این برنامه باعث تولید رنگین کمان می شود
SCREEN 13
DO
  FOR A = 0 TO 200
     LINE (0, A)-(320, A), A + Col
     IF INKEY$ <> "" THEN END
     LOCATE 12, 8: PRINT "http:\RFazli.blogfa.com"
  NEXT A
  Col = Col + 1
LOOP