Здравствуйте!
Вот в этом коде надо исправить REM 9, чтобы наклонная прямая двигалась из левого в правый угол (экран 320 (по горизонтали) на 200 (по вертикали))

См рисунок

SCREEN 7
COLOR 2, 14

REM 1
FOR X = 160 TO 320 STEP 3
PSET (X, 100), 2
FOR T = 1 TO 100000
NEXT T
PSET (X, 100), 0
NEXT X

REM 2
FOR X = 320 TO 160 STEP -3
PSET (X, 100), 2
FOR T = 1 TO 100000
NEXT T
PSET (X, 100), 0
NEXT X

REM 3
FOR Y = 100 TO 200 STEP 3
PSET (160, Y), 2
FOR T = 1 TO 100000
NEXT T
PSET (160, Y), 0
NEXT Y

REM 4
FOR Y = 200 TO 100 STEP -3
PSET (160, Y), 2
FOR T = 1 TO 100000
NEXT T
PSET (160, Y), 0
NEXT Y

REM 5
FOR X = 160 TO 320 STEP 1
LINE (X, 100)-(X + 40, 60), 2
FOR T = 1 TO 10000
NEXT T
LINE (X, 100)-(X + 40, 60), 0
NEXT X

REM 6
FOR X = 320 TO 180 STEP -1
LINE (X - 40, 60)-(X, 100), 2, BF
FOR T = 1 TO 10000
NEXT T
LINE (X - 40, 60)-(X, 100), 0, BF
NEXT X

REM 7
FOR Y = 100 TO 200 STEP 1
CIRCLE (160, Y), 30, 2
FOR T = 1 TO 10000
NEXT T
CIRCLE (160, Y), 30, 0
NEXT Y

REM 8
FOR Y = 200 TO 100 STEP -1
CIRCLE (160, Y), 30, 2, 170 * 3.14 / 180, 10 * 3.14 / 180
FOR T = 1 TO 10000
NEXT T
CIRCLE (160, Y), 30, 0, 170 * 3.14 / 180, 10 * 3.14 / 180
NEXT Y

REM 9
FOR Y = 50 TO 200 STEP 1
LINE (0, Y)-(50, Y - 50), 2
FOR T = 1 TO 10000
NEXT T
LINE (0, Y)-(50, Y - 50), 2
NEXT Y

С уважением, Евгений

Уже не надо, сам догадался:)
REM 9
Y = 50
FOR X = 0 TO 320 STEP 1
LINE (X, Y)-(X + 50, Y - 50), 2
FOR T = 1 TO 10000
NEXT T
LINE (X, Y)-(X + 50, Y - 50), 0
Y = Y + .625
NEXT X

С уважением, Евгений