ext/ply/example/BASIC/sears.bas

   1 1 REM :: THIS PROGRAM COMPUTES HOW MANY TIMES YOU HAVE TO FOLD
   2 2 REM :: A PIECE OF PAPER SO THAT IT IS TALLER THAN THE
   3 3 REM :: SEARS TOWER.
   4 4 REM ::       S = HEIGHT OF TOWER (METERS)
   5 5 REM ::       T = THICKNESS OF PAPER (MILLIMETERS)
   6 10 LET S = 442
   7 20 LET T = 0.1
   8 30 REM CONVERT T TO METERS
   9 40 LET T = T * .001
  10 50 LET F = 1
  11 60 LET H = T
  12 100 IF H > S THEN 200
  13 120 LET H = 2 * H
  14 125 LET F = F + 1
  15 130 GOTO 100
  16 200 PRINT "NUMBER OF FOLDS ="F
  17 220 PRINT "FINAL HEIGHT    ="H
  18 999 END