dos33fsprogs/appleiibot/hyper.bas
2020-11-09 00:02:33 -05:00

7 lines
264 B
QBasic

1HGR:HGR2:HCOLOR=3
2POKE230,32+32*P:P=NOTP:POKE49236+P,0
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)=70+RND(1)*140:Y(I)=48+RND(1)*96:Z(I)=0:GOTO7
6HPLOTA,BTOX(I),Y(I)
7NEXTI:GOTO2