home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 5 / DATAFILE_PDCD5.iso / utilities / t / tex / !BibTeX / !RunImage (.txt) < prev    next >
Encoding:
RISC OS BBC BASIC V Source  |  1994-11-17  |  3.6 KB  |  168 lines
  1.  This application is FreeWare. (c) 1994 Dick Alstein
  2. error
  3. quit%=
  4. 9pollmask%=(1<<0)+(1<<4)+(1<<5)+(1<<7)+(1<<11)+(1<<12)
  5.  "Wimp_Poll",pollmask%,blk% 
  6.  reason%
  7.  reason% 
  8. (    
  9.  2 : 
  10.  "Wimp_OpenWindow",,blk%
  11. )    
  12.  3 : 
  13.  "Wimp_CloseWindow",,blk%
  14. ?    
  15.  6 : 
  16. mouseclick(blk%!0,blk%!4,blk%!8,blk%!12,blk%!16)
  17. *    
  18.  8 : 
  19.  "Wimp_ProcessKey",blk%!24
  20.  9 : 
  21. menuselect(blk%)
  22. 1    
  23.  17,18 : 
  24. receive(blk%!4,blk%!8,blk%!16)
  25.  quit%
  26.  "Wimp_CloseDown"
  27. errbox(err$,boxes%)
  28. errblk%!0=0
  29. $(errblk%+4)=err$+
  30.  "Wimp_ReportError",errblk%,boxes%,Appl$ 
  31.  ,click%
  32. =(click%=1)
  33. error
  34.  "Wimp_CloseDown" : 
  35. errbox(
  36. $+" (line "+
  37. )+")",3) 
  38.  "Wimp_CloseDown"
  39. Appl$="BibTeX"
  40. &#ApplVersion$="1.00 (17-Nov-94)"
  41. ApplDir$="<BibTeX$Dir>"
  42.  errblk% &100
  43.  "Wimp_Initialise",200,&4B534154,Appl$ 
  44.  ,thistask%
  45. error
  46.  scrapblk% &100
  47.  blk% &500
  48. indsize%=&200
  49.  indir% indsize%
  50. indirend%=indir%+indsize%
  51. scrapblk%!0=-1
  52. 1!scrapblk%!4=0 : scrapblk%!8=0
  53. 2%scrapblk%!12=68 : scrapblk%!16=68
  54. scrapblk%!20=&7000301A
  55. $(scrapblk%+24)="!bibtex"
  56.  "Wimp_CreateIcon",,scrapblk% 
  57.  baricon%
  58.  "Wimp_OpenTemplate",,ApplDir$+".Templates"
  59. 7"infowin%=
  60. loadtemplate("Info")
  61. 8%$(blk%!(92+7*32+20))=ApplVersion$
  62.  "Wimp_CloseTemplate"
  63. initmenus
  64. subtask%=0
  65. initmenus
  66.  "MenuUtil_Initialise",010,0
  67.  "MenuUtil_New",,Appl$ 
  68.  mainmenu%
  69.  "MenuUtil_Add",mainmenu%,"Info" 
  70.  item_info%
  71.  "MenuUtil_Add",mainmenu%,"Quit" 
  72.  item_quit%
  73.  "MenuUtil_SubMenu",item_info%,infowin%
  74. loadtemplate(name$)
  75.  handle%
  76.  "Wimp_CloseTemplate" : 
  77. error
  78.  "Wimp_LoadTemplate",,blk%+4,indir%,indirend%,-1,name$,0 
  79.  ,,indir%
  80.  "Wimp_CreateWindow",,blk%+4 
  81.  handle%
  82. =handle%
  83. menuselect(selection%)
  84.  adjust%,selinfo%,itemnr%,item%,item$,parentitem%
  85.  "MenuUtil_Decode",mainmenu%,selection% 
  86.  ,adjust%,selinfo%
  87. itemnr%=selinfo%!0
  88. item%=selinfo%!8
  89. item$=
  90. str(selinfo%!12)
  91. parentitem%=selinfo%!24
  92.  item% 
  93.  item_quit%
  94.     quit%=
  95.  adjust% 
  96. showmenu(0)
  97. mouseclick(xpos%,ypos%,button%,wndw%,icon%)
  98.  wndw% 
  99.  button% 
  100.       
  101.         
  102. showmenu(blk%)
  103. d        
  104. parentdir(n$)
  105.  p%,d%
  106.   p%=
  107. n$,".",d%+1)
  108.  p%<>0 
  109.  d%=p%
  110.  p%=0
  111. n$,d%-1)
  112. receive(sender%,ref%,code%)
  113.  icon%,window%,name$,type%
  114.  sender% <> thistask% 
  115.  code% 
  116.       quit%=
  117. x     
  118.  3 : 
  119.  Message_DataLoad
  120.       window%=blk%!20
  121.       icon%=blk%!24
  122.       name$=
  123. str(blk%+44)
  124.       type%=blk%!40
  125. }=      
  126.  (window%=-2) 
  127.  (icon%=baricon%) 
  128.  (type%=&1000) 
  129. ~!        
  130.  acknowledge message
  131.         blk%!0=256
  132.         blk%!12=ref%
  133.         blk%!16=4
  134. 1        
  135.  "Wimp_SendMessage",17,blk%,sender%
  136.         
  137. runbibtex(name$)
  138.       
  139. *    
  140.  &400C3 : 
  141.  Message_TaskCloseDown
  142.       
  143.  sender%=subtask% 
  144. E        
  145.  task in taskwindow finished - restore current directory
  146.         
  147.  "Back"
  148.         subtask%=0
  149.       
  150. runbibtex(name$)
  151.  cmd$
  152. dblq$=
  153.  "Dir "+
  154. parentdir(name$)
  155. 2cmd$="TaskWindow "+dblq$+"bibtex "+name$+dblq$
  156. Hcmd$+=" -wimpslot 1048k  -display -quit -name "+dblq$+"BibTeX"+dblq$
  157.  "Wimp_StartTask",cmd$ 
  158.  subtask%
  159. showmenu(blkptr%)
  160.  "MenuUtil_Show",mainmenu%,blkptr%
  161. str(s%)
  162.  i%,n$
  163.  (s%?i%>=32) 
  164.  (i%<255)
  165.   n$+=
  166. (s%?i%)
  167.   i%+=1
  168.