Home » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_26.ADF » P/DOCS1
P/DOCS1
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 ADFS disks » Electron_User_Group » EUG_26.ADF |
| Filename: | P/DOCS1 |
| Read OK: | ✔ |
| File size: | 0940 bytes |
| Load address: | 44224556 |
| Exec address: | 3153434F |
File contents
6 Bollinbrook road,
MACCLESFIELD,
Cheshire.
SK10 3DJ.
This month there are three programs
for you to chew over:
MORSE:
======
This program is converted from one I
wrote to help the local Scout group
in their Communications badge.
It may appear a little squashed up in
Mode 4,as it was originally designed
to fill Mode 7's screen.If you have
access to Mode 7 then alter line 30
to suit.
The startup screen asks you what
speed you're at,the Scouts almost
always needed option 3 as they're not
pros!
Once speed is chosen simply type in
the desired phase,including any one
or more of the special codes shown in
brackets.I suggest you start with SOS
which is ...---...
The ratio of long to short is 3 as it
should be according to a book I
have.If you want to alter the codes
they are held as data at the end of
the program in a script format
explained by the REM statement.It
stops after 1 message.
CWDIR:
======
One of the serious weaknesses of DFS
is that you have no way of telling
what directory you're in.
To get around this I have trapped a
redundant command "*DIR" which on its
own does nothing at all (it doesn't
even report 'Bad dir' as you might
expect).
With the program in,*DIR will print
out the current drive and directory.
I occupies the character redefinition
buffer on the BBC and Electron,so no
fancy Japanese character sets! It
does however work in any screen mode
provided you don't want to redefine
any letters.
On the Master &C00 is part of the
Econet workspace,so provided you
don't have a network in your room
you're ok.
If my use of the character
redefinition buffer (&C00) causes you
any hassles,send `2.50 and a first
class stamp to me along with the
address you want it to load in at.
Unlike some crude versions which
assume they are running on a BBC with
one letter directories,this does take
into account ADFS's support for long
names too.
You will have to *RUN this program to
start it,then you can remove the disk
and carry on as normal.
EMUMENU:
========
The reason for this is explained
elsewhere,just run it and follow the
prompts.
That's all for this time,don't forget
to get YOUR submissions in the post
to Gus.
Robert Sprowson.
00000000 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000010 20 36 20 42 6f 6c 6c 69 6e 62 72 6f 6f 6b 20 72 | 6 Bollinbrook r| 00000020 6f 61 64 2c 20 0d 20 20 20 20 20 20 20 20 20 20 |oad, . | 00000030 20 20 20 20 20 20 20 20 4d 41 43 43 4c 45 53 46 | MACCLESF| 00000040 49 45 4c 44 2c 20 0d 20 20 20 20 20 20 20 20 20 |IELD, . | 00000050 20 20 20 20 20 20 20 20 20 20 43 68 65 73 68 69 | Cheshi| 00000060 72 65 2e 20 0d 20 20 20 20 20 20 20 20 20 20 20 |re. . | 00000070 20 20 20 20 20 20 20 20 20 53 4b 31 30 20 33 44 | SK10 3D| 00000080 4a 2e 20 0d 20 0d 54 68 69 73 20 6d 6f 6e 74 68 |J. . .This month| 00000090 20 74 68 65 72 65 20 61 72 65 20 74 68 72 65 65 | there are three| 000000a0 20 70 72 6f 67 72 61 6d 73 20 0d 66 6f 72 20 79 | programs .for y| 000000b0 6f 75 20 74 6f 20 63 68 65 77 20 6f 76 65 72 3a |ou to chew over:| 000000c0 20 0d 20 0d 4d 4f 52 53 45 3a 20 0d 3d 3d 3d 3d | . .MORSE: .====| 000000d0 3d 3d 20 0d 20 0d 54 68 69 73 20 70 72 6f 67 72 |== . .This progr| 000000e0 61 6d 20 69 73 20 63 6f 6e 76 65 72 74 65 64 20 |am is converted | 000000f0 66 72 6f 6d 20 6f 6e 65 20 49 20 0d 77 72 6f 74 |from one I .wrot| 00000100 65 20 74 6f 20 68 65 6c 70 20 74 68 65 20 6c 6f |e to help the lo| 00000110 63 61 6c 20 53 63 6f 75 74 20 67 72 6f 75 70 20 |cal Scout group | 00000120 0d 69 6e 20 74 68 65 69 72 20 43 6f 6d 6d 75 6e |.in their Commun| 00000130 69 63 61 74 69 6f 6e 73 20 62 61 64 67 65 2e 20 |ications badge. | 00000140 0d 20 0d 49 74 20 6d 61 79 20 61 70 70 65 61 72 |. .It may appear| 00000150 20 61 20 6c 69 74 74 6c 65 20 73 71 75 61 73 68 | a little squash| 00000160 65 64 20 75 70 20 69 6e 20 0d 4d 6f 64 65 20 34 |ed up in .Mode 4| 00000170 2c 61 73 20 69 74 20 77 61 73 20 6f 72 69 67 69 |,as it was origi| 00000180 6e 61 6c 6c 79 20 64 65 73 69 67 6e 65 64 20 0d |nally designed .| 00000190 74 6f 20 66 69 6c 6c 20 4d 6f 64 65 20 37 27 73 |to fill Mode 7's| 000001a0 20 73 63 72 65 65 6e 2e 49 66 20 79 6f 75 20 68 | screen.If you h| 000001b0 61 76 65 20 0d 61 63 63 65 73 73 20 74 6f 20 4d |ave .access to M| 000001c0 6f 64 65 20 37 20 74 68 65 6e 20 61 6c 74 65 72 |ode 7 then alter| 000001d0 20 6c 69 6e 65 20 33 30 20 0d 74 6f 20 73 75 69 | line 30 .to sui| 000001e0 74 2e 20 0d 20 0d 54 68 65 20 73 74 61 72 74 75 |t. . .The startu| 000001f0 70 20 73 63 72 65 65 6e 20 61 73 6b 73 20 79 6f |p screen asks yo| 00000200 75 20 77 68 61 74 20 0d 73 70 65 65 64 20 79 6f |u what .speed yo| 00000210 75 27 72 65 20 61 74 2c 74 68 65 20 53 63 6f 75 |u're at,the Scou| 00000220 74 73 20 61 6c 6d 6f 73 74 20 0d 61 6c 77 61 79 |ts almost .alway| 00000230 73 20 6e 65 65 64 65 64 20 6f 70 74 69 6f 6e 20 |s needed option | 00000240 33 20 61 73 20 74 68 65 79 27 72 65 20 6e 6f 74 |3 as they're not| 00000250 20 0d 70 72 6f 73 21 20 0d 20 0d 4f 6e 63 65 20 | .pros! . .Once | 00000260 73 70 65 65 64 20 69 73 20 63 68 6f 73 65 6e 20 |speed is chosen | 00000270 73 69 6d 70 6c 79 20 74 79 70 65 20 69 6e 20 0d |simply type in .| 00000280 74 68 65 20 64 65 73 69 72 65 64 20 70 68 61 73 |the desired phas| 00000290 65 2c 69 6e 63 6c 75 64 69 6e 67 20 61 6e 79 20 |e,including any | 000002a0 6f 6e 65 20 0d 6f 72 20 6d 6f 72 65 20 6f 66 20 |one .or more of | 000002b0 74 68 65 20 73 70 65 63 69 61 6c 20 63 6f 64 65 |the special code| 000002c0 73 20 73 68 6f 77 6e 20 69 6e 20 0d 62 72 61 63 |s shown in .brac| 000002d0 6b 65 74 73 2e 49 20 73 75 67 67 65 73 74 20 79 |kets.I suggest y| 000002e0 6f 75 20 73 74 61 72 74 20 77 69 74 68 20 53 4f |ou start with SO| 000002f0 53 20 0d 77 68 69 63 68 20 69 73 20 2e 2e 2e 2d |S .which is ...-| 00000300 2d 2d 2e 2e 2e 20 0d 20 0d 54 68 65 20 72 61 74 |--... . .The rat| 00000310 69 6f 20 6f 66 20 6c 6f 6e 67 20 74 6f 20 73 68 |io of long to sh| 00000320 6f 72 74 20 69 73 20 33 20 61 73 20 69 74 20 0d |ort is 3 as it .| 00000330 73 68 6f 75 6c 64 20 62 65 20 61 63 63 6f 72 64 |should be accord| 00000340 69 6e 67 20 74 6f 20 61 20 62 6f 6f 6b 20 49 20 |ing to a book I | 00000350 0d 68 61 76 65 2e 49 66 20 79 6f 75 20 77 61 6e |.have.If you wan| 00000360 74 20 74 6f 20 61 6c 74 65 72 20 74 68 65 20 63 |t to alter the c| 00000370 6f 64 65 73 20 0d 74 68 65 79 20 61 72 65 20 68 |odes .they are h| 00000380 65 6c 64 20 61 73 20 64 61 74 61 20 61 74 20 74 |eld as data at t| 00000390 68 65 20 65 6e 64 20 6f 66 20 0d 74 68 65 20 70 |he end of .the p| 000003a0 72 6f 67 72 61 6d 20 69 6e 20 61 20 73 63 72 69 |rogram in a scri| 000003b0 70 74 20 66 6f 72 6d 61 74 20 0d 65 78 70 6c 61 |pt format .expla| 000003c0 69 6e 65 64 20 62 79 20 74 68 65 20 52 45 4d 20 |ined by the REM | 000003d0 73 74 61 74 65 6d 65 6e 74 2e 49 74 20 0d 73 74 |statement.It .st| 000003e0 6f 70 73 20 61 66 74 65 72 20 31 20 6d 65 73 73 |ops after 1 mess| 000003f0 61 67 65 2e 20 0d 20 0d 43 57 44 49 52 3a 20 0d |age. . .CWDIR: .| 00000400 3d 3d 3d 3d 3d 3d 20 0d 20 0d 4f 6e 65 20 6f 66 |====== . .One of| 00000410 20 74 68 65 20 73 65 72 69 6f 75 73 20 77 65 61 | the serious wea| 00000420 6b 6e 65 73 73 65 73 20 6f 66 20 44 46 53 20 0d |knesses of DFS .| 00000430 69 73 20 74 68 61 74 20 79 6f 75 20 68 61 76 65 |is that you have| 00000440 20 6e 6f 20 77 61 79 20 6f 66 20 74 65 6c 6c 69 | no way of telli| 00000450 6e 67 20 0d 77 68 61 74 20 64 69 72 65 63 74 6f |ng .what directo| 00000460 72 79 20 79 6f 75 27 72 65 20 69 6e 2e 20 0d 20 |ry you're in. . | 00000470 0d 54 6f 20 67 65 74 20 61 72 6f 75 6e 64 20 74 |.To get around t| 00000480 68 69 73 20 49 20 68 61 76 65 20 74 72 61 70 70 |his I have trapp| 00000490 65 64 20 61 20 0d 72 65 64 75 6e 64 61 6e 74 20 |ed a .redundant | 000004a0 63 6f 6d 6d 61 6e 64 20 22 2a 44 49 52 22 20 77 |command "*DIR" w| 000004b0 68 69 63 68 20 6f 6e 20 69 74 73 20 0d 6f 77 6e |hich on its .own| 000004c0 20 64 6f 65 73 20 6e 6f 74 68 69 6e 67 20 61 74 | does nothing at| 000004d0 20 61 6c 6c 20 28 69 74 20 64 6f 65 73 6e 27 74 | all (it doesn't| 000004e0 20 0d 65 76 65 6e 20 72 65 70 6f 72 74 20 27 42 | .even report 'B| 000004f0 61 64 20 64 69 72 27 20 61 73 20 79 6f 75 20 6d |ad dir' as you m| 00000500 69 67 68 74 20 0d 65 78 70 65 63 74 29 2e 20 0d |ight .expect). .| 00000510 20 0d 57 69 74 68 20 74 68 65 20 70 72 6f 67 72 | .With the progr| 00000520 61 6d 20 69 6e 2c 2a 44 49 52 20 77 69 6c 6c 20 |am in,*DIR will | 00000530 70 72 69 6e 74 20 0d 6f 75 74 20 74 68 65 20 63 |print .out the c| 00000540 75 72 72 65 6e 74 20 64 72 69 76 65 20 61 6e 64 |urrent drive and| 00000550 20 64 69 72 65 63 74 6f 72 79 2e 20 0d 20 0d 49 | directory. . .I| 00000560 20 6f 63 63 75 70 69 65 73 20 74 68 65 20 63 68 | occupies the ch| 00000570 61 72 61 63 74 65 72 20 72 65 64 65 66 69 6e 69 |aracter redefini| 00000580 74 69 6f 6e 20 0d 62 75 66 66 65 72 20 6f 6e 20 |tion .buffer on | 00000590 74 68 65 20 42 42 43 20 61 6e 64 20 45 6c 65 63 |the BBC and Elec| 000005a0 74 72 6f 6e 2c 73 6f 20 6e 6f 20 0d 66 61 6e 63 |tron,so no .fanc| 000005b0 79 20 4a 61 70 61 6e 65 73 65 20 63 68 61 72 61 |y Japanese chara| 000005c0 63 74 65 72 20 73 65 74 73 21 20 49 74 20 0d 64 |cter sets! It .d| 000005d0 6f 65 73 20 68 6f 77 65 76 65 72 20 77 6f 72 6b |oes however work| 000005e0 20 69 6e 20 61 6e 79 20 73 63 72 65 65 6e 20 6d | in any screen m| 000005f0 6f 64 65 20 0d 70 72 6f 76 69 64 65 64 20 79 6f |ode .provided yo| 00000600 75 20 64 6f 6e 27 74 20 77 61 6e 74 20 74 6f 20 |u don't want to | 00000610 72 65 64 65 66 69 6e 65 20 0d 61 6e 79 20 6c 65 |redefine .any le| 00000620 74 74 65 72 73 2e 20 0d 20 0d 4f 6e 20 74 68 65 |tters. . .On the| 00000630 20 4d 61 73 74 65 72 20 26 43 30 30 20 69 73 20 | Master &C00 is | 00000640 70 61 72 74 20 6f 66 20 74 68 65 20 0d 45 63 6f |part of the .Eco| 00000650 6e 65 74 20 77 6f 72 6b 73 70 61 63 65 2c 73 6f |net workspace,so| 00000660 20 70 72 6f 76 69 64 65 64 20 79 6f 75 20 0d 64 | provided you .d| 00000670 6f 6e 27 74 20 68 61 76 65 20 61 20 6e 65 74 77 |on't have a netw| 00000680 6f 72 6b 20 69 6e 20 79 6f 75 72 20 72 6f 6f 6d |ork in your room| 00000690 20 0d 79 6f 75 27 72 65 20 6f 6b 2e 20 0d 20 0d | .you're ok. . .| 000006a0 49 66 20 6d 79 20 75 73 65 20 6f 66 20 74 68 65 |If my use of the| 000006b0 20 63 68 61 72 61 63 74 65 72 20 0d 72 65 64 65 | character .rede| 000006c0 66 69 6e 69 74 69 6f 6e 20 62 75 66 66 65 72 20 |finition buffer | 000006d0 28 26 43 30 30 29 20 63 61 75 73 65 73 20 79 6f |(&C00) causes yo| 000006e0 75 20 0d 61 6e 79 20 68 61 73 73 6c 65 73 2c 73 |u .any hassles,s| 000006f0 65 6e 64 20 60 32 2e 35 30 20 61 6e 64 20 61 20 |end `2.50 and a | 00000700 66 69 72 73 74 20 0d 63 6c 61 73 73 20 73 74 61 |first .class sta| 00000710 6d 70 20 74 6f 20 6d 65 20 61 6c 6f 6e 67 20 77 |mp to me along w| 00000720 69 74 68 20 74 68 65 20 0d 61 64 64 72 65 73 73 |ith the .address| 00000730 20 79 6f 75 20 77 61 6e 74 20 69 74 20 74 6f 20 | you want it to | 00000740 6c 6f 61 64 20 69 6e 20 61 74 2e 20 0d 20 0d 55 |load in at. . .U| 00000750 6e 6c 69 6b 65 20 73 6f 6d 65 20 63 72 75 64 65 |nlike some crude| 00000760 20 76 65 72 73 69 6f 6e 73 20 77 68 69 63 68 20 | versions which | 00000770 0d 61 73 73 75 6d 65 20 74 68 65 79 20 61 72 65 |.assume they are| 00000780 20 72 75 6e 6e 69 6e 67 20 6f 6e 20 61 20 42 42 | running on a BB| 00000790 43 20 77 69 74 68 20 0d 6f 6e 65 20 6c 65 74 74 |C with .one lett| 000007a0 65 72 20 64 69 72 65 63 74 6f 72 69 65 73 2c 74 |er directories,t| 000007b0 68 69 73 20 64 6f 65 73 20 74 61 6b 65 20 0d 69 |his does take .i| 000007c0 6e 74 6f 20 61 63 63 6f 75 6e 74 20 41 44 46 53 |nto account ADFS| 000007d0 27 73 20 73 75 70 70 6f 72 74 20 66 6f 72 20 6c |'s support for l| 000007e0 6f 6e 67 20 0d 6e 61 6d 65 73 20 74 6f 6f 2e 20 |ong .names too. | 000007f0 0d 20 0d 59 6f 75 20 77 69 6c 6c 20 68 61 76 65 |. .You will have| 00000800 20 74 6f 20 2a 52 55 4e 20 74 68 69 73 20 70 72 | to *RUN this pr| 00000810 6f 67 72 61 6d 20 74 6f 20 0d 73 74 61 72 74 20 |ogram to .start | 00000820 69 74 2c 74 68 65 6e 20 79 6f 75 20 63 61 6e 20 |it,then you can | 00000830 72 65 6d 6f 76 65 20 74 68 65 20 64 69 73 6b 20 |remove the disk | 00000840 0d 61 6e 64 20 63 61 72 72 79 20 6f 6e 20 61 73 |.and carry on as| 00000850 20 6e 6f 72 6d 61 6c 2e 20 0d 20 0d 45 4d 55 4d | normal. . .EMUM| 00000860 45 4e 55 3a 20 0d 3d 3d 3d 3d 3d 3d 3d 3d 20 0d |ENU: .======== .| 00000870 20 0d 54 68 65 20 72 65 61 73 6f 6e 20 66 6f 72 | .The reason for| 00000880 20 74 68 69 73 20 69 73 20 65 78 70 6c 61 69 6e | this is explain| 00000890 65 64 20 0d 65 6c 73 65 77 68 65 72 65 2c 6a 75 |ed .elsewhere,ju| 000008a0 73 74 20 72 75 6e 20 69 74 20 61 6e 64 20 66 6f |st run it and fo| 000008b0 6c 6c 6f 77 20 74 68 65 20 0d 70 72 6f 6d 70 74 |llow the .prompt| 000008c0 73 2e 20 0d 20 0d 54 68 61 74 27 73 20 61 6c 6c |s. . .That's all| 000008d0 20 66 6f 72 20 74 68 69 73 20 74 69 6d 65 2c 64 | for this time,d| 000008e0 6f 6e 27 74 20 66 6f 72 67 65 74 20 0d 74 6f 20 |on't forget .to | 000008f0 67 65 74 20 59 4f 55 52 20 73 75 62 6d 69 73 73 |get YOUR submiss| 00000900 69 6f 6e 73 20 69 6e 20 74 68 65 20 70 6f 73 74 |ions in the post| 00000910 20 0d 74 6f 20 47 75 73 2e 20 0d 20 20 20 20 20 | .to Gus. . | 00000920 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 6f | Ro| 00000930 62 65 72 74 20 53 70 72 6f 77 73 6f 6e 2e 20 0d |bert Sprowson. .| 00000940
P/DOCS1.m0
P/DOCS1.m1
P/DOCS1.m2
P/DOCS1.m4
P/DOCS1.m5
.