100 lines
3.5 KiB
QBasic
100 lines
3.5 KiB
QBasic
cls
|
||
color 15:print"ðððúWINDOWSúv3.11-Launcherúððð"
|
||
color 14:print"written by RoboCop INDUSTRIES"
|
||
color 7
|
||
print
|
||
print"W„hlen Sie einen Grafikmodus:"
|
||
print
|
||
print"No H x B x c Schrift f<>r"
|
||
color 10:print" 1 ";:color 7:print" 640x480x256 normal"
|
||
color 10:print" 2 ";:color 7:print" 640x480x256 groá"
|
||
color 10:print" 3 ";:color 7:print" 800x600x 16 normal"
|
||
color 10:print" 4 ";:color 7:print" 800x600x 16 groá"
|
||
color 10:print" 5 ";:color 7:print" 800x600x256 normal"
|
||
color 10:print" 6 ";:color 7:print" 800x600x256 groá"
|
||
color 10:print" 7 ";:color 7:print"1024x768x 16 normal"
|
||
color 10:print" 8 ";:color 7:print"1024x768x 16 groá"
|
||
color 10:print" 9 ";:color 7:print"1024x768x256 normal"
|
||
color 10:print" 0 ";:color 7:print"1024x768x256 groá"
|
||
end
|
||
print
|
||
print"Geben Sie eine Zahl ein!"
|
||
1 a$=inkey$:if a$="" then 1
|
||
if a$="1" or a$="!" then goto ModeA
|
||
if a$="2" or a$=chr$(34) then goto ModeB
|
||
if a$="3" or a$=chr$(21) then goto ModeC
|
||
if a$="4" or a$="$" then goto ModeD
|
||
if a$="5" or a$="%" then goto ModeE
|
||
if a$="6" or a$="&" then goto ModeF
|
||
if a$="7" or a$="/" then goto ModeG
|
||
if a$="8" or a$="(" then goto ModeH
|
||
if a$="9" or a$=")" then goto ModeI
|
||
if a$="0" or a$="=" then goto ModeJ
|
||
goto 1
|
||
|
||
ModeA:
|
||
print:print"Setze Variablen ... ";
|
||
dsp1$="display.drv=T480.DRV"
|
||
dsp2$="display.drv=TRIDENT TVGA 640x480x256c"
|
||
font$="font
|
||
print"OK"
|
||
print"Erstelle neue INI-Datei ... ";
|
||
gosub ChangeINI
|
||
print"Starte WINDOWS v3.11 ... "
|
||
goto Launch
|
||
|
||
ModeB:
|
||
print:print"Setze Variablen...";
|
||
dsp1$="display.drv=W800.DRV"
|
||
dsp2$="display.drv=TRIDENT TVGA 800x600 16-color"
|
||
print"gesetzt"
|
||
print"Erstelle neue INI-Datei...";
|
||
gosub ChangeINI
|
||
print"Starte WINDOWS v3.11..."
|
||
goto Launch
|
||
|
||
ModeC:
|
||
print:print"Setze Variablen...";
|
||
dsp1$="display.drv=T1024.DRV"
|
||
dsp2$="display.drv=TRIDENT TVGA8900 1024x768 256-color"
|
||
print"gesetzt"
|
||
print"Erstelle neue INI-Datei...";
|
||
gosub ChangeINI
|
||
print"Starte WINDOWS v3.11..."
|
||
goto Launch
|
||
|
||
ChangeINI:
|
||
open "I",#1,"C:\WINDOWS\SYSTEM.INI"
|
||
open "O",#2,"C:\WINDOWS\SYSTEM.IN_"
|
||
print:color 15:print"Status aktuelle Zeile b b-d":color 7
|
||
x=csrlin
|
||
locate x,1
|
||
2 line input#1,zle$
|
||
if left$(zle$,6)="[boot]" then b=1
|
||
if left$(zle$,18)="[boot.description]" then bd=1
|
||
ers$=zle$
|
||
if left$(zle$,11)="display.drv" and b=1 then ers$=dsp1$:flag=1:fl=1
|
||
if left$(zle$,11)="display.drv" and bd=1 then ers$=dsp2$:flag=2:fl=1
|
||
st$="Suche nach Zeile..."
|
||
if fl=1 then st$="Zeile ge„ndert. Neu:":fl=0
|
||
rem print "Status aktuelle Zeile b b-d":color 7
|
||
print using"\ \ \ \ # #";st$;ers$;b;bd
|
||
if flag=2 then b=0
|
||
print#2,ers$
|
||
locate x,1
|
||
if flag=1 then locate x+1,1
|
||
if flag=2 then locate x+2,1
|
||
if eof(1)<>0 then
|
||
print"fertig."+space$(73)
|
||
close #1
|
||
close #2
|
||
return
|
||
else
|
||
goto 2
|
||
end if
|
||
|
||
Launch:
|
||
kill "C:\WINDOWS\SYSTEM.INI"
|
||
name "C:\WINDOWS\SYSTEM.IN_" AS "C:\WINDOWS\SYSTEM.INI"
|
||
print"OK"
|
||
execute "WIN.COM :" |