1\  Erorrrs involving "instance"
2
3\  Updated Thu, 19 Jan 2006 at 15:14 PST by David L. Paktor
4
5
6fcode-version2
7
8headers
9
10instance
11
12: goombah  dup swap drop ;
13: foosbat  over swap nip ;
14: casball  dup dup rot rot drop drop ;
15    variable chump
16
17instance
18
19instance
20
21new-device
22  : what-the-heck  ."  What now?"  ;
23  : how-now?  ."  Now what?"  ;
24  0 value sclump
25
26instance
27
28finish-device
29
30global-definitions
31    237 buffer:  mugwump
32
33device-definitions
34
35global-definitions
36    880 buffer:  nimnump
37    " madmirable_" count
38     dup nimnump c!
39     dup constant nimbasesiz
40      0 do dup i + c@ nimnump 1+ i + c! loop
41      drop
42      [macro] (u.h)  base @ hex swap (u.) rot base !
43      [macro] nimnumprop numnim nimnump count encode-string " nimnum" property
44      : numnim
45           nimnump nimbasesiz +
46	   my-address (u.h)
47	   dup >r
48	   0 do
49	       2dup i + c@ swap i + c!
50	   loop  2drop
51	   r> nimbasesiz + nimnump c!
52      ;
53
54   : gummink
55       dup
56	 instance
57            numnim
58   ;
59
60  instance
61
62device-definitions
63
64: prumpick
65       dup
66	 instance
67            gummink
68;
69
70new-device
71
72instance
73
74    nimnumprop
75
76true instance value hardware-store
77
78: knacknick
79    nimnumprop
80        instance
81;
82
83instance  knacknick
84
85finish-device
86
87instance
88
89fcode-end
90