home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 4 / DATAFILE_PDCD4.iso / utilities / utilsm / outlinwimp / !OutFiler / !Runimage (.txt) < prev    next >
Encoding:
RISC OS BBC BASIC V Source  |  1995-11-21  |  1.1 KB  |  25 lines
  1.  Patch for the filer to allow the use of outline fonts instead of the system
  2.  font. Must be used in conjunction with "OutLineWimp" module.
  3.  version 1.2 - 20th July 1994
  4.  Written by Andrew Sellors for RISC OS 3.1
  5.  This program is Shareware, see the !Help file for details
  6.  Unregistered Version
  7. " at line ";
  8.  E%&8C*&400:
  9.  S%3*&400:Z%=
  10. E:M%=!(Z%-4):W%=Z%+M%:
  11. &A%=Z%:B%=E%:C%=M%:
  12.  S%:J%=E%+M%:
  13. 7?(E%+&46B)=43:$(E%+&46D)=
  14. $,5,&B):?(E%+&478)=41:
  15. 8,&A,"<OutFiler$Dir>.^.NewFiler",&FFA,,E%,J%:
  16. 2:P%=E%+7148:[OPTE:SWI A:]:P%=E%+7204:[OPTE:SWI A:]:P%=E%+7212:[OPTE:SWI S:]:P%=E%+7272:[OPTE:SWI A:]:P%=E%+7318:[OPTE:SWI Z:]:P%=E%+7272:[OPTE:SWI A:]:P%=E%+7340:[OPTE:SWI Z:]:P%=E%+7476:[OPTE:SWI A:]:
  17.  F%,E$:
  18. 30,18,"Filer"
  19. ,,,Z%:F%=Z%+(Z%!20):E$=
  20. $F%,8,4):
  21.  E$<>"1.64"
  22. "Error Incorrect module version number. OutFiler only works with Filer v1.64"
  23. 2:P%=S%:L%=S%+3*&400:[OPTE:STMFD&D!,{0-4,&E}:MOV4,#0:.M:LDR3,[0,4]:STR3,[1,4]:CMP2,4:ADDGT4,4,#4:BGT M:LDMFD&D!,{0-4,pc}:]:
  24. Z:S=&496C3+&20000:Z=&496C4+&20000:A=&496C5+&20000:
  25.