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.
Doodle - the firefly
Re: Doodle - the firefly
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.
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
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.
Yes, I agree. This can be seen at line 300, with an EXIT back to the main program. Turbo reports this as an error.Derek_Stewart wrote: You just have be carefull with exiting variablesnames
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
-
stevepoole
- Aurora
- Posts: 888
- Joined: Mon Nov 24, 2014 2:03 pm
Re: Doodle - the firefly
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.
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.
-
stevepoole
- Aurora
- Posts: 888
- Joined: Mon Nov 24, 2014 2:03 pm
-
stevepoole
- Aurora
- Posts: 888
- Joined: Mon Nov 24, 2014 2:03 pm
-
stevepoole
- Aurora
- Posts: 888
- Joined: Mon Nov 24, 2014 2:03 pm
Re: Doodle - the firefly
Yer Tiz... Tested Ok on QPC2, and SGC under QDOS - Quite fast.
_____________
_____________