NEDMUZIEK.LOGO
FILE INFORMATION
FILENAME(S): NEDMUZIEK.LOGO
FILE TYPE(S): PRG
FILE SIZE: 2.1K
FIRST SEEN: 2025-11-30 21:27:28
APPEARS ON: 1 disk(s)
FILE HASH
9c7381573d7312bf23681738f241cc5cb54ac36f95fb004d99298b6c35c05d89
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| HOLLYWOOD II | NEDMUZIEK.LOGO | PRG | DuncanTwain | 7 | 7 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 00 20 54 4F 20 4B 4F 52 54 4A 41 4B 4A 45 0D 20 |. TO KORTJAKJE. | 00000010: 53 54 41 52 31 0D 20 53 54 41 52 32 0D 20 53 54 |STAR1. STAR2. ST| 00000020: 41 52 33 0D 20 53 54 41 52 33 0D 20 53 54 41 52 |AR3. STAR3. STAR| 00000030: 31 0D 20 53 54 41 52 32 0D 45 4E 44 0D 0D 54 4F |1. STAR2.END..TO| 00000040: 20 53 54 41 52 31 0D 20 50 4C 41 59 20 5B 30 20 | STAR1. PLAY [0 | 00000050: 30 20 37 20 37 20 39 20 39 20 37 5D 20 5B 38 20 |0 7 7 9 9 7] [8 | 00000060: 38 20 38 20 38 20 38 20 38 20 32 34 5D 0D 45 4E |8 8 8 8 8 24].EN| 00000070: 44 0D 0D 54 4F 20 53 54 41 52 32 0D 20 50 4C 41 |D..TO STAR2. PLA| 00000080: 59 20 5B 35 20 35 20 34 20 34 20 32 20 32 20 30 |Y [5 5 4 4 2 2 0| 00000090: 5D 20 5B 38 20 38 20 38 20 38 20 38 20 38 20 32 |] [8 8 8 8 8 8 2| 000000A0: 34 5D 0D 45 4E 44 0D 0D 54 4F 20 53 54 41 52 33 |4].END..TO STAR3| 000000B0: 0D 20 50 4C 41 59 20 5B 37 20 37 20 35 20 35 20 |. PLAY [7 7 5 5 | 000000C0: 34 20 34 20 32 5D 20 5B 38 20 38 20 38 20 38 20 |4 4 2] [8 8 8 8 | 000000D0: 38 20 38 20 32 34 5D 0D 45 4E 44 0D 0D 54 4F 20 |8 8 24].END..TO | 000000E0: 4D 0D 20 53 50 45 45 4C 20 5B 30 20 32 20 34 20 |M. SPEEL [0 2 4 | 000000F0: 35 20 37 20 39 20 31 31 20 31 32 5D 20 5B 31 35 |5 7 9 11 12] [15| 00000100: 20 31 35 20 31 35 20 31 35 20 31 35 20 31 35 20 | 15 15 15 15 15 | 00000110: 31 35 20 31 35 5D 0D 45 4E 44 0D 0D 54 4F 20 43 |15 15].END..TO C| 00000120: 0D 20 53 50 45 45 4C 20 5B 30 20 31 20 32 20 33 |. SPEEL [0 1 2 3| 00000130: 20 34 20 35 20 36 20 37 20 38 20 39 20 31 30 20 | 4 5 6 7 8 9 10 | 00000140: 31 31 20 31 32 5D 20 5B 31 35 20 31 35 20 31 35 |11 12] [15 15 15| 00000150: 20 31 35 20 31 35 20 31 35 20 31 35 20 31 35 20 | 15 15 15 15 15 | 00000160: 31 35 20 31 35 20 31 35 20 31 35 20 31 35 5D 0D |15 15 15 15 15].| 00000170: 45 4E 44 0D 0D 54 4F 20 47 4F 4C 46 56 4F 52 4D |END..TO GOLFVORM| 00000180: 20 3A 4E 0D 20 4D 41 4B 45 20 22 57 41 56 45 46 | :N. MAKE "WAVEF| 00000190: 4F 52 4D 20 3A 4E 0D 45 4E 44 0D 0D 54 4F 20 53 |ORM :N.END..TO S| 000001A0: 50 45 45 4C 20 3A 50 20 3A 44 0D 20 49 46 20 45 |PEEL :P :D. IF E| 000001B0: 4D 50 54 59 3F 20 3A 50 20 53 54 4F 50 0D 20 4E |MPTY? :P STOP. N| 000001C0: 4F 54 45 20 46 49 52 53 54 20 3A 50 20 46 49 52 |OTE FIRST :P FIR| 000001D0: 53 54 20 3A 44 0D 20 53 50 45 45 4C 20 42 46 20 |ST :D. SPEEL BF | 000001E0: 3A 50 20 42 46 20 3A 44 0D 45 4E 44 0D 0D 54 4F |:P BF :D.END..TO| 000001F0: 20 5A 49 4E 47 20 3A 50 0D 20 49 46 20 3A 50 20 | ZING :P. IF :P | 00000200: 3D 20 5B 5D 20 53 54 4F 50 0D 20 4E 4F 54 45 20 |= [] STOP. NOTE | 00000210: 46 49 52 53 54 20 3A 50 20 31 30 0D 20 5A 49 4E |FIRST :P 10. ZIN| 00000220: 47 20 42 46 20 3A 50 0D 45 4E 44 0D 0D 54 4F 20 |G BF :P.END..TO | 00000230: 50 55 4C 53 45 20 3A 57 49 44 54 48 0D 20 2E 44 |PULSE :WIDTH. .D| 00000240: 45 50 4F 53 49 54 20 35 34 32 37 35 20 51 55 4F |EPOSIT 54275 QUO| 00000250: 54 49 45 4E 54 20 3A 57 49 44 54 48 20 32 35 36 |TIENT :WIDTH 256| 00000260: 0D 20 2E 44 45 50 4F 53 49 54 20 35 34 32 37 34 |. .DEPOSIT 54274| 00000270: 20 42 49 54 41 4E 44 20 3A 57 49 44 54 48 20 32 | BITAND :WIDTH 2| 00000280: 35 35 0D 45 4E 44 0D 0D 54 4F 20 57 41 56 45 20 |55.END..TO WAVE | 00000290: 3A 4E 0D 20 4D 41 4B 45 20 22 57 41 56 45 46 4F |:N. MAKE "WAVEFO| 000002A0: 52 4D 20 3A 4E 0D 45 4E 44 0D 0D 54 4F 20 50 4C |RM :N.END..TO PL| 000002B0: 41 59 20 3A 50 20 3A 44 0D 20 49 46 20 45 4D 50 |AY :P :D. IF EMP| 000002C0: 54 59 3F 20 3A 50 20 53 54 4F 50 0D 20 4E 4F 54 |TY? :P STOP. NOT| 000002D0: 45 20 46 49 52 53 54 20 3A 50 20 46 49 52 53 54 |E FIRST :P FIRST| 000002E0: 20 3A 44 0D 20 50 4C 41 59 20 42 46 20 3A 50 20 | :D. PLAY BF :P | 000002F0: 42 46 20 3A 44 0D 45 4E 44 0D 0D 54 4F 20 4F 43 |BF :D.END..TO OC| 00000300: 54 20 3A 4E 0D 20 4F 50 20 49 54 45 4D 20 31 20 |T :N. OP ITEM 1 | 00000310: 2B 20 3A 4E 20 5B 30 2E 31 32 35 20 30 2E 32 35 |+ :N [0.125 0.25| 00000320: 20 30 2E 35 20 31 20 32 20 34 20 38 5D 0D 45 4E | 0.5 1 2 4 8].EN| 00000330: 44 0D 0D 54 4F 20 41 54 54 41 43 4B 20 3A 41 0D |D..TO ATTACK :A.| 00000340: 20 4D 41 4B 45 20 22 41 44 20 42 49 54 4F 52 20 | MAKE "AD BITOR | 00000350: 28 20 42 49 54 41 4E 44 20 3A 41 20 31 35 20 29 |( BITAND :A 15 )| 00000360: 20 2A 20 31 36 20 28 20 42 49 54 41 4E 44 20 3A | * 16 ( BITAND :| 00000370: 41 44 20 31 35 20 29 0D 45 4E 44 0D 0D 54 4F 20 |AD 15 ).END..TO | 00000380: 44 45 43 41 59 20 3A 41 0D 20 4D 41 4B 45 20 22 |DECAY :A. MAKE "| 00000390: 41 44 20 42 49 54 4F 52 20 28 20 42 49 54 41 4E |AD BITOR ( BITAN| 000003A0: 44 20 3A 41 20 31 35 20 29 20 28 20 42 49 54 41 |D :A 15 ) ( BITA| 000003B0: 4E 44 20 3A 41 44 20 32 34 30 20 29 0D 45 4E 44 |ND :AD 240 ).END| 000003C0: 0D 0D 54 4F 20 54 45 4D 50 4F 20 3A 4E 0D 20 4D |..TO TEMPO :N. M| 000003D0: 41 4B 45 20 22 54 45 4D 50 4F 20 3A 4E 0D 45 4E |AKE "TEMPO :N.EN| 000003E0: 44 0D 0D 54 4F 20 53 45 54 55 50 0D 20 49 46 20 |D..TO SETUP. IF | 000003F0: 5B 5D 20 3D 20 54 45 58 54 20 22 53 4F 55 4E 44 |[] = TEXT "SOUND| 00000400: 20 52 45 41 44 20 22 53 4F 55 4E 44 0D 20 54 45 | READ "SOUND. TE| 00000410: 4D 50 4F 20 32 30 0D 20 4D 41 4B 45 20 22 41 44 |MPO 20. MAKE "AD| 00000420: 20 39 0D 20 4D 41 4B 45 20 22 53 52 20 30 0D 20 | 9. MAKE "SR 0. | 00000430: 4D 41 4B 45 20 22 57 41 56 45 46 4F 52 4D 20 31 |MAKE "WAVEFORM 1| 00000440: 37 0D 20 4D 41 4B 45 20 22 4F 43 54 41 56 45 20 |7. MAKE "OCTAVE | 00000450: 31 0D 20 4D 41 4B 45 20 22 50 49 54 43 48 45 53 |1. MAKE "PITCHES| 00000460: 20 5B 38 37 37 39 20 39 33 30 31 20 39 38 35 34 | [8779 9301 9854| 00000470: 20 31 30 34 34 30 20 31 31 30 36 30 20 31 31 37 | 10440 11060 117| 00000480: 31 38 20 31 32 34 31 35 20 31 33 31 35 33 20 31 |18 12415 13153 1| 00000490: 33 39 33 35 20 31 34 37 36 34 20 31 35 37 34 32 |3935 14764 15742| 000004A0: 20 31 36 35 37 32 20 31 37 35 35 37 20 31 38 36 | 16572 17557 186| 000004B0: 30 31 5D 0D 45 4E 44 0D 0D 54 4F 20 53 55 53 54 |01].END..TO SUST| 000004C0: 41 49 4E 20 3A 41 0D 20 4D 41 4B 45 20 22 53 52 |AIN :A. MAKE "SR| 000004D0: 20 42 49 54 4F 52 20 28 20 42 49 54 41 4E 44 20 | BITOR ( BITAND | 000004E0: 3A 41 20 31 35 20 29 20 2A 20 31 36 20 28 20 42 |:A 15 ) * 16 ( B| 000004F0: 49 54 41 4E 44 20 3A 53 52 20 31 35 20 29 0D 45 |ITAND :SR 15 ).E| 00000500: 4E 44 0D 0D 54 4F 20 52 45 4C 45 41 53 45 20 3A |ND..TO RELEASE :| 00000510: 41 0D 20 4D 41 4B 45 20 22 53 52 20 42 49 54 4F |A. MAKE "SR BITO| 00000520: 52 20 28 20 42 49 54 41 4E 44 20 3A 41 20 31 35 |R ( BITAND :A 15| 00000530: 20 29 20 28 20 42 49 54 41 4E 44 20 3A 53 52 20 | ) ( BITAND :SR | 00000540: 32 34 30 20 29 0D 45 4E 44 0D 0D 54 4F 20 53 4F |240 ).END..TO SO| 00000550: 55 4E 44 20 3A 50 49 54 43 48 20 3A 44 55 52 20 |UND :PITCH :DUR | 00000560: 3A 41 44 20 3A 53 52 20 3A 57 41 56 45 46 4F 52 |:AD :SR :WAVEFOR| 00000570: 4D 0D 20 2E 44 45 50 4F 53 49 54 20 35 34 32 39 |M. .DEPOSIT 5429| 00000580: 36 20 31 35 0D 20 2E 44 45 50 4F 53 49 54 20 35 |6 15. .DEPOSIT 5| 00000590: 34 32 37 37 20 3A 41 44 0D 20 2E 44 45 50 4F 53 |4277 :AD. .DEPOS| 000005A0: 49 54 20 35 34 32 37 38 20 3A 53 52 0D 20 2E 44 |IT 54278 :SR. .D| 000005B0: 45 50 4F 53 49 54 20 35 34 32 37 33 20 51 55 4F |EPOSIT 54273 QUO| 000005C0: 54 49 45 4E 54 20 3A 50 49 54 43 48 20 32 35 36 |TIENT :PITCH 256| 000005D0: 0D 20 2E 44 45 50 4F 53 49 54 20 35 34 32 37 32 |. .DEPOSIT 54272| 000005E0: 20 42 49 54 41 4E 44 20 3A 50 49 54 43 48 20 32 | BITAND :PITCH 2| 000005F0: 35 35 0D 20 2E 44 45 50 4F 53 49 54 20 35 34 32 |55. .DEPOSIT 542| 00000600: 37 36 20 3A 57 41 56 45 46 4F 52 4D 0D 20 52 45 |76 :WAVEFORM. RE| 00000610: 50 45 41 54 20 3A 44 55 52 20 2A 20 3A 54 45 4D |PEAT :DUR * :TEM| 00000620: 50 4F 20 5B 5D 0D 20 2E 44 45 50 4F 53 49 54 20 |PO []. .DEPOSIT | 00000630: 35 34 32 37 36 20 30 0D 45 4E 44 0D 0D 54 4F 20 |54276 0.END..TO | 00000640: 53 53 48 20 3A 44 0D 20 53 4F 55 4E 44 20 32 30 |SSH :D. SOUND 20| 00000650: 30 30 30 20 3A 44 20 37 20 30 20 31 32 39 0D 45 |000 :D 7 0 129.E| 00000660: 4E 44 0D 0D 54 4F 20 53 53 48 45 52 20 3A 44 55 |ND..TO SSHER :DU| 00000670: 52 53 0D 20 49 46 20 45 4D 50 54 59 3F 20 3A 44 |RS. IF EMPTY? :D| 00000680: 55 52 53 20 53 54 4F 50 0D 20 53 53 48 20 46 49 |URS STOP. SSH FI| 00000690: 52 53 54 20 3A 44 55 52 53 0D 20 53 53 48 45 52 |RST :DURS. SSHER| 000006A0: 20 42 46 20 3A 44 55 52 53 0D 45 4E 44 0D 0D 54 | BF :DURS.END..T| 000006B0: 4F 20 4E 4F 54 45 20 3A 50 20 3A 44 0D 20 49 46 |O NOTE :P :D. IF| 000006C0: 20 3A 50 20 3D 20 22 52 20 52 45 50 45 41 54 20 | :P = "R REPEAT | 000006D0: 3A 54 45 4D 50 4F 20 2A 20 3A 44 20 5B 5D 20 53 |:TEMPO * :D [] S| 000006E0: 54 4F 50 0D 20 4D 41 4B 45 20 22 50 20 3A 50 20 |TOP. MAKE "P :P | 000006F0: 2B 20 32 34 0D 20 53 4F 55 4E 44 20 28 20 49 54 |+ 24. SOUND ( IT| 00000700: 45 4D 20 31 20 2B 20 28 20 52 45 4D 41 49 4E 44 |EM 1 + ( REMAIND| 00000710: 45 52 20 3A 50 20 31 32 20 29 20 3A 50 49 54 43 |ER :P 12 ) :PITC| 00000720: 48 45 53 20 29 20 2A 20 28 20 4F 43 54 20 51 55 |HES ) * ( OCT QU| 00000730: 4F 54 49 45 4E 54 20 3A 50 20 31 32 20 29 20 3A |OTIENT :P 12 ) :| 00000740: 44 20 3A 41 44 20 3A 53 52 20 3A 57 41 56 45 46 |D :AD :SR :WAVEF| 00000750: 4F 52 4D 0D 45 4E 44 0D 0D 54 4F 20 53 49 4E 47 |ORM.END..TO SING| 00000760: 20 3A 50 0D 20 49 46 20 3A 50 20 3D 20 5B 5D 20 | :P. IF :P = [] | 00000770: 53 54 4F 50 0D 20 4E 4F 54 45 20 46 49 52 53 54 |STOP. NOTE FIRST| 00000780: 20 3A 50 20 31 30 0D 20 53 49 4E 47 20 42 46 20 | :P 10. SING BF | 00000790: 3A 50 0D 45 4E 44 0D 0D 4D 41 4B 45 20 22 50 49 |:P.END..MAKE "PI| 000007A0: 54 43 48 45 53 20 5B 38 37 37 39 20 39 33 30 31 |TCHES [8779 9301| 000007B0: 20 39 38 35 34 20 31 30 34 34 30 20 31 31 30 36 | 9854 10440 1106| 000007C0: 30 20 31 31 37 31 38 20 31 32 34 31 35 20 31 33 |0 11718 12415 13| 000007D0: 31 35 33 20 31 33 39 33 35 20 31 34 37 36 34 20 |153 13935 14764 | 000007E0: 31 35 37 34 32 20 31 36 35 37 32 20 31 37 35 35 |15742 16572 1755| 000007F0: 37 20 31 38 36 30 31 5D 0D 4D 41 4B 45 20 22 4F |7 18601].MAKE "O| 00000800: 43 54 41 56 45 20 28 31 29 0D 4D 41 4B 45 20 22 |CTAVE (1).MAKE "| 00000810: 57 41 56 45 46 4F 52 4D 20 28 31 37 29 0D 4D 41 |WAVEFORM (17).MA| 00000820: 4B 45 20 22 41 44 20 28 39 29 0D 4D 41 4B 45 20 |KE "AD (9).MAKE | 00000830: 22 54 45 4D 50 4F 20 28 32 30 29 0D 4D 41 4B 45 |"TEMPO (20).MAKE| 00000840: 20 22 53 52 20 28 30 29 0D 4D 41 4B 45 20 22 53 | "SR (0).MAKE "S| 00000850: 54 41 52 54 55 50 20 5B 53 45 54 55 50 5D 0D |TARTUP [SETUP]. |
. TO KORTJAKJE. STAR1. STAR2. STAR3. STA R3. STAR1. STAR2.END..TO STAR1. PLAY [0 0 7 7 9 9 7] [8 8 8 8 8 8 24].END..TO ST AR2. PLAY [5 5 4 4 2 2 0] [8 8 8 8 8 8 2 4].END..TO STAR3. PLAY [7 7 5 5 4 4 2] [ 8 8 8 8 8 8 24].END..TO M. SPEEL [0 2 4 5 7 9 11 12] [15 15 15 15 15 15 15 15].E ND..TO C. SPEEL [0 1 2 3 4 5 6 7 8 9 10 11 12] [15 15 15 15 15 15 15 15 15 15 15 15 15].END..TO GOLFVORM :N. MAKE "WAVEF ORM :N.END..TO SPEEL :P :D. IF EMPTY? :P STOP. NOTE FIRST :P FIRST :D. SPEEL BF :P BF :D.END..TO ZING :P. IF :P = [] STO P. NOTE FIRST :P 10. ZING BF :P.END..TO PULSE :WIDTH. .DEPOSIT 54275 QUOTIENT :W IDTH 256. .DEPOSIT 54274 BITAND :WIDTH 2 55.END..TO WAVE :N. MAKE "WAVEFORM :N.EN D..TO PLAY :P :D. IF EMPTY? :P STOP. NOT E FIRST :P FIRST :D. PLAY BF :P BF :D.EN D..TO OCT :N. OP ITEM 1 + :N [0.125 0.25 0.5 1 2 4 8].END..TO ATTACK :A. MAKE "A D BITOR ( BITAND :A 15 ) * 16 ( BITAND : AD 15 ).END..TO DECAY :A. MAKE "AD BITOR ( BITAND :A 15 ) ( BITAND :AD 240 ).END ..TO TEMPO :N. MAKE "TEMPO :N.END..TO SE TUP. IF [] = TEXT "SOUND READ "SOUND. TE MPO 20. MAKE "AD 9. MAKE "SR 0. MAKE "WA VEFORM 17. MAKE "OCTAVE 1. MAKE "PITCHES [8779 9301 9854 10440 11060 11718 12415 13153 13935 14764 15742 16572 17557 186 01].END..TO SUSTAIN :A. MAKE "SR BITOR ( BITAND :A 15 ) * 16 ( BITAND :SR 15 ).E ND..TO RELEASE :A. MAKE "SR BITOR ( BITA ND :A 15 ) ( BITAND :SR 240 ).END..TO SO UND :PITCH :DUR :AD :SR :WAVEFORM. .DEPO SIT 54296 15. .DEPOSIT 54277 :AD. .DEPOS IT 54278 :SR. .DEPOSIT 54273 QUOTIENT :P ITCH 256. .DEPOSIT 54272 BITAND :PITCH 2 55. .DEPOSIT 54276 :WAVEFORM. REPEAT :DU R * :TEMPO []. .DEPOSIT 54276 0.END..TO SSH :D. SOUND 20000 :D 7 0 129.END..TO S SHER :DURS. IF EMPTY? :DURS STOP. SSH FI RST :DURS. SSHER BF :DURS.END..TO NOTE : P :D. IF :P = "R REPEAT :TEMPO * :D [] S TOP. MAKE "P :P + 24. SOUND ( ITEM 1 + ( REMAINDER :P 12 ) :PITCHES ) * ( OCT QU OTIENT :P 12 ) :D :AD :SR :WAVEFORM.END. .TO SING :P. IF :P = [] STOP. NOTE FIRST :P 10. SING BF :P.END..MAKE "PITCHES [8 779 9301 9854 10440 11060 11718 12415 13 153 13935 14764 15742 16572 17557 18601] .MAKE "OCTAVE (1).MAKE "WAVEFORM (17).MA KE "AD (9).MAKE "TEMPO (20).MAKE "SR (0) .MAKE "STARTUP [SETUP].
> CLICK IMAGE PREVIEW FOR FULL MODAL