Home » Personal collection » Acorn hard disk » files » music » Notate/ReBuild

Notate/ReBuild

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 hard disk » files » music
Filename: Notate/ReBuild
Read OK:
File size: 00CE bytes
Load address: 0000
Exec address: 0000
File contents
   10REPEAT
   20INPUT"Name";n$
   30OSCLI "DIR $.ToDo."+n$
   40INPUT"Files";f
   50DIM SPACE &2000
   60FORr=1TOf
   70OSCLI "LOAD SECTOR"+STR$r+" "+STR$~(SPACE+&200*(r-1))
   80NEXT
   90OSCLI "SAVE $.Notate."+n$+" "+STR$~SPACE+" "+STR$~(SPACE+&200*f)
  100CLEAR
  110UNTIL FALSE

�
�"Name";n$
� "DIR $.ToDo."+n$
(�"Files";f
2� SPACE &2000
<
�r=1�f
F/� "LOAD SECTOR"+�r+" "+�~(SPACE+&200*(r-1))
P�
Z:� "SAVE $.Notate."+n$+" "+�~SPACE+" "+�~(SPACE+&200*f)
d�
n� �
�
00000000  0d 00 0a 05 f5 0d 00 14  0e e8 22 4e 61 6d 65 22  |.........."Name"|
00000010  3b 6e 24 0d 00 1e 16 ff  20 22 44 49 52 20 24 2e  |;n$..... "DIR $.|
00000020  54 6f 44 6f 2e 22 2b 6e  24 0d 00 28 0e e8 22 46  |ToDo."+n$..(.."F|
00000030  69 6c 65 73 22 3b 66 0d  00 32 11 de 20 53 50 41  |iles";f..2.. SPA|
00000040  43 45 20 26 32 30 30 30  0d 00 3c 0a e3 72 3d 31  |CE &2000..<..r=1|
00000050  b8 66 0d 00 46 2f ff 20  22 4c 4f 41 44 20 53 45  |.f..F/. "LOAD SE|
00000060  43 54 4f 52 22 2b c3 72  2b 22 20 22 2b c3 7e 28  |CTOR"+.r+" "+.~(|
00000070  53 50 41 43 45 2b 26 32  30 30 2a 28 72 2d 31 29  |SPACE+&200*(r-1)|
00000080  29 0d 00 50 05 ed 0d 00  5a 3a ff 20 22 53 41 56  |)..P....Z:. "SAV|
00000090  45 20 24 2e 4e 6f 74 61  74 65 2e 22 2b 6e 24 2b  |E $.Notate."+n$+|
000000a0  22 20 22 2b c3 7e 53 50  41 43 45 2b 22 20 22 2b  |" "+.~SPACE+" "+|
000000b0  c3 7e 28 53 50 41 43 45  2b 26 32 30 30 2a 66 29  |.~(SPACE+&200*f)|
000000c0  0d 00 64 05 d8 0d 00 6e  07 fd 20 a3 0d ff        |..d....n.. ...|
000000ce