Home » CEEFAX disks » telesoftware8.adl » 02-07-88/TMR\INF
02-07-88/TMR\INF
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 » telesoftware8.adl |
Filename: | 02-07-88/TMR\INF |
Read OK: | ✔ |
File size: | 1F19 bytes |
Load address: | 0000 |
Exec address: | 0000 |
Duplicates
There is 1 duplicate copy of this file in the archive:
- CEEFAX disks » telesoftware12.adl » 27-01-89/Tmr\Inf
- CEEFAX disks » telesoftware8.adl » 02-07-88/TMR\INF
File contents
M.J.RAWLINGS 16-4-88 TAPE TIMER I keep track of all my sound recordings by keeping a note of the rev count at the beginning and end of each piece, this makes it easy to find any recording but tells me nothing about the length of each piece without the tedious process of timing it. Before I got involved with my first computer I worked out a look up table which provided me with rough and ready times for my reel to reel recordings (in the days when cassette recorders were just cheap plastic toys). Unfortunately not all of my tapes are on reels with the same centre size, and I have a mixture of standard play, long play and double play tapes. All this means that the lookup table has to have its own set of correction tables, none of which has ever been very accurate. Many's the time I have tried to squeeze a recording onto the end of a tape only to find, too late, that there was insufficient space. Now ten years and four computers later I have a video and a cassette recorder and the problem is compounded many times. For some time now I have thought that it should be possible to write a program to solve this problem and at last I have got round to writing it. The program as broadcast has standard options built in for 3 different types of sound cassette, 2 types of video cassette and the most common of my reel to reel options as an example. The program has been designed to make it easy to add your own particular options and to make corrections to timings if your tape machine or brand of tape differs from my own. USING THE PROGRAM First select the option required from the main menu then enter the rev count as shown on your tape recorder, the total time will then be displayed together with the time elapsed since the last rev count as well as the recording space left on the tape. On the first entry the program will assume that the previous count was zero and the elapsed time will, of course, be the same as the total time. Entering succesive higher rev counts will display the elapsed time as the difference in time between the current rev count and the previous count. That is, you can time a recording merely by entering the start rev count followed by the end count and reading off the elapsed time. Entering a rev count lower than the previous count will zero the start count so that the elapsed time will match the total time. You can press <ESCAPE> at any time to return to the main menu, pressing <ESCAPE> again will allow you to exit from the program. CUSTOMISING The parameters for each of the ten possible choices are held in DATA statements at the end of the program followed by REM statements which give brief reminders of the use of each parameter. The program calculates the time elapsed from the thickness of the tape, the size of the centre of the spool and the number of times the spool has revolved to calculate the length of tape that has passed over the recording head. This length is then divided by the tape speed to give the time and then multiplied by a correction factor to remove any errors caused by slight innacuracies in the tape thickness or spool centre dimensions. The first parameter is the name of the option, this is used in the menu displayed on entry to the program, any null strings entered here will be ignored by the menu. The second parameter labelled "A" is the diameter of the centre of the reel in centimetres. "B" is the tape speed in centimetres per second. Standard audio cassette speed is 1 7/8 inches per second or 4.7625 centimetres per second and standard VHS video speed is 2.339 centimetres per second. There are 4 commonly used speeds on reel to reel recorders:- 1 7/8 ins per sec (4.7625 cents per sec), 3.75 ins per sec (9.525 cents per sec) 7.5 ins per sec (19.05 cents per sec) 15 ins per sec (38.1 cents per sec) "C" is the tape thickness, this varies from brand to brand, the values I have used can be regarded as a rough guidance but to achieve greater accuracy you need to make your own measurements. This is not as hard as it sounds and you will not need specially accurate measuring instruments. Simply reset the rev counter then run the tape out to the end, measure the total thickness of tape wound on to the spool then divide by the number of revolutions. The only thing you should be wary of is the fact that many cassette recorders record only one rev count to every two actual revolutions. Alternatively you can leave the thickness alone and make use of the correction facility described below, although I would advise you to do this only if the correction required is relatively small. "D" is the time correction factor and it can be used to make minor adjustments to the timings. For example if the program gave the result 35 mins 50 secs, when you have used a stopwatch to time a recording at 36 mins 15 sec then the correction factor can be found as follows:- factor=(36*60+15)/(35*60+50) All the correction factors in the program as broadcast have been set to 1, as I have adjusted the thickness "C" to give results consistent with my own equipment. "E" specifies the number of actual revolutions of the spool per rev count displayed. As mentioned above some tape machines only show one rev count to every two actual revolutions in which case this parameter should be set to 2. "F" is the maximum duration of the tape in minutes, used to calculate how much time is left after the current rev count. "G":- Some reel to reel tape machines have the rev counter connected to the output reel not the takeup reel. This means that the rev count is only indirectly connected to the length of tape that has passed over the recording head. In this case the program will have to calculate the length of tape backwards from the maximum number of revolutions for a full reel. "G" is used as a flag to indicate which reel is being counted:- G=-1 (TRUE) takeup reel counted G=0 (FALSE) output reel counted "H" is the highest number of revolutions on a full reel, simply zero the rev counter to 0, run the tape through to the end and note the rev count. This parameter is only used when "G" is set to 0. COMPATIBILITY This program will run on any Acorn computer with BBC Basic from the BBC A right through to the Archimedes, it is written purely in "legal" Basic with no peeks or pokes. It will also run on an IBM PC or compatible equiped with M-TEC's version of BBC Basic, simply transfer across from your Beeb with a cable connected to the serial ports using the "TX" and "RX" programs supplied, then convert to PC format as described in appendix "F" of the guide. If your version of the guide does not inclue appendix "F" then you should be able to obtain the necessary cable and software direct from M-TEC. No customising is necessary to run the program on a PC as there is a routine in the program which detects the presence of a PC by issuing an osbyte call which performs a different action on a PC, than it does on a BBC. Similarly there is an error handling routine to detect the "bad mode" message on a PC. This is not because of lack of memory, as a PC does not use program space for the screen and leaves the full 62.5K available for programing regardless of screen mode, but to detect whether the PC is fitted with a colour or mono display card. Because the program is a straight forward piece of Basic programming with no fancy graphics, it should be easy to adapt it to suit other brands of Basic on other computers.
00000000 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | * 00000030 20 20 4d 2e 4a 2e 52 41 57 4c 49 4e 47 53 20 31 | M.J.RAWLINGS 1| 00000040 36 2d 34 2d 38 38 0d 20 20 20 20 20 20 20 20 20 |6-4-88. | 00000050 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000060 20 20 20 20 20 54 41 50 45 20 54 49 4d 45 52 0d | TAPE TIMER.| 00000070 0d 49 20 20 6b 65 65 70 20 20 74 72 61 63 6b 20 |.I keep track | 00000080 6f 66 20 61 6c 6c 20 6d 79 20 73 6f 75 6e 64 20 |of all my sound | 00000090 72 65 63 6f 72 64 69 6e 67 73 20 62 79 20 6b 65 |recordings by ke| 000000a0 65 70 69 6e 67 20 61 20 6e 6f 74 65 20 6f 66 20 |eping a note of | 000000b0 74 68 65 20 72 65 76 0d 63 6f 75 6e 74 20 61 74 |the rev.count at| 000000c0 20 74 68 65 20 62 65 67 69 6e 6e 69 6e 67 20 61 | the beginning a| 000000d0 6e 64 20 65 6e 64 20 6f 66 20 65 61 63 68 20 70 |nd end of each p| 000000e0 69 65 63 65 2c 20 74 68 69 73 20 6d 61 6b 65 73 |iece, this makes| 000000f0 20 20 69 74 20 20 65 61 73 79 20 20 74 6f 0d 66 | it easy to.f| 00000100 69 6e 64 20 61 6e 79 20 72 65 63 6f 72 64 69 6e |ind any recordin| 00000110 67 20 62 75 74 20 74 65 6c 6c 73 20 6d 65 20 6e |g but tells me n| 00000120 6f 74 68 69 6e 67 20 61 62 6f 75 74 20 74 68 65 |othing about the| 00000130 20 6c 65 6e 67 74 68 20 6f 66 20 65 61 63 68 20 | length of each | 00000140 70 69 65 63 65 0d 77 69 74 68 6f 75 74 20 20 74 |piece.without t| 00000150 68 65 20 20 74 65 64 69 6f 75 73 20 70 72 6f 63 |he tedious proc| 00000160 65 73 73 20 6f 66 20 74 69 6d 69 6e 67 20 69 74 |ess of timing it| 00000170 2e 20 42 65 66 6f 72 65 20 49 20 67 6f 74 20 69 |. Before I got i| 00000180 6e 76 6f 6c 76 65 64 20 77 69 74 68 0d 6d 79 20 |nvolved with.my | 00000190 66 69 72 73 74 20 63 6f 6d 70 75 74 65 72 20 49 |first computer I| 000001a0 20 77 6f 72 6b 65 64 20 6f 75 74 20 61 20 6c 6f | worked out a lo| 000001b0 6f 6b 20 75 70 20 74 61 62 6c 65 20 77 68 69 63 |ok up table whic| 000001c0 68 20 70 72 6f 76 69 64 65 64 20 6d 65 20 20 77 |h provided me w| 000001d0 69 74 68 0d 72 6f 75 67 68 20 61 6e 64 20 72 65 |ith.rough and re| 000001e0 61 64 79 20 74 69 6d 65 73 20 66 6f 72 20 6d 79 |ady times for my| 000001f0 20 72 65 65 6c 20 74 6f 20 72 65 65 6c 20 72 65 | reel to reel re| 00000200 63 6f 72 64 69 6e 67 73 20 28 69 6e 20 74 68 65 |cordings (in the| 00000210 20 64 61 79 73 20 77 68 65 6e 0d 63 61 73 73 65 | days when.casse| 00000220 74 74 65 20 72 65 63 6f 72 64 65 72 73 20 77 65 |tte recorders we| 00000230 72 65 20 6a 75 73 74 20 63 68 65 61 70 20 70 6c |re just cheap pl| 00000240 61 73 74 69 63 20 74 6f 79 73 29 2e 0d 0d 55 6e |astic toys)...Un| 00000250 66 6f 72 74 75 6e 61 74 65 6c 79 20 20 6e 6f 74 |fortunately not| 00000260 20 20 61 6c 6c 20 20 6f 66 20 6d 79 20 74 61 70 | all of my tap| 00000270 65 73 20 61 72 65 20 6f 6e 20 72 65 65 6c 73 20 |es are on reels | 00000280 77 69 74 68 20 74 68 65 20 73 61 6d 65 20 63 65 |with the same ce| 00000290 6e 74 72 65 0d 73 69 7a 65 2c 20 61 6e 64 20 49 |ntre.size, and I| 000002a0 20 68 61 76 65 20 61 20 6d 69 78 74 75 72 65 20 | have a mixture | 000002b0 6f 66 20 73 74 61 6e 64 61 72 64 20 70 6c 61 79 |of standard play| 000002c0 2c 20 6c 6f 6e 67 20 70 6c 61 79 20 61 6e 64 20 |, long play and | 000002d0 64 6f 75 62 6c 65 20 70 6c 61 79 0d 74 61 70 65 |double play.tape| 000002e0 73 2e 20 41 6c 6c 20 74 68 69 73 20 6d 65 61 6e |s. All this mean| 000002f0 73 20 74 68 61 74 20 74 68 65 20 6c 6f 6f 6b 75 |s that the looku| 00000300 70 20 74 61 62 6c 65 20 68 61 73 20 74 6f 20 68 |p table has to h| 00000310 61 76 65 20 69 74 73 20 6f 77 6e 20 73 65 74 20 |ave its own set | 00000320 6f 66 0d 63 6f 72 72 65 63 74 69 6f 6e 20 74 61 |of.correction ta| 00000330 62 6c 65 73 2c 20 6e 6f 6e 65 20 6f 66 20 77 68 |bles, none of wh| 00000340 69 63 68 20 68 61 73 20 65 76 65 72 20 62 65 65 |ich has ever bee| 00000350 6e 20 76 65 72 79 20 20 61 63 63 75 72 61 74 65 |n very accurate| 00000360 2e 20 20 4d 61 6e 79 27 73 0d 74 68 65 20 20 74 |. Many's.the t| 00000370 69 6d 65 20 20 49 20 20 68 61 76 65 20 74 72 69 |ime I have tri| 00000380 65 64 20 74 6f 20 73 71 75 65 65 7a 65 20 61 20 |ed to squeeze a | 00000390 72 65 63 6f 72 64 69 6e 67 20 6f 6e 74 6f 20 74 |recording onto t| 000003a0 68 65 20 65 6e 64 20 6f 66 20 61 20 74 61 70 65 |he end of a tape| 000003b0 0d 6f 6e 6c 79 20 74 6f 20 66 69 6e 64 2c 20 74 |.only to find, t| 000003c0 6f 6f 20 6c 61 74 65 2c 20 74 68 61 74 20 74 68 |oo late, that th| 000003d0 65 72 65 20 77 61 73 20 20 69 6e 73 75 66 66 69 |ere was insuffi| 000003e0 63 69 65 6e 74 20 20 73 70 61 63 65 2e 20 20 4e |cient space. N| 000003f0 6f 77 20 20 74 65 6e 0d 79 65 61 72 73 20 20 61 |ow ten.years a| 00000400 6e 64 20 66 6f 75 72 20 63 6f 6d 70 75 74 65 72 |nd four computer| 00000410 73 20 6c 61 74 65 72 20 49 20 68 61 76 65 20 61 |s later I have a| 00000420 20 76 69 64 65 6f 20 61 6e 64 20 61 20 63 61 73 | video and a cas| 00000430 73 65 74 74 65 20 72 65 63 6f 72 64 65 72 0d 61 |sette recorder.a| 00000440 6e 64 20 74 68 65 20 70 72 6f 62 6c 65 6d 20 69 |nd the problem i| 00000450 73 20 63 6f 6d 70 6f 75 6e 64 65 64 20 6d 61 6e |s compounded man| 00000460 79 20 74 69 6d 65 73 2e 20 0d 0d 46 6f 72 20 73 |y times. ..For s| 00000470 6f 6d 65 20 74 69 6d 65 20 6e 6f 77 20 49 20 68 |ome time now I h| 00000480 61 76 65 20 74 68 6f 75 67 68 74 20 74 68 61 74 |ave thought that| 00000490 20 69 74 20 73 68 6f 75 6c 64 20 62 65 20 70 6f | it should be po| 000004a0 73 73 69 62 6c 65 20 74 6f 20 77 72 69 74 65 20 |ssible to write | 000004b0 61 0d 70 72 6f 67 72 61 6d 20 74 6f 20 73 6f 6c |a.program to sol| 000004c0 76 65 20 74 68 69 73 20 70 72 6f 62 6c 65 6d 20 |ve this problem | 000004d0 61 6e 64 20 61 74 20 6c 61 73 74 20 49 20 68 61 |and at last I ha| 000004e0 76 65 20 67 6f 74 20 72 6f 75 6e 64 20 74 6f 20 |ve got round to | 000004f0 20 77 72 69 74 69 6e 67 0d 69 74 2e 20 20 54 68 | writing.it. Th| 00000500 65 20 20 70 72 6f 67 72 61 6d 20 20 61 73 20 20 |e program as | 00000510 62 72 6f 61 64 63 61 73 74 20 20 68 61 73 20 20 |broadcast has | 00000520 73 74 61 6e 64 61 72 64 20 6f 70 74 69 6f 6e 73 |standard options| 00000530 20 62 75 69 6c 74 20 69 6e 20 66 6f 72 20 33 0d | built in for 3.| 00000540 64 69 66 66 65 72 65 6e 74 20 74 79 70 65 73 20 |different types | 00000550 6f 66 20 73 6f 75 6e 64 20 63 61 73 73 65 74 74 |of sound cassett| 00000560 65 2c 20 32 20 74 79 70 65 73 20 6f 66 20 76 69 |e, 2 types of vi| 00000570 64 65 6f 20 63 61 73 73 65 74 74 65 20 20 61 6e |deo cassette an| 00000580 64 20 20 74 68 65 0d 6d 6f 73 74 20 20 63 6f 6d |d the.most com| 00000590 6d 6f 6e 20 6f 66 20 6d 79 20 72 65 65 6c 20 74 |mon of my reel t| 000005a0 6f 20 72 65 65 6c 20 6f 70 74 69 6f 6e 73 20 61 |o reel options a| 000005b0 73 20 61 6e 20 65 78 61 6d 70 6c 65 2e 20 54 68 |s an example. Th| 000005c0 65 20 70 72 6f 67 72 61 6d 20 68 61 73 0d 62 65 |e program has.be| 000005d0 65 6e 20 64 65 73 69 67 6e 65 64 20 74 6f 20 6d |en designed to m| 000005e0 61 6b 65 20 69 74 20 65 61 73 79 20 74 6f 20 61 |ake it easy to a| 000005f0 64 64 20 79 6f 75 72 20 6f 77 6e 20 70 61 72 74 |dd your own part| 00000600 69 63 75 6c 61 72 20 20 6f 70 74 69 6f 6e 73 20 |icular options | 00000610 20 61 6e 64 0d 74 6f 20 20 6d 61 6b 65 20 20 63 | and.to make c| 00000620 6f 72 72 65 63 74 69 6f 6e 73 20 74 6f 20 74 69 |orrections to ti| 00000630 6d 69 6e 67 73 20 69 66 20 79 6f 75 72 20 74 61 |mings if your ta| 00000640 70 65 20 6d 61 63 68 69 6e 65 20 6f 72 20 62 72 |pe machine or br| 00000650 61 6e 64 20 6f 66 20 74 61 70 65 0d 64 69 66 66 |and of tape.diff| 00000660 65 72 73 20 66 72 6f 6d 20 6d 79 20 6f 77 6e 2e |ers from my own.| 00000670 0d 0d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |.. | 00000680 20 20 20 20 20 20 20 20 20 20 20 20 55 53 49 4e | USIN| 00000690 47 20 54 48 45 20 50 52 4f 47 52 41 4d 0d 0d 46 |G THE PROGRAM..F| 000006a0 69 72 73 74 20 73 65 6c 65 63 74 20 74 68 65 20 |irst select the | 000006b0 6f 70 74 69 6f 6e 20 72 65 71 75 69 72 65 64 20 |option required | 000006c0 66 72 6f 6d 20 74 68 65 20 6d 61 69 6e 20 6d 65 |from the main me| 000006d0 6e 75 20 74 68 65 6e 20 65 6e 74 65 72 20 74 68 |nu then enter th| 000006e0 65 20 72 65 76 0d 63 6f 75 6e 74 20 61 73 20 73 |e rev.count as s| 000006f0 68 6f 77 6e 20 6f 6e 20 79 6f 75 72 20 74 61 70 |hown on your tap| 00000700 65 20 72 65 63 6f 72 64 65 72 2c 20 74 68 65 20 |e recorder, the | 00000710 20 74 6f 74 61 6c 20 20 74 69 6d 65 20 20 77 69 | total time wi| 00000720 6c 6c 20 20 74 68 65 6e 20 20 62 65 0d 64 69 73 |ll then be.dis| 00000730 70 6c 61 79 65 64 20 20 74 6f 67 65 74 68 65 72 |played together| 00000740 20 20 77 69 74 68 20 74 68 65 20 74 69 6d 65 20 | with the time | 00000750 65 6c 61 70 73 65 64 20 73 69 6e 63 65 20 74 68 |elapsed since th| 00000760 65 20 6c 61 73 74 20 72 65 76 20 63 6f 75 6e 74 |e last rev count| 00000770 20 61 73 0d 77 65 6c 6c 20 61 73 20 74 68 65 20 | as.well as the | 00000780 72 65 63 6f 72 64 69 6e 67 20 73 70 61 63 65 20 |recording space | 00000790 6c 65 66 74 20 6f 6e 20 74 68 65 20 74 61 70 65 |left on the tape| 000007a0 2e 20 4f 6e 20 74 68 65 20 66 69 72 73 74 20 20 |. On the first | 000007b0 65 6e 74 72 79 20 20 74 68 65 0d 70 72 6f 67 72 |entry the.progr| 000007c0 61 6d 20 20 77 69 6c 6c 20 20 61 73 73 75 6d 65 |am will assume| 000007d0 20 74 68 61 74 20 74 68 65 20 70 72 65 76 69 6f | that the previo| 000007e0 75 73 20 63 6f 75 6e 74 20 77 61 73 20 7a 65 72 |us count was zer| 000007f0 6f 20 61 6e 64 20 74 68 65 20 65 6c 61 70 73 65 |o and the elapse| 00000800 64 0d 74 69 6d 65 20 77 69 6c 6c 2c 20 6f 66 20 |d.time will, of | 00000810 20 63 6f 75 72 73 65 2c 20 20 62 65 20 20 74 68 | course, be th| 00000820 65 20 20 73 61 6d 65 20 20 61 73 20 20 74 68 65 |e same as the| 00000830 20 20 74 6f 74 61 6c 20 20 74 69 6d 65 2e 20 20 | total time. | 00000840 45 6e 74 65 72 69 6e 67 0d 73 75 63 63 65 73 69 |Entering.succesi| 00000850 76 65 20 20 68 69 67 68 65 72 20 20 72 65 76 20 |ve higher rev | 00000860 20 63 6f 75 6e 74 73 20 20 77 69 6c 6c 20 20 64 | counts will d| 00000870 69 73 70 6c 61 79 20 20 74 68 65 20 65 6c 61 70 |isplay the elap| 00000880 73 65 64 20 74 69 6d 65 20 61 73 20 74 68 65 0d |sed time as the.| 00000890 64 69 66 66 65 72 65 6e 63 65 20 69 6e 20 74 69 |difference in ti| 000008a0 6d 65 20 62 65 74 77 65 65 6e 20 74 68 65 20 63 |me between the c| 000008b0 75 72 72 65 6e 74 20 20 72 65 76 20 20 63 6f 75 |urrent rev cou| 000008c0 6e 74 20 20 61 6e 64 20 20 74 68 65 20 20 70 72 |nt and the pr| 000008d0 65 76 69 6f 75 73 0d 63 6f 75 6e 74 2e 20 20 54 |evious.count. T| 000008e0 68 61 74 20 69 73 2c 20 79 6f 75 20 63 61 6e 20 |hat is, you can | 000008f0 74 69 6d 65 20 61 20 72 65 63 6f 72 64 69 6e 67 |time a recording| 00000900 20 6d 65 72 65 6c 79 20 62 79 20 65 6e 74 65 72 | merely by enter| 00000910 69 6e 67 20 74 68 65 20 73 74 61 72 74 0d 72 65 |ing the start.re| 00000920 76 20 63 6f 75 6e 74 20 66 6f 6c 6c 6f 77 65 64 |v count followed| 00000930 20 62 79 20 74 68 65 20 65 6e 64 20 63 6f 75 6e | by the end coun| 00000940 74 20 61 6e 64 20 72 65 61 64 69 6e 67 20 6f 66 |t and reading of| 00000950 66 20 74 68 65 20 65 6c 61 70 73 65 64 20 20 74 |f the elapsed t| 00000960 69 6d 65 2e 0d 45 6e 74 65 72 69 6e 67 20 61 20 |ime..Entering a | 00000970 72 65 76 20 63 6f 75 6e 74 20 6c 6f 77 65 72 20 |rev count lower | 00000980 74 68 61 6e 20 74 68 65 20 70 72 65 76 69 6f 75 |than the previou| 00000990 73 20 63 6f 75 6e 74 20 77 69 6c 6c 20 7a 65 72 |s count will zer| 000009a0 6f 20 74 68 65 20 73 74 61 72 74 0d 63 6f 75 6e |o the start.coun| 000009b0 74 20 73 6f 20 74 68 61 74 20 74 68 65 20 65 6c |t so that the el| 000009c0 61 70 73 65 64 20 74 69 6d 65 20 77 69 6c 6c 20 |apsed time will | 000009d0 6d 61 74 63 68 20 74 68 65 20 74 6f 74 61 6c 20 |match the total | 000009e0 74 69 6d 65 2e 0d 0d 59 6f 75 20 20 63 61 6e 20 |time...You can | 000009f0 20 70 72 65 73 73 20 20 3c 45 53 43 41 50 45 3e | press <ESCAPE>| 00000a00 20 20 61 74 20 20 61 6e 79 20 20 74 69 6d 65 20 | at any time | 00000a10 20 74 6f 20 20 72 65 74 75 72 6e 20 74 6f 20 74 | to return to t| 00000a20 68 65 20 6d 61 69 6e 20 6d 65 6e 75 2c 0d 70 72 |he main menu,.pr| 00000a30 65 73 73 69 6e 67 20 3c 45 53 43 41 50 45 3e 20 |essing <ESCAPE> | 00000a40 61 67 61 69 6e 20 77 69 6c 6c 20 61 6c 6c 6f 77 |again will allow| 00000a50 20 79 6f 75 20 74 6f 20 65 78 69 74 20 66 72 6f | you to exit fro| 00000a60 6d 20 74 68 65 20 70 72 6f 67 72 61 6d 2e 0d 0d |m the program...| 00000a70 0d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. | 00000a80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 43 55 | CU| 00000a90 53 54 4f 4d 49 53 49 4e 47 0d 0d 54 68 65 20 70 |STOMISING..The p| 00000aa0 61 72 61 6d 65 74 65 72 73 20 66 6f 72 20 65 61 |arameters for ea| 00000ab0 63 68 20 6f 66 20 74 68 65 20 74 65 6e 20 70 6f |ch of the ten po| 00000ac0 73 73 69 62 6c 65 20 63 68 6f 69 63 65 73 20 61 |ssible choices a| 00000ad0 72 65 20 68 65 6c 64 20 20 69 6e 20 20 44 41 54 |re held in DAT| 00000ae0 41 0d 73 74 61 74 65 6d 65 6e 74 73 20 20 61 74 |A.statements at| 00000af0 20 74 68 65 20 65 6e 64 20 6f 66 20 74 68 65 20 | the end of the | 00000b00 70 72 6f 67 72 61 6d 20 66 6f 6c 6c 6f 77 65 64 |program followed| 00000b10 20 62 79 20 52 45 4d 20 73 74 61 74 65 6d 65 6e | by REM statemen| 00000b20 74 73 20 77 68 69 63 68 0d 67 69 76 65 20 62 72 |ts which.give br| 00000b30 69 65 66 20 72 65 6d 69 6e 64 65 72 73 20 20 6f |ief reminders o| 00000b40 66 20 20 74 68 65 20 20 75 73 65 20 20 6f 66 20 |f the use of | 00000b50 20 65 61 63 68 20 20 70 61 72 61 6d 65 74 65 72 | each parameter| 00000b60 2e 20 20 54 68 65 20 20 70 72 6f 67 72 61 6d 0d |. The program.| 00000b70 63 61 6c 63 75 6c 61 74 65 73 20 20 74 68 65 20 |calculates the | 00000b80 20 74 69 6d 65 20 65 6c 61 70 73 65 64 20 66 72 | time elapsed fr| 00000b90 6f 6d 20 74 68 65 20 74 68 69 63 6b 6e 65 73 73 |om the thickness| 00000ba0 20 6f 66 20 74 68 65 20 74 61 70 65 2c 20 74 68 | of the tape, th| 00000bb0 65 20 73 69 7a 65 0d 6f 66 20 74 68 65 20 63 65 |e size.of the ce| 00000bc0 6e 74 72 65 20 6f 66 20 74 68 65 20 73 70 6f 6f |ntre of the spoo| 00000bd0 6c 20 61 6e 64 20 74 68 65 20 20 6e 75 6d 62 65 |l and the numbe| 00000be0 72 20 20 6f 66 20 20 74 69 6d 65 73 20 20 74 68 |r of times th| 00000bf0 65 20 20 73 70 6f 6f 6c 20 20 68 61 73 0d 72 65 |e spool has.re| 00000c00 76 6f 6c 76 65 64 20 20 74 6f 20 20 63 61 6c 63 |volved to calc| 00000c10 75 6c 61 74 65 20 20 74 68 65 20 20 6c 65 6e 67 |ulate the leng| 00000c20 74 68 20 20 6f 66 20 74 61 70 65 20 74 68 61 74 |th of tape that| 00000c30 20 68 61 73 20 70 61 73 73 65 64 20 6f 76 65 72 | has passed over| 00000c40 20 74 68 65 0d 72 65 63 6f 72 64 69 6e 67 20 68 | the.recording h| 00000c50 65 61 64 2e 20 54 68 69 73 20 6c 65 6e 67 74 68 |ead. This length| 00000c60 20 69 73 20 74 68 65 6e 20 64 69 76 69 64 65 64 | is then divided| 00000c70 20 62 79 20 74 68 65 20 74 61 70 65 20 73 70 65 | by the tape spe| 00000c80 65 64 20 74 6f 20 20 67 69 76 65 0d 74 68 65 20 |ed to give.the | 00000c90 20 74 69 6d 65 20 20 61 6e 64 20 20 74 68 65 6e | time and then| 00000ca0 20 20 6d 75 6c 74 69 70 6c 69 65 64 20 20 62 79 | multiplied by| 00000cb0 20 61 20 63 6f 72 72 65 63 74 69 6f 6e 20 66 61 | a correction fa| 00000cc0 63 74 6f 72 20 74 6f 20 72 65 6d 6f 76 65 20 61 |ctor to remove a| 00000cd0 6e 79 0d 65 72 72 6f 72 73 20 63 61 75 73 65 64 |ny.errors caused| 00000ce0 20 62 79 20 73 6c 69 67 68 74 20 69 6e 6e 61 63 | by slight innac| 00000cf0 75 72 61 63 69 65 73 20 69 6e 20 74 68 65 20 74 |uracies in the t| 00000d00 61 70 65 20 20 74 68 69 63 6b 6e 65 73 73 20 20 |ape thickness | 00000d10 6f 72 20 20 73 70 6f 6f 6c 0d 63 65 6e 74 72 65 |or spool.centre| 00000d20 20 64 69 6d 65 6e 73 69 6f 6e 73 2e 0d 0d 54 68 | dimensions...Th| 00000d30 65 20 20 66 69 72 73 74 20 20 70 61 72 61 6d 65 |e first parame| 00000d40 74 65 72 20 20 69 73 20 20 74 68 65 20 6e 61 6d |ter is the nam| 00000d50 65 20 6f 66 20 74 68 65 20 6f 70 74 69 6f 6e 2c |e of the option,| 00000d60 20 74 68 69 73 20 69 73 20 75 73 65 64 20 69 6e | this is used in| 00000d70 20 74 68 65 0d 6d 65 6e 75 20 64 69 73 70 6c 61 | the.menu displa| 00000d80 79 65 64 20 6f 6e 20 65 6e 74 72 79 20 74 6f 20 |yed on entry to | 00000d90 74 68 65 20 70 72 6f 67 72 61 6d 2c 20 61 6e 79 |the program, any| 00000da0 20 6e 75 6c 6c 20 73 74 72 69 6e 67 73 20 65 6e | null strings en| 00000db0 74 65 72 65 64 20 20 68 65 72 65 0d 77 69 6c 6c |tered here.will| 00000dc0 20 62 65 20 69 67 6e 6f 72 65 64 20 62 79 20 74 | be ignored by t| 00000dd0 68 65 20 6d 65 6e 75 2e 0d 0d 54 68 65 20 73 65 |he menu...The se| 00000de0 63 6f 6e 64 20 70 61 72 61 6d 65 74 65 72 20 6c |cond parameter l| 00000df0 61 62 65 6c 6c 65 64 20 22 41 22 20 69 73 20 74 |abelled "A" is t| 00000e00 68 65 20 64 69 61 6d 65 74 65 72 20 6f 66 20 74 |he diameter of t| 00000e10 68 65 20 63 65 6e 74 72 65 20 6f 66 20 74 68 65 |he centre of the| 00000e20 0d 72 65 65 6c 20 69 6e 20 63 65 6e 74 69 6d 65 |.reel in centime| 00000e30 74 72 65 73 2e 0d 0d 22 42 22 20 20 69 73 20 20 |tres..."B" is | 00000e40 74 68 65 20 20 74 61 70 65 20 20 73 70 65 65 64 |the tape speed| 00000e50 20 20 69 6e 20 20 63 65 6e 74 69 6d 65 74 72 65 | in centimetre| 00000e60 73 20 20 70 65 72 20 73 65 63 6f 6e 64 2e 20 53 |s per second. S| 00000e70 74 61 6e 64 61 72 64 20 61 75 64 69 6f 0d 63 61 |tandard audio.ca| 00000e80 73 73 65 74 74 65 20 73 70 65 65 64 20 69 73 20 |ssette speed is | 00000e90 31 20 37 2f 38 20 69 6e 63 68 65 73 20 70 65 72 |1 7/8 inches per| 00000ea0 20 73 65 63 6f 6e 64 20 6f 72 20 20 34 2e 37 36 | second or 4.76| 00000eb0 32 35 20 20 63 65 6e 74 69 6d 65 74 72 65 73 20 |25 centimetres | 00000ec0 20 70 65 72 0d 73 65 63 6f 6e 64 20 20 61 6e 64 | per.second and| 00000ed0 20 20 73 74 61 6e 64 61 72 64 20 56 48 53 20 76 | standard VHS v| 00000ee0 69 64 65 6f 20 73 70 65 65 64 20 69 73 20 32 2e |ideo speed is 2.| 00000ef0 33 33 39 20 63 65 6e 74 69 6d 65 74 72 65 73 20 |339 centimetres | 00000f00 70 65 72 20 73 65 63 6f 6e 64 2e 0d 54 68 65 72 |per second..Ther| 00000f10 65 20 61 72 65 20 34 20 63 6f 6d 6d 6f 6e 6c 79 |e are 4 commonly| 00000f20 20 75 73 65 64 20 73 70 65 65 64 73 20 6f 6e 20 | used speeds on | 00000f30 72 65 65 6c 20 74 6f 20 72 65 65 6c 20 72 65 63 |reel to reel rec| 00000f40 6f 72 64 65 72 73 3a 2d 0d 20 20 20 20 20 20 20 |orders:-. | 00000f50 20 20 20 20 20 20 20 20 20 0d 20 20 20 20 20 20 | . | 00000f60 20 20 20 20 20 20 20 20 20 31 20 37 2f 38 20 69 | 1 7/8 i| 00000f70 6e 73 20 70 65 72 20 73 65 63 20 28 34 2e 37 36 |ns per sec (4.76| 00000f80 32 35 20 63 65 6e 74 73 20 70 65 72 20 73 65 63 |25 cents per sec| 00000f90 29 2c 20 0d 20 20 20 20 20 20 20 20 20 20 20 20 |), . | 00000fa0 20 20 20 33 2e 37 35 20 69 6e 73 20 70 65 72 20 | 3.75 ins per | 00000fb0 73 65 63 20 28 39 2e 35 32 35 20 63 65 6e 74 73 |sec (9.525 cents| 00000fc0 20 70 65 72 20 73 65 63 29 0d 20 20 20 20 20 20 | per sec). | 00000fd0 20 20 20 20 20 20 20 20 20 37 2e 35 20 69 6e 73 | 7.5 ins| 00000fe0 20 70 65 72 20 73 65 63 20 28 31 39 2e 30 35 20 | per sec (19.05 | 00000ff0 63 65 6e 74 73 20 70 65 72 20 73 65 63 29 0d 20 |cents per sec). | 00001000 20 20 20 20 20 20 20 20 20 20 20 20 20 20 31 35 | 15| 00001010 20 69 6e 73 20 70 65 72 20 73 65 63 20 28 33 38 | ins per sec (38| 00001020 2e 31 20 63 65 6e 74 73 20 70 65 72 20 73 65 63 |.1 cents per sec| 00001030 29 0d 0d 22 43 22 20 69 73 20 74 68 65 20 74 61 |).."C" is the ta| 00001040 70 65 20 74 68 69 63 6b 6e 65 73 73 2c 20 74 68 |pe thickness, th| 00001050 69 73 20 76 61 72 69 65 73 20 66 72 6f 6d 20 62 |is varies from b| 00001060 72 61 6e 64 20 74 6f 20 62 72 61 6e 64 2c 20 74 |rand to brand, t| 00001070 68 65 20 76 61 6c 75 65 73 0d 49 20 68 61 76 65 |he values.I have| 00001080 20 75 73 65 64 20 63 61 6e 20 62 65 20 72 65 67 | used can be reg| 00001090 61 72 64 65 64 20 61 73 20 61 20 72 6f 75 67 68 |arded as a rough| 000010a0 20 67 75 69 64 61 6e 63 65 20 62 75 74 20 74 6f | guidance but to| 000010b0 20 61 63 68 69 65 76 65 20 67 72 65 61 74 65 72 | achieve greater| 000010c0 0d 61 63 63 75 72 61 63 79 20 79 6f 75 20 6e 65 |.accuracy you ne| 000010d0 65 64 20 74 6f 20 6d 61 6b 65 20 79 6f 75 72 20 |ed to make your | 000010e0 6f 77 6e 20 6d 65 61 73 75 72 65 6d 65 6e 74 73 |own measurements| 000010f0 2e 20 54 68 69 73 20 69 73 20 6e 6f 74 20 20 61 |. This is not a| 00001100 73 20 20 68 61 72 64 0d 61 73 20 20 69 74 20 20 |s hard.as it | 00001110 73 6f 75 6e 64 73 20 20 61 6e 64 20 20 79 6f 75 |sounds and you| 00001120 20 20 77 69 6c 6c 20 20 6e 6f 74 20 20 6e 65 65 | will not nee| 00001130 64 20 73 70 65 63 69 61 6c 6c 79 20 61 63 63 75 |d specially accu| 00001140 72 61 74 65 20 6d 65 61 73 75 72 69 6e 67 0d 69 |rate measuring.i| 00001150 6e 73 74 72 75 6d 65 6e 74 73 2e 20 53 69 6d 70 |nstruments. Simp| 00001160 6c 79 20 72 65 73 65 74 20 74 68 65 20 72 65 76 |ly reset the rev| 00001170 20 63 6f 75 6e 74 65 72 20 74 68 65 6e 20 72 75 | counter then ru| 00001180 6e 20 74 68 65 20 74 61 70 65 20 6f 75 74 20 74 |n the tape out t| 00001190 6f 20 74 68 65 0d 65 6e 64 2c 20 6d 65 61 73 75 |o the.end, measu| 000011a0 72 65 20 74 68 65 20 74 6f 74 61 6c 20 74 68 69 |re the total thi| 000011b0 63 6b 6e 65 73 73 20 6f 66 20 74 61 70 65 20 77 |ckness of tape w| 000011c0 6f 75 6e 64 20 6f 6e 20 74 6f 20 20 74 68 65 20 |ound on to the | 000011d0 20 73 70 6f 6f 6c 20 20 74 68 65 6e 0d 64 69 76 | spool then.div| 000011e0 69 64 65 20 62 79 20 74 68 65 20 6e 75 6d 62 65 |ide by the numbe| 000011f0 72 20 6f 66 20 72 65 76 6f 6c 75 74 69 6f 6e 73 |r of revolutions| 00001200 2e 20 54 68 65 20 6f 6e 6c 79 20 74 68 69 6e 67 |. The only thing| 00001210 20 79 6f 75 20 73 68 6f 75 6c 64 20 62 65 20 77 | you should be w| 00001220 61 72 79 0d 6f 66 20 20 69 73 20 74 68 65 20 66 |ary.of is the f| 00001230 61 63 74 20 74 68 61 74 20 6d 61 6e 79 20 63 61 |act that many ca| 00001240 73 73 65 74 74 65 20 72 65 63 6f 72 64 65 72 73 |ssette recorders| 00001250 20 72 65 63 6f 72 64 20 6f 6e 6c 79 20 6f 6e 65 | record only one| 00001260 20 72 65 76 20 63 6f 75 6e 74 0d 74 6f 20 65 76 | rev count.to ev| 00001270 65 72 79 20 74 77 6f 20 61 63 74 75 61 6c 20 20 |ery two actual | 00001280 72 65 76 6f 6c 75 74 69 6f 6e 73 2e 20 20 41 6c |revolutions. Al| 00001290 74 65 72 6e 61 74 69 76 65 6c 79 20 20 79 6f 75 |ternatively you| 000012a0 20 20 63 61 6e 20 20 6c 65 61 76 65 20 20 74 68 | can leave th| 000012b0 65 0d 74 68 69 63 6b 6e 65 73 73 20 20 61 6c 6f |e.thickness alo| 000012c0 6e 65 20 20 61 6e 64 20 20 6d 61 6b 65 20 20 75 |ne and make u| 000012d0 73 65 20 20 6f 66 20 74 68 65 20 63 6f 72 72 65 |se of the corre| 000012e0 63 74 69 6f 6e 20 66 61 63 69 6c 69 74 79 20 64 |ction facility d| 000012f0 65 73 63 72 69 62 65 64 0d 62 65 6c 6f 77 2c 20 |escribed.below, | 00001300 61 6c 74 68 6f 75 67 68 20 49 20 77 6f 75 6c 64 |although I would| 00001310 20 61 64 76 69 73 65 20 79 6f 75 20 74 6f 20 64 | advise you to d| 00001320 6f 20 74 68 69 73 20 6f 6e 6c 79 20 69 66 20 20 |o this only if | 00001330 74 68 65 20 20 63 6f 72 72 65 63 74 69 6f 6e 0d |the correction.| 00001340 72 65 71 75 69 72 65 64 20 69 73 20 72 65 6c 61 |required is rela| 00001350 74 69 76 65 6c 79 20 73 6d 61 6c 6c 2e 0d 0d 22 |tively small..."| 00001360 44 22 20 20 69 73 20 20 74 68 65 20 20 74 69 6d |D" is the tim| 00001370 65 20 20 63 6f 72 72 65 63 74 69 6f 6e 20 66 61 |e correction fa| 00001380 63 74 6f 72 20 61 6e 64 20 69 74 20 63 61 6e 20 |ctor and it can | 00001390 62 65 20 75 73 65 64 20 74 6f 20 6d 61 6b 65 20 |be used to make | 000013a0 6d 69 6e 6f 72 0d 61 64 6a 75 73 74 6d 65 6e 74 |minor.adjustment| 000013b0 73 20 74 6f 20 74 68 65 20 74 69 6d 69 6e 67 73 |s to the timings| 000013c0 2e 20 46 6f 72 20 65 78 61 6d 70 6c 65 20 69 66 |. For example if| 000013d0 20 74 68 65 20 70 72 6f 67 72 61 6d 20 67 61 76 | the program gav| 000013e0 65 20 74 68 65 20 72 65 73 75 6c 74 0d 33 35 20 |e the result.35 | 000013f0 6d 69 6e 73 20 35 30 20 73 65 63 73 2c 20 77 68 |mins 50 secs, wh| 00001400 65 6e 20 79 6f 75 20 68 61 76 65 20 75 73 65 64 |en you have used| 00001410 20 61 20 73 74 6f 70 77 61 74 63 68 20 74 6f 20 | a stopwatch to | 00001420 74 69 6d 65 20 61 20 72 65 63 6f 72 64 69 6e 67 |time a recording| 00001430 20 61 74 0d 33 36 20 6d 69 6e 73 20 31 35 20 73 | at.36 mins 15 s| 00001440 65 63 20 74 68 65 6e 20 74 68 65 20 63 6f 72 72 |ec then the corr| 00001450 65 63 74 69 6f 6e 20 66 61 63 74 6f 72 20 63 61 |ection factor ca| 00001460 6e 20 62 65 20 66 6f 75 6e 64 20 61 73 20 66 6f |n be found as fo| 00001470 6c 6c 6f 77 73 3a 2d 0d 0d 20 20 20 20 20 20 20 |llows:-.. | 00001480 20 20 20 20 20 20 20 20 66 61 63 74 6f 72 3d 28 | factor=(| 00001490 33 36 2a 36 30 2b 31 35 29 2f 28 33 35 2a 36 30 |36*60+15)/(35*60| 000014a0 2b 35 30 29 0d 0d 41 6c 6c 20 74 68 65 20 63 6f |+50)..All the co| 000014b0 72 72 65 63 74 69 6f 6e 20 66 61 63 74 6f 72 73 |rrection factors| 000014c0 20 69 6e 20 74 68 65 20 70 72 6f 67 72 61 6d 20 | in the program | 000014d0 61 73 20 62 72 6f 61 64 63 61 73 74 20 68 61 76 |as broadcast hav| 000014e0 65 20 20 62 65 65 6e 20 20 73 65 74 0d 74 6f 20 |e been set.to | 000014f0 20 31 2c 20 61 73 20 49 20 68 61 76 65 20 61 64 | 1, as I have ad| 00001500 6a 75 73 74 65 64 20 74 68 65 20 74 68 69 63 6b |justed the thick| 00001510 6e 65 73 73 20 22 43 22 20 74 6f 20 67 69 76 65 |ness "C" to give| 00001520 20 72 65 73 75 6c 74 73 20 63 6f 6e 73 69 73 74 | results consist| 00001530 65 6e 74 0d 77 69 74 68 20 6d 79 20 6f 77 6e 20 |ent.with my own | 00001540 65 71 75 69 70 6d 65 6e 74 2e 20 0d 0d 22 45 22 |equipment. .."E"| 00001550 20 73 70 65 63 69 66 69 65 73 20 74 68 65 20 6e | specifies the n| 00001560 75 6d 62 65 72 20 6f 66 20 61 63 74 75 61 6c 20 |umber of actual | 00001570 72 65 76 6f 6c 75 74 69 6f 6e 73 20 6f 66 20 74 |revolutions of t| 00001580 68 65 20 20 73 70 6f 6f 6c 20 20 70 65 72 20 20 |he spool per | 00001590 72 65 76 0d 63 6f 75 6e 74 20 20 64 69 73 70 6c |rev.count displ| 000015a0 61 79 65 64 2e 20 20 41 73 20 6d 65 6e 74 69 6f |ayed. As mentio| 000015b0 6e 65 64 20 61 62 6f 76 65 20 73 6f 6d 65 20 74 |ned above some t| 000015c0 61 70 65 20 6d 61 63 68 69 6e 65 73 20 6f 6e 6c |ape machines onl| 000015d0 79 20 73 68 6f 77 20 6f 6e 65 0d 72 65 76 20 63 |y show one.rev c| 000015e0 6f 75 6e 74 20 74 6f 20 65 76 65 72 79 20 74 77 |ount to every tw| 000015f0 6f 20 61 63 74 75 61 6c 20 72 65 76 6f 6c 75 74 |o actual revolut| 00001600 69 6f 6e 73 20 69 6e 20 77 68 69 63 68 20 63 61 |ions in which ca| 00001610 73 65 20 74 68 69 73 20 70 61 72 61 6d 65 74 65 |se this paramete| 00001620 72 0d 73 68 6f 75 6c 64 20 62 65 20 73 65 74 20 |r.should be set | 00001630 74 6f 20 32 2e 0d 0d 22 46 22 20 69 73 20 74 68 |to 2..."F" is th| 00001640 65 20 6d 61 78 69 6d 75 6d 20 64 75 72 61 74 69 |e maximum durati| 00001650 6f 6e 20 6f 66 20 74 68 65 20 74 61 70 65 20 69 |on of the tape i| 00001660 6e 20 6d 69 6e 75 74 65 73 2c 20 75 73 65 64 20 |n minutes, used | 00001670 74 6f 20 20 63 61 6c 63 75 6c 61 74 65 0d 68 6f |to calculate.ho| 00001680 77 20 6d 75 63 68 20 74 69 6d 65 20 69 73 20 6c |w much time is l| 00001690 65 66 74 20 61 66 74 65 72 20 74 68 65 20 63 75 |eft after the cu| 000016a0 72 72 65 6e 74 20 72 65 76 20 63 6f 75 6e 74 2e |rrent rev count.| 000016b0 0d 0d 22 47 22 3a 2d 20 20 53 6f 6d 65 20 20 72 |.."G":- Some r| 000016c0 65 65 6c 20 74 6f 20 72 65 65 6c 20 74 61 70 65 |eel to reel tape| 000016d0 20 6d 61 63 68 69 6e 65 73 20 68 61 76 65 20 74 | machines have t| 000016e0 68 65 20 72 65 76 20 63 6f 75 6e 74 65 72 20 63 |he rev counter c| 000016f0 6f 6e 6e 65 63 74 65 64 0d 74 6f 20 74 68 65 20 |onnected.to the | 00001700 6f 75 74 70 75 74 20 72 65 65 6c 20 6e 6f 74 20 |output reel not | 00001710 74 68 65 20 74 61 6b 65 75 70 20 72 65 65 6c 2e |the takeup reel.| 00001720 20 54 68 69 73 20 6d 65 61 6e 73 20 74 68 61 74 | This means that| 00001730 20 74 68 65 20 72 65 76 20 20 63 6f 75 6e 74 0d | the rev count.| 00001740 69 73 20 20 6f 6e 6c 79 20 20 69 6e 64 69 72 65 |is only indire| 00001750 63 74 6c 79 20 20 63 6f 6e 6e 65 63 74 65 64 20 |ctly connected | 00001760 20 74 6f 20 74 68 65 20 6c 65 6e 67 74 68 20 6f | to the length o| 00001770 66 20 74 61 70 65 20 74 68 61 74 20 68 61 73 20 |f tape that has | 00001780 70 61 73 73 65 64 0d 6f 76 65 72 20 74 68 65 20 |passed.over the | 00001790 72 65 63 6f 72 64 69 6e 67 20 68 65 61 64 2e 20 |recording head. | 000017a0 20 49 6e 20 20 74 68 69 73 20 20 63 61 73 65 20 | In this case | 000017b0 20 74 68 65 20 20 70 72 6f 67 72 61 6d 20 20 77 | the program w| 000017c0 69 6c 6c 20 20 68 61 76 65 20 20 74 6f 0d 63 61 |ill have to.ca| 000017d0 6c 63 75 6c 61 74 65 20 20 74 68 65 20 20 6c 65 |lculate the le| 000017e0 6e 67 74 68 20 20 6f 66 20 20 74 61 70 65 20 20 |ngth of tape | 000017f0 62 61 63 6b 77 61 72 64 73 20 66 72 6f 6d 20 74 |backwards from t| 00001800 68 65 20 6d 61 78 69 6d 75 6d 20 6e 75 6d 62 65 |he maximum numbe| 00001810 72 20 6f 66 0d 72 65 76 6f 6c 75 74 69 6f 6e 73 |r of.revolutions| 00001820 20 66 6f 72 20 61 20 66 75 6c 6c 20 72 65 65 6c | for a full reel| 00001830 2e 20 22 47 22 20 69 73 20 75 73 65 64 20 61 73 |. "G" is used as| 00001840 20 61 20 66 6c 61 67 20 74 6f 20 20 69 6e 64 69 | a flag to indi| 00001850 63 61 74 65 20 20 77 68 69 63 68 0d 72 65 65 6c |cate which.reel| 00001860 20 69 73 20 62 65 69 6e 67 20 63 6f 75 6e 74 65 | is being counte| 00001870 64 3a 2d 0d 0d 20 20 20 20 20 20 20 20 20 20 20 |d:-.. | 00001880 20 20 20 20 47 3d 2d 31 20 28 54 52 55 45 29 20 | G=-1 (TRUE) | 00001890 74 61 6b 65 75 70 20 72 65 65 6c 20 63 6f 75 6e |takeup reel coun| 000018a0 74 65 64 0d 20 20 20 20 20 20 20 20 20 20 20 20 |ted. | 000018b0 20 20 20 47 3d 30 20 28 46 41 4c 53 45 29 20 6f | G=0 (FALSE) o| 000018c0 75 74 70 75 74 20 72 65 65 6c 20 63 6f 75 6e 74 |utput reel count| 000018d0 65 64 20 0d 0d 22 48 22 20 20 69 73 20 20 74 68 |ed .."H" is th| 000018e0 65 20 68 69 67 68 65 73 74 20 6e 75 6d 62 65 72 |e highest number| 000018f0 20 6f 66 20 72 65 76 6f 6c 75 74 69 6f 6e 73 20 | of revolutions | 00001900 6f 6e 20 61 20 66 75 6c 6c 20 72 65 65 6c 2c 20 |on a full reel, | 00001910 73 69 6d 70 6c 79 20 7a 65 72 6f 0d 74 68 65 20 |simply zero.the | 00001920 72 65 76 20 63 6f 75 6e 74 65 72 20 74 6f 20 30 |rev counter to 0| 00001930 2c 20 72 75 6e 20 74 68 65 20 74 61 70 65 20 74 |, run the tape t| 00001940 68 72 6f 75 67 68 20 74 6f 20 74 68 65 20 65 6e |hrough to the en| 00001950 64 20 61 6e 64 20 6e 6f 74 65 20 74 68 65 20 72 |d and note the r| 00001960 65 76 0d 63 6f 75 6e 74 2e 20 54 68 69 73 20 70 |ev.count. This p| 00001970 61 72 61 6d 65 74 65 72 20 69 73 20 6f 6e 6c 79 |arameter is only| 00001980 20 75 73 65 64 20 77 68 65 6e 20 22 47 22 20 69 | used when "G" i| 00001990 73 20 73 65 74 20 74 6f 20 30 2e 0d 0d 20 20 20 |s set to 0... | 000019a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000019b0 20 20 20 20 20 20 20 20 20 43 4f 4d 50 41 54 49 | COMPATI| 000019c0 42 49 4c 49 54 59 0d 0d 54 68 69 73 20 70 72 6f |BILITY..This pro| 000019d0 67 72 61 6d 20 77 69 6c 6c 20 72 75 6e 20 6f 6e |gram will run on| 000019e0 20 61 6e 79 20 41 63 6f 72 6e 20 63 6f 6d 70 75 | any Acorn compu| 000019f0 74 65 72 20 77 69 74 68 20 42 42 43 20 20 42 61 |ter with BBC Ba| 00001a00 73 69 63 20 20 66 72 6f 6d 20 20 74 68 65 0d 42 |sic from the.B| 00001a10 42 43 20 41 20 72 69 67 68 74 20 74 68 72 6f 75 |BC A right throu| 00001a20 67 68 20 74 6f 20 74 68 65 20 41 72 63 68 69 6d |gh to the Archim| 00001a30 65 64 65 73 2c 20 69 74 20 69 73 20 77 72 69 74 |edes, it is writ| 00001a40 74 65 6e 20 70 75 72 65 6c 79 20 69 6e 20 22 6c |ten purely in "l| 00001a50 65 67 61 6c 22 0d 42 61 73 69 63 20 20 77 69 74 |egal".Basic wit| 00001a60 68 20 20 6e 6f 20 20 70 65 65 6b 73 20 20 6f 72 |h no peeks or| 00001a70 20 20 70 6f 6b 65 73 2e 20 20 49 74 20 20 77 69 | pokes. It wi| 00001a80 6c 6c 20 20 61 6c 73 6f 20 72 75 6e 20 6f 6e 20 |ll also run on | 00001a90 61 6e 20 49 42 4d 20 50 43 20 6f 72 0d 63 6f 6d |an IBM PC or.com| 00001aa0 70 61 74 69 62 6c 65 20 65 71 75 69 70 65 64 20 |patible equiped | 00001ab0 77 69 74 68 20 4d 2d 54 45 43 27 73 20 76 65 72 |with M-TEC's ver| 00001ac0 73 69 6f 6e 20 6f 66 20 42 42 43 20 42 61 73 69 |sion of BBC Basi| 00001ad0 63 2c 20 73 69 6d 70 6c 79 20 20 74 72 61 6e 73 |c, simply trans| 00001ae0 66 65 72 0d 61 63 72 6f 73 73 20 66 72 6f 6d 20 |fer.across from | 00001af0 79 6f 75 72 20 42 65 65 62 20 77 69 74 68 20 61 |your Beeb with a| 00001b00 20 63 61 62 6c 65 20 63 6f 6e 6e 65 63 74 65 64 | cable connected| 00001b10 20 74 6f 20 74 68 65 20 73 65 72 69 61 6c 20 70 | to the serial p| 00001b20 6f 72 74 73 20 75 73 69 6e 67 0d 74 68 65 20 20 |orts using.the | 00001b30 22 54 58 22 20 20 61 6e 64 20 20 22 52 58 22 20 |"TX" and "RX" | 00001b40 20 70 72 6f 67 72 61 6d 73 20 20 73 75 70 70 6c | programs suppl| 00001b50 69 65 64 2c 20 74 68 65 6e 20 63 6f 6e 76 65 72 |ied, then conver| 00001b60 74 20 74 6f 20 50 43 20 66 6f 72 6d 61 74 20 61 |t to PC format a| 00001b70 73 0d 64 65 73 63 72 69 62 65 64 20 69 6e 20 61 |s.described in a| 00001b80 70 70 65 6e 64 69 78 20 22 46 22 20 6f 66 20 74 |ppendix "F" of t| 00001b90 68 65 20 67 75 69 64 65 2e 20 49 66 20 79 6f 75 |he guide. If you| 00001ba0 72 20 76 65 72 73 69 6f 6e 20 6f 66 20 20 74 68 |r version of th| 00001bb0 65 20 20 67 75 69 64 65 0d 64 6f 65 73 20 20 6e |e guide.does n| 00001bc0 6f 74 20 20 69 6e 63 6c 75 65 20 20 61 70 70 65 |ot inclue appe| 00001bd0 6e 64 69 78 20 20 22 46 22 20 74 68 65 6e 20 79 |ndix "F" then y| 00001be0 6f 75 20 73 68 6f 75 6c 64 20 62 65 20 61 62 6c |ou should be abl| 00001bf0 65 20 74 6f 20 6f 62 74 61 69 6e 20 74 68 65 0d |e to obtain the.| 00001c00 6e 65 63 65 73 73 61 72 79 20 63 61 62 6c 65 20 |necessary cable | 00001c10 61 6e 64 20 73 6f 66 74 77 61 72 65 20 64 69 72 |and software dir| 00001c20 65 63 74 20 66 72 6f 6d 20 4d 2d 54 45 43 2e 0d |ect from M-TEC..| 00001c30 0d 4e 6f 20 63 75 73 74 6f 6d 69 73 69 6e 67 20 |.No customising | 00001c40 69 73 20 6e 65 63 65 73 73 61 72 79 20 74 6f 20 |is necessary to | 00001c50 72 75 6e 20 74 68 65 20 70 72 6f 67 72 61 6d 20 |run the program | 00001c60 6f 6e 20 61 20 50 43 20 61 73 20 74 68 65 72 65 |on a PC as there| 00001c70 20 20 69 73 20 20 61 0d 72 6f 75 74 69 6e 65 20 | is a.routine | 00001c80 20 69 6e 20 20 74 68 65 20 70 72 6f 67 72 61 6d | in the program| 00001c90 20 77 68 69 63 68 20 64 65 74 65 63 74 73 20 74 | which detects t| 00001ca0 68 65 20 70 72 65 73 65 6e 63 65 20 6f 66 20 61 |he presence of a| 00001cb0 20 50 43 20 62 79 20 69 73 73 75 69 6e 67 0d 61 | PC by issuing.a| 00001cc0 6e 20 6f 73 62 79 74 65 20 63 61 6c 6c 20 77 68 |n osbyte call wh| 00001cd0 69 63 68 20 70 65 72 66 6f 72 6d 73 20 61 20 20 |ich performs a | 00001ce0 64 69 66 66 65 72 65 6e 74 20 61 63 74 69 6f 6e |different action| 00001cf0 20 6f 6e 20 20 61 20 20 50 43 2c 20 20 74 68 61 | on a PC, tha| 00001d00 6e 20 20 69 74 0d 64 6f 65 73 20 20 6f 6e 20 61 |n it.does on a| 00001d10 20 42 42 43 2e 20 53 69 6d 69 6c 61 72 6c 79 20 | BBC. Similarly | 00001d20 74 68 65 72 65 20 69 73 20 61 6e 20 65 72 72 6f |there is an erro| 00001d30 72 20 68 61 6e 64 6c 69 6e 67 20 72 6f 75 74 69 |r handling routi| 00001d40 6e 65 20 74 6f 20 64 65 74 65 63 74 0d 74 68 65 |ne to detect.the| 00001d50 20 22 62 61 64 20 6d 6f 64 65 22 20 6d 65 73 73 | "bad mode" mess| 00001d60 61 67 65 20 6f 6e 20 61 20 50 43 2e 20 54 68 69 |age on a PC. Thi| 00001d70 73 20 69 73 20 6e 6f 74 20 62 65 63 61 75 73 65 |s is not because| 00001d80 20 6f 66 20 6c 61 63 6b 20 6f 66 20 6d 65 6d 6f | of lack of memo| 00001d90 72 79 2c 0d 61 73 20 61 20 50 43 20 64 6f 65 73 |ry,.as a PC does| 00001da0 20 6e 6f 74 20 75 73 65 20 70 72 6f 67 72 61 6d | not use program| 00001db0 20 73 70 61 63 65 20 66 6f 72 20 74 68 65 20 73 | space for the s| 00001dc0 63 72 65 65 6e 20 61 6e 64 20 6c 65 61 76 65 73 |creen and leaves| 00001dd0 20 74 68 65 20 20 66 75 6c 6c 0d 36 32 2e 35 4b | the full.62.5K| 00001de0 20 20 61 76 61 69 6c 61 62 6c 65 20 20 66 6f 72 | available for| 00001df0 20 20 70 72 6f 67 72 61 6d 69 6e 67 20 20 72 65 | programing re| 00001e00 67 61 72 64 6c 65 73 73 20 20 6f 66 20 20 73 63 |gardless of sc| 00001e10 72 65 65 6e 20 6d 6f 64 65 2c 20 62 75 74 20 74 |reen mode, but t| 00001e20 6f 0d 64 65 74 65 63 74 20 77 68 65 74 68 65 72 |o.detect whether| 00001e30 20 74 68 65 20 50 43 20 69 73 20 66 69 74 74 65 | the PC is fitte| 00001e40 64 20 77 69 74 68 20 61 20 63 6f 6c 6f 75 72 20 |d with a colour | 00001e50 6f 72 20 6d 6f 6e 6f 20 64 69 73 70 6c 61 79 20 |or mono display | 00001e60 63 61 72 64 2e 0d 0d 42 65 63 61 75 73 65 20 74 |card...Because t| 00001e70 68 65 20 70 72 6f 67 72 61 6d 20 69 73 20 61 20 |he program is a | 00001e80 73 74 72 61 69 67 68 74 20 66 6f 72 77 61 72 64 |straight forward| 00001e90 20 70 69 65 63 65 20 6f 66 20 20 42 61 73 69 63 | piece of Basic| 00001ea0 20 20 70 72 6f 67 72 61 6d 6d 69 6e 67 0d 77 69 | programming.wi| 00001eb0 74 68 20 20 6e 6f 20 20 66 61 6e 63 79 20 20 67 |th no fancy g| 00001ec0 72 61 70 68 69 63 73 2c 20 69 74 20 73 68 6f 75 |raphics, it shou| 00001ed0 6c 64 20 62 65 20 65 61 73 79 20 74 6f 20 61 64 |ld be easy to ad| 00001ee0 61 70 74 20 69 74 20 74 6f 20 73 75 69 74 20 6f |apt it to suit o| 00001ef0 74 68 65 72 0d 62 72 61 6e 64 73 20 6f 66 20 42 |ther.brands of B| 00001f00 61 73 69 63 20 6f 6e 20 6f 74 68 65 72 20 63 6f |asic on other co| 00001f10 6d 70 75 74 65 72 73 2e 0d |mputers..| 00001f19