From 8c65f6a6eb03063e23dfadc491c12735519ea902 Mon Sep 17 00:00:00 2001
From: Vince Weaver <vince@deater.net>
Date: Thu, 29 Oct 2020 16:05:10 -0400
Subject: [PATCH] appleiibot: horizon.bas update

---
 appleiibot/horizon.bas | 20 ++++++++------------
 1 file changed, 8 insertions(+), 12 deletions(-)

diff --git a/appleiibot/horizon.bas b/appleiibot/horizon.bas
index f71c94dc..9c5f9a79 100644
--- a/appleiibot/horizon.bas
+++ b/appleiibot/horizon.bas
@@ -1,12 +1,8 @@
-10 HGR:HGR2:C=2
-12 FOR I=0 TO 8
-14 X=0:Y=96+I*11:V=279:W=Y:GOSUB200
-16 NEXT
-22 A=-220:W=96:FORI=1TO8
-24 READ B:Y=B
-26 X=A*(A>0):V=I*16:GOSUB200
-30 X=279-X:V=(17-I)*16:GOSUB200
-32 A=A+48:NEXT
-70 GOTO 22
-138 DATA 101,112,123,139,166,191,191,191
-200HCOLOR=C:HPLOTX,YTOV,W:RETURN
+1HGR:HGR2:HCOLOR=2
+2FORJ=1TO8:A=192+25*J:POKE230,(1+NOTP)*32:POKE49236+P,0:CALL-3086
+3A=A/2:Y=96+A:Y=Y*(Y<192):HPLOT0,YTO279,Y:IFA>1THEN3
+4B=101:K=2.5:A=-220
+5FORI=1TO8:W=96:Y=B:IFY>191THENY=191
+7X=A*(A>0):V=I*16:GOSUB9:HPLOT279-X,YTO(17-I)*16,96
+8A=A+48:K=K+K:B=B+K:NEXT:P=NOTP:NEXT:GOTO2
+9HPLOTX,YTOV,W:RETURN