QL Tinkering

Helpful tips and guides, also new users can ask for help here.
User avatar
dilwyn
Mr QL
Posts: 1629
Joined: Wed Dec 01, 2010 10:39 pm
Location: Wales
Contact:

Re: QL Tinkering

Postby dilwyn » Thu Dec 19, 2019 2:40 pm

Wow, looks amazing!
I look forward to making time over Christmas to play this!


Dilwyn
All things QL: see www.dilwyn.me.uk
User avatar
QLvsJAGUAR
Gold Card
Posts: 345
Joined: Tue Feb 15, 2011 8:42 am
Location: Lucerne, Switzerland
Contact:

Re: QL Tinkering

Postby QLvsJAGUAR » Sun Dec 22, 2019 8:28 pm

qbits wrote:Seasonal Greetings - Merry Christmas and a Happy New Year to you all.

Thank you, QBITS. I'm looking forward to try out you various programs which you published in this thread.


QL forever!
http://www.sinclairql.net/ - Go and get THE DISTRIBUTION & QL/E!
https://www.youtube.com/QLvsJAGUAR
Sinclair, QL, ATARI, JAGUAR, NUON, APPLE, NeXT, MiST & much more...
Videos, pictures & information[/i]
qbits
Chuggy Microdrive
Posts: 67
Joined: Sun Dec 11, 2016 3:32 pm

Re: QL Tinkering

Postby qbits » Tue Mar 24, 2020 1:59 pm

Hi All,
Thanks for all your comments.
Taking the present circumstances our family have been minimising social contact since early February the last time we visited my Mother who’s in a care home. Our adult children, one is managing to work from home; the other two are having to attend their work place, one being a key worker and the other having to look after specialised equipment. We all keep in contact, but with choir, drama activities and other outings put on hold, I find myself with a few more hours to explore QL SuperBASIC.

To that end another QL Forum Topic has sent me reviewing and revising an old Prog! QBITS Organiser. More of which I hope to be uploading in the coming weeks. Partly due to that and the use of Bitmaps and or Vector graphics left me having an afternoon doodling with my QBITS Bitmap Design. The result of which I have upload for others to view and extend.

QBITS
Attachments
QBITS Organiser 04.jpg
Bitmap04.jpg
QBPData36x32_2.zip
(5.27 KiB) Downloaded 15 times
QBBMDesign_QL.zip
(24.28 KiB) Downloaded 15 times


qbits
Chuggy Microdrive
Posts: 67
Joined: Sun Dec 11, 2016 3:32 pm

Re: QL Tinkering

Postby qbits » Wed May 20, 2020 8:47 pm

Hi all,
This coronavirus lockdown has certainly curtailed the family’s activities in Choir and Theatre work. My latest contribution was some stage Sets built for one-act plays, which now lie languishing in my garage. But that’s another life.

What I have had is time on my hands, so after gardening - great weather we’ve been having, anyway I’ve been pursuing my interest in SuperBASIC and I am happy to announce a working version of a revamped, revised and basically rewritten QBITS Organiser which comes with my usual pdf.

The code was developed using QPC2 and tried out with QL2K emulators, the later at speed 1 equivalent to a BBQL. So long as you have extended memory and as a minimum a floppy or better as your default storage device, I’m hoping the Prog won’t fall over on its first roll out and run Ok. Anyone with such a BBQL setup I will be interested to hear you views.

SuperBASIC has given me the opportunity to write a simple page Text Editor in less than 100 lines a currency Calculator in even less and even the semblance of accounts mini-spreadsheet although I guess I’m cheating a bit on that one. The Organiser Calendar has been revamped from the eighties code and I think I’ve halved the number of lines. I’ve added a number of Vector and Bitmap images to enhance the pages and that was probably my down fall. The target I was aiming to achieve was within a 1000 lines. As it stands its 1010 but in my defence there are over 130 lines covering the image graphics?

Not that it’s of any interest, but for my recent birthday I was bought a model to assemble of the Star Trek Enterprise. The eighties have given me such good memories, so live long and prosper QL people!

QBITS signing off…

Update - QBOrg_v02BBQLBeat & QBOrg_v02QPC2Beat have been edited
both have default dr%=1 see line 1003 i.e flp1_ change as required!

A further update with Norman's suggestion.
Attachments
QBOrganiser_v02Beta.pdf
(1.87 MiB) Downloaded 5 times
QBOrg_v02QPC2Beta.zip
(28.49 KiB) Downloaded 4 times
QBOrganiser_v02Beta.pdf
(1.86 MiB) Downloaded 6 times
Last edited by qbits on Fri May 22, 2020 11:40 am, edited 5 times in total.


User avatar
Chr$
Gold Card
Posts: 407
Joined: Mon May 27, 2019 10:03 am
Location: Sachsen, Germany

Re: QL Tinkering

Postby Chr$ » Wed May 20, 2020 9:22 pm

That looks very well made and I like the pdf write-up. You've put a lot of effort into that.

I just tried it on my GC BBQL running from flp1_ but with absolutely no boot file, so no extensions, just Minerva and TK2 from ROM (and the Qubata and floppy drive bits).

It trips up with a 'not found', here (currently my display is b/w):
qbits.jpg

