Home » Archimedes archive » Archimedes World » AW-1991-08.adf » August91 » !AWAug91/Goodies/FontDraw/!Font>Draw/!Run

!AWAug91/Goodies/FontDraw/!Font>Draw/!Run

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-1991-08.adf » August91
Filename: !AWAug91/Goodies/FontDraw/!Font>Draw/!Run
Read OK:
File size: 02FF bytes
Load address: 0000
Exec address: 0000
File contents
| Run file for !Font>Draw
|
| � D.A.Littler 23rd February 1991
|
RMEnsure SharedCLibrary 3.66 RMLoad System:Modules.Clib
RMEnsure SharedCLibrary 3.66 Error 0 You need Clib 3.66 or later
RMEnsure FPEmulator 2.80 RMLoad System:Modules.FPEmulator
RMEnsure FPEmulator 2.80 Error 1 You need FPEmulator 2.80 or later
|
if "<Font$Prefix>" = "" then Error 2 Font$Prefix is not defined. Run the !Fonts application.
RMEnsure FontManager 2.42 RMLoad <Font$Prefix>.Fonts
RMEnsure SuperSample 0.04 RMLoad <Font$prefix>.Super
RMEnsure FontManager 2.42 Error 3 <Font$Prefix>.Fonts not present
RMEnsure SuperSample 0.04 Error 4 <Font$prefix>.Super not present
|
IconSprites <Obey$dir>.!sprites
Set Font_Draw$Dir <Obey$Dir>
WimpSlot -min 100k -max 100k
Run <Font_Draw$Dir>.!RunImage 
00000000  7c 20 52 75 6e 20 66 69  6c 65 20 66 6f 72 20 21  || Run file for !|
00000010  46 6f 6e 74 3e 44 72 61  77 0a 7c 0a 7c 20 a9 20  |Font>Draw.|.| . |
00000020  44 2e 41 2e 4c 69 74 74  6c 65 72 20 32 33 72 64  |D.A.Littler 23rd|
00000030  20 46 65 62 72 75 61 72  79 20 31 39 39 31 0a 7c  | February 1991.||
00000040  0a 52 4d 45 6e 73 75 72  65 20 53 68 61 72 65 64  |.RMEnsure Shared|
00000050  43 4c 69 62 72 61 72 79  20 33 2e 36 36 20 52 4d  |CLibrary 3.66 RM|
00000060  4c 6f 61 64 20 53 79 73  74 65 6d 3a 4d 6f 64 75  |Load System:Modu|
00000070  6c 65 73 2e 43 6c 69 62  0a 52 4d 45 6e 73 75 72  |les.Clib.RMEnsur|
00000080  65 20 53 68 61 72 65 64  43 4c 69 62 72 61 72 79  |e SharedCLibrary|
00000090  20 33 2e 36 36 20 45 72  72 6f 72 20 30 20 59 6f  | 3.66 Error 0 Yo|
000000a0  75 20 6e 65 65 64 20 43  6c 69 62 20 33 2e 36 36  |u need Clib 3.66|
000000b0  20 6f 72 20 6c 61 74 65  72 0a 52 4d 45 6e 73 75  | or later.RMEnsu|
000000c0  72 65 20 46 50 45 6d 75  6c 61 74 6f 72 20 32 2e  |re FPEmulator 2.|
000000d0  38 30 20 52 4d 4c 6f 61  64 20 53 79 73 74 65 6d  |80 RMLoad System|
000000e0  3a 4d 6f 64 75 6c 65 73  2e 46 50 45 6d 75 6c 61  |:Modules.FPEmula|
000000f0  74 6f 72 0a 52 4d 45 6e  73 75 72 65 20 46 50 45  |tor.RMEnsure FPE|
00000100  6d 75 6c 61 74 6f 72 20  32 2e 38 30 20 45 72 72  |mulator 2.80 Err|
00000110  6f 72 20 31 20 59 6f 75  20 6e 65 65 64 20 46 50  |or 1 You need FP|
00000120  45 6d 75 6c 61 74 6f 72  20 32 2e 38 30 20 6f 72  |Emulator 2.80 or|
00000130  20 6c 61 74 65 72 0a 7c  0a 69 66 20 22 3c 46 6f  | later.|.if "<Fo|
00000140  6e 74 24 50 72 65 66 69  78 3e 22 20 3d 20 22 22  |nt$Prefix>" = ""|
00000150  20 74 68 65 6e 20 45 72  72 6f 72 20 32 20 46 6f  | then Error 2 Fo|
00000160  6e 74 24 50 72 65 66 69  78 20 69 73 20 6e 6f 74  |nt$Prefix is not|
00000170  20 64 65 66 69 6e 65 64  2e 20 52 75 6e 20 74 68  | defined. Run th|
00000180  65 20 21 46 6f 6e 74 73  20 61 70 70 6c 69 63 61  |e !Fonts applica|
00000190  74 69 6f 6e 2e 0a 52 4d  45 6e 73 75 72 65 20 46  |tion..RMEnsure F|
000001a0  6f 6e 74 4d 61 6e 61 67  65 72 20 32 2e 34 32 20  |ontManager 2.42 |
000001b0  52 4d 4c 6f 61 64 20 3c  46 6f 6e 74 24 50 72 65  |RMLoad <Font$Pre|
000001c0  66 69 78 3e 2e 46 6f 6e  74 73 0a 52 4d 45 6e 73  |fix>.Fonts.RMEns|
000001d0  75 72 65 20 53 75 70 65  72 53 61 6d 70 6c 65 20  |ure SuperSample |
000001e0  30 2e 30 34 20 52 4d 4c  6f 61 64 20 3c 46 6f 6e  |0.04 RMLoad <Fon|
000001f0  74 24 70 72 65 66 69 78  3e 2e 53 75 70 65 72 0a  |t$prefix>.Super.|
00000200  52 4d 45 6e 73 75 72 65  20 46 6f 6e 74 4d 61 6e  |RMEnsure FontMan|
00000210  61 67 65 72 20 32 2e 34  32 20 45 72 72 6f 72 20  |ager 2.42 Error |
00000220  33 20 3c 46 6f 6e 74 24  50 72 65 66 69 78 3e 2e  |3 <Font$Prefix>.|
00000230  46 6f 6e 74 73 20 6e 6f  74 20 70 72 65 73 65 6e  |Fonts not presen|
00000240  74 0a 52 4d 45 6e 73 75  72 65 20 53 75 70 65 72  |t.RMEnsure Super|
00000250  53 61 6d 70 6c 65 20 30  2e 30 34 20 45 72 72 6f  |Sample 0.04 Erro|
00000260  72 20 34 20 3c 46 6f 6e  74 24 70 72 65 66 69 78  |r 4 <Font$prefix|
00000270  3e 2e 53 75 70 65 72 20  6e 6f 74 20 70 72 65 73  |>.Super not pres|
00000280  65 6e 74 0a 7c 0a 49 63  6f 6e 53 70 72 69 74 65  |ent.|.IconSprite|
00000290  73 20 3c 4f 62 65 79 24  64 69 72 3e 2e 21 73 70  |s <Obey$dir>.!sp|
000002a0  72 69 74 65 73 0a 53 65  74 20 46 6f 6e 74 5f 44  |rites.Set Font_D|
000002b0  72 61 77 24 44 69 72 20  3c 4f 62 65 79 24 44 69  |raw$Dir <Obey$Di|
000002c0  72 3e 0a 57 69 6d 70 53  6c 6f 74 20 2d 6d 69 6e  |r>.WimpSlot -min|
000002d0  20 31 30 30 6b 20 2d 6d  61 78 20 31 30 30 6b 0a  | 100k -max 100k.|
000002e0  52 75 6e 20 3c 46 6f 6e  74 5f 44 72 61 77 24 44  |Run <Font_Draw$D|
000002f0  69 72 3e 2e 21 52 75 6e  49 6d 61 67 65 20 0a     |ir>.!RunImage .|
000002ff