Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2024-09-09 02:54:25 +00:00
Code Issues Projects Releases Wiki Activity

appleiibot: horizon, more size

Browse Source
This commit is contained in:
Vince Weaver 2020-10-29 23:49:14 -04:00
parent 0c4384af72
commit 9278367090
1 changed files with 5 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
appleiibot/horizon.bas
View File

@ -1,6 +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:HPLOT140,9:Y=101:K=2.5:FORI=1TO8:A=16*I:IFY>191THENY=191
7X=(A*3-268)*(I>5):HPLOTX,YTO4+A,96TO272-A,96TO279-X,Y:K=K+K:Y=Y+K:NEXTI,J:GOTO2
1HGR2:Z=96:K=279
2FORJ=0TO7:HCOLOR=2:S=Z+12*J:POKE230,32+32*P:P=NOTP:POKE49236+P,0:CALL-3086
3S=S/2:Y=Z+S:HPLOT0,YTOK,Y:IFS>1THEN3
4HCOLOR=3:HPLOT0,ZTO140,80TOK,0:Y=101:G=2.5:FORI=1TO8:A=16*I:IFY>191THENY=191
7X=(A*3-268)*(I>5):HPLOTX,YTO4+A,ZTO272-A,ZTOK-X,Y:G=G+G:Y=Y+G:NEXTI,J:GOTO2