home *** CD-ROM | disk | FTP | other *** search
/ ISV Strong Games / ISV_STRONG_GAMES.iso / adventure / elite / ! / Loader (.txt) < prev    next >
RISC OS BBC BASIC V Source  |  1990-12-04  |  1KB  |  46 lines
  1.  Automatic Elite modifed run
  2.  By Richard Goodwin (richard@goodwin.uk.com)
  3.  for Acorn Arcade, http://www.acornarcade.com/
  4.  block% 256
  5.  "Wimp_Initialise",200,&4B534154,"Elite loader" 
  6.  ,taskhandle
  7. "OS_GetEnv" 
  8.  commander$
  9.     *instr%=
  10. lower(commander$),"loader""")
  11. $commander$=
  12. commander$,instr%+8)
  13.  SYS"OS_Byte",0,1 TO ,os%
  14. "OS_Byte",129,0,&FF 
  15.  ,os%
  16.  os%>&A4 
  17. "XOS_CLI","RMLoad <Elite$Dir>.Mods.!rjw_Sync.rjw_Sync"
  18.  os%<=&A4 
  19.  "Do you have a high resolution monitor (y/n)?";
  20.      A$=
  21. "YyNn",A$)>0
  22. "Yy",A$)>0 
  23. "XOS_CLI","RMLoad <Elite$Dir>.Mods.!rjw_Sync.rjw_Sync"
  24. "Wimp_ForceRedraw",-1,-1,-1,2000,1000
  25.  os%>=&A7 
  26. "XOS_CLI","Cache off"
  27. "OS_CLI","WimpTask Run <Elite$Dir>.MainRun "+commander$
  28.  os%>=&A7 
  29. "XOS_CLI","Cache ON"
  30. $(block%)="TASK"
  31. "Wimp_CloseDown",taskhandle,!block%
  32. lower(lower$)
  33.  lowerloop%,templower$,char%
  34.  lower$="" =""
  35. templower$=""
  36.  lowerloop%=1 
  37. (lower$)
  38. 1# char%=
  39. lower$,lowerloop%,1))
  40.  char%>=65 
  41.  char%<=90 char%+=32
  42.  templower$+=
  43. (char%)
  44.  lower$,templower$
  45. =lower$
  46.