Home » Personal collection » Acorn ADFS disks » Greaseweazled » dfs_box04_disk01b_adfs_welcome_disk_interleaved.adf » Library/BASIC/DownLoad

Library/BASIC/DownLoad

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 » Personal collection » Acorn ADFS disks » Greaseweazled » dfs_box04_disk01b_adfs_welcome_disk_interleaved.adf
Filename: Library/BASIC/DownLoad
Read OK:
File size: 016A bytes
Load address: 0800
Exec address: 8023
File contents
10000REM Download program - see User Guide & HELP utility (Utils) for details
10010IF PAGE <= &E00 THEN 10060
10020VDU 21
10030*KEY 0  *TAPE|M   FOR I% = 0 TO TOP-PAGE STEP 4: I%!&E00 = I%!PAGE: NEXT:|M  PAGE = &E00|M OLD|M RUN|F|M
10040*FX 138, 0, 128
10050END
10060REM  The rest of the program
10070 
10080REM  ADFS recovery
10090*KEY 1 *ADFS|M PAGE=&1F00|M CHAIN "NextProg"|M
10100*FX 138, 0, 129
'J� Download program - see User Guide & HELP utility (Utils) for details
'� � <= &E00 � �DLg
'$� 21
'.l*KEY 0  *TAPE|M   FOR I% = 0 TO TOP-PAGE STEP 4: I%!&E00 = I%!PAGE: NEXT:|M  PAGE = &E00|M OLD|M RUN|F|M
'8*FX 138, 0, 128
'B�
'L�  The rest of the program
'V 
'`�  ADFS recovery
'j2*KEY 1 *ADFS|M PAGE=&1F00|M CHAIN "NextProg"|M
't*FX 138, 0, 129
�
00000000  0d 27 10 4a f4 20 44 6f  77 6e 6c 6f 61 64 20 70  |.'.J. Download p|
00000010  72 6f 67 72 61 6d 20 2d  20 73 65 65 20 55 73 65  |rogram - see Use|
00000020  72 20 47 75 69 64 65 20  26 20 48 45 4c 50 20 75  |r Guide & HELP u|
00000030  74 69 6c 69 74 79 20 28  55 74 69 6c 73 29 20 66  |tility (Utils) f|
00000040  6f 72 20 64 65 74 61 69  6c 73 0d 27 1a 16 e7 20  |or details.'... |
00000050  90 20 3c 3d 20 26 45 30  30 20 8c 20 8d 44 4c 67  |. <= &E00 . .DLg|
00000060  0d 27 24 08 ef 20 32 31  0d 27 2e 6c 2a 4b 45 59  |.'$.. 21.'.l*KEY|
00000070  20 30 20 20 2a 54 41 50  45 7c 4d 20 20 20 46 4f  | 0  *TAPE|M   FO|
00000080  52 20 49 25 20 3d 20 30  20 54 4f 20 54 4f 50 2d  |R I% = 0 TO TOP-|
00000090  50 41 47 45 20 53 54 45  50 20 34 3a 20 49 25 21  |PAGE STEP 4: I%!|
000000a0  26 45 30 30 20 3d 20 49  25 21 50 41 47 45 3a 20  |&E00 = I%!PAGE: |
000000b0  4e 45 58 54 3a 7c 4d 20  20 50 41 47 45 20 3d 20  |NEXT:|M  PAGE = |
000000c0  26 45 30 30 7c 4d 20 4f  4c 44 7c 4d 20 52 55 4e  |&E00|M OLD|M RUN|
000000d0  7c 46 7c 4d 0d 27 38 13  2a 46 58 20 31 33 38 2c  ||F|M.'8.*FX 138,|
000000e0  20 30 2c 20 31 32 38 0d  27 42 05 e0 0d 27 4c 1e  | 0, 128.'B...'L.|
000000f0  f4 20 20 54 68 65 20 72  65 73 74 20 6f 66 20 74  |.  The rest of t|
00000100  68 65 20 70 72 6f 67 72  61 6d 0d 27 56 05 20 0d  |he program.'V. .|
00000110  27 60 14 f4 20 20 41 44  46 53 20 72 65 63 6f 76  |'`..  ADFS recov|
00000120  65 72 79 0d 27 6a 32 2a  4b 45 59 20 31 20 2a 41  |ery.'j2*KEY 1 *A|
00000130  44 46 53 7c 4d 20 50 41  47 45 3d 26 31 46 30 30  |DFS|M PAGE=&1F00|
00000140  7c 4d 20 43 48 41 49 4e  20 22 4e 65 78 74 50 72  ||M CHAIN "NextPr|
00000150  6f 67 22 7c 4d 0d 27 74  13 2a 46 58 20 31 33 38  |og"|M.'t.*FX 138|
00000160  2c 20 30 2c 20 31 32 39  0d ff                    |, 0, 129..|
0000016a
Library/BASIC/DownLoad.m0
Library/BASIC/DownLoad.m1
Library/BASIC/DownLoad.m2
Library/BASIC/DownLoad.m4
Library/BASIC/DownLoad.m5