Listing of file='38' on disk='vmedia/glbr_22.wvd.zip'
# Sector 398, program filename = '38' 0011 READ N,X,Y 0015 FOR I=1 TO N-1 0020 READ M,V,W 0022 A=X 0025 IF M=2 THEN 200 0030 IF M=3 THEN 300 0035 IF M=4 THEN 400 0100 X=X+V 0110 Y=Y+W 0120 GOTO 500 0200 X=X-V 0210 Y=Y-W 0220 GOTO 500 0300 X=X*V-Y*W 0310 Y=A*W+V*Y 0320 GOTO 500 0400 X=(X*V+Y*W)/(V^2+W^2) 0410 Y=(V*Y-A*W)/(V^2+W^2) 0500 NEXT I 0510 PRINT X,Y;"I" 0999 END