home *** CD-ROM | disk | FTP | other *** search
/ Archive Magazine 1996 / ARCHIVE_96.iso / discs / mag_discs / volume_9 / issue_04 / whitworth / !KeyUtils / !RunImage (.txt) < prev    next >
RISC OS BBC BASIC V Source  |  1995-03-10  |  2KB  |  101 lines
  1.  KeyCurs
  2. finished=
  3. -t)>=1000 
  4.  killmods 
  5.  "XOS_CLI","RMKill CheatMod"
  6.  "Wimp_Poll",0,block% 
  7.  reason%
  8.  reason% 
  9.  17,18:
  10.  block%!16=0 finished=
  11.  finished
  12. closedown(taskid%)
  13.     cfs=
  14.  task% 4:$task%="TASK"
  15.  block% &400
  16. "<KeyUtils$Dir>.Status"
  17. kill$=
  18.  kill$="Y" 
  19.  killmods=
  20.  killmods=
  21. apps=
  22.  code$(apps),app$(apps)
  23.  a=1 
  24.  apps
  25. code$(a)=
  26. app$(a)=
  27. docs=
  28.  letter$(docs),doc$(docs)
  29.  a=1 
  30.  docs
  31. letter$(a)=
  32. doc$(a)=
  33. commands=
  34.  inkey(commands),com$(commands)
  35.  a=1 
  36.  commands
  37. inkey(a)=
  38. com$(a)=
  39.  inkey(a)=66 
  40.  0,'66' cannot be used as an inkey code
  41.  inkey(a)=102 
  42.  0,'102' cannot be used as an inkey code
  43. modes=
  44.  mode(modes)
  45.  a=1 
  46.  modes
  47. mode(a)=
  48. 4 taskid%=
  49. declare("KeyUtils")
  50. declare(task$)
  51.  taskid%
  52.  "Wimp_Initialise",200,!task%,task$ 
  53.  ,taskid%
  54. =taskid%
  55.  X,Y,B
  56.  X,Y+4
  57.  X,Y,B
  58.  X-4,Y
  59.  X,Y,B
  60. -122 
  61.  X+4,Y
  62.  X,Y,B
  63.  X,Y-4
  64. -17 finished=
  65.  1,-15,52,5
  66.  a=1 
  67.  commands
  68. -(inkey(a)) 
  69.  com$(a)<>"OpenFloppyRoot" 
  70.  com$(a)
  71.  "ADFS_DescribeDisc","0",block%,255
  72. name$=""
  73.  a=block%+22 
  74.  block%+22+9:
  75.  ?a>32 
  76.  name$+=
  77. (?a):
  78. N*com$="Filer_OpenDir ADFS::"+name$+".$"
  79.  com$
  80.  a=1 
  81.  docs
  82.  A$=letter$(a) 
  83. (letter$(a))+32) 
  84. run("NewDocs:"+doc$(a))
  85.  a=1 
  86.  apps
  87.  A$=code$(a) 
  88. (code$(a))+32) 
  89. run(app$(a))
  90. -102 
  91.  A>0 
  92.  A<modes+1 
  93.  "WimpMode "+
  94. (mode(A))
  95. closedown(tid%)
  96.  "Wimp_CloseDown",tid%,!task%
  97. open(dir$)
  98.  "Filer_OpenDir "+dir$
  99. run(a$)
  100.  "Filer_Run "+a$
  101.