diff --git a/appleiibot/horizon.bas b/appleiibot/horizon.bas index 7ee29075..2cb5e1cf 100644 --- a/appleiibot/horizon.bas +++ b/appleiibot/horizon.bas @@ -1,5 +1,5 @@ 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 +4HCOLOR=3:HPLOT140,9:Y=101:K=2.5:A=-220:FORI=1TO8:IFY>191THENY=191 +7X=A*(A>0):HPLOTX,YTO4+I*16,96TO272-I*16,96TO279-X,Y:A=A+48:K=K+K:Y=Y+K:NEXTI,J:GOTO2