* Данный текст распознан в автоматическом режиме, поэтому может содержать ошибки

206 PUT ( x 4 , y 4 ) , Mar, PSET d 4 = d 4 + T / (1.88 * 30) I F d4 > 6.28 THEN M a r g o d = M a r g o d + 1 LOCATE 15, 14: PRINT M a r g o d CALL O r b i t a ( x , y ) I F d 1 >= 6.28 THEN d 1 = 0 I F d2 >= 6.2 8 THEN d2 = 0 I F d3 >= 6.2 8 THEN d3 = 0 I F d4 >= 6.2 8 THEN d4 = 0 LOOP UNTIL I N K E Y $ = " " END SUB O r b i t a ( x , y ) CIRCLE ( x , y ) , 75, 8 'Орбита Меркурия CIRCLE ( x , y ) , 1 4 0 , 8'Орбита Венеpы CIRCLE ( x , y ) , 2 0 0 , 8'Орбита Земли CIRCLE ( x , y ) , 1.524 * 2 0 0 , 8'Орбита Маpса END SUB SUB P l a n e t y ( x , y, r a d ) 'pисую и запоминаю планеты CLS CIRCLE ( x , y ) , r a d * .382, 7 'Рисуем МЕРКУРИЙ PAINT ( x , y ) , 7, 7 GET ( x — r a d * 4, y — r a d * 4 ) - ( x + r a d * 4 , Mer(0) CLS CIRCLE ( x , y ) , r a d * .95, 13 'Рисуем Венеру PAINT ( x , y ) , 13, 13 GET ( x — r a d * 4, y — r a d * 4 ) - ( x + r a d * 4 , Ven(0) CLS CIRCLE ( x , y ) , r a d , 11 ' Рисуем Землю PAINT ( x , y ) , 3, 11 GET ( x — r a d * 4, y — r a d * 4 ) - ( x + r a d * 4 , Zem(0) CLS CIRCLE ( x , y ) , r a d * . 5 3 1 , 1 2 ' Рисуем Марс PAINT ( x , y ) , 12, 12 GET ( x — r a d * 4, y — r a d * 4 ) - ( x + r a d * 4 , Mar(0) CLS END SUB SUB S o l ( x , y, r a d ) CIRCLE ( x , y ) , r a d + 6, 4 ' Рисуем СОЛНЦЕ PAINT ( x , y ) , 14, 4 CIRCLE ( x , y ) , r a d + 4, 4 CIRCLE ( x , y ) , r a d + 2, 4 END SUB Языки Бейсик y + r a d * 4 ) , y + r a d * 4 ) , y + r a d * 4 ) , y + r a d * 4 ) ,