10.5

'KARIANN FENOGLIO
'PROBLEM 10.5 ON PAGE 288
'CIS 130 WITH MR. LOW
CLS

LOCATE 3, 32
PRINT "VIEWING DISTANCES"
LOCATE 5, 27
PRINT "ALTITUDE"
LOCATE 5, 46
PRINT "DISTANCE"

DEF FNDISTANCE = SQR(ALTITUDE) * 1.22
   FOR ALTITUDE = 1000 TO 10000 STEP 1000
   PRINT USING "                           ##,###"; ALTITUDE;
   PRINT USING "             ###.#"; FNDISTANCE
   NEXT ALTITUDE
END