Home » Personal collection » Acorn hard disk » apps » NetApps » !FreeTerm/!Run

!FreeTerm/!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 » Personal collection » Acorn hard disk » apps » NetApps
Filename: !FreeTerm/!Run
Read OK:
File size: 042C bytes
Load address: 0000
Exec address: 0000
File contents
| !Run file for !FreeTerm
|
Obey <Obey$Dir>.!Boot
Set TermFonts$Dir <Obey$Dir>
|
| *** Users of FreeNet should leave this line uncommented, users of other
|     stacks should comment it out.
|
|Set FreeTermConfig$Path "<FreeUser$Dir>.Files.FreeTerm."
|
| *** Users of stacks other than FreeNet should have this line uncommented.
|
Set FreeTermConfig$Path "<FreeTerm$Dir>.Config."
|
| *** The following variable should point at your standard services file.
|
Set FreeTermServices$File "<FreeTerm$Dir>.Files.Services"
|
RMEnsure UtilityModule 3.10 Sorry! This application is only suitable for machines running RISC OS 3.10 or later.
RMEnsure SharedCLibrary 0 System:modules.clib
RMEnsure SharedCLibrary 3.75 Error You need Clib 3.75 to run !FreeTerm
RMEnsure Internet 0 Error The Internet module must be present for FreeTerm to work.
RMEnsure ZapRedraw 0.20 RMLoad <FreeTerm$Dir>.ZapRedraw
|
If "<FreeTermConfig$Path>"="" then Error FreeTermConfig$Path has not been set, FreeTerm can't find configuration files.
|
WimpSlot -min 198k -max 198k
|
<FreeTerm$Dir>.!RunImage
00000000  7c 20 21 52 75 6e 20 66  69 6c 65 20 66 6f 72 20  || !Run file for |
00000010  21 46 72 65 65 54 65 72  6d 0a 7c 0a 4f 62 65 79  |!FreeTerm.|.Obey|
00000020  20 3c 4f 62 65 79 24 44  69 72 3e 2e 21 42 6f 6f  | <Obey$Dir>.!Boo|
00000030  74 0a 53 65 74 20 54 65  72 6d 46 6f 6e 74 73 24  |t.Set TermFonts$|
00000040  44 69 72 20 3c 4f 62 65  79 24 44 69 72 3e 0a 7c  |Dir <Obey$Dir>.||
00000050  0a 7c 20 2a 2a 2a 20 55  73 65 72 73 20 6f 66 20  |.| *** Users of |
00000060  46 72 65 65 4e 65 74 20  73 68 6f 75 6c 64 20 6c  |FreeNet should l|
00000070  65 61 76 65 20 74 68 69  73 20 6c 69 6e 65 20 75  |eave this line u|
00000080  6e 63 6f 6d 6d 65 6e 74  65 64 2c 20 75 73 65 72  |ncommented, user|
00000090  73 20 6f 66 20 6f 74 68  65 72 0a 7c 20 20 20 20  |s of other.|    |
000000a0  20 73 74 61 63 6b 73 20  73 68 6f 75 6c 64 20 63  | stacks should c|
000000b0  6f 6d 6d 65 6e 74 20 69  74 20 6f 75 74 2e 0a 7c  |omment it out..||
000000c0  0a 7c 53 65 74 20 46 72  65 65 54 65 72 6d 43 6f  |.|Set FreeTermCo|
000000d0  6e 66 69 67 24 50 61 74  68 20 22 3c 46 72 65 65  |nfig$Path "<Free|
000000e0  55 73 65 72 24 44 69 72  3e 2e 46 69 6c 65 73 2e  |User$Dir>.Files.|
000000f0  46 72 65 65 54 65 72 6d  2e 22 0a 7c 0a 7c 20 2a  |FreeTerm.".|.| *|
00000100  2a 2a 20 55 73 65 72 73  20 6f 66 20 73 74 61 63  |** Users of stac|
00000110  6b 73 20 6f 74 68 65 72  20 74 68 61 6e 20 46 72  |ks other than Fr|
00000120  65 65 4e 65 74 20 73 68  6f 75 6c 64 20 68 61 76  |eeNet should hav|
00000130  65 20 74 68 69 73 20 6c  69 6e 65 20 75 6e 63 6f  |e this line unco|
00000140  6d 6d 65 6e 74 65 64 2e  0a 7c 0a 53 65 74 20 46  |mmented..|.Set F|
00000150  72 65 65 54 65 72 6d 43  6f 6e 66 69 67 24 50 61  |reeTermConfig$Pa|
00000160  74 68 20 22 3c 46 72 65  65 54 65 72 6d 24 44 69  |th "<FreeTerm$Di|
00000170  72 3e 2e 43 6f 6e 66 69  67 2e 22 0a 7c 0a 7c 20  |r>.Config.".|.| |
00000180  2a 2a 2a 20 54 68 65 20  66 6f 6c 6c 6f 77 69 6e  |*** The followin|
00000190  67 20 76 61 72 69 61 62  6c 65 20 73 68 6f 75 6c  |g variable shoul|
000001a0  64 20 70 6f 69 6e 74 20  61 74 20 79 6f 75 72 20  |d point at your |
000001b0  73 74 61 6e 64 61 72 64  20 73 65 72 76 69 63 65  |standard service|
000001c0  73 20 66 69 6c 65 2e 0a  7c 0a 53 65 74 20 46 72  |s file..|.Set Fr|
000001d0  65 65 54 65 72 6d 53 65  72 76 69 63 65 73 24 46  |eeTermServices$F|
000001e0  69 6c 65 20 22 3c 46 72  65 65 54 65 72 6d 24 44  |ile "<FreeTerm$D|
000001f0  69 72 3e 2e 46 69 6c 65  73 2e 53 65 72 76 69 63  |ir>.Files.Servic|
00000200  65 73 22 0a 7c 0a 52 4d  45 6e 73 75 72 65 20 55  |es".|.RMEnsure U|
00000210  74 69 6c 69 74 79 4d 6f  64 75 6c 65 20 33 2e 31  |tilityModule 3.1|
00000220  30 20 53 6f 72 72 79 21  20 54 68 69 73 20 61 70  |0 Sorry! This ap|
00000230  70 6c 69 63 61 74 69 6f  6e 20 69 73 20 6f 6e 6c  |plication is onl|
00000240  79 20 73 75 69 74 61 62  6c 65 20 66 6f 72 20 6d  |y suitable for m|
00000250  61 63 68 69 6e 65 73 20  72 75 6e 6e 69 6e 67 20  |achines running |
00000260  52 49 53 43 20 4f 53 20  33 2e 31 30 20 6f 72 20  |RISC OS 3.10 or |
00000270  6c 61 74 65 72 2e 0a 52  4d 45 6e 73 75 72 65 20  |later..RMEnsure |
00000280  53 68 61 72 65 64 43 4c  69 62 72 61 72 79 20 30  |SharedCLibrary 0|
00000290  20 53 79 73 74 65 6d 3a  6d 6f 64 75 6c 65 73 2e  | System:modules.|
000002a0  63 6c 69 62 0a 52 4d 45  6e 73 75 72 65 20 53 68  |clib.RMEnsure Sh|
000002b0  61 72 65 64 43 4c 69 62  72 61 72 79 20 33 2e 37  |aredCLibrary 3.7|
000002c0  35 20 45 72 72 6f 72 20  59 6f 75 20 6e 65 65 64  |5 Error You need|
000002d0  20 43 6c 69 62 20 33 2e  37 35 20 74 6f 20 72 75  | Clib 3.75 to ru|
000002e0  6e 20 21 46 72 65 65 54  65 72 6d 0a 52 4d 45 6e  |n !FreeTerm.RMEn|
000002f0  73 75 72 65 20 49 6e 74  65 72 6e 65 74 20 30 20  |sure Internet 0 |
00000300  45 72 72 6f 72 20 54 68  65 20 49 6e 74 65 72 6e  |Error The Intern|
00000310  65 74 20 6d 6f 64 75 6c  65 20 6d 75 73 74 20 62  |et module must b|
00000320  65 20 70 72 65 73 65 6e  74 20 66 6f 72 20 46 72  |e present for Fr|
00000330  65 65 54 65 72 6d 20 74  6f 20 77 6f 72 6b 2e 0a  |eeTerm to work..|
00000340  52 4d 45 6e 73 75 72 65  20 5a 61 70 52 65 64 72  |RMEnsure ZapRedr|
00000350  61 77 20 30 2e 32 30 20  52 4d 4c 6f 61 64 20 3c  |aw 0.20 RMLoad <|
00000360  46 72 65 65 54 65 72 6d  24 44 69 72 3e 2e 5a 61  |FreeTerm$Dir>.Za|
00000370  70 52 65 64 72 61 77 0a  7c 0a 49 66 20 22 3c 46  |pRedraw.|.If "<F|
00000380  72 65 65 54 65 72 6d 43  6f 6e 66 69 67 24 50 61  |reeTermConfig$Pa|
00000390  74 68 3e 22 3d 22 22 20  74 68 65 6e 20 45 72 72  |th>"="" then Err|
000003a0  6f 72 20 46 72 65 65 54  65 72 6d 43 6f 6e 66 69  |or FreeTermConfi|
000003b0  67 24 50 61 74 68 20 68  61 73 20 6e 6f 74 20 62  |g$Path has not b|
000003c0  65 65 6e 20 73 65 74 2c  20 46 72 65 65 54 65 72  |een set, FreeTer|
000003d0  6d 20 63 61 6e 27 74 20  66 69 6e 64 20 63 6f 6e  |m can't find con|
000003e0  66 69 67 75 72 61 74 69  6f 6e 20 66 69 6c 65 73  |figuration files|
000003f0  2e 0a 7c 0a 57 69 6d 70  53 6c 6f 74 20 2d 6d 69  |..|.WimpSlot -mi|
00000400  6e 20 31 39 38 6b 20 2d  6d 61 78 20 31 39 38 6b  |n 198k -max 198k|
00000410  0a 7c 0a 3c 46 72 65 65  54 65 72 6d 24 44 69 72  |.|.<FreeTerm$Dir|
00000420  3e 2e 21 52 75 6e 49 6d  61 67 65 0a              |>.!RunImage.|
0000042c