home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 5 / DATAFILE_PDCD5.iso / utilities / a / atlanta / !Atlanta / !AutoInst (.txt) next >
RISC OS BBC BASIC V Source  |  1997-04-12  |  2KB  |  64 lines
  1.  > !Atlanta.!AutoInst
  2.  Automatically install fonts in <Atlanta$Fonts>
  3.  Version 0.04
  4.  0.02 -> 0.03
  5.    Better error detection.
  6.    Renamed to !AutoInst
  7.  0.03 -> 0.04
  8.    Fixed to fit in with new system variable standard for Atlanta.
  9.  blk% 129:item% = 0
  10.  "XHourglass_On"
  11.  "XTerritory_Number" 
  12.  territory%
  13. *messages$   = "Messages"+
  14. (territory%)
  15. "dir_prefix$ = "Atlanta_Fonts_"
  16. 'path$       = "<Atlanta$Dir>.Fonts"
  17.  lp% = 0 
  18.  "XOS_File",17,path$+".~f"+
  19. (lp%) 
  20.  f% = 2 
  21. -    sys$ = dir_prefix$+"f"+
  22. (lp%)+"$Path"
  23. +    
  24.  "XOS_CLI","FontRemove "+sys$+":"
  25.  "XOS_File",17,path$ 
  26.  f%;flags%
  27.  (flags% 
  28.  f% = 0
  29.  f% > 1 
  30. #>    
  31.  "OS_GBPB",12,path$,blk%,1,item%,128,0 
  32.  ,,,r%,item%
  33.  r% > 0 
  34.       
  35.  blk%!16 = 2 
  36. &1        
  37.  "XOS_GenerateError",blk%+24 
  38.  dir$
  39. '/        sys$ = dir_prefix$+
  40. dir$,2)+"$Path"
  41. (;        
  42.  "XOS_CLI","Set "+sys$+" "+path$+"."+dir$+"."
  43. )?        
  44.  "XOS_CLI","FontRemove "+dir_prefix$+
  45. dir$,2)+":"
  46. *E        
  47.  "XOS_File",17,path$+"."+dir$+"."+messages$ 
  48.  f%;flags%
  49.         
  50.  f% = 0 
  51. ,:          
  52.  "XOS_File",7,path$+"."+dir$+"."+messages$
  53. -@          
  54.  "XOS_File",18,path$+"."+dir$+"."+messages$,&FFF
  55.         
  56. /@        
  57.  "XOS_CLI","FontInstall "+dir_prefix$+
  58. dir$,2)+":"
  59.       
  60. 1        
  61.  item% = -1
  62.  "XHourglass_Off"
  63. ("Error AutoInst can not find Atlanta's configured font store.")
  64.