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
19