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