Screen Open 0,640,200,16,Hires
Get Rom Fonts
For A=1 To 10
Set Font A : A$="Hello, I'm "+ Font$(A) : Text 0,100,A$
Wait Key : Cls
Next A
BANKFONT=101 : Rem bank number to store font in
Dload "Amiga_HD:ExtExaminer_8x8.font",BANKFONT : Rem load font file into bank
Bank Name BANKFONT,"BankFont" : Rem rename AMOS bank to something helpful (optional), NB: name always 8 characters long
Change Print Font BANKFONT : Rem Print font now changed
Print "New font being used!"
I know about AMCAF, but the AMOS Pro manual suggests that there is built-in support for custom text fonts, and even supplies an editor for creating them. It only fails to mention how they're loaded.Yes, the AMOS Pro Manual goes a bit off the rails at that point! It starts introducing the Text instructions alongside the Print instructions. Giving the impression that they can be freely mixed. They can't!
| Chr$($07) | Clear to EOL |
| Chr$($08) | Backspace |
| Chr$($09) | Tab |
| Chr$($0A) | New Line (=Cursor Down) |
| Chr$($0C) | Home |
| Chr$($0D) | Return (=Cursor to Start of Line) |
| Chr$($10) | Scroll Current Line Left |
| Chr$($11) | Scroll Window Left |
| Chr$($12) | Scroll Current Line Right |
| Chr$($13) | Scroll Window Right |
| Chr$($14) | Insert Line, Scroll Lines Below Down |
| Chr$($15) | Delete Line, Scroll Lines Above Down |
| Chr$($16) | Insert Line, Scroll Lines Above Up |
| Chr$($17) | Delete Line, Scroll Lines Below Up |
| Chr$($18) | Cursor Home |
| Chr$($19) | Clear Window |
| Chr$($1A) | Clear Line |
| Chr$($1B) | Escape - see below |
| Chr$($1C) | Cursor Right |
| Chr$($1D) | Cursor Left |
| Chr$($1E) | Cursor Up |
| Chr$($1F) | Cursor Down |
Bruceuncle, are you implying that I can replace Topaz.font and AMOS will use that instead?Yes. AMOS just loads whatever happens to be called topaz.font in the FONTS: assign. I wouldn't recommend that approach though as you'd affect everything on your Amiga that uses that font (unless you script it and reassign FONTS: whilst AMOS is running.