dos33fsprogs/appleiibot/horizon.bas

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
appleiibot: shrink horizon.bas more 2020-10-29 20:47:42 +00:00			`1HGR2`
			`2FORJ=0TO7:HCOLOR=2:S=96+12J:POKE230,32+32P: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+I16,96:HPLOT279-X,YTO272-I*16,96:A=A+48:K=K+K:Y=Y+K:NEXTI,J:GOTO2`