Commodore Plus 4 - Page 217

50 NEXT
60 FORL = 850TO900STEP10
70SOUND1,L,1
80 NEXT
100NEX1
Music Lines
10VOL7
15X1=O:Y1 = O
20 GRAPHICl,1
30GETA$:IFA$-" "THENGRAPHICO:END
40 GOSUB80
45 FORL=1T0DSTEP2
50SOUND1,X"3,5
55SOUND2,Y'3,5
6ODRAW1,X,Y
70NEXT:GOTO30
8OX = X1:X1=INT(RND(O)*28O) + 2O
— 90Y = Y1:Y1=INT(RND(0)*160) + 20
1OOA=X1-X:B = Y1-Y:D=SQR{A*A+B*B)
110DX = A/D:DY =
120 RETURN
208