چراغ راهنمایی

چراغ راهنمایی
CLS
SCREEN 12
'------------------------------------
LINE (320, 240)-(380, 40), 15, B
LINE (335, 240)-(365, 440), 15, B
CIRCLE (350, 70), 25, 8
CIRCLE (350, 140), 25, 8
CIRCLE (350, 210), 25, 8
'-------------------------
PAINT (350, 70), 15, 8
PAINT (350, 140), 15, 8
PAINT (350, 210), 15, 8
'------------------------------------
DO
  PAINT (350, 210), 15, 8
  PAINT (350, 70), 4, 8
  SLEEP 4
  PAINT (350, 70), 15, 8
  PAINT (350, 140), 14, 8
  SLEEP 1
  PAINT (350, 140), 15, 8
  PAINT (350, 210), 2, 8
  SLEEP 6
LOOP UNTIL INKEY$ = CHR$(27)
END