1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
|
PAGE 55,132 ;AN000;
NAME SELECT ;AN000;
TITLE SELECT - DOS - SELECT.EXE ;AN000;
SUBTTL SELECT7.asm ;AN000;
.ALPHA ;AN000;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
; SELECT7.ASM : Copyright 1988 Microsoft
;
; DATE: August 8/87
;
; COMMENTS: Assemble with MASM 3.0 (using the /A option)
;
; Panel flow is defined in the following files:
;
; � SELECT1.ASM
; ;AN000; SELECT2.ASM
; ;AN000; SELECT3.ASM
; ;AN000; SELECT4.ASM
; ;AN000; SELECT5.ASM
; ;AN000; SELECT6.ASM
;
;
; Module contains code for :
; - Format the drives
; - Copy files
;
; CHANGE HISTORY:
;
; ;AN009; DT added support for creation of the DOSSHELL.BAT as a
; separately installed file. (D233)
; ;AN002; GHG for P1146
; ;AN003; GHG for D234
; ;AN004; GHG for P65
; ;AN005; DT for single drive support
; ;AN006; JW for dos location choice (global or path only)
; ;AN007; JW fixed deletion of select.* when installation is to the root
; ;AN072; DT Overlay parser and pcinput if memory = 256KB
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
DATA SEGMENT BYTE PUBLIC 'DATA' ;AN000;
DATA ENDS ;AN000;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
.XLIST ;AN000;
INCLUDE PANEL.MAC ;AN000;
INCLUDE SELECT.INC ;AN000;
INCLUDE PAN-LIST.INC ;AN000;
INCLUDE CASTRUC.INC ;AN000;
INCLUDE STRUC.INC ;AN000;
INCLUDE MACROS.INC ;AN000;
INCLUDE MACROS7.INC ;AN009;DT
INCLUDE EXT.INC ;AN000;
INCLUDE VARSTRUC.INC ;AN000;
INCLUDE ROUT_EXT.INC ;AN000;
.LIST ;AN000;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
EXTRN DEALLOCATE_HELP:FAR ;AN000;DT
EXTRN DEALLOCATE_BLOCK:FAR ;AN000;DT
EXTRN ALLOCATE_BLOCK:FAR ;AN000;DT
EXTRN DEALLOCATE_MEMORY_CALL:FAR ;AN000;DT
EXTRN ALLOCATE_MEMORY_CALL:FAR ;AN000;DT
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
SELECT SEGMENT PARA PUBLIC 'SELECT' ;AN000;
ASSUME CS:SELECT,DS:DATA ;AN000;
;
INCLUDE CASEXTRN.INC ;AN000;
;
EXTRN EXIT_SELECT:near ;AN000;
EXTRN CREATE_CONFIG_SYS:NEAR ;AN000;
EXTRN CREATE_AUTOEXEC_BAT:NEAR ;AN000;
EXTRN CREATE_SHELL_BAT:NEAR ;AN009;DT
;
EXTRN EXIT_DOS:near ;AN004;GHG
EXTRN INSTALL_ERROR:near ;AN004;GHG
EXTRN EXIT_SELECT:NEAR ;AN004;GHG
EXTRN PROCESS_ESC_F3:near ;AN004;GHG
EXTRN EXIT_DOS_CONT:NEAR ;AN004;GHG
;
PUBLIC CONTINUE_360 ;AN000;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
; CODE CONTINUES.....
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;INSTALL 360KB DISKETTE;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
; Display copying files from INSTALL diskette
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
CONTINUE_360: ;AN000;
;;;
;;;
.IF < N_DISKETTE_A eq E_DISKETTE_360 > near ;AN000;
;
INIT_PQUEUE PAN_INSTALL_DOS ;AN000; initialize queue
PREPARE_PANEL SUB_COPYING ;AN000; prepare copying from diskette 2 message
DISPLAY_PANEL ;AN000;
;
.IF < MEM_SIZE eq 256 > ;AN000;DT
DEALLOCATE_MEMORY ;AN000;DT
.ENDIF ;AN000;DT
;
;;;S_STR120_1 = "a:*.* c:\path /a parameter for REPLACE
MERGE_STRING S_STR120_1,M_STR120_1,S_A_STARS,S_INSTALL_PATH ;AN000;
APPEND_STRING S_STR120_1,M_STR120_1,S_SLASH_A ;AN000;
;
; .IF < I_DESTINATION eq E_ENTIRE_DISK > ;AN006;JW
; .THEN ;AN006;
; ;;;S_STR120_3 = "a:*.* c:\ /s /r parameter for REPLACE
; COPY_STRING S_STR120_3,M_STR120_3,S_REPLACE_PAR1 ;AN006;JW
; .ELSE ;AN006;
;;;S_STR120_3 = "a:*.* c:\<path> parameter for REPLACE
MERGE_STRING S_STR120_3,M_STR120_3,S_A_STARS,S_INSTALL_PATH ;AN006;JW
APPEND_STRING S_STR120_3,M_STR120_3,S_SLASH_R ;AN000;JW
; .ENDIF ;AN006;
;
;;;change attributes of some files so they are not copied
CHANGE_ATTRIBUTE HIDE_STARTUP, E_HIDE_STARTUP ;AN000;
;
;;;replace files in drive C: with new files on INSTALL diskette
EXEC_PROGRAM S_REPLACE,S_STR120_3,PARM_BLOCK,EXEC_DIR ;AN006;JW
.IF c ;AN000;
.IF < MEM_SIZE eq 256 > ;AN000;DT
CALL GET_OVERLAY ;AN000;DT Get panels
.ENDIF ;AN000;
HANDLE_ERROR ERR_COPY_DISK, E_RETURN ;AN000;
RESTORE_ATTRIBUTE HIDE_STARTUP,E_HIDE_STARTUP ;AN000;
.ENDIF ;AN000;
;
;;;S_STR120_1 = "a:*.* C:\<path> /A" ;
;;;copy NEW files on INSTALL diskette to install path ;
EXEC_PROGRAM S_REPLACE,S_STR120_1,PARM_BLOCK,EXEC_DIR ;AN000; copy new files
.IF c ;AN000;
.IF < MEM_SIZE eq 256 > ;AN000;DT
CALL GET_OVERLAY ;AN000;DT Get panels
.ENDIF ;AN000;
HANDLE_ERROR ERR_COPY_DISK, E_RETURN ;AN000;
RESTORE_ATTRIBUTE HIDE_STARTUP,E_HIDE_STARTUP ;AN000;
.ENDIF ;AN000;
;
RESTORE_ATTRIBUTE HIDE_STARTUP,E_HIDE_STARTUP ;AN000;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
; Prompt the user to remove the INSTALL (source) diskette
; and insert the OPERATING 1 (source) diskette.
;
;;;;;;;;;;SHELL 360KB DISKETTE;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
.IF < MEM_SIZE eq 256 > ;AN000;DT
CALL GET_OVERLAY ;AN000;DT Get panels
.ENDIF ;AN000;
;
;;;insert OPERATING 1 diskette in drive A: ;
INSERT_DISK SUB_REM_SELECT_360, S_DOS_UTIL1_DISK ;AN000;JW
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
; Display copying files
;
; NOTE: The REPLACE command is now issued from the hard disk
; (since it is not found on any other disk)
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
INIT_PQUEUE PAN_INSTALL_DOS ;AN000; initialize queue
PREPARE_PANEL SUB_COPYING ;AN000; prepare copying from diskette 2 message
DISPLAY_PANEL ;AN000;
;
.IF < MEM_SIZE eq 256 > ;AN000;DT
DEALLOCATE_MEMORY ;AN000;DT
.ENDIF ;AN000;DT
;
;;;S_STR120_1 = "a:*.* c:\path /a parameter for REPLACE
MERGE_STRING S_STR120_1,M_STR120_1,S_A_STARS,S_INSTALL_PATH ;AN000;
APPEND_STRING S_STR120_1,M_STR120_1,S_SLASH_A ;AN000;
;
COMPARE_STRINGS S_INSTALL_PATH, S_DEST_DRIVE ;AN000; compare to C:\
.IF < nc > ;AN000; if the same
MERGE_STRING S_STR120_2,M_STR120_2,S_INSTALL_PATH,S_REPLACE ;AN000;
.ELSE ;AN000;
MERGE_STRING S_STR120_2,M_STR120_2,S_INSTALL_PATH,S_SLASH ;AN000;
APPEND_STRING S_STR120_2,M_STR120_2,S_REPLACE;AN000;
.ENDIF ;AN000;
;
;;;replace files in drive C: with new files on OPERATING 1 diskette
EXEC_PROGRAM S_STR120_2,S_STR120_3,PARM_BLOCK,EXEC_DIR ;AN006;JW
.IF c ;AN000;
.IF < MEM_SIZE eq 256 > ;AN000;DT
CALL GET_OVERLAY ;AN000;DT Get panels
.ENDIF ;AN000;
HANDLE_ERROR ERR_COPY_DISK, E_RETURN ;AN000;
.ENDIF ;AN000;
;
;;;S_STR120_1 = "a:*.* C:\<path> /A" ;
;;;copy NEW files on OPERATING 1 diskette to install path
EXEC_PROGRAM S_STR120_2,S_STR120_1,PARM_BLOCK,EXEC_DIR ;AN000; copy new files
.IF c ;AN000;
.IF < MEM_SIZE eq 256 > ;AN000;DT
CALL GET_OVERLAY ;AN000;DT Get panels
.ENDIF ;AN000;
HANDLE_ERROR ERR_COPY_DISK, E_RETURN ;AN000;
.ENDIF ;AN000;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
; insert the OPERATING #2 diskette.
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
.IF < MEM_SIZE eq 256 > ;AN000;DT
CALL GET_OVERLAY ;AN000;DT Get panels
.ENDIF ;AN000;DT
;
;;; insert OPERATING #2 diskette in drive A: ;
INSERT_DISK SUB_INS_OPER2, S_DOS_UTIL2_DISK ;AN000;JW
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
; Display copying files from OPERATING #2
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
INIT_PQUEUE PAN_INSTALL_DOS ;AN000; initialize queue
PREPARE_PANEL SUB_COPYING ;AN000; prepare copying from diskette 1 message
DISPLAY_PANEL ;AN000;
;
.IF < MEM_SIZE eq 256 > ;AN000;DT
DEALLOCATE_MEMORY ;AN000;DT
.ENDIF ;AN000;DT
;
;;;replace files in drive C: with new files on OPERATING 2 diskette
EXEC_PROGRAM S_STR120_2,S_STR120_3,PARM_BLOCK,EXEC_DIR ;AN006;JW
.IF c ;AN000;
.IF < MEM_SIZE eq 256 > ;AN000;DT
CALL GET_OVERLAY ;AN000;DT Get panels
.ENDIF ;AN000;
HANDLE_ERROR ERR_COPY_DISK, E_RETURN ;AN000;
.ENDIF ;AN000;
;
;;;S_STR120_1 = "a:*.* C:\<path> /A " ;
;;;copy NEW files on OPERATING 2 diskette to install path
EXEC_PROGRAM S_STR120_2,S_STR120_1,PARM_BLOCK,EXEC_DIR ;AN000; copy new files
.IF c ;AN000;
.IF < MEM_SIZE eq 256 > ;AN000;DT
CALL GET_OVERLAY ;AN000;DT Get panels
.ENDIF ;AN000;
HANDLE_ERROR ERR_COPY_DISK, E_RETURN ;AN000;
.ENDIF ;AN000;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
; insert the OPERATING #3 diskette.
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
.IF < MEM_SIZE eq 256 > ;AN000;DT
CALL GET_OVERLAY ;AN000;DT Get panels
.ENDIF ;AN000;DT
;
;;; insert OPERATING #3 diskette in drive A: ;
INSERT_DISK SUB_REM_UTIL1_360, S_DOS_UTIL3_DISK ;AN000;JW
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
; Display copying files from OPERATING #3
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
INIT_PQUEUE PAN_INSTALL_DOS ;AN000; initialize queue
PREPARE_PANEL SUB_COPYING ;AN000; prepare copying from diskette 1 message
DISPLAY_PANEL ;AN000;
;
.IF < MEM_SIZE eq 256 > ;AN000;DT
DEALLOCATE_MEMORY ;AN000;DT
.ENDIF ;AN000;DT
;
;;;replace files in drive C: with new files on OPERATING 2 diskette
EXEC_PROGRAM S_STR120_2,S_STR120_3,PARM_BLOCK,EXEC_DIR ;AN006;JW
.IF c ;AN000;
.IF < MEM_SIZE eq 256 > ;AN000;DT
CALL GET_OVERLAY ;AN000;DT Get panels
.ENDIF ;AN000;
HANDLE_ERROR ERR_COPY_DISK, E_RETURN ;AN000;
.ENDIF ;AN000;
;
;;;S_STR120_1 = "a:*.* C:\<path> /A " ;
;;;copy NEW files on OPERATING 2 diskette to install path
EXEC_PROGRAM S_STR120_2,S_STR120_1,PARM_BLOCK,EXEC_DIR ;AN000; copy new files
.IF c ;AN000;
.IF < MEM_SIZE eq 256 > ;AN000;DT
CALL GET_OVERLAY ;AN000;DT Get panels
.ENDIF ;AN000;
HANDLE_ERROR ERR_COPY_DISK, E_RETURN ;AN000;
.ENDIF ;AN000;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
; insert the SELECT diskette.
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
.IF < MEM_SIZE eq 256 > ;AN000;DT
CALL GET_OVERLAY ;AN000;DT Get panels
.ELSE ;AN000;DT
;;; insert the SELECT diskette in drive A ;
INSERT_DISK SUB_REM_SHELL_360, S_DOS_SEL_360 ;AN000;JW
.ENDIF ;AN000;DT
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
; Display copying files from SELECT diskette
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
INIT_PQUEUE PAN_INSTALL_DOS ;AN000; initialize queue
PREPARE_PANEL SUB_COPYING ;AN000; prepare copying from diskette 1 message
DISPLAY_PANEL ;AN000;
;
.IF < MEM_SIZE eq 256 > ;AN000;DT
DEALLOCATE_MEMORY ;AN000;DT
.ENDIF ;AN000;DT
;
;;;replace files in drive C: with new files on SELECT diskette
EXEC_PROGRAM S_STR120_2,S_STR120_3,PARM_BLOCK,EXEC_DIR ;AN006;JW
.IF c ;AN000;
.IF < MEM_SIZE eq 256 > ;AN000;DT
CALL GET_OVERLAY ;AN000;DT Get panels
.ENDIF ;AN000;
HANDLE_ERROR ERR_COPY_DISK, E_RETURN ;AN000;
.ENDIF ;AN000;
;
;;;S_STR120_1 = "a:*.* C:\<path> /A " ;
;;;copy new files on SELECT diskette to install path ;
EXEC_PROGRAM S_STR120_2,S_STR120_1,PARM_BLOCK,EXEC_DIR;AN000; copy new files
.IF c ;AN000;
.IF < MEM_SIZE eq 256 > ;AN000;DT
CALL GET_OVERLAY ;AN000;DT Get panels
.ENDIF ;AN000;
HANDLE_ERROR ERR_COPY_DISK, E_RETURN ;AN000;
.ENDIF ;AN000;
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
; maybe insert the SHELL diskette.
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
.IF < f_shell eq e_shell_yes > near
;
.IF < MEM_SIZE eq 256 > ;AN000;DT
CALL GET_OVERLAY ;AN000;DT Get panels
.ENDIF ;AN000;DT
;
INSERT_DISK SUB_INS_MSSHELL_A, S_DOS_SHEL_DISK ;AN000;JW
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
; Display copying files from SHELL diskette
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
INIT_PQUEUE PAN_INSTALL_DOS ;AN000; initialize queue
PREPARE_PANEL SUB_COPYING ;AN000; prepare copying from diskette 1 message
DISPLAY_PANEL ;AN000;
;
.IF < MEM_SIZE eq 256 > ;AN000;DT
DEALLOCATE_MEMORY ;AN000;DT
.ENDIF ;AN000;DT
;
;;;replace files in drive C: with new files on SHELL diskette
EXEC_PROGRAM S_STR120_2,S_STR120_3,PARM_BLOCK,EXEC_DIR ;AN006;JW
.IF c ;AN000;
.IF < MEM_SIZE eq 256 > ;AN000;DT
CALL GET_OVERLAY ;AN000;DT Get panels
.ENDIF ;AN000;
HANDLE_ERROR ERR_COPY_DISK, E_RETURN ;AN000;
.ENDIF ;AN000;
;
;;;S_STR120_1 = "a:*.* C:\<path> /A " ;
;;;copy NEW files on SHELL diskette to install path
EXEC_PROGRAM S_STR120_2,S_STR120_1,PARM_BLOCK,EXEC_DIR;AN000; copy new files
.IF c ;AN000;
.IF < MEM_SIZE eq 256 > ;AN000;DT
CALL GET_OVERLAY ;AN000;DT Get panels
.ENDIF ;AN000;
HANDLE_ERROR ERR_COPY_DISK, E_RETURN ;AN000;
.ENDIF ;AN000;
.endif ; optional shell support
;Delete select files from C: drive ;
COMPARE_STRINGS S_INSTALL_PATH, S_DEST_DRIVE ;AN007; compare to C:\
.IF < nc > ;AN007; if installed to the root
MERGE_STRING S_STR120_1,M_STR120_1,S_C_DRIVE,S_SELDAT_C ;AN000;
ERASE_FILE S_STR120_1 ;AN000;DT
MERGE_STRING S_STR120_1,M_STR120_1,S_C_DRIVE,S_SELEXE_C ;AN000;
ERASE_FILE S_STR120_1 ;AN000;DT
.ELSE near ;AN007; else installed to a directory
MERGE_STRING S_STR120_1,M_STR120_1,S_INSTALL_PATH,S_SELDAT_C ;AN000;
ERASE_FILE S_STR120_1 ;AN000;DT
MERGE_STRING S_STR120_1,M_STR120_1,S_INSTALL_PATH,S_SELEXE_C ;AN000;
ERASE_FILE S_STR120_1 ;AN000;DT
MERGE_STRING S_STR120_1,M_STR120_1,S_INSTALL_PATH,S_AUTOEX_C ;AN000;
ERASE_FILE S_STR120_1 ;AN000;DT
MERGE_STRING S_STR120_1,M_STR120_1,S_INSTALL_PATH,S_CONSYS_C ;AN000;
ERASE_FILE S_STR120_1 ;AN000;DT
.ENDIF ;AN007;
;
.ENDIF ;AN000;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;360KB;;;;360KB;;;;360KB;;;;360KB;;;;360KB;;;;360KB;;;;360KB;;
;
; End of 360KB support
;
; Installation completed. inform user to reboot
;
; Search for the installed CONFIG.340 , and
; we issue a different panel to describe the '.340' files.
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
.IF < MEM_SIZE eq 256 > ;AN000;DT
ALLOCATE_MEMORY ;AN000;DT
CALL INITIALIZE ;AN000;DT and read them in
.ENDIF ;AN000;DT
;
INIT_PQUEUE PAN_COMPLETE1 ;AN000; initialize queue
.IF < I_DESTINATION ne E_ENTIRE_DISK > ;AN010;JW
PREPARE_PANEL PAN_PARTIAL ;AN010;JW
.ELSE ;AN010;JW
FIND_FILE S_CONFIG_REN, E_FILE_ATTR ;AN003;GHG Look for '.340' files
.IF < c > ;AN003;GHG
PREPARE_PANEL SUB_COMP_VER ;AN003;GHG prepare DOS install message
.ELSE ;AN003;GHG
PREPARE_PANEL SUB_COMP_REP ;AN003;GHG prepare DOS Replace message
.ENDIF ;AN003;GHG
.ENDIF ;AN010;
;
PREPARE_PANEL SUB_COMP_KYS_1 ;AN000;
DISPLAY_PANEL ;AN000;
SAVE_PANEL_LIST ;AN000;
;
GET_FUNCTION FK_REBOOT ;AN000; User has to reboot
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
;
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
PUBLIC GET_OVERLAY ;AN000;
GET_OVERLAY PROC NEAR ;AN000;
.IF < N_DISKETTE_A ne E_DISKETTE_720 > ;AN063;SEH
CLEAR_SCREEN ;AN000;
DISPLAY_MESSAGE 12 ;AN000;DT Insert SELECT diskette
.REPEAT ;AN000;
GET_FUNCTION FK_ENT ;AN000; get user entered function
FIND_FILE S_DOS_SEL_360, E_FILE_ATTR ;AN000;
.LEAVE < nc > ;AN000;
DISPLAY_MESSAGE 11 ;AN000;DT Beep
.UNTIL ;AN000;
.ENDIF ;AN063;SEH
ALLOCATE_MEMORY ;AN000;DT
CALL INITIALIZE ;AN000;DT and read them in
RET ;AN000;
GET_OVERLAY ENDP ;AN000;
;
SELECT ENDS ;AN000;
END ;AN000;
|
