image of READY prompt

Wang2200.org

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