Contents of /archive/createj/!CreateJ/Files/!Main

REM > {!}.!Main

ON ERROR ON ERROR OFF: SYS"Hourglass_Smash": ERROR 0,"Error during initialisation: "+REPORT$+" ("+STR$ERL+")": END
SYS"Hourglass_On"
Task_Name$      = "{!}"
Task_ThrowBack% = TRUE

LIBRARY"JLibraries:Heap.2"
LIBRARY"JLibraries:Menu.6"
LIBRARY"JLibraries:Mess.2"
LIBRARY"JLibraries:Object.2"
LIBRARY"JLibraries:Sprite.2"
LIBRARY"JLibraries:String.1"
LIBRARY"JLibraries:Wimp.6"
LIBRARY"JLibraries:Wind.5"
LIBRARY"JLibraries:Debug.2"

PROCWimp_Init
LIBRARY"JLibraries:Libs.1": PROCLibs_Load(Task_Name$ + "Code:")
ON ERROR IF FNWimp_Error THEN END ELSE END
PROCInit
SYS"Hourglass_Off"

ON ERROR IF FNWimp_Error THEN Task_Quit% = TRUE

 WHILE NOT Task_Quit%
  PROCWimp_Poll
 ENDWHILE

ON ERROR ON ERROR OFF: ERROR 0,"Error whilst closing down: "+REPORT$+" ("+STR$ERL+")": END
PROCQuit
PROCWimp_Close
END
1	REM > {!}.!Main
2
3	ON ERROR ON ERROR OFF: SYS"Hourglass_Smash": ERROR 0,"Error during initialisation: "+REPORT$+" ("+STR$ERL+")": END
4	SYS"Hourglass_On"
5	Task_Name$ = "{!}"
6	Task_ThrowBack% = TRUE
7
8	LIBRARY"JLibraries:Heap.2"
9	LIBRARY"JLibraries:Menu.6"
10	LIBRARY"JLibraries:Mess.2"
11	LIBRARY"JLibraries:Object.2"
12	LIBRARY"JLibraries:Sprite.2"
13	LIBRARY"JLibraries:String.1"
14	LIBRARY"JLibraries:Wimp.6"
15	LIBRARY"JLibraries:Wind.5"
16	LIBRARY"JLibraries:Debug.2"
17
18	PROCWimp_Init
19	LIBRARY"JLibraries:Libs.1": PROCLibs_Load(Task_Name$ + "Code:")
20	ON ERROR IF FNWimp_Error THEN END ELSE END
21	PROCInit
22	SYS"Hourglass_Off"
23
24	ON ERROR IF FNWimp_Error THEN Task_Quit% = TRUE
25
26	WHILE NOT Task_Quit%
27	PROCWimp_Poll
28	ENDWHILE
29
30	ON ERROR ON ERROR OFF: ERROR 0,"Error whilst closing down: "+REPORT$+" ("+STR$ERL+")": END
31	PROCQuit
32	PROCWimp_Close
33	END