Home » CEEFAX disks » telesoftware2.adl » ATS/B\ATS06
ATS/B\ATS06
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/B\ATS06 |
| Read OK: | ✔ |
| File size: | 0B82 bytes |
| Load address: | 0000 |
| Exec address: | FFFFFFFF |
File contents
bove the program
D
S%=�+&C00
N!�"�&C00 is the length of this
X$�"�program rounded up to nearest
b�"�&100 or more !!
l A%=&B4:X%=S%�256:Y%=0:�&FFF4
v�
�:
�:
���get_info
�� P$,L$,E$,F$,R$
��'"�Please enter:"
�-�1,6)"�Channel:�"ch%:�ch%<1 �ch%>4 �trB
� �1,8)"�Page number:�"P$
�mag%=�(�P$,1))
�page%=�("&"+�P$,2))
� �1,10)"�Filename:�"fname$
� �1,12)"�Load address:�&"L$
�load%=�("&"+L$)
� �1,14)"�Exec address:�&"E$
exec%=�("&"+E$)
/�1,16)"�Load to file or memory? (F/M):�"F$
&�F$="F" � F$="f" file%=� � file%=�
-�1,18)"�Reset default tables? (Y/N):�"R$
*(�R$="N" � R$="n" reset%=� � reset%=�
4�
>:
H:
RK��download(channel%,magazine%,page%,filename$,load%,exec%,save%,reset%)
\
*TTXON
f�"�needs DIM space 15
p�"�and DIM name 12
z �oscli("CH"+�(channel%))
�space?0=24
�'space?1=name �256:space?2=name �256
�$name=filename$
�space!3=load%
�space!7=exec%
�space?11=magazine%
�space?12=page%
�$�save%=� space?13=1 � space?13=0
�%�reset%=� space?14=0 � space?14=1
�&A%=&7A:X%=space �256:Y%=space �256
�
�&FFF1
��
�:
:
�"�***�OSCLI SIMULATION�***
��oscli(text$)
$�"�Needs DIM line 15
.)$line=text$:X%=line �256:Y%=line �256
8
�&FFF7
B�
L:
V:
`�"�***�HEADING�***
j
��heading
t�
~D�'�2;�141;�132;�157;�131;"ATS Utilities: File downloader ";�156
�C�2;�141;�132;�157;�131;"ATS Utilities: File downloader ";�156
��
�:
�:
�:
���return_oshwm
� �"�Move OSHWM back to PAGE
� A%=&B4:X%=� �256:Y%=0:�&FFF4
��
� 00000000 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
*
00000590 00 00 00 00 00 00 00 62 6f 76 65 20 74 68 65 20 |.......bove the |
000005a0 70 72 6f 67 72 61 6d 0d 02 44 0d 53 25 3d 90 2b |program..D.S%=.+|
000005b0 26 43 30 30 0d 02 4e 21 f4 22 83 26 43 30 30 20 |&C00..N!.".&C00 |
000005c0 69 73 20 74 68 65 20 6c 65 6e 67 74 68 20 6f 66 |is the length of|
000005d0 20 74 68 69 73 0d 02 58 24 f4 22 83 70 72 6f 67 | this..X$.".prog|
000005e0 72 61 6d 20 72 6f 75 6e 64 65 64 20 75 70 20 74 |ram rounded up t|
000005f0 6f 20 6e 65 61 72 65 73 74 0d 02 62 16 f4 22 83 |o nearest..b..".|
00000600 26 31 30 30 20 6f 72 20 6d 6f 72 65 20 21 21 0d |&100 or more !!.|
00000610 02 6c 20 41 25 3d 26 42 34 3a 58 25 3d 53 25 81 |.l A%=&B4:X%=S%.|
00000620 32 35 36 3a 59 25 3d 30 3a d6 26 46 46 46 34 0d |256:Y%=0:.&FFF4.|
00000630 02 76 05 e1 0d 02 80 05 3a 0d 02 8a 05 3a 0d 02 |.v......:....:..|
00000640 94 0e dd f2 67 65 74 5f 69 6e 66 6f 0d 02 9e 14 |....get_info....|
00000650 ea 20 50 24 2c 4c 24 2c 45 24 2c 46 24 2c 52 24 |. P$,L$,E$,F$,R$|
00000660 0d 02 a8 16 f1 27 22 86 50 6c 65 61 73 65 20 65 |.....'".Please e|
00000670 6e 74 65 72 3a 22 0d 02 b2 2d e8 8a 31 2c 36 29 |nter:"...-..1,6)|
00000680 22 86 43 68 61 6e 6e 65 6c 3a 87 22 63 68 25 3a |".Channel:."ch%:|
00000690 e7 63 68 25 3c 31 20 84 63 68 25 3e 34 20 e5 8d |.ch%<1 .ch%>4 ..|
000006a0 74 72 42 0d 02 bc 1c e8 8a 31 2c 38 29 22 86 50 |trB......1,8)".P|
000006b0 61 67 65 20 6e 75 6d 62 65 72 3a 87 22 50 24 0d |age number:."P$.|
000006c0 02 c6 12 6d 61 67 25 3d bb 28 c0 50 24 2c 31 29 |...mag%=.(.P$,1)|
000006d0 29 0d 02 d0 17 70 61 67 65 25 3d a0 28 22 26 22 |)....page%=.("&"|
000006e0 2b c2 50 24 2c 32 29 29 0d 02 da 1e e8 8a 31 2c |+.P$,2))......1,|
000006f0 31 30 29 22 86 46 69 6c 65 6e 61 6d 65 3a 87 22 |10)".Filename:."|
00000700 66 6e 61 6d 65 24 0d 02 e4 1f e8 8a 31 2c 31 32 |fname$......1,12|
00000710 29 22 86 4c 6f 61 64 20 61 64 64 72 65 73 73 3a |)".Load address:|
00000720 87 26 22 4c 24 0d 02 ee 13 6c 6f 61 64 25 3d a0 |.&"L$....load%=.|
00000730 28 22 26 22 2b 4c 24 29 0d 02 f8 1f e8 8a 31 2c |("&"+L$)......1,|
00000740 31 34 29 22 86 45 78 65 63 20 61 64 64 72 65 73 |14)".Exec addres|
00000750 73 3a 87 26 22 45 24 0d 03 02 13 65 78 65 63 25 |s:.&"E$....exec%|
00000760 3d a0 28 22 26 22 2b 45 24 29 0d 03 0c 2f e8 8a |=.("&"+E$).../..|
00000770 31 2c 31 36 29 22 86 4c 6f 61 64 20 74 6f 20 66 |1,16)".Load to f|
00000780 69 6c 65 20 6f 72 20 6d 65 6d 6f 72 79 3f 20 28 |ile or memory? (|
00000790 46 2f 4d 29 3a 87 22 46 24 0d 03 16 26 e7 46 24 |F/M):."F$...&.F$|
000007a0 3d 22 46 22 20 84 20 46 24 3d 22 66 22 20 66 69 |="F" . F$="f" fi|
000007b0 6c 65 25 3d b9 20 8b 20 66 69 6c 65 25 3d a3 0d |le%=. . file%=..|
000007c0 03 20 2d e8 8a 31 2c 31 38 29 22 86 52 65 73 65 |. -..1,18)".Rese|
000007d0 74 20 64 65 66 61 75 6c 74 20 74 61 62 6c 65 73 |t default tables|
000007e0 3f 20 28 59 2f 4e 29 3a 87 22 52 24 0d 03 2a 28 |? (Y/N):."R$..*(|
000007f0 e7 52 24 3d 22 4e 22 20 84 20 52 24 3d 22 6e 22 |.R$="N" . R$="n"|
00000800 20 72 65 73 65 74 25 3d a3 20 8b 20 72 65 73 65 | reset%=. . rese|
00000810 74 25 3d b9 0d 03 34 05 e1 0d 03 3e 05 3a 0d 03 |t%=...4....>.:..|
00000820 48 05 3a 0d 03 52 4b dd f2 64 6f 77 6e 6c 6f 61 |H.:..RK..downloa|
00000830 64 28 63 68 61 6e 6e 65 6c 25 2c 6d 61 67 61 7a |d(channel%,magaz|
00000840 69 6e 65 25 2c 70 61 67 65 25 2c 66 69 6c 65 6e |ine%,page%,filen|
00000850 61 6d 65 24 2c 6c 6f 61 64 25 2c 65 78 65 63 25 |ame$,load%,exec%|
00000860 2c 73 61 76 65 25 2c 72 65 73 65 74 25 29 0d 03 |,save%,reset%)..|
00000870 5c 0a 2a 54 54 58 4f 4e 0d 03 66 19 f4 22 82 6e |\.*TTXON..f..".n|
00000880 65 65 64 73 20 44 49 4d 20 73 70 61 63 65 20 31 |eeds DIM space 1|
00000890 35 0d 03 70 16 f4 22 82 61 6e 64 20 44 49 4d 20 |5..p..".and DIM |
000008a0 6e 61 6d 65 20 31 32 0d 03 7a 1c f2 6f 73 63 6c |name 12..z..oscl|
000008b0 69 28 22 43 48 22 2b c3 28 63 68 61 6e 6e 65 6c |i("CH"+.(channel|
000008c0 25 29 29 0d 03 84 0e 73 70 61 63 65 3f 30 3d 32 |%))....space?0=2|
000008d0 34 0d 03 8e 27 73 70 61 63 65 3f 31 3d 6e 61 6d |4...'space?1=nam|
000008e0 65 20 83 32 35 36 3a 73 70 61 63 65 3f 32 3d 6e |e .256:space?2=n|
000008f0 61 6d 65 20 81 32 35 36 0d 03 98 13 24 6e 61 6d |ame .256....$nam|
00000900 65 3d 66 69 6c 65 6e 61 6d 65 24 0d 03 a2 11 73 |e=filename$....s|
00000910 70 61 63 65 21 33 3d 6c 6f 61 64 25 0d 03 ac 11 |pace!3=load%....|
00000920 73 70 61 63 65 21 37 3d 65 78 65 63 25 0d 03 b6 |space!7=exec%...|
00000930 16 73 70 61 63 65 3f 31 31 3d 6d 61 67 61 7a 69 |.space?11=magazi|
00000940 6e 65 25 0d 03 c0 12 73 70 61 63 65 3f 31 32 3d |ne%....space?12=|
00000950 70 61 67 65 25 0d 03 ca 24 e7 73 61 76 65 25 3d |page%...$.save%=|
00000960 b9 20 73 70 61 63 65 3f 31 33 3d 31 20 8b 20 73 |. space?13=1 . s|
00000970 70 61 63 65 3f 31 33 3d 30 0d 03 d4 25 e7 72 65 |pace?13=0...%.re|
00000980 73 65 74 25 3d b9 20 73 70 61 63 65 3f 31 34 3d |set%=. space?14=|
00000990 30 20 8b 20 73 70 61 63 65 3f 31 34 3d 31 0d 03 |0 . space?14=1..|
000009a0 de 26 41 25 3d 26 37 41 3a 58 25 3d 73 70 61 63 |.&A%=&7A:X%=spac|
000009b0 65 20 83 32 35 36 3a 59 25 3d 73 70 61 63 65 20 |e .256:Y%=space |
000009c0 81 32 35 36 0d 03 e8 0a d6 26 46 46 46 31 0d 03 |.256.....&FFF1..|
000009d0 f2 05 e1 0d 03 fc 05 3a 0d 04 06 05 3a 0d 04 10 |.......:....:...|
000009e0 1f f4 22 81 2a 2a 2a 86 4f 53 43 4c 49 20 53 49 |..".***.OSCLI SI|
000009f0 4d 55 4c 41 54 49 4f 4e 81 2a 2a 2a 0d 04 1a 12 |MULATION.***....|
00000a00 dd f2 6f 73 63 6c 69 28 74 65 78 74 24 29 0d 04 |..oscli(text$)..|
00000a10 24 18 f4 22 82 4e 65 65 64 73 20 44 49 4d 20 6c |$..".Needs DIM l|
00000a20 69 6e 65 20 31 35 0d 04 2e 29 24 6c 69 6e 65 3d |ine 15...)$line=|
00000a30 74 65 78 74 24 3a 58 25 3d 6c 69 6e 65 20 83 32 |text$:X%=line .2|
00000a40 35 36 3a 59 25 3d 6c 69 6e 65 20 81 32 35 36 0d |56:Y%=line .256.|
00000a50 04 38 0a d6 26 46 46 46 37 0d 04 42 05 e1 0d 04 |.8..&FFF7..B....|
00000a60 4c 05 3a 0d 04 56 05 3a 0d 04 60 16 f4 22 81 2a |L.:..V.:..`..".*|
00000a70 2a 2a 82 48 45 41 44 49 4e 47 81 2a 2a 2a 0d 04 |**.HEADING.***..|
00000a80 6a 0d dd f2 68 65 61 64 69 6e 67 0d 04 74 05 db |j...heading..t..|
00000a90 0d 04 7e 44 f1 27 89 32 3b bd 31 34 31 3b bd 31 |..~D.'.2;.141;.1|
00000aa0 33 32 3b bd 31 35 37 3b bd 31 33 31 3b 22 41 54 |32;.157;.131;"AT|
00000ab0 53 20 55 74 69 6c 69 74 69 65 73 3a 20 46 69 6c |S Utilities: Fil|
00000ac0 65 20 64 6f 77 6e 6c 6f 61 64 65 72 20 20 22 3b |e downloader ";|
00000ad0 bd 31 35 36 0d 04 88 43 f1 89 32 3b bd 31 34 31 |.156...C..2;.141|
00000ae0 3b bd 31 33 32 3b bd 31 35 37 3b bd 31 33 31 3b |;.132;.157;.131;|
00000af0 22 41 54 53 20 55 74 69 6c 69 74 69 65 73 3a 20 |"ATS Utilities: |
00000b00 46 69 6c 65 20 64 6f 77 6e 6c 6f 61 64 65 72 20 |File downloader |
00000b10 20 22 3b bd 31 35 36 0d 04 92 05 e1 0d 04 9c 05 | ";.156.........|
00000b20 3a 0d 04 a6 05 3a 0d 04 b0 05 3a 0d 04 ba 12 dd |:....:....:.....|
00000b30 f2 72 65 74 75 72 6e 5f 6f 73 68 77 6d 0d 04 c4 |.return_oshwm...|
00000b40 1e f4 22 83 4d 6f 76 65 20 4f 53 48 57 4d 20 62 |..".Move OSHWM b|
00000b50 61 63 6b 20 74 6f 20 50 41 47 45 0d 04 ce 20 41 |ack to PAGE... A|
00000b60 25 3d 26 42 34 3a 58 25 3d 90 20 81 32 35 36 3a |%=&B4:X%=. .256:|
00000b70 59 25 3d 30 3a d6 26 46 46 46 34 0d 04 d8 05 e1 |Y%=0:.&FFF4.....|
00000b80 0d ff |..|
00000b82 
ATS/B\ATS06.m0
ATS/B\ATS06.m1
ATS/B\ATS06.m2
ATS/B\ATS06.m4
ATS/B\ATS06.m5
.