If "<ChangeFSI$Dir>" = "" Then Error Please open a Filer directory containing !ChangeFSI V1.15 (or better) then try again.

| This turns on or off the Hourglass when ChangeFSI is converting.
| If you don't want it on Make the line below 'Off'
Set ChangeFSI$Hourglass On

WimpSlot -min 2000K
WimpSlot -next 2000K
Set campin$dir <obey$dir>.resources
Set campin$path <campin$dir>.
DIR <campin$dir>

RND 83 224
Set num <Campin%RND>

| Natural History Museum picture of Dinosaurs.
| http://flood.nhm.ac.uk/cgi-bin/dino/flatlist.html
| Unfortunely there are a few gaps in this web sites numbering.
| Not all the type_id from 83 to 224 have pictures.
|
DO curl --env http://flood.nhm.ac.uk/cgi-bin/dino/imgl.dsml?type_id=<num> -o today -s
campin:errorcheck

campin:getimgsrc "--This image"

| There are gaps in the numbers from this site.
| These lines prevent an error from appearing.
SETEVAL curltest "<urlstring>" LEFT 8
IF "<curltest>" <> "http://o" THEN SET curltest 1 ELSE SET curltest 0 

IF "<curltest>" = 0 THEN SetEVAL surl "<urlstring>"
IF "<curltest>" = 0 THEN DO campin:curl --env <surl> -o image -s
IF "<curltest>" = 0 THEN campin:errorcheck



IF "<curltest>" = 0 THEN campin:camchk campin:Image
IF "<curltest>" = 0 THEN campin:CFSI campin:Image campin:sprite <col> 10:7 -nomode { > null: }
IF "<curltest>" = 0 THEN Backdrop  -C campin:sprite
