تبليغاتX
فضلي
کامپیوتر - رنگين کمان
آزاد
اين برنامه باعث توليد رنگين کمان مي شود
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
+ نوشته شده در  سه شنبه نهم مرداد 1386ساعت 16:43  توسط رسول فضلی  |