QBASIC Gorillas (GORILLA.BAS) Screenshot (+other information)

http://img230.imageshack.us/img230/8726/gorillasnm6.png

Granted, a few modifications were made:
i) FnRan (below) was changed to a proper FUNCTION
DEF FnRan (x) = INT(RND(1) * x) + 1
ii) PLAY "...." was changed to BEEP
iii) CONST statements were changed to DIM SHAREDs
iv) Changes to the delay were made for modern, faster systems

But it runs perfectly. By the end of the month (the release date for Demo #8) when QB64 will also support PLAY and CONST statements this program would need very little modification to run. Later, QB64 will support the DEF fn... one line functions too.

PS. Getting Nibbles and Gorillas to compile involved fixing a few more problems in QB64 totally unrelated to user defined types. The following bugs won't be a problem in Demo #8:
i) RESTOREing to a line number/label containing a DATA statement on the exact same line.
ii) DIM SHARED a(x) AS ... dimmed x as a global variable too if it hadn't been referenced!
iii) Rounding differences between QBASIC and QB64 have been fixed. Personally I don't like rounding evens and odds ending with .5 differently, but believe it or not Nibbles was unplayable without this fix!