Hi Dilwyn Below is my adaption of the Qx0 part of your pic to bmp converter. It seems to work as I have used it on occasion & its what I sent to Michael Grunditz.
1900 DEFine PROCedure Q40colours 1905 FOR X = 0 TO pw%-1 1910 blue = (PEEK(qlad+1)&&62) DIV 2 1920 red = (4*(PEEK(qlad)&&7))||((PEEK(qlad+1)&&192) DIV 64) 1930 green = ((PEEK(qlad)&&248) DIV 8) 1940 intensity = (PEEK(qlad+1)&&1) : REMark 0 or 1 1950 POKE pcad,(8*(blue))+intensity*7 1960 POKE pcad+1,(8*(green))+intensity*7 1970 POKE pcad+2,(8*(red))+intensity*7 1972 qlad = qlad + 2 1975 pcad = pcad +3 1978 END FOR X 1980 END DEFine Q40colours Duncan Neithercut -----Original Message----- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of Dilwyn Jones Sent: 04 January 2006 19:08 To: [EMAIL PROTECTED] Subject: Re: [ql-users] screenshoots Was written in good faith and since that was published about 2 years ago nobody told me it didn't work. I haven't got a Q60 to play with, if anyone can tell me the correction needed I'll update the program on my website and CDs. I presume you were using SMSQ/E, not QDOS Classic? I think the problem might be that there is a close bracket in the wrong place after the PEEK in line 480, which tries to make the program PEEK an illegal place ending up at address 0 to 7. I think it should read as follows to cure this problem but I can't test this as I don't have a Q60 (please let me know if this fixes the problem): 480 red = (4*(peek(qlad)&&7)) || ((PEEK(qlad+1)&&192) DIV 64) -- Dilwyn Jones ----- Original Message ----- From: "Michael Grunditz" <[EMAIL PROTECTED]> To: <[EMAIL PROTECTED]> Sent: Tuesday, January 03, 2006 4:15 PM Subject: Re: [ql-users] screenshoots > > > >> ----- Original Message ----- > >> Thanks. If you are a QL-Today reader, you will find some help on >> the >> Insider Disk that came with the last issue. Go to the folder >> gd2conv for >> a basic program to convert mode 32 screens to bmp. In the text are >> suggested, but untested, changes you can make to the program to >> convert >> mode 33 screens to bmp. > >> Just a word of warning. There is an error in line 270. Amend this >> to: > >> 270 GET #3, temp% : ql_bpl=temp% > >> Best wishes, >> Geoff > > Ok so I tried the program with the changes for mode 33. However I > get 480 > arithmetic overflow. > > /Michael > > >> _______________________________________________ >> QL-Users Mailing List >> http://www.q-v-d.demon.co.uk/smsqe.htm >> > > _______________________________________________ > QL-Users Mailing List > http://www.q-v-d.demon.co.uk/smsqe.htm > > > -- > No virus found in this incoming message. > Checked by AVG Free Edition. > Version: 7.1.371 / Virus Database: 267.14.9/217 - Release Date: > 30/12/2005 > -- No virus found in this outgoing message. Checked by AVG Free Edition. Version: 7.1.371 / Virus Database: 267.14.12/220 - Release Date: 03/01/2006 _______________________________________________ QL-Users Mailing List http://www.q-v-d.demon.co.uk/smsqe.htm _______________________________________________ QL-Users Mailing List http://www.q-v-d.demon.co.uk/smsqe.htm
