HV0
PFreeRecall
D.
D.\1049115794
F1441:.\1049115794\.config
+% Completed Model: Mon Mar 31 16:39:30 2003
+
+version('Version 2.2 #7').
+selection(0.180, 0.288).
+position(1049115794, 0.250, 0.245).
+size(1049115794, 640, 339).
+mode(1049115794, open, 0).
+
+position(903364453, 0.225, 0.133).
+size(903364453, 640, 500).
+mode(903364453, closed, 0).
+
+position(1048943265, 0.272, 0.201).
+size(1048943265, 640, 339).
+mode(1048943265, closed, 0).
+
+position(1048943261, 0.272, 0.204).
+size(1048943261, 640, 339).
+mode(1048943261, closed, 0).
+
+position(1048942580, 0.272, 0.201).
+size(1048942580, 640, 339).
+mode(1048942580, closed, 2).
+
+position(903364963, 0.072, 0.093).
+size(903364963, 640, 466).
+mode(903364963, closed, 0).
+
+position(903364449, 0.226, 0.124).
+size(903364449, 640, 455).
+mode(903364449, closed, 0).
+
+position(965595358, 0.170, 0.126).
+size(965595358, 640, 473).
+mode(965595358, closed, 3).
+
+position(903376084, 0.270, 0.295).
+size(903376084, 640, 500).
+mode(903376084, closed, 0).
+
+position(903375835, 0.270, 0.296).
+size(903375835, 640, 500).
+mode(903375835, closed, 0).
+
+position(903375178, 0.270, 0.291).
+size(903375178, 640, 500).
+mode(903375178, closed, 0).
+
+position(903369132, 0.270, 0.296).
+size(903369132, 640, 500).
+mode(903369132, closed, 0).
+
+position(903377725, 0.268, 0.318).
+size(903377725, 725, 500).
+mode(903377725, closed, 3).
+
+position(903365431, 0.258, 0.069).
+size(903365431, 640, 616).
+mode(903365431, closed, 3).
+
D.\1049115794\903364449
D.\1049115794\903364449\903365431
F2:.\1049115794\903364449\903365431\description
+
F239:.\1049115794\903364449\903365431\model
+% Experimenter Process: Mon Mar 31 14:03:14 2003
+
+'!box'('Experimenter Process', 'Process', [enum("Initialise", 'Each Trial'), boolean("Recurrent", 1), real("Firing Rate", 1.00)], 'Rules to administer stimuli and collate responses').
+
F2004:.\1049115794\903364449\903365431\rules
+% Experimenter Process: Mon Mar 31 14:03:14 2003
+
+'!rule'('Maintain a total trials counter, to allow arbitrary block structure', [refracted], [clock(1), match(total_trials(Trials), 903376084), Trials1 is Trials + 1], [delete(total_trials(Trials), 903376084), add(total_trials(Trials1), 903376084)]).
+
+'!rule'('Send one word to S every cycle', [triggered(send_word(N))], [once([match(Word, 903369132)]), N1 is N + 1], [send(word(Word), 903364963), add(word(N, Word), 903375835), delete(Word, 903369132), send(send_word(N1), 903365431)]).
+
+'!rule'('When words exhausted, tell S to start recall', [refracted], [not [match(_, 903369132)]], [send(recall, 903364963)]).
+
+'!rule'('Get recalled word''s ser pos, increment the tally, and update table', [triggered(recalled(Word))], [match(word(N, Word), 903375835), match(stats(N, Total), 903376084), Total1 is Total + 1, number_atom(N, Nat)], [delete(stats(N, Total), 903376084), add(stats(N, Total1), 903376084), send(data(freq, Nat, Total1), 903377725)]).
+
+'!condition'('Make 2-digit atom from number', number_atom, 2, [(number_atom(Number, Atom) :- [call(name(Number, String)), append("0", String, Zeroed), append(_, [A, B], Zeroed), call(name(Atom, [A, B]))])]).
+
+'!rule'('system quiescence indicates end of recall, so graph results', [triggered(system_end(trial)), refracted], [], [send(draw_graph, 903365431)]).
+
+'!rule'('Rule', [triggered(draw_graph)], [match(total_trials(Trial), 903376084), match(stats(N, Freq), 903376084), Perc is 100 * (Freq / Trial)], [send(data(recall, N, Perc), 965595358)]).
+
+'!rule'('Rule', [triggered(draw_graph)], [], [send(type(recall, line, [colour(blue), marker(cross)]), 965595358)]).
+
+'!condition'('Calculate percentage score for each serial position', get_percentages, 3, [(get_percentages(X, X, []) :- ['!']), (get_percentages(Start, Fin, [H|T]) :- [N is Start + 1, match(stats(N, Freq), 903376084), match(total_trials(Trial), 903376084), H is 100 * (Freq / Trial), get_percentages(N, Fin, T)])]).
+
D.\1049115794\903364449\903369132
F2:.\1049115794\903364449\903369132\description
+
F880:.\1049115794\903364449\903369132\elements
+% Word List: Mon Mar 31 14:03:14 2003
+
+'!element'('Nothing', black).
+
+'!element'('Nothing', white).
+
+'!element'('Nothing', red).
+
+'!element'('Nothing', orange).
+
+'!element'('Nothing', yellow).
+
+'!element'('Nothing', green).
+
+'!element'('Nothing', blue).
+
+'!element'('Nothing', indigo).
+
+'!element'('Nothing', violet).
+
+'!element'('Nothing', brown).
+
+'!element'('Nothing', magenta).
+
+'!element'('Nothing', cyan).
+
+'!element'('Nothing', mustard).
+
+'!element'('Nothing', beige).
+
+'!element'('Nothing', azure).
+
+'!element'('Nothing', russet).
+
+'!element'('Nothing', skyblue).
+
+'!element'('Nothing', navy).
+
+'!element'('Nothing', racinggreen).
+
+'!element'('Nothing', cream).
+
+'!element'('Nothing', grey).
+
+'!element'('Nothing', pink).
+
+'!element'('Nothing', charcoal).
+
+'!element'('Nothing', purple).
+
+'!element'('Nothing', olive).
+
F41:.\1049115794\903364449\903369132\mapping_rules
+% Word List: Mon Mar 31 14:03:14 2003
+
F381:.\1049115794\903364449\903369132\model
+% Word List: Mon Mar 31 14:03:14 2003
+
+'!box'('Word List', 'Buffer' / 'Propositional', [enum("Initialise", 'Each Trial'), enum("Decay", 'None'), pos_int("Decay Constant", 20), boolean("Limited Capacity", 0), pos_int("Capacity", 7), enum("On Excess", 'Random'), boolean("Grounded", 1), enum("Access", 'Random'), boolean("Duplicates", 0)], 'The list of words used as stimuli').
+
D.\1049115794\903364449\903375178
F93:.\1049115794\903364449\903375178\data
+% Start: Mon Mar 31 14:03:14 2003
+
+'!data'('Nothing', [send(send_word(1), 903365431)]).
+
F2:.\1049115794\903364449\903375178\description
+
F145:.\1049115794\903364449\903375178\model
+% Start: Mon Mar 31 14:03:14 2003
+
+'!box'('Start', 'Data' / 'Source', [enum("Initialise", 'Each Trial')], 'Kick start Experiment Process').
+
D.\1049115794\903364449\903375835
F2:.\1049115794\903364449\903375835\description
+
F45:.\1049115794\903364449\903375835\elements
+% Serial Record: Mon Mar 31 14:03:14 2003
+
F45:.\1049115794\903364449\903375835\mapping_rules
+% Serial Record: Mon Mar 31 14:03:14 2003
+
F354:.\1049115794\903364449\903375835\model
+% Serial Record: Mon Mar 31 14:03:14 2003
+
+'!box'('Serial Record', 'Buffer' / 'Propositional', [enum("Initialise", 'Each Trial'), enum("Decay", 'None'), pos_int("Decay Constant", 20), boolean("Limited Capacity", 0), pos_int("Capacity", 7), enum("On Excess", 'Random'), boolean("Grounded", 1), enum("Access", 'LIFO'), boolean("Duplicates", 0)], '').
+
D.\1049115794\903364449\903376084
F2:.\1049115794\903364449\903376084\description
+
F1083:.\1049115794\903364449\903376084\elements
+% Serial Statistics: Mon Mar 31 14:03:14 2003
+
+'!element'('Nothing', total_trials(0)).
+
+'!element'('Nothing', stats(1, 0)).
+
+'!element'('Nothing', stats(2, 0)).
+
+'!element'('Nothing', stats(3, 0)).
+
+'!element'('Nothing', stats(4, 0)).
+
+'!element'('Nothing', stats(5, 0)).
+
+'!element'('Nothing', stats(6, 0)).
+
+'!element'('Nothing', stats(7, 0)).
+
+'!element'('Nothing', stats(8, 0)).
+
+'!element'('Nothing', stats(9, 0)).
+
+'!element'('Nothing', stats(10, 0)).
+
+'!element'('Nothing', stats(11, 0)).
+
+'!element'('Nothing', stats(12, 0)).
+
+'!element'('Nothing', stats(13, 0)).
+
+'!element'('Nothing', stats(14, 0)).
+
+'!element'('Nothing', stats(15, 0)).
+
+'!element'('Nothing', stats(16, 0)).
+
+'!element'('Nothing', stats(17, 0)).
+
+'!element'('Nothing', stats(18, 0)).
+
+'!element'('Nothing', stats(19, 0)).
+
+'!element'('Nothing', stats(20, 0)).
+
+'!element'('Nothing', stats(21, 0)).
+
+'!element'('Nothing', stats(22, 0)).
+
+'!element'('Nothing', stats(23, 0)).
+
+'!element'('Nothing', stats(24, 0)).
+
+'!element'('Nothing', stats(25, 0)).
+
F49:.\1049115794\903364449\903376084\mapping_rules
+% Serial Statistics: Mon Mar 31 14:03:14 2003
+
F436:.\1049115794\903364449\903376084\model
+% Serial Statistics: Mon Mar 31 14:03:14 2003
+
+'!box'('Serial Statistics', 'Buffer' / 'Propositional', [enum("Initialise", 'Each Session'), enum("Decay", 'None'), pos_int("Decay Constant", 20), boolean("Limited Capacity", 0), pos_int("Capacity", 7), enum("On Excess", 'Random'), boolean("Grounded", 1), enum("Access", 'LIFO'), boolean("Duplicates", 0)], 'Holds the number of items recalled at each position (summed over blocks)').
+
D.\1049115794\903364449\903377725
F42:.\1049115794\903364449\903377725\data
+% Data Table: Mon Mar 31 14:03:14 2003
+
F2:.\1049115794\903364449\903377725\description
+
F408:.\1049115794\903364449\903377725\model
+% Data Table: Mon Mar 31 14:03:14 2003
+
+'!box'('Data Table', ('Data' / 'Sink') / 'Table', [enum("Initialise", 'Each Session'), char_string("File", "data.current"), enum("Location", 'Local'), char_string("Column Label", "Serial position"), char_string("Row Label", ""), pos_int("Cell Width", 25), pos_int("Cell Height", 20), enum("Sort", 'Alpha')], 'Tabular representation of serial recall statistics').
+
D.\1049115794\903364449\965595358
F53:.\1049115794\903364449\965595358\data
+% Serial Position Curve: Mon Mar 31 14:03:14 2003
+
F2:.\1049115794\903364449\965595358\description
+
F552:.\1049115794\903364449\965595358\model
+% Serial Position Curve: Mon Mar 31 14:03:14 2003
+
+'!box'('Serial Position Curve', ('Data' / 'Sink') / 'Graph', [enum("Initialise", 'Each Experiment'), char_string("File", "data.current"), enum("Location", 'Local'), char_string("Title", "Percentage recall at each serial position"), char_string("X Label", "Position"), char_string("Y Label", "% Recall"), real("X Min", 1.00), real("X Max", 25.00), pos_int("X Units", 25), real("Y Min", 0.00), real("Y Max", 100.00), pos_int("Y Units", 5)], 'Display of percentage recall at each serial position').
+
F2:.\1049115794\903364449\description
+
F193:.\1049115794\903364449\model
+% Task Environment: Mon Mar 31 14:03:14 2003
+
+'!box'('Task Environment', 'Compound' / 'Generic', [], 'An environment to adminster stimuli and collate responses for the free recall task').
+
F793:.\1049115794\903364449\subboxes
+% Task Environment: Mon Mar 31 14:03:14 2003
+
+'!subbox'(903377725, 315, 240, [input(903365431, send)]).
+
+'!subbox'(903369132, 95, 45, [input(903365431, send), input(903365431, read)]).
+
+'!subbox'(903375178, 315, 35, [output(903365431, send)]).
+
+'!subbox'(903375835, 95, 140, [input(903365431, read), input(903365431, send)]).
+
+'!subbox'(903376084, 100, 230, [input(903365431, read), input(903365431, send)]).
+
+'!subbox'(965595358, 530, 240, [input(903365431, send)]).
+
+'!subbox'(903365431, 315, 140, [output(965595358, send), output(903377725, send), output(903376084, read), output(903376084, send), output(903375835, read), output(903375835, send), input(903375178, send), output(903364453, send), output(903369132, send), input(903364453, send), output(903369132, read)]).
+
D.\1049115794\903364453
D.\1049115794\903364453\1048942580
F2:.\1049115794\903364453\1048942580\description
+
F35:.\1049115794\903364453\1048942580\elements
+% STS: Mon Mar 31 14:03:14 2003
+
F35:.\1049115794\903364453\1048942580\mapping_rules
+% STS: Mon Mar 31 14:03:14 2003
+
F336:.\1049115794\903364453\1048942580\model
+% STS: Mon Mar 31 14:03:14 2003
+
+'!box'('STS', 'Buffer' / 'Propositional', [enum("Initialise", 'Each Trial'), enum("Decay", 'None'), pos_int("Decay Constant", 20), boolean("Limited Capacity", 1), pos_int("Capacity", 7), enum("On Excess", 'Random'), boolean("Grounded", 1), enum("Access", 'Random'), boolean("Duplicates", 0)], '').
+
D.\1049115794\903364453\1048943261
F2:.\1049115794\903364453\1048943261\description
+
F35:.\1049115794\903364453\1048943261\elements
+% LTS: Mon Mar 31 14:03:14 2003
+
F35:.\1049115794\903364453\1048943261\mapping_rules
+% LTS: Mon Mar 31 14:03:14 2003
+
F336:.\1049115794\903364453\1048943261\model
+% LTS: Mon Mar 31 14:03:14 2003
+
+'!box'('LTS', 'Buffer' / 'Propositional', [enum("Initialise", 'Each Trial'), enum("Decay", 'None'), pos_int("Decay Constant", 20), boolean("Limited Capacity", 0), pos_int("Capacity", 7), enum("On Excess", 'Random'), boolean("Grounded", 1), enum("Access", 'Random'), boolean("Duplicates", 0)], '').
+
D.\1049115794\903364453\1048943265
F2:.\1049115794\903364453\1048943265\description
+
F215:.\1049115794\903364453\1048943265\model
+% Rehearsal: Mon Mar 31 14:03:14 2003
+
+'!box'('Rehearsal', 'Process', [enum("Initialise", 'Each Trial'), boolean("Recurrent", 1), real("Firing Rate", 1.00)], 'A process which transfers words from STS to LTS').
+
F156:.\1049115794\903364453\1048943265\rules
+% Rehearsal: Mon Mar 31 14:03:14 2003
+
+'!rule'('Limited-capacity rehearsal channel', [fire_once], [match(Word, 1048942580)], [add(Word, 1048943261)]).
+
D.\1049115794\903364453\903364963
F2:.\1049115794\903364453\903364963\description
+
F239:.\1049115794\903364453\903364963\model
+% I/O Process: Mon Mar 31 14:03:14 2003
+
+'!box'('I/O Process', 'Process', [enum("Initialise", 'Each Trial'), boolean("Recurrent", 1), real("Firing Rate", 1.00)], 'Handle interactions between Task Environment and Subject''s buffers').
+
F672:.\1049115794\903364453\903364963\rules
+% I/O Process: Mon Mar 31 14:03:14 2003
+
+'!rule'('Store incoming words in STS', [triggered(word(X))], [], [add(X, 1048942580)]).
+
+'!ignore'('!rule'('The recall rule (serial version)', [triggered(recall), fire_once, refracted], [recall(Word)], [send(recalled(Word), 903365431), send(recall, 903364963)])).
+
+'!rule'('The recall rule', [triggered(recall)], [recall(Word)], [send(recalled(Word), 903365431)]).
+
+'!rule'('Disable rehearsal in the recall phase', [triggered(recall)], [], [send(stop, 1048943265)]).
+
+'!condition'('Recall from either STS or LTS', recall, 1, [(recall(Word) :- [match(Word, 1048942580)]), (recall(Word) :- [match(Word, 1048943261)])]).
+
F2:.\1049115794\903364453\description
+
F158:.\1049115794\903364453\model
+% Subject Model: Mon Mar 31 14:03:14 2003
+
+'!box'('Subject Model', 'Compound' / 'Subject', [], 'A completed Subject Model with STS, LTS and Rehearsal').
+
F546:.\1049115794\903364453\subboxes
+% Subject Model: Mon Mar 31 14:03:14 2003
+
+'!subbox'(1048943265, 520, 160, [input(903364963, send), output(1048942580, read), output(1048943261, send)]).
+
+'!subbox'(1048943261, 365, 260, [input(903364963, read), input(1048943265, send)]).
+
+'!subbox'(1048942580, 365, 70, [input(1048943265, read), input(903364963, read), input(903364963, send)]).
+
+'!subbox'(903364963, 225, 160, [output(1048943265, send), output(1048943261, read), output(1048942580, read), output(1048942580, send), input(903364449, send), output(903364449, send)]).
+
F2:.\1049115794\description
+
F0:.\1049115794\display
F209:.\1049115794\model
+% Completed Model: Mon Mar 31 15:36:52 2003
+
+'!box'('Completed Model', 'Compound' / 'Generic', [], 'A stub implementation of the Modal Model consisting of a complete Task Environment and Subject Model').
+
F267:.\1049115794\oos_init.pl
+:- assert(file_search_path(class, 'C:\\Program Files\\Cogent\\lib\\classes\\')).
+:- assert(file_search_path(lib, 'C:\\Program Files\\Cogent\\lib\\oos\\')).
+:- assert(file_search_path(io, 'C:\\Documents and Settings\\Richard Cooper\\My Documents\\Cogent\\output\\')).
F0:.\1049115794\oos_input
F89:.\1049115794\oos_output
+Modular OOS Version 2.3.02 (16:13:51 31 Mar 2003)
+Using PsyCOGENT classes.
+oos> halt.
F143:.\1049115794\parameters
+set_parameter(verbose, false).
+set_parameter(messages, true).
+set_parameter(foreign_libraries, false).
+set_parameter(show_console, false).
F9:.\1049115794\scriptname
+Default
D.\1049115794\Scripts
F65:.\1049115794\Scripts\100trials
+% block100: Sat Apr 10 04:56:54 1999
+
+repeat("Trial", 100).
+
F64:.\1049115794\Scripts\50trials
+% 50trials: Thu Sep  2 00:39:32 1999
+
+repeat("Trial", 50).
+
F71:.\1049115794\Scripts\Default
+% Default: Mon Mar 31 15:37:06 2003
+
+repeat([call("Trial")], 20).
+
F91:.\1049115794\Scripts\Trial
+% Trial: Sat Apr 17 21:46:48 1999
+
+initialise(trial).
+
+finish_trial.
+
+end(trial).
+
F217:.\1049115794\subboxes
+% Completed Model: Mon Mar 31 15:36:52 2003
+
+'!subbox'(903364453, 445, 55, [output(903364449, send), input(903364449, send)]).
+
+'!subbox'(903364449, 190, 55, [input(903364453, send), output(903364453, send)]).
+
D.\965617977
F1139:.\965617977\.config
+% Stub Model: Mon Mar 31 16:39:22 2003
+
+version('Version 2.2 #7').
+selection(0.180, 0.288).
+position(965617977, 0.187, 0.126).
+size(965617977, 640, 284).
+mode(965617977, open, 0).
+
+position(903364453, 0.225, 0.136).
+size(903364453, 640, 500).
+mode(903364453, closed, 0).
+
+position(903364963, 0.072, 0.093).
+size(903364963, 640, 466).
+mode(903364963, closed, 0).
+
+position(903364449, 0.226, 0.123).
+size(903364449, 640, 455).
+mode(903364449, closed, 0).
+
+position(965595358, 0.170, 0.125).
+size(965595358, 640, 473).
+mode(965595358, closed, 3).
+
+position(903376084, 0.270, 0.295).
+size(903376084, 640, 500).
+mode(903376084, closed, 0).
+
+position(903375835, 0.270, 0.296).
+size(903375835, 640, 500).
+mode(903375835, closed, 0).
+
+position(903375178, 0.270, 0.291).
+size(903375178, 640, 500).
+mode(903375178, closed, 0).
+
+position(903369132, 0.270, 0.296).
+size(903369132, 640, 500).
+mode(903369132, closed, 0).
+
+position(903377725, 0.268, 0.318).
+size(903377725, 725, 500).
+mode(903377725, closed, 3).
+
+position(903365431, 0.258, 0.070).
+size(903365431, 640, 616).
+mode(903365431, closed, 3).
+
D.\965617977\903364449
D.\965617977\903364449\903365431
F0:.\965617977\903364449\903365431\messages
F240:.\965617977\903364449\903365431\model
+% Experimenter Process: Sat Mar 29 12:41:25 2003
+
+'!box'('Experimenter Process', 'Process', [enum("Initialise", 'Each Trial'), boolean("Recurrent", 1), real("Firing Rate", 1.000)], 'Rules to administer stimuli and collate responses').
+
F2004:.\965617977\903364449\903365431\rules
+% Experimenter Process: Sat Mar 29 12:41:25 2003
+
+'!rule'('Maintain a total trials counter, to allow arbitrary block structure', [refracted], [clock(1), match(total_trials(Trials), 903376084), Trials1 is Trials + 1], [delete(total_trials(Trials), 903376084), add(total_trials(Trials1), 903376084)]).
+
+'!rule'('Send one word to S every cycle', [triggered(send_word(N))], [once([match(Word, 903369132)]), N1 is N + 1], [send(word(Word), 903364963), add(word(N, Word), 903375835), delete(Word, 903369132), send(send_word(N1), 903365431)]).
+
+'!rule'('When words exhausted, tell S to start recall', [refracted], [not [match(_, 903369132)]], [send(recall, 903364963)]).
+
+'!rule'('Get recalled word''s ser pos, increment the tally, and update table', [triggered(recalled(Word))], [match(word(N, Word), 903375835), match(stats(N, Total), 903376084), Total1 is Total + 1, number_atom(N, Nat)], [delete(stats(N, Total), 903376084), add(stats(N, Total1), 903376084), send(data(freq, Nat, Total1), 903377725)]).
+
+'!condition'('Make 2-digit atom from number', number_atom, 2, [(number_atom(Number, Atom) :- [call(name(Number, String)), append("0", String, Zeroed), append(_, [A, B], Zeroed), call(name(Atom, [A, B]))])]).
+
+'!rule'('system quiescence indicates end of recall, so graph results', [triggered(system_end(trial)), refracted], [], [send(draw_graph, 903365431)]).
+
+'!rule'('Rule', [triggered(draw_graph)], [match(total_trials(Trial), 903376084), match(stats(N, Freq), 903376084), Perc is 100 * (Freq / Trial)], [send(data(recall, N, Perc), 965595358)]).
+
+'!rule'('Rule', [triggered(draw_graph)], [], [send(type(recall, line, [colour(blue), marker(cross)]), 965595358)]).
+
+'!condition'('Calculate percentage score for each serial position', get_percentages, 3, [(get_percentages(X, X, []) :- ['!']), (get_percentages(Start, Fin, [H|T]) :- [N is Start + 1, match(stats(N, Freq), 903376084), match(total_trials(Trial), 903376084), H is 100 * (Freq / Trial), get_percentages(N, Fin, T)])]).
+
D.\965617977\903364449\903369132
F880:.\965617977\903364449\903369132\elements
+% Word List: Sat Mar 29 12:42:03 2003
+
+'!element'('Nothing', black).
+
+'!element'('Nothing', white).
+
+'!element'('Nothing', red).
+
+'!element'('Nothing', orange).
+
+'!element'('Nothing', yellow).
+
+'!element'('Nothing', green).
+
+'!element'('Nothing', blue).
+
+'!element'('Nothing', indigo).
+
+'!element'('Nothing', violet).
+
+'!element'('Nothing', brown).
+
+'!element'('Nothing', magenta).
+
+'!element'('Nothing', cyan).
+
+'!element'('Nothing', mustard).
+
+'!element'('Nothing', beige).
+
+'!element'('Nothing', azure).
+
+'!element'('Nothing', russet).
+
+'!element'('Nothing', skyblue).
+
+'!element'('Nothing', navy).
+
+'!element'('Nothing', racinggreen).
+
+'!element'('Nothing', cream).
+
+'!element'('Nothing', grey).
+
+'!element'('Nothing', pink).
+
+'!element'('Nothing', charcoal).
+
+'!element'('Nothing', purple).
+
+'!element'('Nothing', olive).
+
F340:.\965617977\903364449\903369132\elements.current
+  0:	olive.
+  0:	purple.
+  0:	charcoal.
+  0:	pink.
+  0:	grey.
+  0:	cream.
+  0:	racinggreen.
+  0:	navy.
+  0:	skyblue.
+  0:	russet.
+  0:	azure.
+  0:	beige.
+  0:	mustard.
+  0:	cyan.
+  0:	magenta.
+  0:	brown.
+  0:	violet.
+  0:	indigo.
+  0:	blue.
+  0:	green.
+  0:	yellow.
+  0:	orange.
+  0:	red.
+  0:	white.
+  0:	black.
+ 
F1:.\965617977\903364449\903369132\mapped_elements
+ 
F41:.\965617977\903364449\903369132\mapping_rules
+% Word List: Sat Mar 29 12:42:03 2003
+
F0:.\965617977\903364449\903369132\messages
F381:.\965617977\903364449\903369132\model
+% Word List: Sat Mar 29 12:42:03 2003
+
+'!box'('Word List', 'Buffer' / 'Propositional', [enum("Initialise", 'Each Trial'), enum("Decay", 'None'), pos_int("Decay Constant", 20), boolean("Limited Capacity", 0), pos_int("Capacity", 7), enum("On Excess", 'Random'), boolean("Grounded", 1), enum("Access", 'Random'), boolean("Duplicates", 0)], 'The list of words used as stimuli').
+
D.\965617977\903364449\903375178
F93:.\965617977\903364449\903375178\data
+% Start: Sat Mar 29 12:41:41 2003
+
+'!data'('Nothing', [send(send_word(1), 903365431)]).
+
F45:.\965617977\903364449\903375178\data.current
+'Nothing': [send(send_word(1), 903365431)].
F0:.\965617977\903364449\903375178\messages
F145:.\965617977\903364449\903375178\model
+% Start: Sat Mar 29 12:41:41 2003
+
+'!box'('Start', 'Data' / 'Source', [enum("Initialise", 'Each Trial')], 'Kick start Experiment Process').
+
D.\965617977\903364449\903375835
F45:.\965617977\903364449\903375835\elements
+% Serial Record: Sat Mar 29 12:42:15 2003
+
F1:.\965617977\903364449\903375835\elements.current
+ 
F1:.\965617977\903364449\903375835\mapped_elements
+ 
F45:.\965617977\903364449\903375835\mapping_rules
+% Serial Record: Sat Mar 29 12:42:15 2003
+
F0:.\965617977\903364449\903375835\messages
F354:.\965617977\903364449\903375835\model
+% Serial Record: Sat Mar 29 12:42:15 2003
+
+'!box'('Serial Record', 'Buffer' / 'Propositional', [enum("Initialise", 'Each Trial'), enum("Decay", 'None'), pos_int("Decay Constant", 20), boolean("Limited Capacity", 0), pos_int("Capacity", 7), enum("On Excess", 'Random'), boolean("Grounded", 1), enum("Access", 'LIFO'), boolean("Duplicates", 0)], '').
+
D.\965617977\903364449\903376084
F1083:.\965617977\903364449\903376084\elements
+% Serial Statistics: Sat Mar 29 12:42:43 2003
+
+'!element'('Nothing', total_trials(0)).
+
+'!element'('Nothing', stats(1, 0)).
+
+'!element'('Nothing', stats(2, 0)).
+
+'!element'('Nothing', stats(3, 0)).
+
+'!element'('Nothing', stats(4, 0)).
+
+'!element'('Nothing', stats(5, 0)).
+
+'!element'('Nothing', stats(6, 0)).
+
+'!element'('Nothing', stats(7, 0)).
+
+'!element'('Nothing', stats(8, 0)).
+
+'!element'('Nothing', stats(9, 0)).
+
+'!element'('Nothing', stats(10, 0)).
+
+'!element'('Nothing', stats(11, 0)).
+
+'!element'('Nothing', stats(12, 0)).
+
+'!element'('Nothing', stats(13, 0)).
+
+'!element'('Nothing', stats(14, 0)).
+
+'!element'('Nothing', stats(15, 0)).
+
+'!element'('Nothing', stats(16, 0)).
+
+'!element'('Nothing', stats(17, 0)).
+
+'!element'('Nothing', stats(18, 0)).
+
+'!element'('Nothing', stats(19, 0)).
+
+'!element'('Nothing', stats(20, 0)).
+
+'!element'('Nothing', stats(21, 0)).
+
+'!element'('Nothing', stats(22, 0)).
+
+'!element'('Nothing', stats(23, 0)).
+
+'!element'('Nothing', stats(24, 0)).
+
+'!element'('Nothing', stats(25, 0)).
+
F515:.\965617977\903364449\903376084\elements.current
+  0:	stats(25, 0).
+  0:	stats(24, 0).
+  0:	stats(23, 0).
+  0:	stats(22, 0).
+  0:	stats(21, 0).
+  0:	stats(20, 0).
+  0:	stats(19, 0).
+  0:	stats(18, 0).
+  0:	stats(17, 0).
+  0:	stats(16, 0).
+  0:	stats(15, 0).
+  0:	stats(14, 0).
+  0:	stats(13, 0).
+  0:	stats(12, 0).
+  0:	stats(11, 0).
+  0:	stats(10, 0).
+  0:	stats(9, 0).
+  0:	stats(8, 0).
+  0:	stats(7, 0).
+  0:	stats(6, 0).
+  0:	stats(5, 0).
+  0:	stats(4, 0).
+  0:	stats(3, 0).
+  0:	stats(2, 0).
+  0:	stats(1, 0).
+  0:	total_trials(0).
+ 
F1:.\965617977\903364449\903376084\mapped_elements
+ 
F49:.\965617977\903364449\903376084\mapping_rules
+% Serial Statistics: Sat Mar 29 12:42:43 2003
+
F0:.\965617977\903364449\903376084\messages
F436:.\965617977\903364449\903376084\model
+% Serial Statistics: Sat Mar 29 12:42:43 2003
+
+'!box'('Serial Statistics', 'Buffer' / 'Propositional', [enum("Initialise", 'Each Session'), enum("Decay", 'None'), pos_int("Decay Constant", 20), boolean("Limited Capacity", 0), pos_int("Capacity", 7), enum("On Excess", 'Random'), boolean("Grounded", 1), enum("Access", 'LIFO'), boolean("Duplicates", 0)], 'Holds the number of items recalled at each position (summed over blocks)').
+
D.\965617977\903364449\903377725
F42:.\965617977\903364449\903377725\data
+% Data Table: Sat Mar 29 12:43:02 2003
+
F1:.\965617977\903364449\903377725\data.current
+ 
F0:.\965617977\903364449\903377725\messages
F408:.\965617977\903364449\903377725\model
+% Data Table: Sat Mar 29 12:43:02 2003
+
+'!box'('Data Table', ('Data' / 'Sink') / 'Table', [enum("Initialise", 'Each Session'), char_string("File", "data.current"), enum("Location", 'Local'), char_string("Column Label", "Serial position"), char_string("Row Label", ""), pos_int("Cell Width", 25), pos_int("Cell Height", 20), enum("Sort", 'Alpha')], 'Tabular representation of serial recall statistics').
+
D.\965617977\903364449\965595358
F53:.\965617977\903364449\965595358\data
+% Serial Position Curve: Sat Mar 29 12:39:03 2003
+
F1:.\965617977\903364449\965595358\data.current
+ 
F0:.\965617977\903364449\965595358\messages
F556:.\965617977\903364449\965595358\model
+% Serial Position Curve: Sat Mar 29 12:39:03 2003
+
+'!box'('Serial Position Curve', ('Data' / 'Sink') / 'Graph', [enum("Initialise", 'Each Experiment'), char_string("File", "data.current"), enum("Location", 'Local'), char_string("Title", "Percentage recall at each serial position"), char_string("X Label", "Position"), char_string("Y Label", "% Recall"), real("X Min", 1.000), real("X Max", 25.000), pos_int("X Units", 25), real("Y Min", 0.000), real("Y Max", 100.000), pos_int("Y Units", 5)], 'Display of percentage recall at each serial position').
+
F0:.\965617977\903364449\messages
F193:.\965617977\903364449\model
+% Task Environment: Sat Mar 29 12:44:19 2003
+
+'!box'('Task Environment', 'Compound' / 'Generic', [], 'An environment to adminster stimuli and collate responses for the free recall task').
+
F793:.\965617977\903364449\subboxes
+% Task Environment: Sat Mar 29 12:44:19 2003
+
+'!subbox'(903377725, 315, 240, [input(903365431, send)]).
+
+'!subbox'(903369132, 95, 45, [input(903365431, send), input(903365431, read)]).
+
+'!subbox'(903375178, 315, 35, [output(903365431, send)]).
+
+'!subbox'(903375835, 95, 140, [input(903365431, read), input(903365431, send)]).
+
+'!subbox'(903376084, 100, 230, [input(903365431, read), input(903365431, send)]).
+
+'!subbox'(965595358, 530, 240, [input(903365431, send)]).
+
+'!subbox'(903365431, 315, 140, [output(965595358, send), output(903377725, send), output(903376084, read), output(903376084, send), output(903375835, read), output(903375835, send), input(903375178, send), output(903364453, send), output(903369132, send), input(903364453, send), output(903369132, read)]).
+
F0:.\965617977\903364449\subboxes.current
D.\965617977\903364453
D.\965617977\903364453\903364963
F0:.\965617977\903364453\903364963\messages
F240:.\965617977\903364453\903364963\model
+% I/O Process: Sat Mar 29 13:19:51 2003
+
+'!box'('I/O Process', 'Process', [enum("Initialise", 'Each Trial'), boolean("Recurrent", 1), real("Firing Rate", 1.000)], 'Handle interactions between Task Environment and Subject''s buffers').
+
F43:.\965617977\903364453\903364963\rules
+% I/O Process: Sat Mar 29 13:19:51 2003
+
F0:.\965617977\903364453\messages
F162:.\965617977\903364453\model
+% Subject Model: Sat Mar 29 13:20:32 2003
+
+'!box'('Subject Model', 'Compound' / 'Subject', [], 'A "stub" Subject Model for completion during the tutorial').
+
F131:.\965617977\903364453\subboxes
+% Subject Model: Sat Mar 29 13:20:32 2003
+
+'!subbox'(903364963, 225, 160, [input(903364449, send), output(903364449, send)]).
+
F0:.\965617977\903364453\subboxes.current
F17:.\965617977\cycle
+0. 0. 0. 0. 0. 
F0:.\965617977\data_bus
F0:.\965617977\display
F0:.\965617977\messages
F208:.\965617977\model
+% Stub Model: Sat Mar 29 12:40:52 2003
+
+'!box'('Stub Model', 'Compound' / 'Generic', [], 'A stub implementation of the Modal Model consisting of a complete Task Environment and an empty Subject Model').
+
F267:.\965617977\oos_init.pl
+:- assert(file_search_path(class, 'C:\\Program Files\\Cogent\\lib\\classes\\')).
+:- assert(file_search_path(lib, 'C:\\Program Files\\Cogent\\lib\\oos\\')).
+:- assert(file_search_path(io, 'C:\\Documents and Settings\\Richard Cooper\\My Documents\\Cogent\\output\\')).
F0:.\965617977\oos_input
F116:.\965617977\oos_output
+Modular OOS Version 2.3.02 (16:13:51 31 Mar 2003)
+Using PsyCOGENT classes.
+oos> initialise(session).
+oos> halt.
F143:.\965617977\parameters
+set_parameter(verbose, false).
+set_parameter(messages, true).
+set_parameter(foreign_libraries, false).
+set_parameter(show_console, false).
F28:.\965617977\random_seed
+seed(24000, 17479, 16914).
F0:.\965617977\refract
F9:.\965617977\scriptname
+Default
D.\965617977\Scripts
F65:.\965617977\Scripts\100trials
+% block100: Sat Apr 10 04:56:54 1999
+
+repeat("Trial", 100).
+
F64:.\965617977\Scripts\50trials
+% 50trials: Thu Sep  2 00:39:32 1999
+
+repeat("Trial", 50).
+
F71:.\965617977\Scripts\Default
+% Default: Mon Mar 31 15:37:27 2003
+
+repeat([call("Trial")], 20).
+
F91:.\965617977\Scripts\Trial
+% Trial: Sat Apr 17 21:46:48 1999
+
+initialise(trial).
+
+finish_trial.
+
+end(trial).
+
F0:.\965617977\scriptstate
F212:.\965617977\subboxes
+% Stub Model: Sat Mar 29 12:40:52 2003
+
+'!subbox'(903364453, 445, 55, [output(903364449, send), input(903364449, send)]).
+
+'!subbox'(903364449, 190, 55, [input(903364453, send), output(903364453, send)]).
+
F0:.\965617977\subboxes.current
F119:.\965617977\trace
+################################################################################
+Initialising session...........done
F17:.\965617977\trial
+1. -1. 1. 1. 1.
F0:.\965617977\variables
F263:.\history
+'!comment'('Implementations of the Atkinson & Shiffrin Modal Model for tutorial purposes').
+
+'!root'(1049115794).
+
+'!root'(965617977).
+
+'!children'(1049115794, []).
+
+'!position'(1049115794, 495, 90).
+
+'!children'(965617977, []).
+
+'!position'(965617977, 60, 90).
+