free software resistance
the cost of computing freedom is eternal vigilance
### kite.bas
*original date:* sep 2010
*originally posted:* sep 2024
many years ago, a forum rival told me to "go fly a kite". this was my response, written in basic.
i would later port it to python, then fig.
please note that until i learned python, i didnt care about indentation at all:
```
'2007 mennonite
'public domain
on error goto 10
dim b as integer
dim a as integer
dim atwo as integer
q$="...../"+chr$(92)+"........./__"+chr$(92)+"......./____"+chr$(92)+"...../_q____"+chr$(92)+".../___b____"+chr$(92)+"./__________"+chr$(92)
q$=q$+chr$(92)+"__________/."+chr$(92)+"____6___/..."+chr$(92)+"____4_/....."+chr$(92)+"____/......."+chr$(92)+"__/........."+chr$(92)+"/....."
COLOR , 1
for y=25 to 1 step -1
for x=1 to 80
locate y,x: print chr$(32);
next x
next y: locate 1,1
RANDOMIZE TIMER
FOR a = 1 TO 10
strn$ = strn$ + "||" + CHR$(247)
NEXT a
DO
for y=25 to 1 step -1
for x=1 to 80
locate y,x: print chr$(32);
next x
next y: locate 1,1
b = b + (RND(1) * 3 -.5 - 1)
a = a + (RND(1) * 3 -.5 - 1)
IF b < 1 THEN b = 1 ELSE IF b > 10 THEN b = 10
IF a < 1 THEN a = 1 ELSE IF a > 67 THEN a = 67
FOR y = 1 TO 12
FOR x = 1 TO 12
one$ = right$(left$(q$,y * 12 - 12 + x),1)
fc=11
if one$="." then fc=1
if one$="_" then fc=3
if asc(ucase$(one$))>64 and asc(ucase$(one$))<91 then fc=14
if asc(ucase$(one$))>47 and asc(ucase$(one$))<58 then fc=14
COLOR fc
LOCATE y + b, x + a
PRINT one$;
NEXT x
NEXT y
COLOR 15
atwo = 0
csrlin=b+12
DO WHILE CSRLIN <= 24
LOCATE CSRLIN + 1, x + a - 6 + atwo
atwo = atwo + (RND(1) * 3 -.5 - 1)
PRINT right$(left$(strn$,csrlin),1);
csrlin=csrlin+1
LOOP
t = TIMER: DO: LOOP UNTIL t > TIMER + .25 OR t < TIMER - .25
LOOP UNTIL INKEY$ = CHR$(27)
color 7,0
for y=25 to 1 step -1
for x=1 to 80
locate y,x: print chr$(32);
next x
next y: locate 1,1
end
10 resume next
```
license: 0-clause bsd
```
# 2007, 2010 mn
#
# Permission to use, copy, modify, and/or distribute this software for any
# purpose with or without fee is hereby granted.
#
# THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
# WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
# MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
# ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
# WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
# ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
# OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
```
=> https://freesoftwareresistance.neocities.org