Home » Archimedes archive » Acorn Computing » 1994 02.adf » 9402 » FontManage/ListFonts
FontManage/ListFonts
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
| Tape/disk: | Home » Archimedes archive » Acorn Computing » 1994 02.adf » 9402 |
| Filename: | FontManage/ListFonts |
| Read OK: | ✔ |
| File size: | 0170 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
Duplicates
There is 1 duplicate copy of this file in the archive:
- Archimedes archive » Acorn Computing » 1994 02.adf » 9402 » FontManage/ListFonts
- Recent acquisitions » Acorn ADFS disks » adfs_AcornComputing_199402.adf » 9402 » FontManage/ListFonts
File contents
10REM > ListFonts 20REM Demonstrates how to read which fonts are available 30REM by Ben Summers 40 50REM set up a block to recieve the font name 60DIM fontid 256 70 80REM and then read the font names 90c% = 0 100REPEAT 110 SYS "Font_ListFonts",,fontid,c%,256 TO ,fontid$,c% 120 REM store the font handle somewhere rather than just printing it! 130 PRINT fontid$ 140UNTIL c% = -1 150
� > ListFonts 8� Demonstrates how to read which fonts are available � by Ben Summers ( 2-� set up a block to recieve the font name <� fontid 256 F P"� and then read the font names Z c% = 0 d� n6 ș "Font_ListFonts",,fontid,c%,256 � ,fontid$,c% xE � store the font handle somewhere rather than just printing it! � � fontid$ � � c% = -1 � �
00000000 0d 00 0a 11 f4 20 3e 20 4c 69 73 74 46 6f 6e 74 |..... > ListFont| 00000010 73 0d 00 14 38 f4 20 44 65 6d 6f 6e 73 74 72 61 |s...8. Demonstra| 00000020 74 65 73 20 68 6f 77 20 74 6f 20 72 65 61 64 20 |tes how to read | 00000030 77 68 69 63 68 20 66 6f 6e 74 73 20 61 72 65 20 |which fonts are | 00000040 61 76 61 69 6c 61 62 6c 65 0d 00 1e 14 f4 20 62 |available..... b| 00000050 79 20 42 65 6e 20 53 75 6d 6d 65 72 73 0d 00 28 |y Ben Summers..(| 00000060 04 0d 00 32 2d f4 20 73 65 74 20 75 70 20 61 20 |...2-. set up a | 00000070 62 6c 6f 63 6b 20 74 6f 20 72 65 63 69 65 76 65 |block to recieve| 00000080 20 74 68 65 20 66 6f 6e 74 20 6e 61 6d 65 0d 00 | the font name..| 00000090 3c 10 de 20 66 6f 6e 74 69 64 20 32 35 36 0d 00 |<.. fontid 256..| 000000a0 46 04 0d 00 50 22 f4 20 61 6e 64 20 74 68 65 6e |F...P". and then| 000000b0 20 72 65 61 64 20 74 68 65 20 66 6f 6e 74 20 6e | read the font n| 000000c0 61 6d 65 73 0d 00 5a 0a 63 25 20 3d 20 30 0d 00 |ames..Z.c% = 0..| 000000d0 64 05 f5 0d 00 6e 36 20 20 c8 99 20 22 46 6f 6e |d....n6 .. "Fon| 000000e0 74 5f 4c 69 73 74 46 6f 6e 74 73 22 2c 2c 66 6f |t_ListFonts",,fo| 000000f0 6e 74 69 64 2c 63 25 2c 32 35 36 20 b8 20 2c 66 |ntid,c%,256 . ,f| 00000100 6f 6e 74 69 64 24 2c 63 25 0d 00 78 45 20 20 f4 |ontid$,c%..xE .| 00000110 20 73 74 6f 72 65 20 74 68 65 20 66 6f 6e 74 20 | store the font | 00000120 68 61 6e 64 6c 65 20 73 6f 6d 65 77 68 65 72 65 |handle somewhere| 00000130 20 72 61 74 68 65 72 20 74 68 61 6e 20 6a 75 73 | rather than jus| 00000140 74 20 70 72 69 6e 74 69 6e 67 20 69 74 21 0d 00 |t printing it!..| 00000150 82 0f 20 20 f1 20 66 6f 6e 74 69 64 24 0d 00 8c |.. . fontid$...| 00000160 0d fd 20 63 25 20 3d 20 2d 31 0d 00 96 04 0d ff |.. c% = -1......| 00000170
.