Richard Zidlicky writes:
> > 3) Is there a TK2, or clone, available that will allow Minerva to
MAKE_DIR,
> > SET_FUPDT, etc ?
>
> a real TK2, version 2.10 or 2.11 will work fine, other versions are less
> tested. There are other toolkits available which provides similar
> functionality.
I have TK2-2.12, and now Frank Swift's TK, but neither of them can MAKE_DIR.
I dont know if they have the underlying capability (ie, support for hard
directories)?
At present I find the easiest method to get files into my Q60 world from
QPC2 is to zip them up, transfer them with Linux/uQLx and unzip them in
Smsq/eQ60. My version of (Info)zip doesnt seem to be able to cope with
zipping a whole drive at once, so I do it per directory in the root
directory,
using the following script:
(Note: On my Windoze F:\ drive (dos4_) I have a directory called QL\Win
containing subdirectories win1 to win8)
100 REMark Auto-zip for backups
110 REMark pjwitte 2oo2
120 REMark V0.01
130 :
140 CLS
150 INPUT 'Enter drive, eg win1_'! drv$
160 PRINT 'zipping'! drv$; 'root'
170 cn = FOP_IN("nul"): ERT cn
180 EW 'win2_arc_zip_exe', #cn; '-ub ram8_ dos4_QL_Win_' & drv$ &
'root.zip ' & drv$ & '*'
190 SPJOB 'Cuedark', 0
200 cd = FOP_DIR(drv$): ERT cd
210 p = -64: fln = FLEN(#cd)
220 REPeat gdl
230 p = p + 64
240 IF p >= fln: EXIT gdl
250 GET#cd\ p + 14; n$
260 BGET#cd\ p + 5; t%
270 IF t% = 255 THEN
280 PRINT 'zipping'! drv$; n$
290 EW 'win2_arc_zip_exe', #cn; '-rub ram8_ dos4_QL_Win_' & drv$ & n$ &
'.zip ' & drv$ & n$ & '_*'
300 END IF
310 END REPeat gdl
320 CLOSE#cd
330 CLOSE#cn
340 SPJOB 'Cuedark', 1
350 PRINT 'Done': BEEP 2,2
A similar unzip script puts everything in place, maintaining directory
structure and file dates. This is quite fast as it only updates changed
files (but does not consider source file-deletions/rename) The underlying
method can be used with a variety of transfer strategies. It works, but is
hardly ideal.
Per
