Apple-2-SW
/
dos33fsprogs
mirror of https://github.com/deater/dos33fsprogs.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

appleiibot: shrink horizon.bas more

This commit is contained in:
Vince Weaver 2020-10-29 16:47:42 -04:00
parent f06c77f871
commit b8e15aa194
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
appleiibot/horizon.bas
View File

@ -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