Home » Archimedes archive » Archimedes World » AW-1993-07.adf » AWJuly93 » !AWJuly93/Goodies/Fontlist/!FontList/DumpList
!AWJuly93/Goodies/Fontlist/!FontList/DumpList
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 » Archimedes World » AW-1993-07.adf » AWJuly93 |
| Filename: | !AWJuly93/Goodies/Fontlist/!FontList/DumpList |
| Read OK: | ✔ |
| File size: | 014C bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10MODE 0 20PRINT"Creating list ....." 30PRINT 40*SPOOL <FONTLISTER$DIR>.RAWDump 50*FONTCAT 60*SPOOL 70INFILE%=OPENIN "<FONTLISTER$DIR>.RAWDump" 80OUTFILE%=OPENOUT "<FONTLISTER$DIR>.FontDump" 90REPEAT 100NAME$=GET$#INFILE% 110IF NAME$<>"" THEN 120BPUT#OUTFILE%,NAME$ 130ENDIF 140UNTIL EOF#INFILE% 150CLOSE#INFILE% 160CLOSE#OUTFILE% 170*DELETE <FONTLISTER$DIR>.RAWDUMP 180 190END
� 0 �"Creating list ....." � (#*SPOOL <FONTLISTER$DIR>.RAWDump 2 *FONTCAT < *SPOOL F(INFILE%=� "<FONTLISTER$DIR>.RAWDump" P*OUTFILE%=� "<FONTLISTER$DIR>.FontDump" Z� dNAME$=�#INFILE% n� NAME$<>"" � x�#OUTFILE%,NAME$ �� �� �#INFILE% � �#INFILE% ��#OUTFILE% �$*DELETE <FONTLISTER$DIR>.RAWDUMP � �� �
00000000 0d 00 0a 07 eb 20 30 0d 00 14 1a f1 22 43 72 65 |..... 0....."Cre| 00000010 61 74 69 6e 67 20 6c 69 73 74 20 2e 2e 2e 2e 2e |ating list .....| 00000020 22 0d 00 1e 05 f1 0d 00 28 23 2a 53 50 4f 4f 4c |".......(#*SPOOL| 00000030 20 3c 46 4f 4e 54 4c 49 53 54 45 52 24 44 49 52 | <FONTLISTER$DIR| 00000040 3e 2e 52 41 57 44 75 6d 70 0d 00 32 0c 2a 46 4f |>.RAWDump..2.*FO| 00000050 4e 54 43 41 54 0d 00 3c 0a 2a 53 50 4f 4f 4c 0d |NTCAT..<.*SPOOL.| 00000060 00 46 28 49 4e 46 49 4c 45 25 3d 8e 20 22 3c 46 |.F(INFILE%=. "<F| 00000070 4f 4e 54 4c 49 53 54 45 52 24 44 49 52 3e 2e 52 |ONTLISTER$DIR>.R| 00000080 41 57 44 75 6d 70 22 0d 00 50 2a 4f 55 54 46 49 |AWDump"..P*OUTFI| 00000090 4c 45 25 3d ae 20 22 3c 46 4f 4e 54 4c 49 53 54 |LE%=. "<FONTLIST| 000000a0 45 52 24 44 49 52 3e 2e 46 6f 6e 74 44 75 6d 70 |ER$DIR>.FontDump| 000000b0 22 0d 00 5a 05 f5 0d 00 64 13 4e 41 4d 45 24 3d |"..Z....d.NAME$=| 000000c0 be 23 49 4e 46 49 4c 45 25 0d 00 6e 11 e7 20 4e |.#INFILE%..n.. N| 000000d0 41 4d 45 24 3c 3e 22 22 20 8c 0d 00 78 14 d5 23 |AME$<>"" ...x..#| 000000e0 4f 55 54 46 49 4c 45 25 2c 4e 41 4d 45 24 0d 00 |OUTFILE%,NAME$..| 000000f0 82 05 cd 0d 00 8c 0f fd 20 c5 23 49 4e 46 49 4c |........ .#INFIL| 00000100 45 25 0d 00 96 0d d9 23 49 4e 46 49 4c 45 25 0d |E%.....#INFILE%.| 00000110 00 a0 0e d9 23 4f 55 54 46 49 4c 45 25 0d 00 aa |....#OUTFILE%...| 00000120 24 2a 44 45 4c 45 54 45 20 3c 46 4f 4e 54 4c 49 |$*DELETE <FONTLI| 00000130 53 54 45 52 24 44 49 52 3e 2e 52 41 57 44 55 4d |STER$DIR>.RAWDUM| 00000140 50 0d 00 b4 04 0d 00 be 05 e0 0d ff |P...........| 0000014c
.