Duplicates

There is 1 duplicate copy of this file in the archive:

• Personal collection » Acorn ADFS disks » Greaseweazled » adfs_Genesis.adf » !GenLib/resources/Action/PlayAll
• Personal collection » Acorn hard disk » apps » Genesis » !GenLib/resources/Action/PlayAll

File contents

• Preview
• Hex Dump
• MODE 0 render
• MODE 1 render
• MODE 2 render
• MODE 4 render
• MODE 5 render

SET FirstLetter TO "A"
WHILE FirstLetter <= "Z"  
  PLAYSAMPLE "<GenLib$Dir>.Resources.Sample." & FirstLetter & "*" 
  SET FirstLetter TO CHR ( ASC FirstLetter + 1 )
ENDWHILE

00000000  53 45 54 20 46 69 72 73  74 4c 65 74 74 65 72 20  |SET FirstLetter |
00000010  54 4f 20 22 41 22 0a 57  48 49 4c 45 20 46 69 72  |TO "A".WHILE Fir|
00000020  73 74 4c 65 74 74 65 72  20 3c 3d 20 22 5a 22 20  |stLetter <= "Z" |
00000030  20 0a 20 20 50 4c 41 59  53 41 4d 50 4c 45 20 22  | .  PLAYSAMPLE "|
00000040  3c 47 65 6e 4c 69 62 24  44 69 72 3e 2e 52 65 73  |<GenLib$Dir>.Res|
00000050  6f 75 72 63 65 73 2e 53  61 6d 70 6c 65 2e 22 20  |ources.Sample." |
00000060  26 20 46 69 72 73 74 4c  65 74 74 65 72 20 26 20  |& FirstLetter & |
00000070  22 2a 22 20 0a 20 20 53  45 54 20 46 69 72 73 74  |"*" .  SET First|
00000080  4c 65 74 74 65 72 20 54  4f 20 43 48 52 20 28 20  |Letter TO CHR ( |
00000090  41 53 43 20 46 69 72 73  74 4c 65 74 74 65 72 20  |ASC FirstLetter |
000000a0  2b 20 31 20 29 0a 45 4e  44 57 48 49 4c 45 0a 0a  |+ 1 ).ENDWHILE..|
000000b0

!GenLib/resources/Action/PlayAll.m0

!GenLib/resources/Action/PlayAll.m1

!GenLib/resources/Action/PlayAll.m2

!GenLib/resources/Action/PlayAll.m4

!GenLib/resources/Action/PlayAll.m5