Home » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_15.ADF » A/DIAG1
A/DIAG1
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_15.ADF |
| Filename: | A/DIAG1 |
| Read OK: | ✔ |
| File size: | 15C0 bytes |
| Load address: | 44204556 |
| Exec address: | 31474149 |
File contents
DIAGRAM
The main problems with a disk based magazine are illustratiions and
diagrams. This is a shame because computers especially the Elk are quite
good at drawing if you can get a program.
I have written this program to do just that. Now I would like to be able
to say that I am an experienced programmer and I knocked this up in the
commercial break during Blakes 7but it wouldn't be true. In fact this is
the biggest thing I have ever done.
I make no apologies for its limitations. It was designed to be simple.
It will draw vertical horizontal and diagonal lines. The angle of the
diagonals can be varied.
It also has a facility for text input.
The keys are:
Up / Down / Left / Right : Arrow keys.
Diagonals: Up Left : FUNC O
Up Right : FUNC P
Down Left : FUNC K
Down Right : FUNC L
Text : FUNC T
LOAD : FUNC <
SAVE : FUNC >
PRINT : FUNC /
Vary Angle : + FUNC A
: - FUNC Z
Vary Speed : + FUNC S
: - FUNC X
The keys needed to use the program are written at the bottom of the
screen as are indicators of the angle, the pen position and if it is up
or down.
The drawing can be saved and reloaded again to do further work.
The indicator of speed and angle are initially both set at 5. For speed
this indicated the number of individual pixels drawn with each keypress.
In the case of the size of the angle this should be considered an
arbitory figure mainly to compare with any changes you set. When you
alter the speed with FUNC S / X the figure for angle also increases at
the same rate but the angle drawn will remain the same unless you vary
the angle itself with FUNC A / Z. This is a problem with the maths in
the program. to correct this will slow the program down. You will soon
get use to it.
It does not use different colours mainly because these can be difficult
to print on paper even with a colour printer.
When I started I set a number of criteria.
1. It should be simple to use. Some programs have manuals which can take
hours to digest. Diagram should be understood by almost anyone in a few
minutes.
2. It must have a clear programming style to enable users to adapt or
improve it easily. This meant using procedures wherever possible. Each
procedure clearly labled, each function using one procedure.
3. It must be able to draw fine detail. I have used mode 0 and the speed
of the cursor movement; and therefore the length of each keypress can be
varied as I said before.
4. It must be possible to reLOAD a file for further work.
5. It must be possible to load a file independent of Diagram. This can be
done by switching to MODE0 and *LOADing the file.
ie 10 MODE0
20 *LOAD <file>
Addresses are not important.
Some problems for you to work on:
There is no facility to delete lines once they are drawn. This should be
quite easy to setup.
If you try to load or save a file with a name preceeded by any spaces the
program will crash. I have turned on the cursor during LOADing, SAVEing
and Text to indicate if any spaces might be likely. If so delete them
before entering a file name. The spaces occur because the auto repeat has
been reset with *FX11,20.
The pen is always up after text input. This is necessary because a line
is drawn otherwise before the end of the procedure.
The size of the angle is indicated by 5 = 45 degrees and so on.
If someone could devise a cursor which would be seen even when the pen
is up the program would be easier to use.
Some enhancments needed:
Printer dumps. I am working on a printer dump for my Star LC10 printer.
It should work with any Epsom FX80 compatable but other printers may need
different dumps. This is definitely over to you. If you have a dump for
your printer SEND IT IN
Icons: Sets of icons might be very useful. These might be programmed
using VDU codes but in mode0 will be very small.Other larger icons might
be more useful, say furniture outlines to allow diagrams of a room
layout to be made, electronic symbols would suit those of us into
electronics, some fancy letters. These can be put into the numeric
function keys or the spare letter keys which have all been reset with
*FX226 and *FX227. See page 283 of the Elk User Guide.
The purpose of Diagram is for you to illustrate your submissions to EUG.
Diagram is ready for use now. Use it. It will seem a little fiddely and
slow, certainly not like a pen and paper. But do use it. Draw a diagram
of the layout of your computer setup, any problems you may have. Draw
something for the practical ideas section, if there needs to be a lot of
text write your text on your word processor making reference to the
diagram, then draw your diagram. Send in both files. My wife has just
suggested drawing a cartoon joke. Most of us could do with a laugh and
since few of you are ever likely to see my car a cartoon would be the
next best thing.
SEND IT IN
I have drawn a cartoon called Cartoon. You can load it into Diagram or
move to MODE0 and *LOAD it. I first sketched the outline onto paper. then
as I drew each line I noted the X and Y positions at the start and end of
each line drawn. This helped with correctly joining up lines as required.
And remember a file can be re-LOADed and further work done on it so you
don't need to spend ages trying to finish. Start something now and save
it again for later.
SEND IT IN.
00000000 44 49 41 47 52 41 4d 0d 0d 54 68 65 20 10 6d 61 |DIAGRAM..The .ma| 00000010 69 6e 20 10 70 72 6f 62 6c 65 6d 73 20 10 77 69 |in .problems .wi| 00000020 74 68 20 10 61 20 10 64 69 73 6b 20 10 62 61 73 |th .a .disk .bas| 00000030 65 64 20 6d 61 67 61 7a 69 6e 65 20 61 72 65 20 |ed magazine are | 00000040 69 6c 6c 75 73 74 72 61 74 69 69 6f 6e 73 20 61 |illustratiions a| 00000050 6e 64 20 10 0d 64 69 61 67 72 61 6d 73 2e 20 10 |nd ..diagrams. .| 00000060 54 68 69 73 20 69 73 20 61 20 73 68 61 6d 65 20 |This is a shame | 00000070 62 65 63 61 75 73 65 20 63 6f 6d 70 75 74 65 72 |because computer| 00000080 73 20 65 73 70 65 63 69 61 6c 6c 79 20 74 68 65 |s especially the| 00000090 20 45 6c 6b 20 61 72 65 20 71 75 69 74 65 20 0d | Elk are quite .| 000000a0 67 6f 6f 64 20 61 74 20 64 72 61 77 69 6e 67 20 |good at drawing | 000000b0 69 66 20 79 6f 75 20 63 61 6e 20 67 65 74 20 61 |if you can get a| 000000c0 20 70 72 6f 67 72 61 6d 2e 0d 0d 49 20 10 68 61 | program...I .ha| 000000d0 76 65 20 77 72 69 74 74 65 6e 20 74 68 69 73 20 |ve written this | 000000e0 70 72 6f 67 72 61 6d 20 74 6f 20 64 6f 20 6a 75 |program to do ju| 000000f0 73 74 20 74 68 61 74 2e 20 4e 6f 77 20 49 20 77 |st that. Now I w| 00000100 6f 75 6c 64 20 6c 69 6b 65 20 74 6f 20 62 65 20 |ould like to be | 00000110 61 62 6c 65 20 0d 74 6f 20 10 10 73 61 79 20 74 |able .to ..say t| 00000120 68 61 74 20 49 20 61 6d 20 61 6e 20 65 78 70 65 |hat I am an expe| 00000130 72 69 65 6e 63 65 64 20 70 72 6f 67 72 61 6d 6d |rienced programm| 00000140 65 72 20 61 6e 64 20 49 20 6b 6e 6f 63 6b 65 64 |er and I knocked| 00000150 20 74 68 69 73 20 75 70 20 69 6e 20 74 68 65 20 | this up in the | 00000160 0d 63 6f 6d 6d 65 72 63 69 61 6c 20 62 72 65 61 |.commercial brea| 00000170 6b 20 64 75 72 69 6e 67 20 42 6c 61 6b 65 73 20 |k during Blakes | 00000180 37 10 62 75 74 20 69 74 20 77 6f 75 6c 64 6e 27 |7.but it wouldn'| 00000190 74 20 62 65 20 74 72 75 65 2e 20 49 6e 20 66 61 |t be true. In fa| 000001a0 63 74 20 74 68 69 73 20 69 73 20 0d 74 68 65 20 |ct this is .the | 000001b0 62 69 67 67 65 73 74 20 74 68 69 6e 67 20 49 20 |biggest thing I | 000001c0 68 61 76 65 20 65 76 65 72 20 64 6f 6e 65 2e 0d |have ever done..| 000001d0 0d 49 20 10 6d 61 6b 65 20 10 6e 6f 20 61 70 6f |.I .make .no apo| 000001e0 6c 6f 67 69 65 73 20 66 6f 72 20 69 74 73 20 10 |logies for its .| 000001f0 6c 69 6d 69 74 61 74 69 6f 6e 73 2e 20 49 74 20 |limitations. It | 00000200 77 61 73 20 64 65 73 69 67 6e 65 64 20 74 6f 20 |was designed to | 00000210 62 65 20 73 69 6d 70 6c 65 2e 20 0d 49 74 20 10 |be simple. .It .| 00000220 77 69 6c 6c 20 10 64 72 61 77 20 10 76 65 72 74 |will .draw .vert| 00000230 69 63 61 6c 20 68 6f 72 69 7a 6f 6e 74 61 6c 20 |ical horizontal | 00000240 61 6e 64 20 64 69 61 67 6f 6e 61 6c 20 6c 69 6e |and diagonal lin| 00000250 65 73 2e 20 54 68 65 20 61 6e 67 6c 65 20 6f 66 |es. The angle of| 00000260 20 10 74 68 65 20 0d 64 69 61 67 6f 6e 61 6c 73 | .the .diagonals| 00000270 20 63 61 6e 20 62 65 20 76 61 72 69 65 64 2e 0d | can be varied..| 00000280 0d 49 74 20 61 6c 73 6f 20 68 61 73 20 61 20 66 |.It also has a f| 00000290 61 63 69 6c 69 74 79 20 66 6f 72 20 74 65 78 74 |acility for text| 000002a0 20 69 6e 70 75 74 2e 20 0d 0d 54 68 65 20 6b 65 | input. ..The ke| 000002b0 79 73 20 61 72 65 3a 0d 0d 55 70 20 2f 20 44 6f |ys are:..Up / Do| 000002c0 77 6e 20 2f 20 4c 65 66 74 20 2f 20 52 69 67 68 |wn / Left / Righ| 000002d0 74 20 3a 20 41 72 72 6f 77 20 6b 65 79 73 2e 0d |t : Arrow keys..| 000002e0 0d 44 69 61 67 6f 6e 61 6c 73 3a 20 55 70 20 4c |.Diagonals: Up L| 000002f0 65 66 74 20 20 20 20 3a 20 46 55 4e 43 20 4f 0d |eft : FUNC O.| 00000300 20 20 20 20 20 20 20 20 20 20 20 55 70 20 52 69 | Up Ri| 00000310 67 68 74 20 20 20 3a 20 46 55 4e 43 20 50 0d 20 |ght : FUNC P. | 00000320 20 20 20 20 20 20 20 20 20 20 44 6f 77 6e 20 4c | Down L| 00000330 65 66 74 20 20 3a 20 46 55 4e 43 20 4b 0d 20 20 |eft : FUNC K. | 00000340 20 20 20 20 20 20 20 20 20 44 6f 77 6e 20 52 69 | Down Ri| 00000350 67 68 74 20 3a 20 46 55 4e 43 20 4c 0d 0d 54 65 |ght : FUNC L..Te| 00000360 78 74 20 20 3a 20 46 55 4e 43 20 54 0d 0d 4c 4f |xt : FUNC T..LO| 00000370 41 44 20 20 3a 20 46 55 4e 43 20 3c 0d 0d 53 41 |AD : FUNC <..SA| 00000380 56 45 20 20 3a 20 46 55 4e 43 20 3e 0d 0d 50 52 |VE : FUNC >..PR| 00000390 49 4e 54 20 3a 20 46 55 4e 43 20 2f 0d 0d 56 61 |INT : FUNC /..Va| 000003a0 72 79 20 41 6e 67 6c 65 20 3a 20 2b 20 46 55 4e |ry Angle : + FUN| 000003b0 43 20 41 0d 20 20 20 20 20 20 20 20 20 20 20 3a |C A. :| 000003c0 20 2d 20 46 55 4e 43 20 5a 0d 0d 56 61 72 79 20 | - FUNC Z..Vary | 000003d0 53 70 65 65 64 20 3a 20 2b 20 46 55 4e 43 20 53 |Speed : + FUNC S| 000003e0 0d 20 20 20 20 20 20 20 20 20 20 20 3a 20 2d 20 |. : - | 000003f0 46 55 4e 43 20 58 0d 0d 54 68 65 20 10 6b 65 79 |FUNC X..The .key| 00000400 73 20 10 6e 65 65 64 65 64 20 10 74 6f 20 10 75 |s .needed .to .u| 00000410 73 65 20 10 74 68 65 20 10 70 72 6f 67 72 61 6d |se .the .program| 00000420 20 61 72 65 20 77 72 69 74 74 65 6e 20 61 74 20 | are written at | 00000430 74 68 65 20 62 6f 74 74 6f 6d 20 6f 66 20 74 68 |the bottom of th| 00000440 65 20 0d 73 63 72 65 65 6e 20 10 61 73 20 10 61 |e .screen .as .a| 00000450 72 65 20 69 6e 64 69 63 61 74 6f 72 73 20 6f 66 |re indicators of| 00000460 20 74 68 65 20 61 6e 67 6c 65 2c 20 74 68 65 20 | the angle, the | 00000470 70 65 6e 20 70 6f 73 69 74 69 6f 6e 20 61 6e 64 |pen position and| 00000480 20 69 66 20 69 74 20 69 73 20 75 70 20 0d 6f 72 | if it is up .or| 00000490 20 64 6f 77 6e 2e 0d 0d 54 68 65 20 64 72 61 77 | down...The draw| 000004a0 69 6e 67 20 63 61 6e 20 62 65 20 73 61 76 65 64 |ing can be saved| 000004b0 20 61 6e 64 20 72 65 6c 6f 61 64 65 64 20 61 67 | and reloaded ag| 000004c0 61 69 6e 20 74 6f 20 64 6f 20 66 75 72 74 68 65 |ain to do furthe| 000004d0 72 20 77 6f 72 6b 2e 20 0d 0d 54 68 65 20 20 69 |r work. ..The i| 000004e0 6e 64 69 63 61 74 6f 72 20 20 6f 66 20 73 70 65 |ndicator of spe| 000004f0 65 64 20 61 6e 64 20 61 6e 67 6c 65 20 61 72 65 |ed and angle are| 00000500 20 69 6e 69 74 69 61 6c 6c 79 20 62 6f 74 68 20 | initially both | 00000510 73 65 74 20 61 74 20 35 2e 20 46 6f 72 20 73 70 |set at 5. For sp| 00000520 65 65 64 20 0d 74 68 69 73 20 10 69 6e 64 69 63 |eed .this .indic| 00000530 61 74 65 64 20 74 68 65 20 6e 75 6d 62 65 72 20 |ated the number | 00000540 6f 66 20 69 6e 64 69 76 69 64 75 61 6c 20 70 69 |of individual pi| 00000550 78 65 6c 73 20 64 72 61 77 6e 20 77 69 74 68 20 |xels drawn with | 00000560 65 61 63 68 20 6b 65 79 70 72 65 73 73 2e 20 0d |each keypress. .| 00000570 49 6e 20 10 74 68 65 20 10 63 61 73 65 20 10 10 |In .the .case ..| 00000580 6f 66 20 10 74 68 65 20 10 73 69 7a 65 20 10 6f |of .the .size .o| 00000590 66 20 10 74 68 65 20 61 6e 67 6c 65 20 74 68 69 |f .the angle thi| 000005a0 73 20 73 68 6f 75 6c 64 20 62 65 20 63 6f 6e 73 |s should be cons| 000005b0 69 64 65 72 65 64 20 61 6e 20 0d 61 72 62 69 74 |idered an .arbit| 000005c0 6f 72 79 20 10 66 69 67 75 72 65 20 10 10 6d 61 |ory .figure ..ma| 000005d0 69 6e 6c 79 20 10 74 6f 20 10 63 6f 6d 70 61 72 |inly .to .compar| 000005e0 65 20 77 69 74 68 20 61 6e 79 20 63 68 61 6e 67 |e with any chang| 000005f0 65 73 20 79 6f 75 20 73 65 74 2e 20 57 68 65 6e |es you set. When| 00000600 20 79 6f 75 20 0d 61 6c 74 65 72 20 10 74 68 65 | you .alter .the| 00000610 20 10 73 70 65 65 64 20 10 77 69 74 68 20 46 55 | .speed .with FU| 00000620 4e 43 20 53 20 2f 20 58 20 74 68 65 20 66 69 67 |NC S / X the fig| 00000630 75 72 65 20 66 6f 72 20 61 6e 67 6c 65 20 61 6c |ure for angle al| 00000640 73 6f 20 69 6e 63 72 65 61 73 65 73 20 61 74 20 |so increases at | 00000650 0d 74 68 65 20 10 73 61 6d 65 20 10 72 61 74 65 |.the .same .rate| 00000660 20 10 62 75 74 20 74 68 65 20 61 6e 67 6c 65 20 | .but the angle | 00000670 64 72 61 77 6e 20 77 69 6c 6c 20 72 65 6d 61 69 |drawn will remai| 00000680 6e 20 74 68 65 20 73 61 6d 65 20 75 6e 6c 65 73 |n the same unles| 00000690 73 20 79 6f 75 20 76 61 72 79 20 0d 74 68 65 20 |s you vary .the | 000006a0 10 61 6e 67 6c 65 20 10 10 69 74 73 65 6c 66 20 |.angle ..itself | 000006b0 10 77 69 74 68 20 46 55 4e 43 20 41 20 2f 20 5a |.with FUNC A / Z| 000006c0 2e 20 54 68 69 73 20 69 73 20 61 20 70 72 6f 62 |. This is a prob| 000006d0 6c 65 6d 20 77 69 74 68 20 74 68 65 20 6d 61 74 |lem with the mat| 000006e0 68 73 20 69 6e 20 0d 74 68 65 20 10 10 70 72 6f |hs in .the ..pro| 000006f0 67 72 61 6d 2e 20 10 74 6f 20 63 6f 72 72 65 63 |gram. .to correc| 00000700 74 20 74 68 69 73 20 77 69 6c 6c 20 73 6c 6f 77 |t this will slow| 00000710 20 74 68 65 20 70 72 6f 67 72 61 6d 20 64 6f 77 | the program dow| 00000720 6e 2e 20 59 6f 75 20 77 69 6c 6c 20 73 6f 6f 6e |n. You will soon| 00000730 20 0d 67 65 74 20 10 75 73 65 20 74 6f 20 69 74 | .get .use to it| 00000740 2e 0d 0d 49 74 20 10 64 6f 65 73 20 10 6e 6f 74 |...It .does .not| 00000750 20 75 73 65 20 64 69 66 66 65 72 65 6e 74 20 63 | use different c| 00000760 6f 6c 6f 75 72 73 20 6d 61 69 6e 6c 79 20 62 65 |olours mainly be| 00000770 63 61 75 73 65 20 74 68 65 73 65 20 63 61 6e 20 |cause these can | 00000780 62 65 20 64 69 66 66 69 63 75 6c 74 20 0d 74 6f |be difficult .to| 00000790 20 70 72 69 6e 74 20 6f 6e 20 70 61 70 65 72 20 | print on paper | 000007a0 65 76 65 6e 20 77 69 74 68 20 61 20 63 6f 6c 6f |even with a colo| 000007b0 75 72 20 70 72 69 6e 74 65 72 2e 20 0d 0d 57 68 |ur printer. ..Wh| 000007c0 65 6e 20 49 20 73 74 61 72 74 65 64 20 49 20 73 |en I started I s| 000007d0 65 74 20 61 20 6e 75 6d 62 65 72 20 6f 66 20 63 |et a number of c| 000007e0 72 69 74 65 72 69 61 2e 0d 0d 31 2e 20 49 74 20 |riteria...1. It | 000007f0 10 73 68 6f 75 6c 64 20 62 65 20 73 69 6d 70 6c |.should be simpl| 00000800 65 20 74 6f 20 75 73 65 2e 20 53 6f 6d 65 20 70 |e to use. Some p| 00000810 72 6f 67 72 61 6d 73 20 68 61 76 65 20 6d 61 6e |rograms have man| 00000820 75 61 6c 73 20 77 68 69 63 68 20 63 61 6e 20 74 |uals which can t| 00000830 61 6b 65 20 0d 68 6f 75 72 73 20 10 74 6f 20 10 |ake .hours .to .| 00000840 64 69 67 65 73 74 2e 20 44 69 61 67 72 61 6d 20 |digest. Diagram | 00000850 73 68 6f 75 6c 64 20 62 65 20 75 6e 64 65 72 73 |should be unders| 00000860 74 6f 6f 64 20 62 79 20 61 6c 6d 6f 73 74 20 61 |tood by almost a| 00000870 6e 79 6f 6e 65 20 69 6e 20 61 20 66 65 77 20 0d |nyone in a few .| 00000880 6d 69 6e 75 74 65 73 2e 0d 0d 32 2e 20 10 49 74 |minutes...2. .It| 00000890 20 10 6d 75 73 74 20 10 68 61 76 65 20 10 61 20 | .must .have .a | 000008a0 63 6c 65 61 72 20 70 72 6f 67 72 61 6d 6d 69 6e |clear programmin| 000008b0 67 20 73 74 79 6c 65 20 74 6f 20 65 6e 61 62 6c |g style to enabl| 000008c0 65 20 75 73 65 72 73 20 74 6f 20 61 64 61 70 74 |e users to adapt| 000008d0 20 6f 72 20 0d 69 6d 70 72 6f 76 65 20 10 69 74 | or .improve .it| 000008e0 20 10 65 61 73 69 6c 79 2e 20 10 54 68 69 73 20 | .easily. .This | 000008f0 6d 65 61 6e 74 20 75 73 69 6e 67 20 70 72 6f 63 |meant using proc| 00000900 65 64 75 72 65 73 20 77 68 65 72 65 76 65 72 20 |edures wherever | 00000910 70 6f 73 73 69 62 6c 65 2e 20 45 61 63 68 20 0d |possible. Each .| 00000920 70 72 6f 63 65 64 75 72 65 20 63 6c 65 61 72 6c |procedure clearl| 00000930 79 20 6c 61 62 6c 65 64 2c 20 65 61 63 68 20 66 |y labled, each f| 00000940 75 6e 63 74 69 6f 6e 20 75 73 69 6e 67 20 6f 6e |unction using on| 00000950 65 20 70 72 6f 63 65 64 75 72 65 2e 0d 0d 33 2e |e procedure...3.| 00000960 20 20 49 74 20 6d 75 73 74 20 62 65 20 61 62 6c | It must be abl| 00000970 65 20 74 6f 20 64 72 61 77 20 66 69 6e 65 20 64 |e to draw fine d| 00000980 65 74 61 69 6c 2e 20 49 20 68 61 76 65 20 75 73 |etail. I have us| 00000990 65 64 20 6d 6f 64 65 20 30 20 61 6e 64 20 74 68 |ed mode 0 and th| 000009a0 65 20 73 70 65 65 64 20 0d 6f 66 20 10 74 68 65 |e speed .of .the| 000009b0 20 63 75 72 73 6f 72 20 6d 6f 76 65 6d 65 6e 74 | cursor movement| 000009c0 3b 20 61 6e 64 20 74 68 65 72 65 66 6f 72 65 20 |; and therefore | 000009d0 74 68 65 20 6c 65 6e 67 74 68 20 6f 66 20 65 61 |the length of ea| 000009e0 63 68 20 6b 65 79 70 72 65 73 73 20 63 61 6e 20 |ch keypress can | 000009f0 62 65 20 0d 76 61 72 69 65 64 20 61 73 20 49 20 |be .varied as I | 00000a00 73 61 69 64 20 62 65 66 6f 72 65 2e 0d 0d 34 2e |said before...4.| 00000a10 20 10 49 74 20 10 6d 75 73 74 20 62 65 20 70 6f | .It .must be po| 00000a20 73 73 69 62 6c 65 20 74 6f 20 72 65 4c 4f 41 44 |ssible to reLOAD| 00000a30 20 61 20 66 69 6c 65 20 66 6f 72 20 66 75 72 74 | a file for furt| 00000a40 68 65 72 20 77 6f 72 6b 2e 0d 0d 35 2e 20 49 74 |her work...5. It| 00000a50 20 6d 75 73 74 20 62 65 20 70 6f 73 73 69 62 6c | must be possibl| 00000a60 65 20 74 6f 20 6c 6f 61 64 20 61 20 66 69 6c 65 |e to load a file| 00000a70 20 69 6e 64 65 70 65 6e 64 65 6e 74 20 6f 66 20 | independent of | 00000a80 44 69 61 67 72 61 6d 2e 20 54 68 69 73 20 63 61 |Diagram. This ca| 00000a90 6e 20 62 65 20 0d 64 6f 6e 65 20 62 79 20 73 77 |n be .done by sw| 00000aa0 69 74 63 68 69 6e 67 20 74 6f 20 4d 4f 44 45 30 |itching to MODE0| 00000ab0 20 61 6e 64 20 2a 4c 4f 41 44 69 6e 67 20 74 68 | and *LOADing th| 00000ac0 65 20 66 69 6c 65 2e 0d 0d 69 65 20 31 30 20 4d |e file...ie 10 M| 00000ad0 4f 44 45 30 0d 20 20 20 32 30 20 2a 4c 4f 41 44 |ODE0. 20 *LOAD| 00000ae0 20 3c 66 69 6c 65 3e 0d 0d 41 64 64 72 65 73 73 | <file>..Address| 00000af0 65 73 20 61 72 65 20 6e 6f 74 20 69 6d 70 6f 72 |es are not impor| 00000b00 74 61 6e 74 2e 0d 0d 53 6f 6d 65 20 70 72 6f 62 |tant...Some prob| 00000b10 6c 65 6d 73 20 66 6f 72 20 79 6f 75 20 74 6f 20 |lems for you to | 00000b20 77 6f 72 6b 20 6f 6e 3a 0d 0d 54 68 65 72 65 20 |work on:..There | 00000b30 10 69 73 20 6e 6f 20 66 61 63 69 6c 69 74 79 20 |.is no facility | 00000b40 74 6f 20 64 65 6c 65 74 65 20 6c 69 6e 65 73 20 |to delete lines | 00000b50 6f 6e 63 65 20 74 68 65 79 20 61 72 65 20 64 72 |once they are dr| 00000b60 61 77 6e 2e 20 54 68 69 73 20 73 68 6f 75 6c 64 |awn. This should| 00000b70 20 62 65 20 0d 71 75 69 74 65 20 65 61 73 79 20 | be .quite easy | 00000b80 74 6f 20 73 65 74 75 70 2e 0d 0d 49 66 20 79 6f |to setup...If yo| 00000b90 75 20 74 72 79 20 74 6f 20 6c 6f 61 64 20 6f 72 |u try to load or| 00000ba0 20 73 61 76 65 20 61 20 66 69 6c 65 20 77 69 74 | save a file wit| 00000bb0 68 20 61 20 6e 61 6d 65 20 70 72 65 63 65 65 64 |h a name preceed| 00000bc0 65 64 20 62 79 20 61 6e 79 20 73 70 61 63 65 73 |ed by any spaces| 00000bd0 20 74 68 65 20 0d 70 72 6f 67 72 61 6d 20 10 77 | the .program .w| 00000be0 69 6c 6c 20 10 63 72 61 73 68 2e 20 49 20 68 61 |ill .crash. I ha| 00000bf0 76 65 20 74 75 72 6e 65 64 20 6f 6e 20 74 68 65 |ve turned on the| 00000c00 20 63 75 72 73 6f 72 20 64 75 72 69 6e 67 20 4c | cursor during L| 00000c10 4f 41 44 69 6e 67 2c 20 53 41 56 45 69 6e 67 20 |OADing, SAVEing | 00000c20 0d 61 6e 64 20 10 54 65 78 74 20 10 74 6f 20 10 |.and .Text .to .| 00000c30 69 6e 64 69 63 61 74 65 20 10 69 66 20 61 6e 79 |indicate .if any| 00000c40 20 73 70 61 63 65 73 20 6d 69 67 68 74 20 62 65 | spaces might be| 00000c50 20 6c 69 6b 65 6c 79 2e 20 49 66 20 73 6f 20 64 | likely. If so d| 00000c60 65 6c 65 74 65 20 74 68 65 6d 20 0d 62 65 66 6f |elete them .befo| 00000c70 72 65 20 65 6e 74 65 72 69 6e 67 20 61 20 66 69 |re entering a fi| 00000c80 6c 65 20 6e 61 6d 65 2e 20 54 68 65 20 73 70 61 |le name. The spa| 00000c90 63 65 73 20 6f 63 63 75 72 20 62 65 63 61 75 73 |ces occur becaus| 00000ca0 65 20 74 68 65 20 61 75 74 6f 20 72 65 70 65 61 |e the auto repea| 00000cb0 74 20 68 61 73 20 0d 62 65 65 6e 20 72 65 73 65 |t has .been rese| 00000cc0 74 20 77 69 74 68 20 2a 46 58 31 31 2c 32 30 2e |t with *FX11,20.| 00000cd0 0d 0d 54 68 65 20 10 70 65 6e 20 10 69 73 20 61 |..The .pen .is a| 00000ce0 6c 77 61 79 73 20 75 70 20 61 66 74 65 72 20 74 |lways up after t| 00000cf0 65 78 74 20 69 6e 70 75 74 2e 20 54 68 69 73 20 |ext input. This | 00000d00 69 73 20 6e 65 63 65 73 73 61 72 79 20 62 65 63 |is necessary bec| 00000d10 61 75 73 65 20 61 20 6c 69 6e 65 20 0d 69 73 20 |ause a line .is | 00000d20 64 72 61 77 6e 20 6f 74 68 65 72 77 69 73 65 20 |drawn otherwise | 00000d30 62 65 66 6f 72 65 20 74 68 65 20 65 6e 64 20 6f |before the end o| 00000d40 66 20 74 68 65 20 70 72 6f 63 65 64 75 72 65 2e |f the procedure.| 00000d50 0d 0d 54 68 65 20 73 69 7a 65 20 6f 66 20 74 68 |..The size of th| 00000d60 65 20 61 6e 67 6c 65 20 69 73 20 69 6e 64 69 63 |e angle is indic| 00000d70 61 74 65 64 20 62 79 20 35 20 3d 20 34 35 20 64 |ated by 5 = 45 d| 00000d80 65 67 72 65 65 73 20 61 6e 64 20 73 6f 20 6f 6e |egrees and so on| 00000d90 2e 20 0d 0d 49 66 20 10 73 6f 6d 65 6f 6e 65 20 |. ..If .someone | 00000da0 10 63 6f 75 6c 64 20 64 65 76 69 73 65 20 61 20 |.could devise a | 00000db0 63 75 72 73 6f 72 20 77 68 69 63 68 20 77 6f 75 |cursor which wou| 00000dc0 6c 64 20 62 65 20 73 65 65 6e 20 65 76 65 6e 20 |ld be seen even | 00000dd0 77 68 65 6e 20 10 74 68 65 20 70 65 6e 20 0d 69 |when .the pen .i| 00000de0 73 20 75 70 20 74 68 65 20 70 72 6f 67 72 61 6d |s up the program| 00000df0 20 77 6f 75 6c 64 20 62 65 20 65 61 73 69 65 72 | would be easier| 00000e00 20 74 6f 20 75 73 65 2e 0d 0d 53 6f 6d 65 20 65 | to use...Some e| 00000e10 6e 68 61 6e 63 6d 65 6e 74 73 20 6e 65 65 64 65 |nhancments neede| 00000e20 64 3a 0d 0d 50 72 69 6e 74 65 72 20 10 64 75 6d |d:..Printer .dum| 00000e30 70 73 2e 20 10 49 20 61 6d 20 77 6f 72 6b 69 6e |ps. .I am workin| 00000e40 67 20 6f 6e 20 61 20 70 72 69 6e 74 65 72 20 64 |g on a printer d| 00000e50 75 6d 70 20 66 6f 72 20 6d 79 20 53 74 61 72 20 |ump for my Star | 00000e60 4c 43 31 30 20 70 72 69 6e 74 65 72 2e 20 0d 49 |LC10 printer. .I| 00000e70 74 20 73 68 6f 75 6c 64 20 77 6f 72 6b 20 77 69 |t should work wi| 00000e80 74 68 20 61 6e 79 20 45 70 73 6f 6d 20 46 58 38 |th any Epsom FX8| 00000e90 30 20 63 6f 6d 70 61 74 61 62 6c 65 20 62 75 74 |0 compatable but| 00000ea0 20 6f 74 68 65 72 20 70 72 69 6e 74 65 72 73 20 | other printers | 00000eb0 6d 61 79 20 6e 65 65 64 20 0d 64 69 66 66 65 72 |may need .differ| 00000ec0 65 6e 74 20 10 64 75 6d 70 73 2e 20 10 54 68 69 |ent .dumps. .Thi| 00000ed0 73 20 69 73 20 64 65 66 69 6e 69 74 65 6c 79 20 |s is definitely | 00000ee0 6f 76 65 72 20 74 6f 20 79 6f 75 2e 20 49 66 20 |over to you. If | 00000ef0 79 6f 75 20 68 61 76 65 20 61 20 64 75 6d 70 20 |you have a dump | 00000f00 66 6f 72 20 10 0d 79 6f 75 72 20 70 72 69 6e 74 |for ..your print| 00000f10 65 72 20 53 45 4e 44 20 49 54 20 49 4e 0d 0d 49 |er SEND IT IN..I| 00000f20 63 6f 6e 73 3a 20 10 53 65 74 73 20 10 6f 66 20 |cons: .Sets .of | 00000f30 10 69 63 6f 6e 73 20 10 6d 69 67 68 74 20 10 62 |.icons .might .b| 00000f40 65 20 76 65 72 79 20 75 73 65 66 75 6c 2e 20 54 |e very useful. T| 00000f50 68 65 73 65 20 6d 69 67 68 74 20 62 65 20 70 72 |hese might be pr| 00000f60 6f 67 72 61 6d 6d 65 64 20 0d 75 73 69 6e 67 20 |ogrammed .using | 00000f70 56 44 55 20 63 6f 64 65 73 20 62 75 74 20 69 6e |VDU codes but in| 00000f80 20 6d 6f 64 65 30 20 77 69 6c 6c 20 62 65 20 76 | mode0 will be v| 00000f90 65 72 79 20 73 6d 61 6c 6c 2e 10 4f 74 68 65 72 |ery small..Other| 00000fa0 20 6c 61 72 67 65 72 20 69 63 6f 6e 73 20 6d 69 | larger icons mi| 00000fb0 67 68 74 20 0d 62 65 20 6d 6f 72 65 20 20 10 75 |ght .be more .u| 00000fc0 73 65 66 75 6c 2c 20 10 73 61 79 20 10 66 75 72 |seful, .say .fur| 00000fd0 6e 69 74 75 72 65 20 10 6f 75 74 6c 69 6e 65 73 |niture .outlines| 00000fe0 20 10 74 6f 20 61 6c 6c 6f 77 20 10 64 69 61 67 | .to allow .diag| 00000ff0 72 61 6d 73 20 6f 66 20 61 20 72 6f 6f 6d 20 0d |rams of a room .| 00001000 6c 61 79 6f 75 74 20 10 74 6f 20 10 62 65 20 10 |layout .to .be .| 00001010 6d 61 64 65 2c 20 10 65 6c 65 63 74 72 6f 6e 69 |made, .electroni| 00001020 63 20 10 73 79 6d 62 6f 6c 73 20 10 77 6f 75 6c |c .symbols .woul| 00001030 64 20 10 73 75 69 74 20 74 68 6f 73 65 20 10 6f |d .suit those .o| 00001040 66 20 75 73 20 69 6e 74 6f 20 0d 65 6c 65 63 74 |f us into .elect| 00001050 72 6f 6e 69 63 73 2c 20 10 73 6f 6d 65 20 10 66 |ronics, .some .f| 00001060 61 6e 63 79 20 10 6c 65 74 74 65 72 73 2e 20 10 |ancy .letters. .| 00001070 54 68 65 73 65 20 10 63 61 6e 20 10 62 65 20 70 |These .can .be p| 00001080 75 74 20 69 6e 74 6f 20 74 68 65 20 10 6e 75 6d |ut into the .num| 00001090 65 72 69 63 20 0d 66 75 6e 63 74 69 6f 6e 20 10 |eric .function .| 000010a0 6b 65 79 73 20 10 6f 72 20 10 74 68 65 20 73 70 |keys .or .the sp| 000010b0 61 72 65 20 6c 65 74 74 65 72 20 6b 65 79 73 20 |are letter keys | 000010c0 77 68 69 63 68 20 68 61 76 65 20 61 6c 6c 20 62 |which have all b| 000010d0 65 65 6e 20 72 65 73 65 74 20 10 77 69 74 68 20 |een reset .with | 000010e0 0d 2a 46 58 32 32 36 20 61 6e 64 20 2a 46 58 32 |.*FX226 and *FX2| 000010f0 32 37 2e 20 53 65 65 20 70 61 67 65 20 32 38 33 |27. See page 283| 00001100 20 6f 66 20 74 68 65 20 45 6c 6b 20 55 73 65 72 | of the Elk User| 00001110 20 47 75 69 64 65 2e 0d 0d 54 68 65 20 20 70 75 | Guide...The pu| 00001120 72 70 6f 73 65 20 6f 66 20 44 69 61 67 72 61 6d |rpose of Diagram| 00001130 20 69 73 20 66 6f 72 20 79 6f 75 20 74 6f 20 69 | is for you to i| 00001140 6c 6c 75 73 74 72 61 74 65 20 79 6f 75 72 20 73 |llustrate your s| 00001150 75 62 6d 69 73 73 69 6f 6e 73 20 74 6f 20 45 55 |ubmissions to EU| 00001160 47 2e 20 0d 44 69 61 67 72 61 6d 20 20 69 73 20 |G. .Diagram is | 00001170 20 72 65 61 64 79 20 66 6f 72 20 75 73 65 20 6e | ready for use n| 00001180 6f 77 2e 20 55 73 65 20 69 74 2e 20 49 74 20 77 |ow. Use it. It w| 00001190 69 6c 6c 20 73 65 65 6d 20 61 20 6c 69 74 74 6c |ill seem a littl| 000011a0 65 20 66 69 64 64 65 6c 79 20 61 6e 64 20 0d 73 |e fiddely and .s| 000011b0 6c 6f 77 2c 20 20 63 65 72 74 61 69 6e 6c 79 20 |low, certainly | 000011c0 20 6e 6f 74 20 6c 69 6b 65 20 61 20 70 65 6e 20 | not like a pen | 000011d0 61 6e 64 20 70 61 70 65 72 2e 20 42 75 74 20 64 |and paper. But d| 000011e0 6f 20 75 73 65 20 69 74 2e 20 44 72 61 77 20 61 |o use it. Draw a| 000011f0 20 64 69 61 67 72 61 6d 20 0d 6f 66 20 20 74 68 | diagram .of th| 00001200 65 20 20 6c 61 79 6f 75 74 20 20 6f 66 20 20 79 |e layout of y| 00001210 6f 75 72 20 63 6f 6d 70 75 74 65 72 20 73 65 74 |our computer set| 00001220 75 70 2c 20 61 6e 79 20 70 72 6f 62 6c 65 6d 73 |up, any problems| 00001230 20 79 6f 75 20 6d 61 79 20 68 61 76 65 2e 20 44 | you may have. D| 00001240 72 61 77 20 0d 73 6f 6d 65 74 68 69 6e 67 20 20 |raw .something | 00001250 66 6f 72 20 74 68 65 20 70 72 61 63 74 69 63 61 |for the practica| 00001260 6c 20 69 64 65 61 73 20 73 65 63 74 69 6f 6e 2c |l ideas section,| 00001270 20 69 66 20 74 68 65 72 65 20 6e 65 65 64 73 20 | if there needs | 00001280 74 6f 20 62 65 20 61 20 6c 6f 74 20 6f 66 20 0d |to be a lot of .| 00001290 74 65 78 74 20 20 77 72 69 74 65 20 20 79 6f 75 |text write you| 000012a0 72 20 20 74 65 78 74 20 20 6f 6e 20 20 79 6f 75 |r text on you| 000012b0 72 20 20 77 6f 72 64 20 70 72 6f 63 65 73 73 6f |r word processo| 000012c0 72 20 6d 61 6b 69 6e 67 20 72 65 66 65 72 65 6e |r making referen| 000012d0 63 65 20 74 6f 20 74 68 65 20 0d 64 69 61 67 72 |ce to the .diagr| 000012e0 61 6d 2c 20 20 74 68 65 6e 20 20 64 72 61 77 20 |am, then draw | 000012f0 20 79 6f 75 72 20 64 69 61 67 72 61 6d 2e 20 53 | your diagram. S| 00001300 65 6e 64 20 20 69 6e 20 62 6f 74 68 20 66 69 6c |end in both fil| 00001310 65 73 2e 20 4d 79 20 77 69 66 65 20 68 61 73 20 |es. My wife has | 00001320 6a 75 73 74 20 0d 73 75 67 67 65 73 74 65 64 20 |just .suggested | 00001330 20 64 72 61 77 69 6e 67 20 20 61 20 20 63 61 72 | drawing a car| 00001340 74 6f 6f 6e 20 6a 6f 6b 65 2e 20 4d 6f 73 74 20 |toon joke. Most | 00001350 6f 66 20 75 73 20 63 6f 75 6c 64 20 64 6f 20 77 |of us could do w| 00001360 69 74 68 20 61 20 6c 61 75 67 68 20 61 6e 64 20 |ith a laugh and | 00001370 0d 73 69 6e 63 65 20 20 66 65 77 20 20 6f 66 20 |.since few of | 00001380 20 79 6f 75 20 20 61 72 65 20 65 76 65 72 20 6c | you are ever l| 00001390 69 6b 65 6c 79 20 74 6f 20 73 65 65 20 6d 79 20 |ikely to see my | 000013a0 63 61 72 20 61 20 63 61 72 74 6f 6f 6e 20 77 6f |car a cartoon wo| 000013b0 75 6c 64 20 62 65 20 74 68 65 20 0d 6e 65 78 74 |uld be the .next| 000013c0 20 62 65 73 74 20 74 68 69 6e 67 2e 0d 0d 53 45 | best thing...SE| 000013d0 4e 44 20 49 54 20 49 4e 0d 0d 49 20 20 68 61 76 |ND IT IN..I hav| 000013e0 65 20 20 64 72 61 77 6e 20 61 20 63 61 72 74 6f |e drawn a carto| 000013f0 6f 6e 1a 20 63 61 6c 6c 65 64 1a 20 43 61 72 74 |on. called. Cart| 00001400 6f 6f 6e 2e 20 59 6f 75 20 63 61 6e 20 6c 6f 61 |oon. You can loa| 00001410 64 20 69 74 20 69 6e 74 6f 20 44 69 61 67 72 61 |d it into Diagra| 00001420 6d 20 6f 72 20 0d 6d 6f 76 65 20 74 6f 20 4d 4f |m or .move to MO| 00001430 44 45 30 20 61 6e 64 20 2a 4c 4f 41 44 20 69 74 |DE0 and *LOAD it| 00001440 2e 20 49 1a 20 66 69 72 73 74 20 73 6b 65 74 63 |. I. first sketc| 00001450 68 65 64 20 74 68 65 20 6f 75 74 6c 69 6e 65 20 |hed the outline | 00001460 6f 6e 74 6f 20 70 61 70 65 72 2e 20 74 68 65 6e |onto paper. then| 00001470 20 0d 61 73 20 49 20 64 72 65 77 20 65 61 63 68 | .as I drew each| 00001480 20 6c 69 6e 65 20 49 20 6e 6f 74 65 64 20 74 68 | line I noted th| 00001490 65 1a 20 58 20 61 6e 64 20 59 20 70 6f 73 69 74 |e. X and Y posit| 000014a0 69 6f 6e 73 20 61 74 20 74 68 65 20 73 74 61 72 |ions at the star| 000014b0 74 20 61 6e 64 20 65 6e 64 20 6f 66 20 0d 65 61 |t and end of .ea| 000014c0 63 68 20 6c 69 6e 65 20 64 72 61 77 6e 2e 20 54 |ch line drawn. T| 000014d0 68 69 73 20 68 65 6c 70 65 64 20 77 69 74 68 20 |his helped with | 000014e0 63 6f 72 72 65 63 74 6c 79 20 6a 6f 69 6e 69 6e |correctly joinin| 000014f0 67 20 75 70 20 6c 69 6e 65 73 20 61 73 20 72 65 |g up lines as re| 00001500 71 75 69 72 65 64 2e 0d 0d 41 6e 64 20 10 72 65 |quired...And .re| 00001510 6d 65 6d 62 65 72 20 10 61 20 66 69 6c 65 20 63 |member .a file c| 00001520 61 6e 20 62 65 20 72 65 2d 4c 4f 41 44 65 64 20 |an be re-LOADed | 00001530 61 6e 64 20 66 75 72 74 68 65 72 20 77 6f 72 6b |and further work| 00001540 20 64 6f 6e 65 20 6f 6e 20 69 74 20 73 6f 20 79 | done on it so y| 00001550 6f 75 20 0d 64 6f 6e 27 74 20 10 6e 65 65 64 20 |ou .don't .need | 00001560 10 74 6f 20 73 70 65 6e 64 20 61 67 65 73 20 74 |.to spend ages t| 00001570 72 79 69 6e 67 20 74 6f 20 66 69 6e 69 73 68 2e |rying to finish.| 00001580 20 53 74 61 72 74 20 73 6f 6d 65 74 68 69 6e 67 | Start something| 00001590 20 6e 6f 77 20 61 6e 64 20 73 61 76 65 20 0d 69 | now and save .i| 000015a0 74 20 61 67 61 69 6e 20 66 6f 72 20 6c 61 74 65 |t again for late| 000015b0 72 2e 0d 0d 53 45 4e 44 20 49 54 20 49 4e 2e 0d |r...SEND IT IN..| 000015c0
A/DIAG1.m0
A/DIAG1.m1
A/DIAG1.m2
A/DIAG1.m4
A/DIAG1.m5
.