sears.bas (481B)
11 REM :: THIS PROGRAM COMPUTES HOW MANY TIMES YOU HAVE TO FOLD 22 REM :: A PIECE OF PAPER SO THAT IT IS TALLER THAN THE 33 REM :: SEARS TOWER. 44 REM :: S = HEIGHT OF TOWER (METERS) 55 REM :: T = THICKNESS OF PAPER (MILLIMETERS) 610 LET S = 442 720 LET T = 0.1 830 REM CONVERT T TO METERS 940 LET T = T * .001 1050 LET F = 1 1160 LET H = T 12100 IF H > S THEN 200 13120 LET H = 2 * H 14125 LET F = F + 1 15130 GOTO 100 16200 PRINT "NUMBER OF FOLDS ="F 17220 PRINT "FINAL HEIGHT ="H 18999 END