'
' www.TheCatalyst.org
'
' Program: AVOGADRO.BAS (demonstrate the size of avogadro's number)
' Written by Michael Geyer
' Literature cited:
'   Toloudis, M., J. Chem Educ. 1996, Vol. 73, No. 4, pg. 348
'
' Using double precision, the largest number I can get my PC to count to is
'   9007199254740992.  As a result, I have set the upper counting limit to
'   9.007 x 10^15.
'

REM capture the starting date and time for printout at end
datestart$ = DATE$
timestart$ = TIME$

REM the core of the program - count in increments of 1
counter# = 1#
loopstart:
  PRINT counter#
  counter# = counter# + 1#
  IF counter# < 9007000000000000# THEN GOTO loopstart
PRINT counter#

REM when finished, print the starting and ending date and time
COLOR 28
PRINT "FINISHED"
COLOR 14
PRINT
PRINT "The starting date was "; datestart$
PRINT "at the following time "; timestart$
PRINT
PRINT "This computer finished counting on "; DATE$
PRINT TAB(14); "at the following time "; TIME$
PRINT
PRINT counter#; "is only 0.000001496% of Avogadro's number!"