Home » CEEFAX disks » telesoftware1.adl » CeeFax/D\LOAD

CeeFax/D\LOAD

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 » telesoftware1.adl
Filename: CeeFax/D\LOAD
Read OK: ✔
File size: 05B3 bytes
Load address: FFFF0E00
Exec address: FFFF802B
Duplicates

There is 1 duplicate copy of this file in the archive:

File contents
   10DIM space 15, name 12, line 15
   20CLS
   30PROCget_info
   40PROCdownload(ch%,mag%,page%,fname$,load%,exec%,file%,reset%)
   50DEFPROCget_info
   60LOCAL P$,L$,E$,F$,R$
   70PRINT'"�Please enter:"
   80INPUTTAB(1,6)"�Channel:�"ch%:IFch%<1 ORch%>4 GOTO80
   90INPUTTAB(1,8)"�Page number:�"P$
  100mag%=VAL(LEFT$(P$,1))
  110page%=EVAL("&"+RIGHT$(P$,2))
  120INPUTTAB(1,10)"�Filename:�"fname$
  130INPUTTAB(1,12)"�Load address:�&"L$
  140load%=EVAL("&"+L$)
  150INPUTTAB(1,14)"�Exec address:�&"E$
  160exec%=EVAL("&"+E$)
  170INPUTTAB(1,16)"�Load to file or memory? (F/M):�"F$
  180IFF$="F" OR F$="f" file%=TRUE ELSE file%=FALSE
  190INPUTTAB(1,18)"�Reset default tables? (Y/N):�"R$
  200IFR$="N" OR R$="n" reset%=FALSE ELSE reset%=TRUE
  210ENDPROC
  220:
  230:
  240DEFPROCdownload(channel%,magazine%,page%,filename$,load%,exec%,save%,reset%)
  250*TTXON
  260REM"�needs DIM space 15
  270REM"�and DIM name 12
  280PROCoscli("CH"+STR$(channel%))
  290space?0=24
  300space?1=name MOD256:space?2=name DIV256
  310$name=filename$
  320space!3=load%
  330space!7=exec%
  340space?11=magazine%
  350space?12=page%
  360IFsave%=TRUE space?13=1 ELSE space?13=0
  370IFreset%=TRUE space?14=0 ELSE space?14=1
  380A%=&7A:X%=space MOD256:Y%=space DIV256
  390CALL&FFF1
  400ENDPROC
  410:
  420:
  430REM"�***�OSCLI SIMULATION�***
  440DEFPROCoscli(text$)
  450REM"�Needs DIM line 15
  460$line=text$:X%=line MOD256:Y%=line DIV256
  470CALL&FFF7
  480ENDPROC
  490:
  500:
  510REM"�***�HEADING�***
  520DEFPROCheading
  530CLS
  540PRINT'SPC2;CHR$141;CHR$132;CHR$157;CHR$131;"ATS Utilities: File downloader  ";CHR$156
  550PRINTSPC2;CHR$141;CHR$132;CHR$157;CHR$131;"ATS Utilities: File downloader  ";CHR$156
  560ENDPROC
  570:
  580:
  590:
  600DEFPROCreturn_oshwm
  610REM"�Move OSHWM back to PAGE
  620A%=&B4:X%=PAGE DIV256:Y%=0:CALL&FFF4
  630ENDPROC


 � space 15, name 12, line 15
�

�get_info
(=�download(ch%,mag%,page%,fname$,load%,exec%,file%,reset%)
2��get_info
<� P$,L$,E$,F$,R$
F�'"�Please enter:"
P-�1,6)"�Channel:�"ch%:�ch%<1 �ch%>4 �DP@
Z�1,8)"�Page number:�"P$
dmag%=�(�P$,1))
npage%=�("&"+�P$,2))
x�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%=�
��
�:
�:
�K��download(channel%,magazine%,page%,filename$,load%,exec%,save%,reset%)
�
*TTXON
�"�needs DIM space 15
�"�and DIM name 12
�oscli("CH"+�(channel%))
"space?0=24
,'space?1=name �256:space?2=name �256
6$name=filename$
@space!3=load%
Jspace!7=exec%
Tspace?11=magazine%
^space?12=page%
h$�save%=� space?13=1 � space?13=0
r%�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
�
�&FFF7
��
�:
�:
��"�***�HEADING�***

