dos33fsprogs/basic/appleiibot/horizon.bas

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
4HPLOT0,ZTO133,80TOK,Z:HCOLOR=3:Y=99:G=2:FORI=1TO8:A=16*I:IFY>191THENY=191
7X=(A*3-268)*(I>5):HPLOTX,YTOA,ZTO276-A,ZTOK-X,Y:G=G+G:Y=Y+G:NEXTI,J:GOTO2
appleiibot: horizon, more size 2020-10-30 03:49:14 +00:00			`1HGR2:Z=96:K=279`
			`2FORJ=0TO7:HCOLOR=2:S=Z+12J:POKE230,32+32P:P=NOTP:POKE49236+P,0:CALL-3086`
			`3S=S/2:Y=Z+S:HPLOT0,YTOK,Y:IFS>1THEN3`
appleiibot: failed star fields 2020-11-09 05:02:33 +00:00			`4HPLOT0,ZTO133,80TOK,Z:HCOLOR=3:Y=99:G=2:FORI=1TO8:A=16*I:IFY>191THENY=191`
			`7X=(A3-268)(I>5):HPLOTX,YTOA,ZTO276-A,ZTOK-X,Y:G=G+G:Y=Y+G:NEXTI,J:GOTO2`