LOGOMUZIEK.LOGO
FILE INFORMATION
FILENAME(S): LOGOMUZIEK.LOGO
FILE TYPE(S): PRG
FILE SIZE: 3.1K
FIRST SEEN: 2025-11-30 21:11:01
APPEARS ON: 1 disk(s)
FILE HASH
fb0c4e0892e3a28a76755549f1c65b48c98a7cb3980d1bcead1864cbb6665aa8
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| LOGO | LOGOMUZIEK.LOGO | PRG | DuncanTwain | 21 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 00 20 54 4F 20 47 45 53 4A 4A 4A 20 3A 44 55 52 |. TO GESJJJ :DUR| 00000010: 45 4E 0D 20 41 4C 53 20 4C 45 45 47 3F 20 3A 44 |EN. ALS LEEG? :D| 00000020: 55 52 45 4E 20 44 41 4E 20 53 54 4F 50 0D 20 53 |UREN DAN STOP. S| 00000030: 4A 4A 4A 20 45 45 52 53 54 45 20 3A 44 55 52 45 |JJJ EERSTE :DURE| 00000040: 4E 0D 20 47 45 53 4A 4A 4A 20 4D 45 20 3A 44 55 |N. GESJJJ ME :DU| 00000050: 52 45 4E 0D 45 4E 44 0D 0D 54 4F 20 53 4A 4A 4A |REN.END..TO SJJJ| 00000060: 20 3A 44 55 55 52 0D 20 4B 4C 41 4E 4B 20 39 20 | :DUUR. KLANK 9 | 00000070: 35 20 30 20 30 20 31 32 39 20 54 4F 4F 4E 20 5B |5 0 0 129 TOON [| 00000080: 43 5D 20 3A 44 55 55 52 0D 45 4E 44 0D 0D 54 4F |C] :DUUR.END..TO| 00000090: 20 46 4C 55 49 54 0D 20 4D 41 41 4B 20 22 41 44 | FLUIT. MAAK "AD| 000000A0: 20 31 33 35 20 4D 41 41 4B 20 22 53 52 20 31 35 | 135 MAAK "SR 15| 000000B0: 20 4D 41 41 4B 20 22 47 4F 4C 46 20 31 37 0D 45 | MAAK "GOLF 17.E| 000000C0: 4E 44 0D 0D 54 4F 20 42 41 4E 4A 4F 0D 20 4D 41 |ND..TO BANJO. MA| 000000D0: 41 4B 20 22 41 44 20 39 20 4D 41 41 4B 20 22 53 |AK "AD 9 MAAK "S| 000000E0: 52 20 30 20 4D 41 41 4B 20 22 47 4F 4C 46 20 36 |R 0 MAAK "GOLF 6| 000000F0: 35 20 4D 41 41 4B 20 22 48 50 20 31 30 20 4D 41 |5 MAAK "HP 10 MA| 00000100: 41 4B 20 22 4C 50 20 31 30 0D 45 4E 44 0D 0D 54 |AK "LP 10.END..T| 00000110: 4F 20 58 59 4C 4F 46 4F 4F 4E 0D 20 4D 41 41 4B |O XYLOFOON. MAAK| 00000120: 20 22 41 44 20 32 34 20 4D 41 41 4B 20 22 53 52 | "AD 24 MAAK "SR| 00000130: 20 31 35 20 4D 41 41 4B 20 22 47 4F 4C 46 20 31 | 15 MAAK "GOLF 1| 00000140: 37 0D 45 4E 44 0D 0D 54 4F 20 50 49 41 4E 4F 0D |7.END..TO PIANO.| 00000150: 20 4D 41 41 4B 20 22 41 44 20 31 32 20 4D 41 41 | MAAK "AD 12 MAA| 00000160: 4B 20 22 53 52 20 31 32 20 4D 41 41 4B 20 22 47 |K "SR 12 MAAK "G| 00000170: 4F 4C 46 20 33 33 0D 45 4E 44 0D 0D 54 4F 20 4B |OLF 33.END..TO K| 00000180: 4C 41 4E 4B 20 3A 41 54 54 20 3A 44 45 43 20 3A |LANK :ATT :DEC :| 00000190: 53 55 53 20 3A 52 45 4C 20 3A 47 4F 4C 46 56 4F |SUS :REL :GOLFVO| 000001A0: 52 4D 0D 20 41 4C 53 20 28 20 45 45 4E 56 41 4E |RM. ALS ( EENVAN| 000001B0: 20 3A 41 54 54 20 3C 20 30 20 3A 44 45 43 20 3C | :ATT < 0 :DEC <| 000001C0: 20 30 20 3A 53 55 53 20 3C 20 30 20 3A 52 45 4C | 0 :SUS < 0 :REL| 000001D0: 20 3C 20 30 20 3A 41 54 54 20 3E 20 31 35 20 3A | < 0 :ATT > 15 :| 000001E0: 44 45 43 20 3E 20 31 35 20 3A 53 55 53 20 3E 20 |DEC > 15 :SUS > | 000001F0: 31 35 20 3A 52 45 4C 20 3E 20 31 35 20 29 20 44 |15 :REL > 15 ) D| 00000200: 41 4E 20 50 52 20 5B 47 45 54 41 4C 4C 45 4E 20 |AN PR [GETALLEN | 00000210: 4D 4F 45 54 45 4E 20 54 55 53 53 45 4E 20 30 20 |MOETEN TUSSEN 0 | 00000220: 45 4E 20 31 35 5D 0D 20 4D 41 41 4B 20 22 41 44 |EN 15]. MAAK "AD| 00000230: 20 42 49 54 4F 52 20 28 20 42 49 54 41 4E 44 20 | BITOR ( BITAND | 00000240: 3A 41 54 54 20 31 35 20 29 20 2A 20 31 36 20 28 |:ATT 15 ) * 16 (| 00000250: 20 42 49 54 41 4E 44 20 3A 41 44 20 31 35 20 29 | BITAND :AD 15 )| 00000260: 0D 20 4D 41 41 4B 20 22 41 44 20 42 49 54 4F 52 |. MAAK "AD BITOR| 00000270: 20 28 20 42 49 54 41 4E 44 20 3A 44 45 43 20 31 | ( BITAND :DEC 1| 00000280: 35 20 29 20 28 20 42 49 54 41 4E 44 20 3A 41 44 |5 ) ( BITAND :AD| 00000290: 20 32 34 30 20 29 0D 20 4D 41 41 4B 20 22 53 52 | 240 ). MAAK "SR| 000002A0: 20 42 49 54 4F 52 20 28 20 42 49 54 41 4E 44 20 | BITOR ( BITAND | 000002B0: 3A 53 55 53 20 31 35 20 29 20 2A 20 31 36 20 28 |:SUS 15 ) * 16 (| 000002C0: 20 42 49 54 41 4E 44 20 3A 53 52 20 31 35 20 29 | BITAND :SR 15 )| 000002D0: 0D 20 4D 41 41 4B 20 22 53 52 20 42 49 54 4F 52 |. MAAK "SR BITOR| 000002E0: 20 28 20 42 49 54 41 4E 44 20 3A 52 45 4C 20 31 | ( BITAND :REL 1| 000002F0: 35 20 29 20 28 20 42 49 54 41 4E 44 20 3A 53 52 |5 ) ( BITAND :SR| 00000300: 20 32 34 30 20 29 0D 20 4D 41 41 4B 20 22 47 4F | 240 ). MAAK "GO| 00000310: 4C 46 20 3A 47 4F 4C 46 56 4F 52 4D 0D 45 4E 44 |LF :GOLFVORM.END| 00000320: 0D 0D 54 4F 20 47 45 4C 55 49 44 20 3A 4E 4F 4F |..TO GELUID :NOO| 00000330: 54 20 3A 44 55 55 52 20 3A 41 44 20 3A 53 52 20 |T :DUUR :AD :SR | 00000340: 3A 47 4F 4C 46 0D 20 2E 44 45 50 4F 53 49 54 20 |:GOLF. .DEPOSIT | 00000350: 35 34 32 39 36 20 31 35 0D 20 2E 44 45 50 4F 53 |54296 15. .DEPOS| 00000360: 49 54 20 35 34 32 37 37 20 3A 41 44 0D 20 2E 44 |IT 54277 :AD. .D| 00000370: 45 50 4F 53 49 54 20 35 34 32 37 38 20 3A 53 52 |EPOSIT 54278 :SR| 00000380: 0D 20 2E 44 45 50 4F 53 49 54 20 35 34 32 37 33 |. .DEPOSIT 54273| 00000390: 20 51 55 4F 54 49 45 4E 54 20 3A 4E 4F 4F 54 20 | QUOTIENT :NOOT | 000003A0: 32 35 36 0D 20 2E 44 45 50 4F 53 49 54 20 35 34 |256. .DEPOSIT 54| 000003B0: 32 37 32 20 42 49 54 41 4E 44 20 3A 4E 4F 4F 54 |272 BITAND :NOOT| 000003C0: 20 32 35 35 0D 20 2E 44 45 50 4F 53 49 54 20 35 | 255. .DEPOSIT 5| 000003D0: 34 32 37 36 20 3A 47 4F 4C 46 0D 20 41 4C 53 20 |4276 :GOLF. ALS | 000003E0: 3A 47 4F 4C 46 20 3D 20 36 35 20 44 41 4E 20 2E |:GOLF = 65 DAN .| 000003F0: 44 45 50 4F 53 49 54 20 35 34 32 37 34 20 3A 4C |DEPOSIT 54274 :L| 00000400: 50 20 2E 44 45 50 4F 53 49 54 20 35 34 32 37 35 |P .DEPOSIT 54275| 00000410: 20 3A 48 50 0D 20 48 45 52 48 41 41 4C 20 3A 44 | :HP. HERHAAL :D| 00000420: 55 55 52 20 2A 20 3A 54 45 4D 50 4F 20 5B 5D 0D |UUR * :TEMPO [].| 00000430: 20 2E 44 45 50 4F 53 49 54 20 35 34 32 37 36 20 | .DEPOSIT 54276 | 00000440: 30 0D 45 4E 44 0D 0D 54 4F 20 54 4F 4F 4E 20 3A |0.END..TO TOON :| 00000450: 4E 4F 4F 54 20 3A 44 55 55 52 0D 20 4C 4F 4B 41 |NOOT :DUUR. LOKA| 00000460: 41 4C 20 22 4E 54 0D 20 41 4C 53 20 4C 49 4A 53 |AL "NT. ALS LIJS| 00000470: 54 3F 20 3A 4E 4F 4F 54 20 4D 41 41 4B 20 22 4E |T? :NOOT MAAK "N| 00000480: 4F 4F 54 20 45 45 52 53 54 45 20 3A 4E 4F 4F 54 |OOT EERSTE :NOOT| 00000490: 0D 20 41 4C 53 20 28 20 45 45 4E 56 41 4E 20 3A |. ALS ( EENVAN :| 000004A0: 4E 4F 4F 54 20 3D 20 22 52 20 3A 4E 4F 4F 54 20 |NOOT = "R :NOOT | 000004B0: 3D 20 22 2D 20 29 20 44 41 4E 20 48 45 52 48 41 |= "- ) DAN HERHA| 000004C0: 41 4C 20 3A 54 45 4D 50 4F 20 2A 20 3A 44 55 55 |AL :TEMPO * :DUU| 000004D0: 52 20 5B 5D 20 53 54 4F 50 0D 20 4D 41 41 4B 20 |R [] STOP. MAAK | 000004E0: 22 4E 54 20 3A 4E 4F 4F 54 0D 20 41 4C 53 20 4E |"NT :NOOT. ALS N| 000004F0: 49 45 54 20 47 45 54 41 4C 3F 20 3A 4E 54 20 44 |IET GETAL? :NT D| 00000500: 41 4E 20 4D 41 41 4B 20 22 4E 54 20 54 4F 4F 4E |AN MAAK "NT TOON| 00000510: 4F 43 54 20 2B 20 54 4F 4F 4E 4F 43 54 20 2B 20 |OCT + TOONOCT + | 00000520: 57 41 41 52 44 45 20 3A 4E 54 0D 20 4D 41 41 4B |WAARDE :NT. MAAK| 00000530: 20 22 4E 54 20 3A 4E 54 20 2B 20 31 32 20 2A 20 | "NT :NT + 12 * | 00000540: 28 20 31 20 2B 20 3A 4F 43 54 41 41 46 20 29 0D |( 1 + :OCTAAF ).| 00000550: 20 41 4C 53 20 3A 4E 54 20 3E 20 37 30 20 44 41 | ALS :NT > 70 DA| 00000560: 4E 20 50 52 20 53 41 4D 45 4E 20 3A 4E 4F 4F 54 |N PR SAMEN :NOOT| 00000570: 20 5B 49 53 20 54 45 20 48 4F 4F 47 5D 20 53 54 | [IS TE HOOG] ST| 00000580: 4F 50 0D 20 41 4C 53 20 3A 4E 54 20 3C 20 30 20 |OP. ALS :NT < 0 | 00000590: 44 41 4E 20 50 52 20 53 41 4D 45 4E 20 3A 4E 4F |DAN PR SAMEN :NO| 000005A0: 4F 54 20 5B 49 53 20 54 45 20 4C 41 41 47 5D 20 |OT [IS TE LAAG] | 000005B0: 53 54 4F 50 0D 20 47 45 4C 55 49 44 20 28 20 45 |STOP. GELUID ( E| 000005C0: 4C 45 4D 45 4E 54 20 31 20 2B 20 28 20 52 45 53 |LEMENT 1 + ( RES| 000005D0: 54 20 3A 4E 54 20 31 32 20 29 20 3A 4C 41 44 44 |T :NT 12 ) :LADD| 000005E0: 45 52 20 29 20 2A 20 28 20 45 4C 45 4D 45 4E 54 |ER ) * ( ELEMENT| 000005F0: 20 31 20 2B 20 28 20 51 55 4F 54 49 45 4E 54 20 | 1 + ( QUOTIENT | 00000600: 3A 4E 54 20 31 32 20 29 20 5B 30 2E 31 32 35 20 |:NT 12 ) [0.125 | 00000610: 30 2E 32 35 20 30 2E 35 20 31 20 32 20 34 20 38 |0.25 0.5 1 2 4 8| 00000620: 5D 20 29 20 3A 44 55 55 52 20 3A 41 44 20 3A 53 |] ) :DUUR :AD :S| 00000630: 52 20 3A 47 4F 4C 46 0D 45 4E 44 0D 0D 54 4F 20 |R :GOLF.END..TO | 00000640: 53 50 45 45 4C 20 3A 4E 4F 54 45 4E 20 3A 44 55 |SPEEL :NOTEN :DU| 00000650: 52 45 4E 0D 20 41 4C 53 20 4C 45 45 47 3F 20 3A |REN. ALS LEEG? :| 00000660: 4E 4F 54 45 4E 20 53 54 4F 50 0D 20 54 4F 4F 4E |NOTEN STOP. TOON| 00000670: 20 45 45 52 53 54 45 20 3A 4E 4F 54 45 4E 20 45 | EERSTE :NOTEN E| 00000680: 45 52 53 54 45 20 3A 44 55 52 45 4E 0D 20 53 50 |ERSTE :DUREN. SP| 00000690: 45 45 4C 20 4D 45 20 3A 4E 4F 54 45 4E 20 4D 45 |EEL ME :NOTEN ME| 000006A0: 20 3A 44 55 52 45 4E 0D 45 4E 44 0D 0D 54 4F 20 | :DUREN.END..TO | 000006B0: 5A 49 4E 47 20 3A 4E 4F 54 45 4E 0D 20 41 4C 53 |ZING :NOTEN. ALS| 000006C0: 20 3A 4E 4F 54 45 4E 20 3D 20 5B 5D 20 44 41 4E | :NOTEN = [] DAN| 000006D0: 20 53 54 4F 50 0D 20 54 4F 4F 4E 20 45 45 52 53 | STOP. TOON EERS| 000006E0: 54 45 20 3A 4E 4F 54 45 4E 20 31 30 0D 20 5A 49 |TE :NOTEN 10. ZI| 000006F0: 4E 47 20 4D 45 20 3A 4E 4F 54 45 4E 0D 45 4E 44 |NG ME :NOTEN.END| 00000700: 0D 0D 54 4F 20 54 4F 4F 4E 4F 43 54 0D 20 41 4C |..TO TOONOCT. AL| 00000710: 53 20 4C 41 41 54 53 54 45 20 3A 4E 54 20 3D 20 |S LAATSTE :NT = | 00000720: 22 2B 20 4D 41 41 4B 20 22 4E 54 20 4D 4C 20 3A |"+ MAAK "NT ML :| 00000730: 4E 54 20 52 45 53 20 31 32 0D 20 41 4C 53 20 4C |NT RES 12. ALS L| 00000740: 41 41 54 53 54 45 20 3A 4E 54 20 3D 20 22 2D 20 |AATSTE :NT = "- | 00000750: 4D 41 41 4B 20 22 4E 54 20 4D 4C 20 3A 4E 54 20 |MAAK "NT ML :NT | 00000760: 52 45 53 20 2D 20 31 32 0D 20 52 45 53 20 30 0D |RES - 12. RES 0.| 00000770: 45 4E 44 0D 0D 54 4F 20 21 4D 0D 20 57 45 47 20 |END..TO !M. WEG | 00000780: 50 55 4C 53 20 57 45 47 20 54 4F 4F 4E 4F 43 54 |PULS WEG TOONOCT| 00000790: 20 57 45 47 20 4F 43 54 41 41 46 20 57 45 47 20 | WEG OCTAAF WEG | 000007A0: 47 4F 4C 46 20 57 45 47 20 54 45 4D 50 4F 0D 20 |GOLF WEG TEMPO. | 000007B0: 57 45 47 20 5A 49 4E 47 20 57 45 47 20 53 50 45 |WEG ZING WEG SPE| 000007C0: 45 4C 20 57 45 47 20 54 4F 4F 4E 20 57 45 47 20 |EL WEG TOON WEG | 000007D0: 47 45 4C 55 49 44 20 57 45 47 20 4B 4C 41 4E 4B |GELUID WEG KLANK| 000007E0: 20 57 45 47 20 5A 45 54 4F 50 0D 20 57 45 47 20 | WEG ZETOP. WEG | 000007F0: 50 49 41 4E 4F 20 57 45 47 20 58 59 4C 4F 46 4F |PIANO WEG XYLOFO| 00000800: 4F 4E 20 57 45 47 20 42 41 4E 4A 4F 20 57 45 47 |ON WEG BANJO WEG| 00000810: 20 46 4C 55 49 54 20 57 45 47 20 53 4A 4A 4A 20 | FLUIT WEG SJJJ | 00000820: 57 45 47 20 47 45 53 4A 4A 4A 20 57 45 47 20 4E |WEG GESJJJ WEG N| 00000830: 41 4D 45 4E 20 57 45 47 20 21 4D 20 2E 47 43 4F |AMEN WEG !M .GCO| 00000840: 4C 4C 20 50 52 20 2E 4E 4F 44 45 53 0D 45 4E 44 |LL PR .NODES.END| 00000850: 0D 0D 54 4F 20 50 55 4C 53 20 3A 42 52 45 45 44 |..TO PULS :BREED| 00000860: 54 45 0D 20 2E 44 45 50 4F 53 49 54 20 35 34 32 |TE. .DEPOSIT 542| 00000870: 37 35 20 51 55 4F 54 49 45 4E 54 20 3A 42 52 45 |75 QUOTIENT :BRE| 00000880: 45 44 54 45 20 32 35 36 0D 20 2E 44 45 50 4F 53 |EDTE 256. .DEPOS| 00000890: 49 54 20 35 34 32 37 34 20 42 49 54 41 4E 44 20 |IT 54274 BITAND | 000008A0: 3A 42 52 45 45 44 54 45 20 32 35 35 0D 45 4E 44 |:BREEDTE 255.END| 000008B0: 0D 0D 54 4F 20 4F 43 54 41 41 46 20 3A 4E 0D 20 |..TO OCTAAF :N. | 000008C0: 41 4C 53 20 3A 4E 20 3D 20 22 2B 20 4D 41 41 4B |ALS :N = "+ MAAK| 000008D0: 20 22 4F 43 54 41 41 46 20 3A 4F 43 54 41 41 46 | "OCTAAF :OCTAAF| 000008E0: 20 2B 20 31 20 53 54 4F 50 0D 20 41 4C 53 20 3A | + 1 STOP. ALS :| 000008F0: 4E 20 3D 20 22 2D 20 4D 41 41 4B 20 22 4F 43 54 |N = "- MAAK "OCT| 00000900: 41 41 46 20 3A 4F 43 54 41 41 46 20 2D 20 31 20 |AAF :OCTAAF - 1 | 00000910: 53 54 4F 50 0D 20 41 4C 53 20 45 45 4E 56 41 4E |STOP. ALS EENVAN| 00000920: 20 3A 4E 20 3C 20 2D 20 32 20 3A 4E 20 3E 20 34 | :N < - 2 :N > 4| 00000930: 20 50 52 20 5B 4B 41 4E 20 4E 49 45 54 5D 0D 20 | PR [KAN NIET]. | 00000940: 4D 41 41 4B 20 22 4F 43 54 41 41 46 20 3A 4E 0D |MAAK "OCTAAF :N.| 00000950: 45 4E 44 0D 0D 54 4F 20 47 4F 4C 46 20 3A 4E 0D |END..TO GOLF :N.| 00000960: 20 4D 41 41 4B 20 22 47 4F 4C 46 20 3A 4E 0D 45 | MAAK "GOLF :N.E| 00000970: 4E 44 0D 0D 54 4F 20 54 45 4D 50 4F 20 3A 4E 0D |ND..TO TEMPO :N.| 00000980: 20 4D 41 41 4B 20 22 54 45 4D 50 4F 20 3A 4E 0D | MAAK "TEMPO :N.| 00000990: 45 4E 44 0D 0D 54 4F 20 5A 45 54 4F 50 0D 20 54 |END..TO ZETOP. T| 000009A0: 45 4D 50 4F 20 32 30 0D 20 4D 41 41 4B 20 22 41 |EMPO 20. MAAK "A| 000009B0: 44 20 39 0D 20 4D 41 41 4B 20 22 53 52 20 30 0D |D 9. MAAK "SR 0.| 000009C0: 20 4D 41 41 4B 20 22 47 4F 4C 46 20 31 37 0D 20 | MAAK "GOLF 17. | 000009D0: 4D 41 41 4B 20 22 4F 43 54 41 41 46 20 31 0D 20 |MAAK "OCTAAF 1. | 000009E0: 4D 41 41 4B 20 22 48 50 20 31 35 0D 20 4D 41 41 |MAAK "HP 15. MAA| 000009F0: 4B 20 22 4C 50 20 31 35 0D 20 4D 41 41 4B 20 22 |K "LP 15. MAAK "| 00000A00: 4C 41 44 44 45 52 20 5B 38 37 37 39 20 39 33 30 |LADDER [8779 930| 00000A10: 31 20 39 38 35 34 20 31 30 34 34 30 20 31 31 30 |1 9854 10440 110| 00000A20: 36 30 20 31 31 37 31 38 20 31 32 34 31 35 20 31 |60 11718 12415 1| 00000A30: 33 31 35 33 20 31 33 39 33 35 20 31 34 37 36 34 |3153 13935 14764| 00000A40: 20 31 35 37 34 32 20 31 36 35 37 32 20 31 37 35 | 15742 16572 175| 00000A50: 35 37 20 31 38 36 30 31 5D 0D 20 4D 41 41 4B 20 |57 18601]. MAAK | 00000A60: 22 41 20 39 0D 20 4D 41 41 4B 20 22 42 20 31 31 |"A 9. MAAK "B 11| 00000A70: 0D 20 4D 41 41 4B 20 22 43 20 30 0D 20 4D 41 41 |. MAAK "C 0. MAA| 00000A80: 4B 20 22 44 20 32 0D 20 4D 41 41 4B 20 22 45 20 |K "D 2. MAAK "E | 00000A90: 34 0D 20 4D 41 41 4B 20 22 46 20 35 0D 20 4D 41 |4. MAAK "F 5. MA| 00000AA0: 41 4B 20 22 47 20 37 0D 20 4D 41 41 4B 20 22 41 |AK "G 7. MAAK "A| 00000AB0: 49 53 20 31 30 0D 20 4D 41 41 4B 20 22 42 45 53 |IS 10. MAAK "BES| 00000AC0: 20 31 30 0D 20 4D 41 41 4B 20 22 43 49 53 20 31 | 10. MAAK "CIS 1| 00000AD0: 0D 20 4D 41 41 4B 20 22 44 49 53 20 33 0D 20 4D |. MAAK "DIS 3. M| 00000AE0: 41 41 4B 20 22 46 49 53 20 36 0D 20 4D 41 41 4B |AAK "FIS 6. MAAK| 00000AF0: 20 22 47 49 53 20 38 0D 45 4E 44 0D 0D 4D 41 41 | "GIS 8.END..MAA| 00000B00: 4B 20 22 47 49 53 20 28 38 29 0D 4D 41 41 4B 20 |K "GIS (8).MAAK | 00000B10: 22 46 49 53 20 28 36 29 0D 4D 41 41 4B 20 22 44 |"FIS (6).MAAK "D| 00000B20: 49 53 20 28 33 29 0D 4D 41 41 4B 20 22 43 49 53 |IS (3).MAAK "CIS| 00000B30: 20 28 31 29 0D 4D 41 41 4B 20 22 42 45 53 20 28 | (1).MAAK "BES (| 00000B40: 31 30 29 0D 4D 41 41 4B 20 22 41 49 53 20 28 31 |10).MAAK "AIS (1| 00000B50: 30 29 0D 4D 41 41 4B 20 22 47 20 28 37 29 0D 4D |0).MAAK "G (7).M| 00000B60: 41 41 4B 20 22 46 20 28 35 29 0D 4D 41 41 4B 20 |AAK "F (5).MAAK | 00000B70: 22 45 20 28 34 29 0D 4D 41 41 4B 20 22 44 20 28 |"E (4).MAAK "D (| 00000B80: 32 29 0D 4D 41 41 4B 20 22 43 20 28 30 29 0D 4D |2).MAAK "C (0).M| 00000B90: 41 41 4B 20 22 42 20 28 31 31 29 0D 4D 41 41 4B |AAK "B (11).MAAK| 00000BA0: 20 22 41 20 28 39 29 0D 4D 41 41 4B 20 22 4C 41 | "A (9).MAAK "LA| 00000BB0: 44 44 45 52 20 5B 38 37 37 39 20 39 33 30 31 20 |DDER [8779 9301 | 00000BC0: 39 38 35 34 20 31 30 34 34 30 20 31 31 30 36 30 |9854 10440 11060| 00000BD0: 20 31 31 37 31 38 20 31 32 34 31 35 20 31 33 31 | 11718 12415 131| 00000BE0: 35 33 20 31 33 39 33 35 20 31 34 37 36 34 20 31 |53 13935 14764 1| 00000BF0: 35 37 34 32 20 31 36 35 37 32 20 31 37 35 35 37 |5742 16572 17557| 00000C00: 20 31 38 36 30 31 5D 0D 4D 41 41 4B 20 22 4C 50 | 18601].MAAK "LP| 00000C10: 20 28 31 35 29 0D 4D 41 41 4B 20 22 48 50 20 28 | (15).MAAK "HP (| 00000C20: 31 35 29 0D 4D 41 41 4B 20 22 4F 43 54 41 41 46 |15).MAAK "OCTAAF| 00000C30: 20 28 31 29 0D 4D 41 41 4B 20 22 47 4F 4C 46 20 | (1).MAAK "GOLF | 00000C40: 28 36 35 29 0D 4D 41 41 4B 20 22 53 52 20 28 36 |(65).MAAK "SR (6| 00000C50: 39 29 0D 4D 41 41 4B 20 22 41 44 20 28 31 39 29 |9).MAAK "AD (19)| 00000C60: 0D 4D 41 41 4B 20 22 54 45 4D 50 4F 20 28 32 30 |.MAAK "TEMPO (20| 00000C70: 29 0D 4D 41 41 4B 20 22 53 54 41 52 54 4F 50 20 |).MAAK "STARTOP | 00000C80: 5B 5A 45 54 4F 50 5D 0D |[ZETOP]. |
. TO GESJJJ :DUREN. ALS LEEG? :DUREN DAN STOP. SJJJ EERSTE :DUREN. GESJJJ ME :DU REN.END..TO SJJJ :DUUR. KLANK 9 5 0 0 12 9 TOON [C] :DUUR.END..TO FLUIT. MAAK "AD 135 MAAK "SR 15 MAAK "GOLF 17.END..TO B ANJO. MAAK "AD 9 MAAK "SR 0 MAAK "GOLF 6 5 MAAK "HP 10 MAAK "LP 10.END..TO XYLOFO ON. MAAK "AD 24 MAAK "SR 15 MAAK "GOLF 1 7.END..TO PIANO. MAAK "AD 12 MAAK "SR 12 MAAK "GOLF 33.END..TO KLANK :ATT :DEC : SUS :REL :GOLFVORM. ALS ( EENVAN :ATT < 0 :DEC < 0 :SUS < 0 :REL < 0 :ATT > 15 : DEC > 15 :SUS > 15 :REL > 15 ) DAN PR [G ETALLEN MOETEN TUSSEN 0 EN 15]. MAAK "AD BITOR ( BITAND :ATT 15 ) * 16 ( BITAND :AD 15 ). MAAK "AD BITOR ( BITAND :DEC 1 5 ) ( BITAND :AD 240 ). MAAK "SR BITOR ( BITAND :SUS 15 ) * 16 ( BITAND :SR 15 ) . MAAK "SR BITOR ( BITAND :REL 15 ) ( BI TAND :SR 240 ). MAAK "GOLF :GOLFVORM.END ..TO GELUID :NOOT :DUUR :AD :SR :GOLF. . DEPOSIT 54296 15. .DEPOSIT 54277 :AD. .D EPOSIT 54278 :SR. .DEPOSIT 54273 QUOTIEN T :NOOT 256. .DEPOSIT 54272 BITAND :NOOT 255. .DEPOSIT 54276 :GOLF. ALS :GOLF = 65 DAN .DEPOSIT 54274 :LP .DEPOSIT 54275 :HP. HERHAAL :DUUR * :TEMPO []. .DEPOSI T 54276 0.END..TO TOON :NOOT :DUUR. LOKA AL "NT. ALS LIJST? :NOOT MAAK "NOOT EERS TE :NOOT. ALS ( EENVAN :NOOT = "R :NOOT = "- ) DAN HERHAAL :TEMPO * :DUUR [] STO P. MAAK "NT :NOOT. ALS NIET GETAL? :NT D AN MAAK "NT TOONOCT + TOONOCT + WAARDE : NT. MAAK "NT :NT + 12 * ( 1 + :OCTAAF ). ALS :NT > 70 DAN PR SAMEN :NOOT [IS TE HOOG] STOP. ALS :NT < 0 DAN PR SAMEN :NO OT [IS TE LAAG] STOP. GELUID ( ELEMENT 1 + ( REST :NT 12 ) :LADDER ) * ( ELEMENT 1 + ( QUOTIENT :NT 12 ) [0.125 0.25 0.5 1 2 4 8] ) :DUUR :AD :SR :GOLF.END..TO SPEEL :NOTEN :DUREN. ALS LEEG? :NOTEN ST OP. TOON EERSTE :NOTEN EERSTE :DUREN. SP EEL ME :NOTEN ME :DUREN.END..TO ZING :NO TEN. ALS :NOTEN = [] DAN STOP. TOON EERS TE :NOTEN 10. ZING ME :NOTEN.END..TO TOO NOCT. ALS LAATSTE :NT = "+ MAAK "NT ML : NT RES 12. ALS LAATSTE :NT = "- MAAK "NT ML :NT RES - 12. RES 0.END..TO !M. WEG PULS WEG TOONOCT WEG OCTAAF WEG GOLF WEG TEMPO. WEG ZING WEG SPEEL WEG TOON WEG GELUID WEG KLANK WEG ZETOP. WEG PIANO WE G XYLOFOON WEG BANJO WEG FLUIT WEG SJJJ WEG GESJJJ WEG NAMEN WEG !M .GCOLL PR .N ODES.END..TO PULS :BREEDTE. .DEPOSIT 542 75 QUOTIENT :BREEDTE 256. .DEPOSIT 54274 BITAND :BREEDTE 255.END..TO OCTAAF :N. ALS :N = "+ MAAK "OCTAAF :OCTAAF + 1 STO P. ALS :N = "- MAAK "OCTAAF :OCTAAF - 1 STOP. ALS EENVAN :N < - 2 :N > 4 PR [KAN NIET]. MAAK "OCTAAF :N.END..TO GOLF :N. MAAK "GOLF :N.END..TO TEMPO :N. MAAK "T EMPO :N.END..TO ZETOP. TEMPO 20. MAAK "A D 9. MAAK "SR 0. MAAK "GOLF 17. MAAK "OC TAAF 1. MAAK "HP 15. MAAK "LP 15. MAAK " LADDER [8779 9301 9854 10440 11060 11718 12415 13153 13935 14764 15742 16572 175 57 18601]. MAAK "A 9. MAAK "B 11. MAAK " C 0. MAAK "D 2. MAAK "E 4. MAAK "F 5. MA AK "G 7. MAAK "AIS 10. MAAK "BES 10. MAA K "CIS 1. MAAK "DIS 3. MAAK "FIS 6. MAAK "GIS 8.END..MAAK "GIS (8).MAAK "FIS (6) .MAAK "DIS (3).MAAK "CIS (1).MAAK "BES ( 10).MAAK "AIS (10).MAAK "G (7).MAAK "F ( 5).MAAK "E (4).MAAK "D (2).MAAK "C (0).M AAK "B (11).MAAK "A (9).MAAK "LADDER [87 79 9301 9854 10440 11060 11718 12415 131 53 13935 14764 15742 16572 17557 18601]. MAAK "LP (15).MAAK "HP (15).MAAK "OCTAAF (1).MAAK "GOLF (65).MAAK "SR (69).MAAK "AD (19).MAAK "TEMPO (20).MAAK "STARTOP [ZETOP].
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL