Вместо 250, 250 поставить?

FonSwong, Поставь то, что я Написал в 52 строку

66 строку убрал, поставил на 52 If r%>255 then r%=0
Все равно не хочет

Ааааа, я понял, короче:
52 if r%=250 then r%=0

FonSwong, а зачем тебе р+25?

Терь без ошибок
Токо цвет чёт не меняется помоему(р+25 для того чтобы цвет автоматом менялся с каждой новой точкой)

FonSwong, 10 CLS
15 R%=0
20 X%=1:X1%=176
30 Y%=1:Y1%=1
31 FOR I%=0 TO 220
40 X%=X%+1:X1%=X1%-1
50 Y%=Y%+1:Y1%=Y1%+1
52 IF R%>253 THEN R%=0
55 R%=R%+2
56 SETCOLOR R%,y%,y1%
60 PLOT X%,Y%LOT X1%,Y1%
65 SLEEP 50
70 NEXT I%
  Меняется вот присмотрись.

limil, смайлик убери

limil, А если в 31,52,55 другие цифры поставить?
И в 56 разве нельзя просто setcolor r%,0,0 ?
Чтоб чисто на красный менялось?

FonSwong, Тебе нужен просто красный? SetColor 255,0,0