// 200x200 + file from another directory
	script1 ="reset; frame 1; select all; color grey; center */1; \
  move 0 0 0 -500 0 0 0 0 0; font echo 8 serif bold;  \
  set echo middle center;  \
color echo orange; font echo 25 serif bold; echo Here comes a (5,5) armchair nanotube.; delay 2; echo; \
  move 0 0 20 2000 0 0 0 0 4; move 0 0 10 -220 0 0 0 0 2; \
color echo orange; font echo 28 serif bold; echo This tube has 120 carbon atoms.; delay 1.5; echo; \
color echo orange; font echo 30 serif bold; echo ...and six unit cells.; delay 1.5; \
color echo blue; font echo 40 serif bold; echo One; \
     select atomno=1, atomno=2, atomno=3, atomno=4, atomno=5, atomno=6, atomno=7, atomno=8, atomno=9, atomno=10, \
     atomno=11, atomno=12, atomno=13, atomno=14, atomno=15, atomno=16, atomno=17, atomno=18, atomno=19, atomno=20; color blue;  delay 0.5; color grey;   \
color echo yellow; font echo 40 serif bold; echo Two; \
     select atomno=21, atomno=22, atomno=23, atomno=24, atomno=25, atomno=26, atomno=27, atomno=28, atomno=29, atomno=30, \
     atomno=31, atomno=32, atomno=33, atomno=34, atomno=35, atomno=36, atomno=37, atomno=38, atomno=39, atomno=40; color yellow;  delay 0.5; color grey;   \
color echo cyan; font echo 40 serif bold; echo Three; \
     select atomno=41, atomno=42, atomno=43, atomno=44, atomno=45, atomno=46, atomno=47, atomno=48, atomno=49, atomno=50, \
     atomno=51, atomno=52, atomno=53, atomno=54, atomno=55, atomno=56, atomno=57, atomno=58, atomno=59, atomno=60; color cyan;  delay 0.5; color grey;   \
color echo green; font echo 40 serif bold; echo Four; \
     select atomno=61, atomno=62, atomno=63, atomno=64, atomno=65, atomno=66, atomno=67, atomno=68, atomno=69, atomno=70, \
     atomno=71, atomno=72, atomno=73, atomno=74, atomno=75, atomno=76, atomno=77, atomno=78, atomno=79, atomno=80; color green;  delay 0.5; color grey;   \
color echo red; font echo 40 serif bold; echo Five; \
     select atomno=81, atomno=82, atomno=83, atomno=84, atomno=85, atomno=86, atomno=87, atomno=88, atomno=89, atomno=90, \
     atomno=91, atomno=92, atomno=93, atomno=94, atomno=95, atomno=96, atomno=97, atomno=98, atomno=99, atomno=100; color red;  delay 0.5; color grey;   \
color echo purple; font echo 40 serif bold; echo Six; \
     select atomno=101, atomno=102, atomno=103, atomno=104, atomno=105, atomno=106, atomno=107, atomno=108, atomno=109, atomno=110, \
     atomno=111, atomno=112, atomno=113, atomno=114, atomno=115, atomno=116, atomno=117, atomno=118, atomno=119, atomno=120; color purple;  delay 0.5; color grey;   \
color echo blue; font echo 40 serif bold; echo One; \
     select atomno=1, atomno=2, atomno=3, atomno=4, atomno=5, atomno=6, atomno=7, atomno=8, atomno=9, atomno=10, \
     atomno=11, atomno=12, atomno=13, atomno=14, atomno=15, atomno=16, atomno=17, atomno=18, atomno=19, atomno=20; color blue;  delay 0.5;    \
color echo yellow; font echo 40 serif bold; echo Two; \
     select atomno=21, atomno=22, atomno=23, atomno=24, atomno=25, atomno=26, atomno=27, atomno=28, atomno=29, atomno=30, \
     atomno=31, atomno=32, atomno=33, atomno=34, atomno=35, atomno=36, atomno=37, atomno=38, atomno=39, atomno=40; color yellow;  delay 0.5;    \
color echo magenta; font echo 40 serif bold; echo Three; \
     select atomno=41, atomno=42, atomno=43, atomno=44, atomno=45, atomno=46, atomno=47, atomno=48, atomno=49, atomno=50, \
     atomno=51, atomno=52, atomno=53, atomno=54, atomno=55, atomno=56, atomno=57, atomno=58, atomno=59, atomno=60; color magenta;  delay 0.5;    \
color echo green; font echo 40 serif bold; echo Four; \
     select atomno=61, atomno=62, atomno=63, atomno=64, atomno=65, atomno=66, atomno=67, atomno=68, atomno=69, atomno=70, \
     atomno=71, atomno=72, atomno=73, atomno=74, atomno=75, atomno=76, atomno=77, atomno=78, atomno=79, atomno=80; color green;  delay 0.5;    \
color echo red; font echo 40 serif bold; echo Five; \
     select atomno=81, atomno=82, atomno=83, atomno=84, atomno=85, atomno=86, atomno=87, atomno=88, atomno=89, atomno=90, \
     atomno=91, atomno=92, atomno=93, atomno=94, atomno=95, atomno=96, atomno=97, atomno=98, atomno=99, atomno=100; color red;  delay 0.5;    \
color echo purple; font echo 40 serif bold; echo Six; \
     select atomno=101, atomno=102, atomno=103, atomno=104, atomno=105, atomno=106, atomno=107, atomno=108, atomno=109, atomno=110, \
     atomno=111, atomno=112, atomno=113, atomno=114, atomno=115, atomno=116, atomno=117, atomno=118, atomno=119, atomno=120; color purple;    \
  color echo white; font echo 24 serif bold; echo 20 carbon atoms per unit cell; delay 2; \
color echo HotPink; font echo 24 serif bold; echo The diameter = 6.88 Angstroms; delay 1.5; \
color echo magenta; font echo 28 serif bold; echo That is .688 nanometers; delay 1.5; echo; \
color echo yellow; font echo 20 serif bold; echo You can rotate the tube with your mouse.; delay 2; echo;\
color echo white; font echo 18 serif bold; echo Instructions on how to interact with the applet are shown below; delay 2; echo;\
	move 0 0 50 -2000 0 0 0 0 1.5;    \
color echo yellow; font echo 30 serif bold; echo This tube is only 13.54 Angstroms long; delay 1.5; echo; \
color echo white; font echo 40 serif bold; echo Length = 1.354 nanometers; delay 1.5; echo; \
	move 0 360 0 660 0 0 0 0 4;     \
  move 360 0 30 -650 0 0 0 0 2; select all; color grey; \
color echo yellow; font echo 26 serif bold; echo But before there were carbon nanotubes...; delay 1.5; \
  reset; frame 2;  center */2;  move 0 0 0 -450 0 0 0 0 0; \
set echo middle center;  \
color echo HotPink; font echo 30 serif bold; echo There were Buckminsterfullerenes!!!; delay 1.5; echo; \
  move 360 0 50 3000 0 0 0 0 2;  move 360 0 50 -1220 0 0 0 0 3; move 36 0 5 0 0 0 0 0 2; move 50 0 360 -1000 0 0 0 0 1;  \
color echo yellow; font echo 30 serif bold; echo C60 (fullerene-60) was...; delay 1.0; echo; \
color echo yellow; font echo 30 serif bold; echo ...discovered serendipitously in 1985; delay 1.0; echo; \
color echo yellow; font echo 30 serif bold; echo What is the relationship?; delay 1.5; \
   frame 3; reset; move 0 0 0 -500 0 0 0 0 0; \
set echo middle center;  \
color echo yellow; font echo 30 serif bold; echo ...to carbon nanotubes?; delay 0.5; echo; \
  move 0 0 20 1450 0 0 0 0 4; move 0 0 10 -1020 0 0 0 0 2; move 180 0 5 -150 0 0 0 0 2; \
  select atomno=1, atomno=2; color orange;    delay 0.1;       \
  select atomno=3, atomno=4; color orange;    delay 0.1;       \
	select atomno=5, atomno=6; color orange;  delay 0.1;      \
	select atomno=7, atomno=8; color orange; delay 0.1;     \
	select atomno=9, atomno=10; color orange;   delay 0.1;   \
	select atomno=11, atomno=12; color orange;  delay 0.1;   \
	select atomno=13, atomno=14; color orange; delay 0.1;   \
	select atomno=15, atomno=16; color orange;   delay 0.1;   \
  select atomno=17, atomno=18;  color orange;   delay 0.1;   \
  select atomno=19, atomno=20; color orange;    delay 0.1;    \
	select atomno=21, atomno=22; color orange;  delay 0.1;   \
	select atomno=23, atomno=24; color orange; delay 0.1;   \
	select atomno=25, atomno=26; color orange;   delay 0.1;   \
	select atomno=27, atomno=28; color orange;  delay 0.1;  \
	select atomno=29, atomno=30; color orange; delay 0.1;   \
  move 30 180 30 -50 0 0 0 0 1.5;  move 180 0 90 0 0 0 0 0 1.5; \
set echo top center;  \
color echo magenta; font echo 30 serif bold; echo Note the orientation of the hexagons; delay 2; \
select atomno=37, atomno=38, atomno=56, atomno=57, atomno=58, atomno=59; color magenta;    delay 0.4;       \
select atomno=77, atomno=78, atomno=96, atomno=97, atomno=98, atomno=99; color magenta;    delay 0.4;       \
select atomno=117, atomno=118, atomno=136, atomno=137, atomno=138, atomno=139; color magenta;    delay 0.4;       \
color echo magenta; font echo 30 serif bold; echo Compared to the orientation of...; delay 2; \
color echo magenta; font echo 30 serif bold; echo ...the hexagons on the (9,0) nanotube.; \
  move 360 0 30 -500 0 0 0 0 4; echo; set echo middle center; \
 reset; frame 4; select all; color grey; center */4; \
 move 0 0 0 -500 0 0 0 0 0; font echo 8 serif bold;  \
  set echo middle center;  \
color echo magenta; font echo 30 serif bold; echo Here comes a (9,0) zigzag nanotube.; delay 2; echo; \
  move 0 0 20 700 0 0 0 0 4; move 0 0 10 -220 0 0 0 0 2; \
color echo magenta; font echo 26 serif bold; echo This tube has 216 carbon atoms; delay 1.5; \
color echo yellow; font echo 26 serif bold; echo Here is one unit cell.; delay 1.5; echo; \
color echo yellow; font echo 26 serif bold; echo The first unit cell; \
     select atomno=1, atomno=2, atomno=3, atomno=4, atomno=5, atomno=6, atomno=7, atomno=8, atomno=9, atomno=10, \
     atomno=11, atomno=12, atomno=13, atomno=14, atomno=15, atomno=16, atomno=17, atomno=18, atomno=19, atomno=20, \
     atomno=21, atomno=22, atomno=23, atomno=24, atomno=25, atomno=26, atomno=27, atomno=28, atomno=29, atomno=30, \
     atomno=31, atomno=32, atomno=33, atomno=34, atomno=35, atomno=36; color yellow;  delay 2.5; color grey;   \
color echo yellow; font echo 30 serif bold; echo That was 36 carbon atoms; delay 1; echo; \
  select atomno=1, atomno=2;  color yellow;  delay 0.1;   \
  select atomno=3, atomno=4; color yellow;    delay 0.1;       \
	select atomno=5, atomno=6; color yellow;  delay 0.1;     \
	select atomno=7, atomno=8; color yellow; delay 0.1;     \
	select atomno=9, atomno=10; color yellow;   delay 0.1;   \
	select atomno=11, atomno=12; color yellow;  delay 0.1;   \
	select atomno=13, atomno=14; color yellow; delay 0.1;   \
	select atomno=15, atomno=16; color yellow;   delay 0.1;   \
  select atomno=17, atomno=18;  color yellow;   delay 0.1;   \
  select atomno=19, atomno=20; color yellow;    delay 0.1;    \
	select atomno=21, atomno=22; color yellow;  delay 0.1;  \
	select atomno=23, atomno=24; color yellow; delay 0.1;  \
	select atomno=25, atomno=26; color yellow;   delay 0.1;   \
	select atomno=27, atomno=28; color yellow;  delay 0.1;  \
	select atomno=29, atomno=30; color yellow; delay 0.1;  \
	select atomno=31, atomno=32; color yellow;   delay 0.1;   \
	select atomno=33, atomno=34; color yellow;  delay 0.1;  \
	select atomno=35, atomno=36; color yellow; delay 0.1;   \
color echo yellow; font echo 20 serif bold; echo 36 carbon atoms; delay 1; echo; \
	select atomno=37, atomno=38; color cyan;   delay 0.1; \
  select atomno=39, atomno=40;  color cyan;   delay 0.1; \
  select atomno=41, atomno=42; color cyan;    delay 0.1;  \
	select atomno=43, atomno=44; color cyan;  delay 0.1; \
	select atomno=45, atomno=46; color cyan; delay 0.1; \
	select atomno=47, atomno=48; color cyan;   delay 0.1; \
	select atomno=49, atomno=50; color cyan;  delay 0.1; \
	select atomno=51, atomno=52; color cyan; delay 0.1; \
	select atomno=53, atomno=54; color cyan;   delay 0.1; \
  select atomno=1, atomno=36; color red;    delay 0.1;  \
	select atomno=37, atomno=72; color green;  delay 0.1; \
	select atomno=73, atomno=108; color orange; delay 0.1; \
	select atomno=109, atomno=144; color pink;   delay 0.1; \
	select atomno=145, atomno=180; color brown;  delay 0.1; \
	select atomno=181, atomno=216; color purple; delay 0.1; \
	select atomno=214, atomno=215; color cyan;   delay 0.1; \
  select atomno=178, atomno=179; color cyan;   delay 0.1; \
  select atomno=142, atomno=143; color cyan;   delay 0.1; \
  color orange; select all; color grey;  \
	color red; delay 0.1; color grey;       \
   color orange;  delay 0.1; color grey;   \
  select atomno=1, atomno=9;  color blue;   delay 0.1; color grey; select all; color purple; delay 0.1; color grey;  \
  select atomno=2, atomno=50; color red;    delay 0.1; color grey; select all; color pink; delay 0.1; color grey;   \
	select atomno=3, atomno=61; color green;  delay 0.1; color grey;     \
	select atomno=4, atomno=72; color orange; delay 0.1; color grey;    \
	select atomno=5, atomno=83; color pink;   delay 0.1; color grey;  select all; color yellow; delay 0.1; color grey;    \
	select atomno=6, atomno=94; color brown;  delay 0.1; color grey;    \
	select atomno=7, atomno=15; color purple; delay 0.1; color grey;    \
	select atomno=8, atomno=16; color cyan;   delay 0.1; color grey;  \
color echo red; font echo 20 serif bold; echo Here is the last unit cell.; delay 1.5; echo; \
color echo red; font echo 30 serif bold; echo The sixth unit cell; \
     select atomno=181, atomno=182, atomno=183, atomno=184, atomno=185, atomno=186, atomno=187, atomno=188, atomno=189, atomno=190, \
     atomno=191, atomno=192, atomno=193, atomno=194, atomno=195, atomno=196, atomno=197, atomno=198, atomno=199, atomno=200, \
     atomno=201, atomno=202, atomno=203, atomno=204, atomno=205, atomno=206, atomno=207, atomno=208, atomno=209, atomno=210, \
     atomno=211, atomno=212, atomno=213, atomno=214, atomno=215, atomno=216; color red;  delay 2.5; color grey;   \
color echo red; font echo 20 serif bold; echo That was 36 carbon atoms; delay 1; echo; \
  select atomno=181, atomno=182;  color red;  delay 0.1;   \
  select atomno=183, atomno=184; color red;    delay 0.1;       \
	select atomno=185, atomno=186; color red;  delay 0.1;     \
	select atomno=187, atomno=188; color red; delay 0.1;     \
	select atomno=189, atomno=190; color red;   delay 0.1;   \
	select atomno=191, atomno=192; color red;  delay 0.1;   \
	select atomno=193, atomno=194; color red; delay 0.1;   \
	select atomno=195, atomno=196; color red;   delay 0.1;   \
  select atomno=197, atomno=198;  color red;   delay 0.1;   \
  select atomno=199, atomno=200; color red;    delay 0.1;    \
	select atomno=201, atomno=202; color red;  delay 0.1;  \
	select atomno=203, atomno=204; color red; delay 0.1;  \
	select atomno=205, atomno=206; color red;   delay 0.1;   \
	select atomno=207, atomno=208; color red;  delay 0.1;  \
	select atomno=209, atomno=210; color red; delay 0.1;  \
	select atomno=211, atomno=212; color red;   delay 0.1;   \
	select atomno=213, atomno=214; color red;  delay 0.1;  \
	select atomno=215, atomno=216; color red; delay 0.1;   \
color echo yellow; font echo 20 serif bold; echo The diameter = 7.05 Angstroms; delay 1.5; echo; \
color echo white; font echo 20 serif bold; echo That is .705 nanometers; delay 1.5; echo; \
  move 0 0 50 -500 0 0 0 0 3;    \
color echo yellow; font echo 30 serif bold; echo This tube is only 24.87 Angstroms long; delay 1.5; echo; \
color echo white; font echo 40 serif bold; echo Length = 2.487 nanometers; delay 1.5; echo; \
	move 0 360 0 450 0 0 0 0 4;     \
  move 0 270 30 -300 0 0 0 0 2; \
  set echo top center;  \
color echo magenta; font echo 30 serif bold; echo Note the orientation of the hexagons; delay 2; \
select atomno=172, atomno=175, atomno=176, atomno=177, atomno=173, atomno=138; color magenta;    delay 0.4;       \
select atomno=136, atomno=137, atomno=139, atomno=140, atomno=141, atomno=102; color magenta;    delay 0.4;       \
select atomno=100, atomno=103, atomno=104, atomno=101, atomno=105, atomno=66; color magenta;    delay 0.4;       \
color echo magenta; font echo 30 serif bold; echo Compared to the orientation of...; delay 2; \
color echo magenta; font echo 30 serif bold; echo ...the hexagons on the (5,5) nanotube.; delay 2; echo; \
  move 180 0 30 -500 0 0 0 0 2; select all; color grey; loop 0;";
  jmolButton('frame 1; reset; select all; color grey; select */1; center selected; echo; move 0 0 0 300 0 0 0 0 1;','Stop/Reload');  jmolButton(script1, "Play");
    jmolButton("translate x -20", "left");
    jmolButton("translate x 20", "right");
    jmolButton("translate y -20", "up");
    jmolButton("translate y 20", "down");
    jmolBr();
  jmolApplet(600, "./jmol/manymodels.xyz",script1);
  jmolBr();
	// a link
  jmolButton('frame 1; reset; select all; color grey; select */1; center selected; echo; move 0 0 0 300 0 0 0 0 1;','Stop/Reload');
  jmolButton(script1, "Play");
    jmolButton("translate x -20", "left");
    jmolButton("translate x 20", "right");
    jmolButton("translate y -20", "up");
    jmolButton("translate y 20", "down");