dos33fsprogs/basic/appleiibot/star.bas
Vince Weaver b1238af49d re-arranged the entire directory structure
this will probably upset people
2021-01-05 15:29:31 -05:00

7 lines
275 B
QBasic

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