MUSIK.PRC

FILE INFORMATION

FILENAME(S): MUSIK.PRC

FILE TYPE(S): SEQ

FILE SIZE: 1.2K

FIRST SEEN: 2025-11-30 01:12:54

APPEARS ON: 3 disk(s)

FILE HASH

37012f1e530aa057442849d45325dbcbcd4d5bc41098f209693af09196a2a01e

FOUND ON DISKS (3 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
10812 SEITE B	MUSIK.PRC	SEQ	C64er, DuncanTwain	5	2	DOWNLOAD FILE
10812 SEITE B	MUSIK.PRC	SEQ	DuncanTwain	5	2	DOWNLOAD FILE
10812 SEITE B	MUSIK.PRC	SEQ	earthshaker	5	2	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 30 30 30 35 20 D0 D2 CF  C3 20 4D 55 53 49 4B 20  |0005 .... MUSIK |
00000010: C3 CC CF D3 C5 C4 0D 30  30 31 30 20 20 20 D5 D3  |.......0010   ..|
00000020: C5 20 53 4F 55 4E 44 0D  30 30 32 30 20 20 20 56  |. SOUND.0020   V|
00000030: 4F 52 42 45 52 45 49 54  45 4E 0D 30 30 33 30 20  |ORBEREITEN.0030 |
00000040: 20 20 4E 4F 54 45 4E 27  4C 45 53 45 4E 0D 30 30  |  NOTEN'LESEN.00|
00000050: 34 30 20 20 20 53 50 49  45 4C 45 4E 0D 30 30 35  |40   SPIELEN.005|
00000060: 30 20 20 20 0D 30 30 36  30 20 20 20 C4 C1 D4 C1  |0   .0060   ....|
00000070: 20 22 47 34 22 2C 38 2C  22 45 34 22 2C 38 2C 22  | "G4",8,"E4",8,"|
00000080: 45 34 22 2C 31 36 2C 22  46 34 22 2C 38 0D 30 30  |E4",16,"F4",8.00|
00000090: 37 30 20 20 20 C4 C1 D4  C1 20 22 44 34 22 2C 38  |70   .... "D4",8|
000000A0: 2C 22 44 34 22 2C 31 36  0D 30 30 38 30 20 20 20  |,"D4",16.0080   |
000000B0: C4 C1 D4 C1 20 22 43 34  22 2C 38 2C 22 44 34 22  |.... "C4",8,"D4"|
000000C0: 2C 38 2C 22 45 34 22 2C  38 2C 22 46 34 22 2C 38  |,8,"E4",8,"F4",8|
000000D0: 0D 30 30 39 30 20 20 20  C4 C1 D4 C1 20 22 47 34  |.0090   .... "G4|
000000E0: 22 2C 38 2C 22 47 34 22  2C 38 2C 22 47 34 22 2C  |",8,"G4",8,"G4",|
000000F0: 31 36 0D 30 31 30 30 20  20 20 C4 C1 D4 C1 20 22  |16.0100   .... "|
00000100: 47 34 22 2C 38 2C 22 45  34 22 2C 38 2C 22 45 34  |G4",8,"E4",8,"E4|
00000110: 22 2C 31 36 2C 22 46 34  22 2C 38 0D 30 31 31 30  |",16,"F4",8.0110|
00000120: 20 20 20 C4 C1 D4 C1 20  22 44 34 22 2C 38 2C 22  |   .... "D4",8,"|
00000130: 44 34 22 2C 31 36 0D 30  31 32 30 20 20 20 C4 C1  |D4",16.0120   ..|
00000140: D4 C1 20 22 43 34 22 2C  38 2C 22 45 34 22 2C 38  |.. "C4",8,"E4",8|
00000150: 2C 22 47 34 22 2C 38 2C  22 47 34 22 2C 38 0D 30  |,"G4",8,"G4",8.0|
00000160: 31 33 30 20 20 20 C4 C1  D4 C1 20 22 43 34 22 2C  |130   .... "C4",|
00000170: 33 32 0D 30 31 34 30 20  20 20 C4 C1 D4 C1 20 22  |32.0140   .... "|
00000180: 44 34 22 2C 38 2C 22 44  34 22 2C 38 2C 22 44 34  |D4",8,"D4",8,"D4|
00000190: 22 2C 38 2C 22 44 34 22  2C 38 0D 30 31 35 30 20  |",8,"D4",8.0150 |
000001A0: 20 20 C4 C1 D4 C1 20 22  44 34 22 2C 38 2C 22 45  |  .... "D4",8,"E|
000001B0: 34 22 2C 38 2C 22 46 34  22 2C 31 36 0D 30 31 36  |4",8,"F4",16.016|
000001C0: 30 20 20 20 C4 C1 D4 C1  20 22 45 34 22 2C 38 2C  |0   .... "E4",8,|
000001D0: 22 45 34 22 2C 38 2C 22  45 34 22 2C 38 2C 22 45  |"E4",8,"E4",8,"E|
000001E0: 34 22 2C 38 0D 30 31 37  30 20 20 20 C4 C1 D4 C1  |4",8.0170   ....|
000001F0: 20 22 45 34 22 2C 38 2C  22 46 34 22 2C 38 2C 22  | "E4",8,"F4",8,"|
00000200: 47 34 22 2C 31 36 0D 30  31 38 30 20 20 20 C4 C1  |G4",16.0180   ..|
00000210: D4 C1 20 22 47 34 22 2C  38 2C 22 45 34 22 2C 38  |.. "G4",8,"E4",8|
00000220: 2C 22 45 34 22 2C 31 36  2C 22 46 34 22 2C 38 0D  |,"E4",16,"F4",8.|
00000230: 30 31 39 30 20 20 20 C4  C1 D4 C1 20 22 44 34 22  |0190   .... "D4"|
00000240: 2C 38 2C 22 44 34 22 2C  31 36 0D 30 32 30 30 20  |,8,"D4",16.0200 |
00000250: 20 20 C4 C1 D4 C1 20 22  43 34 22 2C 38 2C 22 45  |  .... "C4",8,"E|
00000260: 34 22 2C 38 2C 22 47 34  22 2C 38 2C 22 47 34 22  |4",8,"G4",8,"G4"|
00000270: 2C 38 0D 30 32 31 30 20  20 20 C4 C1 D4 C1 20 22  |,8.0210   .... "|
00000280: 43 34 22 2C 33 32 0D 30  32 32 30 20 20 20 0D 30  |C4",32.0220   .0|
00000290: 32 33 30 20 20 20 D0 D2  CF C3 20 56 4F 52 42 45  |230   .... VORBE|
000002A0: 52 45 49 54 45 4E 20 0D  30 32 34 30 20 20 20 20  |REITEN .0240    |
000002B0: 20 D5 D3 C5 20 53 4F 55  4E 44 0D 30 32 35 30 20  | ... SOUND.0250 |
000002C0: 20 20 20 20 C4 C9 CD 20  4E 4F 54 45 4E 23 28 35  |    ... NOTEN#(5|
000002D0: 30 29 2C 20 41 44 53 27  44 41 55 45 52 23 28 35  |0), ADS'DAUER#(5|
000002E0: 30 29 2C 20 52 27 44 41  55 45 52 23 28 35 30 29  |0), R'DAUER#(50)|
000002F0: 0D 30 32 36 30 20 20 20  C5 CE C4 D0 D2 CF C3 20  |.0260   ....... |
00000300: 56 4F 52 42 45 52 45 49  54 45 4E 0D 30 32 37 30  |VORBEREITEN.0270|
00000310: 20 20 20 0D 30 32 38 30  20 20 20 D0 D2 CF C3 20  |   .0280   .... |
00000320: 4E 4F 54 45 4E 27 4C 45  53 45 4E 20 0D 30 32 39  |NOTEN'LESEN .029|
00000330: 30 20 20 20 20 20 4E 52  3A 3D 30 0D 30 33 30 30  |0     NR:=0.0300|
00000340: 20 20 20 20 20 D7 C8 C9  CC C5 20 CE CF D4 20 C5  |     ..... ... .|
00000350: CF C4 20 C4 CF 0D 30 33  31 30 20 20 20 20 20 20  |.. ...0310      |
00000360: 20 D2 C5 C1 C4 20 4E 4F  54 45 4E 57 45 52 54 24  | .... NOTENWERT$|
00000370: 2C 5A 45 49 54 0D 30 33  32 30 20 20 20 20 20 20  |,ZEIT.0320      |
00000380: 20 4E 52 3A 2B 31 0D 30  33 33 30 20 20 20 20 20  | NR:+1.0330     |
00000390: 20 20 4E 4F 54 45 4E 23  28 4E 52 29 3A 3D 46 52  |  NOTEN#(NR):=FR|
000003A0: 45 51 55 45 4E 43 59 28  4E 4F 54 45 4E 57 45 52  |EQUENCY(NOTENWER|
000003B0: 54 24 29 0D 30 33 34 30  20 20 20 20 20 20 20 41  |T$).0340       A|
000003C0: 44 53 27 44 41 55 45 52  23 28 4E 52 29 3A 3D 5A  |DS'DAUER#(NR):=Z|
000003D0: 45 49 54 0D 30 33 35 30  20 20 20 20 20 20 20 52  |EIT.0350       R|
000003E0: 27 44 41 55 45 52 23 28  4E 52 29 3A 3D 5A 45 49  |'DAUER#(NR):=ZEI|
000003F0: 54 0D 30 33 36 30 20 20  20 20 20 C5 CE C4 D7 C8  |T.0360     .....|
00000400: C9 CC C5 20 0D 30 33 37  30 20 20 20 20 20 0D 30  |... .0370     .0|
00000410: 33 38 30 20 20 20 20 20  53 45 54 53 43 4F 52 45  |380     SETSCORE|
00000420: 28 31 2C 4E 4F 54 45 4E  23 28 29 2C 41 44 53 27  |(1,NOTEN#(),ADS'|
00000430: 44 41 55 45 52 23 28 29  2C 52 27 44 41 55 45 52  |DAUER#(),R'DAUER|
00000440: 23 28 29 29 0D 30 33 39  30 20 20 20 C5 CE C4 D0  |#()).0390   ....|
00000450: D2 CF C3 20 4E 4F 54 45  4E 27 4C 45 53 45 4E 0D  |... NOTEN'LESEN.|
00000460: 30 34 30 30 20 20 20 0D  30 34 31 30 20 20 20 D0  |0400   .0410   .|
00000470: D2 CF C3 20 53 50 49 45  4C 45 4E 20 0D 30 34 32  |... SPIELEN .042|
00000480: 30 20 20 20 20 20 50 4C  41 59 53 43 4F 52 45 28  |0     PLAYSCORE(|
00000490: 31 2C 30 2C 30 29 0D 30  34 33 30 20 20 20 C5 CE  |1,0,0).0430   ..|
000004A0: C4 D0 D2 CF C3 20 53 50  49 45 4C 45 4E 0D 30 34  |..... SPIELEN.04|
000004B0: 34 30 20 C5 CE C4 D0 D2  CF C3 20 4D 55 53 49 4B  |40 ....... MUSIK|
000004C0: 0D                                                |.               |

0005 PROC MUSIK CLOSED.0010   USE SOUND.
0020   VORBEREITEN.0030   NOTEN'LESEN.00
40   SPIELEN.0050   .0060   DATA "G4",8,
"E4",8,"E4",16,"F4",8.0070   DATA "D4",8
,"D4",16.0080   DATA "C4",8,"D4",8,"E4",
8,"F4",8.0090   DATA "G4",8,"G4",8,"G4",
16.0100   DATA "G4",8,"E4",8,"E4",16,"F4
",8.0110   DATA "D4",8,"D4",16.0120   DA
TA "C4",8,"E4",8,"G4",8,"G4",8.0130   DA
TA "C4",32.0140   DATA "D4",8,"D4",8,"D4
",8,"D4",8.0150   DATA "D4",8,"E4",8,"F4
",16.0160   DATA "E4",8,"E4",8,"E4",8,"E
4",8.0170   DATA "E4",8,"F4",8,"G4",16.0
180   DATA "G4",8,"E4",8,"E4",16,"F4",8.
0190   DATA "D4",8,"D4",16.0200   DATA "
C4",8,"E4",8,"G4",8,"G4",8.0210   DATA "
C4",32.0220   .0230   PROC VORBEREITEN .
0240     USE SOUND.0250     DIM NOTEN#(5
0), ADS'DAUER#(50), R'DAUER#(50).0260   
ENDPROC VORBEREITEN.0270   .0280   PROC 
NOTEN'LESEN .0290     NR:=0.0300     WHI
LE NOT EOD DO.0310       READ NOTENWERT$
,ZEIT.0320       NR:+1.0330       NOTEN#
(NR):=FREQUENCY(NOTENWERT$).0340       A
DS'DAUER#(NR):=ZEIT.0350       R'DAUER#(
NR):=ZEIT.0360     ENDWHILE .0370     .0
380     SETSCORE(1,NOTEN#(),ADS'DAUER#()
,R'DAUER#()).0390   ENDPROC NOTEN'LESEN.
0400   .0410   PROC SPIELEN .0420     PL
AYSCORE(1,0,0).0430   ENDPROC SPIELEN.04
40 ENDPROC MUSIK.

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL