MIA, Ask an Expert

[askanexpert@xxxxxxxxxxxxxxxxxxxxxxxxxxxx]

This is an automatic message sent from the web form at:
http://www.openworldlearning.org/mia/howdoi.htm

from: Renee <rstevenson3@xxxxxxxxxxx>
date: Mon Apr 21 03:25:22 2008
platform: Platform not specified
version: MicroWorlds Ex

Hello,

I have inserted the following procedures into the microworlds ex application:

TO STARTUP
MAKE "NOUN [DOG CAT HOUSE CAR CHILD COMPUTER]
MAKE "VERB [WALKS RUNS SKIPS FLIES SMELLS SLEEPS]
MAKE "ADJECTIVE [TINY LIGHT BLUE QUICK]
MAKE "ARTICLE [THE A]
MAKE "NL []
MAKE "FS [.]
MAKE "CM [,]
END

TO WRITE :TEMPLATE
IF :TEMPLATE = [] [PRINT [] STOP]
MAKE  "WORD FIRST :TEMPLATE
IFELSE (FIRST :WORD) = " "[INSERT BUTFIRST  :WORD INSERT CHAR 32][INSERT RAND 
THING FIRST :TEMPLATE INSERT CHAR 32]
IF (FIRST :TEMPLATE) = "NL [PRINTâ??]
WRITE BUTFIRST :TEMPLATE
END

TO RAND :DICT
IF :DICT = [] [OUTPUT[]]
MAKE "NUMBER 1 + RANDOM COUNT :DICT
OUTPUT ITEM :NUMBER :DICT
END

When I type the comand: write ["The adjective noun verb fs] I get the 
following error message:

I don't know what to do with [INSERT RAND THING FIRST :TEMPLATE INSERT CHAR 
32] in write

What am I doing wrong? I dont think that Mircoworlds Ex recognises the RAND 
command.