In message <[EMAIL PROTECTED]>, Dilwyn Jones <[EMAIL PROTECTED]> writes
>"how do I unzip QL Info-unzip onto a QL disk to unzip programs with >if it's already zipped and you need a copy of itself to unzip itself >catch 22..." (follow JRH's self-extract instructions on his website) Once a user has the unzip program, this small basic program is useful for unzipping QL files. Without bothering with anything else, or having to know the unzip command syntax. I believe it came to "C-Tutor". 100 REMark UNARC_BAS 110 REMark 120 REMark This program is used to run unzip in a simple extract mode 130 : 140 CLS#0 150 PRINT#0,"Please answer following questions"\"(or press ENTER to accept [default])"\\ 160 devd$=DATAD$ 170 INPUT#0,"Which device holds the UNZIP2 program [" & PROGD$ & "]: ";progdev$ 180 IF progdev$ = "" THEN progdev$ = PROGD$ 190 INPUT#0,"Which device holds the ZIP'ed file [" & DATAD$ & "]:";arcdev$ 200 IF arcdev$ ="":arcdev$ = DATAD$ 210 INPUT#0,"What is name of the archive [C_Tutor_zip]:";arcname$ 220 IF arcname$ ="":arcname$ = "C_Tutor_zip" 230 INPUT#0,"Where should the extracted files be put [" & DATAD$ & "]:";datadev$ 240 IF datadev$ ="":datadev$ = DATAD$ 250 DATA_USE datadev$ 260 EW progdev$ & "unzip";arcdev$ & arcname$ 270 DATA_USE devd$ 280 : 290 DEFine PROCedure S 300 DELETE "win1_SYS_Unzip_bas" 310 SAVE "win1_SYS_Unzip_bas" 320 END DEFine -- Malcolm Cadman _______________________________________________ QL-Users Mailing List http://www.q-v-d.demon.co.uk/smsqe.htm
