Home » Personal collection » Acorn tapes » Own_Work » drawer_tl_tape04a_c15_acorn_henry1.wav » Music1sp
Music1sp
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 tapes » Own_Work » drawer_tl_tape04a_c15_acorn_henry1.wav |
| Filename: | Music1sp |
| Read OK: | ❌ |
| File size: | 0297 bytes |
| Load address: | FFFFFFFF |
| Exec address: | FFFFFFFF |
File contents
>L. 250 R=0 260 REPEAT 270 READ A,B 280 IF A=-1 THEN S=0 ELSE S=-15 290 SOUND 1,S,A,B*2 300 UNTIL B=0 310 IF R=0 THEN RESTORE 350:R=1:GOTO 260 320 IF R=1 THEN RESTORE 430:R=2:GOTO 260 330 IF R=2 THEN RESTORE 430:R=3:GOTO 260 340 END 350 DATA 96,6,128,6,124,6,-1,1,124,6,116,3,112,3 360 DATA 116,6,96,6,-1,1,96,6,100,6 370 DATA 96,6,88,6,80,6,76,6 380 DATA 80,6,76,3,80,3,68,6,-1,2,96,6 390 DATA 128,6,124,6,-1,1,124,6,116,3,112,3 400 DATA 116,6,96,6,-1,1,96,6,10028,6,124,6,-1,1,124,6,116,3,112,3 480 DATA 116,6,96,6,-1,1,96,6,88,6 490 DATA 80,6,76,6,68,6,64,6 500 DATA 68,6,48,6,20,6,-1,20,0,0 >*SPOOL
00000000 3e 4c 2e 0a 0d 20 20 32 35 30 20 52 3d 30 0a 0d |>L... 250 R=0..| 00000010 20 20 32 36 30 20 52 45 50 45 41 54 0a 0d 20 20 | 260 REPEAT.. | 00000020 32 37 30 20 52 45 41 44 20 41 2c 42 20 0a 0d 20 |270 READ A,B .. | 00000030 20 32 38 30 20 49 46 20 41 3d 2d 31 20 54 48 45 | 280 IF A=-1 THE| 00000040 4e 20 53 3d 30 20 45 4c 53 45 20 53 3d 2d 31 35 |N S=0 ELSE S=-15| 00000050 0a 0d 20 20 32 39 30 20 53 4f 55 4e 44 20 31 2c |.. 290 SOUND 1,| 00000060 53 2c 41 2c 42 2a 32 0a 0d 20 20 33 30 30 20 55 |S,A,B*2.. 300 U| 00000070 4e 54 49 4c 20 42 3d 30 0a 0d 20 20 33 31 30 20 |NTIL B=0.. 310 | 00000080 49 46 20 52 3d 30 20 54 48 45 4e 20 52 45 53 54 |IF R=0 THEN REST| 00000090 4f 52 45 20 33 35 30 3a 52 3d 31 3a 47 4f 54 4f |ORE 350:R=1:GOTO| 000000a0 20 32 36 30 0a 0d 20 20 33 32 30 20 49 46 20 52 | 260.. 320 IF R| 000000b0 3d 31 20 54 48 45 4e 20 52 45 53 54 4f 52 45 20 |=1 THEN RESTORE | 000000c0 34 33 30 3a 52 3d 32 3a 47 4f 54 4f 20 32 36 30 |430:R=2:GOTO 260| 000000d0 0a 0d 20 20 33 33 30 20 49 46 20 52 3d 32 20 54 |.. 330 IF R=2 T| 000000e0 48 45 4e 20 52 45 53 54 4f 52 45 20 34 33 30 3a |HEN RESTORE 430:| 000000f0 52 3d 33 3a 47 4f 54 4f 20 32 36 30 0a 0d 20 20 |R=3:GOTO 260.. | 00000100 33 34 30 20 45 4e 44 0a 0d 20 20 33 35 30 20 44 |340 END.. 350 D| 00000110 41 54 41 20 39 36 2c 36 2c 31 32 38 2c 36 2c 31 |ATA 96,6,128,6,1| 00000120 32 34 2c 36 2c 2d 31 2c 31 2c 31 32 34 2c 36 2c |24,6,-1,1,124,6,| 00000130 31 31 36 2c 33 2c 31 31 32 2c 33 0a 0d 20 20 33 |116,3,112,3.. 3| 00000140 36 30 20 44 41 54 41 20 31 31 36 2c 36 2c 39 36 |60 DATA 116,6,96| 00000150 2c 36 2c 2d 31 2c 31 2c 39 36 2c 36 2c 31 30 30 |,6,-1,1,96,6,100| 00000160 2c 36 0a 0d 20 20 33 37 30 20 44 41 54 41 20 39 |,6.. 370 DATA 9| 00000170 36 2c 36 2c 38 38 2c 36 2c 38 30 2c 36 2c 37 36 |6,6,88,6,80,6,76| 00000180 2c 36 0a 0d 20 20 33 38 30 20 44 41 54 41 20 38 |,6.. 380 DATA 8| 00000190 30 2c 36 2c 37 36 2c 33 2c 38 30 2c 33 2c 36 38 |0,6,76,3,80,3,68| 000001a0 2c 36 2c 2d 31 2c 32 2c 39 36 2c 36 0a 0d 20 20 |,6,-1,2,96,6.. | 000001b0 33 39 30 20 44 41 54 41 20 31 32 38 2c 36 2c 31 |390 DATA 128,6,1| 000001c0 32 34 2c 36 2c 2d 31 2c 31 2c 31 32 34 2c 36 2c |24,6,-1,1,124,6,| 000001d0 31 31 36 2c 33 2c 31 31 32 2c 33 0a 0d 20 20 34 |116,3,112,3.. 4| 000001e0 30 30 20 44 41 54 41 20 31 31 36 2c 36 2c 39 36 |00 DATA 116,6,96| 000001f0 2c 36 2c 2d 31 2c 31 2c 39 36 2c 36 2c 31 30 30 |,6,-1,1,96,6,100| 00000200 32 38 2c 36 2c 31 32 34 2c 36 2c 2d 31 2c 31 2c |28,6,124,6,-1,1,| 00000210 31 32 34 2c 36 2c 31 31 36 2c 33 2c 31 31 32 2c |124,6,116,3,112,| 00000220 33 0a 0d 20 20 34 38 30 20 44 41 54 41 20 31 31 |3.. 480 DATA 11| 00000230 36 2c 36 2c 39 36 2c 36 2c 2d 31 2c 31 2c 39 36 |6,6,96,6,-1,1,96| 00000240 2c 36 2c 38 38 2c 36 0a 0d 20 20 34 39 30 20 44 |,6,88,6.. 490 D| 00000250 41 54 41 20 38 30 2c 36 2c 37 36 2c 36 2c 36 38 |ATA 80,6,76,6,68| 00000260 2c 36 2c 36 34 2c 36 0a 0d 20 20 35 30 30 20 44 |,6,64,6.. 500 D| 00000270 41 54 41 20 36 38 2c 36 2c 34 38 2c 36 2c 32 30 |ATA 68,6,48,6,20| 00000280 2c 36 2c 2d 31 2c 32 30 2c 30 2c 30 0a 0d 3e 2a |,6,-1,20,0,0..>*| 00000290 53 50 4f 4f 4c 0a 0d |SPOOL..| 00000297
Music1sp.m0
Music1sp.m1
Music1sp.m2
Music1sp.m4
Music1sp.m5
.