Home » Personal collection » Acorn ADFS disks » Electron » Programs.ADF » TAPE-DISC

TAPE-DISC

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 » Electron » Programs.ADF
Filename: TAPE-DISC
Read OK: ✔
File size: 0193 bytes
Load address: FFFF1D00
Exec address: FFFF8023
Duplicates

There are 5 duplicate copies of this file in the archive:

File contents
   10 REM PROGRAM I
   20 REM TAPE -> DISC
   30 MODE 6
   40 VDU 28,0,24,39,15
   50 HIMEM=&72BB
   60 *FX 16
   70 *TAPE
   80 P%=&AF0:[OPT0:LDA&3CA:AND#254:STA&3CA:RTS:]:?&220=&F0:?&221=&0A
   90 *FX 14,4
  100 *LOAD "" 2000
  110 A%=0
  120 REPEAT
  130 N$=N$+CHR$(A%?&3B2)
  140 A%=A%+1
  150 UNTIL A%=11 OR A%?&3B2=0
  160 *ADFS
  170 N$="SAVE "+N$+" 2000 +"+STR$~(?&3C6*256+(!&3C8 AND &FFFF))+" "+STR$~(!&3C2)+" "+STR$~(!&3BE)
  180 PRINT'"*";N$'
  190 OSCLI N$
  200 CLEAR
  210 GOTO 70


 � PROGRAM I
 � TAPE -> DISC
 � 6
( � 28,0,24,39,15
2 �=&72BB
< *FX 16
F
 *TAPE
PB P%=&AF0:[OPT0:LDA&3CA:�#254:STA&3CA:RTS:]:?&220=&F0:?&221=&0A
Z
 *FX 14,4
d *LOAD "" 2000
n	 A%=0
x �
� N$=N$+�(A%?&3B2)
� A%=A%+1
� � A%=11 � A%?&3B2=0
�
 *ADFS
�V N$="SAVE "+N$+" 2000 +"+�~(?&3C6*256+(!&3C8 � &FFFF))+" "+�~(!&3C2)+" "+�~(!&3BE)
� �'"*";N$'
�	 � N$
� �
� � �DF@
�
00000000  0d 00 0a 10 20 f4 20 50  52 4f 47 52 41 4d 20 49  |.... . PROGRAM I|
00000010  0d 00 14 13 20 f4 20 54  41 50 45 20 2d 3e 20 44  |.... . TAPE -> D|
00000020  49 53 43 0d 00 1e 08 20  eb 20 36 0d 00 28 14 20  |ISC.... . 6..(. |
00000030  ef 20 32 38 2c 30 2c 32  34 2c 33 39 2c 31 35 0d  |. 28,0,24,39,15.|
00000040  00 32 0c 20 d3 3d 26 37  32 42 42 0d 00 3c 0b 20  |.2. .=&72BB..<. |
00000050  2a 46 58 20 31 36 0d 00  46 0a 20 2a 54 41 50 45  |*FX 16..F. *TAPE|
00000060  0d 00 50 42 20 50 25 3d  26 41 46 30 3a 5b 4f 50  |..PB P%=&AF0:[OP|
00000070  54 30 3a 4c 44 41 26 33  43 41 3a 80 23 32 35 34  |T0:LDA&3CA:.#254|
00000080  3a 53 54 41 26 33 43 41  3a 52 54 53 3a 5d 3a 3f  |:STA&3CA:RTS:]:?|
00000090  26 32 32 30 3d 26 46 30  3a 3f 26 32 32 31 3d 26  |&220=&F0:?&221=&|
000000a0  30 41 0d 00 5a 0d 20 2a  46 58 20 31 34 2c 34 0d  |0A..Z. *FX 14,4.|
000000b0  00 64 12 20 2a 4c 4f 41  44 20 22 22 20 32 30 30  |.d. *LOAD "" 200|
000000c0  30 0d 00 6e 09 20 41 25  3d 30 0d 00 78 06 20 f5  |0..n. A%=0..x. .|
000000d0  0d 00 82 15 20 4e 24 3d  4e 24 2b bd 28 41 25 3f  |.... N$=N$+.(A%?|
000000e0  26 33 42 32 29 0d 00 8c  0c 20 41 25 3d 41 25 2b  |&3B2).... A%=A%+|
000000f0  31 0d 00 96 18 20 fd 20  41 25 3d 31 31 20 84 20  |1.... . A%=11 . |
00000100  41 25 3f 26 33 42 32 3d  30 0d 00 a0 0a 20 2a 41  |A%?&3B2=0.... *A|
00000110  44 46 53 0d 00 aa 56 20  4e 24 3d 22 53 41 56 45  |DFS...V N$="SAVE|
00000120  20 22 2b 4e 24 2b 22 20  32 30 30 30 20 2b 22 2b  | "+N$+" 2000 +"+|
00000130  c3 7e 28 3f 26 33 43 36  2a 32 35 36 2b 28 21 26  |.~(?&3C6*256+(!&|
00000140  33 43 38 20 80 20 26 46  46 46 46 29 29 2b 22 20  |3C8 . &FFFF))+" |
00000150  22 2b c3 7e 28 21 26 33  43 32 29 2b 22 20 22 2b  |"+.~(!&3C2)+" "+|
00000160  c3 7e 28 21 26 33 42 45  29 0d 00 b4 0e 20 f1 27  |.~(!&3BE).... .'|
00000170  22 2a 22 3b 4e 24 27 0d  00 be 09 20 ff 20 4e 24  |"*";N$'.... . N$|
00000180  0d 00 c8 06 20 d8 0d 00  d2 0b 20 e5 20 8d 44 46  |.... ..... . .DF|
00000190  40 0d ff                                          |@..|
00000193
TAPE-DISC.m0
TAPE-DISC.m1
TAPE-DISC.m2
TAPE-DISC.m4
TAPE-DISC.m5

© Dominic Ford 2021–2024.

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