Home » Personal collection » Acorn hard disk » files » music » Notate/Display
Notate/Display
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/Display |
| Read OK: | ✔ |
| File size: | 0177 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10*RAM 20*DIR $.NOTATE 30INPUT"Filename";f$ 40DIM SPACE &2000 50FORx=SPACE TO (SPACE+&1FFF)STEP4:!x=0:NEXT 60OSCLI "LOAD "+f$+" "+STR$~SPACE 70PRINT0 80*SPOOL NICTEMP 90FORy=SPACE TO SPACE+&800 STEP 16 100A$=STR$~(y-SPACE):REPEAT A$="0"+A$:UNTIL LEN(A$)=5:PRINTA$;" "; 110FORx=y TO y+15 120A$=STR$~?x:IFLEN(A$)<2 THEN A$="0"+A$ 130PRINTA$;" "; 140NEXT 150FORx=y TO y+15 160IF (?x>31) AND (?x<127) THEN PRINTCHR$?x; ELSE PRINT"."; 170NEXT 180PRINTCHR$10;:NEXT 190*SPOOL
*RAM *DIR $.NOTATE �"Filename";f$ (� SPACE &2000 2%�x=SPACE � (SPACE+&1FFF)�4:!x=0:� < � "LOAD "+f$+" "+�~SPACE F�0 P*SPOOL NICTEMP Z �y=SPACE � SPACE+&800 � 16 d1A$=�~(y-SPACE):� A$="0"+A$:� �(A$)=5:�A$;" "; n�x=y � y+15 x A$=�~?x:�(A$)<2 � A$="0"+A$ � �A$;" "; �� ��x=y � y+15 �(� (?x>31) � (?x<127) � �?x; � �"."; �� � �10;:� � *SPOOL �
00000000 0d 00 0a 08 2a 52 41 4d 0d 00 14 11 2a 44 49 52 |....*RAM....*DIR| 00000010 20 24 2e 4e 4f 54 41 54 45 0d 00 1e 12 e8 22 46 | $.NOTATE....."F| 00000020 69 6c 65 6e 61 6d 65 22 3b 66 24 0d 00 28 11 de |ilename";f$..(..| 00000030 20 53 50 41 43 45 20 26 32 30 30 30 0d 00 32 25 | SPACE &2000..2%| 00000040 e3 78 3d 53 50 41 43 45 20 b8 20 28 53 50 41 43 |.x=SPACE . (SPAC| 00000050 45 2b 26 31 46 46 46 29 88 34 3a 21 78 3d 30 3a |E+&1FFF).4:!x=0:| 00000060 ed 0d 00 3c 1c ff 20 22 4c 4f 41 44 20 22 2b 66 |...<.. "LOAD "+f| 00000070 24 2b 22 20 22 2b c3 7e 53 50 41 43 45 0d 00 46 |$+" "+.~SPACE..F| 00000080 06 f1 30 0d 00 50 12 2a 53 50 4f 4f 4c 20 4e 49 |..0..P.*SPOOL NI| 00000090 43 54 45 4d 50 0d 00 5a 1e e3 79 3d 53 50 41 43 |CTEMP..Z..y=SPAC| 000000a0 45 20 b8 20 53 50 41 43 45 2b 26 38 30 30 20 88 |E . SPACE+&800 .| 000000b0 20 31 36 0d 00 64 31 41 24 3d c3 7e 28 79 2d 53 | 16..d1A$=.~(y-S| 000000c0 50 41 43 45 29 3a f5 20 41 24 3d 22 30 22 2b 41 |PACE):. A$="0"+A| 000000d0 24 3a fd 20 a9 28 41 24 29 3d 35 3a f1 41 24 3b |$:. .(A$)=5:.A$;| 000000e0 22 20 22 3b 0d 00 6e 0f e3 78 3d 79 20 b8 20 79 |" ";..n..x=y . y| 000000f0 2b 31 35 0d 00 78 20 41 24 3d c3 7e 3f 78 3a e7 |+15..x A$=.~?x:.| 00000100 a9 28 41 24 29 3c 32 20 8c 20 41 24 3d 22 30 22 |.(A$)<2 . A$="0"| 00000110 2b 41 24 0d 00 82 0c f1 41 24 3b 22 20 22 3b 0d |+A$.....A$;" ";.| 00000120 00 8c 05 ed 0d 00 96 0f e3 78 3d 79 20 b8 20 79 |.........x=y . y| 00000130 2b 31 35 0d 00 a0 28 e7 20 28 3f 78 3e 33 31 29 |+15...(. (?x>31)| 00000140 20 80 20 28 3f 78 3c 31 32 37 29 20 8c 20 f1 bd | . (?x<127) . ..| 00000150 3f 78 3b 20 8b 20 f1 22 2e 22 3b 0d 00 aa 05 ed |?x; . .".";.....| 00000160 0d 00 b4 0b f1 bd 31 30 3b 3a ed 0d 00 be 0a 2a |......10;:.....*| 00000170 53 50 4f 4f 4c 0d ff |SPOOL..| 00000177
.