100 REMark unpack cover disk files Volume 5 Issue 6
110 REMark needs EW command from Toolkit 2
120 CLS : CLS #0
130 PRINT'QL TODAY VOLUME 5 ISSUE 6 COVER DISK'
140 PRINT'------------------------------------'
150 PRINT #0,'Select which file to unzip'
160 INPUT #0,'1=Turbo v4.7  2=TurboPtr  3=Gwasl v1.6'\'4=Sprite Editor  ?'!file_no
170 INPUT #0,'File and unzip on which drive ';df$
180 INPUT #0,'Unzip to which drive ';dt$
190 SELect ON file_no
200   =1:REMark Turbo compiler+toolkit
210      EW df$&'unzip';'-d'&dt$&' '&df$&'turbo47_zip'
220   =2:REMark TurboPtr v24
230      EW df$&'unzip';'-d'&dt$&' '&df$&'tptr24_zip'
240   =3:REMark Gwasl v1.6
250      EW df$&'unzip';'-d'&dt$&' '&df$&'gwasl16_zip'
260   =4:REMark Sprite Editor
270      EW df$&'unzip';'-d'&dt$&' '&df$&'sprted_zip'
280 END SELect
290 PRINT #0,'Program finished.'
