CLS
SCREEN 12
RANDOMIZE TIMER
DIM Back(1 TO 82)
SLEEP
Qwq = 81
x% = 245      'To change how far right or left change this variable
y% = 5        'To change how far up or down change this variable
FOR Qw = 0 TO 400 STEP 10                                     '{
LINE (x% - (Qw / 2), y% + Qw)-(x% + 140 + (Qw / 2), y% + Qw)  '{Inizializes the screen
NEXT Qw                                                       '{
LINE (x%, y%)-(x% - 200, y% + 400)
LINE (x% + 140, y%)-(x% + 340, y% + 400)
FOR Qwqq = 1 TO 81
cc% = RND * 2
Back(Qwqq) = cc%
'PRINT cc%
NEXT Qwqq
FOR w = 1 TO 34
FOR Qw = 400 TO 0 STEP -10                                     '{
IF Back(Qwq) = 0 THEN clr% = 8
IF Back(Qwq) = 1 THEN clr% = 7
IF Back(Qwq) = 2 THEN clr% = 15
LINE (x% - ((Qw) / 2), y% + Qw)-(x% + 140 + (Qw / 2), y% + Qw), clr%                  '{Inizializes the screen
IF Qwq = 1 OR Qwq = 41 THEN  ELSE Back(Qwq + w) = Back(Qwq): Back(Qwq) = Back(Qwq - w)
Qwq = Qwq - 1
NEXT Qw                                                       '{
Qwq = 81 - w
NEXT w

SUB SLeepa (t)
a = t + TIMER
DO UNTIL TIMER >= a: LOOP
END SUB