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