Home » Archimedes archive » Apps » Tracker - Program Disc (1990)(The Serial Port).adf » !JukeBox/JukePrg
!JukeBox/JukePrg
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 » Archimedes archive » Apps » Tracker - Program Disc (1990)(The Serial Port).adf |
| Filename: | !JukeBox/JukePrg |
| Read OK: | ✔ |
| File size: | 09B0 bytes |
| Load address: | FFFFF842 |
| Exec address: | C5A4FADC |
File contents
���
��� ތ� @-� �Box_Name:EQUS "Juke-Box":EQUB 0:ALIGN
�C.Music_Error:EQUD &FF:EQUS "Not a Tracker Music !":EQUB 0:ALIGN
�I.FileType_Error:EQUD &FF:EQUS "File type must be &CB6 !":EQUB 0:ALIGN
�
�0; *----------------------------------------*
�0; * Zone des structures Icones & Windows *
�0; *----------------------------------------*
�
.Task_Name
EQUS "TASK":EQUB 0:ALIGN
.Task_Look
EQUS "JukeBox":EQUB 0:ALIGN
*.Task_Handle
4
EQUD 0
>.Icon_Handle
H
EQUD 0
R.Icon_Block
\>EQUD -1 ; Icon Type = -1 (Right) App. Icon
f:�Create_Icon2(0,0,68,68,&3002,"!JukeBox"):EQUB 0:ALIGN
p
z.Menu_Block
�5�Create_Menu("JukeBox"+�0+" ",7,2,7,0,88,40,4)
� .Item_1
�0�Create_Item(000,-1,&7000021,"Info ")
�0�Create_Item(000,-1,&7000021,� �����/�� ��� �L���% �� ��� ��� ��N O�� � P� P� P� P�9 P�[ P�Y �� @-�� ����@-�� �� ����@-�@�� T�
T�
@ T�
@�� t������ ������`���`��� ���� ����������� � �����������H���H��� ��D���D��� �� ��� ��� ��
���
��� ��� ���� @-� �� R�
R�
R�
R�
��� �� ����*PlayStart �� ����*PlayPause I �� ����*PlayKill In O� ������� � � ��� �� R�8 O R�
R�
��@-� �� R����^��P��( �� R�
���@-� �� R����^��P��( �� R�
��E �2 ����@ �� ��
� �� ��L ��0�� @�� � ��
�4@��,P�� T�� �3 $ ��
��@��@�� T�� �� ����MUSX *playinit ,2 �� �� �� �� �� ��� �,�� ����� ��0��D B�O?����� ������ ��� ����Juke-Box Ico� Not a Tracker Music ! ea� File type must be &CB6 ! 700TASK 0,0JukeBox ���� D D 0 !JukeBox ,0,JukeBox X ( ����! Info ����! Play ����! Pause ����! Kill � ����! Quit m ��o/��s?��zO��8 ��l �� �� �� 0�� @���� �� ��H���� � ���O� ���� � � ����� � � L� � � � � � � l � � � � 8 � h � � � 4 � � � � � Name : l � � � Purpose : 8 � h � Author : � 4 � Version : About this program oJuke Box 0:APlay TRACKER Musics � 1990 F.Mercier & Serial Port Q1.0 (November 1990) 00000000 0c c0 8f e2 0d b0 a0 e1 1e de 8c e2 00 40 2d e9 |.............@-.|
00000010 bf 00 00 ea 42 6f 78 5f 4e 61 6d 65 3a 45 51 55 |....Box_Name:EQU|
00000020 53 20 22 4a 75 6b 65 2d 42 6f 78 22 3a 45 51 55 |S "Juke-Box":EQU|
00000030 42 20 30 3a 41 4c 49 47 4e 0d 0c bc 43 2e 4d 75 |B 0:ALIGN...C.Mu|
00000040 73 69 63 5f 45 72 72 6f 72 3a 45 51 55 44 20 26 |sic_Error:EQUD &|
00000050 46 46 3a 45 51 55 53 20 22 4e 6f 74 20 61 20 54 |FF:EQUS "Not a T|
00000060 72 61 63 6b 65 72 20 4d 75 73 69 63 20 21 22 3a |racker Music !":|
00000070 45 51 55 42 20 30 3a 41 4c 49 47 4e 0d 0c c6 49 |EQUB 0:ALIGN...I|
00000080 2e 46 69 6c 65 54 79 70 65 5f 45 72 72 6f 72 3a |.FileType_Error:|
00000090 45 51 55 44 20 26 46 46 3a 45 51 55 53 20 22 46 |EQUD &FF:EQUS "F|
000000a0 69 6c 65 20 74 79 70 65 20 6d 75 73 74 20 62 65 |ile type must be|
000000b0 20 26 43 42 36 20 21 22 3a 45 51 55 42 20 30 3a | &CB6 !":EQUB 0:|
000000c0 41 4c 49 47 4e 0d 0c d0 04 0d 0c da 30 3b 20 2a |ALIGN.......0; *|
000000d0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------|
*
000000f0 2d 2d 2d 2d 2d 2d 2d 2d 2a 0d 0c e4 30 3b 20 2a |--------*...0; *|
00000100 20 20 5a 6f 6e 65 20 64 65 73 20 73 74 72 75 63 | Zone des struc|
00000110 74 75 72 65 73 20 49 63 6f 6e 65 73 20 26 20 57 |tures Icones & W|
00000120 69 6e 64 6f 77 73 20 20 2a 0d 0c ee 30 3b 20 2a |indows *...0; *|
00000130 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------|
*
00000150 2d 2d 2d 2d 2d 2d 2d 2d 2a 0d 0c f8 04 0d 0d 02 |--------*.......|
00000160 0e 2e 54 61 73 6b 5f 4e 61 6d 65 0d 0d 0c 1d 45 |..Task_Name....E|
00000170 51 55 53 20 20 22 54 41 53 4b 22 3a 45 51 55 42 |QUS "TASK":EQUB|
00000180 20 30 3a 41 4c 49 47 4e 0d 0d 16 0e 2e 54 61 73 | 0:ALIGN.....Tas|
00000190 6b 5f 4c 6f 6f 6b 0d 0d 20 1f 45 51 55 53 20 22 |k_Look.. .EQUS "|
000001a0 4a 75 6b 65 42 6f 78 22 3a 45 51 55 42 20 30 3a |JukeBox":EQUB 0:|
000001b0 41 4c 49 47 4e 0d 0d 2a 10 2e 54 61 73 6b 5f 48 |ALIGN..*..Task_H|
000001c0 61 6e 64 6c 65 0d 0d 34 0a 45 51 55 44 20 30 0d |andle..4.EQUD 0.|
000001d0 0d 3e 10 2e 49 63 6f 6e 5f 48 61 6e 64 6c 65 0d |.>..Icon_Handle.|
000001e0 0d 48 0a 45 51 55 44 20 30 0d 0d 52 0f 2e 49 63 |.H.EQUD 0..R..Ic|
000001f0 6f 6e 5f 42 6c 6f 63 6b 0d 0d 5c 3e 45 51 55 44 |on_Block..\>EQUD|
00000200 20 2d 31 20 20 20 20 20 20 20 20 20 20 20 20 20 | -1 |
00000210 20 20 20 20 3b 20 49 63 6f 6e 20 54 79 70 65 20 | ; Icon Type |
00000220 3d 20 2d 31 20 28 52 69 67 68 74 29 20 41 70 70 |= -1 (Right) App|
00000230 2e 20 49 63 6f 6e 0d 0d 66 3a a4 43 72 65 61 74 |. Icon..f:.Creat|
00000240 65 5f 49 63 6f 6e 32 28 30 2c 30 2c 36 38 2c 36 |e_Icon2(0,0,68,6|
00000250 38 2c 26 33 30 30 32 2c 22 21 4a 75 6b 65 42 6f |8,&3002,"!JukeBo|
00000260 78 22 29 3a 45 51 55 42 20 30 3a 41 4c 49 47 4e |x"):EQUB 0:ALIGN|
00000270 0d 0d 70 04 0d 0d 7a 0f 2e 4d 65 6e 75 5f 42 6c |..p...z..Menu_Bl|
00000280 6f 63 6b 0d 0d 84 35 a4 43 72 65 61 74 65 5f 4d |ock...5.Create_M|
00000290 65 6e 75 28 22 4a 75 6b 65 42 6f 78 22 2b bd 30 |enu("JukeBox"+.0|
000002a0 2b 22 20 20 20 20 22 2c 37 2c 32 2c 37 2c 30 2c |+" ",7,2,7,0,|
000002b0 38 38 2c 34 30 2c 34 29 0d 0d 8e 0b 2e 49 74 65 |88,40,4).....Ite|
000002c0 6d 5f 31 0d 0d 98 30 a4 43 72 65 61 74 65 5f 49 |m_1...0.Create_I|
000002d0 74 65 6d 28 30 30 30 2c 2d 31 2c 26 37 30 30 30 |tem(000,-1,&7000|
000002e0 30 32 31 2c 22 49 6e 66 6f 20 20 20 20 20 20 20 |021,"Info |
000002f0 20 22 29 0d 0d a2 30 a4 43 72 65 61 74 65 5f 49 | ")...0.Create_I|
00000300 74 65 6d 28 30 30 30 2c 2d 31 2c 26 37 30 30 30 |tem(000,-1,&7000|
00000310 30 32 31 2c c8 00 a0 e3 b0 13 9f e5 ed 2f 8f e2 |021,........./..|
00000320 c0 00 04 ef b4 13 8f e5 1c 01 00 eb 4c c0 8f e2 |............L...|
00000330 25 01 00 eb eb 1f 8f e2 c2 00 04 ef a0 03 8f e5 |%...............|
00000340 00 00 a0 e3 4e 1f 4f e2 c7 00 04 ef 01 00 50 e3 |....N.O.......P.|
00000350 11 00 00 0b 02 00 50 e3 0c 00 00 0b 06 00 50 e3 |......P.......P.|
00000360 11 00 00 0b 09 00 50 e3 39 00 00 0b 11 00 50 e3 |......P.9.....P.|
00000370 5b 00 00 0b 12 00 50 e3 59 00 00 0b ef ff ff ea |[.....P.Y.......|
00000380 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
00000390 01 40 2d e9 c5 00 04 ef 01 80 bd e8 01 40 2d e9 |.@-..........@-.|
000003a0 c8 00 04 ef ca 00 04 ef 01 80 bd e8 01 40 2d e9 |.............@-.|
000003b0 08 40 91 e5 02 00 54 e3 a7 00 00 0a 10 00 54 e3 |.@....T.......T.|
000003c0 05 00 00 0a 40 00 54 e3 03 00 00 0a 0c 40 91 e5 |....@.T......@..|
000003d0 02 00 74 e3 01 80 bd 18 01 80 bd e8 0c b0 91 e5 |..t.............|
000003e0 10 c0 91 e5 60 b0 8f e5 60 c0 8f e5 00 b0 81 e5 |....`...`.......|
000003f0 cc 00 04 ef 04 80 91 e5 08 90 91 e5 04 c0 81 e5 |................|
00000400 ce 00 04 ef 01 00 a0 e1 04 b0 80 e4 05 a0 a0 e3 |................|
00000410 04 a0 80 e4 48 80 88 e2 48 90 89 e2 00 03 a0 e8 |....H...H.......|
00000420 44 80 88 e2 44 90 89 e2 00 03 a0 e8 00 80 a0 e3 |D...D...........|
00000430 00 90 a0 e3 00 03 a0 e8 0a 8b a0 e3 0a 9b a0 e3 |................|
00000440 00 03 a0 e8 d0 00 04 ef 01 80 bd e8 00 00 00 00 |................|
00000450 00 00 00 00 01 40 2d e9 1c 00 91 e8 01 00 52 e3 |.....@-.......R.|
00000460 06 00 00 0a 02 00 52 e3 0a 00 00 0a 03 00 52 e3 |......R.......R.|
00000470 0e 00 00 0a 04 00 52 e3 12 00 00 0a 01 80 bd e8 |......R.........|
00000480 04 00 8f e2 05 00 00 ef 01 80 bd e8 2a 50 6c 61 |............*Pla|
00000490 79 53 74 61 72 74 00 20 04 00 8f e2 05 00 00 ef |yStart. ........|
000004a0 01 80 bd e8 2a 50 6c 61 79 50 61 75 73 65 00 49 |....*PlayPause.I|
000004b0 04 00 8f e2 05 00 00 ef 01 80 bd e8 2a 50 6c 61 |............*Pla|
000004c0 79 4b 69 6c 6c 00 49 6e 14 00 4f e2 05 00 00 ef |yKill.In..O.....|
000004d0 08 02 9f e5 f4 11 9f e5 dd 00 04 ef 11 00 00 ef |................|
000004e0 00 a0 bd e8 10 20 91 e5 00 00 52 e3 38 00 4f 02 |..... ....R.8.O.|
000004f0 05 00 00 0f 11 00 00 0f 03 00 52 e3 0c 00 00 0a |..........R.....|
00000500 05 00 52 e3 00 00 00 0a 0e f0 a0 e1 01 40 2d e9 |..R..........@-.|
00000510 0c 20 91 e5 00 00 52 e3 01 80 bd 18 cb 5e a0 e3 |. ....R......^..|
00000520 06 50 85 e3 28 20 91 e5 05 00 52 e1 0b 00 00 0a |.P..( ....R.....|
00000530 01 80 bd e8 01 40 2d e9 0c 20 91 e5 00 00 52 e3 |.....@-.. ....R.|
00000540 01 80 bd 18 cb 5e a0 e3 06 50 85 e3 28 20 91 e5 |.....^...P..( ..|
00000550 05 00 52 e1 01 00 00 0a 15 0e 8f e2 45 00 00 ea |..R.........E...|
00000560 32 00 00 eb 01 c0 a0 e1 40 00 a0 e3 00 20 a0 e3 |2.......@.... ..|
00000570 0d 00 00 ef 00 10 a0 e1 03 00 a0 e3 4c 20 8f e2 |............L ..|
00000580 04 30 a0 e3 00 40 a0 e3 0c 00 00 ef 00 00 a0 e3 |.0...@..........|
00000590 0d 00 00 ef 34 40 9f e5 2c 50 9f e5 05 00 54 e1 |....4@..,P....T.|
000005a0 ec 00 8f 12 33 00 00 1a 24 00 8f e2 0a 00 80 e2 |....3...$.......|
000005b0 01 40 dc e4 01 40 c0 e4 00 00 54 e3 fb ff ff 1a |.@...@....T.....|
000005c0 0c 00 8f e2 05 00 00 ef 01 80 bd e8 4d 55 53 58 |............MUSX|
000005d0 00 00 00 00 2a 70 6c 61 79 69 6e 69 74 20 00 00 |....*playinit ..|
000005e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
*
00000620 00 00 00 00 00 00 00 00 00 00 00 00 00 00 2c 32 |..............,2|
00000630 08 20 91 e5 0c 20 81 e5 04 20 a0 e3 10 20 81 e5 |. ... ... ... ..|
00000640 11 00 a0 e3 04 20 91 e5 e7 00 04 ef 2c 10 81 e2 |..... ......,...|
00000650 00 c0 8f e2 0e f0 a0 e1 00 00 00 00 04 20 91 e4 |............. ..|
00000660 04 30 91 e4 44 20 42 e2 4f 3f a0 e3 98 10 8f e2 |.0..D B.O?......|
00000670 d4 00 04 ef 01 80 bd e8 03 10 a0 e3 04 20 8f e2 |............. ..|
00000680 df 00 04 ef 01 80 bd e8 4a 75 6b 65 2d 42 6f 78 |........Juke-Box|
00000690 00 49 63 6f ff 00 00 00 4e 6f 74 20 61 20 54 72 |.Ico....Not a Tr|
000006a0 61 63 6b 65 72 20 4d 75 73 69 63 20 21 00 65 61 |acker Music !.ea|
000006b0 ff 00 00 00 46 69 6c 65 20 74 79 70 65 20 6d 75 |....File type mu|
000006c0 73 74 20 62 65 20 26 43 42 36 20 21 00 37 30 30 |st be &CB6 !.700|
000006d0 54 41 53 4b 00 30 2c 30 4a 75 6b 65 42 6f 78 00 |TASK.0,0JukeBox.|
000006e0 00 00 00 00 00 00 00 00 ff ff ff ff 00 00 00 00 |................|
000006f0 00 00 00 00 44 00 00 00 44 00 00 00 02 30 00 00 |....D...D....0..|
00000700 21 4a 75 6b 65 42 6f 78 00 2c 30 2c 4a 75 6b 65 |!JukeBox.,0,Juke|
00000710 42 6f 78 00 20 20 20 20 07 02 07 00 58 00 00 00 |Box. ....X...|
00000720 28 00 00 00 04 00 00 00 00 00 00 00 ff ff ff ff |(...............|
00000730 21 00 00 07 49 6e 66 6f 20 20 20 20 20 20 20 20 |!...Info |
00000740 00 00 00 00 ff ff ff ff 21 00 00 07 50 6c 61 79 |........!...Play|
00000750 20 20 20 20 20 20 20 20 00 00 00 00 ff ff ff ff | ........|
00000760 21 00 00 07 50 61 75 73 65 20 20 20 20 20 20 20 |!...Pause |
00000770 00 00 00 00 ff ff ff ff 21 00 00 07 4b 69 6c 6c |........!...Kill|
00000780 20 20 20 20 20 20 20 20 80 00 00 00 ff ff ff ff | ........|
00000790 21 00 00 07 51 75 69 74 20 20 20 20 20 20 20 20 |!...Quit |
000007a0 6d 1f 8f e2 6f 2f 8f e2 73 3f 8f e2 7a 4f 8f e2 |m...o/..s?..zO..|
000007b0 38 00 8f e2 6c 00 80 e2 20 10 80 e4 20 20 80 e4 |8...l... ... ..|
000007c0 20 30 80 e4 20 40 80 e4 0e f0 a0 e1 1c 00 8f e2 | 0.. @..........|
000007d0 17 1e 8f e2 48 10 80 e5 10 10 8f e2 c1 00 04 ef |....H...........|
000007e0 04 00 8c e4 c4 10 4f e2 04 00 81 e5 0e f0 a0 e1 |......O.........|
000007f0 00 00 00 00 00 00 00 00 c8 02 00 00 d4 00 00 00 |................|
00000800 00 00 00 00 00 00 00 00 ff ff ff ff a3 00 00 00 |................|
00000810 07 02 07 01 07 07 07 00 00 00 00 00 00 00 00 00 |................|
00000820 c8 02 00 00 d4 00 00 00 19 01 00 00 00 00 00 00 |................|
00000830 01 00 00 00 00 00 00 00 4c c7 00 00 00 00 00 00 |........L.......|
00000840 12 00 00 00 08 00 00 00 ac 00 00 00 a0 00 00 00 |................|
00000850 bc 02 00 00 d0 00 00 00 ad 01 00 07 00 00 00 00 |................|
00000860 00 00 00 00 1e 00 00 00 ac 00 00 00 6c 00 00 00 |............l...|
00000870 bc 02 00 00 9c 00 00 00 ad 01 00 07 00 00 00 00 |................|
00000880 00 00 00 00 1e 00 00 00 ac 00 00 00 38 00 00 00 |............8...|
00000890 bc 02 00 00 68 00 00 00 ad 01 00 07 00 00 00 00 |....h...........|
000008a0 00 00 00 00 1e 00 00 00 ac 00 00 00 04 00 00 00 |................|
000008b0 bc 02 00 00 34 00 00 00 ad 01 00 07 00 00 00 00 |....4...........|
000008c0 00 00 00 00 1e 00 00 00 0c 00 00 00 a0 00 00 00 |................|
000008d0 a0 00 00 00 d0 00 00 00 81 00 00 17 20 20 20 4e |............ N|
000008e0 61 6d 65 20 3a 20 20 20 0c 00 00 00 6c 00 00 00 |ame : ....l...|
000008f0 a0 00 00 00 9c 00 00 00 81 00 00 17 50 75 72 70 |............Purp|
00000900 6f 73 65 20 3a 20 20 20 0c 00 00 00 38 00 00 00 |ose : ....8...|
00000910 a0 00 00 00 68 00 00 00 81 00 00 17 20 41 75 74 |....h....... Aut|
00000920 68 6f 72 20 3a 20 20 20 0c 00 00 00 04 00 00 00 |hor : ........|
00000930 a0 00 00 00 34 00 00 00 81 00 00 17 56 65 72 73 |....4.......Vers|
00000940 69 6f 6e 20 3a 20 20 20 41 62 6f 75 74 20 74 68 |ion : About th|
00000950 69 73 20 70 72 6f 67 72 61 6d 00 6f 4a 75 6b 65 |is program.oJuke|
00000960 20 42 6f 78 00 30 3a 41 50 6c 61 79 20 54 52 41 | Box.0:APlay TRA|
00000970 43 4b 45 52 20 4d 75 73 69 63 73 00 a9 20 31 39 |CKER Musics.. 19|
00000980 39 30 20 46 2e 4d 65 72 63 69 65 72 20 26 20 53 |90 F.Mercier & S|
00000990 65 72 69 61 6c 20 50 6f 72 74 00 51 31 2e 30 20 |erial Port.Q1.0 |
000009a0 28 4e 6f 76 65 6d 62 65 72 20 31 39 39 30 29 00 |(November 1990).|
000009b0 
.