home *** CD-ROM | disk | FTP | other *** search
/ ISV Strong Games / ISV_STRONG_GAMES.iso / flightsim / xwing / !X-Wing / !XWing (.txt) < prev    next >
RISC OS BBC BASIC V Source  |  1996-07-08  |  3KB  |  83 lines
  1.  > <XWing$Dir>.!XWing
  2. "Hourglass_Smash":
  3. " at line: ";
  4.  "<FST$Dir>.ShellLibRT"
  5.  "Hourglass_On"
  6.  "Wimp_SlotSize",-1,-1 
  7.  progsize%
  8. pagesize%=1<<10
  9. freespace%=&8000+progsize%
  10. =freespace%+pagesize%
  11. =freespace%
  12. shell_HeapManagerInit("<FST$Dir>.",freespace%)
  13. shell_Init
  14. 6task%=
  15. shell_WimpInit_I(200,"Event Shell Program")
  16.  PROCshell_TraceInit("")
  17.  PROCshell_TraceOn
  18. shell_ResourcesInit
  19. app_init
  20.  -------------------- Initialise Variables ----------------------------
  21. G_closedown%     =
  22.  Set this to TRUE when you want the program to
  23. !                       :
  24. Dchanged%        =
  25.  Used to keep track of whether the data has
  26. K                       :
  27.  been changed. Call PROCfile_changed() when it
  28. G                       :
  29.  has. But if the program does not use data
  30. H                       :
  31.  files just ignore this variable but do not
  32. G                       :
  33.  delete it as the program checks it before
  34.  &                       :
  35.  exiting!
  36.  -------------------- Miscelleanous Initialisation --------------------
  37. shell_Error
  38.  "Hourglass_Off"
  39. shell_Action(
  40. shell_Poll_I(0,task%))
  41.  _closedown%
  42. shell_Exit:
  43.  ======================================================================
  44. app_init
  45. SetUp_IconBar
  46. SetUp_Windows
  47. SetUp_Menus
  48. shell_InitHelpSystem(
  49. shell_GetAppDir+".Warfare",
  50. SetUp_IconBar
  51. 7]sicon=
  52. shell_Iconbar(-1,"!"+
  53. shell_GetAppName,"",120,"Warfare",0,0,0,"_menuselect_sicon")
  54. shell_AttachHelpTag(-1,sicon,"iconbar")
  55. shell_AttachClickSelect(-1,sicon,"_clickiconbar")
  56. SetUp_Windows
  57. shell_CreateWindowStatic("mainw",mainw%)
  58. SetUp_Menus
  59. shell_AttachMenuDBox("Warfare.Info","progInfo","_PreOpenInfo","")
  60. _PreOpenInfo(wh%)
  61. shell_IconPutData(wh%,4,
  62. shell_MessageNoArgs("progInfo0"),0)
  63. shell_IconPutData(wh%,6,
  64. shell_MessageNoArgs("progInfo1"),0)
  65. shell_IconPutData(wh%,5,
  66. shell_MessageNoArgs("progInfo2"),0)
  67. shell_IconPutData(wh%,7,
  68. shell_MessageNoArgs("progInfo3"),0)
  69. _menuselect_sicon(selection$)
  70.  v0%,v1%,v2%,v3%
  71.  selection$ 
  72.  "Start Game"
  73. RunGame
  74.  "Help"
  75. R'    
  76. shell_OpenWindowStatic(mainw%)
  77. shell_MessageNoArgs("Quit"):_closedown%=
  78. _clickiconbar(wh%,icon%)
  79. shell_OpenWindowStatic(mainw%)
  80. RunGame
  81. *<FST$Dir>.Loader
  82.  ================= End Of User Application ============================
  83.