digital literacy for everyone
[lit][generate-title]
[lit]
[fig]
#### license: creative commons cc0 1.0 (public domain)
#### http://creativecommons.org/publicdomain/zero/1.0/
p "happy love day feb 2015"
textmode
function printh hh xx yy cc
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
home: [lit]https://freesoftwareresistance.neocities.org[lit]