commit c04360c

zzo38  ·  2022-11-10 07:37:44 +0000 UTC
parent 243031f 
Add munching squares example program
1 files changed,  +15, -0
A prg/munchingsquares.tal
A prg/munchingsquares.tal
+15, -0 
 1@@ -0,0 +1,15 @@
 2+\\ Munching squares
 3+\\ Public domain
 4+
 5+|0100
 6+  ;frame #20 DEO2
 7+  #0001 OVRk #22 DEO2 #24 DEO2
 8+  #0226 DEO
 9+  DUP STHk BRK
10+
11+@frame
12+  DUPk #2a DEO2
13+  [@ EORk #29 DEO STHrk #2e DEO INC DUP ], JCN
14+  LITr 01 EORr SWP STHrk ADD SWP
15+  STHrk ,frame JCN BRK
16+