free software resistance
the cost of computing freedom is eternal vigilance
### hlcc.fig
*original date:* dec 2018
*originally posted:* oct 2024
hlcc.fig:
```
p : "happy love day feb 2015" # public domain
textmode
function printh hh xx yy cc ## eh?
x : get xx
y : get yy
c : get cc
for col 1 21 1
h : get hh : mid col 1 : val
iftrue h
px : x : plus : col
p : pset px y c
fig
next
fig
function inih xx yy cc
x : get xx
y : get yy
c : get cc
p : y : plus 1 : swap p y : "000011100000001110000" : printh p x y c
p : y : plus 1 : swap p y : "001100011000110001100" : printh p x y c
p : y : plus 1 : swap p y : "010000000101000000010" : printh p x y c
p : y : plus 1 : swap p y : "100000000010000000001" : printh p x y c
p : y : plus 1 : swap p y : "010000000000000000010" : printh p x y c
p : y : plus 1 : swap p y : "001100000000000001100" : printh p x y c
p : y : plus 1 : swap p y : "000010000000000010000" : printh p x y c
p : y : plus 1 : swap p y : "000001100000001100000" : printh p x y c
p : y : plus 1 : swap p y : "000000010000010000000" : printh p x y c
p : y : plus 1 : swap p y : "000000001101100000000" : printh p x y c
p : y : plus 1 : swap p y : "000000000010000000000" : printh p x y c
fig
p : highlight 7
while
for h 1 50 1
p : "" : print
next
for h 1 7 1
x : randint -1 : 57
y : randint -1 : 9 #-1
c : 12
ifc : randint 0 1
iftrue ifc
c : 4
fig
ifc : randint 0 1
iftrue ifc
c : 13
fig
p : inih x y c
p : "" : locate 1 1 : print : colortext 0 : highlight 7
p : sleep .4 : colortext 12 : highlight 7
p : " happy love day " : locate 2 2 : prints
next
p : sleep .5
wend
p : 32 : chr : locate 21 1 : colortext 7 : print
```
license: 0-clause bsd
```
# 2018 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