From b8e15aa194d5282d492f002d268a73f201d53df1 Mon Sep 17 00:00:00 2001
From: Vince Weaver <vince@deater.net>
Date: Thu, 29 Oct 2020 16:47:42 -0400
Subject: [PATCH] appleiibot: shrink horizon.bas more

---
 appleiibot/horizon.bas | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/appleiibot/horizon.bas b/appleiibot/horizon.bas
index 02f34ea2..7ee29075 100644
--- a/appleiibot/horizon.bas
+++ b/appleiibot/horizon.bas
@@ -1,5 +1,5 @@
-1HGR2:HCOLOR=2
-2FORJ=1TO8:A=192+25*J:POKE230,32+NOTP*32:POKE49236+P,0:CALL-3086
-3A=A/2:Y=96+A:Y=Y*(Y<192):HPLOT0,YTO279,Y:IFA>1THEN3
-4Y=101:K=2.5:A=-220:FORI=1TO8:IFY>191THENY=191
-7X=A*(A>0):HPLOTX,YTOI*16,96:HPLOT279-X,YTO272-I*16,96:A=A+48:K=K+K:Y=Y+K:NEXT:P=NOTP:NEXT:GOTO2
+1HGR2
+2FORJ=0TO7:HCOLOR=2:S=96+12*J:POKE230,32+32*P:P=NOTP:POKE49236+P,0:CALL-3086
+3S=S/2:Y=96+S:HPLOT0,YTO279,Y:IFS>1THEN3
+4HCOLOR=3:Y=101:K=2.5:A=-220:FORI=1TO8:IFY>191THENY=191
+7X=A*(A>0):HPLOTX,YTO4+I*16,96:HPLOT279-X,YTO272-I*16,96:A=A+48:K=K+K:Y=Y+K:NEXTI,J:GOTO2