Home » Recent acquisitions » Acorn ADFS disks » adfs_AcornUser_199512_2.adf » !Regulars » Regulars/StarInfo/Miskin/!Today/Docs/RISCOS-V1
Regulars/StarInfo/Miskin/!Today/Docs/RISCOS-V1
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 » Recent acquisitions » Acorn ADFS disks » adfs_AcornUser_199512_2.adf » !Regulars |
| Filename: | Regulars/StarInfo/Miskin/!Today/Docs/RISCOS-V1 |
| Read OK: | ✔ |
| File size: | 05B1 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
Program : Archimedes Today
Release : 1.00
Date : 29-Aug-1990
Well here's summat - a wee prog to put amazing things on the screen that
you always wanted to know. Basically I pulled the program off the NPDSA
at Lancaster a while back and put it in my autoexec.bat in the PCE.
Yesterday I wrote the Archimedes version as it seemed like a good idea at
the time. It works ok as far as Ive tested it.
See the PC documentation for a full description of what happens. Note that
this version doesnt take params like the PC one - just couldnt be bothered
to put the code in today.
The absolute included looks in "library:TodayData.xxx" where xxx is the
current month ie 'aug' and then afterwards in 'own'.
library: wassat? I hear someone scream. Well its the env variable
'<Library$Path>' ie summat like 'adfs::HardDisc4.$.!System.Library.'.
The more awake of you out there may recognise the messages as being the same
ones as displayed by many BBS systems including Hugo Fiennes' piece of
resistance.
If you want to use it inside the PCE then read the original docs, rename the
files and all that...
Have lots of fun with this.. (well try to anyway).
ttfn,
James Noad.
Cryton: #65
Janet : j.noad@uk.ac.uea.cpcmc } If this dont work mail
UUCP : j.noad%cpcmc.uea.ac.uk@ukc.uucp } postmaster@uk.ac.uea.cpc865 and
} get him to help you find me.
00000000 0a 50 72 6f 67 72 61 6d 20 20 3a 20 41 72 63 68 |.Program : Arch| 00000010 69 6d 65 64 65 73 20 54 6f 64 61 79 0a 0a 52 65 |imedes Today..Re| 00000020 6c 65 61 73 65 20 20 3a 20 31 2e 30 30 0a 0a 44 |lease : 1.00..D| 00000030 61 74 65 20 20 20 20 20 3a 20 32 39 2d 41 75 67 |ate : 29-Aug| 00000040 2d 31 39 39 30 0a 0a 57 65 6c 6c 20 68 65 72 65 |-1990..Well here| 00000050 27 73 20 73 75 6d 6d 61 74 20 20 2d 20 61 20 77 |'s summat - a w| 00000060 65 65 20 70 72 6f 67 20 74 6f 20 70 75 74 20 61 |ee prog to put a| 00000070 6d 61 7a 69 6e 67 20 74 68 69 6e 67 73 20 6f 6e |mazing things on| 00000080 20 74 68 65 20 73 63 72 65 65 6e 20 74 68 61 74 | the screen that| 00000090 0a 79 6f 75 20 61 6c 77 61 79 73 20 77 61 6e 74 |.you always want| 000000a0 65 64 20 74 6f 20 6b 6e 6f 77 2e 20 42 61 73 69 |ed to know. Basi| 000000b0 63 61 6c 6c 79 20 49 20 70 75 6c 6c 65 64 20 74 |cally I pulled t| 000000c0 68 65 20 70 72 6f 67 72 61 6d 20 6f 66 66 20 74 |he program off t| 000000d0 68 65 20 4e 50 44 53 41 0a 61 74 20 4c 61 6e 63 |he NPDSA.at Lanc| 000000e0 61 73 74 65 72 20 61 20 77 68 69 6c 65 20 62 61 |aster a while ba| 000000f0 63 6b 20 61 6e 64 20 70 75 74 20 69 74 20 69 6e |ck and put it in| 00000100 20 6d 79 20 61 75 74 6f 65 78 65 63 2e 62 61 74 | my autoexec.bat| 00000110 20 69 6e 20 74 68 65 20 50 43 45 2e 0a 59 65 73 | in the PCE..Yes| 00000120 74 65 72 64 61 79 20 49 20 77 72 6f 74 65 20 74 |terday I wrote t| 00000130 68 65 20 41 72 63 68 69 6d 65 64 65 73 20 76 65 |he Archimedes ve| 00000140 72 73 69 6f 6e 20 61 73 20 69 74 20 73 65 65 6d |rsion as it seem| 00000150 65 64 20 6c 69 6b 65 20 61 20 67 6f 6f 64 20 69 |ed like a good i| 00000160 64 65 61 20 61 74 0a 74 68 65 20 74 69 6d 65 2e |dea at.the time.| 00000170 20 49 74 20 77 6f 72 6b 73 20 6f 6b 20 61 73 20 | It works ok as | 00000180 66 61 72 20 61 73 20 49 76 65 20 74 65 73 74 65 |far as Ive teste| 00000190 64 20 69 74 2e 20 0a 0a 53 65 65 20 74 68 65 20 |d it. ..See the | 000001a0 50 43 20 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e |PC documentation| 000001b0 20 66 6f 72 20 61 20 66 75 6c 6c 20 64 65 73 63 | for a full desc| 000001c0 72 69 70 74 69 6f 6e 20 6f 66 20 77 68 61 74 20 |ription of what | 000001d0 68 61 70 70 65 6e 73 2e 20 4e 6f 74 65 20 74 68 |happens. Note th| 000001e0 61 74 0a 74 68 69 73 20 76 65 72 73 69 6f 6e 20 |at.this version | 000001f0 64 6f 65 73 6e 74 20 74 61 6b 65 20 70 61 72 61 |doesnt take para| 00000200 6d 73 20 6c 69 6b 65 20 74 68 65 20 50 43 20 6f |ms like the PC o| 00000210 6e 65 20 2d 20 6a 75 73 74 20 63 6f 75 6c 64 6e |ne - just couldn| 00000220 74 20 62 65 20 62 6f 74 68 65 72 65 64 0a 74 6f |t be bothered.to| 00000230 20 70 75 74 20 74 68 65 20 63 6f 64 65 20 69 6e | put the code in| 00000240 20 74 6f 64 61 79 2e 0a 0a 54 68 65 20 61 62 73 | today...The abs| 00000250 6f 6c 75 74 65 20 69 6e 63 6c 75 64 65 64 20 6c |olute included l| 00000260 6f 6f 6b 73 20 69 6e 20 22 6c 69 62 72 61 72 79 |ooks in "library| 00000270 3a 54 6f 64 61 79 44 61 74 61 2e 78 78 78 22 20 |:TodayData.xxx" | 00000280 77 68 65 72 65 20 78 78 78 20 69 73 20 74 68 65 |where xxx is the| 00000290 0a 63 75 72 72 65 6e 74 20 6d 6f 6e 74 68 20 69 |.current month i| 000002a0 65 20 27 61 75 67 27 20 61 6e 64 20 74 68 65 6e |e 'aug' and then| 000002b0 20 61 66 74 65 72 77 61 72 64 73 20 69 6e 20 27 | afterwards in '| 000002c0 6f 77 6e 27 2e 0a 0a 6c 69 62 72 61 72 79 3a 20 |own'...library: | 000002d0 77 61 73 73 61 74 3f 20 49 20 68 65 61 72 20 73 |wassat? I hear s| 000002e0 6f 6d 65 6f 6e 65 20 73 63 72 65 61 6d 2e 20 57 |omeone scream. W| 000002f0 65 6c 6c 20 69 74 73 20 74 68 65 20 65 6e 76 20 |ell its the env | 00000300 76 61 72 69 61 62 6c 65 0a 27 3c 4c 69 62 72 61 |variable.'<Libra| 00000310 72 79 24 50 61 74 68 3e 27 20 69 65 20 73 75 6d |ry$Path>' ie sum| 00000320 6d 61 74 20 6c 69 6b 65 20 27 61 64 66 73 3a 3a |mat like 'adfs::| 00000330 48 61 72 64 44 69 73 63 34 2e 24 2e 21 53 79 73 |HardDisc4.$.!Sys| 00000340 74 65 6d 2e 4c 69 62 72 61 72 79 2e 27 2e 0a 0a |tem.Library.'...| 00000350 54 68 65 20 6d 6f 72 65 20 61 77 61 6b 65 20 6f |The more awake o| 00000360 66 20 79 6f 75 20 6f 75 74 20 74 68 65 72 65 20 |f you out there | 00000370 6d 61 79 20 72 65 63 6f 67 6e 69 73 65 20 74 68 |may recognise th| 00000380 65 20 6d 65 73 73 61 67 65 73 20 61 73 20 62 65 |e messages as be| 00000390 69 6e 67 20 74 68 65 20 73 61 6d 65 0a 6f 6e 65 |ing the same.one| 000003a0 73 20 61 73 20 64 69 73 70 6c 61 79 65 64 20 62 |s as displayed b| 000003b0 79 20 6d 61 6e 79 20 42 42 53 20 73 79 73 74 65 |y many BBS syste| 000003c0 6d 73 20 69 6e 63 6c 75 64 69 6e 67 20 48 75 67 |ms including Hug| 000003d0 6f 20 46 69 65 6e 6e 65 73 27 20 70 69 65 63 65 |o Fiennes' piece| 000003e0 20 6f 66 0a 72 65 73 69 73 74 61 6e 63 65 2e 0a | of.resistance..| 000003f0 0a 49 66 20 79 6f 75 20 77 61 6e 74 20 74 6f 20 |.If you want to | 00000400 75 73 65 20 69 74 20 69 6e 73 69 64 65 20 74 68 |use it inside th| 00000410 65 20 50 43 45 20 74 68 65 6e 20 72 65 61 64 20 |e PCE then read | 00000420 74 68 65 20 6f 72 69 67 69 6e 61 6c 20 64 6f 63 |the original doc| 00000430 73 2c 20 72 65 6e 61 6d 65 20 74 68 65 0a 66 69 |s, rename the.fi| 00000440 6c 65 73 20 61 6e 64 20 61 6c 6c 20 74 68 61 74 |les and all that| 00000450 2e 2e 2e 20 0a 0a 0a 0a 48 61 76 65 20 6c 6f 74 |... ....Have lot| 00000460 73 20 6f 66 20 66 75 6e 20 77 69 74 68 20 74 68 |s of fun with th| 00000470 69 73 2e 2e 20 28 77 65 6c 6c 20 74 72 79 20 74 |is.. (well try t| 00000480 6f 20 61 6e 79 77 61 79 29 2e 0a 0a 74 74 66 6e |o anyway)...ttfn| 00000490 2c 0a 4a 61 6d 65 73 20 4e 6f 61 64 2e 0a 0a 43 |,.James Noad...C| 000004a0 72 79 74 6f 6e 3a 20 23 36 35 20 20 20 20 20 20 |ryton: #65 | 000004b0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | * 000004d0 20 20 20 20 20 20 20 20 20 20 0a 0a 4a 61 6e 65 | ..Jane| 000004e0 74 20 3a 20 6a 2e 6e 6f 61 64 40 75 6b 2e 61 63 |t : j.noad@uk.ac| 000004f0 2e 75 65 61 2e 63 70 63 6d 63 20 20 20 20 20 20 |.uea.cpcmc | 00000500 20 20 20 20 20 7d 20 49 66 20 74 68 69 73 20 64 | } If this d| 00000510 6f 6e 74 20 77 6f 72 6b 20 6d 61 69 6c 0a 55 55 |ont work mail.UU| 00000520 43 50 20 20 3a 20 6a 2e 6e 6f 61 64 25 63 70 63 |CP : j.noad%cpc| 00000530 6d 63 2e 75 65 61 2e 61 63 2e 75 6b 40 75 6b 63 |mc.uea.ac.uk@ukc| 00000540 2e 75 75 63 70 20 20 7d 20 70 6f 73 74 6d 61 73 |.uucp } postmas| 00000550 74 65 72 40 75 6b 2e 61 63 2e 75 65 61 2e 63 70 |ter@uk.ac.uea.cp| 00000560 63 38 36 35 20 61 6e 64 0a 20 20 20 20 20 20 20 |c865 and. | 00000570 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | * 00000590 20 20 7d 20 67 65 74 20 68 69 6d 20 74 6f 20 68 | } get him to h| 000005a0 65 6c 70 20 79 6f 75 20 66 69 6e 64 20 6d 65 2e |elp you find me.| 000005b0 0a |.| 000005b1
.