dos33fsprogs/basic/appleiibot/star.bas

7 lines
275 B
QBasic
Raw Normal View History

2020-11-09 05:02:33 +00:00
1HGR:HGR2:HCOLOR=3
2POKE230,32+32*P:P=NOTP:POKE49236+P,0:CALL-3086
3FORI=1TO10:A=X(I):B=Y(I):C=Z(I)*.1:X(I)=A+(A-140)*C:Y(I)=B+(B-96)*C:Z(I)=Z(I)+.1
5IFX(I)<0ORX(I)>279ORY(I)<0ORY(I)>191THENX(I)=RND(1)*280:Y(I)=RND(1)*192:Z(I)=0:GOTO7
6HPLOTA,BTOX(I),Y(I)
7NEXTI:GOTO2