Amazing one-liner

for i in seq(0, 480000, 480000) do pset i mod 800, i\800, 15 * ( ((i mod 800) XOR 2 + (i\ 800) XOR 2) MOD 7<>0)

'might want to
pause

That's pretty awesome!

Way cooler than anything being discussed here: https://news.ycombinator.com/item?id=15680668

Here's my obligatory hack

sq = seq(0, xmax*ymax, xmax*ymax)
j = 128
jj = 15
c = 3
while 1
  select case inkey
  case "c"
    c = c + 1 mod 15
  case "z"
    jj = max(3, jj - 5)
  case "x"   
    jj += 5
  end select
  for i in sq do pset i mod xmax, i/xmax, c * (((i mod xmax) XOR (i/xmax) XOR j) MOD jj<>0)
  showpage
  j = j + 1 mod 255
wend

Hi Chris, here is your hack back! :)

'City Maps.bas for SmallBASIC 0.12.9 (B+=MGA) 2017-11-21
'mod of Chris mod of one-liner
'some map reading music?
' https://www.youtube.com/watch?v=tv3qoIy5V9Q

maxX = 1100 : maxY = 700 : j = 128 : jj = 15 : m = 5
px = 10 : dpy = 30 : xo = 150 : py = dpy : c = 3
? "CLICK MENU:"
while py < 6 * dpy
at px + 20, py
? mid("color zoom in zoom out jj minus jj plus ", 10 * py / dpy - 9, 10)
py += dpy
wend
at px, 7 * dpy : ? "STATUS:"
at px + 20, 12 * dpy : ? "CITY MAPS"
showpage
while 1
t = ticks
while ticks - t < 500 'wait .5 sec for mouse click
if pen(3)=1 then
my = pen(5) : delay 100 'to avoid multi-click results
if dpy < my and my < 2 * dpy then
c= rgb(100 + rnd * 154, 100 + rnd * 154, 100 + rnd * 154)
elif 2 * dpy < my and my < 3 * dpy
if m + 1 < 11 then m += 1
elif 3 * dpy < my and my < 4 * dpy
if m-1 > 0 then m -= 1
elif 4 * dpy < my and my < 5 * dpy
jj = max(jj - 5, 3)
elif 5 * dpy < my and my < 6 * dpy
jj += 5
fi
my = 0
exit loop
fi
wend
X = maxX / m : Y = maxY / m
rect 150, 0, maxX + 150, maxY, c filled
for yy = 0 to Y
for xx = 0 to X
if (xx XOR yy XOR j) MOD jj = 0 then
rect m * xx + xo, m * yy step m, m, 0 filled
end if
next
next
rect 10, 8 * dpy, 150, 11 * dpy, 0 filled
at px, 8 * dpy : ? " zoom = ";m
at px, 9 * dpy : ? " j Mod = ";j
at px, 10 * dpy : ? "jj Mod = ";jj
showpage
delay 10
j = (j + 1) mod 255
wend


'City Maps.bas for SmallBASIC 0.12.9 (B+=MGA) 2017-11-21
'mod of Chris mod of one-liner, now with button mod
'some map reading music?
' https://www.youtube.com/watch?v=tv3qoIy5V9Q

maxX = 1100 : maxY = 700 : j = 128 : jj = 15 : m = 5
px = 10 : dpy = 60 : xo = 150 : py = dpy : c = 3 : dpy1 = 20
color 15, 0 : at 35, 30 : ? "CITY MAPS"
while py < 6 * dpy
for i = 1 to 15
rect px + i, py + i, 150 - i, py + dpy - i, rgb(15 * i, 15 * i, 15 * i) filled
next
color 0, RGB(225, 225, 225)
at px + 30, py + 20
? mid("color zoom in zoom outjj minusjj plus ", 8 * py / dpy - 7, 8)
py += dpy
wend
showpage
while 1
t = ticks
while ticks - t < 500 'wait .5 sec for mouse click
if pen(3) = 1 then
my = pen(5) : delay 100 'to avoid multi-click results
if dpy < my and my < 2 * dpy then
c= rgb(100 + rnd * 154, 100 + rnd * 154, 100 + rnd * 154)
elif 2 * dpy < my and my < 3 * dpy
if m + 1 < 11 then m += 1
elif 3 * dpy < my and my < 4 * dpy
if m-1 > 0 then m -= 1
elif 4 * dpy < my and my < 5 * dpy
jj = max(jj - 5, 3)
elif 5 * dpy < my and my < 6 * dpy
jj += 5
fi
my = 0
exit loop
fi
wend
X = maxX / m : Y = maxY / m
rect 150, 0, maxX + 150, maxY, c filled
for yy = 0 to Y
for xx = 0 to X
if (xx XOR yy XOR j) MOD jj = 0 then
rect m * xx + xo, m * yy step m, m, 0 filled
end if
next
next
rect 10, 240 + 8 * dpy1, 150, 240 + 11 * dpy, 0 filled
color 7, 0
at px, 240 + 7 * dpy1 : ? "STATUS:"
at px, 240 + 8 * dpy1 : ? " zoom = ";m
at px, 240 + 9 * dpy1 : ? " j Mod = ";j
at px, 240 + 10 * dpy1 : ? "jj Mod = ";jj
showpage
delay 10
j = (j + 1) mod 255
wend