home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ARM Club 3
/
TheARMClub_PDCD3.iso
/
hensa
/
desktop
/
outlnwimp_1
/
!OutFiler
/
!Runimage
(
.txt
)
< prev
next >
Wrap
RISC OS BBC BASIC V Source
|
1995-11-21
|
1KB
|
25 lines
Patch for the filer to allow the use of outline fonts instead of the system
font. Must be used in conjunction with "OutLineWimp" module.
version 1.2 - 20th July 1994
Written by Andrew Sellors for RISC OS 3.1
This program is Shareware, see the !Help file for details
Unregistered Version
" at line ";
E%&8C*&400:
S%3*&400:Z%=
E:M%=!(Z%-4):W%=Z%+M%:
&A%=Z%:B%=E%:C%=M%:
S%:J%=E%+M%:
7?(E%+&46B)=43:$(E%+&46D)=
$,5,&B):?(E%+&478)=41:
8,&A,"<OutFiler$Dir>.^.NewFiler",&FFA,,E%,J%:
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:]:
F%,E$:
30,18,"Filer"
,,,Z%:F%=Z%+(Z%!20):E$=
$F%,8,4):
E$<>"1.64"
"Error Incorrect module version number. OutFiler only works with Filer v1.64"
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}:]:
Z:S=&496C3+&20000:Z=&496C4+&20000:A=&496C5+&20000: