QL Tinkering
Posted: Wed Jan 04, 2017 6:41 pm
Hi to all those who like me have returned to the fold and maybe on a mission to complete those early attempt at programming. Not to overlook any new to the QL scene, I hope my postings, the advice and suggestions received from others will benefit us all.
For WRAP and Dilywn any programs uploaded, warts and all, I have no objection for them to be added to your growing collection as QBITS free downloads on the understanding that for whatever reason that may arise there is no public liability attached to me.
Well now that’s said and done, over the coming weeks, months I hope to share more of my QBITS journey the early programs and updates as I return to enhance my skills in SuperBASIC programming.
An early necessity I found of great benefit while experimenting with programming code was to have a helping hand managing all the small files I produced. The QBITS File Tidy began its life soon after I bought my first QL see attached.
Qbits
Edit 1 04/01/2017
Apologies error with QBFTidy version I uploaded [copy command] now been changed.
Edit 2 05/01/2017
My original FTidy had a few lines of code that had an additional MOVE command an extension of Copy and Delete. In removing the extra bit of code I left a variable which caused an error. I also then realised the Copy command should not try to Copy from source to target if they were the same device. So I’ve added a block to this happening - see code change below.
QBFTidy DEF PROC F_copy
301 IF TDR$=SDR$:F_clear:RETurn (added following lines renumbered)
302 CURSOR #5,px%,py%:PRINT #5,TDR$&' Overwrite <y/n>'
303 px%=84:py%=6:Fnum%=n:k$=INKEY$(#5,-1)
304 IF k$=='y' OR k$=CHR$(10)
305 FOR n=1 TO ftot%
306 IF Sett(n)=7
307 CURSOR #5,px%,py%:PRINT #5,file$(n)&' TO '&TDR$:CLS #5,4
308 DELETE TDR$&file$(n):COPY SDR$&file$(n) TO TDR$&file$(n)
308 IF chg>0:DELETE SDR$&file$(n) (Deleted line)
The Uploaded files have been update
For WRAP and Dilywn any programs uploaded, warts and all, I have no objection for them to be added to your growing collection as QBITS free downloads on the understanding that for whatever reason that may arise there is no public liability attached to me.
Well now that’s said and done, over the coming weeks, months I hope to share more of my QBITS journey the early programs and updates as I return to enhance my skills in SuperBASIC programming.
An early necessity I found of great benefit while experimenting with programming code was to have a helping hand managing all the small files I produced. The QBITS File Tidy began its life soon after I bought my first QL see attached.
Qbits
Edit 1 04/01/2017
Apologies error with QBFTidy version I uploaded [copy command] now been changed.
Edit 2 05/01/2017
My original FTidy had a few lines of code that had an additional MOVE command an extension of Copy and Delete. In removing the extra bit of code I left a variable which caused an error. I also then realised the Copy command should not try to Copy from source to target if they were the same device. So I’ve added a block to this happening - see code change below.
QBFTidy DEF PROC F_copy
301 IF TDR$=SDR$:F_clear:RETurn (added following lines renumbered)
302 CURSOR #5,px%,py%:PRINT #5,TDR$&' Overwrite <y/n>'
303 px%=84:py%=6:Fnum%=n:k$=INKEY$(#5,-1)
304 IF k$=='y' OR k$=CHR$(10)
305 FOR n=1 TO ftot%
306 IF Sett(n)=7
307 CURSOR #5,px%,py%:PRINT #5,file$(n)&' TO '&TDR$:CLS #5,4
308 DELETE TDR$&file$(n):COPY SDR$&file$(n) TO TDR$&file$(n)
308 IF chg>0:DELETE SDR$&file$(n) (Deleted line)
The Uploaded files have been update