createstopsit:-
    menu(['In what way did you signal the class to listen?',
        [a, 'I told them to stop what they were doing', 1],
        [b, 'I told them to leave what they were doing as we had to get on',1],
        [c, 'I told them they could finish what they were doing, but for now they should listen to me',2]
        ],VALUE),
    (VALUE = 1,
     recorda(data,[createstopsit,true],REF1),
     recorda(data,[gettostopfornow,false],REF2);
     VALUE = 2,
     recorda(data,[createstopsit,false],REF1),
     recorda(data,[gettostopfornow,true],REF2)).

finishedwork:-
    menu(['To what extent had the class finished the task you had given them?',
        [a,'They had all finished and were ready to carry on',1],
        [b,'Some had finished and were ready to continue',1],
        [c,'Most of the class still seemed quite busy with what they had been given',2],
        [d,'No one seemed to have finished',2]
        ],VALUE),
    (VALUE = 1,
     recorda(data,[finishedwork,true],REF1);
     VALUE = 2,
     recorda(data,[finishedwork,false],REF1)).                       

externalevent:-
    menu(['Had something attention grabbing happened to distract the class?',
            [a,'Yes, something happened which excited the pupils and distracted them from the lesson',1],
            [b,'No, nothing irregular had happened to distract their attention',2]
         ],VALUE),
    (VALUE = 1,
     recorda(data,[externalevent,true],REF1);
     VALUE = 2,
     recorda(data,[externalevent,false],REF1)).

phypresent:-
    menu(['Was the entire class present at the onset of this situation?',
            [a,'Yes, all the class had all arrived',1],
            [b,'Most of the class were there, with a few still to arrive',1],
            [c,'No, the class were straggling in with a number still missing',2],
            [d,'No, there seemed to be a problem with them getting to the lesson',2]
         ],VALUE),
    (VALUE = 1,
     recorda(data,[phypresent,true],REF1);
     VALUE = 2,
     recorda(data,[phypresent,false],REF1)).                       

mentpresent:-
    menu(['How ready were the class to begin work?',
            [a,'The majority of the class seemed ready to start',1],
            [b,'They did not seem ready to settle down',2]
         ],VALUE),
    (VALUE = 1,
     recorda(data,[mentpresent,true],REF1);
     VALUE = 2,
     recorda(data,[mentpresent,false],REF1)).

interestelsewhere:-
    menu(['Was the interest of the class clearly elsewhere?',
        [a,'yes, they were much more interested in other things',1],
        [b,'no, they were no more absorbed in their own interests than usual',2]
        ],VALUE),
    (VALUE = 1,
     recorda(data,[interestelsewhere,true],REF1);
     VALUE = 2,
     recorda(data,[interestelsewhere,false],REF1)).

contentsignal:-
    menu(['When signalling the class, did you',
        [a,'Get straight into the work you were going to do?',1],
        [b,'Give them a specific task to do?',2],
        [c,'Tell them the lesson was beginning now?',2],
        [d,'Tell them to be quiet and/or to settle down?',2],
        [e,'Threaten them with something if they did not comply?',2]
    ],VALUE),
    (VALUE = 1,
     recorda(data,[contentsignal,true],REF1),
     recorda(data,[instructionsignal,false],REF1);
     VALUE = 2,
     recorda(data,[contentsignal,false],REF1),
     recorda(data,[instructionsignal,true],REF1)).

instructionsignal:-
    contentsignal.
