Home » Personal collection » Acorn DFS disks » dfs_box03_disk12_bcpl.scp » EXAMPLE
EXAMPLE
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 DFS disks » dfs_box03_disk12_bcpl.scp |
| Filename: | EXAMPLE |
| Read OK: | ✔ |
| File size: | 0974 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
�X�EXMP3 ��VOLTMET@�)s>�)p������ ��` *Q[�*^[�*^[�*^[�*^��*p�<{*�[�)��[�)��[�)��[�)�[� ���`�ɩ��u��щ0�
W�a��a���*%�ઉa 4��֊ ��֠�֠�����������[� ���Z�`��`�,# �{ɩ��+�%�Cannot select mode 5.
When '!' appears type:
�SHUFFLE�
and press�RETURN
then re-run this program.
19,%,1;0; 19,%,7;0; 19,%,4;0; 19,%,6;0;��DOFIXED#�`�#�` #QZ�#�`��#�`#Q#��#�Z�#^�#�`V#R����4`�U�$��45��46�Z�$Z�^`�#�Z�#^` �#�Z�#^[k{�24,256;224;1279;1023; VOLTMETER%i1.%i1CHN: 1 2 3 4Hit DELETE to exit ������
���"�4���DRAWBAR��'�����G `@ë��G `@ë��`UG ����G ����`UG Z�{���PLOTGRI�#����`��4��a �D a ��`D ã��a{�� � �a�EXMP2 ��PLAYTUN�%ɥ@�[ҫ[Ѭ[�
[�0�
[�0�
[�0�
������������`1\��`7|�0�`04����`a�|�`g|�a��tĤ��`A�|�`G|�A��tĤ���`!�<����`+�<�Ĥ��`-�<�Ĥ�������<������0� ��ѭ�����0�
�<w{Г!3b-!4e-4e-4e-4e-4e-4e-!4d 4f 4b-4b-4a-4f !4e-4e-4e-4e-4d 4e-!4f 3b-3b-3B-3b-!4e-4e-4e-4e-4e-4e-!4d 4f 4b-4b-4a-4f !4g 4b-4e-4f 4e-4f !4e-3e-3e-3E-$ , ������x i < ����x < @ ������~ ;
���� ������DISPNOTZ�����Ū�&�`�&Q`�&Q�4��4ӧ����(QƦ���u`�&Qť��Q{И�� � � � � � � � � � � � � � � � � � � � � � � � ��DODISPL#s���è$�Z�$^ã��o[)` [&�#�����6�$QZ�$^$Q���%QĤ��vã�`�\`�#�{����M U S I C � MUSIC � � � �� �EXMP1 �SOUND �ENVELOP�ADVAL �VDU �TIME ��START #s���Z�$^ã��u[�#^[�#^[�#^[�#^��#L#l>y` �#����` $Rã�`(�t` �#�[�#^��#���#���` #Q#��&L#;�� T �V �X �`�#�Z�#^�"���� E X A M P L E
Enter�T�(Tune)
�V�(Voltmeter)
�X�(Exit)
then press�RETURN? ��Please enter T, V or X
��COLOUR �Z�$�{17,% ��GCOL ���Z�%�{18,%,% ��HIDECURZ�#�{�
23,1,0;0;0;0;��PLOT �����Z�&�{ 25,%,%;%;��TXTCURS���Z�%�{31,%,% � �4�D�T�h� F � X� n� � �� � �� �VDU ��VDU
�
�T�*�U��\R&S� �R�Y�X� �V�W�[�Z � �`� ��&�)�#� � �X� �x�L�Z�%��\�T�VȱT�WȄ\L� � �`8�00Y�
����� ��I$Z0�i
�[$Z0�V&W��V�VLp H�V&W���WH�VH��heV�VheW�WheV�V���WLp �X$[0,�V � � �� ��,� �;��W �L/ �X�Y8�ȱR�X`�ڢ � ��� �` `r${ � � � : L W n q � � � � � ��SOUND V��$y{ � � � ��ENVELOP@�����ָ����̬�`
�q�V��,y{ � � � ��TIME @��V��'y�a�X{� p y � ��ADVAL `�X��W�`�$#{� � � � 00000000 e8 03 58 01 df fd 07 45 58 4d 50 33 20 20 df df |..X....EXMP3 ..|
00000010 07 56 4f 4c 54 4d 45 54 40 04 a3 15 29 73 3e aa |.VOLTMET@...)s>.|
00000020 29 70 e1 f4 01 a9 be 84 e1 00 80 a9 60 0c 2a 51 |)p..........`.*Q|
00000030 5b fa 2a 5e 5b f9 2a 5e 5b f8 2a 5e 5b f7 2a 5e |[.*^[.*^[.*^[.*^|
00000040 ba 80 2a 70 89 3c 7b 10 2a 02 10 ad 5b f0 29 c8 |..*p.<{.*...[.).|
00000050 11 ad 5b ee 29 c8 12 ad 5b ec 29 c8 13 ad 5b ea |..[.)...[.)...[.|
00000060 29 c8 5b e9 09 11 a9 ba 87 60 e0 89 98 11 c9 a9 |).[......`......|
00000070 89 14 9c 75 11 a9 ba d1 89 30 c9 20 0d 11 57 ad |...u.....0. ..W.|
00000080 61 ce 01 ae 61 f8 7f af 8d 2a 25 e0 e0 aa 89 61 |a...a....*%....a|
00000090 00 01 34 e0 84 ab 89 d6 8a 1c 9a 89 d6 a0 11 89 |..4.............|
000000a0 d6 a0 13 8b af 8a b0 80 13 bc 83 12 ba 81 13 a0 |................|
000000b0 12 8f 5b e0 0c 8a 89 98 0e 5a b0 60 ff a0 11 60 |..[......Z.`...`|
000000c0 81 2c 23 1e 81 7b 11 c9 a9 89 14 9c 2b ba 25 d0 |.,#..{......+.%.|
000000d0 16 43 61 6e 6e 6f 74 20 73 65 6c 65 63 74 20 6d |.Cannot select m|
000000e0 6f 64 65 20 35 2e 0a 00 17 57 68 65 6e 20 27 21 |ode 5....When '!|
000000f0 27 20 61 70 70 65 61 72 73 20 74 79 70 65 3a 0a |' appears type:.|
00000100 1b 88 53 48 55 46 46 4c 45 89 0a 61 6e 64 20 70 |..SHUFFLE..and p|
00000110 72 65 73 73 88 52 45 54 55 52 4e 0a 1a 74 68 65 |ress.RETURN..the|
00000120 6e 20 72 65 2d 72 75 6e 20 74 68 69 73 20 70 72 |n re-run this pr|
00000130 6f 67 72 61 6d 2e 0a 00 09 31 39 2c 25 2c 31 3b |ogram....19,%,1;|
00000140 30 3b 09 31 39 2c 25 2c 37 3b 30 3b 09 31 39 2c |0;.19,%,7;0;.19,|
00000150 25 2c 34 3b 30 3b 09 31 39 2c 25 2c 36 3b 30 3b |%,4;0;.19,%,6;0;|
00000160 df df 07 44 4f 46 49 58 45 44 23 fd 60 80 23 fe |...DOFIXED#.`.#.|
00000170 60 0c 23 51 5a e0 23 c8 60 82 a7 10 23 ff 60 10 |`.#QZ.#.`...#.`.|
00000180 23 51 11 23 fe 10 a7 16 23 fc 5a e0 23 5e 12 a7 |#Q.#....#.Z.#^..|
00000190 11 23 fc 60 56 23 52 10 a3 ba 9e 83 14 34 60 18 |.#.`V#R......4`.|
000001a0 b5 55 a8 10 24 fc 83 15 34 1a 35 a8 83 15 34 1a |.U..$...4.5...4.|
000001b0 36 a9 5a c2 24 5a 11 c3 a3 83 15 9c 5e 60 1b a7 |6.Z.$Z......^`..|
000001c0 10 23 fc 5a b9 23 5e 60 1f a7 11 23 fc 5a c3 23 |.#.Z.#^`...#.Z.#|
000001d0 5e 5b 6b 03 7b d0 15 32 34 2c 32 35 36 3b 32 32 |^[k.{..24,256;22|
000001e0 34 3b 31 32 37 39 3b 31 30 32 33 3b 09 56 4f 4c |4;1279;1023;.VOL|
000001f0 54 4d 45 54 45 52 07 25 69 31 2e 25 69 31 13 43 |TMETER.%i1.%i1.C|
00000200 48 4e 3a 20 20 31 20 20 20 32 20 20 20 33 20 20 |HN: 1 2 3 |
00000210 20 34 12 48 69 74 20 44 45 4c 45 54 45 20 74 6f | 4.Hit DELETE to|
00000220 20 65 78 69 74 00 aa fe c0 fe d6 fe f0 fe 0a ff | exit...........|
00000230 12 ff 1a ff 22 ff 34 ff df df 07 44 52 41 57 42 |....".4....DRAWB|
00000240 41 52 86 ab 10 27 ff 83 ab 84 ac 14 47 00 60 40 |AR...'......G.`@|
00000250 c3 ab 84 ac 15 47 00 60 40 c3 ab 85 ac 60 55 47 |.....G.`@....`UG|
00000260 00 83 ab 85 ac 15 47 00 83 ab 84 ac 60 55 47 00 |......G.....`UG.|
00000270 5a 8e 07 7b ce ff df df 07 50 4c 4f 54 47 52 49 |Z..{.....PLOTGRI|
00000280 11 a7 10 23 ff 10 a3 ba 9b 60 80 83 34 e0 e0 a9 |...#.....`..4...|
00000290 61 00 01 a8 14 44 00 61 00 04 a8 10 a9 60 11 44 |a....D.a.....`.D|
000002a0 00 11 c3 a3 83 15 9c 61 7b d0 d6 ff 00 00 fb 00 |.......a{.......|
000002b0 14 00 00 01 e8 03 61 01 df fd 07 45 58 4d 50 32 |......a....EXMP2|
000002c0 20 20 df df 07 50 4c 41 59 54 55 4e 11 a3 0e 06 | ...PLAYTUN....|
000002d0 25 c9 a5 40 07 a6 5b d2 ab 5b d1 ac 5b d1 20 0d |%..@..[..[..[. .|
000002e0 5b d0 30 81 20 0d 5b ce 30 81 20 0d 5b ed 30 81 |[.0. .[.0. .[.0.|
000002f0 20 0d 11 86 94 8b 10 b6 ae 11 ad ba f8 8b 8d b6 | ...............|
00000300 af 60 31 5c 92 b5 60 37 7c 8d 0e 30 c0 0f 60 30 |.`1\..`7|..0..`0|
00000310 34 e1 a5 ff a4 ba db 60 61 8f 7c 8e 60 67 7c 8a |4......`a.|.`g|.|
00000320 0e 61 c0 0f cc 74 c4 a4 ba c8 60 41 8f 7c 90 60 |.a...t....`A.|.`|
00000330 47 7c 8c 0e 41 c0 0f cc 74 c4 a4 12 a3 ba b3 60 |G|..A...t......`|
00000340 21 8f 3c 84 13 a3 ba aa 60 2b 8f 3c 85 14 c4 a4 |!.<.....`+.<....|
00000350 ba 89 60 2d 8f 3c 84 0e 04 c4 a4 83 86 95 84 86 |..`-.<..........|
00000360 96 12 83 3c 83 16 ba 81 13 86 97 86 30 80 20 10 |...<........0. .|
00000370 11 a3 8d d1 ad 8d 8e 9c 04 ba 80 0e 06 30 c9 20 |.............0. |
00000380 0d 85 3c 77 7b d0 93 21 33 62 2d 21 34 65 2d 34 |..<w{..!3b-!4e-4|
00000390 65 2d 34 65 2d 34 65 2d 34 65 2d 34 65 2d 21 34 |e-4e-4e-4e-4e-!4|
000003a0 64 20 34 66 20 34 62 2d 34 62 2d 34 61 2d 34 66 |d 4f 4b-4b-4a-4f|
000003b0 20 21 34 65 2d 34 65 2d 34 65 2d 34 65 2d 34 64 | !4e-4e-4e-4e-4d|
000003c0 20 34 65 2d 21 34 66 20 33 62 2d 33 62 2d 33 42 | 4e-!4f 3b-3b-3B|
000003d0 2d 33 62 2d 21 34 65 2d 34 65 2d 34 65 2d 34 65 |-3b-!4e-4e-4e-4e|
000003e0 2d 34 65 2d 34 65 2d 21 34 64 20 34 66 20 34 62 |-4e-4e-!4d 4f 4b|
000003f0 2d 34 62 2d 34 61 2d 34 66 20 21 34 67 20 34 62 |-4b-4a-4f !4g 4b|
00000400 2d 34 65 2d 34 66 20 34 65 2d 34 66 20 21 34 65 |-4e-4f 4e-4f !4e|
00000410 2d 33 65 2d 33 65 2d 33 45 2d 24 00 2c 00 00 00 |-3e-3e-3E-$.,...|
00000420 08 00 10 00 14 00 1c 00 01 00 02 00 00 00 00 00 |................|
00000430 00 00 00 00 00 00 00 00 1e 00 fe ff 81 ff 81 ff |................|
00000440 78 00 69 00 02 00 02 00 00 00 00 00 00 00 00 00 |x.i.............|
00000450 00 00 00 00 3c 00 fa ff e2 ff 81 ff 78 00 3c 00 |....<.......x.<.|
00000460 03 00 02 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
00000470 40 00 f6 ff bf ff 81 ff 7e 00 3b 00 0a ff 9c ff |@.......~.;.....|
00000480 84 00 a6 ff c0 ff df df 07 44 49 53 50 4e 4f 54 |.........DISPNOT|
00000490 5a b8 a4 10 a5 ba ab 13 c5 aa 83 26 fc 60 88 26 |Z..........&.`.&|
000004a0 51 60 97 26 51 85 14 34 a6 b5 14 34 d3 a7 ba 87 |Q`.&Q..4...4....|
000004b0 84 d9 28 51 11 c6 a6 86 87 9c 75 60 89 26 51 11 |..(Q......u`.&Q.|
000004c0 c5 a5 85 15 9c 51 7b d0 98 ff a0 00 a0 00 ea 00 |.....Q{.........|
000004d0 e4 00 8d 00 a0 00 ea 00 a0 00 8d 00 a0 00 ea 00 |................|
000004e0 a0 00 a0 00 f8 00 fe 00 a0 00 a0 00 b5 00 ea 00 |................|
000004f0 a0 00 a0 00 ab 00 a7 00 a0 00 df df 07 44 4f 44 |.............DOD|
00000500 49 53 50 4c 17 23 73 10 a3 ba 8d 14 c3 a8 1a 24 |ISPL.#s........$|
00000510 fc 5a c5 24 5e 11 c3 a3 83 11 9c 6f 5b 29 03 60 |.Z.$^......o[).`|
00000520 1d 5b 26 03 1a a7 11 23 fc 10 a3 ba 9f 83 13 36 |.[&....#.......6|
00000530 e0 81 24 51 5a b4 24 5e 1a 24 51 11 a4 ba 86 18 |..$QZ.$^.$Q.....|
00000540 25 51 11 c4 a4 84 14 9c 76 11 c3 a3 83 60 0e 9c |%Q......v....`..|
00000550 5c 60 17 a7 10 23 fc 7b 10 8d 81 9d 86 4d 20 55 |\`...#.{.....M U|
00000560 20 53 20 49 20 43 20 20 9c 00 05 4d 55 53 49 43 | S I C ...MUSIC|
00000570 20 ff 00 00 fa 00 14 00 fc 00 e8 03 fe 00 df fd | ...............|
00000580 07 45 58 4d 50 31 20 20 ed fe 07 53 4f 55 4e 44 |.EXMP1 ...SOUND|
00000590 20 20 ed fe 07 45 4e 56 45 4c 4f 50 ed fe 07 41 | ...ENVELOP...A|
000005a0 44 56 41 4c 20 20 ed fe 07 56 44 55 20 20 20 20 |DVAL ...VDU |
000005b0 ed fe 07 54 49 4d 45 20 20 20 df df 07 53 54 41 |...TIME ...STA|
000005c0 52 54 20 20 17 23 73 10 a3 ba 87 5a f9 24 5e 11 |RT .#s....Z.$^.|
000005d0 c3 a3 83 11 9c 75 5b bd 23 5e 5b bc 23 5e 5b bb |.....u[.#^[.#^[.|
000005e0 23 5e 5b ba 23 5e ba 82 23 4c 12 23 6c 3e 79 60 |#^[.#^..#L.#l>y`|
000005f0 0c a7 10 23 fc 11 a3 ba 87 60 20 24 52 11 c3 a3 |...#.....` $R...|
00000600 83 60 28 9c 74 60 0c a7 10 23 fc 5b a6 23 5e ba |.`(.t`...#.[.#^.|
00000610 91 23 fa ba af 23 fb ba ab 60 0c 23 51 10 23 02 |.#...#...`.#Q.#.|
00000620 ba 96 26 4c 23 3b 92 d0 03 00 0e 00 54 00 e3 ff |..&L#;......T...|
00000630 56 00 e3 ff 58 00 e3 ff 60 0f a7 10 23 fc 5a f2 |V...X...`...#.Z.|
00000640 23 5e ba 22 bb 8b 1b 86 8d 20 20 20 20 20 20 20 |#^."..... |
00000650 20 20 20 20 45 20 58 20 41 20 4d 20 50 20 4c 20 | E X A M P L |
00000660 45 0a 10 0a 45 6e 74 65 72 88 54 89 28 54 75 6e |E...Enter.T.(Tun|
00000670 65 29 0a 00 14 20 20 20 20 20 88 56 89 28 56 6f |e)... .V.(Vo|
00000680 6c 74 6d 65 74 65 72 29 0a 00 10 20 20 20 20 20 |ltmeter)... |
00000690 88 58 89 28 45 78 69 74 29 0a 0a 00 11 74 68 65 |.X.(Exit)....the|
000006a0 6e 20 70 72 65 73 73 88 52 45 54 55 52 4e 02 3f |n press.RETURN.?|
000006b0 20 00 19 85 88 50 6c 65 61 73 65 20 65 6e 74 65 | ....Please ente|
000006c0 72 20 54 2c 20 56 20 6f 72 20 58 0a df df 07 43 |r T, V or X....C|
000006d0 4f 4c 4f 55 52 20 a8 5a 83 24 c8 7b 04 31 37 2c |OLOUR .Z.$.{.17,|
000006e0 25 00 df df 07 47 43 4f 4c 20 20 20 a9 84 aa 5a |%....GCOL ...Z|
000006f0 83 25 c8 7b 06 31 38 2c 25 2c 25 00 df df 07 48 |.%.{.18,%,%....H|
00000700 49 44 45 43 55 52 5a 84 23 c8 7b d0 0d 32 33 2c |IDECURZ.#.{..23,|
00000710 31 2c 30 3b 30 3b 30 3b 30 3b df df 07 50 4c 4f |1,0;0;0;0;...PLO|
00000720 54 20 20 20 aa 84 ab 85 ac 5a 83 26 c8 7b 09 32 |T .....Z.&.{.2|
00000730 35 2c 25 2c 25 3b 25 3b df df 07 54 58 54 43 55 |5,%,%;%;...TXTCU|
00000740 52 53 a9 84 aa 5a 83 25 c8 7b 06 33 31 2c 25 2c |RS...Z.%.{.31,%,|
00000750 25 00 10 ff 20 ff 34 ff 44 ff 54 ff 68 fe 00 00 |%... .4.D.T.h...|
00000760 01 00 46 00 fe 00 58 01 ff 00 6e 01 fd 00 88 01 |..F...X...n.....|
00000770 00 01 a6 01 fc 00 c4 01 00 01 e9 03 95 00 df fd |................|
00000780 07 56 44 55 20 20 20 20 df df 07 56 44 55 20 20 |.VDU ...VDU |
00000790 20 20 0d a5 04 0a 85 54 a5 05 2a 85 55 a9 08 85 | .....T..*.U...|
000007a0 5c 06 52 26 53 a0 00 b1 52 85 59 84 58 a9 00 85 |\.R&S...R.Y.X...|
000007b0 56 85 57 85 5b 85 5a 20 f9 00 90 01 60 c9 20 f0 |V.W.[.Z ....`. .|
000007c0 f6 c9 26 f0 29 c9 23 d0 0e 20 f9 00 c9 58 f0 1e |..&.).#.. ...X..|
000007d0 c9 78 f0 1a 4c 07 01 c6 5a c9 25 d0 16 a4 5c b1 |.x..L...Z.%...\.|
000007e0 54 85 56 c8 b1 54 85 57 c8 84 5c 4c db 00 20 f9 |T.V..T.W..\L.. .|
000007f0 00 b0 60 38 e9 30 30 59 c9 0a 90 13 e9 11 c9 06 |..`8.00Y........|
00000800 90 06 e9 20 c9 06 b0 49 24 5a 30 c8 18 69 0a c6 |... ...I$Z0..i..|
00000810 5b 24 5a 30 10 a2 03 06 56 26 57 ca 10 f9 05 56 |[$Z0....V&W....V|
00000820 85 56 4c 70 00 48 a2 02 06 56 26 57 e0 02 d0 06 |.VLp.H...V&W....|
00000830 a5 57 48 a5 56 48 ca 10 ef 18 68 65 56 85 56 68 |.WH.VH....heV.Vh|
00000840 65 57 85 57 18 68 65 56 85 56 90 a2 e6 57 4c 70 |eW.W.heV.V...WLp|
00000850 00 c6 58 24 5b 30 02 10 2c a5 56 20 ee ff 20 f9 |..X$[0..,.V .. .|
00000860 00 b0 11 c9 20 f0 f7 c9 2c f0 09 c9 3b d0 16 a5 |.... ...,...;...|
00000870 57 20 ee ff 4c 2f 00 a4 58 c4 59 38 f0 06 c8 b1 |W ..L/..X.Y8....|
00000880 52 84 58 18 60 a9 da a2 00 a0 00 20 f4 ff ad 1b |R.X.`...... ....|
00000890 01 85 06 ad 1c 01 85 07 60 1d 01 60 72 24 17 7b |........`..`r$.{|
000008a0 00 00 c8 00 14 00 c8 00 ea 03 0c 00 3a 00 4c 00 |............:.L.|
000008b0 57 00 6e 00 71 00 a5 00 d1 00 e1 00 f7 00 11 01 |W.n.q...........|
000008c0 16 01 1b 01 e8 03 0f 00 00 00 df df 07 53 4f 55 |.............SOU|
000008d0 4e 44 20 20 11 56 a9 17 a8 0e 0f 24 79 7b 00 00 |ND .V.....$y{..|
000008e0 80 00 0c 00 80 00 e8 03 1b 00 00 00 df df 07 45 |...............E|
000008f0 4e 56 45 4c 4f 50 40 05 a4 10 ac ba 8a 8c d6 b8 |NVELOP@.........|
00000900 ad 84 8c b7 11 cc ac 8c 60 0d 9c 71 84 11 56 a0 |........`..q..V.|
00000910 11 18 b0 0e 0f 2c 79 7b 00 00 81 00 0c 00 81 00 |.....,y{........|
00000920 e8 03 14 00 00 00 df df 07 54 49 4d 45 20 20 20 |.........TIME |
00000930 40 04 a3 83 11 56 ac 11 ab 0e 0f 27 79 e3 61 ff |@....V.....'y.a.|
00000940 7f 58 7b d0 00 00 70 00 0c 00 79 00 e8 03 11 00 |.X{...p...y.....|
00000950 00 00 df df 07 41 44 56 41 4c 20 20 60 ff 58 a8 |.....ADVAL `.X.|
00000960 b5 18 57 a9 60 80 24 23 7b d0 00 00 c9 00 0c 00 |..W.`.$#{.......|
00000970 c9 00 e0 03 |....|
00000974 
EXAMPLE.m0
EXAMPLE.m1
EXAMPLE.m2
EXAMPLE.m4
EXAMPLE.m5
.