Windows 95a and OSR2 Version Updates and Installing Others Apps, Drivers, etc.
Keywords: upgrade Windows 95 OSR2
This is sample code from one of our users. You'll need to customize it to your environment.
; DS Menu 4.02 Windows version
; Written by Todd Thorson 12/17/96
; Comdisco Distributed Services
Errormode(@cancel)
WinTitle("","DS Menu")
WinType=WinMetrics(-4)
LastMod="2/17/1999"
LANID=Environment("ln")
FileSvr=Environment("fs")
AppSvr=Environment("asvr")
FullName=Environment("FN")
TD=TimeDate()
Owner=Environment("owner")
Psvr=Environment("psvr")
RAM=((WinResources(11))/1024)/1000
Decimals(1)
free=(DiskFree("c")/1024)/1000
If free > 1000 then
freeb=StrCat((free/1000),"GB")
Else
freeb=StrCat(free,"MB")
EndIf
page=((WinResources(14))/1024)/1024
spc=DiskInfo("c",1)
bps=DiskInfo("c",2)
nfc=DiskInfo("c",3)
tnc=DiskInfo("c",4)
bpc=spc*bps
WHITE="255,255,255"
RED="255,0,0"
PURPLE="255,0,255"
CYAN="0,255,255"
DKBLUE="0,0,128"
BLUE="0,0,255"
LTGRAY="192,192,192"
GRAY="128,128,128"
GREEN="0,255,0"
YELLOW="255,255,0"
FAMILY=16
FONT="Times New Roman"
DKGRAY="64,64,64"
BLACK="0,0,0"
WBTVER=VersionDll()
WASH=1
If WinType == 5 then
Winver=RegQueryValue(@REGMACHINE,"Software\Microsoft\Windows\CurrentVersion[Version]")
VerNum=RegQueryValue(@REGMACHINE,"Software\Microsoft\Windows\CurrentVersion[VersionNumber]")
VerSub=RegQueryValue(@REGMACHINE,"Software\Microsoft\Windows\CurrentVersion[SubVersionNumber]")
Else
If WinType == 4 then
Winver = "Windows NT"
VerNum = " "
VerSub = " "
Else
Winver = "Unknown"
VerNum = " "
VerSub = " "
EndIf
EndIf
If VerSub == 0 then VerSub=" "
Errormode(@OFF)
IP = 0
For X = 0 to 9 by 1
If IP == 0 then IP=RegQueryValue(@REGMACHINE,"System\CurrentControlSet\Services\Class\NetTrans\000%X%[IpAddress]")
If IP == "0.0.0.0" then IP = 0
If IP == 0
IP = 0
Else
goto GotIP
EndIf
Next
For Y = 10 to 25 by 1
If IP == 0 then IP=RegQueryValue(@REGMACHINE,"System\CurrentControlSet\Services\Class\NetTrans\00%Y%[IpAddress]")
If IP == "0.0.0.0" then IP = 0
If IP == 0
IP = 0
Else
goto GotIP
EndIf
Next
If IP == 0 then IP="Not Found"
:GotIp
Errormode(@CANCEL)
;AddExtender("X:\CISMENU\WWHTM34I.DLL")
;If hCompatible()
; DS2000=AskYesNo("BIG Opportunity","Since you have IE 4.0 or greater installed,%@CRLF%would you like to try the new BETA DSMenu 2000??")
; If DS2000 == @YES then
; Run("X:\CISMENU\DS2000.exe","")
; Exit
; EndIF
;ENDIF
:Main
Wash=1
BoxesUp("0,0,1000,1000",@NORMAL)
BoxColor(1,"0,0,127",WASH)
BoxCaption(1,"Comdisco Distributed Services")
BoxDrawRect(1,"0,0,1000,1000",1)
BoxTextFont(1,"%font%",150,80,0|0)
BoxTextColor(1,"255,255,0")
BoxNew(4,"100,10,900,160",1)
BoxColor(4,LTGRAY,0)
BoxDrawRect(4,"",1)
BoxTextFont(4,"%font%",350,70,0)
BoxTextColor(4,RED)
BoxPen(4,WHITE,20)
boxdrawline(4,"0,0,1000,0")
boxdrawline(4,"0,0,0,1000")
BoxPen(4,GRAY,20)
boxdrawline(4,"1000,1000,1000,0")
boxdrawline(4,"0,1000,1000,1000")
BoxPen(4,WHITE,10)
boxdrawline(4,"960,840,960,150")
boxdrawline(4,"40,840,960,840")
BoxPen(4,GRAY,10)
boxdrawline(4,"40,150,960,150")
boxdrawline(4,"40,150,40,840")
BoxDrawText(4,"70,200,950,700","Distributed Services Menu v4.02",1,5)
BoxTextFont(4,"%font%",120,30,0)
BoxDrawText(4,"500,650,950,800","Last Modified %lastmod%",1,5)
BoxTextFont(1,"%font%",40,50,0|0)
BoxDrawText(1,"200,300,800,350","Your TCP/IP# is set to %IP%",@FALSE,1)
BoxDrawText(1,"200,850,800,900","For Help and Info, see the DSMenu Documentation",@FALSE,1)
BoxTextFont(1,"%font%",30,40,0|0)
BoxDrawText(1,"150,950,900,1000",'"If Clinton was the Titanic, the iceberg would have sunk" - Eric Muller',@FALSE,1)
BoxTextFont(1,"%font%",35,50,0|0)
BoxButtonDraw(1,1, "E&xit", "850,700,950,750")
BoxButtonDraw(1,2, "View DSMenu Documentation", "545,450,950,500")
BoxButtonDraw(1,3, "Windows 95a and OSR2 Version Updates", "35,550,475,600")
BoxButtonDraw(1,4, "Software Application Installs", "35,400,475,450")
BoxButtonDraw(1,5, "PC Drivers, BIOS, and Sybase", "35,700,475,750")
BoxButtonDraw(1,6, "Free Space on disk C: %freeb% (click for info. and Disk Utilities)","150,200,875,250")
BoxButtonDraw(1,7, "Run Borg/Assimilate this PC", "545,525,950,575")
iBox=0
BoxButtonWait()
while iBox==0
for x=1 to 7
if BoxButtonStat(1,x) then iBox=x
next
end while
if iBox
BoxDataClear(1,"TOP")
switch iBox
case 1
exit
break
case 2
goto DoViewdoc
break
case 3
wash=6
goto DoWin95
break
case 4
wash=4
goto DoSoftware
break
case 5
wash=5
goto DoDrivers
break
case 6
goto DoSpace
break
case 7
goto DoBorg
break
end switch
endif
goto Main
:DoSoftware
Call("X:\CISMENU\Software.wbc","")
Goto Main
:DoViewdoc
RunZoomWait("x:\cismenu\wordpad","x:\cismenu\dsmenu.doc")
Goto Main
:DoWin95
BoxColor(1,"255,255,0",WASH)
BoxDrawRect(1,"0,0,1000,1000",1)
BoxTextColor(1,WHITE)
BoxTextFont(1,"%font%",50,1170,1|%FAMILY%)
BoxDrawText(1,"150,175,875,225","Windows 95/98 Service Packs and Updates",@False,1)
BoxTextFont(1,"%font%",30,130,1|%FAMILY%)
BoxDrawText(1,"100,230,900,300","This machine is currently running %WinVer% %verNum% %VerSub%",@false,1|16)
BoxButtonDraw(1,10, "95A Service Pack 1", "35,300,335,350")
BoxButtonDraw(1,1, "95A Spoolfix", "35,375,335,425")
BoxButtonDraw(1,2, "95A DialUp Networking 1.3", "35,450,335,500")
BoxButtonDraw(1,3, "95A Kernel32 Update", "400,300,700,350")
BoxButtonDraw(1,4, "95A Disk TSD VXD Update", "400,375,700,425")
BoxButtonDraw(1,5, "95A OLE Update ", "400,450,700,500")
BoxButtonDraw(1,6, "95A,B,C,98 Reg Clean", "25,575,325,625")
BoxButtonDraw(1,7, "95A,B, or C Y2K Update", "100,650,635,700")
BoxButtonDraw(1,8, "95B or C OSR2 USB Update", "100,725,635,775")
BoxButtonDraw(1,9, "95B or C VTCPIP Update", "100,800,635,850")
BoxButtonDraw(1,11, "DirectX 6", "700,725,900,775")
BoxButtonDraw(1,12, "Back to Main Menu", "650,925,900,975")
BoxButtonDraw(1,13, "95A DCOM95 update ", "350,575,625,625")
BoxButtonDraw(1,14, "95A ComCtl32 update ", "650,575,925,625")
BoxButtonDraw(1,15, "EXIT", "450,925,600,975")
iBox=0
BoxButtonWait()
while iBox==0
for x=1 to 15
if BoxButtonStat(1,x) then iBox=x
next
end while
if iBox
BoxDataClear(1,"TOP")
switch iBox
case 1
goto DoSpool
break
case 2
goto DoDUN
break
case 3
goto DoKrnl
break
case 4
goto DoTSD
break
case 5
goto DoOLE
break
case 6
goto DoRegcln
break
case 7
goto DoY2K
break
case 8
goto DoupdOSR2
break
case 9
goto DoTCP
break
case 10
goto DoSPack
break
case 11
goto DoDirect
break
case 12
goto Main
break
case 13
goto DoDCOM95
break
case 14
goto DoComCtl
break
case 15
EXIT
break
end switch
endif
Goto DoWin95
:DoDCOM95
RunWait("x:\cismenu\95Update\DCOM95.exe","")
Goto DoWin95
:DoSPack
RunWait("x:\cismenu\95Update\ServPak1.exe","")
Goto DoWin95
:DoSpool
RunWait("x:\cismenu\95Update\Spoolfix.exe","")
Goto DoWin95
:DoKrnl
RunWait("x:\cismenu\95Update\95Krnl.exe","")
Goto DoWin95
:DoDUN
RunWait("x:\cismenu\95Update\95DUN.exe","")
Goto DoWin95
:DoTSD
RunWait("x:\cismenu\95Update\95Disk.exe","")
Goto DoWin95
:DoOLE
RunWait("x:\cismenu\95Update\95OLE.exe","")
Goto DoWin95
:DoDirect
RunWait("x:\cismenu\95Update\DirectX.exe","")
Goto DoWin95
:DoREGCLN
RunWait("x:\cismenu\95Update\RegClean.exe","")
Goto DoWin95
:DoY2k
RunWait("x:\cismenu\95update\Win95y2k.exe","")
Goto DoWin95
:Dotcp
RunWait("x:\cismenu\95update\Vtcpupd.exe","")
Goto DoWin95
:DoComCtl
RunWait("x:\cismenu\95update\Com32upd.exe","")
Goto DoWin95
:Doupdosr2
RunWait("x:\cismenu\95update\osr21upd.exe","")
Goto DoWin95
:DoVideo
DirChange("x:\cismenu\video")
RunWait("x:\cismenu\video\setupudm.exe","")
Goto DoDrivers
:DoBorg
BoxColor(1,"255,255,0",WASH)
BoxDrawRect(1,"0,0,1000,1000",1)
BoxTextColor(1,WHITE)
BoxTextFont(1,"%font%",40,1170,1|%FAMILY%)
BoxDrawText(1,"100,200,900,300","BORG execution routine.",@false,1|16)
BoxTextFont(1,"%font%",30,50,1|%FAMILY%)
BoxDrawText(1,"100,750,900,800","Now attaching to server and running BORG so those databases that benefit us so much can be updated. Please be patient.",@false,1|16)
IniWritePvt("BORG","RunDateTime","%TD%","C:\COMDISCO.INF")
IniWritePvt("BORG","CurrentUser","%LanID%","C:\COMDISCO.INF")
IniWritePvt("BORG","CurrentServer","%FileSvr%","C:\COMDISCO.INF")
RunIcon("x:\cismenu\11.bat","")
:WaitUp4
Delay(2)
If WinExist("11") == @true then goto WaitUp4
Delay(2)
If WinExist("V:\") == @true then goto WaitUp4
Delay(2)
If WinExist("Fin") == @true then WinClose("Fin")
If WinExist("Fin") == @true then WinClose("Fin")
Delay(2)
DirChange("V:\Distserv\Borg")
RunZoomWait("V:\Distserv\Borg\Borg.exe","")
Goto Main
:DoSpace
BoxColor(1,"255,255,0",WASH)
BoxDrawRect(1,"0,0,1000,1000",1)
BoxTextColor(1,WHITE)
BoxTextFont(1,"%font%",50,1170,1|%FAMILY%)
BoxDrawText(1,"150,175,875,225","Physical Drive C: Information",@False,1)
BoxTextFont(1,"%font%",30,40,1|%FAMILY%)
BoxDrawText(1,"150,250,875,300","Bytes per Cluster: %bpc%",@False,1)
BoxDrawText(1,"150,325,875,375","Bytes per Sector: %bps%",@False,1)
BoxDrawText(1,"150,400,875,450","Sectors per Cluster: %spc%",@False,1)
BoxDrawText(1,"150,475,875,525","Number of Free Clusters: %nfc%",@False,1)
BoxDrawText(1,"150,550,875,600","Total Number of Clusters: %tnc%",@False,1)
BoxTextFont(1,"%font%",50,1170,1|%FAMILY%)
BoxDrawText(1,"150,650,875,700","RAM and Virtual Memory Information",@False,1)
BoxTextFont(1,"%font%",30,40,1|%FAMILY%)
BoxDrawText(1,"150,725,875,775","Total Physical Memory: %RAM%MB",@False,1)
BoxDrawText(1,"150,800,875,850","Maximum Paging File Size %page%MB",@False,1)
BoxButtonDraw(1,1, "Clean Temps, Scandisk, and Defrag C:", "100,925,550,975")
BoxButtonDraw(1,2, "Back to Main Menu", "650,925,900,975")
iBox=0
BoxButtonWait()
while iBox==0
for x=1 to 2
if BoxButtonStat(1,x) then iBox=x
next
end while
if iBox
BoxDataClear(1,"TOP")
switch iBox
case 1
goto DoScandisk
break
case 2
goto Main
break
end switch
endif
goto DoSpace
:DoScandisk
BoxColor(1,"255,255,0",WASH)
BoxDrawRect(1,"0,0,1000,1000",1)
BoxTextColor(1,WHITE)
BoxTextFont(1,"%font%",50,1170,1|%FAMILY%)
BoxDrawText(1,"150,800,875,850","Now Clearing Temp Files from C:\Windows\Temp",@False,1)
FileDelete("C:\WINDOWS\TEMP\*.*")
BoxColor(1,"255,255,0",WASH)
BoxDrawRect(1,"0,0,1000,1000",1)
BoxTextColor(1,WHITE)
BoxTextFont(1,"%font%",50,1170,1|%FAMILY%)
BoxDrawText(1,"150,800,875,850","Now Running ScanDisk on Drive C:",@False,1)
RunIcon("x:\cismenu\Scandskw.exe","")
SendKeysTo("ScanDisk -","!d")
SendKeysTo("ScanDisk -","!f{+}")
SendKeysTo("ScanDisk -","!s")
:Wait1
TimeDelay(2)
If WinExist("ScanDisk Results") == @False then goto Wait1
SendKeysTo("ScanDisk Results"," ")
SendKeysTo("ScanDisk -"," ")
BoxColor(1,"255,255,0",WASH)
BoxDrawRect(1,"0,0,1000,1000",1)
BoxTextColor(1,WHITE)
BoxTextFont(1,"%font%",50,1170,1|%FAMILY%)
BoxDrawText(1,"150,200,875,250","Now Defragmenting Drive C:",@False,1)
Run("X:\cismenu\Defrag.exe","C:")
While WinExist("Defragm") == @False
TimeDelay(2)
EndWhile
TimeDelay(2)
If WinExist("Disk Defrag") == @True then SendKeysTo("Disk Defrag","!s")
XX=0
While WinExist("Defragm") == @True
TimeDelay(2)
If XX == 3 then SendKeysTo("Defragm","!d")
XX=XX+1
EndWhile
Message("DS Menu Utilities","Drive C: Maintenance Complete." )
Goto Main
:DoDrivers
BoxColor(1,"255,255,0",WASH)
BoxDrawRect(1,"0,0,1000,1000",1)
BoxTextColor(1,WHITE)
BoxTextFont(1,"%font%",50,1170,1|%FAMILY%)
BoxDrawText(1,"150,200,875,250","DSMenu Driver Installs",@False,1)
BoxButtonDraw(1,1, "Sybase 16 and 32bit Install w/16-32 ODBC ", "100,300,600,350")
BoxButtonDraw(1,2, "Compaq Universal Video Driver", "100,375,600,425")
BoxButtonDraw(1,3, "Back to Main Menu", "650,925,900,975")
BoxButtonDraw(1,4, "Compaq Desktop PC Softpaq (BIOS) creator", "100,450,600,500")
BoxButtonDraw(1,5, "Compaq Laptop PC Softpaq (BIOS) creator", "100,525,600,575")
BoxButtonDraw(1,6, "EXIT", "450,925,600,975")
; Choose Menu Option
iBox=0
BoxButtonWait()
while iBox==0
for x=1 to 6
if BoxButtonStat(1,x) then iBox=x
next
end while
if iBox
BoxDataClear(1,"TOP")
switch iBox
case 1
goto DoSybase
break
case 2
goto DoVideo
break
case 3
goto Main
break
case 4
goto DoDSoftpaq
break
case 5
goto DoLSoftpaq
break
case 6
EXIT
break
end switch
endif
goto DoDrivers
:DoSybase
DirMake("C:\Sybase\SybODBC")
FileCopy("X:\CISMENU\SybODBC\SybODBC\*.*","C:\Sybase\SybODBC",@FALSE)
FileCopy("X:\CISMENU\SybODBC\System\*.*","C:\Windows\System",@FALSE)
IniWritePvt("ODBC Data Sources","Saros Report Writer","SQL Server","C:\Windows\Odbc.ini")
IniWritePvt("ODBC 32 bit Data Sources","CLASSTRD","Sybase System 11 (32 bit)","C:\Windows\Odbc.ini")
IniWritePvt("ODBC 32 bit Data Sources","Saros Report","Sybase System 11 (32 bit)","C:\Windows\Odbc.ini")
IniWritePvt("ODBC 32 bit Data Sources","Saros","Sybase System 11 (32 bit)","C:\Windows\Odbc.ini")
IniWritePvt("Saros Report","Driver32","C:\Windows\System\Sysyb95.dll","C:\Windows\Odbc.ini")
IniWritePvt("Saros","Driver32","C:\Windows\System\Sysyb95.dll","C:\Windows\Odbc.ini")
IniWritePvt("CLASSTRD","Driver32","C:\Windows\System\Sysyb95.dll","C:\Windows\Odbc.ini")
IniWritePvt("Saros Report Writer","Driver32","C:\Windows\System\Sqlsrv32.dll","C:\Windows\Odbc.ini")
IniWritePvt("ODBC Drivers","2.10 Sybase System 10","Installed","C:\Windows\Odbcinst.ini")
IniWritePvt("ODBC Drivers","SQL Server","Installed","C:\Windows\Odbcinst.ini")
IniWritePvt("ODBC 32 bit Drivers","SQL Server (32 bit)","Installed","C:\Windows\Odbcinst.ini")
IniWritePvt("SQL Server (32 bit)","Setup","C:\Windows\System\Sqlsrv32.dll","C:\Windows\Odbcinst.ini")
IniWritePvt("SQL Server (32 bit)","Driver","C:\Windows\System\Sqlsrv32.dll","C:\Windows\Odbcinst.ini")
IniWritePvt("SQL Server (32 bit)","32Bit","1","C:\Windows\Odbcinst.ini")
RunZoom("x:\cismenu\7.bat","")
:WaitUp3
Delay(2)
If WinExist("7") == @true then goto WaitUp3
Delay(2)
If WinExist("XCOPY") == @true then goto WaitUp3
Delay(2)
If WinExist("Fin") == @true then WinClose("Fin")
If WinExist("Fin") == @true then WinClose("Fin")
Run("X:\CISMENU\regedit","x:\CISMENU\sybodbc.reg")
:Waitodbc
If WinExist("Registry Edit") == @FALSE then goto Waitodbc
SendKeysTo("Registry Editor"," ")
DirChange("X:\CISMENU\System11")
RunWait("X:\CISMENU\SYSTEM11\SETUP","")
goto DoDrivers
:mailrunning
BoxColor(1,"255,255,0",WASH)
BoxDrawRect(1,"0,0,1000,1000",1)
BoxTextColor(1,WHITE)
BoxTextFont(1,"%font%",40,1170,1|%FAMILY%)
BoxDrawText(1,"100,200,900,300","Warning! Warning! Danger! Danger!",@false,1|16)
BoxTextFont(1,"%font%",30,50,1|%FAMILY%)
BoxDrawText(1,"100,750,900,800","You must EXIT and SIGNOUT of Mail or Schedule+ before this install can continue. (Use ALT-TAB to switch to the programs and close them.)",@false,1|16)
BoxButtonDraw(1,1,"OK", "400,850,600,900")
iBox=0
BoxButtonWait()
while iBox==0
for x=1 to 1
if BoxButtonStat(1,x) then iBox=x
next
end while
if iBox
BoxDataClear(1,"TOP")
switch iBox
case 1
break
end switch
endif
Goto DoQvp16
:DoDSoftpaq
BoxColor(1,"255,255,0",WASH)
BoxDrawRect(1,"0,0,1000,1000",1)
BoxTextColor(1,WHITE)
BoxTextFont(1,"%font%",45,50,1|%FAMILY%)
BoxDrawText(1,"50,200,950,300","DSMenu Desktop PC RomPaq Creation Utility.",@false,1|16)
BoxTextFont(1,"%font%",30,50,1|%FAMILY%)
BoxDrawText(1,"175,350,900,400","Please choose the type from the following choices.",@false,1|16)
BoxButtonDraw(1,1,"Deskpro XE Series (94.10.31)", "50,450,450,500")
BoxDrawText(1,"450,450,900,500","433i,450,466,4100",@false,0)
BoxButtonDraw(1,2,"Deskpro (5xxx) Series (98.06.08)","50,525,450,575")
BoxDrawText(1,"450,525,900,575","'486Y ROM' 575,5100,5120,5133,5166",@false,0)
BoxButtonDraw(1,3,"Deskpro (5xxx) Series (98.05.20)","50,600,450,650")
BoxDrawText(1,"450,600,900,650","'486G ROM' 575,5100,5120,5133,5166",@false,0)
BoxButtonDraw(1,4,"Deskpro 2000 Series (98.05.01)","50,675,450,725")
BoxDrawText(1,"450,675,900,725","120,133",@false,0)
BoxButtonDraw(1,5,"Deskpro 2000 MMX Series (98.04.16)","50,750,450,800")
BoxDrawText(1,"450,750,900,800","166MMX,233MMX",@false,0)
BoxButtonDraw(1,6,"Deskpro 4000 Series (98.05.05)","50,825,450,875")
BoxDrawText(1,"450,825,900,875","133,166",@false,0)
BoxButtonDraw(1,7,"Return to Drivers Menu","650,925,900,975")
iBox=0
BoxButtonWait()
while iBox==0
for x=1 to 7
if BoxButtonStat(1,x) then iBox=x
next
end while
if iBox
BoxDataClear(1,"TOP")
switch iBox
case 1
goto DoXE
break
case 2
goto DoDP4X
break
case 3
goto DoDP5X
break
case 4
goto Do2K
break
case 5
goto Do2KMMX
break
case 6
goto Do4K
break
case 7
goto DoDrivers
break
end switch
endif
goto DoDSoftpaq
:DoXE
RunZoomWait("command.com","/c X:\Cismenu\RomPaqs\sp2164.exe")
goto DoDSoftpaq
:DoDP4x
RunZoomWait("command.com","/c X:\Cismenu\RomPaqs\sp6924.exe")
goto DoDSoftpaq
:DoDP5x
RunZoomWait("command.com","/c X:\Cismenu\RomPaqs\sp8446.exe")
goto DoDSoftpaq
:Do2K
RunZoomWait("command.com","/c X:\Cismenu\RomPaqs\sp7978.exe")
goto DoDSoftpaq
:Do2KMMX
RunZoomWait("command.com","/c X:\Cismenu\RomPaqs\sp5357.exe")
goto DoDSoftpaq
:Do4K
RunZoomWait("command.com","/c X:\Cismenu\RomPaqs\sp8424.exe")
goto DoDSoftpaq
:DoLSoftpaq
BoxColor(1,"255,255,0",WASH)
BoxDrawRect(1,"0,0,1000,1000",1)
BoxTextColor(1,WHITE)
BoxTextFont(1,"%font%",45,50,1|%FAMILY%)
BoxDrawText(1,"50,200,950,300","DSMenu Laptop PC RomPaq Creation Utility.",@false,1|16)
BoxTextFont(1,"%font%",30,50,1|%FAMILY%)
BoxDrawText(1,"175,350,900,400","Please choose the type from the following choices.",@false,1|16)
BoxButtonDraw(1,1,"Armada 4100 Series (98.05.04 RevA)", "50,450,450,500")
BoxDrawText(1,"450,450,900,500","4130,4131,4160",@false,0)
BoxButtonDraw(1,2,"Armada 7700 Series (98.05.13 RevA)","50,525,450,575")
BoxDrawText(1,"450,525,900,575","7710,7730,7750,7770",@false,0)
BoxButtonDraw(1,3,"LTE5000 Series (7.32 RevA)","50,600,450,650")
BoxDrawText(1,"450,600,900,650","5150,5200,5250,5280,5300,5400",@false,0)
BoxButtonDraw(1,4,"Elite Series (486N3_97.12.23 RevA)","50,675,450,725")
BoxDrawText(1,"450,675,900,725","Elite 475 (486 Laptop)",@false,0)
BoxButtonDraw(1,5,"Return to Drivers Menu","650,925,900,975")
iBox=0
BoxButtonWait()
while iBox==0
for x=1 to 5
if BoxButtonStat(1,x) then iBox=x
next
end while
if iBox
BoxDataClear(1,"TOP")
switch iBox
case 1
goto Do4100
break
case 2
goto Do7700
break
case 3
goto Do5000
break
case 4
goto Do475
break
case 5
goto DoDrivers
break
end switch
endif
goto DoLSoftpaq
:Do4100
RunZoomWait("command.com","/c X:\Cismenu\RomPaqs\sp7075.exe")
goto DoLSoftpaq
:Do7700
RunZoomWait("command.com","/c X:\Cismenu\RomPaqs\sp7575.exe")
goto DoLSoftpaq
:Do5000
RunZoomWait("command.com","/c X:\Cismenu\RomPaqs\sp7804.exe")
goto DoLSoftpaq
:Do475
RunZoomWait("command.com","/c X:\Cismenu\RomPaqs\sp5989.exe")
goto DoLSoftpaq
:end
Article ID: W14243
Filename: Win95a and OSR2 Version and Other Updates.txt