The Sinclair QL Forum

Hi again EmmBee,

Try adding line : 825 if k=0: pause

It could be that your code objects to line 820 T(0,1) being a valid value for an array index ?

Best Wishes,

Steve.

Hi again Steve,

The problem was with #0 - I was using a 3 line #0 window, so it was AT#0,3,1 causing the out of range.
I often use this setup as it gives me a few more lines on the other bigger windows.

I notice in your firefly - at lines 550,560: x and y are assigned to, but are not used again - might suggest a REMark to clarify the meaning.

Derek_Stewart wrote: You just have be carefull with exiting variablesnames

Yes, I agree. This can be seen at line 300, with an EXIT back to the main program. Turbo reports this as an error.
My tracker's stack will also become out of synch, as it will be unable to detect it has returned from get_dots.
The tracker's stack is used to decide the action after a "RETurn". It's either a RETurn from SUB or a PROC return.
Of course, if you are not using any GO SUBS, the problems are reduced.
While it won't currently compile with Turbo, without change, it does successfully compile with QLiberator.

The Doodle is quite a nice program.

Best regards,
EmmBee

Hi All,

Thanks for your helpful suggestions. As a result, I have modified the previous versions.
Now it has been tested on : QPC2, SGC_qdos, SGC_smsq/e, Qemulator, JS and Minerva 1.97 roms, 128ko QL, both interpreted and compiled in mode 8.

The original 'popit' version had 4 Ko of code, but needed 25ko of dataspace in all.
By using a rotating array, I have reduced the dataspace to 5 KO, some 20 times less, for more animation !

The code is also renamed for clarity, with remarks added. Let SB=0 to turn sound off....

This will be my final version, which should replace both firefly_bas and popit_bas.
If you are looking for a new screen saver, try this : It is a firefly flitting around an animated screen popping bubbles.

Steve.

Hi Folks,

Just a little animated Doodle before Xmas looms up....

Hi ,
New slightly improved version...

Yer Tiz... Tested Ok on QPC2, and SGC under QDOS - Quite fast.
_____________