Annotation 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	james	25	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