image of READY prompt

Wang2200.org

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

# Sector 163, program filename = '23'
0001 SELECT R
0005 PRINT
0010 PRINT "ANGLE? (TO END PROGRAM INPUT 99999)"
0015 INPUT X
0020 IF X=99999 THEN 99
0025 A=3600*180*X/3.1415927
0030 D=INT(A/3600)
0035 D1=INT(D/360)
0040 M=INT((A-D*3600)/60)
0045 PRINT D-360*D1,"DEG."
0050 PRINT M,"MIN."
0055 PRINT A-D*3600-M*60,"SEC."
0060 PRINT
0065 PRINT "ANGLE?"
0070 GOTO 15
0099 SELECT D
   : END