/[james]/archive/createj/!CreateJ/Files/!Main
ViewVC logotype

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

Parent Directory Parent Directory | Revision Log Revision Log


Revision 26 - (hide annotations) (download)
Thu Mar 13 17:23:07 2003 UTC (21 years, 3 months ago) by james
File size: 816 byte(s)
Initial import.

1 james 26 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

  ViewVC Help
Powered by ViewVC 1.1.26