Listing of file='27' on disk='vmedia/glbr_22.wvd.zip'
# Sector 600, program filename = '27' 0005 SELECT R 0011 READ N 0012 PRINT "X","Y","R","A" 0015 IF N=-1 THEN 135 0020 READ X,Y 0025 IF X=0 THEN 45 0030 IF Y=0 THEN 85 0035 PRINT X,Y,SGN(X)*SQR(X^2+Y^2),ATN(Y/X)*180/3.1415927 0040 GOTO 20 0045 IF Y=0 THEN 75 0047 PRINT X,Y,ABS(Y), 0050 IF Y<0 THEN 65 0055 PRINT 90 0060 GOTO 20 0065 PRINT 270 0070 GOTO 20 0075 PRINT X,Y,0,0 0080 GOTO 20 0085 PRINT X,Y,ABS(X), 0090 IF X<1 THEN 120 0100 PRINT 0 0110 GOTO 20 0120 PRINT 180 0130 GOTO 20 0135 READ R,A 0136 LET Z=(A-INT(A/360)*360)*3.1415927/180 0140 PRINT R*COS(Z),R*SIN(Z),R,A 0150 GOTO 135 0999 END