1 '
2 ' www.TheCatalyst.org
3 '
4 ' Program: MACAVOGADRO.BAS (demonstrate the size of avogadro's number)
5 ' Written by Michael Geyer for Mac computers
6 ' Literature cited:
7 '   Toloudis, M., J. Chem Educ. 1996, Vol. 73, No. 4, pg. 348
8 '
9 ' count in increments of 1
10 i = 1
20 PRINT i
30 i = i + 1
40 IF i < 602213670000000000000000 THEN GOTO 20
50 PRINT i
60 end