Home » CEEFAX disks » telesoftware6.adl » 15-04-88/D\INFO
15-04-88/D\INFO
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 » CEEFAX disks » telesoftware6.adl |
| Filename: | 15-04-88/D\INFO |
| Read OK: | ✔ |
| File size: | 069B bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
Notes on the DISTANCE programme.
The distance programme will determine the shortest (great circle) distance
between any two points on the surface of the earth.
You are required to enter the place name (up to ten letters), followed by
the latitude and longitude. The more accurate your entries, the more
accurate will be your results, so use a good atlas. The programme is
designed to work to one minute (one sixtieth of one degree).
One minute of arc at the suface of the earth is by definition one nautical
mile. The angle between the two points specified is determined by
spherical trigonometry in line 660, thus giving a distance in nautical
miles. This distance is then converted into the desired units.
The programme assumes, incorrectly, that the earth is a perfect sphere,
whereas the actual radius of the earth at the equator is a few miles
greater than the radius at the poles. The errors are, however, small.
The associated "LOADER" programme produces a data file of places and
co-ordinates which can then be loaded into the "DISTANCE" programme. It is
then only neccessary to enter place names to determine distance.
The programmes include a data file "CITIES".
As an example run the main programme ("DIST"), load the data file "CITIES"
when prompted, and then type in LONDON then SYDNEY when prompted.
Data files can be read by using the "LOADER" programme.
Ensure that the data file "CITIES" is the last file on your disc, or a
CANT EXTEND error will occur if you attempt to add to this file.
The programme will produce a printout of distances, and of the contents of
data files if requested. Printer control codes are for an Epson compatible
printer.
00000000 0d 4e 6f 74 65 73 20 6f 6e 20 74 68 65 20 44 49 |.Notes on the DI|
00000010 53 54 41 4e 43 45 20 70 72 6f 67 72 61 6d 6d 65 |STANCE programme|
00000020 2e 0d 0d 54 68 65 20 64 69 73 74 61 6e 63 65 20 |...The distance |
00000030 70 72 6f 67 72 61 6d 6d 65 20 77 69 6c 6c 20 64 |programme will d|
00000040 65 74 65 72 6d 69 6e 65 20 74 68 65 20 73 68 6f |etermine the sho|
00000050 72 74 65 73 74 20 28 67 72 65 61 74 20 63 69 72 |rtest (great cir|
00000060 63 6c 65 29 20 64 69 73 74 61 6e 63 65 0d 62 65 |cle) distance.be|
00000070 74 77 65 65 6e 20 61 6e 79 20 74 77 6f 20 70 6f |tween any two po|
00000080 69 6e 74 73 20 6f 6e 20 74 68 65 20 73 75 72 66 |ints on the surf|
00000090 61 63 65 20 6f 66 20 74 68 65 20 65 61 72 74 68 |ace of the earth|
000000a0 2e 0d 0d 59 6f 75 20 61 72 65 20 72 65 71 75 69 |...You are requi|
000000b0 72 65 64 20 74 6f 20 65 6e 74 65 72 20 74 68 65 |red to enter the|
000000c0 20 70 6c 61 63 65 20 6e 61 6d 65 20 28 75 70 20 | place name (up |
000000d0 74 6f 20 74 65 6e 20 6c 65 74 74 65 72 73 29 2c |to ten letters),|
000000e0 20 66 6f 6c 6c 6f 77 65 64 20 62 79 0d 74 68 65 | followed by.the|
000000f0 20 6c 61 74 69 74 75 64 65 20 61 6e 64 20 6c 6f | latitude and lo|
00000100 6e 67 69 74 75 64 65 2e 20 54 68 65 20 6d 6f 72 |ngitude. The mor|
00000110 65 20 61 63 63 75 72 61 74 65 20 79 6f 75 72 20 |e accurate your |
00000120 65 6e 74 72 69 65 73 2c 20 74 68 65 20 6d 6f 72 |entries, the mor|
00000130 65 0d 61 63 63 75 72 61 74 65 20 77 69 6c 6c 20 |e.accurate will |
00000140 62 65 20 79 6f 75 72 20 72 65 73 75 6c 74 73 2c |be your results,|
00000150 20 73 6f 20 75 73 65 20 61 20 67 6f 6f 64 20 61 | so use a good a|
00000160 74 6c 61 73 2e 20 54 68 65 20 70 72 6f 67 72 61 |tlas. The progra|
00000170 6d 6d 65 20 69 73 0d 64 65 73 69 67 6e 65 64 20 |mme is.designed |
00000180 74 6f 20 77 6f 72 6b 20 74 6f 20 6f 6e 65 20 6d |to work to one m|
00000190 69 6e 75 74 65 20 28 6f 6e 65 20 73 69 78 74 69 |inute (one sixti|
000001a0 65 74 68 20 6f 66 20 6f 6e 65 20 64 65 67 72 65 |eth of one degre|
000001b0 65 29 2e 0d 0d 4f 6e 65 20 6d 69 6e 75 74 65 20 |e)...One minute |
000001c0 6f 66 20 61 72 63 20 61 74 20 74 68 65 20 73 75 |of arc at the su|
000001d0 66 61 63 65 20 6f 66 20 74 68 65 20 65 61 72 74 |face of the eart|
000001e0 68 20 69 73 20 62 79 20 64 65 66 69 6e 69 74 69 |h is by definiti|
000001f0 6f 6e 20 6f 6e 65 20 6e 61 75 74 69 63 61 6c 20 |on one nautical |
00000200 0d 6d 69 6c 65 2e 20 54 68 65 20 61 6e 67 6c 65 |.mile. The angle|
00000210 20 62 65 74 77 65 65 6e 20 74 68 65 20 74 77 6f | between the two|
00000220 20 70 6f 69 6e 74 73 20 73 70 65 63 69 66 69 65 | points specifie|
00000230 64 20 69 73 20 64 65 74 65 72 6d 69 6e 65 64 20 |d is determined |
00000240 62 79 0d 73 70 68 65 72 69 63 61 6c 20 74 72 69 |by.spherical tri|
00000250 67 6f 6e 6f 6d 65 74 72 79 20 69 6e 20 6c 69 6e |gonometry in lin|
00000260 65 20 36 36 30 2c 20 74 68 75 73 20 67 69 76 69 |e 660, thus givi|
00000270 6e 67 20 61 20 64 69 73 74 61 6e 63 65 20 69 6e |ng a distance in|
00000280 20 6e 61 75 74 69 63 61 6c 0d 6d 69 6c 65 73 2e | nautical.miles.|
00000290 20 54 68 69 73 20 64 69 73 74 61 6e 63 65 20 69 | This distance i|
000002a0 73 20 74 68 65 6e 20 63 6f 6e 76 65 72 74 65 64 |s then converted|
000002b0 20 69 6e 74 6f 20 74 68 65 20 64 65 73 69 72 65 | into the desire|
000002c0 64 20 75 6e 69 74 73 2e 0d 0d 54 68 65 20 70 72 |d units...The pr|
000002d0 6f 67 72 61 6d 6d 65 20 61 73 73 75 6d 65 73 2c |ogramme assumes,|
000002e0 20 69 6e 63 6f 72 72 65 63 74 6c 79 2c 20 74 68 | incorrectly, th|
000002f0 61 74 20 74 68 65 20 65 61 72 74 68 20 69 73 20 |at the earth is |
00000300 61 20 70 65 72 66 65 63 74 20 73 70 68 65 72 65 |a perfect sphere|
00000310 2c 0d 77 68 65 72 65 61 73 20 74 68 65 20 61 63 |,.whereas the ac|
00000320 74 75 61 6c 20 72 61 64 69 75 73 20 6f 66 20 74 |tual radius of t|
00000330 68 65 20 65 61 72 74 68 20 61 74 20 74 68 65 20 |he earth at the |
00000340 65 71 75 61 74 6f 72 20 69 73 20 61 20 66 65 77 |equator is a few|
00000350 20 6d 69 6c 65 73 0d 67 72 65 61 74 65 72 20 74 | miles.greater t|
00000360 68 61 6e 20 74 68 65 20 72 61 64 69 75 73 20 61 |han the radius a|
00000370 74 20 74 68 65 20 70 6f 6c 65 73 2e 20 54 68 65 |t the poles. The|
00000380 20 65 72 72 6f 72 73 20 61 72 65 2c 20 68 6f 77 | errors are, how|
00000390 65 76 65 72 2c 20 73 6d 61 6c 6c 2e 0d 0d 54 68 |ever, small...Th|
000003a0 65 20 61 73 73 6f 63 69 61 74 65 64 20 22 4c 4f |e associated "LO|
000003b0 41 44 45 52 22 20 70 72 6f 67 72 61 6d 6d 65 20 |ADER" programme |
000003c0 70 72 6f 64 75 63 65 73 20 61 20 64 61 74 61 20 |produces a data |
000003d0 66 69 6c 65 20 6f 66 20 70 6c 61 63 65 73 20 61 |file of places a|
000003e0 6e 64 0d 63 6f 2d 6f 72 64 69 6e 61 74 65 73 20 |nd.co-ordinates |
000003f0 77 68 69 63 68 20 63 61 6e 20 74 68 65 6e 20 62 |which can then b|
00000400 65 20 6c 6f 61 64 65 64 20 69 6e 74 6f 20 74 68 |e loaded into th|
00000410 65 20 22 44 49 53 54 41 4e 43 45 22 20 70 72 6f |e "DISTANCE" pro|
00000420 67 72 61 6d 6d 65 2e 20 49 74 20 69 73 0d 74 68 |gramme. It is.th|
00000430 65 6e 20 6f 6e 6c 79 20 6e 65 63 63 65 73 73 61 |en only neccessa|
00000440 72 79 20 74 6f 20 65 6e 74 65 72 20 70 6c 61 63 |ry to enter plac|
00000450 65 20 6e 61 6d 65 73 20 74 6f 20 64 65 74 65 72 |e names to deter|
00000460 6d 69 6e 65 20 64 69 73 74 61 6e 63 65 2e 0d 0d |mine distance...|
00000470 54 68 65 20 70 72 6f 67 72 61 6d 6d 65 73 20 69 |The programmes i|
00000480 6e 63 6c 75 64 65 20 61 20 64 61 74 61 20 66 69 |nclude a data fi|
00000490 6c 65 20 22 43 49 54 49 45 53 22 2e 20 20 20 20 |le "CITIES". |
000004a0 20 20 20 20 20 20 20 20 20 20 0d 0d 41 73 20 61 | ..As a|
000004b0 6e 20 65 78 61 6d 70 6c 65 20 72 75 6e 20 74 68 |n example run th|
000004c0 65 20 6d 61 69 6e 20 70 72 6f 67 72 61 6d 6d 65 |e main programme|
000004d0 20 28 22 44 49 53 54 22 29 2c 20 6c 6f 61 64 20 | ("DIST"), load |
000004e0 74 68 65 20 64 61 74 61 20 66 69 6c 65 20 22 43 |the data file "C|
000004f0 49 54 49 45 53 22 0d 77 68 65 6e 20 70 72 6f 6d |ITIES".when prom|
00000500 70 74 65 64 2c 20 61 6e 64 20 74 68 65 6e 20 74 |pted, and then t|
00000510 79 70 65 20 69 6e 20 4c 4f 4e 44 4f 4e 20 74 68 |ype in LONDON th|
00000520 65 6e 20 53 59 44 4e 45 59 20 77 68 65 6e 20 70 |en SYDNEY when p|
00000530 72 6f 6d 70 74 65 64 2e 0d 0d 44 61 74 61 20 66 |rompted...Data f|
00000540 69 6c 65 73 20 63 61 6e 20 62 65 20 72 65 61 64 |iles can be read|
00000550 20 62 79 20 75 73 69 6e 67 20 74 68 65 20 22 4c | by using the "L|
00000560 4f 41 44 45 52 22 20 70 72 6f 67 72 61 6d 6d 65 |OADER" programme|
00000570 2e 0d 0d 45 6e 73 75 72 65 20 74 68 61 74 20 74 |...Ensure that t|
00000580 68 65 20 64 61 74 61 20 66 69 6c 65 20 22 43 49 |he data file "CI|
00000590 54 49 45 53 22 20 69 73 20 74 68 65 20 6c 61 73 |TIES" is the las|
000005a0 74 20 66 69 6c 65 20 6f 6e 20 79 6f 75 72 20 64 |t file on your d|
000005b0 69 73 63 2c 20 6f 72 20 61 0d 43 41 4e 54 20 45 |isc, or a.CANT E|
000005c0 58 54 45 4e 44 20 65 72 72 6f 72 20 77 69 6c 6c |XTEND error will|
000005d0 20 6f 63 63 75 72 20 69 66 20 79 6f 75 20 61 74 | occur if you at|
000005e0 74 65 6d 70 74 20 74 6f 20 61 64 64 20 74 6f 20 |tempt to add to |
000005f0 74 68 69 73 20 66 69 6c 65 2e 0d 0d 54 68 65 20 |this file...The |
00000600 70 72 6f 67 72 61 6d 6d 65 20 77 69 6c 6c 20 70 |programme will p|
00000610 72 6f 64 75 63 65 20 61 20 70 72 69 6e 74 6f 75 |roduce a printou|
00000620 74 20 6f 66 20 64 69 73 74 61 6e 63 65 73 2c 20 |t of distances, |
00000630 61 6e 64 20 6f 66 20 74 68 65 20 63 6f 6e 74 65 |and of the conte|
00000640 6e 74 73 20 6f 66 0d 64 61 74 61 20 66 69 6c 65 |nts of.data file|
00000650 73 20 69 66 20 72 65 71 75 65 73 74 65 64 2e 20 |s if requested. |
00000660 50 72 69 6e 74 65 72 20 63 6f 6e 74 72 6f 6c 20 |Printer control |
00000670 63 6f 64 65 73 20 61 72 65 20 66 6f 72 20 61 6e |codes are for an|
00000680 20 45 70 73 6f 6e 20 63 6f 6d 70 61 74 69 62 6c | Epson compatibl|
00000690 65 0d 70 72 69 6e 74 65 72 2e 0d |e.printer..|
0000069b 
15-04-88/D\INFO.m0
15-04-88/D\INFO.m1
15-04-88/D\INFO.m2
15-04-88/D\INFO.m4
15-04-88/D\INFO.m5
.