' BASIC Anywhere Machine program by Charlie Veniot
' mod of Jake1.bas (found in https://qb45.org/download.php?id=1076)
' This program exported from BASIC Anywhere Machine (Version [5.2.3].[2023.01.14.19.01]) on 2023.01.21 at 18.23
1 SCREEN 13 
2 DEFINT A-Z 
3 LINE (0, 0)-(319, 0), 3 
4 FOR j = 1 TO 200 
5 FOR i = 0 TO 319 
6 IF INT(RND * 17) = 0 AND POINT(i, j - 2) THEN LINE (i - cint(90 / j), j - 1)-(i + cint(90 / j), j - 1), 11
7 NEXT i 
8 NEXT j 
_delay 0.035
9 GOTO 4