mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-09-27 11:55:20 +00:00
appleiibot: horizon, some other minor optimizations
This commit is contained in:
parent
b8e15aa194
commit
f6fe81d721
@ -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
|
||||
|
Loading…
Reference in New Issue
Block a user