home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / rxlbox13.zip / setvars.ini < prev   
INI File  |  1998-03-01  |  47KB  |  1,274 lines
  1. ; ********************************************************************
  2. ; * This is a real word ini/menu file used in our CID installations. *
  3. ; ********************************************************************
  4. ;
  5. ; Note that all sections in this file not used by RXLBOX are used by
  6. ; our menu program for the CID process called MINIMENU.CMD.
  7. ; MINIMENU calls RXLBOX to show the listbox menu in which the user can
  8. ; define the hardware of the PC to install. Using the results of
  9. ; RXLBOX MINIMENU creates a CMD file called SETVARS.CMD with the
  10. ; approbiate SET commands from the sections in this file.
  11. ; The environment variables set in the file SETVARS.CMDi are than used
  12. ; by the other CMDs envolved in our CID Installation process to install
  13. ; and configure the software for the workstation.
  14. ;
  15. ; This file contains the entries for SETVARS.CMD (including the
  16. ; menu descriptions for RXLBOX)
  17. ;
  18. ; Search for the string [*MainMenu*] to jump directly to the menu
  19. ; descriptions in this file.
  20. ;
  21. ; All menus in this file use messages from the file SAMPLE3.MSG. The
  22. ; routine used to retrieve the messages is GETMSG1.CMD. Therefore
  23. ; SAMPLE3.MSG and GETMSG1.CMD must be in the current directory for
  24. ; this sample to work!
  25. ; 
  26. ; initial release: 01.06.1996 /bs
  27. ; last update:     11.10.1996 /bs
  28. ;
  29. ; ----------------------------
  30. ; ******************************************
  31. ; *** This section is NOT used by RXLBOX ***
  32. ; ******************************************
  33. ;
  34. ; This section is executed by MiniMenu before calling RxLBox
  35. ;
  36. ; all entries must be legal REXX statements
  37. ;
  38. [InitMiniMenu]
  39. call value 'M_LOCATION',        'ESCHBORN_5.OG',                'OS2ENVIRONMENT'
  40. call value 'M_LANGUAGE',        'German',                       'OS2ENVIRONMENT'
  41. call value 'M_FDISKFILE',       '2_GB_HD_(400/rest)',           'OS2ENVIRONMENT'
  42. call value 'M_MACHINETYPE',     'Pentium w/ Soundblaster AWE32','OS2ENVIRONMENT'
  43. call value 'M_DISPLAY',         'VGA',                          'OS2ENVIRONMENT'
  44. call value 'M_CDROM',           'SCSI-CDROM',                   'OS2ENVIRONMENT'
  45. call value 'M_SOUNDCARD',       'MULTIMEDIA_WITHOUT_SOUND',     'OS2ENVIRONMENT'
  46. call value 'M_TRADAPTER',       '3COM',                         'OS2ENVIRONMENT'
  47. call value 'M_CDROM',           'DETECT_CDROM',                 'OS2ENVIRONMENT'
  48. call value 'M_TCPID',           substr(clientID,6)+0,           'OS2ENVIRONMENT'
  49. call value 'M_MACHINE_TYPE',    'P166',                         'OS2ENVIRONMENT'
  50. call value 'M_MODEL_NUM',       'ATI',                          'OS2ENVIRONMENT'
  51. call value 'M_SERIAL_NUM',      'R000',                         'OS2ENVIRONMENT'
  52. call value 'M_PLANT_MFG',       '55',                           'OS2ENVIRONMENT'
  53.  
  54. ; ----------------------------
  55. ; ******************************************
  56. ; *** This section is NOT used by RXLBOX ***
  57. ; ******************************************
  58. ;
  59. ; This section is executed by MiniMenu before the program end
  60. ;
  61. ; all entries must be legal REXX statements
  62. ;
  63. [ExitMiniMenu]
  64. call value 'M_LOCATION',        '',                             'OS2ENVIRONMENT'
  65. call value 'M_LANGUAGE',        '',                             'OS2ENVIRONMENT'
  66. call value 'M_FDISKFILE',       '',                             'OS2ENVIRONMENT'
  67. call value 'M_MACHINETYPE',     '',                             'OS2ENVIRONMENT'
  68. call value 'M_DISPLAY',         '',                             'OS2ENVIRONMENT'
  69. call value 'M_CDROM',           '',                             'OS2ENVIRONMENT'
  70. call value 'M_SOUNDCARD',       '',                             'OS2ENVIRONMENT'
  71. call value 'M_TRADAPTER',       '',                             'OS2ENVIRONMENT'
  72. call value 'M_CDROM',           '',                             'OS2ENVIRONMENT'
  73. call value 'M_TCPID',           '',                             'OS2ENVIRONMENT'
  74. call value 'M_MACHINE_TYPE',    '',                             'OS2ENVIRONMENT'
  75. call value 'M_MODEL_NUM',       '',                             'OS2ENVIRONMENT'
  76. call value 'M_SERIAL_NUM',      '',                             'OS2ENVIRONMENT'
  77. call value 'M_PLANT_MFG',       '',                             'OS2ENVIRONMENT'
  78.  
  79. ; ----------------------------
  80. ; ******************************************
  81. ; *** This section is NOT used by RXLBOX ***
  82. ; ******************************************
  83. ;
  84. ; This section contains aliase for the result string
  85. ; Nested aliase are okay
  86. ;
  87. [Aliasse]
  88. A_LANGUAGE    = { value( 'M_LANGUAGE'    ,, 'OS2ENVIRONMENT' ) }
  89. A_LOCATION    = { value( 'M_LOCATION'    ,, 'OS2ENVIRONMENT' ) }
  90. A_FDISKFILE   = { value( 'M_FDISKFILE'   ,, 'OS2ENVIRONMENT' ) }
  91. A_DISPLAY     = { value( 'M_DISPLAY'     ,, 'OS2ENVIRONMENT' ) }
  92. A_CDROM       = { value( 'M_CDROM'       ,, 'OS2ENVIRONMENT' ) }
  93. A_SOUNDCARD   = { value( 'M_SOUNDCARD'   ,, 'OS2ENVIRONMENT' ) }
  94. A_TRADAPTER   = { value( 'M_TRADAPTER'   ,, 'OS2ENVIRONMENT' ) }
  95. A_CS_SOURCE   = { 'CS_ON_' || value( 'INSTSOURCE',, 'OS2ENVIRONMENT' ) }
  96.  
  97. Desktop PC =                    PROLOG A_LANGUAGE A_LOCATION A_FDISKFILE A_DISPLAY A_CDROM A_SOUNDCARD A_TRADAPTER HARDWARE BOOTDRIVE_IS_C NO_PCMCIA A_CS_SOURCE EPILOG
  98. Pentium w/ Soundblaster 16 =    PROLOG A_LANGUAGE A_LOCATION A_FDISKFILE HARDWARE BOOTDRIVE_IS_C ATI SCSI-CDROM SOUNDBLASTER_16 3COM NO_PCMCIA A_CS_SOURCE EPILOG
  99. Pentium w/ Soundblaster AWE32 = PROLOG A_LANGUAGE A_LOCATION A_FDISKFILE HARDWARE BOOTDRIVE_IS_C ATI SCSI-CDROM SOUNDBLASTER_AWE32 3COM NO_PCMCIA A_CS_SOURCE EPILOG
  100. Pentium w/o Sound =             PROLOG A_LANGUAGE A_LOCATION A_FDISKFILE HARDWARE BOOTDRIVE_IS_C ATI SCSI-CDROM MULTIMEDIA_WITHOUT_SOUND 3COM NO_PCMCIA A_CS_SOURCE EPILOG
  101. IBM PS/2 =                      PROLOG A_LANGUAGE A_LOCATION A_FDISKFILE HARDWARE BOOTDRIVE_IS_C XGA SCSI-CDROM NO_MULTIMEDIA  IBMTOK NO_PCMCIA A_CS_SOURCE EPILOG
  102. IBM Thinkpad 755C/CS =          PROLOG A_LANGUAGE A_LOCATION A_FDISKFILE HARDWARE BOOTDRIVE_IS_C Detect_Display SCSI-CDROM MULTIMEDIA_WITHOUT_SOUND TP755C_CS  IBMTOKCS A_CS_SOURCE EPILOG
  103. IBM Thinkpad 755CE/CSE =        PROLOG A_LANGUAGE A_LOCATION A_FDISKFILE HARDWARE BOOTDRIVE_IS_C VGA NO_CDROM MULTIMEDIA_WITHOUT_SOUND TP755CE_CSE  IBMTOKCS A_CS_SOURCE EPILOG
  104. IBM Thinkpad 760CD =            PROLOG A_LANGUAGE A_LOCATION A_FDISKFILE HARDWARE BOOTDRIVE_IS_C VGA MULTIMEDIA_WITHOUT_SOUND IDE-CDROM TP760CD  IBMTOKCS A_CS_SOURCE EPILOG
  105. HP Omnibook 5500 CT =           PROLOG A_LANGUAGE A_LOCATION A_FDISKFILE HARDWARE BOOTDRIVE_IS_C VGA CRYSTAL IDE-CDROM HP5500CT  IBMTOKC1 A_CS_SOURCE EPILOG
  106. Panasonic CF-42 =               PROLOG A_LANGUAGE A_LOCATION A_FDISKFILE HARDWARE BOOTDRIVE_IS_C VGA ESS681 IDE-CDROM PANASONIC  IBMTOKC2 A_CS_SOURCE EPILOG
  107.  
  108. ; ----------------------------
  109. ; ******************************************
  110. ; *** This section is NOT used by RXLBOX ***
  111. ; ******************************************
  112. ;
  113. [CS_ON_NETWORK]
  114. SET UniqueID=( value( 'UniqueID' ,, 'OS2ENVIRONMENT' ) )
  115. SET InstID=( value( 'InstID',, 'OS2ENVIRONMENT' ) )
  116. SET SRVIFSRQPath=%OS2DRIVE%\CID\SRVIFSRQ
  117.  
  118. ; ----------------------------
  119. ; ******************************************
  120. ; *** This section is NOT used by RXLBOX ***
  121. ; ******************************************
  122. ;
  123. [CS_ON_HARDDISK]
  124.  
  125. ; ----------------------------
  126. ; ******************************************
  127. ; *** This section is NOT used by RXLBOX ***
  128. ; ******************************************
  129. ;
  130. [CS_ON_CDROM]
  131.  
  132. ; ----------------------------
  133. ; ******************************************
  134. ; *** This section is NOT used by RXLBOX ***
  135. ; ******************************************
  136. ;
  137. [PROLOG]
  138. SET tcp_id=(value( 'M_TCPID',, 'OS2ENVIRONMENT' ))
  139. SET pc_id=(clientID)
  140. SET pc_id1=(substr(clientID,2))
  141.  
  142. REM *** MPTS Data
  143. SET mptsaddress=('40001' || substr( clientID,2,7))
  144.  
  145. REM *** BKO Data
  146. SET BKODestAddress=('40004802108' || 8 + (pos( right( clientID,1 ), '02468ACE' ) = 0 ) )
  147.  
  148. SET Silent=1
  149. SET LocalDrive=A:
  150.  
  151. ; ----------------------------
  152. ; ******************************************
  153. ; *** This section is NOT used by RXLBOX ***
  154. ; ******************************************
  155. ;
  156. [LUDWIGSBURG]
  157. SET LOCATION=LUDWIGSBURG
  158. SET OG=
  159.  
  160. REM *** TCP/IP Data
  161. SET TCP_NET=10
  162. SET SUBNETADDRESS1=10.123.6
  163. SET SUBNETADDRESS2=10.122.24
  164. SET SUBNETADDRESS3=10.122.25
  165. SET ROUTERADDRESS1=10.123.6.250
  166. SET ROUTERADDRESS2=10.123.6.250
  167. SET ROUTERADDRESS3=10.123.6.250
  168. SET BROADCASTADDRESS1=10.123.6.0
  169. SET BROADCASTADDRESS2=10.122.24.0
  170. SET BROADCASTADDRESS3=10.122.25.0
  171. SET NETMASK=255.255.255.0
  172. REM SET NETID=6
  173. SET MTU=4400
  174. SET ROUTERMETRIC1=1
  175. SET ROUTERMETRIC2=1
  176. SET ROUTERMETRIC3=1
  177. SET TCPIPADDRESS=%SUBNETADDRESS1%.%TCP_ID%
  178.  
  179. REM *** Lan Server Data
  180. SET DOMAIN=0010033
  181.  
  182. ; ----------------------------
  183. ; ******************************************
  184. ; *** This section is NOT used by RXLBOX ***
  185. ; ******************************************
  186. ;
  187. [ESCHBORN_5.OG]
  188. SET LOCATION=ESCHBORN
  189. SET OG=5.OG
  190.  
  191. REM *** TCP/IP Data
  192. SET TCP_NET=10
  193. SET SUBNETADDRESS1=10.122.24
  194. SET SUBNETADDRESS2=10.122.25
  195. SET SUBNETADDRESS3=10.123.6
  196. SET ROUTERADDRESS1=10.122.24.250
  197. SET ROUTERADDRESS2=10.122.24.250
  198. SET ROUTERADDRESS3=10.122.24.251
  199. SET BROADCASTADDRESS1=10.122.24.0
  200. SET BROADCASTADDRESS2=10.122.25.0
  201. SET BROADCASTADDRESS3=10.123.6.0
  202. SET NETMASK=255.255.255.0
  203. REM SET NETID=5
  204. SET MTU=4400
  205. SET ROUTERMETRIC1=1
  206. SET ROUTERMETRIC2=1
  207. SET ROUTERMETRIC3=1
  208. SET TCPIPADDRESS=%SUBNETADDRESS1%.%TCP_ID%
  209.  
  210. REM *** Lan Server Data
  211. SET DOMAIN=0010044
  212.  
  213. ; ----------------------------
  214. ; ******************************************
  215. ; *** This section is NOT used by RXLBOX ***
  216. ; ******************************************
  217. ;
  218. [ESCHBORN_4.OG]
  219. SET LOCATION=ESCHBORN
  220. SET OG=4.OG
  221.  
  222. REM *** TCP/IP Data
  223. SET TCP_NET=10
  224. SET SUBNETADDRESS1=10.122.25
  225. SET SUBNETADDRESS2=10.122.24
  226. SET SUBNETADDRESS3=10.123.6
  227. SET ROUTERADDRESS1=10.122.25.250
  228. SET ROUTERADDRESS2=10.122.25.250
  229. SET ROUTERADDRESS3=10.122.25.250
  230. SET BROADCASTADDRESS1=10.122.25.0
  231. SET BROADCASTADDRESS2=10.122.24.0
  232. SET BROADCASTADDRESS3=10.123.6.0
  233. SET NETMASK=255.255.255.0
  234. REM SET NETID=5
  235. SET MTU=4400
  236. SET ROUTERMETRIC1=1
  237. SET ROUTERMETRIC2=1
  238. SET ROUTERMETRIC3=1
  239. SET TCPIPADDRESS=%SUBNETADDRESS1%.%TCP_ID%
  240.  
  241. REM *** Lan Server Data
  242. SET DOMAIN=0010055
  243.  
  244. ; ----------------------------
  245. ; ******************************************
  246. ; *** This section is NOT used by RXLBOX ***
  247. ; ******************************************
  248. ;
  249. [GERMAN]
  250. SET Language=049
  251. SET InstallLanguage=049
  252. SET WPSLanguage=049
  253. SET CountryCode=049
  254. SET CountryKeyboard=GR
  255.  
  256. ; ----------------------------
  257. ; ******************************************
  258. ; *** This section is NOT used by RXLBOX ***
  259. ; ******************************************
  260. ;
  261. [ENGLISH]
  262. SET Language=001
  263. SET InstallLanguage=001
  264. SET WPSLanguage=001
  265. SET CountryCode=001
  266. SET CountryKeyboard=US
  267.  
  268. ; ----------------------------
  269. ; ******************************************
  270. ; *** This section is NOT used by RXLBOX ***
  271. ; ******************************************
  272. ;
  273. [540_MB_HD_(1_partition)]
  274. SET FDISKFILE=540MB.DAT
  275. SET APPSDRIVE=C:
  276.  
  277. ; ----------------------------
  278. ; ******************************************
  279. ; *** This section is NOT used by RXLBOX ***
  280. ; ******************************************
  281. ;
  282. [1_GB_HD_(300/rest)]
  283. SET FDISKFILE=1GB.DAT
  284. SET APPSDRIVE=D:
  285.  
  286. ; ----------------------------
  287. ; ******************************************
  288. ; *** This section is NOT used by RXLBOX ***
  289. ; ******************************************
  290. ;
  291. [1_GB_HD_(300,300/rest)]
  292. SET FDISKFILE=1GB_SPEC.DAT
  293. SET APPSDRIVE=D:
  294.  
  295.  
  296. ; ----------------------------
  297. ; ******************************************
  298. ; *** This section is NOT used by RXLBOX ***
  299. ; ******************************************
  300. ;
  301. [2_GB_HD_(400/600/rest)]
  302. SET FDISKFILE=INTERNET.DAT
  303. SET APPSDRIVE=D:
  304.  
  305. ; ----------------------------
  306. ; ******************************************
  307. ; *** This section is NOT used by RXLBOX ***
  308. ; ******************************************
  309. ;
  310. [2_GB_HD_(400/600/rest)]
  311. SET FDISKFILE=INTERNET.DAT
  312. SET APPSDRIVE=D:
  313.  
  314. ; ----------------------------
  315. ; ******************************************
  316. ; *** This section is NOT used by RXLBOX ***
  317. ; ******************************************
  318. ;
  319. [2_GB_HD_(400,400/800/rest)]
  320. SET FDISKFILE=2GB_SPEC.DAT
  321. SET APPSDRIVE=D:
  322.  
  323. ; ----------------------------
  324. ; ******************************************
  325. ; *** This section is NOT used by RXLBOX ***
  326. ; ******************************************
  327. ;
  328. [2_GB_HD_(400/rest)]
  329. SET FDISKFILE=2GB.DAT
  330. SET APPSDRIVE=D:
  331.  
  332. ; ----------------------------
  333. ; ******************************************
  334. ; *** This section is NOT used by RXLBOX ***
  335. ; ******************************************
  336. ;
  337. [BOOTDRIVE_IS_C]
  338. SET BootDrive=C:
  339. SET OS2DriveLetter=C
  340. SET OS2Drive=C:
  341. SET WinOS2Drive=C:
  342. SET LogDrive=C:\CID
  343. SET WorkDrive=C:\CID
  344.  
  345. ; ----------------------------
  346. ; ******************************************
  347. ; *** This section is NOT used by RXLBOX ***
  348. ; ******************************************
  349. ;
  350. [VGA]
  351. REM * Set DISPLAY to 4 for VGA 
  352. SET Display=4
  353.  
  354. ; ----------------------------
  355. ; ******************************************
  356. ; *** This section is NOT used by RXLBOX ***
  357. ; ******************************************
  358. ;
  359. [XGA]
  360. SET Display=6
  361.  
  362. ; ----------------------------
  363. ; ******************************************
  364. ; *** This section is NOT used by RXLBOX ***
  365. ; ******************************************
  366. ;
  367. [S3]
  368. REM * Set DISPLAY to 4 (VGA) for S3
  369. SET Display=4
  370.  
  371. ; ----------------------------
  372. ; ******************************************
  373. ; *** This section is NOT used by RXLBOX ***
  374. ; ******************************************
  375. ;
  376. [ATI]
  377. REM * Set DISPLAY to 4 (VGA) for ATI
  378. SET Display=4
  379.  
  380. ; ----------------------------
  381. ; ******************************************
  382. ; *** This section is NOT used by RXLBOX ***
  383. ; ******************************************
  384. ;
  385. [Detect_Display]
  386. SET Display=0
  387.  
  388. ; ----------------------------
  389. ; ******************************************
  390. ; *** This section is NOT used by RXLBOX ***
  391. ; ******************************************
  392. ;
  393. [SCSI-CDROM]
  394. REM * 37 = Plextor and all other SCSI drives
  395. SET CDROM=37
  396.  
  397. ; ----------------------------
  398. ; ******************************************
  399. ; *** This section is NOT used by RXLBOX ***
  400. ; ******************************************
  401. ;
  402. [IDE-CDROM]
  403. REM * 51 = other IDE CD-ROM drives
  404. SET CDROM=51
  405.  
  406. ; ----------------------------
  407. ; ******************************************
  408. ; *** This section is NOT used by RXLBOX ***
  409. ; ******************************************
  410. ;
  411. [DETECT_CDROM]
  412. SET CDROM=1
  413.  
  414. ; ----------------------------
  415. ; ******************************************
  416. ; *** This section is NOT used by RXLBOX ***
  417. ; ******************************************
  418. ;
  419. [NO_CDROM]
  420. SET CDROM=0
  421.  
  422. ; ----------------------------
  423. ; ******************************************
  424. ; *** This section is NOT used by RXLBOX ***
  425. ; ******************************************
  426. ;
  427. [MULTIMEDIA_WITHOUT_SOUND]
  428. SET MultiMedia=1
  429. SET SoundAdapter=NOSOUND
  430. SET SoundSrcDir=
  431. SET SoundCard=
  432.  
  433. ; ----------------------------
  434. ; ******************************************
  435. ; *** This section is NOT used by RXLBOX ***
  436. ; ******************************************
  437. ;
  438. [NO_MULTIMEDIA]
  439. SET MultiMedia=0
  440. SET SoundAdapter=
  441. SET SoundSrcDir=
  442. SET SoundCard=
  443.  
  444. ; ----------------------------
  445. ; ******************************************
  446. ; *** This section is NOT used by RXLBOX ***
  447. ; ******************************************
  448. ;
  449. ; Multimedia with AWE Soundblaster AWE32
  450. [SOUNDBLASTER_AWE32]
  451. SET Multimedia=1
  452. SET SoundAdapter=AWE32
  453. SET SoundSrcDir=
  454. SET SoundCard=
  455.  
  456. ; ----------------------------
  457. ; ******************************************
  458. ; *** This section is NOT used by RXLBOX ***
  459. ; ******************************************
  460. ;
  461. ; Multimedia with AWE Soundblaster 16
  462. [SOUNDBLASTER_16]
  463. SET Multimedia=1
  464. SET SoundAdapter=SB16
  465. SET SoundSrcDir=
  466. SET SoundCard=
  467.  
  468. ; ----------------------------
  469. ; ******************************************
  470. ; *** This section is NOT used by RXLBOX ***
  471. ; ******************************************
  472. ;
  473. [CRYSTAL]
  474. SET Multimedia=1
  475. SET SoundAdapter=NOSOUND
  476. SET SoundSrcDir=CRYSTAL.121
  477. SET SoundCard=CRYSTAL
  478.  
  479. ; ----------------------------
  480. ; ******************************************
  481. ; *** This section is NOT used by RXLBOX ***
  482. ; ******************************************
  483. ;
  484. [ESS681]
  485. SET Multimedia=1
  486. SET SoundAdapter=NOSOUND
  487. SET SoundSrcDir=ESS688.201
  488. SET SoundCard=ESS681
  489.  
  490. ; ----------------------------
  491. ; ******************************************
  492. ; *** This section is NOT used by RXLBOX ***
  493. ; ******************************************
  494. ;
  495. [NO_PCMCIA]
  496. SET PCMCIA=0
  497.  
  498. ; ----------------------------
  499. ; ******************************************
  500. ; *** This section is NOT used by RXLBOX ***
  501. ; ******************************************
  502. ;
  503. [HP5500CT]
  504. SET NOTEBOOK=YES
  505. SET PCMCIA=22
  506. SET PCType=HP5500CT
  507.  
  508. ; ----------------------------
  509. ; ******************************************
  510. ; *** This section is NOT used by RXLBOX ***
  511. ; ******************************************
  512. ;
  513. [TP755C_CS]
  514. SET NOTEBOOK=YES
  515. SET PCMCIA=18
  516. SET PCType=TP755C
  517.  
  518. ; ----------------------------
  519. ; ******************************************
  520. ; *** This section is NOT used by RXLBOX ***
  521. ; ******************************************
  522. ;
  523. [TP755CE_CSE]
  524. SET NOTEBOOK=YES
  525. SET PCMCIA=19
  526. SET PCType=TP755CE
  527.  
  528. ; ----------------------------
  529. ; ******************************************
  530. ; *** This section is NOT used by RXLBOX ***
  531. ; ******************************************
  532. ;
  533. [TP760CD]
  534. SET NOTEBOOK=YES
  535. SET PCType=TP760CD
  536. SET PCMCIA=19
  537.  
  538. ; ----------------------------
  539. ; ******************************************
  540. ; *** This section is NOT used by RXLBOX ***
  541. ; ******************************************
  542. ;
  543. [PANASONIC]
  544. SET NOTEBOOK=YES
  545. SET PCMCIA=25
  546. SET PCType=PANASONIC
  547.  
  548. ; ----------------------------
  549. ; ******************************************
  550. ; *** This section is NOT used by RXLBOX ***
  551. ; ******************************************
  552. ;
  553. ; IBM Tokenring adapter for PS/2
  554. [IBMTOK]
  555. SET TRADAPTER=IBMTOK
  556. SET TR_RSPFILE=IBMTOK.RSP
  557.  
  558. ; ----------------------------
  559. ; ******************************************
  560. ; *** This section is NOT used by RXLBOX ***
  561. ; ******************************************
  562. ;
  563. ; IBM Tokenring adapter for 3COM
  564. [3COM]
  565. SET TRADAPTER=IBMTOK
  566. SET TR_RSPFILE=3COM.RSP
  567.  
  568. ; ----------------------------
  569. ; ******************************************
  570. ; *** This section is NOT used by RXLBOX ***
  571. ; ******************************************
  572. ;
  573. ; IBM PCMCIA Tokenring adapter for the Thinkpads
  574. [IBMTOKCS]
  575. SET TRADAPTER=IBMTOKCS
  576. SET TR_RSPFILE=IBMTOKCS.RSP
  577.  
  578. ; ----------------------------
  579. ; ******************************************
  580. ; *** This section is NOT used by RXLBOX ***
  581. ; ******************************************
  582. ;
  583. ; IBM PCMCIA Tokenring adapter for the HP Omnibook
  584. [IBMTOKC1]
  585. SET TRADAPTER=IBMTOKCS
  586. SET TR_RSPFILE=IBMTOKC1.RSP
  587.  
  588. ; ----------------------------
  589. ; ******************************************
  590. ; *** This section is NOT used by RXLBOX ***
  591. ; ******************************************
  592. ;
  593. ; IBM PCMCIA Tokenring adapter for the Panasonic
  594. [IBMTOKC2]
  595. SET TRADAPTER=IBMTOKC2
  596. SET TR_RSPFILE=IBMTOKC2.RSP
  597.  
  598. ; ----------------------------
  599. ; ******************************************
  600. ; *** This section is NOT used by RXLBOX ***
  601. ; ******************************************
  602. ;
  603. ; environment variables created by GETCFG.CMD
  604. ;
  605. [HARDWARE]
  606. SET __OSVersion    = ( value( '__OSVersion'    ,, 'OS2ENVIRONMENT' ) )
  607. SET __CSDLevel     = ( value( '__CSDLevel'     ,, 'OS2ENVIRONMENT' ) )
  608. SET __BIOSType     = ( value( '__BIOSType'     ,, 'OS2ENVIRONMENT' ) )
  609. SET __MachineType  = ( value( '__MachineType'  ,, 'OS2ENVIRONMENT' ) )
  610. SET __CPU          = ( value( '__CPU'          ,, 'OS2ENVIRONMENT' ) )
  611. SET __BusType      = ( value( '__BusType'      ,, 'OS2ENVIRONMENT' ) )
  612. SET __PointerType  = ( value( '__PointerType'  ,, 'OS2ENVIRONMENT' ) )
  613. SET __ComPorts     = ( value( '__COMPorts'     ,, 'OS2ENVIRONMENT' ) )
  614. SET __LPTPorts     = ( value( '__LPTPorts'     ,, 'OS2ENVIRONMENT' ) )
  615. SET __TokenRing    = ( value( '__TokenRing'    ,, 'OS2ENVIRONMENT' ) )
  616. SET __HardDisks    = ( value( '__HardDisks'    ,, 'OS2ENVIRONMENT' ) )
  617. SET __Memory       = ( value( '__Memory'       ,, 'OS2ENVIRONMENT' ) )
  618. SET __VideoAdapter = ( value( '__VideoAdapter' ,, 'OS2ENVIRONMENT' ) )
  619. SET __SCSI         = ( value( '__SCSI'         ,, 'OS2ENVIRONMENT' ) )
  620. SET __BIOSData     = ( value( '__BIOSData'     ,, 'OS2ENVIRONMENT' ) )
  621. SET __KeyBoard     = ( value( '__Keyboard'     ,, 'OS2ENVIRONMENT' ) )
  622. SET __CDROMDrives  = ( value( '__CDROMDrives'  ,, 'OS2ENVIRONMENT' ) )
  623.  
  624. ; ----------------------------
  625. ; ******************************************
  626. ; *** This section is NOT used by RXLBOX ***
  627. ; ******************************************
  628. ;
  629. [EPILOG]
  630. REM *** Default Network Adapter is IBM Tokenring-Adapter
  631.  
  632. IF "%TRADAPTER%" == "" SET TRADAPTER=IBMTOK
  633. IF "%msgColor%" == ""  SET msgColor=
  634.  
  635. REM *** check the PCMCIA variable
  636. IF "%TRADAPTER%" == "IBMTOK" GOTO Ende
  637. IF "%TRADAPTER%" == "3COM" GOTO Ende
  638. IF NOT "%PCMCIA%" == "0" GOTO Ende
  639. ECHO. %errorColor% *** WARNING: You've choosen the TR Adapter "%TRADPATER%" but %normalColor%
  640. ECHO. %errorColor%              you have NOT set the PCMCIA variable!%normalColor%
  641. ECHO.
  642. ECHO. %errorColor%    Now using the default for the PCMCIA variable (18 = IBM TP 755C) %normalColor%
  643. ECHO.
  644. IF NOT "%CAS_STATE%" == "" GOTO Ende
  645. PAUSE
  646. SET PCMCIA=18
  647. :Ende
  648.  
  649. ; --------------------------------------------------------------------
  650. ;
  651. ; Menu descriptions for RxLBox v1.20
  652. ;
  653. ; (see RXLBOX.MEM for a complete description of menu description files;
  654. ;  see RXLBOX.CMD for the usage description)
  655. ;
  656.  
  657. ; --------------------------------------------------------------------
  658. ; This is the main menu for RxLBox
  659. ;
  660. ; Note:
  661. ;
  662. ; All messages (except one or two) are read from the message file in
  663. ; the OnMainInit code of this menu and save in the stem MenuDesc..
  664. ; Therefore they are useable in all other REXX statements for RxLBox
  665. ; in this file.
  666. ;
  667. ; This menu uses environment variables beginning with "M_" to pass
  668. ; data to the calling program.
  669. ;
  670. [*MainMenu*]
  671. Title1             = { MenuDesc.__Msg0006 }
  672. Title2             = { MenuDesc.__Msg2001 }
  673. Title3             = { MenuDesc.__Msg2006 }
  674. StatusLine         = { MenuDesc.__Msg2007 }
  675. InputPrompt        = { MenuDesc.__Msg2003 }
  676. HelpPrompt         = { MenuDesc.__Msg2004 }
  677. ErrorPrompt        = { MenuDesc.__Msg2005 }
  678. CLS                = WHITE ON BLACK
  679. AcceptAllInput     = NO
  680. HelpForF1          = MAINHELP
  681. HelpForCTRL_F1     = KEYHELP
  682. HelpForALT_F1      = INPUTLINEHELP
  683.  
  684. MenuItem.#         = { MenuDesc.__Msg2008 value( 'M_MACHINETYPE', , 'OS2ENVIRONMENT' ) }
  685. Action.#           = #GotoMenu() MachineTypeMenu
  686.  
  687. MenuItem.#         = { MenuDesc.__Msg2014 value( 'M_FDISKFILE', , 'OS2ENVIRONMENT' ) }
  688. Action.#           = #GotoMenu() FdiskFileMenu
  689.  
  690. MenuItem.#         = ---------------------------------------------------------------------------
  691. Action.#           = #NOP
  692.  
  693. MenuItem.#         = { MenuDesc.__Msg2009 value( 'M_LOCATION', , 'OS2ENVIRONMENT' ) }
  694. Action.#           = #GotoMenu() LocationMenu
  695.  
  696. MenuItem.#         = { MenuDesc.__Msg2026 value( 'M_TCPID', , 'OS2ENVIRONMENT' ) }
  697. Action.#           = #GotoMenu() TCPIP_id_Menu
  698.  
  699. MenuItem.#         = { MenuDesc.__Msg2010 value( 'M_LANGUAGE', , 'OS2ENVIRONMENT' ) }
  700. Action.#           = #GotoMenu() LanguageMenu
  701.  
  702. MenuItem.#         = ---------------------------------------------------------------------------
  703. Action.#           = #NOP
  704.  
  705. MenuItem.#         = { MenuDesc.__Msg2016 }
  706. Action.#           = #GotoMenu() HardwareMenu
  707.  
  708. MenuItem.#         = ---------------------------------------------------------------------------
  709. Action.#           = #NOP
  710.  
  711. MenuItem.#         = { MenuDesc.__Msg2031 }
  712. Action.#           = #GotoMenu() SerialNoMenu
  713.  
  714. ; Init some variables and read the messages
  715. ;
  716. ; Note that OnMainInit is executed _before_ the menu is shown. Therefore
  717. ; we can use REXX variables defined in the OnMainInit code in the
  718. ; menu descriptions.
  719. ;
  720. OnMainInit         = \
  721.   call ShowWorkingMessage GetMsg1( 2030 ) ; \
  722.   MenuDesc.__Env = 'OS2ENVIRONMENT' ; \
  723.   MenuDesc.__Msg0006 = GetMsg1(    6 ) ; \
  724.   MenuDesc.__Msg2001 = GetMsg1( 2001 ) ; \
  725.   MenuDesc.__Msg2003 = GetMsg1( 2003 ) ; \
  726.   MenuDesc.__Msg2004 = GetMsg1( 2004 ) ; \
  727.   MenuDesc.__Msg2005 = GetMsg1( 2005 ) ; \
  728.   MenuDesc.__Msg2006 = GetMsg1( 2006 ) ; \
  729.   MenuDesc.__Msg2007 = GetMsg1( 2007 ) ; \
  730.   MenuDesc.__Msg2008 = GetMsg1( 2008 ) ; \
  731.   MenuDesc.__Msg2009 = GetMsg1( 2009 ) ; \
  732.   MenuDesc.__Msg2010 = GetMsg1( 2010 ) ; \
  733.   MenuDesc.__Msg2011 = GetMsg1( 2011 ) ; \
  734.   MenuDesc.__Msg2012 = GetMsg1( 2012 ) ; \
  735.   MenuDesc.__Msg2013 = GetMsg1( 2013 ) ; \
  736.   MenuDesc.__Msg2014 = GetMsg1( 2014 ) ; \
  737.   MenuDesc.__Msg2015 = GetMsg1( 2015 ) ; \
  738.   MenuDesc.__Msg2016 = GetMsg1( 2016 ) ; \
  739.   MenuDesc.__Msg2017 = GetMsg1( 2017 ) ; \
  740.   MenuDesc.__Msg2018 = GetMsg1( 2018 ) ; \
  741.   MenuDesc.__Msg2019 = GetMsg1( 2019 ) ; \
  742.   MenuDesc.__Msg2020 = GetMsg1( 2020 ) ; \
  743.   MenuDesc.__Msg2021 = GetMsg1( 2021 ) ; \
  744.   MenuDesc.__Msg2022 = GetMsg1( 2022 ) ; \
  745.   MenuDesc.__Msg2023 = GetMsg1( 2023 ) ; \
  746.   MenuDesc.__Msg2024 = GetMsg1( 2024 ) ; \
  747.   MenuDesc.__Msg2025 = GetMsg1( 2025 ) ; \
  748.   MenuDesc.__Msg2026 = GetMsg1( 2026 ) ; \
  749.   MenuDesc.__Msg2027 = GetMsg1( 2027 ) ; \
  750.   MenuDesc.__Msg2028 = GetMsg1( 2028 ) ; \
  751.   MenuDesc.__Msg2031 = GetMsg1( 2031 ) ; \
  752.   MenuDesc.__Msg2032 = GetMsg1( 2032 ) ; \
  753.   MenuDesc.__Msg2033 = GetMsg1( 2033 ) ; \
  754.   MenuDesc.__Msg2034 = GetMsg1( 2034 ) ; \
  755.   MenuDesc.__Msg2035 = GetMsg1( 2035 ) ; \
  756.   MenuDesc.__Msg2036 = GetMsg1( 2036 ) ; \
  757.   MenuDesc.__Msg2037 = GetMsg1( 2037 ) ; \
  758.   MenuDesc.__Msg2038 = GetMsg1( 2038 ) ; \
  759.   MenuDesc.__Msg2039 = GetMsg1( 2039 ) ; \
  760.   MenuDesc.__Msg2040 = GetMsg1( 2040 ) ; \
  761.   MenuDesc.__Msg2041 = GetMsg1( 2041 ) ; \
  762.   MenuDesc.__Msg2042 = GetMsg1( 2042 ) ; \
  763.   MenuDesc.__Msg2043 = GetMsg1( 2043 ) ; \
  764.   MenuDesc.__Msg2044 = GetMsg1( 2044 ) ; \
  765.   nop ;
  766.  
  767. ; --------------------------------------------------------------------
  768. [*SerialNoMenu*]
  769. Title1             = { MenuDesc.__Msg0006 }
  770. Title2             = { MenuDesc.__Msg2001 }
  771. Title3             = { MenuDesc.__Msg2032 }
  772. StatusLine         = { MenuDesc.__Msg2038 }
  773. InputPrompt        = { MenuDesc.__Msg2003 }
  774. HelpPrompt         = { MenuDesc.__Msg2004 }
  775. ErrorPrompt        = { MenuDesc.__Msg2005 }
  776. CLS                = WHITE ON BLACK
  777. AcceptAllInput     = NO
  778. HelpForF1          = MAINHELP
  779. HelpForCTRL_F1     = KEYHELP
  780. HelpForALT_F1      = TCPIP_id_InputLineHelp
  781.  
  782. MenuItem.#         = { MenuDesc.__Msg2033 value( 'M_MACHINE_TYPE',, MenuDesc.__Env ) }
  783. Action.#           = #UserInput() M_MACHINE_TYPE
  784. StatusLine.#       = { MenuDesc.__Msg2039 }
  785.  
  786. MenuItem.#         = { MenuDesc.__Msg2034 value( 'M_MODEL_NUM',, MenuDesc.__Env ) }
  787. Action.#           = #UserInput() M_MODEL_NUM
  788. StatusLine.#       = { MenuDesc.__Msg2040 }
  789.  
  790. MenuItem.#         = { MenuDesc.__Msg2036 value( 'M_PLANT_MFG',, MenuDesc.__Env ) }
  791. Action.#           = #UserInput() M_PLANT_MFG
  792. StatusLine.#       = { MenuDesc.__Msg2041 }
  793.  
  794. MenuItem.#         = { MenuDesc.__Msg2035 value( 'M_SERIAL_NUM',, MenuDesc.__Env ) }
  795. Action.#           = #UserInput() M_SERIAL_NUM
  796. StatusLine.#       = { MenuDesc.__Msg2042 }
  797.  
  798. MenuItem.#         = ---------------------------------------------------------------------------
  799. Action.#           = #NOP()
  800.  
  801. MenuItem.#         = { MenuDesc.__Msg2044 }
  802. Action.#           = #GOBACK()
  803. StatusLine.#       = { MenuDesc.__Msg2043 }
  804.  
  805. ; --------------------------------------------------------------------
  806. [*MachineTypeMenu*]
  807. Title1             = { MenuDesc.__Msg2006 }
  808. Title2             = { MenuDesc.__Msg2001 }
  809. Title3             = { MenuDesc.__Msg2011 }
  810. StatusLine         = { MenuDesc.__Msg2008 value( 'M_MACHINETYPE', , MenuDesc.__Env ) }
  811. InputPrompt        = { MenuDesc.__Msg2003 }
  812. HelpPrompt         = { MenuDesc.__Msg2004 }
  813. ErrorPrompt        = { MenuDesc.__Msg2005 }
  814. CLS                = WHITE ON BLACK
  815. AcceptAllInput     = NO
  816. HelpForF1          = MAINHELP
  817. HelpForCTRL_F1     = KEYHELP
  818. HelpForALT_F1      = INPUTLINEHELP
  819.  
  820. MenuItem.#         = Desktop PC
  821. Action.#           = #REXXCMD( GOBACK ) call value 'M_MACHINETYPE', 'Desktop PC', MenuDesc.__Env
  822.  
  823. MenuItem.#         = ---------------------------------------------------------------------------
  824. Action.#           = #NOP
  825.  
  826. MenuItem.#         = Pentium with Soundblaster AWE32
  827. Action.#           = #REXXCMD( GOBACK ) call value 'M_MACHINETYPE', 'Pentium w/ Soundblaster AWE32', MenuDesc.__Env
  828.  
  829. MenuItem.#         = Pentium with Soundblaster 16
  830. Action.#           = #REXXCMD( GOBACK ) call value 'M_MACHINETYPE', 'Pentium w/ Soundblaster 16', MenuDesc.__Env
  831.  
  832. MenuItem.#         = Pentium without Soundcard
  833. Action.#           = #REXXCMD( GOBACK ) call value 'M_MACHINETYPE', 'Pentium w/o Sound', MenuDesc.__Env
  834.  
  835. MenuItem.#         = IBM PS/2
  836. Action.#           = #REXXCMD( GOBACK ) call value 'M_MACHINETYPE', 'IBM PS/2', MenuDesc.__Env
  837.  
  838. MenuItem.#         = ---------------------------------------------------------------------------
  839. Action.#           = #NOP
  840.  
  841. MenuItem.#         = IBM Thinkpad 755C/CS
  842. Action.#           = #REXXCMD( GOBACK ) call value 'M_MACHINETYPE', 'IBM Thinkpad 755C/CS', MenuDesc.__Env
  843.  
  844. MenuItem.#         = IBM Thinkpad 755CE/CSE
  845. Action.#           = #REXXCMD( GOBACK ) call value 'M_MACHINETYPE', 'IBM Thinkpad 755CE/CSE' , MenuDesc.__Env
  846.  
  847. MenuItem.#         = IBM Thinkpad 760CD
  848. Action.#           = #REXXCMD( GOBACK ) call value 'M_MACHINETYPE', 'IBM Thinkpad 760CD' , MenuDesc.__Env
  849.  
  850. MenuItem.#         = HP Omnibook 5500 CT
  851. Action.#           = #REXXCMD( GOBACK ) call value 'M_MACHINETYPE', 'HP Omnibook 5500 CT' , MenuDesc.__Env
  852.  
  853. MenuItem.#         = Panasonic CF-42
  854. Action.#           = #REXXCMD( GOBACK ) call value 'M_MACHINETYPE', 'Panasonic CF-42' , MenuDesc.__Env
  855.  
  856. MenuItem.#         = ---------------------------------------------------------------------------
  857. Action.#           = #NOP
  858.  
  859. ; --------------------------------------------------------------------
  860. [*HardwareMenu*]
  861. Title1             = { MenuDesc.__Msg2006 }
  862. Title2             = { MenuDesc.__Msg2001 }
  863. Title3             = { MenuDesc.__Msg2016 }
  864. StatusLine         = { MenuDesc.__Msg2008 value( 'M_MACHINETYPE', , MenuDesc.__Env ) }
  865. InputPrompt        = { MenuDesc.__Msg2003 }
  866. HelpPrompt         = { MenuDesc.__Msg2004 }
  867. ErrorPrompt        = { MenuDesc.__Msg2005 }
  868. CLS                = WHITE ON BLACK
  869. AcceptAllInput     = NO
  870. HelpForF1          = MAINHELP
  871. HelpForCTRL_F1     = HardwareMenuKEYHELP
  872. HelpForALT_F1      = INPUTLINEHELP
  873.  
  874. ; suppress the internal menus in this menu
  875. Fkey8              =
  876. FKey11             =
  877. FKey12             =
  878.  
  879. MenuItem.#         = { MenuDesc.__Msg2017 value( 'M_DISPLAY' ,, MenuDesc.__Env ) }
  880. Action.#           = #GotoMenu() GraphicMenu
  881.  
  882. MenuItem.#         = { MenuDesc.__Msg2018 value( 'M_TRADAPTER' ,, MenuDesc.__Env ) }
  883. Action.#           = #GotoMenu() TRAdapterMenu
  884.  
  885. MenuItem.#         = { MenuDesc.__Msg2019 value( 'M_CDROM' ,, MenuDesc.__Env ) }
  886. Action.#           = #GotoMenu() CDROMMenu
  887.  
  888. MenuItem.#         = { MenuDesc.__Msg2020 value( 'M_SOUNDCARD' ,, MenuDesc.__Env ) }
  889. Action.#           = #GotoMenu() SoundCardMenu
  890.  
  891. ; save the initial values of the environment variables used in this
  892. ; menu only when the menu is called the first time
  893. ;
  894. OnInit             = \
  895.   if MenuDesc.__HWMenuInit = '' then ; \
  896.   do ; \
  897.     MenuDesc.__HWMenuInit = 1  ; \
  898.     MenuDesc.__Display =    value( 'M_DISPLAY'   ,, MenuDesc.__Env ) ; \
  899.     MenuDesc.__TRAdapter =  value( 'M_TRADAPTER' ,, MenuDesc.__Env ) ; \
  900.     MenuDesc.__CDROM =      value( 'M_CDROM'     ,, MenuDesc.__Env ) ; \
  901.     MenuDesc.__SOUNDCARD =  value( 'M_SOUNDCARD' ,, MenuDesc.__Env ) ; \
  902.   end
  903.  
  904. ; check if the users changed one of the values in this menu.
  905. ; If yes, we must change the PC Type to "Desktop PC" otherwise the
  906. ; changes are meaningless.
  907. ;
  908. ; Note the use of the variable !curCmd to check if OnExit is exeucted
  909. ; due to the call of another menu or because the user is leaving the menu
  910. ;
  911. OnExit             = \
  912.   if wordPos( !curCmd, ' #QUIT #QUIT() #GOBACK #GOBACK() ' ) <> 0 then ; \
  913.   do ; \
  914.     MenuDesc.__HWMenuInit = '' ; \
  915.     DesktopPCType = 'Desktop PC' ; \
  916.     pcTypOK = 1 ; \
  917.     if MenuDesc.__Display <>   value( 'M_DISPLAY'   ,, MenuDesc.__Env ) then ; \
  918.       pcTypOK = 0 ; \
  919.     if MenuDesc.__TRAdapter <> value( 'M_TRADAPTER' ,, MenuDesc.__Env ) then ; \
  920.       pcTypOK = 0 ; \
  921.     if MenuDesc.__CDROM <>     value( 'M_CDROM'     ,, MenuDesc.__Env ) then ; \
  922.       pcTypOK = 0 ; \
  923.     if MenuDesc.__SOUNDCARD <> value( 'M_SOUNDCARD' ,, MenuDesc.__Env ) then ; \
  924.       pcTypOK = 0 ; \
  925.     curPCType = value( 'M_MACHINETYPE', , MenuDesc.__Env ) ; \
  926.     if pcTypOK = 0 & curPCType <> DesktopPCType then ; \
  927.     do ; \
  928.       call value 'M_MACHINETYPE', DesktopPCType , MenuDesc.__Env ; \
  929.       call ShowWorkingMessage GetMsg1( 2029, "PC Type", "Desktop PC" ) ,0 ; \
  930.       say ; \
  931.       say '07'x || center( MenuDesc.__Msg2005 , 80 ) ; \
  932.       '@pause 2>NUL 1>NUL' ; \
  933.     end ; \
  934.   end ;
  935.  
  936. ; --------------------------------------------------------------------
  937. [*SoundCardMenu*]
  938. Title1             = { MenuDesc.__Msg0006 }
  939. Title2             = { MenuDesc.__Msg2001 }
  940. Title3             = { MenuDesc.__Msg2024 }
  941. StatusLine         = { MenuDesc.__Msg2020 value( 'M_SOUNDCARD', , MenuDesc.__Env ) }
  942. InputPrompt        = { MenuDesc.__Msg2003 }
  943. HelpPrompt         = { MenuDesc.__Msg2004 }
  944. ErrorPrompt        = { MenuDesc.__Msg2005 }
  945. CLS                = WHITE ON BLACK
  946. AcceptAllInput     = NO
  947. HelpForF1          = MAINHELP
  948. HelpForCTRL_F1     = KEYHELP
  949. HelpForALT_F1      = INPUTLINEHELP
  950.  
  951. MenuItem.#         = Soundblaster 16
  952. Action.#           = #REXXCMD( GOBACK ) call value 'M_SOUNDCARD', 'SOUNDBLASTER_16', MenuDesc.__Env
  953.  
  954. MenuItem.#         = Soundblaster AWE32
  955. Action.#           = #REXXCMD( GOBACK ) call value 'M_SOUNDCARD', 'SOUNDBLASTER_AWE32', MenuDesc.__Env
  956.  
  957. MenuItem.#         = Crystal Audio 1.2.1 (HP Omnibook)
  958. Action.#           = #REXXCMD( GOBACK ) call value 'M_SOUNDCARD', 'CRYSTAL', MenuDesc.__Env
  959.  
  960. MenuItem.#         = Audiodrive ESS2688 v2.0.1 (Panasonic Notebook)
  961. Action.#           = #REXXCMD( GOBACK ) call value 'M_SOUNDCARD', 'ESS681', MenuDesc.__Env
  962.  
  963. MenuItem.#         = ---------------------------------------------------------------------------
  964. Action.#           = #NOP
  965.  
  966. MenuItem.#         = Multimedia w/o Sound card
  967. Action.#           = #REXXCMD( GOBACK ) call value 'M_SOUNDCARD', 'MULTIMEDIA_WITHOUT_SOUND', MenuDesc.__Env
  968.  
  969. MenuItem.#         = No Multimedia at all
  970. Action.#           = #REXXCMD( GOBACK ) call value 'M_SOUNDCARD', 'NO_MULTIMEDIA', MenuDesc.__Env
  971.  
  972. ; --------------------------------------------------------------------
  973. [*CDROMMenu*]
  974. Title1             = { MenuDesc.__Msg0006 }
  975. Title2             = { MenuDesc.__Msg2001 }
  976. Title3             = { MenuDesc.__Msg2023 }
  977. StatusLine         = { MenuDesc.__Msg2019 value( 'M_CDROM', , MenuDesc.__Env ) }
  978. InputPrompt        = { MenuDesc.__Msg2003 }
  979. HelpPrompt         = { MenuDesc.__Msg2004 }
  980. ErrorPrompt        = { MenuDesc.__Msg2005 }
  981. CLS                = WHITE ON BLACK
  982. AcceptAllInput     = NO
  983. HelpForF1          = MAINHELP
  984. HelpForCTRL_F1     = KEYHELP
  985. HelpForALT_F1      = INPUTLINEHELP
  986.  
  987. MenuItem.#         = SCSI CDROM
  988. Action.#           = #REXXCMD( GOBACK ) call value 'M_CDROM', 'SCSI-CDROM', MenuDesc.__Env
  989.  
  990. MenuItem.#         = IDE CDROM
  991. Action.#           = #REXXCMD( GOBACK ) call value 'M_CDROM', 'IDE-CDROM', MenuDesc.__Env
  992.  
  993. MenuItem.#         = Autodetect CDROM
  994. Action.#           = #REXXCMD( GOBACK ) call value 'M_CDROM', 'DETECT_CDROM', MenuDesc.__Env
  995.  
  996. MenuItem.#         = No CDROM
  997. Action.#           = #REXXCMD( GOBACK ) call value 'M_CDROM', 'NO_CDROM', MenuDesc.__Env
  998.  
  999. ; --------------------------------------------------------------------
  1000. [*TRAdapterMenu*]
  1001. Title1             = { MenuDesc.__Msg0006 }
  1002. Title2             = { MenuDesc.__Msg2001 }
  1003. Title3             = { MenuDesc.__Msg2022 }
  1004. StatusLine         = { MenuDesc.__Msg2018 value( 'M_TRADAPTER', , MenuDesc.__Env ) }
  1005. InputPrompt        = { MenuDesc.__Msg2003 }
  1006. HelpPrompt         = { MenuDesc.__Msg2004 }
  1007. ErrorPrompt        = { MenuDesc.__Msg2005 }
  1008. CLS                = WHITE ON BLACK
  1009. AcceptAllInput     = NO
  1010. HelpForF1          = MAINHELP
  1011. HelpForCTRL_F1     = KEYHELP
  1012. HelpForALT_F1      = INPUTLINEHELP
  1013.  
  1014. MenuItem.#         = 3COM in IBM Tokenring adapter mode
  1015. Action.#           = #REXXCMD( GOBACK ) call value 'M_TRADAPTER', '3COM', MenuDesc.__Env
  1016.  
  1017. MenuItem.#         = IBM Tokenring adapter 16/4 for PS/2
  1018. Action.#           = #REXXCMD( GOBACK ) call value 'M_TRADAPTER', 'IBMTOK', MenuDesc.__Env
  1019.  
  1020. MenuItem.#         = IBM PCMCIA Tokenring adapter (Thinkpad configuration)
  1021. Action.#           = #REXXCMD( GOBACK ) call value 'M_TRADAPTER', 'IBMTOKCS', MenuDesc.__Env
  1022.  
  1023. MenuItem.#         = IBM PCMCIA Tokenring adapter (HP Omnibook configuration)
  1024. Action.#           = #REXXCMD( GOBACK ) call value 'M_TRADAPTER', 'IBMTOKC1', MenuDesc.__Env
  1025.  
  1026. MenuItem.#         = IBM PCMCIA Tokenring adapter (Panasonic configuration)
  1027. Action.#           = #REXXCMD( GOBACK ) call value 'M_TRADAPTER', 'IBMTOKC2', MenuDesc.__Env
  1028.  
  1029. ; --------------------------------------------------------------------
  1030. [*GraphicMenu*]
  1031. Title1             = { MenuDesc.__Msg0006 }
  1032. Title2             = { MenuDesc.__Msg2001 }
  1033. Title3             = { MenuDesc.__Msg2021 }
  1034. StatusLine         = { MenuDesc.__Msg2017 value( 'M_DISPLAY', , MenuDesc.__Env ) }
  1035. InputPrompt        = { MenuDesc.__Msg2003 }
  1036. HelpPrompt         = { MenuDesc.__Msg2004 }
  1037. ErrorPrompt        = { MenuDesc.__Msg2005 }
  1038. CLS                = WHITE ON BLACK
  1039. AcceptAllInput     = NO
  1040. HelpForF1          = MAINHELP
  1041. HelpForCTRL_F1     = KEYHELP
  1042. HelpForALT_F1      = INPUTLINEHELP
  1043.  
  1044. MenuItem.#         = VGA
  1045. Action.#           = #REXXCMD( GOBACK ) call value 'M_DISPLAY', 'VGA', MenuDesc.__Env
  1046.  
  1047. MenuItem.#         = XGA
  1048. Action.#           = #REXXCMD( GOBACK ) call value 'M_DISPLAY', 'XGA', MenuDesc.__Env
  1049.  
  1050. MenuItem.#         = S3
  1051. Action.#           = #REXXCMD( GOBACK ) call value 'M_DISPLAY', 'S3', MenuDesc.__Env
  1052.  
  1053. MenuItem.#         = ATI
  1054. Action.#           = #REXXCMD( GOBACK ) call value 'M_DISPLAY', 'ATI', MenuDesc.__Env
  1055.  
  1056. MenuItem.#         = Autodetect display adapter
  1057. Action.#           = #REXXCMD( GOBACK ) call value 'M_DISPLAY', 'Detect_Display', MenuDesc.__Env
  1058.  
  1059. ; --------------------------------------------------------------------
  1060. [*FdiskFileMenu*]
  1061. Title1             = { MenuDesc.__Msg0006 }
  1062. Title2             = { MenuDesc.__Msg2001 }
  1063. Title3             = { MenuDesc.__Msg2015 }
  1064. StatusLine         = { MenuDesc.__Msg2014 value( 'M_FDISKFILE', , MenuDesc.__Env ) }
  1065. InputPrompt        = { MenuDesc.__Msg2003 }
  1066. HelpPrompt         = { MenuDesc.__Msg2004 }
  1067. ErrorPrompt        = { MenuDesc.__Msg2005 }
  1068. CLS                = WHITE ON BLACK
  1069. AcceptAllInput     = NO
  1070. HelpForF1          = MAINHELP
  1071. HelpForCTRL_F1     = KEYHELP
  1072. HelpForALT_F1      = INPUTLINEHELP
  1073.  
  1074. MenuItem.#         = 2 GB Harddisk (C: 400 MB, D: Rest)
  1075. Action.#           = #REXXCMD( GOBACK ) call value 'M_FDISKFILE', '2_GB_HD_(400/rest)', MenuDesc.__Env
  1076.  
  1077. MenuItem.#         = 2 GB Harddisk, (C: 400 MB, D: 600, rest: free ) Internet-Partitioning
  1078. Action.#           = #REXXCMD( GOBACK ) call value 'M_FDISKFILE', '2_GB_HD_(400/600/rest)', MenuDesc.__Env
  1079.  
  1080. MenuItem.#         = 2 GB Harddisk, (C: 400,400 MB, D: 800, E: rest)
  1081. Action.#           = #REXXCMD( GOBACK ) call value 'M_FDISKFILE', '2_GB_HD_(400,400/800/rest)', MenuDesc.__Env
  1082.  
  1083. MenuItem.#         = 1 GB Harddisk (C: 300 MB, D: rest)
  1084. Action.#           = #REXXCMD( GOBACK ) call value 'M_FDISKFILE', '1_GB_HD_(200/rest)', MenuDesc.__Env
  1085.  
  1086. MenuItem.#         = 1 GB Harddisk, (C: 300,300 MB, D: rest)
  1087. Action.#           = #REXXCMD( GOBACK ) call value 'M_FDISKFILE', '1_GB_HD_(300,300/rest)', MenuDesc.__Env
  1088.  
  1089. MenuItem.#         = <1 GB Harddisk (C: ALL)
  1090. Action.#           = #REXXCMD( GOBACK ) call value 'M_FDISKFILE', '540_MB_HD_(1_partition)', MenuDesc.__Env
  1091.  
  1092. ; --------------------------------------------------------------------
  1093. [*LocationMenu*]
  1094. Title1             = { MenuDesc.__Msg0006 }
  1095. Title2             = { MenuDesc.__Msg2001 }
  1096. Title3             = { MenuDesc.__Msg2012 }
  1097. StatusLine         = { MenuDesc.__Msg2009 } value( 'M_LOCATION', , MenuDesc.__Env ) }
  1098. InputPrompt        = { MenuDesc.__Msg2003 }
  1099. HelpPrompt         = { MenuDesc.__Msg2004 }
  1100. ErrorPrompt        = { MenuDesc.__Msg2005 }
  1101. CLS                = WHITE ON BLACK
  1102. AcceptAllInput     = NO
  1103. HelpForF1          = MAINHELP
  1104. HelpForCTRL_F1     = KEYHELP
  1105. HelpForALT_F1      = INPUTLINEHELP
  1106.  
  1107. MenuItem.#         = Eschborn 5. OG
  1108. Action.#           = #REXXCMD( GOBACK ) call value 'M_LOCATION', 'ESCHBORN_5.OG', MenuDesc.__Env
  1109.  
  1110. MenuItem.#         = Eschborn 4. OG
  1111. Action.#           = #REXXCMD( GOBACK ) call value 'M_LOCATION', 'ESCHBORN_4.OG', MenuDesc.__Env
  1112.  
  1113. MenuItem.#         = Ludwigsburg
  1114. Action.#           = #REXXCMD( GOBACK ) call value 'M_LOCATION', 'LUDWIGSBURG', MenuDesc.__Env
  1115.  
  1116. ; --------------------------------------------------------------------
  1117. [*LanguageMenu*]
  1118. Title1             = { MenuDesc.__Msg0006 }
  1119. Title2             = { MenuDesc.__Msg2001 }
  1120. Title3             = { MenuDesc.__Msg2013 }
  1121. StatusLine         = { MenuDesc.__Msg2010 value( 'M_LANGUAGE', , MenuDesc.__Env ) }
  1122. InputPrompt        = { MenuDesc.__Msg2003 }
  1123. HelpPrompt         = { MenuDesc.__Msg2004 }
  1124. ErrorPrompt        = { MenuDesc.__Msg2005 }
  1125. CLS                = WHITE ON BLACK
  1126. AcceptAllInput     = NO
  1127. HelpForF1          = MAINHELP
  1128. HelpForCTRL_F1     = KEYHELP
  1129. HelpForALT_F1      = INPUTLINEHELP
  1130.  
  1131. MenuItem.#         = German
  1132. Action.#           = #REXXCMD( GOBACK ) call value 'M_LANGUAGE', 'GERMAN', MenuDesc.__Env
  1133.  
  1134. MenuItem.#         = US English
  1135. Action.#           = #REXXCMD( GOBACK ) call value 'M_LANGUAGE', 'ENGLISH', MenuDesc.__Env
  1136.  
  1137. ; --------------------------------------------------------------------
  1138. [*TCPIP_id_Menu*]
  1139. Title1             = { MenuDesc.__Msg0005 }
  1140. Title2             = { MenuDesc.__Msg2001 }
  1141. Title3             = { MenuDesc.__Msg2025 }
  1142. StatusLine         = { MenuDesc.__Msg2026 value( 'M_TCPID', , MenuDesc.__Env ) }
  1143. InputPrompt        = { MenuDesc.__Msg2003 }
  1144. HelpPrompt         = { MenuDesc.__Msg2004 }
  1145. ErrorPrompt        = { MenuDesc.__Msg2005 }
  1146. CLS                = WHITE ON BLACK
  1147. AcceptAllInput     = NO
  1148. HelpForF1          = MAINHELP
  1149. HelpForCTRL_F1     = KEYHELP
  1150. HelpForALT_F1      = TCPIP_id_INPUTLINEHELP
  1151. InputVar           = M_TCPID
  1152.  
  1153. OnInit             = MenuDesc.__saveIPId = value( 'M_TCPID',, MenuDesc.__Env )
  1154.  
  1155. ; check that the IP id is valid (0 <= ipID <= 254) before leaving
  1156. ; the menu
  1157. ;
  1158. OnExit             = \
  1159.   newtcpIPID = value( 'M_TCPID',, MenuDesc.__Env ) ; \
  1160.   inputOk = 1  ; \
  1161.   if datatype( newtcpIPID ) <> 'NUM' then  ; \
  1162.     inputOK = 0  ; \
  1163.   else ; \
  1164.     if newtcpIPID < 0 | newtcpIPID > 254 then ; \
  1165.       inputOK = 0 ; \
  1166.   if inputOK = 0 then  ; \
  1167.   do ; \
  1168.     'cls' ; \
  1169.     say ; \
  1170.     call ShowWorkingMessage MenuDesc.__Msg2028,0 ; \
  1171.     say ; \
  1172.     say '07'x || center( MenuDesc.__Msg2005, 80 ) ; \
  1173.     '@pause 2>NUL 1>NUL' ; \
  1174.     !curRC = 1 ; \
  1175.     call value 'M_TCPID', MenuDesc.__SaveIPID, MenuDesc.__Env ; \
  1176.   end /* if */ ; \
  1177.   nop ;
  1178.  
  1179. ; there must be at least one menu entry in every menu!
  1180. ;
  1181. MenuItem.#         = { MenuDesc.__Msg2027 }
  1182. Action.#           = #GoBack()
  1183.  
  1184. ; ----------------------------
  1185. ; Onlinehelp for F1 for all menus
  1186. ;
  1187. [<MainHelp>]
  1188.  
  1189. No help available at this time!
  1190.  
  1191. ---------------------------------
  1192.  
  1193. Use <CTRL-F1> to call the online help with the function key description.
  1194. Use <ALT-F1> to call the online help with the input line description.
  1195. [dummy section]
  1196.  
  1197. ; ----------------------------
  1198. ; Onlinehelp for CTRL-F1 for all menus (except the menu "HardwareMenu")
  1199. ;
  1200. [<KeyHelp>]
  1201. F1 - show the online help
  1202. ALT-F1 - show the input line description
  1203. CTRL-F1 - show the function key description
  1204.  
  1205. F8 - show macro list              F9 - refresh display
  1206. F11 - show list of all menus      F12 - show menu history list
  1207.  
  1208. F10 - Quit                        ESC - go one menu back
  1209.  
  1210. RETURN - choose the highlighted entry
  1211.  
  1212. Use the cursor keys, PgDn, PgUp, Home, End, CTRL-Home and CTRL-End
  1213. to scroll through the menu.
  1214. [dummy section]
  1215.  
  1216. ; ----------------------------
  1217. ; Onlinehelp for CTRL-F1 for the menu "HardwareMenu"
  1218. ; (In this menu the keys F8, F11 and F12 are not used)
  1219. ;
  1220. [<HardwareMenuKeyHelp>]
  1221. F1 - show the online help
  1222. ALT-F1 - show the input line description
  1223. CTRL-F1 - show the function key description
  1224.  
  1225. F9 - refresh display
  1226.  
  1227. F10 - Quit                        ESC - go one menu back
  1228.  
  1229. RETURN - choose the highlighted entry
  1230.  
  1231. Use the cursor keys, PgDn, PgUp, Home, End, CTRL-Home and CTRL-End
  1232. to scroll through the menu.
  1233. [dummy section]
  1234.  
  1235. ; ----------------------------
  1236. ; Onlinehelp for ALT-F1 all menus (except the menu TCPIP_id_menu)
  1237. ;
  1238. [<InputLineHelp>]
  1239. +n - scroll down n entries        -n scroll up n entries
  1240.  n - choose the entry n if its on the current page
  1241.      or
  1242.      jump to the entry if it's not on the current page
  1243.  
  1244.  *command - exeucte the OS/2 command 'command' (Preceed the command
  1245.             with another asterix '*' to wait after execution)
  1246.  
  1247.  macroName - execute the macro 'macroName'
  1248.  
  1249. ---------------------------------
  1250. Use <F1> to call the general online help
  1251. Use <CTRL-F1> to call the online help with the key description.
  1252. [dummy section]
  1253.  
  1254. ; ----------------------------
  1255. ; Onlinehelp for ALT-F1 the menu TCPIP_id_menu
  1256. ; (in this menu the navigation with numbers is disabled)
  1257. ;
  1258. [<TCPIP_id_InputLineHelp>]
  1259.  
  1260.  *command - exeucte the OS/2 command 'command' (Preceed the command
  1261.             with another asterix '*' to wait after execution)
  1262.  
  1263.  macroName - execute the macro 'macroName'
  1264.  
  1265. ---------------------------------
  1266. Use <F1> to call the general online help
  1267. Use <CTRL-F1> to call the online help with the key description.
  1268. [dummy section]
  1269.  
  1270. ; -------------------------------
  1271.  
  1272. ; --------------------------------------------------------------------
  1273.  
  1274.