← Back to branch summary

~ubuntu-branches/ubuntu/vivid/inform/vivid

« back to all changes in this revision

Viewing changes to html/answers2/answer85.html

  • Committer: Bazaar Package Importer
  • Author(s): Jan Christoph Nordholz
  • Date: 2008-05-26 22:09:44 UTC
  • mfrom: (2.1.1 lenny)
  • Revision ID: james.westby@ubuntu.com-20080526220944-ba7phz0d1k4vo7wx
Tags: 6.31.1+dfsg-1
* Remove a considerable number of files from the package
  due to unacceptable licensing terms.
* Repair library symlinks.

Show diffs side-by-side

added added

removed removed

Lines of Context:
html/answers2/answer85.html
1
 
<HTML><HEAD><TITLE>Answer to Exercise 85</TITLE></HEAD>
2
 
<BODY BGCOLOR="#FFFFFF">
3
 
<TABLE><TR><TD Valign="top"><IMG SRC="../icons/exercise.gif" ALT="??"><TD bgcolor="#FAA89B"><B>ANSWER TO EXERCISE 85</B><TR><TD><TD>
4
 
<P>
5
 
 
6
 
<PRE>
7
 
Object steriliser "sterilising machine"
8
 
  with name "washing" "sterilising" "machine",
9
 
       add_to_scope  top_of_wm  go_button,
10
 
       before
11
 
       [;  PushDir: AllowPushDir(); rtrue;
12
 
               Receive:
13
 
                   if (receive_action==##PutOn)
14
 
                       &#60;&#60;PutOn noun top_of_wm&#62;&#62;;
15
 
           SwitchOn: &#60;&#60;Push go_button&#62;&#62;;
16
 
       ],
17
 
       after
18
 
       [;  PushDir: "It's hard work, but the steriliser does roll.";
19
 
       ],
20
 
       initial
21
 
       [;  print "There is a sterilising machine on casters here (a kind of
22
 
               chemist's washing machine) with a ~go~ button.  ";
23
 
           if (children(top_of_wm)~=0)
24
 
           {   print "On top";
25
 
               WriteListFrom(child(top_of_wm), ISARE_BIT + ENGLISH_BIT);
26
 
               print ".  ";
27
 
           }
28
 
           if (children(self)~=0)
29
 
           {   print "Inside";
30
 
               WriteListFrom(child(self), ISARE_BIT + ENGLISH_BIT);
31
 
               print ".  ";
32
 
           }
33
 
       ],
34
 
  has  static container open openable;
35
 
Object top_of_wm "top of the sterilising machine",
36
 
  with article "the",
37
 
  has  static supporter;
38
 
Object go_button "~go~ button"
39
 
  with name "go" "button",
40
 
       before [; Push, SwitchOn: "The power is off."; ],
41
 
  has  static;
42
 
</PRE>
43
 
 
44
 
</TABLE>
45
 
<HR>Back to <A HREF="../section28.html#ex85">the exercise in section 28</A><HR>
46
 
<SMALL><I>Mechanically translated to HTML from third edition as revised 16 May 1997. Copyright &#169; Graham Nelson 1993, 1994, 1995, 1996, 1997: all rights reserved.</I></SMALL></BODY></HTML>