Home » CEEFAX disks » telesoftware2.adl » ATS/T\ATS6A
ATS/T\ATS6A
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 » telesoftware2.adl |
| Filename: | ATS/T\ATS6A |
| Read OK: | ✔ |
| File size: | 288C bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
Interactive programming J.J.Brayshaw 1987
Downloading any telesoftware file is very easy with the ATS. For the very
lazy, we offer here the opportunity to create a personalised file
downloader which will receive only the files you want, ignoring any others
that may be broadcast.
The whole process is automatic, and requires no intervention by the user
other than starting the program running.
Leave the system running while you go off and see to other things. The
files you want will be saved to disc on your return (provided you ensure
there is enough disc space available!)
__________________________________________________________________________
Teletext Interactive Programming:
Advanced Teletext System. 6a
(c) J.J.Brayshaw 1987
Telesoftware downloader:
All the details about all the files currently available are given each
week in a data file called "Catalog". (The "ue" is missing from the word
not because it is another Americanisation, but because of the limitations
of the DFS which only allows 7-character filenames!)
When you enter "downloading" mode using ATS, this catalogue information is
found and used to create the familiar downloading selection screen for the
user to choose a file. The catalogue file itself is only downloaded to
memory in this case.
The file "catalog" can be downloaded to disc if required. Simply use the
routine provided with "ATS06". After saving to disc, the contents can be
interpreted using the program "ReadCat".
However, if we want to write our own automatic file downloader using
BASIC, we need to receive and study this catalogue file for full details
of the current transmissions. Once again, it is not necessary to save the
catalogue to disc, as it can be interrogated easier and faster from
computer memory.
First, we must find on which page the catalogue file is being broadcast.
The TSDP contains a "page link" pointing to the services "initial page".
The page considered to be the "initial page" is decided by the teletext
editors, but on BBC2 it is normally page 200. The idea of an initial page
is for teletext tv sets to be able to receive something for display even
Page 1
Interactive programming J.J.Brayshaw 1987
before the user has selected a page explicitly. Until now, set
manufacturers have had to make their own choice of "initial" page,
(normally opting for page 100), and hope each channel actually transmits
such a page! Now that a TSDP is available, future tv sets will be able to
make a more suitable selection as a 'default' page.
Having found which is the initial page for the service (from the TSDP), we
need to load it into memory. Link 4 (the fifth link) of this page, as
given in the page link settings on packet 27, points to the
machine-readable catalogue page. Using the routine given in an earlier
module, we can decode this link setting and hence find which page
"Catalog" is transmitted on.
So our downloader must find the TSDP, follow the "initial page" link,
download the initial page, interpret link 4 of this page then download the
catalogue by following this link.
After the catalogue has been loaded to computer memory, files can be
selected by studying details contained therein. A "cycling" downloader
routine can be used to download all the files required, ignoring any not
wanted.
Details of the catalogue file format, and how to interpret the information
in it, were given in an earlier module. It should be noted that the
catalogue file holds information for all files broadcast, and not just
those for the BBC micro. It is wise, therefore, to avoid downloading files
that are not intended for the machine being used. Many unforeseen problems
could arise otherwise.
There are so many individual requirements for telesoftware, that we could
produce dozens of variations yet still not provide exactly the program you
may be looking for. With ATS6a, you can adjust the main routine to suit
your own requirements exactly. The machine-readable catalogue file is an
ideal source for all the information that may be required when downloading
any file. The rather circuitous route to find this catalogue (from TSDP to
Initial Page to Link 4 to Catalogue) ensures as much flexibility as
possible with regard to transmission of, and access to, this information.
__________________________________________________________________________
Page 2
Interactive programming J.J.Brayshaw 1987
The program ATS6a will find and decode the broadcast telesoftware
catalogue, then proceed to download all the files being broadcast for use
with a BBC micro. If this is what you require, you need make no
adjustments whatever to the program.
To modify the program to download only the type of file you require,
proceed as follows:
Lines 1610 to 1790 should be replaced with whatever condition you wish to
apply in the selection or rejection of files. The procedure
"PROCsave_info" is called once for each file listed in the catalogue. If
the execution of the program reaches line 1800, the details will be noted
and the file subsequently downloaded. If the file is not required, the
procedure should be exited before this stage.
For example, if you require all files except teachers notes, include the
line:
1610 IF ft$ = "Notes" THEN ENDPROC
Similarly, if you only require teachers notes, and nothing else, add the
line:
1610 IF ft$ <> "Notes" THEN ENDPROC
To download all the text files:
1610 IF ft$ <> "Text" THEN ENDPROC
For all BASIC files and Machine Code files, include:
1610 IF ft$ <> "BASIC" AND ft$ <> "M/C" THEN ENDPROC
The wording used in the various fields of the catalogue is not fixed.
However, BBC transmissions normally use the file descriptions as follows
(remember, however, that these may change at any time):
Machine type: (ATS6a variable mc$):
"ANY" - For any type of computer
"BBC" - For BBC micros
"IBM" - For IBM PCs and clones
"AMSTRAD"- For Amstrad computers
File names: (ATS6a variable fn$):
The filename is normally a maximum of seven characters. The catalogue
contains a mixture of lower and upper case characters in most filenames.
Page 3
Interactive programming J.J.Brayshaw 1987
However, as the ATS requires these to be quoted in upper-case only, the
program ATS6a will alter all filenames to be upper case only. If you
require a search to be made using the filename field, you should give
the names in upper case characters.
File types: (ATS6a variable ft$):
"Notes" - Teachers notes
"Text" - Any text-only file
"BASIC" - Any BASIC program
"M/C" - Any machine-code routine
"Data" - Date files
"EXEC" - A file in *EXEC format (not necessarily BASIC)
"Screen" - A screen image
File size: (ATS6a variable len$):
" 5 pages" - Less than 10 pages the description includes a leading space
"12 pages" - No leading space for two-digit page quantities
"1.2k" - This type of description is normally not used for BBC files
Load and Execution addresses: (ATS6a variables load% and exec%):
This is in numeric form, and uses 8 hex digits. Most files are allocated
load and exec addresses in the range &00000000 to &0000FFFF, but files
specifically for use in the i/o processor of a two-processor system are
given addresses in the range &FFFF0000 to &FFFFFFFF.
Magazine and page numbers: (ATS6a variables mag% and page%):
The magazine number is in the range 0 to 7. The page number is a
two-digit hex number in the range &00 to &FF.
When writing a condition, remember that as the program stands, the case of
the lettering is important. Making the following adjustments will change
all received text from the catalogue into upper-case. You then only need
test for the upper-case version of your condition, in any field:
Line 1120 - delete the final "NEXT" statement
Add line 1125 IF(?A%>&60) AND (?A%<&7B) THEN ?A%=(?A%)AND&DF
and line 1127 NEXT
Line 1170 - delete the final "NEXT" statement
Add line 1175 IF(?A%>&60) AND (?A%<&7B) THEN ?A%=(?A%)AND&DF:NEXT
and line 1177 NEXT
This has the disadvantage of making any display you create using this
information less attractive.
Page 4
Interactive programming J.J.Brayshaw 1987
When imposing your conditions you may use any of the fields listed in the
REM statements. These conditions can be as complex as necessary, and may
occupy as many program lines as you can fit in! You can, instead, display
all the file details on screen and prompt for a choice to be made by the
user, thus saving only the files chosen. The following program lines can
be added to acheive this. You may prefer to write your own routine
instead, to present the information in a different way:
1610 VDU26:CLS:PROCheading("")
1620 PRINT col$;fn$;TAB(12);ft$;TAB(22)len$
1630 t%=INT(((VAL(len$)*20)/60)+0.5):IFt%=0 THEN t%=1
1640 PRINT'"File will take about ";t%;" minutes"'"to download."
1650 PRINT'"Do you want this file? (Y/N) ";
1660 REPEAT : y%=GET AND &DF : UNTIL y%=ASC"N" OR y%=ASC"Y"
1670 IF y%=ASC"N" THEN ENDPROC
1680 total_time%=total_time%+t%
This also includes a routine to calculate the approximate downloading time
of each file requested. This is rather unreliable, as the source of this
information is not in a fixed format, therefore if the style changes the
calculations made will be wrong. However, it is likely to be reasonably
reliable for some time, as we have no intention of changing the format of
this field at the moment. It also assumes a CEEFAX cycle time of 20
seconds, and that there is only one file per CEEFAX page. The routine
requires some other lines to be included to set up the necessary variables
and print out the result:
265 total_time%=0
382 P.TAB(1,3)"Downloading time remaining: ";total_time%;" minutes"
384 t%=INT(((VAL(pages$(W%))*20)/60)+0.5):IFt%=0 THEN t%=1
386 total_time%=total_time%-t%
There are endless variations to the automatic downloading concept. Have
fun experimenting!
__________________________________________________________________________
Page 5
00000000 0d 0d 0d 0d 49 6e 74 65 72 61 63 74 69 76 65 20 |....Interactive |
00000010 70 72 6f 67 72 61 6d 6d 69 6e 67 20 20 20 20 20 |programming |
00000020 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000030 20 20 20 20 20 20 20 20 20 20 20 20 20 4a 2e 4a | J.J|
00000040 2e 42 72 61 79 73 68 61 77 20 31 39 38 37 0d 0d |.Brayshaw 1987..|
00000050 0d 0d 0d 44 6f 77 6e 6c 6f 61 64 69 6e 67 20 61 |...Downloading a|
00000060 6e 79 20 74 65 6c 65 73 6f 66 74 77 61 72 65 20 |ny telesoftware |
00000070 66 69 6c 65 20 69 73 20 76 65 72 79 20 65 61 73 |file is very eas|
00000080 79 20 77 69 74 68 20 74 68 65 20 41 54 53 2e 20 |y with the ATS. |
00000090 46 6f 72 20 74 68 65 20 76 65 72 79 0d 6c 61 7a |For the very.laz|
000000a0 79 2c 20 77 65 20 6f 66 66 65 72 20 68 65 72 65 |y, we offer here|
000000b0 20 74 68 65 20 6f 70 70 6f 72 74 75 6e 69 74 79 | the opportunity|
000000c0 20 74 6f 20 63 72 65 61 74 65 20 61 20 70 65 72 | to create a per|
000000d0 73 6f 6e 61 6c 69 73 65 64 20 66 69 6c 65 0d 64 |sonalised file.d|
000000e0 6f 77 6e 6c 6f 61 64 65 72 20 77 68 69 63 68 20 |ownloader which |
000000f0 77 69 6c 6c 20 72 65 63 65 69 76 65 20 6f 6e 6c |will receive onl|
00000100 79 20 74 68 65 20 66 69 6c 65 73 20 79 6f 75 20 |y the files you |
00000110 77 61 6e 74 2c 20 69 67 6e 6f 72 69 6e 67 20 61 |want, ignoring a|
00000120 6e 79 20 6f 74 68 65 72 73 0d 74 68 61 74 20 6d |ny others.that m|
00000130 61 79 20 62 65 20 62 72 6f 61 64 63 61 73 74 2e |ay be broadcast.|
00000140 0d 0d 54 68 65 20 77 68 6f 6c 65 20 70 72 6f 63 |..The whole proc|
00000150 65 73 73 20 69 73 20 61 75 74 6f 6d 61 74 69 63 |ess is automatic|
00000160 2c 20 61 6e 64 20 72 65 71 75 69 72 65 73 20 6e |, and requires n|
00000170 6f 20 69 6e 74 65 72 76 65 6e 74 69 6f 6e 20 62 |o intervention b|
00000180 79 20 74 68 65 20 75 73 65 72 0d 6f 74 68 65 72 |y the user.other|
00000190 20 74 68 61 6e 20 73 74 61 72 74 69 6e 67 20 74 | than starting t|
000001a0 68 65 20 70 72 6f 67 72 61 6d 20 72 75 6e 6e 69 |he program runni|
000001b0 6e 67 2e 0d 0d 4c 65 61 76 65 20 74 68 65 20 73 |ng...Leave the s|
000001c0 79 73 74 65 6d 20 72 75 6e 6e 69 6e 67 20 77 68 |ystem running wh|
000001d0 69 6c 65 20 79 6f 75 20 67 6f 20 6f 66 66 20 61 |ile you go off a|
000001e0 6e 64 20 73 65 65 20 74 6f 20 6f 74 68 65 72 20 |nd see to other |
000001f0 74 68 69 6e 67 73 2e 20 54 68 65 0d 66 69 6c 65 |things. The.file|
00000200 73 20 79 6f 75 20 77 61 6e 74 20 77 69 6c 6c 20 |s you want will |
00000210 62 65 20 73 61 76 65 64 20 74 6f 20 64 69 73 63 |be saved to disc|
00000220 20 6f 6e 20 79 6f 75 72 20 72 65 74 75 72 6e 20 | on your return |
00000230 28 70 72 6f 76 69 64 65 64 20 79 6f 75 20 65 6e |(provided you en|
00000240 73 75 72 65 0d 74 68 65 72 65 20 69 73 20 65 6e |sure.there is en|
00000250 6f 75 67 68 20 64 69 73 63 20 73 70 61 63 65 20 |ough disc space |
00000260 61 76 61 69 6c 61 62 6c 65 21 29 0d 0d 5f 5f 5f |available!)..___|
00000270 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f |________________|
*
000002b0 5f 5f 5f 5f 5f 5f 5f 0d 0d 54 65 6c 65 74 65 78 |_______..Teletex|
000002c0 74 20 49 6e 74 65 72 61 63 74 69 76 65 20 50 72 |t Interactive Pr|
000002d0 6f 67 72 61 6d 6d 69 6e 67 3a 0d 0d 41 64 76 61 |ogramming:..Adva|
000002e0 6e 63 65 64 20 54 65 6c 65 74 65 78 74 20 53 79 |nced Teletext Sy|
000002f0 73 74 65 6d 2e 20 36 61 0d 0d 28 63 29 20 4a 2e |stem. 6a..(c) J.|
00000300 4a 2e 42 72 61 79 73 68 61 77 20 31 39 38 37 0d |J.Brayshaw 1987.|
00000310 0d 54 65 6c 65 73 6f 66 74 77 61 72 65 20 64 6f |.Telesoftware do|
00000320 77 6e 6c 6f 61 64 65 72 3a 0d 0d 0d 41 6c 6c 20 |wnloader:...All |
00000330 74 68 65 20 64 65 74 61 69 6c 73 20 61 62 6f 75 |the details abou|
00000340 74 20 61 6c 6c 20 74 68 65 20 66 69 6c 65 73 20 |t all the files |
00000350 63 75 72 72 65 6e 74 6c 79 20 61 76 61 69 6c 61 |currently availa|
00000360 62 6c 65 20 61 72 65 20 67 69 76 65 6e 20 65 61 |ble are given ea|
00000370 63 68 0d 77 65 65 6b 20 69 6e 20 61 20 64 61 74 |ch.week in a dat|
00000380 61 20 66 69 6c 65 20 63 61 6c 6c 65 64 20 22 43 |a file called "C|
00000390 61 74 61 6c 6f 67 22 2e 20 28 54 68 65 20 22 75 |atalog". (The "u|
000003a0 65 22 20 69 73 20 6d 69 73 73 69 6e 67 20 66 72 |e" is missing fr|
000003b0 6f 6d 20 74 68 65 20 77 6f 72 64 0d 6e 6f 74 20 |om the word.not |
000003c0 62 65 63 61 75 73 65 20 69 74 20 69 73 20 61 6e |because it is an|
000003d0 6f 74 68 65 72 20 41 6d 65 72 69 63 61 6e 69 73 |other Americanis|
000003e0 61 74 69 6f 6e 2c 20 62 75 74 20 62 65 63 61 75 |ation, but becau|
000003f0 73 65 20 6f 66 20 74 68 65 20 6c 69 6d 69 74 61 |se of the limita|
00000400 74 69 6f 6e 73 0d 6f 66 20 74 68 65 20 44 46 53 |tions.of the DFS|
00000410 20 77 68 69 63 68 20 6f 6e 6c 79 20 61 6c 6c 6f | which only allo|
00000420 77 73 20 37 2d 63 68 61 72 61 63 74 65 72 20 66 |ws 7-character f|
00000430 69 6c 65 6e 61 6d 65 73 21 29 0d 0d 57 68 65 6e |ilenames!)..When|
00000440 20 79 6f 75 20 65 6e 74 65 72 20 22 64 6f 77 6e | you enter "down|
00000450 6c 6f 61 64 69 6e 67 22 20 6d 6f 64 65 20 75 73 |loading" mode us|
00000460 69 6e 67 20 41 54 53 2c 20 74 68 69 73 20 63 61 |ing ATS, this ca|
00000470 74 61 6c 6f 67 75 65 20 69 6e 66 6f 72 6d 61 74 |talogue informat|
00000480 69 6f 6e 20 69 73 0d 66 6f 75 6e 64 20 61 6e 64 |ion is.found and|
00000490 20 75 73 65 64 20 74 6f 20 63 72 65 61 74 65 20 | used to create |
000004a0 74 68 65 20 66 61 6d 69 6c 69 61 72 20 64 6f 77 |the familiar dow|
000004b0 6e 6c 6f 61 64 69 6e 67 20 73 65 6c 65 63 74 69 |nloading selecti|
000004c0 6f 6e 20 73 63 72 65 65 6e 20 66 6f 72 20 74 68 |on screen for th|
000004d0 65 0d 75 73 65 72 20 74 6f 20 63 68 6f 6f 73 65 |e.user to choose|
000004e0 20 61 20 66 69 6c 65 2e 20 54 68 65 20 63 61 74 | a file. The cat|
000004f0 61 6c 6f 67 75 65 20 66 69 6c 65 20 69 74 73 65 |alogue file itse|
00000500 6c 66 20 69 73 20 6f 6e 6c 79 20 64 6f 77 6e 6c |lf is only downl|
00000510 6f 61 64 65 64 20 74 6f 0d 6d 65 6d 6f 72 79 20 |oaded to.memory |
00000520 69 6e 20 74 68 69 73 20 63 61 73 65 2e 0d 0d 54 |in this case...T|
00000530 68 65 20 66 69 6c 65 20 22 63 61 74 61 6c 6f 67 |he file "catalog|
00000540 22 20 63 61 6e 20 62 65 20 64 6f 77 6e 6c 6f 61 |" can be downloa|
00000550 64 65 64 20 74 6f 20 64 69 73 63 20 69 66 20 72 |ded to disc if r|
00000560 65 71 75 69 72 65 64 2e 20 53 69 6d 70 6c 79 20 |equired. Simply |
00000570 75 73 65 20 74 68 65 0d 72 6f 75 74 69 6e 65 20 |use the.routine |
00000580 70 72 6f 76 69 64 65 64 20 77 69 74 68 20 22 41 |provided with "A|
00000590 54 53 30 36 22 2e 20 41 66 74 65 72 20 73 61 76 |TS06". After sav|
000005a0 69 6e 67 20 74 6f 20 64 69 73 63 2c 20 74 68 65 |ing to disc, the|
000005b0 20 63 6f 6e 74 65 6e 74 73 20 63 61 6e 20 62 65 | contents can be|
000005c0 0d 69 6e 74 65 72 70 72 65 74 65 64 20 75 73 69 |.interpreted usi|
000005d0 6e 67 20 74 68 65 20 70 72 6f 67 72 61 6d 20 22 |ng the program "|
000005e0 52 65 61 64 43 61 74 22 2e 0d 0d 48 6f 77 65 76 |ReadCat"...Howev|
000005f0 65 72 2c 20 69 66 20 77 65 20 77 61 6e 74 20 74 |er, if we want t|
00000600 6f 20 77 72 69 74 65 20 6f 75 72 20 6f 77 6e 20 |o write our own |
00000610 61 75 74 6f 6d 61 74 69 63 20 66 69 6c 65 20 64 |automatic file d|
00000620 6f 77 6e 6c 6f 61 64 65 72 20 75 73 69 6e 67 0d |ownloader using.|
00000630 42 41 53 49 43 2c 20 77 65 20 6e 65 65 64 20 74 |BASIC, we need t|
00000640 6f 20 72 65 63 65 69 76 65 20 61 6e 64 20 73 74 |o receive and st|
00000650 75 64 79 20 74 68 69 73 20 63 61 74 61 6c 6f 67 |udy this catalog|
00000660 75 65 20 66 69 6c 65 20 66 6f 72 20 66 75 6c 6c |ue file for full|
00000670 20 64 65 74 61 69 6c 73 0d 6f 66 20 74 68 65 20 | details.of the |
00000680 63 75 72 72 65 6e 74 20 74 72 61 6e 73 6d 69 73 |current transmis|
00000690 73 69 6f 6e 73 2e 20 4f 6e 63 65 20 61 67 61 69 |sions. Once agai|
000006a0 6e 2c 20 69 74 20 69 73 20 6e 6f 74 20 6e 65 63 |n, it is not nec|
000006b0 65 73 73 61 72 79 20 74 6f 20 73 61 76 65 20 74 |essary to save t|
000006c0 68 65 0d 63 61 74 61 6c 6f 67 75 65 20 74 6f 20 |he.catalogue to |
000006d0 64 69 73 63 2c 20 61 73 20 69 74 20 63 61 6e 20 |disc, as it can |
000006e0 62 65 20 69 6e 74 65 72 72 6f 67 61 74 65 64 20 |be interrogated |
000006f0 65 61 73 69 65 72 20 61 6e 64 20 66 61 73 74 65 |easier and faste|
00000700 72 20 66 72 6f 6d 0d 63 6f 6d 70 75 74 65 72 20 |r from.computer |
00000710 6d 65 6d 6f 72 79 2e 0d 0d 46 69 72 73 74 2c 20 |memory...First, |
00000720 77 65 20 6d 75 73 74 20 66 69 6e 64 20 6f 6e 20 |we must find on |
00000730 77 68 69 63 68 20 70 61 67 65 20 74 68 65 20 63 |which page the c|
00000740 61 74 61 6c 6f 67 75 65 20 66 69 6c 65 20 69 73 |atalogue file is|
00000750 20 62 65 69 6e 67 20 62 72 6f 61 64 63 61 73 74 | being broadcast|
00000760 2e 0d 54 68 65 20 54 53 44 50 20 63 6f 6e 74 61 |..The TSDP conta|
00000770 69 6e 73 20 61 20 22 70 61 67 65 20 6c 69 6e 6b |ins a "page link|
00000780 22 20 70 6f 69 6e 74 69 6e 67 20 74 6f 20 74 68 |" pointing to th|
00000790 65 20 73 65 72 76 69 63 65 73 20 22 69 6e 69 74 |e services "init|
000007a0 69 61 6c 20 70 61 67 65 22 2e 0d 54 68 65 20 70 |ial page"..The p|
000007b0 61 67 65 20 63 6f 6e 73 69 64 65 72 65 64 20 74 |age considered t|
000007c0 6f 20 62 65 20 74 68 65 20 22 69 6e 69 74 69 61 |o be the "initia|
000007d0 6c 20 70 61 67 65 22 20 69 73 20 64 65 63 69 64 |l page" is decid|
000007e0 65 64 20 62 79 20 74 68 65 20 74 65 6c 65 74 65 |ed by the telete|
000007f0 78 74 0d 65 64 69 74 6f 72 73 2c 20 62 75 74 20 |xt.editors, but |
00000800 6f 6e 20 42 42 43 32 20 69 74 20 69 73 20 6e 6f |on BBC2 it is no|
00000810 72 6d 61 6c 6c 79 20 70 61 67 65 20 32 30 30 2e |rmally page 200.|
00000820 20 54 68 65 20 69 64 65 61 20 6f 66 20 61 6e 20 | The idea of an |
00000830 69 6e 69 74 69 61 6c 20 70 61 67 65 0d 69 73 20 |initial page.is |
00000840 66 6f 72 20 74 65 6c 65 74 65 78 74 20 74 76 20 |for teletext tv |
00000850 73 65 74 73 20 74 6f 20 62 65 20 61 62 6c 65 20 |sets to be able |
00000860 74 6f 20 72 65 63 65 69 76 65 20 73 6f 6d 65 74 |to receive somet|
00000870 68 69 6e 67 20 66 6f 72 20 64 69 73 70 6c 61 79 |hing for display|
00000880 20 65 76 65 6e 0d 0d 0d 0d 0d 20 20 20 20 20 20 | even..... |
00000890 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000008a0 20 20 20 20 20 20 20 20 20 20 20 20 50 61 67 65 | Page|
000008b0 20 31 0d 0d 0d 0d 0d 0d 0d 0d 0d 49 6e 74 65 72 | 1.........Inter|
000008c0 61 63 74 69 76 65 20 70 72 6f 67 72 61 6d 6d 69 |active programmi|
000008d0 6e 67 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |ng |
000008e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000008f0 20 20 20 20 4a 2e 4a 2e 42 72 61 79 73 68 61 77 | J.J.Brayshaw|
00000900 20 31 39 38 37 0d 0d 0d 0d 0d 62 65 66 6f 72 65 | 1987.....before|
00000910 20 74 68 65 20 75 73 65 72 20 68 61 73 20 73 65 | the user has se|
00000920 6c 65 63 74 65 64 20 61 20 70 61 67 65 20 65 78 |lected a page ex|
00000930 70 6c 69 63 69 74 6c 79 2e 20 55 6e 74 69 6c 20 |plicitly. Until |
00000940 6e 6f 77 2c 20 73 65 74 0d 6d 61 6e 75 66 61 63 |now, set.manufac|
00000950 74 75 72 65 72 73 20 68 61 76 65 20 68 61 64 20 |turers have had |
00000960 74 6f 20 6d 61 6b 65 20 74 68 65 69 72 20 6f 77 |to make their ow|
00000970 6e 20 63 68 6f 69 63 65 20 6f 66 20 22 69 6e 69 |n choice of "ini|
00000980 74 69 61 6c 22 20 70 61 67 65 2c 0d 28 6e 6f 72 |tial" page,.(nor|
00000990 6d 61 6c 6c 79 20 6f 70 74 69 6e 67 20 66 6f 72 |mally opting for|
000009a0 20 70 61 67 65 20 31 30 30 29 2c 20 61 6e 64 20 | page 100), and |
000009b0 68 6f 70 65 20 65 61 63 68 20 63 68 61 6e 6e 65 |hope each channe|
000009c0 6c 20 61 63 74 75 61 6c 6c 79 20 74 72 61 6e 73 |l actually trans|
000009d0 6d 69 74 73 0d 73 75 63 68 20 61 20 70 61 67 65 |mits.such a page|
000009e0 21 20 4e 6f 77 20 74 68 61 74 20 61 20 54 53 44 |! Now that a TSD|
000009f0 50 20 69 73 20 61 76 61 69 6c 61 62 6c 65 2c 20 |P is available, |
00000a00 66 75 74 75 72 65 20 74 76 20 73 65 74 73 20 77 |future tv sets w|
00000a10 69 6c 6c 20 62 65 20 61 62 6c 65 20 74 6f 0d 6d |ill be able to.m|
00000a20 61 6b 65 20 61 20 6d 6f 72 65 20 73 75 69 74 61 |ake a more suita|
00000a30 62 6c 65 20 73 65 6c 65 63 74 69 6f 6e 20 61 73 |ble selection as|
00000a40 20 61 20 27 64 65 66 61 75 6c 74 27 20 70 61 67 | a 'default' pag|
00000a50 65 2e 0d 0d 48 61 76 69 6e 67 20 66 6f 75 6e 64 |e...Having found|
00000a60 20 77 68 69 63 68 20 69 73 20 74 68 65 20 69 6e | which is the in|
00000a70 69 74 69 61 6c 20 70 61 67 65 20 66 6f 72 20 74 |itial page for t|
00000a80 68 65 20 73 65 72 76 69 63 65 20 28 66 72 6f 6d |he service (from|
00000a90 20 74 68 65 20 54 53 44 50 29 2c 20 77 65 0d 6e | the TSDP), we.n|
00000aa0 65 65 64 20 74 6f 20 6c 6f 61 64 20 69 74 20 69 |eed to load it i|
00000ab0 6e 74 6f 20 6d 65 6d 6f 72 79 2e 20 4c 69 6e 6b |nto memory. Link|
00000ac0 20 34 20 28 74 68 65 20 66 69 66 74 68 20 6c 69 | 4 (the fifth li|
00000ad0 6e 6b 29 20 6f 66 20 74 68 69 73 20 70 61 67 65 |nk) of this page|
00000ae0 2c 20 61 73 0d 67 69 76 65 6e 20 69 6e 20 74 68 |, as.given in th|
00000af0 65 20 70 61 67 65 20 6c 69 6e 6b 20 73 65 74 74 |e page link sett|
00000b00 69 6e 67 73 20 6f 6e 20 70 61 63 6b 65 74 20 32 |ings on packet 2|
00000b10 37 2c 20 70 6f 69 6e 74 73 20 74 6f 20 74 68 65 |7, points to the|
00000b20 0d 6d 61 63 68 69 6e 65 2d 72 65 61 64 61 62 6c |.machine-readabl|
00000b30 65 20 63 61 74 61 6c 6f 67 75 65 20 70 61 67 65 |e catalogue page|
00000b40 2e 20 55 73 69 6e 67 20 74 68 65 20 72 6f 75 74 |. Using the rout|
00000b50 69 6e 65 20 67 69 76 65 6e 20 69 6e 20 61 6e 20 |ine given in an |
00000b60 65 61 72 6c 69 65 72 0d 6d 6f 64 75 6c 65 2c 20 |earlier.module, |
00000b70 77 65 20 63 61 6e 20 64 65 63 6f 64 65 20 74 68 |we can decode th|
00000b80 69 73 20 6c 69 6e 6b 20 73 65 74 74 69 6e 67 20 |is link setting |
00000b90 61 6e 64 20 68 65 6e 63 65 20 66 69 6e 64 20 77 |and hence find w|
00000ba0 68 69 63 68 20 70 61 67 65 0d 22 43 61 74 61 6c |hich page."Catal|
00000bb0 6f 67 22 20 69 73 20 74 72 61 6e 73 6d 69 74 74 |og" is transmitt|
00000bc0 65 64 20 6f 6e 2e 0d 0d 53 6f 20 6f 75 72 20 64 |ed on...So our d|
00000bd0 6f 77 6e 6c 6f 61 64 65 72 20 6d 75 73 74 20 66 |ownloader must f|
00000be0 69 6e 64 20 74 68 65 20 54 53 44 50 2c 20 66 6f |ind the TSDP, fo|
00000bf0 6c 6c 6f 77 20 74 68 65 20 22 69 6e 69 74 69 61 |llow the "initia|
00000c00 6c 20 70 61 67 65 22 20 6c 69 6e 6b 2c 0d 64 6f |l page" link,.do|
00000c10 77 6e 6c 6f 61 64 20 74 68 65 20 69 6e 69 74 69 |wnload the initi|
00000c20 61 6c 20 70 61 67 65 2c 20 69 6e 74 65 72 70 72 |al page, interpr|
00000c30 65 74 20 6c 69 6e 6b 20 34 20 6f 66 20 74 68 69 |et link 4 of thi|
00000c40 73 20 70 61 67 65 20 74 68 65 6e 20 64 6f 77 6e |s page then down|
00000c50 6c 6f 61 64 20 74 68 65 0d 63 61 74 61 6c 6f 67 |load the.catalog|
00000c60 75 65 20 62 79 20 66 6f 6c 6c 6f 77 69 6e 67 20 |ue by following |
00000c70 74 68 69 73 20 6c 69 6e 6b 2e 0d 0d 41 66 74 65 |this link...Afte|
00000c80 72 20 74 68 65 20 63 61 74 61 6c 6f 67 75 65 20 |r the catalogue |
00000c90 68 61 73 20 62 65 65 6e 20 6c 6f 61 64 65 64 20 |has been loaded |
00000ca0 74 6f 20 63 6f 6d 70 75 74 65 72 20 6d 65 6d 6f |to computer memo|
00000cb0 72 79 2c 20 66 69 6c 65 73 20 63 61 6e 20 62 65 |ry, files can be|
00000cc0 0d 73 65 6c 65 63 74 65 64 20 62 79 20 73 74 75 |.selected by stu|
00000cd0 64 79 69 6e 67 20 64 65 74 61 69 6c 73 20 63 6f |dying details co|
00000ce0 6e 74 61 69 6e 65 64 20 74 68 65 72 65 69 6e 2e |ntained therein.|
00000cf0 20 41 20 22 63 79 63 6c 69 6e 67 22 20 64 6f 77 | A "cycling" dow|
00000d00 6e 6c 6f 61 64 65 72 0d 72 6f 75 74 69 6e 65 20 |nloader.routine |
00000d10 63 61 6e 20 62 65 20 75 73 65 64 20 74 6f 20 64 |can be used to d|
00000d20 6f 77 6e 6c 6f 61 64 20 61 6c 6c 20 74 68 65 20 |ownload all the |
00000d30 66 69 6c 65 73 20 72 65 71 75 69 72 65 64 2c 20 |files required, |
00000d40 69 67 6e 6f 72 69 6e 67 20 61 6e 79 20 6e 6f 74 |ignoring any not|
00000d50 0d 77 61 6e 74 65 64 2e 0d 0d 44 65 74 61 69 6c |.wanted...Detail|
00000d60 73 20 6f 66 20 74 68 65 20 63 61 74 61 6c 6f 67 |s of the catalog|
00000d70 75 65 20 66 69 6c 65 20 66 6f 72 6d 61 74 2c 20 |ue file format, |
00000d80 61 6e 64 20 68 6f 77 20 74 6f 20 69 6e 74 65 72 |and how to inter|
00000d90 70 72 65 74 20 74 68 65 20 69 6e 66 6f 72 6d 61 |pret the informa|
00000da0 74 69 6f 6e 0d 69 6e 20 69 74 2c 20 77 65 72 65 |tion.in it, were|
00000db0 20 67 69 76 65 6e 20 69 6e 20 61 6e 20 65 61 72 | given in an ear|
00000dc0 6c 69 65 72 20 6d 6f 64 75 6c 65 2e 20 49 74 20 |lier module. It |
00000dd0 73 68 6f 75 6c 64 20 62 65 20 6e 6f 74 65 64 20 |should be noted |
00000de0 74 68 61 74 20 74 68 65 0d 63 61 74 61 6c 6f 67 |that the.catalog|
00000df0 75 65 20 66 69 6c 65 20 68 6f 6c 64 73 20 69 6e |ue file holds in|
00000e00 66 6f 72 6d 61 74 69 6f 6e 20 66 6f 72 20 61 6c |formation for al|
00000e10 6c 20 66 69 6c 65 73 20 62 72 6f 61 64 63 61 73 |l files broadcas|
00000e20 74 2c 20 61 6e 64 20 6e 6f 74 20 6a 75 73 74 0d |t, and not just.|
00000e30 74 68 6f 73 65 20 66 6f 72 20 74 68 65 20 42 42 |those for the BB|
00000e40 43 20 6d 69 63 72 6f 2e 20 49 74 20 69 73 20 77 |C micro. It is w|
00000e50 69 73 65 2c 20 74 68 65 72 65 66 6f 72 65 2c 20 |ise, therefore, |
00000e60 74 6f 20 61 76 6f 69 64 20 64 6f 77 6e 6c 6f 61 |to avoid downloa|
00000e70 64 69 6e 67 20 66 69 6c 65 73 0d 74 68 61 74 20 |ding files.that |
00000e80 61 72 65 20 6e 6f 74 20 69 6e 74 65 6e 64 65 64 |are not intended|
00000e90 20 66 6f 72 20 74 68 65 20 6d 61 63 68 69 6e 65 | for the machine|
00000ea0 20 62 65 69 6e 67 20 75 73 65 64 2e 20 4d 61 6e | being used. Man|
00000eb0 79 20 75 6e 66 6f 72 65 73 65 65 6e 20 70 72 6f |y unforeseen pro|
00000ec0 62 6c 65 6d 73 0d 63 6f 75 6c 64 20 61 72 69 73 |blems.could aris|
00000ed0 65 20 6f 74 68 65 72 77 69 73 65 2e 0d 0d 54 68 |e otherwise...Th|
00000ee0 65 72 65 20 61 72 65 20 73 6f 20 6d 61 6e 79 20 |ere are so many |
00000ef0 69 6e 64 69 76 69 64 75 61 6c 20 72 65 71 75 69 |individual requi|
00000f00 72 65 6d 65 6e 74 73 20 66 6f 72 20 74 65 6c 65 |rements for tele|
00000f10 73 6f 66 74 77 61 72 65 2c 20 74 68 61 74 20 77 |software, that w|
00000f20 65 20 63 6f 75 6c 64 0d 70 72 6f 64 75 63 65 20 |e could.produce |
00000f30 64 6f 7a 65 6e 73 20 6f 66 20 76 61 72 69 61 74 |dozens of variat|
00000f40 69 6f 6e 73 20 79 65 74 20 73 74 69 6c 6c 20 6e |ions yet still n|
00000f50 6f 74 20 70 72 6f 76 69 64 65 20 65 78 61 63 74 |ot provide exact|
00000f60 6c 79 20 74 68 65 20 70 72 6f 67 72 61 6d 20 79 |ly the program y|
00000f70 6f 75 0d 6d 61 79 20 62 65 20 6c 6f 6f 6b 69 6e |ou.may be lookin|
00000f80 67 20 66 6f 72 2e 20 57 69 74 68 20 41 54 53 36 |g for. With ATS6|
00000f90 61 2c 20 79 6f 75 20 63 61 6e 20 61 64 6a 75 73 |a, you can adjus|
00000fa0 74 20 74 68 65 20 6d 61 69 6e 20 72 6f 75 74 69 |t the main routi|
00000fb0 6e 65 20 74 6f 20 73 75 69 74 0d 79 6f 75 72 20 |ne to suit.your |
00000fc0 6f 77 6e 20 72 65 71 75 69 72 65 6d 65 6e 74 73 |own requirements|
00000fd0 20 65 78 61 63 74 6c 79 2e 20 54 68 65 20 6d 61 | exactly. The ma|
00000fe0 63 68 69 6e 65 2d 72 65 61 64 61 62 6c 65 20 63 |chine-readable c|
00000ff0 61 74 61 6c 6f 67 75 65 20 66 69 6c 65 20 69 73 |atalogue file is|
00001000 20 61 6e 0d 69 64 65 61 6c 20 73 6f 75 72 63 65 | an.ideal source|
00001010 20 66 6f 72 20 61 6c 6c 20 74 68 65 20 69 6e 66 | for all the inf|
00001020 6f 72 6d 61 74 69 6f 6e 20 74 68 61 74 20 6d 61 |ormation that ma|
00001030 79 20 62 65 20 72 65 71 75 69 72 65 64 20 77 68 |y be required wh|
00001040 65 6e 20 64 6f 77 6e 6c 6f 61 64 69 6e 67 0d 61 |en downloading.a|
00001050 6e 79 20 66 69 6c 65 2e 20 54 68 65 20 72 61 74 |ny file. The rat|
00001060 68 65 72 20 63 69 72 63 75 69 74 6f 75 73 20 72 |her circuitous r|
00001070 6f 75 74 65 20 74 6f 20 66 69 6e 64 20 74 68 69 |oute to find thi|
00001080 73 20 63 61 74 61 6c 6f 67 75 65 20 28 66 72 6f |s catalogue (fro|
00001090 6d 20 54 53 44 50 20 74 6f 0d 49 6e 69 74 69 61 |m TSDP to.Initia|
000010a0 6c 20 50 61 67 65 20 74 6f 20 4c 69 6e 6b 20 34 |l Page to Link 4|
000010b0 20 74 6f 20 43 61 74 61 6c 6f 67 75 65 29 20 65 | to Catalogue) e|
000010c0 6e 73 75 72 65 73 20 61 73 20 6d 75 63 68 20 66 |nsures as much f|
000010d0 6c 65 78 69 62 69 6c 69 74 79 20 61 73 0d 70 6f |lexibility as.po|
000010e0 73 73 69 62 6c 65 20 77 69 74 68 20 72 65 67 61 |ssible with rega|
000010f0 72 64 20 74 6f 20 74 72 61 6e 73 6d 69 73 73 69 |rd to transmissi|
00001100 6f 6e 20 6f 66 2c 20 61 6e 64 20 61 63 63 65 73 |on of, and acces|
00001110 73 20 74 6f 2c 20 74 68 69 73 20 69 6e 66 6f 72 |s to, this infor|
00001120 6d 61 74 69 6f 6e 2e 0d 0d 5f 5f 5f 5f 5f 5f 5f |mation..._______|
00001130 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f |________________|
*
00001170 5f 5f 5f 0d 0d 0d 0d 0d 0d 0d 0d 0d 0d 0d 0d 0d |___.............|
00001180 0d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. |
00001190 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000011a0 20 20 20 50 61 67 65 20 32 0d 0d 0d 0d 0d 0d 0d | Page 2.......|
000011b0 0d 0d 49 6e 74 65 72 61 63 74 69 76 65 20 70 72 |..Interactive pr|
000011c0 6f 67 72 61 6d 6d 69 6e 67 20 20 20 20 20 20 20 |ogramming |
000011d0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000011e0 20 20 20 20 20 20 20 20 20 20 20 4a 2e 4a 2e 42 | J.J.B|
000011f0 72 61 79 73 68 61 77 20 31 39 38 37 0d 0d 0d 0d |rayshaw 1987....|
00001200 0d 54 68 65 20 70 72 6f 67 72 61 6d 20 41 54 53 |.The program ATS|
00001210 36 61 20 77 69 6c 6c 20 66 69 6e 64 20 61 6e 64 |6a will find and|
00001220 20 64 65 63 6f 64 65 20 74 68 65 20 62 72 6f 61 | decode the broa|
00001230 64 63 61 73 74 20 74 65 6c 65 73 6f 66 74 77 61 |dcast telesoftwa|
00001240 72 65 0d 63 61 74 61 6c 6f 67 75 65 2c 20 74 68 |re.catalogue, th|
00001250 65 6e 20 70 72 6f 63 65 65 64 20 74 6f 20 64 6f |en proceed to do|
00001260 77 6e 6c 6f 61 64 20 61 6c 6c 20 74 68 65 20 66 |wnload all the f|
00001270 69 6c 65 73 20 62 65 69 6e 67 20 62 72 6f 61 64 |iles being broad|
00001280 63 61 73 74 20 66 6f 72 20 75 73 65 0d 77 69 74 |cast for use.wit|
00001290 68 20 61 20 42 42 43 20 6d 69 63 72 6f 2e 20 49 |h a BBC micro. I|
000012a0 66 20 74 68 69 73 20 69 73 20 77 68 61 74 20 79 |f this is what y|
000012b0 6f 75 20 72 65 71 75 69 72 65 2c 20 79 6f 75 20 |ou require, you |
000012c0 6e 65 65 64 20 6d 61 6b 65 20 6e 6f 0d 61 64 6a |need make no.adj|
000012d0 75 73 74 6d 65 6e 74 73 20 77 68 61 74 65 76 65 |ustments whateve|
000012e0 72 20 74 6f 20 74 68 65 20 70 72 6f 67 72 61 6d |r to the program|
000012f0 2e 0d 0d 54 6f 20 6d 6f 64 69 66 79 20 74 68 65 |...To modify the|
00001300 20 70 72 6f 67 72 61 6d 20 74 6f 20 64 6f 77 6e | program to down|
00001310 6c 6f 61 64 20 6f 6e 6c 79 20 74 68 65 20 74 79 |load only the ty|
00001320 70 65 20 6f 66 20 66 69 6c 65 20 79 6f 75 20 72 |pe of file you r|
00001330 65 71 75 69 72 65 2c 0d 70 72 6f 63 65 65 64 20 |equire,.proceed |
00001340 61 73 20 66 6f 6c 6c 6f 77 73 3a 0d 0d 4c 69 6e |as follows:..Lin|
00001350 65 73 20 31 36 31 30 20 74 6f 20 31 37 39 30 20 |es 1610 to 1790 |
00001360 73 68 6f 75 6c 64 20 62 65 20 72 65 70 6c 61 63 |should be replac|
00001370 65 64 20 77 69 74 68 20 77 68 61 74 65 76 65 72 |ed with whatever|
00001380 20 63 6f 6e 64 69 74 69 6f 6e 20 79 6f 75 20 77 | condition you w|
00001390 69 73 68 20 74 6f 0d 61 70 70 6c 79 20 69 6e 20 |ish to.apply in |
000013a0 74 68 65 20 73 65 6c 65 63 74 69 6f 6e 20 6f 72 |the selection or|
000013b0 20 72 65 6a 65 63 74 69 6f 6e 20 6f 66 20 66 69 | rejection of fi|
000013c0 6c 65 73 2e 20 54 68 65 20 70 72 6f 63 65 64 75 |les. The procedu|
000013d0 72 65 0d 22 50 52 4f 43 73 61 76 65 5f 69 6e 66 |re."PROCsave_inf|
000013e0 6f 22 20 69 73 20 63 61 6c 6c 65 64 20 6f 6e 63 |o" is called onc|
000013f0 65 20 66 6f 72 20 65 61 63 68 20 66 69 6c 65 20 |e for each file |
00001400 6c 69 73 74 65 64 20 69 6e 20 74 68 65 20 63 61 |listed in the ca|
00001410 74 61 6c 6f 67 75 65 2e 20 49 66 0d 74 68 65 20 |talogue. If.the |
00001420 65 78 65 63 75 74 69 6f 6e 20 6f 66 20 74 68 65 |execution of the|
00001430 20 70 72 6f 67 72 61 6d 20 72 65 61 63 68 65 73 | program reaches|
00001440 20 6c 69 6e 65 20 31 38 30 30 2c 20 74 68 65 20 | line 1800, the |
00001450 64 65 74 61 69 6c 73 20 77 69 6c 6c 20 62 65 20 |details will be |
00001460 6e 6f 74 65 64 0d 61 6e 64 20 74 68 65 20 66 69 |noted.and the fi|
00001470 6c 65 20 73 75 62 73 65 71 75 65 6e 74 6c 79 20 |le subsequently |
00001480 64 6f 77 6e 6c 6f 61 64 65 64 2e 20 49 66 20 74 |downloaded. If t|
00001490 68 65 20 66 69 6c 65 20 69 73 20 6e 6f 74 20 72 |he file is not r|
000014a0 65 71 75 69 72 65 64 2c 20 74 68 65 0d 70 72 6f |equired, the.pro|
000014b0 63 65 64 75 72 65 20 73 68 6f 75 6c 64 20 62 65 |cedure should be|
000014c0 20 65 78 69 74 65 64 20 62 65 66 6f 72 65 20 74 | exited before t|
000014d0 68 69 73 20 73 74 61 67 65 2e 0d 0d 46 6f 72 20 |his stage...For |
000014e0 65 78 61 6d 70 6c 65 2c 20 69 66 20 79 6f 75 20 |example, if you |
000014f0 72 65 71 75 69 72 65 20 61 6c 6c 20 66 69 6c 65 |require all file|
00001500 73 20 65 78 63 65 70 74 20 74 65 61 63 68 65 72 |s except teacher|
00001510 73 20 6e 6f 74 65 73 2c 20 69 6e 63 6c 75 64 65 |s notes, include|
00001520 20 74 68 65 0d 6c 69 6e 65 3a 0d 0d 31 36 31 30 | the.line:..1610|
00001530 20 49 46 20 66 74 24 20 3d 20 22 4e 6f 74 65 73 | IF ft$ = "Notes|
00001540 22 20 54 48 45 4e 20 45 4e 44 50 52 4f 43 0d 0d |" THEN ENDPROC..|
00001550 53 69 6d 69 6c 61 72 6c 79 2c 20 69 66 20 79 6f |Similarly, if yo|
00001560 75 20 6f 6e 6c 79 20 72 65 71 75 69 72 65 20 74 |u only require t|
00001570 65 61 63 68 65 72 73 20 6e 6f 74 65 73 2c 20 61 |eachers notes, a|
00001580 6e 64 20 6e 6f 74 68 69 6e 67 20 65 6c 73 65 2c |nd nothing else,|
00001590 20 61 64 64 20 74 68 65 0d 6c 69 6e 65 3a 0d 0d | add the.line:..|
000015a0 31 36 31 30 20 49 46 20 66 74 24 20 3c 3e 20 22 |1610 IF ft$ <> "|
000015b0 4e 6f 74 65 73 22 20 54 48 45 4e 20 45 4e 44 50 |Notes" THEN ENDP|
000015c0 52 4f 43 0d 0d 54 6f 20 64 6f 77 6e 6c 6f 61 64 |ROC..To download|
000015d0 20 61 6c 6c 20 74 68 65 20 74 65 78 74 20 66 69 | all the text fi|
000015e0 6c 65 73 3a 0d 0d 31 36 31 30 20 49 46 20 66 74 |les:..1610 IF ft|
000015f0 24 20 3c 3e 20 22 54 65 78 74 22 20 54 48 45 4e |$ <> "Text" THEN|
00001600 20 45 4e 44 50 52 4f 43 0d 0d 46 6f 72 20 61 6c | ENDPROC..For al|
00001610 6c 20 42 41 53 49 43 20 66 69 6c 65 73 20 61 6e |l BASIC files an|
00001620 64 20 4d 61 63 68 69 6e 65 20 43 6f 64 65 20 66 |d Machine Code f|
00001630 69 6c 65 73 2c 20 69 6e 63 6c 75 64 65 3a 0d 0d |iles, include:..|
00001640 31 36 31 30 20 49 46 20 66 74 24 20 3c 3e 20 22 |1610 IF ft$ <> "|
00001650 42 41 53 49 43 22 20 41 4e 44 20 66 74 24 20 3c |BASIC" AND ft$ <|
00001660 3e 20 22 4d 2f 43 22 20 54 48 45 4e 20 45 4e 44 |> "M/C" THEN END|
00001670 50 52 4f 43 0d 0d 54 68 65 20 77 6f 72 64 69 6e |PROC..The wordin|
00001680 67 20 75 73 65 64 20 69 6e 20 74 68 65 20 76 61 |g used in the va|
00001690 72 69 6f 75 73 20 66 69 65 6c 64 73 20 6f 66 20 |rious fields of |
000016a0 74 68 65 20 63 61 74 61 6c 6f 67 75 65 20 69 73 |the catalogue is|
000016b0 20 6e 6f 74 20 66 69 78 65 64 2e 0d 48 6f 77 65 | not fixed..Howe|
000016c0 76 65 72 2c 20 42 42 43 20 74 72 61 6e 73 6d 69 |ver, BBC transmi|
000016d0 73 73 69 6f 6e 73 20 6e 6f 72 6d 61 6c 6c 79 20 |ssions normally |
000016e0 75 73 65 20 74 68 65 20 66 69 6c 65 20 64 65 73 |use the file des|
000016f0 63 72 69 70 74 69 6f 6e 73 20 61 73 20 66 6f 6c |criptions as fol|
00001700 6c 6f 77 73 0d 28 72 65 6d 65 6d 62 65 72 2c 20 |lows.(remember, |
00001710 68 6f 77 65 76 65 72 2c 20 74 68 61 74 20 74 68 |however, that th|
00001720 65 73 65 20 6d 61 79 20 63 68 61 6e 67 65 20 61 |ese may change a|
00001730 74 20 61 6e 79 20 74 69 6d 65 29 3a 0d 0d 4d 61 |t any time):..Ma|
00001740 63 68 69 6e 65 20 74 79 70 65 3a 20 28 41 54 53 |chine type: (ATS|
00001750 36 61 20 76 61 72 69 61 62 6c 65 20 6d 63 24 29 |6a variable mc$)|
00001760 3a 0d 0d 20 20 22 41 4e 59 22 20 20 20 20 2d 20 |:.. "ANY" - |
00001770 46 6f 72 20 61 6e 79 20 74 79 70 65 20 6f 66 20 |For any type of |
00001780 63 6f 6d 70 75 74 65 72 0d 20 20 22 42 42 43 22 |computer. "BBC"|
00001790 20 20 20 20 2d 20 46 6f 72 20 42 42 43 20 6d 69 | - For BBC mi|
000017a0 63 72 6f 73 0d 20 20 22 49 42 4d 22 20 20 20 20 |cros. "IBM" |
000017b0 2d 20 46 6f 72 20 49 42 4d 20 50 43 73 20 61 6e |- For IBM PCs an|
000017c0 64 20 63 6c 6f 6e 65 73 0d 20 20 22 41 4d 53 54 |d clones. "AMST|
000017d0 52 41 44 22 2d 20 46 6f 72 20 41 6d 73 74 72 61 |RAD"- For Amstra|
000017e0 64 20 63 6f 6d 70 75 74 65 72 73 0d 0d 46 69 6c |d computers..Fil|
000017f0 65 20 6e 61 6d 65 73 3a 20 28 41 54 53 36 61 20 |e names: (ATS6a |
00001800 76 61 72 69 61 62 6c 65 20 66 6e 24 29 3a 0d 0d |variable fn$):..|
00001810 20 20 54 68 65 20 66 69 6c 65 6e 61 6d 65 20 69 | The filename i|
00001820 73 20 6e 6f 72 6d 61 6c 6c 79 20 61 20 6d 61 78 |s normally a max|
00001830 69 6d 75 6d 20 6f 66 20 73 65 76 65 6e 20 63 68 |imum of seven ch|
00001840 61 72 61 63 74 65 72 73 2e 20 54 68 65 20 63 61 |aracters. The ca|
00001850 74 61 6c 6f 67 75 65 0d 20 20 63 6f 6e 74 61 69 |talogue. contai|
00001860 6e 73 20 61 20 6d 69 78 74 75 72 65 20 6f 66 20 |ns a mixture of |
00001870 6c 6f 77 65 72 20 61 6e 64 20 75 70 70 65 72 20 |lower and upper |
00001880 63 61 73 65 20 63 68 61 72 61 63 74 65 72 73 20 |case characters |
00001890 69 6e 20 6d 6f 73 74 20 66 69 6c 65 6e 61 6d 65 |in most filename|
000018a0 73 2e 0d 0d 0d 0d 0d 20 20 20 20 20 20 20 20 20 |s...... |
000018b0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000018c0 20 20 20 20 20 20 20 20 20 50 61 67 65 20 33 0d | Page 3.|
000018d0 0d 0d 0d 0d 0d 0d 0d 0d 49 6e 74 65 72 61 63 74 |........Interact|
000018e0 69 76 65 20 70 72 6f 67 72 61 6d 6d 69 6e 67 20 |ive programming |
000018f0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
*
00001910 20 4a 2e 4a 2e 42 72 61 79 73 68 61 77 20 31 39 | J.J.Brayshaw 19|
00001920 38 37 0d 0d 0d 0d 0d 20 20 48 6f 77 65 76 65 72 |87..... However|
00001930 2c 20 61 73 20 74 68 65 20 41 54 53 20 72 65 71 |, as the ATS req|
00001940 75 69 72 65 73 20 74 68 65 73 65 20 74 6f 20 62 |uires these to b|
00001950 65 20 71 75 6f 74 65 64 20 69 6e 20 75 70 70 65 |e quoted in uppe|
00001960 72 2d 63 61 73 65 20 6f 6e 6c 79 2c 20 74 68 65 |r-case only, the|
00001970 0d 20 20 70 72 6f 67 72 61 6d 20 41 54 53 36 61 |. program ATS6a|
00001980 20 77 69 6c 6c 20 61 6c 74 65 72 20 61 6c 6c 20 | will alter all |
00001990 66 69 6c 65 6e 61 6d 65 73 20 74 6f 20 62 65 20 |filenames to be |
000019a0 75 70 70 65 72 20 63 61 73 65 20 6f 6e 6c 79 2e |upper case only.|
000019b0 20 49 66 20 79 6f 75 0d 20 20 72 65 71 75 69 72 | If you. requir|
000019c0 65 20 61 20 73 65 61 72 63 68 20 74 6f 20 62 65 |e a search to be|
000019d0 20 6d 61 64 65 20 75 73 69 6e 67 20 74 68 65 20 | made using the |
000019e0 66 69 6c 65 6e 61 6d 65 20 66 69 65 6c 64 2c 20 |filename field, |
000019f0 79 6f 75 20 73 68 6f 75 6c 64 20 67 69 76 65 0d |you should give.|
00001a00 20 20 74 68 65 20 6e 61 6d 65 73 20 69 6e 20 75 | the names in u|
00001a10 70 70 65 72 20 63 61 73 65 20 63 68 61 72 61 63 |pper case charac|
00001a20 74 65 72 73 2e 0d 0d 46 69 6c 65 20 74 79 70 65 |ters...File type|
00001a30 73 3a 20 28 41 54 53 36 61 20 76 61 72 69 61 62 |s: (ATS6a variab|
00001a40 6c 65 20 66 74 24 29 3a 0d 0d 20 20 22 4e 6f 74 |le ft$):.. "Not|
00001a50 65 73 22 20 20 2d 20 54 65 61 63 68 65 72 73 20 |es" - Teachers |
00001a60 6e 6f 74 65 73 0d 20 20 22 54 65 78 74 22 20 20 |notes. "Text" |
00001a70 20 2d 20 41 6e 79 20 74 65 78 74 2d 6f 6e 6c 79 | - Any text-only|
00001a80 20 66 69 6c 65 0d 20 20 22 42 41 53 49 43 22 20 | file. "BASIC" |
00001a90 20 2d 20 41 6e 79 20 42 41 53 49 43 20 70 72 6f | - Any BASIC pro|
00001aa0 67 72 61 6d 0d 20 20 22 4d 2f 43 22 20 20 20 20 |gram. "M/C" |
00001ab0 2d 20 41 6e 79 20 6d 61 63 68 69 6e 65 2d 63 6f |- Any machine-co|
00001ac0 64 65 20 72 6f 75 74 69 6e 65 0d 20 20 22 44 61 |de routine. "Da|
00001ad0 74 61 22 20 20 20 2d 20 44 61 74 65 20 66 69 6c |ta" - Date fil|
00001ae0 65 73 0d 20 20 22 45 58 45 43 22 20 20 20 2d 20 |es. "EXEC" - |
00001af0 41 20 66 69 6c 65 20 69 6e 20 2a 45 58 45 43 20 |A file in *EXEC |
00001b00 66 6f 72 6d 61 74 20 28 6e 6f 74 20 6e 65 63 65 |format (not nece|
00001b10 73 73 61 72 69 6c 79 20 42 41 53 49 43 29 0d 20 |ssarily BASIC). |
00001b20 20 22 53 63 72 65 65 6e 22 20 2d 20 41 20 73 63 | "Screen" - A sc|
00001b30 72 65 65 6e 20 69 6d 61 67 65 0d 0d 46 69 6c 65 |reen image..File|
00001b40 20 73 69 7a 65 3a 20 28 41 54 53 36 61 20 76 61 | size: (ATS6a va|
00001b50 72 69 61 62 6c 65 20 6c 65 6e 24 29 3a 0d 0d 20 |riable len$):.. |
00001b60 22 20 35 20 70 61 67 65 73 22 20 2d 20 4c 65 73 |" 5 pages" - Les|
00001b70 73 20 74 68 61 6e 20 31 30 20 70 61 67 65 73 20 |s than 10 pages |
00001b80 74 68 65 20 64 65 73 63 72 69 70 74 69 6f 6e 20 |the description |
00001b90 69 6e 63 6c 75 64 65 73 20 61 20 6c 65 61 64 69 |includes a leadi|
00001ba0 6e 67 20 73 70 61 63 65 0d 20 22 31 32 20 70 61 |ng space. "12 pa|
00001bb0 67 65 73 22 20 2d 20 4e 6f 20 6c 65 61 64 69 6e |ges" - No leadin|
00001bc0 67 20 73 70 61 63 65 20 66 6f 72 20 74 77 6f 2d |g space for two-|
00001bd0 64 69 67 69 74 20 70 61 67 65 20 71 75 61 6e 74 |digit page quant|
00001be0 69 74 69 65 73 0d 20 22 31 2e 32 6b 22 20 20 20 |ities. "1.2k" |
00001bf0 20 20 2d 20 54 68 69 73 20 74 79 70 65 20 6f 66 | - This type of|
00001c00 20 64 65 73 63 72 69 70 74 69 6f 6e 20 69 73 20 | description is |
00001c10 6e 6f 72 6d 61 6c 6c 79 20 6e 6f 74 20 75 73 65 |normally not use|
00001c20 64 20 66 6f 72 20 42 42 43 20 66 69 6c 65 73 0d |d for BBC files.|
00001c30 0d 4c 6f 61 64 20 61 6e 64 20 45 78 65 63 75 74 |.Load and Execut|
00001c40 69 6f 6e 20 61 64 64 72 65 73 73 65 73 3a 20 28 |ion addresses: (|
00001c50 41 54 53 36 61 20 76 61 72 69 61 62 6c 65 73 20 |ATS6a variables |
00001c60 6c 6f 61 64 25 20 61 6e 64 20 65 78 65 63 25 29 |load% and exec%)|
00001c70 3a 0d 0d 20 20 54 68 69 73 20 69 73 20 69 6e 20 |:.. This is in |
00001c80 6e 75 6d 65 72 69 63 20 66 6f 72 6d 2c 20 61 6e |numeric form, an|
00001c90 64 20 75 73 65 73 20 38 20 68 65 78 20 64 69 67 |d uses 8 hex dig|
00001ca0 69 74 73 2e 20 4d 6f 73 74 20 66 69 6c 65 73 20 |its. Most files |
00001cb0 61 72 65 20 61 6c 6c 6f 63 61 74 65 64 0d 20 20 |are allocated. |
00001cc0 6c 6f 61 64 20 61 6e 64 20 65 78 65 63 20 61 64 |load and exec ad|
00001cd0 64 72 65 73 73 65 73 20 69 6e 20 74 68 65 20 72 |dresses in the r|
00001ce0 61 6e 67 65 20 26 30 30 30 30 30 30 30 30 20 74 |ange &00000000 t|
00001cf0 6f 20 26 30 30 30 30 46 46 46 46 2c 20 62 75 74 |o &0000FFFF, but|
00001d00 20 66 69 6c 65 73 0d 20 20 73 70 65 63 69 66 69 | files. specifi|
00001d10 63 61 6c 6c 79 20 66 6f 72 20 75 73 65 20 69 6e |cally for use in|
00001d20 20 74 68 65 20 69 2f 6f 20 70 72 6f 63 65 73 73 | the i/o process|
00001d30 6f 72 20 6f 66 20 61 20 74 77 6f 2d 70 72 6f 63 |or of a two-proc|
00001d40 65 73 73 6f 72 20 73 79 73 74 65 6d 20 61 72 65 |essor system are|
00001d50 0d 20 20 67 69 76 65 6e 20 61 64 64 72 65 73 73 |. given address|
00001d60 65 73 20 69 6e 20 74 68 65 20 72 61 6e 67 65 20 |es in the range |
00001d70 26 46 46 46 46 30 30 30 30 20 74 6f 20 26 46 46 |&FFFF0000 to &FF|
00001d80 46 46 46 46 46 46 2e 0d 0d 4d 61 67 61 7a 69 6e |FFFFFF...Magazin|
00001d90 65 20 61 6e 64 20 70 61 67 65 20 6e 75 6d 62 65 |e and page numbe|
00001da0 72 73 3a 20 28 41 54 53 36 61 20 76 61 72 69 61 |rs: (ATS6a varia|
00001db0 62 6c 65 73 20 6d 61 67 25 20 61 6e 64 20 70 61 |bles mag% and pa|
00001dc0 67 65 25 29 3a 0d 0d 20 20 54 68 65 20 6d 61 67 |ge%):.. The mag|
00001dd0 61 7a 69 6e 65 20 6e 75 6d 62 65 72 20 69 73 20 |azine number is |
00001de0 69 6e 20 74 68 65 20 72 61 6e 67 65 20 30 20 74 |in the range 0 t|
00001df0 6f 20 37 2e 20 54 68 65 20 70 61 67 65 20 6e 75 |o 7. The page nu|
00001e00 6d 62 65 72 20 69 73 20 61 0d 20 20 74 77 6f 2d |mber is a. two-|
00001e10 64 69 67 69 74 20 68 65 78 20 6e 75 6d 62 65 72 |digit hex number|
00001e20 20 69 6e 20 74 68 65 20 72 61 6e 67 65 20 26 30 | in the range &0|
00001e30 30 20 74 6f 20 26 46 46 2e 0d 0d 57 68 65 6e 20 |0 to &FF...When |
00001e40 77 72 69 74 69 6e 67 20 61 20 63 6f 6e 64 69 74 |writing a condit|
00001e50 69 6f 6e 2c 20 72 65 6d 65 6d 62 65 72 20 74 68 |ion, remember th|
00001e60 61 74 20 61 73 20 74 68 65 20 70 72 6f 67 72 61 |at as the progra|
00001e70 6d 20 73 74 61 6e 64 73 2c 20 74 68 65 20 63 61 |m stands, the ca|
00001e80 73 65 20 6f 66 0d 74 68 65 20 6c 65 74 74 65 72 |se of.the letter|
00001e90 69 6e 67 20 69 73 20 69 6d 70 6f 72 74 61 6e 74 |ing is important|
00001ea0 2e 20 4d 61 6b 69 6e 67 20 74 68 65 20 66 6f 6c |. Making the fol|
00001eb0 6c 6f 77 69 6e 67 20 61 64 6a 75 73 74 6d 65 6e |lowing adjustmen|
00001ec0 74 73 20 77 69 6c 6c 20 63 68 61 6e 67 65 0d 61 |ts will change.a|
00001ed0 6c 6c 20 72 65 63 65 69 76 65 64 20 74 65 78 74 |ll received text|
00001ee0 20 66 72 6f 6d 20 74 68 65 20 63 61 74 61 6c 6f | from the catalo|
00001ef0 67 75 65 20 69 6e 74 6f 20 75 70 70 65 72 2d 63 |gue into upper-c|
00001f00 61 73 65 2e 20 59 6f 75 20 74 68 65 6e 20 6f 6e |ase. You then on|
00001f10 6c 79 20 6e 65 65 64 0d 74 65 73 74 20 66 6f 72 |ly need.test for|
00001f20 20 74 68 65 20 75 70 70 65 72 2d 63 61 73 65 20 | the upper-case |
00001f30 76 65 72 73 69 6f 6e 20 6f 66 20 79 6f 75 72 20 |version of your |
00001f40 63 6f 6e 64 69 74 69 6f 6e 2c 20 69 6e 20 61 6e |condition, in an|
00001f50 79 20 66 69 65 6c 64 3a 0d 0d 4c 69 6e 65 20 31 |y field:..Line 1|
00001f60 31 32 30 20 2d 20 64 65 6c 65 74 65 20 74 68 65 |120 - delete the|
00001f70 20 66 69 6e 61 6c 20 22 4e 45 58 54 22 20 73 74 | final "NEXT" st|
00001f80 61 74 65 6d 65 6e 74 0d 41 64 64 20 6c 69 6e 65 |atement.Add line|
00001f90 20 31 31 32 35 20 49 46 28 3f 41 25 3e 26 36 30 | 1125 IF(?A%>&60|
00001fa0 29 20 41 4e 44 20 28 3f 41 25 3c 26 37 42 29 20 |) AND (?A%<&7B) |
00001fb0 54 48 45 4e 20 3f 41 25 3d 28 3f 41 25 29 41 4e |THEN ?A%=(?A%)AN|
00001fc0 44 26 44 46 0d 61 6e 64 20 6c 69 6e 65 20 31 31 |D&DF.and line 11|
00001fd0 32 37 20 4e 45 58 54 0d 4c 69 6e 65 20 31 31 37 |27 NEXT.Line 117|
00001fe0 30 20 2d 20 64 65 6c 65 74 65 20 74 68 65 20 66 |0 - delete the f|
00001ff0 69 6e 61 6c 20 22 4e 45 58 54 22 20 73 74 61 74 |inal "NEXT" stat|
00002000 65 6d 65 6e 74 0d 41 64 64 20 6c 69 6e 65 20 31 |ement.Add line 1|
00002010 31 37 35 20 49 46 28 3f 41 25 3e 26 36 30 29 20 |175 IF(?A%>&60) |
00002020 41 4e 44 20 28 3f 41 25 3c 26 37 42 29 20 54 48 |AND (?A%<&7B) TH|
00002030 45 4e 20 3f 41 25 3d 28 3f 41 25 29 41 4e 44 26 |EN ?A%=(?A%)AND&|
00002040 44 46 3a 4e 45 58 54 0d 61 6e 64 20 6c 69 6e 65 |DF:NEXT.and line|
00002050 20 31 31 37 37 20 4e 45 58 54 0d 0d 54 68 69 73 | 1177 NEXT..This|
00002060 20 68 61 73 20 74 68 65 20 64 69 73 61 64 76 61 | has the disadva|
00002070 6e 74 61 67 65 20 6f 66 20 6d 61 6b 69 6e 67 20 |ntage of making |
00002080 61 6e 79 20 64 69 73 70 6c 61 79 20 79 6f 75 20 |any display you |
00002090 63 72 65 61 74 65 20 75 73 69 6e 67 20 74 68 69 |create using thi|
000020a0 73 0d 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 6c 65 |s.information le|
000020b0 73 73 20 61 74 74 72 61 63 74 69 76 65 2e 0d 0d |ss attractive...|
000020c0 0d 0d 0d 0d 20 20 20 20 20 20 20 20 20 20 20 20 |.... |
000020d0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000020e0 20 20 20 20 20 20 50 61 67 65 20 34 0d 0d 0d 0d | Page 4....|
000020f0 0d 0d 0d 0d 0d 49 6e 74 65 72 61 63 74 69 76 65 |.....Interactive|
00002100 20 70 72 6f 67 72 61 6d 6d 69 6e 67 20 20 20 20 | programming |
00002110 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002120 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4a 2e | J.|
00002130 4a 2e 42 72 61 79 73 68 61 77 20 31 39 38 37 0d |J.Brayshaw 1987.|
00002140 0d 0d 0d 0d 57 68 65 6e 20 69 6d 70 6f 73 69 6e |....When imposin|
00002150 67 20 79 6f 75 72 20 63 6f 6e 64 69 74 69 6f 6e |g your condition|
00002160 73 20 79 6f 75 20 6d 61 79 20 75 73 65 20 61 6e |s you may use an|
00002170 79 20 6f 66 20 74 68 65 20 66 69 65 6c 64 73 20 |y of the fields |
00002180 6c 69 73 74 65 64 20 69 6e 20 74 68 65 0d 52 45 |listed in the.RE|
00002190 4d 20 73 74 61 74 65 6d 65 6e 74 73 2e 20 54 68 |M statements. Th|
000021a0 65 73 65 20 63 6f 6e 64 69 74 69 6f 6e 73 20 63 |ese conditions c|
000021b0 61 6e 20 62 65 20 61 73 20 63 6f 6d 70 6c 65 78 |an be as complex|
000021c0 20 61 73 20 6e 65 63 65 73 73 61 72 79 2c 20 61 | as necessary, a|
000021d0 6e 64 20 6d 61 79 0d 6f 63 63 75 70 79 20 61 73 |nd may.occupy as|
000021e0 20 6d 61 6e 79 20 70 72 6f 67 72 61 6d 20 6c 69 | many program li|
000021f0 6e 65 73 20 61 73 20 79 6f 75 20 63 61 6e 20 66 |nes as you can f|
00002200 69 74 20 69 6e 21 20 59 6f 75 20 63 61 6e 2c 20 |it in! You can, |
00002210 69 6e 73 74 65 61 64 2c 20 64 69 73 70 6c 61 79 |instead, display|
00002220 0d 61 6c 6c 20 74 68 65 20 66 69 6c 65 20 64 65 |.all the file de|
00002230 74 61 69 6c 73 20 6f 6e 20 73 63 72 65 65 6e 20 |tails on screen |
00002240 61 6e 64 20 70 72 6f 6d 70 74 20 66 6f 72 20 61 |and prompt for a|
00002250 20 63 68 6f 69 63 65 20 74 6f 20 62 65 20 6d 61 | choice to be ma|
00002260 64 65 20 62 79 20 74 68 65 0d 75 73 65 72 2c 20 |de by the.user, |
00002270 74 68 75 73 20 73 61 76 69 6e 67 20 6f 6e 6c 79 |thus saving only|
00002280 20 74 68 65 20 66 69 6c 65 73 20 63 68 6f 73 65 | the files chose|
00002290 6e 2e 20 54 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 |n. The following|
000022a0 20 70 72 6f 67 72 61 6d 20 6c 69 6e 65 73 20 63 | program lines c|
000022b0 61 6e 0d 62 65 20 61 64 64 65 64 20 74 6f 20 61 |an.be added to a|
000022c0 63 68 65 69 76 65 20 74 68 69 73 2e 20 59 6f 75 |cheive this. You|
000022d0 20 6d 61 79 20 70 72 65 66 65 72 20 74 6f 20 77 | may prefer to w|
000022e0 72 69 74 65 20 79 6f 75 72 20 6f 77 6e 20 72 6f |rite your own ro|
000022f0 75 74 69 6e 65 0d 69 6e 73 74 65 61 64 2c 20 74 |utine.instead, t|
00002300 6f 20 70 72 65 73 65 6e 74 20 74 68 65 20 69 6e |o present the in|
00002310 66 6f 72 6d 61 74 69 6f 6e 20 69 6e 20 61 20 64 |formation in a d|
00002320 69 66 66 65 72 65 6e 74 20 77 61 79 3a 0d 0d 31 |ifferent way:..1|
00002330 36 31 30 20 56 44 55 32 36 3a 43 4c 53 3a 50 52 |610 VDU26:CLS:PR|
00002340 4f 43 68 65 61 64 69 6e 67 28 22 22 29 0d 31 36 |OCheading("").16|
00002350 32 30 20 50 52 49 4e 54 20 63 6f 6c 24 3b 66 6e |20 PRINT col$;fn|
00002360 24 3b 54 41 42 28 31 32 29 3b 66 74 24 3b 54 41 |$;TAB(12);ft$;TA|
00002370 42 28 32 32 29 6c 65 6e 24 0d 31 36 33 30 20 74 |B(22)len$.1630 t|
00002380 25 3d 49 4e 54 28 28 28 56 41 4c 28 6c 65 6e 24 |%=INT(((VAL(len$|
00002390 29 2a 32 30 29 2f 36 30 29 2b 30 2e 35 29 3a 49 |)*20)/60)+0.5):I|
000023a0 46 74 25 3d 30 20 54 48 45 4e 20 74 25 3d 31 0d |Ft%=0 THEN t%=1.|
000023b0 31 36 34 30 20 50 52 49 4e 54 27 22 46 69 6c 65 |1640 PRINT'"File|
000023c0 20 77 69 6c 6c 20 74 61 6b 65 20 61 62 6f 75 74 | will take about|
000023d0 20 22 3b 74 25 3b 22 20 6d 69 6e 75 74 65 73 22 | ";t%;" minutes"|
000023e0 27 22 74 6f 20 64 6f 77 6e 6c 6f 61 64 2e 22 0d |'"to download.".|
000023f0 31 36 35 30 20 50 52 49 4e 54 27 22 44 6f 20 79 |1650 PRINT'"Do y|
00002400 6f 75 20 77 61 6e 74 20 74 68 69 73 20 66 69 6c |ou want this fil|
00002410 65 3f 20 28 59 2f 4e 29 20 22 3b 0d 31 36 36 30 |e? (Y/N) ";.1660|
00002420 20 52 45 50 45 41 54 20 3a 20 79 25 3d 47 45 54 | REPEAT : y%=GET|
00002430 20 41 4e 44 20 26 44 46 20 3a 20 55 4e 54 49 4c | AND &DF : UNTIL|
00002440 20 79 25 3d 41 53 43 22 4e 22 20 4f 52 20 79 25 | y%=ASC"N" OR y%|
00002450 3d 41 53 43 22 59 22 0d 31 36 37 30 20 49 46 20 |=ASC"Y".1670 IF |
00002460 79 25 3d 41 53 43 22 4e 22 20 54 48 45 4e 20 45 |y%=ASC"N" THEN E|
00002470 4e 44 50 52 4f 43 0d 31 36 38 30 20 74 6f 74 61 |NDPROC.1680 tota|
00002480 6c 5f 74 69 6d 65 25 3d 74 6f 74 61 6c 5f 74 69 |l_time%=total_ti|
00002490 6d 65 25 2b 74 25 0d 0d 54 68 69 73 20 61 6c 73 |me%+t%..This als|
000024a0 6f 20 69 6e 63 6c 75 64 65 73 20 61 20 72 6f 75 |o includes a rou|
000024b0 74 69 6e 65 20 74 6f 20 63 61 6c 63 75 6c 61 74 |tine to calculat|
000024c0 65 20 74 68 65 20 61 70 70 72 6f 78 69 6d 61 74 |e the approximat|
000024d0 65 20 64 6f 77 6e 6c 6f 61 64 69 6e 67 20 74 69 |e downloading ti|
000024e0 6d 65 0d 6f 66 20 65 61 63 68 20 66 69 6c 65 20 |me.of each file |
000024f0 72 65 71 75 65 73 74 65 64 2e 20 54 68 69 73 20 |requested. This |
00002500 69 73 20 72 61 74 68 65 72 20 75 6e 72 65 6c 69 |is rather unreli|
00002510 61 62 6c 65 2c 20 61 73 20 74 68 65 20 73 6f 75 |able, as the sou|
00002520 72 63 65 20 6f 66 20 74 68 69 73 0d 69 6e 66 6f |rce of this.info|
00002530 72 6d 61 74 69 6f 6e 20 69 73 20 6e 6f 74 20 69 |rmation is not i|
00002540 6e 20 61 20 66 69 78 65 64 20 66 6f 72 6d 61 74 |n a fixed format|
00002550 2c 20 74 68 65 72 65 66 6f 72 65 20 69 66 20 74 |, therefore if t|
00002560 68 65 20 73 74 79 6c 65 20 63 68 61 6e 67 65 73 |he style changes|
00002570 20 74 68 65 0d 63 61 6c 63 75 6c 61 74 69 6f 6e | the.calculation|
00002580 73 20 6d 61 64 65 20 77 69 6c 6c 20 62 65 20 77 |s made will be w|
00002590 72 6f 6e 67 2e 20 48 6f 77 65 76 65 72 2c 20 69 |rong. However, i|
000025a0 74 20 69 73 20 6c 69 6b 65 6c 79 20 74 6f 20 62 |t is likely to b|
000025b0 65 20 72 65 61 73 6f 6e 61 62 6c 79 0d 72 65 6c |e reasonably.rel|
000025c0 69 61 62 6c 65 20 66 6f 72 20 73 6f 6d 65 20 74 |iable for some t|
000025d0 69 6d 65 2c 20 61 73 20 77 65 20 68 61 76 65 20 |ime, as we have |
000025e0 6e 6f 20 69 6e 74 65 6e 74 69 6f 6e 20 6f 66 20 |no intention of |
000025f0 63 68 61 6e 67 69 6e 67 20 74 68 65 20 66 6f 72 |changing the for|
00002600 6d 61 74 20 6f 66 0d 74 68 69 73 20 66 69 65 6c |mat of.this fiel|
00002610 64 20 61 74 20 74 68 65 20 6d 6f 6d 65 6e 74 2e |d at the moment.|
00002620 20 49 74 20 61 6c 73 6f 20 61 73 73 75 6d 65 73 | It also assumes|
00002630 20 61 20 43 45 45 46 41 58 20 63 79 63 6c 65 20 | a CEEFAX cycle |
00002640 74 69 6d 65 20 6f 66 20 32 30 0d 73 65 63 6f 6e |time of 20.secon|
00002650 64 73 2c 20 61 6e 64 20 74 68 61 74 20 74 68 65 |ds, and that the|
00002660 72 65 20 69 73 20 6f 6e 6c 79 20 6f 6e 65 20 66 |re is only one f|
00002670 69 6c 65 20 70 65 72 20 43 45 45 46 41 58 20 70 |ile per CEEFAX p|
00002680 61 67 65 2e 20 54 68 65 20 72 6f 75 74 69 6e 65 |age. The routine|
00002690 0d 72 65 71 75 69 72 65 73 20 73 6f 6d 65 20 6f |.requires some o|
000026a0 74 68 65 72 20 6c 69 6e 65 73 20 74 6f 20 62 65 |ther lines to be|
000026b0 20 69 6e 63 6c 75 64 65 64 20 74 6f 20 73 65 74 | included to set|
000026c0 20 75 70 20 74 68 65 20 6e 65 63 65 73 73 61 72 | up the necessar|
000026d0 79 20 76 61 72 69 61 62 6c 65 73 0d 61 6e 64 20 |y variables.and |
000026e0 70 72 69 6e 74 20 6f 75 74 20 74 68 65 20 72 65 |print out the re|
000026f0 73 75 6c 74 3a 0d 0d 32 36 35 20 74 6f 74 61 6c |sult:..265 total|
00002700 5f 74 69 6d 65 25 3d 30 0d 0d 33 38 32 20 50 2e |_time%=0..382 P.|
00002710 54 41 42 28 31 2c 33 29 22 44 6f 77 6e 6c 6f 61 |TAB(1,3)"Downloa|
00002720 64 69 6e 67 20 74 69 6d 65 20 72 65 6d 61 69 6e |ding time remain|
00002730 69 6e 67 3a 20 22 3b 74 6f 74 61 6c 5f 74 69 6d |ing: ";total_tim|
00002740 65 25 3b 22 20 6d 69 6e 75 74 65 73 22 0d 33 38 |e%;" minutes".38|
00002750 34 20 74 25 3d 49 4e 54 28 28 28 56 41 4c 28 70 |4 t%=INT(((VAL(p|
00002760 61 67 65 73 24 28 57 25 29 29 2a 32 30 29 2f 36 |ages$(W%))*20)/6|
00002770 30 29 2b 30 2e 35 29 3a 49 46 74 25 3d 30 20 54 |0)+0.5):IFt%=0 T|
00002780 48 45 4e 20 74 25 3d 31 0d 33 38 36 20 74 6f 74 |HEN t%=1.386 tot|
00002790 61 6c 5f 74 69 6d 65 25 3d 74 6f 74 61 6c 5f 74 |al_time%=total_t|
000027a0 69 6d 65 25 2d 74 25 0d 0d 54 68 65 72 65 20 61 |ime%-t%..There a|
000027b0 72 65 20 65 6e 64 6c 65 73 73 20 76 61 72 69 61 |re endless varia|
000027c0 74 69 6f 6e 73 20 74 6f 20 74 68 65 20 61 75 74 |tions to the aut|
000027d0 6f 6d 61 74 69 63 20 64 6f 77 6e 6c 6f 61 64 69 |omatic downloadi|
000027e0 6e 67 20 63 6f 6e 63 65 70 74 2e 20 48 61 76 65 |ng concept. Have|
000027f0 0d 66 75 6e 20 65 78 70 65 72 69 6d 65 6e 74 69 |.fun experimenti|
00002800 6e 67 21 0d 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f |ng!.____________|
00002810 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f |________________|
*
00002840 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 0d 0d |______________..|
00002850 0d 0d 0d 0d 0d 0d 0d 0d 0d 0d 0d 0d 0d 0d 0d 20 |............... |
00002860 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
*
00002880 20 50 61 67 65 20 35 0d 0d 0d 0d 0d | Page 5.....|
0000288c 
ATS/T\ATS6A.m0
ATS/T\ATS6A.m1
ATS/T\ATS6A.m2
ATS/T\ATS6A.m4
ATS/T\ATS6A.m5
.