100 TK2_EXT
110 RESTORE
120 WINDOW 448,200,32,16 : WINDOW #2,448,200,32,16
130 WINDOW #0,448,40,32,216 : MODE 4 : CLS : CLS #0
140 UNDER 1 : PRINT\'QL TODAY COVER DISK, VOLUME 3 ISSUE 6' : UNDER 0
150 PRINT\'Some of the files on this disk are in ZIPPED format - they must be'
160 PRINT 'UNZIPPED before you can use them. This program will help you to do this.'
170 PRINT 'First, you have to tell it where the cover disk (including UNZIP) is,'
180 PRINT 'and where to decompress the programs to.'\\
190 INPUT #0,'Cover disk with zipped files and unzip in which drive?'\f$
200 IF f$ = '' THEN STOP
210 INPUT #0,'Unzip files to which drive?'\t$
220 IF t$ = '' THEN STOP
230 :
240 DATA_USE t$
250 DIM d$(8,12)
260 FOR a = 0 TO 8
270   PRINT a+1;' ';
280   READ d$(a) : PRINT d$(a) TO 20;
290   READ tmp$ : PRINT tmp$
300 END FOR a
310 CLS #0 : INPUT #0,'Unzip file number (1 to 9) > ';num
320 IF num < 1 OR num > 9 OR num <> INT(num) THEN
330   PRINT #0,'Unsuitable entry!' : STOP
340 END IF
350 CLS #0 : num = num - 1
360 PRINT #0,'Unzipping ';d$(num);'...'
370 EW f$&'unzip';f$&d$(num)
380 PRINT #0,'Finished unzipping, please wait for drives to stop.'
390 STOP
400 :
410 DATA 'GWASL1v2_zip','GWASL 68008 assembler v1.2'
420 DATA '68kTEXT1_zip','Text file to accompany assembler series'
430 DATA 'QED_zip','QED editor v1.01'
440 DATA 'Trans24_zip','Trans24 v1.03 Printer Dump Converter'
450 DATA 'KBASE220_zip','K-Base v2.20'
460 DATA 'TUTK3c27_zip','Turbo Toolkit v3c27'
470 DATA 'LISTINGS_zip','Listings from Volume 3 Issue 6'
480 DATA 'SPELCRIB_zip','Spelling Crib v2.00'
490 DATA 'EURO110_zip','Euro Currency Converter v1.10'
