image of READY prompt

Wang2200.org

Listing of file='24 ' on disk='vmedia/glbr_22.wvd.zip'

# Sector 728, program filename = '24'
0005 SELECT R
0010 PRINT
0020 PRINT "ANGLE (DEG,MIN,SEC,CARRIAGE RETURN)?"
0030 INPUT D,M,S
0040 A=D+M/60+S/3600
0050 R=INT(A/360)
0060 PRINT "ANGLE=";A*.17453293E-1-R*6.2831853,"RADIANS"
0070 PRINT
0080 PRINT "MORE INPUT? (1=YES,0=NO)"
0090 INPUT D
0100 IF D=1 THEN 10
0110 SELECT D
   : END