��heading
�
D�'�2;�141;�132;�157;�131;"ATS Utilities: File downloader  ";�156
&C�2;�141;�132;�157;�131;"ATS Utilities: File downloader  ";�156
0�
::
D:
N:
X��return_oshwm
b�"�Move OSHWM back to PAGE
l A%=&B4:X%=� �256:Y%=0:�&FFF4
v�
�
00000000  0d 00 0a 20 de 20 73 70  61 63 65 20 31 35 2c 20  |... . space 15, |
00000010  6e 61 6d 65 20 31 32 2c  20 6c 69 6e 65 20 31 35  |name 12, line 15|
00000020  0d 00 14 05 db 0d 00 1e  0d f2 67 65 74 5f 69 6e  |..........get_in|
00000030  66 6f 0d 00 28 3d f2 64  6f 77 6e 6c 6f 61 64 28  |fo..(=.download(|
00000040  63 68 25 2c 6d 61 67 25  2c 70 61 67 65 25 2c 66  |ch%,mag%,page%,f|
00000050  6e 61 6d 65 24 2c 6c 6f  61 64 25 2c 65 78 65 63  |name$,load%,exec|
00000060  25 2c 66 69 6c 65 25 2c  72 65 73 65 74 25 29 0d  |%,file%,reset%).|
00000070  00 32 0e dd f2 67 65 74  5f 69 6e 66 6f 0d 00 3c  |.2...get_info..<|
00000080  14 ea 20 50 24 2c 4c 24  2c 45 24 2c 46 24 2c 52  |.. P$,L$,E$,F$,R|
00000090  24 0d 00 46 16 f1 27 22  86 50 6c 65 61 73 65 20  |$..F..'".Please |
000000a0  65 6e 74 65 72 3a 22 0d  00 50 2d e8 8a 31 2c 36  |enter:"..P-..1,6|
000000b0  29 22 86 43 68 61 6e 6e  65 6c 3a 87 22 63 68 25  |)".Channel:."ch%|
000000c0  3a e7 63 68 25 3c 31 20  84 63 68 25 3e 34 20 e5  |:.ch%<1 .ch%>4 .|
000000d0  8d 44 50 40 0d 00 5a 1c  e8 8a 31 2c 38 29 22 86  |.DP@..Z...1,8)".|
000000e0  50 61 67 65 20 6e 75 6d  62 65 72 3a 87 22 50 24  |Page number:."P$|
000000f0  0d 00 64 12 6d 61 67 25  3d bb 28 c0 50 24 2c 31  |..d.mag%=.(.P$,1|
00000100  29 29 0d 00 6e 17 70 61  67 65 25 3d a0 28 22 26  |))..n.page%=.("&|
00000110  22 2b c2 50 24 2c 32 29  29 0d 00 78 1e e8 8a 31  |"+.P$,2))..x...1|
00000120  2c 31 30 29 22 86 46 69  6c 65 6e 61 6d 65 3a 87  |,10)".Filename:.|
00000130  22 66 6e 61 6d 65 24 0d  00 82 1f e8 8a 31 2c 31  |"fname$......1,1|
00000140  32 29 22 86 4c 6f 61 64  20 61 64 64 72 65 73 73  |2)".Load address|
00000150  3a 87 26 22 4c 24 0d 00  8c 13 6c 6f 61 64 25 3d  |:.&"L$....load%=|
00000160  a0 28 22 26 22 2b 4c 24  29 0d 00 96 1f e8 8a 31  |.("&"+L$)......1|
00000170  2c 31 34 29 22 86 45 78  65 63 20 61 64 64 72 65  |,14)".Exec addre|
00000180  73 73 3a 87 26 22 45 24  0d 00 a0 13 65 78 65 63  |ss:.&"E$....exec|
00000190  25 3d a0 28 22 26 22 2b  45 24 29 0d 00 aa 2f e8  |%=.("&"+E$).../.|
000001a0  8a 31 2c 31 36 29 22 86  4c 6f 61 64 20 74 6f 20  |.1,16)".Load to |
000001b0  66 69 6c 65 20 6f 72 20  6d 65 6d 6f 72 79 3f 20  |file or memory? |
000001c0  28 46 2f 4d 29 3a 87 22  46 24 0d 00 b4 26 e7 46  |(F/M):."F$...&.F|
000001d0  24 3d 22 46 22 20 84 20  46 24 3d 22 66 22 20 66  |$="F" . F$="f" f|
000001e0  69 6c 65 25 3d b9 20 8b  20 66 69 6c 65 25 3d a3  |ile%=. . file%=.|
000001f0  0d 00 be 2d e8 8a 31 2c  31 38 29 22 86 52 65 73  |...-..1,18)".Res|
00000200  65 74 20 64 65 66 61 75  6c 74 20 74 61 62 6c 65  |et default table|
00000210  73 3f 20 28 59 2f 4e 29  3a 87 22 52 24 0d 00 c8  |s? (Y/N):."R$...|
00000220  28 e7 52 24 3d 22 4e 22  20 84 20 52 24 3d 22 6e  |(.R$="N" . R$="n|
00000230  22 20 72 65 73 65 74 25  3d a3 20 8b 20 72 65 73  |" reset%=. . res|
00000240  65 74 25 3d b9 0d 00 d2  05 e1 0d 00 dc 05 3a 0d  |et%=..........:.|
00000250  00 e6 05 3a 0d 00 f0 4b  dd f2 64 6f 77 6e 6c 6f  |...:...K..downlo|
00000260  61 64 28 63 68 61 6e 6e  65 6c 25 2c 6d 61 67 61  |ad(channel%,maga|
00000270  7a 69 6e 65 25 2c 70 61  67 65 25 2c 66 69 6c 65  |zine%,page%,file|
00000280  6e 61 6d 65 24 2c 6c 6f  61 64 25 2c 65 78 65 63  |name$,load%,exec|
00000290  25 2c 73 61 76 65 25 2c  72 65 73 65 74 25 29 0d  |%,save%,reset%).|
000002a0  00 fa 0a 2a 54 54 58 4f  4e 0d 01 04 19 f4 22 82  |...*TTXON.....".|
000002b0  6e 65 65 64 73 20 44 49  4d 20 73 70 61 63 65 20  |needs DIM space |
000002c0  31 35 0d 01 0e 16 f4 22  82 61 6e 64 20 44 49 4d  |15.....".and DIM|
000002d0  20 6e 61 6d 65 20 31 32  0d 01 18 1c f2 6f 73 63  | name 12.....osc|
000002e0  6c 69 28 22 43 48 22 2b  c3 28 63 68 61 6e 6e 65  |li("CH"+.(channe|
000002f0  6c 25 29 29 0d 01 22 0e  73 70 61 63 65 3f 30 3d  |l%))..".space?0=|
00000300  32 34 0d 01 2c 27 73 70  61 63 65 3f 31 3d 6e 61  |24..,'space?1=na|
00000310  6d 65 20 83 32 35 36 3a  73 70 61 63 65 3f 32 3d  |me .256:space?2=|
00000320  6e 61 6d 65 20 81 32 35  36 0d 01 36 13 24 6e 61  |name .256..6.$na|
00000330  6d 65 3d 66 69 6c 65 6e  61 6d 65 24 0d 01 40 11  |me=filename$..@.|
00000340  73 70 61 63 65 21 33 3d  6c 6f 61 64 25 0d 01 4a  |space!3=load%..J|
00000350  11 73 70 61 63 65 21 37  3d 65 78 65 63 25 0d 01  |.space!7=exec%..|
00000360  54 16 73 70 61 63 65 3f  31 31 3d 6d 61 67 61 7a  |T.space?11=magaz|
00000370  69 6e 65 25 0d 01 5e 12  73 70 61 63 65 3f 31 32  |ine%..^.space?12|
00000380  3d 70 61 67 65 25 0d 01  68 24 e7 73 61 76 65 25  |=page%..h$.save%|
00000390  3d b9 20 73 70 61 63 65  3f 31 33 3d 31 20 8b 20  |=. space?13=1 . |
000003a0  73 70 61 63 65 3f 31 33  3d 30 0d 01 72 25 e7 72  |space?13=0..r%.r|
000003b0  65 73 65 74 25 3d b9 20  73 70 61 63 65 3f 31 34  |eset%=. space?14|
000003c0  3d 30 20 8b 20 73 70 61  63 65 3f 31 34 3d 31 0d  |=0 . space?14=1.|
000003d0  01 7c 26 41 25 3d 26 37  41 3a 58 25 3d 73 70 61  |.|&A%=&7A:X%=spa|
000003e0  63 65 20 83 32 35 36 3a  59 25 3d 73 70 61 63 65  |ce .256:Y%=space|
000003f0  20 81 32 35 36 0d 01 86  0a d6 26 46 46 46 31 0d  | .256.....&FFF1.|
00000400  01 90 05 e1 0d 01 9a 05  3a 0d 01 a4 05 3a 0d 01  |........:....:..|
00000410  ae 1f f4 22 81 2a 2a 2a  86 4f 53 43 4c 49 20 53  |...".***.OSCLI S|
00000420  49 4d 55 4c 41 54 49 4f  4e 81 2a 2a 2a 0d 01 b8  |IMULATION.***...|
00000430  12 dd f2 6f 73 63 6c 69  28 74 65 78 74 24 29 0d  |...oscli(text$).|
00000440  01 c2 18 f4 22 82 4e 65  65 64 73 20 44 49 4d 20  |....".Needs DIM |
00000450  6c 69 6e 65 20 31 35 0d  01 cc 29 24 6c 69 6e 65  |line 15...)$line|
00000460  3d 74 65 78 74 24 3a 58  25 3d 6c 69 6e 65 20 83  |=text$:X%=line .|
00000470  32 35 36 3a 59 25 3d 6c  69 6e 65 20 81 32 35 36  |256:Y%=line .256|
00000480  0d 01 d6 0a d6 26 46 46  46 37 0d 01 e0 05 e1 0d  |.....&FFF7......|
00000490  01 ea 05 3a 0d 01 f4 05  3a 0d 01 fe 16 f4 22 81  |...:....:.....".|
000004a0  2a 2a 2a 82 48 45 41 44  49 4e 47 81 2a 2a 2a 0d  |***.HEADING.***.|
000004b0  02 08 0d dd f2 68 65 61  64 69 6e 67 0d 02 12 05  |.....heading....|
000004c0  db 0d 02 1c 44 f1 27 89  32 3b bd 31 34 31 3b bd  |....D.'.2;.141;.|
000004d0  31 33 32 3b bd 31 35 37  3b bd 31 33 31 3b 22 41  |132;.157;.131;"A|
000004e0  54 53 20 55 74 69 6c 69  74 69 65 73 3a 20 46 69  |TS Utilities: Fi|
000004f0  6c 65 20 64 6f 77 6e 6c  6f 61 64 65 72 20 20 22  |le downloader  "|
00000500  3b bd 31 35 36 0d 02 26  43 f1 89 32 3b bd 31 34  |;.156..&C..2;.14|
00000510  31 3b bd 31 33 32 3b bd  31 35 37 3b bd 31 33 31  |1;.132;.157;.131|
00000520  3b 22 41 54 53 20 55 74  69 6c 69 74 69 65 73 3a  |;"ATS Utilities:|
00000530  20 46 69 6c 65 20 64 6f  77 6e 6c 6f 61 64 65 72  | File downloader|
00000540  20 20 22 3b bd 31 35 36  0d 02 30 05 e1 0d 02 3a  |  ";.156..0....:|
00000550  05 3a 0d 02 44 05 3a 0d  02 4e 05 3a 0d 02 58 12  |.:..D.:..N.:..X.|
00000560  dd f2 72 65 74 75 72 6e  5f 6f 73 68 77 6d 0d 02  |..return_oshwm..|
00000570  62 1e f4 22 83 4d 6f 76  65 20 4f 53 48 57 4d 20  |b..".Move OSHWM |
00000580  62 61 63 6b 20 74 6f 20  50 41 47 45 0d 02 6c 20  |back to PAGE..l |
00000590  41 25 3d 26 42 34 3a 58  25 3d 90 20 81 32 35 36  |A%=&B4:X%=. .256|
000005a0  3a 59 25 3d 30 3a d6 26  46 46 46 34 0d 02 76 05  |:Y%=0:.&FFF4..v.|
000005b0  e1 0d ff                                          |...|
000005b3
CeeFax/D\LOAD.m0
CeeFax/D\LOAD.m1
CeeFax/D\LOAD.m2
CeeFax/D\LOAD.m4
CeeFax/D\LOAD.m5

© Dominic Ford 2021–2024.

Our privacy policy is here.
Last updated: 28 Jul 2024, 23:31 UTC
Website designed by .