اين برنامه باعث توليد رنگين کمان مي شود
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