home *** CD-ROM | disk | FTP | other *** search
/ Acorn User 1 / AU_CD1.iso / demos / a_to_i / gwen / FloppyFont (.txt) next >
RISC OS BBC BASIC V Source  |  1994-04-09  |  625b  |  30 lines
  1.  >FloppyFont
  2.  task% 4
  3.  mess% 4
  4. $task% = "TASK"
  5. !mess% = 0
  6. D% = 37888
  7.  "Wimp_Initialise", 310, task%, "FloppyFont", mess%  
  8.  &20000 
  9.  &40783, "0" 
  10.  S%; F%
  11.  (F% 
  12.  1) = 0 
  13.  S% < D% 
  14. 9        
  15.  "XOS_ChangeDynamicArea", 5, D%-S% 
  16.  M%; F%
  17.         
  18. 5    
  19.  "XOS_ChangeDynamicArea", 5, D%-S% 
  20.  M%; F%
  21.  (F% 
  22.  1) = 1 
  23. 7    
  24.  "Wimp_ReportError", M%, %10110, "FloppyFont"
  25. J    
  26.  "OS_CLI", "Copy ADFS::TalkStory.$.!Fonts RAM::0.$.!Fonts r~v~c"
  27. *    
  28.  "OS_CLI", "Run RAM::0.$.!Fonts"
  29.  "Wimp_CloseDown", T%, task%
  30.