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