I didn't look into it further.


Collector of original and some newer QL related computers, accessories and software even though I don't understand how any of them work.
Original BBQL's: 2x German, 1x UK model (plus quite a bit of other old stuff)
Custom AT cased QL system with Gold Card, Qimi mouse, Hermes and MFM HDD
PC with QXLII card installed
Q68 also present

Ask me about near NOS re-felted good quality Microdrive Carts - many available.
qbits
Chuggy Microdrive
Posts: 67
Joined: Sun Dec 11, 2016 3:32 pm

Re: QL Tinkering

Postby qbits » Thu May 21, 2020 8:29 am

Thanks Chris for trying it out :-
First problem did you set the default drive in line 1003 to dr%=1 ie. ‘flp1_’
Second problem my error line 1083 CSIZE #ch% there should not be a space i.e CSIZE#ch%
Hopefully more success next time you try!

QBITS


User avatar
Chr$
Gold Card
Posts: 407
Joined: Mon May 27, 2019 10:03 am
Location: Sachsen, Germany

Re: QL Tinkering

Postby Chr$ » Thu May 21, 2020 10:46 am

qbits wrote:Thanks Chris for trying it out :-
First problem did you set the default drive in line 1003 to dr%=1 ie. ‘flp1_’
Second problem my error line 1083 CSIZE #ch% there should not be a space i.e CSIZE#ch%
Hopefully more success next time you try!

QBITS

Ah yes, that's better. It was too large for the BBQL screen (tv mode) so I had to switch to mode 4 to fit it all in.

Trying it on Qemulator just now, it doesn't like the syntax of lines 1150 to 1153. It prefixes them with 'MISTake' (seems to do that during loading, it certainly took ages) and won't let me put them back to how they should be, I get 'bad line'.


Collector of original and some newer QL related computers, accessories and software even though I don't understand how any of them work.
Original BBQL's: 2x German, 1x UK model (plus quite a bit of other old stuff)
Custom AT cased QL system with Gold Card, Qimi mouse, Hermes and MFM HDD
PC with QXLII card installed
Q68 also present

Ask me about near NOS re-felted good quality Microdrive Carts - many available.
qbits
Chuggy Microdrive
Posts: 67
Joined: Sun Dec 11, 2016 3:32 pm

Re: QL Tinkering

Postby qbits » Thu May 21, 2020 11:01 am

Hi Chris,
Lines 1150-53 SELect On yr% :They may require END SELect to close line I’ve added it in.
and up loaded the corrected Progs see updates.
QBITS


User avatar
NormanDunbar
Forum Moderator
Posts: 1040
Joined: Tue Dec 14, 2010 9:04 am
Location: Leeds, West Yorkshire, UK
Contact:

Re: QL Tinkering

Postby NormanDunbar » Thu May 21, 2020 11:02 am

Chr$ wrote:Trying it on Qemulator just now, it doesn't like the syntax of lines 1150 to 1153. It prefixes them with 'MISTake' (seems to do that during loading, it certainly took ages) and won't let me put them back to how they should be, I get 'bad line'.


Change this:

Code: Select all

1150 SELect ON yr%= 1700 TO 1799:yc%=4
1151 SELect ON yr%= 1800 TO 1899:yc%=2
1152 SELect ON yr%= 1900 TO 1999:yc%=0
1153 SELect ON yr%= 2000 TO 2099:yc%=6


to this:

Code: Select all

1150 SELect ON yr% : = 1700 TO 1799:yc%=4
1151 SELect ON yr% : = 1800 TO 1899:yc%=2
1152 SELect ON yr% : = 1900 TO 1999:yc%=0
1153 SELect ON yr% : = 2000 TO 2099:yc%=6


Colons missing in a single line SELect. The END SELect is implied by the end of the line.

Personally, I'd have gone for:

Code: Select all

1150 SELect ON yr%
1151    = 1700 TO 1799:yc%=4
1152    = 1800 TO 1899:yc%=2
1153    = 1900 TO 1999:yc%=0
1154    = 2000 TO 2099:yc%=6
1155 END SELect


To save re-evaluating yr% each time.


HTH

Cheers,
Norm.


Why do they put lightning conductors on churches?
Author of Arduino Software Internals - https://www.amazon.co.uk/Arduino-Softwa ... 1484257898, https://www.apress.com/gb/book/9781484257890
User avatar
Chr$
Gold Card
Posts: 407
Joined: Mon May 27, 2019 10:03 am
Location: Sachsen, Germany

Re: QL Tinkering

Postby Chr$ » Thu May 21, 2020 11:22 am

It (qemulator) doesn't like the new version either. Nor does it seem to like Norman's suggestions, although I didn't try the last option yet because I'd have to renum and then also spotted MISTake lines for the same issue at lines 1127 and 1640 - 1643.


Collector of original and some newer QL related computers, accessories and software even though I don't understand how any of them work.
Original BBQL's: 2x German, 1x UK model (plus quite a bit of other old stuff)
Custom AT cased QL system with Gold Card, Qimi mouse, Hermes and MFM HDD
PC with QXLII card installed
Q68 also present

Ask me about near NOS re-felted good quality Microdrive Carts - many available.

Who is online

Users browsing this forum: No registered users and 1 guest