to aaa
;
;
; To use this program, make sure it is with the files which contain text
; (read-page#.txt from 0 to 6)
;
; You must define the PATH variable
;
;
; From MSWLogo, call:           make "path "<your path>
;
;
; IN\ THE\ PATH,\ ALL\ SPACES\ AND\ BACKSLASHES(\\)\ MUST\ HAVE\ ANOTHER\
; BACKSLASH\ AS\ THE\ CHARACTER\ IMMEDIATELY\ BEFORE\ THEM!!
;
;
; Example:                      make "path "c:\\mswlogo\\science\ fair\\ 
;
;
; Note that there is no ending quote after the path, only a beginning quote.
;
; You can also simply add this line to the end of this file if you like.
;
; You will be reminded of this when you start if you have not already done it.
;
;
; To run, call:                 go
;
;
end

to addback :word
local "i
make "newword "
make "i 1
repeat count :word [~
 ifelse backslashedp (item :i :word)~
  [make "newword (word :newword "\\ (item :i :word))]~
  [make "newword (word :newword (item :i :word))]~
 make "i :i + 1]
op :newword
end

to getinfo
windowcreate "root "info [Fill in as much as you are comfortable with] 0 0 320 240 []
 staticcreate "info "s1 "Initials: 5 5 30 15
 comboboxcreate "info "initials 40 5 20 12
 staticcreate "info "s2 "Age: 65 5 20 15 
end

to go
windowset "Commander 2
setlabelfont [[Arial] -24 0 0 400 0 0 0 0 3 2 1 34] 
messagebox "Welcome "Welcome\ to\ my\ science\ fair\ project.\
First\ I\ will\ ask\ you\ a\ few\ questions.
make "gender selectbox "Gender [Male Female]
make "hand selectbox "Handedness [Right Left Ambidextrous]
make "age questionbox "Age [Please enter your age]
messagebox "Instructions "You\ will\ be\ shown\ text\ at\ different\ orientations\ and\ timed.
messagebox "Instructions "Please\ attempt\ to\ keep\ your\ head\ in\ an\ upright\
position\ while\ you\ read.\
DON'T\ MOVE\ your\ head,\ even\ when\ the\ text\ is\ sideways!
messagebox "Instructions "After\ you\ click\ ok,\ press\ any\ key\ to\ show\ the\ text.\
and\ press\ any\ key\ after\ you\ have\ read\ the\ text.
waituntilkey
make "abstime0 time
go0
make "abstime1 time
go1
make "abstime2 time
go2
messagebox "Instructions "For\ the\ following\ experiments,\ please\ put\
your\ head\ down\ on\ the\ desk\ on\ your\ LEFT\ side.\ :\ \)\
Keep\ your\ head\ on\ the\ desk\ while\ you\ read.
waituntilkey
make "abstime3 time
go3
make "abstime4 time
go4
messagebox "Instructions "For\ the\ following\ experiments,\ please\ put\
your\ head\ down\ on\ the\ desk\ on\ your\ RIGHT\ side.\ \(\ :\
Keep\ your\ head\ on\ the\ desk\ while\ you\ read.
waituntilkey
make "abstime5 time
go5
make "abstime6 time
go6


messagebox "Instructions "You\ did\ well.\ \ Thank\ you\ for\ contributing\ to\ my\ project.
increment
openappend (word :path "read-data.txt)
setwrite (word :path "read-data.txt)
print (se "Test "subject "number: :tests)
print (se "gender :gender)
print (se "handedness :hand)
print (se "age :age)
print []
print (se "Test 0 "began "at :abstime0 "and "took :time0 "milliseconds.)
print (se "Test 1 "began "at :abstime1 "and "took :time1 "milliseconds.)
print (se "Test 2 "began "at :abstime2 "and "took :time2 "milliseconds.)
print (se "Test 3 "began "at :abstime3 "and "took :time3 "milliseconds.)
print (se "Test 4 "began "at :abstime4 "and "took :time4 "milliseconds.)
print (se "Test 5 "began "at :abstime5 "and "took :time5 "milliseconds.)
print (se "Test 6 "began "at :abstime6 "and "took :time6 "milliseconds.)
print []
print []
setwrite []
close (word :path "read-data.txt)
go
end

to go0
openread (word :path "read-page0.txt)
setread (word :path "read-page0.txt)
make "time0 0
ht
pu setpos [-100 100] pd
seth 90
go11
settimer 1 50 [make "time0 :time0 + 50]
setread []
waituntilkey
cleartimer 1
cs
close (word :path "read-page0.txt)
end

to go1
openread (word :path "read-page1.txt)
setread (word :path "read-page1.txt)
make "time1 0
ht
pu setpos [100 100] pd
seth 180
go11
settimer 1 50 [make "time1 :time1 + 50]
setread []
waituntilkey
cleartimer 1
cs
close (word :path "read-page1.txt)
end

to go11
make "read readlist
pd label :read
pu
rt 90
fd 20
lt 90
if not eofp [go11]
end

to go2
openread (word :path "read-page2.txt)
setread (word :path "read-page2.txt)
make "time2 0
ht
pu setpos [-100 -100] pd
seth 0
go11
settimer 1 50 [make "time2 :time2 + 50]
setread []
waituntilkey
cleartimer 1
cs
close (word :path "read-page2.txt)
end

to go3
openread (word :path "read-page3.txt)
setread (word :path "read-page3.txt)
make "time3 0
ht
pu setpos [-100 100] pd
seth 90
go11
settimer 1 50 [make "time3 :time3 + 50]
setread []
waituntilkey
cleartimer 1
cs
close (word :path "read-page3.txt)
end

to go4
openread (word :path "read-page4.txt)
setread (word :path "read-page4.txt)
make "time4 0
ht
pu setpos [-100 -100] pd
seth 0
go11
settimer 1 50 [make "time4 :time4 + 50]
setread []
waituntilkey
cleartimer 1
cs
close (word :path "read-page4.txt)
end

to go5
openread (word :path "read-page5.txt)
setread (word :path "read-page5.txt)
make "time5 0
ht
pu setpos [-100 100] pd
seth 90
go11
settimer 1 50 [make "time5 :time5 + 50]
setread []
waituntilkey
cleartimer 1
cs
close (word :path "read-page5.txt)
end

to go6
openread (word :path "read-page6.txt)
setread (word :path "read-page6.txt)
make "time6 0
ht
pu setpos [100 100] pd
seth 180
go11
settimer 1 50 [make "time6 :time6 + 50]
setread []
waituntilkey
cleartimer 1
cs
close (word :path "read-page6.txt)
end

to increment
openread (word :path "readctr.txt)
setread (word :path "readctr.txt)
make "tests readword
make "tests :tests + 1
close (word :path "readctr.txt)
openwrite (word :path "readctr.txt)
setwrite (word :path "readctr.txt)
print :tests
close (word :path "readctr.txt)
setread []
setwrite []
end

to setpath :newpath
make "path addback (first :newpath)
foreach (bf :newpath) [make "path (word :path "\  (addback ?))]


end

to start
setwrite []
ct
print [Welcome to Benjamin's science fair project!]
print []
if not namep "path [~
 print [Be sure to define the PATH variable before running...]~
 print []]
print [Type GO and click Execute to run.]
end

to waituntil :input
if (run :input) [stop]
waituntil :input
end

to waituntilkey
make "off "false
setfocus [MSWLogo Screen]
keyboardon [make "off "true]
waituntil [:off]
keyboardoff
end

Make "abstime0 [Mon Jan 26 22:01:10 1998]
Make "abstime1 [Mon Jan 26 22:01:11 1998]
Make "abstime2 [Mon Jan 26 22:01:13 1998]
Make "abstime3 [Mon Jan 26 22:01:16 1998]
Make "abstime4 [Mon Jan 26 22:01:19 1998]
Make "abstime5 [Mon Jan 26 22:01:22 1998]
Make "abstime6 [Mon Jan 26 22:01:23 1998]
Make "age [42]
Make "dx 70
Make "dy 50
Make "gender 2
Make "h 400
Make "hand 3
Make "newword "abc
Make "off "true
Make "path "c\:\\mswlogo\\scifair\\
Make "read [your imagination."]
Make "startup [cs go]
Make "tests 2
Make "time0 1450
Make "time1 1200
Make "time2 2050
Make "time2a 1200
Make "time3 2000
Make "time4 1500
Make "time5 1450
Make "time6 1100
Make "x "
Make "x0 290
Make "x1 -200
Make "y0 450
Make "y1 -100