{* Cмена дня и ночи *}

REM basic

' Смена дня и ночи


1 SCREEN 7: COLOR 15, 0
 For j = 1 To 2
 For s = 1 To 100: x = INT(RND(1) * 320): y = INT(RND(1) * 200): q = INT(RND(1) * 16): PSET (x, y), q:  Next s
Next j
For d = -6 To 326
LINE (1, 100)-(319, 199), 8: LINE (1, 100)-(1, 199), 8: LINE (1, 199)-(319, 199), 8: PAINT (2, 110), 8, 8
LINE (15, 100)-(17, 110), 6, BF: CIRCLE (16, 104), 5, 2, , , 1.4: PAINT (16, 104), 2
For g = 160 To 240 Step 20: LINE (g, g - 7)-(g + 2, g - 20), 6, BF
CIRCLE (g + 1, g - 16), 5, 2, , , 1.3: PAINT (g + 1, g - 16), 2: Next g
If d < 30 Or d > 300 Then a1 = 12 Else a1 = 0
LINE (100, 140)-(104, 144), 6, BF: LINE (104, 140)-(110, 138), 6
LINE (104, 144)-(110, 142), 6: LINE (110, 142)-(110, 138), 6
 PAINT (107, 140), 6
LINE (100, 140)-(103, 137), 6: LINE (103, 137)-(104, 140), 6
LINE (103, 137)-(108, 135), 6: LINE (108, 135)-(110, 138), 6
  PSET (102, 142), a1: PSET (108, 141), a1:  PSET (106, 142), a1
LINE (6, 102)-(10, 103), 1: LINE (6, 102)-(10, 120), 1: LINE (10, 103)-(15, 118), 1: LINE (10, 120)-(60, 130), 1: LINE (15, 118)-(62, 125), 1: LINE (60, 130)-(120, 199), 1: LINE (62, 125)-(135, 199), 1: LINE (120, 199)-(135, 199), 1: PAINT (130, 196), 1, 1
PAINT (d - 1, 40), 0, 0: CIRCLE (d, 40), 5, 8, , , 1: PAINT (d, 40), 15, 8
For i = 1 To 3000: Next i
CIRCLE (d, 40), 6
Next d
For s = 1 To 100: x = INT(RND(1) * 320): y = INT(RND(1) * 200): PRESET (x, y), 0: Next s
SCREEN 7: COLOR 14, 11: For e = -9 To 329
LINE (1, 99)-(320, 200), 2: LINE (1, 99)-(1, 200), 2: LINE (1, 200)-(320, 200), 2: PAINT (4, 105), 10, 2
LINE (15, 100)-(17, 110), 6, BF: CIRCLE (16, 104), 5, 2, , , 1.4: PAINT (16, 104), 2
LINE (10, 120)-(60, 130), 9: LINE (15, 118)-(62, 125), 9: LINE (6, 102)-(10, 103), 9: LINE (6, 102)-(10, 120), 9: LINE (10, 103)-(15, 118), 9: LINE (60, 130)-(120, 199), 9: LINE (62, 125)-(135, 199), 9: LINE (120, 199)-(135, 199), 9: PAINT (130, 198), 9, 9
For g = 160 To 240 Step 20: LINE (g, g - 7)-(g + 2, g - 20), 6, BF
CIRCLE (g + 1, g - 16), 5, 2, , , 1.3: PAINT (g + 1, g - 16), 2: Next g
LINE (100, 140)-(104, 144), 14, BF: LINE (104, 140)-(110, 138), 14
LINE (104, 144)-(110, 142), 14: LINE (110, 142)-(110, 138)
PAINT (107, 140), 14
LINE (103, 137)-(100, 140), 14: LINE (103, 137)-(104, 140), 14
  LINE (103, 137)-(108, 135), 14: LINE (108, 135)-(110, 138), 14
  PSET (102, 142), 6: PSET (108, 141), 6: PSET (106, 142), 6
  PAINT (e - 1, 40), 11, 11
CIRCLE (e, 40), 8, 15, , , 1
PAINT (e, 40), 14, 15
For i = 1 To 3010: Next i
CIRCLE (e, 40), 9
Next e
CLS
GoTo 1