Contents of /archive/bootedit/BootEdit/Basic/Mess

REM > BootEditCode:Mess

DEF FNMessRec_3

 CASE B%!20 OF

  WHEN -2
   IF B%!40 <> &2000 THEN ERROR Erro_Warn%, "%NotBoot"
   Boot_Path$ = FNWimp_GetString(B% + 44)
    IF NOT(FNWimp_FileExists(Boot_Path$ + ".!Run")) OR NOT(FNWimp_FileExists(Boot_Path$ + ".Choices")) OR NOT(FNWimp_FileExists(Boot_Path$ + ".Resources")) OR NOT(FNWimp_FileExists(Boot_Path$ + ".Utils")) OR NOT(FNWimp_FileExists(Boot_Path$ + ".Library")) THEN
     ERROR Erro_Warn%, "%NotBoot"
    ENDIF
   PROCWind_SetTitle("Main", Boot_Path$)
   PROCWind_OpenC("Main")
   PROCWind_SetFocus("Main")
   Boot_Loaded% = TRUE

  WHEN FNObject_Hand(0, "BootPane", 0)

    CASE Boot_Editing% OF
     WHEN 1: PROCBoot_Load("PreDesktop")
     WHEN 2: PROCBoot_Copy("PreDesk")
     WHEN 3: PROCBoot_Load("Desktop")
     WHEN 4: PROCBoot_Copy("Tasks")
    ENDCASE

  OTHERWISE
   =0

 ENDCASE

B%!12 = B%!08
B%!16 = 4
SYS"Wimp_SendMessage", 17, B%, B%!04

=0

DEF FNMessUser_3
=FNMessRec_3
1	REM > BootEditCode:Mess
2
3	DEF FNMessRec_3
4
5	CASE B%!20 OF
6
7	WHEN -2
8	IF B%!40 <> &2000 THEN ERROR Erro_Warn%, "%NotBoot"
9	Boot_Path$ = FNWimp_GetString(B% + 44)
10	IF NOT(FNWimp_FileExists(Boot_Path$ + ".!Run")) OR NOT(FNWimp_FileExists(Boot_Path$ + ".Choices")) OR NOT(FNWimp_FileExists(Boot_Path$ + ".Resources")) OR NOT(FNWimp_FileExists(Boot_Path$ + ".Utils")) OR NOT(FNWimp_FileExists(Boot_Path$ + ".Library")) THEN
11	ERROR Erro_Warn%, "%NotBoot"
12	ENDIF
13	PROCWind_SetTitle("Main", Boot_Path$)
14	PROCWind_OpenC("Main")
15	PROCWind_SetFocus("Main")
16	Boot_Loaded% = TRUE
17
18	WHEN FNObject_Hand(0, "BootPane", 0)
19
20	CASE Boot_Editing% OF
21	WHEN 1: PROCBoot_Load("PreDesktop")
22	WHEN 2: PROCBoot_Copy("PreDesk")
23	WHEN 3: PROCBoot_Load("Desktop")
24	WHEN 4: PROCBoot_Copy("Tasks")
25	ENDCASE
26
27	OTHERWISE
28	=0
29
30	ENDCASE
31
32	B%!12 = B%!08
33	B%!16 = 4
34	SYS"Wimp_SendMessage", 17, B%, B%!04
35
36	=0
37
38	DEF FNMessUser_3
39	=FNMessRec_3