From 6d17397b54392c326de320a89dc3dfa33cb1023a Mon Sep 17 00:00:00 2001
From: Vince Weaver <vince@deater.net>
Date: Sat, 19 Feb 2022 21:38:33 -0500
Subject: [PATCH] basic: lemm getting closer

---
 basic/appleiibot/lemm.bas | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/basic/appleiibot/lemm.bas b/basic/appleiibot/lemm.bas
index 15b84ea3..719cf246 100644
--- a/basic/appleiibot/lemm.bas
+++ b/basic/appleiibot/lemm.bas
@@ -1,4 +1,5 @@
-0REM!,/')!-.&'!/0&'&-/*.&,../',./0'/0./'01,.',-+-'-.*+#./()#-0)*&-/*/&,0./'+,.0'.0/0'-.*,'./,-!,0(*!-/'(#./()#-0)*
+0REM&-/*/&,0./'+,.0'.0/0'-.*,'./,-!,0(*!-/'(#./()#-0)*!,/')!-.&'!/0&'&-/*.&,../',./0'/0./'01,.',-+-'-.*+#./()#-0)*
 1HGR:DEFFNP(X)=7*PEEK(2054+I*5+X)-224
-2GOSUB4:HGR2:Z=10:GOSUB4
-4FORI=ZTOZ+11:HCOLOR=FNP(0)/7:FORY=FNP(3)TOFNP(4)-1:HPLOTFNP(1),YTOFNP(2)-1,Y:NEXTY,I:RETURN
+4FORI=0TO21:HCOLOR=FNP(0)/7:IFI=10THENHGR2
+5FORY=FNP(3)TOFNP(4)-1:HPLOTFNP(1),YTOFNP(2)-1,Y:NEXTY,I
+6P=NOTP:P=SQR(3):POKE49236+P,0:GOTO6