In message <[EMAIL PROTECTED]>, Dilwyn Jones <[EMAIL PROTECTED]> writes
Hi Dilwyn, This is a Batch file that I still use, occasionally, on an old 486PC with DOS 6.22 This gives a 1,2,3 list which you move through and press Enter to start. Although there isn't anything SET to remember the value ( choice ) being made. AUTOEXEC.BAT C:\DOS\MSCDEX.EXE /D:MSCD000 /M:15 /V ECHO OFF PROMPT $p$g PATH C:\WINDOWS;C:\DOS PATH D:\ SET TEMP=C:\temp lh C:\DOS\KEYB UK,,C:\DOS\KEYBOARD.SYS REM COMMAND /E:512 /C GOTO %CONFIG% :WIN cd windows REM ---Added for SyQuest Software Path--- PATH=C:\SyQuest;%PATH% win goto end :QPC cd qpc lmouse.com qpce :GAMES lmouse.com SET path=D:\GAMES; :end The Batch file in DOS is quite elegant really ... I have done something similar with QPC and the "windrive$" allocation when using 3 different old PC's with a portable Zip Drive : 100 REMark Win boot - Malcolm Cadman 2000 - Modified September 2007 110 REMark Zip Drive used on different PC's - seen as device D: or F: 120 REMark Seen as win2, win3 or win4 130 MODE 4 140 CLEAR 150 : 160 REMark Define the windows 170 REMark Main windows #0 and #1 give a full screen display 180 WINDOW#0,512,256,0,0: INK#0,7: PAPER#0,0: CLS#0 190 WINDOW#1,512,256,0,0: INK#1,7: PAPER#1,0: CLS#1 200 : 210 AT 6,12: PRINT"Select PC with Zip Drive" 220 AT 7,12: PRINT"(D)eskPro - (M)illennium - (S)iemens" 230 key=CODE(INKEY$(-100)) 240 IF key=68 OR key=100 THEN 250 windrive$='win2' : REMark "D" key for DeskPro 260 AT 8,12: PRINT"DOS device is D: drive$ is ";windrive$ 270 END IF 275 IF key=77 OR key=109 THEN 277 windrive$='win3' : REMark "M" key for Millennium 278 END IF 280 IF key=83 OR key=115 THEN 290 windrive$='win4' : REMark "S" key for Siemens 300 AT 8,12: PRINT"DOS device if F: windrive$ is ";windrive$ 310 END IF 320 : 330 OPEN_NEW#4,HISTORY : PUT#4,windrives$ 340 DEV_USE 1,windrive$&'_' 350 DATA_USE dev1_ : PROG_USE dev1_ 360 : 370 AT 10,12: PRINT"*** Win Boot sequence ***" 380 AT 12,12: PRINT" Malcolm Cadman 2007" 390 AT 16,12: PRINT "Press 'f' to boot from FLP" 400 AT 18,12: PRINT "Else any key to proceed" 410 key2=CODE(INKEY$(-100)) 420 REMark Only wait for F key to be pressed 430 IF key2=70 OR key2=102 THEN 440 TK2_EXT 450 LRUN flp1_boot 460 END IF 470 : 480 MRUN windrive$ & '_myboot' -- Malcolm Cadman _______________________________________________ QL-Users Mailing List http://www.q-v-d.demon.co.uk/smsqe.htm
