{* Луч света *}

REM basic

' Луч света


SCREEN 9 {луч света
}CLS
a$ = "  Select WINDOWS"
a = 10: z = 3: x = LEN(a$): n = 1
1 For i = z To x Step n
For q = 1 To 7000: Next q
If INKEY$ = " " Then End
c = 15: b = i: GoSub swet
c = 7: b = i + 3: GoSub swet
c = 0: b = i + 4: GoSub swet
c = 7: b = i - 1: GoSub swet
c = 0: b = i - 2: GoSub swet
Next i
 SWAP z, x: n = -n
GoTo 1
End

swet:
COLOR c
LOCATE a, b
PRINT Mid$(a$, b, 1)
    For q = 1 To 7000: Next q
Return