tag:blogger.com,1999:blog-19989026801397540612024-03-12T17:50:02.954-07:00QL QDOS and SMSQ/E HeavenArtificerhttp://www.blogger.com/profile/12473961441434051807noreply@blogger.comBlogger169125tag:blogger.com,1999:blog-1998902680139754061.post-76824750272009515572020-08-19T09:12:00.000-07:002020-08-19T09:12:08.175-07:00Wifi Printing almost from Q68 and Qx0<p> This blog has been quiet not because interest in QDOS, smsq/e and things QL has waned but because all available spare time has been used up in writing some software that allows a QL system with a reliable serial port to print to the Wifi printer here at QL heaven. The solution is similar to the RetroPrint project but is mainly software based, although a RPi is still needed for the Wifi part.</p><p>Parts required are a RPi, a null modem cable to a serial Pi hat or a serial to USB cable. The rest is software as follows:</p><p>On the RPi connect the RPi to the Wifi network, and install the RPi serial port on its expansion pins or on one of the USB ports. This can be done through the raspi-config program on an upto date installation. Then install the CUPs printer driver, good guidance for this can be found in early Magpi magazines volumes 11 and 12. <br /></p><p>Then install the python cups bindings and next write the python software for the RPi to catch and send files transmitted via the serial port to the printer and write the SBasic to send files through the serial port of the QL. </p><p></p><div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiY7j6Za8PnYSmLeEXKjXnZXhHq4HaWyU8D6Qc_aXr4rYfCn2_QK19XTyNPzCuhcOKKXBssyBcQfjPomDDMbhEg7zQOyPqBlMUYBIwyBkds4N80V1s3o7JqDMfvfu0XO7QFJO2cEcyB56io/s512/RPI1.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" data-original-height="384" data-original-width="512" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiY7j6Za8PnYSmLeEXKjXnZXhHq4HaWyU8D6Qc_aXr4rYfCn2_QK19XTyNPzCuhcOKKXBssyBcQfjPomDDMbhEg7zQOyPqBlMUYBIwyBkds4N80V1s3o7JqDMfvfu0XO7QFJO2cEcyB56io/s0/RPI1.JPG" /></a></div> <p></p><p> Simple? No not really. Many document files on the QL are text, some are html and many are Quill doc files. The good news is that CUPs can handle text and html and postscript files natively, so send these with the appropriate commands and viola they print out. </p><p></p><div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh761YsqlH9DcwACIqer1N-aBIb9F3TaBcbtAKhWptxTrfAMxaIWRHD4BkBG4wohlyMSqMhDTjdm1s_KYFEtLJgAUtLVEdPs3gzGVjLJFbJT9ckbqxplNid6jAgLSpW5ymJW-tAX3cSwruT/s512/RPI2.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" data-original-height="384" data-original-width="512" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh761YsqlH9DcwACIqer1N-aBIb9F3TaBcbtAKhWptxTrfAMxaIWRHD4BkBG4wohlyMSqMhDTjdm1s_KYFEtLJgAUtLVEdPs3gzGVjLJFbJT9ckbqxplNid6jAgLSpW5ymJW-tAX3cSwruT/s0/RPI2.JPG" /></a></div> <p></p><p>Quill docs are something else. There are a number of Quill doc stripper programs but typically these lose text formatting which is unsatisfactory.</p><p>So a Quill to postscript filter was constructed based on Marcel Kilgus MPS_bas program and the result today :</p><p></p><div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi05dmUCmdg09pYzPgzTR-Lr1iquENVi_rzmD6SIHW-jyJE-aLjSxKoy-SBO1OvuyMGs053H90-eeibAaEdqUO1qkkV6JUaI2SGFlAMac2VtQIIz_f4kSF4Ys-sk40p7vDPQMu9BybM6_Nk/s2048/Environment+doc.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" data-original-height="2048" data-original-width="1536" height="640" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi05dmUCmdg09pYzPgzTR-Lr1iquENVi_rzmD6SIHW-jyJE-aLjSxKoy-SBO1OvuyMGs053H90-eeibAaEdqUO1qkkV6JUaI2SGFlAMac2VtQIIz_f4kSF4Ys-sk40p7vDPQMu9BybM6_Nk/s640/Environment+doc.jpg" /></a></div> <p></p><p>It doesn't look like much and the formatting while acceptable is not exactly as in the original.</p><p>Anyway using this as a printing system gives quite good contol of printouts.</p><p></p><div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhXnK70Gsmuff1FSMqaUotpteGWpyLCRGkvtX-HmItc82T2IgY2F2x7WdiN7zbBMtG7CPAKphsmU6RZ6d_AhNSREcIVPqWdMteVmNyHn7Z1u833c81aI88RYtr2DxYbsw4VN2AFV3iUQuKd/s512/RPI3.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" data-original-height="384" data-original-width="512" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhXnK70Gsmuff1FSMqaUotpteGWpyLCRGkvtX-HmItc82T2IgY2F2x7WdiN7zbBMtG7CPAKphsmU6RZ6d_AhNSREcIVPqWdMteVmNyHn7Z1u833c81aI88RYtr2DxYbsw4VN2AFV3iUQuKd/s0/RPI3.JPG" /></a></div> <br /><p></p><p> The system is still a work in progress as CUPs has Courier, Times , Helvetica fonts built in.<br /></p><p><br /></p><p><br /></p>Artificerhttp://www.blogger.com/profile/12473961441434051807noreply@blogger.com2tag:blogger.com,1999:blog-1998902680139754061.post-26230857533329342702020-03-02T12:05:00.000-08:002020-03-02T12:08:58.631-08:00EddIcon ResizedIt has been some time since there was time to update this blog. That does not mean that nothing has been happening in QL heaven. Here is a glimpse at some of things happening here. A Q68 was acquired and one irritation was the EddIcon could not run on the 512x384 16 bit colour resolution screen as it only used a window 640x480. So after some devling about the innards of EddIcon here is a revamped version that has 3 window izes. The original, a medium sized window that fits in to 512x384 and a small window suitable for 512x256. Besides the window changes there have been some other changes to the interface and functionality. Sprites can now be saved out with RLE compression, as mode 64, 32 and mode 4. Mode 4 sprites can also be saved as a series of data statements to be incorporated in to QPTR superbasic. There are still some bugs in the colour handling routines so its not for release yet.<br />
<br />
Other things that have been looked at are a simplified method of automatically creating and editing simple Qascade menus., reading and writing to FAT16 formatted CF cards on the Q60 and printing through the serial port via a RPi, Python and CUPs to a WiFi printer, a bit like the retroprint project. The difference being that CUPs handles text, HTML, and postscript. All of these modes work on the system. Quill doc files still have to be converted.<br />
<br />
All these things might be looked at in future posts but at the moment here is EddIcon in 3 sizes.<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhSHP7pMM3Yz5WBQOrlyK0AHHreusy_tPGvzf1O94os0Ut7PhuoJdchJIU7od1ol80DrxopmKefTiT51I0YLEON6kCZM0CJ-7jxsMorg0L2wlb9-ZJnlhHrX30vrl8hiXB5ykyk9cu80OAi/s1600/EddIconResize.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" data-original-height="512" data-original-width="1024" height="320" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhSHP7pMM3Yz5WBQOrlyK0AHHreusy_tPGvzf1O94os0Ut7PhuoJdchJIU7od1ol80DrxopmKefTiT51I0YLEON6kCZM0CJ-7jxsMorg0L2wlb9-ZJnlhHrX30vrl8hiXB5ykyk9cu80OAi/s640/EddIconResize.JPG" width="640" /></a></div>
Artificerhttp://www.blogger.com/profile/12473961441434051807noreply@blogger.com0tag:blogger.com,1999:blog-1998902680139754061.post-47117381158782258902019-05-28T04:48:00.002-07:002019-05-28T04:48:54.928-07:00QD and the QBASIC extensionThere has been some confusion on the QL Forum concerning the F10 button associated "thing". QD comes with the QD/SBAS thing or it may be that this thing is part of smsq/e but however it is incorporated QD comes with it installed once the QD config block is configured to us this thing.<br />
<br />
What the QD/SBAS thing does is to parse the SBASIC program being edited in QD and then execute the SBASIC program as SBASIC. Writing programs to be executed via QD/SBAS has a few quirks. For example if SBASIC programs are run from the interpreter of executed via the QPAC files thing, or via Qcascade if needed SBASIC windows #0,1 and 2 do not necessarily need to be explicitly opened as the program is wrapped in an SBASIC interpreter that already has these windows open. If launched from QD via the SBAS/QD thing then window#0 as a minimum needs to explicitly opened for the program. <br />
<br />
The QBASIC extension thing is a completely different animal. When attached to the QD F10 button it will pass the program being edited to the QLiberator compiler (v3.35 and above) and either compile it or exec the compiled program directly. The compile options to be passed to QLiberator can be modified at this stage before compilation if needed.<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhCt_hyphenhyphenQoKLUmXNEJoHXl6OvpA9P3ZNt_IPk1RjYPPgrgt_Oj60uzao1zov5OFAAxaF-9wokfgketKNVB-iPpfKdVQL8mlUDw4lCUlVpm1Aa1VF0stMlmeyXVeZQDmkotaDAx5S2xU5V0jw/s1600/QBASIC.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" data-original-height="384" data-original-width="512" height="480" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhCt_hyphenhyphenQoKLUmXNEJoHXl6OvpA9P3ZNt_IPk1RjYPPgrgt_Oj60uzao1zov5OFAAxaF-9wokfgketKNVB-iPpfKdVQL8mlUDw4lCUlVpm1Aa1VF0stMlmeyXVeZQDmkotaDAx5S2xU5V0jw/s640/QBASIC.JPG" width="640" /></a></div>
<br />
<br />
<br />
QBASIC is a separate extension than needs to be LRESPRed in the QL's boot program. It needs to be configured to find where QLiberator is stored on the system. QD itself needs to be configured to use the QBASIC thing, either in its config block or passed as a parameter when QD is executed as shown in the Q-DOCK program settings.<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhKNAACsLqT3QZGDZsUGqEGJv6muz2YYwI3U7bT6Q8cC6hIHe9ERmoKvJS_578XkdtIa9L6Q_szTtASHEF2uW_KlyjC6eVFd1ktPxT15uxeTzhiGacWV_pgn9qYepUv66FdarkjTfV-jTLc/s1600/QBCFG.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" data-original-height="384" data-original-width="512" height="480" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhKNAACsLqT3QZGDZsUGqEGJv6muz2YYwI3U7bT6Q8cC6hIHe9ERmoKvJS_578XkdtIa9L6Q_szTtASHEF2uW_KlyjC6eVFd1ktPxT15uxeTzhiGacWV_pgn9qYepUv66FdarkjTfV-jTLc/s640/QBCFG.JPG" width="640" /></a></div>
<br />
If there is a need to have both the QD/SBAS thing and SBASIC handy then an easy way to do this is to have 2 copied of QD on one of the program launcher menu systems with one configured for QD/SBAS and the other for QBASIC.<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi-aJFwfrUKUbXZfZ-WZXVD90XetRm0i3M3HXXBrdYHYcfe5KO2VfiVYLMY1t3UaTAh6gMX1nLtYNaJtyAyk-mBS6RxFkLGKZzN4TzquevpzCOcNj99SpnpCY_Ri3qHZwJBIbrSFlUPkBam/s1600/Q60+Full+Launchpad.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" data-original-height="264" data-original-width="514" height="328" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi-aJFwfrUKUbXZfZ-WZXVD90XetRm0i3M3HXXBrdYHYcfe5KO2VfiVYLMY1t3UaTAh6gMX1nLtYNaJtyAyk-mBS6RxFkLGKZzN4TzquevpzCOcNj99SpnpCY_Ri3qHZwJBIbrSFlUPkBam/s640/Q60+Full+Launchpad.jpg" width="640" /></a></div>
<br />
<br />
The only was to pass a program between them is either via the scrap, less than 32k in size or as a file.<br />
<br />
Recently QD has become freeware but the copyright status of QBASIC is not known although as an app it has no use other than as an extension to QD.<br />
<br />Artificerhttp://www.blogger.com/profile/12473961441434051807noreply@blogger.com0tag:blogger.com,1999:blog-1998902680139754061.post-75641551581260451092019-05-10T04:12:00.002-07:002019-05-10T04:12:31.377-07:00File Handlers for QL systems<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgWEqlB3JsopgLRf5NGqH_IA3zpz5BXEES6KQaNW8_9gbjL-v4EqHllb0jIZ1tf4wKOnR-Asfw_CMM_IrGuOtU2nsoNf2J2Z5sFzqhsrjGTfAZqwkQugFKfE3-rVFIdqMORCo53Afj1kW2i/s1600/QLCOM2.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" data-original-height="384" data-original-width="512" height="480" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgWEqlB3JsopgLRf5NGqH_IA3zpz5BXEES6KQaNW8_9gbjL-v4EqHllb0jIZ1tf4wKOnR-Asfw_CMM_IrGuOtU2nsoNf2J2Z5sFzqhsrjGTfAZqwkQugFKfE3-rVFIdqMORCo53Afj1kW2i/s640/QLCOM2.JPG" width="640" /></a></div>
<br />
<br />
A recent addition to the list of QL software file managers, QLCommander written by Andrew of the QL Forum, made us here think of all the other similar programs also <a href="http://www.dilwyn.me.uk/files/index.html" target="_blank">available</a>.<br />
<br />
There are too many to list but include former commercial programs like <a href="https://qlwiki.qlforum.co.uk/doku.php?id=qlwiki:qtop" target="_blank">QTOP</a> and CUEshell :<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj5PJX28nf-L3gplDvsBU5cZvryf51EHCoUIASKU_R5KpMiBaV5h-H78ax0Z-Y1QH7me94snps7osH8xAfKnyesP2PIBcbVf4X27Ke465Hx04uRFTJUeMZfPhqeWrk9hBWAYl9T7VqjJT49/s1600/CUE1.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" data-original-height="384" data-original-width="512" height="480" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj5PJX28nf-L3gplDvsBU5cZvryf51EHCoUIASKU_R5KpMiBaV5h-H78ax0Z-Y1QH7me94snps7osH8xAfKnyesP2PIBcbVf4X27Ke465Hx04uRFTJUeMZfPhqeWrk9hBWAYl9T7VqjJT49/s640/CUE1.JPG" width="640" /></a></div>
<br />
The ubiquitous QPAC2 files thing:<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjOohDhR_GtsaU1AdpdHsD2_s-1LACdlLkt2tUTpVvePELH-cNOFjj0l_GCYMeNsnPBDfjZxcgGf47LJEkhdfkQtLY13UUdueQyZXX5SXIPFFt445tF11FTG1rjmvw7p2A1DSFizEQVVdhP/s1600/FAT1.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" data-original-height="384" data-original-width="512" height="480" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjOohDhR_GtsaU1AdpdHsD2_s-1LACdlLkt2tUTpVvePELH-cNOFjj0l_GCYMeNsnPBDfjZxcgGf47LJEkhdfkQtLY13UUdueQyZXX5SXIPFFt445tF11FTG1rjmvw7p2A1DSFizEQVVdhP/s640/FAT1.JPG" width="640" /></a></div>
<br />
And programs like QcdEze for CDROMs :<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjlSE1Xw_Zvj5ZHVcPgTidiF1SEo6t6S7w8x8_sr8408JMEpiwtgRsruFwC5ShooPhoXsxARFDa2aiWnRUJnMbJI_eWENkyDkN5Hs-dZ7SgcXFLP5EUUwO0WNmaufqhqaYVURnnTdu_ZFzs/s1600/QcdEze+picture.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" data-original-height="512" data-original-width="1021" height="320" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjlSE1Xw_Zvj5ZHVcPgTidiF1SEo6t6S7w8x8_sr8408JMEpiwtgRsruFwC5ShooPhoXsxARFDa2aiWnRUJnMbJI_eWENkyDkN5Hs-dZ7SgcXFLP5EUUwO0WNmaufqhqaYVURnnTdu_ZFzs/s640/QcdEze+picture.jpg" width="640" /></a></div>
<br />
And so on. It is amazing that so many of them written sometime ago adapt so well to newer emulators and hardware developments of the QL.Artificerhttp://www.blogger.com/profile/12473961441434051807noreply@blogger.com0tag:blogger.com,1999:blog-1998902680139754061.post-90709328004972387562019-04-25T12:23:00.000-07:002019-04-25T12:23:09.343-07:00Hardware Renaissance?There has been an upsurge in QL related hardware developments over the past 12-36 months (excellent) with several coming to market and several seeming to be still in development and one limited by the need to find legacy chips.<br />
<br />
Supplied by Tetroid ( based in the Russian Fedeartion) there are new Goldcard clones, Trumpcard clones, Qubide interfaces and back planes and recently when he managed to track down some obsolete chips a handful of SuperGoldCard clones were poduced and sold. Tetroid seems to have produced so many new cloned expansion cards that the bottom has fallen out of the market in used Goldcards and other used memory expansion cards as shown by the multiple listings of a number of expansion cards including an original GoldCard, at a price reduced from that achieved previously, on ebay.<br />
<br />
In terms of new original hardware there is the Q68. How many have been sold is not known here but as each batch seems to have been around 40 units and at least 3-4 batches have been mentioned on the QL Forum the figure could well be in 3 digits. So that is a success.<br />
<br />
There also seems to be a direct QL clone/evolution in the discussions around an issue 8 motherboard on the QL forum. This seems to be driven by Dave and Nasta and might be on the market sometime this year. Again this seems to have generated a lot of interest.<br />
<br />
For those still running QLs based on the original motherboard Marcel Kilgus reported in his blog that he is working on a solution to the problem of displaying the QL screen on a modern TFT monitor<a href="https://www.kilgus.net/2019/04/21/ql-vga-part-1/" target="_blank"> see</a>.<br />
<br />
There is also the <a href="http://www.retroprinter.com/" target="_blank">Retro-Printer</a> project from RWAP. This is not specific to the QL but will allow a range of retro computer systems including the QL to print to modern printers.<br />
<br />
In addition from the author of QPC2 came QL-SD an adapter for SD cards fitted in to one of the original QL microdrive slots.<br />
<br />
What next, will Tetroid produce some sort of an ultra gold card upgrade of his GoldCard clone, will the LAN drivers and TCP/IP stack be released for Q68 or what? The impression here at QLheaven is that there does not seem to have been this level of new hardware activity since the Q40/Q60 of the late 1990. <br />
<br />
Apologies to anyone whose hardware project has been inadvertently missed off this review. <br />
<br />
<br />
Artificerhttp://www.blogger.com/profile/12473961441434051807noreply@blogger.com0tag:blogger.com,1999:blog-1998902680139754061.post-44927872143857981932019-03-23T03:00:00.000-07:002019-03-23T03:00:34.962-07:00Some Strange Things About Sprites<br />
<br />
<table align="center" cellpadding="0" cellspacing="0" class="tr-caption-container" style="margin-left: auto; margin-right: auto; text-align: center;"><tbody>
<tr><td style="text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgQ_F2s0Q_vHjnyu2X62kZOyLLP4TRo_tDrPxzA3OlGGRn1WDkcLT_tupE3WSnWeY3DCpJe05d847LvARl1YS5UzqHP3AujW2Ow3b01XzgcICM97u0emMO-1mZA78tb1h7OEW8I5XEoG0jj/s1600/QDOCK.JPG" imageanchor="1" style="margin-left: auto; margin-right: auto;"><img border="0" data-original-height="384" data-original-width="512" height="480" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgQ_F2s0Q_vHjnyu2X62kZOyLLP4TRo_tDrPxzA3OlGGRn1WDkcLT_tupE3WSnWeY3DCpJe05d847LvARl1YS5UzqHP3AujW2Ow3b01XzgcICM97u0emMO-1mZA78tb1h7OEW8I5XEoG0jj/s640/QDOCK.JPG" width="640" /></a></td></tr>
<tr><td class="tr-caption" style="text-align: center;">Qdock on a Q68 512x384 resolution and 16 bit colour.</td></tr>
</tbody></table>
Looking at the excellent sprites supplied with Dilwyn Jones Qdock program launcher QLheaven found found one surprising thing. The mask/alpha channel of his compressed sprites were run length encoded for 2 bytes for each pixel in the mask/alpha. Was this correct?<br />
<br />
Asking on the QL Forum about this brought responses from Dilwyn and Marcel. Dilwyn thought he had used Marcel's png to sprite converter<a href="https://www.kilgus.net/smsqe/sprite-converter/" target="_blank"> program</a>.<br />
<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjS9okh4lWTq-OKC9FzI31OLthm46drAlz4IQm6yeIRQcLR561VfPXgSAkmnbfmqDa8LPqS58eNz7CFeDRXSwNeGf9Z2g4gWUtR-CEhSitIOXroq-HZg75DvYBrQMX4j981SuoX6E3htWy_/s1600/PNG+converter.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" data-original-height="358" data-original-width="504" height="454" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjS9okh4lWTq-OKC9FzI31OLthm46drAlz4IQm6yeIRQcLR561VfPXgSAkmnbfmqDa8LPqS58eNz7CFeDRXSwNeGf9Z2g4gWUtR-CEhSitIOXroq-HZg75DvYBrQMX4j981SuoX6E3htWy_/s640/PNG+converter.jpg" width="640" /></a></div>
<br />
<br />
Marcel stated that only one byte per pixel was ever needed for the mask/alpha and this was also the information in the QPTR manual. Checking the .png converter program the RLE sprites produced by it had only one byte per pixel for the alpha channel whether the sprite was in mode 32 or mode 64. The version of the png converter program here is 1.01 from 2005, but the latest version is 1.04, but has not been tested here as 1.01 works. So far so good, although where Dilwyn made his sprites with 2 bytes per pixel for the mask/alpha is a puzzle unless this was a bug introduced in to later versions of the sprite converter program! <br />
<br />
smsq/e is not troubled by the extra data nor is EddIcon_obj the sprite editor used here, or SQRView_obj. SQRView is another program that can add RLE compression to sprites and it also outputs sprites with one byte per pixel in the mask/alpha section when compressed. On the other hand compressed sprites output from SQRView were found to have an extra trailing 4 bytes of zeros padding the pattern and a slightly different RLE compression of the mask. How strange. This was discovered using the ex Digital precision file comparing program "Compare".<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhLjIg3HWeKDywsAL1KX38WGwWBEHBuc582EvKhKiL7BYejhQwQHUcPe_0MsP2S5Uiv22uGbmz8utbLfvFHn-ebkbsqI2SWyNettLKtplQWNax5vAIDCthfQGzJgu3-3tXOGPWOmCt3x_4z/s1600/COMP.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" data-original-height="384" data-original-width="512" height="480" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhLjIg3HWeKDywsAL1KX38WGwWBEHBuc582EvKhKiL7BYejhQwQHUcPe_0MsP2S5Uiv22uGbmz8utbLfvFHn-ebkbsqI2SWyNettLKtplQWNax5vAIDCthfQGzJgu3-3tXOGPWOmCt3x_4z/s640/COMP.JPG" width="640" /></a></div>
<br />
The top sprite View3c.spr was a compressed sprite produced by the .png converter program, while the bottom sprite, View3.spr compressed sprite was produced SQRView from the uncompressed version of the same sprite produced by the same .png sprite converter. As can be seen the lower sprite is 8 bytes longer. Both the are displayed correctly by smsq/e as the offsets for the pattern and mask data are correct for each sprite.<br />
<br />
Finally the reason for this interest here is a need to shrink sprites to reduce their size for use in another project, so a small basic compression routine has been written to compress sprites on the Q68. Comparing compression with the sbasic program with the same test sprite from the .png converter things are as they should be.<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEipJfQ4D65ShbDiVDVpbSN2F9fztltmdRbSsBq5rIGBf-_aVFQkDUKRRw136R5pSmqa86IuFlIZ3qgyMsxvjo1xuDteyI3AkWOfaBDW5iKwIoXi4bfJMgTFwLqoaE6wicI7d8hqOIaxj5Mj/s1600/NOMZ.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" data-original-height="384" data-original-width="512" height="480" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEipJfQ4D65ShbDiVDVpbSN2F9fztltmdRbSsBq5rIGBf-_aVFQkDUKRRw136R5pSmqa86IuFlIZ3qgyMsxvjo1xuDteyI3AkWOfaBDW5iKwIoXi4bfJMgTFwLqoaE6wicI7d8hqOIaxj5Mj/s640/NOMZ.JPG" width="640" /></a></div>
<br />
<br />
<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
</div>
<br />
<br />
<br />
<br />Artificerhttp://www.blogger.com/profile/12473961441434051807noreply@blogger.com2tag:blogger.com,1999:blog-1998902680139754061.post-60371995778283342462019-01-23T07:03:00.003-08:002019-01-23T07:04:36.061-08:00Looking For Sprites and Reviewing themA belated Happy New Year to all QLers from QL Heaven.<br />
<br />
When there are a lot of sprites, here at QL Heaven, there are over 2500 it can be difficult to remember what each can be used for. Rather than using one of the existing sprite viewer programs which can be downloaded from <a href="http://www.dilwyn.me.uk/sprites/index.html" target="_blank">here</a> as sprites might be separated in to different sub directories to help manage sprites from different sources or having different modes or sizes, while the existing sprite viewers typically show a single directory's worth.<br />
<br />
So here is a QuickView sprite viewer. It can be launched via FI2 using the QPAC2 files thing. The selected sprite is displayed with its size and mode in a window that adjusts fro the size of the sprite up to the maximum resolution of the screen in use.<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi6T9koRHaQ_iogFv7MLw9HK-3hV7jfIY9HK2yjKIvXwLrqF1f4ikB3MJbI3IbvStCmy46F7WK4hBcZ8vz0o34z3onegUip9POMxK6n6gSaVHV9_aYpm2V4QJDjX0tsZomDOXBrc4PTDE-E/s1600/QV1.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" data-original-height="384" data-original-width="512" height="480" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi6T9koRHaQ_iogFv7MLw9HK-3hV7jfIY9HK2yjKIvXwLrqF1f4ikB3MJbI3IbvStCmy46F7WK4hBcZ8vz0o34z3onegUip9POMxK6n6gSaVHV9_aYpm2V4QJDjX0tsZomDOXBrc4PTDE-E/s640/QV1.JPG" width="640" /></a></div>
<br />
The file name of the sprite is stored in an smsq/e History device so that
if multiple sprites are viewed from differing directories they may later be
reviewed together as shown below. While the folder icon on QuickView launches a QMenu file requester thing all sprites to be reviewed do not need to be seen during the one session with QuickView. The History device holds the complete file names of all files viewed while the Q68 is switched on so it is possible to view a sprite or 2, close down QuickView, do something else and then restart QuickView and review all sprites viewed by QuickView since the system was switched on. <br />
<br />
It is still a work in progress as tools to select sprites and write to a saved file list to use in a sprite library generator program which can be found <a href="http://www.dilwyn.me.uk/sprites/index.html" target="_blank">here</a> have yet to be added, and also a wild card search of a device for all sprite files to find forgotten sprites. Although this can be mainly done with <a href="http://www.dilwyn.me.uk/files/index.html" target="_blank">WildSearch</a> <br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjMT53degMqdbaLzL-Xk_6j9y67-qgxyVPXA1uArQ9IH2WyFGgat3MAj4AFLASxPkVR3sxi6p11gczQ-4eCC8LPcv_XLfZ2lr3K3o-4ik-EomL3XVlKElFNsoEeGYg93tUOZ9NEYDXkShxa/s1600/QV2.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" data-original-height="384" data-original-width="512" height="480" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjMT53degMqdbaLzL-Xk_6j9y67-qgxyVPXA1uArQ9IH2WyFGgat3MAj4AFLASxPkVR3sxi6p11gczQ-4eCC8LPcv_XLfZ2lr3K3o-4ik-EomL3XVlKElFNsoEeGYg93tUOZ9NEYDXkShxa/s640/QV2.JPG" width="640" /></a></div>
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjHHrV9l_E7VYNgAkHYL5FvisnnMXs3nZddQEc-Ze_uVb0OEeHA_-SWXkM56CdVxaBfnFzdeI_U4L6hoTSmZK2oT5GVqyQLSyIGbHaufzpiSS8qaA5v8UlDTV53-2wBaGT_6aEQTqKjI5TB/s1600/QV3.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" data-original-height="384" data-original-width="512" height="480" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjHHrV9l_E7VYNgAkHYL5FvisnnMXs3nZddQEc-Ze_uVb0OEeHA_-SWXkM56CdVxaBfnFzdeI_U4L6hoTSmZK2oT5GVqyQLSyIGbHaufzpiSS8qaA5v8UlDTV53-2wBaGT_6aEQTqKjI5TB/s640/QV3.JPG" width="640" /></a></div>
<br />
<br />Artificerhttp://www.blogger.com/profile/12473961441434051807noreply@blogger.com0tag:blogger.com,1999:blog-1998902680139754061.post-29003698738830876832018-12-19T13:02:00.002-08:002018-12-19T14:06:02.100-08:00More on reading microsoft long file names on QLsThis time it was the turn of PC formatted floppy disks. Those who use smsq/e as opposed to QDOS will know that floppy disks, DD or HD formatted on a PC can be read and written to by smsq/e. What can be frustrating is that files written on the floppy by a PC can have a long file name (LFN) written on the disk by the PC but when read on the QL side under smsq/e only the DOS short file name can be read.<br />
<br />
A long file name on a PC can have up to 255 unicode characters including spaces, while a short file name or DOS 8.3 file name has a maximum of only 8 uppercase characters for the file name and 3 characters for the file extension and that's it. Windows has a scheme to shorten long file names to 8.3 DOS names, so that all files written to disk under windows always have an 8.3 DOS file name even if they also have a long file name. Problems arise with the shortened names as if there are a series of files whose names start with the same 6+ characters then a maximum of 6 characters will be used followed by ~ and then a number. If the numbers go in to two digits then only 5 characters can be used as only a maximum of 8 is ever allowed in the name part of the 8.3 DOS name.<br />
<br />
Typically the long file name precedes the 8.3DOS name in the directory but just in case that does not happen a check sum is calculated from the 8.3 DOS name and stored in each segment of its long file name, to confirm that they both belong to the same file. This is important a when a file is deleted under widows the first character if the 8.3 DOS name is over written with the value of 229 to indicate that the file has been deleted but nothing happens to the long file name segments unless they are over written in a future write of a file name to the directory.<br />
<br />
So here is what happened when QL Heaven looked at a HD floppy that had been used for some time to transfer files from a PC to a QL system.<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjZJsJq07PNZau6EfrnQQvILyKNuITQyn0yg58HoGpAAbBUf-S3pMuNMUms2-J8SJYEbs15A-zr1GiEdRI13cjwudIUsnlGBSCxP35r0WHYth4A-B4TTPDHGprg4q3rwL6XLJYZN38JYPQ5/s1600/LFN2.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" data-original-height="512" data-original-width="1024" height="320" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjZJsJq07PNZau6EfrnQQvILyKNuITQyn0yg58HoGpAAbBUf-S3pMuNMUms2-J8SJYEbs15A-zr1GiEdRI13cjwudIUsnlGBSCxP35r0WHYth4A-B4TTPDHGprg4q3rwL6XLJYZN38JYPQ5/s640/LFN2.JPG" width="640" /></a></div>
<br />
The first table contains a number apparent files with LFNs that do not have any file information as their 8.3 names have been erased.<br />
<br />
Then when check sums are used to link LFNs to 8.3 names everything is tidied up.<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhf0kRJCYk25cvH2pM7JQrzRCAxm5NIiqz10GyZwhhC5H747HZ3IRVstcW0sO-M2QsQa8S9gVVIvB3CXFRZ5zk-8KMWM8gcKL35ltSL4QugMxK-YO8hlNCYCFwS9oX0pqDRL-S2VDA6hzJZ/s1600/LFN1.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" data-original-height="512" data-original-width="1024" height="320" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhf0kRJCYk25cvH2pM7JQrzRCAxm5NIiqz10GyZwhhC5H747HZ3IRVstcW0sO-M2QsQa8S9gVVIvB3CXFRZ5zk-8KMWM8gcKL35ltSL4QugMxK-YO8hlNCYCFwS9oX0pqDRL-S2VDA6hzJZ/s640/LFN1.JPG" width="640" /></a></div>
<br />
The process of calculating the check sum is arcane and interestingly can only produce values from 0 to 255 as there is only a single byte to hold the value in the LFN section. In directories with hundreds of files what are the odds of 2 files having the same check sum?<br />
<br />
Here is the calculation in SBASIC.<br />
<br />
18750 DEFine FuNction MakeCheckSum (sum$)<br />
18760 x$=BIN$(CODE(sum$(1)),8)<br />
18770 FOR i= 2 TO 11<br />
18780 x$=RotRt(x$) : ans%=BIN(x$) : nxt%=CODE(sum$(i)) : x%=ans%+nxt% : x$=BIN$(x%,8)<br />
18790 END FOR i<br />
18800 x%=BIN(x$) : RETurn x%<br />
18810 END DEFine<br />
<br />
18820 :<br />
<br />
18830 DEFine FuNction RotRt (x$)<br />
18840 r$=x$(8) : m$=x$(1 TO 7) : ans$=r$&m$ : RETurn ans$<br />
18850 END DEFineArtificerhttp://www.blogger.com/profile/12473961441434051807noreply@blogger.com1tag:blogger.com,1999:blog-1998902680139754061.post-10195679812541396382018-11-27T09:27:00.000-08:002018-11-27T09:27:07.280-08:00When Source Code is providedCompare in GD2 colour integrated with File Requestor SBASIC from QLWorld compiled with Turbo.<br />
<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjlcmGdBaXceMLCrCYtSD7MCnuoTNPiGvSAWF3wt116d5tELy5WnzYHyGao5Dg5ytOs8ugwibPNHrbxijIOTwvGW4YhApOayUDiEpMwVtCrbmKfT0AAxsBdiCQxKdqDx-gnsNcd5ZPVsamM/s1600/COMP1.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" data-original-height="384" data-original-width="512" height="480" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjlcmGdBaXceMLCrCYtSD7MCnuoTNPiGvSAWF3wt116d5tELy5WnzYHyGao5Dg5ytOs8ugwibPNHrbxijIOTwvGW4YhApOayUDiEpMwVtCrbmKfT0AAxsBdiCQxKdqDx-gnsNcd5ZPVsamM/s640/COMP1.JPG" width="640" /></a></div>
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhdyVzBxXrjx2ajMiBdQzI0TWMo7kzzvo12YIBuNTq55sWjb9_p09veXgf_2xijjHXJN-iWrvt3AQmskiB31ZDieFvwwwnW4g6DFDFTMfZ-stHndk-onsQGwWAC1Gr30R82CGJ6pPxFmhhE/s1600/COMP2.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" data-original-height="384" data-original-width="512" height="480" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhdyVzBxXrjx2ajMiBdQzI0TWMo7kzzvo12YIBuNTq55sWjb9_p09veXgf_2xijjHXJN-iWrvt3AQmskiB31ZDieFvwwwnW4g6DFDFTMfZ-stHndk-onsQGwWAC1Gr30R82CGJ6pPxFmhhE/s640/COMP2.JPG" width="640" /></a></div>
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh917JVXc5JB8AZEt-84T4zK3sOtRkDRAK-xIWwlaMLsScKSlaXCXPnmeWBNcyCqIGcs6iJA3_1c6aiqvj9fp0NG1pSJ6IsVv8PC-AizrdWM3_6-JYNjArCLOtKFmItz0DXgiGrEEAT9vsI/s1600/COMP3.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" data-original-height="384" data-original-width="512" height="480" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh917JVXc5JB8AZEt-84T4zK3sOtRkDRAK-xIWwlaMLsScKSlaXCXPnmeWBNcyCqIGcs6iJA3_1c6aiqvj9fp0NG1pSJ6IsVv8PC-AizrdWM3_6-JYNjArCLOtKFmItz0DXgiGrEEAT9vsI/s640/COMP3.JPG" width="640" /></a></div>
<br />Artificerhttp://www.blogger.com/profile/12473961441434051807noreply@blogger.com0tag:blogger.com,1999:blog-1998902680139754061.post-43827350030780709542018-11-08T12:13:00.000-08:002018-11-08T12:21:10.178-08:00PERFECTION by Digital Precision perhaps not so perfect.For those QL users who are using an emulator or repalcement QL motherboard system such as a Qx0, a Q68 or an Aurora based system and make use of the higher resolution screens none of the word processors, Xchange(Quill), Text87plus4 or Perfection are ideal. All now have patches that allow them to use resolutions higher than 512x256 but each has it's limitations.<br />
<br />
On the Q68 here a word processor that handles the defacto standard QL Quill format documents is preferred. All 3 can do this. In addition the program needs to be able to accept and open a document via FileInfo 2. Now Xchange(Quill) can do this as can Text87plus4 with the correct commands supplied to FI2 to enable the process. Perfection does not seem to be able to do this. In addition the program also need to be able to adapt to a higher resolution than 512x256. Xchange can do this but only to 512x512 which is inconvenient if the screen vertical resolution is less than 512 and more than 256. On the Q68 512x364 is preferred to make full us of 16bit colour. Text87plus4 can adapt but it's user interface is awful. Perfection with the patch that upgrades it to v6a12 can adapt to almost any vertical resolution through its bespoke configuration system but it cannot open a file via FI2, unless there is a way unknown to QLHeaven hidden in its wordy manual. So here is a way to tweak Perfection to allow it to open _doc files via FI2. A startup macro that instructs it to load its configured default document must also be created as Perfections default macro. Below is the SBASIC wrapper that needs to be compiled and launched via FI2 to make it all happen :<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgCfDdTzRz5n1W89H9MKXZgKyJAQtuELCABvF-MkTu9OtE8BiNGfy-uWmrZdYW4Ja2OOVghKHzrd6iHz3b5AksOr0zbwP-ZJH6J72kZdps9VLdkt6aM2XtY-zN29eYavt60NDZ8yxfMbiA1/s1600/PerfectionWrapper.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" data-original-height="179" data-original-width="573" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgCfDdTzRz5n1W89H9MKXZgKyJAQtuELCABvF-MkTu9OtE8BiNGfy-uWmrZdYW4Ja2OOVghKHzrd6iHz3b5AksOr0zbwP-ZJH6J72kZdps9VLdkt6aM2XtY-zN29eYavt60NDZ8yxfMbiA1/s1600/PerfectionWrapper.jpg" /></a></div>
<br />
<br />
This short program patches the desired file into perfections configuration block after a copy is made to the ram disk, to avoid inadvertently corrupting the master copy.<br />
<br />
Obviously Sdev$ and Ddev$ would need to be changed for other systems or could be changed by a config block if one was added.<br />
<br />
Here is the system in action :<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj7WEmDVLKhKpAZHY3yzOLZQS1QWf-0qP9fK7BK4Fzz75yvMX-yuxHP-Vd4un4G3StZ9FyuXey6-LY4UHfqz0hyPJD9jeHegGRk-1cKCj5hcvKhqz8NRJDTPQo-IXbiXyag1I8xvCZLbJtI/s1600/FI2PRF.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" data-original-height="384" data-original-width="512" height="480" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj7WEmDVLKhKpAZHY3yzOLZQS1QWf-0qP9fK7BK4Fzz75yvMX-yuxHP-Vd4un4G3StZ9FyuXey6-LY4UHfqz0hyPJD9jeHegGRk-1cKCj5hcvKhqz8NRJDTPQo-IXbiXyag1I8xvCZLbJtI/s640/FI2PRF.JPG" width="640" /></a></div>
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhL9tE5qasxUHZuwJvmbcuJ22FhIggBFjomIHxzphqLL4afLxDBeZtz4TVqvu0GDga4WZl4YsOMWHz0l_wg5NRCv_xomAX8BoYD4CS5c9AKYzEnItm_9rcZtCOcbba1nWcknTEzq6aXRtmv/s1600/PERF.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" data-original-height="384" data-original-width="512" height="480" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhL9tE5qasxUHZuwJvmbcuJ22FhIggBFjomIHxzphqLL4afLxDBeZtz4TVqvu0GDga4WZl4YsOMWHz0l_wg5NRCv_xomAX8BoYD4CS5c9AKYzEnItm_9rcZtCOcbba1nWcknTEzq6aXRtmv/s640/PERF.JPG" width="640" /></a></div>
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgLtE3Mq40kKGLwrd1yEGYxWfAHA1xdrWJQ9qB9uITxEpyXjvFveCBBXPhdU-I3fd5kS_UFgRP717m48Ik3LMC2mArm-mpQMQZqGV0osOySxe0ysiBSx2ZpLnn2-Nj8Wf6ExF2dsmAo5T3w/s1600/CFGFI2.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" data-original-height="384" data-original-width="512" height="480" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgLtE3Mq40kKGLwrd1yEGYxWfAHA1xdrWJQ9qB9uITxEpyXjvFveCBBXPhdU-I3fd5kS_UFgRP717m48Ik3LMC2mArm-mpQMQZqGV0osOySxe0ysiBSx2ZpLnn2-Nj8Wf6ExF2dsmAo5T3w/s640/CFGFI2.JPG" width="640" /></a></div>
<br />Artificerhttp://www.blogger.com/profile/12473961441434051807noreply@blogger.com2tag:blogger.com,1999:blog-1998902680139754061.post-46441526937382613162018-11-07T11:55:00.001-08:002018-11-07T11:55:31.370-08:00SerNet and DEV an excellent combination to connect a floppy drive to a Q68The Q68 uses SDHC cards both as its hard disk like storage and as it's removable media.<br />
<br />
There are (currently) no other physical storage devices for the Q68.<br />
<br />
However it does have a serial port. So with another QL type system ( with a decent baud rate) connected via a null modem cable and using Sernet and the dev device the following SBASIC command :<br />
<br />
DEV_USE 1,S2_FLP1_<br />
<br />
a SBASIC or using the files thing can now access flp1_ on the second QL second identified as S2 by sernet.<br />
<br />
A powerful combination of existing software enhancing the functionality of new hardware.Artificerhttp://www.blogger.com/profile/12473961441434051807noreply@blogger.com0tag:blogger.com,1999:blog-1998902680139754061.post-50663715759945664982018-10-22T02:57:00.000-07:002018-10-22T02:57:01.840-07:00Answer to a question on the QLforum
<br />
<div class="MsoNormal">
<br /></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">In answer to polka's question in the QL Forum, here is a snippet of my boot code that allows the selection of multiple hardware configurations using a single boot file and to load alternative operating systems if desired.</span></div>
<div class="MsoNormal">
<br /></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">The key elements are a timed loop that will start a default configuration if nothing is selected during the timeout period. Otherwise if an alternative configuration is chosen a file that indicates the selected cofiguration is written to the primary partition of the hard disk. This is used after the configuration of smsq/e is loaded and started by the boot file to set up the drivers and programs for the previously selected configurations.Nothing is written to these file but they could be used to add different adaptions to the boot. </span></div>
<div class="MsoNormal">
<br /></div>
<div class="MsoNormal">
<br /></div>
<div class="MsoNormal">
<br /></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">1000 REMark Overwrite the ROM SMSQ/E 2.91</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">1010 :</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">1020 REMark -- Mount Win2_,Win3_& Win4_ to make
immediatly available --</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">1030 WIN_DRIVE 2,0,1 : WIN_DRIVE 3,0,2 : WIN_DRIVE
4,0,3 : ft=0</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">1040 REMark for the moment DONT automatically mount
all drives except backup</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">1050 REMark AS DISK IS NOT ATTACHED</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">1060 REMark for the 1ST IDE SLAVE channel</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">1070 REMark WIN_DRIVE 5,1,0:WIN_DRIVE
6,1,1:WIN_DRIVE 7,1,2:WIN_DRIVE 8,1,3</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">1080 REMark for the 2ND IDE MASTER channel</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">1090 REMark WIN_DRIVE 5,2,0:WIN_DRIVE
6,2,1:WIN_DRIVE 7,2,2:WIN_DRIVE 8,2,3</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">1100 :</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">1110 WINDOW
#0;SCR_XLIM(#0),SCR_YLIM(#0),0,0:CSIZE#0,0,0:INK#0,2:PAPER#0,0:CLS#0</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">1120 IF PEEKS$(2,3)='RES': GO TO 1930</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">1130 :</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">1140 WINDOW #1;256,128,128,64:INK#1,4:PAPER#1,0</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">1150 PAPER#1,0</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">1160 INK#1,7:PRINT "F1";:INK#1,4:PRINT
" for SMSQ/E 3.33 (QMAC) + FAT32"</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">1170 INK#1,7:PRINT "F2";:INK#1,4:PRINT
" for SMSQ/E 3.33 (QMAC) + QUBide"</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">1180 INK#1,7:PRINT "F3";:INK#1,4:PRINT
" for SMSQ/E 3.33 (QMAC) + Win5-8"</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">1190 INK#1,7:PRINT "F4";:INK#1,4:PRINT
" for SMSQ/E 3.33 + FAT16"</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">1200 PRINT</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">1210 INK#1,7:PRINT "F5";:INK#1,4:PRINT
" for Test Versions of SMSQE & QPAC2"</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">1220 INK#1,7:PRINT "F6";:INK#1,4:PRINT
" for QDOS Classic"</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">1230 INK#1,7:PRINT "F7";:INK#1,4:PRINT
" for Mode4 SMSQ/E 3.32"</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">1240 INK#1,7:PRINT "F8";:INK#1,4:PRINT
" for SMSQE Compile Enviroment"</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">1250 INK#1,7:PRINT "F9";:INK#1,4:PRINT
" for SMSQ/E 3.13 mode 4 and PSION Chess"</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">1260 PRINT</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">1270 PRINT "<span style="mso-spacerun: yes;">
</span>Timeout SMSQ/E 3.33 (QMAC) Win1-4 only"</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">1280 :</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">1290 timeout=DATE</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">1300 timeout=timeout+15</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">1310 REPeat lp</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">1320 IF PEEKS$(2,3)='RES':EXIT lp</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">1330 key=CODE(INKEY$(#0))</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">1340 SELect ON key</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">1350 :</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">1360<span style="mso-spacerun: yes;"> </span>=232 :
REMark F1 overwrite the ROM with SMSQ/E 3.33</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">1370<span style="mso-spacerun: yes;">
</span>OPEN_OVER#3,"Win1_DoMountFat32":CLOSE#3:key=0</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">1380<span style="mso-spacerun: yes;">
</span>AT#0,2,12</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">1390<span style="mso-spacerun: yes;">
</span>PRINT#0,"INSERT CADDY with FAT32 CF card. Press ANYKEY"</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">1400<span style="mso-spacerun: yes;">
</span>PAUSE#0</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">1410<span style="mso-spacerun: yes;">
</span>IF PEEKS$(2,3)<>'RES':LRESPR "Win1_SMS_Q40smsq333_ROM"</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">1420 :</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">1430<span style="mso-spacerun: yes;"> </span>=236 :
REMark F2 go with SMSQ/E 3.33 + QUBide</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">1440<span style="mso-spacerun: yes;"> </span><span style="mso-spacerun: yes;"> </span>OPEN_OVER#3,"Win1_DoQUBide":CLOSE#3:key=0</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">1450<span style="mso-spacerun: yes;">
</span>AT#0,2,12</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">1460<span style="mso-spacerun: yes;">
</span>PRINT#0,"INSERT CADDY with QUBide CF card. Press ANYKEY" :
PAUSE#0</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">1470<span style="mso-spacerun: yes;">
</span>IF PEEKS$(2,3)<>'RES':LRESPR "Win1_SMS_Q40smsq333_ROM"</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">1480 :</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">1490<span style="mso-spacerun: yes;"> </span>=240 :
REMark F3 go with SMSQ/E 3.33 and Wins 5-8</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">1500<span style="mso-spacerun: yes;">
</span>OPEN_OVER#3,"Win1_DoMountAll":CLOSE#3:key=0</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">1510<span style="mso-spacerun: yes;">
</span>AT#0,2,12</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">1520<span style="mso-spacerun: yes;">
</span>PRINT#0,"INSERT CADDY with HD containing Win5-8. Press ANYKEY"
: PAUSE#0</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">1530<span style="mso-spacerun: yes;">
</span>IF PEEKS$(2,3)<>'RES':LRESPR "Win1_SMS_Q40smsq333_ROM"</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">1540 :</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">1550<span style="mso-spacerun: yes;"> </span>=244 :
REMark F4 Use the new version of SMSQ/E with 3.33</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">1560<span style="mso-spacerun: yes;">
</span>OPEN_OVER#3,"Win1_DoFAT16":CLOSE#3:key=0<span style="mso-spacerun: yes;"> </span>: AT#0,2,15</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">1570<span style="mso-spacerun: yes;">
</span>PRINT#0,"INSERT CADDY with FAT16 CF card. Press ANYKEY" :
PAUSE#0</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">1580<span style="mso-spacerun: yes;">
</span>IF PEEKS$(2,3)<>'RES':LRESPR "WIN1_SMS_Q40smsq333_rom"</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">1590<span style="mso-spacerun: yes;">
</span>REMark IF PEEKS$(2,3)<>'RES':LRESPR "WIN1_rom"</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">1600 :</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">1610<span style="mso-spacerun: yes;"> </span>=248 :
REMark F5 Test version of SMSQ/E</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">1620<span style="mso-spacerun: yes;">
</span>OPEN_NEW#3,"Win1_TestQPAC2":CLOSE#3:AT#0,2,12</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">1630<span style="mso-spacerun: yes;">
</span>IF PEEKS$(2,3)<>'RES':LRESPR "Win1_SMQ_smsq_q40_testrom"</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">1640 :</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">1650<span style="mso-spacerun: yes;"> </span>=234 :
REMark F6 load QDOS Classic</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">1660<span style="mso-spacerun: yes;">
</span>LRESPR Win1_Classic_SoftRom_rext</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">1670<span style="mso-spacerun: yes;">
</span>COPY Win1_CLASSIC_CLASSICr_rom TO ram1_CLASSICr_rom</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">1680<span style="mso-spacerun: yes;">
</span>PRINT#0,"Wait for Drive Light to go out, then Press Anykey to
continue"</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">1690<span style="mso-spacerun: yes;">
</span>PAUSE</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">1700<span style="mso-spacerun: yes;">
</span>SOFTROM ram1_CLASSICr_rom</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">1710 :</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">1720<span style="mso-spacerun: yes;"> </span>=238 :
REMark F7 boot Mode 4 from Win1_</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">1730<span style="mso-spacerun: yes;">
</span>OPEN_NEW#3,"Win1_Mode4":CLOSE#3</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">1740<span style="mso-spacerun: yes;">
</span>IF PEEKS$(2,3)<>'RES':LRESPR
"Win1_SMS_Q40smsq332mode4_ROM"</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">1750 :</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">1760<span style="mso-spacerun: yes;"> </span>=242 :
REMark F8 Try SMSQ/E compile environment</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">1770<span style="mso-spacerun: yes;">
</span>OPEN_NEW#3,"Win1_CmpEnv":CLOSE#3</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">1780<span style="mso-spacerun: yes;">
</span>BEEP 5000,0</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">1790<span style="mso-spacerun: yes;">
</span>IF PEEKS$(2,3)<>'RES':LRESPR "Win1_SMS_Q40smsq333_rom"</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">1800 :</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">1810<span style="mso-spacerun: yes;"> </span>=246 :
REMark F9 boot 3.13 into mode 4</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">1820<span style="mso-spacerun: yes;">
</span>OPEN_NEW#3,"Win1_psionchess":CLOSE#3</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">1830<span style="mso-spacerun: yes;">
</span>IF PEEKS$(2,3)<>'RES':LRESPR "WIN1_SMS_q40mode4_rom"</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">1840 :</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">1850<span style="mso-spacerun: yes;"> </span>=250 :
REMark F10 smsq/e 3.33</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">1860<span style="mso-spacerun: yes;">
</span>IF PEEKS$(2,3)<>'RES':LRESPR "Win1_SMS_Q40smsq333_rom"</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">1870 :</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">1880 END SELect</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">1890 IF DATE>timeout</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">1900<span style="mso-spacerun: yes;">
</span>key=0:IF PEEKS$(2,3)<>'RES':LRESPR<span style="mso-spacerun: yes;"> </span>"Win1_SMS_Q40smsq333_rom":EXIT lp</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">1910 END IF</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">1920 END REPeat lp</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">1930 :</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">1940 drv$="WIN1_"<span style="mso-spacerun: yes;"> </span>: REMark Boot default directory</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">1950 REMark -- LOAD Enviroment Variable support
early --</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">1960 LRESPR(drv$&"env_bin") : REMark
used by all c68 progs</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">1970 :</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">1980 errt=FOPEN("Win1_DoMountFAT32")</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">1990 IF errt>0</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">2000<span style="mso-spacerun: yes;">
</span>CLOSE#errt:DELETE "Win1_DoMountFAT32"</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">2010<span style="mso-spacerun: yes;">
</span>WIN_DRIVE 5,2,0,0,"QXL.WIN"</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">2020<span style="mso-spacerun: yes;">
</span>OPEN_OVER#3,ram1_Win5dump: DIR#3,Win5_:CLOSE#3:DELETE ram1_Win5dump</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">2030<span style="mso-spacerun: yes;">
</span>SETENV "HDTYPE=FAT32"</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">2040 END IF</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">2050 :</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">2060 errt=FOPEN("Win1_DoMountAll")</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">2070 IF errt>0</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">2080<span style="mso-spacerun: yes;">
</span>CLOSE#errt:DELETE "Win1_DoMountAll"</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">2090<span style="mso-spacerun: yes;">
</span>WIN_DRIVE 5,2,0:WIN_DRIVE 6,2,1:WIN_DRIVE 7,2,2:WIN_DRIVE 8,2,3</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">2100<span style="mso-spacerun: yes;">
</span>SETENV "HDTYPE=ALLWINS"</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">2110 END IF</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">2120 :</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">2130 errt=FOPEN("Win1_DoFAT16")</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">2140 IF errt>0</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">2150<span style="mso-spacerun: yes;">
</span>CLOSE#errt:DELETE "Win1_DoFAT16" : WIN_DRIVE 5,2,0,0</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">2160<span style="mso-spacerun: yes;">
</span>SETENV "HDTYPE=FAT16"</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">2170 END IF</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">2180 :</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">2190 errt=FOPEN("Win1_CmpEnv") : IF
errt>0 :CLOSE#errt:LRUN Win1_Bootsmq_bas</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">2200 :</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">2210 errt=FOPEN("Win1_psionchess")</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">2220<span style="mso-spacerun: yes;"> </span>IF
errt>0</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">2230<span style="mso-spacerun: yes;">
</span>CLOSE#errt:DELETE Win1_psionchess</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">2240<span style="mso-spacerun: yes;"> </span>EX
Win1_PRG_PSION_Chess_exe:STOP</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">2250<span style="mso-spacerun: yes;"> </span>END IF</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">2260 :</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">2270 errt=FOPEN("Win1_Mode4")</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">2280 IF errt>0</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">2290<span style="mso-spacerun: yes;">
</span>CLOSE#errt:DELETE "Win1_Mode4"</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">2300<span style="mso-spacerun: yes;">
</span>REMark LRESPR("Win3_QTOP_thorgold_bin"):EX Win3_QTOP_TINDEX :
STOP</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">2310<span style="mso-spacerun: yes;"> </span>LRUN
Win4_StartUp_Qx0boot</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">2320 END IF</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">2330 :</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">2340 TK2_EXT:IF VER$(1)>2.95 AND
VER$(1)<=3.03:Set_Mode4_Colours</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">2350 key=KEYROW(7):REMark press "x" to
load ProWess</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">2360 :</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">2370<span style="mso-spacerun: yes;"> </span>IF
VER$(1)<3 .03="" span=""></3></span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">2380<span style="mso-spacerun: yes;">
</span>LRESPR ('WIN1_CACHEMODES_rext') :WRITETHROUGH</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">2390<span style="mso-spacerun: yes;">
</span>REMark LRESPR ('WIN1_MOVP4SMSQ60_cde')</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">2400 END IF</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">2410 REMark although MOVEP instruction removed from
SMSQ/E 3.00 on there are some in Text87</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">2420 REMark so LRESPR 060 patch anyway</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">2430 LRESPR ('WIN1_MOVP4SMSQ60_cde')</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">2440 :</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">2450 IF VER$(1)=2.98 AND (key=0 OR key=8):DISP_SIZE
1024,512</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">2460 IF VER$(1)=2.99 AND (key=0 OR key=8):DISP_SIZE
1024,512</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">2470 :</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">2480 IF key=64:STOP</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">2490 :</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">2500 REMark -- Set Some Default Devices --</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">2510 IF SCR_LLEN>=128</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">2520<span style="mso-spacerun: yes;">
</span>PWSDIR$="Win1_PWS_"<span style="mso-spacerun: yes;"> </span>:
REMark ProWesS default directory</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">2530 END IF</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">2540 DATA_USE "WIN1_" : PROG_USE
"WIN1_"</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">2550 DEV_USE 1,Win1_PRG_EDT_ : REMark Editor 2.05
directory</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">2555 DEV_USE 8,FLP1_ : REMark make a device for CUE
shell on Q68 to access a floppy</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">2560 :</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">2570 REMark set Colour Theme</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">2580 IF VER$(1)>=3.03:EX
Win1_COLOUR_CoCo_setconf_bas;"Win1_COLOUR_CoCo_Themes_greys_thm,0"</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">2590 IF VER$(1)>=3.03:EX Win1_COLOUR_CoCo_setconf_bas;"Win1_COLOUR_CoCo_Themes_cream_thm,1"</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">2600 IF VER$(1)>=3.03:EX
Win1_COLOUR_CoCo_setconf_bas;"Win1_COLOUR_CoCo_Themes_blueme_thm,2"</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">2610 IF VER$(1)>=3.03:EX
Win1_COLOUR_CoCo_setconf_bas;"Win1_COLOUR_CoCo_Themes_copper_thm,3"</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">2620 :</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">2630 REMark set up window colours</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">2640 tcol=0</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">2650 IF VER$(1)>2.95:COLOUR_PAL:tcol=176</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">2660 WINDOW
#0;SCR_XLIM(#0),SCR_YLIM(#0),0,0:CSIZE#0,0,0:INK#0,4:PAPER#0,tcol:CLS#0</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">2670 :</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">2680 BGCOLOUR_24 $919FCC : REMark BGCOLOUR_24
$AAAAFF : REMark BGCOLOUR_24 $878787</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">2685 REMark BGCOLOUR_24 $0</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">2690 : REMark Can we use ProWess</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">2700 errt=FOPEN("Win1_DoProWess")</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">2710 IF errt>0 : key=8 : CLOSE#errt:DELETE
Win1_DoProWess</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">2720 IF SCR_LLEN>=128 AND key=8</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">2730<span style="mso-spacerun: yes;"> </span>IF
PWSDIR$(LEN(PWSDIR$))<>"_" THEN PWSDIR$=PWSDIR$&'_'</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">2740<span style="mso-spacerun: yes;"> </span>LRESPR
PWSDIR$&"ext_dll_rext"</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">2750<span style="mso-spacerun: yes;"> </span>LRESPR
PWSDIR$&"ext_syslib_rext"</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">2760<span style="mso-spacerun: yes;"> </span>LRESPR
PWSDIR$&"ext_global_rext"</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">2770<span style="mso-spacerun: yes;"> </span>LRESPR
PWSDIR$&"ext_PWbasic_rext"</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">2780<span style="mso-spacerun: yes;">
</span>dd_err=0 : REMark for DATAdesign error trapping</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">2790 END IF</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">2800 :</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">2810 :</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">2820 REMark -- LOAD Extended environment extensions
--</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">2830 IF VER$(1)>3.02</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">2840<span style="mso-spacerun: yes;">
</span>LRESPR(drv$&"menu_rext")</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">2850<span style="mso-spacerun: yes;">
</span>errt=FOPEN("Win1_TestQPAC2")</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">2860<span style="mso-spacerun: yes;"> </span>IF
errt>0</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">2870<span style="mso-spacerun: yes;">
</span>CLOSE#errt:DELETE Win1_TestQPAC2</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">2880<span style="mso-spacerun: yes;">
</span>LRESPR(drv$&"QPAC2_test")</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">2890<span style="mso-spacerun: yes;"> </span>ELSE</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">2900<span style="mso-spacerun: yes;">
</span>REMark LRESPR(drv$&"QPAC2_patch")</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">2910<span style="mso-spacerun: yes;">
</span>LRESPR(drv$&"QPAC2_145a")</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">2920<span style="mso-spacerun: yes;"> </span>END IF</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">2930 ELSE</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">2940<span style="mso-spacerun: yes;">
</span>LRESPR("Win1_PRG_QD98_Menu_rext_old")</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">2950<span style="mso-spacerun: yes;">
</span>LRESPR("Win1_TOOLS_QPAC2_Qpac2_139")</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">2960 END IF</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">2970 LRESPR ("Win1_QPTR")</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">2980 :</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">2990 REMark - Any more resident extensions?</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">3000 REMark --LOAD SERNET --</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">3010<span style="mso-spacerun: yes;"> </span>BAUD
2,115200<span style="mso-spacerun: yes;"> </span>: SER_ROOM 2,4096</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">3020<span style="mso-spacerun: yes;">
</span>LRESPR("Win1_PRG_SERNET_sernet_rext")</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">3030<span style="mso-spacerun: yes;"> </span>SNET 2</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">3040<span style="mso-spacerun: yes;"> </span>SERNET</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">3050 :</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">3060 REMark install PFF virutal device whatever</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">3070 LRESPR ("Win1_PrinCtrl_PFF_bin")</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;">3080 :</span></div>
<div class="MsoNormal">
<span style="font-family: "Courier New"; font-size: 10.0pt; mso-bidi-font-size: 12.0pt;"> and so on for loading extensions. </span></div>
<div class="MsoNormal">
<br /></div>
<!--[if gte mso 9]><xml>
<w:WordDocument>
<w:View>Normal</w:View>
<w:Zoom>0</w:Zoom>
<w:DoNotOptimizeForBrowser/>
</w:WordDocument>
</xml><![endif]-->Artificerhttp://www.blogger.com/profile/12473961441434051807noreply@blogger.com0tag:blogger.com,1999:blog-1998902680139754061.post-36597094032242033522018-10-06T03:28:00.000-07:002018-10-06T03:28:20.181-07:00Reading Long File Names on FAT formatted SD cardsFAT drivers have been embedded in smsq/e for some time. Initially FAT12 for DOS formatted floppy disks and now FAT16 for the Q68. One frustrating thing about the drivers is that they only support the DOS short file name naming convention of 11 characters. This truncates names and makes it difficult to identify files in a list of similarly named files as shown.<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgxhCCkZ_Sq22oQdQ2wf31WZwt9Yf1M8HS3VigBncHtmRWXu3L7YdrDy_ftfBCGHa4Fu9BjV-jRl7lzGptR4lOIf9ItoIu_x8BbukodsZDBdE-9xtEQtEJ2vGbPvV2f-xX4hwxUOQItFnzO/s1600/FAT1.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" data-original-height="384" data-original-width="512" height="480" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgxhCCkZ_Sq22oQdQ2wf31WZwt9Yf1M8HS3VigBncHtmRWXu3L7YdrDy_ftfBCGHa4Fu9BjV-jRl7lzGptR4lOIf9ItoIu_x8BbukodsZDBdE-9xtEQtEJ2vGbPvV2f-xX4hwxUOQItFnzO/s640/FAT1.JPG" width="640" /></a></div>
<br />
The conventions for constructing LFNs can be found on the internet so after a bit of SBASIC work here is a first iteration of a menu system to manage files via their LFN on FAT 16 formatted disks.<br />
<br />
The interface still needs a bit of work.<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhxzkiMZt0pbsiOUweR4qIMMww1BJUbeLBximVkLc7Lg0CFYyT-cwrKE5pBxw9-mhMl1uGnbpcEuWNUsCybC1ebasTwnJQrRpoAR_lXOKLC0SXE1z2xqVCJ2duX-632jU-RADo9ASVojZo-/s1600/LFN.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" data-original-height="384" data-original-width="512" height="480" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhxzkiMZt0pbsiOUweR4qIMMww1BJUbeLBximVkLc7Lg0CFYyT-cwrKE5pBxw9-mhMl1uGnbpcEuWNUsCybC1ebasTwnJQrRpoAR_lXOKLC0SXE1z2xqVCJ2duX-632jU-RADo9ASVojZo-/s640/LFN.JPG" width="640" /></a></div>
Multiple files can now be copied, moved or deleted from the FAT16 formatted SDHC card using their LFNs.Artificerhttp://www.blogger.com/profile/12473961441434051807noreply@blogger.com2tag:blogger.com,1999:blog-1998902680139754061.post-75289813323721998622018-07-24T06:57:00.000-07:002018-07-24T06:57:30.147-07:00Qcascade Menu Editor for Q68 After some more work the mini menu editor for Qcascade has reached operational capability.<br />
The idea of MenuEdit_QCSCDE_rc_bas and Make_Qcascade_rc_bas was to simplify and make more flexible the creation of small menus for use with Qcascade. As explained in the previous post the Qcascade _rc file and all the applications that will feature on the menu are located in a directory called APPS on win1_. EX Make_Qcascade_rc_bas, ideally from the Qcascade menu, and it will create a simple qcascade_rc filr incorporating all the files in the APPS directory. Next once the<br />
basic _rc file has been created EX MenuEdit_QCSCDE_rc_bas to embellish the menu derived from the _rc file with additional discription of the featured files if required. To add files to the menu add to the APPS directory and EX Make_Qcascade_rc_bas to update the _rc file, and that's it. <br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiSAL_8mB8f5ISIQkst2wguwCTS-g5Ny5d53JLmn9WMbQxCctRgmnPXMb0kJrKSZLU9qhK_HtOfIdKe6ItuNR7ttWaz9Qbn-8EvaV6KCILZxNlOzlc9nkKVHYeSerXFeDDuYZa800EwvykK/s1600/QCASCADE.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" data-original-height="384" data-original-width="512" height="480" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiSAL_8mB8f5ISIQkst2wguwCTS-g5Ny5d53JLmn9WMbQxCctRgmnPXMb0kJrKSZLU9qhK_HtOfIdKe6ItuNR7ttWaz9Qbn-8EvaV6KCILZxNlOzlc9nkKVHYeSerXFeDDuYZa800EwvykK/s640/QCASCADE.JPG" width="640" /></a></div>
<br />
Writing MenuEdit_QCSCDE_rc_bas with the QPTR toolkit has not only refreshed my knowledge of this amazing toolkit but has also been a major learning experience as although I have written a number of QPTR based programs previously It seems I have only scratched the surface of what can be done with QPTR. Thanks also to Wolfgang Lenerz programming QPTR series in QLToday from the July/August 2002 issue through to the August/October 2004 issue.<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjhr8rAQ2ylVfW5dGrDeNqf1Zh8HrIjwVESZDe_JhC9XXcdvz2lLEac6B6A3vgG3fLai31SbVTE1gWbv_-uFhFY0Jnlgl8ZvAwRRDTFlem93hUGnts6Al6ZdeCRmnYODzvwS7znWyYUV6vV/s1600/RC_EDIT.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" data-original-height="384" data-original-width="512" height="480" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjhr8rAQ2ylVfW5dGrDeNqf1Zh8HrIjwVESZDe_JhC9XXcdvz2lLEac6B6A3vgG3fLai31SbVTE1gWbv_-uFhFY0Jnlgl8ZvAwRRDTFlem93hUGnts6Al6ZdeCRmnYODzvwS7znWyYUV6vV/s640/RC_EDIT.JPG" width="640" /></a></div>
<br />Artificerhttp://www.blogger.com/profile/12473961441434051807noreply@blogger.com0tag:blogger.com,1999:blog-1998902680139754061.post-73799917348559940822018-07-09T06:24:00.000-07:002018-07-09T06:24:13.275-07:00Qcascade Menu Editor a work in progress for the Q68There are now a plethora of free front ends for QL systems, many formerly commercial programs are now freeware. Several such as Launchpad, QDock and Go are from Dilwyn Jones. Then there is QTOP from CWO and Cueshell and QDT. There are also the more complex to customise ProWess and Proforma. Some require a bit of customisation but those from Dilwyn Jones are usually set up through the familiar config block and menu config and the point and click with the program. Where does this leave an old program like Qcascade, a drop down menu system from the 1990s written in C and using environment variables and a configuration script. The configuration script can be quite a tortuous process to set up especially if all the potential complexity of the software is used. As a result once configured it is not one that encourages change and adaption.<br />
<br />
Acquisition of a Q68 has resulted in a new look at the use of Qcascade in the set up of this system. The Q68 system with 8 QXL.win files on SDHC card as "hard drives" has the potential to have access to up to 2-4 GB of files depending on the size of the QXL.win containers. The Q68 comes with a boot file for QDT and QDock as alternative desk top front ends. Speed on the Q68 system is dependent on screen size and colours used. Here there is a Q60 so for compatibility the 512x384 16 bit colour resolution works best with a speed that is similar to a SGcard/Aurora set up.<br />
<br />
Given that Qdock had been chosen for the main front end it seemed that the best role for Qcascade would be to provide a menu of little apps that might be used to help with other tasks. As there was plenty of disk space programs were copied in to a directory on Win1_, neatly called APPS_.<br />
<br />
A SBASIC program called "Make_QCSCDE_rc_bas" was created. When run this program scans the APPS_ directory and creates a new _rc file for Qcascade. To add programs to the menu, copy the program to the APPS_ directory and run "Make_QCSCDE_rc_bas"., place the mouse over the Qcascade button and press ESC and next time the menu is used the new app is on the menu. To remove - delete the program from the APPS_ folder and rebuild the menu as before. To make it really easy copy "Make_QCSCDE_rc_bas" to the APPS_ folder and run it from the menu. Simple.<br />
<br />
Anyway here are 2 screen dumps. One of the menu, and one of the next part of the project a pointer driven menu editor.Both programs have been written using QPTR 0.14 and show the use of 16 bit WMAN colours. <br />
<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhV50do1bpfyDyDzELUoQgTniQmTm72euveFHvXpTDQOO9QOuh_Yy9uMNIf4bnRXHgpdqFtdSTnKamRzQyXWzMlxqIitO93jJ6I3sqkvJcSZredfg0j6C8dg5LihQ3BDR6MvBI5rzYOjrXS/s1600/MENU.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" data-original-height="384" data-original-width="512" height="480" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhV50do1bpfyDyDzELUoQgTniQmTm72euveFHvXpTDQOO9QOuh_Yy9uMNIf4bnRXHgpdqFtdSTnKamRzQyXWzMlxqIitO93jJ6I3sqkvJcSZredfg0j6C8dg5LihQ3BDR6MvBI5rzYOjrXS/s640/MENU.JPG" width="640" /></a></div>
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiBaw_GlUYmpLcafrgxrjBegTYi-5njNHBZTXboLTIqVAR0eqHGg-fcftzzZd_zPXHuHCp1A_vnIynWHyD1lNlkX0d-Vxdd2Pmn_ESfu6uvNfkIhFa35fy6LN7eOTZ-Xmc_V5msB0E2fIGs/s1600/DUMP.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" data-original-height="384" data-original-width="512" height="480" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiBaw_GlUYmpLcafrgxrjBegTYi-5njNHBZTXboLTIqVAR0eqHGg-fcftzzZd_zPXHuHCp1A_vnIynWHyD1lNlkX0d-Vxdd2Pmn_ESfu6uvNfkIhFa35fy6LN7eOTZ-Xmc_V5msB0E2fIGs/s640/DUMP.JPG" width="640" /></a></div>
<br />Artificerhttp://www.blogger.com/profile/12473961441434051807noreply@blogger.com0tag:blogger.com,1999:blog-1998902680139754061.post-76428638208583441112018-05-25T11:46:00.002-07:002018-05-25T11:46:51.355-07:00Q68 in QLHeavenA Q68 is here at last. It is a lovely QL replacement/development. Loads of memory, a 68000 compatible processor emulation making loads of old software run well, 16 bit colour and a range of screen modes that all display well on flat screen monitors. It comes supplied with a 4 GB SDHC card containing 8 QXL.WIN type hard drive files absolutely loaded with freeware software. The super QDock front end comes as part of the package.<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj1xppU4FfYk2rl5e5BmEmGGf9wNN2Gn1pcN68eqhWYLxwGtJb_yv5Vw4_OqhyphenhyphenzclFI9l_8OQ_i41x8G8rE3RQW4jYeuzB7rPjlJBDL3OI5DuA2AyubiRyaPZAwbTRDe_xX5hzCFGhVbKnB/s1600/Q68SCRN.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" data-original-height="384" data-original-width="512" height="480" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj1xppU4FfYk2rl5e5BmEmGGf9wNN2Gn1pcN68eqhWYLxwGtJb_yv5Vw4_OqhyphenhyphenzclFI9l_8OQ_i41x8G8rE3RQW4jYeuzB7rPjlJBDL3OI5DuA2AyubiRyaPZAwbTRDe_xX5hzCFGhVbKnB/s640/Q68SCRN.JPG" width="640" /></a></div>
<br />
The preferred display here is 16 bit mode 33 512x384 giving high colour compatible with modern software, a slighly larger display than the original QL and a speed that is the same a superGoldCard QL or slightly faster. All in all a super QL system. More later. Artificerhttp://www.blogger.com/profile/12473961441434051807noreply@blogger.com0tag:blogger.com,1999:blog-1998902680139754061.post-76259322792050682112018-05-05T00:21:00.002-07:002018-05-05T00:21:34.576-07:00More Stuff for QLers - are things hotting up??Recently CueShell was released as freeware. This is not a program that QLHeaven ever thought to buy, mores the pity. The down loadable demos of the program did not do the program itself justice and so did not attract attention from this quarter. But now the full version is available and what a useful program. The only downside is that the colours it can use remain locked in to the old mode 4 colours but even so on a modernish QL system it can be quite colourful.<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
</div>
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEip69l_adTTqFT20Iyb8lCzyGDUo9UgmwfDDYlGCLTPpXuBtemEvRZgKjnoDHOwERADJIbhqPZcT3t7EyUo_PRVMssGkOHYGoz7H8iPffUU-z7DAmWRg1p4J9WuJWjRZAS7GAyxgV91Z1Z_/s1600/CueShell1.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" data-original-height="512" data-original-width="1024" height="320" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEip69l_adTTqFT20Iyb8lCzyGDUo9UgmwfDDYlGCLTPpXuBtemEvRZgKjnoDHOwERADJIbhqPZcT3t7EyUo_PRVMssGkOHYGoz7H8iPffUU-z7DAmWRg1p4J9WuJWjRZAS7GAyxgV91Z1Z_/s640/CueShell1.jpg" width="640" /></a></div>
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi5MTwjrS2MjhyOSY5QkEEXDWgCFceLbPBLlWA5nWL_VRGh5T_wPTnhDwxEVV-iSl3lrIGhZq_g82twxtoaOz1cJGdxhaiWSVnSnrojorznW77-EIGeLCY9ZKOin945zbr6rjKadcJTHUqK/s1600/CueShell2.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" data-original-height="512" data-original-width="1024" height="320" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi5MTwjrS2MjhyOSY5QkEEXDWgCFceLbPBLlWA5nWL_VRGh5T_wPTnhDwxEVV-iSl3lrIGhZq_g82twxtoaOz1cJGdxhaiWSVnSnrojorznW77-EIGeLCY9ZKOin945zbr6rjKadcJTHUqK/s640/CueShell2.jpg" width="640" /></a></div>
<br />
Dilwyn Jones Q-Dock is also now freeware.It is an impressive development of Launchpad also now freeware.<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgUwsSJ48_p7r0ntefS2EXYdAYe1QdT2Fv8fZU3PanZgzhFuAiknH3xJDCM2wKR0dw3ZQbrMmV1IsiOvtfz7YpzSfgY4fX2QZK22PnewEioMiM37q7mq0UPRVg0Q60N9JcQdRdyZ640i2Ze/s1600/Q-Dock.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" data-original-height="77" data-original-width="523" height="94" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgUwsSJ48_p7r0ntefS2EXYdAYe1QdT2Fv8fZU3PanZgzhFuAiknH3xJDCM2wKR0dw3ZQbrMmV1IsiOvtfz7YpzSfgY4fX2QZK22PnewEioMiM37q7mq0UPRVg0Q60N9JcQdRdyZ640i2Ze/s640/Q-Dock.jpg" width="640" /></a></div>
<br />
<br />
On the hardware side of things the Q68 seems to be selling well.<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjZX9y2wWLK0pw4p1YCxXyeQS1KoQo0yGMBiPeN2XexEx6x45wO0NkyofPQyeuG9y5_uV7rtdbujA-087ANe0sIgHkrUzVNOhJ5b-WD18TbiwA1BDMCfPYcF7ttxki2GEdZRV98xGCJRohO/s1600/Q68+prototype+2.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" data-original-height="300" data-original-width="400" height="480" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjZX9y2wWLK0pw4p1YCxXyeQS1KoQo0yGMBiPeN2XexEx6x45wO0NkyofPQyeuG9y5_uV7rtdbujA-087ANe0sIgHkrUzVNOhJ5b-WD18TbiwA1BDMCfPYcF7ttxki2GEdZRV98xGCJRohO/s640/Q68+prototype+2.jpg" width="640" /></a></div>
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgRpZNC7-K5DldPHNpJhIjlGnAtkA3ILIh-LCR059tCOrp1dj9mq-iXvl2_4OsPLGct4bx9WHJZdUNOHiTEMcE7MAl_sE23offE1DKQbRCtS9QCApot5xqoUm-TXdOloolpADbu0dyYrnA-/s1600/Q68+prototype+1.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" data-original-height="300" data-original-width="400" height="480" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgRpZNC7-K5DldPHNpJhIjlGnAtkA3ILIh-LCR059tCOrp1dj9mq-iXvl2_4OsPLGct4bx9WHJZdUNOHiTEMcE7MAl_sE23offE1DKQbRCtS9QCApot5xqoUm-TXdOloolpADbu0dyYrnA-/s640/Q68+prototype+1.jpg" width="640" /></a></div>
<br />
<br />
There are also Qubide, Goldcard, Trumpcard and Backplane clones from Tetroid - see sell my<a href="https://www.sellmyretro.com/search/naturalSearch?keyword=tetroid" target="_blank"> retro</a>. <br />
<br />
The Qubide hard drive roms have been updated to v3.10 with the Qubide drivers becoming part of smsq/e. <br />
<br />
And Dave from Austin Texas on the QL forum has been discussing many new hardware ideas.<br />
<br />
One thing there has been less of are 2nd hand QLs and peripherals for sale on <a href="https://www.ebay.co.uk/sch/i.html?_from=R40&_trksid=p2380057.m570.l1313.TR12.TRC2.A0.H0.Xsinclair+ql.TRS0&_nkw=sinclair+ql&_sacat=0" target="_blank">ebay</a>. While in the past there have been 2 or 3 pages or more of items for sale now there is only one and prices do seem to be going up. Does this mean that people are now hanging on to their old QLs as support for the system has been growing in the QL forum? <br />
<br />
Finally there has been discussion of the future of the Q60 with a sadly heated exchange with the designer of the Q60 provoked by another longstanding QL figure. <br />
<br />
<br />
<br /><br />Artificerhttp://www.blogger.com/profile/12473961441434051807noreply@blogger.com0tag:blogger.com,1999:blog-1998902680139754061.post-79533218058175251412018-04-12T07:57:00.001-07:002018-04-12T07:57:14.659-07:00Looking through old floppy disksHere in QL Heaven there is a store of old commercial and PD floppy disks for the QL, both DD and HD along with a few ED. What is on them is mainly unknown. The floppy disk labels tend to indicate only the main content so there can be surprises sometimes. Looking through the disks for something else this intriguing disk was discovered:<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgjOkrbY_ZqS3gZUbDECy7c-COhq207AJ36tmEaAV-dlIjWIH8MZPO7ANfErY-pajyVwH1NXDXtviRisL-v6G8Pu9WMjIJve2YDPyqyTMny8LcLbCADVANzDMAeiVhapjsTGGFDBd1eqsmp/s1600/004.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" data-original-height="1600" data-original-width="1565" height="320" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgjOkrbY_ZqS3gZUbDECy7c-COhq207AJ36tmEaAV-dlIjWIH8MZPO7ANfErY-pajyVwH1NXDXtviRisL-v6G8Pu9WMjIJve2YDPyqyTMny8LcLbCADVANzDMAeiVhapjsTGGFDBd1eqsmp/s320/004.JPG" width="313" /></a></div>
<br />
It had not been well looked after. Initially it would not read on the ED drive on the Aurora but the HD floppy drives on the Q60 were up to the job.<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhEm9UBkijf7DoaE4QqNAXsoS6NQuLo0DnS1ThcSZ4KCoMb2Kv9r_k0k0p_IGh6cZfZv_pNEFR-6ffNV5pyKuod4TgVPd_YGosNskJu2nBRU0do4Pov9v6oXS-_gQb_G5UqQzvrKXyJqDvW/s1600/FLP1_.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" data-original-height="119" data-original-width="504" height="150" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhEm9UBkijf7DoaE4QqNAXsoS6NQuLo0DnS1ThcSZ4KCoMb2Kv9r_k0k0p_IGh6cZfZv_pNEFR-6ffNV5pyKuod4TgVPd_YGosNskJu2nBRU0do4Pov9v6oXS-_gQb_G5UqQzvrKXyJqDvW/s640/FLP1_.JPG" width="640" /></a></div>
<br />
The file that was interesting was the smsq_con. What was this? Menuconfig showed that it was an original replacement screen driver for smsq/e for the Aurora and interestingly is seemed to suggest that some work had been done on the colour screen drivers even at that stage. How it should be used is unknown as there is no documentation. Could there be rudimentary 8 and 16 colour drivers in the file? Who knows.<br />
<br />
<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjdt58fGxlcWJ73DV38Wt5F1gpw-BVsSBNO-l9vnd5uMfjPo78wh8ZqU60fCI6KuOZ9yvUV0orh9NBfJ7l3PxKe8_leH_u2tiU7YeS-byxGiQPA6K4D8gzWDa39RlwAxjolXFM3G9f7DATt/s1600/CONFG2.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" data-original-height="423" data-original-width="640" height="422" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjdt58fGxlcWJ73DV38Wt5F1gpw-BVsSBNO-l9vnd5uMfjPo78wh8ZqU60fCI6KuOZ9yvUV0orh9NBfJ7l3PxKe8_leH_u2tiU7YeS-byxGiQPA6K4D8gzWDa39RlwAxjolXFM3G9f7DATt/s640/CONFG2.JPG" width="640" /></a><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiI_wetoDQdWmUP5W7BAGVs1ThFFyHy0wEYM55-d1to109qT_N6UqtlWMGvNtDAYFN8jZGS-gXQKjmnohqLibfDdXqj1wvK0uTm9F-jEuy-sD4RcvcTz1KPHkjvoG_Mhgy6VdkI5qXDb8R3/s1600/CONFG1.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" data-original-height="419" data-original-width="642" height="416" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiI_wetoDQdWmUP5W7BAGVs1ThFFyHy0wEYM55-d1to109qT_N6UqtlWMGvNtDAYFN8jZGS-gXQKjmnohqLibfDdXqj1wvK0uTm9F-jEuy-sD4RcvcTz1KPHkjvoG_Mhgy6VdkI5qXDb8R3/s640/CONFG1.JPG" width="640" /></a></div>
Artificerhttp://www.blogger.com/profile/12473961441434051807noreply@blogger.com2tag:blogger.com,1999:blog-1998902680139754061.post-54390432475224875602018-03-16T09:39:00.002-07:002018-03-16T09:39:23.171-07:00IDE adapters for the QL systemsThere is a trend to replace hard disks with card media in retro computing in general and for QLs in particular. There are and have been a number of different interfaces for memory cards for QL systems. There was the <a href="http://qlheaven.blogspot.co.uk/2011/05/ser-usb-device.html" target="_blank">Serial USBWiz</a> device which worked as shown on this blog but the complexities of the serial systems across a range of QL platforms ultimately made this too complex to manage in the long term. The new <a href="http://qlforum.co.uk/viewtopic.php?f=2&t=2181&sid=a9b62488355e35ec8a98dfe670c1bb0b" target="_blank">Q68</a> uses an SD card as its "hard drive". Small runs of <a href="http://oldmachinery.blogspot.co.uk/2014/05/sdql.html" target="_blank">SD card adapters for the microdrive</a> slot on original QLs have also been produced. The QUBide IDE interface is still being produced. A clone version can be found on <a href="https://www.sellmyretro.com/offer/details/sinclair-ql-qubide-interface-with-dom-card-28958" target="_blank">sellmyretro</a> and the drivers for this have recently been updated. This IDE interface will connect to original black box QLs and to Aurora card QLs. The Qx0 systems have their own IDE controller board. So there are quite a few QL systems that have IDE hard disk interfaces.<br />
<br />
IDE adapter boards for CF cards and SD cards can be found on Amazon and ebay but not all of these boards will work with QL IDE controllers. Two CF card adapters have already been mentioned in previous posts on this blog <a href="http://qlheaven.blogspot.co.uk/2017/07/compact-flash-card-ide-adapter-and.html" target="_blank">here</a> and <a href="http://qlheaven.blogspot.co.uk/2017/12/smsqe-332-and-fat32-qxlwin-device.html" target="_blank">here</a>.<br />
<br />
Now 2 more adapters have been found to work with the Q60 here. First a CF card adapter with and without CF card. This one worked without fuss. There is a jumper to select master/slave and the power connector is underneath the board and is a floppy type connector.<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgbs6LopIqW7eoJZaaSECG4ErjN-LeaG9nAPTZ3FYyxahlMSny56jUv5Dr7QRAgITEwfEWA5lSmIcJn36Pxt-xvLcH2b9yOTGmxCTpMbDzkzVxmXzN4WvMch9M-vzEu5MFT9oOtZGvFKGw3/s1600/CFcardtoIDE1++%25281%2529.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" data-original-height="1200" data-original-width="1600" height="480" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgbs6LopIqW7eoJZaaSECG4ErjN-LeaG9nAPTZ3FYyxahlMSny56jUv5Dr7QRAgITEwfEWA5lSmIcJn36Pxt-xvLcH2b9yOTGmxCTpMbDzkzVxmXzN4WvMch9M-vzEu5MFT9oOtZGvFKGw3/s640/CFcardtoIDE1++%25281%2529.JPG" width="640" /></a></div>
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEifL_0wODZNRTzzOpRWP8rSZ4P26QndM1RE-ZFHJY1f06_iQHmNs_qCA0S53-5z-ZtAKTCbDYTcmVWX099a1ob2QvEMPVFI51qzonUGmKixdD8rkh3sEP-19pTJmA4DtfSuiJMtKH4cPJed/s1600/CFcardtoIDE1++%25282%2529.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" data-original-height="1200" data-original-width="1600" height="480" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEifL_0wODZNRTzzOpRWP8rSZ4P26QndM1RE-ZFHJY1f06_iQHmNs_qCA0S53-5z-ZtAKTCbDYTcmVWX099a1ob2QvEMPVFI51qzonUGmKixdD8rkh3sEP-19pTJmA4DtfSuiJMtKH4cPJed/s640/CFcardtoIDE1++%25282%2529.JPG" width="640" /></a></div>
<br />
<br />
An SD card adapter has also been assessed. Initially this adapter crashed the IDE controller. A bit of research on the web suggested that this controller which does not have a jumper for master/slave suggested it was configured to always be the master device. If fact this was not quite correct. This device is not only the master but must also be the sole device on the IDE controller. It is not possible to add a slave device. So if a single IDE device is all that is required this card actually works well on the Q60.<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgfe6e62ZecJ4F9T1zaIXPUwv0hV5LSdlghH5gLOeLOzicYpqAAUQY7Yh6lemzAJQYCT1XtlZ1yYuO2qFuc5kAx3gu7xUAfvnWehrlh9CgOGXkrTcGdYjE0Mf2ghWa4XKm1zWA46-mt9AfF/s1600/SDcardtoIDE1++%25284%2529.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" data-original-height="1200" data-original-width="1600" height="480" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgfe6e62ZecJ4F9T1zaIXPUwv0hV5LSdlghH5gLOeLOzicYpqAAUQY7Yh6lemzAJQYCT1XtlZ1yYuO2qFuc5kAx3gu7xUAfvnWehrlh9CgOGXkrTcGdYjE0Mf2ghWa4XKm1zWA46-mt9AfF/s640/SDcardtoIDE1++%25284%2529.JPG" width="640" /></a></div>
<div class="separator" style="clear: both; text-align: center;">
</div>
<br />
<br />
Artificerhttp://www.blogger.com/profile/12473961441434051807noreply@blogger.com0tag:blogger.com,1999:blog-1998902680139754061.post-2865149059141921902018-02-25T01:04:00.004-08:002018-02-26T01:55:28.835-08:00Looking Through Old Quanta Magazines 1996Some interesting gems.<br />
<br />
There was a request for a CTRL D function in QDOS to permit reverse stepping through programs in the opposite direction to CTRL C. Did this ever get made? In theory it should not be too difficult to make a DIY version of this. A background task/thing to sniff the keyboard queue, a quick examination of the jobs list and pick the job above the current job in the list or should it be below. Anyway why bother as the pick menu of QPAC2 lets you go directly to the desired job. Here in QLHeaven CTRL C is only used rarely.<br />
<br />
Next a JAVA steering committee was set up consisting of John Hall, Dave Walker, Jonathan Hudson and Joachim van der Auwera. Did anything come of this committee? Perhaps JAVA grew too complex to port to a QL.<br />
<br />
PROGs announced a SBASIC interface to ProWesS, this was interesting as earlier one of the doyens to programming had denounced ProWesS as too complex and C based to ever interface to SBASIC.<br />
<br />
Buttons without QPAC2 was the title of another article. The author had found a small extension from Ralf Biedermann that created buttons without the button frame anywhere on the screen. That is something that interests us here. So far searches have only found Ralf Biedermann's archiver program in the online PD libraries. If anyone knows where it can be found please let QLHeaven know.<br />
<br />
Serial connections were then also a topic with an article Mark J Swift and Simon N Goodwin, "How to connect almost anything", if only it were that easy. This topic has never gone away as the QL Forum shows.<br />
<br />
<br />Artificerhttp://www.blogger.com/profile/12473961441434051807noreply@blogger.com2tag:blogger.com,1999:blog-1998902680139754061.post-65003286262051815872018-01-20T07:21:00.001-08:002018-01-20T07:21:40.176-08:00More of Win Drives and QPAC2 FILES thing and .jpgs<br />
The previous post outlined how the Q60 here at QL Heaven could have its hard drive configuration modified at boot time using a caddy system to swap the drives. The next question to consider is how the system and programs running within it can know which combination of drives had been configured at boot. The answer is the Environment Variables extension. This is LRESPRed in the boot file just before the selected drive configuration is mounted by the boot. As the drives are mounted the environment variable HDTYPE is set to a value that can be checked in a program to findout which Win drives were mounted without having to test each drive individually and trap errors. Below is a little SBASIC snippet of code that pops up a files window for each drive mounted of whichever type. Set up a little icon in launchpad, click on that and there are files windows for all drives. Handy if you cannot exactly remember which drive had that subdirectory you were looking for. <br />
<br />
<br />
1000 EXEP 'Files';'\DWin1_ \C1,2 \O',"Win1_"<br />
1010 EXEP 'Files';'\DWin2_ \C1,2 \O',"Win2_"<br />
1020 EXEP 'Files';'\DWin3_ \C1,2 \O',"Win3_"<br />
1030 EXEP 'Files';'\DWin4_ \C1,2 \O',"Win4_"<br />
1040 IF (GETENV$("HDTYPE")="ALLWINS")<br />
1050 EXEP 'Files';'\DWin5_ \C3,2 \O',"Win5_"<br />
1060 EXEP 'Files';'\DWin6_ \C3,2 \O',"Win6_"<br />
1070 EXEP 'Files';'\DWin7_ \C3,2 \O',"Win7_"<br />
1080 EXEP 'Files';'\DWin8_ \C3,2 \O',"Win8_"<br />
1090 END IF<br />
1100 IF (GETENV$("HDTYPE")="FAT32")<br />
1110 EXEP 'Files';'\DWin5_ \C3,2 \O',"Win5_"<br />
1120 END IF<br />
<br />
The program in action below. There are two screen scrapes below. Both .jpg files created on the Q60. The difference between them is the size of the file - approximately 50k for an identical image. The larger file was created using <a href="http://www.dilwyn.me.uk/graphics/QTIMAGE12EXE_zip" target="_blank">QTImage </a>while the smaller file was created using <a href="http://www.dilwyn.me.uk/graphics/JPEG2GIF.zip" target="_blank">cjpeg</a> a small very old utility obtained on a floppy disk from PD library some time in the 1990s.<br />
<br />
Finally rereading the QPAC2 documentation revealed that the files thing can filter files as well as sorting them. Selecting the F2 source menu, inputting a source drive such as Win2_and adding an extension, Win2__bas will list only all the files with that extension in the given directory. Sometimes useful for searching out that file hidden in plain sight. <br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjECcjOe-mrDe1kMKtZiThjmaRNrQykfsQuOTg3xwAe8hiw0tF5mxm1O9-WmMcK0UVBzZK8XYFkbZck2ta-Yxl8sMXYSO3Zhulk1K_QEf02WGURrwhGm7SpVGdHLBETcY37UBBAF24CI0kC/s1600/SCRDUMP2.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" data-original-height="512" data-original-width="1024" height="320" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjECcjOe-mrDe1kMKtZiThjmaRNrQykfsQuOTg3xwAe8hiw0tF5mxm1O9-WmMcK0UVBzZK8XYFkbZck2ta-Yxl8sMXYSO3Zhulk1K_QEf02WGURrwhGm7SpVGdHLBETcY37UBBAF24CI0kC/s640/SCRDUMP2.JPG" width="640" /></a></div>
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjqAbsrJ4Xmji2yUNJoHXNVMsy-1_-Gb3-OSKTpGWUwy2lydkZzGJ-z6IiElpDCU_mMbIZ5-B2KRi9qemV-l4lnRulCdA44xCnwdnR_yr0YkoJC8gE4tZkleJe_RAExbXXpqqbpTu0H3peQ/s1600/SCRDUMP.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" data-original-height="512" data-original-width="1024" height="320" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjqAbsrJ4Xmji2yUNJoHXNVMsy-1_-Gb3-OSKTpGWUwy2lydkZzGJ-z6IiElpDCU_mMbIZ5-B2KRi9qemV-l4lnRulCdA44xCnwdnR_yr0YkoJC8gE4tZkleJe_RAExbXXpqqbpTu0H3peQ/s640/SCRDUMP.JPG" width="640" /></a></div>
Artificerhttp://www.blogger.com/profile/12473961441434051807noreply@blogger.com0tag:blogger.com,1999:blog-1998902680139754061.post-14759185831437065352018-01-14T09:33:00.001-08:002018-01-14T09:33:49.866-08:00Boot Menu for Q60 with Multiple Hard Drive FormatsWith the latest version of smsq/e the Q60 can handle QXL.win files on FAT32 formatted media and QUBide formatted disks and media as well as its native QWA hard disk format. There are also the options of booting the Q60 in to mode 4 smsq/e or the QDOS classic or Linux. In addition there may be specific configurations of the OS for some jobs. A boot options menu is a define necessity. Below are screen scrapes of QL Heaven's current boot menu showing 3 of the options in operation.<br />
<br />
The Q60 for those who do not know comes with an ancient ROMMed version of smsq/e. This is 2.97 if my recollection is correct. The GD2 drivers are not present in this version, so mode 4 and possibly mode 8 colours are only possible. It's not a terribly good version of smsq/e now. Its function is to load a boot file that loads a newer version of smsq/e. That is obvious but with the multiple options for launching the Q60 into action and the at least 4 different incompatible hard disk formats that could be attached to the system there is a problem especially if a CD/DVD is also to be attached. The Q60 has 2 ISA slots which can supply IDE connections giving 4 possible maximum IDE devices. The tower the q60 board exists within has 2 internal 3.5 inch drive bays and 3 external 5&1/4 inch bays.<br />
Mounting hard disks internally caused problems for smsq/e if the appropriate drivers are not loaded.<br />
<br />
The answer is a boot menu and a caddy system for the hard disks to mount them in the external 5&1/4 inch bays. As a result the Q60 has a default timeout boot with 4 QWA partitions on the primary hard disk. A second QWA disk with additional partitions can be mounted if that boot option is chosen or a QUBIDE formatted disk instead or a FAT 32 disk with 4 QXL.win files acting as 4 additional partitions. <br />
<br />
As an alternative the primary hard disk in it's caddy can be swapped out and replaced if the Q60 is to be booted in to LINUX or QDOS classic.<br />
<br />
The trick for this system is to communicate from the boot menu to the reloaded boot file once the new version of smq/e has been loaded as neither boot file or smsq/e has any means of remembering which option had been selected so that the correct drivers are loaded for the current hard drive configuration. How that is done is quite simple and inelegant but functional, the boot file writes a note to itself on the primary hard disk. When it is reloaded it looks for the note that tells it which hard disk configuration has been selected, reads it loads the correct driver and deletes the note.<br />
<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEivd7jc8yj2ZRvFo6OTx5VqV7f-Mvf8JEB5HoisEjJgiYYiH3A01Qk682znweIDAwiohkgSZBPHz9LH9m2NgKa9Lf5GBayvwUwzJn5IhnWqvG5qjwQHpGC0dqU1HFg8WbcfE7cgTUQvjkZm/s1600/Q60BOOT1.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" data-original-height="256" data-original-width="512" height="320" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEivd7jc8yj2ZRvFo6OTx5VqV7f-Mvf8JEB5HoisEjJgiYYiH3A01Qk682znweIDAwiohkgSZBPHz9LH9m2NgKa9Lf5GBayvwUwzJn5IhnWqvG5qjwQHpGC0dqU1HFg8WbcfE7cgTUQvjkZm/s640/Q60BOOT1.JPG" width="640" /></a></div>
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgzKlYeC9pL5YZh6ZnkRu83bCLgVL1bo7wHEU4o7zUNxqK5lIQA7EoRluRBczV9ZwFOCy43YlaHVJ_9VDN9t0gWcz-Dw0mqZBxTqqq-h132eqEVhVo_cJrvtdd4OHuz_onM9BLiBSO6f-DB/s1600/Q60BOOT2.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" data-original-height="256" data-original-width="512" height="320" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgzKlYeC9pL5YZh6ZnkRu83bCLgVL1bo7wHEU4o7zUNxqK5lIQA7EoRluRBczV9ZwFOCy43YlaHVJ_9VDN9t0gWcz-Dw0mqZBxTqqq-h132eqEVhVo_cJrvtdd4OHuz_onM9BLiBSO6f-DB/s640/Q60BOOT2.JPG" width="640" /></a></div>
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEivVZx0J3kvD3TZqdbvtm4ZOql2zlaDLdWgBbzmxDfIPhkoTfGtQBrzXUsQlABBqsbNvMncBk5z7FeXYnFPSKbDvxQHaf0xA-59Tqsm6_lpVdsKMMg_qWMIRIkHt_yQxsSOwy4mVCXcmWXr/s1600/Q60BOOT3.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" data-original-height="256" data-original-width="512" height="320" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEivVZx0J3kvD3TZqdbvtm4ZOql2zlaDLdWgBbzmxDfIPhkoTfGtQBrzXUsQlABBqsbNvMncBk5z7FeXYnFPSKbDvxQHaf0xA-59Tqsm6_lpVdsKMMg_qWMIRIkHt_yQxsSOwy4mVCXcmWXr/s640/Q60BOOT3.JPG" width="640" /></a></div>
<br />Artificerhttp://www.blogger.com/profile/12473961441434051807noreply@blogger.com0tag:blogger.com,1999:blog-1998902680139754061.post-3140751678562496492017-12-31T03:23:00.000-08:002017-12-31T03:23:16.467-08:00Abandonware RevisitedBack in 2009 this blog posted a rant about abandonware for the QL. This is one of the most frequently viewed posts indicating a general interest in the subject. The good news about abandonware is that the situation has improved dramatically since 2009. This last year saw the release of even more formerly commercial programs as freeware including Qmenu, QLiberator, QDock, QTImage, QPTR, QBase, SuQcess, QLAWK, DISA as far as QLHeaven is aware. There are probably more including 292 games.<br />
<br />
The QL scene has been particularly buoyant with the release of a new hardware QL, the Q68, and updates to SMSQ/E, SMSQumlator, and uQLx. The release of a new Qubide driver with also runs on the Q60, and a revamp of the ubiquitous Toolkit2. New software has also been forthcoming including QLWarz, QXLwinreader, sbtohtml, Hexa-puzzle, plus updates to other programmes including Photon, MediaManager, Quill, PCB Design, QcdEze and more.<br />
<br />
All the above information has been gleaned from a quick run through of Dilwyn Jones site updates for 2017 of which there have been 72 update entries often with multiple updates.<br />
<br />
It is amazing that a 1980s computer and it's OS that had a commercial life of 3-4 years is still evolving.<br />
<br />
Felice Anno Nuove<br />
<br />
Bonne annee<br />
<br />
Happy New Year<br />
Artificerhttp://www.blogger.com/profile/12473961441434051807noreply@blogger.com0tag:blogger.com,1999:blog-1998902680139754061.post-47592096935069831312017-12-22T06:40:00.003-08:002017-12-22T06:40:44.726-08:00Great QDOS/SMSQ/E Download SitesIn the QL Forum there has been talk of new black box noobs to the QL world. So if any read this blog, here are the best, in the opinion of QL Heaven, download sites for free QL software, listed with the name of the site owner. Click on the link.<br />
<br />
<a href="http://www.dilwyn.me.uk/downloads.html" target="_blank">1. Dilwyn Jones</a><br />
<br />
<a href="http://morloch.hd.free.fr/qdos/main.html#TOP" target="_blank">2. Thiery Godefroy</a><br />
<br />
3. Wolfgang Lenerz<br />
<a href="http://www.wlenerz.com/smsqe/" target="_blank">smsq/e</a><br />
<a href="http://www.wlenerz.com/QLstuff/" target="_blank"> personal software</a><br />
<a href="http://www.wlenerz.com/SMSQmulator/" target="_blank">smsqmulator</a> <br />
<a href="http://members.upc.nl/b.spelten/ql/" target="_blank"><br /></a>
<a href="http://members.upc.nl/b.spelten/ql/" target="_blank">4. Bob Spelten</a><br />
<br />
<a href="http://gwiltprogs.info/" target="_blank">5. George Gwilt</a><br />
<br />
<a href="http://www.mcad.demon.co.uk/lquan.htm" target="_blank">6. London QL + Quanta Group</a><br />
<br />
<a href="http://www.terdina.net/ql/winql.html" target="_blank">7. Daniel Terina</a><br />
<br />
<a href="https://www.kilgus.net/" target="_blank">8. Marcel Kilgus</a><br />
<br />
<br />
And then there are some that are group efforts : <a href="http://www.hunggartorino.it/ql/black-phoenix-en/" target="_blank">Black Phoenix</a><br />
<a href="http://sinclairql.net/repository.html" target="_blank">The Repository</a><br />
<a href="http://superbasic-manual.readthedocs.io/en/latest/#" target="_blank"><br /></a>
<a href="http://superbasic-manual.readthedocs.io/en/latest/#" target="_blank">Finally the on line SBASIC/SuperBasic manual</a>Artificerhttp://www.blogger.com/profile/12473961441434051807noreply@blogger.com0tag:blogger.com,1999:blog-1998902680139754061.post-16579156272984846792017-12-17T12:39:00.000-08:002017-12-17T12:39:31.203-08:00SMSQ/E 3.32 AND FAT32 QXL.win DEVICEThis new facility is an excellent addition for Qx0 users. Back up of Qx0 hard disks and transfer of their contents to other QL systems has been problematic up to now. QPC2 uses the QXL.win file as hard disk, Supergold card QLs would use the QUBide hard disk interface, while the disk structure of the Qx0 hard disk was based on the Atari hard disk conventions. Three incompatible systems. Here at QL Heaven the Q60 hard disk was originally backed up to compact flash cards via a CF reader, and then in addition it was copied to external hard disks via a caddy system. Both of the hard disk IDE slots on the primary ISA card are attached to caddies to allow swapping of IDE disks, not hot swapping however. Latterly the contents of the Q60 hard disk were exported to a QPC2 QXLwin file via the serial port to a USBwiz device. This was a magical system but never entirely stable or compatible with all file handling programs so the transfer was somewhat hard work.<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiDCDIUhJz2BOpEq0wP2gHz84EPWei50U-EFC6geZMt9CfOcOXqny_s9ypkID950IVLPFW80GnH6dfyzq1F6p3q2fsHeTV29GhdjUxbXWSk-o1gwQF0mw4LT6pONwQb_AaSSp0opC8Zlckv/s1600/scrdumpqxlwin.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" data-original-height="512" data-original-width="1024" height="320" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiDCDIUhJz2BOpEq0wP2gHz84EPWei50U-EFC6geZMt9CfOcOXqny_s9ypkID950IVLPFW80GnH6dfyzq1F6p3q2fsHeTV29GhdjUxbXWSk-o1gwQF0mw4LT6pONwQb_AaSSp0opC8Zlckv/s640/scrdumpqxlwin.jpg" width="640" /></a></div>
<br />
<br />
Now there is the FAT32 QXL.win device. This is at an early stage of development but works just fine. QLHeaven can report the trouble free transfer of the entire contents of the Q60 hard disk to a QXL.win file masquerading as Win5_. A FAT 32 CFcard was used simply because one and a CF card reader were to hand. Below is the card reader sitting inside the caddy.<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgokWc25TLpP30g0afkqOkPhHv7pn532Tq4ZR3tnaXxcyWe4au3qnXcHgJT-_t_2iduzUYrK1NTNc6eg4G756n11qPXHsXYA4jTAACAnhPQcEJfdkTHRbc753Hx14gtgYaqJOvGTvw7ih9X/s1600/IMG_9165.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" data-original-height="1200" data-original-width="1600" height="480" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgokWc25TLpP30g0afkqOkPhHv7pn532Tq4ZR3tnaXxcyWe4au3qnXcHgJT-_t_2iduzUYrK1NTNc6eg4G756n11qPXHsXYA4jTAACAnhPQcEJfdkTHRbc753Hx14gtgYaqJOvGTvw7ih9X/s640/IMG_9165.JPG" width="640" /></a></div>
<br />
Below is a view of the caddies on the Q60. Find SMSQ/E 3.32 <a href="http://www.wlenerz.com/smsqe/">here</a><br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjfLYu_-u2u31_HcQUEyZeBlDPZamFuJ477Z6-PvOUA0knlUfPWWFLRTuOmvKcW0isk1P7oXYaOBfeMgbBHuhZuLZWoldC6elESoiEKXD8iUwv-VA3AKSV5fxYt6LX4ipi-4P0n-Eukj1cx/s1600/IMG_9166.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" data-original-height="1200" data-original-width="1600" height="480" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjfLYu_-u2u31_HcQUEyZeBlDPZamFuJ477Z6-PvOUA0knlUfPWWFLRTuOmvKcW0isk1P7oXYaOBfeMgbBHuhZuLZWoldC6elESoiEKXD8iUwv-VA3AKSV5fxYt6LX4ipi-4P0n-Eukj1cx/s640/IMG_9166.JPG" width="640" /></a></div>
<br />Artificerhttp://www.blogger.com/profile/12473961441434051807noreply@blogger.com0